[otb] 02/08: Imported Upstream version 5.0.0+dfsg
Sebastiaan Couwenberg
sebastic at moszumanska.debian.org
Thu Sep 3 23:34:51 UTC 2015
This is an automated email from the git hooks/post-receive script.
sebastic pushed a commit to branch master
in repository otb.
commit 991c369356a5bf34e2c7de21990745bec534eebb
Author: Bas Couwenberg <sebastic at xs4all.nl>
Date: Fri Sep 4 00:48:42 2015 +0200
Imported Upstream version 5.0.0+dfsg
---
Modules/ThirdParty/6S/src/6SV1.0B/AATSR.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/AATSR.c | 3624 ----
Modules/ThirdParty/6S/src/6SV1.0B/AATSR.f | 85 -
Modules/ThirdParty/6S/src/6SV1.0B/AATSR.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.P | 36 -
Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.c | 1150 --
Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.f | 495 -
Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.h | 36 -
Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.c | 161 -
Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.f | 86 -
Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.h | 13 -
Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.P | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.c | 793 -
Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.f | 285 -
Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.h | 9 -
Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.P | 29 -
Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.c | 3112 ---
Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.f | 1603 --
Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.h | 65 -
Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.c | 322 -
Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.f | 149 -
Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.h | 43 -
Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.c | 1393 --
Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.f | 482 -
Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/BBM.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/BBM.c | 692 -
Modules/ThirdParty/6S/src/6SV1.0B/BBM.f | 1132 --
Modules/ThirdParty/6S/src/6SV1.0B/BBM.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/BDM.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/BDM.c | 694 -
Modules/ThirdParty/6S/src/6SV1.0B/BDM.f | 1133 --
Modules/ThirdParty/6S/src/6SV1.0B/BDM.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.c | 94 -
Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.f | 24 -
Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.h | 10 -
Modules/ThirdParty/6S/src/6SV1.0B/CHAND.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/CHAND.c | 155 -
Modules/ThirdParty/6S/src/6SV1.0B/CHAND.f | 71 -
Modules/ThirdParty/6S/src/6SV1.0B/CHAND.h | 7 -
Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.c | 122 -
Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.f | 42 -
Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.c | 99 -
Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.f | 27 -
Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.h | 10 -
Modules/ThirdParty/6S/src/6SV1.0B/DICA1.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/DICA1.c | 299 -
Modules/ThirdParty/6S/src/6SV1.0B/DICA1.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/DICA1.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/DICA2.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/DICA2.c | 300 -
Modules/ThirdParty/6S/src/6SV1.0B/DICA2.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/DICA2.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/DICA3.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/DICA3.c | 239 -
Modules/ThirdParty/6S/src/6SV1.0B/DICA3.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/DICA3.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.P | 12 -
Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.c | 409 -
Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.f | 202 -
Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.h | 29 -
Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.c | 120 -
Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.f | 41 -
Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.h | 13 -
Modules/ThirdParty/6S/src/6SV1.0B/DUST.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/DUST.c | 721 -
Modules/ThirdParty/6S/src/6SV1.0B/DUST.f | 1133 --
Modules/ThirdParty/6S/src/6SV1.0B/DUST.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.c | 156 -
Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.f | 70 -
Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.h | 10 -
Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.c | 71 -
Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.f | 21 -
Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.h | 6 -
Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.c | 99 -
Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.f | 31 -
Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.h | 7 -
Modules/ThirdParty/6S/src/6SV1.0B/GLI.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/GLI.c | 2366 ---
Modules/ThirdParty/6S/src/6SV1.0B/GLI.f | 350 -
Modules/ThirdParty/6S/src/6SV1.0B/GLI.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/GOES.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/GOES.c | 212 -
Modules/ThirdParty/6S/src/6SV1.0B/GOES.f | 77 -
Modules/ThirdParty/6S/src/6SV1.0B/GOES.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.c | 126 -
Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.f | 45 -
Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.h | 7 -
Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.c | 116 -
Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.f | 44 -
Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.h | 11 -
Modules/ThirdParty/6S/src/6SV1.0B/HRV.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/HRV.c | 674 -
Modules/ThirdParty/6S/src/6SV1.0B/HRV.f | 149 -
Modules/ThirdParty/6S/src/6SV1.0B/HRV.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.P | 11 -
Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.c | 395 -
Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.f | 164 -
Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.h | 10 -
Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.P | 10 -
Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.c | 380 -
Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.f | 154 -
Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.h | 14 -
Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.P | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.c | 986 -
Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.f | 477 -
Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.h | 45 -
Modules/ThirdParty/6S/src/6SV1.0B/INTERP.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/INTERP.c | 794 -
Modules/ThirdParty/6S/src/6SV1.0B/INTERP.f | 388 -
Modules/ThirdParty/6S/src/6SV1.0B/INTERP.h | 49 -
Modules/ThirdParty/6S/src/6SV1.0B/ISO.P | 7 -
Modules/ThirdParty/6S/src/6SV1.0B/ISO.c | 937 -
Modules/ThirdParty/6S/src/6SV1.0B/ISO.f | 454 -
Modules/ThirdParty/6S/src/6SV1.0B/ISO.h | 14 -
Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.c | 299 -
Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.f | 104 -
Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.h | 8 -
Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.c | 505 -
Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.f | 197 -
Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.h | 14 -
Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.c | 126 -
Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.f | 56 -
Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/MAS.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/MAS.c | 819 -
Modules/ThirdParty/6S/src/6SV1.0B/MAS.f | 120 -
Modules/ThirdParty/6S/src/6SV1.0B/MAS.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/MERIS.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/MERIS.c | 1193 --
Modules/ThirdParty/6S/src/6SV1.0B/MERIS.f | 133 -
Modules/ThirdParty/6S/src/6SV1.0B/MERIS.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/METEO.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/METEO.c | 132 -
Modules/ThirdParty/6S/src/6SV1.0B/METEO.f | 65 -
Modules/ThirdParty/6S/src/6SV1.0B/METEO.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/METH1.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/METH1.c | 300 -
Modules/ThirdParty/6S/src/6SV1.0B/METH1.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/METH1.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/METH2.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/METH2.c | 237 -
Modules/ThirdParty/6S/src/6SV1.0B/METH2.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/METH2.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/METH3.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/METH3.c | 195 -
Modules/ThirdParty/6S/src/6SV1.0B/METH3.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/METH3.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/METH4.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/METH4.c | 206 -
Modules/ThirdParty/6S/src/6SV1.0B/METH4.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/METH4.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/METH5.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/METH5.c | 206 -
Modules/ThirdParty/6S/src/6SV1.0B/METH5.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/METH5.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/METH6.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/METH6.c | 206 -
Modules/ThirdParty/6S/src/6SV1.0B/METH6.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/METH6.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.c | 80 -
Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.f | 50 -
Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.c | 82 -
Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.f | 50 -
Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/MIE.P | 6 -
Modules/ThirdParty/6S/src/6SV1.0B/MIE.c | 899 -
Modules/ThirdParty/6S/src/6SV1.0B/MIE.f | 443 -
Modules/ThirdParty/6S/src/6SV1.0B/MIE.h | 21 -
Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.c | 27 -
Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.f | 6 -
Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.h | 5 -
Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.c | 67 -
Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.f | 14 -
Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.h | 8 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.c | 233 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.c | 243 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.c | 224 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.c | 206 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.c | 206 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.c | 206 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/MODIS.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/MODIS.c | 656 -
Modules/ThirdParty/6S/src/6SV1.0B/MODIS.f | 80 -
Modules/ThirdParty/6S/src/6SV1.0B/MODIS.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.c | 27 -
Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.f | 6 -
Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.h | 6 -
Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.c | 143 -
Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.f | 58 -
Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.h | 10 -
Modules/ThirdParty/6S/src/6SV1.0B/MSS.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/MSS.c | 364 -
Modules/ThirdParty/6S/src/6SV1.0B/MSS.f | 92 -
Modules/ThirdParty/6S/src/6SV1.0B/MSS.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/Makefile_ref | 46 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.c | 268 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.c | 199 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.c | 195 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.c | 206 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.c | 206 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.c | 206 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEA.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEA.c | 710 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEA.f | 1135 --
Modules/ThirdParty/6S/src/6SV1.0B/OCEA.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.c | 107 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.f | 51 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.h | 8 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.P | 5 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.c | 285 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.f | 130 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.h | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.c | 197 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.f | 119 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.h | 12 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.P | 5 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.c | 748 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.f | 415 -
Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.h | 35 -
Modules/ThirdParty/6S/src/6SV1.0B/ODA550.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/ODA550.c | 111 -
Modules/ThirdParty/6S/src/6SV1.0B/ODA550.f | 55 -
Modules/ThirdParty/6S/src/6SV1.0B/ODA550.h | 5 -
Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.c | 101 -
Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.f | 33 -
Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/OS.P | 9 -
Modules/ThirdParty/6S/src/6SV1.0B/OS.c | 1401 --
Modules/ThirdParty/6S/src/6SV1.0B/OS.f | 681 -
Modules/ThirdParty/6S/src/6SV1.0B/OS.h | 20 -
Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.P | 9 -
Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.c | 2104 --
Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.f | 997 -
Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.h | 26 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.c | 235 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.c | 214 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.c | 242 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.c | 219 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/OZON1.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/OZON1.c | 235 -
Modules/ThirdParty/6S/src/6SV1.0B/OZON1.f | 557 -
Modules/ThirdParty/6S/src/6SV1.0B/OZON1.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.c | 85 -
Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.f | 39 -
Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.h | 5 -
Modules/ThirdParty/6S/src/6SV1.0B/POLDER.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/POLDER.c | 657 -
Modules/ThirdParty/6S/src/6SV1.0B/POLDER.f | 89 -
Modules/ThirdParty/6S/src/6SV1.0B/POLDER.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.c | 286 -
Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.f | 158 -
Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.h | 17 -
Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.c | 121 -
Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.f | 63 -
Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.h | 8 -
Modules/ThirdParty/6S/src/6SV1.0B/POSGE.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/POSGE.c | 162 -
Modules/ThirdParty/6S/src/6SV1.0B/POSGE.f | 61 -
Modules/ThirdParty/6S/src/6SV1.0B/POSGE.h | 13 -
Modules/ThirdParty/6S/src/6SV1.0B/POSGW.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/POSGW.c | 162 -
Modules/ThirdParty/6S/src/6SV1.0B/POSGW.f | 61 -
Modules/ThirdParty/6S/src/6SV1.0B/POSGW.h | 13 -
Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.c | 54 -
Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.f | 20 -
Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.h | 11 -
Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.c | 162 -
Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.f | 60 -
Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.h | 13 -
Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.c | 146 -
Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.f | 60 -
Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.h | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.c | 197 -
Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.f | 104 -
Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.h | 23 -
Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.c | 54 -
Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.f | 21 -
Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.h | 11 -
Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.c | 204 -
Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.f | 80 -
Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.h | 6 -
Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.c | 187 -
Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.f | 70 -
Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.h | 5 -
Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.c | 55 -
Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.f | 9 -
Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.c | 137 -
Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.f | 52 -
Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.h | 6 -
Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.c | 157 -
Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.f | 72 -
Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.h | 10 -
Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.c | 133 -
Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.f | 53 -
Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.h | 6 -
Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.c | 108 -
Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.f | 35 -
Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.h | 10 -
Modules/ThirdParty/6S/src/6SV1.0B/SAND.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/SAND.c | 153 -
Modules/ThirdParty/6S/src/6SV1.0B/SAND.f | 138 -
Modules/ThirdParty/6S/src/6SV1.0B/SAND.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.c | 300 -
Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.f | 133 -
Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.h | 30 -
Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.c | 708 -
Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.f | 315 -
Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.c | 247 -
Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.f | 253 -
Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/SOOT.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/SOOT.c | 696 -
Modules/ThirdParty/6S/src/6SV1.0B/SOOT.f | 1134 --
Modules/ThirdParty/6S/src/6SV1.0B/SOOT.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.P | 7 -
Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.c | 227 -
Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.f | 92 -
Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.h | 10 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.c | 74 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.f | 16 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.h | 7 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.c | 78 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.f | 17 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.h | 11 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.c | 95 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.f | 32 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.h | 8 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.c | 85 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.f | 23 -
Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.h | 8 -
Modules/ThirdParty/6S/src/6SV1.0B/STM.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/STM.c | 707 -
Modules/ThirdParty/6S/src/6SV1.0B/STM.f | 1137 --
Modules/ThirdParty/6S/src/6SV1.0B/STM.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.c | 82 -
Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.f | 50 -
Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.c | 83 -
Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.f | 51 -
Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/TM.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/TM.c | 531 -
Modules/ThirdParty/6S/src/6SV1.0B/TM.f | 137 -
Modules/ThirdParty/6S/src/6SV1.0B/TM.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.c | 81 -
Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.f | 50 -
Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.c | 314 -
Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.f | 136 -
Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/US62.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/US62.c | 82 -
Modules/ThirdParty/6S/src/6SV1.0B/US62.f | 51 -
Modules/ThirdParty/6S/src/6SV1.0B/US62.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.c | 69 -
Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.f | 25 -
Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.h | 5 -
Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.c | 152 -
Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.f | 150 -
Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.c | 362 -
Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.f | 119 -
Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.h | 6 -
Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.P | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.c | 325 -
Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.f | 108 -
Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.h | 10 -
Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.c | 638 -
Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.f | 448 -
Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.h | 7 -
Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.P | 2 -
Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.c | 105 -
Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.f | 37 -
Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.h | 7 -
Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.c | 85 -
Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.f | 26 -
Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.h | 11 -
Modules/ThirdParty/6S/src/6SV1.0B/WATE.P | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/WATE.c | 700 -
Modules/ThirdParty/6S/src/6SV1.0B/WATE.f | 1136 --
Modules/ThirdParty/6S/src/6SV1.0B/WATE.h | 3 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.c | 344 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.f | 559 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.c | 346 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.f | 561 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.c | 343 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.f | 560 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.c | 359 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.f | 560 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.c | 316 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.f | 560 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.P | 1 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.c | 311 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.f | 560 -
Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.h | 4 -
Modules/ThirdParty/6S/src/6SV1.0B/aaa_com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/aeroprof_com.c | 17 -
Modules/ThirdParty/6S/src/6SV1.0B/cfresn_com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/gauss_m__com.c | 16 -
Modules/ThirdParty/6S/src/6SV1.0B/ggg_com.c | 18 -
Modules/ThirdParty/6S/src/6SV1.0B/l_com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/ladak_com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/ld_com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/leafin_com.c | 20 -
Modules/ThirdParty/6S/src/6SV1.0B/leafout_com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/main.h | 0
Modules/ThirdParty/6S/src/6SV1.0B/mie_in__com.c | 21 -
Modules/ThirdParty/6S/src/6SV1.0B/msrmdata_com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/multorder_com.c | 16 -
Modules/ThirdParty/6S/src/6SV1.0B/nagout_com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/num_quad__com.c | 16 -
Modules/ThirdParty/6S/src/6SV1.0B/p_com.c | 16 -
Modules/ThirdParty/6S/src/6SV1.0B/paramdef.inc | 7 -
Modules/ThirdParty/6S/src/6SV1.0B/ro_com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/sixs_aer__com.c | 15 -
.../ThirdParty/6S/src/6SV1.0B/sixs_aerbas__com.c | 16 -
Modules/ThirdParty/6S/src/6SV1.0B/sixs_atm__com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/sixs_coef__com.c | 16 -
Modules/ThirdParty/6S/src/6SV1.0B/sixs_del__com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/sixs_disc__com.c | 19 -
Modules/ThirdParty/6S/src/6SV1.0B/sixs_ffu__com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/sixs_ier__com.c | 16 -
.../ThirdParty/6S/src/6SV1.0B/sixs_phase__com.c | 16 -
.../ThirdParty/6S/src/6SV1.0B/sixs_planesim__com.c | 15 -
.../ThirdParty/6S/src/6SV1.0B/sixs_polar__com.c | 16 -
Modules/ThirdParty/6S/src/6SV1.0B/sixs_test__com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/tauin_com.c | 15 -
Modules/ThirdParty/6S/src/6SV1.0B/tauout_com.c | 15 -
Modules/ThirdParty/6S/src/CMakeLists.txt | 83 -
Modules/ThirdParty/6S/src/README | 81 -
Modules/ThirdParty/6S/src/aeroprof_com.c | 16 -
Modules/ThirdParty/6S/src/libf2c/Notice | 23 -
Modules/ThirdParty/6S/src/libf2c/README | 374 -
Modules/ThirdParty/6S/src/libf2c/abort_.c | 32 -
Modules/ThirdParty/6S/src/libf2c/arith.h | 2 -
Modules/ThirdParty/6S/src/libf2c/arithchk.c | 225 -
Modules/ThirdParty/6S/src/libf2c/backspac.c | 79 -
Modules/ThirdParty/6S/src/libf2c/c_abs.c | 29 -
Modules/ThirdParty/6S/src/libf2c/c_cos.c | 26 -
Modules/ThirdParty/6S/src/libf2c/c_div.c | 56 -
Modules/ThirdParty/6S/src/libf2c/c_exp.c | 28 -
Modules/ThirdParty/6S/src/libf2c/c_log.c | 26 -
Modules/ThirdParty/6S/src/libf2c/c_sin.c | 26 -
Modules/ThirdParty/6S/src/libf2c/c_sqrt.c | 44 -
Modules/ThirdParty/6S/src/libf2c/cabs.c | 35 -
Modules/ThirdParty/6S/src/libf2c/close.c | 104 -
Modules/ThirdParty/6S/src/libf2c/comptry.bat | 5 -
Modules/ThirdParty/6S/src/libf2c/d_abs.c | 21 -
Modules/ThirdParty/6S/src/libf2c/d_acos.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_asin.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_atan.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_atn2.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_cnjg.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_cos.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_cosh.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_dim.c | 19 -
Modules/ThirdParty/6S/src/libf2c/d_exp.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_imag.c | 19 -
Modules/ThirdParty/6S/src/libf2c/d_int.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_lg10.c | 24 -
Modules/ThirdParty/6S/src/libf2c/d_log.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_mod.c | 49 -
Modules/ThirdParty/6S/src/libf2c/d_nint.c | 23 -
Modules/ThirdParty/6S/src/libf2c/d_prod.c | 19 -
Modules/ThirdParty/6S/src/libf2c/d_sign.c | 21 -
Modules/ThirdParty/6S/src/libf2c/d_sin.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_sinh.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_sqrt.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_tan.c | 22 -
Modules/ThirdParty/6S/src/libf2c/d_tanh.c | 22 -
Modules/ThirdParty/6S/src/libf2c/derf_.c | 21 -
Modules/ThirdParty/6S/src/libf2c/derfc_.c | 23 -
Modules/ThirdParty/6S/src/libf2c/dfe.c | 154 -
Modules/ThirdParty/6S/src/libf2c/dolio.c | 29 -
Modules/ThirdParty/6S/src/libf2c/dtime_.c | 63 -
Modules/ThirdParty/6S/src/libf2c/due.c | 80 -
Modules/ThirdParty/6S/src/libf2c/ef1asc_.c | 28 -
Modules/ThirdParty/6S/src/libf2c/ef1cmc_.c | 23 -
Modules/ThirdParty/6S/src/libf2c/endfile.c | 163 -
Modules/ThirdParty/6S/src/libf2c/erf_.c | 25 -
Modules/ThirdParty/6S/src/libf2c/erfc_.c | 25 -
Modules/ThirdParty/6S/src/libf2c/err.c | 285 -
Modules/ThirdParty/6S/src/libf2c/etime_.c | 57 -
Modules/ThirdParty/6S/src/libf2c/exit_.c | 46 -
Modules/ThirdParty/6S/src/libf2c/f2c.h0 | 223 -
Modules/ThirdParty/6S/src/libf2c/f2ch.add | 162 -
Modules/ThirdParty/6S/src/libf2c/f77_aloc.c | 47 -
Modules/ThirdParty/6S/src/libf2c/f77vers.c | 97 -
Modules/ThirdParty/6S/src/libf2c/fio.h | 142 -
Modules/ThirdParty/6S/src/libf2c/fmt.c | 528 -
Modules/ThirdParty/6S/src/libf2c/fmt.h | 104 -
Modules/ThirdParty/6S/src/libf2c/fmtlib.c | 54 -
Modules/ThirdParty/6S/src/libf2c/fp.h | 28 -
Modules/ThirdParty/6S/src/libf2c/ftell64_.c.omit | 55 -
Modules/ThirdParty/6S/src/libf2c/ftell_.c | 55 -
Modules/ThirdParty/6S/src/libf2c/getarg_.c | 37 -
Modules/ThirdParty/6S/src/libf2c/getenv_.c | 65 -
Modules/ThirdParty/6S/src/libf2c/h_abs.c | 21 -
Modules/ThirdParty/6S/src/libf2c/h_dim.c | 19 -
Modules/ThirdParty/6S/src/libf2c/h_dnnt.c | 22 -
Modules/ThirdParty/6S/src/libf2c/h_indx.c | 35 -
Modules/ThirdParty/6S/src/libf2c/h_len.c | 19 -
Modules/ThirdParty/6S/src/libf2c/h_mod.c | 19 -
Modules/ThirdParty/6S/src/libf2c/h_nint.c | 22 -
Modules/ThirdParty/6S/src/libf2c/h_sign.c | 21 -
Modules/ThirdParty/6S/src/libf2c/hl_ge.c | 21 -
Modules/ThirdParty/6S/src/libf2c/hl_gt.c | 21 -
Modules/ThirdParty/6S/src/libf2c/hl_le.c | 21 -
Modules/ThirdParty/6S/src/libf2c/hl_lt.c | 21 -
Modules/ThirdParty/6S/src/libf2c/i77vers.c | 345 -
Modules/ThirdParty/6S/src/libf2c/i_abs.c | 21 -
Modules/ThirdParty/6S/src/libf2c/i_dim.c | 19 -
Modules/ThirdParty/6S/src/libf2c/i_dnnt.c | 22 -
Modules/ThirdParty/6S/src/libf2c/i_indx.c | 35 -
Modules/ThirdParty/6S/src/libf2c/i_len.c | 19 -
Modules/ThirdParty/6S/src/libf2c/i_mod.c | 19 -
Modules/ThirdParty/6S/src/libf2c/i_nint.c | 22 -
Modules/ThirdParty/6S/src/libf2c/i_sign.c | 21 -
Modules/ThirdParty/6S/src/libf2c/iargc_.c | 20 -
Modules/ThirdParty/6S/src/libf2c/iio.c | 162 -
Modules/ThirdParty/6S/src/libf2c/ilnw.c | 86 -
Modules/ThirdParty/6S/src/libf2c/inquire.c | 121 -
Modules/ThirdParty/6S/src/libf2c/l_ge.c | 21 -
Modules/ThirdParty/6S/src/libf2c/l_gt.c | 21 -
Modules/ThirdParty/6S/src/libf2c/l_le.c | 21 -
Modules/ThirdParty/6S/src/libf2c/l_lt.c | 21 -
Modules/ThirdParty/6S/src/libf2c/lbitbits.c | 71 -
Modules/ThirdParty/6S/src/libf2c/lbitshft.c | 20 -
Modules/ThirdParty/6S/src/libf2c/libf2c.lbc | 153 -
Modules/ThirdParty/6S/src/libf2c/libf2c.sy | 153 -
Modules/ThirdParty/6S/src/libf2c/lio.h | 74 -
Modules/ThirdParty/6S/src/libf2c/lread.c | 808 -
Modules/ThirdParty/6S/src/libf2c/lwrite.c | 317 -
Modules/ThirdParty/6S/src/libf2c/main.c | 147 -
Modules/ThirdParty/6S/src/libf2c/makefile.sy | 190 -
Modules/ThirdParty/6S/src/libf2c/makefile.u | 214 -
Modules/ThirdParty/6S/src/libf2c/makefile.vc | 195 -
Modules/ThirdParty/6S/src/libf2c/makefile.wat | 189 -
Modules/ThirdParty/6S/src/libf2c/math.hvc | 3 -
Modules/ThirdParty/6S/src/libf2c/mkfile.plan9 | 162 -
Modules/ThirdParty/6S/src/libf2c/open.c | 303 -
Modules/ThirdParty/6S/src/libf2c/pow_ci.c | 29 -
Modules/ThirdParty/6S/src/libf2c/pow_dd.c | 22 -
Modules/ThirdParty/6S/src/libf2c/pow_di.c | 44 -
Modules/ThirdParty/6S/src/libf2c/pow_hh.c | 42 -
Modules/ThirdParty/6S/src/libf2c/pow_ii.c | 42 -
Modules/ThirdParty/6S/src/libf2c/pow_qq.c.omit | 42 -
Modules/ThirdParty/6S/src/libf2c/pow_ri.c | 44 -
Modules/ThirdParty/6S/src/libf2c/pow_zi.c | 63 -
Modules/ThirdParty/6S/src/libf2c/pow_zz.c | 32 -
Modules/ThirdParty/6S/src/libf2c/qbitbits.c.omit | 75 -
Modules/ThirdParty/6S/src/libf2c/qbitshft.c.omit | 20 -
Modules/ThirdParty/6S/src/libf2c/r_abs.c | 21 -
Modules/ThirdParty/6S/src/libf2c/r_acos.c | 22 -
Modules/ThirdParty/6S/src/libf2c/r_asin.c | 22 -
Modules/ThirdParty/6S/src/libf2c/r_atan.c | 22 -
Modules/ThirdParty/6S/src/libf2c/r_atn2.c | 22 -
Modules/ThirdParty/6S/src/libf2c/r_cnjg.c | 21 -
Modules/ThirdParty/6S/src/libf2c/r_cos.c | 22 -
Modules/ThirdParty/6S/src/libf2c/r_cosh.c | 22 -
Modules/ThirdParty/6S/src/libf2c/r_dim.c | 19 -
Modules/ThirdParty/6S/src/libf2c/r_exp.c | 22 -
Modules/ThirdParty/6S/src/libf2c/r_imag.c | 19 -
Modules/ThirdParty/6S/src/libf2c/r_int.c | 22 -
Modules/ThirdParty/6S/src/libf2c/r_lg10.c | 24 -
Modules/ThirdParty/6S/src/libf2c/r_log.c | 22 -
Modules/ThirdParty/6S/src/libf2c/r_mod.c | 49 -
Modules/ThirdParty/6S/src/libf2c/r_nint.c | 23 -
Modules/ThirdParty/6S/src/libf2c/r_sign.c | 21 -
Modules/ThirdParty/6S/src/libf2c/r_sin.c | 22 -
Modules/ThirdParty/6S/src/libf2c/r_sinh.c | 22 -
Modules/ThirdParty/6S/src/libf2c/r_sqrt.c | 22 -
Modules/ThirdParty/6S/src/libf2c/r_tan.c | 22 -
Modules/ThirdParty/6S/src/libf2c/r_tanh.c | 22 -
Modules/ThirdParty/6S/src/libf2c/rawio.h | 41 -
Modules/ThirdParty/6S/src/libf2c/rdfmt.c | 553 -
Modules/ThirdParty/6S/src/libf2c/rewind.c | 33 -
Modules/ThirdParty/6S/src/libf2c/rsfe.c | 94 -
Modules/ThirdParty/6S/src/libf2c/rsli.c | 112 -
Modules/ThirdParty/6S/src/libf2c/rsne.c | 621 -
Modules/ThirdParty/6S/src/libf2c/s_cat.c | 89 -
Modules/ThirdParty/6S/src/libf2c/s_cmp.c | 53 -
Modules/ThirdParty/6S/src/libf2c/s_copy.c | 60 -
Modules/ThirdParty/6S/src/libf2c/s_paus.c | 99 -
Modules/ThirdParty/6S/src/libf2c/s_rnge.c | 35 -
Modules/ThirdParty/6S/src/libf2c/s_stop.c | 51 -
Modules/ThirdParty/6S/src/libf2c/scomptry.bat | 5 -
Modules/ThirdParty/6S/src/libf2c/sfe.c | 46 -
Modules/ThirdParty/6S/src/libf2c/sig_die.c | 57 -
Modules/ThirdParty/6S/src/libf2c/signal1.h | 35 -
Modules/ThirdParty/6S/src/libf2c/signal1.h0 | 35 -
Modules/ThirdParty/6S/src/libf2c/signal_.c | 24 -
Modules/ThirdParty/6S/src/libf2c/signbit.c.omit | 24 -
Modules/ThirdParty/6S/src/libf2c/sue.c | 93 -
Modules/ThirdParty/6S/src/libf2c/sysdep1.h | 72 -
Modules/ThirdParty/6S/src/libf2c/sysdep1.h0 | 66 -
Modules/ThirdParty/6S/src/libf2c/system_.c | 45 -
Modules/ThirdParty/6S/src/libf2c/typesize.c | 21 -
Modules/ThirdParty/6S/src/libf2c/uio.c | 78 -
Modules/ThirdParty/6S/src/libf2c/uninit.c | 375 -
Modules/ThirdParty/6S/src/libf2c/util.c | 57 -
Modules/ThirdParty/6S/src/libf2c/wref.c | 297 -
Modules/ThirdParty/6S/src/libf2c/wrtfmt.c | 380 -
Modules/ThirdParty/6S/src/libf2c/wsfe.c | 81 -
Modules/ThirdParty/6S/src/libf2c/wsle.c | 45 -
Modules/ThirdParty/6S/src/libf2c/wsne.c | 35 -
Modules/ThirdParty/6S/src/libf2c/xsum0.out | 180 -
Modules/ThirdParty/6S/src/libf2c/xwsne.c | 80 -
Modules/ThirdParty/6S/src/libf2c/z_abs.c | 21 -
Modules/ThirdParty/6S/src/libf2c/z_cos.c | 24 -
Modules/ThirdParty/6S/src/libf2c/z_div.c | 53 -
Modules/ThirdParty/6S/src/libf2c/z_exp.c | 26 -
Modules/ThirdParty/6S/src/libf2c/z_log.c | 124 -
Modules/ThirdParty/6S/src/libf2c/z_sin.c | 24 -
Modules/ThirdParty/6S/src/libf2c/z_sqrt.c | 38 -
Modules/ThirdParty/6S/src/main.P | 80 -
Modules/ThirdParty/6S/src/main.c | 8186 --------
Modules/ThirdParty/6S/src/main.f | 3691 ----
Modules/ThirdParty/6S/src/main_6s.h | 39 -
Modules/ThirdParty/6S/src/mie_in__com.c | 20 -
Modules/ThirdParty/6S/src/multorder_com.c | 15 -
Modules/ThirdParty/6S/src/num_quad__com.c | 15 -
Modules/ThirdParty/6S/src/otb_6S.h | 51 -
Modules/ThirdParty/6S/src/otb_6S_f2c.h | 86 -
Modules/ThirdParty/6S/src/otb_6S_f2c_mangle.h | 81 -
Modules/ThirdParty/6S/src/otb_6S_f2c_original.h | 225 -
Modules/ThirdParty/6S/src/otb_6S_f2c_unmangle.h | 75 -
Modules/ThirdParty/6S/src/otb_6S_mangle.h | 305 -
Modules/ThirdParty/6S/src/otb_6S_prototypes.h | 132 -
Modules/ThirdParty/6S/src/otb_6S_unmangle.h | 296 -
Modules/ThirdParty/6S/src/otb_main6S_function.P | 30 -
Modules/ThirdParty/6S/src/otb_main6S_function.c | 6589 ------
Modules/ThirdParty/6S/src/otb_main6S_function.f | 3867 ----
Modules/ThirdParty/6S/src/otb_main6S_function.h | 25 -
.../6S/src/otb_main6S_program_call_function.P | 1 -
.../6S/src/otb_main6S_program_call_function.c | 505 -
.../6S/src/otb_main6S_program_call_function.f | 204 -
Modules/ThirdParty/6S/src/sixs_aer__com.c | 15 -
Modules/ThirdParty/6S/src/sixs_atm__com.c | 15 -
Modules/ThirdParty/6S/src/sixs_del__com.c | 15 -
Modules/ThirdParty/6S/src/sixs_disc__com.c | 19 -
Modules/ThirdParty/6S/src/sixs_ffu__com.c | 15 -
Modules/ThirdParty/6S/src/sixs_ier__com.c | 16 -
Modules/ThirdParty/6S/src/sixs_planesim__com.c | 15 -
Modules/ThirdParty/6S/src/sixs_test__com.c | 15 -
SuperBuild/CMake/External_boost.cmake | 144 -
SuperBuild/CMake/External_curl.cmake | 71 -
SuperBuild/CMake/External_expat.cmake | 41 -
SuperBuild/CMake/External_fftw.cmake | 88 -
SuperBuild/CMake/External_gdal.cmake | 110 -
SuperBuild/CMake/External_geos.cmake | 42 -
SuperBuild/CMake/External_geotiff.cmake | 110 -
SuperBuild/CMake/External_itk.cmake | 189 -
SuperBuild/CMake/External_jpeg.cmake | 74 -
SuperBuild/CMake/External_libkml.cmake | 69 -
SuperBuild/CMake/External_libsvm.cmake | 43 -
SuperBuild/CMake/External_muparser.cmake | 41 -
SuperBuild/CMake/External_muparserx.cmake | 53 -
SuperBuild/CMake/External_opencv.cmake | 86 -
SuperBuild/CMake/External_openjpeg.cmake | 65 -
SuperBuild/CMake/External_openthreads.cmake | 69 -
SuperBuild/CMake/External_ossim.cmake | 128 -
SuperBuild/CMake/External_otb.cmake | 191 -
SuperBuild/CMake/External_pcre.cmake | 45 -
SuperBuild/CMake/External_png.cmake | 66 -
SuperBuild/CMake/External_proj.cmake | 88 -
SuperBuild/CMake/External_qt4.cmake | 78 -
SuperBuild/CMake/External_sqlite.cmake | 41 -
SuperBuild/CMake/External_swig.cmake | 91 -
SuperBuild/CMake/External_tiff.cmake | 102 -
SuperBuild/CMake/External_tinyxml.cmake | 41 -
SuperBuild/CMake/External_zlib.cmake | 53 -
SuperBuild/CMake/SuperBuild_Macro.cmake | 102 -
SuperBuild/CMake/SystemCheckup.cmake | 195 -
SuperBuild/CMakeLists.txt | 146 -
SuperBuild/CTestConfig.cmake | 13 -
SuperBuild/README | 18 -
SuperBuild/patches/BOOST/1.54.0/boost/cstdint.hpp | 511 -
.../date_time/local_time/custom_time_zone.hpp | 169 -
.../BOOST/1.54.0/boost/log/utility/once_block.hpp | 195 -
.../boost/thread/win32/thread_primitives.hpp | 471 -
.../BOOST/1.54.0/libs/coroutine/build/Jamfile.v2 | 53 -
SuperBuild/patches/BOOST/CMakeLists.txt | 8 -
SuperBuild/patches/GDAL/CMakeLists.txt | 51 -
SuperBuild/patches/GDAL/nmake_gdal_extra.opt.in | 101 -
SuperBuild/patches/GDAL/ogrsqlitevirtualogr.cpp | 2464 ---
SuperBuild/patches/GEOTIFF/CMakeLists.txt | 439 -
SuperBuild/patches/GEOTIFF/configure | 20109 -------------------
SuperBuild/patches/GLUT/CMakeLists.txt | 64 -
SuperBuild/patches/ITK/hashtable.hxx.in | 1295 --
SuperBuild/patches/JPEG/CMakeLists.txt | 24 -
SuperBuild/patches/JPEG/configure | 2011 --
SuperBuild/patches/LIBKML/CMakeLists.txt | 404 -
.../patches/LIBKML/src/kml/base/file_posix.cc | 74 -
SuperBuild/patches/LIBKML/src/kml/base/util.h | 66 -
SuperBuild/patches/LIBSVM/CMakeLists.txt | 41 -
SuperBuild/patches/MUPARSER/CMakeLists.txt | 32 -
SuperBuild/patches/MUPARSERX/CMakeLists.txt | 38 -
SuperBuild/patches/OPENTHREADS/CMakeLists.txt | 92 -
SuperBuild/patches/OSSIM/OssimUtilities.cmake | 383 -
SuperBuild/patches/PROJ/CMakeLists.txt | 25 -
SuperBuild/patches/QT4/configure_qt4.bat.in | 10 -
SuperBuild/patches/QWT/qwtconfig.pri | 125 -
SuperBuild/patches/SQLITE/CMakeLists.txt | 22 -
SuperBuild/patches/SQLITE/sqlite3_win.c | 5 -
SuperBuild/patches/TIFF/CMakeLists.txt | 25 -
SuperBuild/patches/TIFF/nmake.opt | 218 -
SuperBuild/patches/TINYXML/CMakeLists.txt | 25 -
826 files changed, 162314 deletions(-)
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AATSR.P b/Modules/ThirdParty/6S/src/6SV1.0B/AATSR.P
deleted file mode 100644
index 6037e41..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AATSR.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int aatsr_(integer *iwa);
-/* comlen sixs_ffu__ 12024 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AATSR.c b/Modules/ThirdParty/6S/src/6SV1.0B/AATSR.c
deleted file mode 100644
index b17ad76..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AATSR.c
+++ /dev/null
@@ -1,3624 +0,0 @@
-/* AATSR.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine aatsr(iwa)
>*/
-/* Subroutine */ int aatsr_(integer *iwa)
-{
- /* Initialized data */
-
- static struct {
- doublereal e_1[4];
- doublereal fill_2[4];
- doublereal e_3[4];
- doublereal fill_4[4];
- doublereal e_5[4];
- doublereal fill_6[4];
- doublereal e_7[4];
- doublereal fill_8[4];
- doublereal e_9[4];
- doublereal fill_10[4];
- doublereal e_11[4];
- doublereal fill_12[4];
- doublereal e_13[4];
- doublereal fill_14[4];
- doublereal e_15[4];
- doublereal fill_16[4];
- doublereal e_17[4];
- doublereal fill_18[4];
- doublereal e_19[4];
- doublereal fill_20[4];
- doublereal e_21[4];
- doublereal fill_22[4];
- doublereal e_23[4];
- doublereal fill_24[4];
- doublereal e_25[4];
- doublereal fill_26[4];
- doublereal e_27[4];
- doublereal fill_28[4];
- doublereal e_29[4];
- doublereal fill_30[4];
- doublereal e_31[4];
- doublereal fill_32[4];
- doublereal e_33[4];
- doublereal fill_34[4];
- doublereal e_35[4];
- doublereal fill_36[4];
- doublereal e_37[4];
- doublereal fill_38[4];
- doublereal e_39[4];
- doublereal fill_40[4];
- doublereal e_41[4];
- doublereal fill_42[4];
- doublereal e_43[4];
- doublereal fill_44[4];
- doublereal e_45[4];
- doublereal fill_46[4];
- doublereal e_47[4];
- doublereal fill_48[4];
- doublereal e_49[4];
- doublereal fill_50[4];
- doublereal e_51[4];
- doublereal fill_52[4];
- doublereal e_53[4];
- doublereal fill_54[4];
- doublereal e_55[4];
- doublereal fill_56[4];
- doublereal e_57[4];
- doublereal fill_58[4];
- doublereal e_59[4];
- doublereal fill_60[4];
- doublereal e_61[4];
- doublereal fill_62[4];
- doublereal e_63[4];
- doublereal fill_64[4];
- doublereal e_65[4];
- doublereal fill_66[4];
- doublereal e_67[4];
- doublereal fill_68[4];
- doublereal e_69[4];
- doublereal fill_70[4];
- doublereal e_71[4];
- doublereal fill_72[4];
- doublereal e_73[4];
- doublereal fill_74[4];
- doublereal e_75[4];
- doublereal fill_76[4];
- doublereal e_77[4];
- doublereal fill_78[4];
- doublereal e_79[4];
- doublereal fill_80[4];
- doublereal e_81[4];
- doublereal fill_82[4];
- doublereal e_83[4];
- doublereal fill_84[4];
- doublereal e_85[4];
- doublereal fill_86[4];
- doublereal e_87[4];
- doublereal fill_88[4];
- doublereal e_89[4];
- doublereal fill_90[4];
- doublereal e_91[4];
- doublereal fill_92[4];
- doublereal e_93[4];
- doublereal fill_94[4];
- doublereal e_95[4];
- doublereal fill_96[4];
- doublereal e_97[4];
- doublereal fill_98[4];
- doublereal e_99[4];
- doublereal fill_100[4];
- doublereal e_101[4];
- doublereal fill_102[4];
- doublereal e_103[4];
- doublereal fill_104[4];
- doublereal e_105[4];
- doublereal fill_106[4];
- doublereal e_107[4];
- doublereal fill_108[4];
- doublereal e_109[4];
- doublereal fill_110[4];
- doublereal e_111[4];
- doublereal fill_112[4];
- doublereal e_113[4];
- doublereal fill_114[4];
- doublereal e_115[4];
- doublereal fill_116[4];
- doublereal e_117[4];
- doublereal fill_118[4];
- doublereal e_119[4];
- doublereal fill_120[4];
- doublereal e_121[4];
- doublereal fill_122[4];
- doublereal e_123[4];
- doublereal fill_124[4];
- doublereal e_125[4];
- doublereal fill_126[4];
- doublereal e_127[4];
- doublereal fill_128[4];
- doublereal e_129[4];
- doublereal fill_130[4];
- doublereal e_131[4];
- doublereal fill_132[4];
- doublereal e_133[4];
- doublereal fill_134[4];
- doublereal e_135[4];
- doublereal fill_136[4];
- doublereal e_137[4];
- doublereal fill_138[4];
- doublereal e_139[4];
- doublereal fill_140[4];
- doublereal e_141[4];
- doublereal fill_142[4];
- doublereal e_143[4];
- doublereal fill_144[4];
- doublereal e_145[4];
- doublereal fill_146[4];
- doublereal e_147[4];
- doublereal fill_148[4];
- doublereal e_149[4];
- doublereal fill_150[4];
- doublereal e_151[4];
- doublereal fill_152[4];
- doublereal e_153[4];
- doublereal fill_154[4];
- doublereal e_155[4];
- doublereal fill_156[4];
- doublereal e_157[4];
- doublereal fill_158[4];
- doublereal e_159[4];
- doublereal fill_160[4];
- doublereal e_161[4];
- doublereal fill_162[4];
- doublereal e_163[4];
- doublereal fill_164[4];
- doublereal e_165[4];
- doublereal fill_166[4];
- doublereal e_167[4];
- doublereal fill_168[4];
- doublereal e_169[4];
- doublereal fill_170[4];
- doublereal e_171[4];
- doublereal fill_172[4];
- doublereal e_173[4];
- doublereal fill_174[4];
- doublereal e_175[4];
- doublereal fill_176[4];
- doublereal e_177[4];
- doublereal fill_178[4];
- doublereal e_179[4];
- doublereal fill_180[4];
- doublereal e_181[4];
- doublereal fill_182[4];
- doublereal e_183[4];
- doublereal fill_184[4];
- doublereal e_185[4];
- doublereal fill_186[4];
- doublereal e_187[4];
- doublereal fill_188[4];
- doublereal e_189[4];
- doublereal fill_190[4];
- doublereal e_191[4];
- doublereal fill_192[4];
- doublereal e_193[4];
- doublereal fill_194[4];
- doublereal e_195[4];
- doublereal fill_196[4];
- doublereal e_197[4];
- doublereal fill_198[4];
- doublereal e_199[4];
- doublereal fill_200[4];
- doublereal e_201[4];
- doublereal fill_202[4];
- doublereal e_203[4];
- doublereal fill_204[4];
- doublereal e_205[4];
- doublereal fill_206[4];
- doublereal e_207[4];
- doublereal fill_208[4];
- doublereal e_209[4];
- doublereal fill_210[4];
- doublereal e_211[4];
- doublereal fill_212[4];
- doublereal e_213[4];
- doublereal fill_214[4];
- doublereal e_215[4];
- doublereal fill_216[4];
- doublereal e_217[4];
- doublereal fill_218[4];
- doublereal e_219[4];
- doublereal fill_220[4];
- doublereal e_221[4];
- doublereal fill_222[4];
- doublereal e_223[4];
- doublereal fill_224[4];
- doublereal e_225[4];
- doublereal fill_226[4];
- doublereal e_227[4];
- doublereal fill_228[4];
- doublereal e_229[4];
- doublereal fill_230[4];
- doublereal e_231[4];
- doublereal fill_232[4];
- doublereal e_233[4];
- doublereal fill_234[4];
- doublereal e_235[4];
- doublereal fill_236[4];
- doublereal e_237[4];
- doublereal fill_238[4];
- doublereal e_239[4];
- doublereal fill_240[4];
- doublereal e_241[4];
- doublereal fill_242[4];
- doublereal e_243[4];
- doublereal fill_244[4];
- doublereal e_245[4];
- doublereal fill_246[4];
- doublereal e_247[4];
- doublereal fill_248[4];
- doublereal e_249[4];
- doublereal fill_250[4];
- doublereal e_251[4];
- doublereal fill_252[4];
- doublereal e_253[4];
- doublereal fill_254[4];
- doublereal e_255[4];
- doublereal fill_256[4];
- doublereal e_257[4];
- doublereal fill_258[4];
- doublereal e_259[4];
- doublereal fill_260[4];
- doublereal e_261[4];
- doublereal fill_262[4];
- doublereal e_263[4];
- doublereal fill_264[4];
- doublereal e_265[4];
- doublereal fill_266[4];
- doublereal e_267[4];
- doublereal fill_268[4];
- doublereal e_269[4];
- doublereal fill_270[4];
- doublereal e_271[4];
- doublereal fill_272[4];
- doublereal e_273[4];
- doublereal fill_274[4];
- doublereal e_275[4];
- doublereal fill_276[4];
- doublereal e_277[4];
- doublereal fill_278[4];
- doublereal e_279[4];
- doublereal fill_280[4];
- doublereal e_281[4];
- doublereal fill_282[4];
- doublereal e_283[4];
- doublereal fill_284[4];
- doublereal e_285[4];
- doublereal fill_286[4];
- doublereal e_287[4];
- doublereal fill_288[4];
- doublereal e_289[4];
- doublereal fill_290[4];
- doublereal e_291[4];
- doublereal fill_292[4];
- doublereal e_293[4];
- doublereal fill_294[4];
- doublereal e_295[4];
- doublereal fill_296[4];
- doublereal e_297[4];
- doublereal fill_298[4];
- doublereal e_299[4];
- doublereal fill_300[4];
- doublereal e_301[4];
- doublereal fill_302[4];
- doublereal e_303[4];
- doublereal fill_304[4];
- doublereal e_305[4];
- doublereal fill_306[4];
- doublereal e_307[4];
- doublereal fill_308[4];
- doublereal e_309[4];
- doublereal fill_310[4];
- doublereal e_311[4];
- doublereal fill_312[4];
- doublereal e_313[4];
- doublereal fill_314[4];
- doublereal e_315[4];
- doublereal fill_316[4];
- doublereal e_317[4];
- doublereal fill_318[4];
- doublereal e_319[4];
- doublereal fill_320[4];
- doublereal e_321[4];
- doublereal fill_322[4];
- doublereal e_323[4];
- doublereal fill_324[4];
- doublereal e_325[4];
- doublereal fill_326[4];
- doublereal e_327[4];
- doublereal fill_328[4];
- doublereal e_329[4];
- doublereal fill_330[4];
- doublereal e_331[4];
- doublereal fill_332[4];
- doublereal e_333[4];
- doublereal fill_334[4];
- doublereal e_335[4];
- doublereal fill_336[4];
- doublereal e_337[4];
- doublereal fill_338[4];
- doublereal e_339[4];
- doublereal fill_340[4];
- doublereal e_341[4];
- doublereal fill_342[4];
- doublereal e_343[4];
- doublereal fill_344[4];
- doublereal e_345[4];
- doublereal fill_346[4];
- doublereal e_347[4];
- doublereal fill_348[4];
- doublereal e_349[4];
- doublereal fill_350[4];
- doublereal e_351[4];
- doublereal fill_352[4];
- doublereal e_353[4];
- doublereal fill_354[4];
- doublereal e_355[4];
- doublereal fill_356[4];
- doublereal e_357[4];
- doublereal fill_358[4];
- doublereal e_359[4];
- doublereal fill_360[4];
- doublereal e_361[4];
- doublereal fill_362[4];
- doublereal e_363[4];
- doublereal fill_364[4];
- doublereal e_365[4];
- doublereal fill_366[4];
- doublereal e_367[4];
- doublereal fill_368[4];
- doublereal e_369[4];
- doublereal fill_370[4];
- doublereal e_371[4];
- doublereal fill_372[4];
- doublereal e_373[4];
- doublereal fill_374[4];
- doublereal e_375[4];
- doublereal fill_376[4];
- doublereal e_377[4];
- doublereal fill_378[4];
- doublereal e_379[4];
- doublereal fill_380[4];
- doublereal e_381[4];
- doublereal fill_382[4];
- doublereal e_383[4];
- doublereal fill_384[4];
- doublereal e_385[4];
- doublereal fill_386[4];
- doublereal e_387[4];
- doublereal fill_388[4];
- doublereal e_389[4];
- doublereal fill_390[4];
- doublereal e_391[4];
- doublereal fill_392[4];
- doublereal e_393[4];
- doublereal fill_394[4];
- doublereal e_395[4];
- doublereal fill_396[4];
- doublereal e_397[4];
- doublereal fill_398[4];
- doublereal e_399[4];
- doublereal fill_400[4];
- doublereal e_401[4];
- doublereal fill_402[4];
- doublereal e_403[4];
- doublereal fill_404[4];
- doublereal e_405[4];
- doublereal fill_406[4];
- doublereal e_407[4];
- doublereal fill_408[4];
- doublereal e_409[4];
- doublereal fill_410[4];
- doublereal e_411[4];
- doublereal fill_412[4];
- doublereal e_413[4];
- doublereal fill_414[4];
- doublereal e_415[4];
- doublereal fill_416[4];
- doublereal e_417[4];
- doublereal fill_418[4];
- doublereal e_419[4];
- doublereal fill_420[4];
- doublereal e_421[4];
- doublereal fill_422[4];
- doublereal e_423[4];
- doublereal fill_424[4];
- doublereal e_425[4];
- doublereal fill_426[4];
- doublereal e_427[4];
- doublereal fill_428[4];
- doublereal e_429[4];
- doublereal fill_430[4];
- doublereal e_431[4];
- doublereal fill_432[4];
- doublereal e_433[4];
- doublereal fill_434[4];
- doublereal e_435[4];
- doublereal fill_436[4];
- doublereal e_437[4];
- doublereal fill_438[4];
- doublereal e_439[4];
- doublereal fill_440[4];
- doublereal e_441[4];
- doublereal fill_442[4];
- doublereal e_443[4];
- doublereal fill_444[4];
- doublereal e_445[4];
- doublereal fill_446[4];
- doublereal e_447[4];
- doublereal fill_448[4];
- doublereal e_449[4];
- doublereal fill_450[4];
- doublereal e_451[4];
- doublereal fill_452[4];
- doublereal e_453[4];
- doublereal fill_454[4];
- doublereal e_455[4];
- doublereal fill_456[4];
- doublereal e_457[4];
- doublereal fill_458[4];
- doublereal e_459[4];
- doublereal fill_460[4];
- doublereal e_461[4];
- doublereal fill_462[4];
- doublereal e_463[4];
- doublereal fill_464[4];
- doublereal e_465[4];
- doublereal fill_466[4];
- doublereal e_467[4];
- doublereal fill_468[4];
- doublereal e_469[4];
- doublereal fill_470[4];
- doublereal e_471[4];
- doublereal fill_472[4];
- doublereal e_473[4];
- doublereal fill_474[4];
- doublereal e_475[4];
- doublereal fill_476[4];
- doublereal e_477[4];
- doublereal fill_478[4];
- doublereal e_479[4];
- doublereal fill_480[4];
- doublereal e_481[4];
- doublereal fill_482[4];
- doublereal e_483[4];
- doublereal fill_484[4];
- doublereal e_485[4];
- doublereal fill_486[4];
- doublereal e_487[4];
- doublereal fill_488[4];
- doublereal e_489[4];
- doublereal fill_490[4];
- doublereal e_491[4];
- doublereal fill_492[4];
- doublereal e_493[4];
- doublereal fill_494[4];
- doublereal e_495[4];
- doublereal fill_496[4];
- doublereal e_497[4];
- doublereal fill_498[4];
- doublereal e_499[4];
- doublereal fill_500[4];
- doublereal e_501[4];
- doublereal fill_502[4];
- doublereal e_503[4];
- doublereal fill_504[4];
- doublereal e_505[4];
- doublereal fill_506[4];
- doublereal e_507[4];
- doublereal fill_508[4];
- doublereal e_509[4];
- doublereal fill_510[4];
- doublereal e_511[4];
- doublereal fill_512[4];
- doublereal e_513[4];
- doublereal fill_514[4];
- doublereal e_515[4];
- doublereal fill_516[4];
- doublereal e_517[4];
- doublereal fill_518[4];
- doublereal e_519[4];
- doublereal fill_520[4];
- doublereal e_521[4];
- doublereal fill_522[4];
- doublereal e_523[4];
- doublereal fill_524[4];
- doublereal e_525[4];
- doublereal fill_526[4];
- doublereal e_527[4];
- doublereal fill_528[4];
- doublereal e_529[4];
- doublereal fill_530[4];
- doublereal e_531[4];
- doublereal fill_532[4];
- doublereal e_533[4];
- doublereal fill_534[4];
- doublereal e_535[4];
- doublereal fill_536[4];
- doublereal e_537[4];
- doublereal fill_538[4];
- doublereal e_539[4];
- doublereal fill_540[4];
- doublereal e_541[4];
- doublereal fill_542[4];
- doublereal e_543[4];
- doublereal fill_544[4];
- doublereal e_545[4];
- doublereal fill_546[4];
- doublereal e_547[4];
- doublereal fill_548[4];
- doublereal e_549[4];
- doublereal fill_550[4];
- doublereal e_551[4];
- doublereal fill_552[4];
- doublereal e_553[4];
- doublereal fill_554[4];
- doublereal e_555[4];
- doublereal fill_556[4];
- doublereal e_557[4];
- doublereal fill_558[4];
- doublereal e_559[4];
- doublereal fill_560[4];
- doublereal e_561[4];
- doublereal fill_562[4];
- doublereal e_563[4];
- doublereal fill_564[4];
- doublereal e_565[4];
- doublereal fill_566[4];
- doublereal e_567[4];
- doublereal fill_568[4];
- doublereal e_569[4];
- doublereal fill_570[4];
- doublereal e_571[4];
- doublereal fill_572[4];
- doublereal e_573[4];
- doublereal fill_574[4];
- doublereal e_575[4];
- doublereal fill_576[4];
- doublereal e_577[4];
- doublereal fill_578[4];
- doublereal e_579[4];
- doublereal fill_580[4];
- doublereal e_581[4];
- doublereal fill_582[4];
- doublereal e_583[4];
- doublereal fill_584[4];
- doublereal e_585[4];
- doublereal fill_586[4];
- doublereal e_587[4];
- doublereal fill_588[4];
- doublereal e_589[4];
- doublereal fill_590[4];
- doublereal e_591[4];
- doublereal fill_592[4];
- doublereal e_593[4];
- doublereal fill_594[4];
- doublereal e_595[4];
- doublereal fill_596[4];
- doublereal e_597[4];
- doublereal fill_598[4];
- doublereal e_599[4];
- doublereal fill_600[4];
- doublereal e_601[4];
- doublereal fill_602[4];
- doublereal e_603[4];
- doublereal fill_604[4];
- doublereal e_605[4];
- doublereal fill_606[4];
- doublereal e_607[4];
- doublereal fill_608[4];
- doublereal e_609[4];
- doublereal fill_610[4];
- doublereal e_611[4];
- doublereal fill_612[4];
- doublereal e_613[4];
- doublereal fill_614[4];
- doublereal e_615[4];
- doublereal fill_616[4];
- doublereal e_617[4];
- doublereal fill_618[4];
- doublereal e_619[4];
- doublereal fill_620[4];
- doublereal e_621[4];
- doublereal fill_622[4];
- doublereal e_623[4];
- doublereal fill_624[4];
- doublereal e_625[4];
- doublereal fill_626[4];
- doublereal e_627[4];
- doublereal fill_628[4];
- doublereal e_629[4];
- doublereal fill_630[4];
- doublereal e_631[4];
- doublereal fill_632[4];
- doublereal e_633[4];
- doublereal fill_634[4];
- doublereal e_635[4];
- doublereal fill_636[4];
- doublereal e_637[4];
- doublereal fill_638[4];
- doublereal e_639[4];
- doublereal fill_640[4];
- doublereal e_641[4];
- doublereal fill_642[4];
- doublereal e_643[4];
- doublereal fill_644[4];
- doublereal e_645[4];
- doublereal fill_646[4];
- doublereal e_647[4];
- doublereal fill_648[4];
- doublereal e_649[4];
- doublereal fill_650[4];
- doublereal e_651[4];
- doublereal fill_652[4];
- doublereal e_653[4];
- doublereal fill_654[4];
- doublereal e_655[4];
- doublereal fill_656[4];
- doublereal e_657[4];
- doublereal fill_658[4];
- doublereal e_659[4];
- doublereal fill_660[4];
- doublereal e_661[4];
- doublereal fill_662[4];
- doublereal e_663[4];
- doublereal fill_664[4];
- doublereal e_665[4];
- doublereal fill_666[4];
- doublereal e_667[4];
- doublereal fill_668[4];
- doublereal e_669[4];
- doublereal fill_670[4];
- doublereal e_671[4];
- doublereal fill_672[4];
- doublereal e_673[4];
- doublereal fill_674[4];
- doublereal e_675[4];
- doublereal fill_676[4];
- doublereal e_677[4];
- doublereal fill_678[4];
- doublereal e_679[4];
- doublereal fill_680[4];
- doublereal e_681[4];
- doublereal fill_682[4];
- doublereal e_683[4];
- doublereal fill_684[4];
- doublereal e_685[4];
- doublereal fill_686[4];
- doublereal e_687[4];
- doublereal fill_688[4];
- doublereal e_689[4];
- doublereal fill_690[4];
- doublereal e_691[4];
- doublereal fill_692[4];
- doublereal e_693[4];
- doublereal fill_694[4];
- doublereal e_695[4];
- doublereal fill_696[4];
- doublereal e_697[4];
- doublereal fill_698[4];
- doublereal e_699[4];
- doublereal fill_700[4];
- doublereal e_701[4];
- doublereal fill_702[4];
- doublereal e_703[4];
- doublereal fill_704[4];
- doublereal e_705[4];
- doublereal fill_706[4];
- doublereal e_707[4];
- doublereal fill_708[4];
- doublereal e_709[4];
- doublereal fill_710[4];
- doublereal e_711[4];
- doublereal fill_712[4];
- doublereal e_713[4];
- doublereal fill_714[4];
- doublereal e_715[4];
- doublereal fill_716[4];
- doublereal e_717[4];
- doublereal fill_718[4];
- doublereal e_719[4];
- doublereal fill_720[4];
- doublereal e_721[4];
- doublereal fill_722[4];
- doublereal e_723[4];
- doublereal fill_724[4];
- doublereal e_725[4];
- doublereal fill_726[4];
- doublereal e_727[4];
- doublereal fill_728[4];
- doublereal e_729[4];
- doublereal fill_730[4];
- doublereal e_731[4];
- doublereal fill_732[4];
- doublereal e_733[4];
- doublereal fill_734[4];
- doublereal e_735[4];
- doublereal fill_736[4];
- doublereal e_737[4];
- doublereal fill_738[4];
- doublereal e_739[4];
- doublereal fill_740[4];
- doublereal e_741[4];
- doublereal fill_742[4];
- doublereal e_743[4];
- doublereal fill_744[4];
- doublereal e_745[4];
- doublereal fill_746[4];
- doublereal e_747[4];
- doublereal fill_748[4];
- doublereal e_749[4];
- doublereal fill_750[4];
- doublereal e_751[4];
- doublereal fill_752[4];
- doublereal e_753[4];
- doublereal fill_754[4];
- doublereal e_755[4];
- doublereal fill_756[4];
- doublereal e_757[4];
- doublereal fill_758[4];
- doublereal e_759[4];
- doublereal fill_760[4];
- doublereal e_761[4];
- doublereal fill_762[4];
- doublereal e_763[4];
- doublereal fill_764[4];
- doublereal e_765[4];
- doublereal fill_766[4];
- doublereal e_767[4];
- doublereal fill_768[4];
- doublereal e_769[4];
- doublereal fill_770[4];
- doublereal e_771[4];
- doublereal fill_772[4];
- doublereal e_773[4];
- doublereal fill_774[4];
- doublereal e_775[4];
- doublereal fill_776[4];
- doublereal e_777[4];
- doublereal fill_778[4];
- doublereal e_779[4];
- doublereal fill_780[4];
- doublereal e_781[4];
- doublereal fill_782[4];
- doublereal e_783[4];
- doublereal fill_784[4];
- doublereal e_785[4];
- doublereal fill_786[4];
- doublereal e_787[4];
- doublereal fill_788[4];
- doublereal e_789[4];
- doublereal fill_790[4];
- doublereal e_791[4];
- doublereal fill_792[4];
- doublereal e_793[4];
- doublereal fill_794[4];
- doublereal e_795[4];
- doublereal fill_796[4];
- doublereal e_797[4];
- doublereal fill_798[4];
- doublereal e_799[4];
- doublereal fill_800[4];
- doublereal e_801[4];
- doublereal fill_802[4];
- doublereal e_803[4];
- doublereal fill_804[4];
- doublereal e_805[4];
- doublereal fill_806[4];
- doublereal e_807[4];
- doublereal fill_808[4];
- doublereal e_809[4];
- doublereal fill_810[4];
- doublereal e_811[4];
- doublereal fill_812[4];
- doublereal e_813[4];
- doublereal fill_814[4];
- doublereal e_815[4];
- doublereal fill_816[4];
- doublereal e_817[4];
- doublereal fill_818[4];
- doublereal e_819[4];
- doublereal fill_820[4];
- doublereal e_821[4];
- doublereal fill_822[4];
- doublereal e_823[4];
- doublereal fill_824[4];
- doublereal e_825[4];
- doublereal fill_826[4];
- doublereal e_827[4];
- doublereal fill_828[4];
- doublereal e_829[4];
- doublereal fill_830[4];
- doublereal e_831[4];
- doublereal fill_832[4];
- doublereal e_833[4];
- doublereal fill_834[4];
- doublereal e_835[4];
- doublereal fill_836[4];
- doublereal e_837[4];
- doublereal fill_838[4];
- doublereal e_839[4];
- doublereal fill_840[4];
- doublereal e_841[4];
- doublereal fill_842[4];
- doublereal e_843[4];
- doublereal fill_844[4];
- doublereal e_845[4];
- doublereal fill_846[4];
- doublereal e_847[4];
- doublereal fill_848[4];
- doublereal e_849[4];
- doublereal fill_850[4];
- doublereal e_851[4];
- doublereal fill_852[4];
- doublereal e_853[4];
- doublereal fill_854[4];
- doublereal e_855[4];
- doublereal fill_856[4];
- doublereal e_857[4];
- doublereal fill_858[4];
- doublereal e_859[4];
- doublereal fill_860[4];
- doublereal e_861[4];
- doublereal fill_862[4];
- doublereal e_863[4];
- doublereal fill_864[4];
- doublereal e_865[4];
- doublereal fill_866[4];
- doublereal e_867[4];
- doublereal fill_868[4];
- doublereal e_869[4];
- doublereal fill_870[4];
- doublereal e_871[4];
- doublereal fill_872[4];
- doublereal e_873[4];
- doublereal fill_874[4];
- doublereal e_875[4];
- doublereal fill_876[4];
- doublereal e_877[4];
- doublereal fill_878[4];
- doublereal e_879[4];
- doublereal fill_880[4];
- doublereal e_881[4];
- doublereal fill_882[4];
- doublereal e_883[4];
- doublereal fill_884[4];
- doublereal e_885[4];
- doublereal fill_886[4];
- doublereal e_887[4];
- doublereal fill_888[4];
- doublereal e_889[4];
- doublereal fill_890[4];
- doublereal e_891[4];
- doublereal fill_892[4];
- doublereal e_893[4];
- doublereal fill_894[4];
- doublereal e_895[4];
- doublereal fill_896[4];
- doublereal e_897[4];
- doublereal fill_898[4];
- doublereal e_899[4];
- doublereal fill_900[4];
- doublereal e_901[4];
- doublereal fill_902[4];
- doublereal e_903[4];
- doublereal fill_904[4];
- doublereal e_905[4];
- doublereal fill_906[4];
- doublereal e_907[4];
- doublereal fill_908[4];
- doublereal e_909[4];
- doublereal fill_910[4];
- doublereal e_911[4];
- doublereal fill_912[4];
- doublereal e_913[4];
- doublereal fill_914[4];
- doublereal e_915[4];
- doublereal fill_916[4];
- doublereal e_917[4];
- doublereal fill_918[4];
- doublereal e_919[4];
- doublereal fill_920[4];
- doublereal e_921[4];
- doublereal fill_922[4];
- doublereal e_923[4];
- doublereal fill_924[4];
- doublereal e_925[4];
- doublereal fill_926[4];
- doublereal e_927[4];
- doublereal fill_928[4];
- doublereal e_929[4];
- doublereal fill_930[4];
- doublereal e_931[4];
- doublereal fill_932[4];
- doublereal e_933[4];
- doublereal fill_934[4];
- doublereal e_935[4];
- doublereal fill_936[4];
- doublereal e_937[4];
- doublereal fill_938[4];
- doublereal e_939[4];
- doublereal fill_940[4];
- doublereal e_941[4];
- doublereal fill_942[4];
- doublereal e_943[4];
- doublereal fill_944[4];
- doublereal e_945[4];
- doublereal fill_946[4];
- doublereal e_947[4];
- doublereal fill_948[4];
- doublereal e_949[4];
- doublereal fill_950[4];
- doublereal e_951[4];
- doublereal fill_952[4];
- doublereal e_953[4];
- doublereal fill_954[4];
- doublereal e_955[4];
- doublereal fill_956[4];
- doublereal e_957[4];
- doublereal fill_958[4];
- doublereal e_959[4];
- doublereal fill_960[4];
- doublereal e_961[4];
- doublereal fill_962[4];
- doublereal e_963[4];
- doublereal fill_964[4];
- doublereal e_965[4];
- doublereal fill_966[4];
- doublereal e_967[4];
- doublereal fill_968[4];
- doublereal e_969[4];
- doublereal fill_970[4];
- doublereal e_971[4];
- doublereal fill_972[4];
- doublereal e_973[4];
- doublereal fill_974[4];
- doublereal e_975[4];
- doublereal fill_976[4];
- doublereal e_977[4];
- doublereal fill_978[4];
- doublereal e_979[4];
- doublereal fill_980[4];
- doublereal e_981[4];
- doublereal fill_982[4];
- doublereal e_983[4];
- doublereal fill_984[4];
- doublereal e_985[4];
- doublereal fill_986[4];
- doublereal e_987[4];
- doublereal fill_988[4];
- doublereal e_989[4];
- doublereal fill_990[4];
- doublereal e_991[4];
- doublereal fill_992[4];
- doublereal e_993[4];
- doublereal fill_994[4];
- doublereal e_995[4];
- doublereal fill_996[4];
- doublereal e_997[4];
- doublereal fill_998[4];
- doublereal e_999[4];
- doublereal fill_1000[4];
- doublereal e_1001[4];
- doublereal fill_1002[4];
- doublereal e_1003[4];
- doublereal fill_1004[4];
- doublereal e_1005[4];
- doublereal fill_1006[4];
- doublereal e_1007[4];
- doublereal fill_1008[4];
- doublereal e_1009[4];
- doublereal fill_1010[4];
- doublereal e_1011[4];
- doublereal fill_1012[4];
- doublereal e_1013[4];
- doublereal fill_1014[4];
- doublereal e_1015[4];
- doublereal fill_1016[4];
- doublereal e_1017[4];
- doublereal fill_1018[4];
- doublereal e_1019[4];
- doublereal fill_1020[4];
- doublereal e_1021[4];
- doublereal fill_1022[4];
- doublereal e_1023[4];
- doublereal fill_1024[4];
- doublereal e_1025[4];
- doublereal fill_1026[4];
- doublereal e_1027[4];
- doublereal fill_1028[4];
- doublereal e_1029[4];
- doublereal fill_1030[4];
- doublereal e_1031[4];
- doublereal fill_1032[4];
- doublereal e_1033[4];
- doublereal fill_1034[4];
- doublereal e_1035[4];
- doublereal fill_1036[4];
- doublereal e_1037[4];
- doublereal fill_1038[4];
- doublereal e_1039[4];
- doublereal fill_1040[4];
- doublereal e_1041[4];
- doublereal fill_1042[4];
- doublereal e_1043[4];
- doublereal fill_1044[4];
- doublereal e_1045[4];
- doublereal fill_1046[4];
- doublereal e_1047[4];
- doublereal fill_1048[4];
- doublereal e_1049[4];
- doublereal fill_1050[4];
- doublereal e_1051[4];
- doublereal fill_1052[4];
- doublereal e_1053[4];
- doublereal fill_1054[4];
- doublereal e_1055[4];
- doublereal fill_1056[4];
- doublereal e_1057[4];
- doublereal fill_1058[4];
- doublereal e_1059[4];
- doublereal fill_1060[4];
- doublereal e_1061[4];
- doublereal fill_1062[4];
- doublereal e_1063[4];
- doublereal fill_1064[4];
- doublereal e_1065[4];
- doublereal fill_1066[4];
- doublereal e_1067[4];
- doublereal fill_1068[4];
- doublereal e_1069[4];
- doublereal fill_1070[4];
- doublereal e_1071[4];
- doublereal fill_1072[4];
- doublereal e_1073[4];
- doublereal fill_1074[4];
- doublereal e_1075[4];
- doublereal fill_1076[4];
- doublereal e_1077[4];
- doublereal fill_1078[4];
- doublereal e_1079[4];
- doublereal fill_1080[4];
- doublereal e_1081[4];
- doublereal fill_1082[4];
- doublereal e_1083[4];
- doublereal fill_1084[4];
- doublereal e_1085[4];
- doublereal fill_1086[4];
- doublereal e_1087[4];
- doublereal fill_1088[4];
- doublereal e_1089[4];
- doublereal fill_1090[4];
- doublereal e_1091[4];
- doublereal fill_1092[4];
- doublereal e_1093[4];
- doublereal fill_1094[4];
- doublereal e_1095[4];
- doublereal fill_1096[4];
- doublereal e_1097[4];
- doublereal fill_1098[4];
- doublereal e_1099[4];
- doublereal fill_1100[4];
- doublereal e_1101[4];
- doublereal fill_1102[4];
- doublereal e_1103[4];
- doublereal fill_1104[4];
- doublereal e_1105[4];
- doublereal fill_1106[4];
- doublereal e_1107[4];
- doublereal fill_1108[4];
- doublereal e_1109[4];
- doublereal fill_1110[4];
- doublereal e_1111[4];
- doublereal fill_1112[4];
- doublereal e_1113[4];
- doublereal fill_1114[4];
- doublereal e_1115[4];
- doublereal fill_1116[4];
- doublereal e_1117[4];
- doublereal fill_1118[4];
- doublereal e_1119[4];
- doublereal fill_1120[4];
- doublereal e_1121[4];
- doublereal fill_1122[4];
- doublereal e_1123[4];
- doublereal fill_1124[4];
- doublereal e_1125[4];
- doublereal fill_1126[4];
- doublereal e_1127[4];
- doublereal fill_1128[4];
- doublereal e_1129[4];
- doublereal fill_1130[4];
- doublereal e_1131[4];
- doublereal fill_1132[4];
- doublereal e_1133[4];
- doublereal fill_1134[4];
- doublereal e_1135[4];
- doublereal fill_1136[4];
- doublereal e_1137[4];
- doublereal fill_1138[4];
- doublereal e_1139[4];
- doublereal fill_1140[4];
- doublereal e_1141[4];
- doublereal fill_1142[4];
- doublereal e_1143[4];
- doublereal fill_1144[4];
- doublereal e_1145[4];
- doublereal fill_1146[4];
- doublereal e_1147[4];
- doublereal fill_1148[4];
- doublereal e_1149[4];
- doublereal fill_1150[4];
- doublereal e_1151[4];
- doublereal fill_1152[4];
- doublereal e_1153[4];
- doublereal fill_1154[4];
- doublereal e_1155[4];
- doublereal fill_1156[4];
- doublereal e_1157[4];
- doublereal fill_1158[4];
- doublereal e_1159[4];
- doublereal fill_1160[4];
- doublereal e_1161[4];
- doublereal fill_1162[4];
- doublereal e_1163[4];
- doublereal fill_1164[4];
- doublereal e_1165[4];
- doublereal fill_1166[4];
- doublereal e_1167[4];
- doublereal fill_1168[4];
- doublereal e_1169[4];
- doublereal fill_1170[4];
- doublereal e_1171[4];
- doublereal fill_1172[4];
- doublereal e_1173[4];
- doublereal fill_1174[4];
- doublereal e_1175[4];
- doublereal fill_1176[4];
- doublereal e_1177[4];
- doublereal fill_1178[4];
- doublereal e_1179[4];
- doublereal fill_1180[4];
- doublereal e_1181[4];
- doublereal fill_1182[4];
- doublereal e_1183[4];
- doublereal fill_1184[4];
- doublereal e_1185[4];
- doublereal fill_1186[4];
- doublereal e_1187[4];
- doublereal fill_1188[4];
- doublereal e_1189[4];
- doublereal fill_1190[4];
- doublereal e_1191[4];
- doublereal fill_1192[4];
- doublereal e_1193[4];
- doublereal fill_1194[4];
- doublereal e_1195[4];
- doublereal fill_1196[4];
- doublereal e_1197[4];
- doublereal fill_1198[4];
- doublereal e_1199[4];
- doublereal fill_1200[4];
- doublereal e_1201[4];
- doublereal fill_1202[4];
- doublereal e_1203[4];
- doublereal fill_1204[4];
- doublereal e_1205[4];
- doublereal fill_1206[4];
- doublereal e_1207[4];
- doublereal fill_1208[4];
- doublereal e_1209[4];
- doublereal fill_1210[4];
- doublereal e_1211[4];
- doublereal fill_1212[4];
- doublereal e_1213[4];
- doublereal fill_1214[4];
- doublereal e_1215[4];
- doublereal fill_1216[4];
- doublereal e_1217[4];
- doublereal fill_1218[4];
- doublereal e_1219[4];
- doublereal fill_1220[4];
- doublereal e_1221[4];
- doublereal fill_1222[4];
- doublereal e_1223[4];
- doublereal fill_1224[4];
- doublereal e_1225[4];
- doublereal fill_1226[4];
- doublereal e_1227[4];
- doublereal fill_1228[4];
- doublereal e_1229[4];
- doublereal fill_1230[4];
- doublereal e_1231[4];
- doublereal fill_1232[4];
- doublereal e_1233[4];
- doublereal fill_1234[4];
- doublereal e_1235[4];
- doublereal fill_1236[4];
- doublereal e_1237[4];
- doublereal fill_1238[4];
- doublereal e_1239[4];
- doublereal fill_1240[4];
- doublereal e_1241[4];
- doublereal fill_1242[4];
- doublereal e_1243[4];
- doublereal fill_1244[4];
- doublereal e_1245[4];
- doublereal fill_1246[4];
- doublereal e_1247[4];
- doublereal fill_1248[4];
- doublereal e_1249[4];
- doublereal fill_1250[4];
- doublereal e_1251[4];
- doublereal fill_1252[4];
- doublereal e_1253[4];
- doublereal fill_1254[4];
- doublereal e_1255[4];
- doublereal fill_1256[4];
- doublereal e_1257[4];
- doublereal fill_1258[4];
- doublereal e_1259[4];
- doublereal fill_1260[4];
- doublereal e_1261[4];
- doublereal fill_1262[4];
- doublereal e_1263[4];
- doublereal fill_1264[4];
- doublereal e_1265[4];
- doublereal fill_1266[4];
- doublereal e_1267[4];
- doublereal fill_1268[4];
- doublereal e_1269[4];
- doublereal fill_1270[4];
- doublereal e_1271[4];
- doublereal fill_1272[4];
- doublereal e_1273[4];
- doublereal fill_1274[4];
- doublereal e_1275[4];
- doublereal fill_1276[4];
- doublereal e_1277[4];
- doublereal fill_1278[4];
- doublereal e_1279[4];
- doublereal fill_1280[4];
- doublereal e_1281[4];
- doublereal fill_1282[4];
- doublereal e_1283[4];
- doublereal fill_1284[4];
- doublereal e_1285[4];
- doublereal fill_1286[4];
- doublereal e_1287[4];
- doublereal fill_1288[4];
- doublereal e_1289[4];
- doublereal fill_1290[4];
- doublereal e_1291[4];
- doublereal fill_1292[4];
- doublereal e_1293[4];
- doublereal fill_1294[4];
- doublereal e_1295[4];
- doublereal fill_1296[4];
- doublereal e_1297[4];
- doublereal fill_1298[4];
- doublereal e_1299[4];
- doublereal fill_1300[4];
- doublereal e_1301[4];
- doublereal fill_1302[4];
- doublereal e_1303[4];
- doublereal fill_1304[4];
- doublereal e_1305[4];
- doublereal fill_1306[4];
- doublereal e_1307[4];
- doublereal fill_1308[4];
- doublereal e_1309[4];
- doublereal fill_1310[4];
- doublereal e_1311[4];
- doublereal fill_1312[4];
- doublereal e_1313[4];
- doublereal fill_1314[4];
- doublereal e_1315[4];
- doublereal fill_1316[4];
- doublereal e_1317[4];
- doublereal fill_1318[4];
- doublereal e_1319[4];
- doublereal fill_1320[4];
- doublereal e_1321[4];
- doublereal fill_1322[4];
- doublereal e_1323[4];
- doublereal fill_1324[4];
- doublereal e_1325[4];
- doublereal fill_1326[4];
- doublereal e_1327[4];
- doublereal fill_1328[4];
- doublereal e_1329[4];
- doublereal fill_1330[4];
- doublereal e_1331[4];
- doublereal fill_1332[4];
- doublereal e_1333[4];
- doublereal fill_1334[4];
- doublereal e_1335[4];
- doublereal fill_1336[4];
- doublereal e_1337[4];
- doublereal fill_1338[4];
- doublereal e_1339[4];
- doublereal fill_1340[4];
- doublereal e_1341[4];
- doublereal fill_1342[4];
- doublereal e_1343[4];
- doublereal fill_1344[4];
- doublereal e_1345[4];
- doublereal fill_1346[4];
- doublereal e_1347[4];
- doublereal fill_1348[4];
- doublereal e_1349[4];
- doublereal fill_1350[4];
- doublereal e_1351[4];
- doublereal fill_1352[4];
- doublereal e_1353[4];
- doublereal fill_1354[4];
- doublereal e_1355[4];
- doublereal fill_1356[4];
- doublereal e_1357[4];
- doublereal fill_1358[4];
- doublereal e_1359[4];
- doublereal fill_1360[4];
- doublereal e_1361[4];
- doublereal fill_1362[4];
- doublereal e_1363[4];
- doublereal fill_1364[4];
- doublereal e_1365[4];
- doublereal fill_1366[4];
- doublereal e_1367[4];
- doublereal fill_1368[4];
- doublereal e_1369[4];
- doublereal fill_1370[4];
- doublereal e_1371[4];
- doublereal fill_1372[4];
- doublereal e_1373[4];
- doublereal fill_1374[4];
- doublereal e_1375[4];
- doublereal fill_1376[4];
- doublereal e_1377[4];
- doublereal fill_1378[4];
- doublereal e_1379[4];
- doublereal fill_1380[4];
- doublereal e_1381[4];
- doublereal fill_1382[4];
- doublereal e_1383[4];
- doublereal fill_1384[4];
- doublereal e_1385[4];
- doublereal fill_1386[4];
- doublereal e_1387[4];
- doublereal fill_1388[4];
- doublereal e_1389[4];
- doublereal fill_1390[4];
- doublereal e_1391[4];
- doublereal fill_1392[4];
- doublereal e_1393[4];
- doublereal fill_1394[4];
- doublereal e_1395[4];
- doublereal fill_1396[4];
- doublereal e_1397[4];
- doublereal fill_1398[4];
- doublereal e_1399[4];
- doublereal fill_1400[4];
- doublereal e_1401[4];
- doublereal fill_1402[4];
- doublereal e_1403[4];
- doublereal fill_1404[4];
- doublereal e_1405[4];
- doublereal fill_1406[4];
- doublereal e_1407[4];
- doublereal fill_1408[4];
- doublereal e_1409[4];
- doublereal fill_1410[4];
- doublereal e_1411[4];
- doublereal fill_1412[4];
- doublereal e_1413[4];
- doublereal fill_1414[4];
- doublereal e_1415[4];
- doublereal fill_1416[4];
- doublereal e_1417[4];
- doublereal fill_1418[4];
- doublereal e_1419[4];
- doublereal fill_1420[4];
- doublereal e_1421[4];
- doublereal fill_1422[4];
- doublereal e_1423[4];
- doublereal fill_1424[4];
- doublereal e_1425[4];
- doublereal fill_1426[4];
- doublereal e_1427[4];
- doublereal fill_1428[4];
- doublereal e_1429[4];
- doublereal fill_1430[4];
- doublereal e_1431[4];
- doublereal fill_1432[4];
- doublereal e_1433[4];
- doublereal fill_1434[4];
- doublereal e_1435[4];
- doublereal fill_1436[4];
- doublereal e_1437[4];
- doublereal fill_1438[4];
- doublereal e_1439[4];
- doublereal fill_1440[4];
- doublereal e_1441[4];
- doublereal fill_1442[4];
- doublereal e_1443[4];
- doublereal fill_1444[4];
- doublereal e_1445[4];
- doublereal fill_1446[4];
- doublereal e_1447[4];
- doublereal fill_1448[4];
- doublereal e_1449[4];
- doublereal fill_1450[4];
- doublereal e_1451[4];
- doublereal fill_1452[4];
- doublereal e_1453[4];
- doublereal fill_1454[4];
- doublereal e_1455[4];
- doublereal fill_1456[4];
- doublereal e_1457[4];
- doublereal fill_1458[4];
- doublereal e_1459[4];
- doublereal fill_1460[4];
- doublereal e_1461[4];
- doublereal fill_1462[4];
- doublereal e_1463[4];
- doublereal fill_1464[4];
- doublereal e_1465[4];
- doublereal fill_1466[4];
- doublereal e_1467[4];
- doublereal fill_1468[4];
- doublereal e_1469[4];
- doublereal fill_1470[4];
- doublereal e_1471[4];
- doublereal fill_1472[4];
- doublereal e_1473[4];
- doublereal fill_1474[4];
- doublereal e_1475[4];
- doublereal fill_1476[4];
- doublereal e_1477[4];
- doublereal fill_1478[4];
- doublereal e_1479[4];
- doublereal fill_1480[4];
- doublereal e_1481[4];
- doublereal fill_1482[4];
- doublereal e_1483[4];
- doublereal fill_1484[4];
- doublereal e_1485[4];
- doublereal fill_1486[4];
- doublereal e_1487[4];
- doublereal fill_1488[4];
- doublereal e_1489[4];
- doublereal fill_1490[4];
- doublereal e_1491[4];
- doublereal fill_1492[4];
- doublereal e_1493[4];
- doublereal fill_1494[4];
- doublereal e_1495[4];
- doublereal fill_1496[4];
- doublereal e_1497[4];
- doublereal fill_1498[4];
- doublereal e_1499[4];
- doublereal fill_1500[4];
- doublereal e_1501[4];
- doublereal fill_1502[4];
- doublereal e_1503[4];
- doublereal fill_1504[4];
- doublereal e_1505[4];
- doublereal fill_1506[4];
- doublereal e_1507[4];
- doublereal fill_1508[4];
- doublereal e_1509[4];
- doublereal fill_1510[4];
- doublereal e_1511[4];
- doublereal fill_1512[4];
- doublereal e_1513[4];
- doublereal fill_1514[4];
- doublereal e_1515[4];
- doublereal fill_1516[4];
- doublereal e_1517[4];
- doublereal fill_1518[4];
- doublereal e_1519[4];
- doublereal fill_1520[4];
- doublereal e_1521[4];
- doublereal fill_1522[4];
- doublereal e_1523[4];
- doublereal fill_1524[4];
- doublereal e_1525[4];
- doublereal fill_1526[4];
- doublereal e_1527[4];
- doublereal fill_1528[4];
- doublereal e_1529[4];
- doublereal fill_1530[4];
- doublereal e_1531[4];
- doublereal fill_1532[4];
- doublereal e_1533[4];
- doublereal fill_1534[4];
- doublereal e_1535[4];
- doublereal fill_1536[4];
- doublereal e_1537[4];
- doublereal fill_1538[4];
- doublereal e_1539[4];
- doublereal fill_1540[4];
- doublereal e_1541[4];
- doublereal fill_1542[4];
- doublereal e_1543[4];
- doublereal fill_1544[4];
- doublereal e_1545[4];
- doublereal fill_1546[4];
- doublereal e_1547[4];
- doublereal fill_1548[4];
- doublereal e_1549[4];
- doublereal fill_1550[4];
- doublereal e_1551[4];
- doublereal fill_1552[4];
- doublereal e_1553[4];
- doublereal fill_1554[4];
- doublereal e_1555[4];
- doublereal fill_1556[4];
- doublereal e_1557[4];
- doublereal fill_1558[4];
- doublereal e_1559[4];
- doublereal fill_1560[4];
- doublereal e_1561[4];
- doublereal fill_1562[4];
- doublereal e_1563[4];
- doublereal fill_1564[4];
- doublereal e_1565[4];
- doublereal fill_1566[4];
- doublereal e_1567[4];
- doublereal fill_1568[4];
- doublereal e_1569[4];
- doublereal fill_1570[4];
- doublereal e_1571[4];
- doublereal fill_1572[4];
- doublereal e_1573[4];
- doublereal fill_1574[4];
- doublereal e_1575[4];
- doublereal fill_1576[4];
- doublereal e_1577[4];
- doublereal fill_1578[4];
- doublereal e_1579[4];
- doublereal fill_1580[4];
- doublereal e_1581[4];
- doublereal fill_1582[4];
- doublereal e_1583[4];
- doublereal fill_1584[4];
- doublereal e_1585[4];
- doublereal fill_1586[4];
- doublereal e_1587[4];
- doublereal fill_1588[4];
- doublereal e_1589[4];
- doublereal fill_1590[4];
- doublereal e_1591[4];
- doublereal fill_1592[4];
- doublereal e_1593[4];
- doublereal fill_1594[4];
- doublereal e_1595[4];
- doublereal fill_1596[4];
- doublereal e_1597[4];
- doublereal fill_1598[4];
- doublereal e_1599[4];
- doublereal fill_1600[4];
- doublereal e_1601[4];
- doublereal fill_1602[4];
- doublereal e_1603[4];
- doublereal fill_1604[4];
- doublereal e_1605[4];
- doublereal fill_1606[4];
- doublereal e_1607[4];
- doublereal fill_1608[4];
- doublereal e_1609[4];
- doublereal fill_1610[4];
- doublereal e_1611[4];
- doublereal fill_1612[4];
- doublereal e_1613[4];
- doublereal fill_1614[4];
- doublereal e_1615[4];
- doublereal fill_1616[4];
- doublereal e_1617[4];
- doublereal fill_1618[4];
- doublereal e_1619[4];
- doublereal fill_1620[4];
- doublereal e_1621[4];
- doublereal fill_1622[4];
- doublereal e_1623[4];
- doublereal fill_1624[4];
- doublereal e_1625[4];
- doublereal fill_1626[4];
- doublereal e_1627[4];
- doublereal fill_1628[4];
- doublereal e_1629[4];
- doublereal fill_1630[4];
- doublereal e_1631[4];
- doublereal fill_1632[4];
- doublereal e_1633[4];
- doublereal fill_1634[4];
- doublereal e_1635[4];
- doublereal fill_1636[4];
- doublereal e_1637[4];
- doublereal fill_1638[4];
- doublereal e_1639[4];
- doublereal fill_1640[4];
- doublereal e_1641[4];
- doublereal fill_1642[4];
- doublereal e_1643[4];
- doublereal fill_1644[4];
- doublereal e_1645[4];
- doublereal fill_1646[4];
- doublereal e_1647[4];
- doublereal fill_1648[4];
- doublereal e_1649[4];
- doublereal fill_1650[4];
- doublereal e_1651[4];
- doublereal fill_1652[4];
- doublereal e_1653[4];
- doublereal fill_1654[4];
- doublereal e_1655[4];
- doublereal fill_1656[4];
- doublereal e_1657[4];
- doublereal fill_1658[4];
- doublereal e_1659[4];
- doublereal fill_1660[4];
- doublereal e_1661[4];
- doublereal fill_1662[4];
- doublereal e_1663[4];
- doublereal fill_1664[4];
- doublereal e_1665[4];
- doublereal fill_1666[4];
- doublereal e_1667[4];
- doublereal fill_1668[4];
- doublereal e_1669[4];
- doublereal fill_1670[4];
- doublereal e_1671[4];
- doublereal fill_1672[4];
- doublereal e_1673[4];
- doublereal fill_1674[4];
- doublereal e_1675[4];
- doublereal fill_1676[4];
- doublereal e_1677[4];
- doublereal fill_1678[4];
- doublereal e_1679[4];
- doublereal fill_1680[4];
- doublereal e_1681[4];
- doublereal fill_1682[4];
- doublereal e_1683[4];
- doublereal fill_1684[4];
- doublereal e_1685[4];
- doublereal fill_1686[4];
- doublereal e_1687[4];
- doublereal fill_1688[4];
- doublereal e_1689[4];
- doublereal fill_1690[4];
- doublereal e_1691[4];
- doublereal fill_1692[4];
- doublereal e_1693[4];
- doublereal fill_1694[4];
- doublereal e_1695[4];
- doublereal fill_1696[4];
- doublereal e_1697[4];
- doublereal fill_1698[4];
- doublereal e_1699[4];
- doublereal fill_1700[4];
- doublereal e_1701[4];
- doublereal fill_1702[4];
- doublereal e_1703[4];
- doublereal fill_1704[4];
- doublereal e_1705[4];
- doublereal fill_1706[4];
- doublereal e_1707[4];
- doublereal fill_1708[4];
- doublereal e_1709[4];
- doublereal fill_1710[4];
- doublereal e_1711[4];
- doublereal fill_1712[4];
- doublereal e_1713[4];
- doublereal fill_1714[4];
- doublereal e_1715[4];
- doublereal fill_1716[4];
- doublereal e_1717[4];
- doublereal fill_1718[4];
- doublereal e_1719[4];
- doublereal fill_1720[4];
- doublereal e_1721[4];
- doublereal fill_1722[4];
- doublereal e_1723[4];
- doublereal fill_1724[4];
- doublereal e_1725[4];
- doublereal fill_1726[4];
- doublereal e_1727[4];
- doublereal fill_1728[4];
- doublereal e_1729[4];
- doublereal fill_1730[4];
- doublereal e_1731[4];
- doublereal fill_1732[4];
- doublereal e_1733[4];
- doublereal fill_1734[4];
- doublereal e_1735[4];
- doublereal fill_1736[4];
- doublereal e_1737[4];
- doublereal fill_1738[4];
- doublereal e_1739[4];
- doublereal fill_1740[4];
- doublereal e_1741[4];
- doublereal fill_1742[4];
- doublereal e_1743[4];
- doublereal fill_1744[4];
- doublereal e_1745[4];
- doublereal fill_1746[4];
- doublereal e_1747[4];
- doublereal fill_1748[4];
- doublereal e_1749[4];
- doublereal fill_1750[4];
- doublereal e_1751[4];
- doublereal fill_1752[4];
- doublereal e_1753[4];
- doublereal fill_1754[4];
- doublereal e_1755[4];
- doublereal fill_1756[4];
- doublereal e_1757[4];
- doublereal fill_1758[4];
- doublereal e_1759[4];
- doublereal fill_1760[4];
- doublereal e_1761[4];
- doublereal fill_1762[4];
- doublereal e_1763[4];
- doublereal fill_1764[4];
- doublereal e_1765[4];
- doublereal fill_1766[4];
- doublereal e_1767[4];
- doublereal fill_1768[4];
- doublereal e_1769[4];
- doublereal fill_1770[4];
- doublereal e_1771[4];
- doublereal fill_1772[4];
- doublereal e_1773[4];
- doublereal fill_1774[4];
- doublereal e_1775[4];
- doublereal fill_1776[4];
- doublereal e_1777[4];
- doublereal fill_1778[4];
- doublereal e_1779[4];
- doublereal fill_1780[4];
- doublereal e_1781[4];
- doublereal fill_1782[4];
- doublereal e_1783[4];
- doublereal fill_1784[4];
- doublereal e_1785[4];
- doublereal fill_1786[4];
- doublereal e_1787[4];
- doublereal fill_1788[4];
- doublereal e_1789[4];
- doublereal fill_1790[4];
- doublereal e_1791[4];
- doublereal fill_1792[4];
- doublereal e_1793[4];
- doublereal fill_1794[4];
- doublereal e_1795[4];
- doublereal fill_1796[4];
- doublereal e_1797[4];
- doublereal fill_1798[4];
- doublereal e_1799[4];
- doublereal fill_1800[4];
- doublereal e_1801[4];
- doublereal fill_1802[4];
- doublereal e_1803[4];
- doublereal fill_1804[4];
- doublereal e_1805[4];
- doublereal fill_1806[4];
- doublereal e_1807[4];
- doublereal fill_1808[4];
- doublereal e_1809[4];
- doublereal fill_1810[4];
- doublereal e_1811[4];
- doublereal fill_1812[4];
- doublereal e_1813[4];
- doublereal fill_1814[4];
- doublereal e_1815[4];
- doublereal fill_1816[4];
- doublereal e_1817[4];
- doublereal fill_1818[4];
- doublereal e_1819[4];
- doublereal fill_1820[4];
- doublereal e_1821[4];
- doublereal fill_1822[4];
- doublereal e_1823[4];
- doublereal fill_1824[4];
- doublereal e_1825[4];
- doublereal fill_1826[4];
- doublereal e_1827[4];
- doublereal fill_1828[4];
- doublereal e_1829[4];
- doublereal fill_1830[4];
- doublereal e_1831[4];
- doublereal fill_1832[4];
- doublereal e_1833[4];
- doublereal fill_1834[4];
- doublereal e_1835[4];
- doublereal fill_1836[4];
- doublereal e_1837[4];
- doublereal fill_1838[4];
- doublereal e_1839[4];
- doublereal fill_1840[4];
- doublereal e_1841[4];
- doublereal fill_1842[4];
- doublereal e_1843[4];
- doublereal fill_1844[4];
- doublereal e_1845[4];
- doublereal fill_1846[4];
- doublereal e_1847[4];
- doublereal fill_1848[4];
- doublereal e_1849[4];
- doublereal fill_1850[4];
- doublereal e_1851[4];
- doublereal fill_1852[4];
- doublereal e_1853[4];
- doublereal fill_1854[4];
- doublereal e_1855[4];
- doublereal fill_1856[4];
- doublereal e_1857[4];
- doublereal fill_1858[4];
- doublereal e_1859[4];
- doublereal fill_1860[4];
- doublereal e_1861[4];
- doublereal fill_1862[4];
- doublereal e_1863[4];
- doublereal fill_1864[4];
- doublereal e_1865[4];
- doublereal fill_1866[4];
- doublereal e_1867[4];
- doublereal fill_1868[4];
- doublereal e_1869[4];
- doublereal fill_1870[4];
- doublereal e_1871[4];
- doublereal fill_1872[4];
- doublereal e_1873[4];
- doublereal fill_1874[4];
- doublereal e_1875[4];
- doublereal fill_1876[4];
- doublereal e_1877[4];
- doublereal fill_1878[4];
- doublereal e_1879[4];
- doublereal fill_1880[4];
- doublereal e_1881[4];
- doublereal fill_1882[4];
- doublereal e_1883[4];
- doublereal fill_1884[4];
- doublereal e_1885[4];
- doublereal fill_1886[4];
- doublereal e_1887[4];
- doublereal fill_1888[4];
- doublereal e_1889[4];
- doublereal fill_1890[4];
- doublereal e_1891[4];
- doublereal fill_1892[4];
- doublereal e_1893[4];
- doublereal fill_1894[4];
- doublereal e_1895[4];
- doublereal fill_1896[4];
- doublereal e_1897[4];
- doublereal fill_1898[4];
- doublereal e_1899[4];
- doublereal fill_1900[4];
- doublereal e_1901[4];
- doublereal fill_1902[4];
- doublereal e_1903[4];
- doublereal fill_1904[4];
- doublereal e_1905[4];
- doublereal fill_1906[4];
- doublereal e_1907[4];
- doublereal fill_1908[4];
- doublereal e_1909[4];
- doublereal fill_1910[4];
- doublereal e_1911[4];
- doublereal fill_1912[4];
- doublereal e_1913[4];
- doublereal fill_1914[4];
- doublereal e_1915[4];
- doublereal fill_1916[4];
- doublereal e_1917[4];
- doublereal fill_1918[4];
- doublereal e_1919[4];
- doublereal fill_1920[4];
- doublereal e_1921[4];
- doublereal fill_1922[4];
- doublereal e_1923[4];
- doublereal fill_1924[4];
- doublereal e_1925[4];
- doublereal fill_1926[4];
- doublereal e_1927[4];
- doublereal fill_1928[4];
- doublereal e_1929[4];
- doublereal fill_1930[4];
- doublereal e_1931[4];
- doublereal fill_1932[4];
- doublereal e_1933[4];
- doublereal fill_1934[4];
- doublereal e_1935[4];
- doublereal fill_1936[4];
- doublereal e_1937[4];
- doublereal fill_1938[4];
- doublereal e_1939[4];
- doublereal fill_1940[4];
- doublereal e_1941[4];
- doublereal fill_1942[4];
- doublereal e_1943[4];
- doublereal fill_1944[4];
- doublereal e_1945[4];
- doublereal fill_1946[4];
- doublereal e_1947[4];
- doublereal fill_1948[4];
- doublereal e_1949[4];
- doublereal fill_1950[4];
- doublereal e_1951[4];
- doublereal fill_1952[4];
- doublereal e_1953[4];
- doublereal fill_1954[4];
- doublereal e_1955[4];
- doublereal fill_1956[4];
- doublereal e_1957[4];
- doublereal fill_1958[4];
- doublereal e_1959[4];
- doublereal fill_1960[4];
- doublereal e_1961[4];
- doublereal fill_1962[4];
- doublereal e_1963[4];
- doublereal fill_1964[4];
- doublereal e_1965[4];
- doublereal fill_1966[4];
- doublereal e_1967[4];
- doublereal fill_1968[4];
- doublereal e_1969[4];
- doublereal fill_1970[4];
- doublereal e_1971[4];
- doublereal fill_1972[4];
- doublereal e_1973[4];
- doublereal fill_1974[4];
- doublereal e_1975[4];
- doublereal fill_1976[4];
- doublereal e_1977[4];
- doublereal fill_1978[4];
- doublereal e_1979[4];
- doublereal fill_1980[4];
- doublereal e_1981[4];
- doublereal fill_1982[4];
- doublereal e_1983[4];
- doublereal fill_1984[4];
- doublereal e_1985[4];
- doublereal fill_1986[4];
- doublereal e_1987[4];
- doublereal fill_1988[4];
- doublereal e_1989[4];
- doublereal fill_1990[4];
- doublereal e_1991[4];
- doublereal fill_1992[4];
- doublereal e_1993[4];
- doublereal fill_1994[4];
- doublereal e_1995[4];
- doublereal fill_1996[4];
- doublereal e_1997[4];
- doublereal fill_1998[4];
- doublereal e_1999[4];
- doublereal fill_2000[4];
- doublereal e_2001[4];
- doublereal fill_2002[4];
- doublereal e_2003[4];
- doublereal fill_2004[4];
- doublereal e_2005[4];
- doublereal fill_2006[4];
- doublereal e_2007[4];
- doublereal fill_2008[4];
- doublereal e_2009[4];
- doublereal fill_2010[4];
- doublereal e_2011[4];
- doublereal fill_2012[4];
- doublereal e_2013[4];
- doublereal fill_2014[4];
- doublereal e_2015[4];
- doublereal fill_2016[4];
- doublereal e_2017[4];
- doublereal fill_2018[4];
- doublereal e_2019[4];
- doublereal fill_2020[4];
- doublereal e_2021[4];
- doublereal fill_2022[4];
- doublereal e_2023[4];
- doublereal fill_2024[4];
- doublereal e_2025[4];
- doublereal fill_2026[4];
- doublereal e_2027[4];
- doublereal fill_2028[4];
- doublereal e_2029[4];
- doublereal fill_2030[4];
- doublereal e_2031[4];
- doublereal fill_2032[4];
- doublereal e_2033[4];
- doublereal fill_2034[4];
- doublereal e_2035[4];
- doublereal fill_2036[4];
- doublereal e_2037[4];
- doublereal fill_2038[4];
- doublereal e_2039[4];
- doublereal fill_2040[4];
- doublereal e_2041[4];
- doublereal fill_2042[4];
- doublereal e_2043[4];
- doublereal fill_2044[4];
- doublereal e_2045[4];
- doublereal fill_2046[4];
- doublereal e_2047[4];
- doublereal fill_2048[4];
- doublereal e_2049[4];
- doublereal fill_2050[4];
- doublereal e_2051[4];
- doublereal fill_2052[4];
- doublereal e_2053[4];
- doublereal fill_2054[4];
- doublereal e_2055[4];
- doublereal fill_2056[4];
- doublereal e_2057[4];
- doublereal fill_2058[4];
- doublereal e_2059[4];
- doublereal fill_2060[4];
- doublereal e_2061[4];
- doublereal fill_2062[4];
- doublereal e_2063[4];
- doublereal fill_2064[4];
- doublereal e_2065[4];
- doublereal fill_2066[4];
- doublereal e_2067[4];
- doublereal fill_2068[4];
- doublereal e_2069[4];
- doublereal fill_2070[4];
- doublereal e_2071[4];
- doublereal fill_2072[4];
- doublereal e_2073[4];
- doublereal fill_2074[4];
- doublereal e_2075[4];
- doublereal fill_2076[4];
- doublereal e_2077[4];
- doublereal fill_2078[4];
- doublereal e_2079[4];
- doublereal fill_2080[4];
- doublereal e_2081[4];
- doublereal fill_2082[4];
- doublereal e_2083[4];
- doublereal fill_2084[4];
- doublereal e_2085[4];
- doublereal fill_2086[4];
- doublereal e_2087[4];
- doublereal fill_2088[4];
- doublereal e_2089[4];
- doublereal fill_2090[4];
- doublereal e_2091[4];
- doublereal fill_2092[4];
- doublereal e_2093[4];
- doublereal fill_2094[4];
- doublereal e_2095[4];
- doublereal fill_2096[4];
- doublereal e_2097[4];
- doublereal fill_2098[4];
- doublereal e_2099[4];
- doublereal fill_2100[4];
- doublereal e_2101[4];
- doublereal fill_2102[4];
- doublereal e_2103[4];
- doublereal fill_2104[4];
- doublereal e_2105[4];
- doublereal fill_2106[4];
- doublereal e_2107[4];
- doublereal fill_2108[4];
- doublereal e_2109[4];
- doublereal fill_2110[4];
- doublereal e_2111[4];
- doublereal fill_2112[4];
- doublereal e_2113[4];
- doublereal fill_2114[4];
- doublereal e_2115[4];
- doublereal fill_2116[4];
- doublereal e_2117[4];
- doublereal fill_2118[4];
- doublereal e_2119[4];
- doublereal fill_2120[4];
- doublereal e_2121[4];
- doublereal fill_2122[4];
- doublereal e_2123[4];
- doublereal fill_2124[4];
- doublereal e_2125[4];
- doublereal fill_2126[4];
- doublereal e_2127[4];
- doublereal fill_2128[4];
- doublereal e_2129[4];
- doublereal fill_2130[4];
- doublereal e_2131[4];
- doublereal fill_2132[4];
- doublereal e_2133[4];
- doublereal fill_2134[4];
- doublereal e_2135[4];
- doublereal fill_2136[4];
- doublereal e_2137[4];
- doublereal fill_2138[4];
- doublereal e_2139[4];
- doublereal fill_2140[4];
- doublereal e_2141[4];
- doublereal fill_2142[4];
- doublereal e_2143[4];
- doublereal fill_2144[4];
- doublereal e_2145[4];
- doublereal fill_2146[4];
- doublereal e_2147[4];
- doublereal fill_2148[4];
- doublereal e_2149[4];
- doublereal fill_2150[4];
- doublereal e_2151[4];
- doublereal fill_2152[4];
- doublereal e_2153[4];
- doublereal fill_2154[4];
- doublereal e_2155[4];
- doublereal fill_2156[4];
- doublereal e_2157[4];
- doublereal fill_2158[4];
- doublereal e_2159[4];
- doublereal fill_2160[4];
- doublereal e_2161[4];
- doublereal fill_2162[4];
- doublereal e_2163[4];
- doublereal fill_2164[4];
- doublereal e_2165[4];
- doublereal fill_2166[4];
- doublereal e_2167[4];
- doublereal fill_2168[4];
- doublereal e_2169[4];
- doublereal fill_2170[4];
- doublereal e_2171[4];
- doublereal fill_2172[4];
- doublereal e_2173[4];
- doublereal fill_2174[4];
- doublereal e_2175[4];
- doublereal fill_2176[4];
- doublereal e_2177[4];
- doublereal fill_2178[4];
- doublereal e_2179[4];
- doublereal fill_2180[4];
- doublereal e_2181[4];
- doublereal fill_2182[4];
- doublereal e_2183[4];
- doublereal fill_2184[4];
- doublereal e_2185[4];
- doublereal fill_2186[4];
- doublereal e_2187[4];
- doublereal fill_2188[4];
- doublereal e_2189[4];
- doublereal fill_2190[4];
- doublereal e_2191[4];
- doublereal fill_2192[4];
- doublereal e_2193[4];
- doublereal fill_2194[4];
- doublereal e_2195[4];
- doublereal fill_2196[4];
- doublereal e_2197[4];
- doublereal fill_2198[4];
- doublereal e_2199[4];
- doublereal fill_2200[4];
- doublereal e_2201[4];
- doublereal fill_2202[4];
- doublereal e_2203[4];
- doublereal fill_2204[4];
- doublereal e_2205[4];
- doublereal fill_2206[4];
- doublereal e_2207[4];
- doublereal fill_2208[4];
- doublereal e_2209[4];
- doublereal fill_2210[4];
- doublereal e_2211[4];
- doublereal fill_2212[4];
- doublereal e_2213[4];
- doublereal fill_2214[4];
- doublereal e_2215[4];
- doublereal fill_2216[4];
- doublereal e_2217[4];
- doublereal fill_2218[4];
- doublereal e_2219[4];
- doublereal fill_2220[4];
- doublereal e_2221[4];
- doublereal fill_2222[4];
- doublereal e_2223[4];
- doublereal fill_2224[4];
- doublereal e_2225[4];
- doublereal fill_2226[4];
- doublereal e_2227[4];
- doublereal fill_2228[4];
- doublereal e_2229[4];
- doublereal fill_2230[4];
- doublereal e_2231[4];
- doublereal fill_2232[4];
- doublereal e_2233[4];
- doublereal fill_2234[4];
- doublereal e_2235[4];
- doublereal fill_2236[4];
- doublereal e_2237[4];
- doublereal fill_2238[4];
- doublereal e_2239[4];
- doublereal fill_2240[4];
- doublereal e_2241[4];
- doublereal fill_2242[4];
- doublereal e_2243[4];
- doublereal fill_2244[4];
- doublereal e_2245[4];
- doublereal fill_2246[4];
- doublereal e_2247[4];
- doublereal fill_2248[4];
- doublereal e_2249[4];
- doublereal fill_2250[4];
- doublereal e_2251[4];
- doublereal fill_2252[4];
- doublereal e_2253[4];
- doublereal fill_2254[4];
- doublereal e_2255[4];
- doublereal fill_2256[4];
- doublereal e_2257[4];
- doublereal fill_2258[4];
- doublereal e_2259[4];
- doublereal fill_2260[4];
- doublereal e_2261[4];
- doublereal fill_2262[4];
- doublereal e_2263[4];
- doublereal fill_2264[4];
- doublereal e_2265[4];
- doublereal fill_2266[4];
- doublereal e_2267[4];
- doublereal fill_2268[4];
- doublereal e_2269[4];
- doublereal fill_2270[4];
- doublereal e_2271[4];
- doublereal fill_2272[4];
- doublereal e_2273[4];
- doublereal fill_2274[4];
- doublereal e_2275[4];
- doublereal fill_2276[4];
- doublereal e_2277[4];
- doublereal fill_2278[4];
- doublereal e_2279[4];
- doublereal fill_2280[4];
- doublereal e_2281[4];
- doublereal fill_2282[4];
- doublereal e_2283[4];
- doublereal fill_2284[4];
- doublereal e_2285[4];
- doublereal fill_2286[4];
- doublereal e_2287[4];
- doublereal fill_2288[4];
- doublereal e_2289[4];
- doublereal fill_2290[4];
- doublereal e_2291[4];
- doublereal fill_2292[4];
- doublereal e_2293[4];
- doublereal fill_2294[4];
- doublereal e_2295[4];
- doublereal fill_2296[4];
- doublereal e_2297[4];
- doublereal fill_2298[4];
- doublereal e_2299[4];
- doublereal fill_2300[4];
- doublereal e_2301[4];
- doublereal fill_2302[4];
- doublereal e_2303[4];
- doublereal fill_2304[4];
- doublereal e_2305[4];
- doublereal fill_2306[4];
- doublereal e_2307[4];
- doublereal fill_2308[4];
- doublereal e_2309[4];
- doublereal fill_2310[4];
- doublereal e_2311[4];
- doublereal fill_2312[4];
- doublereal e_2313[4];
- doublereal fill_2314[4];
- doublereal e_2315[4];
- doublereal fill_2316[4];
- doublereal e_2317[4];
- doublereal fill_2318[4];
- doublereal e_2319[4];
- doublereal fill_2320[4];
- doublereal e_2321[4];
- doublereal fill_2322[4];
- doublereal e_2323[4];
- doublereal fill_2324[4];
- doublereal e_2325[4];
- doublereal fill_2326[4];
- doublereal e_2327[4];
- doublereal fill_2328[4];
- doublereal e_2329[4];
- doublereal fill_2330[4];
- doublereal e_2331[4];
- doublereal fill_2332[4];
- doublereal e_2333[4];
- doublereal fill_2334[4];
- doublereal e_2335[4];
- doublereal fill_2336[4];
- doublereal e_2337[4];
- doublereal fill_2338[4];
- doublereal e_2339[4];
- doublereal fill_2340[4];
- doublereal e_2341[4];
- doublereal fill_2342[4];
- doublereal e_2343[4];
- doublereal fill_2344[4];
- doublereal e_2345[4];
- doublereal fill_2346[4];
- doublereal e_2347[4];
- doublereal fill_2348[4];
- doublereal e_2349[4];
- doublereal fill_2350[4];
- doublereal e_2351[4];
- doublereal fill_2352[4];
- doublereal e_2353[4];
- doublereal fill_2354[4];
- doublereal e_2355[4];
- doublereal fill_2356[4];
- doublereal e_2357[4];
- doublereal fill_2358[4];
- doublereal e_2359[4];
- doublereal fill_2360[4];
- doublereal e_2361[4];
- doublereal fill_2362[4];
- doublereal e_2363[4];
- doublereal fill_2364[4];
- doublereal e_2365[4];
- doublereal fill_2366[4];
- doublereal e_2367[4];
- doublereal fill_2368[4];
- doublereal e_2369[4];
- doublereal fill_2370[4];
- doublereal e_2371[4];
- doublereal fill_2372[4];
- doublereal e_2373[4];
- doublereal fill_2374[4];
- doublereal e_2375[4];
- doublereal fill_2376[4];
- doublereal e_2377[4];
- doublereal fill_2378[4];
- doublereal e_2379[4];
- doublereal fill_2380[4];
- doublereal e_2381[4];
- doublereal fill_2382[4];
- doublereal e_2383[4];
- doublereal fill_2384[4];
- doublereal e_2385[4];
- doublereal fill_2386[4];
- doublereal e_2387[4];
- doublereal fill_2388[4];
- doublereal e_2389[4];
- doublereal fill_2390[4];
- doublereal e_2391[4];
- doublereal fill_2392[4];
- doublereal e_2393[4];
- doublereal fill_2394[4];
- doublereal e_2395[4];
- doublereal fill_2396[4];
- doublereal e_2397[4];
- doublereal fill_2398[4];
- doublereal e_2399[4];
- doublereal fill_2400[4];
- doublereal e_2401[4];
- doublereal fill_2402[4];
- doublereal e_2403[4];
- doublereal fill_2404[4];
- doublereal e_2405[4];
- doublereal fill_2406[4];
- doublereal e_2407[4];
- doublereal fill_2408[4];
- doublereal e_2409[4];
- doublereal fill_2410[4];
- doublereal e_2411[4];
- doublereal fill_2412[4];
- doublereal e_2413[4];
- doublereal fill_2414[4];
- doublereal e_2415[4];
- doublereal fill_2416[4];
- doublereal e_2417[4];
- doublereal fill_2418[4];
- doublereal e_2419[4];
- doublereal fill_2420[4];
- doublereal e_2421[4];
- doublereal fill_2422[4];
- doublereal e_2423[4];
- doublereal fill_2424[4];
- doublereal e_2425[4];
- doublereal fill_2426[4];
- doublereal e_2427[4];
- doublereal fill_2428[4];
- doublereal e_2429[4];
- doublereal fill_2430[4];
- doublereal e_2431[4];
- doublereal fill_2432[4];
- doublereal e_2433[4];
- doublereal fill_2434[4];
- doublereal e_2435[4];
- doublereal fill_2436[4];
- doublereal e_2437[4];
- doublereal fill_2438[4];
- doublereal e_2439[4];
- doublereal fill_2440[4];
- doublereal e_2441[4];
- doublereal fill_2442[4];
- doublereal e_2443[4];
- doublereal fill_2444[4];
- doublereal e_2445[4];
- doublereal fill_2446[4];
- doublereal e_2447[4];
- doublereal fill_2448[4];
- doublereal e_2449[4];
- doublereal fill_2450[4];
- doublereal e_2451[4];
- doublereal fill_2452[4];
- doublereal e_2453[4];
- doublereal fill_2454[4];
- doublereal e_2455[4];
- doublereal fill_2456[4];
- doublereal e_2457[4];
- doublereal fill_2458[4];
- doublereal e_2459[4];
- doublereal fill_2460[4];
- doublereal e_2461[4];
- doublereal fill_2462[4];
- doublereal e_2463[4];
- doublereal fill_2464[4];
- doublereal e_2465[4];
- doublereal fill_2466[4];
- doublereal e_2467[4];
- doublereal fill_2468[4];
- doublereal e_2469[4];
- doublereal fill_2470[4];
- doublereal e_2471[4];
- doublereal fill_2472[4];
- doublereal e_2473[4];
- doublereal fill_2474[4];
- doublereal e_2475[4];
- doublereal fill_2476[4];
- doublereal e_2477[4];
- doublereal fill_2478[4];
- doublereal e_2479[4];
- doublereal fill_2480[4];
- doublereal e_2481[4];
- doublereal fill_2482[4];
- doublereal e_2483[4];
- doublereal fill_2484[4];
- doublereal e_2485[4];
- doublereal fill_2486[4];
- doublereal e_2487[4];
- doublereal fill_2488[4];
- doublereal e_2489[4];
- doublereal fill_2490[4];
- doublereal e_2491[4];
- doublereal fill_2492[4];
- doublereal e_2493[4];
- doublereal fill_2494[4];
- doublereal e_2495[4];
- doublereal fill_2496[4];
- doublereal e_2497[4];
- doublereal fill_2498[4];
- doublereal e_2499[4];
- doublereal fill_2500[4];
- doublereal e_2501[4];
- doublereal fill_2502[4];
- doublereal e_2503[4];
- doublereal fill_2504[4];
- doublereal e_2505[4];
- doublereal fill_2506[4];
- doublereal e_2507[4];
- doublereal fill_2508[4];
- doublereal e_2509[4];
- doublereal fill_2510[4];
- doublereal e_2511[4];
- doublereal fill_2512[4];
- doublereal e_2513[4];
- doublereal fill_2514[4];
- doublereal e_2515[4];
- doublereal fill_2516[4];
- doublereal e_2517[4];
- doublereal fill_2518[4];
- doublereal e_2519[4];
- doublereal fill_2520[4];
- doublereal e_2521[4];
- doublereal fill_2522[4];
- doublereal e_2523[4];
- doublereal fill_2524[4];
- doublereal e_2525[4];
- doublereal fill_2526[4];
- doublereal e_2527[4];
- doublereal fill_2528[4];
- doublereal e_2529[4];
- doublereal fill_2530[4];
- doublereal e_2531[4];
- doublereal fill_2532[4];
- doublereal e_2533[4];
- doublereal fill_2534[4];
- doublereal e_2535[4];
- doublereal fill_2536[4];
- doublereal e_2537[4];
- doublereal fill_2538[4];
- doublereal e_2539[4];
- doublereal fill_2540[4];
- doublereal e_2541[4];
- doublereal fill_2542[4];
- doublereal e_2543[4];
- doublereal fill_2544[4];
- doublereal e_2545[4];
- doublereal fill_2546[4];
- doublereal e_2547[4];
- doublereal fill_2548[4];
- doublereal e_2549[4];
- doublereal fill_2550[4];
- doublereal e_2551[4];
- doublereal fill_2552[4];
- doublereal e_2553[4];
- doublereal fill_2554[4];
- doublereal e_2555[4];
- doublereal fill_2556[4];
- doublereal e_2557[4];
- doublereal fill_2558[4];
- doublereal e_2559[4];
- doublereal fill_2560[4];
- doublereal e_2561[4];
- doublereal fill_2562[4];
- doublereal e_2563[4];
- doublereal fill_2564[4];
- doublereal e_2565[4];
- doublereal fill_2566[4];
- doublereal e_2567[4];
- doublereal fill_2568[4];
- doublereal e_2569[4];
- doublereal fill_2570[4];
- doublereal e_2571[4];
- doublereal fill_2572[4];
- doublereal e_2573[4];
- doublereal fill_2574[4];
- doublereal e_2575[4];
- doublereal fill_2576[4];
- doublereal e_2577[4];
- doublereal fill_2578[4];
- doublereal e_2579[4];
- doublereal fill_2580[4];
- doublereal e_2581[4];
- doublereal fill_2582[4];
- doublereal e_2583[4];
- doublereal fill_2584[4];
- doublereal e_2585[4];
- doublereal fill_2586[4];
- doublereal e_2587[4];
- doublereal fill_2588[4];
- doublereal e_2589[4];
- doublereal fill_2590[4];
- doublereal e_2591[4];
- doublereal fill_2592[4];
- doublereal e_2593[4];
- doublereal fill_2594[4];
- doublereal e_2595[4];
- doublereal fill_2596[4];
- doublereal e_2597[4];
- doublereal fill_2598[4];
- doublereal e_2599[4];
- doublereal fill_2600[4];
- doublereal e_2601[4];
- doublereal fill_2602[4];
- doublereal e_2603[4];
- doublereal fill_2604[4];
- doublereal e_2605[4];
- doublereal fill_2606[4];
- doublereal e_2607[4];
- doublereal fill_2608[4];
- doublereal e_2609[4];
- doublereal fill_2610[4];
- doublereal e_2611[4];
- doublereal fill_2612[4];
- doublereal e_2613[4];
- doublereal fill_2614[4];
- doublereal e_2615[4];
- doublereal fill_2616[4];
- doublereal e_2617[4];
- doublereal fill_2618[4];
- doublereal e_2619[4];
- doublereal fill_2620[4];
- doublereal e_2621[4];
- doublereal fill_2622[4];
- doublereal e_2623[4];
- doublereal fill_2624[4];
- doublereal e_2625[4];
- doublereal fill_2626[4];
- doublereal e_2627[4];
- doublereal fill_2628[4];
- doublereal e_2629[4];
- doublereal fill_2630[4];
- doublereal e_2631[4];
- doublereal fill_2632[4];
- doublereal e_2633[4];
- doublereal fill_2634[4];
- doublereal e_2635[4];
- doublereal fill_2636[4];
- doublereal e_2637[4];
- doublereal fill_2638[4];
- doublereal e_2639[4];
- doublereal fill_2640[4];
- doublereal e_2641[4];
- doublereal fill_2642[4];
- doublereal e_2643[4];
- doublereal fill_2644[4];
- doublereal e_2645[4];
- doublereal fill_2646[4];
- doublereal e_2647[4];
- doublereal fill_2648[4];
- doublereal e_2649[4];
- doublereal fill_2650[4];
- doublereal e_2651[4];
- doublereal fill_2652[4];
- doublereal e_2653[4];
- doublereal fill_2654[4];
- doublereal e_2655[4];
- doublereal fill_2656[4];
- doublereal e_2657[4];
- doublereal fill_2658[4];
- doublereal e_2659[4];
- doublereal fill_2660[4];
- doublereal e_2661[4];
- doublereal fill_2662[4];
- doublereal e_2663[4];
- doublereal fill_2664[4];
- doublereal e_2665[4];
- doublereal fill_2666[4];
- doublereal e_2667[4];
- doublereal fill_2668[4];
- doublereal e_2669[4];
- doublereal fill_2670[4];
- doublereal e_2671[4];
- doublereal fill_2672[4];
- doublereal e_2673[4];
- doublereal fill_2674[4];
- doublereal e_2675[4];
- doublereal fill_2676[4];
- doublereal e_2677[4];
- doublereal fill_2678[4];
- doublereal e_2679[4];
- doublereal fill_2680[4];
- doublereal e_2681[4];
- doublereal fill_2682[4];
- doublereal e_2683[4];
- doublereal fill_2684[4];
- doublereal e_2685[4];
- doublereal fill_2686[4];
- doublereal e_2687[4];
- doublereal fill_2688[4];
- doublereal e_2689[4];
- doublereal fill_2690[4];
- doublereal e_2691[4];
- doublereal fill_2692[4];
- doublereal e_2693[4];
- doublereal fill_2694[4];
- doublereal e_2695[4];
- doublereal fill_2696[4];
- doublereal e_2697[4];
- doublereal fill_2698[4];
- doublereal e_2699[4];
- doublereal fill_2700[4];
- doublereal e_2701[4];
- doublereal fill_2702[4];
- doublereal e_2703[4];
- doublereal fill_2704[4];
- doublereal e_2705[4];
- doublereal fill_2706[4];
- doublereal e_2707[4];
- doublereal fill_2708[4];
- doublereal e_2709[4];
- doublereal fill_2710[4];
- doublereal e_2711[4];
- doublereal fill_2712[4];
- doublereal e_2713[4];
- doublereal fill_2714[4];
- doublereal e_2715[4];
- doublereal fill_2716[4];
- doublereal e_2717[4];
- doublereal fill_2718[4];
- doublereal e_2719[4];
- doublereal fill_2720[4];
- doublereal e_2721[4];
- doublereal fill_2722[4];
- doublereal e_2723[4];
- doublereal fill_2724[4];
- doublereal e_2725[4];
- doublereal fill_2726[4];
- doublereal e_2727[4];
- doublereal fill_2728[4];
- doublereal e_2729[4];
- doublereal fill_2730[4];
- doublereal e_2731[4];
- doublereal fill_2732[4];
- doublereal e_2733[4];
- doublereal fill_2734[4];
- doublereal e_2735[4];
- doublereal fill_2736[4];
- doublereal e_2737[4];
- doublereal fill_2738[4];
- doublereal e_2739[4];
- doublereal fill_2740[4];
- doublereal e_2741[4];
- doublereal fill_2742[4];
- doublereal e_2743[4];
- doublereal fill_2744[4];
- doublereal e_2745[4];
- doublereal fill_2746[4];
- doublereal e_2747[4];
- doublereal fill_2748[4];
- doublereal e_2749[4];
- doublereal fill_2750[4];
- doublereal e_2751[4];
- doublereal fill_2752[4];
- doublereal e_2753[4];
- doublereal fill_2754[4];
- doublereal e_2755[4];
- doublereal fill_2756[4];
- doublereal e_2757[4];
- doublereal fill_2758[4];
- doublereal e_2759[4];
- doublereal fill_2760[4];
- doublereal e_2761[4];
- doublereal fill_2762[4];
- doublereal e_2763[4];
- doublereal fill_2764[4];
- doublereal e_2765[4];
- doublereal fill_2766[4];
- doublereal e_2767[4];
- doublereal fill_2768[4];
- doublereal e_2769[4];
- doublereal fill_2770[4];
- doublereal e_2771[4];
- doublereal fill_2772[4];
- doublereal e_2773[4];
- doublereal fill_2774[4];
- doublereal e_2775[4];
- doublereal fill_2776[4];
- doublereal e_2777[4];
- doublereal fill_2778[4];
- doublereal e_2779[4];
- doublereal fill_2780[4];
- doublereal e_2781[4];
- doublereal fill_2782[4];
- doublereal e_2783[4];
- doublereal fill_2784[4];
- doublereal e_2785[4];
- doublereal fill_2786[4];
- doublereal e_2787[4];
- doublereal fill_2788[4];
- doublereal e_2789[4];
- doublereal fill_2790[4];
- doublereal e_2791[4];
- doublereal fill_2792[4];
- doublereal e_2793[4];
- doublereal fill_2794[4];
- doublereal e_2795[4];
- doublereal fill_2796[4];
- doublereal e_2797[4];
- doublereal fill_2798[4];
- doublereal e_2799[4];
- doublereal fill_2800[4];
- doublereal e_2801[4];
- doublereal fill_2802[4];
- doublereal e_2803[4];
- doublereal fill_2804[4];
- doublereal e_2805[4];
- doublereal fill_2806[4];
- doublereal e_2807[4];
- doublereal fill_2808[4];
- doublereal e_2809[4];
- doublereal fill_2810[4];
- doublereal e_2811[4];
- doublereal fill_2812[4];
- doublereal e_2813[4];
- doublereal fill_2814[4];
- doublereal e_2815[4];
- doublereal fill_2816[4];
- doublereal e_2817[4];
- doublereal fill_2818[4];
- doublereal e_2819[4];
- doublereal fill_2820[4];
- doublereal e_2821[4];
- doublereal fill_2822[4];
- doublereal e_2823[4];
- doublereal fill_2824[4];
- doublereal e_2825[4];
- doublereal fill_2826[4];
- doublereal e_2827[4];
- doublereal fill_2828[4];
- doublereal e_2829[4];
- doublereal fill_2830[4];
- doublereal e_2831[4];
- doublereal fill_2832[4];
- doublereal e_2833[4];
- doublereal fill_2834[4];
- doublereal e_2835[4];
- doublereal fill_2836[4];
- doublereal e_2837[4];
- doublereal fill_2838[4];
- doublereal e_2839[4];
- doublereal fill_2840[4];
- doublereal e_2841[4];
- doublereal fill_2842[4];
- doublereal e_2843[4];
- doublereal fill_2844[4];
- doublereal e_2845[4];
- doublereal fill_2846[4];
- doublereal e_2847[4];
- doublereal fill_2848[4];
- doublereal e_2849[4];
- doublereal fill_2850[4];
- doublereal e_2851[4];
- doublereal fill_2852[4];
- doublereal e_2853[4];
- doublereal fill_2854[4];
- doublereal e_2855[4];
- doublereal fill_2856[4];
- doublereal e_2857[4];
- doublereal fill_2858[4];
- doublereal e_2859[4];
- doublereal fill_2860[4];
- doublereal e_2861[4];
- doublereal fill_2862[4];
- doublereal e_2863[4];
- doublereal fill_2864[4];
- doublereal e_2865[4];
- doublereal fill_2866[4];
- doublereal e_2867[4];
- doublereal fill_2868[4];
- doublereal e_2869[4];
- doublereal fill_2870[4];
- doublereal e_2871[4];
- doublereal fill_2872[4];
- doublereal e_2873[4];
- doublereal fill_2874[4];
- doublereal e_2875[4];
- doublereal fill_2876[4];
- doublereal e_2877[4];
- doublereal fill_2878[4];
- doublereal e_2879[4];
- doublereal fill_2880[4];
- doublereal e_2881[4];
- doublereal fill_2882[4];
- doublereal e_2883[4];
- doublereal fill_2884[4];
- doublereal e_2885[4];
- doublereal fill_2886[4];
- doublereal e_2887[4];
- doublereal fill_2888[4];
- doublereal e_2889[4];
- doublereal fill_2890[4];
- doublereal e_2891[4];
- doublereal fill_2892[4];
- doublereal e_2893[4];
- doublereal fill_2894[4];
- doublereal e_2895[4];
- doublereal fill_2896[4];
- doublereal e_2897[4];
- doublereal fill_2898[4];
- doublereal e_2899[4];
- doublereal fill_2900[4];
- doublereal e_2901[4];
- doublereal fill_2902[4];
- doublereal e_2903[4];
- doublereal fill_2904[4];
- doublereal e_2905[4];
- doublereal fill_2906[4];
- doublereal e_2907[4];
- doublereal fill_2908[4];
- doublereal e_2909[4];
- doublereal fill_2910[4];
- doublereal e_2911[4];
- doublereal fill_2912[4];
- doublereal e_2913[4];
- doublereal fill_2914[4];
- doublereal e_2915[4];
- doublereal fill_2916[4];
- doublereal e_2917[4];
- doublereal fill_2918[4];
- doublereal e_2919[4];
- doublereal fill_2920[4];
- doublereal e_2921[4];
- doublereal fill_2922[4];
- doublereal e_2923[4];
- doublereal fill_2924[4];
- doublereal e_2925[4];
- doublereal fill_2926[4];
- doublereal e_2927[4];
- doublereal fill_2928[4];
- doublereal e_2929[4];
- doublereal fill_2930[4];
- doublereal e_2931[4];
- doublereal fill_2932[4];
- doublereal e_2933[4];
- doublereal fill_2934[4];
- doublereal e_2935[4];
- doublereal fill_2936[4];
- doublereal e_2937[4];
- doublereal fill_2938[4];
- doublereal e_2939[4];
- doublereal fill_2940[4];
- doublereal e_2941[4];
- doublereal fill_2942[4];
- doublereal e_2943[4];
- doublereal fill_2944[4];
- doublereal e_2945[4];
- doublereal fill_2946[4];
- doublereal e_2947[4];
- doublereal fill_2948[4];
- doublereal e_2949[4];
- doublereal fill_2950[4];
- doublereal e_2951[4];
- doublereal fill_2952[4];
- doublereal e_2953[4];
- doublereal fill_2954[4];
- doublereal e_2955[4];
- doublereal fill_2956[4];
- doublereal e_2957[4];
- doublereal fill_2958[4];
- doublereal e_2959[4];
- doublereal fill_2960[4];
- doublereal e_2961[4];
- doublereal fill_2962[4];
- doublereal e_2963[4];
- doublereal fill_2964[4];
- doublereal e_2965[4];
- doublereal fill_2966[4];
- doublereal e_2967[4];
- doublereal fill_2968[4];
- doublereal e_2969[4];
- doublereal fill_2970[4];
- doublereal e_2971[4];
- doublereal fill_2972[4];
- doublereal e_2973[4];
- doublereal fill_2974[4];
- doublereal e_2975[4];
- doublereal fill_2976[4];
- doublereal e_2977[4];
- doublereal fill_2978[4];
- doublereal e_2979[4];
- doublereal fill_2980[4];
- doublereal e_2981[4];
- doublereal fill_2982[4];
- doublereal e_2983[4];
- doublereal fill_2984[4];
- doublereal e_2985[4];
- doublereal fill_2986[4];
- doublereal e_2987[4];
- doublereal fill_2988[4];
- doublereal e_2989[4];
- doublereal fill_2990[4];
- doublereal e_2991[4];
- doublereal fill_2992[4];
- doublereal e_2993[4];
- doublereal fill_2994[4];
- doublereal e_2995[4];
- doublereal fill_2996[4];
- doublereal e_2997[4];
- doublereal fill_2998[4];
- doublereal e_2999[4];
- doublereal fill_3000[4];
- doublereal e_3001[4];
- doublereal fill_3002[4];
- } equiv_5 = { 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}, 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}, 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}, 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},
- 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}, 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}, 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}, 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}, 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}, 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}, 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},
- 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}, 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}, 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}, 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}, 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}, 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}, 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},
- 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}, 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}, 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}, 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}, 0., 0., 0.,
- 0., {0}, .00114, 0., 0., 0., {0}, .0012, 0., 0., 0., {0},
- .00109, 0., 0., 0., {0}, .00373, 0., 0., 0., {0}, .00495, 0.,
- 0., 0., {0}, .01321, 0., 0., 0., {0}, .03203, 0., 0., 0., {0},
- .0819, 0., 0., 0., {0}, .25129, 0., 0., 0., {0}, .69749, 0.,
- 0., 0., {0}, .97208, 0., 0., 0., {0}, 1., 0., 0., 0., {0},
- .98655, 0., 0., 0., {0}, .92234, 0., 0., 0., {0}, .78359, 0.,
- 0., 0., {0}, .64632, 0., 0., 0., {0}, .55174, 0., 0., 0., {0},
- .50241, 0., 0., 0., {0}, .41232, 0., 0., 0., {0}, .23254, 0.,
- 0., 0., {0}, .10744, 0., 0., 0., {0}, .05272, 0., 0., 0., {0}
- , .02769, 0., 0., 0., {0}, .01528, 0., 0., 0., {0}, .0097, 0.,
- 0., 0., {0}, .0054, 0., 0., 0., {0}, .00114, 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., 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., 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., 7e-5, 0.,
- 0., {0}, 0., .00106, 0., 0., {0}, 0., .00259, 0., 0., {0}, 0.,
- .00588, 0., 0., {0}, 0., .01313, 0., 0., {0}, 0., .03452, 0.,
- 0., {0}, 0., .09925, 0., 0., {0}, 0., .25868, 0., 0., {0},
- 0., .53662, 0., 0., {0}, 0., .75311, 0., 0., {0}, 0., .90226,
- 0., 0., {0}, 0., .99149, 0., 0., {0}, 0., 1., 0., 0., {0}, 0.,
- .96028, 0., 0., {0}, 0., .9011, 0., 0., {0}, 0., .76907, 0.,
- 0., {0}, 0., .47949, 0., 0., {0}, 0., .21557, 0., 0., {0}, 0.,
- .08929, 0., 0., {0}, 0., .04225, 0., 0., {0}, 0., .02272, 0.,
- 0., {0}, 0., .01292, 0., 0., {0}, 0., .00778, 0., 0., {0},
- 0., .00473, 0., 0., {0}, 0., .00264, 0., 0., {0}, 0., .00144,
- 0., 0., {0}, 0., 6e-4, 0., 0., {0}, 0., 3.1e-4, 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., 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., 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., 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., 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., 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., 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., 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., 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., 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., 0., 0.,
- {0}, 0., 0., 0., 0., {0}, 0., 0., 0., 0., {0}, 0., 0., 0.,
- 0., {0}, 0., 0., 5.9e-4, 0., {0}, 0., 0., .00104, 0., {0}, 0.,
- 0., .0021, 0., {0}, 0., 0., .00389, 0., {0}, 0., 0., .00839,
- 0., {0}, 0., 0., .01991, 0., {0}, 0., 0., .05815, 0., {0}, 0.,
- 0., .20311, 0., {0}, 0., 0., .59432, 0., {0}, 0., 0., .953,
- 0., {0}, 0., 0., .92949, 0., {0}, 0., 0., .87362, 0., {0}, 0.,
- 0., .91049, 0., {0}, 0., 0., 1., 0., {0}, 0., 0., .99161, 0.,
- {0}, 0., 0., .79466, 0., {0}, 0., 0., .46286, 0., {0}, 0.,
- 0., .20633, 0., {0}, 0., 0., .08993, 0., {0}, 0., 0., .04324,
- 0., {0}, 0., 0., .02196, 0., {0}, 0., 0., .01186, 0., {0}, 0.,
- 0., .00674, 0., {0}, 0., 0., .00372, 0., {0}, 0., 0., .00199,
- 0., {0}, 0., 0., 9.9e-4, 0., {0}, 0., 0., 3.5e-4, 0., {0},
- 0., 0., 1e-5, 0., {0}, 0., 0., 1e-5, 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., 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.,
- 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., 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., 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., 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., 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., 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., 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.,
- 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., 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., 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., 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., 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., 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., 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.,
- 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., 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., 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., 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., 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., 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., 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.,
- 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., 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., 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., 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., 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., 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., 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.,
- 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., 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., 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., 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., 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., 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., 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.,
- 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., 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., 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., 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., 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., 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., 0., {0}, 0., 0., 0., 0., {0}, 0., 0., 0.,
- 0., {0}, 0., 0., 0., 1e-5, {0}, 0., 0., 0., 1e-5, {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., {0}, 0., 0., 0., 0., {0}, 0.,
- 0., 0., 0., {0}, 0., 0., 0., 0., {0}, 0., 0., 0., 0., {0},
- 0., 0., 0., 1e-5, {0}, 0., 0., 0., 3e-5, {0}, 0., 0., 0.,
- 7e-5, {0}, 0., 0., 0., 1e-4, {0}, 0., 0., 0., 1.6e-4, {0}, 0.,
- 0., 0., 1.8e-4, {0}, 0., 0., 0., 1.9e-4, {0}, 0., 0., 0.,
- 3.8e-4, {0}, 0., 0., 0., 7e-4, {0}, 0., 0., 0., 7.4e-4, {0},
- 0., 0., 0., 8.7e-4, {0}, 0., 0., 0., 9.9e-4, {0}, 0., 0., 0.,
- .00112, {0}, 0., 0., 0., .00144, {0}, 0., 0., 0., .00178, {0},
- 0., 0., 0., .0021, {0}, 0., 0., 0., .00252, {0}, 0., 0., 0.,
- .00314, {0}, 0., 0., 0., .00381, {0}, 0., 0., 0., .00482, {0},
- 0., 0., 0., .00617, {0}, 0., 0., 0., .00808, {0}, 0., 0., 0.,
- .01087, {0}, 0., 0., 0., .01507, {0}, 0., 0., 0., .02115, {0}
- , 0., 0., 0., .03014, {0}, 0., 0., 0., .04352, {0}, 0., 0.,
- 0., .06372, {0}, 0., 0., 0., .09368, {0}, 0., 0., 0., .13303,
- {0}, 0., 0., 0., .18172, {0}, 0., 0., 0., .239, {0}, 0., 0.,
- 0., .29735, {0}, 0., 0., 0., .36285, {0}, 0., 0., 0., .43193,
- {0}, 0., 0., 0., .50378, {0}, 0., 0., 0., .57403, {0}, 0., 0.,
- 0., .64865, {0}, 0., 0., 0., .72474, {0}, 0., 0., 0., .79732,
- {0}, 0., 0., 0., .86795, {0}, 0., 0., 0., .92477, {0}, 0.,
- 0., 0., .96695, {0}, 0., 0., 0., .99173, {0}, 0., 0., 0., 1.,
- {0}, 0., 0., 0., .99937, {0}, 0., 0., 0., .99592, {0}, 0., 0.,
- 0., .98624, {0}, 0., 0., 0., .97501, {0}, 0., 0., 0., .95695,
- {0}, 0., 0., 0., .93594, {0}, 0., 0., 0., .90325, {0}, 0.,
- 0., 0., .87127, {0}, 0., 0., 0., .83451, {0}, 0., 0., 0.,
- .79304, {0}, 0., 0., 0., .7532, {0}, 0., 0., 0., .70611, {0},
- 0., 0., 0., .65958, {0}, 0., 0., 0., .60791, {0}, 0., 0., 0.,
- .55348, {0}, 0., 0., 0., .49819, {0}, 0., 0., 0., .43767, {0},
- 0., 0., 0., .37291, {0}, 0., 0., 0., .30937, {0}, 0., 0., 0.,
- .2488, {0}, 0., 0., 0., .19559, {0}, 0., 0., 0., .14848, {0},
- 0., 0., 0., .10947, {0}, 0., 0., 0., .0794, {0}, 0., 0., 0.,
- .05786, {0}, 0., 0., 0., .04258, {0}, 0., 0., 0., .03172, {0},
- 0., 0., 0., .02439, {0}, 0., 0., 0., .01898, {0}, 0., 0., 0.,
- .015, {0}, 0., 0., 0., .01187, {0}, 0., 0., 0., .00984, {0},
- 0., 0., 0., .0081, {0}, 0., 0., 0., .00664, {0}, 0., 0., 0.,
- .00558, {0}, 0., 0., 0., .00481, {0}, 0., 0., 0., .00407, {0},
- 0., 0., 0., .00346, {0}, 0., 0., 0., .00293, {0}, 0., 0., 0.,
- .0026, {0}, 0., 0., 0., .00218, {0}, 0., 0., 0., .0018, {0},
- 0., 0., 0., .00167, {0}, 0., 0., 0., .00149, {0}, 0., 0., 0.,
- .00132, {0}, 0., 0., 0., .00127, {0}, 0., 0., 0., .00118, {0},
- 0., 0., 0., 8.3e-4, {0}, 0., 0., 0., 5.6e-4, {0}, 0., 0., 0.,
- 4.9e-4, {0}, 0., 0., 0., 4.8e-4, {0}, 0., 0., 0., 4.8e-4, {0}
- , 0., 0., 0., 4.6e-4, {0}, 0., 0., 0., 4.3e-4, {0}, 0., 0.,
- 0., 3.8e-4, {0}, 0., 0., 0., 3.1e-4, {0}, 0., 0., 0., 2.7e-4,
- {0}, 0., 0., 0., 2.4e-4, {0}, 0., 0., 0., 2.4e-4, {0}, 0., 0.,
- 0., 2.3e-4, {0}, 0., 0., 0., 2.4e-4, {0}, 0., 0., 0., 2.4e-4,
- {0}, 0., 0., 0., 2.4e-4, {0}, 0., 0., 0., 2.5e-4, {0}, 0.,
- 0., 0., 2.5e-4, {0}, 0., 0., 0., 2.6e-4, {0}, 0., 0., 0.,
- 2.6e-4, {0}, 0., 0., 0., 2.7e-4, {0}, 0., 0., 0., 2.7e-4, {0},
- 0., 0., 0., 2.7e-4, {0}, 0., 0., 0., 2.8e-4, {0}, 0., 0., 0.,
- 2.8e-4, {0}, 0., 0., 0., 2.8e-4, {0}, 0., 0., 0., 2.9e-4, {0}
- , 0., 0., 0., 2.9e-4, {0}, 0., 0., 0., 2.8e-4, {0}, 0., 0.,
- 0., 3.2e-4, {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {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., {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.,
- {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., {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., {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., {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., {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., {0}, 0., 0., 0., 0., {0}
- , 0., 0., 0., 0., {0}, 0., 0., 0., 0., {0}, 0., 0., 0., 0. };
-
-#define sr ((doublereal *)&equiv_5)
-
-
- integer i__;
- doublereal wli[8], wls[8];
-
-
-/* created: J. Nieke july/2003 */
-/* aatsr response function values */
-/* are based on version (ESA/Vega/H. Tait) */
-/* v55_srf.txt, v659_srf.txt, v870_srf.txt, v16_srf.txt */
-/* Values are interpolated to 2.5nm wavelenght intervals */
-
-
-/*< real s,wlinf,wlsup
>*/
-/*< common /sixs_ffu/ s(1501),wlinf,wlsup
>*/
-/*< real sr(8,1501),wli(8),wls(8)
>*/
-/*< integer iwa,l,i
>*/
-/* band 1 of AATSR (0.525000 => 0.592500um) */
-/*< >*/
-/* band 2 of AATSR (0.6275 => 0.6975um) */
-/*< >*/
-/* band 3 of AATSR (0.8325 => 0.9025um) */
-/*< >*/
-/* band 4 of AATSR (1.4475 => 1.7775um) */
-/*< >*/
-/* channel 1 lower and upper wavelength */
-/*< wli(1)=0.525
>*/
- wli[0] = .525;
-/*< wls(1)=0.5925
>*/
- wls[0] = .5925;
-/* channel 2 lower and upper wavelength */
-/*< wli(2)=0.6275
>*/
- wli[1] = .6275;
-/*< wls(2)=0.6975
>*/
- wls[1] = .6975;
-/* channel 3 lower and upper wavelength */
-/*< wli(3)=0.8325
>*/
- wli[2] = .8325;
-/*< wls(3)=0.9025
>*/
- wls[2] = .9025;
-/* channel 4 lower and upper wavelength */
-/*< wli(4)=1.4475
>*/
- wli[3] = 1.4475;
-/*< wls(4)=1.7775
>*/
- wls[3] = 1.7775;
-/*< do 1 i=1,1501
>*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< s(i)=sr(iwa,i)
>*/
- sixs_ffu__1.s[i__ - 1] = sr[*iwa + (i__ << 3) - 9];
-/*< 1 continue
>*/
-/* L1: */
- }
-/*< wlinf=wli(iwa)
>*/
- sixs_ffu__1.wlinf = wli[*iwa - 1];
-/*< wlsup=wls(iwa)
>*/
- sixs_ffu__1.wlsup = wls[*iwa - 1];
-/*< return
>*/
- return 0;
-/*< end
>*/
-} /* aatsr_ */
-
-#undef sr
-
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AATSR.f b/Modules/ThirdParty/6S/src/6SV1.0B/AATSR.f
deleted file mode 100644
index c26ca37..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AATSR.f
+++ /dev/null
@@ -1,85 +0,0 @@
- subroutine aatsr(iwa)
-c
-c created: J. Nieke july/2003
-c aatsr response function values
-c are based on version (ESA/Vega/H. Tait)
-c v55_srf.txt, v659_srf.txt, v870_srf.txt, v16_srf.txt
-c Values are interpolated to 2.5nm wavelenght intervals
-c
-c
- real s,wlinf,wlsup
- common /sixs_ffu/ s(1501),wlinf,wlsup
- real sr(8,1501),wli(8),wls(8)
- integer iwa,l,i
-c band 1 of AATSR (0.525000 => 0.592500um)
- DATA (SR(1,L),L=1,1501)/ 111*0.,
- A 0.00114, 0.00120, 0.00109, 0.00373, 0.00495, 0.01321,
- A 0.03203, 0.08190, 0.25129, 0.69749, 0.97208, 1.00000,
- A 0.98655, 0.92234, 0.78359, 0.64632, 0.55174, 0.50241,
- A 0.41232, 0.23254, 0.10744, 0.05272, 0.02769, 0.01528,
- A 0.00970, 0.00540,0.00114,
- A1363*0./
-c band 2 of AATSR (0.6275 => 0.6975um)
- DATA (SR(2,L),L=1,1501)/ 152*0.,
- A 0.00007, 0.00106, 0.00259, 0.00588, 0.01313, 0.03452,
- A 0.09925, 0.25868, 0.53662, 0.75311, 0.90226, 0.99149,
- A 1.00000, 0.96028, 0.90110, 0.76907, 0.47949, 0.21557,
- A 0.08929, 0.04225, 0.02272, 0.01292, 0.00778, 0.00473,
- A 0.00264, 0.00144, 0.00060, 0.00031,
- A1321*0./
-c band 3 of AATSR (0.8325 => 0.9025um)
- DATA (SR(3,L),L=1,1501)/ 233*0.,
- A 0.00059, 0.00104, 0.00210, 0.00389, 0.00839, 0.01991,
- A 0.05815, 0.20311, 0.59432, 0.95300, 0.92949, 0.87362,
- A 0.91049, 1.00000, 0.99161, 0.79466, 0.46286, 0.20633,
- A 0.08993, 0.04324, 0.02196, 0.01186, 0.00674, 0.00372,
- A 0.00199, 0.00099, 0.00035, 0.00001, 0.00001,
- A1239*0./
-c band 4 of AATSR (1.4475 => 1.7775um)
- DATA (SR(4,L),L=1,1501)/ 479*0.,
- A 0.00001, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
- A 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001,
- A 0.00003, 0.00007, 0.00010, 0.00016, 0.00018, 0.00019,
- A 0.00038, 0.00070, 0.00074, 0.00087, 0.00099, 0.00112,
- A 0.00144, 0.00178, 0.00210, 0.00252, 0.00314, 0.00381,
- A 0.00482, 0.00617, 0.00808, 0.01087, 0.01507, 0.02115,
- A 0.03014, 0.04352, 0.06372, 0.09368, 0.13303, 0.18172,
- A 0.23900, 0.29735, 0.36285, 0.43193, 0.50378, 0.57403,
- A 0.64865, 0.72474, 0.79732, 0.86795, 0.92477, 0.96695,
- A 0.99173, 1.00000, 0.99937, 0.99592, 0.98624, 0.97501,
- A 0.95695, 0.93594, 0.90325, 0.87127, 0.83451, 0.79304,
- A 0.75320, 0.70611, 0.65958, 0.60791, 0.55348, 0.49819,
- A 0.43767, 0.37291, 0.30937, 0.24880, 0.19559, 0.14848,
- A 0.10947, 0.07940, 0.05786, 0.04258, 0.03172, 0.02439,
- A 0.01898, 0.01500, 0.01187, 0.00984, 0.00810, 0.00664,
- A 0.00558, 0.00481, 0.00407, 0.00346, 0.00293, 0.00260,
- A 0.00218, 0.00180, 0.00167, 0.00149, 0.00132, 0.00127,
- A 0.00118, 0.00083, 0.00056, 0.00049, 0.00048, 0.00048,
- A 0.00046, 0.00043, 0.00038, 0.00031, 0.00027, 0.00024,
- A 0.00024, 0.00023, 0.00024, 0.00024, 0.00024, 0.00025,
- A 0.00025, 0.00026, 0.00026, 0.00027, 0.00027, 0.00027,
- A 0.00028, 0.00028, 0.00028, 0.00029, 0.00029, 0.00028,
- A 0.00032,
- A889*0./
-c channel 1 lower and upper wavelength
- wli(1)=0.525
- wls(1)=0.5925
-c channel 2 lower and upper wavelength
- wli(2)=0.6275
- wls(2)=0.6975
-c channel 3 lower and upper wavelength
- wli(3)=0.8325
- wls(3)=0.9025
-c channel 4 lower and upper wavelength
- wli(4)=1.4475
- wls(4)=1.7775
-
-
- do 1 i=1,1501
- s(i)=sr(iwa,i)
- 1 continue
-
- wlinf=wli(iwa)
- wlsup=wls(iwa)
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AATSR.h b/Modules/ThirdParty/6S/src/6SV1.0B/AATSR.h
deleted file mode 100644
index da1fab7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AATSR.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_aatsr_(
- otb_6s_integer *iwa
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.P b/Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.P
deleted file mode 100644
index 257d636..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.P
+++ /dev/null
@@ -1,36 +0,0 @@
-extern int abstra_(integer *idatm, doublereal *wl, doublereal *xmus, doublereal *xmuv, doublereal *uw, doublereal *uo3, doublereal *uwus, doublereal *uo3us, integer *idatmp, doublereal *uwpl, doublereal *uo3pl, doublereal *uwusp, doublereal *uo3usp, doublereal *dtwava, doublereal *dtozon, doublereal *dtdica, doublereal *dtoxyg, doublereal *dtniox, doublereal *dtmeth, doublereal *dtmoca, doublereal *utwava, doublereal *utozon, doublereal *utdica, doublereal *utoxyg, doublereal *utniox, do [...]
-/* comlen sixs_atm__ 1360 */
-/* comlen sixs_planesim__ 1360 */
-/*:ref: wava6_ 14 2 7 4 */
-/*:ref: oxyg6_ 14 2 7 4 */
-/*:ref: niox6_ 14 2 7 4 */
-/*:ref: meth6_ 14 2 7 4 */
-/*:ref: moca6_ 14 2 7 4 */
-/*:ref: wava5_ 14 2 7 4 */
-/*:ref: oxyg5_ 14 2 7 4 */
-/*:ref: niox5_ 14 2 7 4 */
-/*:ref: meth5_ 14 2 7 4 */
-/*:ref: moca5_ 14 2 7 4 */
-/*:ref: wava4_ 14 2 7 4 */
-/*:ref: oxyg4_ 14 2 7 4 */
-/*:ref: niox4_ 14 2 7 4 */
-/*:ref: meth4_ 14 2 7 4 */
-/*:ref: moca4_ 14 2 7 4 */
-/*:ref: wava3_ 14 2 7 4 */
-/*:ref: dica3_ 14 2 7 4 */
-/*:ref: oxyg3_ 14 2 7 4 */
-/*:ref: niox3_ 14 2 7 4 */
-/*:ref: meth3_ 14 2 7 4 */
-/*:ref: moca3_ 14 2 7 4 */
-/*:ref: wava2_ 14 2 7 4 */
-/*:ref: dica2_ 14 2 7 4 */
-/*:ref: niox2_ 14 2 7 4 */
-/*:ref: meth2_ 14 2 7 4 */
-/*:ref: moca2_ 14 2 7 4 */
-/*:ref: wava1_ 14 2 7 4 */
-/*:ref: dica1_ 14 2 7 4 */
-/*:ref: ozon1_ 14 2 7 4 */
-/*:ref: niox1_ 14 2 7 4 */
-/*:ref: meth1_ 14 2 7 4 */
-/*:ref: moca1_ 14 2 7 4 */
-/*:ref: print_error__ 14 2 13 124 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.c b/Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.c
deleted file mode 100644
index 7df45cd..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.c
+++ /dev/null
@@ -1,1150 +0,0 @@
-/* ABSTRA.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#define sixs_atm__1 sixs_atm__
-
-Extern struct {
- doublereal zpl[34], ppl[34], tpl[34], whpl[34], wopl[34];
-} sixs_planesim__;
-
-#define sixs_planesim__1 sixs_planesim__
-
-/*< >*/
-/* Subroutine */ int abstra_(integer *idatm, doublereal *wl, doublereal *xmus,
- doublereal *xmuv, doublereal *uw, doublereal *uo3, doublereal *uwus,
- doublereal *uo3us, integer *idatmp, doublereal *uwpl, doublereal *
- uo3pl, doublereal *uwusp, doublereal *uo3usp, doublereal *dtwava,
- doublereal *dtozon, doublereal *dtdica, doublereal *dtoxyg,
- doublereal *dtniox, doublereal *dtmeth, doublereal *dtmoca,
- doublereal *utwava, doublereal *utozon, doublereal *utdica,
- doublereal *utoxyg, doublereal *utniox, doublereal *utmeth,
- doublereal *utmoca, doublereal *ttwava, doublereal *ttozon,
- doublereal *ttdica, doublereal *ttoxyg, doublereal *ttniox,
- doublereal *ttmeth, doublereal *ttmoca)
-{
- /* Initialized data */
-
- static integer ivli[6] = { 2500,5060,7620,10180,12740,15300 };
- static doublereal co3[102] = { .0045,.008,.0107,.011,.0127,.0171,.02,
- .0245,.0307,.0384,.0478,.0567,.0654,.0762,.0915,.1,.109,.12,.128,
- .112,.111,.116,.119,.113,.103,.0924,.0828,.0757,.0707,.0658,.0556,
- .0477,.0406,.0387,.0382,.0294,.0209,.018,.0191,.0166,.0117,.0077,
- .0061,.0085,.0061,.0037,.0032,.0031,.00255,.00198,.0014,8.25e-4,
- 2.5e-4,0.,0.,0.,5.65e-4,.00204,.00735,.0203,.0498,.118,.246,.518,
- 1.02,1.95,3.79,6.65,12.4,22.,36.7,59.5,85.,126.,168.,206.,242.,
- 271.,291.,302.,303.,294.,277.,254.,226.,196.,168.,144.,117.,97.5,
- 76.5,60.4,46.2,34.6,25.2,20.,15.7,12.,10.,8.8,8.3,8.6 };
- static doublereal cch2o[15] = { 0.,.19,.15,.12,.1,.09,.1,.12,.15,.17,.2,
- .24,.28,.33,0. };
-
- /* Builtin functions */
- double exp(doublereal), sqrt(doublereal);
-
- /* Local variables */
- doublereal a[8], g;
- integer i__, k, n;
- doublereal u, v, y, p0, r2[34], r3[34], t0;
- integer id, nh;
- doublereal ds, te, ud, xd;
- integer iv;
- doublereal rm[34], xh, tp[34], up, xi, tt, ut, uu, tn, ds2, te2, air, phi,
- rat[10], upd, udp;
- integer inu;
- doublereal psi, uud, upl, udt, tnu[30] /* was [10][3] */, upt, utt,
- uut, uuu, ah2o, ako3, r2pl[34], r3pl[34], rmo2, rmo3;
- extern /* Subroutine */ int print_error__(char *, ftnlen);
- doublereal accu, rmco, updp, rmpl[34], udtp, updt, uppl;
- extern /* Subroutine */ int dica2_(doublereal *, integer *), dica3_(
- doublereal *, integer *), dica1_(doublereal *, integer *);
- doublereal uupl, uptt;
- extern /* Subroutine */ int moca1_(doublereal *, integer *), moca2_(
- doublereal *, integer *), moca3_(doublereal *, integer *), moca5_(
- doublereal *, integer *), moca6_(doublereal *, integer *), moca4_(
- doublereal *, integer *);
- doublereal rmch4;
- extern /* Subroutine */ int meth1_(doublereal *, integer *), meth2_(
- doublereal *, integer *), meth3_(doublereal *, integer *), meth4_(
- doublereal *, integer *), meth5_(doublereal *, integer *), meth6_(
- doublereal *, integer *);
- doublereal roco2;
- extern /* Subroutine */ int wava6_(doublereal *, integer *), wava5_(
- doublereal *, integer *), wava4_(doublereal *, integer *), wava3_(
- doublereal *, integer *), wava2_(doublereal *, integer *), wava1_(
- doublereal *, integer *);
- doublereal rmn2o;
- extern /* Subroutine */ int niox1_(doublereal *, integer *), niox2_(
- doublereal *, integer *);
- doublereal test1, test2, test3;
- extern /* Subroutine */ int niox6_(doublereal *, integer *), niox5_(
- doublereal *, integer *), niox4_(doublereal *, integer *), niox3_(
- doublereal *, integer *), ozon1_(doublereal *, integer *), oxyg3_(
- doublereal *, integer *), oxyg4_(doublereal *, integer *), oxyg5_(
- doublereal *, integer *), oxyg6_(doublereal *, integer *);
- integer idgaz;
- doublereal roair, atest, ratpl[10], updtp, ptest, ptest1, dtcont, ttcont,
- utcont;
-
-/* transmittance calculation for ozone, water vapor, */
-/* carbon dioxyde and oxygen. */
-/* downward absorption water vapor dtwava */
-/* downward absorption ozone dtozon */
-/* downward absorption carbon diox dtdica */
-/* downward absorption oxygen dtoxyg */
-/* downward absorption nitrous oxi dtniox */
-/* downward absorption methane dtmeth */
-/* downward absorption carbon mono dtmoca */
-/* upward absorption water vapor utwava */
-/* upward absorption ozone utozon */
-/* upward absorption carbon diox utdica */
-/* upward absorption oxygen utoxyg */
-/* upward absorption nitrous oxi utniox */
-/* upward absorption methane utmeth */
-/* upward absorption carbon mono utmoca */
-/* total(on the two paths ) absorption water vapor ttwava */
-/* total(on the two paths ) absorption ozone ttozon */
-/* total(on the two paths ) absorption carbon diox ttdica */
-/* total(on the two paths ) absorption oxygen ttoxyg */
-/* total absorption nitrous oxi ttniox */
-/* total absorption methane ttmeth */
-/* total absorption carbon mono ttmoca */
-/*< common /sixs_atm/ z(34),p(34),t(34),wh(34),wo(34) >*/
-/*< common /sixs_planesim/ zpl(34),ppl(34),tpl(34),whpl(34),wopl(34) >*/
-/*< real z,p,t,wh,wo >*/
-/*< real zpl,ppl,tpl,whpl,wopl >*/
-/*< integer iv,ivli(6),idatm,idatmp,i,id,idgaz,inu,k,n,nh >*/
-/*< >*/
-/*< real rmpl(34),r2pl(34),r3pl(34),ratpl(10) >*/
-/*< real cch2o(15) >*/
-/*< real wl,xmus,xmuv,uw,uo3,uwus,uo3us,uwpl,uo3pl,uwusp,uo3usp >*/
-/*< real accu,ah2o,xh,dtcont,utcont,ttcont >*/
-/*< double precision ptest1,ptest >*/
-/*< real dtoxyg,dtniox,dtmeth,dtmoca,dtwava,dtozon,dtdica >*/
-/*< real utniox,utdica,utoxyg,utwava,utozon >*/
-/*< real utmeth,utmoca,ttwava,ttozon,ttdica,ttoxyg,ttniox,ttmeth >*/
-/*< real ttmoca >*/
-/*< real p0,g,t0,ds,te,roair,air,roco2,rmo2,rmo3,rmn2o,rmch4 >*/
-/*< real rmco,v,te2,phi,psi,uu,u,up,uud,uut,uuu >*/
-/*< real ud,ut,upd,upt,udp,updp,udtp,updtp >*/
-/*< real ds2,uupl,upl,uppl >*/
-/*< real xi,xd,ako3,test1,test2,test3,udt,atest >*/
-/*< real updt,tt,y,utt,uptt,tn >*/
-
-/*< data(ivli(i),i=1,6)/2500,5060,7620,10180,12740,15300/ >*/
-/*< >*/
-/*< >*/
-/*< accu=1.E-10 >*/
- accu = 1e-10;
-/*< dtwava=1. >*/
- *dtwava = 1.;
-/*< utwava=1. >*/
- *utwava = 1.;
-/*< ttwava=1. >*/
- *ttwava = 1.;
-/*< dtcont=1. >*/
- dtcont = 1.;
-/*< utcont=1. >*/
- utcont = 1.;
-/*< ttcont=1. >*/
- ttcont = 1.;
-/*< dtozon=1. >*/
- *dtozon = 1.;
-/*< utozon=1. >*/
- *utozon = 1.;
-/*< ttozon=1. >*/
- *ttozon = 1.;
-/*< dtdica=1. >*/
- *dtdica = 1.;
-/*< utdica=1. >*/
- *utdica = 1.;
-/*< ttdica=1. >*/
- *ttdica = 1.;
-/*< dtoxyg=1. >*/
- *dtoxyg = 1.;
-/*< utoxyg=1. >*/
- *utoxyg = 1.;
-/*< ttoxyg=1. >*/
- *ttoxyg = 1.;
-/*< dtniox=1. >*/
- *dtniox = 1.;
-/*< utniox=1. >*/
- *utniox = 1.;
-/*< ttniox=1. >*/
- *ttniox = 1.;
-/*< dtmeth=1. >*/
- *dtmeth = 1.;
-/*< utmeth=1. >*/
- *utmeth = 1.;
-/*< ttmeth=1. >*/
- *ttmeth = 1.;
-/*< dtmoca=1. >*/
- *dtmoca = 1.;
-/*< utmoca=1. >*/
- *utmoca = 1.;
-/*< ttmoca=1. >*/
- *ttmoca = 1.;
-/*< do 201 i=1,10 >*/
- for (i__ = 1; i__ <= 10; ++i__) {
-/* orig do 201 i=1,7 */
-/*< rat(i)=1. >*/
- rat[i__ - 1] = 1.;
-/*< tnu(i,1)=1. >*/
- tnu[i__ - 1] = 1.;
-/*< tnu(i,2)=1. >*/
- tnu[i__ + 9] = 1.;
-/*< tnu(i,3)=1. >*/
- tnu[i__ + 19] = 1.;
-/*< 201 continue >*/
-/* L201: */
- }
-/*< if (idatm.eq.0) return >*/
- if (*idatm == 0) {
- return 0;
- }
-/*< if((xmus.eq.0.).or.(xmuv.eq.0.)) goto 95 >*/
- if (*xmus == 0. || *xmuv == 0.) {
- goto L95;
- }
-/* constants determination */
-/*< p0=1013.25 >*/
- p0 = 1013.25;
-/*< g=98.1 >*/
- g = 98.1;
-/*< t0=250. >*/
- t0 = 250.;
-/* volumic mass in kilogrammes per m3 */
-/*< ds=0. >*/
- ds = 0.;
-/*< te=0. >*/
- te = 0.;
-/*< roair=0. >*/
- roair = 0.;
-/*< air=0.028964/0.0224 >*/
- air = 1.2930357142857143;
-/*< roco2=0.044/0.0224 >*/
- roco2 = 1.9642857142857142;
-/*< rmo2=0.032/0.0224 >*/
- rmo2 = 1.4285714285714286;
-/*< rmo3=0.048/0.0224 >*/
- rmo3 = 2.1428571428571428;
-/*< rmn2o=0.044/0.0224 >*/
- rmn2o = 1.9642857142857142;
-/*< rmch4=0.016/0.0224 >*/
- rmch4 = .7142857142857143;
-/*< rmco =0.028/0.0224 >*/
- rmco = 1.25;
-/*< uwus=1.424 >*/
- *uwus = 1.424;
-/*< uo3us=.344 >*/
- *uo3us = .344;
-/*< if(idatm.eq.8) goto 80 >*/
- if (*idatm == 8) {
- goto L80;
- }
-/*< goto 90 >*/
- goto L90;
-/*< 80 rat(1)=uw/uwus >*/
-L80:
- rat[0] = *uw / *uwus;
-/*< rat(2)=1. >*/
- rat[1] = 1.;
-/*< rat(3)=1. >*/
- rat[2] = 1.;
-/*< rat(4)=uo3/uo3us >*/
- rat[3] = *uo3 / *uo3us;
-/*< rat(5)=1. >*/
- rat[4] = 1.;
-/*< rat(6)=1. >*/
- rat[5] = 1.;
-/*< rat(7)=1. >*/
- rat[6] = 1.;
-/*< rat(8)=uw/uwus >*/
- rat[7] = *uw / *uwus;
-/*< rat(9)=uw/uwus >*/
- rat[8] = *uw / *uwus;
-/*< rat(10)=uw/uwus >*/
- rat[9] = *uw / *uwus;
-/*< 90 v=1.0e+04/wl >*/
-L90:
- v = 1e4 / *wl;
-/*< iv=v/5. >*/
- iv = (integer) (v / 5.);
-/*< iv=iv*5 >*/
- iv *= 5;
-/*< id=((iv-2500)/10)/256+1 >*/
- id = (iv - 2500) / 10 / 256 + 1;
-/*< do 40 idgaz=1,7 >*/
- for (idgaz = 1; idgaz <= 7; ++idgaz) {
-
-
-/*< if (id.le.6) inu=(iv-ivli(id))/10+1 >*/
- if (id <= 6) {
- inu = (iv - ivli[id - 1]) / 10 + 1;
- }
-/*< goto(101,102,103,104,105,106),id >*/
- switch (id) {
- case 1: goto L101;
- case 2: goto L102;
- case 3: goto L103;
- case 4: goto L104;
- case 5: goto L105;
- case 6: goto L106;
- }
-/*< goto 270 >*/
- goto L270;
-/*< 106 if(idgaz.eq.1) call wava6(a,inu) >*/
-L106:
- if (idgaz == 1) {
- wava6_(a, &inu);
- }
-/*< if(idgaz.eq.2) goto 270 >*/
- if (idgaz == 2) {
- goto L270;
- }
-/*< if(idgaz.eq.3) call oxyg6(a,inu) >*/
- if (idgaz == 3) {
- oxyg6_(a, &inu);
- }
-/*< if(idgaz.eq.4) goto 270 >*/
- if (idgaz == 4) {
- goto L270;
- }
-/*< if(idgaz.eq.5) call niox6(a,inu) >*/
- if (idgaz == 5) {
- niox6_(a, &inu);
- }
-/*< if(idgaz.eq.6) call meth6(a,inu) >*/
- if (idgaz == 6) {
- meth6_(a, &inu);
- }
-/*< if(idgaz.eq.7) call moca6(a,inu) >*/
- if (idgaz == 7) {
- moca6_(a, &inu);
- }
-/*< goto 271 >*/
- goto L271;
-/*< 105 if(idgaz.eq.1) call wava5(a,inu) >*/
-L105:
- if (idgaz == 1) {
- wava5_(a, &inu);
- }
-/*< if(idgaz.eq.2) goto 270 >*/
- if (idgaz == 2) {
- goto L270;
- }
-/*< if(idgaz.eq.3) call oxyg5(a,inu) >*/
- if (idgaz == 3) {
- oxyg5_(a, &inu);
- }
-/*< if(idgaz.eq.4) goto 270 >*/
- if (idgaz == 4) {
- goto L270;
- }
-/*< if(idgaz.eq.5) call niox5(a,inu) >*/
- if (idgaz == 5) {
- niox5_(a, &inu);
- }
-/*< if(idgaz.eq.6) call meth5(a,inu) >*/
- if (idgaz == 6) {
- meth5_(a, &inu);
- }
-/*< if(idgaz.eq.7) call moca5(a,inu) >*/
- if (idgaz == 7) {
- moca5_(a, &inu);
- }
-/*< goto 271 >*/
- goto L271;
-/*< 104 if(idgaz.eq.1) call wava4(a,inu) >*/
-L104:
- if (idgaz == 1) {
- wava4_(a, &inu);
- }
-/*< if(idgaz.eq.2) goto 270 >*/
- if (idgaz == 2) {
- goto L270;
- }
-/*< if(idgaz.eq.3) call oxyg4(a,inu) >*/
- if (idgaz == 3) {
- oxyg4_(a, &inu);
- }
-/*< if(idgaz.eq.4) goto 270 >*/
- if (idgaz == 4) {
- goto L270;
- }
-/*< if(idgaz.eq.5) call niox4(a,inu) >*/
- if (idgaz == 5) {
- niox4_(a, &inu);
- }
-/*< if(idgaz.eq.6) call meth4(a,inu) >*/
- if (idgaz == 6) {
- meth4_(a, &inu);
- }
-/*< if(idgaz.eq.7) call moca4(a,inu) >*/
- if (idgaz == 7) {
- moca4_(a, &inu);
- }
-/*< goto 271 >*/
- goto L271;
-/*< 103 if(idgaz.eq.1) call wava3(a,inu) >*/
-L103:
- if (idgaz == 1) {
- wava3_(a, &inu);
- }
-/*< if(idgaz.eq.2) call dica3(a,inu) >*/
- if (idgaz == 2) {
- dica3_(a, &inu);
- }
-/*< if(idgaz.eq.3) call oxyg3(a,inu) >*/
- if (idgaz == 3) {
- oxyg3_(a, &inu);
- }
-/*< if(idgaz.eq.4) goto 270 >*/
- if (idgaz == 4) {
- goto L270;
- }
-/*< if(idgaz.eq.5) call niox3(a,inu) >*/
- if (idgaz == 5) {
- niox3_(a, &inu);
- }
-/*< if(idgaz.eq.6) call meth3(a,inu) >*/
- if (idgaz == 6) {
- meth3_(a, &inu);
- }
-/*< if(idgaz.eq.7) call moca3(a,inu) >*/
- if (idgaz == 7) {
- moca3_(a, &inu);
- }
-/*< goto 271 >*/
- goto L271;
-/*< 102 if(idgaz.eq.1) call wava2(a,inu) >*/
-L102:
- if (idgaz == 1) {
- wava2_(a, &inu);
- }
-/*< if(idgaz.eq.2) call dica2(a,inu) >*/
- if (idgaz == 2) {
- dica2_(a, &inu);
- }
-/*< if(idgaz.eq.3) goto 270 >*/
- if (idgaz == 3) {
- goto L270;
- }
-/*< if(idgaz.eq.4) goto 270 >*/
- if (idgaz == 4) {
- goto L270;
- }
-/*< if(idgaz.eq.5) call niox2(a,inu) >*/
- if (idgaz == 5) {
- niox2_(a, &inu);
- }
-/*< if(idgaz.eq.6) call meth2(a,inu) >*/
- if (idgaz == 6) {
- meth2_(a, &inu);
- }
-/*< if(idgaz.eq.7) call moca2(a,inu) >*/
- if (idgaz == 7) {
- moca2_(a, &inu);
- }
-/*< goto 271 >*/
- goto L271;
-/*< 101 if(idgaz.eq.1) call wava1(a,inu) >*/
-L101:
- if (idgaz == 1) {
- wava1_(a, &inu);
- }
-/*< if(idgaz.eq.2) call dica1(a,inu) >*/
- if (idgaz == 2) {
- dica1_(a, &inu);
- }
-/*< if(idgaz.eq.3) goto 270 >*/
- if (idgaz == 3) {
- goto L270;
- }
-/*< if(idgaz.eq.4) call ozon1(a,inu) >*/
- if (idgaz == 4) {
- ozon1_(a, &inu);
- }
-/*< if(idgaz.eq.5) call niox1(a,inu) >*/
- if (idgaz == 5) {
- niox1_(a, &inu);
- }
-/*< if(idgaz.eq.6) call meth1(a,inu) >*/
- if (idgaz == 6) {
- meth1_(a, &inu);
- }
-/*< if(idgaz.eq.7) call moca1(a,inu) >*/
- if (idgaz == 7) {
- moca1_(a, &inu);
- }
-/*< goto 271 >*/
- goto L271;
-/*< 270 do 200 i=1,8 >*/
-L270:
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=0. >*/
- a[i__ - 1] = 0.;
-/*< 200 continue >*/
-/* L200: */
- }
-/*< 271 continue >*/
-L271:
-/* mixing ratio calculation for each gaseous constituents */
-/*< do k=1,33 >*/
- for (k = 1; k <= 33; ++k) {
-/*< roair=air*273.16*p(k)/(1013.25*t(k)) >*/
- roair = air * 273.16 * sixs_atm__1.p[k - 1] / (sixs_atm__1.t[k -
- 1] * 1013.25);
-/*< tp(k)=(t(k)+t(k+1))/2. >*/
- tp[k - 1] = (sixs_atm__1.t[k - 1] + sixs_atm__1.t[k]) / 2.;
-/*< te=tp(k)-t0 >*/
- te = tp[k - 1] - t0;
-/*< te2=te*te >*/
- te2 = te * te;
-/*< phi=exp(a(3)*te+a(4)*te2) >*/
- phi = exp(a[2] * te + a[3] * te2);
-/*< psi=exp(a(5)*te+a(6)*te2) >*/
- psi = exp(a[4] * te + a[5] * te2);
-/*< if(idgaz.eq.1) rm(k)=wh(k)/(roair*1000.) >*/
- if (idgaz == 1) {
- rm[k - 1] = sixs_atm__1.wh[k - 1] / (roair * 1e3);
- }
-/*< if(idgaz.eq.2) rm(k)=3.3e-04*roco2/air >*/
- if (idgaz == 2) {
- rm[k - 1] = roco2 * 3.3e-4 / air;
- }
-/*< if(idgaz.eq.3) rm(k)=0.20947*rmo2/air >*/
- if (idgaz == 3) {
- rm[k - 1] = rmo2 * .20947 / air;
- }
-/*< if(idgaz.eq.4) rm(k)=wo(k)/(roair*1000.) >*/
- if (idgaz == 4) {
- rm[k - 1] = sixs_atm__1.wo[k - 1] / (roair * 1e3);
- }
-/*< if(idgaz.eq.5) rm(k)=310.e-09*rmn2o/air >*/
- if (idgaz == 5) {
- rm[k - 1] = rmn2o * 3.1e-7 / air;
- }
-/*< if(idgaz.eq.6) rm(k)=1.72e-06*rmch4/air >*/
- if (idgaz == 6) {
- rm[k - 1] = rmch4 * 1.72e-6 / air;
- }
-/*< if(idgaz.eq.7) rm(k)=1.00e-09*rmco /air >*/
- if (idgaz == 7) {
- rm[k - 1] = rmco * 1e-9 / air;
- }
-/*< r2(k)=rm(k)*phi >*/
- r2[k - 1] = rm[k - 1] * phi;
-/*< r3(k)=rm(k)*psi >*/
- r3[k - 1] = rm[k - 1] * psi;
-/*< enddo >*/
- }
-
-/*< uu=0. >*/
- uu = 0.;
-/*< u=0. >*/
- u = 0.;
-/*< up=0. >*/
- up = 0.;
-/*< uud=0. >*/
- uud = 0.;
-/*< uut=0. >*/
- uut = 0.;
-/*< uuu=0. >*/
- uuu = 0.;
-/*< ud=0. >*/
- ud = 0.;
-/*< ut=0. >*/
- ut = 0.;
-/*< upd=0. >*/
- upd = 0.;
-/*< upt=0. >*/
- upt = 0.;
-/*< udp=0. >*/
- udp = 0.;
-/*< updp=0. >*/
- updp = 0.;
-/*< udtp=0. >*/
- udtp = 0.;
-/*< updtp=0. >*/
- updtp = 0.;
-/* pressure scale integration sigma=p/p0 */
-/*< do 50 k=2,33 >*/
- for (k = 2; k <= 33; ++k) {
-/*< ds=(p(k-1)-p(k))/p(1) >*/
- ds = (sixs_atm__1.p[k - 2] - sixs_atm__1.p[k - 1]) /
- sixs_atm__1.p[0];
-/*< ds2=(p(k-1)*p(k-1)-p(k)*p(k))/(2.*p(1)*p0) >*/
- ds2 = (sixs_atm__1.p[k - 2] * sixs_atm__1.p[k - 2] -
- sixs_atm__1.p[k - 1] * sixs_atm__1.p[k - 1]) / (
- sixs_atm__1.p[0] * 2. * p0);
-/*< uu=uu+((rm(k)+rm(k-1))/2.)*ds*rat(idgaz) >*/
- uu += (rm[k - 1] + rm[k - 2]) / 2. * ds * rat[idgaz - 1];
-/*< u =u +((r2(k)+r2(k-1))/2.)*ds*rat(idgaz) >*/
- u += (r2[k - 1] + r2[k - 2]) / 2. * ds * rat[idgaz - 1];
-/*< up=up+((r3(k)+r3(k-1))/2.)*ds2*rat(idgaz) >*/
- up += (r3[k - 1] + r3[k - 2]) / 2. * ds2 * rat[idgaz - 1];
-/*< 50 continue >*/
-/* L50: */
- }
-/*< uu=uu*p(1)*100./g >*/
- uu = uu * sixs_atm__1.p[0] * 100. / g;
-/*< u=u*p(1)*100./g >*/
- u = u * sixs_atm__1.p[0] * 100. / g;
-/*< up=up*p(1)*100./g >*/
- up = up * sixs_atm__1.p[0] * 100. / g;
-/*< if(idgaz.eq.4) uu=1000.*uu/rmo3 >*/
- if (idgaz == 4) {
- uu = uu * 1e3 / rmo3;
- }
-/*< if(idgaz.eq.2) uu=1000.*uu/roco2 >*/
- if (idgaz == 2) {
- uu = uu * 1e3 / roco2;
- }
-/*< if(idgaz.eq.5) uu=1000.*uu/rmn2o >*/
- if (idgaz == 5) {
- uu = uu * 1e3 / rmn2o;
- }
-/*< if(idgaz.eq.6) uu=1000.*uu/rmch4 >*/
- if (idgaz == 6) {
- uu = uu * 1e3 / rmch4;
- }
-/*< if(idgaz.eq.7) uu=1000.*uu/rmco >*/
- if (idgaz == 7) {
- uu = uu * 1e3 / rmco;
- }
-/* mixing ratio for plane calculation for each gaseous constituent
-s */
-/*< if ((idatmp.eq.0).or.(idatmp.eq.4)) then >*/
- if (*idatmp == 0 || *idatmp == 4) {
-/*< uupl=uu >*/
- uupl = uu;
-/*< upl=u >*/
- upl = u;
-/*< uppl=up >*/
- uppl = up;
-/*< else >*/
- } else {
-/*< do k=1,33 >*/
- for (k = 1; k <= 33; ++k) {
-/*< roair=air*273.16*ppl(k)/(1013.25*tpl(k)) >*/
- roair = air * 273.16 * sixs_planesim__1.ppl[k - 1] / (
- sixs_planesim__1.tpl[k - 1] * 1013.25);
-/*< tp(k)=(tpl(k)+tpl(k+1))/2. >*/
- tp[k - 1] = (sixs_planesim__1.tpl[k - 1] +
- sixs_planesim__1.tpl[k]) / 2.;
-/*< te=tp(k)-t0 >*/
- te = tp[k - 1] - t0;
-/*< te2=te*te >*/
- te2 = te * te;
-/*< phi=exp(a(3)*te+a(4)*te2) >*/
- phi = exp(a[2] * te + a[3] * te2);
-/*< psi=exp(a(5)*te+a(6)*te2) >*/
- psi = exp(a[4] * te + a[5] * te2);
-/*< if(idgaz.eq.1) rmpl(k)=whpl(k)/(roair*1000.) >*/
- if (idgaz == 1) {
- rmpl[k - 1] = sixs_planesim__1.whpl[k - 1] / (roair * 1e3)
- ;
- }
-/*< if(idgaz.eq.2) rmpl(k)=3.3e-04*roco2/air >*/
- if (idgaz == 2) {
- rmpl[k - 1] = roco2 * 3.3e-4 / air;
- }
-/*< if(idgaz.eq.3) rmpl(k)=0.20947*rmo2/air >*/
- if (idgaz == 3) {
- rmpl[k - 1] = rmo2 * .20947 / air;
- }
-/*< if(idgaz.eq.4) rmpl(k)=wopl(k)/(roair*1000.) >*/
- if (idgaz == 4) {
- rmpl[k - 1] = sixs_planesim__1.wopl[k - 1] / (roair * 1e3)
- ;
- }
-/*< if(idgaz.eq.5) rmpl(k)=310.e-09*rmn2o/air >*/
- if (idgaz == 5) {
- rmpl[k - 1] = rmn2o * 3.1e-7 / air;
- }
-/*< if(idgaz.eq.6) rmpl(k)=1.72e-06*rmch4/air >*/
- if (idgaz == 6) {
- rmpl[k - 1] = rmch4 * 1.72e-6 / air;
- }
-/*< if(idgaz.eq.7) rmpl(k)=1.00e-09*rmco /air >*/
- if (idgaz == 7) {
- rmpl[k - 1] = rmco * 1e-9 / air;
- }
-/*< r2pl(k)=rmpl(k)*phi >*/
- r2pl[k - 1] = rmpl[k - 1] * phi;
-/*< r3pl(k)=rmpl(k)*psi >*/
- r3pl[k - 1] = rmpl[k - 1] * psi;
-/*< enddo >*/
- }
-
-/*< uupl=0. >*/
- uupl = 0.;
-/*< upl=0. >*/
- upl = 0.;
-/*< uppl=0. >*/
- uppl = 0.;
-/* update ratio plane */
-/*< do i=1,10 >*/
- for (i__ = 1; i__ <= 10; ++i__) {
-/*< ratpl(i)=1. >*/
- ratpl[i__ - 1] = 1.;
-/*< enddo >*/
- }
-/*< if (idatmp.eq.8) then >*/
- if (*idatmp == 8) {
-/*< ratpl(1)=uwpl/uwusp >*/
- ratpl[0] = *uwpl / *uwusp;
-/*< ratpl(2)=1. >*/
- ratpl[1] = 1.;
-/*< ratpl(3)=1. >*/
- ratpl[2] = 1.;
-/*< ratpl(4)=uo3pl/uo3usp >*/
- ratpl[3] = *uo3pl / *uo3usp;
-/*< ratpl(5)=1. >*/
- ratpl[4] = 1.;
-/*< ratpl(6)=1. >*/
- ratpl[5] = 1.;
-/*< ratpl(7)=1. >*/
- ratpl[6] = 1.;
-/*< ratpl(8)=uwpl/uwusp >*/
- ratpl[7] = *uwpl / *uwusp;
-/*< ratpl(9)=uwpl/uwusp >*/
- ratpl[8] = *uwpl / *uwusp;
-/*< ratpl(10)=uwpl/uwusp >*/
- ratpl[9] = *uwpl / *uwusp;
-/*< endif >*/
- }
-/* pressure scale integration sigma=p/p0 */
-/* * all gases */
-/*< do k=2,33 >*/
- for (k = 2; k <= 33; ++k) {
-/*< ds=(ppl(k-1)-ppl(k))/ppl(1) >*/
- ds = (sixs_planesim__1.ppl[k - 2] - sixs_planesim__1.ppl[k -
- 1]) / sixs_planesim__1.ppl[0];
-/*< ds2=(ppl(k-1)*ppl(k-1)-ppl(k)*ppl(k))/(2.*ppl(1)*p0) >*/
- ds2 = (sixs_planesim__1.ppl[k - 2] * sixs_planesim__1.ppl[k -
- 2] - sixs_planesim__1.ppl[k - 1] *
- sixs_planesim__1.ppl[k - 1]) / (sixs_planesim__1.ppl[
- 0] * 2. * p0);
-/*< uupl=uupl+((rmpl(k)+rmpl(k-1))/2.)*ds*ratpl(idgaz) >*/
- uupl += (rmpl[k - 1] + rmpl[k - 2]) / 2. * ds * ratpl[idgaz -
- 1];
-/*< upl =upl +((r2pl(k)+r2pl(k-1))/2.)*ds*ratpl(idgaz) >*/
- upl += (r2pl[k - 1] + r2pl[k - 2]) / 2. * ds * ratpl[idgaz -
- 1];
-/*< uppl=uppl+((r3pl(k)+r3pl(k-1))/2.)*ds2*ratpl(idgaz) >*/
- uppl += (r3pl[k - 1] + r3pl[k - 2]) / 2. * ds2 * ratpl[idgaz
- - 1];
-/*< enddo >*/
- }
-/*< uupl=uupl*ppl(1)*100./g >*/
- uupl = uupl * sixs_planesim__1.ppl[0] * 100. / g;
-/*< upl=upl*ppl(1)*100./g >*/
- upl = upl * sixs_planesim__1.ppl[0] * 100. / g;
-/*< uppl=uppl*ppl(1)*100./g >*/
- uppl = uppl * sixs_planesim__1.ppl[0] * 100. / g;
-/*< if(idgaz.eq.4) uupl=1000*uupl/rmo3 >*/
- if (idgaz == 4) {
- uupl = uupl * 1000 / rmo3;
- }
-/*< if(idgaz.eq.2) uupl=1000*uupl/roco2 >*/
- if (idgaz == 2) {
- uupl = uupl * 1000 / roco2;
- }
-/*< if(idgaz.eq.5) uupl=1000*uupl/rmn2o >*/
- if (idgaz == 5) {
- uupl = uupl * 1000 / rmn2o;
- }
-/*< if(idgaz.eq.6) uupl=1000*uupl/rmch4 >*/
- if (idgaz == 6) {
- uupl = uupl * 1000 / rmch4;
- }
-/*< if(idgaz.eq.7) uupl=1000*uupl/rmco >*/
- if (idgaz == 7) {
- uupl = uupl * 1000 / rmco;
- }
-/* endif test idatm =0,4 */
-/*< endif >*/
- }
-/* downward path */
-/*< uud=uu/xmus >*/
- uud = uu / *xmus;
-/* upward path */
-/*< uuu=uupl/xmuv >*/
- uuu = uupl / *xmuv;
-/* total(down+up) path */
-/*< uut=uu/xmus+uupl/xmuv >*/
- uut = uu / *xmus + uupl / *xmuv;
-/*< if(idgaz.eq.1) goto 146 >*/
- if (idgaz == 1) {
- goto L146;
- }
-/*< if(idgaz.eq.2.and.iv.gt.9620) goto 147 >*/
- if (idgaz == 2 && iv > 9620) {
- goto L147;
- }
-/*< if(idgaz.eq.3.and.iv.gt.15920) goto 147 >*/
- if (idgaz == 3 && iv > 15920) {
- goto L147;
- }
-/*< if(idgaz.eq.4) goto 146 >*/
- if (idgaz == 4) {
- goto L146;
- }
-/*< goto 145 >*/
- goto L145;
-/*< 146 xi=0. >*/
-L146:
- xi = 0.;
-/*< n=0 >*/
- n = 0;
-/*< xd=0. >*/
- xd = 0.;
-/*< if(iv.lt.2350.or.iv.gt.3000) goto 148 >*/
- if (iv < 2350 || iv > 3000) {
- goto L148;
- }
-/*< xi=(v-2350.)/50.+1. >*/
- xi = (v - 2350.) / 50. + 1.;
-/*< NH=XI+1.001 >*/
- nh = (integer) (xi + 1.001);
-/*< XH=XI-FLOAT(NH) >*/
- xh = xi - (doublereal) nh;
-/*< AH2O=CCH2O(NH)+XH*(CCH2O(NH)-CCH2O(NH-1)) >*/
- ah2o = cch2o[nh - 1] + xh * (cch2o[nh - 1] - cch2o[nh - 2]);
-/*< DTCONT=EXP(-AH2O*UUD) >*/
- dtcont = exp(-ah2o * uud);
-/*< UTCONT=EXP(-AH2O*UUU) >*/
- utcont = exp(-ah2o * uuu);
-/*< TTCONT=EXP(-AH2O*UUT) >*/
- ttcont = exp(-ah2o * uut);
-/*< 148 if (idgaz.eq.1) goto 145 >*/
-L148:
- if (idgaz == 1) {
- goto L145;
- }
-/*< if(iv.lt.13000) goto 145 >*/
- if (iv < 13000) {
- goto L145;
- }
-/*< if(iv.le.23400) goto 130 >*/
- if (iv <= 23400) {
- goto L130;
- }
-/*< if(iv.ge.27500) goto 135 >*/
- if (iv >= 27500) {
- goto L135;
- }
-/*< tnu(4,1)=1. >*/
- tnu[3] = 1.;
-/*< tnu(4,2)=1. >*/
- tnu[13] = 1.;
-/*< tnu(4,3)=1. >*/
- tnu[23] = 1.;
-/*< goto 45 >*/
- goto L45;
-/*< 130 xi=(v-13000.)/200.+1. >*/
-L130:
- xi = (v - 1.3e4) / 200. + 1.;
-/*< goto 140 >*/
- goto L140;
-/*< 135 xi=(v-27500.)/500.+57. >*/
-L135:
- xi = (v - 27500.) / 500. + 57.;
-/*< 140 n=xi+1.001 >*/
-L140:
- n = (integer) (xi + 1.001);
-/*< xd=xi-float(n) >*/
- xd = xi - (doublereal) n;
-/*< ako3=co3(n)+xd*(co3(n)-co3(n-1)) >*/
- ako3 = co3[n - 1] + xd * (co3[n - 1] - co3[n - 2]);
-/*< test1=ako3*uud >*/
- test1 = ako3 * uud;
-/*< test2=ako3*uuu >*/
- test2 = ako3 * uuu;
-/*< test3=ako3*uut >*/
- test3 = ako3 * uut;
-/* exponential overflow test */
-/*< if(test1.gt.86.0) test1=86.0 >*/
- if (test1 > 86.) {
- test1 = 86.;
- }
-/*< if(test2.gt.86.0) test2=86.0 >*/
- if (test2 > 86.) {
- test2 = 86.;
- }
-/*< if(test3.gt.86.0) test3=86.0 >*/
- if (test3 > 86.) {
- test3 = 86.;
- }
-/*< tnu(4,1)=exp(-test1) >*/
- tnu[3] = exp(-test1);
-/*< tnu(4,2)=exp(-test2) >*/
- tnu[13] = exp(-test2);
-/*< tnu(4,3)=exp(-test3) >*/
- tnu[23] = exp(-test3);
-/*< goto 40 >*/
- goto L40;
-/*< 145 continue >*/
-L145:
-/*< if(idgaz.eq.4.and.iv.gt.3020) goto 147 >*/
- if (idgaz == 4 && iv > 3020) {
- goto L147;
- }
-
-/* downward path */
-
-/*< ud=u/xmus >*/
- ud = u / *xmus;
-/*< upd=up/xmus >*/
- upd = up / *xmus;
-/*< udt=ud >*/
- udt = ud;
-/*< if(ud.eq.0.and.upd.eq.0.) udt=1. >*/
- if (ud == 0. && upd == 0.) {
- udt = 1.;
- }
-/*< tn=a(2)*upd/(2*udt) >*/
- tn = a[1] * upd / (udt * 2);
-/*< atest=a(2) >*/
- atest = a[1];
-/*< if (a(2).eq.0.and.a(1).eq.0.) atest=1. >*/
- if (a[1] == 0. && a[0] == 0.) {
- atest = 1.;
- }
-/*< updt=upd >*/
- updt = upd;
-/*< if(ud.eq.0.and.upd.eq.0.) updt=1. >*/
- if (ud == 0. && upd == 0.) {
- updt = 1.;
- }
-/*< tt=1+4*(a(1)/atest)*((ud*ud)/updt) >*/
- tt = a[0] / atest * 4 * (ud * ud / updt) + 1;
-/*< y=-tn*(sqrt(tt)-1) >*/
- y = -tn * (sqrt(tt) - 1);
-/*< if(idgaz.eq.1) y=-a(1)*ud/sqrt(1+(a(1)/atest)*(ud*ud/updt)) >*/
- if (idgaz == 1) {
- y = -a[0] * ud / sqrt(a[0] / atest * (ud * ud / updt) + 1);
- }
-/*< tnu(idgaz,1)=exp(y) >*/
- tnu[idgaz - 1] = exp(y);
-
-/* upward path modified to take account for plane content */
-
-/*< udp=upl/xmuv >*/
- udp = upl / *xmuv;
-/*< updp=uppl/xmuv >*/
- updp = uppl / *xmuv;
-/*< udtp=udp >*/
- udtp = udp;
-/*< if(udp.eq.0.and.updp.eq.0.) udtp=1. >*/
- if (udp == 0. && updp == 0.) {
- udtp = 1.;
- }
-/*< tn=a(2)*updp/(2*udtp) >*/
- tn = a[1] * updp / (udtp * 2);
-/*< atest=a(2) >*/
- atest = a[1];
-/*< if (a(2).eq.0.and.a(1).eq.0.) atest=1. >*/
- if (a[1] == 0. && a[0] == 0.) {
- atest = 1.;
- }
-/*< updtp=updp >*/
- updtp = updp;
-/*< if(udp.eq.0.and.updp.eq.0.) updtp=1. >*/
- if (udp == 0. && updp == 0.) {
- updtp = 1.;
- }
-/*< tt=1+4*(a(1)/atest)*((udp*udp)/updtp) >*/
- tt = a[0] / atest * 4 * (udp * udp / updtp) + 1;
-/*< y=-tn*(sqrt(tt)-1) >*/
- y = -tn * (sqrt(tt) - 1);
-/*< if(idgaz.eq.1) y=-a(1)*udp/sqrt(1+(a(1)/atest)*(udp*udp/updtp)) >*/
- if (idgaz == 1) {
- y = -a[0] * udp / sqrt(a[0] / atest * (udp * udp / updtp) + 1);
- }
-/*< tnu(idgaz,2)=exp(y) >*/
- tnu[idgaz + 9] = exp(y);
-
-/* total(down+up) path modified on the way up */
-
-/*< ut=u/xmus+upl/xmuv >*/
- ut = u / *xmus + upl / *xmuv;
-/*< upt=up/xmus+uppl/xmuv >*/
- upt = up / *xmus + uppl / *xmuv;
-/*< utt=ut >*/
- utt = ut;
-/*< if(ut.eq.0.and.upt.eq.0.) utt=1. >*/
- if (ut == 0. && upt == 0.) {
- utt = 1.;
- }
-/*< tn=a(2)*upt/(2*utt) >*/
- tn = a[1] * upt / (utt * 2);
-/*< uptt=upt >*/
- uptt = upt;
-/*< if(ut.eq.0.and.upt.eq.0.) uptt=1. >*/
- if (ut == 0. && upt == 0.) {
- uptt = 1.;
- }
-/*< tt=1+4*(a(1)/atest)*((ut*ut)/uptt) >*/
- tt = a[0] / atest * 4 * (ut * ut / uptt) + 1;
-/*< y=-tn*(sqrt(tt)-1) >*/
- y = -tn * (sqrt(tt) - 1);
-/*< if(idgaz.eq.1) y=-a(1)*ut/sqrt(1+(a(1)/atest)*(ut*ut/uptt)) >*/
- if (idgaz == 1) {
- y = -a[0] * ut / sqrt(a[0] / atest * (ut * ut / uptt) + 1);
- }
-/*< tnu(idgaz,3)=exp(y) >*/
- tnu[idgaz + 19] = exp(y);
-/*< goto 40 >*/
- goto L40;
-/*< 147 tnu(idgaz,1)=1. >*/
-L147:
- tnu[idgaz - 1] = 1.;
-/*< tnu(idgaz,2)=1. >*/
- tnu[idgaz + 9] = 1.;
-/*< tnu(idgaz,3)=1. >*/
- tnu[idgaz + 19] = 1.;
-/*< 40 continue >*/
-L40:
- ;
- }
-
-/*< 45 ptest1=tnu(1,1)*dtcont >*/
-L45:
- ptest1 = tnu[0] * dtcont;
-/*< ptest=ptest1 >*/
- ptest = ptest1;
-/*< if (ptest.gt.accu) then >*/
- if (ptest > accu) {
-/*< dtwava=ptest >*/
- *dtwava = ptest;
-/*< else >*/
- } else {
-/*< dtwava=0. >*/
- *dtwava = 0.;
-/*< endif >*/
- }
-/*< ptest1=tnu(1,2)*utcont >*/
- ptest1 = tnu[10] * utcont;
-/*< ptest=ptest1 >*/
- ptest = ptest1;
-/*< if (ptest.gt.accu) then >*/
- if (ptest > accu) {
-/*< utwava=ptest >*/
- *utwava = ptest;
-/*< else >*/
- } else {
-/*< utwava=0. >*/
- *utwava = 0.;
-/*< endif >*/
- }
-/*< ptest1=tnu(1,3)*ttcont >*/
- ptest1 = tnu[20] * ttcont;
-/*< ptest=ptest1 >*/
- ptest = ptest1;
-/*< if (ptest.gt.accu) then >*/
- if (ptest > accu) {
-/*< ttwava=ptest >*/
- *ttwava = ptest;
-/*< else >*/
- } else {
-/*< ttwava=0. >*/
- *ttwava = 0.;
-/*< endif >*/
- }
-/*< dtdica=tnu(2,1) >*/
- *dtdica = tnu[1];
-/*< utdica=tnu(2,2) >*/
- *utdica = tnu[11];
-/*< ttdica=tnu(2,3) >*/
- *ttdica = tnu[21];
-/*< dtoxyg=tnu(3,1) >*/
- *dtoxyg = tnu[2];
-/*< utoxyg=tnu(3,2) >*/
- *utoxyg = tnu[12];
-/*< ttoxyg=tnu(3,3) >*/
- *ttoxyg = tnu[22];
-/*< dtozon=tnu(4,1) >*/
- *dtozon = tnu[3];
-/*< utozon=tnu(4,2) >*/
- *utozon = tnu[13];
-/*< ttozon=tnu(4,3) >*/
- *ttozon = tnu[23];
-/*< dtniox=tnu(5,1) >*/
- *dtniox = tnu[4];
-/*< utniox=tnu(5,2) >*/
- *utniox = tnu[14];
-/*< ttniox=tnu(5,3) >*/
- *ttniox = tnu[24];
-/*< dtmeth=tnu(6,1) >*/
- *dtmeth = tnu[5];
-/*< utmeth=tnu(6,2) >*/
- *utmeth = tnu[15];
-/*< ttmeth=tnu(6,3) >*/
- *ttmeth = tnu[25];
-/*< dtmoca=tnu(7,1) >*/
- *dtmoca = tnu[6];
-/*< utmoca=tnu(7,2) >*/
- *utmoca = tnu[16];
-/*< ttmoca=tnu(7,3) >*/
- *ttmoca = tnu[26];
-/*< if (idatmp.eq.0) then >*/
- if (*idatmp == 0) {
-/*< ttwava=dtwava >*/
- *ttwava = *dtwava;
-/*< utwava=1. >*/
- *utwava = 1.;
-/*< ttdica=dtdica >*/
- *ttdica = *dtdica;
-/*< utdica=1. >*/
- *utdica = 1.;
-/*< ttoxyg=dtoxyg >*/
- *ttoxyg = *dtoxyg;
-/*< utoxyg=1. >*/
- *utoxyg = 1.;
-/*< ttozon=dtozon >*/
- *ttozon = *dtozon;
-/*< utozon=1. >*/
- *utozon = 1.;
-/*< ttniox=dtniox >*/
- *ttniox = *dtniox;
-/*< utniox=1. >*/
- *utniox = 1.;
-/*< ttmeth=dtmeth >*/
- *ttmeth = *dtmeth;
-/*< utmeth=1. >*/
- *utmeth = 1.;
-/*< ttmoca=dtmoca >*/
- *ttmoca = *dtmoca;
-/*< utmoca=1. >*/
- *utmoca = 1.;
-/*< endif >*/
- }
-/*< return >*/
- return 0;
-/*< >*/
-L95:
- print_error__("Error on zenithal angle ( near 90 deg )", 39L);
-/*< return >*/
- return 0;
-/*< end >*/
-} /* abstra_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.f b/Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.f
deleted file mode 100644
index 1ac275e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.f
+++ /dev/null
@@ -1,495 +0,0 @@
- subroutine abstra (idatm,wl,xmus,xmuv,uw,uo3,uwus,uo3us,
- a idatmp,uwpl,uo3pl,uwusp,uo3usp,
- a dtwava,dtozon,dtdica,dtoxyg,dtniox,dtmeth,dtmoca,
- a utwava,utozon,utdica,utoxyg,utniox,utmeth,utmoca,
- a ttwava,ttozon,ttdica,ttoxyg,ttniox,ttmeth,ttmoca )
-
-c transmittance calculation for ozone, water vapor,
-c carbon dioxyde and oxygen.
-
-c downward absorption water vapor dtwava
-c downward absorption ozone dtozon
-c downward absorption carbon diox dtdica
-c downward absorption oxygen dtoxyg
-c downward absorption nitrous oxi dtniox
-c downward absorption methane dtmeth
-c downward absorption carbon mono dtmoca
-c upward absorption water vapor utwava
-c upward absorption ozone utozon
-c upward absorption carbon diox utdica
-c upward absorption oxygen utoxyg
-c upward absorption nitrous oxi utniox
-c upward absorption methane utmeth
-c upward absorption carbon mono utmoca
-c total(on the two paths ) absorption water vapor ttwava
-c total(on the two paths ) absorption ozone ttozon
-c total(on the two paths ) absorption carbon diox ttdica
-c total(on the two paths ) absorption oxygen ttoxyg
-c total absorption nitrous oxi ttniox
-c total absorption methane ttmeth
-c total absorption carbon mono ttmoca
-
- common /sixs_atm/ z(34),p(34),t(34),wh(34),wo(34)
- common /sixs_planesim/ zpl(34),ppl(34),tpl(34),whpl(34),wopl(34)
- real z,p,t,wh,wo
- real zpl,ppl,tpl,whpl,wopl
- integer iv,ivli(6),idatm,idatmp,i,id,idgaz,inu,k,n,nh
- real co3(102),tnu(10,3),
- a a(8),rm(34),r2(34),r3(34),tp(34),rat(10)
- real rmpl(34),r2pl(34),r3pl(34),ratpl(10)
- real cch2o(15)
- real wl,xmus,xmuv,uw,uo3,uwus,uo3us,uwpl,uo3pl,uwusp,uo3usp
- real accu,ah2o,xh,dtcont,utcont,ttcont
- double precision ptest1,ptest
- real dtoxyg,dtniox,dtmeth,dtmoca,dtwava,dtozon,dtdica
- real utniox,utdica,utoxyg,utwava,utozon
- real utmeth,utmoca,ttwava,ttozon,ttdica,ttoxyg,ttniox,ttmeth
- real ttmoca
- real p0,g,t0,ds,te,roair,air,roco2,rmo2,rmo3,rmn2o,rmch4
- real rmco,v,te2,phi,psi,uu,u,up,uud,uut,uuu
- real ud,ut,upd,upt,udp,updp,udtp,updtp
- real ds2,uupl,upl,uppl
- real xi,xd,ako3,test1,test2,test3,udt,atest
- real updt,tt,y,utt,uptt,tn
-C
- data(ivli(i),i=1,6)/2500,5060,7620,10180,12740,15300/
- data(co3(i),i= 1, 102)/
- a 4.50e-03, 8.00e-03, 1.07e-02, 1.10e-02, 1.27e-02, 1.71e-02,
- a 2.00e-02, 2.45e-02, 3.07e-02, 3.84e-02, 4.78e-02, 5.67e-02,
- a 6.54e-02, 7.62e-02, 9.15e-02, 1.00e-01, 1.09e-01, 1.20e-01,
- a 1.28e-01, 1.12e-01, 1.11e-01, 1.16e-01, 1.19e-01, 1.13e-01,
- a 1.03e-01, 9.24e-02, 8.28e-02, 7.57e-02, 7.07e-02, 6.58e-02,
- a 5.56e-02, 4.77e-02, 4.06e-02, 3.87e-02, 3.82e-02, 2.94e-02,
- a 2.09e-02, 1.80e-02, 1.91e-02, 1.66e-02, 1.17e-02, 7.70e-03,
- a 6.10e-03, 8.50e-03, 6.10e-03, 3.70e-03, 3.20e-03, 3.10e-03,
- a 2.55e-03, 1.98e-03, 1.40e-03, 8.25e-04, 2.50e-04, 0. ,
- a 0. , 0. , 5.65e-04, 2.04e-03, 7.35e-03, 2.03e-02,
- a 4.98e-02, 1.18e-01, 2.46e-01, 5.18e-01, 1.02e+00, 1.95e+00,
- a 3.79e+00, 6.65e+00, 1.24e+01, 2.20e+01, 3.67e+01, 5.95e+01,
- a 8.50e+01, 1.26e+02, 1.68e+02, 2.06e+02, 2.42e+02, 2.71e+02,
- a 2.91e+02, 3.02e+02, 3.03e+02, 2.94e+02, 2.77e+02, 2.54e+02,
- a 2.26e+02, 1.96e+02, 1.68e+02, 1.44e+02, 1.17e+02, 9.75e+01,
- a 7.65e+01, 6.04e+01, 4.62e+01, 3.46e+01, 2.52e+01, 2.00e+01,
- a 1.57e+01, 1.20e+01, 1.00e+01, 8.80e+00, 8.30e+00, 8.60e+00/
-
- DATA (CCH2O(I),I=1,15)/
- a 0.00,0.19,0.15,0.12,0.10,0.09,0.10,0.12,0.15,0.17,0.20,0.24,
- a 0.28,0.33,0.00/
-
- accu=1.E-10
- dtwava=1.
- utwava=1.
- ttwava=1.
- dtcont=1.
- utcont=1.
- ttcont=1.
- dtozon=1.
- utozon=1.
- ttozon=1.
- dtdica=1.
- utdica=1.
- ttdica=1.
- dtoxyg=1.
- utoxyg=1.
- ttoxyg=1.
- dtniox=1.
- utniox=1.
- ttniox=1.
- dtmeth=1.
- utmeth=1.
- ttmeth=1.
- dtmoca=1.
- utmoca=1.
- ttmoca=1.
- do 201 i=1,10
-corig do 201 i=1,7
- rat(i)=1.
- tnu(i,1)=1.
- tnu(i,2)=1.
- tnu(i,3)=1.
- 201 continue
-
- if (idatm.eq.0) return
- if((xmus.eq.0.).or.(xmuv.eq.0.)) goto 95
-
-
-c constants determination
-
- p0=1013.25
- g=98.1
- t0=250.
-
-c volumic mass in kilogrammes per m3
-
- ds=0.
- te=0.
- roair=0.
- air=0.028964/0.0224
- roco2=0.044/0.0224
- rmo2=0.032/0.0224
- rmo3=0.048/0.0224
- rmn2o=0.044/0.0224
- rmch4=0.016/0.0224
- rmco =0.028/0.0224
- uwus=1.424
- uo3us=.344
-
- if(idatm.eq.8) goto 80
- goto 90
- 80 rat(1)=uw/uwus
- rat(2)=1.
- rat(3)=1.
- rat(4)=uo3/uo3us
- rat(5)=1.
- rat(6)=1.
- rat(7)=1.
- rat(8)=uw/uwus
- rat(9)=uw/uwus
- rat(10)=uw/uwus
-
- 90 v=1.0e+04/wl
- iv=v/5.
- iv=iv*5
- id=((iv-2500)/10)/256+1
- do 40 idgaz=1,7
-c
-c
- if (id.le.6) inu=(iv-ivli(id))/10+1
- goto(101,102,103,104,105,106),id
- goto 270
- 106 if(idgaz.eq.1) call wava6(a,inu)
- if(idgaz.eq.2) goto 270
- if(idgaz.eq.3) call oxyg6(a,inu)
- if(idgaz.eq.4) goto 270
- if(idgaz.eq.5) call niox6(a,inu)
- if(idgaz.eq.6) call meth6(a,inu)
- if(idgaz.eq.7) call moca6(a,inu)
- goto 271
- 105 if(idgaz.eq.1) call wava5(a,inu)
- if(idgaz.eq.2) goto 270
- if(idgaz.eq.3) call oxyg5(a,inu)
- if(idgaz.eq.4) goto 270
- if(idgaz.eq.5) call niox5(a,inu)
- if(idgaz.eq.6) call meth5(a,inu)
- if(idgaz.eq.7) call moca5(a,inu)
- goto 271
- 104 if(idgaz.eq.1) call wava4(a,inu)
- if(idgaz.eq.2) goto 270
- if(idgaz.eq.3) call oxyg4(a,inu)
- if(idgaz.eq.4) goto 270
- if(idgaz.eq.5) call niox4(a,inu)
- if(idgaz.eq.6) call meth4(a,inu)
- if(idgaz.eq.7) call moca4(a,inu)
- goto 271
- 103 if(idgaz.eq.1) call wava3(a,inu)
- if(idgaz.eq.2) call dica3(a,inu)
- if(idgaz.eq.3) call oxyg3(a,inu)
- if(idgaz.eq.4) goto 270
- if(idgaz.eq.5) call niox3(a,inu)
- if(idgaz.eq.6) call meth3(a,inu)
- if(idgaz.eq.7) call moca3(a,inu)
- goto 271
- 102 if(idgaz.eq.1) call wava2(a,inu)
- if(idgaz.eq.2) call dica2(a,inu)
- if(idgaz.eq.3) goto 270
- if(idgaz.eq.4) goto 270
- if(idgaz.eq.5) call niox2(a,inu)
- if(idgaz.eq.6) call meth2(a,inu)
- if(idgaz.eq.7) call moca2(a,inu)
- goto 271
- 101 if(idgaz.eq.1) call wava1(a,inu)
- if(idgaz.eq.2) call dica1(a,inu)
- if(idgaz.eq.3) goto 270
- if(idgaz.eq.4) call ozon1(a,inu)
- if(idgaz.eq.5) call niox1(a,inu)
- if(idgaz.eq.6) call meth1(a,inu)
- if(idgaz.eq.7) call moca1(a,inu)
- goto 271
- 270 do 200 i=1,8
- a(i)=0.
- 200 continue
- 271 continue
-
-c mixing ratio calculation for each gaseous constituents
- do k=1,33
- roair=air*273.16*p(k)/(1013.25*t(k))
- tp(k)=(t(k)+t(k+1))/2.
- te=tp(k)-t0
- te2=te*te
- phi=exp(a(3)*te+a(4)*te2)
- psi=exp(a(5)*te+a(6)*te2)
- if(idgaz.eq.1) rm(k)=wh(k)/(roair*1000.)
- if(idgaz.eq.2) rm(k)=3.3e-04*roco2/air
- if(idgaz.eq.3) rm(k)=0.20947*rmo2/air
- if(idgaz.eq.4) rm(k)=wo(k)/(roair*1000.)
- if(idgaz.eq.5) rm(k)=310.e-09*rmn2o/air
- if(idgaz.eq.6) rm(k)=1.72e-06*rmch4/air
- if(idgaz.eq.7) rm(k)=1.00e-09*rmco /air
- r2(k)=rm(k)*phi
- r3(k)=rm(k)*psi
- enddo
-c
- uu=0.
- u=0.
- up=0.
- uud=0.
- uut=0.
- uuu=0.
- ud=0.
- ut=0.
- upd=0.
- upt=0.
- udp=0.
- updp=0.
- udtp=0.
- updtp=0.
-
-c pressure scale integration sigma=p/p0
-
- do 50 k=2,33
- ds=(p(k-1)-p(k))/p(1)
- ds2=(p(k-1)*p(k-1)-p(k)*p(k))/(2.*p(1)*p0)
- uu=uu+((rm(k)+rm(k-1))/2.)*ds*rat(idgaz)
- u =u +((r2(k)+r2(k-1))/2.)*ds*rat(idgaz)
- up=up+((r3(k)+r3(k-1))/2.)*ds2*rat(idgaz)
- 50 continue
- uu=uu*p(1)*100./g
- u=u*p(1)*100./g
- up=up*p(1)*100./g
-
- if(idgaz.eq.4) uu=1000.*uu/rmo3
- if(idgaz.eq.2) uu=1000.*uu/roco2
- if(idgaz.eq.5) uu=1000.*uu/rmn2o
- if(idgaz.eq.6) uu=1000.*uu/rmch4
- if(idgaz.eq.7) uu=1000.*uu/rmco
-
-c mixing ratio for plane calculation for each gaseous constituents
- if ((idatmp.eq.0).or.(idatmp.eq.4)) then
- uupl=uu
- upl=u
- uppl=up
- else
- do k=1,33
- roair=air*273.16*ppl(k)/(1013.25*tpl(k))
- tp(k)=(tpl(k)+tpl(k+1))/2.
- te=tp(k)-t0
- te2=te*te
- phi=exp(a(3)*te+a(4)*te2)
- psi=exp(a(5)*te+a(6)*te2)
- if(idgaz.eq.1) rmpl(k)=whpl(k)/(roair*1000.)
- if(idgaz.eq.2) rmpl(k)=3.3e-04*roco2/air
- if(idgaz.eq.3) rmpl(k)=0.20947*rmo2/air
- if(idgaz.eq.4) rmpl(k)=wopl(k)/(roair*1000.)
- if(idgaz.eq.5) rmpl(k)=310.e-09*rmn2o/air
- if(idgaz.eq.6) rmpl(k)=1.72e-06*rmch4/air
- if(idgaz.eq.7) rmpl(k)=1.00e-09*rmco /air
- r2pl(k)=rmpl(k)*phi
- r3pl(k)=rmpl(k)*psi
- enddo
-c
- uupl=0.
- upl=0.
- uppl=0.
-c update ratio plane
- do i=1,10
- ratpl(i)=1.
- enddo
- if (idatmp.eq.8) then
- ratpl(1)=uwpl/uwusp
- ratpl(2)=1.
- ratpl(3)=1.
- ratpl(4)=uo3pl/uo3usp
- ratpl(5)=1.
- ratpl(6)=1.
- ratpl(7)=1.
- ratpl(8)=uwpl/uwusp
- ratpl(9)=uwpl/uwusp
- ratpl(10)=uwpl/uwusp
- endif
-c pressure scale integration sigma=p/p0
-
-c* all gases
- do k=2,33
- ds=(ppl(k-1)-ppl(k))/ppl(1)
- ds2=(ppl(k-1)*ppl(k-1)-ppl(k)*ppl(k))/(2.*ppl(1)*p0)
- uupl=uupl+((rmpl(k)+rmpl(k-1))/2.)*ds*ratpl(idgaz)
- upl =upl +((r2pl(k)+r2pl(k-1))/2.)*ds*ratpl(idgaz)
- uppl=uppl+((r3pl(k)+r3pl(k-1))/2.)*ds2*ratpl(idgaz)
- enddo
- uupl=uupl*ppl(1)*100./g
- upl=upl*ppl(1)*100./g
- uppl=uppl*ppl(1)*100./g
-
- if(idgaz.eq.4) uupl=1000*uupl/rmo3
- if(idgaz.eq.2) uupl=1000*uupl/roco2
- if(idgaz.eq.5) uupl=1000*uupl/rmn2o
- if(idgaz.eq.6) uupl=1000*uupl/rmch4
- if(idgaz.eq.7) uupl=1000*uupl/rmco
-c endif test idatm =0,4
- endif
-
-c downward path
- uud=uu/xmus
-c upward path
- uuu=uupl/xmuv
-c total(down+up) path
- uut=uu/xmus+uupl/xmuv
-
- if(idgaz.eq.1) goto 146
- if(idgaz.eq.2.and.iv.gt.9620) goto 147
- if(idgaz.eq.3.and.iv.gt.15920) goto 147
- if(idgaz.eq.4) goto 146
- goto 145
- 146 xi=0.
- n=0
- xd=0.
- if(iv.lt.2350.or.iv.gt.3000) goto 148
- xi=(v-2350.)/50.+1.
- NH=XI+1.001
- XH=XI-FLOAT(NH)
- AH2O=CCH2O(NH)+XH*(CCH2O(NH)-CCH2O(NH-1))
- DTCONT=EXP(-AH2O*UUD)
- UTCONT=EXP(-AH2O*UUU)
- TTCONT=EXP(-AH2O*UUT)
- 148 if (idgaz.eq.1) goto 145
- if(iv.lt.13000) goto 145
- if(iv.le.23400) goto 130
- if(iv.ge.27500) goto 135
- tnu(4,1)=1.
- tnu(4,2)=1.
- tnu(4,3)=1.
- goto 45
- 130 xi=(v-13000.)/200.+1.
- goto 140
- 135 xi=(v-27500.)/500.+57.
- 140 n=xi+1.001
- xd=xi-float(n)
- ako3=co3(n)+xd*(co3(n)-co3(n-1))
- test1=ako3*uud
- test2=ako3*uuu
- test3=ako3*uut
-
-c exponential overflow test
-
- if(test1.gt.86.0) test1=86.0
- if(test2.gt.86.0) test2=86.0
- if(test3.gt.86.0) test3=86.0
-
- tnu(4,1)=exp(-test1)
- tnu(4,2)=exp(-test2)
- tnu(4,3)=exp(-test3)
- goto 40
- 145 continue
- if(idgaz.eq.4.and.iv.gt.3020) goto 147
-c
-c downward path
-c
- ud=u/xmus
- upd=up/xmus
- udt=ud
- if(ud.eq.0.and.upd.eq.0.) udt=1.
- tn=a(2)*upd/(2*udt)
- atest=a(2)
- if (a(2).eq.0.and.a(1).eq.0.) atest=1.
- updt=upd
- if(ud.eq.0.and.upd.eq.0.) updt=1.
- tt=1+4*(a(1)/atest)*((ud*ud)/updt)
- y=-tn*(sqrt(tt)-1)
- if(idgaz.eq.1) y=-a(1)*ud/sqrt(1+(a(1)/atest)*(ud*ud/updt))
- tnu(idgaz,1)=exp(y)
-c
-c upward path modified to take account for plane content
-c
- udp=upl/xmuv
- updp=uppl/xmuv
- udtp=udp
- if(udp.eq.0.and.updp.eq.0.) udtp=1.
- tn=a(2)*updp/(2*udtp)
- atest=a(2)
- if (a(2).eq.0.and.a(1).eq.0.) atest=1.
- updtp=updp
- if(udp.eq.0.and.updp.eq.0.) updtp=1.
- tt=1+4*(a(1)/atest)*((udp*udp)/updtp)
- y=-tn*(sqrt(tt)-1)
- if(idgaz.eq.1) y=-a(1)*udp/sqrt(1+(a(1)/atest)*(udp*udp/updtp))
- tnu(idgaz,2)=exp(y)
-c
-c total(down+up) path modified on the way up
-c
- ut=u/xmus+upl/xmuv
- upt=up/xmus+uppl/xmuv
- utt=ut
- if(ut.eq.0.and.upt.eq.0.) utt=1.
- tn=a(2)*upt/(2*utt)
- uptt=upt
- if(ut.eq.0.and.upt.eq.0.) uptt=1.
- tt=1+4*(a(1)/atest)*((ut*ut)/uptt)
- y=-tn*(sqrt(tt)-1)
- if(idgaz.eq.1) y=-a(1)*ut/sqrt(1+(a(1)/atest)*(ut*ut/uptt))
- tnu(idgaz,3)=exp(y)
- goto 40
- 147 tnu(idgaz,1)=1.
- tnu(idgaz,2)=1.
- tnu(idgaz,3)=1.
- 40 continue
-C
- 45 ptest1=tnu(1,1)*dtcont
- ptest=ptest1
- if (ptest.gt.accu) then
- dtwava=ptest
- else
- dtwava=0.
- endif
- ptest1=tnu(1,2)*utcont
- ptest=ptest1
- if (ptest.gt.accu) then
- utwava=ptest
- else
- utwava=0.
- endif
- ptest1=tnu(1,3)*ttcont
- ptest=ptest1
- if (ptest.gt.accu) then
- ttwava=ptest
- else
- ttwava=0.
- endif
- dtdica=tnu(2,1)
- utdica=tnu(2,2)
- ttdica=tnu(2,3)
- dtoxyg=tnu(3,1)
- utoxyg=tnu(3,2)
- ttoxyg=tnu(3,3)
- dtozon=tnu(4,1)
- utozon=tnu(4,2)
- ttozon=tnu(4,3)
- dtniox=tnu(5,1)
- utniox=tnu(5,2)
- ttniox=tnu(5,3)
- dtmeth=tnu(6,1)
- utmeth=tnu(6,2)
- ttmeth=tnu(6,3)
- dtmoca=tnu(7,1)
- utmoca=tnu(7,2)
- ttmoca=tnu(7,3)
- if (idatmp.eq.0) then
- ttwava=dtwava
- utwava=1.
- ttdica=dtdica
- utdica=1.
- ttoxyg=dtoxyg
- utoxyg=1.
- ttozon=dtozon
- utozon=1.
- ttniox=dtniox
- utniox=1.
- ttmeth=dtmeth
- utmeth=1.
- ttmoca=dtmoca
- utmoca=1.
- endif
- return
- 95 call print_error(
- s 'Error on zenithal angle ( near 90 deg )')
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.h b/Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.h
deleted file mode 100644
index 4098282..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ABSTRA.h
+++ /dev/null
@@ -1,36 +0,0 @@
-extern int otb_6s_abstra_(
- otb_6s_integer *idatm,
- otb_6s_doublereal *wl,
- otb_6s_doublereal *xmus,
- otb_6s_doublereal *xmuv,
- otb_6s_doublereal *uw,
- otb_6s_doublereal *uo3,
- otb_6s_doublereal *uwus,
- otb_6s_doublereal *uo3us,
- otb_6s_integer *idatmp,
- otb_6s_doublereal *uwpl,
- otb_6s_doublereal *uo3pl,
- otb_6s_doublereal *uwusp,
- otb_6s_doublereal *uo3usp,
- otb_6s_doublereal *dtwava,
- otb_6s_doublereal *dtozon,
- otb_6s_doublereal *dtdica,
- otb_6s_doublereal *dtoxyg,
- otb_6s_doublereal *dtniox,
- otb_6s_doublereal *dtmeth,
- otb_6s_doublereal *dtmoca,
- otb_6s_doublereal *utwava,
- otb_6s_doublereal *utozon,
- otb_6s_doublereal *utdica,
- otb_6s_doublereal *utoxyg,
- otb_6s_doublereal *utniox,
- otb_6s_doublereal *utmeth,
- otb_6s_doublereal *utmoca,
- otb_6s_doublereal *ttwava,
- otb_6s_doublereal *ttozon,
- otb_6s_doublereal *ttdica,
- otb_6s_doublereal *ttoxyg,
- otb_6s_doublereal *ttniox,
- otb_6s_doublereal *ttmeth,
- otb_6s_doublereal *ttmoca
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.P b/Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.P
deleted file mode 100644
index 092c163..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int aero_prof__(doublereal *ta, doublereal *piz, doublereal *tr, doublereal *hr, integer *nt, doublereal *xmus, doublereal *h__, doublereal *ch, doublereal *ydel, doublereal *xdel, doublereal *altc);
-/* comlen aeroprof_ 2428 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.c b/Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.c
deleted file mode 100644
index 07b6046..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.c
+++ /dev/null
@@ -1,161 +0,0 @@
-/* AEROPROF.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer num_z__;
- doublereal alt_z__[101], taer_z__[101], taer55_z__[101];
-} aeroprof_;
-
-#define aeroprof_1 aeroprof_
-
-/*< >*/
-/* Subroutine */ int aero_prof__(doublereal *ta, doublereal *piz, doublereal *
- tr, doublereal *hr, integer *nt, doublereal *xmus, doublereal *h__,
- doublereal *ch, doublereal *ydel, doublereal *xdel, doublereal *altc)
-{
- /* System generated locals */
- integer i__1;
-
- /* Builtin functions */
- double exp(doublereal);
-
- /* Local variables */
- doublereal dtau_aer__, dtau_ray__;
- integer i__, j, n;
- doublereal z__, dz, dtau, z_up__, ssa_aer__, dtau_os__;
-
-/*< include "paramdef.inc" >*/
-/*< double precision xdel(0:nt),ydel(0:nt),ch(0:nt),h(0:nt) >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< double precision altc(0:nt),ta,piz,tr,hr,xmus >*/
-/*< double precision dz,z_up,dtau_ray,dtau_aer,dtau,dtau_OS >*/
-/*< real alt_z,taer_z,taer55_z,ssa_aer >*/
-/*< integer j,i,nt,num_z >*/
-/*< >*/
-/* If the maximum aerosol height is less than 300 km, one additional */
-/* layer is added above with the aerosol optical thickness equal to 0. */
-/*< if (alt_z(0).lt.300) then >*/
- if (aeroprof_1.alt_z__[0] < 300.) {
-/*< taer_z(0)=0.0 >*/
- aeroprof_1.taer_z__[0] = 0.;
-/*< num_z=num_z+1 >*/
- ++aeroprof_1.num_z__;
-/*< do i=0,num_z-1 >*/
- i__1 = aeroprof_1.num_z__ - 1;
- for (i__ = 0; i__ <= i__1; ++i__) {
-/*< alt_z(num_z-i)=alt_z(num_z-i-1) >*/
- aeroprof_1.alt_z__[aeroprof_1.num_z__ - i__] = aeroprof_1.alt_z__[
- aeroprof_1.num_z__ - i__ - 1];
-/*< taer_z(num_z-i)=taer_z(num_z-i-1) >*/
- aeroprof_1.taer_z__[aeroprof_1.num_z__ - i__] =
- aeroprof_1.taer_z__[aeroprof_1.num_z__ - i__ - 1];
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< alt_z(0)=300 >*/
- aeroprof_1.alt_z__[0] = 300.;
-/*< ssa_aer=piz >*/
- ssa_aer__ = *piz;
-/* The atmosphere is divided into nt layers with the same */
-/* (molecular + aerosol) optical thickness. */
-/*< dtau_OS=(tr+ta)/nt >*/
- dtau_os__ = (*tr + *ta) / *nt;
-/*< i=0 >*/
- i__ = 0;
-/*< dz=0.0001 >*/
- dz = 1e-4;
-/*< h(0)=0.0 >*/
- h__[0] = 0.;
-/*< altc(0)=300.0 >*/
- altc[0] = 300.;
-/*< z_up=alt_z(0) >*/
- z_up__ = aeroprof_1.alt_z__[0];
-/*< ch(0)=0.5 >*/
- ch[0] = .5;
-/*< ydel(0)=1.0 >*/
- ydel[0] = 1.;
-/*< xdel(0)=0.0 >*/
- xdel[0] = 0.;
-/*< j=1 >*/
- j = 1;
-/*< n=1 >*/
- n = 1;
-/*< dtau_aer=0.0 >*/
- dtau_aer__ = 0.;
-/*< 11 i=i+1 >*/
-L11:
- ++i__;
-/*< z=alt_z(0)-dz*i >*/
- z__ = aeroprof_1.alt_z__[0] - dz * i__;
-/*< dtau_ray=tr*(exp(-z/hr)-exp(-z_up/hr)) >*/
- dtau_ray__ = *tr * (exp(-z__ / *hr) - exp(-z_up__ / *hr));
-/*< dtau_aer=dtau_aer+taer_z(n)*dz/(alt_z(n-1)-alt_z(n)) >*/
- dtau_aer__ += aeroprof_1.taer_z__[n] * dz / (aeroprof_1.alt_z__[n - 1] -
- aeroprof_1.alt_z__[n]);
-/*< if (z.lt.alt_z(n)) n=n+1 >*/
- if (z__ < aeroprof_1.alt_z__[n]) {
- ++n;
- }
-/*< dtau=dtau_ray+dtau_aer >*/
- dtau = dtau_ray__ + dtau_aer__;
-/*< if (dtau.ge.dtau_OS) then >*/
- if (dtau >= dtau_os__) {
-/*< altc(j)=z >*/
- altc[j] = z__;
-/*< h(j)=h(j-1)+dtau >*/
- h__[j] = h__[j - 1] + dtau;
-/*< ch(j)=exp(-h(j)/xmus)/2 >*/
- ch[j] = exp(-h__[j] / *xmus) / 2;
-/*< xdel(j)=dtau_aer*ssa_aer/dtau ! aerosol portion in the j-th laye >*/
- xdel[j] = dtau_aer__ * ssa_aer__ / dtau;
-/*< ydel(j)=dtau_ray/dtau ! molecular portion in the j-th la >*/
- ydel[j] = dtau_ray__ / dtau;
-/* write(6,*)j,z,dtau_ray,dtau_aer,dtau,(ta+tr)/nt */
-/*< j=j+1 >*/
- ++j;
-/*< z_up=z >*/
- z_up__ = z__;
-/*< dtau_aer=0.0 >*/
- dtau_aer__ = 0.;
-/*< endif >*/
- }
-/*< if(z.gt.0) goto 11 >*/
- if (z__ > 0.) {
- goto L11;
- }
-/*< altc(nt)=0 >*/
- altc[*nt] = 0.;
-/*< h(nt)=tr+ta >*/
- h__[*nt] = *tr + *ta;
-/*< ch(nt)=exp(-h(nt)/xmus)/2 >*/
- ch[*nt] = exp(-h__[*nt] / *xmus) / 2;
-/*< xdel(nt)=dtau_aer*ssa_aer/dtau >*/
- xdel[*nt] = dtau_aer__ * ssa_aer__ / dtau;
-/*< ydel(nt)=dtau_ray/dtau >*/
- ydel[*nt] = dtau_ray__ / dtau;
-/* checking */
-/* do j=0,nt */
-/* write(6,*)j,altc(j),h(j),h(j)-h(j-1) */
-/* enddo */
-/*< return >*/
- return 0;
-/*< end >*/
-} /* aero_prof__ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.f b/Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.f
deleted file mode 100644
index c873576..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.f
+++ /dev/null
@@ -1,86 +0,0 @@
- subroutine aero_prof (ta,piz,tr,hr,nt,xmus,
- s h,ch,ydel,xdel,altc)
-
- include "paramdef.inc"
- double precision xdel(0:nt),ydel(0:nt),ch(0:nt),h(0:nt)
- double precision altc(0:nt),ta,piz,tr,hr,xmus
- double precision dz,z_up,dtau_ray,dtau_aer,dtau,dtau_OS
-
- real alt_z,taer_z,taer55_z,ssa_aer
-
- integer j,i,nt,num_z
- common /aeroprof/ num_z,alt_z(0:nt_p_max),
- &taer_z(0:nt_p_max),taer55_z(0:nt_p_max)
-
-
-
-c If the maximum aerosol height is less than 300 km, one additional
-c layer is added above with the aerosol optical thickness equal to 0.
-
-
- if (alt_z(0).lt.300) then
- taer_z(0)=0.0
- num_z=num_z+1
- do i=0,num_z-1
- alt_z(num_z-i)=alt_z(num_z-i-1)
- taer_z(num_z-i)=taer_z(num_z-i-1)
- enddo
- endif
-
- alt_z(0)=300
- ssa_aer=piz
-
-
-c The atmosphere is divided into nt layers with the same
-c (molecular + aerosol) optical thickness.
-
- dtau_OS=(tr+ta)/nt
-
- i=0
- dz=0.0001
- h(0)=0.0
- altc(0)=300.0
- z_up=alt_z(0)
- ch(0)=0.5
- ydel(0)=1.0
- xdel(0)=0.0
- j=1
- n=1
- dtau_aer=0.0
-
- 11 i=i+1
-
- z=alt_z(0)-dz*i
- dtau_ray=tr*(exp(-z/hr)-exp(-z_up/hr))
-
- dtau_aer=dtau_aer+taer_z(n)*dz/(alt_z(n-1)-alt_z(n))
- if (z.lt.alt_z(n)) n=n+1
-
- dtau=dtau_ray+dtau_aer
- if (dtau.ge.dtau_OS) then
- altc(j)=z
- h(j)=h(j-1)+dtau
- ch(j)=exp(-h(j)/xmus)/2
- xdel(j)=dtau_aer*ssa_aer/dtau ! aerosol portion in the j-th layer
- ydel(j)=dtau_ray/dtau ! molecular portion in the j-th layer
-c write(6,*)j,z,dtau_ray,dtau_aer,dtau,(ta+tr)/nt
- j=j+1
- z_up=z
- dtau_aer=0.0
- endif
- if(z.gt.0) goto 11
-
- altc(nt)=0
- h(nt)=tr+ta
- ch(nt)=exp(-h(nt)/xmus)/2
- xdel(nt)=dtau_aer*ssa_aer/dtau
- ydel(nt)=dtau_ray/dtau
-
-c checking
-c do j=0,nt
-c write(6,*)j,altc(j),h(j),h(j)-h(j-1)
-c enddo
-
-
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.h b/Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.h
deleted file mode 100644
index 89ed3ae..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AEROPROF.h
+++ /dev/null
@@ -1,13 +0,0 @@
-extern int aero_prof_otb_6s__(
- otb_6s_doublereal *ta,
- otb_6s_doublereal *piz,
- otb_6s_doublereal *tr,
- otb_6s_doublereal *hr,
- otb_6s_integer *nt,
- otb_6s_doublereal *xmus,
- otb_6s_doublereal *h__,
- otb_6s_doublereal *ch,
- otb_6s_doublereal *ydel,
- otb_6s_doublereal *xdel,
- otb_6s_doublereal *altc
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.P b/Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.P
deleted file mode 100644
index 2500271..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.P
+++ /dev/null
@@ -1,15 +0,0 @@
-extern int aeroso_(integer *iaer, doublereal *co, doublereal *xmud, doublereal *wldis, char *file, integer *ipol, ftnlen file_len);
-/* comlen num_quad__ 4 */
-/* comlen sixs_aerbas__ 480000 */
-/* comlen sixs_phase__ 480000 */
-/* comlen sixs_aer__ 960 */
-/* comlen sixs_coef__ 1952 */
-/*:ref: gauss_ 14 5 7 7 7 7 4 */
-/*:ref: bdm_ 14 0 */
-/*:ref: bbm_ 14 0 */
-/*:ref: stm_ 14 0 */
-/*:ref: mie_ 14 6 4 7 7 7 7 4 */
-/*:ref: dust_ 14 0 */
-/*:ref: wate_ 14 0 */
-/*:ref: ocea_ 14 0 */
-/*:ref: soot_ 14 0 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.c b/Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.c
deleted file mode 100644
index 6f4d807..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.c
+++ /dev/null
@@ -1,793 +0,0 @@
-/* AEROSO.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-/*OTB */
-/*Extern*/ struct {
- doublereal ph[20000] /* was [20][1000] */, qh[20000] /* was [20][
- 1000] */, uh[20000] /* was [20][1000] */;
-} sixs_aerbas__;
-
-#define sixs_aerbas__1 sixs_aerbas__
-
-/*OTB */
-/*Extern*/ struct {
- doublereal phasel[20000] /* was [20][1000] */, qhasel[20000] /*
- was [20][1000] */, uhasel[20000] /* was [20][1000] */;
-} sixs_phase__;
-
-#define sixs_phase__1 sixs_phase__
-
-/*OTB */
-/*Extern*/ struct {
- doublereal ext[20], ome[20], gasym[20], phase[20], qhase[20], uhase[20];
-} sixs_aer__;
-
-#define sixs_aer__1 sixs_aer__
-
-/*OTB */
-/*Extern*/ struct {
- doublereal ex[80] /* was [4][20] */, sc[80] /* was [4][20] */,
- asy[80] /* was [4][20] */, vi[4];
-} sixs_coef__;
-
-#define sixs_coef__1 sixs_coef__
-
-/* Table of constant values */
-
-static integer c__3 = 3;
-static integer c__1 = 1;
-static doublereal c_b19 = -1.;
-static doublereal c_b20 = 1.;
-
-/*< subroutine aeroso (iaer,co,xmud,wldis,FILE,ipol) >*/
-/* Subroutine */ int aeroso_(integer *iaer, doublereal *co, doublereal *xmud,
- doublereal *wldis, char *file, integer *ipol, ftnlen file_len)
-{
-
- /* Format strings */
- static char fmt_761[] = "(2x,f6.2,20(1x,e10.4))";
-
- /* System generated locals */
- integer i__1, i__2;
- doublereal d__1, d__2;
- cilist ci__1;
- olist o__1;
- cllist cl__1;
-
- /* Builtin functions */
- double atan(doublereal);
- integer f_open(olist *), s_rsle(cilist *), do_lio(integer *, integer *,
- char *, ftnlen), e_rsle(), s_rsfe(cilist *), do_fio(integer *,
- char *, ftnlen), e_rsfe(), f_clos(cllist *), s_wsle(cilist *),
- e_wsle(), s_wsfe(cilist *), e_wsfe();
- double acos(doublereal);
-
- /* Local variables */
- integer i__, j, k, l, j1, j2;
- doublereal dd[80] /* was [4][20] */, ci[4], pi, qq[80] /* was [4][20]
- */, uu[80] /* was [4][20] */;
- extern /* Subroutine */ int bbm_(), bdm_();
- doublereal cij[4], sca[20], pha[100000] /* was [5][20][1000] */, qha[
- 100000] /* was [5][20][1000] */;
- extern /* Subroutine */ int mie_(integer *, doublereal *, doublereal *,
- doublereal *, doublereal *, integer *);
- integer icp;
- doublereal uha[100000] /* was [5][20][1000] */, nis;
- extern /* Subroutine */ int stm_(), ocea_();
- doublereal coef, sigm;
- integer nbmu;
- extern /* Subroutine */ int wate_(), dust_(), soot_(), gauss_(doublereal *
- , doublereal *, doublereal *, doublereal *, integer *);
- doublereal sumni;
- integer nbmu_2__;
- doublereal cosang[1000], pdgs_s__[1000], weight[1000], cgaus_s__[1000];
-
- /* Fortran I/O blocks */
- static cilist io___3 = { 0, 10, 0, 0, 0 };
- static cilist io___5 = { 0, 10, 0, 0, 0 };
- static cilist io___31 = { 0, 10, 0, 0, 0 };
- static cilist io___32 = { 0, 10, 0, fmt_761, 0 };
- static cilist io___33 = { 0, 10, 0, fmt_761, 0 };
- static cilist io___34 = { 0, 10, 0, fmt_761, 0 };
-
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real ph,qh,uh >*/
-/*< common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p) >*/
-/*< real cgaus_S(nqmax_p),pdgs_S(nqmax_p) >*/
-/*< real phasel,qhasel,uhasel >*/
-/*< >*/
-/*< integer nbmu, nbmu_2 >*/
-/*< real cosang(nqmax_p),weight(nqmax_p) >*/
-/* - to vary the number of quadratures */
-/*< double precision cij(4),nis,sumni,ni(4) >*/
-/*< real co(4),dd(4,20),qq(4,20),ci(4) >*/
-/*< real pha(5,20,nqmax_p),qha(5,20,nqmax_p),uha(5,20,nqmax_p) >*/
-/*< real sca(20),wldis(20),uu(4,20) >*/
-/*< real xmud,ext,ome,gasym,phase,qhase,uhase >*/
-/*< real coef,sigm,pi >*/
-/*< integer i,j,k,l,j1,j2,iaer,icp,ipol >*/
-/*< character FILE*80 >*/
-/*< >*/
-/*< real ex,sc,asy,vi >*/
-/*< common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4) >*/
-/*< real wldisc(20) >*/
-/*< >*/
- /* Parameter adjustments */
- --wldis;
- --co;
-
- /* Function Body */
-/*< pi=4.*atan(1.) >*/
- pi = atan(1.) * 4.;
-/* if(iaer.eq.0) return */
-/*< if (iaer.eq.12) then >*/
- if (*iaer == 12) {
-/*< open(10,file=FILE) >*/
- o__1.oerr = 0;
- o__1.ounit = 10;
- o__1.ofnmlen = 80;
- o__1.ofnm = file;
- o__1.orl = 0;
- o__1.osta = 0;
- o__1.oacc = 0;
- o__1.ofm = 0;
- o__1.oblnk = 0;
- f_open(&o__1);
-/*< read (10,*) nbmu >*/
- s_rsle(&io___3);
- do_lio(&c__3, &c__1, (char *)&nbmu, (ftnlen)sizeof(integer));
- e_rsle();
-/*< read(10,*) >*/
- s_rsle(&io___5);
- e_rsle();
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< read(10,'(10x,4(3x,f8.4,3x))')ext(l),sca(l),ome(l),gasym(l) >*/
- ci__1.cierr = 0;
- ci__1.ciend = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(10x,4(3x,f8.4,3x))";
- s_rsfe(&ci__1);
- do_fio(&c__1, (char *)&sixs_aer__1.ext[l - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&sca[l - 1], (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sixs_aer__1.ome[l - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&sixs_aer__1.gasym[l - 1], (ftnlen)sizeof(
- doublereal));
- e_rsfe();
-/*< enddo >*/
- }
-/*< read(10,'(///)') >*/
- ci__1.cierr = 0;
- ci__1.ciend = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(///)";
- s_rsfe(&ci__1);
- e_rsfe();
-/*< do k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< read(10,'(8x,20(1x,e10.4))')(phasel(l,k),l=1,20) >*/
- ci__1.cierr = 0;
- ci__1.ciend = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(8x,20(1x,e10.4))";
- s_rsfe(&ci__1);
- for (l = 1; l <= 20; ++l) {
- do_fio(&c__1, (char *)&sixs_phase__1.phasel[l + k * 20 - 21],
- (ftnlen)sizeof(doublereal));
- }
- e_rsfe();
-/*< enddo >*/
- }
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< do k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< read(10,'(8x,20(1x,e10.4))')(qhasel(l,k),l=1,20) >*/
- ci__1.cierr = 0;
- ci__1.ciend = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(8x,20(1x,e10.4))";
- s_rsfe(&ci__1);
- for (l = 1; l <= 20; ++l) {
- do_fio(&c__1, (char *)&sixs_phase__1.qhasel[l + k * 20 -
- 21], (ftnlen)sizeof(doublereal));
- }
- e_rsfe();
-/*< enddo >*/
- }
-/*< do k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< read(10,'(8x,20(1x,e10.4))')(uhasel(l,k),l=1,20) >*/
- ci__1.cierr = 0;
- ci__1.ciend = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(8x,20(1x,e10.4))";
- s_rsfe(&ci__1);
- for (l = 1; l <= 20; ++l) {
- do_fio(&c__1, (char *)&sixs_phase__1.uhasel[l + k * 20 -
- 21], (ftnlen)sizeof(doublereal));
- }
- e_rsfe();
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< nquad=nbmu >*/
- num_quad__1.nquad = nbmu;
-/*< close(10) >*/
- cl__1.cerr = 0;
- cl__1.cunit = 10;
- cl__1.csta = 0;
- f_clos(&cl__1);
-/*< endif >*/
- }
-/* - calculation of gauss points */
-/*< nbmu=nquad >*/
- nbmu = num_quad__1.nquad;
-/*< nbmu_2=(nbmu-3)/2 >*/
- nbmu_2__ = (nbmu - 3) / 2;
-/*< call gauss(-1.,1.,cosang,weight,nbmu-3) >*/
- i__1 = nbmu - 3;
- gauss_(&c_b19, &c_b20, cosang, weight, &i__1);
-/*< cgaus_S(1)=-1.0 >*/
- cgaus_s__[0] = -1.;
-/*< pdgs_S(1)=0.0 >*/
- pdgs_s__[0] = 0.;
-/*< do j=1,nbmu_2 >*/
- i__1 = nbmu_2__;
- for (j = 1; j <= i__1; ++j) {
-/*< cgaus_S(j+1)=cosang(j) >*/
- cgaus_s__[j] = cosang[j - 1];
-/*< pdgs_S(j+1)=weight(j) >*/
- pdgs_s__[j] = weight[j - 1];
-/*< enddo >*/
- }
-/*< cgaus_S(nbmu_2+2)=0. >*/
- cgaus_s__[nbmu_2__ + 1] = 0.;
-/*< pdgs_S(nbmu_2+2)=0. >*/
- pdgs_s__[nbmu_2__ + 1] = 0.;
-/*< do j=nbmu_2+1,nbmu-3 >*/
- i__1 = nbmu - 3;
- for (j = nbmu_2__ + 1; j <= i__1; ++j) {
-/*< cgaus_S(j+2)=cosang(j) >*/
- cgaus_s__[j + 1] = cosang[j - 1];
-/*< pdgs_S(j+2)=weight(j) >*/
- pdgs_s__[j + 1] = weight[j - 1];
-/*< enddo >*/
- }
-/*< cgaus_S(nbmu)=1.0 >*/
- cgaus_s__[nbmu - 1] = 1.;
-/*< pdgs_S(nbmu)=0. >*/
- pdgs_s__[nbmu - 1] = 0.;
-/* - calculation of gauss points */
-/*< do 7 k=1,nbmu-1 >*/
- i__1 = nbmu - 1;
- for (k = 1; k <= i__1; ++k) {
-/*< if((xmud.ge.cgaus_S(k)).and.(xmud.lt.cgaus_S(k+1))) go to 8 >*/
- if (*xmud >= cgaus_s__[k - 1] && *xmud < cgaus_s__[k]) {
- goto L8;
- }
-/*< 7 continue >*/
-/* L7: */
- }
-/*< return >*/
- return 0;
-/*< 8 j1=k >*/
-L8:
- j1 = k;
-/*< j2=j1+1 >*/
- j2 = j1 + 1;
-/*< coef=-(xmud-cgaus_S(j1))/(cgaus_S(j2)-cgaus_S(j1)) >*/
- coef = -(*xmud - cgaus_s__[j1 - 1]) / (cgaus_s__[j2 - 1] - cgaus_s__[j1 -
- 1]);
-/*< if (iaer.eq.12) then >*/
- if (*iaer == 12) {
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< phase(l)=phasel(l,j1)+coef*(phasel(l,j1)-phasel(l,j2)) >*/
- sixs_aer__1.phase[l - 1] = sixs_phase__1.phasel[l + j1 * 20 - 21]
- + coef * (sixs_phase__1.phasel[l + j1 * 20 - 21] -
- sixs_phase__1.phasel[l + j2 * 20 - 21]);
-/*< enddo >*/
- }
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< qhase(l)=qhasel(l,j1)+coef*(qhasel(l,j1)-qhasel(l,j2)) >*/
- sixs_aer__1.qhase[l - 1] = sixs_phase__1.qhasel[l + j1 * 20 -
- 21] + coef * (sixs_phase__1.qhasel[l + j1 * 20 - 21]
- - sixs_phase__1.qhasel[l + j2 * 20 - 21]);
-/*< uhase(l)=uhasel(l,j1)+coef*(uhasel(l,j1)-uhasel(l,j2)) >*/
- sixs_aer__1.uhase[l - 1] = sixs_phase__1.uhasel[l + j1 * 20 -
- 21] + coef * (sixs_phase__1.uhasel[l + j1 * 20 - 21]
- - sixs_phase__1.uhasel[l + j2 * 20 - 21]);
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< return >*/
- return 0;
-/*< endif >*/
- }
-/*< do 1 l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< ext(l)=0. >*/
- sixs_aer__1.ext[l - 1] = 0.;
-/*< sca(l)=0. >*/
- sca[l - 1] = 0.;
-/*< if(l.eq.4.and.iaer.eq.0) ext(l)=1. >*/
- if (l == 4 && *iaer == 0) {
- sixs_aer__1.ext[l - 1] = 1.;
- }
-/*< ome(l)=0. >*/
- sixs_aer__1.ome[l - 1] = 0.;
-/*< gasym(l)=0. >*/
- sixs_aer__1.gasym[l - 1] = 0.;
-/*< phase(l)=0. >*/
- sixs_aer__1.phase[l - 1] = 0.;
-/*< qhase(l)=0. >*/
- sixs_aer__1.qhase[l - 1] = 0.;
-/*< uhase(l)=0. >*/
- sixs_aer__1.uhase[l - 1] = 0.;
-/*< do 1 k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< phasel(l,k)=0. >*/
- sixs_phase__1.phasel[l + k * 20 - 21] = 0.;
-/*< qhasel(l,k)=0. >*/
- sixs_phase__1.qhasel[l + k * 20 - 21] = 0.;
-/*< uhasel(l,k)=0. >*/
- sixs_phase__1.uhasel[l + k * 20 - 21] = 0.;
-/*< 1 continue >*/
-/* L1: */
- }
- }
-/*< do 2 j=1,4 >*/
- for (j = 1; j <= 4; ++j) {
-/*< ci(j)=co(j) >*/
- ci[j - 1] = co[j];
-/*< 2 continue >*/
-/* L2: */
- }
-/*< if(iaer.eq.0) goto 777 >*/
- if (*iaer == 0) {
- goto L777;
- }
-/*< if (iaer.ge.5.and.iaer.le.11) then >*/
- if (*iaer >= 5 && *iaer <= 11) {
-/* calling a special aerosol model */
-/* (background desert model...) */
-/*< if (iaer.eq.5) call bdm >*/
- if (*iaer == 5) {
- bdm_();
- }
-/* (biomass burning model...) */
-/*< if (iaer.eq.6) call bbm >*/
- if (*iaer == 6) {
- bbm_();
- }
-/* (stratospherique aerosol model...) */
-/*< if (iaer.eq.7) call stm >*/
- if (*iaer == 7) {
- stm_();
- }
-/* (user defined model from size distribution) */
-/*< if (iaer.ge.8.and.iaer.le.11) then >*/
- if (*iaer >= 8 && *iaer <= 11) {
-/*< call mie(iaer,wldis,ex,sc,asy,ipol) >*/
- mie_(iaer, &wldis[1], sixs_coef__1.ex, sixs_coef__1.sc,
- sixs_coef__1.asy, ipol);
-/*< endif >*/
- }
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< dd(1,l)=ph(l,j1)+coef*(ph(l,j1)-ph(l,j2)) >*/
- dd[(l << 2) - 4] = sixs_aerbas__1.ph[l + j1 * 20 - 21] + coef * (
- sixs_aerbas__1.ph[l + j1 * 20 - 21] - sixs_aerbas__1.ph[l
- + j2 * 20 - 21]);
-/*< do k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< pha(1,l,k)=ph(l,k) >*/
- pha[(l + k * 20) * 5 - 105] = sixs_aerbas__1.ph[l + k * 20 -
- 21];
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< qq(1,l)=qh(l,j1)+coef*(qh(l,j1)-qh(l,j2)) >*/
- qq[(l << 2) - 4] = sixs_aerbas__1.qh[l + j1 * 20 - 21] + coef
- * (sixs_aerbas__1.qh[l + j1 * 20 - 21] -
- sixs_aerbas__1.qh[l + j2 * 20 - 21]);
-/*< uu(1,l)=uh(l,j1)+coef*(uh(l,j1)-uh(l,j2)) >*/
- uu[(l << 2) - 4] = sixs_aerbas__1.uh[l + j1 * 20 - 21] + coef
- * (sixs_aerbas__1.uh[l + j1 * 20 - 21] -
- sixs_aerbas__1.uh[l + j2 * 20 - 21]);
-/*< do k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< qha(1,l,k)=qh(l,k) >*/
- qha[(l + k * 20) * 5 - 105] = sixs_aerbas__1.qh[l + k *
- 20 - 21];
-/*< uha(1,l,k)=uh(l,k) >*/
- uha[(l + k * 20) * 5 - 105] = sixs_aerbas__1.uh[l + k *
- 20 - 21];
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< icp=1 >*/
- icp = 1;
-/*< cij(1)=1.00 >*/
- cij[0] = 1.;
-/* for normalization of the extinction coefficient */
-/*< nis=1.d+00/ex(1,8) >*/
- nis = 1. / sixs_coef__1.ex[28];
-/*< else >*/
- } else {
-/* calling each sra components */
-/*< icp=4 >*/
- icp = 4;
-/* extrapolate each component for wavelength */
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< do j=1,4 >*/
- for (j = 1; j <= 4; ++j) {
-/*< ex(j,l)=0 >*/
- sixs_coef__1.ex[j + (l << 2) - 5] = 0.;
-/*< sc(j,l)=0. >*/
- sixs_coef__1.sc[j + (l << 2) - 5] = 0.;
-/*< asy(j,l)=0. >*/
- sixs_coef__1.asy[j + (l << 2) - 5] = 0.;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* phase function of 4 components */
-/*< do j=1,4 >*/
- for (j = 1; j <= 4; ++j) {
-/*< if (j.eq.1) call dust >*/
- if (j == 1) {
- dust_();
- }
-/*< if (j.eq.2) call wate >*/
- if (j == 2) {
- wate_();
- }
-/*< if (j.eq.3) call ocea >*/
- if (j == 3) {
- ocea_();
- }
-/*< if (j.eq.4) call soot >*/
- if (j == 4) {
- soot_();
- }
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< dd(j,l)=ph(l,j1)+coef*(ph(l,j1)-ph(l,j2)) >*/
- dd[j + (l << 2) - 5] = sixs_aerbas__1.ph[l + j1 * 20 - 21] +
- coef * (sixs_aerbas__1.ph[l + j1 * 20 - 21] -
- sixs_aerbas__1.ph[l + j2 * 20 - 21]);
-/*< do k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< pha(j,l,k)=ph(l,k) >*/
- pha[j + (l + k * 20) * 5 - 106] = sixs_aerbas__1.ph[l + k
- * 20 - 21];
-/*< enddo >*/
- }
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< qq(j,l)=qh(l,j1)+coef*(qh(l,j1)-qh(l,j2)) >*/
- qq[j + (l << 2) - 5] = sixs_aerbas__1.qh[l + j1 * 20 - 21]
- + coef * (sixs_aerbas__1.qh[l + j1 * 20 - 21] -
- sixs_aerbas__1.qh[l + j2 * 20 - 21]);
-/*< uu(j,l)=uh(l,j1)+coef*(uh(l,j1)-uh(l,j2)) >*/
- uu[j + (l << 2) - 5] = sixs_aerbas__1.uh[l + j1 * 20 - 21]
- + coef * (sixs_aerbas__1.uh[l + j1 * 20 - 21] -
- sixs_aerbas__1.uh[l + j2 * 20 - 21]);
-/*< do k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< qha(j,l,k)=qh(l,k) >*/
- qha[j + (l + k * 20) * 5 - 106] = sixs_aerbas__1.qh[l
- + k * 20 - 21];
-/*< uha(j,l,k)=uh(l,k) >*/
- uha[j + (l + k * 20) * 5 - 106] = sixs_aerbas__1.uh[l
- + k * 20 - 21];
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* summ of the ci/vi calculation */
-/*< sigm=0. >*/
- sigm = 0.;
-/*< sumni=0.0 >*/
- sumni = 0.;
-/*< do 3 i=1,4 >*/
- for (i__ = 1; i__ <= 4; ++i__) {
-/*< 3 sigm=sigm+ci(i)/vi(i) >*/
-/* L3: */
- sigm += ci[i__ - 1] / sixs_coef__1.vi[i__ - 1];
- }
-/* cij coefficients calculation */
-/*< do 4 j=1,4 >*/
- for (j = 1; j <= 4; ++j) {
-/*< cij(j)=(ci(j)/vi(j)/sigm) >*/
- cij[j - 1] = ci[j - 1] / sixs_coef__1.vi[j - 1] / sigm;
-/*< sumni=sumni+cij(j)*ex(j,8) >*/
- sumni += cij[j - 1] * sixs_coef__1.ex[j + 27];
-/*< 4 continue >*/
-/* L4: */
- }
-/*< nis=1.d+00/sumni >*/
- nis = 1. / sumni;
-/*< endif >*/
- }
-/* mixing parameters calculation */
-/*< do 5 l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< do 6 j=1,icp >*/
- i__1 = icp;
- for (j = 1; j <= i__1; ++j) {
-/*< ext(l)=ex(j,l)*cij(j)+ext(l) >*/
- sixs_aer__1.ext[l - 1] = sixs_coef__1.ex[j + (l << 2) - 5] * cij[
- j - 1] + sixs_aer__1.ext[l - 1];
-/*< sca(l)=sc(j,l)*cij(j)+sca(l) >*/
- sca[l - 1] = sixs_coef__1.sc[j + (l << 2) - 5] * cij[j - 1] + sca[
- l - 1];
-/*< gasym(l)=sc(j,l)*cij(j)*asy(j,l)+gasym(l) >*/
- sixs_aer__1.gasym[l - 1] = sixs_coef__1.sc[j + (l << 2) - 5] *
- cij[j - 1] * sixs_coef__1.asy[j + (l << 2) - 5] +
- sixs_aer__1.gasym[l - 1];
-/*< phase(l)=sc(j,l)*cij(j)*dd(j,l)+phase(l) >*/
- sixs_aer__1.phase[l - 1] = sixs_coef__1.sc[j + (l << 2) - 5] *
- cij[j - 1] * dd[j + (l << 2) - 5] + sixs_aer__1.phase[l -
- 1];
-/*< do 77 k=1,nbmu >*/
- i__2 = nbmu;
- for (k = 1; k <= i__2; ++k) {
-/*< phasel(l,k)=sc(j,l)*cij(j)*pha(j,l,k)+phasel(l,k) >*/
- sixs_phase__1.phasel[l + k * 20 - 21] = sixs_coef__1.sc[j + (
- l << 2) - 5] * cij[j - 1] * pha[j + (l + k * 20) * 5
- - 106] + sixs_phase__1.phasel[l + k * 20 - 21];
-/*< 77 continue >*/
-/* L77: */
- }
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< qhase(l)=sc(j,l)*cij(j)*qq(j,l)+qhase(l) >*/
- sixs_aer__1.qhase[l - 1] = sixs_coef__1.sc[j + (l << 2) - 5] *
- cij[j - 1] * qq[j + (l << 2) - 5] +
- sixs_aer__1.qhase[l - 1];
-/*< uhase(l)=sc(j,l)*cij(j)*uu(j,l)+uhase(l) >*/
- sixs_aer__1.uhase[l - 1] = sixs_coef__1.sc[j + (l << 2) - 5] *
- cij[j - 1] * uu[j + (l << 2) - 5] +
- sixs_aer__1.uhase[l - 1];
-/*< do k=1,nbmu >*/
- i__2 = nbmu;
- for (k = 1; k <= i__2; ++k) {
-/*< qhasel(l,k)=sc(j,l)*cij(j)*qha(j,l,k)+qhasel(l,k) >*/
- sixs_phase__1.qhasel[l + k * 20 - 21] = sixs_coef__1.sc[j
- + (l << 2) - 5] * cij[j - 1] * qha[j + (l + k *
- 20) * 5 - 106] + sixs_phase__1.qhasel[l + k * 20
- - 21];
-/*< uhasel(l,k)=sc(j,l)*cij(j)*uha(j,l,k)+uhasel(l,k) >*/
- sixs_phase__1.uhasel[l + k * 20 - 21] = sixs_coef__1.sc[j
- + (l << 2) - 5] * cij[j - 1] * uha[j + (l + k *
- 20) * 5 - 106] + sixs_phase__1.uhasel[l + k * 20
- - 21];
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< 6 continue >*/
-/* L6: */
- }
-/*< ome(l)=sca(l)/ext(l) >*/
- sixs_aer__1.ome[l - 1] = sca[l - 1] / sixs_aer__1.ext[l - 1];
-/*< gasym(l)=gasym(l)/sca(l) >*/
- sixs_aer__1.gasym[l - 1] /= sca[l - 1];
-/*< phase(l)=phase(l)/sca(l) >*/
- sixs_aer__1.phase[l - 1] /= sca[l - 1];
-/*< do 78 k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< phasel(l,k)=phasel(l,k)/sca(l) >*/
- sixs_phase__1.phasel[l + k * 20 - 21] /= sca[l - 1];
-/*< 78 continue >*/
-/* L78: */
- }
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< qhase(l)=qhase(l)/sca(l) >*/
- sixs_aer__1.qhase[l - 1] /= sca[l - 1];
-/*< uhase(l)=uhase(l)/sca(l) >*/
- sixs_aer__1.uhase[l - 1] /= sca[l - 1];
-/*< do k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< qhasel(l,k)=qhasel(l,k)/sca(l) >*/
- sixs_phase__1.qhasel[l + k * 20 - 21] /= sca[l - 1];
-/*< uhasel(l,k)=uhasel(l,k)/sca(l) >*/
- sixs_phase__1.uhasel[l + k * 20 - 21] /= sca[l - 1];
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< ext(l)=ext(l)*nis >*/
- sixs_aer__1.ext[l - 1] *= nis;
-/*< sca(l)=sca(l)*nis >*/
- sca[l - 1] *= nis;
-/*< 5 continue >*/
-/* L5: */
- }
-/*< if (iaer.ge.8.and.iaer.le.11) then >*/
- if (*iaer >= 8 && *iaer <= 11) {
-/*< open(10,file=FILE) >*/
- o__1.oerr = 0;
- o__1.ounit = 10;
- o__1.ofnmlen = 80;
- o__1.ofnm = file;
- o__1.orl = 0;
- o__1.osta = 0;
- o__1.oacc = 0;
- o__1.ofm = 0;
- o__1.oblnk = 0;
- f_open(&o__1);
-/*< write(10,*) nbmu >*/
- s_wsle(&io___31);
- do_lio(&c__3, &c__1, (char *)&nbmu, (ftnlen)sizeof(integer));
- e_wsle();
-/*< >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(3x,A5,1x,5(1x,A10,1x),1x,A10)";
- s_wsfe(&ci__1);
- do_fio(&c__1, "Wlgth", 5L);
- do_fio(&c__1, "Nor_Ext_Co", 10L);
- do_fio(&c__1, "Nor_Sca_Co", 10L);
- do_fio(&c__1, "Sg_Sca_Alb", 10L);
- do_fio(&c__1, "Asymm_Para", 10L);
- do_fio(&c__1, "Extinct_Co", 10L);
- do_fio(&c__1, "Scatter_Co", 10L);
- e_wsfe();
-/*< do 79 l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(2x,f8.4,4(3x,f8.4,3x),2(2x,e10.4))";
- s_wsfe(&ci__1);
- do_fio(&c__1, (char *)&wldis[l], (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sixs_aer__1.ext[l - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&sca[l - 1], (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sixs_aer__1.ome[l - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&sixs_aer__1.gasym[l - 1], (ftnlen)sizeof(
- doublereal));
- d__1 = sixs_aer__1.ext[l - 1] / nis;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- d__2 = sca[l - 1] / nis;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< 79 continue >*/
-/* L79: */
- }
-/*< >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(//,T20,A16,/,3x,A4,1x,20(3x,f6.4,2x))";
- s_wsfe(&ci__1);
- do_fio(&c__1, " Phase Function ", 16L);
- do_fio(&c__1, "TETA", 4L);
- for (l = 1; l <= 20; ++l) {
- do_fio(&c__1, (char *)&wldis[l], (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/*< do 76 k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< write(10,761)180.*acos(cgaus_S(k))/pi,(phasel(l,k),l=1,20) >*/
- s_wsfe(&io___32);
- d__1 = acos(cgaus_s__[k - 1]) * 180. / pi;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- for (l = 1; l <= 20; ++l) {
- do_fio(&c__1, (char *)&sixs_phase__1.phasel[l + k * 20 - 21],
- (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/*< 76 continue >*/
-/* L76: */
- }
-/*< 761 format (2x,f6.2,20(1x,e10.4)) >*/
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< do k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< write(10,761)180.*acos(cgaus_S(k))/pi,(qhasel(l,k),l=1,20) >*/
- s_wsfe(&io___33);
- d__1 = acos(cgaus_s__[k - 1]) * 180. / pi;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- for (l = 1; l <= 20; ++l) {
- do_fio(&c__1, (char *)&sixs_phase__1.qhasel[l + k * 20 -
- 21], (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/*< enddo >*/
- }
-/*< do k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< write(10,761)180.*acos(cgaus_S(k))/pi,(uhasel(l,k),l=1,20) >*/
- s_wsfe(&io___34);
- d__1 = acos(cgaus_s__[k - 1]) * 180. / pi;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- for (l = 1; l <= 20; ++l) {
- do_fio(&c__1, (char *)&sixs_phase__1.uhasel[l + k * 20 -
- 21], (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< close(10) >*/
- cl__1.cerr = 0;
- cl__1.cunit = 10;
- cl__1.csta = 0;
- f_clos(&cl__1);
-/*< endif >*/
- }
-/*< 777 continue >*/
-L777:
-/*< return >*/
- return 0;
-/*< end >*/
-} /* aeroso_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.f b/Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.f
deleted file mode 100644
index 32c7f81..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.f
+++ /dev/null
@@ -1,285 +0,0 @@
- subroutine aeroso (iaer,co,xmud,wldis,FILE,ipol)
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real ph,qh,uh
- common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p)
- real cgaus_S(nqmax_p),pdgs_S(nqmax_p)
- real phasel,qhasel,uhasel
- common /sixs_phase/ phasel(20,nqmax_p),qhasel(20,nqmax_p),
- &uhasel(20,nqmax_p)
- integer nbmu, nbmu_2
- real cosang(nqmax_p),weight(nqmax_p)
-c - to vary the number of quadratures
-
- double precision cij(4),nis,sumni,ni(4)
- real co(4),dd(4,20),qq(4,20),ci(4)
- real pha(5,20,nqmax_p),qha(5,20,nqmax_p),uha(5,20,nqmax_p)
- real sca(20),wldis(20),uu(4,20)
- real xmud,ext,ome,gasym,phase,qhase,uhase
- real coef,sigm,pi
- integer i,j,k,l,j1,j2,iaer,icp,ipol
- character FILE*80
-
- common /sixs_aer/ ext(20),ome(20),gasym(20),phase(20),qhase(20),
- &uhase(20)
-
- real ex,sc,asy,vi
- common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4)
-
- real wldisc(20)
-
- data wldisc /0.350,0.400,0.412,0.443,0.470,0.488,0.515,0.550,
- s 0.590,0.633,0.670,0.694,0.760,0.860,1.240,1.536,
- s 1.650,1.950,2.250,3.750/
-
-
- pi=4.*atan(1.)
-
-c if(iaer.eq.0) return
-
- if (iaer.eq.12) then
- open(10,file=FILE)
- read (10,*) nbmu
- read(10,*)
- do l=1,20
- read(10,'(10x,4(3x,f8.4,3x))')ext(l),sca(l),ome(l),gasym(l)
- enddo
- read(10,'(///)')
- do k=1,nbmu
- read(10,'(8x,20(1x,e10.4))')(phasel(l,k),l=1,20)
- enddo
- if (ipol.ne.0)then
- do k=1,nbmu
- read(10,'(8x,20(1x,e10.4))')(qhasel(l,k),l=1,20)
- enddo
- do k=1,nbmu
- read(10,'(8x,20(1x,e10.4))')(uhasel(l,k),l=1,20)
- enddo
- endif
- nquad=nbmu
- close(10)
- endif
-
-c - calculation of gauss points
- nbmu=nquad
- nbmu_2=(nbmu-3)/2
- call gauss(-1.,1.,cosang,weight,nbmu-3)
- cgaus_S(1)=-1.0
- pdgs_S(1)=0.0
- do j=1,nbmu_2
- cgaus_S(j+1)=cosang(j)
- pdgs_S(j+1)=weight(j)
- enddo
- cgaus_S(nbmu_2+2)=0.
- pdgs_S(nbmu_2+2)=0.
- do j=nbmu_2+1,nbmu-3
- cgaus_S(j+2)=cosang(j)
- pdgs_S(j+2)=weight(j)
- enddo
- cgaus_S(nbmu)=1.0
- pdgs_S(nbmu)=0.
-c - calculation of gauss points
-
- do 7 k=1,nbmu-1
- if((xmud.ge.cgaus_S(k)).and.(xmud.lt.cgaus_S(k+1))) go to 8
- 7 continue
- return
- 8 j1=k
- j2=j1+1
- coef=-(xmud-cgaus_S(j1))/(cgaus_S(j2)-cgaus_S(j1))
-
-
- if (iaer.eq.12) then
- do l=1,20
- phase(l)=phasel(l,j1)+coef*(phasel(l,j1)-phasel(l,j2))
- enddo
- if (ipol.ne.0)then
- do l=1,20
- qhase(l)=qhasel(l,j1)+coef*(qhasel(l,j1)-qhasel(l,j2))
- uhase(l)=uhasel(l,j1)+coef*(uhasel(l,j1)-uhasel(l,j2))
- enddo
- endif
- return
- endif
-
- do 1 l=1,20
- ext(l)=0.
- sca(l)=0.
- if(l.eq.4.and.iaer.eq.0) ext(l)=1.
- ome(l)=0.
- gasym(l)=0.
- phase(l)=0.
- qhase(l)=0.
- uhase(l)=0.
- do 1 k=1,nbmu
- phasel(l,k)=0.
- qhasel(l,k)=0.
- uhasel(l,k)=0.
- 1 continue
-
- do 2 j=1,4
- ci(j)=co(j)
- 2 continue
-
- if(iaer.eq.0) goto 777
-
- if (iaer.ge.5.and.iaer.le.11) then
-c calling a special aerosol model
-
-c (background desert model...)
- if (iaer.eq.5) call bdm
-
-c (biomass burning model...)
- if (iaer.eq.6) call bbm
-
-c (stratospherique aerosol model...)
- if (iaer.eq.7) call stm
-
-c (user defined model from size distribution)
- if (iaer.ge.8.and.iaer.le.11) then
- call mie(iaer,wldis,ex,sc,asy,ipol)
- endif
-
- do l=1,20
- dd(1,l)=ph(l,j1)+coef*(ph(l,j1)-ph(l,j2))
- do k=1,nbmu
- pha(1,l,k)=ph(l,k)
- enddo
- enddo
- if (ipol.ne.0)then
- do l=1,20
- qq(1,l)=qh(l,j1)+coef*(qh(l,j1)-qh(l,j2))
- uu(1,l)=uh(l,j1)+coef*(uh(l,j1)-uh(l,j2))
- do k=1,nbmu
- qha(1,l,k)=qh(l,k)
- uha(1,l,k)=uh(l,k)
- enddo
- enddo
- endif
- icp=1
- cij(1)=1.00
-c for normalization of the extinction coefficient
- nis=1.d+00/ex(1,8)
-
-
- else
-c calling each sra components
- icp=4
-c extrapolate each component for wavelength
-
- do l=1,20
- do j=1,4
- ex(j,l)=0
- sc(j,l)=0.
- asy(j,l)=0.
- enddo
- enddo
-
-c phase function of 4 components
- do j=1,4
- if (j.eq.1) call dust
- if (j.eq.2) call wate
- if (j.eq.3) call ocea
- if (j.eq.4) call soot
- do l=1,20
- dd(j,l)=ph(l,j1)+coef*(ph(l,j1)-ph(l,j2))
- do k=1,nbmu
- pha(j,l,k)=ph(l,k)
- enddo
- if (ipol.ne.0)then
- qq(j,l)=qh(l,j1)+coef*(qh(l,j1)-qh(l,j2))
- uu(j,l)=uh(l,j1)+coef*(uh(l,j1)-uh(l,j2))
- do k=1,nbmu
- qha(j,l,k)=qh(l,k)
- uha(j,l,k)=uh(l,k)
- enddo
- endif
- enddo
- enddo
-
-c summ of the ci/vi calculation
-
- sigm=0.
- sumni=0.0
- do 3 i=1,4
- 3 sigm=sigm+ci(i)/vi(i)
-
-c cij coefficients calculation
- do 4 j=1,4
- cij(j)=(ci(j)/vi(j)/sigm)
- sumni=sumni+cij(j)*ex(j,8)
- 4 continue
-
- nis=1.d+00/sumni
- endif
-
-
-c mixing parameters calculation
- do 5 l=1,20
- do 6 j=1,icp
- ext(l)=ex(j,l)*cij(j)+ext(l)
- sca(l)=sc(j,l)*cij(j)+sca(l)
- gasym(l)=sc(j,l)*cij(j)*asy(j,l)+gasym(l)
- phase(l)=sc(j,l)*cij(j)*dd(j,l)+phase(l)
- do 77 k=1,nbmu
- phasel(l,k)=sc(j,l)*cij(j)*pha(j,l,k)+phasel(l,k)
- 77 continue
- if (ipol.ne.0)then
- qhase(l)=sc(j,l)*cij(j)*qq(j,l)+qhase(l)
- uhase(l)=sc(j,l)*cij(j)*uu(j,l)+uhase(l)
- do k=1,nbmu
- qhasel(l,k)=sc(j,l)*cij(j)*qha(j,l,k)+qhasel(l,k)
- uhasel(l,k)=sc(j,l)*cij(j)*uha(j,l,k)+uhasel(l,k)
- enddo
- endif
- 6 continue
- ome(l)=sca(l)/ext(l)
- gasym(l)=gasym(l)/sca(l)
- phase(l)=phase(l)/sca(l)
- do 78 k=1,nbmu
- phasel(l,k)=phasel(l,k)/sca(l)
- 78 continue
- if (ipol.ne.0)then
- qhase(l)=qhase(l)/sca(l)
- uhase(l)=uhase(l)/sca(l)
- do k=1,nbmu
- qhasel(l,k)=qhasel(l,k)/sca(l)
- uhasel(l,k)=uhasel(l,k)/sca(l)
- enddo
- endif
- ext(l)=ext(l)*nis
- sca(l)=sca(l)*nis
- 5 continue
-
- if (iaer.ge.8.and.iaer.le.11) then
- open(10,file=FILE)
- write(10,*) nbmu
- write(10,'(3x,A5,1x,5(1x,A10,1x),1x,A10)')'Wlgth','Nor_Ext_Co',
- s 'Nor_Sca_Co','Sg_Sca_Alb','Asymm_Para','Extinct_Co','Scatter_Co'
- do 79 l=1,20
- write(10,'(2x,f8.4,4(3x,f8.4,3x),2(2x,e10.4))')
- s wldis(l),ext(l),sca(l),ome(l),gasym(l),ext(l)/nis,sca(l)/nis
- 79 continue
- write(10,'(//,T20,A16,/,3x,A4,1x,20(3x,f6.4,2x))')
- s ' Phase Function ','TETA',(wldis(l),l=1,20)
- do 76 k=1,nbmu
- write(10,761)180.*acos(cgaus_S(k))/pi,(phasel(l,k),l=1,20)
- 76 continue
- 761 format (2x,f6.2,20(1x,e10.4))
- if (ipol.ne.0)then
- do k=1,nbmu
- write(10,761)180.*acos(cgaus_S(k))/pi,(qhasel(l,k),l=1,20)
- enddo
- do k=1,nbmu
- write(10,761)180.*acos(cgaus_S(k))/pi,(uhasel(l,k),l=1,20)
- enddo
- endif
- close(10)
- endif
-
- 777 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.h b/Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.h
deleted file mode 100644
index 35f80ba..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AEROSO.h
+++ /dev/null
@@ -1,9 +0,0 @@
-extern int otb_6s_aeroso_(
- otb_6s_integer *iaer,
- otb_6s_doublereal *co,
- otb_6s_doublereal *xmud,
- otb_6s_doublereal *wldis,
- char *file,
- otb_6s_integer *ipol,
- otb_6s_ftnlen file_len
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.P b/Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.P
deleted file mode 100644
index 84f5aa7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.P
+++ /dev/null
@@ -1,29 +0,0 @@
-extern int msrm_();
-extern int akd_();
-extern int biz_();
-extern int difr92_();
-extern int glak_(doublereal *glth, doublereal *th);
-extern int gmf_(doublereal *gf);
-extern int soil_();
-extern int soilspec_();
-extern int gmd92_();
-extern int leaf_();
-extern int s13aaf_();
-extern int tav_();
-extern int valeur_();
-extern int dakg_(doublereal *u, doublereal *a, integer *nq);
-extern int akbrdf_(doublereal *eei, doublereal *thmi, doublereal *uli, doublereal *sli, doublereal *rsl1i, doublereal *wlmoy, doublereal *rnci, doublereal *cabi, doublereal *cwi, doublereal *vaii, integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal *brdfint);
-extern int akalbe_(doublereal *albbrdf);
-/* comlen count_ 352 */
-/* comlen soildata_ 6472 */
-/* comlen aaa_ 72 */
-/* comlen ggg_ 296 */
-/* comlen ladak_ 32 */
-/* comlen leafin_ 24 */
-/* comlen leafout_ 16 */
-/* comlen dat_ 6400 */
-/* comlen cfresn_ 16 */
-/* comlen msrmdata_ 40 */
-/* comlen nagout_ 8 */
-/* comlen tauin_ 16 */
-/* comlen tauout_ 8 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.c b/Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.c
deleted file mode 100644
index 1cdf3c3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.c
+++ /dev/null
@@ -1,3112 +0,0 @@
-/* AKTOOL.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-struct count_1_ {
- integer jl, jj, lg, jg, lf, nnx, n1, n2;
- doublereal u1[10], u2[10], a1[10], a2[10];
-};
-
-#define count_1 (*(struct count_1_ *) &count_)
-
-struct soildata_1_ {
- doublereal phis1[200], phis2[200], phis3[200], phis4[200], rsl1, rsl2,
- rsl3, rsl4, th2, rsl, rsoil, rr1soil, rrsoil;
-};
-
-#define soildata_1 (*(struct soildata_1_ *) &soildata_)
-
-Extern struct {
- doublereal rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint;
-} aaa_;
-
-#define aaa_1 aaa_
-
-Extern struct {
- doublereal gr, gt, g, g1, th, sth, cth, th1, sth1, cth1, phi, sp, cp,
- th22, st, ct, st1, ct1, t10, t11, e1, e2, s2, s3, ctg, ctg1, ctt1,
- stt1, calph, alp2, salp2, calp2, alph, salph, alpp, difmy,
- difsig;
-} ggg_;
-
-#define ggg_1 ggg_
-
-Extern struct {
- doublereal ee, thm, sthm, cthm;
-} ladak_;
-
-#define ladak_1 ladak_
-
-Extern union {
- struct {
- doublereal nnl, vai, kk;
- } _1;
- struct {
- doublereal nn, vai, k;
- } _2;
-} leafin_;
-
-#define leafin_1 (leafin_._1)
-#define leafin_2 (leafin_._2)
-
-Extern struct {
- doublereal refl, tran;
-} leafout_;
-
-#define leafout_1 leafout_
-
-struct dat_1_ {
- doublereal refr[200], ke[200], kab[200], kw[200];
-};
-struct dat_2_ {
- doublereal ref[200], ke[200], kab[200], kw[200];
-};
-
-#define dat_1 (*(struct dat_1_ *) &dat_)
-#define dat_2 (*(struct dat_2_ *) &dat_)
-
-Extern struct {
- doublereal rn, rk;
-} cfresn_;
-
-#define cfresn_1 cfresn_
-
-Extern struct {
- doublereal th10, rncoef, cab, cw, bq;
-} msrmdata_;
-
-#define msrmdata_1 msrmdata_
-
-Extern struct {
- doublereal inex__;
-} nagout_;
-
-#define nagout_1 nagout_
-
-Extern struct {
- doublereal teta, ref;
-} tauin_;
-
-#define tauin_1 tauin_
-
-Extern struct {
- doublereal tau;
-} tauout_;
-
-#define tauout_1 tauout_
-
-/* Initialized data */
-
-struct {
- integer fill_1[4];
- integer e_2;
- integer fill_3[83];
- } count_ = { {0}, 1 };
-
-struct {
- doublereal e_1[800];
- doublereal fill_2[9];
- } soildata_ = { .088, .095, .102, .109, .116, .123, .13, .136, .143, .15,
- .157, .164, .171, .178, .185, .192, .199, .206, .213, .22, .227,
- .233, .24, .247, .254, .261, .268, .275, .282, .289, .295, .302,
- .309, .316, .326, .335, .345, .356, .366, .376, .386, .395, .404,
- .412, .421, .429, .436, .443, .45, .457, .464, .47, .476, .483,
- .489, .495, .502, .508, .514, .52, .526, .532, .538, .543, .549,
- .555, .561, .568, .574, .58, .587, .594, .601, .608, .615, .622,
- .629, .637, .644, .652, .659, .667, .674, .681, .689, .696, .702,
- .709, .716, .723, .729, .735, .742, .748, .754, .76, .766, .771,
- .777, .782, .802, .819, .832, .842, .854, .868, .883, .899, .917,
- .935, .954, .974, .993, 1.012, 1.03, 1.047, 1.063, 1.078, 1.091,
- 1.102, 1.111, 1.118, 1.126, 1.137, 1.15, 1.163, 1.176, 1.187,
- 1.192, 1.188, 1.177, 1.159, 1.134, 1.09, .979, .83, .764, .744,
- .748, .777, .823, .878, .932, .983, 1.026, 1.062, 1.091, 1.115,
- 1.133, 1.147, 1.156, 1.161, 1.162, 1.158, 1.149, 1.132, 1.109,
- 1.087, 1.072, 1.056, 1.035, .989, .886, .659, .456, .35, .323,
- .335, .361, .396, .438, .484, .53, .576, .622, .664, .705, .74,
- .768, .788, .8, .802, .796, .794, .797, .789, .779, .756, .725,
- .715, .675, .635, .585, .535, .485, .435, .385, .335, .285, .235,
- .249, .245, .241, .237, .232, .228, .222, .217, .211, .205, .199,
- .193, .186, .179, .171, .163, .155, .147, .139, .13, .121, .111,
- .102, .092, .081, .071, .06, .049, .038, .026, .014, .002, -.011,
- -.024, -.037, -.05, -.064, -.078, -.092, -.107, -.121, -.137,
- -.152, -.168, -.184, -.2, -.216, -.232, -.246, -.259, -.27, -.28,
- -.289, -.297, -.303, -.308, -.313, -.317, -.322, -.325, -.329,
- -.332, -.335, -.338, -.34, -.342, -.345, -.347, -.35, -.352,
- -.355, -.358, -.36, -.363, -.366, -.369, -.372, -.374, -.377,
- -.378, -.38, -.381, -.382, -.382, -.383, -.382, -.382, -.381,
- -.38, -.378, -.376, -.373, -.37, -.367, -.363, -.359, -.354,
- -.349, -.344, -.338, -.31, -.283, -.258, -.234, -.212, -.19,
- -.167, -.143, -.118, -.092, -.066, -.039, -.014, .011, .034, .057,
- .083, .114, .151, .192, .233, .272, .311, .348, .38, .407, .438,
- .476, .521, .57, .624, .674, .708, .766, .824, .853, .854, .852,
- .858, .881, .916, .947, .973, .997, 1.017, 1.036, 1.052, 1.067,
- 1.082, 1.095, 1.107, 1.119, 1.131, 1.142, 1.154, 1.166, 1.175,
- 1.179, 1.178, 1.172, 1.162, 1.148, 1.083, .9, .678, .538, .499,
- .515, .552, .598, .653, .716, .777, .834, .886, .932, .973, 1.007,
- 1.036, 1.058, 1.075, 1.086, 1.091, 1.091, 1.086, 1.076, 1.06,
- 1.039, 1.012, .98, .943, .9, .852, .799, .74, .676, .606, .532,
- .451, .366, -.417, -.384, -.351, -.318, -.285, -.253, -.221,
- -.189, -.157, -.126, -.095, -.064, -.033, -.003, .027, .057, .087,
- .117, .146, .175, .204, .232, .26, .289, .316, .344, .371, .399,
- .425, .452, .478, .505, .525, .545, .566, .587, .606, .626, .652,
- .676, .699, .722, .744, .764, .784, .804, .822, .839, .856, .872,
- .886, .9, .913, .926, .937, .948, .957, .966, .974, .981, .988,
- .993, .998, 1.002, 1.006, 1.009, 1.012, 1.014, 1.016, 1.017,
- 1.018, 1.018, 1.018, 1.017, 1.016, 1.014, 1.012, 1.01, 1.007,
- 1.003, .999, .995, .99, .984, .978, .972, .965, .957, .949, .941,
- .932, .923, .913, .902, .891, .88, .868, .855, .842, .829, .766,
- .694, .62, .55, .484, .421, .361, .303, .247, .19, .134, .079,
- .023, -.031, -.086, -.14, -.19, -.235, -.275, -.31, -.34, -.367,
- -.394, -.422, -.452, -.484, -.513, -.541, -.565, -.578, -.575,
- -.556, -.525, -.468, -.323, -.115, -.018, .002, -.003, -.029,
- -.076, -.142, -.211, -.274, -.333, -.386, -.432, -.471, -.503,
- -.528, -.544, -.551, -.549, -.538, -.517, -.491, -.463, -.436,
- -.419, -.417, -.401, -.348, -.216, .014, .16, .203, .209, .21,
- .207, .2, .189, .174, .155, .132, .105, .075, .043, .013, -.012,
- -.035, -.053, -.068, -.078, -.082, -.08, -.073, -.06, -.041,
- -.017, .006, .035, .065, .097, .125, .168, .18, .168, .125, .097,
- .065, .067, .077, .086, .094, .102, .111, .118, .126, .133, .14,
- .146, .152, .158, .164, .169, .174, .179, .184, .188, .192, .195,
- .198, .201, .204, .206, .208, .21, .212, .213, .214, .214, .214,
- .214, .214, .213, .212, .211, .21, .21, .209, .207, .205, .202,
- .198, .194, .189, .184, .179, .173, .167, .161, .155, .149, .143,
- .136, .13, .123, .116, .108, .101, .093, .085, .077, .068, .06,
- .051, .043, .034, .026, .018, .01, .002, -.006, -.014, -.022,
- -.03, -.037, -.045, -.052, -.06, -.067, -.074, -.081, -.087,
- -.093, -.098, -.103, -.108, -.112, -.116, -.12, -.123, -.126,
- -.129, -.132, -.134, -.136, -.138, -.14, -.141, -.147, -.152,
- -.158, -.166, -.17, -.165, -.157, -.151, -.144, -.128, -.104,
- -.078, -.049, -.009, .038, .082, .122, .169, .222, .272, .317,
- .364, .413, .469, .532, .591, .642, .694, .748, .79, .81, .817,
- .819, .74, .494, .215, .11, .125, .155, .204, .291, .408, .521,
- .627, .724, .811, .884, .94, .987, 1.025, 1.053, 1.071, 1.077,
- 1.072, 1.046, .996, .941, .892, .857, .842, .809, .713, .509,
- .055, -.236, -.324, -.336, -.32, -.308, -.294, -.275, -.248,
- -.205, -.144, -.094, -.048, .005, .058, .105, .132, .123, .079,
- .045, .024, .014, .018, .022, -.01, -.042, -.054, -.055, -.06,
- -.06, -.055, -.05, -.046, -.042, -.038, -.034, -.03 };
-
-struct {
- doublereal e_1[800];
- } dat_ = { 1.5123, 1.5094, 1.507, 1.505, 1.5032, 1.5019, 1.5007, 1.4997,
- 1.4988, 1.498, 1.4969, 1.4959, 1.4951, 1.4943, 1.4937, 1.493,
- 1.4925, 1.492, 1.4915, 1.491, 1.4904, 1.4899, 1.4893, 1.4887,
- 1.488, 1.4873, 1.4865, 1.4856, 1.4846, 1.4836, 1.4825, 1.4813,
- 1.4801, 1.4788, 1.4774, 1.4761, 1.4746, 1.4732, 1.4717, 1.4701,
- 1.4685, 1.467, 1.4654, 1.4639, 1.4624, 1.4609, 1.4595, 1.4582,
- 1.457, 1.4559, 1.4548, 1.4538, 1.4528, 1.4519, 1.451, 1.4502,
- 1.4495, 1.4489, 1.4484, 1.448, 1.4477, 1.4474, 1.4472, 1.447,
- 1.4468, 1.4467, 1.4465, 1.4463, 1.4461, 1.4458, 1.4456, 1.4453,
- 1.445, 1.4447, 1.4444, 1.444, 1.4435, 1.443, 1.4423, 1.4417,
- 1.4409, 1.4402, 1.4394, 1.4387, 1.438, 1.4374, 1.4368, 1.4363,
- 1.4357, 1.4352, 1.4348, 1.4345, 1.4342, 1.4341, 1.434, 1.434,
- 1.4341, 1.4342, 1.4343, 1.4345, 1.4347, 1.4348, 1.4347, 1.4345,
- 1.4341, 1.4336, 1.4331, 1.4324, 1.4317, 1.4308, 1.4297, 1.4284,
- 1.4269, 1.4253, 1.4235, 1.4216, 1.4196, 1.4176, 1.4156, 1.4137,
- 1.4118, 1.41, 1.4082, 1.4065, 1.4047, 1.4029, 1.4011, 1.3993,
- 1.3975, 1.3958, 1.394, 1.3923, 1.3906, 1.3888, 1.387, 1.3851,
- 1.383, 1.3808, 1.3784, 1.3758, 1.3731, 1.3703, 1.3676, 1.3648,
- 1.362, 1.3592, 1.3565, 1.3537, 1.351, 1.3484, 1.3458, 1.3433,
- 1.341, 1.3388, 1.3368, 1.335, 1.3333, 1.3317, 1.3303, 1.3289,
- 1.3275, 1.3263, 1.3251, 1.3239, 1.3228, 1.3217, 1.3205, 1.3194,
- 1.3182, 1.3169, 1.3155, 1.314, 1.3123, 1.3105, 1.3086, 1.3066,
- 1.3046, 1.3026, 1.3005, 1.2985, 1.2964, 1.2944, 1.2923, 1.2902,
- 1.2882, 1.2863, 1.2844, 1.2826, 1.2808, 1.2793, 1.2781, 1.2765,
- 1.275, 1.2738, 1.2728, 1.2719, 1.2712, 1.2708, 1.2712, 1.2736,
- .1104, .0893, .0714, .0567, .0442, .0348, .0279, .0232, .0197,
- .0173, .0154, .0142, .012, .0108, .0093, .0092, .0092, .0092,
- .0092, .0092, .0091, .0091, .0091, .0091, .0091, .009, .009, .009,
- .009, .009, .0089, .0089, .0089, .0089, .0088, .0088, .0088,
- .0088, .0088, .0087, .0087, .0087, .0087, .0087, .0086, .0086,
- .0086, .0086, .0086, .0085, .0085, .0085, .0085, .0085, .0084,
- .0084, .0084, .0084, .0084, .0083, .0083, .0083, .0082, .0082,
- .0082, .0082, .0082, .0081, .0081, .0081, .0081, .0081, .008,
- .008, .008, .008, .008, .0079, .0079, .0079, .0079, .0079, .0078,
- .0078, .0078, .0078, .0078, .0077, .0077, .0077, .0077, .0077,
- .0076, .0076, .0076, .0076, .0076, .0075, .0075, .0075, .0074,
- .0073, .0072, .0071, .007, .0069, .0068, .0068, .0067, .0066,
- .0065, .0064, .0063, .0062, .0062, .0061, .006, .0059, .0058,
- .0057, .0056, .0056, .0054, .0053, .0053, .0052, .0051, .005,
- .0049, .0048, .0047, .0047, .0046, .0045, .0044, .0043, .0042,
- .0041, .004, .0039, .0039, .0037, .0037, .0036, .0035, .0034,
- .0033, .0032, .0031, .0031, .003, .0029, .0028, .0027, .0026,
- .0025, .0025, .0024, .0023, .0022, .0021, .002, .0019, .0019,
- .0018, .0017, .0016, .0015, .0014, .0014, .0013, .0012, .001,
- .001, 9e-4, 8e-4, 7e-4, 6e-4, 6e-4, 5e-4, 4e-4, 3e-4, 2e-4, 2e-4,
- 1e-4, 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
- .04664, .04684, .04568, .04482, .04344, .04257, .04287, .04189,
- .04116, .03847, .03409, .03213, .03096, .03116, .03051, .03061,
- .02998, .02965, .02913, .02902, .02769, .02707, .02539, .02409,
- .0215, .01807, .01566, .01317, .01095, .00929, .00849, .00803,
- .00788, .00757, .00734, .00713, .00692, .00693, .00716, .00758,
- .00815, .00877, .00938, .00976, .01041, .01089, .01105, .01127,
- .0117, .01222, .0128, .01374, .01441, .01462, .01495, .01499,
- .01506, .0158, .01686, .0181, .01961, .02112, .02336, .02702,
- .0288, .02992, .03142, .03171, .02961, .02621, .02078, .01518,
- .0102, .00718, .00519, .0039, .00298, .00218, .00163, .00116,
- 8.3e-4, 5.7e-4, 3.9e-4, 2.7e-4, 1.4e-4, 1.1e-4, 9e-5, 5e-5, 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., 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., 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., 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., 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., 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., 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., 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., 0., 0., 0., 0., 0., 0., 0., 0., 0.,
- 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., .1, .2,
- .278, .206, .253, .26, .313, .285, .653, .614, .769, .901, .872,
- .812, .733, .724, .855, .9, 1.028, 1.5, 2.026, 2.334, 3.636,
- 8.942, 14.88, 17.838, 19.497, 19.419, 17.999, 12.024, 10.709,
- 8.384, 7.081, 6.155, 5.619, 5.112, 4.512, 4.313, 4.064, 3.804,
- 3.709, 3.877, 4.348, 4.574, 5.029, 5.804, 6.345, 5.823, 5.886,
- 6.315, 8.432, 15.588, 32.247, 51.05, 58.694, 55.135, 50.454,
- 42.433, 40.67, 36.03, 29.771, 25.153, 24.378, 22.008, 20.608,
- 18.576, 17.257, 15.921, 14.864, 12.861, 12.773, 12.426, 13.09,
- 14.013, 15.066, 15.857, 16.776, 19.113, 21.066, 22.125, 26.438,
- 28.391, 28.92, 31.754, 36.375, 40.056, 41.019, 45.471, 43.126 };
-
-
-/* Table of constant values */
-
-static doublereal c_b46 = -1.;
-static integer c__9 = 9;
-static integer c__1 = 1;
-
-/*< subroutine msrm >*/
-/* Subroutine */ int msrm_()
-{
-
- /* Builtin functions */
- double sin(doublereal), cos(doublereal);
-
- /* Local variables */
- extern /* Subroutine */ int biz_();
- doublereal rtp, cth10, sth10, rrls;
- extern /* Subroutine */ int difr92_();
-
-
-/* MultiSpectral Reflectance Model 93 A.Kuusk 24.03.1993 */
-
-/*< implicit double precision (a-h, o-z) >*/
-/*< save /count/, /soildata/, /aaa/, /ggg/, /ladak/ >*/
-
-/*< dimension u1(10), u2(10), a1(10), a2(10) >*/
-/*< common /count/ jl, jj, lg, jg, lf, nnx, n1, n2, u1, u2, a1, a2 >*/
-
-/*< double precision nnl, kk >*/
-/*< common /leafin/ nnl, vai, kk >*/
-/*< common /leafout/ refl, tran >*/
-
-/*< double precision ke, kab, kw >*/
-/*< dimension refr(200), ke(200), kab(200), kw(200) >*/
-/*< common /dat/ refr, ke, kab, kw >*/
-
-/*< dimension phis1(200), phis2(200), phis3(200), phis4(200) >*/
-/*< >*/
-
-/*< common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint >*/
-/*< >*/
-/*< common /cfresn/ rn, rk >*/
-/*< common /ladak/ ee, thm, sthm, cthm >*/
-/*< common /msrmdata/ th10, rncoef, cab, cw, bq >*/
-
-/*< data pi12/1.570796326794895d0/, pi/3.141592653589793d0/ >*/
-/*< data eps4/.1d-3/ >*/
-
-/* print *, 'msrm' */
-
-/*< sth10 = sin(th10) >*/
- sth10 = sin(msrmdata_1.th10);
-/*< cth10 = cos(th10) >*/
- cth10 = cos(msrmdata_1.th10);
-
-/*< sp = sin(phi) >*/
- ggg_1.sp = sin(ggg_1.phi);
-/*< cp = cos(phi) >*/
- ggg_1.cp = cos(ggg_1.phi);
-/*< th1 = th10 >*/
- ggg_1.th1 = msrmdata_1.th10;
-/*< sth1 = sth10 >*/
- ggg_1.sth1 = sth10;
-/*< cth1 = cth10 >*/
- ggg_1.cth1 = cth10;
-/*< sth = sin(th) >*/
- ggg_1.sth = sin(ggg_1.th);
-/*< cth = cos(th) >*/
- ggg_1.cth = cos(ggg_1.th);
-/*< rrls = rrl >*/
- rrls = aaa_1.rrl;
-
-/*< call biz >*/
- biz_();
-
-/*< rrl = refl >*/
- aaa_1.rrl = leafout_1.refl;
-/*< rtp = rrl + ttl >*/
- rtp = aaa_1.rrl + aaa_1.ttl;
-
-/*< call difr92 >*/
- difr92_();
-
-/*< 10 continue >*/
-/* L10: */
-
-/*< rrl = rrls >*/
- aaa_1.rrl = rrls;
-/*< bq = bi + bd >*/
- msrmdata_1.bq = aaa_1.bi + aaa_1.bd;
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* msrm_ */
-
-
-/* ***************************************************************** */
-
-/*< subroutine akd >*/
-/* Subroutine */ int akd_()
-{
- /* Initialized data */
-
- static doublereal eps = .005;
- static doublereal pi = 3.141592653589793;
- static doublereal pi1 = 1.5707963268;
-
- /* System generated locals */
- integer i__1, i__2;
-
- /* Builtin functions */
- double sin(doublereal), cos(doublereal);
-
- /* Local variables */
- integer i__, j, i1, i2;
- doublereal bd1, bd2, tt2[10], tt3[10];
- extern /* Subroutine */ int biz_();
- doublereal thi, rtp, ctt2[10], ctt3[10], stt2[10], stt3[10], rrls;
- extern /* Subroutine */ int difr92_();
-
-/* bdz A.Kuusk 4.03.1988 */
-
-/*< implicit double precision (a-h, o-z) >*/
-/*< save /count/, /aaa/, /ggg/ >*/
-
-/*< dimension tt3(10), stt3(10), ctt3(10), tt2(10), stt2(10), ctt2(10) >*/
-
-/*< dimension u1(10), u2(10), a1(10), a2(10) >*/
-/*< common /count/ jl, jj, lg, jg, lf, nnx, n1, n2, u1, u2, a1, a2 >*/
-
-/*< double precision nnl, kk >*/
-/*< common /leafin/ nnl, vai, kk >*/
-/*< common /leafout/ refl, tran >*/
-
-/*< common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint >*/
-/*< >*/
-
-/*< data pi/3.141592653589793d0/, pi1/1.5707963268d0/, eps/.005d0/ >*/
-
-/* print *, 'akd' */
-/*< bqint = 0.d0 >*/
- aaa_1.bqint = 0.;
-/*< if (th .gt. eps) goto 4 >*/
- if (ggg_1.th > eps) {
- goto L4;
- }
-/*< phi = 0.d0 >*/
- ggg_1.phi = 0.;
-/*< sp = 0.d0 >*/
- ggg_1.sp = 0.;
-/*< cp = 1.d0 >*/
- ggg_1.cp = 1.;
-
-/*< do 10 i2 = 1, n2 >*/
- i__1 = count_1.n2;
- for (i2 = 1; i2 <= i__1; ++i2) {
-/*< th1 = (1.d0 - u2(i2))*pi1 >*/
- ggg_1.th1 = (1. - count_1.u2[i2 - 1]) * pi1;
-/*< sth1 = sin(th1) >*/
- ggg_1.sth1 = sin(ggg_1.th1);
-/*< cth1 = cos(th1) >*/
- ggg_1.cth1 = cos(ggg_1.th1);
-/*< rrls = rrl >*/
- rrls = aaa_1.rrl;
-
-/*< call biz >*/
- biz_();
-
-/*< rrl = refl >*/
- aaa_1.rrl = leafout_1.refl;
-/*< rtp = rrl + ttl >*/
- rtp = aaa_1.rrl + aaa_1.ttl;
-
-/*< call difr92 >*/
- difr92_();
-
-/*< rrl = rrls >*/
- aaa_1.rrl = rrls;
-/*< bqint = bqint + a2(i2)*(bi + bd)*sth1*cth1 >*/
- aaa_1.bqint += count_1.a2[i2 - 1] * (aaa_1.bi + aaa_1.bd) *
- ggg_1.sth1 * ggg_1.cth1;
-/*< 10 continue >*/
-/* L10: */
- }
-
-/*< bqint = bqint*pi >*/
- aaa_1.bqint *= pi;
-/*< goto 1 >*/
- goto L1;
-
-/*< 4 continue >*/
-L4:
-/*< do 14 i = 1, n1 >*/
- i__1 = count_1.n1;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< thi = u1(i)*th >*/
- thi = count_1.u1[i__ - 1] * ggg_1.th;
-/*< tt3(i) = thi >*/
- tt3[i__ - 1] = thi;
-/*< stt3(i) = sin(thi) >*/
- stt3[i__ - 1] = sin(thi);
-/*< ctt3(i) = cos(thi) >*/
- ctt3[i__ - 1] = cos(thi);
-/*< 14 continue >*/
-/* L14: */
- }
-
-/*< do 15 i = 1, n2 >*/
- i__1 = count_1.n2;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< thi = u2(i)*(th - pi1) + pi1 >*/
- thi = count_1.u2[i__ - 1] * (ggg_1.th - pi1) + pi1;
-/*< tt2(i) = thi >*/
- tt2[i__ - 1] = thi;
-/*< stt2(i) = sin(thi) >*/
- stt2[i__ - 1] = sin(thi);
-/*< ctt2(i) = cos(thi) >*/
- ctt2[i__ - 1] = cos(thi);
-/*< 15 continue >*/
-/* L15: */
- }
-
-/*< do 11 j = 1, n1 >*/
- i__1 = count_1.n1;
- for (j = 1; j <= i__1; ++j) {
-/*< phi = (1.d0 - u1(j))*pi >*/
- ggg_1.phi = (1. - count_1.u1[j - 1]) * pi;
-/*< sp = sin(phi) >*/
- ggg_1.sp = sin(ggg_1.phi);
-/*< cp = cos(phi) >*/
- ggg_1.cp = cos(ggg_1.phi);
-/*< bd1 = 0.d0 >*/
- bd1 = 0.;
-/*< bd2 = 0.d0 >*/
- bd2 = 0.;
-/*< do 12 i1 = 1, n1 >*/
- i__2 = count_1.n1;
- for (i1 = 1; i1 <= i__2; ++i1) {
-/*< th1 = tt3(i1) >*/
- ggg_1.th1 = tt3[i1 - 1];
-/*< sth1 = stt3(i1) >*/
- ggg_1.sth1 = stt3[i1 - 1];
-/*< cth1 = ctt3(i1) >*/
- ggg_1.cth1 = ctt3[i1 - 1];
-
-/*< rrls = rrl >*/
- rrls = aaa_1.rrl;
-
-/*< call biz >*/
- biz_();
-
-/*< rrl = refl >*/
- aaa_1.rrl = leafout_1.refl;
-/*< rtp = rrl + ttl >*/
- rtp = aaa_1.rrl + aaa_1.ttl;
-
-/*< call difr92 >*/
- difr92_();
-
-/*< rrl = rrls >*/
- aaa_1.rrl = rrls;
-
-/*< bd1 = bd1 + a1(i1)*(bi + bd)*sth1*cth1 >*/
- bd1 += count_1.a1[i1 - 1] * (aaa_1.bi + aaa_1.bd) * ggg_1.sth1 *
- ggg_1.cth1;
-/*< 12 continue >*/
-/* L12: */
- }
-
-/*< do 13 i2 = 1, n2 >*/
- i__2 = count_1.n2;
- for (i2 = 1; i2 <= i__2; ++i2) {
-/*< th1 = tt2(i2) >*/
- ggg_1.th1 = tt2[i2 - 1];
-/*< sth1 = stt2(i2) >*/
- ggg_1.sth1 = stt2[i2 - 1];
-/*< cth1 = ctt2(i2) >*/
- ggg_1.cth1 = ctt2[i2 - 1];
-
-/*< rrls = rrl >*/
- rrls = aaa_1.rrl;
-
-/*< call biz >*/
- biz_();
-
-/*< rrl = refl >*/
- aaa_1.rrl = leafout_1.refl;
-/*< rtp = rrl + ttl >*/
- rtp = aaa_1.rrl + aaa_1.ttl;
-
-/*< call difr92 >*/
- difr92_();
-
-/*< rrl = rrls >*/
- aaa_1.rrl = rrls;
-
-/*< bd2 = bd2 + a2(i2)*(bi + bd)*sth1*cth1 >*/
- bd2 += count_1.a2[i2 - 1] * (aaa_1.bi + aaa_1.bd) * ggg_1.sth1 *
- ggg_1.cth1;
-/*< 13 continue >*/
-/* L13: */
- }
-
-/*< bqint = bqint + ((pi1 - th)*bd2 + th*bd1)*a1(j) >*/
- aaa_1.bqint += ((pi1 - ggg_1.th) * bd2 + ggg_1.th * bd1) * count_1.a1[
- j - 1];
-/*< 11 continue >*/
-/* L11: */
- }
-
-/*< bqint = bqint + bqint >*/
- aaa_1.bqint += aaa_1.bqint;
-
-/*< 1 return >*/
-L1:
- return 0;
-/*< end >*/
-} /* akd_ */
-
-
-/* ***************************************************************** */
-
-/*< subroutine biz >*/
-/* Subroutine */ int biz_()
-{
- /* Initialized data */
-
- static doublereal pi = 3.14159265358979;
- static doublereal eps = 1e-5;
- static doublereal eps3 = .01;
-
- /* System generated locals */
- doublereal d__1;
-
- /* Builtin functions */
- double acos(doublereal), sin(doublereal), cos(doublereal), sqrt(
- doublereal), exp(doublereal);
-
- /* Local variables */
- doublereal x, x2, y4, gf, gg, bc1, gg1, bs1, xx1, xx2, bam, gma;
- extern /* Subroutine */ int gmf_(doublereal *);
- doublereal sct, thp, ulg, ths, bc1d, ulg1, th1s;
- extern /* Subroutine */ int glak_(doublereal *, doublereal *);
- doublereal alpd;
- extern /* Subroutine */ int gmd92_();
- doublereal bcsp, cths;
- extern /* Subroutine */ int soil_();
- doublereal sths, bc1hs, cth1s, sth1s, gammd, easte, catmp, glthp, easte2,
- easte4;
-
-/* canopy reflectance of single scattering for direct radiation */
-/* A. Kuusk 6.02.1992 */
-
-/*< implicit double precision (a-h, o-z) >*/
-/*< double precision integr >*/
-/*< save /count/, /soildata/, /aaa/, /ggg/, /ladak/ >*/
-
-/* dimension gj(2), g1j(2), grj(2), gtj(2), gfj(2) */
-
-/*< dimension u1(10), u2(10), a1(10), a2(10) >*/
-/*< common /count/ jl, jj, lg, jg, lf, nnx, n1, n2, u1, u2, a1, a2 >*/
-
-/*< dimension phis1(200), phis2(200), phis3(200), phis4(200) >*/
-/*< >*/
-
-/*< common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint >*/
-/*< >*/
-/*< common /ladak/ ee, thm, sthm, cthm >*/
-
-/*< data pi/3.14159265358979d0/, eps/.1d-4/, eps3/.01d0/ >*/
-
-/*< integr(xx) = (1.d0 - exp(-xx))/xx >*/
-/* print *, 'biz in' */
-/*< ths = th >*/
- ths = ggg_1.th;
-/*< sths = sth >*/
- sths = ggg_1.sth;
-/*< cths = cth >*/
- cths = ggg_1.cth;
-/*< th1s = th1 >*/
- th1s = ggg_1.th1;
-/*< sth1s = sth1 >*/
- sth1s = ggg_1.sth1;
-/*< cth1s = cth1 >*/
- cth1s = ggg_1.cth1;
-/* thms = thm */
-
-/*< call soil >*/
- soil_();
-
-/*< if (ul .gt. eps) goto 2 >*/
- if (aaa_1.ul > eps) {
- goto L2;
- }
-/*< bi = rsoil >*/
- aaa_1.bi = soildata_1.rsoil;
-/*< goto 1 >*/
- goto L1;
-
-/*< 2 continue >*/
-L2:
-/*< if (th1 .lt. th) goto 12 >*/
- if (ggg_1.th1 < ggg_1.th) {
- goto L12;
- }
-/*< t11 = th1 >*/
- ggg_1.t11 = ggg_1.th1;
-/*< st = sth >*/
- ggg_1.st = ggg_1.sth;
-/*< st1 = sth1 >*/
- ggg_1.st1 = ggg_1.sth1;
-/*< ct = cth >*/
- ggg_1.ct = ggg_1.cth;
-/*< ct1 = cth1 >*/
- ggg_1.ct1 = ggg_1.cth1;
-/*< t10 = th >*/
- ggg_1.t10 = ggg_1.th;
-/*< jj = 0 >*/
- count_1.jj = 0;
-/*< goto 7 >*/
- goto L7;
-
-/*< 12 t10 = th1 >*/
-L12:
- ggg_1.t10 = ggg_1.th1;
-/*< st = sth1 >*/
- ggg_1.st = ggg_1.sth1;
-/*< st1 = sth >*/
- ggg_1.st1 = ggg_1.sth;
-/*< ct = cth1 >*/
- ggg_1.ct = ggg_1.cth1;
-/*< ct1 = cth >*/
- ggg_1.ct1 = ggg_1.cth;
-/*< t11 = th >*/
- ggg_1.t11 = ggg_1.th;
-/*< jj = 1 >*/
- count_1.jj = 1;
-
-/*< 7 continue >*/
-L7:
-/*< ctt1 = ct*ct1 >*/
- ggg_1.ctt1 = ggg_1.ct * ggg_1.ct1;
-/*< stt1 = st*st1 >*/
- ggg_1.stt1 = ggg_1.st * ggg_1.st1;
-/*< calph = stt1*cp + ctt1 >*/
- ggg_1.calph = ggg_1.stt1 * ggg_1.cp + ggg_1.ctt1;
-/*< catmp = calph >*/
- catmp = ggg_1.calph;
-/*< alph = acos(catmp) >*/
- ggg_1.alph = acos(catmp);
-/*< alp2 = alph*.5d0 >*/
- ggg_1.alp2 = ggg_1.alph * .5;
-/* if (lf .ne. 2) then */
-/* if( jg .gt. 2) then */
-/* print *, ' *** biz3: jg > 2 ***' */
-/* stop */
-/* endif */
-/*< e1 = st*ct1 >*/
- ggg_1.e1 = ggg_1.st * ggg_1.ct1;
-/*< e2 = ct*st1 >*/
- ggg_1.e2 = ggg_1.ct * ggg_1.st1;
-/*< s2 = e1*cp + e2 >*/
- ggg_1.s2 = ggg_1.e1 * ggg_1.cp + ggg_1.e2;
-/*< s3 = e1*sp >*/
- ggg_1.s3 = ggg_1.e1 * ggg_1.sp;
-/*< ctg = 1.d30 >*/
- ggg_1.ctg = 1e30;
-/*< ctg1 = 1.d30 >*/
- ggg_1.ctg1 = 1e30;
-/*< if (st .ne. 0.d0) ctg = ct/st >*/
- if (ggg_1.st != 0.) {
- ggg_1.ctg = ggg_1.ct / ggg_1.st;
- }
-/*< if (st1 .ne. 0.d0) ctg1 = ct1/st1 >*/
- if (ggg_1.st1 != 0.) {
- ggg_1.ctg1 = ggg_1.ct1 / ggg_1.st1;
- }
-/*< salph = sin(alph) >*/
- ggg_1.salph = sin(ggg_1.alph);
-/*< alpp = pi - alph >*/
- ggg_1.alpp = pi - ggg_1.alph;
-/*< salp2 = sin(alp2) >*/
- ggg_1.salp2 = sin(ggg_1.alp2);
-/*< calp2 = cos(alp2) >*/
- ggg_1.calp2 = cos(ggg_1.alp2);
-
-/*< call gmf(gf) >*/
- gmf_(&gf);
-
-/*< if (ee .le. eps3) goto 95 >*/
- if (ladak_1.ee <= eps3) {
- goto L95;
- }
-/*< y4 = abs(cth + cth1)*.5d0/calp2 >*/
- y4 = (d__1 = ggg_1.cth + ggg_1.cth1, abs(d__1)) * .5 / ggg_1.calp2;
-/*< if (y4.lt.1.d0) thp = acos(y4) >*/
- if (y4 < 1.) {
- thp = acos(y4);
- }
-
-/*< 95 call glak(glthp, thp) >*/
-L95:
- glak_(&glthp, &thp);
-
-/*< x2 = glthp*.125d0 >*/
- x2 = glthp * .125;
-/*< gf = gf*x2 >*/
- gf *= x2;
-
-/*< call gmd92 >*/
- gmd92_();
-
-/*< gammd = gr*rrl + gt*ttl >*/
- gammd = ggg_1.gr * aaa_1.rrl + ggg_1.gt * aaa_1.ttl;
-
-/*< t11 = th1 >*/
- ggg_1.t11 = ggg_1.th1;
-/*< st = sth >*/
- ggg_1.st = ggg_1.sth;
-/*< st1 = sth1 >*/
- ggg_1.st1 = ggg_1.sth1;
-/*< ct = cth >*/
- ggg_1.ct = ggg_1.cth;
-/*< ct1 = cth1 >*/
- ggg_1.ct1 = ggg_1.cth1;
-/*< t10 = th >*/
- ggg_1.t10 = ggg_1.th;
-/*< if (jj .eq. 1) then >*/
- if (count_1.jj == 1) {
-/*< x = g1 >*/
- x = ggg_1.g1;
-/*< g1 = g >*/
- ggg_1.g1 = ggg_1.g;
-/*< g = x >*/
- ggg_1.g = x;
-/*< endif >*/
- }
-
-/* print *, 'biz:2' */
-/*< gg = g*g1 >*/
- gg = ggg_1.g * ggg_1.g1;
-/*< g = g*clmp >*/
- ggg_1.g *= aaa_1.clmp;
-/*< g1 = g1*clmp1 >*/
- ggg_1.g1 *= aaa_1.clmp1;
-/*< gg1 = g*ct1 + g1*ct >*/
- gg1 = ggg_1.g * ggg_1.ct1 + ggg_1.g1 * ggg_1.ct;
-/*< sct = sqrt(ctt1) >*/
- sct = sqrt(ggg_1.ctt1);
-/*< alpd = alp2/sl >*/
- alpd = ggg_1.alp2 / aaa_1.sl;
-/*< bam = alpd*sct/ul >*/
- bam = alpd * sct / aaa_1.ul;
-
-/*< if (ctt1 .gt. eps) then >*/
- if (ggg_1.ctt1 > eps) {
-/*< gma = alpd/sct >*/
- gma = alpd / sct;
-/*< ulg = gg1/ctt1*ul >*/
- ulg = gg1 / ggg_1.ctt1 * aaa_1.ul;
-/*< else >*/
- } else {
-/*< gma = 0.d0 >*/
- gma = 0.;
-/*< ulg = ul >*/
- ulg = aaa_1.ul;
-/*< endif >*/
- }
-/*< ulg1 = ulg*.5d0 >*/
- ulg1 = ulg * .5;
-/*< xx1 = ulg + gma >*/
- xx1 = ulg + gma;
-/*< if ((xx1 .gt. 30.d0) .or. (ctt1 .le. eps)) then >*/
- if (xx1 > 30. || ggg_1.ctt1 <= eps) {
-/*< easte = 0.d0 >*/
- easte = 0.;
-/*< easte2 = 0.d0 >*/
- easte2 = 0.;
-/*< easte4 = 0.d0 >*/
- easte4 = 0.;
-/*< bs1 = 0.d0 >*/
- bs1 = 0.;
-/*< else >*/
- } else {
-/*< easte = exp(-ulg) >*/
- easte = exp(-ulg);
-/*< easte2 = exp(-ulg1 - gma) >*/
- easte2 = exp(-ulg1 - gma);
-/*< easte4 = exp(-ulg - gma) >*/
- easte4 = exp(-ulg - gma);
-/*< bs1 = (easte + easte2 - easte4)*rsoil >*/
- bs1 = (easte + easte2 - easte4) * soildata_1.rsoil;
-/*< endif >*/
- }
-
-/*< xx1 = (1.d0 - easte)/gg1 >*/
- xx1 = (1. - easte) / gg1;
-/*< >*/
- xx2 = (1. - easte2) / (gg1 * .5 + bam) - (1. - easte4) / (gg1 + bam);
-/*< bc1d = xx1*gammd >*/
- bc1d = xx1 * gammd;
-/*< bc1hs = xx2*(gammd + gf) >*/
- bc1hs = xx2 * (gammd + gf);
-/*< bcsp = xx1*gf >*/
- bcsp = xx1 * gf;
-/*< bc1 = bc1d + bcsp + bc1hs >*/
- bc1 = bc1d + bcsp + bc1hs;
-/*< bi = bc1 + bs1 >*/
- aaa_1.bi = bc1 + bs1;
-
-/*< 1 continue >*/
-L1:
-/*< th = ths >*/
- ggg_1.th = ths;
-/*< sth = sths >*/
- ggg_1.sth = sths;
-/*< cth = cths >*/
- ggg_1.cth = cths;
-/*< th1 = th1s >*/
- ggg_1.th1 = th1s;
-/*< sth1 = sth1s >*/
- ggg_1.sth1 = sth1s;
-/*< cth1s = cth1 >*/
- cth1s = ggg_1.cth1;
-/* thm = thms */
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* biz_ */
-
-
-/* ***************************************************************** */
-
-/*< subroutine difr92 >*/
-/* Subroutine */ int difr92_()
-{
- /* System generated locals */
- doublereal d__1, d__2;
-
- /* Builtin functions */
- double sqrt(doublereal), exp(doublereal);
-
- /* Local variables */
- doublereal a, b, c__, d__, m, h1, h2, bf, gg, m11, m12, m21, m22, em, sb,
- ko, sf, ks, ub, uf, ep, ek, gp, gm, det, sig, ems, att, rtp, epso,
- epss, tsun, tanto, tants, tview, rdsoil, rplants;
-
-/* diffuse fluxes according to SAIL for an elliptical LAD */
-/* A. Kuusk 16.06.1992 */
-
-/*< implicit double precision (a-h, o-z) >*/
-/*< double precision ks, ko, m, m11, m12, m21, m22, integr >*/
-/*< save /soildata/, /aaa/, /ggg/, /ladak/ >*/
-
-/*< dimension phis1(200), phis2(200), phis3(200), phis4(200) >*/
-/*< >*/
-
-/*< common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint >*/
-/*< >*/
-/*< common /ladak/ ee, thm, sthm, cthm >*/
-
-/*< integr(x) = (1.d0 - exp(-x))/x >*/
-/* print *, 'difr92' */
-
-/*< tsun = th1 >*/
- tsun = ggg_1.th1;
-/*< tview = th >*/
- tview = ggg_1.th;
-/*< tants = sth1/cth1 >*/
- tants = ggg_1.sth1 / ggg_1.cth1;
-/*< tanto = sth/cth >*/
- tanto = ggg_1.sth / ggg_1.cth;
-/*< rtp = (rrl + ttl)/2.d0 >*/
- rtp = (aaa_1.rrl + aaa_1.ttl) / 2.;
-
-/*< ks = g1*ul/cth1 >*/
- ks = ggg_1.g1 * aaa_1.ul / ggg_1.cth1;
-/*< ko = g*ul/cth >*/
- ko = ggg_1.g * aaa_1.ul / ggg_1.cth;
-/*< >*/
-/* Computing 2nd power */
- d__1 = ladak_1.cthm;
- gg = (ggg_1.difmy * 1.289 - ggg_1.difsig * 1.816) * (d__1 * d__1 -
- .33333333333) + .31823;
-/*< bf = (rrl - ttl)/2.d0*ul*gg >*/
- bf = (aaa_1.rrl - aaa_1.ttl) / 2. * aaa_1.ul * gg;
-/*< att = (1.d0 - rtp)*ul + bf >*/
- att = (1. - rtp) * aaa_1.ul + bf;
-/*< sig = rtp*ul + bf >*/
- sig = rtp * aaa_1.ul + bf;
-/*< sb = ks*rtp + bf >*/
- sb = ks * rtp + bf;
-/*< sf = ks*rtp - bf >*/
- sf = ks * rtp - bf;
-/*< ub = ko*rtp + bf >*/
- ub = ko * rtp + bf;
-/*< uf = ko*rtp - bf >*/
- uf = ko * rtp - bf;
-/*< m = sqrt(att**2 - sig**2) >*/
-/* Computing 2nd power */
- d__1 = att;
-/* Computing 2nd power */
- d__2 = sig;
- m = sqrt(d__1 * d__1 - d__2 * d__2);
-/*< h1 = (att + m)/sig >*/
- h1 = (att + m) / sig;
-/*< h2 = 1.d0/h1 >*/
- h2 = 1. / h1;
-/*< c = (sf*sig - sb*(ks - att))/(m**2 - ks**2) >*/
-/* Computing 2nd power */
- d__1 = m;
-/* Computing 2nd power */
- d__2 = ks;
- c__ = (sf * sig - sb * (ks - att)) / (d__1 * d__1 - d__2 * d__2);
-/*< d = (sb*sig + sf*(ks + att))/(m**2 - ks**2) >*/
-/* Computing 2nd power */
- d__1 = m;
-/* Computing 2nd power */
- d__2 = ks;
- d__ = (sb * sig + sf * (ks + att)) / (d__1 * d__1 - d__2 * d__2);
-/* epso = skyl - d*sq */
-/*< epso = - d >*/
- epso = -d__;
-/* epss = (rrsoil*(d + 1.d0) - c)*sq*exp(-ks) */
-/*< epss = (rrsoil*(d + 1.d0) - c)*exp(-ks) >*/
- epss = (soildata_1.rrsoil * (d__ + 1.) - c__) * exp(-ks);
-/*< m11 = h1 >*/
- m11 = h1;
-/*< m12 = h2 >*/
- m12 = h2;
-/*< m21 = (1.d0 - rrsoil*h1)*exp(-m) >*/
- m21 = (1. - soildata_1.rrsoil * h1) * exp(-m);
-/*< m22 = (1.d0 - rrsoil*h2)*exp(m) >*/
- m22 = (1. - soildata_1.rrsoil * h2) * exp(m);
-/*< det = m11*m22 - m12*m21 >*/
- det = m11 * m22 - m12 * m21;
-/*< a = (m22*epso - m12*epss)/det >*/
- a = (m22 * epso - m12 * epss) / det;
-/*< b = (-m21*epso + m11*epss)/det >*/
- b = (-m21 * epso + m11 * epss) / det;
-/*< ep = integr(ko + m) >*/
- d__1 = ko + m;
- ep = (1. - exp(-d__1)) / d__1;
-/*< em = integr(ko - m) >*/
- d__1 = ko - m;
- em = (1. - exp(-d__1)) / d__1;
-/*< ek = integr(ko + ks) >*/
- d__1 = ko + ks;
- ek = (1. - exp(-d__1)) / d__1;
-/* gp = a*ep + b*em + c*ek*sq */
-/*< gp = a*ep + b*em + c*ek >*/
- gp = a * ep + b * em + c__ * ek;
-/* gm = h1*a*ep + h2*b*em + d*ek*sq */
-/*< gm = h1*a*ep + h2*b*em + d*ek >*/
- gm = h1 * a * ep + h2 * b * em + d__ * ek;
-/* ems = h1*a*exp(-m) + h2*b*exp(m) + d*sq*exp(-ks) */
-/*< ems = h1*a*exp(-m) + h2*b*exp(m) + d*exp(-ks) >*/
- ems = h1 * a * exp(-m) + h2 * b * exp(m) + d__ * exp(-ks);
-/*< rplants = uf*gp + ub*gm >*/
- rplants = uf * gp + ub * gm;
-/*< rdsoil = rrsoil*ems*exp(-ko) >*/
- rdsoil = soildata_1.rrsoil * ems * exp(-ko);
-/*< bd = rplants + rdsoil >*/
- aaa_1.bd = rplants + rdsoil;
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* difr92_ */
-
-
-/* ********************************************************************* */
-
-/*< subroutine glak(glth, th) >*/
-/* Subroutine */ int glak_(doublereal *glth, doublereal *th)
-{
- /* Initialized data */
-
- static doublereal tms = 0.;
- static doublereal eps = .1;
- static doublereal bb = 1.;
- static doublereal es = 0.;
-
- /* System generated locals */
- doublereal d__1;
-
- /* Builtin functions */
- double sqrt(doublereal), log(doublereal), atan2(doublereal, doublereal),
- cos(doublereal);
-
- /* Local variables */
- doublereal x, u1, u2, u3, u4, x1, x2;
-
-/* elliptical distribution */
-/* A.Kuusk 1.03.1988 */
-
-/*< implicit double precision (a-h, o-z) >*/
-/*< save /aaa/, /ladak/ >*/
-/*< save bb, es, tms >*/
-
-/*< common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint >*/
-/*< common /ladak/ ee, thm, sthm, cthm >*/
-
-/*< data bb/1.d0/, es/0.d0/, tms/0.d0/, eps/.1d0/ >*/
-
-/* print *, 'gl' */
-
-/*< if (ee .lt. eps) then >*/
- if (ladak_1.ee < eps) {
-/*< glth = 1.d0 >*/
- *glth = 1.;
-/*< return >*/
- return 0;
-/*< endif >*/
- }
-
-/*< if (ee .eq. 1.d0) ee = .999999d0 >*/
- if (ladak_1.ee == 1.) {
- ladak_1.ee = .999999;
- }
-/*< if ((ee .ne. es) .or. (thm .ne. tms)) then >*/
- if (ladak_1.ee != es || ladak_1.thm != tms) {
-/*< u1 = ee*cthm >*/
- u1 = ladak_1.ee * ladak_1.cthm;
-/*< u3 = ee*sthm >*/
- u3 = ladak_1.ee * ladak_1.sthm;
-/*< u2 = sqrt(1.d0 - u1*u1) >*/
- u2 = sqrt(1. - u1 * u1);
-/*< u4 = sqrt(1.d0 - u3*u3) >*/
- u4 = sqrt(1. - u3 * u3);
-/*< x = log((u4 + u1)/(u2 - u3)) >*/
- x = log((u4 + u1) / (u2 - u3));
-/*< x1 = atan2(u3, u4) - atan2(u1, u2) >*/
- x1 = atan2(u3, u4) - atan2(u1, u2);
-/*< x2 = sthm*x - cthm*x1 >*/
- x2 = ladak_1.sthm * x - ladak_1.cthm * x1;
-/*< bb = ee/x2 >*/
- bb = ladak_1.ee / x2;
-/*< es = ee >*/
- es = ladak_1.ee;
-/*< tms = thm >*/
- tms = ladak_1.thm;
-/*< endif >*/
- }
-
-/*< glth = bb/sqrt(1.d0 - (ee*cos(thm - th))**2) >*/
-/* Computing 2nd power */
- d__1 = ladak_1.ee * cos(ladak_1.thm - *th);
- *glth = bb / sqrt(1. - d__1 * d__1);
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* glak_ */
-
-
-/* ***************************************************************** */
-
-/*< subroutine gmf(gf) >*/
-/* Subroutine */ int gmf_(doublereal *gf)
-{
- /* Initialized data */
-
- static doublereal pi12 = 1.570796326794895;
-
- /* Builtin functions */
- double sqrt(doublereal), exp(doublereal);
-
- /* Local variables */
- doublereal y, x2, ca, ag, bg, cg, xy, yy, sa2;
-
-/* Fresnel' reflection A.Kuusk 02.01.1991 */
-/* input parameters are ca = cos(th_incident), rn=refract.ind., */
-/* rk = leaf hair index */
-
-/*< implicit double precision (a-h, o-z) >*/
-/*< save /aaa/, /ggg/ >*/
-
-/*< common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint >*/
-/*< >*/
-/*< common /cfresn/ rn, rk >*/
-
-/*< data pi12/1.570796326794895d0/ >*/
-
-/* print *, 'gmf' */
-
-/*< ca=calp2 >*/
- ca = ggg_1.calp2;
-/*< x2 = ca*ca >*/
- x2 = ca * ca;
-/*< ag = x2*2.d0 - 1.d0 + rn*rn >*/
- ag = x2 * 2. - 1. + cfresn_1.rn * cfresn_1.rn;
-/*< bg = 1.d0 + (ag - 2.d0)*x2 >*/
- bg = (ag - 2.) * x2 + 1.;
-/*< xy = ag - x2 >*/
- xy = ag - x2;
-/*< cg = 2.d0*ca*sqrt(xy) >*/
- cg = ca * 2. * sqrt(xy);
-/*< sa2 = 1.d0 - x2 >*/
- sa2 = 1. - x2;
-/*< y = (bg + sa2*cg)*(ag + cg) >*/
- y = (bg + sa2 * cg) * (ag + cg);
-/*< y = (ag - cg)*bg/y >*/
- y = (ag - cg) * bg / y;
-/*< yy = sqrt(sa2)/pi12/ca*rk >*/
- yy = sqrt(sa2) / pi12 / ca * cfresn_1.rk;
-/*< gf = exp(-yy)*y >*/
- *gf = exp(-yy) * y;
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* gmf_ */
-
-
-/* ***************************************************************** */
-
-/*< subroutine soil >*/
-/* Subroutine */ int soil_()
-{
- /* Initialized data */
-
- static doublereal a = .45098;
- static doublereal b = 5.7829;
- static doublereal c__ = 13.7575;
- static doublereal cts = 13.7575;
- static doublereal ths1 = .785398163;
- static doublereal ths2 = .785398163;
-
- doublereal x, x2;
-
-/* Soil directional reflectance and reflectance (albedo) */
-/* th, th1, th2 in radianes, cp = cos(phi) */
-/* A.Kuusk 1.03.1988 */
-
-/*< implicit double precision (a-h, o-z) >*/
-/*< save a, b, c, cts, ths1, ths2 >*/
-/*< save /soildata/, /aaa/, /ggg/ >*/
-
-/*< dimension phis1(200), phis2(200), phis3(200), phis4(200) >*/
-/*< >*/
-
-/*< common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint >*/
-/*< >*/
-
-/*< data a/.45098d0/, b/5.7829d0/, c, cts/2*13.7575d0/ >*/
-/*< data ths1, ths2/2*.785398163d0/ >*/
-
-/* print *, 'soil' */
-/*< if (th2 .ne. ths2) then >*/
- if (soildata_1.th2 != ths2) {
-/*< cts = 16.41d0 - th2*th2*4.3d0 >*/
- cts = 16.41 - soildata_1.th2 * soildata_1.th2 * 4.3;
-/*< ths2 = th2 >*/
- ths2 = soildata_1.th2;
-/*< endif >*/
- }
-/*< if (th1 .ne. ths1) then >*/
- if (ggg_1.th1 != ths1) {
-/*< ths1 = th1 >*/
- ths1 = ggg_1.th1;
-/*< x = th1*th1 >*/
- x = ggg_1.th1 * ggg_1.th1;
-/*< a = x*7.702d0 - 4.3d0 >*/
- a = x * 7.702 - 4.3;
-/*< b = th1*7.363d0 >*/
- b = ggg_1.th1 * 7.363;
-/*< c = 16.41d0 - x*4.3d0 >*/
- c__ = 16.41 - x * 4.3;
-/*< endif >*/
- }
-/*< x2 = rsl/cts >*/
- x2 = soildata_1.rsl / cts;
-/*< rsoil = ((a*th + b*cp)*th + c)*x2 >*/
- soildata_1.rsoil = ((a * ggg_1.th + b * ggg_1.cp) * ggg_1.th + c__) * x2;
-/*< rr1soil = (.7337d0*a + c)*x2 >*/
- soildata_1.rr1soil = (a * .7337 + c__) * x2;
-/*< rrsoil = 14.25d0*x2 >*/
- soildata_1.rrsoil = x2 * 14.25;
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* soil_ */
-
-
-/* ***************************************************************** */
-
-/*< subroutine soilspec >*/
-/* Subroutine */ int soilspec_()
-{
-
-/* Soil spectral reflectance, Price, RSE 33:113 - 121 (1990) */
-
-/*< implicit double precision (a-h, o-z) >*/
-/*< save /count/, /soildata/ >*/
-
-/*< dimension u1(10), u2(10), a1(10), a2(10) >*/
-/*< common /count/ jl, jj, lg, jg, lf, nnx, n1, n2, u1, u2, a1, a2 >*/
-
-/*< dimension phis1(200), phis2(200), phis3(200), phis4(200) >*/
-/*< >*/
-
-/*< >*/
- soildata_1.rsl = soildata_1.rsl1 * soildata_1.phis1[count_1.jl - 1] +
- soildata_1.rsl2 * soildata_1.phis2[count_1.jl - 1] +
- soildata_1.rsl3 * soildata_1.phis3[count_1.jl - 1] +
- soildata_1.rsl4 * soildata_1.phis4[count_1.jl - 1];
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* soilspec_ */
-
-
-/* ********************************************************************* */
-
-/*< subroutine gmd92 >*/
-/* Subroutine */ int gmd92_()
-{
- /* Initialized data */
-
- static doublereal pi = 3.14159265358979;
- static doublereal pi4 = 6.28318531717958;
- static doublereal pi12 = .159154943;
- static doublereal pi14 = .636619773;
- static doublereal eps5 = .001;
- static doublereal pi13 = .1061032953;
-
- /* Format strings */
- static char fmt_46[] = "";
- static char fmt_48[] = "";
- static char fmt_51[] = "";
- static char fmt_52[] = "";
- static char fmt_71[] = "";
- static char fmt_72[] = "";
- static char fmt_73[] = "";
- static char fmt_74[] = "";
-
- /* Builtin functions */
- double sqrt(doublereal), atan2(doublereal, doublereal), sin(doublereal),
- cos(doublereal);
-
- /* Local variables */
- doublereal f[5];
- integer j;
- doublereal x, y;
- integer i1, l2, l4;
- doublereal x1, y1, x2, fa, fb;
- integer ii;
- doublereal sg, pp, gr0, gr1, gt0, sg1, gt1, cfa, cfb, sfa, sfb, sgmr,
- sgmt;
-
- /* Assigned format variables */
- static char *l4_fmt, *l2_fmt;
-
-/* phase function and G-funktion */
-/* A. Kuusk 22.03.1988 & 16.06.1992 */
-/* 0< = th, th1, th2<=pi/2, 0<=phi<=pi */
-
-/*< implicit double precision (a-h, o-z) >*/
-/*< dimension f(5) >*/
-/*< save /aaa/, /ggg/, /ladak/ >*/
-
-/*< common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint >*/
-/*< >*/
-/*< common /ladak/ ee, thm, sthm, cthm >*/
-
-/*< >*/
-
-/* print *, 'gmd92' */
-
-/* *** gammad, e = 0. *** */
-/*< gr0 = (salph + alpp*calph)*pi13 >*/
- gr0 = (ggg_1.salph + ggg_1.alpp * ggg_1.calph) * pi13;
-/*< gt0 = (salph - alph*calph)*pi13 >*/
- gt0 = (ggg_1.salph - ggg_1.alph * ggg_1.calph) * pi13;
-/*< if (ee .lt. .4d0) then >*/
- if (ladak_1.ee < .4) {
-/*< gr = gr0 >*/
- ggg_1.gr = gr0;
-/*< gt = gt0 >*/
- ggg_1.gt = gt0;
-/*< g = .5d0 >*/
- ggg_1.g = .5;
-/*< g1 = .5d0 >*/
- ggg_1.g1 = .5;
-/*< return >*/
- return 0;
-/*< endif >*/
- }
-/* *** gammad, e = 1. *** */
-/*< sg = 0.d0 >*/
- sg = 0.;
-/*< sg1 = 0.d0 >*/
- sg1 = 0.;
-/*< sgmr = 0.d0 >*/
- sgmr = 0.;
-/*< sgmt = 0.d0 >*/
- sgmt = 0.;
-/*< if (th22 .lt. t11) goto 47 >*/
- if (ggg_1.th22 < ggg_1.t11) {
- goto L47;
- }
-/*< assign 46 to l4 >*/
- l4 = 0;
- l4_fmt = fmt_46;
-/*< goto 61 >*/
- goto L61;
-
-/*< 46 continue >*/
-L46:
-/*< assign 48 to l4 >*/
- l4 = 1;
- l4_fmt = fmt_48;
-/*< goto 64 >*/
- goto L64;
-
-/*< 47 continue >*/
-L47:
-/*< if (th22 .lt. t10) goto 50 >*/
- if (ggg_1.th22 < ggg_1.t10) {
- goto L50;
- }
-/*< assign 51 to l4 >*/
- l4 = 2;
- l4_fmt = fmt_51;
-/*< goto 62 >*/
- goto L62;
-
-/*< 51 continue >*/
-L51:
-/*< assign 46 to l4 >*/
- l4 = 0;
-/*< goto 65 >*/
- goto L65;
-
-/*< 50 continue >*/
-L50:
-/*< assign 52 to l4 >*/
- l4 = 3;
- l4_fmt = fmt_52;
-/*< goto 63 >*/
- goto L63;
-
-/*< 52 continue >*/
-L52:
-/*< assign 48 to l4 >*/
- l4 = 1;
- l4_fmt = fmt_48;
-/*< goto 65 >*/
- goto L65;
-
-/*< 48 continue >*/
-L48:
-
-/*< gr1 = sgmr*pi12 >*/
- gr1 = sgmr * pi12;
-/*< gt1 = sgmt*pi12 >*/
- gt1 = sgmt * pi12;
-/*< >*/
- ggg_1.gr = gr0 - .0102 + (ggg_1.difmy * 1.742 - ggg_1.difsig * .4557) * (
- gr1 - gr0);
-/*< >*/
- ggg_1.gt = gt0 + .00653 + (ggg_1.difmy * .2693 + ggg_1.difsig * 5.821) * (
- gt1 - gt0);
-/*< g = (2.653d0*difmy + 1.432d0*difsig)*(sg - .5d0) + .50072d0 >*/
- ggg_1.g = (ggg_1.difmy * 2.653 + ggg_1.difsig * 1.432) * (sg - .5) +
- .50072;
-/*< g1 = (2.653d0*difmy + 1.432d0*difsig)*(sg1 - .5d0) + .50072d0 >*/
- ggg_1.g1 = (ggg_1.difmy * 2.653 + ggg_1.difsig * 1.432) * (sg1 - .5) +
- .50072;
-
-/*< 49 continue >*/
-/* L49: */
-/*< return >*/
- return 0;
-
-/* ****************************** tl1 = 0., tl2=pi/2 - th1 */
-
-/*< 61 assign 71 to l2 >*/
-L61:
- l2 = 0;
- l2_fmt = fmt_71;
-/*< goto 130 >*/
- goto L130;
-/*< 71 y = pp >*/
-L71:
- y = pp;
-/*< if (y .gt. 0.d0) sgmr = sgmr + y >*/
- if (y > 0.) {
- sgmr += y;
- }
-/*< if (y .lt. 0.d0) sgmt = sgmt - y >*/
- if (y < 0.) {
- sgmt -= y;
- }
-/*< y1 = ct1*cthm >*/
- y1 = ggg_1.ct1 * ladak_1.cthm;
-/*< sg1 = sg1 + abs(y1) >*/
- sg1 += abs(y1);
-/*< goto l4 >*/
- switch (l4) {
- case 0: goto L46;
- case 1: goto L48;
- case 2: goto L51;
- case 3: goto L52;
- }
-
-/* ****************************** tl1 = pi/2 - th1, tl2=pi/2 - th */
-
-/*< 62 continue >*/
-L62:
-/*< x2 = cthm/sthm >*/
- x2 = ladak_1.cthm / ladak_1.sthm;
-/*< x = -ctg1*x2 >*/
- x = -ggg_1.ctg1 * x2;
-/*< x1 = sqrt(1.d0 - x*x) >*/
- x1 = sqrt(1. - x * x);
-/*< fa = atan2(x1, x) >*/
- fa = atan2(x1, x);
-/*< fb = pi4 - fa >*/
- fb = pi4 - fa;
-/*< assign 72 to l2 >*/
- l2 = 1;
- l2_fmt = fmt_72;
-/*< goto 30 >*/
- goto L30;
-
-/*< 72 continue >*/
-L72:
-/*< y = pp >*/
- y = pp;
-/*< if (y .gt. 0.d0) sgmr = sgmr + y >*/
- if (y > 0.) {
- sgmr += y;
- }
-/*< if (y .lt. 0.d0) sgmt = sgmt - y >*/
- if (y < 0.) {
- sgmt -= y;
- }
-/*< assign 73 to l2 >*/
- l2 = 2;
- l2_fmt = fmt_73;
-/*< goto 130 >*/
- goto L130;
-
-/*< 73 y = pp - y >*/
-L73:
- y = pp - y;
-/*< if (y .gt. 0.d0) sgmr = sgmr + y >*/
- if (y > 0.) {
- sgmr += y;
- }
-/*< if (y .lt. 0.d0) sgmt = sgmt - y >*/
- if (y < 0.) {
- sgmt -= y;
- }
-/*< goto l4 >*/
- switch (l4) {
- case 0: goto L46;
- case 1: goto L48;
- case 2: goto L51;
- case 3: goto L52;
- }
-
-/* ****************************** tl1 = pi/2 - th, tl2=pi/2 */
-
-/*< 63 continue >*/
-L63:
-/*< x2 = cthm/sthm >*/
- x2 = ladak_1.cthm / ladak_1.sthm;
-/*< x = -ctg1*x2 >*/
- x = -ggg_1.ctg1 * x2;
-/*< x1 = sqrt(1.d0 - x*x) >*/
- x1 = sqrt(1. - x * x);
-/*< fa = atan2(x1, x) >*/
- fa = atan2(x1, x);
-/*< f(2) = fa >*/
- f[1] = fa;
-/*< f(3) = pi4 - fa >*/
- f[2] = pi4 - fa;
-/*< x = -ctg*x2 >*/
- x = -ggg_1.ctg * x2;
-/*< x1 = sqrt(1.d0 - x*x) >*/
- x1 = sqrt(1. - x * x);
-/*< fa = atan2(x1, x) >*/
- fa = atan2(x1, x);
-/*< fb = phi - fa >*/
- fb = ggg_1.phi - fa;
-/*< if (fb .lt. 0.d0) fb = fb + pi4 >*/
- if (fb < 0.) {
- fb += pi4;
- }
-/*< f(4) = fb >*/
- f[3] = fb;
-/*< f(5) = phi + fa >*/
- f[4] = ggg_1.phi + fa;
-/*< do 75 ii = 2, 4 >*/
- for (ii = 2; ii <= 4; ++ii) {
-/*< i1 = ii + 1 >*/
- i1 = ii + 1;
-/*< do 75 j = i1, 5 >*/
- for (j = i1; j <= 5; ++j) {
-/*< fa = f(ii) >*/
- fa = f[ii - 1];
-/*< fb = f(j) >*/
- fb = f[j - 1];
-/*< if (fb .gt. fa) goto 75 >*/
- if (fb > fa) {
- goto L75;
- }
-/*< f(ii) = fb >*/
- f[ii - 1] = fb;
-/*< f(j) = fa >*/
- f[j - 1] = fa;
-/*< 75 continue >*/
-L75:
- ;
- }
- }
-/*< f(1) = f(5) - pi4 >*/
- f[0] = f[4] - pi4;
-/*< i1 = 1 >*/
- i1 = 1;
-/*< 76 ii = i1 >*/
-L76:
- ii = i1;
-/*< i1 = ii + 1 >*/
- i1 = ii + 1;
-/*< fa = f(ii) >*/
- fa = f[ii - 1];
-/*< fb = f(i1) >*/
- fb = f[i1 - 1];
-/*< assign 74 to l2 >*/
- l2 = 3;
- l2_fmt = fmt_74;
-/*< goto 30 >*/
- goto L30;
-
-/* ****************************** tl1 = pi/2 - th, tl2=pi/2 */
-
-/*< 74 continue >*/
-L74:
-/*< y = pp >*/
- y = pp;
-/*< if (y .gt. 0.d0) sgmr = sgmr + y >*/
- if (y > 0.) {
- sgmr += y;
- }
-/*< if (y .lt. 0.d0) sgmt = sgmt - y >*/
- if (y < 0.) {
- sgmt -= y;
- }
-/*< if (i1 .le. 4) goto 76 >*/
- if (i1 <= 4) {
- goto L76;
- }
-
-/*< x2 = ct*cthm >*/
- x2 = ggg_1.ct * ladak_1.cthm;
-/*< x1 = st*sthm/x2 >*/
- x1 = ggg_1.st * ladak_1.sthm / x2;
-/*< x1 = sqrt(x1*x1 - 1.d0) >*/
- x1 = sqrt(x1 * x1 - 1.);
-/*< x = atan2(1.d0, x1) >*/
- x = atan2(1., x1);
-/*< x = (x + x1)*x2 >*/
- x = (x + x1) * x2;
-/*< y = x*pi14 >*/
- y = x * pi14;
-/*< sg = sg + abs(y) >*/
- sg += abs(y);
-/*< goto l4 >*/
- switch (l4) {
- case 0: goto L46;
- case 1: goto L48;
- case 2: goto L51;
- case 3: goto L52;
- }
-
-/* ****************************** tl1 = 0, tl2=pi/2 - th */
-
-/*< 64 y1 = ct*cthm >*/
-L64:
- y1 = ggg_1.ct * ladak_1.cthm;
-/*< sg = sg + abs(y1) >*/
- sg += abs(y1);
-/*< goto l4 >*/
- switch (l4) {
- case 0: goto L46;
- case 1: goto L48;
- case 2: goto L51;
- case 3: goto L52;
- }
-
-/* ****************************** tl1 = pi/2 - th1, tl2=pi/2 */
-
-/*< 65 continue >*/
-L65:
-/*< x2 = ct1*cthm >*/
- x2 = ggg_1.ct1 * ladak_1.cthm;
-/*< x1 = st1*sthm/x2 >*/
- x1 = ggg_1.st1 * ladak_1.sthm / x2;
-/*< x1 = sqrt(x1*x1 - 1.d0) >*/
- x1 = sqrt(x1 * x1 - 1.);
-/*< x = atan2(1.d0, x1) >*/
- x = atan2(1., x1);
-/*< x = (x + x1)*x2 >*/
- x = (x + x1) * x2;
-/*< y = x*pi14 >*/
- y = x * pi14;
-/*< sg1 = sg1 + abs(y) >*/
- sg1 += abs(y);
-/*< goto l4 >*/
- switch (l4) {
- case 0: goto L46;
- case 1: goto L48;
- case 2: goto L51;
- case 3: goto L52;
- }
-
-/* ****************************** p(fa, fb) */
-
-/*< 30 x = fb - fa >*/
-L30:
- x = fb - fa;
-/*< if (x .gt. eps5) goto 31 >*/
- if (x > eps5) {
- goto L31;
- }
-/*< pp = 0.d0 >*/
- pp = 0.;
-/*< goto l2 >*/
- switch (l2) {
- case 0: goto L71;
- case 1: goto L72;
- case 2: goto L73;
- case 3: goto L74;
- }
-/*< 31 if ((pi4 - x) .lt. eps5) goto 130 >*/
-L31:
- if (pi4 - x < eps5) {
- goto L130;
- }
-/*< sfa = sin(fa) >*/
- sfa = sin(fa);
-/*< sfb = sin(fb) >*/
- sfb = sin(fb);
-/*< cfa = cos(fa) >*/
- cfa = cos(fa);
-/*< cfb = cos(fb) >*/
- cfb = cos(fb);
-/*< pp = x*ctt1*cthm*cthm >*/
- pp = x * ggg_1.ctt1 * ladak_1.cthm * ladak_1.cthm;
-/*< y1 = x + sfb*cfb - sfa*cfa >*/
- y1 = x + sfb * cfb - sfa * cfa;
-/*< x = cfa - cfb >*/
- x = cfa - cfb;
-/*< y1 = y1*cp + sp*x*(cfa + cfb) >*/
- y1 = y1 * ggg_1.cp + ggg_1.sp * x * (cfa + cfb);
-/*< pp = pp + stt1*.5d0*y1*sthm*sthm >*/
- pp += ggg_1.stt1 * .5 * y1 * ladak_1.sthm * ladak_1.sthm;
-/*< y1 = s2*(sfb - sfa) + s3*x >*/
- y1 = ggg_1.s2 * (sfb - sfa) + ggg_1.s3 * x;
-/*< pp = pp + y1*sthm*cthm >*/
- pp += y1 * ladak_1.sthm * ladak_1.cthm;
-/*< goto l2 >*/
- switch (l2) {
- case 0: goto L71;
- case 1: goto L72;
- case 2: goto L73;
- case 3: goto L74;
- }
-
-/*< 130 x = sthm*sthm >*/
-L130:
- x = ladak_1.sthm * ladak_1.sthm;
-/*< pp = calph*x + ctt1*(2.d0 - 3.d0*x) >*/
- pp = ggg_1.calph * x + ggg_1.ctt1 * (2. - x * 3.);
-/*< pp = pp*pi >*/
- pp *= pi;
-/*< goto l2 >*/
- switch (l2) {
- case 0: goto L71;
- case 1: goto L72;
- case 2: goto L73;
- case 3: goto L74;
- }
- return 0;
-/*< end >*/
-} /* gmd92_ */
-
-
-/* ***************************************************************** */
-
-
-/* ****************************************************************** */
-/* leaf reflectance and transmittance. */
-/* Input data are refractive index n, a structure parameter N */
-/* and an absorption coefficient k: */
-/* the PROSPECT model, Jacquemoud & Baret, RSE 34:75-91 (1990) */
-/* ****************************************************************** */
-/*< subroutine leaf >*/
-/* Subroutine */ int leaf_()
-{
- /* System generated locals */
- doublereal d__1, d__2, d__3, d__4;
-
- /* Builtin functions */
- double exp(doublereal), sqrt(doublereal), pow_dd(doublereal *, doublereal
- *);
-
- /* Local variables */
- doublereal r__, t, s1, t1, t2, s2, s3, x1, x2, x3, x4, x5, x6, ra, ta, va,
- vb;
- extern /* Subroutine */ int tav_();
- doublereal alfa, beta;
- extern /* Subroutine */ int s13aaf_();
- doublereal delta;
-
-
-/*< implicit double precision (a-h, o-z) >*/
-
-/*< double precision nn, k, inex >*/
-/*< common /leafin/ nn, vai, k >*/
-/*< common /leafout/ refl, tran >*/
-/*< common /nagout/ inex >*/
-/*< common /tauin/ teta, ref >*/
-/*< common /tauout/ tau >*/
-/* ******************************************************************
-*/
-/* determination of elementary reflectances et transmittances */
-/* ******************************************************************
-*/
-/* ALLEN et al., 1969, Interaction of isotropic ligth with a compact
- */
-/* plant leaf, J. Opt. Soc. Am., Vol.59, 10:1376-1379 */
-/* JACQUEMOUD S. and BARET F., 1990, Prospect : a model of leaf */
-/* optical properties spectra, Remote Sens. Environ., 34:75-91 */
-/* ******************************************************************
-*/
-/* print *, 'leaf' */
-/*< if (k .le. 0.d0) then >*/
- if (leafin_2.k <= 0.) {
-/*< k = 1.d0 >*/
- leafin_2.k = 1.;
-/*< else >*/
- } else {
-/*< call s13aaf >*/
- s13aaf_();
-/*< k = (1.d0 - k)*exp(-k) + k**2*inex >*/
-/* Computing 2nd power */
- d__1 = leafin_2.k;
- leafin_2.k = (1. - leafin_2.k) * exp(-leafin_2.k) + d__1 * d__1 *
- nagout_1.inex__;
-/*< endif >*/
- }
-/*< teta = 90.d0 >*/
- tauin_1.teta = 90.;
-/*< ref = nn >*/
- tauin_1.ref = leafin_2.nn;
-
-/*< call tav >*/
- tav_();
-
-/*< t1 = tau >*/
- t1 = tauout_1.tau;
-/*< teta = 59.d0 >*/
- tauin_1.teta = 59.;
-
-/*< call tav >*/
- tav_();
-
-/*< t2 = tau >*/
- t2 = tauout_1.tau;
-/*< x1 = 1.d0 - t1 >*/
- x1 = 1. - t1;
-/*< x2 = t1**2*k**2*(nn**2 - t1) >*/
-/* Computing 2nd power */
- d__1 = t1;
-/* Computing 2nd power */
- d__2 = leafin_2.k;
-/* Computing 2nd power */
- d__3 = leafin_2.nn;
- x2 = d__1 * d__1 * (d__2 * d__2) * (d__3 * d__3 - t1);
-/*< x3 = t1**2*k*nn**2 >*/
-/* Computing 2nd power */
- d__1 = t1;
-/* Computing 2nd power */
- d__2 = leafin_2.nn;
- x3 = d__1 * d__1 * leafin_2.k * (d__2 * d__2);
-/*< x4 = nn**4 - k**2*(nn**2 - t1)**2 >*/
-/* Computing 4th power */
- d__1 = leafin_2.nn, d__1 *= d__1;
-/* Computing 2nd power */
- d__2 = leafin_2.k;
-/* Computing 2nd power */
- d__4 = leafin_2.nn;
-/* Computing 2nd power */
- d__3 = d__4 * d__4 - t1;
- x4 = d__1 * d__1 - d__2 * d__2 * (d__3 * d__3);
-/*< x5 = t2/t1 >*/
- x5 = t2 / t1;
-/*< x6 = x5*(t1 - 1.d0) + 1.d0 - t2 >*/
- x6 = x5 * (t1 - 1.) + 1. - t2;
-/*< r = x1 + x2/x4 >*/
- r__ = x1 + x2 / x4;
-/*< t = x3/x4 >*/
- t = x3 / x4;
-/*< ra = x5*r + x6 >*/
- ra = x5 * r__ + x6;
-/*< ta = x5*t >*/
- ta = x5 * t;
-/* ******************************************************************
-*/
-/* reflectances et transmittances corresponding to N elementary */
-/* layers */
-/* ******************************************************************
-*/
-/* STOKES G.G., 1862, On the intensity of the light reflected from or
-*/
-/* transmitted through a pile of plates, Proceedings of the Royal */
-/* Society of London, Vol.11, 545-556 */
-/* ******************************************************************
-*/
-/*< delta = (t**2 - r**2 - 1.d0)**2 - 4.d0*r**2 >*/
-/* Computing 2nd power */
- d__2 = t;
-/* Computing 2nd power */
- d__3 = r__;
-/* Computing 2nd power */
- d__1 = d__2 * d__2 - d__3 * d__3 - 1.;
-/* Computing 2nd power */
- d__4 = r__;
- delta = d__1 * d__1 - d__4 * d__4 * 4.;
-/*< alfa = (1.d0 + r**2 - t**2 + sqrt(delta))/(2.d0*r) >*/
-/* Computing 2nd power */
- d__1 = r__;
-/* Computing 2nd power */
- d__2 = t;
- alfa = (d__1 * d__1 + 1. - d__2 * d__2 + sqrt(delta)) / (r__ * 2.);
-/*< beta = (1.d0 + r**2 - t**2 - sqrt(delta))/(2.d0*r) >*/
-/* Computing 2nd power */
- d__1 = r__;
-/* Computing 2nd power */
- d__2 = t;
- beta = (d__1 * d__1 + 1. - d__2 * d__2 - sqrt(delta)) / (r__ * 2.);
-/*< va = (1.d0 + r**2 - t**2 + sqrt(delta))/(2.d0*r) >*/
-/* Computing 2nd power */
- d__1 = r__;
-/* Computing 2nd power */
- d__2 = t;
- va = (d__1 * d__1 + 1. - d__2 * d__2 + sqrt(delta)) / (r__ * 2.);
-/*< vb = sqrt(beta*(alfa - r)/(alfa*(beta - r))) >*/
- vb = sqrt(beta * (alfa - r__) / (alfa * (beta - r__)));
-/*< >*/
- d__1 = leafin_2.vai - 1.;
- d__2 = -(leafin_2.vai - 1.);
- d__3 = leafin_2.vai - 1.;
- d__4 = -(leafin_2.vai - 1.);
- s1 = ra * (va * pow_dd(&vb, &d__1) - pow_dd(&va, &c_b46) * pow_dd(&vb, &
- d__2)) + (ta * t - ra * r__) * (pow_dd(&vb, &d__3) - pow_dd(&vb, &
- d__4));
-/*< s2 = ta*(va - va**(-1.d0)) >*/
- s2 = ta * (va - pow_dd(&va, &c_b46));
-/*< >*/
- d__1 = leafin_2.vai - 1.;
- d__2 = -(leafin_2.vai - 1.);
- d__3 = leafin_2.vai - 1.;
- d__4 = -(leafin_2.vai - 1.);
- s3 = va * pow_dd(&vb, &d__1) - pow_dd(&va, &c_b46) * pow_dd(&vb, &d__2) -
- r__ * (pow_dd(&vb, &d__3) - pow_dd(&vb, &d__4));
-/*< refl = s1/s3 >*/
- leafout_1.refl = s1 / s3;
-/*< tran = s2/s3 >*/
- leafout_1.tran = s2 / s3;
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* leaf_ */
-
-/* ****************************************************************** */
-/* exponential integral: int(exp(-t)/t, t = x..inf) */
-/* ****************************************************************** */
-/*< subroutine s13aaf >*/
-/* Subroutine */ int s13aaf_()
-{
- /* Builtin functions */
- double log(doublereal), exp(doublereal);
-
- /* Local variables */
- doublereal x, y;
-
-
-/*< implicit double precision (a-h, o-z) >*/
-
-/*< double precision nn, k, inex >*/
-/*< common /leafin/ nn, vai, k >*/
-/*< common /nagout/ inex >*/
-/* print *, 's13aafin' */
-/*< if (k .gt. 4.d0) goto 10 >*/
- if (leafin_2.k > 4.) {
- goto L10;
- }
-/*< x = 0.5d0 * k - 1.d0 >*/
- x = leafin_2.k * .5 - 1.;
-/*< >*/
- y = (((((((((((((((x * -3.60311230482612224e-13 + 3.46348526554087424e-12)
- * x - 2.99627399604128973e-11) * x + 2.57747807106988589e-10) *
- x - 2.09330568435488303e-9) * x + 1.59501329936987818e-8) * x -
- 1.13717900285428895e-7) * x + 7.55292885309152956e-7) * x -
- 4.64980751480619431e-6) * x + 2.63830365675408129e-5) * x -
- 1.37089870978830576e-4) * x + 6.476865037281034e-4) * x -
- .00276060141343627983) * x + .0105306034687449505) * x -
- .0357191348753631956) * x + .107774527938978692) * x -
- .296997075145080963;
-/*< y = (y*x + 8.64664716763387311d-1)*x + 7.42047691268006429d-1 >*/
- y = (y * x + .864664716763387311) * x + .742047691268006429;
-/*< inex = y - log(k) >*/
- nagout_1.inex__ = y - log(leafin_2.k);
-/*< goto 30 >*/
- goto L30;
-/*< 10 if (k .ge. 85.d0) go to 20 >*/
-L10:
- if (leafin_2.k >= 85.) {
- goto L20;
- }
-/*< x = 14.5d0 / (k + 3.25d0) - 1.d0 >*/
- x = 14.5 / (leafin_2.k + 3.25) - 1.;
-/*< >*/
- y = (((((((((((((((x * -1.62806570868460749e-12 - 8.95400579318284288e-13)
- * x - 4.08352702838151578e-12) * x - 1.45132988248537498e-11) *
- x - 8.35086918940757852e-11) * x - 2.13638678953766289e-10) * x -
- 1.1030243146706977e-9) * x - 3.67128915633455484e-9) * x -
- 1.66980544304104726e-8) * x - 6.11774386401295125e-8) * x -
- 2.70306163610271497e-7) * x - 1.05565006992891261e-6) * x -
- 4.72090467203711484e-6) * x - 1.95076375089955937e-5) * x -
- 9.16450482931221453e-5) * x - 4.05892130452128677e-4) * x -
- .00214213055000334718;
-/*< >*/
- y = ((y * x - .0106374875116569657) * x - .0850699154984571871) * x +
- .923755307807784058;
-/*< inex = exp(-k) * y / k >*/
- nagout_1.inex__ = exp(-leafin_2.k) * y / leafin_2.k;
-/*< goto 30 >*/
- goto L30;
-/*< 20 inex = 0.d0 >*/
-L20:
- nagout_1.inex__ = 0.;
-/*< goto 30 >*/
- goto L30;
-/*< 30 continue >*/
-L30:
-/* print *, 's13aafout' */
-/*< return >*/
- return 0;
-/*< end >*/
-} /* s13aaf_ */
-
-/* ****************************************************************** */
-/* determination of tav for any solid angle */
-/* ****************************************************************** */
-/* STERN F., 1964, Transmission of isotropic radiation across an */
-/* interface between two dielectrics, Appl.Opt., Vol.3, 1:111-113 */
-/* ALLEN W.A., 1973, Transmission of isotropic light across a */
-/* dielectric surface in two and three dimensions, J.Opt.Soc.Am., */
-/* Vol.63, 6:664-666 */
-/* ****************************************************************** */
-/*< subroutine tav >*/
-/* Subroutine */ int tav_()
-{
- /* Initialized data */
-
- static doublereal dr = .0174532925199433;
- static doublereal eps = 1e-7;
- static doublereal pi12 = 1.570796326794895;
-
- /* System generated locals */
- doublereal d__1, d__2, d__3, d__4, d__5, d__6, d__7;
-
- /* Builtin functions */
- double sin(doublereal), sqrt(doublereal), log(doublereal);
-
- /* Local variables */
- doublereal a, b, k, b1, b2, r2, ds, rm, rp, tp, ts, tp1, tp2, tp3, tp4,
- tp5, xxx;
-
-
-/*< implicit double precision (a-h, o-z) >*/
-/*< double precision k >*/
-
-/*< common /tauin/ teta, ref >*/
-/*< common /tauout/ tau >*/
-
-/*< >*/
-/* print *, 'tavin' */
-/*< teta = teta*dr >*/
- tauin_1.teta *= dr;
-/*< r2 = ref**2 >*/
-/* Computing 2nd power */
- d__1 = tauin_1.ref;
- r2 = d__1 * d__1;
-/*< rp = r2 + 1.d0 >*/
- rp = r2 + 1.;
-/*< rm = r2 - 1.d0 >*/
- rm = r2 - 1.;
-/*< a = (ref + 1.d0)**2/2.d0 >*/
-/* Computing 2nd power */
- d__1 = tauin_1.ref + 1.;
- a = d__1 * d__1 / 2.;
-/*< k = -(r2 - 1.d0)**2/4.d0 >*/
-/* Computing 2nd power */
- d__1 = r2 - 1.;
- k = -(d__1 * d__1) / 4.;
-/*< ds = sin(teta) >*/
- ds = sin(tauin_1.teta);
-/*< if (abs(teta) .le. eps) then >*/
- if (abs(tauin_1.teta) <= eps) {
-/*< tau = 4.d0*ref/(ref + 1.d0)**2 >*/
-/* Computing 2nd power */
- d__1 = tauin_1.ref + 1.;
- tauout_1.tau = tauin_1.ref * 4. / (d__1 * d__1);
-/*< else >*/
- } else {
-/*< if (abs(teta - pi12) .le. eps) then >*/
- if ((d__1 = tauin_1.teta - pi12, abs(d__1)) <= eps) {
-/*< b1 = 0.d0 >*/
- b1 = 0.;
-/*< else >*/
- } else {
-/*< xxx = (ds**2 - rp/2.d0)**2 + k >*/
-/* Computing 2nd power */
- d__2 = ds;
-/* Computing 2nd power */
- d__1 = d__2 * d__2 - rp / 2.;
- xxx = d__1 * d__1 + k;
-/*< b1 = sqrt(xxx) >*/
- b1 = sqrt(xxx);
-/*< endif >*/
- }
-/*< b2 = ds**2 - rp/2.d0 >*/
-/* Computing 2nd power */
- d__1 = ds;
- b2 = d__1 * d__1 - rp / 2.;
-/*< b = b1 - b2 >*/
- b = b1 - b2;
-/*< >*/
-/* Computing 2nd power */
- d__1 = k;
-/* Computing 3rd power */
- d__2 = b, d__3 = d__2;
-/* Computing 2nd power */
- d__4 = k;
-/* Computing 3rd power */
- d__5 = a, d__6 = d__5;
- ts = d__1 * d__1 / (d__3 * (d__2 * d__2) * 6.) + k / b - b / 2. - (
- d__4 * d__4 / (d__6 * (d__5 * d__5) * 6.) + k / a - a / 2.);
-/*< tp1 = -2.d0*r2*(b - a)/rp**2 >*/
-/* Computing 2nd power */
- d__1 = rp;
- tp1 = r2 * -2. * (b - a) / (d__1 * d__1);
-/*< tp2 = -2.d0*r2*rp*log(b/a)/rm**2 >*/
-/* Computing 2nd power */
- d__1 = rm;
- tp2 = r2 * -2. * rp * log(b / a) / (d__1 * d__1);
-/*< tp3 = r2*(1.d0/b - 1.d0/a)/2.d0 >*/
- tp3 = r2 * (1. / b - 1. / a) / 2.;
-/*< >*/
-/* Computing 2nd power */
- d__1 = r2;
-/* Computing 2nd power */
- d__2 = r2;
-/* Computing 2nd power */
- d__3 = rm;
-/* Computing 2nd power */
- d__4 = rm;
-/* Computing 3rd power */
- d__5 = rp, d__6 = d__5;
-/* Computing 2nd power */
- d__7 = rm;
- tp4 = d__1 * d__1 * 16. * (d__2 * d__2 + 1.) * log((rp * 2. * b -
- d__3 * d__3) / (rp * 2. * a - d__4 * d__4)) / (d__6 * (d__5 *
- d__5) * (d__7 * d__7));
-/*< >*/
-/* Computing 3rd power */
- d__1 = r2, d__2 = d__1;
-/* Computing 2nd power */
- d__3 = rm;
-/* Computing 2nd power */
- d__4 = rm;
-/* Computing 3rd power */
- d__5 = rp, d__6 = d__5;
- tp5 = d__2 * (d__1 * d__1) * 16. * (1. / (rp * 2. * b - d__3 * d__3)
- - 1. / (rp * 2. * a - d__4 * d__4)) / (d__6 * (d__5 * d__5));
-/*< tp = tp1 + tp2 + tp3 + tp4 + tp5 >*/
- tp = tp1 + tp2 + tp3 + tp4 + tp5;
-/*< tau = (ts + tp)/(2.d0*ds**2) >*/
-/* Computing 2nd power */
- d__1 = ds;
- tauout_1.tau = (ts + tp) / (d__1 * d__1 * 2.);
-/*< endif >*/
- }
-/* print *, 'tavout' */
-/*< return >*/
- return 0;
-/*< end >*/
-} /* tav_ */
-
-
-/* ***************************************************************** */
-
-/* constant values: refractive index (ref), albino and dry leaf */
-/* absorption (ke), chlorophyll a+b specific absorption coefficient */
-/* (kab), water specific absorption coefficient (kw), */
-/* and basis functions for soil spectral reflectance phis1, phis2, */
-/* phis3 and phis4 (Price, 1990) */
-/* ****************************************************************** */
-/* JACQUEMOUD S. AND BARET F., 1990, Prospect : a model of leaf */
-/* optical properties spectra, Remote Sens. Environ., 34:75-91 */
-/* JACQUEMOUD S. et al., 1991, Validation d'un modele de reflectance */
-/* spectrale et directionnnelle de sol, 5ieme Colloque International */
-/* Mesures Physiques et Signatures en Teledetection, Courchevel */
-/* (France), 14-18 Janvier 1991 */
-/* ****************************************************************** */
-/*< block data valeur >*/
-/* Subroutine */ int valeur_()
-{
- return 0;
-} /* valeur_ */
-
-
-/*< implicit double precision (a-h, o-z) >*/
-
-/*< double precision ke, kab, kw >*/
-/*< dimension ref(200), ke(200), kab(200), kw(200) >*/
-/*< common /dat/ ref, ke, kab, kw >*/
-
-/*< dimension phis1(200), phis2(200), phis3(200), phis4(200) >*/
-/*< >*/
-
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< end >*/
-
-
-/* ***************************************************************** */
-
-/*< subroutine dakg(u, a, nq) >*/
-/* Subroutine */ int dakg_(doublereal *u, doublereal *a, integer *nq)
-{
- /* System generated locals */
- integer i__1;
-
- /* Builtin functions */
- integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen),
- e_wsle();
- /* Subroutine */ int s_stop(char *, ftnlen);
-
- /* Local variables */
- integer i__, n, ii, nq1;
-
- /* Fortran I/O blocks */
- static cilist io___202 = { 0, 6, 0, 0, 0 };
-
-
-/* Gaussi kvadratuuri sqlmed ja kordajad, nq = 2*n, u=(-1., 1.) */
-/*< implicit double precision (a-h, o-z) >*/
-/*< dimension u(48), a(48) >*/
-
-/* print *,'dakg' */
-/*< n = nq/2 >*/
- /* Parameter adjustments */
- --a;
- --u;
-
- /* Function Body */
- n = *nq / 2;
-/*< >*/
- switch (*nq) {
- case 1: goto L1;
- case 2: goto L2;
- case 3: goto L1;
- case 4: goto L4;
- case 5: goto L1;
- case 6: goto L6;
- case 7: goto L1;
- case 8: goto L8;
- case 9: goto L1;
- case 10: goto L10;
- case 11: goto L1;
- case 12: goto L12;
- case 13: goto L1;
- case 14: goto L14;
- case 15: goto L1;
- case 16: goto L16;
- case 17: goto L1;
- case 18: goto L1;
- case 19: goto L1;
- case 20: goto L20;
- case 21: goto L1;
- case 22: goto L1;
- case 23: goto L1;
- case 24: goto L1;
- case 25: goto L1;
- case 26: goto L1;
- case 27: goto L1;
- case 28: goto L1;
- case 29: goto L1;
- case 30: goto L1;
- case 31: goto L1;
- case 32: goto L1;
- case 33: goto L1;
- case 34: goto L1;
- case 35: goto L1;
- case 36: goto L1;
- case 37: goto L1;
- case 38: goto L1;
- case 39: goto L1;
- case 40: goto L1;
- case 41: goto L1;
- case 42: goto L1;
- case 43: goto L1;
- case 44: goto L1;
- case 45: goto L1;
- case 46: goto L1;
- case 47: goto L1;
- case 48: goto L48;
- }
-/*< 1 continue >*/
-L1:
-/*< print *, ' *** dakg - inacceptable nq' >*/
- s_wsle(&io___202);
- do_lio(&c__9, &c__1, " *** dakg - inacceptable nq", 29L);
- e_wsle();
-/*< stop 'dakg' >*/
- s_stop("dakg", 4L);
-
-/*< 2 continue >*/
-L2:
-/*< u(2) = .577350269189626d0 >*/
- u[2] = .577350269189626;
-/*< a(2) = 1.d0 >*/
- a[2] = 1.;
-/*< goto 13 >*/
- goto L13;
-
-/*< 4 continue >*/
-L4:
-/*< u(3) = .339981043584856d0 >*/
- u[3] = .339981043584856;
-/*< u(4) = .861136311594053d0 >*/
- u[4] = .861136311594053;
-/*< a(3) = .652145154862546d0 >*/
- a[3] = .652145154862546;
-/*< a(4) = .347854845137454d0 >*/
- a[4] = .347854845137454;
-/*< goto 13 >*/
- goto L13;
-
-/*< 6 continue >*/
-L6:
-/*< u(4) = .238619186083197d0 >*/
- u[4] = .238619186083197;
-/*< u(5) = .661209386466265d0 >*/
- u[5] = .661209386466265;
-/*< u(6) = .932469514203152d0 >*/
- u[6] = .932469514203152;
-/*< a(4) = .467913934572691d0 >*/
- a[4] = .467913934572691;
-/*< a(5) = .360761573048139d0 >*/
- a[5] = .360761573048139;
-/*< a(6) = .171324492379170d0 >*/
- a[6] = .17132449237917;
-/*< goto 13 >*/
- goto L13;
-
-/*< 8 continue >*/
-L8:
-/*< u(5) = .183434642495650d0 >*/
- u[5] = .18343464249565;
-/*< u(6) = .525532409916329d0 >*/
- u[6] = .525532409916329;
-/*< u(7) = .796666477413627d0 >*/
- u[7] = .796666477413627;
-/*< u(8) = .960289856497536d0 >*/
- u[8] = .960289856497536;
-/*< a(5) = .362683783378362d0 >*/
- a[5] = .362683783378362;
-/*< a(6) = .313706645877887d0 >*/
- a[6] = .313706645877887;
-/*< a(7) = .222381034453374d0 >*/
- a[7] = .222381034453374;
-/*< a(8) = .101228536290376d0 >*/
- a[8] = .101228536290376;
-/*< goto 13 >*/
- goto L13;
-
-/*< 10 continue >*/
-L10:
-/*< u(6) = .148874338981631d0 >*/
- u[6] = .148874338981631;
-/*< u(7) = .433395394129247d0 >*/
- u[7] = .433395394129247;
-/*< u(8) = .679409568299024d0 >*/
- u[8] = .679409568299024;
-/*< u(9) = .865063366688985d0 >*/
- u[9] = .865063366688985;
-/*< u(10) = .973906528517172d0 >*/
- u[10] = .973906528517172;
-/*< a(6) = .295524224714753d0 >*/
- a[6] = .295524224714753;
-/*< a(7) = .269266719309996d0 >*/
- a[7] = .269266719309996;
-/*< a(8) = .219086362515982d0 >*/
- a[8] = .219086362515982;
-/*< a(9) = .149451349150580d0 >*/
- a[9] = .14945134915058;
-/*< a(10) = .666713443086881d-1 >*/
- a[10] = .0666713443086881;
-/*< goto 13 >*/
- goto L13;
-
-/*< 12 continue >*/
-L12:
-/*< u(7) = .125233408511469d0 >*/
- u[7] = .125233408511469;
-/*< u(8) = .367831498998180d0 >*/
- u[8] = .36783149899818;
-/*< u(9) = .587317954286617d0 >*/
- u[9] = .587317954286617;
-/*< u(10) = .769902674194305d0 >*/
- u[10] = .769902674194305;
-/*< u(11) = .904117256370475d0 >*/
- u[11] = .904117256370475;
-/*< u(12) = .981560634246719d0 >*/
- u[12] = .981560634246719;
-/*< a(7) = .249147045813402d0 >*/
- a[7] = .249147045813402;
-/*< a(8) = .233492536538355d0 >*/
- a[8] = .233492536538355;
-/*< a(9) = .203167426723066d0 >*/
- a[9] = .203167426723066;
-/*< a(10) = .160078328543346d0 >*/
- a[10] = .160078328543346;
-/*< a(11) = .106939325995318d0 >*/
- a[11] = .106939325995318;
-/*< a(12) = .471753363865118d-1 >*/
- a[12] = .0471753363865118;
-/*< goto 13 >*/
- goto L13;
-
-/*< 14 continue >*/
-L14:
-/*< u( 8) = .108054948707344d0 >*/
- u[8] = .108054948707344;
-/*< u( 9) = .319112368927890d0 >*/
- u[9] = .31911236892789;
-/*< u(10) = .515248636358154d0 >*/
- u[10] = .515248636358154;
-/*< u(11) = .687292904811685d0 >*/
- u[11] = .687292904811685;
-/*< u(12) = .827201315069765d0 >*/
- u[12] = .827201315069765;
-/*< u(13) = .928434883663574d0 >*/
- u[13] = .928434883663574;
-/*< u(14) = .986283808696812d0 >*/
- u[14] = .986283808696812;
-/*< a( 8) = .215263853463158d0 >*/
- a[8] = .215263853463158;
-/*< a( 9) = .205198463721296d0 >*/
- a[9] = .205198463721296;
-/*< a(10) = .185538397477938d0 >*/
- a[10] = .185538397477938;
-/*< a(11) = .157203167158194d0 >*/
- a[11] = .157203167158194;
-/*< a(12) = .121518570687903d0 >*/
- a[12] = .121518570687903;
-/*< a(13) = .801580871597602d-1 >*/
- a[13] = .0801580871597602;
-/*< a(14) = .351194603317519d-1 >*/
- a[14] = .0351194603317519;
-/*< goto 13 >*/
- goto L13;
-
-/*< 16 continue >*/
-L16:
-/*< u( 9) = .950125098376374d-1 >*/
- u[9] = .0950125098376374;
-/*< u(10) = .281603550779259d0 >*/
- u[10] = .281603550779259;
-/*< u(11) = .458016777657227d0 >*/
- u[11] = .458016777657227;
-/*< u(12) = .617876244402643d0 >*/
- u[12] = .617876244402643;
-/*< u(13) = .755404408355003d0 >*/
- u[13] = .755404408355003;
-/*< u(14) = .865631202387832d0 >*/
- u[14] = .865631202387832;
-/*< u(15) = .944575023073233d0 >*/
- u[15] = .944575023073233;
-/*< u(16) = .989400934991650d0 >*/
- u[16] = .98940093499165;
-/*< a( 9) = .189450610455068d0 >*/
- a[9] = .189450610455068;
-/*< a(10) = .182603415044924d0 >*/
- a[10] = .182603415044924;
-/*< a(11) = .169156519395003d0 >*/
- a[11] = .169156519395003;
-/*< a(12) = .149595988816577d0 >*/
- a[12] = .149595988816577;
-/*< a(13) = .124628971255534d0 >*/
- a[13] = .124628971255534;
-/*< a(14) = .951585116824928d-1 >*/
- a[14] = .0951585116824928;
-/*< a(15) = .622535239386479d-1 >*/
- a[15] = .0622535239386479;
-/*< a(16) = .271524594117541d-1 >*/
- a[16] = .0271524594117541;
-/*< goto 13 >*/
- goto L13;
-
-/*< 20 continue >*/
-L20:
-/*< u(11) = .765265211334973d-1 >*/
- u[11] = .0765265211334973;
-/*< u(12) = .227785851141645d0 >*/
- u[12] = .227785851141645;
-/*< u(13) = .373706088715420d0 >*/
- u[13] = .37370608871542;
-/*< u(14) = .510867001950827d0 >*/
- u[14] = .510867001950827;
-/*< u(15) = .636053680726515d0 >*/
- u[15] = .636053680726515;
-/*< u(16) = .746331906460151d0 >*/
- u[16] = .746331906460151;
-/*< u(17) = .839116971822219d0 >*/
- u[17] = .839116971822219;
-/*< u(18) = .912234428251326d0 >*/
- u[18] = .912234428251326;
-/*< u(19) = .963971927277914d0 >*/
- u[19] = .963971927277914;
-/*< u(20) = .993128599185095d0 >*/
- u[20] = .993128599185095;
-/*< a(11) = .152753387130726d0 >*/
- a[11] = .152753387130726;
-/*< a(12) = .149172986472604d0 >*/
- a[12] = .149172986472604;
-/*< a(13) = .142096109318382d0 >*/
- a[13] = .142096109318382;
-/*< a(14) = .131688638449177d0 >*/
- a[14] = .131688638449177;
-/*< a(15) = .118194531961518d0 >*/
- a[15] = .118194531961518;
-/*< a(16) = .101930119817240d0 >*/
- a[16] = .10193011981724;
-/*< a(17) = .832767415767047d-1 >*/
- a[17] = .0832767415767047;
-/*< a(18) = .626720483341091d-1 >*/
- a[18] = .0626720483341091;
-/*< a(19) = .406014298003869d-1 >*/
- a[19] = .0406014298003869;
-/*< a(20) = .176140071391521d-1 >*/
- a[20] = .0176140071391521;
-/*< goto 13 >*/
- goto L13;
-
-/*< 48 continue >*/
-L48:
-/*< u(25) = .323801709628694d-1 >*/
- u[25] = .0323801709628694;
-/*< u(26) = .970046992094627d-1 >*/
- u[26] = .0970046992094627;
-/*< u(27) = .161222356068892d0 >*/
- u[27] = .161222356068892;
-/*< u(28) = .224763790394689d0 >*/
- u[28] = .224763790394689;
-/*< u(29) = .287362487355456d0 >*/
- u[29] = .287362487355456;
-/*< u(30) = .348755886292161d0 >*/
- u[30] = .348755886292161;
-/*< u(31) = .408686481990717d0 >*/
- u[31] = .408686481990717;
-/*< u(32) = .466902904750958d0 >*/
- u[32] = .466902904750958;
-/*< u(33) = .523160974722233d0 >*/
- u[33] = .523160974722233;
-/*< u(34) = .577224726083973d0 >*/
- u[34] = .577224726083973;
-/*< u(35) = .628867396776514d0 >*/
- u[35] = .628867396776514;
-/*< u(36) = .677872379632664d0 >*/
- u[36] = .677872379632664;
-/*< u(37) = .724034130923815d0 >*/
- u[37] = .724034130923815;
-/*< u(38) = .767159032515740d0 >*/
- u[38] = .76715903251574;
-/*< u(39) = .807066204029443d0 >*/
- u[39] = .807066204029443;
-/*< u(40) = .843588261624394d0 >*/
- u[40] = .843588261624394;
-/*< u(41) = .876572020274247d0 >*/
- u[41] = .876572020274247;
-/*< u(42) = .905879136715570d0 >*/
- u[42] = .90587913671557;
-/*< u(43) = .931386690706554d0 >*/
- u[43] = .931386690706554;
-/*< u(44) = .952987703160431d0 >*/
- u[44] = .952987703160431;
-/*< u(45) = .970591592546247d0 >*/
- u[45] = .970591592546247;
-/*< u(46) = .984124583722827d0 >*/
- u[46] = .984124583722827;
-/*< u(47) = .993530172266351d0 >*/
- u[47] = .993530172266351;
-/*< u(48) = .998771007252426d0 >*/
- u[48] = .998771007252426;
-/*< a(25) = .647376968126839d-1 >*/
- a[25] = .0647376968126839;
-/*< a(26) = .644661644359501d-1 >*/
- a[26] = .0644661644359501;
-/*< a(27) = .639242385846482d-1 >*/
- a[27] = .0639242385846482;
-/*< a(28) = .631141922862540d-1 >*/
- a[28] = .063114192286254;
-/*< a(29) = .620394231598927d-1 >*/
- a[29] = .0620394231598927;
-/*< a(30) = .607044391658939d-1 >*/
- a[30] = .0607044391658939;
-/*< a(31) = .591148396983956d-1 >*/
- a[31] = .0591148396983956;
-/*< a(32) = .572772921004032d-1 >*/
- a[32] = .0572772921004032;
-/*< a(33) = .551995036999842d-1 >*/
- a[33] = .0551995036999842;
-/*< a(34) = .528901894851937d-1 >*/
- a[34] = .0528901894851937;
-/*< a(35) = .503590355538545d-1 >*/
- a[35] = .0503590355538545;
-/*< a(36) = .476166584924905d-1 >*/
- a[36] = .0476166584924905;
-/*< a(37) = .446745608566943d-1 >*/
- a[37] = .0446745608566943;
-/*< a(38) = .415450829434647d-1 >*/
- a[38] = .0415450829434647;
-/*< a(39) = .382413510658307d-1 >*/
- a[39] = .0382413510658307;
-/*< a(40) = .347772225647704d-1 >*/
- a[40] = .0347772225647704;
-/*< a(41) = .311672278327981d-1 >*/
- a[41] = .0311672278327981;
-/*< a(42) = .274265097083569d-1 >*/
- a[42] = .0274265097083569;
-/*< a(43) = .235707608393244d-1 >*/
- a[43] = .0235707608393244;
-/*< a(44) = .196161604573555d-1 >*/
- a[44] = .0196161604573555;
-/*< a(45) = .155793157229438d-1 >*/
- a[45] = .0155793157229438;
-/*< a(46) = .114772345792345d-1 >*/
- a[46] = .0114772345792345;
-/*< a(47) = .732755390127626d-2 >*/
- a[47] = .00732755390127626;
-/*< a(48) = .315334605230584d-2 >*/
- a[48] = .00315334605230584;
-/*< 13 continue >*/
-L13:
-
-/*< nq1 = nq+1 >*/
- nq1 = *nq + 1;
-/*< do 15 i = 1,n >*/
- i__1 = n;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< ii = nq1-i >*/
- ii = nq1 - i__;
-/*< u(i) = -u(ii) >*/
- u[i__] = -u[ii];
-/*< a(i) = a(ii) >*/
- a[i__] = a[ii];
-/*< 15 continue >*/
-/* L15: */
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* dakg_ */
-
-
-/* ***************************************************************** */
-/* akbrdf - an interface between 6s and msrm */
-/* MSRM93 - MultiSpectral Reflectance Model A. Kuusk 24.03.1993 */
-/* Internet: andres at aai.ee */
-
-/* A. Kuusk, A multispectral canopy reflectance model, */
-/* Remote Sens. Environ., 1994, 50(2):75-82. */
-
-/*< >*/
-/* Subroutine */ int akbrdf_(doublereal *eei, doublereal *thmi, doublereal *
- uli, doublereal *sli, doublereal *rsl1i, doublereal *wlmoy,
- doublereal *rnci, doublereal *cabi, doublereal *cwi, doublereal *vaii,
- integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal
- *brdfint)
-{
- /* Initialized data */
-
- static doublereal pir = 3.14159265;
- static doublereal pi12 = 1.570796326794895;
- static doublereal dr = .0174532925199433;
- static doublereal eps = 1e-6;
- static doublereal eps4 = 1e-4;
-
- /* System generated locals */
- integer rm_offset, brdfint_dim1, brdfint_offset, i__1, i__2;
- doublereal d__1;
-
- /* Builtin functions */
- integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen),
- e_wsle();
- /* Subroutine */ int s_stop(char *, ftnlen);
- integer i_dnnt(doublereal *);
- double cos(doublereal), sin(doublereal), log(doublereal), acos(doublereal)
- , tan(doublereal), exp(doublereal);
-
- /* Local variables */
- extern /* Subroutine */ int soilspec_();
- integer j, k;
- doublereal fi, xx, mu1, mu2, eln, clx, clz, tgt, tgt1;
- extern /* Subroutine */ int leaf_();
- doublereal cth10, sth10;
- extern /* Subroutine */ int msrm_();
- doublereal rrls, rlambda;
-
- /* Fortran I/O blocks */
- static cilist io___215 = { 0, 6, 0, 0, 0 };
-
-
-/* See on tegelikult juba mcrm, aga clx ja clz on fikseeritud */
-
-/*< implicit double precision (a-h, o-z) >*/
-/*< double precision integr >*/
-/*< integer np, mu >*/
-/*< integer k, j >*/
-/*< >*/
-/*< real mu1, mu2, fi >*/
-/*< real rm(-mu:mu), rp(np), brdfint(-mu:mu, np) >*/
-/*< save /count/, /soildata/, /aaa/, /ggg/, /ladak/ >*/
-
-/*< dimension u1(10), u2(10), a1(10), a2(10) >*/
-/*< common /count/ jl, jj, lg, jg, lf, nnx, n1, n2, u1, u2, a1, a2 >*/
-
-/*< double precision nnl, kk >*/
-/*< common /leafin/ nnl, vai, kk >*/
-/*< common /leafout/ refl, tran >*/
-
-/*< double precision ke, kab, kw >*/
-/*< dimension refr(200), ke(200), kab(200), kw(200) >*/
-/*< common /dat/ refr, ke, kab, kw >*/
-
-/*< dimension phis1(200), phis2(200), phis3(200), phis4(200) >*/
-/*< >*/
-
-/*< common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint >*/
-/*< >*/
-/*< common /cfresn/ rn, rk >*/
-/*< common /ladak/ ee, thm, sthm, cthm >*/
-/*< common /msrmdata/ th10, rncoef, cab, cw, bq >*/
-
-
-/*< data pi/3.141592653589793d0/, pir/3.14159265/ >*/
- /* Parameter adjustments */
- rm_offset = -(*mu);
- rm -= rm_offset;
- brdfint_dim1 = *mu - (-(*mu)) + 1;
- brdfint_offset = -(*mu) + brdfint_dim1;
- brdfint -= brdfint_offset;
- --rp;
-
- /* Function Body */
-/*< data pi12/1.570796326794895d0/, dr/1.745329251994330d-2/ >*/
-/*< data eps/.1d-5/, eps4/.1d-3/ >*/
-/*< data lf/1/ >*/
-
-/* print *, 'msrm93' */
-
-/*< integr(xx) = (1.d0 - exp(-xx))/xx >*/
-/*< jg = 1 >*/
- count_1.jg = 1;
-/* if (lf .eq. 1) then */
-
-/*< ee = eei >*/
- ladak_1.ee = *eei;
-/*< thm = thmi*dr >*/
- ladak_1.thm = *thmi * dr;
-/*< ul = uli >*/
- aaa_1.ul = *uli;
-/*< sl = sli >*/
- aaa_1.sl = *sli;
-/*< clz = .9d0 >*/
- clz = .9;
-/*< clx = .1d0 >*/
- clx = .1;
-/*< th2 = 45.d0*dr >*/
- soildata_1.th2 = dr * 45.;
-/*< rsl1 = rsl1i >*/
- soildata_1.rsl1 = *rsl1i;
-/*< rsl2 = -.48d0*rsl1 + .0862d0 >*/
- soildata_1.rsl2 = soildata_1.rsl1 * -.48 + .0862;
-/*< rsl3 = 0.d0 >*/
- soildata_1.rsl3 = 0.;
-/*< rsl4 = 0.d0 >*/
- soildata_1.rsl4 = 0.;
-/*< rlambda = wlmoy*1000.d0 >*/
- rlambda = *wlmoy * 1e3;
-
-/*< if ((rlambda .gt. 2500.d0) .or. (rlambda .lt. 404.d0)) then >*/
- if (rlambda > 2500. || rlambda < 404.) {
-/*< print *, 'AKBRDF: wavelength out of range' >*/
- s_wsle(&io___215);
- do_lio(&c__9, &c__1, "AKBRDF: wavelength out of range", 31L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-
-/*< if (rlambda .le. 800.d0) then >*/
- if (rlambda <= 800.) {
-/*< jl = nint((rlambda - 400.d0)/4.d0) >*/
- d__1 = (rlambda - 400.) / 4.;
- count_1.jl = i_dnnt(&d__1);
-/*< else >*/
- } else {
-/*< jl = nint((rlambda - 800.d0)/17.d0) + 100 >*/
- d__1 = (rlambda - 800.) / 17.;
- count_1.jl = i_dnnt(&d__1) + 100;
-/*< endif >*/
- }
-
-/*< rncoef = rnci >*/
- msrmdata_1.rncoef = *rnci;
-/*< cab = cabi >*/
- msrmdata_1.cab = *cabi;
-/*< cw = cwi >*/
- msrmdata_1.cw = *cwi;
-/*< vai = vaii >*/
- leafin_1.vai = *vaii;
-/*< nnl = refr(jl) >*/
- leafin_1.nnl = dat_1.refr[count_1.jl - 1];
-/*< kk = ke(jl) + cab*kab(jl) + cw*kw(jl) >*/
- leafin_1.kk = dat_1.ke[count_1.jl - 1] + msrmdata_1.cab * dat_1.kab[
- count_1.jl - 1] + msrmdata_1.cw * dat_1.kw[count_1.jl - 1];
-/*< call leaf >*/
- leaf_();
-
-/*< rn = rncoef*nnl >*/
- cfresn_1.rn = msrmdata_1.rncoef * leafin_1.nnl;
-/*< rrl = refl - ((1.d0 - rn)/(1.d0 + rn))**2 >*/
-/* Computing 2nd power */
- d__1 = (1. - cfresn_1.rn) / (cfresn_1.rn + 1.);
- aaa_1.rrl = leafout_1.refl - d__1 * d__1;
-/*< rrls = rrl >*/
- rrls = aaa_1.rrl;
-/*< ttl = tran >*/
- aaa_1.ttl = leafout_1.tran;
-
-/*< call soilspec >*/
- soilspec_();
-
-/*< cthm = cos(thm) >*/
- ladak_1.cthm = cos(ladak_1.thm);
-/*< sthm = sin(thm) >*/
- ladak_1.sthm = sin(ladak_1.thm);
-
-/*< th22 = pi12 - thm >*/
- ggg_1.th22 = pi12 - ladak_1.thm;
-/*< if (abs(th22) .lt. eps4) th22 = 0.d0 >*/
- if (abs(ggg_1.th22) < eps4) {
- ggg_1.th22 = 0.;
- }
-/*< eln = -log(1.d0 - ee) >*/
- eln = -log(1. - ladak_1.ee);
-/*< difmy = abs(.059d0*eln*(thm - 1.02d0) + .02d0) >*/
- ggg_1.difmy = (d__1 = eln * .059 * (ladak_1.thm - 1.02) + .02, abs(d__1));
-/*< difsig = abs(.01771d0 - .0216d0*eln*(thm - .256d0)) >*/
- ggg_1.difsig = (d__1 = .01771 - eln * .0216 * (ladak_1.thm - .256), abs(
- d__1));
-
-/* lf = 2 */
-/* endif */
-
-/*< sth10 = sin(th10) >*/
- sth10 = sin(msrmdata_1.th10);
-/*< cth10 = cos(th10) >*/
- cth10 = cos(msrmdata_1.th10);
-
-/*< mu1 = rm(0) >*/
- mu1 = rm[0];
-/*< do 1 k = 1, np >*/
- i__1 = *np;
- for (k = 1; k <= i__1; ++k) {
-/*< do 2 j = 1, mu >*/
- i__2 = *mu;
- for (j = 1; j <= i__2; ++j) {
-/*< mu2 = rm(j) >*/
- mu2 = rm[j];
-/*< if (j .eq. mu) then >*/
- if (j == *mu) {
-/*< fi = rm(-mu) >*/
- fi = rm[-(*mu)];
-/*< else >*/
- } else {
-/*< fi = rp(k) + rm(-mu) >*/
- fi = rp[k] + rm[-(*mu)];
-/*< endif >*/
- }
-/*< th10 = acos(mu1) >*/
- msrmdata_1.th10 = acos(mu1);
-/*< if (fi .lt. 0.) fi = fi + 2.*pir >*/
- if (fi < 0.) {
- fi += pir * 2.;
- }
-/*< if (fi .gt. (2.*pir)) fi = fi - 2.*pir >*/
- if (fi > pir * 2.) {
- fi -= pir * 2.;
- }
-/*< if (fi .gt. pir) fi = 2.*pir - fi >*/
- if (fi > pir) {
- fi = pir * 2. - fi;
- }
-/*< tgt1 = tan(th10) >*/
- tgt1 = tan(msrmdata_1.th10);
-/*< xx = tgt1*clx/sl >*/
- xx = tgt1 * clx / aaa_1.sl;
-
-/*< if (xx .lt. eps) then >*/
- if (xx < eps) {
-/*< clmp1 = clz >*/
- aaa_1.clmp1 = clz;
-/*< else >*/
- } else {
-/*< clmp1 = 1.d0 - (1.d0 - clz)*integr(xx) >*/
- aaa_1.clmp1 = 1. - (1. - clz) * ((1. - exp(-xx)) / xx);
-/*< endif >*/
- }
-
-/*< phi = fi >*/
- ggg_1.phi = fi;
-/*< th1 = th10 >*/
- ggg_1.th1 = msrmdata_1.th10;
-/*< th = acos(mu2) >*/
- ggg_1.th = acos(mu2);
-/*< tgt = tan(th) >*/
- tgt = tan(ggg_1.th);
-/*< xx = tgt*clx/sl >*/
- xx = tgt * clx / aaa_1.sl;
-
-/*< if (xx .lt. eps) then >*/
- if (xx < eps) {
-/*< clmp = clz >*/
- aaa_1.clmp = clz;
-/*< else >*/
- } else {
-/*< clmp = 1.d0 - (1.d0 - clz)*integr(xx) >*/
- aaa_1.clmp = 1. - (1. - clz) * ((1. - exp(-xx)) / xx);
-/*< endif >*/
- }
-
-/*< call msrm >*/
- msrm_();
-/*< brdfint(j, k) = bq >*/
- brdfint[j + k * brdfint_dim1] = msrmdata_1.bq;
-
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* akbrdf_ */
-
-
-
-/* ***************************************************************** */
-
-/*< >*/
-/* Subroutine */ int akalbe_(doublereal *albbrdf)
-{
- /* Initialized data */
-
- static doublereal pi = 3.141592653589793;
- static doublereal pi1 = 1.5707963268;
-
- /* System generated locals */
- integer i__1;
-
- /* Builtin functions */
- double sin(doublereal), cos(doublereal);
-
- /* Local variables */
- integer i__, n, i1, i2;
- doublereal aa[20];
- integer ng;
- doublereal uu[20], bdd;
- extern /* Subroutine */ int akd_(), dakg_(doublereal *, doublereal *,
- integer *);
-
-/* & (eei, thmi, uli, sli, rsl1i, wlmoy, rnci, cabi, cwi, vaii, albbrdf)
-*/
-
-/* aa94.f - albeedo integrating msrm93 over the hemisphere */
-/* A. Kuusk 23.09.1994 */
-
-/*< implicit double precision (a-h, o-z) >*/
-
-/* real eei, thmi, uli, sli, rsl1i, wlmoy, rnci, cabi, cwi, vaii, albbr
-df*/
-/*< real albbrdf >*/
-/*< save /count/, /soildata/, /aaa/, /ggg/, /ladak/ >*/
-
-/*< dimension uu(20), aa(20) >*/
-
-/*< dimension u1(10), u2(10), a1(10), a2(10) >*/
-/*< common /count/ jl, jj, lg, jg, lf, nnx, n1, n2, u1, u2, a1, a2 >*/
-
-/*< dimension phis1(200), phis2(200), phis3(200), phis4(200) >*/
-/*< >*/
-
-/*< common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint >*/
-/*< >*/
-/*< common /ladak/ ee, thm, sthm, cthm >*/
-
-/*< data pi/3.141592653589793d0/, pi1/1.5707963268d0/ >*/
-
-/* print *, 'aa94' */
-
-/*< n1 = 6 >*/
- count_1.n1 = 6;
-/*< n2 = 8 >*/
- count_1.n2 = 8;
-
-/*< n = n2 + n2 >*/
- n = count_1.n2 + count_1.n2;
-/*< ng = n + 1 >*/
- ng = n + 1;
-/*< call dakg(uu, aa, n) >*/
- dakg_(uu, aa, &n);
-
-/*< do 20 i = 1, n2 >*/
- i__1 = count_1.n2;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< i1 = ng - i >*/
- i1 = ng - i__;
-/*< a2(i) = aa(i) >*/
- count_1.a2[i__ - 1] = aa[i__ - 1];
-/*< 20 u2(i) = uu(i1) >*/
-/* L20: */
- count_1.u2[i__ - 1] = uu[i1 - 1];
- }
-
-/*< n = n1 + n1 >*/
- n = count_1.n1 + count_1.n1;
-/*< ng = n + 1 >*/
- ng = n + 1;
-/*< call dakg(uu, aa, n) >*/
- dakg_(uu, aa, &n);
-
-/*< do 21 i = 1, n1 >*/
- i__1 = count_1.n1;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< i1 = ng - i >*/
- i1 = ng - i__;
-/*< a1(i) = aa(i) >*/
- count_1.a1[i__ - 1] = aa[i__ - 1];
-/*< 21 u1(i) = uu(i1) >*/
-/* L21: */
- count_1.u1[i__ - 1] = uu[i1 - 1];
- }
-
-/*< bdd = 0.d0 >*/
- bdd = 0.;
-/*< do 10 i2 = 1, n2 >*/
- i__1 = count_1.n2;
- for (i2 = 1; i2 <= i__1; ++i2) {
-/*< th = (1.d0 - u2(i2))*pi1 >*/
- ggg_1.th = (1. - count_1.u2[i2 - 1]) * pi1;
-/*< sth = sin(th) >*/
- ggg_1.sth = sin(ggg_1.th);
-/*< cth = cos(th) >*/
- ggg_1.cth = cos(ggg_1.th);
-
-/*< call akd >*/
- akd_();
-
-/*< bdd = bdd + a2(i2)*bqint*sth*cth >*/
- bdd += count_1.a2[i2 - 1] * aaa_1.bqint * ggg_1.sth * ggg_1.cth;
-/*< 10 continue >*/
-/* L10: */
- }
-
-/*< albbrdf = bdd*pi >*/
- *albbrdf = bdd * pi;
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* akalbe_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.f b/Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.f
deleted file mode 100644
index 2aa3ac3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.f
+++ /dev/null
@@ -1,1603 +0,0 @@
- subroutine msrm
-c
-c MultiSpectral Reflectance Model 93 A.Kuusk 24.03.1993
-c
- implicit double precision (a-h, o-z)
- save /count/, /soildata/, /aaa/, /ggg/, /ladak/
-c
- dimension u1(10), u2(10), a1(10), a2(10)
- common /count/ jl, jj, lg, jg, lf, nnx, n1, n2, u1, u2, a1, a2
-c
- double precision nnl, kk
- common /leafin/ nnl, vai, kk
- common /leafout/ refl, tran
-c
- double precision ke, kab, kw
- dimension refr(200), ke(200), kab(200), kw(200)
- common /dat/ refr, ke, kab, kw
-c
- dimension phis1(200), phis2(200), phis3(200), phis4(200)
- common /soildata/ phis1, phis2, phis3, phis4, rsl1, rsl2, rsl3,
- & rsl4, th2, rsl, rsoil, rr1soil, rrsoil
-c
- common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint
- common /ggg/ gr, gt, g, g1, th, sth, cth, th1, sth1, cth1,
- & phi, sp, cp, th22, st, ct, st1, ct1, t10, t11, e1, e2,
- & s2, s3, ctg, ctg1, ctt1, stt1, calph, alp2, salp2, calp2,
- & alph, salph, alpp, difmy, difsig
- common /cfresn/ rn, rk
- common /ladak/ ee, thm, sthm, cthm
- common /msrmdata/ th10, rncoef, cab, cw, bq
-c
- data pi12/1.570796326794895d0/, pi/3.141592653589793d0/
- data eps4/.1d-3/
-c
-* print *, 'msrm'
-c
- sth10 = sin(th10)
- cth10 = cos(th10)
-c
- sp = sin(phi)
- cp = cos(phi)
- th1 = th10
- sth1 = sth10
- cth1 = cth10
- sth = sin(th)
- cth = cos(th)
- rrls = rrl
-c
- call biz
-c
- rrl = refl
- rtp = rrl + ttl
-c
- call difr92
-c
-10 continue
-c
- rrl = rrls
- bq = bi + bd
-c
- return
- end
-*
-******************************************************************
-*
- subroutine akd
-c bdz A.Kuusk 4.03.1988
-c
- implicit double precision (a-h, o-z)
- save /count/, /aaa/, /ggg/
-c
- dimension tt3(10), stt3(10), ctt3(10), tt2(10), stt2(10), ctt2(10)
-c
- dimension u1(10), u2(10), a1(10), a2(10)
- common /count/ jl, jj, lg, jg, lf, nnx, n1, n2, u1, u2, a1, a2
-c
- double precision nnl, kk
- common /leafin/ nnl, vai, kk
- common /leafout/ refl, tran
-c
- common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint
- common /ggg/ gr, gt, g, g1, th, sth, cth, th1, sth1, cth1,
- & phi, sp, cp, th22, st, ct, st1, ct1, t10, t11, e1, e2,
- & s2, s3, ctg, ctg1, ctt1, stt1, calph, alp2, salp2, calp2,
- & alph, salph, alpp, difmy, difsig
-c
- data pi/3.141592653589793d0/, pi1/1.5707963268d0/, eps/.005d0/
-c
-* print *, 'akd'
- bqint = 0.d0
- if (th .gt. eps) goto 4
- phi = 0.d0
- sp = 0.d0
- cp = 1.d0
-c
- do 10 i2 = 1, n2
- th1 = (1.d0 - u2(i2))*pi1
- sth1 = sin(th1)
- cth1 = cos(th1)
- rrls = rrl
-c
- call biz
-c
- rrl = refl
- rtp = rrl + ttl
-c
- call difr92
-c
- rrl = rrls
- bqint = bqint + a2(i2)*(bi + bd)*sth1*cth1
-10 continue
-c
- bqint = bqint*pi
- goto 1
-c
-4 continue
- do 14 i = 1, n1
- thi = u1(i)*th
- tt3(i) = thi
- stt3(i) = sin(thi)
- ctt3(i) = cos(thi)
-14 continue
-c
- do 15 i = 1, n2
- thi = u2(i)*(th - pi1) + pi1
- tt2(i) = thi
- stt2(i) = sin(thi)
- ctt2(i) = cos(thi)
-15 continue
-c
- do 11 j = 1, n1
- phi = (1.d0 - u1(j))*pi
- sp = sin(phi)
- cp = cos(phi)
- bd1 = 0.d0
- bd2 = 0.d0
- do 12 i1 = 1, n1
- th1 = tt3(i1)
- sth1 = stt3(i1)
- cth1 = ctt3(i1)
-c
- rrls = rrl
-c
- call biz
-c
- rrl = refl
- rtp = rrl + ttl
-c
- call difr92
-c
- rrl = rrls
-c
- bd1 = bd1 + a1(i1)*(bi + bd)*sth1*cth1
-12 continue
-c
- do 13 i2 = 1, n2
- th1 = tt2(i2)
- sth1 = stt2(i2)
- cth1 = ctt2(i2)
-c
- rrls = rrl
-c
- call biz
-c
- rrl = refl
- rtp = rrl + ttl
-c
- call difr92
-c
- rrl = rrls
-c
- bd2 = bd2 + a2(i2)*(bi + bd)*sth1*cth1
-13 continue
-c
- bqint = bqint + ((pi1 - th)*bd2 + th*bd1)*a1(j)
-11 continue
-c
- bqint = bqint + bqint
-c
-1 return
- end
-*
-******************************************************************
-*
- subroutine biz
-c canopy reflectance of single scattering for direct radiation
-c A. Kuusk 6.02.1992
-c
- implicit double precision (a-h, o-z)
- double precision integr
- save /count/, /soildata/, /aaa/, /ggg/, /ladak/
-c
-* dimension gj(2), g1j(2), grj(2), gtj(2), gfj(2)
-c
- dimension u1(10), u2(10), a1(10), a2(10)
- common /count/ jl, jj, lg, jg, lf, nnx, n1, n2, u1, u2, a1, a2
-c
- dimension phis1(200), phis2(200), phis3(200), phis4(200)
- common /soildata/ phis1, phis2, phis3, phis4, rsl1, rsl2,
- & rsl3, rsl4, th2, rsl, rsoil, rr1soil, rrsoil
-c
- common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint
- common /ggg/ gr, gt, g, g1, th, sth, cth, th1, sth1, cth1,
- & phi, sp, cp, th22, st, ct, st1, ct1, t10, t11, e1, e2,
- & s2, s3, ctg, ctg1, ctt1, stt1, calph, alp2, salp2, calp2,
- & alph, salph, alpp, difmy, difsig
- common /ladak/ ee, thm, sthm, cthm
-c
- data pi/3.14159265358979d0/, eps/.1d-4/, eps3/.01d0/
-c
- integr(xx) = (1.d0 - exp(-xx))/xx
-* print *, 'biz in'
- ths = th
- sths = sth
- cths = cth
- th1s = th1
- sth1s = sth1
- cth1s = cth1
-* thms = thm
-c
- call soil
-c
- if (ul .gt. eps) goto 2
- bi = rsoil
- goto 1
-c
-2 continue
- if (th1 .lt. th) goto 12
- t11 = th1
- st = sth
- st1 = sth1
- ct = cth
- ct1 = cth1
- t10 = th
- jj = 0
- goto 7
-c
-12 t10 = th1
- st = sth1
- st1 = sth
- ct = cth1
- ct1 = cth
- t11 = th
- jj = 1
-c
-7 continue
- ctt1 = ct*ct1
- stt1 = st*st1
- calph = stt1*cp + ctt1
- catmp = calph
- alph = acos(catmp)
- alp2 = alph*.5d0
-* if (lf .ne. 2) then
-* if( jg .gt. 2) then
-* print *, ' *** biz3: jg > 2 ***'
-* stop
-* endif
- e1 = st*ct1
- e2 = ct*st1
- s2 = e1*cp + e2
- s3 = e1*sp
- ctg = 1.d30
- ctg1 = 1.d30
- if (st .ne. 0.d0) ctg = ct/st
- if (st1 .ne. 0.d0) ctg1 = ct1/st1
- salph = sin(alph)
- alpp = pi - alph
- salp2 = sin(alp2)
- calp2 = cos(alp2)
-c
- call gmf(gf)
-c
- if (ee .le. eps3) goto 95
- y4 = abs(cth + cth1)*.5d0/calp2
- if (y4.lt.1.d0) thp = acos(y4)
-c
-95 call glak(glthp, thp)
-c
- x2 = glthp*.125d0
- gf = gf*x2
-c
- call gmd92
-c
- gammd = gr*rrl + gt*ttl
-c
- t11 = th1
- st = sth
- st1 = sth1
- ct = cth
- ct1 = cth1
- t10 = th
- if (jj .eq. 1) then
- x = g1
- g1 = g
- g = x
- endif
-c
-* print *, 'biz:2'
- gg = g*g1
- g = g*clmp
- g1 = g1*clmp1
- gg1 = g*ct1 + g1*ct
- sct = sqrt(ctt1)
- alpd = alp2/sl
- bam = alpd*sct/ul
-c
- if (ctt1 .gt. eps) then
- gma = alpd/sct
- ulg = gg1/ctt1*ul
- else
- gma = 0.d0
- ulg = ul
- endif
- ulg1 = ulg*.5d0
- xx1 = ulg + gma
- if ((xx1 .gt. 30.d0) .or. (ctt1 .le. eps)) then
- easte = 0.d0
- easte2 = 0.d0
- easte4 = 0.d0
- bs1 = 0.d0
- else
- easte = exp(-ulg)
- easte2 = exp(-ulg1 - gma)
- easte4 = exp(-ulg - gma)
- bs1 = (easte + easte2 - easte4)*rsoil
- endif
-c
- xx1 = (1.d0 - easte)/gg1
- xx2 = (1.d0 - easte2)/(gg1*.5d0 + bam) -
- & (1.d0 - easte4)/(gg1 + bam)
- bc1d = xx1*gammd
- bc1hs = xx2*(gammd + gf)
- bcsp = xx1*gf
- bc1 = bc1d + bcsp + bc1hs
- bi = bc1 + bs1
-c
-1 continue
- th = ths
- sth = sths
- cth = cths
- th1 = th1s
- sth1 = sth1s
- cth1s = cth1
-* thm = thms
-c
- return
- end
-*
-******************************************************************
-*
- subroutine difr92
-c diffuse fluxes according to SAIL for an elliptical LAD
-c A. Kuusk 16.06.1992
-c
- implicit double precision (a-h, o-z)
- double precision ks, ko, m, m11, m12, m21, m22, integr
- save /soildata/, /aaa/, /ggg/, /ladak/
-c
- dimension phis1(200), phis2(200), phis3(200), phis4(200)
- common /soildata/ phis1, phis2, phis3, phis4, rsl1, rsl2,
- & rsl3, rsl4, th2, rsl, rsoil, rr1soil, rrsoil
-c
- common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint
- common /ggg/ gr, gt, g, g1, th, sth, cth, th1, sth1, cth1,
- & phi, sp, cp, th22, st, ct, st1, ct1, t10, t11, e1, e2,
- & s2, s3, ctg, ctg1, ctt1, stt1, calph, alp2, salp2, calp2,
- & alph, salph, alpp, difmy, difsig
- common /ladak/ ee, thm, sthm, cthm
-c
- integr(x) = (1.d0 - exp(-x))/x
-* print *, 'difr92'
-c
- tsun = th1
- tview = th
- tants = sth1/cth1
- tanto = sth/cth
- rtp = (rrl + ttl)/2.d0
-c
- ks = g1*ul/cth1
- ko = g*ul/cth
- gg = (1.289d0*difmy - 1.816d0*difsig)*(cthm**2 -
- & .33333333333d0) + .31823d0
- bf = (rrl - ttl)/2.d0*ul*gg
- att = (1.d0 - rtp)*ul + bf
- sig = rtp*ul + bf
- sb = ks*rtp + bf
- sf = ks*rtp - bf
- ub = ko*rtp + bf
- uf = ko*rtp - bf
- m = sqrt(att**2 - sig**2)
- h1 = (att + m)/sig
- h2 = 1.d0/h1
- c = (sf*sig - sb*(ks - att))/(m**2 - ks**2)
- d = (sb*sig + sf*(ks + att))/(m**2 - ks**2)
-* epso = skyl - d*sq
- epso = - d
-* epss = (rrsoil*(d + 1.d0) - c)*sq*exp(-ks)
- epss = (rrsoil*(d + 1.d0) - c)*exp(-ks)
- m11 = h1
- m12 = h2
- m21 = (1.d0 - rrsoil*h1)*exp(-m)
- m22 = (1.d0 - rrsoil*h2)*exp(m)
- det = m11*m22 - m12*m21
- a = (m22*epso - m12*epss)/det
- b = (-m21*epso + m11*epss)/det
- ep = integr(ko + m)
- em = integr(ko - m)
- ek = integr(ko + ks)
-* gp = a*ep + b*em + c*ek*sq
- gp = a*ep + b*em + c*ek
-* gm = h1*a*ep + h2*b*em + d*ek*sq
- gm = h1*a*ep + h2*b*em + d*ek
-* ems = h1*a*exp(-m) + h2*b*exp(m) + d*sq*exp(-ks)
- ems = h1*a*exp(-m) + h2*b*exp(m) + d*exp(-ks)
- rplants = uf*gp + ub*gm
- rdsoil = rrsoil*ems*exp(-ko)
- bd = rplants + rdsoil
-c
- return
- end
-*
-**********************************************************************
-*
- subroutine glak(glth, th)
-c elliptical distribution
-c A.Kuusk 1.03.1988
-c
- implicit double precision (a-h, o-z)
- save /aaa/, /ladak/
- save bb, es, tms
-c
- common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint
- common /ladak/ ee, thm, sthm, cthm
-c
- data bb/1.d0/, es/0.d0/, tms/0.d0/, eps/.1d0/
-c
-* print *, 'gl'
-c
- if (ee .lt. eps) then
- glth = 1.d0
- return
- endif
-c
- if (ee .eq. 1.d0) ee = .999999d0
- if ((ee .ne. es) .or. (thm .ne. tms)) then
- u1 = ee*cthm
- u3 = ee*sthm
- u2 = sqrt(1.d0 - u1*u1)
- u4 = sqrt(1.d0 - u3*u3)
- x = log((u4 + u1)/(u2 - u3))
- x1 = atan2(u3, u4) - atan2(u1, u2)
- x2 = sthm*x - cthm*x1
- bb = ee/x2
- es = ee
- tms = thm
- endif
-c
- glth = bb/sqrt(1.d0 - (ee*cos(thm - th))**2)
-c
- return
- end
-*
-******************************************************************
-*
- subroutine gmf(gf)
-c Fresnel' reflection A.Kuusk 02.01.1991
-c input parameters are ca = cos(th_incident), rn=refract.ind.,
-c rk = leaf hair index
-c
- implicit double precision (a-h, o-z)
- save /aaa/, /ggg/
-c
- common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint
- common /ggg/ gr, gt, g, g1, th, sth, cth, th1, sth1, cth1,
- & phi, sp, cp, th22, st, ct, st1, ct1, t10, t11, e1, e2,
- & s2, s3, ctg, ctg1, ctt1, stt1, calph, alp2, salp2, calp2,
- & alph, salph, alpp, difmy, difsig
- common /cfresn/ rn, rk
-c
- data pi12/1.570796326794895d0/
-c
-* print *, 'gmf'
-c
- ca=calp2
- x2 = ca*ca
- ag = x2*2.d0 - 1.d0 + rn*rn
- bg = 1.d0 + (ag - 2.d0)*x2
- xy = ag - x2
- cg = 2.d0*ca*sqrt(xy)
- sa2 = 1.d0 - x2
- y = (bg + sa2*cg)*(ag + cg)
- y = (ag - cg)*bg/y
- yy = sqrt(sa2)/pi12/ca*rk
- gf = exp(-yy)*y
-c
- return
- end
-*
-******************************************************************
-*
- subroutine soil
-c Soil directional reflectance and reflectance (albedo)
-c th, th1, th2 in radianes, cp = cos(phi)
-c A.Kuusk 1.03.1988
-c
- implicit double precision (a-h, o-z)
- save a, b, c, cts, ths1, ths2
- save /soildata/, /aaa/, /ggg/
-c
- dimension phis1(200), phis2(200), phis3(200), phis4(200)
- common /soildata/ phis1, phis2, phis3, phis4, rsl1, rsl2,
- & rsl3, rsl4, th2, rsl, rsoil, rr1soil, rrsoil
-c
- common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint
- common /ggg/ gr, gt, g, g1, th, sth, cth, th1, sth1, cth1,
- & phi, sp, cp, th22, st, ct, st1, ct1, t10, t11, e1, e2,
- & s2, s3, ctg, ctg1, ctt1, stt1, calph, alp2, salp2, calp2,
- & alph, salph, alpp, difmy, difsig
-c
- data a/.45098d0/, b/5.7829d0/, c, cts/2*13.7575d0/
- data ths1, ths2/2*.785398163d0/
-c
-* print *, 'soil'
- if (th2 .ne. ths2) then
- cts = 16.41d0 - th2*th2*4.3d0
- ths2 = th2
- endif
- if (th1 .ne. ths1) then
- ths1 = th1
- x = th1*th1
- a = x*7.702d0 - 4.3d0
- b = th1*7.363d0
- c = 16.41d0 - x*4.3d0
- endif
- x2 = rsl/cts
- rsoil = ((a*th + b*cp)*th + c)*x2
- rr1soil = (.7337d0*a + c)*x2
- rrsoil = 14.25d0*x2
-c
- return
- end
-*
-******************************************************************
-*
- subroutine soilspec
-c
-c Soil spectral reflectance, Price, RSE 33:113 - 121 (1990)
-c
- implicit double precision (a-h, o-z)
- save /count/, /soildata/
-c
- dimension u1(10), u2(10), a1(10), a2(10)
- common /count/ jl, jj, lg, jg, lf, nnx, n1, n2, u1, u2, a1, a2
-c
- dimension phis1(200), phis2(200), phis3(200), phis4(200)
- common /soildata/phis1, phis2, phis3, phis4, rsl1, rsl2,
- & rsl3, rsl4, th2, rsl, rsoil, rr1soil, rrsoil
-c
- rsl = rsl1*phis1(jl) + rsl2*phis2(jl) +
- & rsl3*phis3(jl) + rsl4*phis4(jl)
-c
- return
- end
-*
-**********************************************************************
-*
- subroutine gmd92
-c phase function and G-funktion
-c A. Kuusk 22.03.1988 & 16.06.1992
-
-
-
-c 0< = th, th1, th2<=pi/2, 0<=phi<=pi
-c
- implicit double precision (a-h, o-z)
- dimension f(5)
- save /aaa/, /ggg/, /ladak/
-c
- common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint
- common /ggg/ gr, gt, g, g1, th, sth, cth, th1, sth1, cth1,
- & phi, sp, cp, th22, st, ct, st1, ct1, t10, t11, e1, e2,
- & s2, s3, ctg, ctg1, ctt1, stt1, calph, alp2, salp2, calp2,
- & alph, salph, alpp, difmy, difsig
- common /ladak/ ee, thm, sthm, cthm
-c
- data pi/3.14159265358979d0/, pi4/6.28318531717958d0/,
- & pi12/.159154943d0/, pi14/.636619773d0/, eps5/.1d-2/
- & , pi13/.1061032953d0/
-c
-* print *, 'gmd92'
-c
-c *** gammad, e = 0. ***
- gr0 = (salph + alpp*calph)*pi13
- gt0 = (salph - alph*calph)*pi13
- if (ee .lt. .4d0) then
- gr = gr0
- gt = gt0
- g = .5d0
- g1 = .5d0
- return
- endif
-c *** gammad, e = 1. ***
- sg = 0.d0
- sg1 = 0.d0
- sgmr = 0.d0
- sgmt = 0.d0
- if (th22 .lt. t11) goto 47
- assign 46 to l4
- goto 61
-c
-46 continue
- assign 48 to l4
- goto 64
-c
-47 continue
- if (th22 .lt. t10) goto 50
- assign 51 to l4
- goto 62
-c
-51 continue
- assign 46 to l4
- goto 65
-c
-50 continue
- assign 52 to l4
- goto 63
-c
-52 continue
- assign 48 to l4
- goto 65
-c
-48 continue
-c
- gr1 = sgmr*pi12
- gt1 = sgmt*pi12
- gr = gr0 - .0102d0 +
- & (1.742d0*difmy - .4557d0*difsig)*(gr1 - gr0)
- gt = gt0 + .00653d0 +
- & (.2693d0*difmy + 5.821d0*difsig)*(gt1 - gt0)
- g = (2.653d0*difmy + 1.432d0*difsig)*(sg - .5d0) + .50072d0
- g1 = (2.653d0*difmy + 1.432d0*difsig)*(sg1 - .5d0) + .50072d0
-c
-49 continue
- return
-c
-c ****************************** tl1 = 0., tl2=pi/2 - th1
-c
-61 assign 71 to l2
- goto 130
-71 y = pp
- if (y .gt. 0.d0) sgmr = sgmr + y
- if (y .lt. 0.d0) sgmt = sgmt - y
- y1 = ct1*cthm
- sg1 = sg1 + abs(y1)
- goto l4
-c
-c ****************************** tl1 = pi/2 - th1, tl2=pi/2 - th
-c
-62 continue
- x2 = cthm/sthm
- x = -ctg1*x2
- x1 = sqrt(1.d0 - x*x)
- fa = atan2(x1, x)
- fb = pi4 - fa
- assign 72 to l2
- goto 30
-c
-72 continue
- y = pp
- if (y .gt. 0.d0) sgmr = sgmr + y
- if (y .lt. 0.d0) sgmt = sgmt - y
- assign 73 to l2
- goto 130
-c
-73 y = pp - y
- if (y .gt. 0.d0) sgmr = sgmr + y
- if (y .lt. 0.d0) sgmt = sgmt - y
- goto l4
-c
-c ****************************** tl1 = pi/2 - th, tl2=pi/2
-c
-63 continue
- x2 = cthm/sthm
- x = -ctg1*x2
- x1 = sqrt(1.d0 - x*x)
- fa = atan2(x1, x)
- f(2) = fa
- f(3) = pi4 - fa
- x = -ctg*x2
- x1 = sqrt(1.d0 - x*x)
- fa = atan2(x1, x)
- fb = phi - fa
- if (fb .lt. 0.d0) fb = fb + pi4
- f(4) = fb
- f(5) = phi + fa
- do 75 ii = 2, 4
- i1 = ii + 1
- do 75 j = i1, 5
- fa = f(ii)
- fb = f(j)
- if (fb .gt. fa) goto 75
- f(ii) = fb
- f(j) = fa
-75 continue
- f(1) = f(5) - pi4
- i1 = 1
-76 ii = i1
- i1 = ii + 1
- fa = f(ii)
- fb = f(i1)
- assign 74 to l2
- goto 30
-c
-c ****************************** tl1 = pi/2 - th, tl2=pi/2
-c
-74 continue
- y = pp
- if (y .gt. 0.d0) sgmr = sgmr + y
- if (y .lt. 0.d0) sgmt = sgmt - y
- if (i1 .le. 4) goto 76
-c
- x2 = ct*cthm
- x1 = st*sthm/x2
- x1 = sqrt(x1*x1 - 1.d0)
- x = atan2(1.d0, x1)
- x = (x + x1)*x2
- y = x*pi14
- sg = sg + abs(y)
- goto l4
-c
-c ****************************** tl1 = 0, tl2=pi/2 - th
-c
-64 y1 = ct*cthm
- sg = sg + abs(y1)
- goto l4
-c
-c ****************************** tl1 = pi/2 - th1, tl2=pi/2
-c
-65 continue
- x2 = ct1*cthm
- x1 = st1*sthm/x2
- x1 = sqrt(x1*x1 - 1.d0)
- x = atan2(1.d0, x1)
- x = (x + x1)*x2
- y = x*pi14
- sg1 = sg1 + abs(y)
- goto l4
-c
-c ****************************** p(fa, fb)
-c
-30 x = fb - fa
- if (x .gt. eps5) goto 31
- pp = 0.d0
- goto l2
-31 if ((pi4 - x) .lt. eps5) goto 130
- sfa = sin(fa)
- sfb = sin(fb)
- cfa = cos(fa)
- cfb = cos(fb)
- pp = x*ctt1*cthm*cthm
- y1 = x + sfb*cfb - sfa*cfa
- x = cfa - cfb
- y1 = y1*cp + sp*x*(cfa + cfb)
- pp = pp + stt1*.5d0*y1*sthm*sthm
- y1 = s2*(sfb - sfa) + s3*x
- pp = pp + y1*sthm*cthm
- goto l2
-c
-130 x = sthm*sthm
- pp = calph*x + ctt1*(2.d0 - 3.d0*x)
- pp = pp*pi
- goto l2
-c
- end
-*
-******************************************************************
-*
-*
-c ******************************************************************
-c leaf reflectance and transmittance.
-c Input data are refractive index n, a structure parameter N
-c and an absorption coefficient k:
-c the PROSPECT model, Jacquemoud & Baret, RSE 34:75-91 (1990)
-c ******************************************************************
-
- subroutine leaf
-c
- implicit double precision (a-h, o-z)
-c
- double precision nn, k, inex
- common /leafin/ nn, vai, k
- common /leafout/ refl, tran
- common /nagout/ inex
- common /tauin/ teta, ref
- common /tauout/ tau
-
-c ******************************************************************
-c determination of elementary reflectances et transmittances
-c ******************************************************************
-c ALLEN et al., 1969, Interaction of isotropic ligth with a compact
-c plant leaf, J. Opt. Soc. Am., Vol.59, 10:1376-1379
-c JACQUEMOUD S. and BARET F., 1990, Prospect : a model of leaf
-c optical properties spectra, Remote Sens. Environ., 34:75-91
-c ******************************************************************
-
-* print *, 'leaf'
- if (k .le. 0.d0) then
- k = 1.d0
- else
- call s13aaf
- k = (1.d0 - k)*exp(-k) + k**2*inex
- endif
-
- teta = 90.d0
- ref = nn
-c
- call tav
-c
- t1 = tau
- teta = 59.d0
-c
- call tav
-c
- t2 = tau
- x1 = 1.d0 - t1
- x2 = t1**2*k**2*(nn**2 - t1)
- x3 = t1**2*k*nn**2
- x4 = nn**4 - k**2*(nn**2 - t1)**2
- x5 = t2/t1
- x6 = x5*(t1 - 1.d0) + 1.d0 - t2
- r = x1 + x2/x4
- t = x3/x4
- ra = x5*r + x6
- ta = x5*t
-
-c ******************************************************************
-c reflectances et transmittances corresponding to N elementary
-c layers
-c ******************************************************************
-c STOKES G.G., 1862, On the intensity of the light reflected from or
-c transmitted through a pile of plates, Proceedings of the Royal
-c Society of London, Vol.11, 545-556
-c ******************************************************************
-
- delta = (t**2 - r**2 - 1.d0)**2 - 4.d0*r**2
- alfa = (1.d0 + r**2 - t**2 + sqrt(delta))/(2.d0*r)
- beta = (1.d0 + r**2 - t**2 - sqrt(delta))/(2.d0*r)
- va = (1.d0 + r**2 - t**2 + sqrt(delta))/(2.d0*r)
- vb = sqrt(beta*(alfa - r)/(alfa*(beta - r)))
- s1 = ra*(va*vb**(vai - 1.d0) -
- & va**(-1.d0)*vb**(-(vai - 1.d0))) +
- & (ta*t - ra*r)*(vb**(vai - 1.d0) - vb**(-(vai - 1.d0)))
- s2 = ta*(va - va**(-1.d0))
- s3 = va*vb**(vai - 1.d0) - va**(-1.d0)*vb**(-(vai - 1.d0))
- & - r*(vb**(vai - 1.d0) - vb**(-(vai - 1.d0)))
- refl = s1/s3
- tran = s2/s3
-c
- return
- end
-
-
-c ******************************************************************
-c exponential integral: int(exp(-t)/t, t = x..inf)
-c ******************************************************************
-
- subroutine s13aaf
-c
- implicit double precision (a-h, o-z)
-c
- double precision nn, k, inex
- common /leafin/ nn, vai, k
- common /nagout/ inex
-* print *, 's13aafin'
-
- if (k .gt. 4.d0) goto 10
-
- x = 0.5d0 * k - 1.d0
- y = (((((((((((((((-3.60311230482612224d-13
- & *x + 3.46348526554087424d-12)*x - 2.99627399604128973d-11)
- & *x + 2.57747807106988589d-10)*x - 2.09330568435488303d-9)
- & *x + 1.59501329936987818d-8)*x - 1.13717900285428895d-7)
- & *x + 7.55292885309152956d-7)*x - 4.64980751480619431d-6)
- & *x + 2.63830365675408129d-5)*x - 1.37089870978830576d-4)
- & *x + 6.47686503728103400d-4)*x - 2.76060141343627983d-3)
- & *x + 1.05306034687449505d-2)*x - 3.57191348753631956d-2)
- & *x + 1.07774527938978692d-1)*x - 2.96997075145080963d-1
- y = (y*x + 8.64664716763387311d-1)*x + 7.42047691268006429d-1
- inex = y - log(k)
- goto 30
-
-10 if (k .ge. 85.d0) go to 20
- x = 14.5d0 / (k + 3.25d0) - 1.d0
- y = (((((((((((((((-1.62806570868460749d-12
- & *x - 8.95400579318284288d-13)*x - 4.08352702838151578d-12)
- & *x - 1.45132988248537498d-11)*x - 8.35086918940757852d-11)
- & *x - 2.13638678953766289d-10)*x - 1.10302431467069770d-9)
- & *x - 3.67128915633455484d-9)*x - 1.66980544304104726d-8)
- & *x - 6.11774386401295125d-8)*x - 2.70306163610271497d-7)
- & *x - 1.05565006992891261d-6)*x - 4.72090467203711484d-6)
- & *x - 1.95076375089955937d-5)*x - 9.16450482931221453d-5)
- & *x - 4.05892130452128677d-4)*x - 2.14213055000334718d-3
- y = ((y*x - 1.06374875116569657d-2)*x -
- & 8.50699154984571871d-2)*x +
- & 9.23755307807784058d-1
- inex = exp(-k) * y / k
- goto 30
-
-20 inex = 0.d0
- goto 30
-
-30 continue
-* print *, 's13aafout'
- return
- end
-
-c ******************************************************************
-c determination of tav for any solid angle
-c ******************************************************************
-c STERN F., 1964, Transmission of isotropic radiation across an
-c interface between two dielectrics, Appl.Opt., Vol.3, 1:111-113
-c ALLEN W.A., 1973, Transmission of isotropic light across a
-c dielectric surface in two and three dimensions, J.Opt.Soc.Am.,
-c Vol.63, 6:664-666
-c ******************************************************************
-
- subroutine tav
-c
- implicit double precision (a-h, o-z)
- double precision k
-c
- common /tauin/ teta, ref
- common /tauout/ tau
-c
- data dr/1.745329251994330d-2/, eps/.1d-6/,
- & pi12/1.570796326794895d0/
-
-* print *, 'tavin'
- teta = teta*dr
- r2 = ref**2
- rp = r2 + 1.d0
- rm = r2 - 1.d0
- a = (ref + 1.d0)**2/2.d0
- k = -(r2 - 1.d0)**2/4.d0
- ds = sin(teta)
-
- if (abs(teta) .le. eps) then
- tau = 4.d0*ref/(ref + 1.d0)**2
- else
-
- if (abs(teta - pi12) .le. eps) then
- b1 = 0.d0
- else
- xxx = (ds**2 - rp/2.d0)**2 + k
- b1 = sqrt(xxx)
- endif
-
- b2 = ds**2 - rp/2.d0
- b = b1 - b2
- ts = (k**2/(6.d0*b**3) + k/b - b/2.d0) -
- & (k**2/(6.d0*a**3) + k/a - a/2.d0)
- tp1 = -2.d0*r2*(b - a)/rp**2
- tp2 = -2.d0*r2*rp*log(b/a)/rm**2
- tp3 = r2*(1.d0/b - 1.d0/a)/2.d0
- tp4 = 16.d0*r2**2*(r2**2 + 1.d0)*dlog((2.d0*rp*b - rm**2)/
- & (2.d0*rp*a - rm**2))/(rp**3*rm**2)
- tp5 = 16.d0*r2**3*(1.d0/(2.d0*rp*b - rm**2) - 1.d0/
- & (2.d0*rp*a - rm**2))/rp**3
- tp = tp1 + tp2 + tp3 + tp4 + tp5
- tau = (ts + tp)/(2.d0*ds**2)
- endif
-* print *, 'tavout'
- return
- end
-*
-******************************************************************
-*
-c constant values: refractive index (ref), albino and dry leaf
-c absorption (ke), chlorophyll a+b specific absorption coefficient
-c (kab), water specific absorption coefficient (kw),
-* and basis functions for soil spectral reflectance phis1, phis2,
-* phis3 and phis4 (Price, 1990)
-c ******************************************************************
-c JACQUEMOUD S. AND BARET F., 1990, Prospect : a model of leaf
-c optical properties spectra, Remote Sens. Environ., 34:75-91
-c JACQUEMOUD S. et al., 1991, Validation d'un modele de reflectance
-c spectrale et directionnnelle de sol, 5ieme Colloque International
-c Mesures Physiques et Signatures en Teledetection, Courchevel
-c (France), 14-18 Janvier 1991
-c ******************************************************************
-
- block data valeur
-c
- implicit double precision (a-h, o-z)
-c
- double precision ke, kab, kw
- dimension ref(200), ke(200), kab(200), kw(200)
- common /dat/ ref, ke, kab, kw
-c
- dimension phis1(200), phis2(200), phis3(200), phis4(200)
- common /soildata/ phis1, phis2, phis3, phis4, rsl1, rsl2,
- & rsl3, rsl4, th2, rsl, rsoil, rr1soil, rrsoil
-c
- data (ref(i), i = 1, 100)/
- & 1.5123,1.5094,1.5070,1.5050,1.5032,1.5019,1.5007,1.4997,1.4988,
- & 1.4980,1.4969,
- & 1.4959,1.4951,1.4943,1.4937,1.4930,1.4925,1.4920,1.4915,1.4910,
- & 1.4904,1.4899,1.4893,1.4887,1.4880,1.4873,1.4865,1.4856,1.4846,
- & 1.4836,1.4825,1.4813,1.4801,1.4788,1.4774,1.4761,1.4746,1.4732,
- & 1.4717,1.4701,1.4685,1.4670,1.4654,1.4639,1.4624,1.4609,1.4595,
- & 1.4582,1.4570,1.4559,1.4548,1.4538,1.4528,1.4519,1.4510,1.4502,
- & 1.4495,1.4489,1.4484,1.4480,1.4477,1.4474,1.4472,1.4470,1.4468,
- & 1.4467,1.4465,1.4463,1.4461,1.4458,1.4456,1.4453,1.4450,1.4447,
- & 1.4444,1.4440,1.4435,1.4430,1.4423,1.4417,1.4409,1.4402,1.4394,
- & 1.4387,1.4380,1.4374,1.4368,1.4363,1.4357,1.4352,1.4348,1.4345,
- & 1.4342,1.4341,1.4340,1.4340,1.4341,1.4342,1.4343,1.4345/
-
- data (ref(i), i = 101, 200)/
- & 1.4347,1.4348,1.4347,1.4345,1.4341,1.4336,1.4331,1.4324,1.4317,
- & 1.4308,1.4297,1.4284,1.4269,1.4253,1.4235,1.4216,1.4196,1.4176,
- & 1.4156,1.4137,1.4118,1.4100,1.4082,1.4065,1.4047,1.4029,1.4011,
- & 1.3993,1.3975,1.3958,1.3940,1.3923,1.3906,1.3888,1.3870,1.3851,
- & 1.3830,1.3808,1.3784,1.3758,1.3731,1.3703,1.3676,1.3648,1.3620,
- & 1.3592,1.3565,1.3537,1.3510,1.3484,1.3458,1.3433,1.3410,1.3388,
- & 1.3368,1.3350,1.3333,1.3317,1.3303,1.3289,1.3275,1.3263,1.3251,
- & 1.3239,1.3228,1.3217,1.3205,1.3194,1.3182,1.3169,1.3155,1.3140,
- & 1.3123,1.3105,1.3086,1.3066,1.3046,1.3026,1.3005,1.2985,1.2964,
- & 1.2944,1.2923,1.2902,1.2882,1.2863,1.2844,1.2826,1.2808,1.2793,
- & 1.2781,1.2765,1.2750,1.2738,1.2728,1.2719,1.2712,1.2708,1.2712,
- & 1.2736/
-
- data (ke(i), i = 1, 100)/
- &.1104,.0893,.0714,.0567,.0442,.0348,.0279,.0232,.0197,.0173,.0154,
- &.0142,.0120,.0108,.0093,.0092,.0092,.0092,.0092,.0092,.0091,.0091,
- &.0091,.0091,.0091,.0090,.0090,.0090,.0090,.0090,.0089,.0089,.0089,
- &.0089,.0088,.0088,.0088,.0088,.0088,.0087,.0087,.0087,.0087,.0087,
- &.0086,.0086,.0086,.0086,.0086,.0085,.0085,.0085,.0085,.0085,.0084,
- &.0084,.0084,.0084,.0084,.0083,.0083,.0083,.0082,.0082,.0082,.0082,
- &.0082,.0081,.0081,.0081,.0081,.0081,.0080,.0080,.0080,.0080,.0080,
- &.0079,.0079,.0079,.0079,.0079,.0078,.0078,.0078,.0078,.0078,.0077,
- &.0077,.0077,.0077,.0077,.0076,.0076,.0076,.0076,.0076,.0075,.0075,
- &.0075/
-
- data (ke(i), i = 101, 200)/
- &.0074,.0073,.0072,.0071,.0070,.0069,.0068,.0068,.0067,.0066,.0065,
- &.0064,.0063,.0062,.0062,.0061,.0060,.0059,.0058,.0057,.0056,.0056,
- &.0054,.0053,.0053,.0052,.0051,.0050,.0049,.0048,.0047,.0047,.0046,
- &.0045,.0044,.0043,.0042,.0041,.0040,.0039,.0039,.0037,.0037,.0036,
- &.0035,.0034,.0033,.0032,.0031,.0031,.0030,.0029,.0028,.0027,.0026,
- &.0025,.0025,.0024,.0023,.0022,.0021,.0020,.0019,.0019,.0018,.0017,
- &.0016,.0015,.0014,.0014,.0013,.0012,.0010,.0010,.0009,.0008,.0007,
- &.0006,.0006,.0005,.0004,.0003,.0002,.0002,.0001,15*.0000/
-
- data kab/
- & .04664,.04684,.04568,.04482,.04344,.04257,.04287,.04189,.04116,
- & .03847,.03409,
- & .03213,.03096,.03116,.03051,.03061,.02998,.02965,.02913,.02902,
- & .02769,.02707,.02539,.02409,.02150,.01807,.01566,.01317,.01095,
- & .00929,.00849,.00803,.00788,.00757,.00734,.00713,.00692,.00693,
- & .00716,.00758,.00815,.00877,.00938,.00976,.01041,.01089,.01105,
- & .01127,.01170,.01222,.01280,.01374,.01441,.01462,.01495,.01499,
- & .01506,.01580,.01686,.01810,.01961,.02112,.02336,.02702,.02880,
- & .02992,.03142,.03171,.02961,.02621,.02078,.01518,.01020,.00718,
- & .00519,.00390,.00298,.00218,.00163,.00116,.00083,.00057,.00039,
- & .00027,.00014,.00011,.00009,.00005,112*.00000/
-
- data kw/
- & 111*0.,00.100,00.200,00.278,00.206,00.253,00.260,00.313,00.285,
- & 00.653,00.614,00.769,00.901,00.872,00.812,00.733,00.724,00.855,
- & 00.900,01.028,01.500,02.026,02.334,03.636,08.942,14.880,17.838,
- & 19.497,19.419,17.999,12.024,10.709,08.384,07.081,06.155,05.619,
- & 05.112,04.512,04.313,04.064,03.804,03.709,03.877,04.348,04.574,
- & 05.029,05.804,06.345,05.823,05.886,06.315,08.432,15.588,32.247,
- & 51.050,58.694,55.135,50.454,42.433,40.670,36.030,29.771,25.153,
- & 24.378,22.008,20.608,18.576,17.257,15.921,14.864,12.861,12.773,
- & 12.426,13.090,14.013,15.066,15.857,16.776,19.113,21.066,22.125,
- & 26.438,28.391,28.920,31.754,36.375,40.056,41.019,45.471,43.126/
-
- data (phis1(i), i = 1, 100)/
- & .088, .095, .102, .109, .116, .123, .130, .136, .143, .150,
- & .157, .164, .171, .178, .185, .192, .199, .206, .213, .220,
- & .227, .233, .240, .247, .254, .261, .268, .275, .282, .289,
- & .295, .302, .309, .316, .326, .335, .345, .356, .366, .376,
- & .386, .395, .404, .412, .421, .429, .436, .443, .450, .457,
- & .464, .470, .476, .483, .489, .495, .502, .508, .514, .520,
- & .526, .532, .538, .543, .549, .555, .561, .568, .574, .580,
- & .587, .594, .601, .608, .615, .622, .629, .637, .644, .652,
- & .659, .667, .674, .681, .689, .696, .702, .709, .716, .723,
- & .729, .735, .742, .748, .754, .760, .766, .771, .777, .782/
-
- data (phis1(i), i = 101, 200)/
- & .802, .819, .832, .842, .854, .868, .883, .899, .917, .935,
- & .954, .974, .993,1.012,1.030,1.047,1.063,1.078,1.091,1.102,
- & 1.111,1.118,1.126,1.137,1.150,1.163,1.176,1.187,1.192,1.188,
- & 1.177,1.159,1.134,1.090, .979, .830, .764, .744, .748, .777,
- & .823, .878, .932, .983,1.026,1.062,1.091,1.115,1.133,1.147,
- & 1.156,1.161,1.162,1.158,1.149,1.132,1.109,1.087,1.072,1.056,
- & 1.035, .989, .886, .659, .456, .350, .323, .335, .361, .396,
- & .438, .484, .530, .576, .622, .664, .705, .740, .768, .788,
- & .800, .802, .796, .794, .797, .789, .779, .756, .725, .715,
- & .675, .635, .585, .535, .485, .435, .385, .335, .285, .235/
-
- data (phis2(i), i = 1, 100)/
- & .249, .245, .241, .237, .232, .228, .222, .217, .211, .205,
- & .199, .193, .186, .179, .171, .163, .155, .147, .139, .130,
- & .121, .111, .102, .092, .081, .071, .060, .049, .038, .026,
- & .014, .002,-.011,-.024,-.037,-.050,-.064,-.078,-.092,-.107,
- & -.121,-.137,-.152,-.168,-.184,-.200,-.216,-.232,-.246,-.259,
- & -.270,-.280,-.289,-.297,-.303,-.308,-.313,-.317,-.322,-.325,
- & -.329,-.332,-.335,-.338,-.340,-.342,-.345,-.347,-.350,-.352,
- & -.355,-.358,-.360,-.363,-.366,-.369,-.372,-.374,-.377,-.378,
- & -.380,-.381,-.382,-.382,-.383,-.382,-.382,-.381,-.380,-.378,
- & -.376,-.373,-.370,-.367,-.363,-.359,-.354,-.349,-.344,-.338/
-
- data (phis2(i), i = 101, 200)/
- & -.310,-.283,-.258,-.234,-.212,-.190,-.167,-.143,-.118,-.092,
- & -.066,-.039,-.014, .011, .034, .057, .083, .114, .151, .192,
- & .233, .272, .311, .348, .380, .407, .438, .476, .521, .570,
- & .624, .674, .708, .766, .824, .853, .854, .852, .858, .881,
- & .916, .947, .973, .997,1.017,1.036,1.052,1.067,1.082,1.095,
- & 1.107,1.119,1.131,1.142,1.154,1.166,1.175,1.179,1.178,1.172,
- & 1.162,1.148,1.083, .900, .678, .538, .499, .515, .552, .598,
- & .653, .716, .777, .834, .886, .932, .973,1.007,1.036,1.058,
- & 1.075,1.086,1.091,1.091,1.086,1.076,1.060,1.039,1.012, .980,
- & .943, .900, .852, .799, .740, .676, .606, .532, .451, .366/
-
- data (phis3(i), i = 1, 100)/
- & -.417,-.384,-.351,-.318,-.285,-.253,-.221,-.189,-.157,-.126,
- & -.095,-.064,-.033,-.003, .027, .057, .087, .117, .146, .175,
- & .204, .232, .260, .289, .316, .344, .371, .399, .425, .452,
- & .478, .505, .525, .545, .566, .587, .606, .626, .652, .676,
- & .699, .722, .744, .764, .784, .804, .822, .839, .856, .872,
- & .886, .900, .913, .926, .937, .948, .957, .966, .974, .981,
- & .988, .993, .998,1.002,1.006,1.009,1.012,1.014,1.016,1.017,
- & 1.018,1.018,1.018,1.017,1.016,1.014,1.012,1.010,1.007,1.003,
- & .999, .995, .990, .984, .978, .972, .965, .957, .949, .941,
- & .932, .923, .913, .902, .891, .880, .868, .855, .842, .829/
-
- data (phis3(i), i = 101, 200)/
- & .766, .694, .620, .550, .484, .421, .361, .303, .247, .190,
- & .134, .079, .023,-.031,-.086,-.140,-.190,-.235,-.275,-.310,
- & -.340,-.367,-.394,-.422,-.452,-.484,-.513,-.541,-.565,-.578,
- & -.575,-.556,-.525,-.468,-.323,-.115,-.018, .002,-.003,-.029,
- & -.076,-.142,-.211,-.274,-.333,-.386,-.432,-.471,-.503,-.528,
- & -.544,-.551,-.549,-.538,-.517,-.491,-.463,-.436,-.419,-.417,
- & -.401,-.348,-.216, .014, .160, .203, .209, .210, .207, .200,
- & .189, .174, .155, .132, .105, .075, .043, .013,-.012,-.035,
- & -.053,-.068,-.078,-.082,-.080,-.073,-.060,-.041,-.017, .006,
- & .035, .065, .097, .125, .168, .180, .168, .125, .097, .065/
-
- data (phis4(i), i = 1, 100)/
- & .067, .077, .086, .094, .102, .111, .118, .126, .133, .140,
- & .146, .152, .158, .164, .169, .174, .179, .184, .188, .192,
- & .195, .198, .201, .204, .206, .208, .210, .212, .213, .214,
- & .214, .214, .214, .214, .213, .212, .211, .210, .210, .209,
- & .207, .205, .202, .198, .194, .189, .184, .179, .173, .167,
- & .161, .155, .149, .143, .136, .130, .123, .116, .108, .101,
- & .093, .085, .077, .068, .060, .051, .043, .034, .026, .018,
- & .010, .002,-.006,-.014,-.022,-.030,-.037,-.045,-.052,-.060,
- & -.067,-.074,-.081,-.087,-.093,-.098,-.103,-.108,-.112,-.116,
- & -.120,-.123,-.126,-.129,-.132,-.134,-.136,-.138,-.140,-.141/
-
- data (phis4(i), i = 101, 200)/
- & -.147,-.152,-.158,-.166,-.170,-.165,-.157,-.151,-.144,-.128,
- & -.104,-.078,-.049,-.009, .038, .082, .122, .169, .222, .272,
- & .317, .364, .413, .469, .532, .591, .642, .694, .748, .790,
- & .810, .817, .819, .740, .494, .215, .110, .125, .155, .204,
- & .291, .408, .521, .627, .724, .811, .884, .940, .987,1.025,
- & 1.053,1.071,1.077,1.072,1.046, .996, .941, .892, .857, .842,
- & .809, .713, .509, .055,-.236,-.324,-.336,-.320,-.308,-.294,
- & -.275,-.248,-.205,-.144,-.094,-.048, .005, .058, .105, .132,
- & .123, .079, .045, .024, .014, .018, .022,-.010,-.042,-.054,
- & -.055,-.060,-.060,-.055,-.050,-.046,-.042,-.038,-.034,-.030/
-
- end
-*
-******************************************************************
-*
- subroutine dakg(u, a, nq)
-c Gaussi kvadratuuri sqlmed ja kordajad, nq = 2*n, u=(-1., 1.)
- implicit double precision (a-h, o-z)
- dimension u(48), a(48)
-c
-* print *,'dakg'
- n = nq/2
- goto (1, 2, 1, 4, 1, 6, 1, 8, 1, 10, 1, 12, 1, 14, 1, 16, 1,
- & 1, 1, 20, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 48), nq
-1 continue
- print *, ' *** dakg - inacceptable nq'
- stop 'dakg'
-c
-2 continue
- u(2) = .577350269189626d0
- a(2) = 1.d0
- goto 13
-c
-4 continue
- u(3) = .339981043584856d0
- u(4) = .861136311594053d0
- a(3) = .652145154862546d0
- a(4) = .347854845137454d0
- goto 13
-c
-6 continue
- u(4) = .238619186083197d0
- u(5) = .661209386466265d0
- u(6) = .932469514203152d0
- a(4) = .467913934572691d0
- a(5) = .360761573048139d0
- a(6) = .171324492379170d0
- goto 13
-c
-8 continue
- u(5) = .183434642495650d0
- u(6) = .525532409916329d0
- u(7) = .796666477413627d0
- u(8) = .960289856497536d0
- a(5) = .362683783378362d0
- a(6) = .313706645877887d0
- a(7) = .222381034453374d0
- a(8) = .101228536290376d0
- goto 13
-c
-10 continue
- u(6) = .148874338981631d0
- u(7) = .433395394129247d0
- u(8) = .679409568299024d0
- u(9) = .865063366688985d0
- u(10) = .973906528517172d0
- a(6) = .295524224714753d0
- a(7) = .269266719309996d0
- a(8) = .219086362515982d0
- a(9) = .149451349150580d0
- a(10) = .666713443086881d-1
- goto 13
-c
-12 continue
- u(7) = .125233408511469d0
- u(8) = .367831498998180d0
- u(9) = .587317954286617d0
- u(10) = .769902674194305d0
- u(11) = .904117256370475d0
- u(12) = .981560634246719d0
- a(7) = .249147045813402d0
- a(8) = .233492536538355d0
- a(9) = .203167426723066d0
- a(10) = .160078328543346d0
- a(11) = .106939325995318d0
- a(12) = .471753363865118d-1
- goto 13
-c
-14 continue
- u( 8) = .108054948707344d0
- u( 9) = .319112368927890d0
- u(10) = .515248636358154d0
- u(11) = .687292904811685d0
- u(12) = .827201315069765d0
- u(13) = .928434883663574d0
- u(14) = .986283808696812d0
- a( 8) = .215263853463158d0
- a( 9) = .205198463721296d0
- a(10) = .185538397477938d0
- a(11) = .157203167158194d0
- a(12) = .121518570687903d0
- a(13) = .801580871597602d-1
- a(14) = .351194603317519d-1
- goto 13
-c
-16 continue
- u( 9) = .950125098376374d-1
- u(10) = .281603550779259d0
- u(11) = .458016777657227d0
- u(12) = .617876244402643d0
- u(13) = .755404408355003d0
- u(14) = .865631202387832d0
- u(15) = .944575023073233d0
- u(16) = .989400934991650d0
- a( 9) = .189450610455068d0
- a(10) = .182603415044924d0
- a(11) = .169156519395003d0
- a(12) = .149595988816577d0
- a(13) = .124628971255534d0
- a(14) = .951585116824928d-1
- a(15) = .622535239386479d-1
- a(16) = .271524594117541d-1
- goto 13
-c
-20 continue
- u(11) = .765265211334973d-1
- u(12) = .227785851141645d0
- u(13) = .373706088715420d0
- u(14) = .510867001950827d0
- u(15) = .636053680726515d0
- u(16) = .746331906460151d0
- u(17) = .839116971822219d0
- u(18) = .912234428251326d0
- u(19) = .963971927277914d0
- u(20) = .993128599185095d0
- a(11) = .152753387130726d0
- a(12) = .149172986472604d0
- a(13) = .142096109318382d0
- a(14) = .131688638449177d0
- a(15) = .118194531961518d0
- a(16) = .101930119817240d0
- a(17) = .832767415767047d-1
- a(18) = .626720483341091d-1
- a(19) = .406014298003869d-1
- a(20) = .176140071391521d-1
- goto 13
-c
-48 continue
- u(25) = .323801709628694d-1
- u(26) = .970046992094627d-1
- u(27) = .161222356068892d0
- u(28) = .224763790394689d0
- u(29) = .287362487355456d0
- u(30) = .348755886292161d0
- u(31) = .408686481990717d0
- u(32) = .466902904750958d0
- u(33) = .523160974722233d0
- u(34) = .577224726083973d0
- u(35) = .628867396776514d0
- u(36) = .677872379632664d0
- u(37) = .724034130923815d0
- u(38) = .767159032515740d0
- u(39) = .807066204029443d0
- u(40) = .843588261624394d0
- u(41) = .876572020274247d0
- u(42) = .905879136715570d0
- u(43) = .931386690706554d0
- u(44) = .952987703160431d0
- u(45) = .970591592546247d0
- u(46) = .984124583722827d0
- u(47) = .993530172266351d0
- u(48) = .998771007252426d0
- a(25) = .647376968126839d-1
- a(26) = .644661644359501d-1
- a(27) = .639242385846482d-1
- a(28) = .631141922862540d-1
- a(29) = .620394231598927d-1
- a(30) = .607044391658939d-1
- a(31) = .591148396983956d-1
- a(32) = .572772921004032d-1
- a(33) = .551995036999842d-1
- a(34) = .528901894851937d-1
- a(35) = .503590355538545d-1
- a(36) = .476166584924905d-1
- a(37) = .446745608566943d-1
- a(38) = .415450829434647d-1
- a(39) = .382413510658307d-1
- a(40) = .347772225647704d-1
- a(41) = .311672278327981d-1
- a(42) = .274265097083569d-1
- a(43) = .235707608393244d-1
- a(44) = .196161604573555d-1
- a(45) = .155793157229438d-1
- a(46) = .114772345792345d-1
- a(47) = .732755390127626d-2
- a(48) = .315334605230584d-2
-13 continue
-c
- nq1 = nq+1
- do 15 i = 1,n
- ii = nq1-i
- u(i) = -u(ii)
- a(i) = a(ii)
-15 continue
-c
- return
- end
-*
-******************************************************************
-c akbrdf - an interface between 6s and msrm
-c MSRM93 - MultiSpectral Reflectance Model A. Kuusk 24.03.1993
-c Internet: andres at aai.ee
-c
-c A. Kuusk, A multispectral canopy reflectance model,
-c Remote Sens. Environ., 1994, 50(2):75-82.
-c
- subroutine akbrdf(eei, thmi, uli, sli, rsl1i, wlmoy, rnci,
- & cabi, cwi, vaii, mu, np, rm, rp, brdfint)
-c See on tegelikult juba mcrm, aga clx ja clz on fikseeritud
-c
- implicit double precision (a-h, o-z)
- double precision integr
- integer np, mu
- integer k, j
- real eei, thmi, uli, sli, rsl1i, wlmoy, rnci, cabi, cwi,
- & vaii, pir
- real mu1, mu2, fi
- real rm(-mu:mu), rp(np), brdfint(-mu:mu, np)
- save /count/, /soildata/, /aaa/, /ggg/, /ladak/
-c
- dimension u1(10), u2(10), a1(10), a2(10)
- common /count/ jl, jj, lg, jg, lf, nnx, n1, n2, u1, u2, a1, a2
-c
- double precision nnl, kk
- common /leafin/ nnl, vai, kk
- common /leafout/ refl, tran
-c
- double precision ke, kab, kw
- dimension refr(200), ke(200), kab(200), kw(200)
- common /dat/ refr, ke, kab, kw
-c
- dimension phis1(200), phis2(200), phis3(200), phis4(200)
- common /soildata/ phis1, phis2, phis3, phis4, rsl1, rsl2,
- & rsl3, rsl4, th2, rsl, rsoil, rr1soil, rrsoil
-c
- common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint
- common /ggg/gr, gt, g, g1, th, sth, cth, th1, sth1, cth1,
- & phi, sp, cp, th22, st, ct, st1, ct1, t10, t11, e1, e2,
- & s2, s3, ctg, ctg1, ctt1, stt1, calph, alp2, salp2, calp2,
- & alph, salph, alpp, difmy, difsig
- common /cfresn/ rn, rk
- common /ladak/ ee, thm, sthm, cthm
- common /msrmdata/ th10, rncoef, cab, cw, bq
-c
-c
- data pi/3.141592653589793d0/, pir/3.14159265/
- data pi12/1.570796326794895d0/, dr/1.745329251994330d-2/
- data eps/.1d-5/, eps4/.1d-3/
- data lf/1/
-c
-* print *, 'msrm93'
-c
- integr(xx) = (1.d0 - exp(-xx))/xx
- jg = 1
-* if (lf .eq. 1) then
-c
- ee = eei
- thm = thmi*dr
- ul = uli
- sl = sli
- clz = .9d0
- clx = .1d0
- th2 = 45.d0*dr
- rsl1 = rsl1i
- rsl2 = -.48d0*rsl1 + .0862d0
- rsl3 = 0.d0
- rsl4 = 0.d0
- rlambda = wlmoy*1000.d0
-c
- if ((rlambda .gt. 2500.d0) .or. (rlambda .lt. 404.d0)) then
- print *, 'AKBRDF: wavelength out of range'
- stop
- endif
-c
- if (rlambda .le. 800.d0) then
- jl = nint((rlambda - 400.d0)/4.d0)
- else
- jl = nint((rlambda - 800.d0)/17.d0) + 100
- endif
-c
- rncoef = rnci
- cab = cabi
- cw = cwi
- vai = vaii
- nnl = refr(jl)
- kk = ke(jl) + cab*kab(jl) + cw*kw(jl)
- call leaf
-c
- rn = rncoef*nnl
- rrl = refl - ((1.d0 - rn)/(1.d0 + rn))**2
- rrls = rrl
- ttl = tran
-c
- call soilspec
-c
- cthm = cos(thm)
- sthm = sin(thm)
-c
- th22 = pi12 - thm
- if (abs(th22) .lt. eps4) th22 = 0.d0
- eln = -log(1.d0 - ee)
- difmy = abs(.059d0*eln*(thm - 1.02d0) + .02d0)
- difsig = abs(.01771d0 - .0216d0*eln*(thm - .256d0))
-c
-* lf = 2
-* endif
-c
- sth10 = sin(th10)
- cth10 = cos(th10)
-c
- mu1 = rm(0)
- do 1 k = 1, np
- do 2 j = 1, mu
- mu2 = rm(j)
- if (j .eq. mu) then
- fi = rm(-mu)
- else
- fi = rp(k) + rm(-mu)
- endif
- th10 = acos(mu1)
- if (fi .lt. 0.) fi = fi + 2.*pir
- if (fi .gt. (2.*pir)) fi = fi - 2.*pir
- if (fi .gt. pir) fi = 2.*pir - fi
- tgt1 = tan(th10)
- xx = tgt1*clx/sl
-c
- if (xx .lt. eps) then
- clmp1 = clz
- else
- clmp1 = 1.d0 - (1.d0 - clz)*integr(xx)
- endif
-c
- phi = fi
- th1 = th10
- th = acos(mu2)
- tgt = tan(th)
- xx = tgt*clx/sl
-c
- if (xx .lt. eps) then
- clmp = clz
- else
- clmp = 1.d0 - (1.d0 - clz)*integr(xx)
- endif
-c
- call msrm
- brdfint(j, k) = bq
-c
- 2 continue
- 1 continue
-c
- return
- end
-*
-*
-******************************************************************
-*
-
- subroutine akalbe
-* & (eei, thmi, uli, sli, rsl1i, wlmoy, rnci, cabi, cwi, vaii, albbrdf)
- & (albbrdf)
-c
-c aa94.f - albeedo integrating msrm93 over the hemisphere
-c A. Kuusk 23.09.1994
-c
- implicit double precision (a-h, o-z)
-c
-* real eei, thmi, uli, sli, rsl1i, wlmoy, rnci, cabi, cwi, vaii, albbrdf
- real albbrdf
- save /count/, /soildata/, /aaa/, /ggg/, /ladak/
-c
- dimension uu(20), aa(20)
-c
- dimension u1(10), u2(10), a1(10), a2(10)
- common /count/ jl, jj, lg, jg, lf, nnx, n1, n2, u1, u2, a1, a2
-c
- dimension phis1(200), phis2(200), phis3(200), phis4(200)
- common /soildata/ phis1, phis2, phis3, phis4, rsl1, rsl2,
- & rsl3, rsl4, th2, rsl, rsoil, rr1soil, rrsoil
-c
- common /aaa/ rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint
- common /ggg/gr, gt, g, g1, th, sth, cth, th1, sth1, cth1,
- & phi, sp, cp, th22, st, ct, st1, ct1, t10, t11, e1, e2,
- & s2, s3, ctg, ctg1, ctt1, stt1, calph, alp2, salp2, calp2,
- & alph, salph, alpp, difmy, difsig
- common /ladak/ ee, thm, sthm, cthm
-c
- data pi/3.141592653589793d0/, pi1/1.5707963268d0/
-c
-* print *, 'aa94'
-c
- n1 = 6
- n2 = 8
-c
- n = n2 + n2
- ng = n + 1
- call dakg(uu, aa, n)
-c
- do 20 i = 1, n2
- i1 = ng - i
- a2(i) = aa(i)
-20 u2(i) = uu(i1)
-c
- n = n1 + n1
- ng = n + 1
- call dakg(uu, aa, n)
-c
- do 21 i = 1, n1
- i1 = ng - i
- a1(i) = aa(i)
-21 u1(i) = uu(i1)
-c
- bdd = 0.d0
- do 10 i2 = 1, n2
- th = (1.d0 - u2(i2))*pi1
- sth = sin(th)
- cth = cos(th)
-c
- call akd
-c
- bdd = bdd + a2(i2)*bqint*sth*cth
-10 continue
-c
- albbrdf = bdd*pi
-c
- return
- end
-*
-******************************************************************
-*
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.h b/Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.h
deleted file mode 100644
index 70f5df3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AKTOOL.h
+++ /dev/null
@@ -1,65 +0,0 @@
-extern int otb_6s_msrm_(
-
- );
-extern int otb_6s_akd_(
-
- );
-extern int otb_6s_biz_(
-
- );
-extern int otb_6s_difr92_(
-
- );
-extern int otb_6s_glak_(
- otb_6s_doublereal *glth,
- otb_6s_doublereal *th
- );
-extern int otb_6s_gmf_(
- otb_6s_doublereal *gf
- );
-extern int otb_6s_soil_(
-
- );
-extern int otb_6s_soilspec_(
-
- );
-extern int otb_6s_gmd92_(
-
- );
-extern int otb_6s_leaf_(
-
- );
-extern int otb_6s_s13aaf_(
-
- );
-extern int otb_6s_tav_(
-
- );
-extern int otb_6s_valeur_(
-
- );
-extern int otb_6s_dakg_(
- otb_6s_doublereal *u,
- otb_6s_doublereal *a,
- otb_6s_integer *nq
- );
-extern int otb_6s_akbrdf_(
- otb_6s_doublereal *eei,
- otb_6s_doublereal *thmi,
- otb_6s_doublereal *uli,
- otb_6s_doublereal *sli,
- otb_6s_doublereal *rsl1i,
- otb_6s_doublereal *wlmoy,
- otb_6s_doublereal *rnci,
- otb_6s_doublereal *cabi,
- otb_6s_doublereal *cwi,
- otb_6s_doublereal *vaii,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *brdfint
- );
-extern int otb_6s_akalbe_(
- otb_6s_doublereal *albbrdf
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.P b/Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.P
deleted file mode 100644
index 4566ed3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int atmref_(integer *iaer, integer *iaer_prof__, doublereal *tamoy, doublereal *taer, doublereal *trmoy, doublereal *pizmoy, doublereal *piza, doublereal *tamoyp, doublereal *taerp, doublereal *trmoyp, doublereal *palt, doublereal *phi, doublereal *xmus, doublereal *xmuv, doublereal *phirad, integer *nt, integer *mu, integer *np, doublereal *rm, doublereal *gb, doublereal *rp, doublereal *rorayl, doublereal *roaero, doublereal *romix, doublereal *rqrayl, doublereal *rqaero, double [...]
-/* comlen sixs_del__ 16 */
-/*:ref: ospol_ 14 24 4 7 7 7 7 7 7 7 4 4 4 7 7 7 7 7 7 7 4 4 7 7 7 7 */
-/*:ref: os_ 14 18 4 7 7 7 7 7 7 7 4 4 4 7 7 7 7 7 4 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.c b/Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.c
deleted file mode 100644
index bebb29f..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.c
+++ /dev/null
@@ -1,322 +0,0 @@
-/* ATMREF.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal delta, sigma;
-} sixs_del__;
-
-#define sixs_del__1 sixs_del__
-
-/*< >*/
-/* Subroutine */ int atmref_(integer *iaer, integer *iaer_prof__, doublereal *
- tamoy, doublereal *taer, doublereal *trmoy, doublereal *pizmoy,
- doublereal *piza, doublereal *tamoyp, doublereal *taerp, doublereal *
- trmoyp, doublereal *palt, doublereal *phi, doublereal *xmus,
- doublereal *xmuv, doublereal *phirad, integer *nt, integer *mu,
- integer *np, doublereal *rm, doublereal *gb, doublereal *rp,
- doublereal *rorayl, doublereal *roaero, doublereal *romix, doublereal
- *rqrayl, doublereal *rqaero, doublereal *rqmix, doublereal *rurayl,
- doublereal *ruaero, doublereal *rumix, integer *ipol, doublereal *
- xlm1, doublereal *xlm2, doublereal *rorayl_fi__, doublereal *
- romix_fi__, integer *nfi, integer *nfilut, doublereal *filut,
- doublereal *rolut, doublereal *rolutq, doublereal *rolutu)
-{
- /* System generated locals */
- integer rolut_dim1, rolut_offset, rolutq_dim1, rolutq_offset, rolutu_dim1,
- rolutu_offset, filut_dim1, filut_offset, rm_offset, gb_offset,
- xlm2_dim1, xlm2_offset, xlm1_dim1, xlm1_offset, i__1;
-
- /* Local variables */
- integer i__, j;
- extern /* Subroutine */ int os_(integer *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, integer *, integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *, integer *,
- doublereal *);
- integer ifi;
- doublereal xqm1[2499] /* was [51][49] */, xum1[2499] /* was [51][
- 49] */, tamol;
- extern /* Subroutine */ int ospol_(integer *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, integer *, integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *);
- doublereal tamolp, xlphim[181], rolutd[1025] /* was [25][41] */;
-
-/*< real rolut(mu,41),rolutq(mu,41),rolutu(mu,41) >*/
-/* THOMAS */
-/* real rolutd(mu,41) */
-/*< real rolutd(25,41) >*/
-/*< real filut(mu,41) >*/
-/*< integer nfilut(mu) >*/
-/*< integer mu,np,nfi >*/
-/*< real rm(-mu:mu),rp(np),gb(-mu:mu) >*/
-/*< real tamoy,trmoy,pizmoy,tamoyp,trmoyp,palt >*/
-/*< real xlm2(-mu:mu,np) >*/
-/* THOMAS */
-/* real xlphim(nfi) */
-/*< real xlphim(181) >*/
-/*< real rorayl_fi(nfi),romix_fi(nfi) >*/
-/*< real phi,xmus,xmuv,phirad >*/
-/*< real delta,sigma,tamol,tamolp >*/
-/*< real rorayl,roaero,romix,rqrayl,rqaero,rqmix >*/
-/*< real rurayl,ruaero,rumix >*/
-/*< real xlm1(-mu:mu,np) >*/
-/* THOMAS */
-/* real xqm1(-mu:mu,np),xum1(-mu:mu,np) */
-/*< real xqm1(-25:25,49),xum1(-25:25,49) >*/
-/*< integer iaer,nt,ipol,iaer_prof >*/
-/*< common /sixs_del/ delta,sigma >*/
-
-/* atmospheric reflectances */
-/*< rorayl=0. >*/
- /* Parameter adjustments */
- rolutu_dim1 = *mu;
- rolutu_offset = rolutu_dim1 + 1;
- rolutu -= rolutu_offset;
- rolutq_dim1 = *mu;
- rolutq_offset = rolutq_dim1 + 1;
- rolutq -= rolutq_offset;
- rolut_dim1 = *mu;
- rolut_offset = rolut_dim1 + 1;
- rolut -= rolut_offset;
- filut_dim1 = *mu;
- filut_offset = filut_dim1 + 1;
- filut -= filut_offset;
- --nfilut;
- gb_offset = -(*mu);
- gb -= gb_offset;
- rm_offset = -(*mu);
- rm -= rm_offset;
- xlm2_dim1 = *mu - (-(*mu)) + 1;
- xlm2_offset = -(*mu) + xlm2_dim1;
- xlm2 -= xlm2_offset;
- xlm1_dim1 = *mu - (-(*mu)) + 1;
- xlm1_offset = -(*mu) + xlm1_dim1;
- xlm1 -= xlm1_offset;
- --rp;
- --romix_fi__;
- --rorayl_fi__;
-
- /* Function Body */
- *rorayl = 0.;
-/*< roaero=0. >*/
- *roaero = 0.;
-/*< romix=0. >*/
- *romix = 0.;
-/*< rqrayl=0. >*/
- *rqrayl = 0.;
-/*< rqaero=0. >*/
- *rqaero = 0.;
-/*< rqmix=0. >*/
- *rqmix = 0.;
-/*< rurayl=999. >*/
- *rurayl = 999.;
-/*< ruaero=999. >*/
- *ruaero = 999.;
-/*< rumix=999. >*/
- *rumix = 999.;
-
-/* 3 possible cases (satellite,plane,ground) */
-/*< if(palt.gt.0.0)then >*/
- if (*palt > 0.) {
-/*< rm(-mu)=-xmuv >*/
- rm[-(*mu)] = -(*xmuv);
-/*< rm(mu)=xmuv >*/
- rm[*mu] = *xmuv;
-/*< rm(0)=-xmus >*/
- rm[0] = -(*xmus);
-/* -----rayleigh reflectance = rorayl,rprayl */
-/*< tamol=0. >*/
- tamol = 0.;
-/*< tamolp=0. >*/
- tamolp = 0.;
-/*< >*/
- ospol_(iaer_prof__, &tamol, trmoy, piza, &tamolp, trmoyp, palt,
- phirad, nt, mu, np, &rm[rm_offset], &gb[gb_offset], &rp[1], &
- xlm1[xlm1_offset], xqm1, xum1, xlphim, nfi, &nfilut[1], &
- filut[filut_offset], rolutd, rolutd, rolutd);
-/*< if (ipol.ne.1)then >*/
- if (*ipol != 1) {
-/*< rorayl=xlm1(-mu,1)/xmus >*/
- *rorayl = xlm1[-(*mu) + xlm1_dim1] / *xmus;
-/*< romix=rorayl >*/
- *romix = *rorayl;
-/*< do ifi=1,nfi >*/
- i__1 = *nfi;
- for (ifi = 1; ifi <= i__1; ++ifi) {
-/*< rorayl_fi(ifi)=(xlphim(ifi)/xmus) >*/
- rorayl_fi__[ifi] = xlphim[ifi - 1] / *xmus;
-/*< romix_fi(ifi)=(xlphim(ifi)/xmus) >*/
- romix_fi__[ifi] = xlphim[ifi - 1] / *xmus;
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/* -> here we define 2 reflectances from Stockes' par
-ameters */
-/* but they don't have any physical interpretations
-, this is*/
-/* just to be coherent with the reflectance rorayl
- */
-/* -> parameters rorayl2,roaero2,romix2 have been int
-roduced */
-/* to compute the degrees of polarization. */
-/*< rorayl=xlm1(-mu,1)/xmus >*/
- *rorayl = xlm1[-(*mu) + xlm1_dim1] / *xmus;
-/*< rqrayl=xqm1(-mu,1)/xmus >*/
- *rqrayl = xqm1[-(*mu) + 25] / *xmus;
-/* WRITE(6,*) "TAURAYL=",trmoy," RORAYL = ",rorayl */
-/*< rqmix=rqrayl >*/
- *rqmix = *rqrayl;
-/*< rurayl=xum1(-mu,1)/xmus >*/
- *rurayl = xum1[-(*mu) + 25] / *xmus;
-/*< rumix=rurayl >*/
- *rumix = *rurayl;
-/*< do ifi=1,nfi >*/
- i__1 = *nfi;
- for (ifi = 1; ifi <= i__1; ++ifi) {
-/*< rorayl_fi(ifi)=(xlphim(ifi)/xmus) >*/
- rorayl_fi__[ifi] = xlphim[ifi - 1] / *xmus;
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/* write(6,*)'ATMREF- rayleigh',rorayl,rqrayl,rurayl */
-/*< if (iaer.eq.0) then >*/
- if (*iaer == 0) {
-/*< romix=rorayl >*/
- *romix = *rorayl;
-/*< rqmix=rqrayl >*/
- *rqmix = *rqrayl;
-/*< rumix=rurayl >*/
- *rumix = *rurayl;
-/*< roaero=0.0 >*/
- *roaero = 0.;
-/*< rqaero=0.0 >*/
- *rqaero = 0.;
-/*< ruaero=0.0 >*/
- *ruaero = 0.;
-/*< return >*/
- return 0;
-/*< endif >*/
- }
-/* -----aerosol reflectance = roaero,rpaero */
-/*< tamol=0. >*/
- tamol = 0.;
-/*< tamolp=0. >*/
- tamolp = 0.;
-/*< if (ipol.ne.1)then >*/
- if (*ipol != 1) {
-/*< >*/
- os_(iaer_prof__, tamoy, &tamol, pizmoy, tamoyp, &tamolp, palt,
- phirad, nt, mu, np, &rm[rm_offset], &gb[gb_offset], &rp[1]
- , &xlm1[xlm1_offset], xlphim, nfi, rolutd);
-/*< roaero=(xlm1(-mu,1)/xmus) >*/
- *roaero = xlm1[-(*mu) + xlm1_dim1] / *xmus;
-/*< endif >*/
- }
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< >*/
- ospol_(iaer_prof__, taer, &tamol, piza, taerp, &tamolp, palt,
- phirad, nt, mu, np, &rm[rm_offset], &gb[gb_offset], &rp[1]
- , &xlm1[xlm1_offset], xqm1, xum1, xlphim, nfi, &nfilut[1],
- &filut[filut_offset], rolutd, rolutd, rolutd);
-/*< rqaero=xqm1(-mu,1)/xmus >*/
- *rqaero = xqm1[-(*mu) + 25] / *xmus;
-/*< ruaero=xum1(-mu,1)/xmus >*/
- *ruaero = xum1[-(*mu) + 25] / *xmus;
-/*< if (ipol.eq.1)roaero=xlm1(-mu,1)/xmus >*/
- if (*ipol == 1) {
- *roaero = xlm1[-(*mu) + xlm1_dim1] / *xmus;
- }
-/*< endif >*/
- }
-/* write(6,*)'ATMREF - aero', roaero,rqaero,ruaero */
-/* -----rayleigh+aerosol reflectance = romix,rpmix */
-/*< if (ipol.ne.1)then >*/
- if (*ipol != 1) {
-/*< >*/
- os_(iaer_prof__, tamoy, trmoy, pizmoy, tamoyp, trmoyp, palt,
- phirad, nt, mu, np, &rm[rm_offset], &gb[gb_offset], &rp[1]
- , &xlm1[xlm1_offset], xlphim, nfi, rolutd);
-/*< romix=(xlm1(-mu,1)/xmus) >*/
- *romix = xlm1[-(*mu) + xlm1_dim1] / *xmus;
-/*< do ifi=1,nfi >*/
- i__1 = *nfi;
- for (ifi = 1; ifi <= i__1; ++ifi) {
-/*< romix_fi(ifi)=(xlphim(ifi)/xmus) >*/
- romix_fi__[ifi] = xlphim[ifi - 1] / *xmus;
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< >*/
- ospol_(iaer_prof__, taer, trmoy, piza, taerp, trmoyp, palt,
- phirad, nt, mu, np, &rm[rm_offset], &gb[gb_offset], &rp[1]
- , &xlm1[xlm1_offset], xqm1, xum1, xlphim, nfi, &nfilut[1],
- &filut[filut_offset], &rolut[rolut_offset], &rolutq[
- rolutq_offset], &rolutu[rolutu_offset]);
-/*< rqmix=xqm1(-mu,1)/xmus >*/
- *rqmix = xqm1[-(*mu) + 25] / *xmus;
-/*< rumix=xum1(-mu,1)/xmus >*/
- *rumix = xum1[-(*mu) + 25] / *xmus;
-/*< if (ipol.eq.1)then >*/
- if (*ipol == 1) {
-/*< romix=xlm1(-mu,1)/xmus >*/
- *romix = xlm1[-(*mu) + xlm1_dim1] / *xmus;
-/*< do ifi=1,nfi >*/
- i__1 = *nfi;
- for (ifi = 1; ifi <= i__1; ++ifi) {
-/*< romix_fi(ifi)=(xlphim(ifi)/xmus) >*/
- romix_fi__[ifi] = xlphim[ifi - 1] / *xmus;
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< do i=1,mu >*/
- i__1 = *mu;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< do j=1,41 >*/
- for (j = 1; j <= 41; ++j) {
-/*< rolut(i,j)=rolut(i,j)/xmus >*/
- rolut[i__ + j * rolut_dim1] /= *xmus;
-/*< rolutq(i,j)=rolutq(i,j)/xmus >*/
- rolutq[i__ + j * rolutq_dim1] /= *xmus;
-/*< rolutu(i,j)=rolutu(i,j)/xmus >*/
- rolutu[i__ + j * rolutu_dim1] /= *xmus;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* write(6,*)'ATMREF - mix',romix,rqmix,rumix */
-/*< endif >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* atmref_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.f b/Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.f
deleted file mode 100644
index 085cb64..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.f
+++ /dev/null
@@ -1,149 +0,0 @@
- subroutine atmref (iaer,iaer_prof,tamoy,taer,trmoy,pizmoy,piza,
- s tamoyp,taerp,trmoyp,palt,phi,xmus,xmuv,phirad,nt,mu,np,rm,gb,rp,
- s rorayl,roaero,romix,rqrayl,rqaero,rqmix,rurayl,ruaero,rumix,
- a ipol,xlm1,xlm2,rorayl_fi,romix_fi,nfi,
- a nfilut,filut,rolut,rolutq,rolutu)
-
- real rolut(mu,41),rolutq(mu,41),rolutu(mu,41)
-c THOMAS
-c real rolutd(mu,41)
- real rolutd(25,41)
-
- real filut(mu,41)
- integer nfilut(mu)
-
- integer mu,np,nfi
- real rm(-mu:mu),rp(np),gb(-mu:mu)
- real tamoy,trmoy,pizmoy,tamoyp,trmoyp,palt
- real xlm2(-mu:mu,np)
-c THOMAS
-C real xlphim(nfi)
- real xlphim(181)
- real rorayl_fi(nfi),romix_fi(nfi)
- real phi,xmus,xmuv,phirad
- real delta,sigma,tamol,tamolp
- real rorayl,roaero,romix,rqrayl,rqaero,rqmix
- real rurayl,ruaero,rumix
- real xlm1(-mu:mu,np)
-c THOMAS
-c real xqm1(-mu:mu,np),xum1(-mu:mu,np)
- real xqm1(-25:25,49),xum1(-25:25,49)
-
- integer iaer,nt,ipol,iaer_prof
-
- common /sixs_del/ delta,sigma
-
-c
-c atmospheric reflectances
- rorayl=0.
- roaero=0.
- romix=0.
- rqrayl=0.
- rqaero=0.
- rqmix=0.
- rurayl=999.
- ruaero=999.
- rumix=999.
-c
-c 3 possible cases (satellite,plane,ground)
- if(palt.gt.0.0)then
- rm(-mu)=-xmuv
- rm(mu)=xmuv
- rm(0)=-xmus
-
-c -----rayleigh reflectance = rorayl,rprayl
- tamol=0.
- tamolp=0.
- call ospol(iaer_prof,tamol,trmoy,piza,tamolp,trmoyp,palt,
- s phirad,nt,mu,np,rm,gb,rp,xlm1,xqm1,xum1,xlphim,nfi,
- s nfilut,filut,rolutd,rolutd,rolutd)
- if (ipol.ne.1)then
- rorayl=xlm1(-mu,1)/xmus
- romix=rorayl
- do ifi=1,nfi
- rorayl_fi(ifi)=(xlphim(ifi)/xmus)
- romix_fi(ifi)=(xlphim(ifi)/xmus)
- enddo
- endif
- if (ipol.ne.0)then
-c -> here we define 2 reflectances from Stockes' parameters
-c but they don't have any physical interpretations, this is
-c just to be coherent with the reflectance rorayl
-c -> parameters rorayl2,roaero2,romix2 have been introduced
-c to compute the degrees of polarization.
- rorayl=xlm1(-mu,1)/xmus
- rqrayl=xqm1(-mu,1)/xmus
-C WRITE(6,*) "TAURAYL=",trmoy," RORAYL = ",rorayl
- rqmix=rqrayl
- rurayl=xum1(-mu,1)/xmus
- rumix=rurayl
- do ifi=1,nfi
- rorayl_fi(ifi)=(xlphim(ifi)/xmus)
- enddo
- endif
-c write(6,*)'ATMREF- rayleigh',rorayl,rqrayl,rurayl
-
- if (iaer.eq.0) then
- romix=rorayl
- rqmix=rqrayl
- rumix=rurayl
- roaero=0.0
- rqaero=0.0
- ruaero=0.0
- return
- endif
-
-c -----aerosol reflectance = roaero,rpaero
- tamol=0.
- tamolp=0.
- if (ipol.ne.1)then
- call os(iaer_prof,tamoy,tamol,pizmoy,tamoyp,tamolp,palt,
- s phirad,nt,mu,np,rm,gb,rp,xlm1,xlphim,nfi,rolutd)
- roaero=(xlm1(-mu,1)/xmus)
- endif
- if (ipol.ne.0)then
- call ospol(iaer_prof,taer,tamol,piza,taerp,tamolp,palt,
- s phirad,nt,mu,np,rm,gb,rp,xlm1,xqm1,xum1,xlphim,nfi,
- s nfilut,filut,rolutd,rolutd,rolutd)
- rqaero=xqm1(-mu,1)/xmus
- ruaero=xum1(-mu,1)/xmus
- if (ipol.eq.1)roaero=xlm1(-mu,1)/xmus
- endif
-c write(6,*)'ATMREF - aero', roaero,rqaero,ruaero
-
-c -----rayleigh+aerosol reflectance = romix,rpmix
- if (ipol.ne.1)then
- call os(iaer_prof,tamoy,trmoy,pizmoy,tamoyp,trmoyp,palt,
- s phirad,nt,mu,np,rm,gb,rp,xlm1,xlphim,nfi,rolutd)
- romix=(xlm1(-mu,1)/xmus)
- do ifi=1,nfi
- romix_fi(ifi)=(xlphim(ifi)/xmus)
- enddo
- endif
- if (ipol.ne.0)then
- call ospol(iaer_prof,taer,trmoy,piza,taerp,trmoyp,palt,
- s phirad,nt,mu,np,rm,gb,rp,xlm1,xqm1,xum1,xlphim,nfi,
- s nfilut,filut,rolut,rolutq,rolutu)
- rqmix=xqm1(-mu,1)/xmus
- rumix=xum1(-mu,1)/xmus
- if (ipol.eq.1)then
- romix=xlm1(-mu,1)/xmus
- do ifi=1,nfi
- romix_fi(ifi)=(xlphim(ifi)/xmus)
- enddo
- endif
- endif
-
- do i=1,mu
- do j=1,41
- rolut(i,j)=rolut(i,j)/xmus
- rolutq(i,j)=rolutq(i,j)/xmus
- rolutu(i,j)=rolutu(i,j)/xmus
- enddo
- enddo
-
-c write(6,*)'ATMREF - mix',romix,rqmix,rumix
- endif
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.h b/Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.h
deleted file mode 100644
index 4bcbbf8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ATMREF.h
+++ /dev/null
@@ -1,43 +0,0 @@
-extern int otb_6s_atmref_(
- otb_6s_integer *iaer,
- otb_6s_integer *iaer_prof__,
- otb_6s_doublereal *tamoy,
- otb_6s_doublereal *taer,
- otb_6s_doublereal *trmoy,
- otb_6s_doublereal *pizmoy,
- otb_6s_doublereal *piza,
- otb_6s_doublereal *tamoyp,
- otb_6s_doublereal *taerp,
- otb_6s_doublereal *trmoyp,
- otb_6s_doublereal *palt,
- otb_6s_doublereal *phi,
- otb_6s_doublereal *xmus,
- otb_6s_doublereal *xmuv,
- otb_6s_doublereal *phirad,
- otb_6s_integer *nt,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *gb,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *rorayl,
- otb_6s_doublereal *roaero,
- otb_6s_doublereal *romix,
- otb_6s_doublereal *rqrayl,
- otb_6s_doublereal *rqaero,
- otb_6s_doublereal *rqmix,
- otb_6s_doublereal *rurayl,
- otb_6s_doublereal *ruaero,
- otb_6s_doublereal *rumix,
- otb_6s_integer *ipol,
- otb_6s_doublereal *xlm1,
- otb_6s_doublereal *xlm2,
- otb_6s_doublereal *rorayl_fi__,
- otb_6s_doublereal *romix_fi__,
- otb_6s_integer *nfi,
- otb_6s_integer *nfilut,
- otb_6s_doublereal *filut,
- otb_6s_doublereal *rolut,
- otb_6s_doublereal *rolutq,
- otb_6s_doublereal *rolutu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.P b/Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.P
deleted file mode 100644
index bd782fc..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int avhrr_(integer *iwa);
-/* comlen sixs_ffu__ 12024 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.c b/Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.c
deleted file mode 100644
index 3a5ce96..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.c
+++ /dev/null
@@ -1,1393 +0,0 @@
-/* AVHRR.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine avhrr(iwa) >*/
-/* Subroutine */ int avhrr_(integer *iwa)
-{
- /* Initialized data */
-
- static doublereal sr[24016] /* was [16][1501] */ = { 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,8e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .0016,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0024,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0032,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0032,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.0031,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.003,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.003,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0029,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.0029,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .0028,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0028,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0027,0.,0.,0.,1e-4,0.,5e-4,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0027,0.,0.,0.,3e-4,0.,.001,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,.0026,0.,0.,0.,4e-4,0.,.0015,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.0025,0.,0.,0.,6e-4,0.,.002,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .0031,0.,.0012,0.,.004,0.,.0023,0.,.0033,0.,0.,0.,3e-4,0.,0.,0.,
- .0036,0.,.0024,0.,.0074,0.,.0025,0.,.0065,0.,0.,0.,7e-4,0.,0.,0.,
- .0042,0.,.0036,0.,.0108,0.,.0028,0.,.0098,0.,0.,0.,.001,0.,0.,0.,
- .0047,0.,.0048,0.,.0142,0.,.003,0.,.013,0.,0.,0.,.0013,0.,.0178,
- 0.,.0288,0.,.0223,0.,.0622,0.,.0239,0.,.05,0.,.0048,0.,.0152,0.,
- .0355,0.,.0529,0.,.0399,0.,.1101,0.,.0448,0.,.087,0.,.0135,0.,
- .029,0.,.0533,0.,.0769,0.,.0574,0.,.1581,0.,.0657,0.,.124,0.,.02,
- 0.,.0429,0.,.071,0.,.101,0.,.0749,0.,.206,0.,.0866,0.,.161,0.,
- .027,0.,.0568,0.,.1655,0.,.1943,0.,.1633,0.,.281,0.,.1852,0.,
- .2385,0.,.1046,0.,.1226,0.,.26,0.,.2875,0.,.2517,0.,.3561,0.,
- .2838,0.,.316,0.,.2094,0.,.1884,0.,.3545,0.,.3808,0.,.34,0.,.4311,
- 0.,.3824,0.,.3935,0.,.3253,0.,.2543,0.,.449,0.,.474,0.,.4284,0.,
- .5061,0.,.481,0.,.471,0.,.436,0.,.3201,0.,.5215,0.,.5363,0.,.4937,
- 0.,.55,0.,.547,0.,.515,0.,.5286,0.,.3727,0.,.594,0.,.5985,0.,.559,
- 0.,.594,0.,.613,0.,.559,0.,.603,0.,.4254,0.,.6665,0.,.6608,0.,
- .6243,0.,.6379,0.,.679,0.,.603,0.,.6621,0.,.478,0.,.739,0.,.723,
- 0.,.6896,0.,.6818,0.,.745,0.,.647,0.,.709,0.,.5306,0.,.7575,0.,
- .739,0.,.7135,0.,.7127,0.,.764,0.,.6768,0.,.7464,0.,.5528,0.,.776,
- 0.,.755,0.,.7375,0.,.7437,0.,.783,0.,.7065,0.,.7753,0.,.5749,0.,
- .7945,0.,.771,0.,.7614,0.,.7746,0.,.802,0.,.7363,0.,.7966,0.,
- .5971,0.,.813,0.,.787,0.,.7853,0.,.8055,0.,.821,0.,.766,0.,.811,
- 0.,.6193,0.,.8113,0.,.7838,0.,.7833,0.,.8122,0.,.8182,0.,.7745,0.,
- .8196,0.,.6267,0.,.8095,0.,.7805,0.,.7813,0.,.819,0.,.8154,0.,
- .783,0.,.8249,0.,.6342,0.,.8078,0.,.7773,0.,.7793,0.,.817,0.,
- .8126,0.,.7915,0.,.8301,0.,.6417,0.,.806,0.,.774,0.,.7773,0.,.815,
- 0.,.8098,0.,.8,0.,.838,0.,.6492,0.,.8201,0.,.7788,0.,.7774,0.,
- .8063,0.,.8219,6e-4,.7918,5e-4,.8507,0.,.6538,0.,.8343,0.,.7835,
- 0.,.7775,0.,.7975,0.,.8339,.0012,.7835,.001,.8668,0.,.6583,0.,
- .8484,0.,.7883,0.,.7776,0.,.7887,0.,.846,.0018,.7753,.0015,.8837,
- 0.,.6629,0.,.8625,0.,.793,0.,.7777,0.,.78,0.,.858,.0024,.767,.002,
- .899,0.,.6675,0.,.8766,0.,.81,0.,.7922,0.,.7881,0.,.8808,.003,
- .7747,.0025,.9109,0.,.6734,0.,.8908,0.,.827,0.,.8067,0.,.7962,0.,
- .9035,.0036,.7825,.003,.9198,0.,.6793,0.,.9049,0.,.844,0.,.8211,
- 0.,.8044,0.,.9263,.0042,.7903,.0035,.9265,0.,.6853,0.,.919,0.,
- .861,0.,.8356,0.,.8125,0.,.949,.0048,.798,.004,.932,0.,.6912,0.,
- .9291,0.,.8958,0.,.8566,0.,.8335,0.,.9607,.0049,.8215,.0039,.9371,
- 0.,.6948,0.,.9393,0.,.9305,0.,.8777,0.,.8544,0.,.9723,.0049,.845,
- .0037,.9419,0.,.6984,0.,.9494,0.,.9653,0.,.8987,0.,.8753,0.,.984,
- .005,.8685,.0036,.9466,0.,.702,0.,.9595,0.,1.,0.,.9197,0.,.8963,
- 0.,.9956,.0051,.892,.0035,.951,0.,.7056,0.,.9696,0.,.986,0.,.9332,
- 0.,.9,0.,.9875,.0051,.8907,.0034,.9552,0.,.7106,0.,.9798,0.,.972,
- 0.,.9468,0.,.9037,0.,.9793,.0052,.8895,.0032,.9587,0.,.7156,0.,
- .9899,0.,.958,0.,.9603,0.,.9074,0.,.9712,.0052,.8882,.0031,.9612,
- 0.,.7206,0.,1.,0.,.944,0.,.9739,0.,.9111,0.,.963,.0053,.887,.003,
- .962,0.,.7256,0.,.9996,0.,.9435,.0018,.9674,0.,.8899,0.,.9595,
- .0053,.8702,.0029,.961,0.,.7243,0.,.9992,0.,.943,.0035,.9609,0.,
- .8688,0.,.956,.0054,.8535,.0028,.9593,0.,.7229,0.,.9989,0.,.9425,
- .0053,.9545,0.,.8476,0.,.9525,.0054,.8367,.0026,.9582,0.,.7216,0.,
- .9985,0.,.942,.007,.948,0.,.8265,0.,.949,.0055,.82,.0025,.959,0.,
- .7203,0.,.9981,0.,.9442,.0068,.9507,0.,.8198,0.,.9618,.0055,.811,
- .0024,.9625,0.,.7188,0.,.9977,0.,.9465,.0065,.9534,0.,.813,0.,
- .9745,.0056,.802,.0023,.9673,0.,.7174,0.,.9974,0.,.9487,.0063,
- .9561,0.,.811,0.,.9872,.0056,.793,.0021,.9715,0.,.7159,0.,.997,0.,
- .951,.006,.9588,0.,.809,0.,1.,.0057,.784,.002,.973,0.,.7145,0.,
- .9596,0.,.9575,.0058,.9691,0.,.8277,0.,.998,.0054,.805,.002,.9707,
- 0.,.713,0.,.9222,0.,.964,.0055,.9794,0.,.8464,0.,.996,.005,.826,
- .002,.9666,0.,.7116,0.,.8849,0.,.9705,.0052,.9897,0.,.865,0.,.994,
- .0047,.847,.002,.9635,0.,.7102,0.,.8475,0.,.977,.005,1.,0.,.8837,
- 0.,.992,.0044,.868,.002,.964,0.,.7088,0.,.8101,0.,.9135,.005,
- .9692,0.,.9128,0.,.9013,.0041,.901,.002,.9701,.005,.7154,0.,.7727,
- 0.,.85,.005,.9385,0.,.9419,0.,.8105,.0037,.934,.002,.9799,.0111,
- .7221,0.,.7354,0.,.7865,.005,.9077,0.,.9709,0.,.7197,.0034,.967,
- .002,.9908,.0162,.7287,0.,.698,0.,.723,.005,.877,0.,1.,0.,.629,
- .0031,1.,.002,1.,.018,.7353,0.,.6047,0.,.6285,.006,.7775,.0095,
- .9678,.0011,.54,.0031,.9562,.0028,.9805,.0153,.7292,0.,.5115,0.,
- .534,.007,.6779,.019,.9356,.0022,.451,.0032,.9125,.0035,.959,
- .0097,.7232,.0022,.4182,0.,.4395,.008,.5784,.0285,.9035,.0033,
- .362,.0032,.8687,.0043,.9407,.0038,.7172,.0045,.325,0.,.345,.009,
- .4789,.0381,.8713,.0044,.273,.0033,.825,.005,.918,0.,.7111,.0067,
- .2767,.002,.2955,.032,.4108,.0476,.7712,.0207,.2315,.0033,.7192,
- .0173,.8357,5e-4,.6501,.009,.2285,.004,.246,.055,.3428,.0571,
- .6711,.0369,.19,.0033,.6135,.0295,.7325,.006,.5891,.0107,.1802,
- .006,.1965,.078,.2747,.0666,.5711,.0532,.1485,.0034,.5077,.0418,
- .6205,.0168,.5281,.0125,.132,.008,.147,.101,.2067,.0761,.471,
- .0694,.107,.0034,.402,.054,.512,.033,.4671,.0143,.1127,.071,.128,
- .1788,.1782,.1559,.4067,.141,.0935,.0239,.3467,.115,.417,.0555,
- .4037,.016,.0935,.134,.109,.2565,.1497,.2358,.3424,.2127,.08,
- .0445,.2915,.176,.3365,.0869,.3402,.0543,.0742,.197,.09,.3343,
- .1213,.3156,.2782,.2843,.0665,.065,.2362,.237,.2692,.1303,.2768,
- .0925,.055,.26,.071,.412,.0928,.3954,.2139,.3559,.053,.0855,.181,
- .298,.214,.189,.2133,.1308,.048,.3492,.0638,.4922,.082,.4855,
- .1849,.4388,.0468,.1561,.1568,.3822,.1695,.2643,.183,.169,.041,
- .4385,.0565,.5725,.0712,.5756,.1559,.5217,.0405,.2267,.1325,.4665,
- .1343,.3509,.1527,.2573,.034,.5277,.0493,.6527,.0604,.6658,.1269,
- .6047,.0343,.2974,.1083,.5507,.1066,.4418,.1223,.3455,.027,.617,
- .042,.733,.0496,.7559,.0979,.6876,.028,.368,.084,.635,.085,.53,
- .092,.4338,.0235,.6678,.0383,.7765,.0425,.7966,.0861,.7304,.0255,
- .4508,.0735,.6865,.0679,.6096,.0797,.522,.02,.7185,.0345,.82,
- .0355,.8373,.0743,.7731,.023,.5335,.063,.738,.0546,.6796,.0675,
- .5978,.0165,.7693,.0307,.8635,.0284,.8779,.0625,.8159,.0205,.6163,
- .0525,.7895,.0442,.7403,.0553,.6735,.013,.82,.027,.907,.0214,
- .9186,.0507,.8586,.018,.699,.042,.841,.036,.792,.0431,.7492,.0115,
- .8435,.0245,.9218,.0208,.9332,.0454,.8782,.0165,.743,.038,.8623,
- .0294,.835,.0406,.825,.01,.867,.022,.9365,.0202,.9478,.04,.8977,
- .015,.787,.034,.8835,.024,.8702,.0381,.8503,.0085,.8905,.0195,
- .9513,.0196,.9624,.0347,.9173,.0135,.831,.03,.9048,.0196,.8988,
- .0357,.8755,.007,.914,.017,.966,.019,.977,.0294,.9369,.012,.875,
- .026,.926,.016,.922,.0332,.9007,.0052,.9212,.0158,.9725,.0167,
- .9814,.0266,.9491,.011,.8918,.0242,.9415,.013,.9408,.0279,.926,
- .0035,.9285,.0145,.979,.0145,.9858,.0238,.9614,.01,.9085,.0225,
- .957,.0105,.9559,.0226,.9362,.0017,.9358,.0132,.9855,.0122,.9902,
- .021,.9736,.009,.9253,.0207,.9725,.0089,.968,.0173,.9465,0.,.943,
- .012,.992,.01,.9946,.0182,.9859,.008,.942,.019,.988,.008,.978,
- .012,.9568,0.,.9415,.0114,.994,.0095,.9959,.017,.9894,.007,.951,
- .018,.991,.008,.9863,.0117,.967,0.,.94,.0107,.996,.009,.9973,
- .0157,.993,.0061,.96,.017,.994,.0083,.9929,.0114,.9737,0.,.9385,
- .0101,.998,.0085,.9986,.0145,.9965,.0051,.969,.016,.997,.0085,
- .9975,.011,.9805,0.,.937,.0095,1.,.008,1.,.0133,1.,.0042,.978,
- .015,1.,.008,1.,.0107,.9872,0.,.952,.0096,.9962,.0083,.9965,.0124,
- .9956,.0034,.9835,.0137,.9925,.0064,.0115,.01,.994,0.,.967,.0098,
- .9925,.0086,.993,.0115,.9912,.0026,.989,.0125,.985,.0041,.9987,
- .0093,.9935,0.,.982,.0099,.9887,.0089,.9896,.0107,.9869,.0018,
- .9945,.0112,.9775,.0018,.9958,.0086,.993,0.,.997,.01,.985,.0092,
- .9861,.0098,.9825,.001,1.,.01,.97,0.,.992,.008,.9925,0.,.9977,
- .0103,.987,.0094,.9796,.0092,.9699,7e-4,.9933,.0087,.96,0.,.9876,
- .0076,.992,0.,.9985,.0105,.989,.0097,.9731,.0086,.9574,5e-4,.9866,
- .0075,.95,0.,.9821,.0072,.994,0.,.9992,.0108,.991,.01,.9666,.008,
- .9448,2e-4,.98,.0062,.94,0.,.9748,.0069,.996,0.,1.,.011,.993,
- .0103,.9601,.0074,.9323,0.,.9733,.005,.93,0.,.965,.0065,.998,0.,
- .9813,.01,.9763,.01,.9518,.0071,.9243,0.,.9661,.0052,.9193,0.,
- .9522,.0062,1.,0.,.9625,.009,.9595,.0096,.9435,.0069,.9163,0.,
- .9589,.0055,.9085,0.,.937,.0059,.9885,0.,.9438,.008,.9428,.0093,
- .9351,.0066,.9083,0.,.9517,.0057,.8978,0.,.9203,.0055,.977,0.,
- .925,.007,.926,.009,.9268,.0063,.9003,0.,.9445,.006,.887,0.,.903,
- .0052,.9655,0.,.9148,.0052,.9298,.0086,.9171,.0062,.8971,0.,.9329,
- .006,.877,0.,.8858,.0051,.954,0.,.9045,.0035,.9335,.0083,.9073,
- .0061,.8939,0.,.9213,.006,.867,0.,.8694,.005,.9398,0.,.8943,.0017,
- .9373,.0079,.8976,.0061,.8907,0.,.9096,.006,.857,0.,.8543,.0048,
- .9255,0.,.884,0.,.941,.0076,.8879,.006,.8875,0.,.898,.006,.847,0.,
- .841,.0047,.9112,0.,.8751,0.,.9373,.0082,.8791,.0045,.8881,0.,
- .8935,.006,.8478,0.,.8299,.0048,.897,0.,.8663,0.,.9335,.0087,
- .8703,.003,.8887,0.,.889,.006,.8485,0.,.8207,.0049,.8855,0.,.8574,
- 0.,.9298,.0093,.8615,.0015,.8893,0.,.8845,.006,.8493,0.,.8129,
- .005,.874,0.,.8485,0.,.926,.0099,.8527,0.,.8899,0.,.88,.006,.85,
- 0.,.806,.0051,.8625,0.,.8396,0.,.912,.0104,.8439,0.,.8931,0.,
- .8788,.0045,.8518,0.,.7997,.0051,.851,0.,.8307,0.,.898,.011,.8351,
- 0.,.8963,0.,.8775,.003,.8535,0.,.7943,.005,.84,0.,.8219,0.,.884,
- .0115,.8263,0.,.8994,0.,.8763,.0015,.8553,0.,.7902,.005,.829,0.,
- .813,0.,.87,.0121,.8175,0.,.9026,0.,.875,0.,.857,0.,.788,.005,
- .818,0.,.81,0.,.87,.0114,.814,0.,.9046,0.,.8658,0.,.8602,0.,.7879,
- .005,.807,0.,.807,0.,.87,.0108,.8104,0.,.9067,0.,.8565,0.,.8635,
- 0.,.7893,.0051,.8052,0.,.804,0.,.87,.0101,.8068,0.,.9087,0.,.8473,
- 0.,.8668,0.,.7916,.0052,.8035,0.,.801,0.,.87,.0094,.8033,0.,.9108,
- 0.,.838,0.,.87,0.,.794,.0052,.8018,0.,.798,0.,.8703,.0088,.7997,
- 0.,.9114,0.,.8415,0.,.8673,0.,.7959,.0053,.8,0.,.795,0.,.8705,
- .0081,.7962,0.,.912,0.,.845,0.,.8645,0.,.7971,.0054,.8065,0.,.792,
- 0.,.8708,.0075,.7926,0.,.9126,0.,.8485,0.,.8618,0.,.7972,.0054,
- .813,0.,.789,0.,.871,.0068,.7891,0.,.9132,0.,.852,0.,.859,0.,.796,
- .0055,.8195,0.,.7878,0.,.8708,.0074,.7871,0.,.9065,0.,.8508,0.,
- .8505,.0024,.7935,.0057,.826,0.,.7865,0.,.8705,.0079,.785,0.,
- .8997,0.,.8495,0.,.842,.0056,.79,.0059,.8257,0.,.7853,0.,.8703,
- .0085,.783,0.,.893,0.,.8483,0.,.8335,.0087,.786,.0061,.8255,0.,
- .784,0.,.87,.0091,.781,0.,.8863,0.,.847,0.,.825,.011,.782,.0063,
- .8253,0.,.7828,0.,.8715,.0097,.779,0.,.8807,0.,.841,0.,.8183,
- .0118,.7783,.0068,.825,0.,.7815,0.,.873,.0102,.7769,0.,.875,0.,
- .835,0.,.8115,.0117,.7747,.0072,.8245,0.,.7803,0.,.8745,.0108,
- .7749,0.,.8694,0.,.829,0.,.8047,.0112,.7704,.0076,.824,0.,.779,0.,
- .876,.0114,.7729,0.,.8638,0.,.823,0.,.798,.011,.765,.008,.8235,0.,
- .7751,0.,.874,.0115,.7711,0.,.8605,0.,.8148,0.,.7983,.0117,.7582,
- .0084,.823,0.,.7713,0.,.872,.0115,.7694,0.,.8571,0.,.8065,0.,
- .7985,.013,.7506,.0088,.823,0.,.7674,0.,.87,.0116,.7677,0.,.8538,
- 0.,.7983,0.,.7988,.0145,.7433,.0092,.823,0.,.7635,0.,.868,.0117,
- .7659,0.,.8504,0.,.79,0.,.799,.016,.737,.0096,.823,0.,.7596,0.,
- .869,.0118,.7642,0.,.8532,0.,.7983,0.,.7935,.0171,.7326,.01,.823,
- 0.,.7558,0.,.87,.0119,.7624,0.,.856,0.,.8065,0.,.788,.0178,.7299,
- .0104,.821,0.,.7519,0.,.871,.0119,.7607,0.,.8588,0.,.8148,0.,
- .7825,.0184,.7288,.0108,.819,0.,.748,0.,.872,.012,.7589,0.,.8616,
- 0.,.823,0.,.777,.019,.729,.0113,.817,0.,.7464,0.,.8687,.0136,
- .7558,0.,.8644,0.,.819,0.,.7835,.0197,.7303,.0116,.815,0.,.7448,
- 0.,.8655,.0152,.7528,0.,.8672,0.,.815,0.,.79,.0205,.7323,.0119,
- .8147,0.,.7431,0.,.8623,.0167,.7497,0.,.8701,0.,.811,0.,.7965,
- .0213,.735,.0122,.8145,0.,.7415,0.,.859,.0183,.7466,0.,.8729,0.,
- .807,0.,.803,.022,.738,.0125,.8142,0.,.7399,0.,.8555,.0204,.7436,
- 0.,.8749,0.,.799,0.,.8075,.0226,.7411,.0127,.814,0.,.7383,0.,.852,
- .0224,.7405,0.,.877,0.,.791,0.,.812,.0229,.7441,.0128,.8183,0.,
- .7366,0.,.8485,.0245,.7375,0.,.879,0.,.783,0.,.8165,.0228,.7468,
- .013,.8225,0.,.735,0.,.845,.0265,.7344,0.,.8811,0.,.775,0.,.821,
- .022,.749,.0132,.8267,0.,.7225,0.,.8428,.0295,.7282,0.,.8766,0.,
- .7712,0.,.8108,.0205,.7504,.013,.831,0.,.71,0.,.8405,.0324,.722,
- 0.,.8721,0.,.7675,0.,.8005,.0187,.751,.0128,.8367,0.,.6975,0.,
- .8383,.0354,.7158,0.,.8677,0.,.7637,0.,.7903,.017,.7505,.0126,
- .8425,0.,.685,0.,.836,.0384,.7096,0.,.8632,0.,.76,0.,.78,.016,
- .749,.0123,.8482,0.,.6783,0.,.8328,.0419,.7034,0.,.8502,0.,.7425,
- 0.,.7767,.0159,.7463,.012,.854,0.,.6715,0.,.8295,.0453,.6972,0.,
- .8372,0.,.725,0.,.7735,.016,.7421,.0116,.8547,0.,.6648,0.,.8263,
- .0488,.691,0.,.8242,0.,.7075,0.,.7703,.0157,.7365,.0112,.8555,0.,
- .658,0.,.823,.0522,.6848,0.,.8112,0.,.69,0.,.767,.014,.729,.0108,
- .8562,0.,.6515,0.,.8145,.0514,.6781,0.,.7959,0.,.6855,0.,.7473,
- .0106,.7197,.0104,.857,0.,.645,0.,.806,.0507,.6713,0.,.7806,0.,
- .681,0.,.7275,.0063,.7086,.0099,.851,0.,.6385,0.,.7975,.0499,
- .6646,0.,.7653,0.,.6765,0.,.7077,.0023,.696,.0095,.845,0.,.632,0.,
- .789,.0491,.6579,0.,.75,0.,.672,0.,.688,0.,.682,.009,.839,0.,.627,
- 0.,.7872,.0467,.6511,0.,.7423,0.,.671,0.,.6755,1e-4,.667,.0086,
- .833,0.,.622,0.,.7855,.0443,.6444,0.,.7347,0.,.67,0.,.663,.0018,
- .6518,.0082,.817,0.,.617,0.,.7838,.042,.6376,0.,.727,0.,.669,0.,
- .6505,.0038,.6371,.0078,.801,0.,.612,0.,.782,.0396,.6309,0.,.7193,
- 0.,.668,0.,.638,.005,.624,.0074,.785,0.,.6093,0.,.779,.0348,.6265,
- 0.,.7166,0.,.6655,0.,.635,.0044,.6131,.0072,.769,0.,.6065,0.,.776,
- .0299,.6221,0.,.7138,0.,.663,0.,.632,.0027,.6043,.007,.7587,0.,
- .6038,0.,.773,.0251,.6177,0.,.7111,0.,.6605,0.,.629,9e-4,.5973,
- .0067,.7485,0.,.601,0.,.77,.0203,.6133,0.,.7084,0.,.658,0.,.626,
- 0.,.592,.0065,.7383,0.,.5993,0.,.7682,.0183,.6088,0.,.7169,0.,
- .6455,0.,.6345,6e-4,.5881,.0063,.728,0.,.5975,0.,.7665,.0164,
- .6044,0.,.7255,0.,.633,0.,.643,.0023,.5857,.006,.7203,0.,.5958,0.,
- .7648,.0144,.6,0.,.734,0.,.6205,0.,.6515,.004,.5849,.0058,.7125,
- 0.,.594,0.,.763,.0125,.5956,0.,.7425,0.,.608,0.,.66,.005,.586,
- .0055,.7048,0.,.591,0.,.7545,.0118,.5888,0.,.7382,0.,.5993,0.,
- .6695,.0046,.5889,.0053,.697,0.,.588,0.,.746,.011,.582,0.,.7338,
- 0.,.5905,0.,.679,.0032,.5929,.005,.6957,0.,.585,0.,.7375,.0103,
- .5752,0.,.7295,0.,.5818,0.,.6885,.0015,.5969,.0048,.6945,0.,.582,
- 0.,.729,.0095,.5684,0.,.7251,0.,.573,0.,.698,0.,.6,.0046,.6932,0.,
- .572,0.,.6987,.0083,.5616,0.,.6819,0.,.5602,0.,.679,0.,.6011,
- .0044,.692,0.,.562,0.,.6685,.0071,.5548,0.,.6387,0.,.5475,0.,.66,
- 0.,.5986,.0042,.697,0.,.552,0.,.6382,.006,.548,0.,.5955,0.,.5347,
- 0.,.641,0.,.5905,.004,.702,0.,.542,0.,.608,.0048,.5412,0.,.5523,
- 0.,.522,0.,.622,0.,.575,.0038,.707,0.,.5243,0.,.5623,.0041,.5159,
- 0.,.4922,0.,.4872,0.,.5645,0.,.5508,.0036,.712,0.,.5065,0.,.5165,
- .0035,.4906,0.,.4321,0.,.4525,0.,.507,0.,.5186,.0034,.7035,0.,
- .4887,0.,.4707,.0028,.4653,0.,.3721,0.,.4177,0.,.4495,0.,.4792,
- .0032,.695,0.,.471,0.,.425,.0022,.44,0.,.312,0.,.383,0.,.392,0.,
- .434,.003,.6865,0.,.4402,0.,.3812,.0022,.4147,0.,.2722,0.,.3435,
- 0.,.342,0.,.3842,.0028,.678,0.,.4095,0.,.3375,.0021,.3894,0.,
- .2325,0.,.304,0.,.292,0.,.3326,.0027,.637,0.,.3787,0.,.2937,.0021,
- .3641,0.,.1927,0.,.2645,0.,.242,0.,.2822,.0025,.596,0.,.348,0.,
- .25,.0021,.3388,0.,.1529,0.,.225,0.,.192,0.,.236,.0023,.555,0.,
- .3155,0.,.2215,.0016,.3061,0.,.1336,0.,.2015,0.,.1667,0.,.1964,
- .0022,.514,0.,.283,0.,.193,.001,.2734,0.,.1144,0.,.178,0.,.1415,
- 0.,.1633,.0022,.456,0.,.2505,0.,.1645,5e-4,.2408,0.,.0951,0.,
- .1545,0.,.1162,0.,.1357,.0021,.398,0.,.218,0.,.136,0.,.2081,0.,
- .0759,0.,.131,0.,.091,0.,.113,.002,.34,0.,.1935,0.,.1202,0.,.1851,
- 0.,.0673,0.,.1155,0.,.0795,0.,.0943,.0019,.282,0.,.169,0.,.1045,
- 0.,.1621,0.,.0586,0.,.1,0.,.068,0.,.0789,.0018,.2458,0.,.1445,0.,
- .0887,0.,.1392,0.,.05,0.,.0845,0.,.0565,0.,.0664,.0017,.2095,0.,
- .12,0.,.073,0.,.1162,0.,.0414,0.,.069,0.,.045,0.,.056,.0016,.1732,
- 0.,.1055,0.,.0647,0.,.1023,0.,.037,0.,.0613,0.,.0411,0.,.0473,
- .0016,.137,0.,.091,0.,.0565,0.,.0884,0.,.0327,0.,.0535,0.,.0372,
- 0.,.04,.0015,.119,0.,.0765,0.,.0482,0.,.0745,0.,.0283,0.,.0457,0.,
- .0334,0.,.0339,.0014,.101,0.,.062,0.,.04,0.,.0606,0.,.024,0.,.038,
- 0.,.0295,0.,.029,.0014,.083,0.,.054,0.,.0357,0.,.0532,0.,.0217,0.,
- .0337,0.,.0256,0.,.025,.0013,.065,0.,.046,0.,.0315,0.,.0458,0.,
- .0195,0.,.0295,0.,.0217,0.,.0217,.0012,.056,0.,.038,0.,.0272,0.,
- .0384,0.,.0172,0.,.0252,0.,.0179,0.,.0191,.0012,.047,0.,.03,0.,
- .023,0.,.031,0.,.015,0.,.021,0.,.014,0.,.017,.0011,.038,0.,.0257,
- 0.,.0207,0.,.0271,0.,.0139,0.,.0189,0.,.0129,0.,.0152,.0011,.029,
- 0.,.0215,0.,.0185,0.,.0231,0.,.0128,0.,.0168,0.,.0117,0.,.0137,
- .0011,.025,0.,.0172,0.,.0162,0.,.0192,0.,.0118,0.,.0147,0.,.0106,
- 0.,.0123,.0011,.021,0.,.013,0.,.014,0.,.0153,0.,.0107,0.,.0126,0.,
- .0095,0.,.011,.0011,.017,0.,.0112,0.,.0125,0.,.0134,0.,.0099,0.,
- .0114,0.,.0084,0.,.0098,.0011,.013,0.,.0095,0.,.011,0.,.0115,0.,
- .009,0.,.0102,0.,.0072,0.,.0086,.0011,.0095,0.,.0077,0.,.0095,0.,
- .0096,0.,.0082,0.,.0091,0.,.0061,0.,.0077,.0011,.006,0.,.006,0.,
- .008,0.,.0077,0.,.0074,0.,.0079,0.,.005,0.,.007,.0011,.005,0.,
- .0053,0.,.0075,0.,.0071,0.,.007,0.,.0073,0.,.0048,0.,.0066,.0011,
- .004,0.,.0045,0.,.007,0.,.0065,0.,.0066,0.,.0067,0.,.0045,0.,
- .0063,.0011,.002,0.,.0038,0.,.0065,0.,.0059,0.,.0061,0.,.006,0.,
- .0043,0.,.0059,.0011,0.,0.,.003,0.,.006,0.,.0053,0.,.0057,0.,
- .0054,0.,.004,0.,.005,.0011,.001,0.,.0025,0.,.0055,0.,.0046,0.,
- .0054,0.,.0051,0.,.0038,0.,.0035,.0011,.002,0.,.002,0.,.005,0.,
- .004,0.,.0051,0.,.0047,0.,.0035,0.,.0019,.0011,.0018,0.,.0015,0.,
- .0045,0.,.0034,0.,.0049,0.,.0044,0.,.0033,0.,5e-4,.001,.0015,0.,
- .001,0.,.004,0.,.0028,0.,.0046,0.,.0041,0.,.003,0.,0.,.001,.0012,
- 0.,.001,0.,.0039,0.,.0026,0.,.0044,0.,.004,0.,.0029,0.,6e-4,.001,
- .001,0.,.001,0.,.0038,0.,.0024,0.,.0042,0.,.0038,0.,.0027,0.,
- .0019,.001,.001,0.,.001,0.,.0037,0.,.0023,0.,.0041,0.,.0037,0.,
- .0026,0.,.0033,.001,.001,0.,.001,0.,.0036,0.,.0021,0.,.0039,0.,
- .0036,0.,.0025,0.,.004,.001,.001,0.,9e-4,0.,.0036,0.,.0019,0.,
- .0037,0.,.0035,0.,.0024,0.,.0036,.001,.001,0.,7e-4,0.,.0037,0.,
- .0017,0.,.0036,0.,.0034,0.,.0022,0.,.0025,.001,8e-4,0.,6e-4,0.,
- .0037,0.,.0016,0.,.0034,0.,.0033,0.,.0021,0.,.0011,.001,5e-4,0.,
- 5e-4,0.,.0037,0.,.0014,0.,.0033,0.,.0032,0.,.002,0.,0.,.001,3e-4,
- 0.,4e-4,0.,.0035,0.,.0012,0.,.0032,0.,.0031,0.,.0017,0.,0.,0.,0.,
- 0.,4e-4,0.,.0034,0.,.001,0.,.0031,0.,.003,0.,.0015,0.,0.,0.,0.,0.,
- 3e-4,0.,.0032,0.,9e-4,0.,.003,0.,.003,0.,.0012,0.,0.,0.,0.,0.,
- 2e-4,0.,.0031,0.,7e-4,0.,.0029,0.,.0029,0.,.001,0.,0.,0.,0.,0.,
- 2e-4,0.,.0029,0.,5e-4,0.,.0028,0.,.0028,0.,7e-4,0.,0.,0.,0.,0.,
- 1e-4,0.,.0028,0.,3e-4,0.,.0027,0.,.0027,0.,5e-4,0.,0.,0.,0.,0.,
- 1e-4,0.,.0026,0.,2e-4,0.,.0026,0.,.0027,0.,2e-4,0.,0.,0.,0.,0.,0.,
- 0.,.0025,0.,0.,0.,.0025,0.,.0026,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0025,
- 0.,0.,0.,.0025,0.,.0026,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0024,0.,0.,0.,
- .0025,0.,.0025,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0024,0.,0.,0.,.0024,0.,
- .0025,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0023,0.,0.,0.,.0024,0.,.0024,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.0023,0.,0.,0.,.0023,0.,.0023,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.0022,0.,0.,0.,.0022,0.,.0022,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.0022,0.,0.,0.,.0021,0.,.0022,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .0021,0.,0.,0.,.002,0.,.0021,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0021,0.,
- 0.,0.,.0019,0.,.002,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0021,0.,0.,0.,
- .0018,0.,.0019,0.,0.,0.,0.,0.,0.,0.,0.,0.,.002,0.,0.,0.,.0018,0.,
- .0018,0.,0.,0.,0.,0.,0.,0.,0.,0.,.002,0.,0.,0.,.0017,0.,.0017,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.0019,0.,0.,0.,.0016,0.,.0016,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.0019,0.,0.,0.,.0015,0.,.0016,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.0018,0.,0.,0.,.0015,0.,.0015,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .0018,0.,0.,0.,.0014,0.,.0015,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0013,0.,
- 0.,0.,.001,0.,.0015,0.,0.,0.,0.,0.,0.,0.,0.,0.,9e-4,0.,0.,0.,7e-4,
- 0.,.0014,0.,0.,0.,0.,0.,0.,0.,0.,0.,4e-4,0.,0.,0.,3e-4,0.,.0014,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0014,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0014,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.0014,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .0015,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0015,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0011,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,8e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,4e-4,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0. };
-
- integer i__;
- doublereal wli[16], wls[16];
-
-/*< common /sixs_ffu/ s(1501),wlinf,wlsup >*/
-/*< real sr(16,1501),wli(16),wls(16) >*/
-/*< real wlinf,wlsup,s >*/
-/*< integer iwa,l,i >*/
-
-/* 1st spectral band of avhrr (noaa 6) */
-
-/*< >*/
-
-/* 2nd spectral band of avhrr (noaa 6) */
-
-/*< >*/
-/*< >*/
-
-/* 1st spectral band of avhrr (noaa 7) */
-
-/*< >*/
-
-/* 2nd spectral band of avhrr (noaa 7) */
-
-/*< >*/
-/*< >*/
-
-/* 1st spectral band of avhrr (noaa 8) */
-
-/*< >*/
-/*< >*/
-
-/* 2nd spectral band of avhrr (noaa 8) */
-
-/*< >*/
-/*< >*/
-
-/* 1st spectral band of avhrr (noaa 9) */
-
-/*< >*/
-
-/* 2nd spectral band of avhrr (noaa 9) */
-
-/*< >*/
-/*< >*/
-
-/* 1st spectral band of avhrr (noaa 10) */
-
-/*< >*/
-
-/* 2nd spectral band of avhrr (noaa 10) */
-
-/*< >*/
-/*< >*/
-
-/* 1st spectral band of avhrr (noaa 11) */
-
-/*< >*/
-
-/* 2nd spectral band of avhrr (noaa 11) */
-
-/*< >*/
-/*< >*/
-
-/* 1st spectral band of avhrr (noaa 12) */
-
-/*< >*/
-
-/* 2nd spectral band of avhrr (noaa 12) */
-
-/*< >*/
-
-/* 1st spectral band of avhrr (noaa 14) -from NOAA/POD Guide */
-
-/*< >*/
-
-/* 2nd spectral band of avhrr (noaa 14) */
-
-/*< >*/
-/*< wli(1)=0.55 >*/
- wli[0] = .55;
-/*< wls(1)=0.75 >*/
- wls[0] = .75;
-/*< wli(2)=0.69 >*/
- wli[1] = .69;
-/*< wls(2)=1.12 >*/
- wls[1] = 1.12;
-/*< wli(3)=0.5 >*/
- wli[2] = .5;
-/*< wls(3)=0.8 >*/
- wls[2] = .8;
-/*< wli(4)=0.64 >*/
- wli[3] = .64;
-/*< wls(4)=1.17 >*/
- wls[3] = 1.17;
-/*< wli(5)=0.54 >*/
- wli[4] = .54;
-/*< wls(5)=1.01 >*/
- wls[4] = 1.01;
-/*< wli(6)=0.68 >*/
- wli[5] = .68;
-/*< wls(6)=1.12 >*/
- wls[5] = 1.12;
-/*< wli(7)=0.53 >*/
- wli[6] = .53;
-/*< wls(7)=0.81 >*/
- wls[6] = .81;
-/*< wli(8)=0.68 >*/
- wli[7] = .68;
-/*< wls(8)=1.17 >*/
- wls[7] = 1.17;
-/*< wli(9)=0.53 >*/
- wli[8] = .53;
-/*< wls(9)=0.78 >*/
- wls[8] = .78;
-/*< wli(10)=0.6 >*/
- wli[9] = .6;
-/*< wls(10)=1.19 >*/
- wls[9] = 1.19;
-/*< wli(11)=0.54 >*/
- wli[10] = .54;
-/*< wls(11)=0.82 >*/
- wls[10] = .82;
-/*< wli(12)=0.6 >*/
- wli[11] = .6;
-/*< wls(12)=1.12 >*/
- wls[11] = 1.12;
-/*< wli(13)=0.50 >*/
- wli[12] = .5;
-/*< wls(13)=1.0 >*/
- wls[12] = 1.;
-/*< wli(14)=0.65 >*/
- wli[13] = .65;
-/*< wls(14)=1.12 >*/
- wls[13] = 1.12;
-/*< wli(15)=0.50 >*/
- wli[14] = .5;
-/*< wls(15)=1.11 >*/
- wls[14] = 1.11;
-/*< wli(16)=0.68 >*/
- wli[15] = .68;
-/*< wls(16)=1.10 >*/
- wls[15] = 1.1;
-/*< do 1 i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< s(i)=sr(iwa,i) >*/
- sixs_ffu__1.s[i__ - 1] = sr[*iwa + (i__ << 4) - 17];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< wlinf=wli(iwa) >*/
- sixs_ffu__1.wlinf = wli[*iwa - 1];
-/*< wlsup=wls(iwa) >*/
- sixs_ffu__1.wlsup = wls[*iwa - 1];
-/*< return >*/
- return 0;
-/*< end >*/
-} /* avhrr_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.f b/Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.f
deleted file mode 100644
index 92fa583..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.f
+++ /dev/null
@@ -1,482 +0,0 @@
- subroutine avhrr(iwa)
- common /sixs_ffu/ s(1501),wlinf,wlsup
- real sr(16,1501),wli(16),wls(16)
- real wlinf,wlsup,s
- integer iwa,l,i
-
-c
-c 1st spectral band of avhrr (noaa 6)
-c
- data (sr(1,l),l=1,1501,1) /
- & 120*0.,
- & .0000, .0178, .0355, .0533, .0710, .1655, .2600, .3545,
- & .4490, .5215, .5940, .6665, .7390, .7575, .7760, .7945,
- & .8130, .8113, .8095, .8078, .8060, .8201, .8343, .8484,
- & .8625, .8766, .8908, .9049, .9190, .9291, .9393, .9494,
- & .9595, .9696, .9798, .9899, 1.000, .9996, .9992, .9989,
- & .9985, .9981, .9977, .9974, .9970, .9596, .9222, .8849,
- & .8475, .8101, .7727, .7354, .6980, .6047, .5115, .4182,
- & .3250, .2767, .2285, .1802, .1320, .1127, .0935, .0742,
- & .0550, .0480, .0410, .0340, .0270, .0235, .0200, .0165,
- & .0130, .0115, .0100, .0085, .0070, .0052, .0035, .0017,
- & 1301*0./
-c
-c 2nd spectral band of avhrr (noaa 6)
-c
- data (sr(2,l),l=1,320)/ 176*0.,
- & .0000, .0020, .0040, .0060, .0080, .0710, .1340, .1970,
- & .2600, .3492, .4385, .5277, .6170, .6678, .7185, .7693,
- & .8200, .8435, .8670, .8905, .9140, .9212, .9285, .9358,
- & .9430, .9415, .9400, .9385, .9370, .9520, .9670, .9820,
- & .9970, .9977, .9985, .9992, 1.000, .9813, .9625, .9438,
- & .9250, .9148, .9045, .8943, .8840, .8751, .8663, .8574,
- & .8485, .8396, .8307, .8219, .8130, .8100, .8070, .8040,
- & .8010, .7980, .7950, .7920, .7890, .7878, .7865, .7853,
- & .7840, .7828, .7815, .7803, .7790, .7751, .7713, .7674,
- & .7635, .7596, .7558, .7519, .7480, .7464, .7448, .7431,
- & .7415, .7399, .7383, .7366, .7350, .7225, .7100, .6975,
- & .6850, .6783, .6715, .6648, .6580, .6515, .6450, .6385,
- & .6320, .6270, .6220, .6170, .6120, .6093, .6065, .6038,
- & .6010, .5993, .5975, .5958, .5940, .5910, .5880, .5850,
- & .5820, .5720, .5620, .5520, .5420, .5243, .5065, .4887,
- & .4710, .4402, .4095, .3787, .3480, .3155, .2830, .2505,
- & .2180, .1935, .1690, .1445, .1200, .1055, .0910, .0765,
- & .0620, .0540, .0460, .0380, .0300, .0257, .0215, .0172/
- data (sr(2,l),l=321,1501)/
- & .0130, .0112, .0095, .0077, .0060, .0053, .0045, .0038,
- & .0030, .0025, .0020, .0015, .0010, .0010, .0010, .0010,
- & .0010, .0009, .0007, .0006, .0005, .0004, .0004, .0003,
- & .0002, .0002, .0001, .0001, .0000,
- &1152*0./
-c
-c 1st spectral band of avhrr (noaa 7)
-c
- data (sr(3,l),l=1,1501)/ 100*0.,
- a .0000, .0008, .0016, .0024, .0032, .0032, .0031, .0030,
- a .0030, .0029, .0029, .0028, .0028, .0027, .0027, .0026,
- a .0025, .0031, .0036, .0042, .0047, .0288, .0529, .0769,
- a .1010, .1943, .2875, .3808, .4740, .5363, .5985, .6608,
- a .7230, .7390, .7550, .7710, .7870, .7838, .7805, .7773,
- a .7740, .7788, .7835, .7883, .7930, .8100, .8270, .8440,
- a .8610, .8958, .9305, .9653,1.0000, .9860, .9720, .9580,
- a .9440, .9435, .9430, .9425, .9420, .9442, .9465, .9487,
- a .9510, .9575, .9640, .9705, .9770, .9135, .8500, .7865,
- a .7230, .6285, .5340, .4395, .3450, .2955, .2460, .1965,
- a .1470, .1280, .1090, .0900, .0710, .0638, .0565, .0493,
- a .0420, .0383, .0345, .0307, .0270, .0245, .0220, .0195,
- a .0170, .0158, .0145, .0132, .0120, .0114, .0107, .0101,
- a .0095, .0096, .0098, .0099, .0100, .0103, .0105, .0108,
- a .0110, .0100, .0090, .0080, .0070, .0052, .0035, .0017,
- a .0000,
- a1280*0./
-c
-c 2nd spectral band of avhrr (noaa 7)
-c
-
- data (sr(4,l),l=1,300)/ 156*0.,
- a .0000, .0018, .0035, .0053, .0070, .0068, .0065, .0063,
- a .0060, .0058, .0055, .0052, .0050, .0050, .0050, .0050,
- a .0050, .0060, .0070, .0080, .0090, .0320, .0550, .0780,
- a .1010, .1788, .2565, .3343, .4120, .4922, .5725, .6527,
- a .7330, .7765, .8200, .8635, .9070, .9218, .9365, .9513,
- a .9660, .9725, .9790, .9855, .9920, .9940, .9960, .9980,
- a 1.0000, .9962,.9925, .9887, .9850, .9870, .9890, .9910,
- a .9930, .9763, .9595, .9428, .9260, .9298, .9335, .9373,
- a .9410, .9373, .9335, .9298, .9260, .9120, .8980, .8840,
- a .8700, .8700, .8700, .8700, .8700, .8703, .8705, .8708,
- a .8710, .8708, .8705, .8703, .8700, .8715, .8730, .8745,
- a .8760, .8740, .8720, .8700, .8680, .8690, .8700, .8710,
- a .8720, .8687, .8655, .8623, .8590, .8555, .8520, .8485,
- a .8450, .8428, .8405, .8383, .8360, .8328, .8295, .8263,
- a .8230, .8145, .8060, .7975, .7890, .7872, .7855, .7838,
- a .7820, .7790, .7760, .7730, .7700, .7682, .7665, .7648,
- a .7630, .7545, .7460, .7375, .7290, .6987, .6685, .6382,
- a .6080, .5623, .5165, .4707, .4250, .3812, .3375, .2937/
- data (sr(4,l),l=301,1501)/
- a .2500, .2215, .1930, .1645, .1360, .1202, .1045, .0887,
- a .0730, .0647, .0565, .0482, .0400, .0357, .0315, .0272,
- a .0230, .0207, .0185, .0162, .0140, .0125, .0110, .0095,
- a .0080, .0075, .0070, .0065, .0060, .0055, .0050, .0045,
- a .0040, .0039, .0038, .0037, .0036, .0036, .0037, .0037,
- a .0037, .0035, .0034, .0032, .0031, .0029, .0028, .0026,
- a .0025, .0025, .0024, .0024, .0023, .0023, .0022, .0022,
- a .0021, .0021, .0021, .0020, .0020, .0019, .0019, .0018,
- a .0018, .0013, .0009, .0004, .0000,
- a1132*0./
-c
-c 1st spectral band of avhrr (noaa 8)
-c
- data (sr(5,l),l=1,260)/ 116*0.,
- a .0000, .0012, .0024, .0036, .0048, .0223, .0399, .0574,
- a .0749, .1633, .2517, .3400, .4284, .4937, .5590, .6243,
- a .6896, .7135, .7375, .7614, .7853, .7833, .7813, .7793,
- a .7773, .7774, .7775, .7776, .7777, .7922, .8067, .8211,
- a .8356, .8566, .8777, .8987, .9197, .9332, .9468, .9603,
- a .9739, .9674, .9609, .9545, .9480, .9507, .9534, .9561,
- a .9588, .9691, .9794, .9897,1.0000, .9692, .9385, .9077,
- a .8770, .7775, .6779, .5784, .4789, .4108, .3428, .2747,
- a .2067, .1782, .1497, .1213, .0928, .0820, .0712, .0604,
- a .0496, .0425, .0355, .0284, .0214, .0208, .0202, .0196,
- a .0190, .0167, .0145, .0122, .0100, .0095, .0090, .0085,
- a .0080, .0083, .0086, .0089, .0092, .0094, .0097, .0100,
- a .0103, .0100, .0096, .0093, .0090, .0086, .0083, .0079,
- a .0076, .0082, .0087, .0093, .0099, .0104, .0110, .0115,
- a .0121, .0114, .0108, .0101, .0094, .0088, .0081, .0075,
- a .0068, .0074, .0079, .0085, .0091, .0097, .0102, .0108,
- a .0114, .0115, .0115, .0116, .0117, .0118, .0119, .0119,
- a .0120, .0136, .0152, .0167, .0183, .0204, .0224, .0245/
- data (sr(5,l),l=261,1501)/
- a .0265, .0295, .0324, .0354, .0384, .0419, .0453, .0488,
- a .0522, .0514, .0507, .0499, .0491, .0467, .0443, .0420,
- a .0396, .0348, .0299, .0251, .0203, .0183, .0164, .0144,
- a .0125, .0118, .0110, .0103, .0095, .0083, .0071, .0060,
- a .0048, .0041, .0035, .0028, .0022, .0022, .0021, .0021,
- a .0021, .0016, .0010, .0005, .0000,
- a1196*0./
-c
-c 2nd spectral band of avhrr (noaa 8)
-c
-
- data (sr(6,l),l=1,316)/ 172*0.,
- a .0000, .0095, .0190, .0285, .0381, .0476, .0571, .0666,
- a .0761, .1559, .2358, .3156, .3954, .4855, .5756, .6658,
- a .7559, .7966, .8373, .8779, .9186, .9332, .9478, .9624,
- a .9770, .9814, .9858, .9902, .9946, .9959, .9973, .9986,
- a1.0000, .9965, .9930, .9896, .9861, .9796, .9731, .9666,
- a .9601, .9518, .9435, .9351, .9268, .9171, .9073, .8976,
- a .8879, .8791, .8703, .8615, .8527, .8439, .8351, .8263,
- a .8175, .8140, .8104, .8068, .8033, .7997, .7962, .7926,
- a .7891, .7871, .7850, .7830, .7810, .7790, .7769, .7749,
- a .7729, .7711, .7694, .7677, .7659, .7642, .7624, .7607,
- a .7589, .7558, .7528, .7497, .7466, .7436, .7405, .7375,
- a .7344, .7282, .7220, .7158, .7096, .7034, .6972, .6910,
- a .6848, .6781, .6713, .6646, .6579, .6511, .6444, .6376,
- a .6309, .6265, .6221, .6177, .6133, .6088, .6044, .6000,
- a .5956, .5888, .5820, .5752, .5684, .5616, .5548, .5480,
- a .5412, .5159, .4906, .4653, .4400, .4147, .3894, .3641,
- a .3388, .3061, .2734, .2408, .2081, .1851, .1621, .1392,
- a .1162, .1023, .0884, .0745, .0606, .0532, .0458, .0384/
- data (sr(6,l),l=317,1501)/
- a .0310, .0271, .0231, .0192, .0153, .0134, .0115, .0096,
- a .0077, .0071, .0065, .0059, .0053, .0046, .0040, .0034,
- a .0028, .0026, .0024, .0023, .0021, .0019, .0017, .0016,
- a .0014, .0012, .0010, .0009, .0007, .0005, .0003, .0002,
- a .0000, 1152*0./
-c
-c 1st spectral band of avhrr (noaa 9)
-c
-
- data (sr(7,l),l=1,1501)/ 112*0.,
- a .0000, .0001, .0003, .0004, .0006, .0040, .0074, .0108,
- a .0142, .0622, .1101, .1581, .2060, .2810, .3561, .4311,
- a .5061, .5500, .5940, .6379, .6818, .7127, .7437, .7746,
- a .8055, .8122, .8190, .8170, .8150, .8063, .7975, .7887,
- a .7800, .7881, .7962, .8044, .8125, .8335, .8544, .8753,
- a .8963, .9000, .9037, .9074, .9111, .8899, .8688, .8476,
- a .8265, .8198, .8130, .8110, .8090, .8277, .8464, .8650,
- a .8837, .9128, .9419, .9709,1.0000, .9678, .9356, .9035,
- a .8713, .7712, .6711, .5711, .4710, .4067, .3424, .2782,
- a .2139, .1849, .1559, .1269, .0979, .0861, .0743, .0625,
- a .0507, .0454, .0400, .0347, .0294, .0266, .0238, .0210,
- a .0182, .0170, .0157, .0145, .0133, .0124, .0115, .0107,
- a .0098, .0092, .0086, .0080, .0074, .0071, .0069, .0066,
- a .0063, .0062, .0061, .0061, .0060, .0045, .0030, .0015,
- a .0000, 1276*0./
-c
-c 2nd spectral band of avhrr (noaa 9)
-c
- data (sr(8,l),l=1,316)/ 172*0.,
- a .0000, .0011, .0022, .0033, .0044, .0207, .0369, .0532,
- a .0694, .1410, .2127, .2843, .3559, .4388, .5217, .6047,
- a .6876, .7304, .7731, .8159, .8586, .8782, .8977, .9173,
- a .9369, .9491, .9614, .9736, .9859, .9894, .9930, .9965,
- a1.0000, .9956, .9912, .9869, .9825, .9699, .9574, .9448,
- a .9323, .9243, .9163, .9083, .9003, .8971, .8939, .8907,
- a .8875, .8881, .8887, .8893, .8899, .8931, .8963, .8994,
- a .9026, .9046, .9067, .9087, .9108, .9114, .9120, .9126,
- a .9132, .9065, .8997, .8930, .8863, .8807, .8750, .8694,
- a .8638, .8605, .8571, .8538, .8504, .8532, .8560, .8588,
- a .8616, .8644, .8672, .8701, .8729, .8749, .8770, .8790,
- a .8811, .8766, .8721, .8677, .8632, .8502, .8372, .8242,
- a .8112, .7959, .7806, .7653, .7500, .7423, .7347, .7270,
- a .7193, .7166, .7138, .7111, .7084, .7169, .7255, .7340,
- a .7425, .7382, .7338, .7295, .7251, .6819, .6387, .5955,
- a .5523, .4922, .4321, .3721, .3120, .2722, .2325, .1927,
- a .1529, .1336, .1144, .0951, .0759, .0673, .0586, .0500,
- a .0414, .0370, .0327, .0283, .0240, .0217, .0195, .0172/
- data (sr(8,l),l=317,1501)/
- a .0150, .0139, .0128, .0118, .0107, .0099, .0090, .0082,
- a .0074, .0070, .0066, .0061, .0057, .0054, .0051, .0049,
- a .0046, .0044, .0042, .0041, .0039, .0037, .0036, .0034,
- a .0033, .0032, .0031, .0030, .0029, .0028, .0027, .0026,
- a .0025, .0025, .0025, .0024, .0024, .0023, .0022, .0021,
- a .0020, .0019, .0018, .0018, .0017, .0016, .0015, .0015,
- a .0014, .0010, .0007, .0003, .0000, 1132*0./
-c
-c 1st spectral band of avhrr (noaa 10)
-c
- data (sr(9,l),l=1,1501)/ 112*0.,
- a .0000, .0005, .0010, .0015, .0020, .0023, .0025, .0028,
- a .0030, .0239, .0448, .0657, .0866, .1852, .2838, .3824,
- a .4810, .5470, .6130, .6790, .7450, .7640, .7830, .8020,
- a .8210, .8182, .8154, .8126, .8098, .8219, .8339, .8460,
- a .8580, .8808, .9035, .9263, .9490, .9607, .9723, .9840,
- a .9956, .9875, .9793, .9712, .9630, .9595, .9560, .9525,
- a .9490, .9618, .9745, .9872,1.0000, .9980, .9960, .9940,
- a .9920, .9013, .8105, .7197, .6290, .5400, .4510, .3620,
- a .2730, .2315, .1900, .1485, .1070, .0935, .0800, .0665,
- a .0530, .0468, .0405, .0343, .0280, .0255, .0230, .0205,
- a .0180, .0165, .0150, .0135, .0120, .0110, .0100, .0090,
- a .0080, .0070, .0061, .0051, .0042, .0034, .0026, .0018,
- a .0010, .0007, .0005, .0002,.0000,1288*0./
-c
-c 2nd spectral band of avhrr (noaa 10)
-c
- data (sr(10,l),l=1,284)/ 140*0.,
- a .0000, .0006, .0012, .0018, .0024, .0030, .0036, .0042,
- a .0048, .0049, .0049, .0050, .0051, .0051, .0052, .0052,
- a .0053, .0053, .0054, .0054, .0055, .0055, .0056, .0056,
- a .0057, .0054, .0050, .0047, .0044, .0041, .0037, .0034,
- a .0031, .0031, .0032, .0032, .0033, .0033, .0033, .0034,
- a .0034, .0239, .0445, .0650, .0855, .1561, .2267, .2974,
- a .3680, .4508, .5335, .6163, .6990, .7430, .7870, .8310,
- a .8750, .8918, .9085, .9253, .9420, .9510, .9600, .9690,
- a .9780, .9835, .9890, .9945,1.0000, .9933, .9866, .9800,
- a .9733, .9661, .9589, .9517, .9445, .9329, .9213, .9096,
- a .8980, .8935, .8890, .8845, .8800, .8788, .8775, .8763,
- a .8750, .8658, .8565, .8473, .8380, .8415, .8450, .8485,
- a .8520, .8508, .8495, .8483, .8470, .8410, .8350, .8290,
- a .8230, .8148, .8065, .7983, .7900, .7983, .8065, .8148,
- a .8230, .8190, .8150, .8110, .8070, .7990, .7910, .7830,
- a .7750, .7712, .7675, .7637, .7600, .7425, .7250, .7075,
- a .6900, .6855, .6810, .6765, .6720, .6710, .6700, .6690,
- a .6680, .6655, .6630, .6605, .6580, .6455, .6330, .6205/
- data (sr(10,l),l=285,1501)/
- a .6080, .5993, .5905, .5818, .5730, .5602, .5475, .5347,
- a .5220, .4872, .4525, .4177, .3830, .3435, .3040, .2645,
- a .2250, .2015, .1780, .1545, .1310, .1155, .1000, .0845,
- a .0690, .0613, .0535, .0457, .0380, .0337, .0295, .0252,
- a .0210, .0189, .0168, .0147, .0126, .0114, .0102, .0091,
- a .0079, .0073, .0067, .0060, .0054, .0051, .0047, .0044,
- a .0041, .0040, .0038, .0037, .0036, .0035, .0034, .0033,
- a .0032, .0031, .0030, .0030, .0029, .0028, .0027, .0027,
- a .0026, .0026, .0025, .0025, .0024, .0023, .0022, .0022,
- a .0021, .0020, .0019, .0018, .0017, .0016, .0016, .0015,
- a .0015, .0015, .0014, .0014, .0014, .0014, .0014, .0015,
- a .0015, .0011, .0008, .0004, .0000, 1124*0./
-
-c
-c 1st spectral band of avhrr (noaa 11)
-c
- data (sr(11,l),l=1,1501)/ 116*0.,
- a .0000, .0033, .0065, .0098, .0130, .0500, .0870, .1240,
- a .1610, .2385, .3160, .3935, .4710, .5150, .5590, .6030,
- a .6470, .6768, .7065, .7363, .7660, .7745, .7830, .7915,
- a .8000, .7918, .7835, .7753, .7670, .7747, .7825, .7903,
- a .7980, .8215, .8450, .8685, .8920, .8907, .8895, .8882,
- a .8870, .8702, .8535, .8367, .8200, .8110, .8020, .7930,
- a .7840, .8050, .8260, .8470, .8680, .9010, .9340, .9670,
- a1.0000, .9562, .9125, .8687, .8250, .7192, .6135, .5077,
- a .4020, .3467, .2915, .2362, .1810, .1568, .1325, .1083,
- a .0840, .0735, .0630, .0525, .0420, .0380, .0340, .0300,
- a .0260, .0242, .0225, .0207, .0190, .0180, .0170, .0160,
- a .0150, .0137, .0125, .0112, .0100, .0087, .0075, .0062,
- a .0050, .0052, .0055, .0057, .0060, .0060, .0060, .0060,
- a .0060, .0060, .0060, .0060, .0060, .0045, .0030, .0015,
- a .0000, 1272*0./
-c
-c 2nd spectral band of avhrr (noaa 11)
-c
- data (sr(12,l),l=1,284)/ 140*0.,
- a .0000, .0005, .0010, .0015, .0020, .0025, .0030, .0035,
- a .0040, .0039, .0037, .0036, .0035, .0034, .0032, .0031,
- a .0030, .0029, .0028, .0026, .0025, .0024, .0023, .0021,
- a .0020, .0020, .0020, .0020, .0020, .0020, .0020, .0020,
- a .0020, .0028, .0035, .0043, .0050, .0173, .0295, .0418,
- a .0540, .1150, .1760, .2370, .2980, .3822, .4665, .5507,
- a .6350, .6865, .7380, .7895, .8410, .8623, .8835, .9048,
- a .9260, .9415, .9570, .9725, .9880, .9910, .9940, .9970,
- a1.0000, .9925, .9850, .9775, .9700, .9600, .9500, .9400,
- a .9300, .9193, .9085, .8978, .8870, .8770, .8670, .8570,
- a .8470, .8478, .8485, .8493, .8500, .8518, .8535, .8553,
- a .8570, .8602, .8635, .8668, .8700, .8673, .8645, .8618,
- a .8590, .8505, .8420, .8335, .8250, .8183, .8115, .8047,
- a .7980, .7983, .7985, .7988, .7990, .7935, .7880, .7825,
- a .7770, .7835, .7900, .7965, .8030, .8075, .8120, .8165,
- a .8210, .8108, .8005, .7903, .7800, .7767, .7735, .7703,
- a .7670, .7473, .7275, .7077, .6880, .6755, .6630, .6505,
- a .6380, .6350, .6320, .6290, .6260, .6345, .6430, .6515/
- data (sr(12,l),l=285,1501)/
- a .6600, .6695, .6790, .6885, .6980, .6790, .6600, .6410,
- a .6220, .5645, .5070, .4495, .3920, .3420, .2920, .2420,
- a .1920, .1667, .1415, .1162, .0910, .0795, .0680, .0565,
- a .0450, .0411, .0372, .0334, .0295, .0256, .0217, .0179,
- a .0140, .0129, .0117, .0106, .0095, .0084, .0072, .0061,
- a .0050, .0048, .0045, .0043, .0040, .0038, .0035, .0033,
- a .0030, .0029, .0027, .0026, .0025, .0024, .0022, .0021,
- a .0020, .0017, .0015, .0012, .0010, .0007, .0005, .0002,
- a .0000, 1152*0./
-c
-c 1st spectral band of avhrr (noaa 12)
-c
- DATA (SR(13,L),L=1,1501)/ 100*0.,
- A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- A .0000, .0000, .0000, .0000, .0000, .0048, .0135, .0200,
- A .0270, .1046, .2094, .3253, .4360, .5286, .6030, .6621,
- A .7090, .7464, .7753, .7966, .8110, .8196, .8249, .8301,
- A .8380, .8507, .8668, .8837, .8990, .9109, .9198, .9265,
- A .9320, .9371, .9419, .9466, .9510, .9552, .9587, .9612,
- A .9620, .9610, .9593, .9582, .9590, .9625, .9673, .9715,
- A .9730, .9707, .9666, .9635, .9640, .9701, .9799, .9908,
- A1.0000, .9805, .9590, .9407, .9180, .8357, .7325, .6205,
- A .5120, .4170, .3365, .2692, .2140, .1695, .1343, .1066,
- A .0850, .0679, .0546, .0442, .0360, .0294, .0240, .0196,
- A .0160, .0130, .0105, .0089, .0080, .0080, .0083, .0085,
- A .0080, .0064, .0041, .0018, .0000, .0000, .0000, .0000,
- A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- A .0000, .0024, .0056, .0087, .0110, .0118, .0117, .0112,
- A .0110, .0117, .0130, .0145, .0160, .0171, .0178, .0184,
- A .0190, .0197, .0205, .0213, .0220, .0226, .0229, .0228,
- A .0220, .0205, .0187, .0170, .0160, .0159, .0160, .0157,
- A .0140, .0106, .0063, .0023, .0000, .0001, .0018, .0038,
- A .0050, .0044, .0027, .0009, .0000, .0006, .0023, .0040,
- A .0050, .0046, .0032, .0015, .0000, .0000, .0000, .0000,
- A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- A .0000,
- A1200*0./
-c
-c 2nd spectral band of avhrr (noaa 12)
-c
- DATA (SR(14,L),L=1,1501)/ 160*0.,
- A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- A .0000, .0050, .0111, .0162, .0180, .0153, .0097, .0038,
- A .0000, .0005, .0060, .0168, .0330, .0555, .0869, .1303,
- A .1890, .2643, .3509, .4418, .5300, .6096, .6796, .7403,
- A .7920, .8350, .8702, .8988, .9220, .9408, .9559, .9680,
- A .9780, .9863, .9929, .9975,1.0000, .0115, .9987, .9958,
- A .9920, .9876, .9821, .9748, .9650, .9522, .9370, .9203,
- A .9030, .8858, .8694, .8543, .8410, .8299, .8207, .8129,
- A .8060, .7997, .7943, .7902, .7880, .7879, .7893, .7916,
- A .7940, .7959, .7971, .7972, .7960, .7935, .7900, .7860,
- A .7820, .7783, .7747, .7704, .7650, .7582, .7506, .7433,
- A .7370, .7326, .7299, .7288, .7290, .7303, .7323, .7350,
- A .7380, .7411, .7441, .7468, .7490, .7504, .7510, .7505,
- A .7490, .7463, .7421, .7365, .7290, .7197, .7086, .6960,
- A .6820, .6670, .6518, .6371, .6240, .6131, .6043, .5973,
- A .5920, .5881, .5857, .5849, .5860, .5889, .5929, .5969,
- A .6000, .6011, .5986, .5905, .5750, .5508, .5186, .4792,
- A .4340, .3842, .3326, .2822, .2360, .1964, .1633, .1357,
- A .1130, .0943, .0789, .0664, .0560, .0473, .0400, .0339,
- A .0290, .0250, .0217, .0191, .0170, .0152, .0137, .0123,
- A .0110, .0098, .0086, .0077, .0070, .0066, .0063, .0059,
- A .0050, .0035, .0019, .0005, .0000, .0006, .0019, .0033,
- A .0040, .0036, .0025, .0011, .0000, .0000, .0000, .0000,
- A .0000, .0000, .0000, .0000, .0000,
- A1152*0./
-c
-c 1st spectral band of avhrr (noaa 14) -from NOAA/POD Guide
-c
- DATA (SR(15,L),L=1,1501)/ 100*0.,
- A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- A .0000, .0003, .0007, .0010, .0013, .0152, .0290, .0429,
- A .0568, .1226, .1884, .2543, .3201, .3727, .4254, .4780,
- A .5306, .5528, .5749, .5971, .6193, .6267, .6342, .6417,
- A .6492, .6538, .6583, .6629, .6675, .6734, .6793, .6853,
- A .6912, .6948, .6984, .7020, .7056, .7106, .7156, .7206,
- A .7256, .7243, .7229, .7216, .7203, .7188, .7174, .7159,
- A .7145, .7130, .7116, .7102, .7088, .7154, .7221, .7287,
- A .7353, .7292, .7232, .7172, .7111, .6501, .5891, .5281,
- A .4671, .4037, .3402, .2768, .2133, .1830, .1527, .1223,
- A .0920, .0797, .0675, .0553, .0431, .0406, .0381, .0357,
- A .0332, .0279, .0226, .0173, .0120, .0117, .0114, .0110,
- A .0107, .0100, .0093, .0086, .0080, .0076, .0072, .0069,
- A .0065, .0062, .0059, .0055, .0052, .0051, .0050, .0048,
- A .0047, .0048, .0049, .0050, .0051, .0051, .0050, .0050,
- A .0050, .0050, .0051, .0052, .0052, .0053, .0054, .0054,
- A .0055, .0057, .0059, .0061, .0063, .0068, .0072, .0076,
- A .0080, .0084, .0088, .0092, .0096, .0100, .0104, .0108,
- A .0113, .0116, .0119, .0122, .0125, .0127, .0128, .0130,
- A .0132, .0130, .0128, .0126, .0123, .0120, .0116, .0112,
- A .0108, .0104, .0099, .0095, .0090, .0086, .0082, .0078,
- A .0074, .0072, .0070, .0067, .0065, .0063, .0060, .0058,
- A .0055, .0053, .0050, .0048, .0046, .0044, .0042, .0040,
- A .0038, .0036, .0034, .0032, .0030, .0028, .0027, .0025,
- A .0023, .0022, .0022, .0021, .0020, .0019, .0018, .0017,
- A .0016, .0016, .0015, .0014, .0014, .0013, .0012, .0012,
- A .0011, .0011, .0011, .0011, .0011, .0011, .0011, .0011,
- A .0011, .0011, .0011, .0011, .0011, .0011, .0011, .0010,
- A .0010, .0010, .0010, .0010, .0010, .0010, .0010, .0010,
- A .0010,
- A1160*0./
-c
-c 2nd spectral band of avhrr (noaa 14)
-c
- data (sr(16,l),l=1,1501)/ 168*0.,
- a .0000,.0000,.0000,.0000,.0000,.0000,.0022,.0045,
- a .0067,.0090,.0107,.0125,.0143,.0160,.0543,.0925,
- a .1308,.1690,.2573,.3455,.4338,.5220,.5978,.6735,
- a .7492,.8250,.8503,.8755,.9007,.9260,.9362,.9465,
- a .9568,.9670,.9737,.9805,.9872,.9940,.9935,.9930,
- a .9925,.9920,.9940,.9960,.9980,1.000,.9885,.9770,
- a .9655,.9540,.9398,.9255,.9112,.8970,.8855,.8740,
- a .8625,.8510,.8400,.8290,.8180,.8070,.8052,.8035,
- a .8018,.8000,.8065,.8130,.8195,.8260,.8257,.8255,
- a .8253,.8250,.8245,.8240,.8235,.8230,.8230,.8230,
- a .8230,.8230,.8210,.8190,.8170,.8150,.8147,.8145,
- a .8142,.8140,.8183,.8225,.8267,.8310,.8367,.8425,
- a .8482,.8540,.8547,.8555,.8562,.8570,.8510,.8450,
- a .8390,.8330,.8170,.8010,.7850,.7690,.7587,.7485,
- a .7383,.7280,.7203,.7125,.7048,.6970,.6957,.6945,
- a .6932,.6920,.6970,.7020,.7070,.7120,.7035,.6950,
- a .6865,.6780,.6370,.5960,.5550,.5140,.4560,.3980,
- a .3400,.2820,.2458,.2095,.1732,.1370,.1190,.1010,
- a .0830,.0650,.0560,.0470,.0380,.0290,.0250,.0210,
- a .0170,.0130,.0095,.0060,.0050,.0040,.0020,.0000,
- a .0010,.0020,.0018,.0015,.0012,.0010,.0010,.0010,
- a .0010,.0010,.0008,.0005,.0003,.0000,.0000,.0000,
- a 1157*0./
-
- wli(1)=0.55
- wls(1)=0.75
- wli(2)=0.69
- wls(2)=1.12
- wli(3)=0.5
- wls(3)=0.8
- wli(4)=0.64
- wls(4)=1.17
- wli(5)=0.54
- wls(5)=1.01
- wli(6)=0.68
- wls(6)=1.12
- wli(7)=0.53
- wls(7)=0.81
- wli(8)=0.68
- wls(8)=1.17
- wli(9)=0.53
- wls(9)=0.78
- wli(10)=0.6
- wls(10)=1.19
- wli(11)=0.54
- wls(11)=0.82
- wli(12)=0.6
- wls(12)=1.12
- wli(13)=0.50
- wls(13)=1.0
- wli(14)=0.65
- wls(14)=1.12
- wli(15)=0.50
- wls(15)=1.11
- wli(16)=0.68
- wls(16)=1.10
- do 1 i=1,1501
- s(i)=sr(iwa,i)
- 1 continue
- wlinf=wli(iwa)
- wlsup=wls(iwa)
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.h b/Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.h
deleted file mode 100644
index d1dd041..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/AVHRR.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_avhrr_(
- otb_6s_integer *iwa
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/BBM.P b/Modules/ThirdParty/6S/src/6SV1.0B/BBM.P
deleted file mode 100644
index 194ed0e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/BBM.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int bbm_();
-/* comlen num_quad__ 4 */
-/* comlen sixs_aerbas__ 480000 */
-/* comlen sixs_coef__ 1952 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/BBM.c b/Modules/ThirdParty/6S/src/6SV1.0B/BBM.c
deleted file mode 100644
index 44c3c85..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/BBM.c
+++ /dev/null
@@ -1,692 +0,0 @@
-/* BBM.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal ph[20000] /* was [20][1000] */, qh[20000] /* was [20][
- 1000] */, uh[20000] /* was [20][1000] */;
-} sixs_aerbas__;
-
-#define sixs_aerbas__1 sixs_aerbas__
-
-Extern struct {
- doublereal ex[80] /* was [4][20] */, sc[80] /* was [4][20] */,
- asy[80] /* was [4][20] */, vi[4];
-} sixs_coef__;
-
-#define sixs_coef__1 sixs_coef__
-
-/*< subroutine bbm >*/
-/* Subroutine */ int bbm_()
-{
- /* Initialized data */
-
- static doublereal asy_m__[20] = { .709,.689,.684,.671,.659,.651,.639,.623,
- .605,.586,.57,.56,.534,.5,.455,.493,.515,.573,.619,.698 };
- static doublereal ex_m__[20] = { .08254323,.06873854,.06574472,.05858313,
- .05299549,.04958472,.04491529,.03959285,.03440313,.029725,
- .02632282,.02437306,.01990872,.01504618,.006794238,.004662405,
- .00420307,.003449567,.003032236,.002203834 };
- static doublereal sc_m__[20] = { .078055,.06486657,.06199898,.05513438,
- .04977275,.04650205,.04202277,.03691657,.03194462,.02746937,
- .02421588,.02235581,.01810272,.01349245,.005778257,.003859948,
- .003459487,.002823499,.002492706,.001881847 };
- static doublereal phr[1660] /* was [20][83] */ = { .1683,.1692,.1705,
- .1751,.1805,.1851,.1939,.2078,.2255,.2466,.2671,.2816,.3231,.387,
- .5767,.6058,.5984,.5521,.4886,.3196,.1674,.1683,.1696,.1741,.1795,
- .1841,.1928,.2067,.2242,.2449,.2653,.2796,.3207,.3837,.5696,.5965,
- .5884,.5412,.4784,.3131,.1655,.167,.1684,.1731,.1788,.1834,.192,
- .2061,.2234,.2437,.2641,.278,.3184,.3798,.5558,.5759,.5652,.5133,
- .4506,.2913,.1613,.1642,.1659,.171,.1771,.1818,.1907,.2049,.2225,
- .243,.2633,.2772,.3176,.3785,.5478,.5625,.549,.4918,.4279,.2692,
- .1557,.16,.1619,.1676,.1739,.1789,.1882,.2025,.2205,.2414,.2617,
- .2756,.3163,.3776,.5453,.5581,.5435,.4834,.4175,.2566,.1499,.1553,
- .1573,.1636,.1703,.1755,.185,.1997,.218,.2392,.26,.2739,.3151,
- .3769,.5476,.5613,.5469,.4875,.42,.2541,.1445,.1506,.1529,.1595,
- .1666,.172,.1818,.197,.2155,.2371,.2582,.2725,.3141,.3768,.5524,
- .5691,.5558,.4981,.4304,.2587,.14,.1464,.1487,.1556,.1628,.1686,
- .1786,.1939,.2126,.2347,.2559,.2707,.3123,.3758,.5549,.5752,.5633,
- .5066,.4406,.2657,.1361,.1423,.1446,.1516,.1588,.1648,.1749,.1901,
- .2089,.2312,.2523,.2672,.3087,.3723,.5511,.5735,.5622,.5068,.4431,
- .2696,.1327,.1384,.1406,.1474,.1548,.1604,.1705,.1858,.2047,.2266,
- .2478,.2621,.3036,.3663,.5412,.563,.5514,.4979,.4362,.2682,.1299,
- .1349,.137,.1435,.1508,.1561,.1661,.1812,.2,.2215,.2426,.2563,
- .2975,.3589,.5276,.5468,.5345,.4819,.4217,.2616,.1276,.1318,.1338,
- .1399,.1468,.1523,.162,.1766,.195,.2165,.2368,.2507,.2906,.3507,
- .5126,.528,.5153,.4619,.4032,.2514,.1257,.1291,.1308,.1367,.1432,
- .1487,.1582,.1724,.1903,.2115,.2314,.2453,.2841,.3427,.4978,.5088,
- .4955,.4408,.3832,.2391,.1239,.1267,.1283,.1338,.1402,.1455,.1547,
- .1687,.1863,.207,.2267,.2402,.2783,.3354,.4835,.4906,.4763,.4205,
- .3637,.2264,.1222,.1247,.1263,.1315,.1377,.1427,.1518,.1653,.1827,
- .2032,.2225,.2356,.273,.329,.4703,.4739,.4585,.4017,.3456,.2142,
- .1207,.123,.1245,.1295,.1355,.1405,.1493,.1625,.1796,.1998,.2187,
- .2316,.2683,.323,.4585,.4587,.4423,.385,.3292,.2028,.1193,.1216,
- .123,.1278,.1338,.1386,.1472,.1603,.177,.1968,.2155,.2281,.2642,
- .3177,.4479,.445,.4279,.37,.3145,.1924,.118,.1204,.1218,.1265,
- .1324,.1372,.1456,.1584,.1748,.1944,.2127,.2252,.2605,.3129,.4384,
- .4328,.4153,.3565,.3014,.183,.1168,.1195,.1208,.1256,.1314,.1362,
- .1445,.157,.1731,.1925,.2105,.2228,.2573,.3088,.4298,.4217,.4039,
- .3446,.2899,.1748,.1158,.1188,.1202,.125,.1308,.1355,.1437,.156,
- .1719,.191,.2088,.2209,.2548,.3052,.4219,.4118,.3936,.334,.2798,
- .1677,.1149,.1183,.1198,.1247,.1306,.1353,.1433,.1555,.1713,.1901,
- .2076,.2195,.2528,.3023,.4148,.4028,.3843,.3247,.271,.1617,.1143,
- .1182,.1197,.1248,.1307,.1354,.1435,.1555,.1711,.1897,.207,.2186,
- .2514,.2998,.4084,.3947,.376,.3165,.2633,.1567,.114,.1184,.12,
- .1253,.1313,.136,.144,.1559,.1714,.1899,.2069,.2184,.2506,.298,
- .4027,.3874,.3685,.3092,.2566,.1525,.114,.1189,.1206,.1262,.1323,
- .1371,.1451,.1569,.1723,.1906,.2074,.2187,.2503,.2968,.3977,.3809,
- .3618,.3028,.2508,.1493,.1143,.1198,.1216,.1275,.1338,.1386,.1466,
- .1585,.1738,.192,.2085,.2197,.2508,.2963,.3934,.3751,.3559,.2972,
- .2458,.1468,.115,.1212,.1231,.1292,.1357,.1406,.1487,.1606,.176,
- .194,.2104,.2214,.252,.2965,.3898,.3701,.3507,.2924,.2417,.1451,
- .1161,.123,.1251,.1315,.1382,.1432,.1514,.1634,.1788,.1968,.213,
- .2238,.254,.2976,.3869,.3659,.3464,.2882,.2384,.144,.1177,.1253,
- .1276,.1344,.1413,.1464,.1548,.1669,.1824,.2004,.2164,.2271,.2568,
- .2996,.3847,.3626,.3428,.2848,.2359,.1437,.1197,.1281,.1306,.1378,
- .145,.1503,.1588,.1711,.1868,.2047,.2207,.2313,.2606,.3025,.3836,
- .36,.34,.2823,.2341,.144,.1224,.1315,.1342,.1419,.1494,.1548,
- .1636,.1762,.192,.21,.2259,.2365,.2654,.3065,.3836,.3581,.338,
- .2808,.2328,.145,.1256,.1355,.1384,.1466,.1545,.1601,.1692,.1822,
- .1982,.2162,.2323,.2427,.2714,.3115,.3847,.3571,.3369,.2802,.2323,
- .1467,.1295,.1403,.1434,.1521,.1605,.1663,.1758,.1891,.2054,.2236,
- .2397,.2501,.2786,.3178,.3868,.3573,.3368,.2802,.2328,.1491,.134,
- .1458,.1492,.1585,.1673,.1735,.1833,.1971,.2138,.2323,.2484,.2588,
- .287,.3256,.3901,.3588,.338,.281,.2342,.1523,.1392,.1523,.1558,
- .1658,.1751,.1817,.192,.2063,.2234,.2422,.2584,.2689,.2969,.3348,
- .3948,.3613,.3401,.2829,.2365,.1563,.1453,.1596,.1635,.1741,.184,
- .191,.2019,.2168,.2343,.2535,.2699,.2806,.3084,.3455,.401,.365,
- .3434,.2859,.2397,.1612,.1523,.168,.1722,.1836,.1942,.2016,.2131,
- .2287,.2468,.2665,.2832,.2939,.3217,.3581,.4088,.3699,.3479,.29,
- .2439,.167,.1604,.1776,.1821,.1944,.2058,.2137,.2258,.2421,.261,
- .2812,.2982,.309,.3369,.3727,.4182,.3764,.3538,.2952,.2491,.1736,
- .1696,.1884,.1933,.2067,.2188,.2273,.2403,.2574,.277,.2979,.3152,
- .3262,.354,.3892,.4293,.3844,.3613,.3016,.2555,.1813,.1801,.2007,
- .2061,.2206,.2336,.2428,.2565,.2745,.2951,.3167,.3343,.3456,.3734,
- .408,.4424,.3941,.3703,.3094,.2632,.1901,.1921,.2146,.2205,.2363,
- .2504,.2601,.2748,.2939,.3154,.3378,.3559,.3673,.3955,.4294,.4574,
- .4056,.3805,.3188,.2724,.2004,.2057,.2303,.2368,.254,.2694,.2797,
- .2954,.3157,.3384,.3615,.3803,.3916,.4202,.4534,.4746,.4188,.3924,
- .3297,.283,.2122,.2132,.239,.2457,.2637,.2797,.2905,.3066,.3275,
- .3508,.3745,.3934,.4049,.4335,.4664,.4841,.4262,.3992,.3357,.2889,
- .2185,.2212,.2482,.2552,.2741,.2907,.3018,.3186,.3401,.364,.3881,
- .4074,.4189,.4476,.4801,.4941,.434,.4066,.3422,.295,.2253,.2388,
- .2684,.2761,.2967,.3148,.3269,.3448,.3675,.3927,.4178,.4375,.4495,
- .4782,.5098,.5163,.4511,.4229,.3563,.3086,.24,.2588,.2914,.2998,
- .3223,.3419,.3549,.3741,.3984,.4248,.451,.4713,.4835,.5122,.5428,
- .541,.4703,.441,.3726,.3241,.2568,.2814,.3175,.3268,.3512,.3726,
- .3865,.4071,.4329,.4608,.4879,.5089,.5212,.5501,.5794,.5683,.4919,
- .461,.3911,.3419,.276,.3072,.3472,.3573,.3839,.4071,.4221,.4442,
- .4716,.5008,.5291,.5506,.563,.5919,.6197,.5983,.5161,.4836,.4116,
- .362,.2977,.3366,.3809,.392,.4208,.446,.4622,.4858,.5149,.5455,
- .5747,.5968,.6093,.6379,.664,.6314,.5429,.5087,.4347,.3846,.3221,
- .3701,.4193,.4314,.4626,.4898,.5073,.5325,.5634,.5954,.6254,.648,
- .6605,.6887,.7126,.6677,.5723,.5365,.4604,.4097,.3497,.4085,.4629,
- .4761,.51,.5392,.558,.585,.6175,.6507,.6816,.7044,.717,.7443,
- .7656,.7074,.6046,.5675,.4889,.4378,.3807,.4524,.5126,.5269,.5636,
- .5949,.6151,.6437,.6779,.7122,.7438,.7665,.7792,.8051,.8233,.7504,
- .6402,.6019,.5204,.4692,.4157,.5027,.569,.5847,.6243,.6577,.6792,
- .7095,.7452,.7806,.8125,.8351,.8474,.8718,.8862,.7968,.6793,.6393,
- .5558,.5047,.4556,.5606,.6333,.6503,.693,.7286,.7512,.783,.8202,
- .8564,.8882,.9104,.9221,.9446,.9545,.847,.7218,.6796,.5954,.5445,
- .5011,.627,.7064,.7249,.7707,.8084,.832,.8652,.9037,.9403,.9715,
- .993,1.004,1.024,1.028,.9011,.7679,.7239,.6394,.5889,.5527,.7033,
- .7897,.8096,.8585,.8981,.9227,.957,.9962,1.033,1.063,1.083,1.093,
- 1.109,1.108,.9592,.8182,.7732,.6878,.6385,.6111,.7911,.8845,.9058,
- .9578,.999,1.024,1.059,1.099,1.135,1.164,1.182,1.19,1.202,1.193,
- 1.022,.8729,.8273,.7415,.6944,.6777,.8919,.9924,1.015,1.07,1.112,
- 1.138,1.173,1.212,1.247,1.273,1.289,1.296,1.302,1.284,1.088,.9325,
- .8861,.8014,.7574,.7537,1.008,1.115,1.139,1.196,1.239,1.265,1.3,
- 1.337,1.37,1.393,1.405,1.41,1.41,1.382,1.159,.9972,.9507,.8682,
- .8286,.8407,1.141,1.255,1.279,1.338,1.381,1.406,1.44,1.475,1.505,
- 1.523,1.531,1.533,1.525,1.486,1.235,1.068,1.022,.9427,.909,.9406,
- 1.295,1.413,1.438,1.497,1.539,1.564,1.595,1.627,1.651,1.665,1.667,
- 1.665,1.648,1.597,1.315,1.145,1.099,1.026,1.,1.055,1.471,1.592,
- 1.617,1.675,1.716,1.738,1.766,1.793,1.811,1.817,1.813,1.807,1.78,
- 1.714,1.401,1.229,1.185,1.12,1.104,1.187,1.672,1.794,1.819,1.874,
- 1.911,1.931,1.954,1.974,1.984,1.981,1.97,1.959,1.919,1.837,1.493,
- 1.321,1.28,1.226,1.221,1.338,1.903,2.022,2.045,2.095,2.127,2.143,
- 2.159,2.17,2.171,2.157,2.137,2.121,2.066,1.966,1.591,1.421,1.385,
- 1.346,1.354,1.513,2.166,2.278,2.298,2.341,2.365,2.376,2.384,2.383,
- 2.371,2.345,2.314,2.292,2.221,2.101,1.695,1.532,1.503,1.481,1.507,
- 1.715,2.465,2.564,2.58,2.612,2.626,2.629,2.627,2.613,2.585,2.545,
- 2.502,2.472,2.383,2.242,1.805,1.655,1.634,1.635,1.685,1.949,2.803,
- 2.882,2.893,2.909,2.91,2.905,2.889,2.858,2.813,2.756,2.699,2.661,
- 2.552,2.389,1.924,1.793,1.781,1.812,1.89,2.22,3.184,3.234,3.238,
- 3.234,3.218,3.202,3.17,3.12,3.054,2.977,2.905,2.858,2.728,2.541,
- 2.052,1.946,1.948,2.017,2.127,2.536,3.61,3.621,3.615,3.587,3.55,
- 3.521,3.47,3.397,3.307,3.208,3.119,3.063,2.909,2.697,2.193,2.12,
- 2.141,2.254,2.403,2.902,4.084,4.043,4.025,3.966,3.904,3.86,3.787,
- 3.687,3.571,3.447,3.34,3.274,3.095,2.858,2.347,2.319,2.363,2.532,
- 2.728,3.33,4.606,4.5,4.466,4.371,4.28,4.217,4.119,3.99,3.844,
- 3.694,3.568,3.49,3.286,3.026,2.517,2.551,2.622,2.862,3.114,3.834,
- 5.175,4.988,4.937,4.798,4.674,4.59,4.464,4.302,4.125,3.946,3.8,
- 3.71,3.482,3.198,2.711,2.826,2.93,3.259,3.576,4.426,5.789,5.505,
- 5.433,5.244,5.082,4.976,4.819,4.622,4.41,4.201,4.036,3.935,3.682,
- 3.378,2.939,3.157,3.306,3.74,4.137,5.122,6.442,6.045,5.949,5.705,
- 5.501,5.37,5.18,4.946,4.699,4.461,4.274,4.163,3.888,3.57,3.213,
- 3.57,3.776,4.336,4.828,5.95,7.125,6.599,6.477,6.174,5.924,5.768,
- 5.543,5.271,4.989,4.723,4.517,4.397,4.104,3.781,3.558,4.099,4.376,
- 5.092,5.695,6.939,7.826,7.16,7.01,6.644,6.349,6.165,5.906,5.597,
- 5.283,4.99,4.771,4.642,4.341,4.027,4.011,4.801,5.166,6.077,6.806,
- 8.129,8.531,7.718,7.54,7.109,6.769,6.559,6.268,5.926,5.584,5.273,
- 5.044,4.911,4.615,4.334,4.642,5.77,6.249,7.396,8.262,9.575,9.226,
- 8.265,8.059,7.568,7.187,6.955,6.637,6.268,5.909,5.59,5.363,5.236,
- 4.964,4.757,5.578,7.168,7.796,9.222,10.22,11.34,9.899,8.803,8.573,
- 8.033,7.62,7.373,7.039,6.66,6.301,5.997,5.792,5.684,5.479,5.416,
- 7.057,9.29,10.11,11.85,12.94,13.53,10.57,9.368,9.124,8.557,8.133,
- 7.886,7.558,7.201,6.881,6.635,6.492,6.43,6.374,6.585,9.572,12.69,
- 13.75,15.8,16.87,16.28,11.34,10.12,9.883,9.343,8.96,8.743,8.471,
- 8.211,8.013,7.913,7.926,7.968,8.228,8.967,14.2,18.49,19.79,22.,
- 22.68,19.69,12.87,11.85,11.67,11.29,11.08,10.97,10.89,10.9,11.03,
- 11.3,11.67,11.93,12.88,14.66,23.51,29.01,30.37,32.06,31.53,23.41,
- 20.31,20.01,20.02,20.14,20.37,20.56,20.95,21.58,22.44,23.5,24.55,
- 25.24,27.42,30.92,43.19,47.46,47.65,45.85,41.98,26.26,53.92,49.4,
- 48.63,47.03,46.04,45.52,45.01,44.63,44.53,44.72,45.08,45.37,46.54,
- 48.62,55.84,56.54,55.52,51.19,45.6,27.04 };
- static doublereal qhr[1660] /* was [20][83] */ = { -8.147e-23,-3.118e-22,
- 1.009e-23,5.571e-23,2.773e-22,2.431e-22,3.84e-23,-7.752e-23,
- -4.595e-22,5.904e-23,-1.272e-22,5.169e-22,-6.041e-23,8.122e-22,
- -5.817e-23,-8.368e-22,3.184e-22,-2.087e-22,-6.358e-22,-3.486e-22,
- 5.946e-4,4.345e-4,3.044e-4,3.22e-4,7.046e-5,2.465e-4,2.406e-4,
- 1.308e-4,-5.562e-5,1.192e-4,-5.941e-5,2.354e-4,-6.454e-6,2.142e-4,
- .00159,.002451,.003036,.003408,.003636,.003063,.003607,.002544,
- .002098,.001983,.001388,.001908,.001633,.001361,8.731e-4,.001141,
- 9.194e-4,.001988,.001224,.001986,.008542,.01217,.01478,.01699,
- .01758,.015,.007821,.005349,.004729,.00402,.003189,.003314,
- .002793,.002501,.001769,.001779,.001652,.002646,.002081,.003241,
- .01513,.02345,.02822,.03431,.03632,.03242,.0128,.008687,.008006,
- .006318,.005208,.00443,.003662,.002873,.002273,.001776,.001544,
- .001517,.001735,.002991,.01713,.0316,.03771,.04812,.05343,.05059,
- .01851,.0125,.01143,.00888,.007015,.005859,.004611,.003129,
- .002001,.001026,3.092e-4,-3.247e-5,-2.1e-4,6.496e-4,.01588,.03488,
- .04233,.05671,.06552,.0661,.02445,.01638,.01476,.01148,.008798,
- .007582,.00561,.003561,.001454,-1.717e-4,-.001378,-.001483,
- -.002898,-.002916,.01285,.03414,.0429,.06062,.0721,.07719,.02975,
- .02011,.01823,.01409,.01093,.009083,.006591,.00408,.001377,
- -.001086,-.002623,-.003376,-.005197,-.00628,.007918,.03068,.03975,
- .06023,.07368,.08298,.03412,.02351,.02153,.01661,.01294,.01045,
- .007589,.004391,.001316,-.00185,-.003932,-.00551,-.00765,-.009845,
- .001257,.0245,.03343,.05559,.07029,.08364,.0376,.02636,.0241,
- .01878,.01446,.01186,.008546,.004637,8.342e-4,-.002917,-.005724,
- -.007429,-.01075,-.01423,-.006339,.01602,.02506,.04753,.06307,
- .08023,.03991,.02824,.02588,.0202,.01564,.01278,.008953,.004841,
- 2.139e-4,-.004419,-.007617,-.009547,-.01402,-.01907,-.0146,
- .006106,.01513,.03769,.0537,.07407,.04081,.02929,.02696,.02102,
- .01628,.01308,.008937,.004425,-7.326e-4,-.006148,-.009848,-.01226,
- -.01765,-.02422,-.02374,-.004311,.004611,.02687,.04334,.06634,
- .04049,.02957,.02721,.02125,.01602,.01288,.008554,.003274,
- -.002437,-.008229,-.01289,-.01545,-.02212,-.03002,-.0336,-.01489,
- -.005905,.01572,.0329,.05814,.03916,.02883,.0265,.02055,.01516,
- .01194,.007367,.001732,-.004614,-.01107,-.01635,-.01921,-.02705,
- -.03654,-.04386,-.02598,-.01695,.005064,.02278,.05015,.03692,
- .02726,.02509,.01909,.01378,.01026,.005483,-3.23e-4,-.007176,
- -.01448,-.02016,-.02365,-.03236,-.04356,-.05467,-.03733,-.02829,
- -.005211,.0131,.04263,.03406,.02517,.02308,.01715,.01173,.008159,
- .003214,-.002992,-.01038,-.01832,-.02464,-.02852,-.03837,-.0512,
- -.06603,-.0487,-.03936,-.01539,.003942,.0357,.03081,.02259,.02055,
- .0147,.009185,.005607,4.783e-4,-.006093,-.01407,-.02267,-.02962,
- -.03383,-.04492,-.05944,-.07775,-.06023,-.05042,-.02524,-.004736,
- .02941,.02727,.01966,.01768,.01186,.006271,.002638,-.002668,
- -.009624,-.01815,-.02742,-.03499,-.03961,-.05189,-.06812,-.08984,
- -.07193,-.06161,-.03472,-.01301,.02374,.02361,.01649,.01456,
- .008715,.003047,-6.83e-4,-.006167,-.01351,-.02259,-.03257,-.04076,
- -.04585,-.05929,-.07724,-.1023,-.08376,-.07293,-.04388,-.02087,
- .01866,.01993,.01317,.01126,.005332,-4.254e-4,-.004284,-.009972,
- -.01771,-.02738,-.03809,-.04689,-.05249,-.0671,-.08682,-.115,
- -.0957,-.08427,-.05283,-.02836,.01405,.01636,.009745,.007818,
- .001756,-.004089,-.008098,-.01405,-.02218,-.0325,-.04399,-.05339,
- -.05949,-.07532,-.09686,-.1281,-.1077,-.09552,-.06171,-.03556,
- .009811,.01291,.006321,.00434,-.001907,-.00792,-.01207,-.01831,
- -.02695,-.03794,-.05018,-.06028,-.06683,-.08398,-.1073,-.1415,
- -.1197,-.1066,-.07056,-.0425,.005898,.009661,.002919,8.244e-4,
- -.005641,-.01189,-.01616,-.02274,-.03194,-.04368,-.05669,-.06753,
- -.07448,-.09306,-.1182,-.1551,-.1318,-.1176,-.07935,-.04924,
- .002301,.006585,-4.226e-4,-.002641,-.009394,-.01592,-.02037,
- -.02733,-.0372,-.04966,-.06344,-.07508,-.08249,-.1025,-.1293,
- -.1689,-.1438,-.1286,-.08798,-.05578,-9.949e-4,.00373,-.00371,
- -.006093,-.01318,-.02003,-.02466,-.03207,-.04261,-.05588,-.07049,
- -.08294,-.09079,-.1122,-.1409,-.1828,-.156,-.1396,-.09634,-.06216,
- -.004003,.001045,-.006925,-.009479,-.01697,-.02415,-.02907,
- -.03696,-.04822,-.06229,-.0778,-.09104,-.09942,-.1223,-.1527,
- -.1969,-.1683,-.1506,-.1044,-.06839,-.006763,-.001424,-.01008,
- -.01283,-.02077,-.02832,-.03354,-.04198,-.05397,-.06892,-.08537,
- -.09942,-.1083,-.1326,-.1649,-.211,-.1804,-.1615,-.1124,-.0743,
- -.009293,-.003753,-.01315,-.01609,-.02453,-.03251,-.03811,-.04713,
- -.05992,-.07572,-.09313,-.108,-.1176,-.1432,-.1772,-.2253,-.1922,
- -.1723,-.1202,-.07982,-.0116,-.005895,-.01618,-.01933,-.0283,
- -.03674,-.04275,-.05241,-.066,-.08272,-.1012,-.1169,-.127,-.154,
- -.1898,-.2397,-.2038,-.1828,-.1279,-.08505,-.01372,-.007905,
- -.01911,-.0225,-.03202,-.04105,-.04745,-.05777,-.0723,-.08994,
- -.1094,-.1261,-.1368,-.1651,-.2026,-.254,-.2152,-.193,-.1354,
- -.09008,-.01571,-.009782,-.02205,-.02566,-.03577,-.0454,-.05227,
- -.0633,-.07871,-.09734,-.1178,-.1354,-.1467,-.1765,-.2156,-.2681,
- -.2265,-.203,-.1425,-.09496,-.01757,-.01153,-.02493,-.0288,
- -.03952,-.04985,-.05715,-.06893,-.08529,-.105,-.1265,-.1451,
- -.1568,-.1881,-.2288,-.2819,-.2375,-.2127,-.1491,-.09971,-.01933,
- -.01324,-.02782,-.03192,-.04332,-.05435,-.06219,-.07474,-.09204,
- -.1127,-.1354,-.1549,-.1672,-.1998,-.242,-.2954,-.2482,-.222,
- -.1554,-.1042,-.02098,-.01486,-.03071,-.03508,-.0472,-.05896,
- -.06734,-.08069,-.09895,-.1207,-.1445,-.1649,-.1778,-.2116,-.2553,
- -.3087,-.2584,-.2308,-.1613,-.1083,-.02245,-.01649,-.03358,
- -.03822,-.05113,-.06369,-.07263,-.08678,-.1061,-.1289,-.1538,
- -.175,-.1885,-.2236,-.2685,-.3217,-.2679,-.2393,-.1669,-.1119,
- -.02371,-.01812,-.0365,-.04142,-.05521,-.06853,-.07811,-.09307,
- -.1133,-.1372,-.1632,-.1853,-.1994,-.2356,-.2817,-.3341,-.277,
- -.2473,-.1719,-.1151,-.02484,-.01973,-.03945,-.04473,-.05943,
- -.07357,-.0837,-.09951,-.1207,-.1458,-.1729,-.1958,-.2104,-.2477,
- -.2949,-.3459,-.2856,-.2547,-.1764,-.118,-.02586,-.02142,-.04242,
- -.04806,-.06375,-.07879,-.08947,-.1061,-.1284,-.1545,-.1827,
- -.2065,-.2215,-.2598,-.3079,-.3572,-.2934,-.2613,-.1805,-.1205,
- -.02679,-.02317,-.04549,-.05149,-.06827,-.08415,-.09546,-.1129,
- -.1362,-.1634,-.1927,-.2171,-.2327,-.2718,-.3206,-.3677,-.3005,
- -.2671,-.1841,-.1226,-.02761,-.02491,-.04867,-.05509,-.07298,
- -.08976,-.1016,-.1199,-.1442,-.1725,-.2028,-.228,-.2438,-.2839,
- -.3331,-.3774,-.3068,-.2721,-.1871,-.1242,-.02828,-.02672,-.05193,
- -.05882,-.07782,-.0956,-.1079,-.127,-.1523,-.1818,-.213,-.2388,
- -.2548,-.2958,-.3453,-.3862,-.3124,-.2764,-.1893,-.1254,-.02875,
- -.02768,-.05365,-.06073,-.08034,-.09853,-.1112,-.1307,-.1565,
- -.1865,-.2181,-.2442,-.2604,-.3016,-.3512,-.3903,-.3148,-.2783,
- -.1901,-.1258,-.02888,-.02862,-.05536,-.06269,-.08286,-.1016,
- -.1144,-.1344,-.1607,-.1912,-.2232,-.2496,-.2659,-.3073,-.357,
- -.3941,-.3171,-.2801,-.1907,-.1261,-.02893,-.0306,-.059,-.06675,
- -.08811,-.1077,-.1212,-.1419,-.1692,-.2006,-.2335,-.2602,-.2769,
- -.3186,-.368,-.401,-.3206,-.283,-.1915,-.1261,-.02891,-.03261,
- -.06284,-.07103,-.09354,-.1141,-.1282,-.1497,-.1778,-.2101,-.2436,
- -.2708,-.2877,-.3295,-.3785,-.4069,-.323,-.2845,-.1917,-.1256,
- -.02886,-.03468,-.06686,-.07555,-.09913,-.1207,-.1353,-.1575,
- -.1866,-.2196,-.2537,-.2813,-.2981,-.3401,-.3884,-.4116,-.3243,
- -.2848,-.1915,-.1246,-.02874,-.03687,-.07111,-.08027,-.1049,
- -.1274,-.1425,-.1656,-.1955,-.2291,-.2637,-.2915,-.3083,-.3501,
- -.3974,-.4151,-.3246,-.2842,-.1903,-.123,-.02838,-.03921,-.07559,
- -.08518,-.1109,-.1343,-.15,-.1737,-.2043,-.2385,-.2733,-.3013,
- -.3181,-.3594,-.4054,-.4173,-.3237,-.2829,-.1882,-.1208,-.02775,
- -.04172,-.0803,-.09029,-.117,-.1413,-.1576,-.182,-.2132,-.2477,
- -.2827,-.3106,-.3274,-.368,-.4125,-.4181,-.3218,-.2807,-.1851,
- -.1182,-.02689,-.04438,-.08522,-.09565,-.1234,-.1485,-.1653,
- -.1902,-.222,-.2567,-.2917,-.3194,-.336,-.3758,-.4185,-.4173,
- -.3189,-.2775,-.1812,-.115,-.02574,-.04723,-.09036,-.1012,-.1299,
- -.1557,-.173,-.1985,-.2305,-.2654,-.3003,-.3276,-.344,-.3826,
- -.4233,-.4152,-.3147,-.2732,-.1766,-.1112,-.02438,-.05028,-.09562,
- -.1069,-.1366,-.1629,-.1807,-.2066,-.2389,-.2736,-.3082,-.335,
- -.3512,-.3883,-.4267,-.4119,-.3092,-.2676,-.1716,-.1068,-.02294,
- -.05349,-.101,-.1127,-.1432,-.1702,-.1882,-.2144,-.247,-.2814,
- -.3153,-.3416,-.3573,-.3931,-.4288,-.407,-.3024,-.2606,-.1661,
- -.1017,-.02136,-.05685,-.1065,-.1186,-.15,-.1774,-.1955,-.222,
- -.2545,-.2886,-.3218,-.3473,-.3624,-.3966,-.4294,-.4004,-.2946,
- -.2527,-.1597,-.09625,-.01946,-.06038,-.1121,-.1245,-.1566,-.1844,
- -.2027,-.2292,-.2615,-.295,-.3272,-.3518,-.3663,-.3985,-.4284,
- -.3924,-.2857,-.2444,-.1524,-.09017,-.01716,-.06401,-.1176,-.1304,
- -.1632,-.191,-.2094,-.2358,-.2678,-.3005,-.3315,-.355,-.3689,
- -.3989,-.4257,-.3831,-.2758,-.2351,-.1444,-.08368,-.01456,-.0677,
- -.1231,-.1362,-.1694,-.1973,-.2156,-.2417,-.2732,-.305,-.3347,
- -.3569,-.37,-.3978,-.4213,-.3721,-.2651,-.2249,-.1358,-.07706,
- -.01179,-.07138,-.1285,-.1418,-.1753,-.2031,-.2211,-.2469,-.2776,
- -.3083,-.3365,-.3573,-.3694,-.3951,-.4153,-.3595,-.2534,-.2138,
- -.1266,-.07029,-.008944,-.07509,-.1336,-.1471,-.1807,-.2082,
- -.2259,-.251,-.2808,-.3102,-.3367,-.356,-.3672,-.3905,-.4072,
- -.346,-.2406,-.2017,-.1175,-.06295,-.00603,-.07871,-.1382,-.1518,
- -.1853,-.2125,-.2296,-.254,-.2828,-.3107,-.3352,-.3531,-.3632,
- -.3841,-.3973,-.3313,-.2269,-.1889,-.1082,-.05528,-.00285,-.08211,
- -.1423,-.1559,-.1891,-.2157,-.2323,-.2557,-.2831,-.3095,-.3321,
- -.3483,-.3573,-.3757,-.3857,-.3152,-.213,-.1762,-.09801,-.04748,
- 8.254e-4,-.08523,-.1458,-.1593,-.1919,-.2177,-.2337,-.256,-.2819,
- -.3064,-.3271,-.3414,-.3496,-.3652,-.3721,-.2982,-.1985,-.1633,
- -.08756,-.03938,.004851,-.08791,-.1484,-.1617,-.1936,-.2184,
- -.2336,-.2546,-.2789,-.3015,-.3201,-.3327,-.3397,-.3529,-.3568,
- -.2804,-.1835,-.1496,-.07742,-.03115,.00891,-.09009,-.15,-.163,
- -.1938,-.2176,-.2319,-.2514,-.274,-.2946,-.311,-.322,-.3278,
- -.3387,-.3399,-.2616,-.1682,-.1354,-.06735,-.02323,.01301,-.09154,
- -.1505,-.163,-.1926,-.215,-.2283,-.2464,-.267,-.2856,-.3,-.3092,
- -.314,-.3226,-.3214,-.2422,-.153,-.1215,-.05708,-.01557,.01724,
- -.09222,-.1496,-.1616,-.1896,-.2107,-.2229,-.2394,-.2581,-.2746,
- -.2867,-.2945,-.2983,-.3048,-.3013,-.2225,-.1376,-.1076,-.04707,
- -.008146,.02144,-.09185,-.1473,-.1587,-.1849,-.2044,-.2155,-.2304,
- -.2469,-.2616,-.2718,-.278,-.2804,-.2856,-.2805,-.202,-.123,-.094,
- -.03691,-.001446,.0257,-.09049,-.1433,-.154,-.1783,-.1961,-.2061,
- -.2193,-.2337,-.2464,-.2549,-.2595,-.2613,-.2646,-.2583,-.1821,
- -.1083,-.08107,-.02738,.00553,.03033,-.08802,-.1377,-.1475,-.1697,
- -.1858,-.1948,-.2063,-.2188,-.2294,-.2361,-.2395,-.2409,-.2424,
- -.2349,-.1631,-.09318,-.06851,-.01892,.01275,.03518,-.08418,
- -.1303,-.1393,-.1593,-.1737,-.1813,-.1913,-.202,-.2109,-.216,
- -.2185,-.219,-.2195,-.2114,-.144,-.07926,-.05633,-.01086,.01925,
- .03978,-.07929,-.1215,-.1294,-.1473,-.1595,-.1665,-.175,-.1835,
- -.1905,-.1948,-.1958,-.1967,-.1954,-.1874,-.1252,-.06647,-.04594,
- -.002282,.0251,.04412,-.07309,-.111,-.1179,-.1334,-.1442,-.15,
- -.1569,-.1641,-.1696,-.1725,-.1732,-.1735,-.1718,-.1638,-.1069,
- -.05371,-.03472,.005347,.03026,.04825,-.0658,-.09908,-.1053,
- -.1183,-.1277,-.1321,-.1378,-.1438,-.1483,-.1501,-.1505,-.1498,
- -.1486,-.1411,-.08852,-.04195,-.02335,.01293,.03444,.05177,-.0578,
- -.08654,-.09168,-.1027,-.11,-.114,-.1185,-.1228,-.1261,-.1277,
- -.1272,-.1269,-.125,-.1184,-.07094,-.03037,-.01346,.02113,.03918,
- .0546,-.04918,-.07293,-.07731,-.08599,-.09253,-.09509,-.09848,
- -.1025,-.1049,-.1051,-.1053,-.1043,-.103,-.09632,-.05451,-.01726,
- -.001714,.02784,.04471,.05699,-.04018,-.05959,-.06325,-.06991,
- -.07509,-.07652,-.07936,-.0821,-.08429,-.08435,-.08424,-.08209,
- -.08201,-.07641,-.03645,-.006639,.008967,.03647,.04838,.05823,
- -.03185,-.04695,-.04939,-.05469,-.05763,-.05964,-.06174,-.06267,
- -.06387,-.06467,-.06322,-.06269,-.06086,-.05653,-.02061,.004547,
- .01804,.04476,.05222,.05715,-.02399,-.0343,-.0362,-.03963,-.04234,
- -.0432,-.04421,-.04585,-.04619,-.04561,-.04538,-.04434,-.04285,
- -.03796,-.006627,.01789,.03055,.04847,.05531,.05342,-.01621,
- -.02357,-.02499,-.02695,-.02868,-.02818,-.02929,-.02919,-.03053,
- -.02987,-.02927,-.02571,-.02673,-.02227,.01133,.027,.0396,.05261,
- .05415,.04631,-.01136,-.01358,-.01245,-.0146,-.01415,-.01719,
- -.01589,-.01669,-.01253,-.01121,-.0103,-.01453,-.006035,9.91e-4,
- .01676,.0422,.04239,.04889,.05576,.03401,-.007363,-.002723,
- 1.652e-4,-.001422,-.001035,-.006913,-.001659,-.007899,.0038,
- .008263,.006477,-.00685,.01241,.02337,.009972,.05411,.04046,
- .03218,.05041,.01763,.002718,.003655,.006597,.004893,.005729,
- .003746,.005216,.002972,.009025,.01151,.01014,.006172,.01335,
- .01932,.009494,.02476,.01701,.009915,.01669,.003855,1.537e-20,
- 3.156e-20,3.584e-20,2.603e-20,1.868e-21,1.868e-20,3.065e-20,
- 2.956e-20,4.461e-21,-7.992e-23,6.269e-20,-1.118e-20,-1.961e-20,
- -4.703e-20,-9.754e-21,-1.62e-19,-8.898e-20,-4.202e-20,3.465e-21,
- -5.923e-20 };
- static doublereal uhr[1660] /* was [20][83] */ = { -.1683,-.1692,-.1705,
- -.1751,-.1805,-.1851,-.1939,-.2078,-.2255,-.2466,-.2671,-.2816,
- -.3231,-.387,-.5767,-.6058,-.5984,-.5521,-.4886,-.3196,-.1666,
- -.1675,-.1687,-.1732,-.1785,-.1831,-.1918,-.2055,-.2229,-.2436,
- -.2639,-.2782,-.3191,-.382,-.5675,-.5946,-.5867,-.5399,-.4774,
- -.3128,-.1609,-.1617,-.1628,-.167,-.172,-.1763,-.1844,-.1975,
- -.2138,-.2333,-.2524,-.2661,-.3044,-.3635,-.5318,-.5508,-.5407,
- -.491,-.4325,-.2855,-.1545,-.1561,-.1573,-.1615,-.1662,-.1704,
- -.1782,-.1903,-.2058,-.2244,-.242,-.2548,-.2904,-.345,-.49,-.4965,
- -.4824,-.4261,-.3705,-.2438,-.1475,-.1509,-.1524,-.157,-.1618,
- -.1661,-.174,-.1858,-.2011,-.2192,-.236,-.2481,-.2822,-.3336,
- -.4589,-.452,-.4333,-.3694,-.3132,-.1991,-.1394,-.1451,-.1469,
- -.1524,-.1579,-.1625,-.1707,-.1828,-.1982,-.2163,-.233,-.245,
- -.2784,-.328,-.4414,-.4228,-.4002,-.3292,-.2692,-.1599,-.1299,
- -.1383,-.1406,-.1472,-.1535,-.1585,-.1672,-.18,-.1958,-.2141,
- -.2312,-.2432,-.2767,-.3257,-.4325,-.4053,-.3797,-.303,-.2385,
- -.1282,-.1192,-.1303,-.1332,-.1409,-.1481,-.1536,-.1628,-.1764,
- -.1927,-.2115,-.229,-.2411,-.2749,-.3238,-.4271,-.3942,-.3663,
- -.2853,-.2168,-.1026,-.1076,-.1215,-.1248,-.1338,-.1417,-.1479,
- -.1577,-.172,-.1888,-.2082,-.2261,-.2386,-.2725,-.3216,-.423,
- -.3865,-.3571,-.2727,-.2012,-.08219,-.0954,-.1119,-.1159,-.1258,
- -.1349,-.1413,-.1518,-.1669,-.1846,-.2043,-.2228,-.2351,-.2699,
- -.3193,-.4193,-.3809,-.3504,-.2638,-.1902,-.06633,-.08296,-.1019,
- -.1064,-.1174,-.1274,-.1341,-.1453,-.161,-.1795,-.1998,-.2188,
- -.231,-.2664,-.3162,-.4158,-.3762,-.3452,-.2573,-.1821,-.05402,
- -.07076,-.09168,-.09649,-.1086,-.1191,-.1265,-.1384,-.1545,-.1735,
- -.1946,-.2136,-.2265,-.2619,-.3121,-.4119,-.3717,-.341,-.252,
- -.1759,-.04447,-.05893,-.08136,-.08643,-.09941,-.1106,-.1186,
- -.1309,-.1477,-.1671,-.1887,-.2081,-.2214,-.2568,-.3073,-.4072,
- -.3671,-.3365,-.2473,-.1711,-.03721,-.04759,-.07113,-.07656,
- -.09014,-.1021,-.1102,-.123,-.1405,-.1605,-.1825,-.2023,-.2155,
- -.2515,-.3021,-.4016,-.362,-.3314,-.2428,-.1671,-.03163,-.03696,
- -.06131,-.06697,-.08106,-.09344,-.1019,-.1152,-.1329,-.1535,-.176,
- -.196,-.2092,-.2455,-.2965,-.3952,-.3564,-.3259,-.238,-.1633,
- -.02718,-.02719,-.05187,-.05761,-.07211,-.08482,-.09357,-.1072,
- -.1252,-.1462,-.1691,-.1893,-.2026,-.2391,-.29,-.3882,-.35,-.3197,
- -.2332,-.1593,-.02343,-.01822,-.04284,-.04865,-.06334,-.0764,
- -.08525,-.09906,-.1175,-.1387,-.1618,-.1823,-.1956,-.2323,-.2831,
- -.3806,-.3428,-.313,-.228,-.155,-.02005,-.01004,-.03436,-.04014,
- -.05492,-.06808,-.07711,-.09106,-.1096,-.131,-.1544,-.175,-.1884,
- -.2249,-.2756,-.3723,-.335,-.3059,-.2221,-.1504,-.01687,-.002599,
- -.02636,-.03205,-.04679,-.05996,-.06908,-.08309,-.1017,-.1232,
- -.1467,-.1673,-.1808,-.2171,-.2676,-.3632,-.3266,-.2981,-.2158,
- -.1454,-.01383,.004191,-.01881,-.02439,-.03893,-.05207,-.06115,
- -.07515,-.09372,-.1153,-.1388,-.1594,-.1728,-.209,-.2591,-.3534,
- -.3174,-.2895,-.209,-.1402,-.01089,.01039,-.01167,-.0171,-.03135,
- -.04438,-.05335,-.06723,-.08572,-.1072,-.1307,-.1512,-.1644,
- -.2004,-.25,-.3428,-.3075,-.2802,-.2017,-.1346,-.007955,.01609,
- -.004909,-.01016,-.02403,-.03685,-.04566,-.05937,-.07766,-.09901,
- -.1223,-.1426,-.1557,-.1913,-.2403,-.3313,-.2969,-.2702,-.1938,
- -.1285,-.004932,.02137,.001533,-.00348,-.01693,-.02944,-.0381,
- -.05153,-.06952,-.09058,-.1136,-.1337,-.1466,-.1816,-.2298,-.319,
- -.2855,-.2596,-.1853,-.1219,-.001737,.02633,.007717,.002951,
- -.009997,-.02211,-.03058,-.04368,-.06124,-.08192,-.1046,-.1243,
- -.1371,-.1714,-.2187,-.3058,-.2733,-.2483,-.1761,-.1149,.001654,
- .03106,.01373,.009236,-.003159,-.01483,-.02305,-.03574,-.05284,
- -.07302,-.09524,-.1145,-.127,-.1606,-.2068,-.2917,-.2602,-.2361,
- -.1665,-.1073,.005222,.03567,.01963,.0154,.003634,-.007576,
- -.01545,-.02767,-.04421,-.06387,-.08549,-.1043,-.1164,-.1491,
- -.1941,-.2766,-.2463,-.223,-.1563,-.09929,.009004,.04023,.0255,
- .02154,.01045,-2.282e-4,-.007721,-.01942,-.03533,-.05434,-.07529,
- -.09346,-.1052,-.137,-.1806,-.2605,-.2315,-.2091,-.1453,-.09078,
- .01308,.04484,.03138,.02771,.01733,.007266,1.95e-4,-.01095,
- -.02609,-.04439,-.06458,-.08205,-.0933,-.124,-.1662,-.2431,-.2159,
- -.1945,-.1336,-.08176,.01754,.04953,.03742,.03404,.02443,.015,
- .008363,-.002114,-.01648,-.03392,-.0532,-.06991,-.08071,-.1102,
- -.1507,-.2248,-.1993,-.179,-.1211,-.07214,.0224,.05441,.04363,
- .04057,.03174,.02306,.01688,.00711,-.006367,-.02284,-.04114,
- -.05697,-.06727,-.0953,-.134,-.2052,-.1816,-.1626,-.1079,-.0619,
- .02764,.05956,.05018,.04741,.03944,.03148,.02589,.01689,.004304,
- -.01112,-.02824,-.04322,-.05284,-.07947,-.1162,-.1844,-.1629,
- -.1451,-.09412,-.051,.03327,.06502,.0571,.05465,.04756,.04044,
- .03542,.02727,.01569,.001434,-.01442,-.02843,-.0374,-.06242,
- -.09703,-.1624,-.143,-.1265,-.07967,-.03936,.03941,.07091,.06449,
- .06238,.05622,.05002,.04561,.03836,.02791,.01493,3.993e-4,-.01248,
- -.02079,-.04403,-.07642,-.139,-.122,-.1071,-.06432,-.02691,.04619,
- .07728,.07247,.07075,.06557,.06036,.05655,.0503,.04108,.02953,
- .01642,.004781,-.002916,-.02415,-.05423,-.1141,-.09988,-.08671,
- -.04798,-.01377,.05358,.08429,.08112,.07981,.0757,.07158,.06843,
- .06322,.05538,.04533,.03373,.02342,.01647,-.002749,-.03043,
- -.08766,-.07664,-.06516,-.03074,6.039e-5,.06158,.09207,.09063,
- .08974,.08684,.08377,.08143,.07734,.07092,.06244,.05256,.04355,
- .03753,.02029,-.004862,-.05953,-.05214,-.04238,-.01255,.01462,
- .07025,.1007,.1011,.1007,.09909,.09721,.09566,.09277,.08791,
- .08117,.07304,.06549,.06036,.04528,.02265,-.02973,-.02643,-.0184,
- .006715,.02999,.07974,.1103,.1126,.1127,.1126,.1121,.1113,.1097,
- .1066,.1017,.09537,.0894,.08519,.07237,.05229,.001805,7.463e-4,
- .00681,.02704,.04641,.09017,.1212,.1254,.1261,.1277,.1285,.1287,
- .1284,.1271,.1241,.1199,.1154,.1122,.1017,.08431,.03501,.02965,
- .03332,.04837,.06409,.1017,.1333,.1398,.1412,.1445,.1467,.1479,
- .1491,.1496,.1489,.1468,.1439,.1416,.1336,.1189,.07009,.06005,
- .06119,.0709,.08289,.1144,.147,.1558,.1579,.1632,.1671,.1693,.172,
- .1746,.1761,.1762,.175,.1737,.1682,.1559,.1074,.09169,.09053,
- .09491,.1026,.1283,.1545,.1646,.1671,.1733,.1781,.1809,.1845,
- .1881,.1907,.1919,.1916,.1909,.1864,.1754,.127,.1081,.1058,.1074,
- .1129,.1357,.1624,.1739,.1768,.1841,.1898,.1932,.1975,.2023,.2061,
- .2084,.2091,.2089,.2056,.1957,.147,.1249,.1215,.1203,.1235,.1436,
- .1798,.1944,.198,.2076,.2152,.2198,.226,.233,.2392,.2439,.2463,
- .2472,.2462,.2387,.1886,.16,.1541,.147,.1461,.1605,.1994,.2176,
- .2221,.234,.2437,.2496,.2578,.267,.2758,.2829,.2871,.2889,.2904,
- .2851,.2322,.1971,.1884,.1751,.1705,.1793,.2216,.2438,.2494,.2637,
- .2756,.283,.2932,.3049,.3163,.3258,.3318,.3346,.3383,.3348,.2785,
- .2359,.2243,.2051,.1965,.2003,.247,.2737,.2802,.2972,.3115,.3203,
- .3328,.3471,.361,.3729,.3807,.3844,.3902,.3882,.3272,.2766,.2621,
- .2371,.2244,.2236,.2758,.3075,.3152,.335,.3518,.3622,.3769,.3939,
- .4104,.4247,.4342,.4388,.4465,.4456,.3784,.3194,.302,.271,.2545,
- .2496,.3088,.3461,.355,.3777,.3972,.4093,.4263,.4461,.4651,.4815,
- .4928,.4981,.5074,.5071,.4322,.3645,.3441,.307,.2869,.2786,.3467,
- .3899,.4001,.4261,.4482,.4621,.4816,.504,.5254,.544,.5566,.5628,
- .5731,.5729,.489,.4119,.3888,.3454,.3219,.311,.3902,.4399,.4514,
- .4808,.5057,.5214,.5433,.5683,.592,.6125,.6263,.6333,.644,.6432,
- .5486,.4617,.4361,.3865,.3598,.3472,.4401,.4967,.5098,.5428,.5705,
- .5879,.6121,.6398,.6657,.6877,.7024,.7096,.7208,.7186,.6108,.5146,
- .4857,.4307,.4014,.3883,.4976,.5615,.5763,.613,.6434,.6625,.689,
- .719,.7469,.7701,.7854,.7926,.8036,.799,.6761,.5701,.5378,.4786,
- .4468,.4348,.5638,.6352,.6517,.6924,.7255,.7461,.7746,.8069,.8362,
- .8601,.8755,.8827,.8925,.8845,.7449,.6283,.5931,.5304,.4963,.4871,
- .6399,.7194,.7376,.7821,.8178,.8398,.8701,.904,.9344,.9584,.9734,
- .9802,.9879,.9754,.8168,.6899,.6526,.5861,.5505,.5462,.7277,.8153,
- .8352,.8834,.9214,.9446,.9763,1.011,1.042,1.066,1.08,1.085,1.09,
- 1.072,.8919,.7556,.7162,.6462,.6109,.6134,.8287,.9245,.9461,.9977,
- 1.038,1.062,1.094,1.13,1.16,1.182,1.194,1.199,1.2,1.174,.9705,
- .8252,.7841,.7119,.6778,.6898,.9452,1.049,1.072,1.126,1.168,1.192,
- 1.225,1.26,1.289,1.309,1.318,1.321,1.316,1.282,1.053,.8988,.8567,
- .7842,.7523,.7771,1.079,1.19,1.214,1.271,1.313,1.338,1.37,1.403,
- 1.43,1.446,1.452,1.452,1.44,1.396,1.14,.9776,.9346,.8637,.8358,
- .8773,1.234,1.351,1.376,1.433,1.475,1.499,1.529,1.56,1.583,1.594,
- 1.595,1.592,1.572,1.516,1.23,1.063,1.019,.951,.9299,.9922,1.411,
- 1.532,1.557,1.615,1.655,1.678,1.705,1.731,1.748,1.753,1.748,1.741,
- 1.711,1.642,1.324,1.153,1.111,1.049,1.035,1.124,1.614,1.737,1.762,
- 1.817,1.855,1.875,1.898,1.917,1.927,1.924,1.912,1.9,1.858,1.773,
- 1.424,1.251,1.211,1.158,1.154,1.275,1.847,1.968,1.992,2.043,2.075,
- 2.091,2.108,2.12,2.119,2.106,2.085,2.068,2.012,1.91,1.529,1.357,
- 1.32,1.28,1.289,1.45,2.113,2.228,2.249,2.292,2.318,2.329,2.338,
- 2.338,2.325,2.3,2.268,2.246,2.174,2.052,1.639,1.472,1.442,1.418,
- 1.443,1.652,2.414,2.518,2.535,2.568,2.583,2.587,2.586,2.572,2.545,
- 2.505,2.462,2.432,2.342,2.2,1.755,1.599,1.576,1.574,1.621,1.886,
- 2.756,2.84,2.852,2.87,2.872,2.867,2.853,2.823,2.779,2.721,2.665,
- 2.626,2.517,2.352,1.878,1.74,1.725,1.752,1.827,2.157,3.141,3.196,
- 3.2,3.199,3.185,3.169,3.139,3.089,3.024,2.947,2.875,2.828,2.698,
- 2.509,2.01,1.895,1.895,1.957,2.064,2.473,3.571,3.587,3.582,3.556,
- 3.521,3.493,3.443,3.37,3.281,3.182,3.094,3.038,2.883,2.669,2.154,
- 2.071,2.089,2.194,2.34,2.839,4.049,4.014,3.996,3.939,3.879,3.836,
- 3.764,3.665,3.549,3.426,3.319,3.252,3.073,2.835,2.31,2.271,2.311,
- 2.473,2.665,3.268,4.575,4.475,4.442,4.348,4.259,4.197,4.1,3.971,
- 3.826,3.676,3.55,3.472,3.267,3.005,2.482,2.504,2.571,2.803,3.05,
- 3.773,5.149,4.967,4.916,4.78,4.657,4.574,4.448,4.287,4.11,3.931,
- 3.785,3.695,3.465,3.179,2.677,2.778,2.878,3.198,3.512,4.366,5.768,
- 5.488,5.416,5.23,5.068,4.962,4.806,4.61,4.398,4.189,4.023,3.921,
- 3.667,3.361,2.904,3.109,3.253,3.678,4.072,5.063,6.424,6.031,5.936,
- 5.693,5.49,5.359,5.169,4.935,4.689,4.45,4.263,4.151,3.874,3.554,
- 3.178,3.521,3.722,4.272,4.761,5.892,7.111,6.589,6.467,6.165,5.916,
- 5.759,5.535,5.263,4.981,4.713,4.507,4.386,4.091,3.765,3.521,4.046,
- 4.319,5.025,5.626,6.882,7.816,7.152,7.003,6.636,6.342,6.157,5.898,
- 5.59,5.275,4.982,4.761,4.631,4.328,4.01,3.972,4.745,5.105,6.008,
- 6.735,8.075,8.524,7.712,7.534,7.103,6.763,6.553,6.261,5.919,5.577,
- 5.264,5.034,4.9,4.601,4.316,4.601,5.712,6.187,7.326,8.192,9.525,
- 9.22,8.26,8.054,7.563,7.181,6.949,6.631,6.262,5.901,5.581,5.354,
- 5.225,4.951,4.739,5.536,7.112,7.737,9.156,10.16,11.3,9.895,8.799,
- 8.569,8.029,7.615,7.368,7.033,6.653,6.294,5.989,5.782,5.673,5.466,
- 5.399,7.019,9.242,10.06,11.79,12.89,13.5,10.56,9.365,9.12,8.553,
- 8.129,7.881,7.553,7.195,6.874,6.627,6.483,6.42,6.362,6.569,9.541,
- 12.66,13.71,15.76,16.84,16.26,11.34,10.12,9.879,9.339,8.956,8.738,
- 8.466,8.206,8.007,7.906,7.919,7.96,8.219,8.955,14.18,18.47,19.76,
- 21.98,22.66,19.69,12.87,11.85,11.66,11.29,11.07,10.97,10.88,10.89,
- 11.03,11.3,11.66,11.93,12.87,14.66,23.5,29.,30.36,32.05,31.52,
- 23.4,20.31,20.01,20.02,20.13,20.36,20.56,20.95,21.57,22.44,23.5,
- 24.55,25.24,27.42,30.92,43.19,47.46,47.65,45.85,41.98,26.26,53.92,
- 49.4,48.63,47.03,46.04,45.52,45.01,44.63,44.53,44.72,45.08,45.37,
- 46.54,48.62,55.84,56.54,55.52,51.19,45.6,27.04 };
-
- /* System generated locals */
- integer i__1;
-
- /* Local variables */
- integer i__, j;
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real ph,qh,uh >*/
-/*< common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p) >*/
-/*< real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p) >*/
-/* - to vary the number of quadratures */
-/*< real ex,sc,asy,vi >*/
-/*< common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4) >*/
-/*< real ex_m(20),sc_m(20),asy_m(20) >*/
-/*< integer i,j >*/
-/* Biomass burning model */
-/* Parameters and reflractive indices - AERONET measurements */
-/* (see file BBM-params.dat) */
-/* Extinction coefficients are calculated in km-1 */
-/* *************** MIE (asy) ****************** */
-/*< >*/
-/* *************** MIE (ext&sca) ****************** */
-/*< >*/
-/* ************** MIE (phase fun ph) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun qh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun uh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< do 1 i=1,20 >*/
- for (i__ = 1; i__ <= 20; ++i__) {
-/*< asy(1,i)=asy_m(i) >*/
- sixs_coef__1.asy[(i__ << 2) - 4] = asy_m__[i__ - 1];
-/*< ex(1,i)=ex_m(i) >*/
- sixs_coef__1.ex[(i__ << 2) - 4] = ex_m__[i__ - 1];
-/*< sc(1,i)=sc_m(i) >*/
- sixs_coef__1.sc[(i__ << 2) - 4] = sc_m__[i__ - 1];
-/*< do 1 j=1,nquad >*/
- i__1 = num_quad__1.nquad;
- for (j = 1; j <= i__1; ++j) {
-/*< ph(i,j)=phr(i,j) >*/
- sixs_aerbas__1.ph[i__ + j * 20 - 21] = phr[i__ + j * 20 - 21];
-/*< qh(i,j)=qhr(i,j) >*/
- sixs_aerbas__1.qh[i__ + j * 20 - 21] = qhr[i__ + j * 20 - 21];
-/*< uh(i,j)=uhr(i,j) >*/
- sixs_aerbas__1.uh[i__ + j * 20 - 21] = uhr[i__ + j * 20 - 21];
-/*< 1 continue >*/
-/* L1: */
- }
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* bbm_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/BBM.f b/Modules/ThirdParty/6S/src/6SV1.0B/BBM.f
deleted file mode 100644
index 387c73b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/BBM.f
+++ /dev/null
@@ -1,1132 +0,0 @@
- subroutine bbm
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real ph,qh,uh
- common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p)
- real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p)
-c - to vary the number of quadratures
- real ex,sc,asy,vi
- common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4)
- real ex_m(20),sc_m(20),asy_m(20)
- integer i,j
-
-c Biomass burning model
-c Parameters and reflractive indices - AERONET measurements
-c (see file BBM-params.dat)
-c Extinction coefficients are calculated in km-1
-
-c*************** MIE (asy) ******************
- data (asy_m(j),j=1,20)/
- a 0.709,0.689,0.684,0.671,0.659,0.651,0.639,0.623,0.605,0.586,
- a 0.570,0.560,0.534,0.500,0.455,0.493,0.515,0.573,0.619,0.698/
-c*************** MIE (ext&sca) ******************
- data (ex_m(j),sc_m(j),j=1,20) /
- a 0.8254323E-01,0.7805500E-01,0.6873854E-01,0.6486657E-01,
- a 0.6574472E-01,0.6199898E-01,0.5858313E-01,0.5513438E-01,
- a 0.5299549E-01,0.4977275E-01,0.4958472E-01,0.4650205E-01,
- a 0.4491529E-01,0.4202277E-01,0.3959285E-01,0.3691657E-01,
- a 0.3440313E-01,0.3194462E-01,0.2972500E-01,0.2746937E-01,
- a 0.2632282E-01,0.2421588E-01,0.2437306E-01,0.2235581E-01,
- a 0.1990872E-01,0.1810272E-01,0.1504618E-01,0.1349245E-01,
- a 0.6794238E-02,0.5778257E-02,0.4662405E-02,0.3859948E-02,
- a 0.4203070E-02,0.3459487E-02,0.3449567E-02,0.2823499E-02,
- a 0.3032236E-02,0.2492706E-02,0.2203834E-02,0.1881847E-02 /
-c************** MIE (phase fun ph) ***************
- DATA ((PHR(i,j),j=1,83),i= 1, 1)/
- *0.1683E+00,0.1674E+00,0.1655E+00,0.1613E+00,0.1557E+00,
- *0.1499E+00,0.1445E+00,0.1400E+00,0.1361E+00,0.1327E+00,
- *0.1299E+00,0.1276E+00,0.1257E+00,0.1239E+00,0.1222E+00,
- *0.1207E+00,0.1193E+00,0.1180E+00,0.1168E+00,0.1158E+00,
- *0.1149E+00,0.1143E+00,0.1140E+00,0.1140E+00,0.1143E+00,
- *0.1150E+00,0.1161E+00,0.1177E+00,0.1197E+00,0.1224E+00,
- *0.1256E+00,0.1295E+00,0.1340E+00,0.1392E+00,0.1453E+00,
- *0.1523E+00,0.1604E+00,0.1696E+00,0.1801E+00,0.1921E+00,
- *0.2057E+00,0.2132E+00,0.2212E+00,0.2388E+00,0.2588E+00,
- *0.2814E+00,0.3072E+00,0.3366E+00,0.3701E+00,0.4085E+00,
- *0.4524E+00,0.5027E+00,0.5606E+00,0.6270E+00,0.7033E+00,
- *0.7911E+00,0.8919E+00,0.1008E+01,0.1141E+01,0.1295E+01,
- *0.1471E+01,0.1672E+01,0.1903E+01,0.2166E+01,0.2465E+01,
- *0.2803E+01,0.3184E+01,0.3610E+01,0.4084E+01,0.4606E+01,
- *0.5175E+01,0.5789E+01,0.6442E+01,0.7125E+01,0.7826E+01,
- *0.8531E+01,0.9226E+01,0.9899E+01,0.1057E+02,0.1134E+02,
- *0.1287E+02,0.2031E+02,0.5392E+02 /
- DATA ((PHR(i,j),j=1,83),i= 2, 2)/
- *0.1692E+00,0.1683E+00,0.1670E+00,0.1642E+00,0.1600E+00,
- *0.1553E+00,0.1506E+00,0.1464E+00,0.1423E+00,0.1384E+00,
- *0.1349E+00,0.1318E+00,0.1291E+00,0.1267E+00,0.1247E+00,
- *0.1230E+00,0.1216E+00,0.1204E+00,0.1195E+00,0.1188E+00,
- *0.1183E+00,0.1182E+00,0.1184E+00,0.1189E+00,0.1198E+00,
- *0.1212E+00,0.1230E+00,0.1253E+00,0.1281E+00,0.1315E+00,
- *0.1355E+00,0.1403E+00,0.1458E+00,0.1523E+00,0.1596E+00,
- *0.1680E+00,0.1776E+00,0.1884E+00,0.2007E+00,0.2146E+00,
- *0.2303E+00,0.2390E+00,0.2482E+00,0.2684E+00,0.2914E+00,
- *0.3175E+00,0.3472E+00,0.3809E+00,0.4193E+00,0.4629E+00,
- *0.5126E+00,0.5690E+00,0.6333E+00,0.7064E+00,0.7897E+00,
- *0.8845E+00,0.9924E+00,0.1115E+01,0.1255E+01,0.1413E+01,
- *0.1592E+01,0.1794E+01,0.2022E+01,0.2278E+01,0.2564E+01,
- *0.2882E+01,0.3234E+01,0.3621E+01,0.4043E+01,0.4500E+01,
- *0.4988E+01,0.5505E+01,0.6045E+01,0.6599E+01,0.7160E+01,
- *0.7718E+01,0.8265E+01,0.8803E+01,0.9368E+01,0.1012E+02,
- *0.1185E+02,0.2001E+02,0.4940E+02 /
- DATA ((PHR(i,j),j=1,83),i= 3, 3)/
- *0.1705E+00,0.1696E+00,0.1684E+00,0.1659E+00,0.1619E+00,
- *0.1573E+00,0.1529E+00,0.1487E+00,0.1446E+00,0.1406E+00,
- *0.1370E+00,0.1338E+00,0.1308E+00,0.1283E+00,0.1263E+00,
- *0.1245E+00,0.1230E+00,0.1218E+00,0.1208E+00,0.1202E+00,
- *0.1198E+00,0.1197E+00,0.1200E+00,0.1206E+00,0.1216E+00,
- *0.1231E+00,0.1251E+00,0.1276E+00,0.1306E+00,0.1342E+00,
- *0.1384E+00,0.1434E+00,0.1492E+00,0.1558E+00,0.1635E+00,
- *0.1722E+00,0.1821E+00,0.1933E+00,0.2061E+00,0.2205E+00,
- *0.2368E+00,0.2457E+00,0.2552E+00,0.2761E+00,0.2998E+00,
- *0.3268E+00,0.3573E+00,0.3920E+00,0.4314E+00,0.4761E+00,
- *0.5269E+00,0.5847E+00,0.6503E+00,0.7249E+00,0.8096E+00,
- *0.9058E+00,0.1015E+01,0.1139E+01,0.1279E+01,0.1438E+01,
- *0.1617E+01,0.1819E+01,0.2045E+01,0.2298E+01,0.2580E+01,
- *0.2893E+01,0.3238E+01,0.3615E+01,0.4025E+01,0.4466E+01,
- *0.4937E+01,0.5433E+01,0.5949E+01,0.6477E+01,0.7010E+01,
- *0.7540E+01,0.8059E+01,0.8573E+01,0.9124E+01,0.9883E+01,
- *0.1167E+02,0.2002E+02,0.4863E+02 /
- DATA ((PHR(i,j),j=1,83),i= 4, 4)/
- *0.1751E+00,0.1741E+00,0.1731E+00,0.1710E+00,0.1676E+00,
- *0.1636E+00,0.1595E+00,0.1556E+00,0.1516E+00,0.1474E+00,
- *0.1435E+00,0.1399E+00,0.1367E+00,0.1338E+00,0.1315E+00,
- *0.1295E+00,0.1278E+00,0.1265E+00,0.1256E+00,0.1250E+00,
- *0.1247E+00,0.1248E+00,0.1253E+00,0.1262E+00,0.1275E+00,
- *0.1292E+00,0.1315E+00,0.1344E+00,0.1378E+00,0.1419E+00,
- *0.1466E+00,0.1521E+00,0.1585E+00,0.1658E+00,0.1741E+00,
- *0.1836E+00,0.1944E+00,0.2067E+00,0.2206E+00,0.2363E+00,
- *0.2540E+00,0.2637E+00,0.2741E+00,0.2967E+00,0.3223E+00,
- *0.3512E+00,0.3839E+00,0.4208E+00,0.4626E+00,0.5100E+00,
- *0.5636E+00,0.6243E+00,0.6930E+00,0.7707E+00,0.8585E+00,
- *0.9578E+00,0.1070E+01,0.1196E+01,0.1338E+01,0.1497E+01,
- *0.1675E+01,0.1874E+01,0.2095E+01,0.2341E+01,0.2612E+01,
- *0.2909E+01,0.3234E+01,0.3587E+01,0.3966E+01,0.4371E+01,
- *0.4798E+01,0.5244E+01,0.5705E+01,0.6174E+01,0.6644E+01,
- *0.7109E+01,0.7568E+01,0.8033E+01,0.8557E+01,0.9343E+01,
- *0.1129E+02,0.2014E+02,0.4703E+02 /
- DATA ((PHR(i,j),j=1,83),i= 5, 5)/
- *0.1805E+00,0.1795E+00,0.1788E+00,0.1771E+00,0.1739E+00,
- *0.1703E+00,0.1666E+00,0.1628E+00,0.1588E+00,0.1548E+00,
- *0.1508E+00,0.1468E+00,0.1432E+00,0.1402E+00,0.1377E+00,
- *0.1355E+00,0.1338E+00,0.1324E+00,0.1314E+00,0.1308E+00,
- *0.1306E+00,0.1307E+00,0.1313E+00,0.1323E+00,0.1338E+00,
- *0.1357E+00,0.1382E+00,0.1413E+00,0.1450E+00,0.1494E+00,
- *0.1545E+00,0.1605E+00,0.1673E+00,0.1751E+00,0.1840E+00,
- *0.1942E+00,0.2058E+00,0.2188E+00,0.2336E+00,0.2504E+00,
- *0.2694E+00,0.2797E+00,0.2907E+00,0.3148E+00,0.3419E+00,
- *0.3726E+00,0.4071E+00,0.4460E+00,0.4898E+00,0.5392E+00,
- *0.5949E+00,0.6577E+00,0.7286E+00,0.8084E+00,0.8981E+00,
- *0.9990E+00,0.1112E+01,0.1239E+01,0.1381E+01,0.1539E+01,
- *0.1716E+01,0.1911E+01,0.2127E+01,0.2365E+01,0.2626E+01,
- *0.2910E+01,0.3218E+01,0.3550E+01,0.3904E+01,0.4280E+01,
- *0.4674E+01,0.5082E+01,0.5501E+01,0.5924E+01,0.6349E+01,
- *0.6769E+01,0.7187E+01,0.7620E+01,0.8133E+01,0.8960E+01,
- *0.1108E+02,0.2037E+02,0.4604E+02 /
- DATA ((PHR(i,j),j=1,83),i= 6, 6)/
- *0.1851E+00,0.1841E+00,0.1834E+00,0.1818E+00,0.1789E+00,
- *0.1755E+00,0.1720E+00,0.1686E+00,0.1648E+00,0.1604E+00,
- *0.1561E+00,0.1523E+00,0.1487E+00,0.1455E+00,0.1427E+00,
- *0.1405E+00,0.1386E+00,0.1372E+00,0.1362E+00,0.1355E+00,
- *0.1353E+00,0.1354E+00,0.1360E+00,0.1371E+00,0.1386E+00,
- *0.1406E+00,0.1432E+00,0.1464E+00,0.1503E+00,0.1548E+00,
- *0.1601E+00,0.1663E+00,0.1735E+00,0.1817E+00,0.1910E+00,
- *0.2016E+00,0.2137E+00,0.2273E+00,0.2428E+00,0.2601E+00,
- *0.2797E+00,0.2905E+00,0.3018E+00,0.3269E+00,0.3549E+00,
- *0.3865E+00,0.4221E+00,0.4622E+00,0.5073E+00,0.5580E+00,
- *0.6151E+00,0.6792E+00,0.7512E+00,0.8320E+00,0.9227E+00,
- *0.1024E+01,0.1138E+01,0.1265E+01,0.1406E+01,0.1564E+01,
- *0.1738E+01,0.1931E+01,0.2143E+01,0.2376E+01,0.2629E+01,
- *0.2905E+01,0.3202E+01,0.3521E+01,0.3860E+01,0.4217E+01,
- *0.4590E+01,0.4976E+01,0.5370E+01,0.5768E+01,0.6165E+01,
- *0.6559E+01,0.6955E+01,0.7373E+01,0.7886E+01,0.8743E+01,
- *0.1097E+02,0.2056E+02,0.4552E+02 /
- DATA ((PHR(i,j),j=1,83),i= 7, 7)/
- *0.1939E+00,0.1928E+00,0.1920E+00,0.1907E+00,0.1882E+00,
- *0.1850E+00,0.1818E+00,0.1786E+00,0.1749E+00,0.1705E+00,
- *0.1661E+00,0.1620E+00,0.1582E+00,0.1547E+00,0.1518E+00,
- *0.1493E+00,0.1472E+00,0.1456E+00,0.1445E+00,0.1437E+00,
- *0.1433E+00,0.1435E+00,0.1440E+00,0.1451E+00,0.1466E+00,
- *0.1487E+00,0.1514E+00,0.1548E+00,0.1588E+00,0.1636E+00,
- *0.1692E+00,0.1758E+00,0.1833E+00,0.1920E+00,0.2019E+00,
- *0.2131E+00,0.2258E+00,0.2403E+00,0.2565E+00,0.2748E+00,
- *0.2954E+00,0.3066E+00,0.3186E+00,0.3448E+00,0.3741E+00,
- *0.4071E+00,0.4442E+00,0.4858E+00,0.5325E+00,0.5850E+00,
- *0.6437E+00,0.7095E+00,0.7830E+00,0.8652E+00,0.9570E+00,
- *0.1059E+01,0.1173E+01,0.1300E+01,0.1440E+01,0.1595E+01,
- *0.1766E+01,0.1954E+01,0.2159E+01,0.2384E+01,0.2627E+01,
- *0.2889E+01,0.3170E+01,0.3470E+01,0.3787E+01,0.4119E+01,
- *0.4464E+01,0.4819E+01,0.5180E+01,0.5543E+01,0.5906E+01,
- *0.6268E+01,0.6637E+01,0.7039E+01,0.7558E+01,0.8471E+01,
- *0.1089E+02,0.2095E+02,0.4501E+02 /
- DATA ((PHR(i,j),j=1,83),i= 8, 8)/
- *0.2078E+00,0.2067E+00,0.2061E+00,0.2049E+00,0.2025E+00,
- *0.1997E+00,0.1970E+00,0.1939E+00,0.1901E+00,0.1858E+00,
- *0.1812E+00,0.1766E+00,0.1724E+00,0.1687E+00,0.1653E+00,
- *0.1625E+00,0.1603E+00,0.1584E+00,0.1570E+00,0.1560E+00,
- *0.1555E+00,0.1555E+00,0.1559E+00,0.1569E+00,0.1585E+00,
- *0.1606E+00,0.1634E+00,0.1669E+00,0.1711E+00,0.1762E+00,
- *0.1822E+00,0.1891E+00,0.1971E+00,0.2063E+00,0.2168E+00,
- *0.2287E+00,0.2421E+00,0.2574E+00,0.2745E+00,0.2939E+00,
- *0.3157E+00,0.3275E+00,0.3401E+00,0.3675E+00,0.3984E+00,
- *0.4329E+00,0.4716E+00,0.5149E+00,0.5634E+00,0.6175E+00,
- *0.6779E+00,0.7452E+00,0.8202E+00,0.9037E+00,0.9962E+00,
- *0.1099E+01,0.1212E+01,0.1337E+01,0.1475E+01,0.1627E+01,
- *0.1793E+01,0.1974E+01,0.2170E+01,0.2383E+01,0.2613E+01,
- *0.2858E+01,0.3120E+01,0.3397E+01,0.3687E+01,0.3990E+01,
- *0.4302E+01,0.4622E+01,0.4946E+01,0.5271E+01,0.5597E+01,
- *0.5926E+01,0.6268E+01,0.6660E+01,0.7201E+01,0.8211E+01,
- *0.1090E+02,0.2158E+02,0.4463E+02 /
- DATA ((PHR(i,j),j=1,83),i= 9, 9)/
- *0.2255E+00,0.2242E+00,0.2234E+00,0.2225E+00,0.2205E+00,
- *0.2180E+00,0.2155E+00,0.2126E+00,0.2089E+00,0.2047E+00,
- *0.2000E+00,0.1950E+00,0.1903E+00,0.1863E+00,0.1827E+00,
- *0.1796E+00,0.1770E+00,0.1748E+00,0.1731E+00,0.1719E+00,
- *0.1713E+00,0.1711E+00,0.1714E+00,0.1723E+00,0.1738E+00,
- *0.1760E+00,0.1788E+00,0.1824E+00,0.1868E+00,0.1920E+00,
- *0.1982E+00,0.2054E+00,0.2138E+00,0.2234E+00,0.2343E+00,
- *0.2468E+00,0.2610E+00,0.2770E+00,0.2951E+00,0.3154E+00,
- *0.3384E+00,0.3508E+00,0.3640E+00,0.3927E+00,0.4248E+00,
- *0.4608E+00,0.5008E+00,0.5455E+00,0.5954E+00,0.6507E+00,
- *0.7122E+00,0.7806E+00,0.8564E+00,0.9403E+00,0.1033E+01,
- *0.1135E+01,0.1247E+01,0.1370E+01,0.1505E+01,0.1651E+01,
- *0.1811E+01,0.1984E+01,0.2171E+01,0.2371E+01,0.2585E+01,
- *0.2813E+01,0.3054E+01,0.3307E+01,0.3571E+01,0.3844E+01,
- *0.4125E+01,0.4410E+01,0.4699E+01,0.4989E+01,0.5283E+01,
- *0.5584E+01,0.5909E+01,0.6301E+01,0.6881E+01,0.8013E+01,
- *0.1103E+02,0.2244E+02,0.4453E+02 /
- DATA ((PHR(i,j),j=1,83),i=10,10)/
- *0.2466E+00,0.2449E+00,0.2437E+00,0.2430E+00,0.2414E+00,
- *0.2392E+00,0.2371E+00,0.2347E+00,0.2312E+00,0.2266E+00,
- *0.2215E+00,0.2165E+00,0.2115E+00,0.2070E+00,0.2032E+00,
- *0.1998E+00,0.1968E+00,0.1944E+00,0.1925E+00,0.1910E+00,
- *0.1901E+00,0.1897E+00,0.1899E+00,0.1906E+00,0.1920E+00,
- *0.1940E+00,0.1968E+00,0.2004E+00,0.2047E+00,0.2100E+00,
- *0.2162E+00,0.2236E+00,0.2323E+00,0.2422E+00,0.2535E+00,
- *0.2665E+00,0.2812E+00,0.2979E+00,0.3167E+00,0.3378E+00,
- *0.3615E+00,0.3745E+00,0.3881E+00,0.4178E+00,0.4510E+00,
- *0.4879E+00,0.5291E+00,0.5747E+00,0.6254E+00,0.6816E+00,
- *0.7438E+00,0.8125E+00,0.8882E+00,0.9715E+00,0.1063E+01,
- *0.1164E+01,0.1273E+01,0.1393E+01,0.1523E+01,0.1665E+01,
- *0.1817E+01,0.1981E+01,0.2157E+01,0.2345E+01,0.2545E+01,
- *0.2756E+01,0.2977E+01,0.3208E+01,0.3447E+01,0.3694E+01,
- *0.3946E+01,0.4201E+01,0.4461E+01,0.4723E+01,0.4990E+01,
- *0.5273E+01,0.5590E+01,0.5997E+01,0.6635E+01,0.7913E+01,
- *0.1130E+02,0.2350E+02,0.4472E+02 /
- DATA ((PHR(i,j),j=1,83),i=11,11)/
- *0.2671E+00,0.2653E+00,0.2641E+00,0.2633E+00,0.2617E+00,
- *0.2600E+00,0.2582E+00,0.2559E+00,0.2523E+00,0.2478E+00,
- *0.2426E+00,0.2368E+00,0.2314E+00,0.2267E+00,0.2225E+00,
- *0.2187E+00,0.2155E+00,0.2127E+00,0.2105E+00,0.2088E+00,
- *0.2076E+00,0.2070E+00,0.2069E+00,0.2074E+00,0.2085E+00,
- *0.2104E+00,0.2130E+00,0.2164E+00,0.2207E+00,0.2259E+00,
- *0.2323E+00,0.2397E+00,0.2484E+00,0.2584E+00,0.2699E+00,
- *0.2832E+00,0.2982E+00,0.3152E+00,0.3343E+00,0.3559E+00,
- *0.3803E+00,0.3934E+00,0.4074E+00,0.4375E+00,0.4713E+00,
- *0.5089E+00,0.5506E+00,0.5968E+00,0.6480E+00,0.7044E+00,
- *0.7665E+00,0.8351E+00,0.9104E+00,0.9930E+00,0.1083E+01,
- *0.1182E+01,0.1289E+01,0.1405E+01,0.1531E+01,0.1667E+01,
- *0.1813E+01,0.1970E+01,0.2137E+01,0.2314E+01,0.2502E+01,
- *0.2699E+01,0.2905E+01,0.3119E+01,0.3340E+01,0.3568E+01,
- *0.3800E+01,0.4036E+01,0.4274E+01,0.4517E+01,0.4771E+01,
- *0.5044E+01,0.5363E+01,0.5792E+01,0.6492E+01,0.7926E+01,
- *0.1167E+02,0.2455E+02,0.4508E+02 /
- DATA ((PHR(i,j),j=1,83),i=12,12)/
- *0.2816E+00,0.2796E+00,0.2780E+00,0.2772E+00,0.2756E+00,
- *0.2739E+00,0.2725E+00,0.2707E+00,0.2672E+00,0.2621E+00,
- *0.2563E+00,0.2507E+00,0.2453E+00,0.2402E+00,0.2356E+00,
- *0.2316E+00,0.2281E+00,0.2252E+00,0.2228E+00,0.2209E+00,
- *0.2195E+00,0.2186E+00,0.2184E+00,0.2187E+00,0.2197E+00,
- *0.2214E+00,0.2238E+00,0.2271E+00,0.2313E+00,0.2365E+00,
- *0.2427E+00,0.2501E+00,0.2588E+00,0.2689E+00,0.2806E+00,
- *0.2939E+00,0.3090E+00,0.3262E+00,0.3456E+00,0.3673E+00,
- *0.3916E+00,0.4049E+00,0.4189E+00,0.4495E+00,0.4835E+00,
- *0.5212E+00,0.5630E+00,0.6093E+00,0.6605E+00,0.7170E+00,
- *0.7792E+00,0.8474E+00,0.9221E+00,0.1004E+01,0.1093E+01,
- *0.1190E+01,0.1296E+01,0.1410E+01,0.1533E+01,0.1665E+01,
- *0.1807E+01,0.1959E+01,0.2121E+01,0.2292E+01,0.2472E+01,
- *0.2661E+01,0.2858E+01,0.3063E+01,0.3274E+01,0.3490E+01,
- *0.3710E+01,0.3935E+01,0.4163E+01,0.4397E+01,0.4642E+01,
- *0.4911E+01,0.5236E+01,0.5684E+01,0.6430E+01,0.7968E+01,
- *0.1193E+02,0.2524E+02,0.4537E+02 /
- DATA ((PHR(i,j),j=1,83),i=13,13)/
- *0.3231E+00,0.3207E+00,0.3184E+00,0.3176E+00,0.3163E+00,
- *0.3151E+00,0.3141E+00,0.3123E+00,0.3087E+00,0.3036E+00,
- *0.2975E+00,0.2906E+00,0.2841E+00,0.2783E+00,0.2730E+00,
- *0.2683E+00,0.2642E+00,0.2605E+00,0.2573E+00,0.2548E+00,
- *0.2528E+00,0.2514E+00,0.2506E+00,0.2503E+00,0.2508E+00,
- *0.2520E+00,0.2540E+00,0.2568E+00,0.2606E+00,0.2654E+00,
- *0.2714E+00,0.2786E+00,0.2870E+00,0.2969E+00,0.3084E+00,
- *0.3217E+00,0.3369E+00,0.3540E+00,0.3734E+00,0.3955E+00,
- *0.4202E+00,0.4335E+00,0.4476E+00,0.4782E+00,0.5122E+00,
- *0.5501E+00,0.5919E+00,0.6379E+00,0.6887E+00,0.7443E+00,
- *0.8051E+00,0.8718E+00,0.9446E+00,0.1024E+01,0.1109E+01,
- *0.1202E+01,0.1302E+01,0.1410E+01,0.1525E+01,0.1648E+01,
- *0.1780E+01,0.1919E+01,0.2066E+01,0.2221E+01,0.2383E+01,
- *0.2552E+01,0.2728E+01,0.2909E+01,0.3095E+01,0.3286E+01,
- *0.3482E+01,0.3682E+01,0.3888E+01,0.4104E+01,0.4341E+01,
- *0.4615E+01,0.4964E+01,0.5479E+01,0.6374E+01,0.8228E+01,
- *0.1288E+02,0.2742E+02,0.4654E+02 /
- DATA ((PHR(i,j),j=1,83),i=14,14)/
- *0.3870E+00,0.3837E+00,0.3798E+00,0.3785E+00,0.3776E+00,
- *0.3769E+00,0.3768E+00,0.3758E+00,0.3723E+00,0.3663E+00,
- *0.3589E+00,0.3507E+00,0.3427E+00,0.3354E+00,0.3290E+00,
- *0.3230E+00,0.3177E+00,0.3129E+00,0.3088E+00,0.3052E+00,
- *0.3023E+00,0.2998E+00,0.2980E+00,0.2968E+00,0.2963E+00,
- *0.2965E+00,0.2976E+00,0.2996E+00,0.3025E+00,0.3065E+00,
- *0.3115E+00,0.3178E+00,0.3256E+00,0.3348E+00,0.3455E+00,
- *0.3581E+00,0.3727E+00,0.3892E+00,0.4080E+00,0.4294E+00,
- *0.4534E+00,0.4664E+00,0.4801E+00,0.5098E+00,0.5428E+00,
- *0.5794E+00,0.6197E+00,0.6640E+00,0.7126E+00,0.7656E+00,
- *0.8233E+00,0.8862E+00,0.9545E+00,0.1028E+01,0.1108E+01,
- *0.1193E+01,0.1284E+01,0.1382E+01,0.1486E+01,0.1597E+01,
- *0.1714E+01,0.1837E+01,0.1966E+01,0.2101E+01,0.2242E+01,
- *0.2389E+01,0.2541E+01,0.2697E+01,0.2858E+01,0.3026E+01,
- *0.3198E+01,0.3378E+01,0.3570E+01,0.3781E+01,0.4027E+01,
- *0.4334E+01,0.4757E+01,0.5416E+01,0.6585E+01,0.8967E+01,
- *0.1466E+02,0.3092E+02,0.4862E+02 /
- DATA ((PHR(i,j),j=1,83),i=15,15)/
- *0.5767E+00,0.5696E+00,0.5558E+00,0.5478E+00,0.5453E+00,
- *0.5476E+00,0.5524E+00,0.5549E+00,0.5511E+00,0.5412E+00,
- *0.5276E+00,0.5126E+00,0.4978E+00,0.4835E+00,0.4703E+00,
- *0.4585E+00,0.4479E+00,0.4384E+00,0.4298E+00,0.4219E+00,
- *0.4148E+00,0.4084E+00,0.4027E+00,0.3977E+00,0.3934E+00,
- *0.3898E+00,0.3869E+00,0.3847E+00,0.3836E+00,0.3836E+00,
- *0.3847E+00,0.3868E+00,0.3901E+00,0.3948E+00,0.4010E+00,
- *0.4088E+00,0.4182E+00,0.4293E+00,0.4424E+00,0.4574E+00,
- *0.4746E+00,0.4841E+00,0.4941E+00,0.5163E+00,0.5410E+00,
- *0.5683E+00,0.5983E+00,0.6314E+00,0.6677E+00,0.7074E+00,
- *0.7504E+00,0.7968E+00,0.8470E+00,0.9011E+00,0.9592E+00,
- *0.1022E+01,0.1088E+01,0.1159E+01,0.1235E+01,0.1315E+01,
- *0.1401E+01,0.1493E+01,0.1591E+01,0.1695E+01,0.1805E+01,
- *0.1924E+01,0.2052E+01,0.2193E+01,0.2347E+01,0.2517E+01,
- *0.2711E+01,0.2939E+01,0.3213E+01,0.3558E+01,0.4011E+01,
- *0.4642E+01,0.5578E+01,0.7057E+01,0.9572E+01,0.1420E+02,
- *0.2351E+02,0.4319E+02,0.5584E+02 /
- DATA ((PHR(i,j),j=1,83),i=16,16)/
- *0.6058E+00,0.5965E+00,0.5759E+00,0.5625E+00,0.5581E+00,
- *0.5613E+00,0.5691E+00,0.5752E+00,0.5735E+00,0.5630E+00,
- *0.5468E+00,0.5280E+00,0.5088E+00,0.4906E+00,0.4739E+00,
- *0.4587E+00,0.4450E+00,0.4328E+00,0.4217E+00,0.4118E+00,
- *0.4028E+00,0.3947E+00,0.3874E+00,0.3809E+00,0.3751E+00,
- *0.3701E+00,0.3659E+00,0.3626E+00,0.3600E+00,0.3581E+00,
- *0.3571E+00,0.3573E+00,0.3588E+00,0.3613E+00,0.3650E+00,
- *0.3699E+00,0.3764E+00,0.3844E+00,0.3941E+00,0.4056E+00,
- *0.4188E+00,0.4262E+00,0.4340E+00,0.4511E+00,0.4703E+00,
- *0.4919E+00,0.5161E+00,0.5429E+00,0.5723E+00,0.6046E+00,
- *0.6402E+00,0.6793E+00,0.7218E+00,0.7679E+00,0.8182E+00,
- *0.8729E+00,0.9325E+00,0.9972E+00,0.1068E+01,0.1145E+01,
- *0.1229E+01,0.1321E+01,0.1421E+01,0.1532E+01,0.1655E+01,
- *0.1793E+01,0.1946E+01,0.2120E+01,0.2319E+01,0.2551E+01,
- *0.2826E+01,0.3157E+01,0.3570E+01,0.4099E+01,0.4801E+01,
- *0.5770E+01,0.7168E+01,0.9290E+01,0.1269E+02,0.1849E+02,
- *0.2901E+02,0.4746E+02,0.5654E+02 /
- DATA ((PHR(i,j),j=1,83),i=17,17)/
- *0.5984E+00,0.5884E+00,0.5652E+00,0.5490E+00,0.5435E+00,
- *0.5469E+00,0.5558E+00,0.5633E+00,0.5622E+00,0.5514E+00,
- *0.5345E+00,0.5153E+00,0.4955E+00,0.4763E+00,0.4585E+00,
- *0.4423E+00,0.4279E+00,0.4153E+00,0.4039E+00,0.3936E+00,
- *0.3843E+00,0.3760E+00,0.3685E+00,0.3618E+00,0.3559E+00,
- *0.3507E+00,0.3464E+00,0.3428E+00,0.3400E+00,0.3380E+00,
- *0.3369E+00,0.3368E+00,0.3380E+00,0.3401E+00,0.3434E+00,
- *0.3479E+00,0.3538E+00,0.3613E+00,0.3703E+00,0.3805E+00,
- *0.3924E+00,0.3992E+00,0.4066E+00,0.4229E+00,0.4410E+00,
- *0.4610E+00,0.4836E+00,0.5087E+00,0.5365E+00,0.5675E+00,
- *0.6019E+00,0.6393E+00,0.6796E+00,0.7239E+00,0.7732E+00,
- *0.8273E+00,0.8861E+00,0.9507E+00,0.1022E+01,0.1099E+01,
- *0.1185E+01,0.1280E+01,0.1385E+01,0.1503E+01,0.1634E+01,
- *0.1781E+01,0.1948E+01,0.2141E+01,0.2363E+01,0.2622E+01,
- *0.2930E+01,0.3306E+01,0.3776E+01,0.4376E+01,0.5166E+01,
- *0.6249E+01,0.7796E+01,0.1011E+02,0.1375E+02,0.1979E+02,
- *0.3037E+02,0.4765E+02,0.5552E+02 /
- DATA ((PHR(i,j),j=1,83),i=18,18)/
- *0.5521E+00,0.5412E+00,0.5133E+00,0.4918E+00,0.4834E+00,
- *0.4875E+00,0.4981E+00,0.5066E+00,0.5068E+00,0.4979E+00,
- *0.4819E+00,0.4619E+00,0.4408E+00,0.4205E+00,0.4017E+00,
- *0.3850E+00,0.3700E+00,0.3565E+00,0.3446E+00,0.3340E+00,
- *0.3247E+00,0.3165E+00,0.3092E+00,0.3028E+00,0.2972E+00,
- *0.2924E+00,0.2882E+00,0.2848E+00,0.2823E+00,0.2808E+00,
- *0.2802E+00,0.2802E+00,0.2810E+00,0.2829E+00,0.2859E+00,
- *0.2900E+00,0.2952E+00,0.3016E+00,0.3094E+00,0.3188E+00,
- *0.3297E+00,0.3357E+00,0.3422E+00,0.3563E+00,0.3726E+00,
- *0.3911E+00,0.4116E+00,0.4347E+00,0.4604E+00,0.4889E+00,
- *0.5204E+00,0.5558E+00,0.5954E+00,0.6394E+00,0.6878E+00,
- *0.7415E+00,0.8014E+00,0.8682E+00,0.9427E+00,0.1026E+01,
- *0.1120E+01,0.1226E+01,0.1346E+01,0.1481E+01,0.1635E+01,
- *0.1812E+01,0.2017E+01,0.2254E+01,0.2532E+01,0.2862E+01,
- *0.3259E+01,0.3740E+01,0.4336E+01,0.5092E+01,0.6077E+01,
- *0.7396E+01,0.9222E+01,0.1185E+02,0.1580E+02,0.2200E+02,
- *0.3206E+02,0.4585E+02,0.5119E+02 /
- DATA ((PHR(i,j),j=1,83),i=19,19)/
- *0.4886E+00,0.4784E+00,0.4506E+00,0.4279E+00,0.4175E+00,
- *0.4200E+00,0.4304E+00,0.4406E+00,0.4431E+00,0.4362E+00,
- *0.4217E+00,0.4032E+00,0.3832E+00,0.3637E+00,0.3456E+00,
- *0.3292E+00,0.3145E+00,0.3014E+00,0.2899E+00,0.2798E+00,
- *0.2710E+00,0.2633E+00,0.2566E+00,0.2508E+00,0.2458E+00,
- *0.2417E+00,0.2384E+00,0.2359E+00,0.2341E+00,0.2328E+00,
- *0.2323E+00,0.2328E+00,0.2342E+00,0.2365E+00,0.2397E+00,
- *0.2439E+00,0.2491E+00,0.2555E+00,0.2632E+00,0.2724E+00,
- *0.2830E+00,0.2889E+00,0.2950E+00,0.3086E+00,0.3241E+00,
- *0.3419E+00,0.3620E+00,0.3846E+00,0.4097E+00,0.4378E+00,
- *0.4692E+00,0.5047E+00,0.5445E+00,0.5889E+00,0.6385E+00,
- *0.6944E+00,0.7574E+00,0.8286E+00,0.9090E+00,0.1000E+01,
- *0.1104E+01,0.1221E+01,0.1354E+01,0.1507E+01,0.1685E+01,
- *0.1890E+01,0.2127E+01,0.2403E+01,0.2728E+01,0.3114E+01,
- *0.3576E+01,0.4137E+01,0.4828E+01,0.5695E+01,0.6806E+01,
- *0.8262E+01,0.1022E+02,0.1294E+02,0.1687E+02,0.2268E+02,
- *0.3153E+02,0.4198E+02,0.4560E+02 /
- DATA ((PHR(i,j),j=1,83),i=20,20)/
- *0.3196E+00,0.3131E+00,0.2913E+00,0.2692E+00,0.2566E+00,
- *0.2541E+00,0.2587E+00,0.2657E+00,0.2696E+00,0.2682E+00,
- *0.2616E+00,0.2514E+00,0.2391E+00,0.2264E+00,0.2142E+00,
- *0.2028E+00,0.1924E+00,0.1830E+00,0.1748E+00,0.1677E+00,
- *0.1617E+00,0.1567E+00,0.1525E+00,0.1493E+00,0.1468E+00,
- *0.1451E+00,0.1440E+00,0.1437E+00,0.1440E+00,0.1450E+00,
- *0.1467E+00,0.1491E+00,0.1523E+00,0.1563E+00,0.1612E+00,
- *0.1670E+00,0.1736E+00,0.1813E+00,0.1901E+00,0.2004E+00,
- *0.2122E+00,0.2185E+00,0.2253E+00,0.2400E+00,0.2568E+00,
- *0.2760E+00,0.2977E+00,0.3221E+00,0.3497E+00,0.3807E+00,
- *0.4157E+00,0.4556E+00,0.5011E+00,0.5527E+00,0.6111E+00,
- *0.6777E+00,0.7537E+00,0.8407E+00,0.9406E+00,0.1055E+01,
- *0.1187E+01,0.1338E+01,0.1513E+01,0.1715E+01,0.1949E+01,
- *0.2220E+01,0.2536E+01,0.2902E+01,0.3330E+01,0.3834E+01,
- *0.4426E+01,0.5122E+01,0.5950E+01,0.6939E+01,0.8129E+01,
- *0.9575E+01,0.1134E+02,0.1353E+02,0.1628E+02,0.1969E+02,
- *0.2341E+02,0.2626E+02,0.2704E+02 /
-c************** MIE (phase fun qh) ***************
- DATA ((QHR(i,j),j=1,83),i= 1, 1)/
- *-0.8147E-22, 0.5946E-03, 0.3607E-02, 0.7821E-02, 0.1280E-01,
- * 0.1851E-01, 0.2445E-01, 0.2975E-01, 0.3412E-01, 0.3760E-01,
- * 0.3991E-01, 0.4081E-01, 0.4049E-01, 0.3916E-01, 0.3692E-01,
- * 0.3406E-01, 0.3081E-01, 0.2727E-01, 0.2361E-01, 0.1993E-01,
- * 0.1636E-01, 0.1291E-01, 0.9661E-02, 0.6585E-02, 0.3730E-02,
- * 0.1045E-02,-0.1424E-02,-0.3753E-02,-0.5895E-02,-0.7905E-02,
- *-0.9782E-02,-0.1153E-01,-0.1324E-01,-0.1486E-01,-0.1649E-01,
- *-0.1812E-01,-0.1973E-01,-0.2142E-01,-0.2317E-01,-0.2491E-01,
- *-0.2672E-01,-0.2768E-01,-0.2862E-01,-0.3060E-01,-0.3261E-01,
- *-0.3468E-01,-0.3687E-01,-0.3921E-01,-0.4172E-01,-0.4438E-01,
- *-0.4723E-01,-0.5028E-01,-0.5349E-01,-0.5685E-01,-0.6038E-01,
- *-0.6401E-01,-0.6770E-01,-0.7138E-01,-0.7509E-01,-0.7871E-01,
- *-0.8211E-01,-0.8523E-01,-0.8791E-01,-0.9009E-01,-0.9154E-01,
- *-0.9222E-01,-0.9185E-01,-0.9049E-01,-0.8802E-01,-0.8418E-01,
- *-0.7929E-01,-0.7309E-01,-0.6580E-01,-0.5780E-01,-0.4918E-01,
- *-0.4018E-01,-0.3185E-01,-0.2399E-01,-0.1621E-01,-0.1136E-01,
- *-0.7363E-02, 0.2718E-02, 0.1537E-19 /
- DATA ((QHR(i,j),j=1,83),i= 2, 2)/
- *-0.3118E-21, 0.4345E-03, 0.2544E-02, 0.5349E-02, 0.8687E-02,
- * 0.1250E-01, 0.1638E-01, 0.2011E-01, 0.2351E-01, 0.2636E-01,
- * 0.2824E-01, 0.2929E-01, 0.2957E-01, 0.2883E-01, 0.2726E-01,
- * 0.2517E-01, 0.2259E-01, 0.1966E-01, 0.1649E-01, 0.1317E-01,
- * 0.9745E-02, 0.6321E-02, 0.2919E-02,-0.4226E-03,-0.3710E-02,
- *-0.6925E-02,-0.1008E-01,-0.1315E-01,-0.1618E-01,-0.1911E-01,
- *-0.2205E-01,-0.2493E-01,-0.2782E-01,-0.3071E-01,-0.3358E-01,
- *-0.3650E-01,-0.3945E-01,-0.4242E-01,-0.4549E-01,-0.4867E-01,
- *-0.5193E-01,-0.5365E-01,-0.5536E-01,-0.5900E-01,-0.6284E-01,
- *-0.6686E-01,-0.7111E-01,-0.7559E-01,-0.8030E-01,-0.8522E-01,
- *-0.9036E-01,-0.9562E-01,-0.1010E+00,-0.1065E+00,-0.1121E+00,
- *-0.1176E+00,-0.1231E+00,-0.1285E+00,-0.1336E+00,-0.1382E+00,
- *-0.1423E+00,-0.1458E+00,-0.1484E+00,-0.1500E+00,-0.1505E+00,
- *-0.1496E+00,-0.1473E+00,-0.1433E+00,-0.1377E+00,-0.1303E+00,
- *-0.1215E+00,-0.1110E+00,-0.9908E-01,-0.8654E-01,-0.7293E-01,
- *-0.5959E-01,-0.4695E-01,-0.3430E-01,-0.2357E-01,-0.1358E-01,
- *-0.2723E-02, 0.3655E-02, 0.3156E-19 /
- DATA ((QHR(i,j),j=1,83),i= 3, 3)/
- * 0.1009E-22, 0.3044E-03, 0.2098E-02, 0.4729E-02, 0.8006E-02,
- * 0.1143E-01, 0.1476E-01, 0.1823E-01, 0.2153E-01, 0.2410E-01,
- * 0.2588E-01, 0.2696E-01, 0.2721E-01, 0.2650E-01, 0.2509E-01,
- * 0.2308E-01, 0.2055E-01, 0.1768E-01, 0.1456E-01, 0.1126E-01,
- * 0.7818E-02, 0.4340E-02, 0.8244E-03,-0.2641E-02,-0.6093E-02,
- *-0.9479E-02,-0.1283E-01,-0.1609E-01,-0.1933E-01,-0.2250E-01,
- *-0.2566E-01,-0.2880E-01,-0.3192E-01,-0.3508E-01,-0.3822E-01,
- *-0.4142E-01,-0.4473E-01,-0.4806E-01,-0.5149E-01,-0.5509E-01,
- *-0.5882E-01,-0.6073E-01,-0.6269E-01,-0.6675E-01,-0.7103E-01,
- *-0.7555E-01,-0.8027E-01,-0.8518E-01,-0.9029E-01,-0.9565E-01,
- *-0.1012E+00,-0.1069E+00,-0.1127E+00,-0.1186E+00,-0.1245E+00,
- *-0.1304E+00,-0.1362E+00,-0.1418E+00,-0.1471E+00,-0.1518E+00,
- *-0.1559E+00,-0.1593E+00,-0.1617E+00,-0.1630E+00,-0.1630E+00,
- *-0.1616E+00,-0.1587E+00,-0.1540E+00,-0.1475E+00,-0.1393E+00,
- *-0.1294E+00,-0.1179E+00,-0.1053E+00,-0.9168E-01,-0.7731E-01,
- *-0.6325E-01,-0.4939E-01,-0.3620E-01,-0.2499E-01,-0.1245E-01,
- * 0.1652E-03, 0.6597E-02, 0.3584E-19 /
- DATA ((QHR(i,j),j=1,83),i= 4, 4)/
- * 0.5571E-22, 0.3220E-03, 0.1983E-02, 0.4020E-02, 0.6318E-02,
- * 0.8880E-02, 0.1148E-01, 0.1409E-01, 0.1661E-01, 0.1878E-01,
- * 0.2020E-01, 0.2102E-01, 0.2125E-01, 0.2055E-01, 0.1909E-01,
- * 0.1715E-01, 0.1470E-01, 0.1186E-01, 0.8715E-02, 0.5332E-02,
- * 0.1756E-02,-0.1907E-02,-0.5641E-02,-0.9394E-02,-0.1318E-01,
- *-0.1697E-01,-0.2077E-01,-0.2453E-01,-0.2830E-01,-0.3202E-01,
- *-0.3577E-01,-0.3952E-01,-0.4332E-01,-0.4720E-01,-0.5113E-01,
- *-0.5521E-01,-0.5943E-01,-0.6375E-01,-0.6827E-01,-0.7298E-01,
- *-0.7782E-01,-0.8034E-01,-0.8286E-01,-0.8811E-01,-0.9354E-01,
- *-0.9913E-01,-0.1049E+00,-0.1109E+00,-0.1170E+00,-0.1234E+00,
- *-0.1299E+00,-0.1366E+00,-0.1432E+00,-0.1500E+00,-0.1566E+00,
- *-0.1632E+00,-0.1694E+00,-0.1753E+00,-0.1807E+00,-0.1853E+00,
- *-0.1891E+00,-0.1919E+00,-0.1936E+00,-0.1938E+00,-0.1926E+00,
- *-0.1896E+00,-0.1849E+00,-0.1783E+00,-0.1697E+00,-0.1593E+00,
- *-0.1473E+00,-0.1334E+00,-0.1183E+00,-0.1027E+00,-0.8599E-01,
- *-0.6991E-01,-0.5469E-01,-0.3963E-01,-0.2695E-01,-0.1460E-01,
- *-0.1422E-02, 0.4893E-02, 0.2603E-19 /
- DATA ((QHR(i,j),j=1,83),i= 5, 5)/
- * 0.2773E-21, 0.7046E-04, 0.1388E-02, 0.3189E-02, 0.5208E-02,
- * 0.7015E-02, 0.8798E-02, 0.1093E-01, 0.1294E-01, 0.1446E-01,
- * 0.1564E-01, 0.1628E-01, 0.1602E-01, 0.1516E-01, 0.1378E-01,
- * 0.1173E-01, 0.9185E-02, 0.6271E-02, 0.3047E-02,-0.4254E-03,
- *-0.4089E-02,-0.7920E-02,-0.1189E-01,-0.1592E-01,-0.2003E-01,
- *-0.2415E-01,-0.2832E-01,-0.3251E-01,-0.3674E-01,-0.4105E-01,
- *-0.4540E-01,-0.4985E-01,-0.5435E-01,-0.5896E-01,-0.6369E-01,
- *-0.6853E-01,-0.7357E-01,-0.7879E-01,-0.8415E-01,-0.8976E-01,
- *-0.9560E-01,-0.9853E-01,-0.1016E+00,-0.1077E+00,-0.1141E+00,
- *-0.1207E+00,-0.1274E+00,-0.1343E+00,-0.1413E+00,-0.1485E+00,
- *-0.1557E+00,-0.1629E+00,-0.1702E+00,-0.1774E+00,-0.1844E+00,
- *-0.1910E+00,-0.1973E+00,-0.2031E+00,-0.2082E+00,-0.2125E+00,
- *-0.2157E+00,-0.2177E+00,-0.2184E+00,-0.2176E+00,-0.2150E+00,
- *-0.2107E+00,-0.2044E+00,-0.1961E+00,-0.1858E+00,-0.1737E+00,
- *-0.1595E+00,-0.1442E+00,-0.1277E+00,-0.1100E+00,-0.9253E-01,
- *-0.7509E-01,-0.5763E-01,-0.4234E-01,-0.2868E-01,-0.1415E-01,
- *-0.1035E-02, 0.5729E-02, 0.1868E-20 /
- DATA ((QHR(i,j),j=1,83),i= 6, 6)/
- * 0.2431E-21, 0.2465E-03, 0.1908E-02, 0.3314E-02, 0.4430E-02,
- * 0.5859E-02, 0.7582E-02, 0.9083E-02, 0.1045E-01, 0.1186E-01,
- * 0.1278E-01, 0.1308E-01, 0.1288E-01, 0.1194E-01, 0.1026E-01,
- * 0.8159E-02, 0.5607E-02, 0.2638E-02,-0.6830E-03,-0.4284E-02,
- *-0.8098E-02,-0.1207E-01,-0.1616E-01,-0.2037E-01,-0.2466E-01,
- *-0.2907E-01,-0.3354E-01,-0.3811E-01,-0.4275E-01,-0.4745E-01,
- *-0.5227E-01,-0.5715E-01,-0.6219E-01,-0.6734E-01,-0.7263E-01,
- *-0.7811E-01,-0.8370E-01,-0.8947E-01,-0.9546E-01,-0.1016E+00,
- *-0.1079E+00,-0.1112E+00,-0.1144E+00,-0.1212E+00,-0.1282E+00,
- *-0.1353E+00,-0.1425E+00,-0.1500E+00,-0.1576E+00,-0.1653E+00,
- *-0.1730E+00,-0.1807E+00,-0.1882E+00,-0.1955E+00,-0.2027E+00,
- *-0.2094E+00,-0.2156E+00,-0.2211E+00,-0.2259E+00,-0.2296E+00,
- *-0.2323E+00,-0.2337E+00,-0.2336E+00,-0.2319E+00,-0.2283E+00,
- *-0.2229E+00,-0.2155E+00,-0.2061E+00,-0.1948E+00,-0.1813E+00,
- *-0.1665E+00,-0.1500E+00,-0.1321E+00,-0.1140E+00,-0.9509E-01,
- *-0.7652E-01,-0.5964E-01,-0.4320E-01,-0.2818E-01,-0.1719E-01,
- *-0.6913E-02, 0.3746E-02, 0.1868E-19 /
- DATA ((QHR(i,j),j=1,83),i= 7, 7)/
- * 0.3840E-22, 0.2406E-03, 0.1633E-02, 0.2793E-02, 0.3662E-02,
- * 0.4611E-02, 0.5610E-02, 0.6591E-02, 0.7589E-02, 0.8546E-02,
- * 0.8953E-02, 0.8937E-02, 0.8554E-02, 0.7367E-02, 0.5483E-02,
- * 0.3214E-02, 0.4783E-03,-0.2668E-02,-0.6167E-02,-0.9972E-02,
- *-0.1405E-01,-0.1831E-01,-0.2274E-01,-0.2733E-01,-0.3207E-01,
- *-0.3696E-01,-0.4198E-01,-0.4713E-01,-0.5241E-01,-0.5777E-01,
- *-0.6330E-01,-0.6893E-01,-0.7474E-01,-0.8069E-01,-0.8678E-01,
- *-0.9307E-01,-0.9951E-01,-0.1061E+00,-0.1129E+00,-0.1199E+00,
- *-0.1270E+00,-0.1307E+00,-0.1344E+00,-0.1419E+00,-0.1497E+00,
- *-0.1575E+00,-0.1656E+00,-0.1737E+00,-0.1820E+00,-0.1902E+00,
- *-0.1985E+00,-0.2066E+00,-0.2144E+00,-0.2220E+00,-0.2292E+00,
- *-0.2358E+00,-0.2417E+00,-0.2469E+00,-0.2510E+00,-0.2540E+00,
- *-0.2557E+00,-0.2560E+00,-0.2546E+00,-0.2514E+00,-0.2464E+00,
- *-0.2394E+00,-0.2304E+00,-0.2193E+00,-0.2063E+00,-0.1913E+00,
- *-0.1750E+00,-0.1569E+00,-0.1378E+00,-0.1185E+00,-0.9848E-01,
- *-0.7936E-01,-0.6174E-01,-0.4421E-01,-0.2929E-01,-0.1589E-01,
- *-0.1659E-02, 0.5216E-02, 0.3065E-19 /
- DATA ((QHR(i,j),j=1,83),i= 8, 8)/
- *-0.7752E-22, 0.1308E-03, 0.1361E-02, 0.2501E-02, 0.2873E-02,
- * 0.3129E-02, 0.3561E-02, 0.4080E-02, 0.4391E-02, 0.4637E-02,
- * 0.4841E-02, 0.4425E-02, 0.3274E-02, 0.1732E-02,-0.3230E-03,
- *-0.2992E-02,-0.6093E-02,-0.9624E-02,-0.1351E-01,-0.1771E-01,
- *-0.2218E-01,-0.2695E-01,-0.3194E-01,-0.3720E-01,-0.4261E-01,
- *-0.4822E-01,-0.5397E-01,-0.5992E-01,-0.6600E-01,-0.7230E-01,
- *-0.7871E-01,-0.8529E-01,-0.9204E-01,-0.9895E-01,-0.1061E+00,
- *-0.1133E+00,-0.1207E+00,-0.1284E+00,-0.1362E+00,-0.1442E+00,
- *-0.1523E+00,-0.1565E+00,-0.1607E+00,-0.1692E+00,-0.1778E+00,
- *-0.1866E+00,-0.1955E+00,-0.2043E+00,-0.2132E+00,-0.2220E+00,
- *-0.2305E+00,-0.2389E+00,-0.2470E+00,-0.2545E+00,-0.2615E+00,
- *-0.2678E+00,-0.2732E+00,-0.2776E+00,-0.2808E+00,-0.2828E+00,
- *-0.2831E+00,-0.2819E+00,-0.2789E+00,-0.2740E+00,-0.2670E+00,
- *-0.2581E+00,-0.2469E+00,-0.2337E+00,-0.2188E+00,-0.2020E+00,
- *-0.1835E+00,-0.1641E+00,-0.1438E+00,-0.1228E+00,-0.1025E+00,
- *-0.8210E-01,-0.6267E-01,-0.4585E-01,-0.2919E-01,-0.1669E-01,
- *-0.7899E-02, 0.2972E-02, 0.2956E-19 /
- DATA ((QHR(i,j),j=1,83),i= 9, 9)/
- *-0.4595E-21,-0.5562E-04, 0.8731E-03, 0.1769E-02, 0.2273E-02,
- * 0.2001E-02, 0.1454E-02, 0.1377E-02, 0.1316E-02, 0.8342E-03,
- * 0.2139E-03,-0.7326E-03,-0.2437E-02,-0.4614E-02,-0.7176E-02,
- *-0.1038E-01,-0.1407E-01,-0.1815E-01,-0.2259E-01,-0.2738E-01,
- *-0.3250E-01,-0.3794E-01,-0.4368E-01,-0.4966E-01,-0.5588E-01,
- *-0.6229E-01,-0.6892E-01,-0.7572E-01,-0.8272E-01,-0.8994E-01,
- *-0.9734E-01,-0.1050E+00,-0.1127E+00,-0.1207E+00,-0.1289E+00,
- *-0.1372E+00,-0.1458E+00,-0.1545E+00,-0.1634E+00,-0.1725E+00,
- *-0.1818E+00,-0.1865E+00,-0.1912E+00,-0.2006E+00,-0.2101E+00,
- *-0.2196E+00,-0.2291E+00,-0.2385E+00,-0.2477E+00,-0.2567E+00,
- *-0.2654E+00,-0.2736E+00,-0.2814E+00,-0.2886E+00,-0.2950E+00,
- *-0.3005E+00,-0.3050E+00,-0.3083E+00,-0.3102E+00,-0.3107E+00,
- *-0.3095E+00,-0.3064E+00,-0.3015E+00,-0.2946E+00,-0.2856E+00,
- *-0.2746E+00,-0.2616E+00,-0.2464E+00,-0.2294E+00,-0.2109E+00,
- *-0.1905E+00,-0.1696E+00,-0.1483E+00,-0.1261E+00,-0.1049E+00,
- *-0.8429E-01,-0.6387E-01,-0.4619E-01,-0.3053E-01,-0.1253E-01,
- * 0.3800E-02, 0.9025E-02, 0.4461E-20 /
- DATA ((QHR(i,j),j=1,83),i=10,10)/
- * 0.5904E-22, 0.1192E-03, 0.1141E-02, 0.1779E-02, 0.1776E-02,
- * 0.1026E-02,-0.1717E-03,-0.1086E-02,-0.1850E-02,-0.2917E-02,
- *-0.4419E-02,-0.6148E-02,-0.8229E-02,-0.1107E-01,-0.1448E-01,
- *-0.1832E-01,-0.2267E-01,-0.2742E-01,-0.3257E-01,-0.3809E-01,
- *-0.4399E-01,-0.5018E-01,-0.5669E-01,-0.6344E-01,-0.7049E-01,
- *-0.7780E-01,-0.8537E-01,-0.9313E-01,-0.1012E+00,-0.1094E+00,
- *-0.1178E+00,-0.1265E+00,-0.1354E+00,-0.1445E+00,-0.1538E+00,
- *-0.1632E+00,-0.1729E+00,-0.1827E+00,-0.1927E+00,-0.2028E+00,
- *-0.2130E+00,-0.2181E+00,-0.2232E+00,-0.2335E+00,-0.2436E+00,
- *-0.2537E+00,-0.2637E+00,-0.2733E+00,-0.2827E+00,-0.2917E+00,
- *-0.3003E+00,-0.3082E+00,-0.3153E+00,-0.3218E+00,-0.3272E+00,
- *-0.3315E+00,-0.3347E+00,-0.3365E+00,-0.3367E+00,-0.3352E+00,
- *-0.3321E+00,-0.3271E+00,-0.3201E+00,-0.3110E+00,-0.3000E+00,
- *-0.2867E+00,-0.2718E+00,-0.2549E+00,-0.2361E+00,-0.2160E+00,
- *-0.1948E+00,-0.1725E+00,-0.1501E+00,-0.1277E+00,-0.1051E+00,
- *-0.8435E-01,-0.6467E-01,-0.4561E-01,-0.2987E-01,-0.1121E-01,
- * 0.8263E-02, 0.1151E-01,-0.7992E-22 /
- DATA ((QHR(i,j),j=1,83),i=11,11)/
- *-0.1272E-21,-0.5941E-04, 0.9194E-03, 0.1652E-02, 0.1544E-02,
- * 0.3092E-03,-0.1378E-02,-0.2623E-02,-0.3932E-02,-0.5724E-02,
- *-0.7617E-02,-0.9848E-02,-0.1289E-01,-0.1635E-01,-0.2016E-01,
- *-0.2464E-01,-0.2962E-01,-0.3499E-01,-0.4076E-01,-0.4689E-01,
- *-0.5339E-01,-0.6028E-01,-0.6753E-01,-0.7508E-01,-0.8294E-01,
- *-0.9104E-01,-0.9942E-01,-0.1080E+00,-0.1169E+00,-0.1261E+00,
- *-0.1354E+00,-0.1451E+00,-0.1549E+00,-0.1649E+00,-0.1750E+00,
- *-0.1853E+00,-0.1958E+00,-0.2065E+00,-0.2171E+00,-0.2280E+00,
- *-0.2388E+00,-0.2442E+00,-0.2496E+00,-0.2602E+00,-0.2708E+00,
- *-0.2813E+00,-0.2915E+00,-0.3013E+00,-0.3106E+00,-0.3194E+00,
- *-0.3276E+00,-0.3350E+00,-0.3416E+00,-0.3473E+00,-0.3518E+00,
- *-0.3550E+00,-0.3569E+00,-0.3573E+00,-0.3560E+00,-0.3531E+00,
- *-0.3483E+00,-0.3414E+00,-0.3327E+00,-0.3220E+00,-0.3092E+00,
- *-0.2945E+00,-0.2780E+00,-0.2595E+00,-0.2395E+00,-0.2185E+00,
- *-0.1958E+00,-0.1732E+00,-0.1505E+00,-0.1272E+00,-0.1053E+00,
- *-0.8424E-01,-0.6322E-01,-0.4538E-01,-0.2927E-01,-0.1030E-01,
- * 0.6477E-02, 0.1014E-01, 0.6269E-19 /
- DATA ((QHR(i,j),j=1,83),i=12,12)/
- * 0.5169E-21, 0.2354E-03, 0.1988E-02, 0.2646E-02, 0.1517E-02,
- *-0.3247E-04,-0.1483E-02,-0.3376E-02,-0.5510E-02,-0.7429E-02,
- *-0.9547E-02,-0.1226E-01,-0.1545E-01,-0.1921E-01,-0.2365E-01,
- *-0.2852E-01,-0.3383E-01,-0.3961E-01,-0.4585E-01,-0.5249E-01,
- *-0.5949E-01,-0.6683E-01,-0.7448E-01,-0.8249E-01,-0.9079E-01,
- *-0.9942E-01,-0.1083E+00,-0.1176E+00,-0.1270E+00,-0.1368E+00,
- *-0.1467E+00,-0.1568E+00,-0.1672E+00,-0.1778E+00,-0.1885E+00,
- *-0.1994E+00,-0.2104E+00,-0.2215E+00,-0.2327E+00,-0.2438E+00,
- *-0.2548E+00,-0.2604E+00,-0.2659E+00,-0.2769E+00,-0.2877E+00,
- *-0.2981E+00,-0.3083E+00,-0.3181E+00,-0.3274E+00,-0.3360E+00,
- *-0.3440E+00,-0.3512E+00,-0.3573E+00,-0.3624E+00,-0.3663E+00,
- *-0.3689E+00,-0.3700E+00,-0.3694E+00,-0.3672E+00,-0.3632E+00,
- *-0.3573E+00,-0.3496E+00,-0.3397E+00,-0.3278E+00,-0.3140E+00,
- *-0.2983E+00,-0.2804E+00,-0.2613E+00,-0.2409E+00,-0.2190E+00,
- *-0.1967E+00,-0.1735E+00,-0.1498E+00,-0.1269E+00,-0.1043E+00,
- *-0.8209E-01,-0.6269E-01,-0.4434E-01,-0.2571E-01,-0.1453E-01,
- *-0.6850E-02, 0.6172E-02,-0.1118E-19 /
- DATA ((QHR(i,j),j=1,83),i=13,13)/
- *-0.6041E-22,-0.6454E-05, 0.1224E-02, 0.2081E-02, 0.1735E-02,
- *-0.2100E-03,-0.2898E-02,-0.5197E-02,-0.7650E-02,-0.1075E-01,
- *-0.1402E-01,-0.1765E-01,-0.2212E-01,-0.2705E-01,-0.3236E-01,
- *-0.3837E-01,-0.4492E-01,-0.5189E-01,-0.5929E-01,-0.6710E-01,
- *-0.7532E-01,-0.8398E-01,-0.9306E-01,-0.1025E+00,-0.1122E+00,
- *-0.1223E+00,-0.1326E+00,-0.1432E+00,-0.1540E+00,-0.1651E+00,
- *-0.1765E+00,-0.1881E+00,-0.1998E+00,-0.2116E+00,-0.2236E+00,
- *-0.2356E+00,-0.2477E+00,-0.2598E+00,-0.2718E+00,-0.2839E+00,
- *-0.2958E+00,-0.3016E+00,-0.3073E+00,-0.3186E+00,-0.3295E+00,
- *-0.3401E+00,-0.3501E+00,-0.3594E+00,-0.3680E+00,-0.3758E+00,
- *-0.3826E+00,-0.3883E+00,-0.3931E+00,-0.3966E+00,-0.3985E+00,
- *-0.3989E+00,-0.3978E+00,-0.3951E+00,-0.3905E+00,-0.3841E+00,
- *-0.3757E+00,-0.3652E+00,-0.3529E+00,-0.3387E+00,-0.3226E+00,
- *-0.3048E+00,-0.2856E+00,-0.2646E+00,-0.2424E+00,-0.2195E+00,
- *-0.1954E+00,-0.1718E+00,-0.1486E+00,-0.1250E+00,-0.1030E+00,
- *-0.8201E-01,-0.6086E-01,-0.4285E-01,-0.2673E-01,-0.6035E-02,
- * 0.1241E-01, 0.1335E-01,-0.1961E-19 /
- DATA ((QHR(i,j),j=1,83),i=14,14)/
- * 0.8122E-21, 0.2142E-03, 0.1986E-02, 0.3241E-02, 0.2991E-02,
- * 0.6496E-03,-0.2916E-02,-0.6280E-02,-0.9845E-02,-0.1423E-01,
- *-0.1907E-01,-0.2422E-01,-0.3002E-01,-0.3654E-01,-0.4356E-01,
- *-0.5120E-01,-0.5944E-01,-0.6812E-01,-0.7724E-01,-0.8682E-01,
- *-0.9686E-01,-0.1073E+00,-0.1182E+00,-0.1293E+00,-0.1409E+00,
- *-0.1527E+00,-0.1649E+00,-0.1772E+00,-0.1898E+00,-0.2026E+00,
- *-0.2156E+00,-0.2288E+00,-0.2420E+00,-0.2553E+00,-0.2685E+00,
- *-0.2817E+00,-0.2949E+00,-0.3079E+00,-0.3206E+00,-0.3331E+00,
- *-0.3453E+00,-0.3512E+00,-0.3570E+00,-0.3680E+00,-0.3785E+00,
- *-0.3884E+00,-0.3974E+00,-0.4054E+00,-0.4125E+00,-0.4185E+00,
- *-0.4233E+00,-0.4267E+00,-0.4288E+00,-0.4294E+00,-0.4284E+00,
- *-0.4257E+00,-0.4213E+00,-0.4153E+00,-0.4072E+00,-0.3973E+00,
- *-0.3857E+00,-0.3721E+00,-0.3568E+00,-0.3399E+00,-0.3214E+00,
- *-0.3013E+00,-0.2805E+00,-0.2583E+00,-0.2349E+00,-0.2114E+00,
- *-0.1874E+00,-0.1638E+00,-0.1411E+00,-0.1184E+00,-0.9632E-01,
- *-0.7641E-01,-0.5653E-01,-0.3796E-01,-0.2227E-01, 0.9910E-03,
- * 0.2337E-01, 0.1932E-01,-0.4703E-19 /
- DATA ((QHR(i,j),j=1,83),i=15,15)/
- *-0.5817E-22, 0.1590E-02, 0.8542E-02, 0.1513E-01, 0.1713E-01,
- * 0.1588E-01, 0.1285E-01, 0.7918E-02, 0.1257E-02,-0.6339E-02,
- *-0.1460E-01,-0.2374E-01,-0.3360E-01,-0.4386E-01,-0.5467E-01,
- *-0.6603E-01,-0.7775E-01,-0.8984E-01,-0.1023E+00,-0.1150E+00,
- *-0.1281E+00,-0.1415E+00,-0.1551E+00,-0.1689E+00,-0.1828E+00,
- *-0.1969E+00,-0.2110E+00,-0.2253E+00,-0.2397E+00,-0.2540E+00,
- *-0.2681E+00,-0.2819E+00,-0.2954E+00,-0.3087E+00,-0.3217E+00,
- *-0.3341E+00,-0.3459E+00,-0.3572E+00,-0.3677E+00,-0.3774E+00,
- *-0.3862E+00,-0.3903E+00,-0.3941E+00,-0.4010E+00,-0.4069E+00,
- *-0.4116E+00,-0.4151E+00,-0.4173E+00,-0.4181E+00,-0.4173E+00,
- *-0.4152E+00,-0.4119E+00,-0.4070E+00,-0.4004E+00,-0.3924E+00,
- *-0.3831E+00,-0.3721E+00,-0.3595E+00,-0.3460E+00,-0.3313E+00,
- *-0.3152E+00,-0.2982E+00,-0.2804E+00,-0.2616E+00,-0.2422E+00,
- *-0.2225E+00,-0.2020E+00,-0.1821E+00,-0.1631E+00,-0.1440E+00,
- *-0.1252E+00,-0.1069E+00,-0.8852E-01,-0.7094E-01,-0.5451E-01,
- *-0.3645E-01,-0.2061E-01,-0.6627E-02, 0.1133E-01, 0.1676E-01,
- * 0.9972E-02, 0.9494E-02,-0.9754E-20 /
- DATA ((QHR(i,j),j=1,83),i=16,16)/
- *-0.8368E-21, 0.2451E-02, 0.1217E-01, 0.2345E-01, 0.3160E-01,
- * 0.3488E-01, 0.3414E-01, 0.3068E-01, 0.2450E-01, 0.1602E-01,
- * 0.6106E-02,-0.4311E-02,-0.1489E-01,-0.2598E-01,-0.3733E-01,
- *-0.4870E-01,-0.6023E-01,-0.7193E-01,-0.8376E-01,-0.9570E-01,
- *-0.1077E+00,-0.1197E+00,-0.1318E+00,-0.1438E+00,-0.1560E+00,
- *-0.1683E+00,-0.1804E+00,-0.1922E+00,-0.2038E+00,-0.2152E+00,
- *-0.2265E+00,-0.2375E+00,-0.2482E+00,-0.2584E+00,-0.2679E+00,
- *-0.2770E+00,-0.2856E+00,-0.2934E+00,-0.3005E+00,-0.3068E+00,
- *-0.3124E+00,-0.3148E+00,-0.3171E+00,-0.3206E+00,-0.3230E+00,
- *-0.3243E+00,-0.3246E+00,-0.3237E+00,-0.3218E+00,-0.3189E+00,
- *-0.3147E+00,-0.3092E+00,-0.3024E+00,-0.2946E+00,-0.2857E+00,
- *-0.2758E+00,-0.2651E+00,-0.2534E+00,-0.2406E+00,-0.2269E+00,
- *-0.2130E+00,-0.1985E+00,-0.1835E+00,-0.1682E+00,-0.1530E+00,
- *-0.1376E+00,-0.1230E+00,-0.1083E+00,-0.9318E-01,-0.7926E-01,
- *-0.6647E-01,-0.5371E-01,-0.4195E-01,-0.3037E-01,-0.1726E-01,
- *-0.6639E-02, 0.4547E-02, 0.1789E-01, 0.2700E-01, 0.4220E-01,
- * 0.5411E-01, 0.2476E-01,-0.1620E-18 /
- DATA ((QHR(i,j),j=1,83),i=17,17)/
- * 0.3184E-21, 0.3036E-02, 0.1478E-01, 0.2822E-01, 0.3771E-01,
- * 0.4233E-01, 0.4290E-01, 0.3975E-01, 0.3343E-01, 0.2506E-01,
- * 0.1513E-01, 0.4611E-02,-0.5905E-02,-0.1695E-01,-0.2829E-01,
- *-0.3936E-01,-0.5042E-01,-0.6161E-01,-0.7293E-01,-0.8427E-01,
- *-0.9552E-01,-0.1066E+00,-0.1176E+00,-0.1286E+00,-0.1396E+00,
- *-0.1506E+00,-0.1615E+00,-0.1723E+00,-0.1828E+00,-0.1930E+00,
- *-0.2030E+00,-0.2127E+00,-0.2220E+00,-0.2308E+00,-0.2393E+00,
- *-0.2473E+00,-0.2547E+00,-0.2613E+00,-0.2671E+00,-0.2721E+00,
- *-0.2764E+00,-0.2783E+00,-0.2801E+00,-0.2830E+00,-0.2845E+00,
- *-0.2848E+00,-0.2842E+00,-0.2829E+00,-0.2807E+00,-0.2775E+00,
- *-0.2732E+00,-0.2676E+00,-0.2606E+00,-0.2527E+00,-0.2444E+00,
- *-0.2351E+00,-0.2249E+00,-0.2138E+00,-0.2017E+00,-0.1889E+00,
- *-0.1762E+00,-0.1633E+00,-0.1496E+00,-0.1354E+00,-0.1215E+00,
- *-0.1076E+00,-0.9400E-01,-0.8107E-01,-0.6851E-01,-0.5633E-01,
- *-0.4594E-01,-0.3472E-01,-0.2335E-01,-0.1346E-01,-0.1714E-02,
- * 0.8967E-02, 0.1804E-01, 0.3055E-01, 0.3960E-01, 0.4239E-01,
- * 0.4046E-01, 0.1701E-01,-0.8898E-19 /
- DATA ((QHR(i,j),j=1,83),i=18,18)/
- *-0.2087E-21, 0.3408E-02, 0.1699E-01, 0.3431E-01, 0.4812E-01,
- * 0.5671E-01, 0.6062E-01, 0.6023E-01, 0.5559E-01, 0.4753E-01,
- * 0.3769E-01, 0.2687E-01, 0.1572E-01, 0.5064E-02,-0.5211E-02,
- *-0.1539E-01,-0.2524E-01,-0.3472E-01,-0.4388E-01,-0.5283E-01,
- *-0.6171E-01,-0.7056E-01,-0.7935E-01,-0.8798E-01,-0.9634E-01,
- *-0.1044E+00,-0.1124E+00,-0.1202E+00,-0.1279E+00,-0.1354E+00,
- *-0.1425E+00,-0.1491E+00,-0.1554E+00,-0.1613E+00,-0.1669E+00,
- *-0.1719E+00,-0.1764E+00,-0.1805E+00,-0.1841E+00,-0.1871E+00,
- *-0.1893E+00,-0.1901E+00,-0.1907E+00,-0.1915E+00,-0.1917E+00,
- *-0.1915E+00,-0.1903E+00,-0.1882E+00,-0.1851E+00,-0.1812E+00,
- *-0.1766E+00,-0.1716E+00,-0.1661E+00,-0.1597E+00,-0.1524E+00,
- *-0.1444E+00,-0.1358E+00,-0.1266E+00,-0.1175E+00,-0.1082E+00,
- *-0.9801E-01,-0.8756E-01,-0.7742E-01,-0.6735E-01,-0.5708E-01,
- *-0.4707E-01,-0.3691E-01,-0.2738E-01,-0.1892E-01,-0.1086E-01,
- *-0.2282E-02, 0.5347E-02, 0.1293E-01, 0.2113E-01, 0.2784E-01,
- * 0.3647E-01, 0.4476E-01, 0.4847E-01, 0.5261E-01, 0.4889E-01,
- * 0.3218E-01, 0.9915E-02,-0.4202E-19 /
- DATA ((QHR(i,j),j=1,83),i=19,19)/
- *-0.6358E-21, 0.3636E-02, 0.1758E-01, 0.3632E-01, 0.5343E-01,
- * 0.6552E-01, 0.7210E-01, 0.7368E-01, 0.7029E-01, 0.6307E-01,
- * 0.5370E-01, 0.4334E-01, 0.3290E-01, 0.2278E-01, 0.1310E-01,
- * 0.3942E-02,-0.4736E-02,-0.1301E-01,-0.2087E-01,-0.2836E-01,
- *-0.3556E-01,-0.4250E-01,-0.4924E-01,-0.5578E-01,-0.6216E-01,
- *-0.6839E-01,-0.7430E-01,-0.7982E-01,-0.8505E-01,-0.9008E-01,
- *-0.9496E-01,-0.9971E-01,-0.1042E+00,-0.1083E+00,-0.1119E+00,
- *-0.1151E+00,-0.1180E+00,-0.1205E+00,-0.1226E+00,-0.1242E+00,
- *-0.1254E+00,-0.1258E+00,-0.1261E+00,-0.1261E+00,-0.1256E+00,
- *-0.1246E+00,-0.1230E+00,-0.1208E+00,-0.1182E+00,-0.1150E+00,
- *-0.1112E+00,-0.1068E+00,-0.1017E+00,-0.9625E-01,-0.9017E-01,
- *-0.8368E-01,-0.7706E-01,-0.7029E-01,-0.6295E-01,-0.5528E-01,
- *-0.4748E-01,-0.3938E-01,-0.3115E-01,-0.2323E-01,-0.1557E-01,
- *-0.8146E-02,-0.1446E-02, 0.5530E-02, 0.1275E-01, 0.1925E-01,
- * 0.2510E-01, 0.3026E-01, 0.3444E-01, 0.3918E-01, 0.4471E-01,
- * 0.4838E-01, 0.5222E-01, 0.5531E-01, 0.5415E-01, 0.5576E-01,
- * 0.5041E-01, 0.1669E-01, 0.3465E-20 /
- DATA ((QHR(i,j),j=1,83),i=20,20)/
- *-0.3486E-21, 0.3063E-02, 0.1500E-01, 0.3242E-01, 0.5059E-01,
- * 0.6610E-01, 0.7719E-01, 0.8298E-01, 0.8364E-01, 0.8023E-01,
- * 0.7407E-01, 0.6634E-01, 0.5814E-01, 0.5015E-01, 0.4263E-01,
- * 0.3570E-01, 0.2941E-01, 0.2374E-01, 0.1866E-01, 0.1405E-01,
- * 0.9811E-02, 0.5898E-02, 0.2301E-02,-0.9949E-03,-0.4003E-02,
- *-0.6763E-02,-0.9293E-02,-0.1160E-01,-0.1372E-01,-0.1571E-01,
- *-0.1757E-01,-0.1933E-01,-0.2098E-01,-0.2245E-01,-0.2371E-01,
- *-0.2484E-01,-0.2586E-01,-0.2679E-01,-0.2761E-01,-0.2828E-01,
- *-0.2875E-01,-0.2888E-01,-0.2893E-01,-0.2891E-01,-0.2886E-01,
- *-0.2874E-01,-0.2838E-01,-0.2775E-01,-0.2689E-01,-0.2574E-01,
- *-0.2438E-01,-0.2294E-01,-0.2136E-01,-0.1946E-01,-0.1716E-01,
- *-0.1456E-01,-0.1179E-01,-0.8944E-02,-0.6030E-02,-0.2850E-02,
- * 0.8254E-03, 0.4851E-02, 0.8910E-02, 0.1301E-01, 0.1724E-01,
- * 0.2144E-01, 0.2570E-01, 0.3033E-01, 0.3518E-01, 0.3978E-01,
- * 0.4412E-01, 0.4825E-01, 0.5177E-01, 0.5460E-01, 0.5699E-01,
- * 0.5823E-01, 0.5715E-01, 0.5342E-01, 0.4631E-01, 0.3401E-01,
- * 0.1763E-01, 0.3855E-02,-0.5923E-19 /
-c************** MIE (phase fun uh) ***************
- DATA ((UHR(i,j),j=1,83),i= 1, 1)/
- *-0.1683E+00,-0.1666E+00,-0.1609E+00,-0.1545E+00,-0.1475E+00,
- *-0.1394E+00,-0.1299E+00,-0.1192E+00,-0.1076E+00,-0.9540E-01,
- *-0.8296E-01,-0.7076E-01,-0.5893E-01,-0.4759E-01,-0.3696E-01,
- *-0.2719E-01,-0.1822E-01,-0.1004E-01,-0.2599E-02, 0.4191E-02,
- * 0.1039E-01, 0.1609E-01, 0.2137E-01, 0.2633E-01, 0.3106E-01,
- * 0.3567E-01, 0.4023E-01, 0.4484E-01, 0.4953E-01, 0.5441E-01,
- * 0.5956E-01, 0.6502E-01, 0.7091E-01, 0.7728E-01, 0.8429E-01,
- * 0.9207E-01, 0.1007E+00, 0.1103E+00, 0.1212E+00, 0.1333E+00,
- * 0.1470E+00, 0.1545E+00, 0.1624E+00, 0.1798E+00, 0.1994E+00,
- * 0.2216E+00, 0.2470E+00, 0.2758E+00, 0.3088E+00, 0.3467E+00,
- * 0.3902E+00, 0.4401E+00, 0.4976E+00, 0.5638E+00, 0.6399E+00,
- * 0.7277E+00, 0.8287E+00, 0.9452E+00, 0.1079E+01, 0.1234E+01,
- * 0.1411E+01, 0.1614E+01, 0.1847E+01, 0.2113E+01, 0.2414E+01,
- * 0.2756E+01, 0.3141E+01, 0.3571E+01, 0.4049E+01, 0.4575E+01,
- * 0.5149E+01, 0.5768E+01, 0.6424E+01, 0.7111E+01, 0.7816E+01,
- * 0.8524E+01, 0.9220E+01, 0.9895E+01, 0.1056E+02, 0.1134E+02,
- * 0.1287E+02, 0.2031E+02, 0.5392E+02 /
- DATA ((UHR(i,j),j=1,83),i= 2, 2)/
- *-0.1692E+00,-0.1675E+00,-0.1617E+00,-0.1561E+00,-0.1509E+00,
- *-0.1451E+00,-0.1383E+00,-0.1303E+00,-0.1215E+00,-0.1119E+00,
- *-0.1019E+00,-0.9168E-01,-0.8136E-01,-0.7113E-01,-0.6131E-01,
- *-0.5187E-01,-0.4284E-01,-0.3436E-01,-0.2636E-01,-0.1881E-01,
- *-0.1167E-01,-0.4909E-02, 0.1533E-02, 0.7717E-02, 0.1373E-01,
- * 0.1963E-01, 0.2550E-01, 0.3138E-01, 0.3742E-01, 0.4363E-01,
- * 0.5018E-01, 0.5710E-01, 0.6449E-01, 0.7247E-01, 0.8112E-01,
- * 0.9063E-01, 0.1011E+00, 0.1126E+00, 0.1254E+00, 0.1398E+00,
- * 0.1558E+00, 0.1646E+00, 0.1739E+00, 0.1944E+00, 0.2176E+00,
- * 0.2438E+00, 0.2737E+00, 0.3075E+00, 0.3461E+00, 0.3899E+00,
- * 0.4399E+00, 0.4967E+00, 0.5615E+00, 0.6352E+00, 0.7194E+00,
- * 0.8153E+00, 0.9245E+00, 0.1049E+01, 0.1190E+01, 0.1351E+01,
- * 0.1532E+01, 0.1737E+01, 0.1968E+01, 0.2228E+01, 0.2518E+01,
- * 0.2840E+01, 0.3196E+01, 0.3587E+01, 0.4014E+01, 0.4475E+01,
- * 0.4967E+01, 0.5488E+01, 0.6031E+01, 0.6589E+01, 0.7152E+01,
- * 0.7712E+01, 0.8260E+01, 0.8799E+01, 0.9365E+01, 0.1012E+02,
- * 0.1185E+02, 0.2001E+02, 0.4940E+02 /
- DATA ((UHR(i,j),j=1,83),i= 3, 3)/
- *-0.1705E+00,-0.1687E+00,-0.1628E+00,-0.1573E+00,-0.1524E+00,
- *-0.1469E+00,-0.1406E+00,-0.1332E+00,-0.1248E+00,-0.1159E+00,
- *-0.1064E+00,-0.9649E-01,-0.8643E-01,-0.7656E-01,-0.6697E-01,
- *-0.5761E-01,-0.4865E-01,-0.4014E-01,-0.3205E-01,-0.2439E-01,
- *-0.1710E-01,-0.1016E-01,-0.3480E-02, 0.2951E-02, 0.9236E-02,
- * 0.1540E-01, 0.2154E-01, 0.2771E-01, 0.3404E-01, 0.4057E-01,
- * 0.4741E-01, 0.5465E-01, 0.6238E-01, 0.7075E-01, 0.7981E-01,
- * 0.8974E-01, 0.1007E+00, 0.1127E+00, 0.1261E+00, 0.1412E+00,
- * 0.1579E+00, 0.1671E+00, 0.1768E+00, 0.1980E+00, 0.2221E+00,
- * 0.2494E+00, 0.2802E+00, 0.3152E+00, 0.3550E+00, 0.4001E+00,
- * 0.4514E+00, 0.5098E+00, 0.5763E+00, 0.6517E+00, 0.7376E+00,
- * 0.8352E+00, 0.9461E+00, 0.1072E+01, 0.1214E+01, 0.1376E+01,
- * 0.1557E+01, 0.1762E+01, 0.1992E+01, 0.2249E+01, 0.2535E+01,
- * 0.2852E+01, 0.3200E+01, 0.3582E+01, 0.3996E+01, 0.4442E+01,
- * 0.4916E+01, 0.5416E+01, 0.5936E+01, 0.6467E+01, 0.7003E+01,
- * 0.7534E+01, 0.8054E+01, 0.8569E+01, 0.9120E+01, 0.9879E+01,
- * 0.1166E+02, 0.2002E+02, 0.4863E+02 /
- DATA ((UHR(i,j),j=1,83),i= 4, 4)/
- *-0.1751E+00,-0.1732E+00,-0.1670E+00,-0.1615E+00,-0.1570E+00,
- *-0.1524E+00,-0.1472E+00,-0.1409E+00,-0.1338E+00,-0.1258E+00,
- *-0.1174E+00,-0.1086E+00,-0.9941E-01,-0.9014E-01,-0.8106E-01,
- *-0.7211E-01,-0.6334E-01,-0.5492E-01,-0.4679E-01,-0.3893E-01,
- *-0.3135E-01,-0.2403E-01,-0.1693E-01,-0.9997E-02,-0.3159E-02,
- * 0.3634E-02, 0.1045E-01, 0.1733E-01, 0.2443E-01, 0.3174E-01,
- * 0.3944E-01, 0.4756E-01, 0.5622E-01, 0.6557E-01, 0.7570E-01,
- * 0.8684E-01, 0.9909E-01, 0.1126E+00, 0.1277E+00, 0.1445E+00,
- * 0.1632E+00, 0.1733E+00, 0.1841E+00, 0.2076E+00, 0.2340E+00,
- * 0.2637E+00, 0.2972E+00, 0.3350E+00, 0.3777E+00, 0.4261E+00,
- * 0.4808E+00, 0.5428E+00, 0.6130E+00, 0.6924E+00, 0.7821E+00,
- * 0.8834E+00, 0.9977E+00, 0.1126E+01, 0.1271E+01, 0.1433E+01,
- * 0.1615E+01, 0.1817E+01, 0.2043E+01, 0.2292E+01, 0.2568E+01,
- * 0.2870E+01, 0.3199E+01, 0.3556E+01, 0.3939E+01, 0.4348E+01,
- * 0.4780E+01, 0.5230E+01, 0.5693E+01, 0.6165E+01, 0.6636E+01,
- * 0.7103E+01, 0.7563E+01, 0.8029E+01, 0.8553E+01, 0.9339E+01,
- * 0.1129E+02, 0.2013E+02, 0.4703E+02 /
- DATA ((UHR(i,j),j=1,83),i= 5, 5)/
- *-0.1805E+00,-0.1785E+00,-0.1720E+00,-0.1662E+00,-0.1618E+00,
- *-0.1579E+00,-0.1535E+00,-0.1481E+00,-0.1417E+00,-0.1349E+00,
- *-0.1274E+00,-0.1191E+00,-0.1106E+00,-0.1021E+00,-0.9344E-01,
- *-0.8482E-01,-0.7640E-01,-0.6808E-01,-0.5996E-01,-0.5207E-01,
- *-0.4438E-01,-0.3685E-01,-0.2944E-01,-0.2211E-01,-0.1483E-01,
- *-0.7576E-02,-0.2282E-03, 0.7266E-02, 0.1500E-01, 0.2306E-01,
- * 0.3148E-01, 0.4044E-01, 0.5002E-01, 0.6036E-01, 0.7158E-01,
- * 0.8377E-01, 0.9721E-01, 0.1121E+00, 0.1285E+00, 0.1467E+00,
- * 0.1671E+00, 0.1781E+00, 0.1898E+00, 0.2152E+00, 0.2437E+00,
- * 0.2756E+00, 0.3115E+00, 0.3518E+00, 0.3972E+00, 0.4482E+00,
- * 0.5057E+00, 0.5705E+00, 0.6434E+00, 0.7255E+00, 0.8178E+00,
- * 0.9214E+00, 0.1038E+01, 0.1168E+01, 0.1313E+01, 0.1475E+01,
- * 0.1655E+01, 0.1855E+01, 0.2075E+01, 0.2318E+01, 0.2583E+01,
- * 0.2872E+01, 0.3185E+01, 0.3521E+01, 0.3879E+01, 0.4259E+01,
- * 0.4657E+01, 0.5068E+01, 0.5490E+01, 0.5916E+01, 0.6342E+01,
- * 0.6763E+01, 0.7181E+01, 0.7615E+01, 0.8129E+01, 0.8956E+01,
- * 0.1107E+02, 0.2036E+02, 0.4604E+02 /
- DATA ((UHR(i,j),j=1,83),i= 6, 6)/
- *-0.1851E+00,-0.1831E+00,-0.1763E+00,-0.1704E+00,-0.1661E+00,
- *-0.1625E+00,-0.1585E+00,-0.1536E+00,-0.1479E+00,-0.1413E+00,
- *-0.1341E+00,-0.1265E+00,-0.1186E+00,-0.1102E+00,-0.1019E+00,
- *-0.9357E-01,-0.8525E-01,-0.7711E-01,-0.6908E-01,-0.6115E-01,
- *-0.5335E-01,-0.4566E-01,-0.3810E-01,-0.3058E-01,-0.2305E-01,
- *-0.1545E-01,-0.7721E-02, 0.1950E-03, 0.8363E-02, 0.1688E-01,
- * 0.2589E-01, 0.3542E-01, 0.4561E-01, 0.5655E-01, 0.6843E-01,
- * 0.8143E-01, 0.9566E-01, 0.1113E+00, 0.1287E+00, 0.1479E+00,
- * 0.1693E+00, 0.1809E+00, 0.1932E+00, 0.2198E+00, 0.2496E+00,
- * 0.2830E+00, 0.3203E+00, 0.3622E+00, 0.4093E+00, 0.4621E+00,
- * 0.5214E+00, 0.5879E+00, 0.6625E+00, 0.7461E+00, 0.8398E+00,
- * 0.9446E+00, 0.1062E+01, 0.1192E+01, 0.1338E+01, 0.1499E+01,
- * 0.1678E+01, 0.1875E+01, 0.2091E+01, 0.2329E+01, 0.2587E+01,
- * 0.2867E+01, 0.3169E+01, 0.3493E+01, 0.3836E+01, 0.4197E+01,
- * 0.4574E+01, 0.4962E+01, 0.5359E+01, 0.5759E+01, 0.6157E+01,
- * 0.6553E+01, 0.6949E+01, 0.7368E+01, 0.7881E+01, 0.8738E+01,
- * 0.1097E+02, 0.2056E+02, 0.4552E+02 /
- DATA ((UHR(i,j),j=1,83),i= 7, 7)/
- *-0.1939E+00,-0.1918E+00,-0.1844E+00,-0.1782E+00,-0.1740E+00,
- *-0.1707E+00,-0.1672E+00,-0.1628E+00,-0.1577E+00,-0.1518E+00,
- *-0.1453E+00,-0.1384E+00,-0.1309E+00,-0.1230E+00,-0.1152E+00,
- *-0.1072E+00,-0.9906E-01,-0.9106E-01,-0.8309E-01,-0.7515E-01,
- *-0.6723E-01,-0.5937E-01,-0.5153E-01,-0.4368E-01,-0.3574E-01,
- *-0.2767E-01,-0.1942E-01,-0.1095E-01,-0.2114E-02, 0.7110E-02,
- * 0.1689E-01, 0.2727E-01, 0.3836E-01, 0.5030E-01, 0.6322E-01,
- * 0.7734E-01, 0.9277E-01, 0.1097E+00, 0.1284E+00, 0.1491E+00,
- * 0.1720E+00, 0.1845E+00, 0.1975E+00, 0.2260E+00, 0.2578E+00,
- * 0.2932E+00, 0.3328E+00, 0.3769E+00, 0.4263E+00, 0.4816E+00,
- * 0.5433E+00, 0.6121E+00, 0.6890E+00, 0.7746E+00, 0.8701E+00,
- * 0.9763E+00, 0.1094E+01, 0.1225E+01, 0.1370E+01, 0.1529E+01,
- * 0.1705E+01, 0.1898E+01, 0.2108E+01, 0.2338E+01, 0.2586E+01,
- * 0.2853E+01, 0.3139E+01, 0.3443E+01, 0.3764E+01, 0.4100E+01,
- * 0.4448E+01, 0.4806E+01, 0.5169E+01, 0.5535E+01, 0.5898E+01,
- * 0.6261E+01, 0.6631E+01, 0.7033E+01, 0.7553E+01, 0.8466E+01,
- * 0.1088E+02, 0.2095E+02, 0.4501E+02 /
- DATA ((UHR(i,j),j=1,83),i= 8, 8)/
- *-0.2078E+00,-0.2055E+00,-0.1975E+00,-0.1903E+00,-0.1858E+00,
- *-0.1828E+00,-0.1800E+00,-0.1764E+00,-0.1720E+00,-0.1669E+00,
- *-0.1610E+00,-0.1545E+00,-0.1477E+00,-0.1405E+00,-0.1329E+00,
- *-0.1252E+00,-0.1175E+00,-0.1096E+00,-0.1017E+00,-0.9372E-01,
- *-0.8572E-01,-0.7766E-01,-0.6952E-01,-0.6124E-01,-0.5284E-01,
- *-0.4421E-01,-0.3533E-01,-0.2609E-01,-0.1648E-01,-0.6367E-02,
- * 0.4304E-02, 0.1569E-01, 0.2791E-01, 0.4108E-01, 0.5538E-01,
- * 0.7092E-01, 0.8791E-01, 0.1066E+00, 0.1271E+00, 0.1496E+00,
- * 0.1746E+00, 0.1881E+00, 0.2023E+00, 0.2330E+00, 0.2670E+00,
- * 0.3049E+00, 0.3471E+00, 0.3939E+00, 0.4461E+00, 0.5040E+00,
- * 0.5683E+00, 0.6398E+00, 0.7190E+00, 0.8069E+00, 0.9040E+00,
- * 0.1011E+01, 0.1130E+01, 0.1260E+01, 0.1403E+01, 0.1560E+01,
- * 0.1731E+01, 0.1917E+01, 0.2120E+01, 0.2338E+01, 0.2572E+01,
- * 0.2823E+01, 0.3089E+01, 0.3370E+01, 0.3665E+01, 0.3971E+01,
- * 0.4287E+01, 0.4610E+01, 0.4935E+01, 0.5263E+01, 0.5590E+01,
- * 0.5919E+01, 0.6262E+01, 0.6653E+01, 0.7195E+01, 0.8206E+01,
- * 0.1089E+02, 0.2157E+02, 0.4463E+02 /
- DATA ((UHR(i,j),j=1,83),i= 9, 9)/
- *-0.2255E+00,-0.2229E+00,-0.2138E+00,-0.2058E+00,-0.2011E+00,
- *-0.1982E+00,-0.1958E+00,-0.1927E+00,-0.1888E+00,-0.1846E+00,
- *-0.1795E+00,-0.1735E+00,-0.1671E+00,-0.1605E+00,-0.1535E+00,
- *-0.1462E+00,-0.1387E+00,-0.1310E+00,-0.1232E+00,-0.1153E+00,
- *-0.1072E+00,-0.9901E-01,-0.9058E-01,-0.8192E-01,-0.7302E-01,
- *-0.6387E-01,-0.5434E-01,-0.4439E-01,-0.3392E-01,-0.2284E-01,
- *-0.1112E-01, 0.1434E-02, 0.1493E-01, 0.2953E-01, 0.4533E-01,
- * 0.6244E-01, 0.8117E-01, 0.1017E+00, 0.1241E+00, 0.1489E+00,
- * 0.1761E+00, 0.1907E+00, 0.2061E+00, 0.2392E+00, 0.2758E+00,
- * 0.3163E+00, 0.3610E+00, 0.4104E+00, 0.4651E+00, 0.5254E+00,
- * 0.5920E+00, 0.6657E+00, 0.7469E+00, 0.8362E+00, 0.9344E+00,
- * 0.1042E+01, 0.1160E+01, 0.1289E+01, 0.1430E+01, 0.1583E+01,
- * 0.1748E+01, 0.1927E+01, 0.2119E+01, 0.2325E+01, 0.2545E+01,
- * 0.2779E+01, 0.3024E+01, 0.3281E+01, 0.3549E+01, 0.3826E+01,
- * 0.4110E+01, 0.4398E+01, 0.4689E+01, 0.4981E+01, 0.5275E+01,
- * 0.5577E+01, 0.5901E+01, 0.6294E+01, 0.6874E+01, 0.8007E+01,
- * 0.1103E+02, 0.2244E+02, 0.4453E+02 /
- DATA ((UHR(i,j),j=1,83),i=10,10)/
- *-0.2466E+00,-0.2436E+00,-0.2333E+00,-0.2244E+00,-0.2192E+00,
- *-0.2163E+00,-0.2141E+00,-0.2115E+00,-0.2082E+00,-0.2043E+00,
- *-0.1998E+00,-0.1946E+00,-0.1887E+00,-0.1825E+00,-0.1760E+00,
- *-0.1691E+00,-0.1618E+00,-0.1544E+00,-0.1467E+00,-0.1388E+00,
- *-0.1307E+00,-0.1223E+00,-0.1136E+00,-0.1046E+00,-0.9524E-01,
- *-0.8549E-01,-0.7529E-01,-0.6458E-01,-0.5320E-01,-0.4114E-01,
- *-0.2824E-01,-0.1442E-01, 0.3993E-03, 0.1642E-01, 0.3373E-01,
- * 0.5256E-01, 0.7304E-01, 0.9537E-01, 0.1199E+00, 0.1468E+00,
- * 0.1762E+00, 0.1919E+00, 0.2084E+00, 0.2439E+00, 0.2829E+00,
- * 0.3258E+00, 0.3729E+00, 0.4247E+00, 0.4815E+00, 0.5440E+00,
- * 0.6125E+00, 0.6877E+00, 0.7701E+00, 0.8601E+00, 0.9584E+00,
- * 0.1066E+01, 0.1182E+01, 0.1309E+01, 0.1446E+01, 0.1594E+01,
- * 0.1753E+01, 0.1924E+01, 0.2106E+01, 0.2300E+01, 0.2505E+01,
- * 0.2721E+01, 0.2947E+01, 0.3182E+01, 0.3426E+01, 0.3676E+01,
- * 0.3931E+01, 0.4189E+01, 0.4450E+01, 0.4713E+01, 0.4982E+01,
- * 0.5264E+01, 0.5581E+01, 0.5989E+01, 0.6627E+01, 0.7906E+01,
- * 0.1130E+02, 0.2350E+02, 0.4472E+02 /
- DATA ((UHR(i,j),j=1,83),i=11,11)/
- *-0.2671E+00,-0.2639E+00,-0.2524E+00,-0.2420E+00,-0.2360E+00,
- *-0.2330E+00,-0.2312E+00,-0.2290E+00,-0.2261E+00,-0.2228E+00,
- *-0.2188E+00,-0.2136E+00,-0.2081E+00,-0.2023E+00,-0.1960E+00,
- *-0.1893E+00,-0.1823E+00,-0.1750E+00,-0.1673E+00,-0.1594E+00,
- *-0.1512E+00,-0.1426E+00,-0.1337E+00,-0.1243E+00,-0.1145E+00,
- *-0.1043E+00,-0.9346E-01,-0.8205E-01,-0.6991E-01,-0.5697E-01,
- *-0.4322E-01,-0.2843E-01,-0.1248E-01, 0.4781E-02, 0.2342E-01,
- * 0.4355E-01, 0.6549E-01, 0.8940E-01, 0.1154E+00, 0.1439E+00,
- * 0.1750E+00, 0.1916E+00, 0.2091E+00, 0.2463E+00, 0.2871E+00,
- * 0.3318E+00, 0.3807E+00, 0.4342E+00, 0.4928E+00, 0.5566E+00,
- * 0.6263E+00, 0.7024E+00, 0.7854E+00, 0.8755E+00, 0.9734E+00,
- * 0.1080E+01, 0.1194E+01, 0.1318E+01, 0.1452E+01, 0.1595E+01,
- * 0.1748E+01, 0.1912E+01, 0.2085E+01, 0.2268E+01, 0.2462E+01,
- * 0.2665E+01, 0.2875E+01, 0.3094E+01, 0.3319E+01, 0.3550E+01,
- * 0.3785E+01, 0.4023E+01, 0.4263E+01, 0.4507E+01, 0.4761E+01,
- * 0.5034E+01, 0.5354E+01, 0.5782E+01, 0.6483E+01, 0.7919E+01,
- * 0.1166E+02, 0.2455E+02, 0.4508E+02 /
- DATA ((UHR(i,j),j=1,83),i=12,12)/
- *-0.2816E+00,-0.2782E+00,-0.2661E+00,-0.2548E+00,-0.2481E+00,
- *-0.2450E+00,-0.2432E+00,-0.2411E+00,-0.2386E+00,-0.2351E+00,
- *-0.2310E+00,-0.2265E+00,-0.2214E+00,-0.2155E+00,-0.2092E+00,
- *-0.2026E+00,-0.1956E+00,-0.1884E+00,-0.1808E+00,-0.1728E+00,
- *-0.1644E+00,-0.1557E+00,-0.1466E+00,-0.1371E+00,-0.1270E+00,
- *-0.1164E+00,-0.1052E+00,-0.9330E-01,-0.8071E-01,-0.6727E-01,
- *-0.5284E-01,-0.3740E-01,-0.2079E-01,-0.2916E-02, 0.1647E-01,
- * 0.3753E-01, 0.6036E-01, 0.8519E-01, 0.1122E+00, 0.1416E+00,
- * 0.1737E+00, 0.1909E+00, 0.2089E+00, 0.2472E+00, 0.2889E+00,
- * 0.3346E+00, 0.3844E+00, 0.4388E+00, 0.4981E+00, 0.5628E+00,
- * 0.6333E+00, 0.7096E+00, 0.7926E+00, 0.8827E+00, 0.9802E+00,
- * 0.1085E+01, 0.1199E+01, 0.1321E+01, 0.1452E+01, 0.1592E+01,
- * 0.1741E+01, 0.1900E+01, 0.2068E+01, 0.2246E+01, 0.2432E+01,
- * 0.2626E+01, 0.2828E+01, 0.3038E+01, 0.3252E+01, 0.3472E+01,
- * 0.3695E+01, 0.3921E+01, 0.4151E+01, 0.4386E+01, 0.4631E+01,
- * 0.4900E+01, 0.5225E+01, 0.5673E+01, 0.6420E+01, 0.7960E+01,
- * 0.1193E+02, 0.2524E+02, 0.4537E+02 /
- DATA ((UHR(i,j),j=1,83),i=13,13)/
- *-0.3231E+00,-0.3191E+00,-0.3044E+00,-0.2904E+00,-0.2822E+00,
- *-0.2784E+00,-0.2767E+00,-0.2749E+00,-0.2725E+00,-0.2699E+00,
- *-0.2664E+00,-0.2619E+00,-0.2568E+00,-0.2515E+00,-0.2455E+00,
- *-0.2391E+00,-0.2323E+00,-0.2249E+00,-0.2171E+00,-0.2090E+00,
- *-0.2004E+00,-0.1913E+00,-0.1816E+00,-0.1714E+00,-0.1606E+00,
- *-0.1491E+00,-0.1370E+00,-0.1240E+00,-0.1102E+00,-0.9530E-01,
- *-0.7947E-01,-0.6242E-01,-0.4403E-01,-0.2415E-01,-0.2749E-02,
- * 0.2029E-01, 0.4528E-01, 0.7237E-01, 0.1017E+00, 0.1336E+00,
- * 0.1682E+00, 0.1864E+00, 0.2056E+00, 0.2462E+00, 0.2904E+00,
- * 0.3383E+00, 0.3902E+00, 0.4465E+00, 0.5074E+00, 0.5731E+00,
- * 0.6440E+00, 0.7208E+00, 0.8036E+00, 0.8925E+00, 0.9879E+00,
- * 0.1090E+01, 0.1200E+01, 0.1316E+01, 0.1440E+01, 0.1572E+01,
- * 0.1711E+01, 0.1858E+01, 0.2012E+01, 0.2174E+01, 0.2342E+01,
- * 0.2517E+01, 0.2698E+01, 0.2883E+01, 0.3073E+01, 0.3267E+01,
- * 0.3465E+01, 0.3667E+01, 0.3874E+01, 0.4091E+01, 0.4328E+01,
- * 0.4601E+01, 0.4951E+01, 0.5466E+01, 0.6362E+01, 0.8219E+01,
- * 0.1287E+02, 0.2742E+02, 0.4654E+02 /
- DATA ((UHR(i,j),j=1,83),i=14,14)/
- *-0.3870E+00,-0.3820E+00,-0.3635E+00,-0.3450E+00,-0.3336E+00,
- *-0.3280E+00,-0.3257E+00,-0.3238E+00,-0.3216E+00,-0.3193E+00,
- *-0.3162E+00,-0.3121E+00,-0.3073E+00,-0.3021E+00,-0.2965E+00,
- *-0.2900E+00,-0.2831E+00,-0.2756E+00,-0.2676E+00,-0.2591E+00,
- *-0.2500E+00,-0.2403E+00,-0.2298E+00,-0.2187E+00,-0.2068E+00,
- *-0.1941E+00,-0.1806E+00,-0.1662E+00,-0.1507E+00,-0.1340E+00,
- *-0.1162E+00,-0.9703E-01,-0.7642E-01,-0.5423E-01,-0.3043E-01,
- *-0.4862E-02, 0.2265E-01, 0.5229E-01, 0.8431E-01, 0.1189E+00,
- * 0.1559E+00, 0.1754E+00, 0.1957E+00, 0.2387E+00, 0.2851E+00,
- * 0.3348E+00, 0.3882E+00, 0.4456E+00, 0.5071E+00, 0.5729E+00,
- * 0.6432E+00, 0.7186E+00, 0.7990E+00, 0.8845E+00, 0.9754E+00,
- * 0.1072E+01, 0.1174E+01, 0.1282E+01, 0.1396E+01, 0.1516E+01,
- * 0.1642E+01, 0.1773E+01, 0.1910E+01, 0.2052E+01, 0.2200E+01,
- * 0.2352E+01, 0.2509E+01, 0.2669E+01, 0.2835E+01, 0.3005E+01,
- * 0.3179E+01, 0.3361E+01, 0.3554E+01, 0.3765E+01, 0.4010E+01,
- * 0.4316E+01, 0.4739E+01, 0.5399E+01, 0.6569E+01, 0.8955E+01,
- * 0.1466E+02, 0.3092E+02, 0.4862E+02 /
- DATA ((UHR(i,j),j=1,83),i=15,15)/
- *-0.5767E+00,-0.5675E+00,-0.5318E+00,-0.4900E+00,-0.4589E+00,
- *-0.4414E+00,-0.4325E+00,-0.4271E+00,-0.4230E+00,-0.4193E+00,
- *-0.4158E+00,-0.4119E+00,-0.4072E+00,-0.4016E+00,-0.3952E+00,
- *-0.3882E+00,-0.3806E+00,-0.3723E+00,-0.3632E+00,-0.3534E+00,
- *-0.3428E+00,-0.3313E+00,-0.3190E+00,-0.3058E+00,-0.2917E+00,
- *-0.2766E+00,-0.2605E+00,-0.2431E+00,-0.2248E+00,-0.2052E+00,
- *-0.1844E+00,-0.1624E+00,-0.1390E+00,-0.1141E+00,-0.8766E-01,
- *-0.5953E-01,-0.2973E-01, 0.1805E-02, 0.3501E-01, 0.7009E-01,
- * 0.1074E+00, 0.1270E+00, 0.1470E+00, 0.1886E+00, 0.2322E+00,
- * 0.2785E+00, 0.3272E+00, 0.3784E+00, 0.4322E+00, 0.4890E+00,
- * 0.5486E+00, 0.6108E+00, 0.6761E+00, 0.7449E+00, 0.8168E+00,
- * 0.8919E+00, 0.9705E+00, 0.1053E+01, 0.1140E+01, 0.1230E+01,
- * 0.1324E+01, 0.1424E+01, 0.1529E+01, 0.1639E+01, 0.1755E+01,
- * 0.1878E+01, 0.2010E+01, 0.2154E+01, 0.2310E+01, 0.2482E+01,
- * 0.2677E+01, 0.2904E+01, 0.3178E+01, 0.3521E+01, 0.3972E+01,
- * 0.4601E+01, 0.5536E+01, 0.7019E+01, 0.9541E+01, 0.1418E+02,
- * 0.2350E+02, 0.4319E+02, 0.5584E+02 /
- DATA ((UHR(i,j),j=1,83),i=16,16)/
- *-0.6058E+00,-0.5946E+00,-0.5508E+00,-0.4965E+00,-0.4520E+00,
- *-0.4228E+00,-0.4053E+00,-0.3942E+00,-0.3865E+00,-0.3809E+00,
- *-0.3762E+00,-0.3717E+00,-0.3671E+00,-0.3620E+00,-0.3564E+00,
- *-0.3500E+00,-0.3428E+00,-0.3350E+00,-0.3266E+00,-0.3174E+00,
- *-0.3075E+00,-0.2969E+00,-0.2855E+00,-0.2733E+00,-0.2602E+00,
- *-0.2463E+00,-0.2315E+00,-0.2159E+00,-0.1993E+00,-0.1816E+00,
- *-0.1629E+00,-0.1430E+00,-0.1220E+00,-0.9988E-01,-0.7664E-01,
- *-0.5214E-01,-0.2643E-01, 0.7463E-03, 0.2965E-01, 0.6005E-01,
- * 0.9169E-01, 0.1081E+00, 0.1249E+00, 0.1600E+00, 0.1971E+00,
- * 0.2359E+00, 0.2766E+00, 0.3194E+00, 0.3645E+00, 0.4119E+00,
- * 0.4617E+00, 0.5146E+00, 0.5701E+00, 0.6283E+00, 0.6899E+00,
- * 0.7556E+00, 0.8252E+00, 0.8988E+00, 0.9776E+00, 0.1063E+01,
- * 0.1153E+01, 0.1251E+01, 0.1357E+01, 0.1472E+01, 0.1599E+01,
- * 0.1740E+01, 0.1895E+01, 0.2071E+01, 0.2271E+01, 0.2504E+01,
- * 0.2778E+01, 0.3109E+01, 0.3521E+01, 0.4046E+01, 0.4745E+01,
- * 0.5712E+01, 0.7112E+01, 0.9242E+01, 0.1266E+02, 0.1847E+02,
- * 0.2900E+02, 0.4746E+02, 0.5654E+02 /
- DATA ((UHR(i,j),j=1,83),i=17,17)/
- *-0.5984E+00,-0.5867E+00,-0.5407E+00,-0.4824E+00,-0.4333E+00,
- *-0.4002E+00,-0.3797E+00,-0.3663E+00,-0.3571E+00,-0.3504E+00,
- *-0.3452E+00,-0.3410E+00,-0.3365E+00,-0.3314E+00,-0.3259E+00,
- *-0.3197E+00,-0.3130E+00,-0.3059E+00,-0.2981E+00,-0.2895E+00,
- *-0.2802E+00,-0.2702E+00,-0.2596E+00,-0.2483E+00,-0.2361E+00,
- *-0.2230E+00,-0.2091E+00,-0.1945E+00,-0.1790E+00,-0.1626E+00,
- *-0.1451E+00,-0.1265E+00,-0.1071E+00,-0.8671E-01,-0.6516E-01,
- *-0.4238E-01,-0.1840E-01, 0.6810E-02, 0.3332E-01, 0.6119E-01,
- * 0.9053E-01, 0.1058E+00, 0.1215E+00, 0.1541E+00, 0.1884E+00,
- * 0.2243E+00, 0.2621E+00, 0.3020E+00, 0.3441E+00, 0.3888E+00,
- * 0.4361E+00, 0.4857E+00, 0.5378E+00, 0.5931E+00, 0.6526E+00,
- * 0.7162E+00, 0.7841E+00, 0.8567E+00, 0.9346E+00, 0.1019E+01,
- * 0.1111E+01, 0.1211E+01, 0.1320E+01, 0.1442E+01, 0.1576E+01,
- * 0.1725E+01, 0.1895E+01, 0.2089E+01, 0.2311E+01, 0.2571E+01,
- * 0.2878E+01, 0.3253E+01, 0.3722E+01, 0.4319E+01, 0.5105E+01,
- * 0.6187E+01, 0.7737E+01, 0.1006E+02, 0.1371E+02, 0.1976E+02,
- * 0.3036E+02, 0.4765E+02, 0.5552E+02 /
- DATA ((UHR(i,j),j=1,83),i=18,18)/
- *-0.5521E+00,-0.5399E+00,-0.4910E+00,-0.4261E+00,-0.3694E+00,
- *-0.3292E+00,-0.3030E+00,-0.2853E+00,-0.2727E+00,-0.2638E+00,
- *-0.2573E+00,-0.2520E+00,-0.2473E+00,-0.2428E+00,-0.2380E+00,
- *-0.2332E+00,-0.2280E+00,-0.2221E+00,-0.2158E+00,-0.2090E+00,
- *-0.2017E+00,-0.1938E+00,-0.1853E+00,-0.1761E+00,-0.1665E+00,
- *-0.1563E+00,-0.1453E+00,-0.1336E+00,-0.1211E+00,-0.1079E+00,
- *-0.9412E-01,-0.7967E-01,-0.6432E-01,-0.4798E-01,-0.3074E-01,
- *-0.1255E-01, 0.6715E-02, 0.2704E-01, 0.4837E-01, 0.7090E-01,
- * 0.9491E-01, 0.1074E+00, 0.1203E+00, 0.1470E+00, 0.1751E+00,
- * 0.2051E+00, 0.2371E+00, 0.2710E+00, 0.3070E+00, 0.3454E+00,
- * 0.3865E+00, 0.4307E+00, 0.4786E+00, 0.5304E+00, 0.5861E+00,
- * 0.6462E+00, 0.7119E+00, 0.7842E+00, 0.8637E+00, 0.9510E+00,
- * 0.1049E+01, 0.1158E+01, 0.1280E+01, 0.1418E+01, 0.1574E+01,
- * 0.1752E+01, 0.1957E+01, 0.2194E+01, 0.2473E+01, 0.2803E+01,
- * 0.3198E+01, 0.3678E+01, 0.4272E+01, 0.5025E+01, 0.6008E+01,
- * 0.7326E+01, 0.9156E+01, 0.1179E+02, 0.1576E+02, 0.2198E+02,
- * 0.3205E+02, 0.4585E+02, 0.5119E+02 /
- DATA ((UHR(i,j),j=1,83),i=19,19)/
- *-0.4886E+00,-0.4774E+00,-0.4325E+00,-0.3705E+00,-0.3132E+00,
- *-0.2692E+00,-0.2385E+00,-0.2168E+00,-0.2012E+00,-0.1902E+00,
- *-0.1821E+00,-0.1759E+00,-0.1711E+00,-0.1671E+00,-0.1633E+00,
- *-0.1593E+00,-0.1550E+00,-0.1504E+00,-0.1454E+00,-0.1402E+00,
- *-0.1346E+00,-0.1285E+00,-0.1219E+00,-0.1149E+00,-0.1073E+00,
- *-0.9929E-01,-0.9078E-01,-0.8176E-01,-0.7214E-01,-0.6190E-01,
- *-0.5100E-01,-0.3936E-01,-0.2691E-01,-0.1377E-01, 0.6039E-04,
- * 0.1462E-01, 0.2999E-01, 0.4641E-01, 0.6409E-01, 0.8289E-01,
- * 0.1026E+00, 0.1129E+00, 0.1235E+00, 0.1461E+00, 0.1705E+00,
- * 0.1965E+00, 0.2244E+00, 0.2545E+00, 0.2869E+00, 0.3219E+00,
- * 0.3598E+00, 0.4014E+00, 0.4468E+00, 0.4963E+00, 0.5505E+00,
- * 0.6109E+00, 0.6778E+00, 0.7523E+00, 0.8358E+00, 0.9299E+00,
- * 0.1035E+01, 0.1154E+01, 0.1289E+01, 0.1443E+01, 0.1621E+01,
- * 0.1827E+01, 0.2064E+01, 0.2340E+01, 0.2665E+01, 0.3050E+01,
- * 0.3512E+01, 0.4072E+01, 0.4761E+01, 0.5626E+01, 0.6735E+01,
- * 0.8192E+01, 0.1016E+02, 0.1289E+02, 0.1684E+02, 0.2266E+02,
- * 0.3152E+02, 0.4198E+02, 0.4560E+02 /
- DATA ((UHR(i,j),j=1,83),i=20,20)/
- *-0.3196E+00,-0.3128E+00,-0.2855E+00,-0.2438E+00,-0.1991E+00,
- *-0.1599E+00,-0.1282E+00,-0.1026E+00,-0.8219E-01,-0.6633E-01,
- *-0.5402E-01,-0.4447E-01,-0.3721E-01,-0.3163E-01,-0.2718E-01,
- *-0.2343E-01,-0.2005E-01,-0.1687E-01,-0.1383E-01,-0.1089E-01,
- *-0.7955E-02,-0.4932E-02,-0.1737E-02, 0.1654E-02, 0.5222E-02,
- * 0.9004E-02, 0.1308E-01, 0.1754E-01, 0.2240E-01, 0.2764E-01,
- * 0.3327E-01, 0.3941E-01, 0.4619E-01, 0.5358E-01, 0.6158E-01,
- * 0.7025E-01, 0.7974E-01, 0.9017E-01, 0.1017E+00, 0.1144E+00,
- * 0.1283E+00, 0.1357E+00, 0.1436E+00, 0.1605E+00, 0.1793E+00,
- * 0.2003E+00, 0.2236E+00, 0.2496E+00, 0.2786E+00, 0.3110E+00,
- * 0.3472E+00, 0.3883E+00, 0.4348E+00, 0.4871E+00, 0.5462E+00,
- * 0.6134E+00, 0.6898E+00, 0.7771E+00, 0.8773E+00, 0.9922E+00,
- * 0.1124E+01, 0.1275E+01, 0.1450E+01, 0.1652E+01, 0.1886E+01,
- * 0.2157E+01, 0.2473E+01, 0.2839E+01, 0.3268E+01, 0.3773E+01,
- * 0.4366E+01, 0.5063E+01, 0.5892E+01, 0.6882E+01, 0.8075E+01,
- * 0.9525E+01, 0.1130E+02, 0.1350E+02, 0.1626E+02, 0.1969E+02,
- * 0.2340E+02, 0.2626E+02, 0.2704E+02 /
-
-
- do 1 i=1,20
- asy(1,i)=asy_m(i)
- ex(1,i)=ex_m(i)
- sc(1,i)=sc_m(i)
- do 1 j=1,nquad
- ph(i,j)=phr(i,j)
- qh(i,j)=qhr(i,j)
- uh(i,j)=uhr(i,j)
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/BBM.h b/Modules/ThirdParty/6S/src/6SV1.0B/BBM.h
deleted file mode 100644
index 508a69a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/BBM.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_bbm_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/BDM.P b/Modules/ThirdParty/6S/src/6SV1.0B/BDM.P
deleted file mode 100644
index 1b9609b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/BDM.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int bdm_();
-/* comlen num_quad__ 4 */
-/* comlen sixs_aerbas__ 480000 */
-/* comlen sixs_coef__ 1952 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/BDM.c b/Modules/ThirdParty/6S/src/6SV1.0B/BDM.c
deleted file mode 100644
index fe1ca52..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/BDM.c
+++ /dev/null
@@ -1,694 +0,0 @@
-/* BDM.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal ph[20000] /* was [20][1000] */, qh[20000] /* was [20][
- 1000] */, uh[20000] /* was [20][1000] */;
-} sixs_aerbas__;
-
-#define sixs_aerbas__1 sixs_aerbas__
-
-Extern struct {
- doublereal ex[80] /* was [4][20] */, sc[80] /* was [4][20] */,
- asy[80] /* was [4][20] */, vi[4];
-} sixs_coef__;
-
-#define sixs_coef__1 sixs_coef__
-
-/*< subroutine bdm >*/
-/* Subroutine */ int bdm_()
-{
- /* Initialized data */
-
- static doublereal asy_m__[20] = { .701,.69,.687,.681,.677,.675,.671,.665,
- .66,.655,.651,.648,.639,.626,.583,.587,.583,.595,.605,.547 };
- static doublereal ex_m__[20] = { .09978367,.0939049,.09241579,.08848752,
- .08496436,.08261336,.07913338,.07475012,.06989562,.06496391,
- .06097984,.05852314,.05225345,.04403058,.02414531,.0107873,
- .008476357,.003624489,.001813242,.001101573 };
- static doublereal sc_m__[20] = { .08870113,.08606911,.08536333,.08329929,
- .08053116,.07846993,.07561909,.07217911,.06785794,.06316575,
- .05937214,.05706264,.05114494,.04369425,.02392341,.01061324,
- .00830047,.003460222,.001624963,6.737047e-4 };
- static doublereal phr[1660] /* was [20][83] */ = { .3494,.3524,.3543,
- .3623,.3549,.3501,.3444,.3445,.3352,.3251,.3184,.3186,.3108,.3172,
- .3355,.2986,.304,.302,.302,.3991,.3432,.3465,.3485,.3565,.3494,
- .3448,.3394,.3396,.3308,.3211,.3146,.3148,.3076,.314,.3327,.297,
- .3027,.3011,.3015,.3988,.3196,.3245,.3269,.3352,.3296,.3255,.3213,
- .3223,.3154,.3071,.3017,.3016,.2963,.3035,.3233,.2925,.2989,.2986,
- .3003,.3978,.2868,.2939,.2968,.3054,.3019,.2985,.2961,.2982,.2937,
- .2874,.2836,.2834,.2807,.2893,.3114,.2886,.2955,.2971,.2996,.3964,
- .2541,.2629,.2661,.2749,.2732,.2707,.2698,.2729,.2706,.2664,.2641,
- .2641,.2639,.2739,.2995,.2868,.2941,.2968,.299,.3948,.2281,.2374,
- .2406,.2493,.2488,.2469,.247,.251,.2501,.2475,.2464,.2469,.2484,
- .2593,.2889,.2865,.2941,.2964,.2979,.3929,.2113,.2201,.2232,.2313,
- .2314,.2298,.2303,.2345,.2344,.2326,.2325,.2333,.2357,.2471,.2799,
- .2862,.294,.295,.2962,.3906,.2032,.2108,.2135,.2208,.2207,.2193,
- .2198,.2236,.2238,.2224,.2226,.2235,.2264,.2379,.2725,.2849,.2929,
- .2928,.2942,.3879,.2008,.2069,.2092,.2155,.2151,.2136,.2138,.217,
- .217,.2157,.2159,.2168,.2198,.231,.2664,.2824,.2906,.2901,.2919,
- .3847,.2006,.2052,.2072,.2125,.2118,.2101,.21,.2127,.2124,.2109,
- .2111,.2118,.2147,.2253,.2611,.2789,.287,.287,.2895,.3812,.1999,
- .2036,.2053,.2098,.2089,.2071,.2067,.2091,.2085,.2069,.207,.2076,
- .2103,.2203,.256,.2746,.2828,.2837,.2869,.3773,.1976,.2008,.2023,
- .2063,.2053,.2036,.2031,.2051,.2045,.203,.203,.2036,.2061,.2156,
- .2509,.2696,.2783,.2804,.2842,.3732,.1935,.1966,.1979,.2016,.2006,
- .1992,.1988,.2005,.2001,.1989,.1989,.1995,.202,.211,.2459,.2644,
- .2735,.2771,.2814,.3689,.1877,.191,.1923,.1959,.1952,.1941,.1938,
- .1955,.1952,.1944,.1945,.1952,.1978,.2065,.2412,.2592,.2686,.2737,
- .2785,.3645,.1811,.1847,.186,.1895,.1892,.1883,.1883,.1901,.1902,
- .1897,.1901,.1909,.1936,.2022,.2367,.2541,.2637,.2704,.2757,.3599,
- .174,.178,.1794,.1829,.1829,.1823,.1826,.1846,.1851,.185,.1856,
- .1865,.1895,.1981,.2326,.2492,.2588,.2671,.2728,.3552,.167,.1714,
- .1728,.1763,.1767,.1764,.177,.1791,.18,.1804,.1813,.1823,.1856,
- .1942,.2287,.2446,.2543,.2638,.2699,.3504,.1603,.1651,.1665,.1701,
- .1709,.1708,.1717,.174,.1752,.176,.1772,.1783,.182,.1907,.2253,
- .2403,.2501,.2605,.267,.3457,.1543,.1594,.1608,.1645,.1655,.1657,
- .1668,.1692,.1708,.172,.1735,.1747,.1786,.1875,.2223,.2364,.2461,
- .2574,.2643,.3409,.149,.1543,.1558,.1595,.1607,.1611,.1625,.165,
- .1669,.1685,.1701,.1715,.1757,.1847,.2197,.2329,.2426,.2543,.2615,
- .3363,.1445,.1499,.1514,.1552,.1566,.1572,.1587,.1613,.1636,.1655,
- .1673,.1688,.1733,.1824,.2176,.2299,.2394,.2515,.259,.3317,.1407,
- .1463,.1478,.1516,.1531,.1539,.1557,.1584,.1608,.163,.1651,.1666,
- .1714,.1806,.216,.2274,.2367,.2488,.2565,.3274,.1378,.1435,.145,
- .1488,.1504,.1513,.1532,.156,.1587,.1611,.1633,.165,.17,.1793,
- .215,.2253,.2344,.2464,.2542,.3232,.1357,.1414,.1428,.1466,.1484,
- .1495,.1515,.1544,.1572,.1599,.1622,.164,.1692,.1786,.2145,.2238,
- .2326,.2444,.2522,.3193,.1343,.14,.1414,.1452,.1472,.1483,.1504,
- .1535,.1564,.1592,.1618,.1637,.169,.1785,.2147,.2229,.2315,.2427,
- .2504,.3157,.1336,.1393,.1408,.1445,.1467,.1478,.15,.1533,.1563,
- .1592,.162,.1639,.1694,.1791,.2156,.2226,.2308,.2414,.249,.3125,
- .1336,.1394,.1409,.1446,.1469,.1481,.1503,.1537,.1569,.16,.1629,
- .1649,.1705,.1804,.2171,.2229,.2309,.2407,.2479,.3098,.1344,.1402,
- .1417,.1455,.1478,.149,.1513,.1549,.1582,.1614,.1645,.1665,.1724,
- .1824,.2193,.2239,.2316,.2405,.2473,.3076,.1358,.1417,.1432,.147,
- .1495,.1507,.1531,.1567,.1602,.1636,.1668,.1688,.1749,.1851,.2224,
- .2258,.2331,.2409,.2472,.3059,.138,.144,.1455,.1494,.1519,.1532,
- .1557,.1594,.163,.1665,.1698,.172,.1783,.1886,.2264,.2284,.2354,
- .242,.2477,.3049,.141,.147,.1485,.1524,.155,.1565,.1591,.1628,
- .1665,.1703,.1737,.176,.1824,.193,.2313,.232,.2386,.2439,.2488,
- .3047,.1446,.1507,.1523,.1563,.159,.1606,.1632,.1671,.1709,.1749,
- .1784,.1808,.1874,.1982,.2373,.2365,.2427,.2466,.2507,.3053,.1491,
- .1554,.1569,.1611,.1638,.1655,.1683,.1722,.1762,.1804,.184,.1866,
- .1934,.2045,.2444,.2421,.2479,.2503,.2534,.3067,.1543,.1608,.1624,
- .1667,.1695,.1713,.1742,.1783,.1825,.1868,.1907,.1934,.2005,.2119,
- .2526,.2488,.2543,.2549,.257,.3092,.1605,.1672,.1688,.1732,.1762,
- .1781,.1811,.1854,.1898,.1944,.1984,.2012,.2086,.2205,.2622,.2568,
- .2619,.2607,.2616,.3128,.1676,.1745,.1762,.1808,.1839,.1859,.1891,
- .1937,.1982,.203,.2073,.2102,.218,.2303,.2733,.2662,.2709,.2678,
- .2673,.3175,.1757,.1829,.1847,.1895,.1928,.1949,.1983,.203,.2078,
- .2129,.2174,.2205,.2286,.2414,.2859,.2772,.2814,.2762,.2743,.3236,
- .1849,.1925,.1944,.1994,.2028,.2052,.2087,.2137,.2187,.2242,.2289,
- .2323,.2407,.2542,.3002,.2898,.2936,.2861,.2826,.3312,.1953,.2034,
- .2053,.2106,.2143,.2168,.2205,.2258,.2312,.237,.242,.2455,.2545,
- .2686,.3164,.3042,.3077,.2977,.2925,.3403,.207,.2156,.2177,.2233,
- .2273,.2299,.2339,.2394,.2453,.2515,.2568,.2605,.2701,.2849,.3346,
- .3207,.3237,.3111,.304,.3511,.2202,.2294,.2317,.2376,.2419,.2446,
- .2489,.2549,.2612,.2678,.2735,.2773,.2876,.3032,.3552,.3395,.3419,
- .3266,.3173,.3638,.2274,.237,.2393,.2454,.2499,.2527,.2572,.2633,
- .2699,.2767,.2826,.2865,.2972,.3133,.3664,.3497,.3519,.3351,.3247,
- .3709,.2351,.245,.2474,.2537,.2583,.2612,.2659,.2723,.2791,.2861,
- .2923,.2963,.3073,.3239,.3782,.3606,.3626,.3442,.3327,.3786,.2518,
- .2625,.2651,.2719,.2768,.28,.2851,.2918,.2991,.3068,.3133,.3177,
- .3293,.3469,.404,.3844,.386,.3643,.3502,.3955,.2706,.2822,.285,
- .2923,.2975,.3012,.3066,.3139,.3216,.3299,.3369,.3417,.3541,.3728,
- .4329,.4113,.4123,.3871,.3702,.4149,.2918,.3043,.3073,.3152,.3209,
- .3249,.3307,.3386,.3469,.3559,.3635,.3687,.3819,.4017,.465,.4415,
- .4418,.4128,.3928,.4369,.3155,.3291,.3324,.341,.3473,.3515,.3579,
- .3665,.3755,.3852,.3934,.3989,.4131,.4343,.5009,.4752,.475,.4418,
- .4183,.4618,.3422,.3571,.3607,.37,.3769,.3815,.3884,.3978,.4076,
- .418,.4269,.4328,.4481,.4707,.5408,.5129,.512,.4743,.4471,.4899,
- .3722,.3886,.3925,.4027,.4103,.4152,.4228,.433,.4437,.455,.4646,
- .4709,.4874,.5115,.5851,.5551,.5534,.5109,.4794,.5214,.406,.4241,
- .4285,.4396,.4479,.4533,.4616,.4725,.4843,.4965,.5069,.5136,.5314,
- .557,.6343,.6021,.5996,.5517,.5156,.5566,.4442,.4642,.469,.4812,
- .4902,.4962,.5053,.5171,.5299,.5433,.5544,.5616,.5807,.608,.689,
- .6544,.6511,.5974,.5562,.596,.4873,.5095,.5148,.5281,.5381,.5446,
- .5546,.5675,.5814,.5959,.6078,.6156,.6361,.6651,.7496,.7126,.7084,
- .6483,.6014,.64,.5361,.5606,.5664,.5811,.5922,.5993,.6102,.6243,
- .6394,.655,.668,.6763,.6982,.7289,.817,.7774,.7719,.7051,.652,
- .689,.5913,.6185,.625,.641,.6533,.6612,.673,.6885,.7048,.7216,
- .7357,.7446,.7679,.8003,.8915,.8494,.8426,.7684,.7083,.7437,.6539,
- .6842,.6913,.709,.7226,.7312,.7442,.7609,.7786,.7967,.8118,.8214,
- .8462,.8802,.9741,.9292,.9211,.8389,.7711,.8045,.7251,.7589,.7667,
- .7862,.801,.8106,.8247,.8428,.862,.8815,.8976,.9078,.934,.9697,
- 1.065,1.018,1.008,.9173,.8412,.8724,.8061,.8437,.8523,.8738,.8901,
- .9005,.916,.9356,.9562,.9772,.9943,1.005,1.033,1.07,1.166,1.116,
- 1.105,1.004,.9192,.948,.8983,.9403,.9499,.9734,.9913,1.003,1.02,
- 1.041,1.063,1.085,1.103,1.115,1.143,1.182,1.277,1.225,1.211,1.102,
- 1.006,1.033,1.004,1.05,1.061,1.087,1.106,1.119,1.137,1.159,1.183,
- 1.207,1.226,1.238,1.268,1.307,1.4,1.345,1.329,1.209,1.104,1.127,
- 1.124,1.176,1.188,1.216,1.237,1.251,1.27,1.294,1.32,1.345,1.365,
- 1.376,1.407,1.447,1.536,1.478,1.46,1.33,1.212,1.233,1.262,1.32,
- 1.333,1.363,1.387,1.401,1.422,1.447,1.474,1.5,1.521,1.533,1.564,
- 1.603,1.685,1.625,1.604,1.464,1.334,1.352,1.42,1.484,1.498,1.531,
- 1.556,1.572,1.594,1.621,1.649,1.675,1.696,1.708,1.74,1.777,1.848,
- 1.788,1.764,1.613,1.471,1.485,1.602,1.672,1.687,1.723,1.75,1.766,
- 1.79,1.818,1.846,1.873,1.894,1.906,1.936,1.97,2.028,1.967,1.94,
- 1.78,1.625,1.636,1.812,1.888,1.904,1.942,1.971,1.988,2.013,2.041,
- 2.07,2.096,2.117,2.128,2.156,2.186,2.224,2.164,2.134,1.966,1.799,
- 1.807,2.054,2.136,2.153,2.193,2.223,2.241,2.266,2.294,2.322,2.348,
- 2.367,2.377,2.402,2.426,2.439,2.38,2.348,2.174,1.996,2.001,2.333,
- 2.42,2.438,2.479,2.51,2.528,2.553,2.58,2.607,2.631,2.647,2.656,
- 2.676,2.691,2.673,2.618,2.583,2.408,2.221,2.222,2.655,2.748,2.766,
- 2.807,2.838,2.855,2.879,2.904,2.928,2.948,2.962,2.968,2.981,2.984,
- 2.927,2.879,2.842,2.671,2.479,2.475,3.03,3.124,3.142,3.182,3.211,
- 3.227,3.249,3.27,3.289,3.304,3.313,3.315,3.319,3.308,3.201,3.164,
- 3.125,2.967,2.776,2.764,3.465,3.558,3.575,3.61,3.636,3.651,3.668,
- 3.682,3.695,3.702,3.704,3.702,3.693,3.662,3.497,3.475,3.436,3.301,
- 3.12,3.097,3.971,4.057,4.071,4.099,4.12,4.13,4.141,4.147,4.149,
- 4.146,4.138,4.13,4.104,4.05,3.815,3.814,3.776,3.679,3.521,3.479,
- 4.562,4.632,4.642,4.658,4.669,4.674,4.675,4.667,4.656,4.638,4.618,
- 4.602,4.556,4.472,4.154,4.181,4.146,4.109,3.991,3.919,5.253,5.295,
- 5.297,5.295,5.292,5.288,5.276,5.249,5.219,5.182,5.146,5.12,5.048,
- 4.927,4.515,4.578,4.55,4.597,4.547,4.426,6.062,6.059,6.05,6.019,
- 5.996,5.98,5.948,5.897,5.841,5.78,5.724,5.686,5.581,5.417,4.896,
- 5.006,4.989,5.153,5.206,5.008,7.012,6.938,6.913,6.842,6.79,6.756,
- 6.698,6.614,6.526,6.433,6.352,6.298,6.154,5.939,5.296,5.466,5.464,
- 5.786,5.99,5.672,8.127,7.948,7.9,7.773,7.681,7.623,7.53,7.403,
- 7.273,7.141,7.029,6.956,6.766,6.49,5.714,5.96,5.978,6.507,6.924,
- 6.425,9.44,9.106,9.025,8.821,8.675,8.585,8.446,8.264,8.082,7.901,
- 7.752,7.656,7.412,7.069,6.15,6.49,6.535,7.327,8.032,7.267,10.98,
- 10.43,10.3,9.994,9.777,9.645,9.447,9.196,8.949,8.711,8.518,8.395,
- 8.09,7.672,6.604,7.058,7.138,8.254,9.334,8.194,12.78,11.93,11.74,
- 11.3,10.99,10.8,10.53,10.2,9.871,9.564,9.322,9.171,8.797,8.297,
- 7.079,7.669,7.793,9.293,10.84,9.184,14.87,13.61,13.35,12.73,12.3,
- 12.05,11.69,11.26,10.85,10.46,10.17,9.985,9.536,8.95,7.583,8.329,
- 8.502,10.44,12.53,10.2,17.27,15.49,15.13,14.3,13.73,13.41,12.95,
- 12.41,11.89,11.42,11.06,10.85,10.32,9.647,8.128,9.041,9.258,11.66,
- 14.34,11.18,20.06,17.63,17.15,16.07,15.35,14.95,14.36,13.7,13.06,
- 12.49,12.07,11.83,11.2,10.42,8.71,9.78,10.03,12.87,16.09,12.03,
- 23.72,20.43,19.78,18.36,17.42,16.89,16.13,15.29,14.48,13.78,13.26,
- 12.96,12.2,11.26,9.26,10.43,10.69,13.83,17.44,12.61,26.98,22.69,
- 21.87,20.08,18.91,18.25,17.32,16.32,15.35,14.52,13.92,13.58,12.71,
- 11.65,9.472,10.66,10.91,14.15,17.85,12.77 };
- static doublereal qhr[1660] /* was [20][83] */ = { 3.388e-23,4.524e-22,
- 1.156e-21,-4.206e-22,-4.642e-23,1.625e-23,5.125e-22,-3.431e-23,
- 5.428e-22,-3.477e-22,8.851e-22,-1.67e-22,5.713e-22,-3.391e-22,
- -1.315e-22,2.669e-22,3.473e-22,2.287e-23,-1.316e-22,1.171e-22,
- .002705,.002675,.002647,.002749,.002556,.002573,.002459,.002397,
- .00216,.002034,.001859,.001944,.00164,.001558,.001259,2.49e-4,
- 9.441e-5,-7.661e-5,1.287e-5,-1.182e-4,.01324,.01299,.01288,.01315,
- .01228,.0122,.01162,.01118,.01018,.009499,.00872,.008894,.007646,
- .00715,.005558,.001557,6.895e-4,-1.82e-4,-7.324e-5,-6.476e-4,
- .02911,.02843,.02824,.0285,.02679,.02625,.02501,.02394,.02199,
- .02036,.01878,.01865,.01635,.01507,.01106,.00347,.001715,
- -3.819e-4,-7.375e-4,-.001734,.04717,.046,.04582,.04587,.04345,
- .04214,.04023,.03859,.03564,.03281,.03043,.02968,.02638,.02396,
- .01676,.00499,.002543,-.00141,-.002397,-.003588,.06492,.06326,
- .06312,.06291,.06001,.05787,.05535,.05328,.04949,.04547,.04237,
- .04087,.03671,.03316,.02214,.005817,.002424,-.003696,-.004972,
- -.006341,.08049,.0784,.07832,.07786,.07472,.07184,.06887,.0665,
- .06216,.05712,.05343,.05121,.0464,.04196,.02691,.00565,.001184,
- -.007124,-.00819,-.009982,.09251,.09019,.09019,.08953,.08634,
- .08289,.07967,.07715,.07251,.06669,.06265,.05986,.05457,.04932,
- .03081,.004433,-.001028,-.0113,-.01191,-.01441,.1002,.09788,
- .09795,.09722,.09402,.09034,.08708,.08439,.07971,.07353,.06924,
- .06614,.0605,.0546,.03335,.00241,-.003976,-.0159,-.01606,-.01953,
- .1033,.1013,.1013,.1007,.09753,.09399,.09086,.08803,.08344,.07731,
- .07287,.06972,.06385,.05752,.03421,-3.422e-4,-.007404,-.02082,
- -.02061,-.02524,.1023,.1007,.1008,.1003,.0973,.09414,.09122,
- .08844,.08402,.07815,.07377,.07074,.06477,.05818,.03352,-.003735,
- -.01123,-.02596,-.02556,-.03147,.0982,.09713,.09717,.09695,.09412,
- .09147,.08882,.0862,.08198,.07657,.07232,.06963,.06359,.05695,
- .03156,-.007634,-.01541,-.03131,-.03088,-.03817,.09197,.09141,
- .09146,.09147,.08888,.08675,.0844,.08197,.07805,.07319,.0691,
- .0668,.06079,.05431,.02855,-.01195,-.01992,-.03684,-.03658,-.0453,
- .08458,.08445,.08452,.0847,.08243,.08068,.07862,.07644,.0729,
- .06854,.0647,.06265,.05688,.05058,.02461,-.01662,-.02481,-.04254,
- -.04264,-.05285,.07677,.07692,.07705,.07729,.0754,.07386,.07208,
- .07019,.06704,.06305,.05955,.05758,.05218,.04604,.01986,-.0217,
- -.03006,-.04843,-.04903,-.06078,.06906,.06936,.06952,.06979,
- .06823,.0668,.06526,.06359,.06082,.05711,.05392,.05196,.04696,
- .04093,.01447,-.02725,-.03562,-.05451,-.05574,-.06908,.06178,
- .0621,.06226,.06249,.06118,.05986,.05848,.05697,.05446,.05099,
- .04805,.04612,.0414,.03542,.008665,-.0332,-.04158,-.0608,-.06275,
- -.07774,.0551,.0553,.05544,.05559,.05445,.05322,.05192,.05056,
- .04816,.04485,.04211,.04027,.03567,.02967,.002619,-.03944,-.04796,
- -.06736,-.07004,-.08673,.04908,.04908,.04917,.04919,.04815,.047,
- .0457,.04446,.04206,.03885,.03624,.0345,.0299,.0238,-.003626,
- -.04594,-.05468,-.07417,-.07761,-.09606,.04371,.04347,.0435,
- .04336,.04235,.04123,.03991,.03871,.03627,.03311,.03055,.02886,
- .02421,.01795,-.0101,-.05273,-.06169,-.08127,-.08543,-.1057,
- .03894,.03845,.03843,.03811,.03707,.03592,.03457,.03329,.03084,
- .02767,.0251,.02337,.01867,.0122,-.01679,-.05979,-.06896,-.08867,
- -.09352,-.1156,.03476,.03399,.0339,.0334,.03226,.03107,.02967,
- .02823,.02575,.02255,.01989,.01809,.01328,.006539,-.02363,-.0671,
- -.07648,-.09636,-.1018,-.1258,.03108,.03003,.02987,.02917,.0279,
- .02665,.02519,.02353,.02099,.01772,.01493,.01304,.008065,9.936e-4,
- -.03055,-.07461,-.08426,-.1044,-.1104,-.1363,.02789,.0265,.02624,
- .02535,.02393,.02265,.02107,.01923,.01652,.01313,.0102,.008231,
- .003014,-.004447,-.03751,-.08231,-.09226,-.1127,-.1192,-.147,
- .02512,.02336,.02298,.0219,.02031,.01904,.01728,.01528,.01233,
- .008757,.005681,.003693,-.001891,-.009836,-.04444,-.09016,-.1004,
- -.1213,-.1283,-.1579,.0227,.02058,.02005,.01881,.01701,.01576,
- .01382,.01161,.008374,.004622,.001362,-6.171e-4,-.006651,-.01513,
- -.05139,-.09814,-.1088,-.1301,-.1376,-.169,.02055,.0181,.01747,
- .01603,.01404,.01275,.01064,.008164,.004708,7.392e-4,-.002723,
- -.004788,-.01122,-.02026,-.05843,-.1063,-.1174,-.1392,-.1471,
- -.1802,.01865,.01588,.01518,.01352,.01136,.009934,.007682,.004941,
- .001307,-.002913,-.006589,-.008846,-.0156,-.02521,-.06553,-.1145,
- -.1261,-.1486,-.1569,-.1915,.01696,.01389,.01315,.01125,.00893,
- .007307,.004928,.001932,-.00189,-.006355,-.01029,-.01278,-.01985,
- -.03004,-.07263,-.123,-.135,-.1581,-.1668,-.2029,.01549,.0121,
- .01131,.009161,.006697,.004879,.002351,-8.723e-4,-.004921,-.00966,
- -.01385,-.01657,-.024,-.03479,-.07968,-.1314,-.144,-.1679,-.1769,
- -.2144,.01422,.01049,.009615,.00724,.004618,.002661,-6.637e-5,
- -.003485,-.007821,-.01289,-.01729,-.02018,-.02805,-.03953,-.08668,
- -.14,-.1531,-.1778,-.1872,-.2258,.01313,.00904,.008054,.005479,
- .002658,6.367e-4,-.002319,-.005947,-.01063,-.01603,-.02066,
- -.02364,-.03205,-.04426,-.09364,-.1487,-.1622,-.1878,-.1976,
- -.2372,.01218,.007753,.006657,.003894,8.311e-4,-.001255,-.00441,
- -.008331,-.01333,-.01901,-.02394,-.02705,-.03599,-.04888,-.1006,
- -.1574,-.1714,-.198,-.2082,-.2485,.01132,.006579,.00542,.002435,
- -8.244e-4,-.003091,-.006406,-.01062,-.01588,-.02186,-.02709,
- -.03045,-.0398,-.05337,-.1076,-.1662,-.1807,-.2082,-.2188,-.2597,
- .01057,.005498,.0043,.001059,-.002341,-.00485,-.00834,-.01279,
- -.0183,-.02463,-.03014,-.03378,-.04353,-.05779,-.1146,-.1749,
- -.1901,-.2185,-.2294,-.2708,.009939,.004519,.003277,-2.257e-4,
- -.003768,-.006497,-.01019,-.01487,-.02066,-.02736,-.03314,-.03701,
- -.04721,-.06219,-.1215,-.1837,-.1994,-.2289,-.2401,-.2816,.009418,
- .003644,.002335,-.001414,-.005133,-.008032,-.01195,-.01687,
- -.02297,-.03004,-.0361,-.04015,-.05087,-.06658,-.1283,-.1925,
- -.2087,-.2392,-.2508,-.2922,.009008,.002878,.001467,-.0025,
- -.006448,-.009461,-.01361,-.0188,-.02525,-.03268,-.03903,-.04324,
- -.05451,-.07095,-.135,-.2012,-.218,-.2496,-.2614,-.3025,.008688,
- .002215,6.896e-4,-.003482,-.007699,-.01081,-.01518,-.02068,
- -.02748,-.03525,-.04192,-.04629,-.05812,-.07529,-.1416,-.2099,
- -.2271,-.2598,-.2719,-.3125,.008454,.001623,8.981e-8,-.004388,
- -.00886,-.01211,-.01668,-.0225,-.02965,-.03774,-.04476,-.04933,
- -.06167,-.07954,-.1482,-.2185,-.2362,-.2699,-.2823,-.322,.008315,
- .001075,-6.248e-4,-.005269,-.009916,-.01337,-.01818,-.02423,
- -.03172,-.0402,-.04752,-.05233,-.06515,-.0837,-.1547,-.227,-.2451,
- -.2799,-.2925,-.3312,.008279,8.19e-4,-9.151e-4,-.005701,-.01041,
- -.01398,-.01892,-.02505,-.03272,-.04143,-.04886,-.0538,-.06685,
- -.08577,-.1578,-.2311,-.2495,-.2849,-.2975,-.3356,.008274,
- 5.775e-4,-.001198,-.006128,-.01088,-.01457,-.01966,-.02585,
- -.03372,-.04268,-.0502,-.05523,-.06855,-.08785,-.1609,-.2352,
- -.2538,-.2897,-.3025,-.3398,.008317,1.801e-4,-.001684,-.006891,
- -.01179,-.01566,-.02106,-.02742,-.03568,-.04512,-.05284,-.05803,
- -.07192,-.09198,-.167,-.2433,-.2623,-.2993,-.3122,-.3479,.008427,
- -7.529e-5,-.002032,-.007481,-.01266,-.01668,-.0223,-.02903,
- -.03761,-.04739,-.05546,-.06083,-.07525,-.09597,-.1729,-.2512,
- -.2706,-.3086,-.3216,-.3555,.008611,-2.034e-4,-.002242,-.007917,
- -.01345,-.01763,-.02341,-.03062,-.03945,-.04951,-.05801,-.06364,
- -.07848,-.09978,-.1787,-.2588,-.2785,-.3175,-.3305,-.3624,.008898,
- -2.525e-4,-.002364,-.008283,-.01412,-.01853,-.02447,-.0321,
- -.04119,-.05156,-.06046,-.06638,-.0816,-.1035,-.1842,-.266,-.286,
- -.326,-.3391,-.3687,.009317,-2.5e-4,-.002436,-.008634,-.01469,
- -.01934,-.02552,-.0334,-.04283,-.0536,-.06278,-.06896,-.0846,
- -.107,-.1893,-.2728,-.2931,-.334,-.3472,-.3742,.009885,-1.807e-4,
- -.002463,-.008953,-.01514,-.02002,-.02651,-.03454,-.04435,-.05561,
- -.06498,-.07134,-.08744,-.1105,-.194,-.2792,-.2998,-.3415,-.3546,
- -.379,.0106,-4.815e-6,-.002424,-.009183,-.0155,-.02054,-.0274,
- -.03552,-.04579,-.05757,-.06706,-.07353,-.09016,-.1138,-.1983,
- -.2851,-.3058,-.3483,-.3615,-.383,.01144,3.298e-4,-.002243,
- -.009235,-.01578,-.02091,-.0281,-.03636,-.04714,-.05935,-.06903,
- -.07556,-.09273,-.117,-.2021,-.2903,-.3113,-.3545,-.3677,-.3861,
- .01236,8.693e-4,-.001825,-.009017,-.01594,-.02115,-.02856,-.03719,
- -.04834,-.0608,-.07085,-.07749,-.09511,-.1197,-.2055,-.295,-.316,
- -.36,-.373,-.3884,.01335,.001601,-.00116,-.00855,-.01592,-.02127,
- -.02879,-.03801,-.04932,-.06189,-.07245,-.07926,-.09719,-.122,
- -.2084,-.2989,-.3199,-.3645,-.3776,-.3897,.01448,.002449,
- -3.305e-4,-.007968,-.01563,-.02128,-.0289,-.03861,-.04999,-.06279,
- -.07371,-.08082,-.09889,-.1239,-.2109,-.3021,-.3229,-.3682,-.3812,
- -.39,.01579,.00338,5.932e-4,-.007338,-.0151,-.02112,-.02894,
- -.03884,-.05036,-.06358,-.07462,-.08205,-.1002,-.1254,-.2125,
- -.3043,-.325,-.3708,-.3838,-.3893,.0173,.004453,.001609,-.006589,
- -.0144,-.02072,-.0288,-.03868,-.05054,-.06419,-.07526,-.08287,
- -.1012,-.1267,-.2132,-.3055,-.3261,-.3723,-.3854,-.3875,.01901,
- .005747,.002774,-.005593,-.0136,-.01999,-.02833,-.03827,-.05054,
- -.0645,-.07566,-.08326,-.1019,-.1275,-.213,-.3056,-.3261,-.3725,
- -.3857,-.3846,.02089,.007287,.004151,-.004297,-.01263,-.01894,
- -.02751,-.03766,-.05029,-.06438,-.07574,-.08319,-.1022,-.1278,
- -.212,-.3046,-.3247,-.3714,-.3849,-.3806,.02289,.009066,.005802,
- -.002697,-.01141,-.01763,-.02636,-.03684,-.04966,-.06376,-.07537,
- -.08271,-.1019,-.1273,-.2102,-.3023,-.322,-.3689,-.3826,-.3755,
- .025,.01106,.00771,-8.211e-4,-.009913,-.01604,-.02487,-.03575,
- -.04864,-.06267,-.07453,-.08176,-.101,-.1261,-.2075,-.2987,-.3179,
- -.3649,-.379,-.3691,.02724,.0132,.00982,.001227,-.008059,-.01424,
- -.02313,-.03421,-.04712,-.06117,-.07312,-.08032,-.0995,-.1242,
- -.2036,-.2936,-.3123,-.3593,-.3739,-.3615,.02958,.01545,.01213,
- .003444,-.005823,-.01226,-.02114,-.03221,-.04506,-.05918,-.07107,
- -.07839,-.09723,-.1215,-.1986,-.287,-.3052,-.3519,-.3673,-.3526,
- .03201,.01787,.01464,.005887,-.003285,-.01,-.01883,-.02979,
- -.04254,-.05666,-.06842,-.0759,-.09427,-.118,-.1925,-.279,-.2963,
- -.3428,-.3589,-.3424,.03457,.0205,.01728,.008595,-5.974e-4,
- -.007301,-.01609,-.027,-.03967,-.05367,-.06529,-.07263,-.09069,
- -.1138,-.1852,-.2692,-.2858,-.3318,-.3489,-.3308,.03722,.02332,
- .02005,.01154,.002233,-.00421,-.01296,-.02382,-.03646,-.05018,
- -.06165,-.06863,-.08647,-.1089,-.1768,-.2577,-.2735,-.3188,-.3371,
- -.3178,.03991,.02633,.02297,.01478,.00515,-7.418e-4,-.009384,
- -.02038,-.03293,-.04604,-.05757,-.06393,-.08165,-.103,-.1672,
- -.2446,-.2595,-.3039,-.3234,-.3034,.04262,.02944,.02595,.01818,
- .008199,.003032,-.00549,-.01664,-.02902,-.04141,-.05295,-.05859,
- -.07613,-.09632,-.1564,-.23,-.2438,-.287,-.3078,-.2875,.04526,
- .03244,.02892,.0215,.01154,.006862,-.001521,-.01243,-.02457,
- -.03642,-.04765,-.05273,-.06981,-.08884,-.1447,-.2139,-.2265,
- -.2682,-.2903,-.2702,.04769,.03529,.03194,.02474,.01528,.01054,
- .002468,-.00794,-.01945,-.03102,-.04154,-.04664,-.06258,-.08055,
- -.1322,-.1965,-.2078,-.2474,-.2709,-.2514,.0499,.03801,.03488,
- .02793,.01913,.01419,.006546,-.003224,-.01405,-.02535,-.03501,
- -.04024,-.05483,-.07182,-.1193,-.1777,-.1878,-.2249,-.2495,-.231,
- .0519,.04048,.03759,.03089,.02285,.01776,.01053,.001704,-.008622,
- -.01955,-.0283,-.03349,-.04683,-.06271,-.1056,-.1578,-.1669,
- -.2008,-.2262,-.2093,.05358,.04266,.04001,.03357,.02626,.02117,
- .01434,.006477,-.003265,-.01368,-.02156,-.02651,-.03863,-.0532,
- -.09127,-.1373,-.145,-.1755,-.2013,-.1864,.0549,.04448,.04182,
- .03595,.02879,.02459,.01803,.01076,.001392,-.007927,-.01537,
- -.01924,-.03081,-.04376,-.07654,-.1168,-.123,-.1495,-.1747,-.1624,
- .05561,.04553,.04259,.0375,.03028,.02764,.02113,.01462,.005168,
- -.00287,-.009855,-.01195,-.0236,-.03485,-.06181,-.0964,-.1012,
- -.123,-.147,-.1377,.05517,.04543,.04208,.03791,.03065,.02974,
- .02331,.0176,.008102,.001242,-.004989,-.005381,-.01695,-.02659,
- -.04789,-.07634,-.08006,-.09693,-.1187,-.1128,.0531,.044,.04009,
- .03714,.02939,.03066,.02455,.01876,.009738,.004428,-.001263,
- 1.154e-4,-.01129,-.01935,-.03535,-.05701,-.06003,-.07212,-.09077,
- -.08848,.04897,.04066,.03629,.03449,.02662,.0297,.02408,.0184,
- .01022,.006122,.001438,.004222,-.006603,-.01351,-.02416,-.03961,
- -.04183,-.04973,-.06426,-.0655,.04243,.03529,.03098,.03004,.02267,
- .02647,.0218,.01628,.009905,.006821,.003321,.006402,-.002679,
- -.008481,-.01481,-.02516,-.0263,-.03077,-.04063,-.04484,.03358,
- .02826,.02458,.02432,.01759,.02148,.01828,.01222,.008604,.00716,
- .004031,.006872,6.384e-5,-.003919,-.007809,-.01338,-.0146,-.01595,
- -.02163,-.02749,.02348,.01954,.01666,.01679,.01192,.01532,.01307,
- .00902,.006227,.00552,.00363,.006538,.001208,-.002001,-.002425,
- -.005261,-.006345,-.006038,-.008394,-.01423,.01324,.01043,.008573,
- .00871,.006591,.008717,.007038,.006669,.003512,.002549,.00253,
- .005064,.001158,-.001903,7.463e-4,-.001734,-.001145,-.001019,
- -.001355,-.005446,.004093,.003119,.002603,.002571,.002086,.00257,
- .002041,.002401,.001108,8.291e-4,8.873e-4,.001805,4.679e-4,
- -4.805e-4,6.63e-4,-3.817e-4,1.771e-4,1.302e-4,2.122e-4,-9.621e-4,
- 2.63e-20,8.522e-21,2.928e-20,2.363e-20,2.318e-20,2.508e-20,
- 1.995e-20,-4.543e-21,1.924e-20,-1.758e-20,1.537e-20,9.72e-21,
- 3.459e-21,-1.251e-21,-2.429e-20,-7.847e-21,4.417e-21,-4.145e-22,
- 3.172e-22,1.176e-20 };
- static doublereal uhr[1660] /* was [20][83] */ = { -.3494,-.3524,-.3543,
- -.3623,-.3549,-.3501,-.3444,-.3445,-.3352,-.3251,-.3184,-.3186,
- -.3108,-.3172,-.3355,-.2986,-.304,-.302,-.302,-.3991,-.3431,
- -.3463,-.3483,-.3563,-.3492,-.3445,-.3391,-.3392,-.3305,-.3208,
- -.3143,-.3144,-.3072,-.3136,-.3325,-.2969,-.3026,-.301,-.3015,
- -.3988,-.3173,-.322,-.3242,-.3319,-.3263,-.3222,-.318,-.3184,
- -.3116,-.3035,-.2983,-.2981,-.293,-.2996,-.3208,-.2903,-.297,
- -.2972,-.2993,-.3975,-.2772,-.2842,-.2868,-.2945,-.2913,-.2883,
- -.286,-.2873,-.2833,-.2777,-.2743,-.2741,-.272,-.2795,-.3041,
- -.2811,-.289,-.2919,-.2963,-.3952,-.2303,-.2399,-.243,-.2511,
- -.2506,-.249,-.2488,-.2518,-.2507,-.248,-.2467,-.247,-.248,-.257,
- -.2862,-.2717,-.2804,-.2865,-.2934,-.3922,-.1834,-.1954,-.1988,
- -.2074,-.2094,-.2093,-.2111,-.2159,-.2175,-.2176,-.2186,-.2197,
- -.2234,-.2344,-.269,-.2631,-.2723,-.2817,-.2907,-.3886,-.1408,
- -.1544,-.158,-.167,-.1712,-.1723,-.1758,-.1822,-.1862,-.1886,
- -.1917,-.1936,-.2,-.2128,-.2532,-.2554,-.265,-.2774,-.2882,-.3846,
- -.1042,-.1187,-.1225,-.1316,-.1373,-.1395,-.1442,-.1519,-.1577,
- -.1621,-.1669,-.1696,-.1781,-.1927,-.2386,-.2484,-.2584,-.2735,
- -.2857,-.3804,-.07359,-.08839,-.09214,-.1013,-.1079,-.111,-.1165,
- -.1249,-.1321,-.1382,-.1442,-.1476,-.1578,-.1739,-.2248,-.2417,
- -.2524,-.2698,-.283,-.3758,-.04855,-.0631,-.06671,-.07564,-.08269,
- -.08637,-.09248,-.1012,-.1093,-.1167,-.1236,-.1275,-.139,-.1563,
- -.2116,-.2351,-.2467,-.266,-.2802,-.371,-.02835,-.04229,-.04569,
- -.05424,-.06136,-.06546,-.07187,-.08062,-.08922,-.09761,-.105,
- -.1095,-.1218,-.1401,-.1991,-.2286,-.241,-.2621,-.277,-.3658,
- -.01232,-.02541,-.02853,-.0366,-.0435,-.04792,-.05442,-.06291,
- -.07179,-.08091,-.08855,-.09341,-.1062,-.1252,-.1873,-.222,-.2351,
- -.2579,-.2736,-.3604,1.89e-4,-.01182,-.01465,-.02215,-.02875,
- -.03327,-.03969,-.04783,-.05683,-.0663,-.07408,-.07916,-.09233,
- -.1117,-.1761,-.2154,-.2291,-.2534,-.2699,-.3545,.009855,
- -9.428e-4,-.003506,-.01035,-.01668,-.02107,-.02726,-.03512,
- -.04406,-.05355,-.06144,-.06654,-.07991,-.09936,-.1653,-.2086,
- -.2229,-.2488,-.2659,-.3484,.01727,.007715,.005396,-7.512e-4,
- -.006828,-.01092,-.01682,-.02442,-.03314,-.04243,-.05037,-.05536,
- -.06879,-.08813,-.1551,-.2016,-.2165,-.2438,-.2616,-.3418,.02297,
- .0146,.01252,.007037,.001283,-.002495,-.00806,-.01535,-.02373,
- -.03274,-.0406,-.04542,-.05878,-.07783,-.1452,-.1945,-.2098,
- -.2386,-.257,-.3349,.02739,.0201,.01826,.01339,.008046,.004536,
- -6.755e-4,-.00755,-.01554,-.02422,-.0319,-.03658,-.04968,-.06833,
- -.1356,-.1874,-.2029,-.2331,-.252,-.3275,.0309,.02458,.02297,
- .01864,.01379,.01048,.005616,-7.2e-4,-.008318,-.01669,-.02406,
- -.02863,-.04133,-.05951,-.1263,-.1801,-.1959,-.2273,-.2466,-.3197,
- .0338,.02833,.02693,.02309,.01875,.01563,.01109,.005353,-.001873,
- -.009947,-.01693,-.02137,-.03361,-.0513,-.1172,-.1726,-.1887,
- -.2212,-.2409,-.3115,.0363,.0316,.03039,.02701,.02312,.02023,.016,
- .0108,.003948,-.003766,-.01038,-.01463,-.02642,-.04354,-.1082,
- -.165,-.1813,-.2148,-.2349,-.3028,.03857,.03459,.03353,.0306,
- .02708,.02445,.02054,.01576,.009322,.002012,-.004264,-.008288,
- -.01962,-.03608,-.09927,-.1572,-.1736,-.2081,-.2284,-.2937,.04074,
- .03743,.03652,.03398,.0308,.02841,.02481,.02041,.0144,.007505,
- .001565,-.002231,-.01307,-.02884,-.09033,-.1491,-.1656,-.201,
- -.2216,-.284,.0429,.04021,.03945,.03728,.0344,.03223,.02894,
- .02486,.01931,.01284,.007208,.00363,-.006688,-.02171,-.08133,
- -.1408,-.1573,-.1934,-.2143,-.2737,.04513,.04304,.04244,.0406,
- .03798,.03598,.03302,.02924,.02414,.01812,.01278,.009366,
- -3.697e-4,-.01462,-.07222,-.1322,-.1486,-.1855,-.2066,-.2629,
- .04753,.04599,.04552,.04399,.04162,.03978,.03715,.03364,.02899,
- .02341,.01836,.0151,.005976,-.00747,-.0629,-.1231,-.1396,-.177,
- -.1983,-.2515,.05015,.04911,.04876,.04752,.04539,.04373,.04138,
- .03816,.03392,.02877,.02402,.02095,.01241,-2.342e-4,-.05327,
- -.1137,-.13,-.1681,-.1896,-.2395,.05307,.05246,.05219,.05126,
- .04934,.04791,.0458,.04288,.039,.03426,.02983,.02701,.01899,
- .007158,-.04328,-.1038,-.1199,-.1586,-.1802,-.2268,.05632,.05609,
- .05589,.05525,.05356,.05235,.05046,.04787,.04432,.03997,.03589,
- .03334,.02584,.01482,-.03285,-.09336,-.1093,-.1484,-.1702,-.2133,
- .05992,.06006,.05993,.05956,.05811,.05711,.05543,.0532,.04995,
- .04599,.04227,.04,.03303,.02285,-.02188,-.08228,-.098,-.1376,
- -.1596,-.1991,.06392,.06444,.06441,.06429,.06307,.06224,.0608,
- .05889,.05599,.05244,.04906,.04704,.04065,.03135,-.01031,-.0705,
- -.08599,-.126,-.1482,-.1841,.06836,.06928,.06937,.0695,.06851,
- .0678,.06664,.06502,.06253,.0594,.05635,.05452,.04879,.04045,
- .001921,-.05794,-.07316,-.1137,-.136,-.1682,.0733,.07463,.07486,
- .07522,.07449,.07387,.07299,.07168,.06964,.06693,.06423,.06255,
- .05756,.0502,.01493,-.04453,-.05941,-.1004,-.1229,-.1513,.07882,
- .08056,.08092,.08152,.08109,.08054,.07993,.07899,.07738,.07507,
- .07277,.07126,.06701,.06063,.02884,-.03018,-.04468,-.08612,-.1089,
- -.1335,.08499,.08714,.08762,.08848,.08833,.08792,.08757,.08699,
- .08581,.08392,.08204,.08076,.07723,.07189,.04377,-.01472,-.02888,
- -.07079,-.09387,-.1146,.09188,.09447,.09504,.09621,.09631,.0961,
- .09601,.09579,.09503,.0936,.09214,.09113,.08834,.08408,.05984,
- .001974,-.01189,-.0543,-.07772,-.09463,.09958,.1026,.1033,.1048,
- .1051,.1052,.1053,.1055,.1051,.1042,.1032,.1025,.1004,.09732,
- .07724,.01998,.006459,-.03653,-.06037,-.07341,.1082,.1117,.1124,
- .1143,.1149,.1152,.1157,.1163,.1163,.1159,.1153,.115,.1137,.1118,
- .0961,.03942,.0263,-.01736,-.0417,-.05089,.1177,.1218,.1227,.1249,
- .1258,.1263,.1271,.1281,.1287,.1289,.1287,.1288,.1283,.1277,.1165,
- .06046,.04776,.00335,-.02161,-.02699,.1283,.133,.1341,.1367,.138,
- .1386,.1398,.1413,.1424,.1432,.1436,.1439,.1444,.1452,.1386,
- .08329,.07101,.02573,3.854e-5,-.001594,.1402,.1456,.1468,.1498,
- .1515,.1524,.1539,.1559,.1577,.1591,.16,.1606,.1622,.1643,.1627,
- .1081,.09619,.04993,.02337,.0254,.1535,.1596,.161,.1645,.1665,
- .1677,.1697,.1722,.1746,.1766,.1782,.1792,.1817,.1854,.189,.1351,
- .1235,.07616,.04855,.05413,.1607,.1672,.1687,.1725,.1747,.176,
- .1782,.181,.1837,.1861,.188,.1892,.1923,.1968,.203,.1495,.1381,
- .09008,.06188,.06918,.1683,.1752,.1768,.1809,.1833,.1848,.1872,
- .1904,.1933,.1961,.1983,.1998,.2034,.2087,.2177,.1645,.1532,.1046,
- .07573,.08472,.185,.1927,.1946,.1991,.2021,.2039,.2068,.2106,
- .2143,.2179,.2207,.2227,.2274,.2344,.2491,.1965,.1856,.1354,.1051,
- .1173,.2036,.2123,.2144,.2196,.2232,.2253,.2287,.2333,.2377,.2421,
- .2457,.2481,.2541,.2629,.2835,.2314,.2209,.1689,.1368,.1521,.2244,
- .2343,.2367,.2426,.2467,.2493,.2532,.2586,.2638,.2691,.2735,.2765,
- .2838,.2945,.3211,.2696,.2593,.2052,.1712,.1893,.2478,.259,.2617,
- .2684,.2731,.2761,.2807,.2869,.2931,.2994,.3046,.3081,.3168,.3295,
- .3623,.3113,.3012,.2448,.2084,.229,.2741,.2868,.2898,.2974,.3028,
- .3063,.3116,.3186,.3258,.3332,.3393,.3433,.3536,.3684,.4076,.3569,
- .347,.2878,.2487,.2716,.3037,.318,.3214,.33,.3362,.3402,.3463,
- .3542,.3626,.3711,.3781,.3827,.3946,.4116,.4572,.4069,.3969,.3347,
- .2924,.3172,.3371,.3533,.3571,.3668,.3737,.3784,.3853,.3943,.4038,
- .4136,.4216,.4268,.4403,.4596,.5118,.4615,.4516,.3858,.3399,.3663,
- .3747,.393,.3973,.4082,.4161,.4213,.4292,.4393,.4501,.4612,.4703,
- .4762,.4914,.5131,.5717,.5214,.5115,.4416,.3915,.4191,.4173,.4378,
- .4427,.4549,.464,.4698,.4786,.4902,.5023,.5147,.525,.5315,.5487,
- .5728,.6376,.5872,.577,.5025,.4477,.476,.4654,.4886,.494,.5077,
- .518,.5245,.5344,.5475,.561,.5748,.5864,.5936,.6127,.6391,.7102,
- .6594,.6487,.569,.5089,.5375,.52,.5461,.5522,.5675,.5792,.5865,
- .5976,.6121,.6271,.6424,.6552,.6634,.6842,.713,.7899,.7386,.7273,
- .6418,.5756,.6042,.582,.6114,.6183,.6353,.6484,.6567,.669,.6851,
- .7017,.7186,.7327,.7417,.7644,.7955,.8775,.8256,.8135,.7216,.6486,
- .6765,.6525,.6857,.6933,.7124,.7269,.7362,.75,.7675,.7859,.8045,
- .8199,.8296,.8543,.8877,.9738,.9211,.9082,.809,.7285,.7554,.7328,
- .7702,.7787,.8,.816,.8264,.8417,.8608,.881,.9014,.918,.9285,.955,
- .9905,1.08,1.026,1.012,.905,.816,.8415,.8244,.8665,.876,.8996,
- .9173,.9289,.9457,.9665,.9885,1.011,1.028,1.04,1.068,1.105,1.196,
- 1.141,1.126,1.01,.9123,.9359,.9291,.9763,.9869,1.013,1.033,1.045,
- 1.064,1.086,1.11,1.134,1.153,1.165,1.195,1.233,1.324,1.268,1.251,
- 1.127,1.018,1.04,1.049,1.102,1.114,1.142,1.164,1.178,1.198,1.222,
- 1.248,1.273,1.293,1.305,1.337,1.376,1.464,1.407,1.388,1.255,1.135,
- 1.154,1.186,1.245,1.258,1.29,1.314,1.328,1.35,1.376,1.404,1.43,
- 1.451,1.464,1.496,1.535,1.618,1.561,1.539,1.396,1.265,1.281,1.344,
- 1.41,1.424,1.458,1.484,1.5,1.523,1.551,1.58,1.607,1.629,1.642,
- 1.674,1.712,1.786,1.729,1.705,1.552,1.409,1.423,1.526,1.598,1.614,
- 1.65,1.678,1.696,1.72,1.749,1.779,1.807,1.829,1.842,1.873,1.909,
- 1.971,1.913,1.887,1.725,1.57,1.581,1.736,1.814,1.831,1.87,1.9,
- 1.919,1.944,1.974,2.004,2.033,2.054,2.067,2.096,2.128,2.172,2.115,
- 2.086,1.918,1.751,1.758,1.977,2.063,2.081,2.122,2.154,2.173,2.199,
- 2.229,2.259,2.287,2.307,2.318,2.345,2.371,2.391,2.337,2.305,2.132,
- 1.954,1.958,2.257,2.348,2.367,2.41,2.442,2.462,2.488,2.517,2.546,
- 2.572,2.59,2.6,2.622,2.64,2.629,2.58,2.545,2.371,2.185,2.185,2.58,
- 2.677,2.696,2.74,2.772,2.791,2.817,2.843,2.87,2.893,2.908,2.915,
- 2.931,2.938,2.887,2.845,2.808,2.639,2.447,2.443,2.956,3.055,3.074,
- 3.116,3.147,3.166,3.189,3.212,3.234,3.252,3.262,3.266,3.272,3.264,
- 3.165,3.134,3.096,2.939,2.749,2.737,3.392,3.491,3.509,3.547,3.575,
- 3.591,3.611,3.627,3.643,3.653,3.656,3.656,3.649,3.623,3.465,3.449,
- 3.411,3.277,3.097,3.073,3.901,3.992,4.008,4.039,4.061,4.074,4.087,
- 4.095,4.1,4.1,4.094,4.088,4.065,4.014,3.787,3.791,3.754,3.659,
- 3.501,3.459,4.494,4.57,4.581,4.6,4.614,4.621,4.624,4.619,4.61,
- 4.596,4.578,4.563,4.52,4.439,4.129,4.161,4.127,4.091,3.975,3.903,
- 5.188,5.236,5.24,5.24,5.24,5.238,5.228,5.204,5.177,5.143,5.109,
- 5.085,5.015,4.898,4.493,4.561,4.534,4.582,4.533,4.412,6.001,6.004,
- 5.997,5.969,5.948,5.934,5.905,5.856,5.803,5.745,5.691,5.654,5.552,
- 5.391,4.876,4.991,4.975,5.141,5.195,4.996,6.955,6.888,6.864,6.796,
- 6.747,6.715,6.66,6.577,6.492,6.403,6.323,6.27,6.129,5.916,5.278,
- 5.453,5.452,5.776,5.981,5.663,8.078,7.905,7.858,7.733,7.644,7.588,
- 7.497,7.371,7.244,7.115,7.004,6.932,6.744,6.471,5.699,5.949,5.968,
- 6.499,6.917,6.418,9.399,9.071,8.991,8.788,8.645,8.556,8.42,8.238,
- 8.058,7.881,7.732,7.637,7.395,7.054,6.137,6.48,6.526,7.321,8.026,
- 7.263,10.95,10.4,10.28,9.97,9.754,9.623,9.427,9.177,8.932,8.695,
- 8.503,8.381,8.078,7.66,6.593,7.049,7.131,8.249,9.33,8.19,12.76,
- 11.91,11.72,11.28,10.97,10.79,10.52,10.18,9.86,9.554,9.312,9.161,
- 8.789,8.289,7.071,7.661,7.787,9.29,10.84,9.182,14.86,13.6,13.34,
- 12.72,12.29,12.05,11.69,11.25,10.84,10.46,10.16,9.979,9.531,8.945,
- 7.579,8.324,8.497,10.44,12.53,10.2,17.27,15.49,15.12,14.29,13.73,
- 13.41,12.94,12.4,11.88,11.42,11.06,10.85,10.32,9.644,8.125,9.038,
- 9.256,11.66,14.34,11.18,20.06,17.63,17.15,16.07,15.35,14.95,14.36,
- 13.7,13.06,12.49,12.07,11.83,11.2,10.42,8.71,9.78,10.03,12.86,
- 16.09,12.03,23.72,20.43,19.78,18.36,17.42,16.89,16.13,15.29,14.48,
- 13.78,13.26,12.96,12.2,11.26,9.26,10.43,10.69,13.83,17.44,12.61,
- 26.98,22.69,21.87,20.08,18.91,18.25,17.32,16.32,15.35,14.52,13.92,
- 13.58,12.71,11.65,9.472,10.66,10.91,14.15,17.85,12.77 };
-
- /* System generated locals */
- integer i__1;
-
- /* Local variables */
- integer i__, j;
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real ph,qh,uh >*/
-/*< common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p) >*/
-/*< real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p) >*/
-/* - to vary the number of quadratures */
-/*< real ex,sc,asy,vi >*/
-/*< common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4) >*/
-/*< real ex_m(20),sc_m(20),asy_m(20) >*/
-/*< integer i,j >*/
-/* Background desert model */
-/* Parameters and refractive indices - G.A. d'Almeida, 'Atmospheric */
-/* aerosols. Global climatology and radiative characteristics', 1991, */
-/* pp.48,80,102. */
-/* Extinction coefficients are calculated in km-1 */
-/* *************** MIE (asy) ****************** */
-/*< >*/
-/* *************** MIE (ext&sca) ****************** */
-/*< >*/
-/* ************** MIE (phase fun ph) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun qh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun uh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< do 1 i=1,20 >*/
- for (i__ = 1; i__ <= 20; ++i__) {
-/*< asy(1,i)=asy_m(i) >*/
- sixs_coef__1.asy[(i__ << 2) - 4] = asy_m__[i__ - 1];
-/*< ex(1,i)=ex_m(i) >*/
- sixs_coef__1.ex[(i__ << 2) - 4] = ex_m__[i__ - 1];
-/*< sc(1,i)=sc_m(i) >*/
- sixs_coef__1.sc[(i__ << 2) - 4] = sc_m__[i__ - 1];
-/*< do 1 j=1,nquad >*/
- i__1 = num_quad__1.nquad;
- for (j = 1; j <= i__1; ++j) {
-/*< ph(i,j)=phr(i,j) >*/
- sixs_aerbas__1.ph[i__ + j * 20 - 21] = phr[i__ + j * 20 - 21];
-/*< qh(i,j)=qhr(i,j) >*/
- sixs_aerbas__1.qh[i__ + j * 20 - 21] = qhr[i__ + j * 20 - 21];
-/*< uh(i,j)=uhr(i,j) >*/
- sixs_aerbas__1.uh[i__ + j * 20 - 21] = uhr[i__ + j * 20 - 21];
-/*< 1 continue >*/
-/* L1: */
- }
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* bdm_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/BDM.f b/Modules/ThirdParty/6S/src/6SV1.0B/BDM.f
deleted file mode 100644
index 210c340..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/BDM.f
+++ /dev/null
@@ -1,1133 +0,0 @@
- subroutine bdm
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real ph,qh,uh
- common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p)
- real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p)
-c - to vary the number of quadratures
- real ex,sc,asy,vi
- common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4)
- real ex_m(20),sc_m(20),asy_m(20)
- integer i,j
-
-c Background desert model
-c Parameters and refractive indices - G.A. d'Almeida, 'Atmospheric
-c aerosols. Global climatology and radiative characteristics', 1991,
-c pp.48,80,102.
-c Extinction coefficients are calculated in km-1
-
-c*************** MIE (asy) ******************
- data (asy_m(j),j=1,20)/
- a 0.701,0.690,0.687,0.681,0.677,0.675,0.671,0.665,0.660,0.655,
- a 0.651,0.648,0.639,0.626,0.583,0.587,0.583,0.595,0.605,0.547/
-c*************** MIE (ext&sca) ******************
- data (ex_m(j),sc_m(j),j=1,20) /
- a 0.9978367E-01,0.8870113E-01,0.9390490E-01,0.8606911E-01,
- a 0.9241579E-01,0.8536333E-01,0.8848752E-01,0.8329929E-01,
- a 0.8496436E-01,0.8053116E-01,0.8261336E-01,0.7846993E-01,
- a 0.7913338E-01,0.7561909E-01,0.7475012E-01,0.7217911E-01,
- a 0.6989562E-01,0.6785794E-01,0.6496391E-01,0.6316575E-01,
- a 0.6097984E-01,0.5937214E-01,0.5852314E-01,0.5706264E-01,
- a 0.5225345E-01,0.5114494E-01,0.4403058E-01,0.4369425E-01,
- a 0.2414531E-01,0.2392341E-01,0.1078730E-01,0.1061324E-01,
- a 0.8476357E-02,0.8300470E-02,0.3624489E-02,0.3460222E-02,
- a 0.1813242E-02,0.1624963E-02,0.1101573E-02,0.6737047E-03 /
-c************** MIE (phase fun ph) ***************
- DATA ((PHR(i,j),j=1,83),i= 1, 1)/
- *0.3494E+00,0.3432E+00,0.3196E+00,0.2868E+00,0.2541E+00,
- *0.2281E+00,0.2113E+00,0.2032E+00,0.2008E+00,0.2006E+00,
- *0.1999E+00,0.1976E+00,0.1935E+00,0.1877E+00,0.1811E+00,
- *0.1740E+00,0.1670E+00,0.1603E+00,0.1543E+00,0.1490E+00,
- *0.1445E+00,0.1407E+00,0.1378E+00,0.1357E+00,0.1343E+00,
- *0.1336E+00,0.1336E+00,0.1344E+00,0.1358E+00,0.1380E+00,
- *0.1410E+00,0.1446E+00,0.1491E+00,0.1543E+00,0.1605E+00,
- *0.1676E+00,0.1757E+00,0.1849E+00,0.1953E+00,0.2070E+00,
- *0.2202E+00,0.2274E+00,0.2351E+00,0.2518E+00,0.2706E+00,
- *0.2918E+00,0.3155E+00,0.3422E+00,0.3722E+00,0.4060E+00,
- *0.4442E+00,0.4873E+00,0.5361E+00,0.5913E+00,0.6539E+00,
- *0.7251E+00,0.8061E+00,0.8983E+00,0.1004E+01,0.1124E+01,
- *0.1262E+01,0.1420E+01,0.1602E+01,0.1812E+01,0.2054E+01,
- *0.2333E+01,0.2655E+01,0.3030E+01,0.3465E+01,0.3971E+01,
- *0.4562E+01,0.5253E+01,0.6062E+01,0.7012E+01,0.8127E+01,
- *0.9440E+01,0.1098E+02,0.1278E+02,0.1487E+02,0.1727E+02,
- *0.2006E+02,0.2372E+02,0.2698E+02 /
- DATA ((PHR(i,j),j=1,83),i= 2, 2)/
- *0.3524E+00,0.3465E+00,0.3245E+00,0.2939E+00,0.2629E+00,
- *0.2374E+00,0.2201E+00,0.2108E+00,0.2069E+00,0.2052E+00,
- *0.2036E+00,0.2008E+00,0.1966E+00,0.1910E+00,0.1847E+00,
- *0.1780E+00,0.1714E+00,0.1651E+00,0.1594E+00,0.1543E+00,
- *0.1499E+00,0.1463E+00,0.1435E+00,0.1414E+00,0.1400E+00,
- *0.1393E+00,0.1394E+00,0.1402E+00,0.1417E+00,0.1440E+00,
- *0.1470E+00,0.1507E+00,0.1554E+00,0.1608E+00,0.1672E+00,
- *0.1745E+00,0.1829E+00,0.1925E+00,0.2034E+00,0.2156E+00,
- *0.2294E+00,0.2370E+00,0.2450E+00,0.2625E+00,0.2822E+00,
- *0.3043E+00,0.3291E+00,0.3571E+00,0.3886E+00,0.4241E+00,
- *0.4642E+00,0.5095E+00,0.5606E+00,0.6185E+00,0.6842E+00,
- *0.7589E+00,0.8437E+00,0.9403E+00,0.1050E+01,0.1176E+01,
- *0.1320E+01,0.1484E+01,0.1672E+01,0.1888E+01,0.2136E+01,
- *0.2420E+01,0.2748E+01,0.3124E+01,0.3558E+01,0.4057E+01,
- *0.4632E+01,0.5295E+01,0.6059E+01,0.6938E+01,0.7948E+01,
- *0.9106E+01,0.1043E+02,0.1193E+02,0.1361E+02,0.1549E+02,
- *0.1763E+02,0.2043E+02,0.2269E+02 /
- DATA ((PHR(i,j),j=1,83),i= 3, 3)/
- *0.3543E+00,0.3485E+00,0.3269E+00,0.2968E+00,0.2661E+00,
- *0.2406E+00,0.2232E+00,0.2135E+00,0.2092E+00,0.2072E+00,
- *0.2053E+00,0.2023E+00,0.1979E+00,0.1923E+00,0.1860E+00,
- *0.1794E+00,0.1728E+00,0.1665E+00,0.1608E+00,0.1558E+00,
- *0.1514E+00,0.1478E+00,0.1450E+00,0.1428E+00,0.1414E+00,
- *0.1408E+00,0.1409E+00,0.1417E+00,0.1432E+00,0.1455E+00,
- *0.1485E+00,0.1523E+00,0.1569E+00,0.1624E+00,0.1688E+00,
- *0.1762E+00,0.1847E+00,0.1944E+00,0.2053E+00,0.2177E+00,
- *0.2317E+00,0.2393E+00,0.2474E+00,0.2651E+00,0.2850E+00,
- *0.3073E+00,0.3324E+00,0.3607E+00,0.3925E+00,0.4285E+00,
- *0.4690E+00,0.5148E+00,0.5664E+00,0.6250E+00,0.6913E+00,
- *0.7667E+00,0.8523E+00,0.9499E+00,0.1061E+01,0.1188E+01,
- *0.1333E+01,0.1498E+01,0.1687E+01,0.1904E+01,0.2153E+01,
- *0.2438E+01,0.2766E+01,0.3142E+01,0.3575E+01,0.4071E+01,
- *0.4642E+01,0.5297E+01,0.6050E+01,0.6913E+01,0.7900E+01,
- *0.9025E+01,0.1030E+02,0.1174E+02,0.1335E+02,0.1513E+02,
- *0.1715E+02,0.1978E+02,0.2187E+02 /
- DATA ((PHR(i,j),j=1,83),i= 4, 4)/
- *0.3623E+00,0.3565E+00,0.3352E+00,0.3054E+00,0.2749E+00,
- *0.2493E+00,0.2313E+00,0.2208E+00,0.2155E+00,0.2125E+00,
- *0.2098E+00,0.2063E+00,0.2016E+00,0.1959E+00,0.1895E+00,
- *0.1829E+00,0.1763E+00,0.1701E+00,0.1645E+00,0.1595E+00,
- *0.1552E+00,0.1516E+00,0.1488E+00,0.1466E+00,0.1452E+00,
- *0.1445E+00,0.1446E+00,0.1455E+00,0.1470E+00,0.1494E+00,
- *0.1524E+00,0.1563E+00,0.1611E+00,0.1667E+00,0.1732E+00,
- *0.1808E+00,0.1895E+00,0.1994E+00,0.2106E+00,0.2233E+00,
- *0.2376E+00,0.2454E+00,0.2537E+00,0.2719E+00,0.2923E+00,
- *0.3152E+00,0.3410E+00,0.3700E+00,0.4027E+00,0.4396E+00,
- *0.4812E+00,0.5281E+00,0.5811E+00,0.6410E+00,0.7090E+00,
- *0.7862E+00,0.8738E+00,0.9734E+00,0.1087E+01,0.1216E+01,
- *0.1363E+01,0.1531E+01,0.1723E+01,0.1942E+01,0.2193E+01,
- *0.2479E+01,0.2807E+01,0.3182E+01,0.3610E+01,0.4099E+01,
- *0.4658E+01,0.5295E+01,0.6019E+01,0.6842E+01,0.7773E+01,
- *0.8821E+01,0.9994E+01,0.1130E+02,0.1273E+02,0.1430E+02,
- *0.1607E+02,0.1836E+02,0.2008E+02 /
- DATA ((PHR(i,j),j=1,83),i= 5, 5)/
- *0.3549E+00,0.3494E+00,0.3296E+00,0.3019E+00,0.2732E+00,
- *0.2488E+00,0.2314E+00,0.2207E+00,0.2151E+00,0.2118E+00,
- *0.2089E+00,0.2053E+00,0.2006E+00,0.1952E+00,0.1892E+00,
- *0.1829E+00,0.1767E+00,0.1709E+00,0.1655E+00,0.1607E+00,
- *0.1566E+00,0.1531E+00,0.1504E+00,0.1484E+00,0.1472E+00,
- *0.1467E+00,0.1469E+00,0.1478E+00,0.1495E+00,0.1519E+00,
- *0.1550E+00,0.1590E+00,0.1638E+00,0.1695E+00,0.1762E+00,
- *0.1839E+00,0.1928E+00,0.2028E+00,0.2143E+00,0.2273E+00,
- *0.2419E+00,0.2499E+00,0.2583E+00,0.2768E+00,0.2975E+00,
- *0.3209E+00,0.3473E+00,0.3769E+00,0.4103E+00,0.4479E+00,
- *0.4902E+00,0.5381E+00,0.5922E+00,0.6533E+00,0.7226E+00,
- *0.8010E+00,0.8901E+00,0.9913E+00,0.1106E+01,0.1237E+01,
- *0.1387E+01,0.1556E+01,0.1750E+01,0.1971E+01,0.2223E+01,
- *0.2510E+01,0.2838E+01,0.3211E+01,0.3636E+01,0.4120E+01,
- *0.4669E+01,0.5292E+01,0.5996E+01,0.6790E+01,0.7681E+01,
- *0.8675E+01,0.9777E+01,0.1099E+02,0.1230E+02,0.1373E+02,
- *0.1535E+02,0.1742E+02,0.1891E+02 /
- DATA ((PHR(i,j),j=1,83),i= 6, 6)/
- *0.3501E+00,0.3448E+00,0.3255E+00,0.2985E+00,0.2707E+00,
- *0.2469E+00,0.2298E+00,0.2193E+00,0.2136E+00,0.2101E+00,
- *0.2071E+00,0.2036E+00,0.1992E+00,0.1941E+00,0.1883E+00,
- *0.1823E+00,0.1764E+00,0.1708E+00,0.1657E+00,0.1611E+00,
- *0.1572E+00,0.1539E+00,0.1513E+00,0.1495E+00,0.1483E+00,
- *0.1478E+00,0.1481E+00,0.1490E+00,0.1507E+00,0.1532E+00,
- *0.1565E+00,0.1606E+00,0.1655E+00,0.1713E+00,0.1781E+00,
- *0.1859E+00,0.1949E+00,0.2052E+00,0.2168E+00,0.2299E+00,
- *0.2446E+00,0.2527E+00,0.2612E+00,0.2800E+00,0.3012E+00,
- *0.3249E+00,0.3515E+00,0.3815E+00,0.4152E+00,0.4533E+00,
- *0.4962E+00,0.5446E+00,0.5993E+00,0.6612E+00,0.7312E+00,
- *0.8106E+00,0.9005E+00,0.1003E+01,0.1119E+01,0.1251E+01,
- *0.1401E+01,0.1572E+01,0.1766E+01,0.1988E+01,0.2241E+01,
- *0.2528E+01,0.2855E+01,0.3227E+01,0.3651E+01,0.4130E+01,
- *0.4674E+01,0.5288E+01,0.5980E+01,0.6756E+01,0.7623E+01,
- *0.8585E+01,0.9645E+01,0.1080E+02,0.1205E+02,0.1341E+02,
- *0.1495E+02,0.1689E+02,0.1825E+02 /
- DATA ((PHR(i,j),j=1,83),i= 7, 7)/
- *0.3444E+00,0.3394E+00,0.3213E+00,0.2961E+00,0.2698E+00,
- *0.2470E+00,0.2303E+00,0.2198E+00,0.2138E+00,0.2100E+00,
- *0.2067E+00,0.2031E+00,0.1988E+00,0.1938E+00,0.1883E+00,
- *0.1826E+00,0.1770E+00,0.1717E+00,0.1668E+00,0.1625E+00,
- *0.1587E+00,0.1557E+00,0.1532E+00,0.1515E+00,0.1504E+00,
- *0.1500E+00,0.1503E+00,0.1513E+00,0.1531E+00,0.1557E+00,
- *0.1591E+00,0.1632E+00,0.1683E+00,0.1742E+00,0.1811E+00,
- *0.1891E+00,0.1983E+00,0.2087E+00,0.2205E+00,0.2339E+00,
- *0.2489E+00,0.2572E+00,0.2659E+00,0.2851E+00,0.3066E+00,
- *0.3307E+00,0.3579E+00,0.3884E+00,0.4228E+00,0.4616E+00,
- *0.5053E+00,0.5546E+00,0.6102E+00,0.6730E+00,0.7442E+00,
- *0.8247E+00,0.9160E+00,0.1020E+01,0.1137E+01,0.1270E+01,
- *0.1422E+01,0.1594E+01,0.1790E+01,0.2013E+01,0.2266E+01,
- *0.2553E+01,0.2879E+01,0.3249E+01,0.3668E+01,0.4141E+01,
- *0.4675E+01,0.5276E+01,0.5948E+01,0.6698E+01,0.7530E+01,
- *0.8446E+01,0.9447E+01,0.1053E+02,0.1169E+02,0.1295E+02,
- *0.1436E+02,0.1613E+02,0.1732E+02 /
- DATA ((PHR(i,j),j=1,83),i= 8, 8)/
- *0.3445E+00,0.3396E+00,0.3223E+00,0.2982E+00,0.2729E+00,
- *0.2510E+00,0.2345E+00,0.2236E+00,0.2170E+00,0.2127E+00,
- *0.2091E+00,0.2051E+00,0.2005E+00,0.1955E+00,0.1901E+00,
- *0.1846E+00,0.1791E+00,0.1740E+00,0.1692E+00,0.1650E+00,
- *0.1613E+00,0.1584E+00,0.1560E+00,0.1544E+00,0.1535E+00,
- *0.1533E+00,0.1537E+00,0.1549E+00,0.1567E+00,0.1594E+00,
- *0.1628E+00,0.1671E+00,0.1722E+00,0.1783E+00,0.1854E+00,
- *0.1937E+00,0.2030E+00,0.2137E+00,0.2258E+00,0.2394E+00,
- *0.2549E+00,0.2633E+00,0.2723E+00,0.2918E+00,0.3139E+00,
- *0.3386E+00,0.3665E+00,0.3978E+00,0.4330E+00,0.4725E+00,
- *0.5171E+00,0.5675E+00,0.6243E+00,0.6885E+00,0.7609E+00,
- *0.8428E+00,0.9356E+00,0.1041E+01,0.1159E+01,0.1294E+01,
- *0.1447E+01,0.1621E+01,0.1818E+01,0.2041E+01,0.2294E+01,
- *0.2580E+01,0.2904E+01,0.3270E+01,0.3682E+01,0.4147E+01,
- *0.4667E+01,0.5249E+01,0.5897E+01,0.6614E+01,0.7403E+01,
- *0.8264E+01,0.9196E+01,0.1020E+02,0.1126E+02,0.1241E+02,
- *0.1370E+02,0.1529E+02,0.1632E+02 /
- DATA ((PHR(i,j),j=1,83),i= 9, 9)/
- *0.3352E+00,0.3308E+00,0.3154E+00,0.2937E+00,0.2706E+00,
- *0.2501E+00,0.2344E+00,0.2238E+00,0.2170E+00,0.2124E+00,
- *0.2085E+00,0.2045E+00,0.2001E+00,0.1952E+00,0.1902E+00,
- *0.1851E+00,0.1800E+00,0.1752E+00,0.1708E+00,0.1669E+00,
- *0.1636E+00,0.1608E+00,0.1587E+00,0.1572E+00,0.1564E+00,
- *0.1563E+00,0.1569E+00,0.1582E+00,0.1602E+00,0.1630E+00,
- *0.1665E+00,0.1709E+00,0.1762E+00,0.1825E+00,0.1898E+00,
- *0.1982E+00,0.2078E+00,0.2187E+00,0.2312E+00,0.2453E+00,
- *0.2612E+00,0.2699E+00,0.2791E+00,0.2991E+00,0.3216E+00,
- *0.3469E+00,0.3755E+00,0.4076E+00,0.4437E+00,0.4843E+00,
- *0.5299E+00,0.5814E+00,0.6394E+00,0.7048E+00,0.7786E+00,
- *0.8620E+00,0.9562E+00,0.1063E+01,0.1183E+01,0.1320E+01,
- *0.1474E+01,0.1649E+01,0.1846E+01,0.2070E+01,0.2322E+01,
- *0.2607E+01,0.2928E+01,0.3289E+01,0.3695E+01,0.4149E+01,
- *0.4656E+01,0.5219E+01,0.5841E+01,0.6526E+01,0.7273E+01,
- *0.8082E+01,0.8949E+01,0.9871E+01,0.1085E+02,0.1189E+02,
- *0.1306E+02,0.1448E+02,0.1535E+02 /
- DATA ((PHR(i,j),j=1,83),i=10,10)/
- *0.3251E+00,0.3211E+00,0.3071E+00,0.2874E+00,0.2664E+00,
- *0.2475E+00,0.2326E+00,0.2224E+00,0.2157E+00,0.2109E+00,
- *0.2069E+00,0.2030E+00,0.1989E+00,0.1944E+00,0.1897E+00,
- *0.1850E+00,0.1804E+00,0.1760E+00,0.1720E+00,0.1685E+00,
- *0.1655E+00,0.1630E+00,0.1611E+00,0.1599E+00,0.1592E+00,
- *0.1592E+00,0.1600E+00,0.1614E+00,0.1636E+00,0.1665E+00,
- *0.1703E+00,0.1749E+00,0.1804E+00,0.1868E+00,0.1944E+00,
- *0.2030E+00,0.2129E+00,0.2242E+00,0.2370E+00,0.2515E+00,
- *0.2678E+00,0.2767E+00,0.2861E+00,0.3068E+00,0.3299E+00,
- *0.3559E+00,0.3852E+00,0.4180E+00,0.4550E+00,0.4965E+00,
- *0.5433E+00,0.5959E+00,0.6550E+00,0.7216E+00,0.7967E+00,
- *0.8815E+00,0.9772E+00,0.1085E+01,0.1207E+01,0.1345E+01,
- *0.1500E+01,0.1675E+01,0.1873E+01,0.2096E+01,0.2348E+01,
- *0.2631E+01,0.2948E+01,0.3304E+01,0.3702E+01,0.4146E+01,
- *0.4638E+01,0.5182E+01,0.5780E+01,0.6433E+01,0.7141E+01,
- *0.7901E+01,0.8711E+01,0.9564E+01,0.1046E+02,0.1142E+02,
- *0.1249E+02,0.1378E+02,0.1452E+02 /
- DATA ((PHR(i,j),j=1,83),i=11,11)/
- *0.3184E+00,0.3146E+00,0.3017E+00,0.2836E+00,0.2641E+00,
- *0.2464E+00,0.2325E+00,0.2226E+00,0.2159E+00,0.2111E+00,
- *0.2070E+00,0.2030E+00,0.1989E+00,0.1945E+00,0.1901E+00,
- *0.1856E+00,0.1813E+00,0.1772E+00,0.1735E+00,0.1701E+00,
- *0.1673E+00,0.1651E+00,0.1633E+00,0.1622E+00,0.1618E+00,
- *0.1620E+00,0.1629E+00,0.1645E+00,0.1668E+00,0.1698E+00,
- *0.1737E+00,0.1784E+00,0.1840E+00,0.1907E+00,0.1984E+00,
- *0.2073E+00,0.2174E+00,0.2289E+00,0.2420E+00,0.2568E+00,
- *0.2735E+00,0.2826E+00,0.2923E+00,0.3133E+00,0.3369E+00,
- *0.3635E+00,0.3934E+00,0.4269E+00,0.4646E+00,0.5069E+00,
- *0.5544E+00,0.6078E+00,0.6680E+00,0.7357E+00,0.8118E+00,
- *0.8976E+00,0.9943E+00,0.1103E+01,0.1226E+01,0.1365E+01,
- *0.1521E+01,0.1696E+01,0.1894E+01,0.2117E+01,0.2367E+01,
- *0.2647E+01,0.2962E+01,0.3313E+01,0.3704E+01,0.4138E+01,
- *0.4618E+01,0.5146E+01,0.5724E+01,0.6352E+01,0.7029E+01,
- *0.7752E+01,0.8518E+01,0.9322E+01,0.1017E+02,0.1106E+02,
- *0.1207E+02,0.1326E+02,0.1392E+02 /
- DATA ((PHR(i,j),j=1,83),i=12,12)/
- *0.3186E+00,0.3148E+00,0.3016E+00,0.2834E+00,0.2641E+00,
- *0.2469E+00,0.2333E+00,0.2235E+00,0.2168E+00,0.2118E+00,
- *0.2076E+00,0.2036E+00,0.1995E+00,0.1952E+00,0.1909E+00,
- *0.1865E+00,0.1823E+00,0.1783E+00,0.1747E+00,0.1715E+00,
- *0.1688E+00,0.1666E+00,0.1650E+00,0.1640E+00,0.1637E+00,
- *0.1639E+00,0.1649E+00,0.1665E+00,0.1688E+00,0.1720E+00,
- *0.1760E+00,0.1808E+00,0.1866E+00,0.1934E+00,0.2012E+00,
- *0.2102E+00,0.2205E+00,0.2323E+00,0.2455E+00,0.2605E+00,
- *0.2773E+00,0.2865E+00,0.2963E+00,0.3177E+00,0.3417E+00,
- *0.3687E+00,0.3989E+00,0.4328E+00,0.4709E+00,0.5136E+00,
- *0.5616E+00,0.6156E+00,0.6763E+00,0.7446E+00,0.8214E+00,
- *0.9078E+00,0.1005E+01,0.1115E+01,0.1238E+01,0.1376E+01,
- *0.1533E+01,0.1708E+01,0.1906E+01,0.2128E+01,0.2377E+01,
- *0.2656E+01,0.2968E+01,0.3315E+01,0.3702E+01,0.4130E+01,
- *0.4602E+01,0.5120E+01,0.5686E+01,0.6298E+01,0.6956E+01,
- *0.7656E+01,0.8395E+01,0.9171E+01,0.9985E+01,0.1085E+02,
- *0.1183E+02,0.1296E+02,0.1358E+02 /
- DATA ((PHR(i,j),j=1,83),i=13,13)/
- *0.3108E+00,0.3076E+00,0.2963E+00,0.2807E+00,0.2639E+00,
- *0.2484E+00,0.2357E+00,0.2264E+00,0.2198E+00,0.2147E+00,
- *0.2103E+00,0.2061E+00,0.2020E+00,0.1978E+00,0.1936E+00,
- *0.1895E+00,0.1856E+00,0.1820E+00,0.1786E+00,0.1757E+00,
- *0.1733E+00,0.1714E+00,0.1700E+00,0.1692E+00,0.1690E+00,
- *0.1694E+00,0.1705E+00,0.1724E+00,0.1749E+00,0.1783E+00,
- *0.1824E+00,0.1874E+00,0.1934E+00,0.2005E+00,0.2086E+00,
- *0.2180E+00,0.2286E+00,0.2407E+00,0.2545E+00,0.2701E+00,
- *0.2876E+00,0.2972E+00,0.3073E+00,0.3293E+00,0.3541E+00,
- *0.3819E+00,0.4131E+00,0.4481E+00,0.4874E+00,0.5314E+00,
- *0.5807E+00,0.6361E+00,0.6982E+00,0.7679E+00,0.8462E+00,
- *0.9340E+00,0.1033E+01,0.1143E+01,0.1268E+01,0.1407E+01,
- *0.1564E+01,0.1740E+01,0.1936E+01,0.2156E+01,0.2402E+01,
- *0.2676E+01,0.2981E+01,0.3319E+01,0.3693E+01,0.4104E+01,
- *0.4556E+01,0.5048E+01,0.5581E+01,0.6154E+01,0.6766E+01,
- *0.7412E+01,0.8090E+01,0.8797E+01,0.9536E+01,0.1032E+02,
- *0.1120E+02,0.1220E+02,0.1271E+02 /
- DATA ((PHR(i,j),j=1,83),i=14,14)/
- *0.3172E+00,0.3140E+00,0.3035E+00,0.2893E+00,0.2739E+00,
- *0.2593E+00,0.2471E+00,0.2379E+00,0.2310E+00,0.2253E+00,
- *0.2203E+00,0.2156E+00,0.2110E+00,0.2065E+00,0.2022E+00,
- *0.1981E+00,0.1942E+00,0.1907E+00,0.1875E+00,0.1847E+00,
- *0.1824E+00,0.1806E+00,0.1793E+00,0.1786E+00,0.1785E+00,
- *0.1791E+00,0.1804E+00,0.1824E+00,0.1851E+00,0.1886E+00,
- *0.1930E+00,0.1982E+00,0.2045E+00,0.2119E+00,0.2205E+00,
- *0.2303E+00,0.2414E+00,0.2542E+00,0.2686E+00,0.2849E+00,
- *0.3032E+00,0.3133E+00,0.3239E+00,0.3469E+00,0.3728E+00,
- *0.4017E+00,0.4343E+00,0.4707E+00,0.5115E+00,0.5570E+00,
- *0.6080E+00,0.6651E+00,0.7289E+00,0.8003E+00,0.8802E+00,
- *0.9697E+00,0.1070E+01,0.1182E+01,0.1307E+01,0.1447E+01,
- *0.1603E+01,0.1777E+01,0.1970E+01,0.2186E+01,0.2426E+01,
- *0.2691E+01,0.2984E+01,0.3308E+01,0.3662E+01,0.4050E+01,
- *0.4472E+01,0.4927E+01,0.5417E+01,0.5939E+01,0.6490E+01,
- *0.7069E+01,0.7672E+01,0.8297E+01,0.8950E+01,0.9647E+01,
- *0.1042E+02,0.1126E+02,0.1165E+02 /
- DATA ((PHR(i,j),j=1,83),i=15,15)/
- *0.3355E+00,0.3327E+00,0.3233E+00,0.3114E+00,0.2995E+00,
- *0.2889E+00,0.2799E+00,0.2725E+00,0.2664E+00,0.2611E+00,
- *0.2560E+00,0.2509E+00,0.2459E+00,0.2412E+00,0.2367E+00,
- *0.2326E+00,0.2287E+00,0.2253E+00,0.2223E+00,0.2197E+00,
- *0.2176E+00,0.2160E+00,0.2150E+00,0.2145E+00,0.2147E+00,
- *0.2156E+00,0.2171E+00,0.2193E+00,0.2224E+00,0.2264E+00,
- *0.2313E+00,0.2373E+00,0.2444E+00,0.2526E+00,0.2622E+00,
- *0.2733E+00,0.2859E+00,0.3002E+00,0.3164E+00,0.3346E+00,
- *0.3552E+00,0.3664E+00,0.3782E+00,0.4040E+00,0.4329E+00,
- *0.4650E+00,0.5009E+00,0.5408E+00,0.5851E+00,0.6343E+00,
- *0.6890E+00,0.7496E+00,0.8170E+00,0.8915E+00,0.9741E+00,
- *0.1065E+01,0.1166E+01,0.1277E+01,0.1400E+01,0.1536E+01,
- *0.1685E+01,0.1848E+01,0.2028E+01,0.2224E+01,0.2439E+01,
- *0.2673E+01,0.2927E+01,0.3201E+01,0.3497E+01,0.3815E+01,
- *0.4154E+01,0.4515E+01,0.4896E+01,0.5296E+01,0.5714E+01,
- *0.6150E+01,0.6604E+01,0.7079E+01,0.7583E+01,0.8128E+01,
- *0.8710E+01,0.9260E+01,0.9472E+01 /
- DATA ((PHR(i,j),j=1,83),i=16,16)/
- *0.2986E+00,0.2970E+00,0.2925E+00,0.2886E+00,0.2868E+00,
- *0.2865E+00,0.2862E+00,0.2849E+00,0.2824E+00,0.2789E+00,
- *0.2746E+00,0.2696E+00,0.2644E+00,0.2592E+00,0.2541E+00,
- *0.2492E+00,0.2446E+00,0.2403E+00,0.2364E+00,0.2329E+00,
- *0.2299E+00,0.2274E+00,0.2253E+00,0.2238E+00,0.2229E+00,
- *0.2226E+00,0.2229E+00,0.2239E+00,0.2258E+00,0.2284E+00,
- *0.2320E+00,0.2365E+00,0.2421E+00,0.2488E+00,0.2568E+00,
- *0.2662E+00,0.2772E+00,0.2898E+00,0.3042E+00,0.3207E+00,
- *0.3395E+00,0.3497E+00,0.3606E+00,0.3844E+00,0.4113E+00,
- *0.4415E+00,0.4752E+00,0.5129E+00,0.5551E+00,0.6021E+00,
- *0.6544E+00,0.7126E+00,0.7774E+00,0.8494E+00,0.9292E+00,
- *0.1018E+01,0.1116E+01,0.1225E+01,0.1345E+01,0.1478E+01,
- *0.1625E+01,0.1788E+01,0.1967E+01,0.2164E+01,0.2380E+01,
- *0.2618E+01,0.2879E+01,0.3164E+01,0.3475E+01,0.3814E+01,
- *0.4181E+01,0.4578E+01,0.5006E+01,0.5466E+01,0.5960E+01,
- *0.6490E+01,0.7058E+01,0.7669E+01,0.8329E+01,0.9041E+01,
- *0.9780E+01,0.1043E+02,0.1066E+02 /
- DATA ((PHR(i,j),j=1,83),i=17,17)/
- *0.3040E+00,0.3027E+00,0.2989E+00,0.2955E+00,0.2941E+00,
- *0.2941E+00,0.2940E+00,0.2929E+00,0.2906E+00,0.2870E+00,
- *0.2828E+00,0.2783E+00,0.2735E+00,0.2686E+00,0.2637E+00,
- *0.2588E+00,0.2543E+00,0.2501E+00,0.2461E+00,0.2426E+00,
- *0.2394E+00,0.2367E+00,0.2344E+00,0.2326E+00,0.2315E+00,
- *0.2308E+00,0.2309E+00,0.2316E+00,0.2331E+00,0.2354E+00,
- *0.2386E+00,0.2427E+00,0.2479E+00,0.2543E+00,0.2619E+00,
- *0.2709E+00,0.2814E+00,0.2936E+00,0.3077E+00,0.3237E+00,
- *0.3419E+00,0.3519E+00,0.3626E+00,0.3860E+00,0.4123E+00,
- *0.4418E+00,0.4750E+00,0.5120E+00,0.5534E+00,0.5996E+00,
- *0.6511E+00,0.7084E+00,0.7719E+00,0.8426E+00,0.9211E+00,
- *0.1008E+01,0.1105E+01,0.1211E+01,0.1329E+01,0.1460E+01,
- *0.1604E+01,0.1764E+01,0.1940E+01,0.2134E+01,0.2348E+01,
- *0.2583E+01,0.2842E+01,0.3125E+01,0.3436E+01,0.3776E+01,
- *0.4146E+01,0.4550E+01,0.4989E+01,0.5464E+01,0.5978E+01,
- *0.6535E+01,0.7138E+01,0.7793E+01,0.8502E+01,0.9258E+01,
- *0.1003E+02,0.1069E+02,0.1091E+02 /
- DATA ((PHR(i,j),j=1,83),i=18,18)/
- *0.3020E+00,0.3011E+00,0.2986E+00,0.2971E+00,0.2968E+00,
- *0.2964E+00,0.2950E+00,0.2928E+00,0.2901E+00,0.2870E+00,
- *0.2837E+00,0.2804E+00,0.2771E+00,0.2737E+00,0.2704E+00,
- *0.2671E+00,0.2638E+00,0.2605E+00,0.2574E+00,0.2543E+00,
- *0.2515E+00,0.2488E+00,0.2464E+00,0.2444E+00,0.2427E+00,
- *0.2414E+00,0.2407E+00,0.2405E+00,0.2409E+00,0.2420E+00,
- *0.2439E+00,0.2466E+00,0.2503E+00,0.2549E+00,0.2607E+00,
- *0.2678E+00,0.2762E+00,0.2861E+00,0.2977E+00,0.3111E+00,
- *0.3266E+00,0.3351E+00,0.3442E+00,0.3643E+00,0.3871E+00,
- *0.4128E+00,0.4418E+00,0.4743E+00,0.5109E+00,0.5517E+00,
- *0.5974E+00,0.6483E+00,0.7051E+00,0.7684E+00,0.8389E+00,
- *0.9173E+00,0.1004E+01,0.1102E+01,0.1209E+01,0.1330E+01,
- *0.1464E+01,0.1613E+01,0.1780E+01,0.1966E+01,0.2174E+01,
- *0.2408E+01,0.2671E+01,0.2967E+01,0.3301E+01,0.3679E+01,
- *0.4109E+01,0.4597E+01,0.5153E+01,0.5786E+01,0.6507E+01,
- *0.7327E+01,0.8254E+01,0.9293E+01,0.1044E+02,0.1166E+02,
- *0.1287E+02,0.1383E+02,0.1415E+02 /
- DATA ((PHR(i,j),j=1,83),i=19,19)/
- *0.3020E+00,0.3015E+00,0.3003E+00,0.2996E+00,0.2990E+00,
- *0.2979E+00,0.2962E+00,0.2942E+00,0.2919E+00,0.2895E+00,
- *0.2869E+00,0.2842E+00,0.2814E+00,0.2785E+00,0.2757E+00,
- *0.2728E+00,0.2699E+00,0.2670E+00,0.2643E+00,0.2615E+00,
- *0.2590E+00,0.2565E+00,0.2542E+00,0.2522E+00,0.2504E+00,
- *0.2490E+00,0.2479E+00,0.2473E+00,0.2472E+00,0.2477E+00,
- *0.2488E+00,0.2507E+00,0.2534E+00,0.2570E+00,0.2616E+00,
- *0.2673E+00,0.2743E+00,0.2826E+00,0.2925E+00,0.3040E+00,
- *0.3173E+00,0.3247E+00,0.3327E+00,0.3502E+00,0.3702E+00,
- *0.3928E+00,0.4183E+00,0.4471E+00,0.4794E+00,0.5156E+00,
- *0.5562E+00,0.6014E+00,0.6520E+00,0.7083E+00,0.7711E+00,
- *0.8412E+00,0.9192E+00,0.1006E+01,0.1104E+01,0.1212E+01,
- *0.1334E+01,0.1471E+01,0.1625E+01,0.1799E+01,0.1996E+01,
- *0.2221E+01,0.2479E+01,0.2776E+01,0.3120E+01,0.3521E+01,
- *0.3991E+01,0.4547E+01,0.5206E+01,0.5990E+01,0.6924E+01,
- *0.8032E+01,0.9334E+01,0.1084E+02,0.1253E+02,0.1434E+02,
- *0.1609E+02,0.1744E+02,0.1785E+02 /
- DATA ((PHR(i,j),j=1,83),i=20,20)/
- *0.3991E+00,0.3988E+00,0.3978E+00,0.3964E+00,0.3948E+00,
- *0.3929E+00,0.3906E+00,0.3879E+00,0.3847E+00,0.3812E+00,
- *0.3773E+00,0.3732E+00,0.3689E+00,0.3645E+00,0.3599E+00,
- *0.3552E+00,0.3504E+00,0.3457E+00,0.3409E+00,0.3363E+00,
- *0.3317E+00,0.3274E+00,0.3232E+00,0.3193E+00,0.3157E+00,
- *0.3125E+00,0.3098E+00,0.3076E+00,0.3059E+00,0.3049E+00,
- *0.3047E+00,0.3053E+00,0.3067E+00,0.3092E+00,0.3128E+00,
- *0.3175E+00,0.3236E+00,0.3312E+00,0.3403E+00,0.3511E+00,
- *0.3638E+00,0.3709E+00,0.3786E+00,0.3955E+00,0.4149E+00,
- *0.4369E+00,0.4618E+00,0.4899E+00,0.5214E+00,0.5566E+00,
- *0.5960E+00,0.6400E+00,0.6890E+00,0.7437E+00,0.8045E+00,
- *0.8724E+00,0.9480E+00,0.1033E+01,0.1127E+01,0.1233E+01,
- *0.1352E+01,0.1485E+01,0.1636E+01,0.1807E+01,0.2001E+01,
- *0.2222E+01,0.2475E+01,0.2764E+01,0.3097E+01,0.3479E+01,
- *0.3919E+01,0.4426E+01,0.5008E+01,0.5672E+01,0.6425E+01,
- *0.7267E+01,0.8194E+01,0.9184E+01,0.1020E+02,0.1118E+02,
- *0.1203E+02,0.1261E+02,0.1277E+02 /
-c************** MIE (phase fun qh) ***************
- DATA ((QHR(i,j),j=1,83),i= 1, 1)/
- * 0.3388E-22, 0.2705E-02, 0.1324E-01, 0.2911E-01, 0.4717E-01,
- * 0.6492E-01, 0.8049E-01, 0.9251E-01, 0.1002E+00, 0.1033E+00,
- * 0.1023E+00, 0.9820E-01, 0.9197E-01, 0.8458E-01, 0.7677E-01,
- * 0.6906E-01, 0.6178E-01, 0.5510E-01, 0.4908E-01, 0.4371E-01,
- * 0.3894E-01, 0.3476E-01, 0.3108E-01, 0.2789E-01, 0.2512E-01,
- * 0.2270E-01, 0.2055E-01, 0.1865E-01, 0.1696E-01, 0.1549E-01,
- * 0.1422E-01, 0.1313E-01, 0.1218E-01, 0.1132E-01, 0.1057E-01,
- * 0.9939E-02, 0.9418E-02, 0.9008E-02, 0.8688E-02, 0.8454E-02,
- * 0.8315E-02, 0.8279E-02, 0.8274E-02, 0.8317E-02, 0.8427E-02,
- * 0.8611E-02, 0.8898E-02, 0.9317E-02, 0.9885E-02, 0.1060E-01,
- * 0.1144E-01, 0.1236E-01, 0.1335E-01, 0.1448E-01, 0.1579E-01,
- * 0.1730E-01, 0.1901E-01, 0.2089E-01, 0.2289E-01, 0.2500E-01,
- * 0.2724E-01, 0.2958E-01, 0.3201E-01, 0.3457E-01, 0.3722E-01,
- * 0.3991E-01, 0.4262E-01, 0.4526E-01, 0.4769E-01, 0.4990E-01,
- * 0.5190E-01, 0.5358E-01, 0.5490E-01, 0.5561E-01, 0.5517E-01,
- * 0.5310E-01, 0.4897E-01, 0.4243E-01, 0.3358E-01, 0.2348E-01,
- * 0.1324E-01, 0.4093E-02, 0.2630E-19 /
- DATA ((QHR(i,j),j=1,83),i= 2, 2)/
- * 0.4524E-21, 0.2675E-02, 0.1299E-01, 0.2843E-01, 0.4600E-01,
- * 0.6326E-01, 0.7840E-01, 0.9019E-01, 0.9788E-01, 0.1013E+00,
- * 0.1007E+00, 0.9713E-01, 0.9141E-01, 0.8445E-01, 0.7692E-01,
- * 0.6936E-01, 0.6210E-01, 0.5530E-01, 0.4908E-01, 0.4347E-01,
- * 0.3845E-01, 0.3399E-01, 0.3003E-01, 0.2650E-01, 0.2336E-01,
- * 0.2058E-01, 0.1810E-01, 0.1588E-01, 0.1389E-01, 0.1210E-01,
- * 0.1049E-01, 0.9040E-02, 0.7753E-02, 0.6579E-02, 0.5498E-02,
- * 0.4519E-02, 0.3644E-02, 0.2878E-02, 0.2215E-02, 0.1623E-02,
- * 0.1075E-02, 0.8190E-03, 0.5775E-03, 0.1801E-03,-0.7529E-04,
- *-0.2034E-03,-0.2525E-03,-0.2500E-03,-0.1807E-03,-0.4815E-05,
- * 0.3298E-03, 0.8693E-03, 0.1601E-02, 0.2449E-02, 0.3380E-02,
- * 0.4453E-02, 0.5747E-02, 0.7287E-02, 0.9066E-02, 0.1106E-01,
- * 0.1320E-01, 0.1545E-01, 0.1787E-01, 0.2050E-01, 0.2332E-01,
- * 0.2633E-01, 0.2944E-01, 0.3244E-01, 0.3529E-01, 0.3801E-01,
- * 0.4048E-01, 0.4266E-01, 0.4448E-01, 0.4553E-01, 0.4543E-01,
- * 0.4400E-01, 0.4066E-01, 0.3529E-01, 0.2826E-01, 0.1954E-01,
- * 0.1043E-01, 0.3119E-02, 0.8522E-20 /
- DATA ((QHR(i,j),j=1,83),i= 3, 3)/
- * 0.1156E-20, 0.2647E-02, 0.1288E-01, 0.2824E-01, 0.4582E-01,
- * 0.6312E-01, 0.7832E-01, 0.9019E-01, 0.9795E-01, 0.1013E+00,
- * 0.1008E+00, 0.9717E-01, 0.9146E-01, 0.8452E-01, 0.7705E-01,
- * 0.6952E-01, 0.6226E-01, 0.5544E-01, 0.4917E-01, 0.4350E-01,
- * 0.3843E-01, 0.3390E-01, 0.2987E-01, 0.2624E-01, 0.2298E-01,
- * 0.2005E-01, 0.1747E-01, 0.1518E-01, 0.1315E-01, 0.1131E-01,
- * 0.9615E-02, 0.8054E-02, 0.6657E-02, 0.5420E-02, 0.4300E-02,
- * 0.3277E-02, 0.2335E-02, 0.1467E-02, 0.6896E-03, 0.8981E-07,
- *-0.6248E-03,-0.9151E-03,-0.1198E-02,-0.1684E-02,-0.2032E-02,
- *-0.2242E-02,-0.2364E-02,-0.2436E-02,-0.2463E-02,-0.2424E-02,
- *-0.2243E-02,-0.1825E-02,-0.1160E-02,-0.3305E-03, 0.5932E-03,
- * 0.1609E-02, 0.2774E-02, 0.4151E-02, 0.5802E-02, 0.7710E-02,
- * 0.9820E-02, 0.1213E-01, 0.1464E-01, 0.1728E-01, 0.2005E-01,
- * 0.2297E-01, 0.2595E-01, 0.2892E-01, 0.3194E-01, 0.3488E-01,
- * 0.3759E-01, 0.4001E-01, 0.4182E-01, 0.4259E-01, 0.4208E-01,
- * 0.4009E-01, 0.3629E-01, 0.3098E-01, 0.2458E-01, 0.1666E-01,
- * 0.8573E-02, 0.2603E-02, 0.2928E-19 /
- DATA ((QHR(i,j),j=1,83),i= 4, 4)/
- *-0.4206E-21, 0.2749E-02, 0.1315E-01, 0.2850E-01, 0.4587E-01,
- * 0.6291E-01, 0.7786E-01, 0.8953E-01, 0.9722E-01, 0.1007E+00,
- * 0.1003E+00, 0.9695E-01, 0.9147E-01, 0.8470E-01, 0.7729E-01,
- * 0.6979E-01, 0.6249E-01, 0.5559E-01, 0.4919E-01, 0.4336E-01,
- * 0.3811E-01, 0.3340E-01, 0.2917E-01, 0.2535E-01, 0.2190E-01,
- * 0.1881E-01, 0.1603E-01, 0.1352E-01, 0.1125E-01, 0.9161E-02,
- * 0.7240E-02, 0.5479E-02, 0.3894E-02, 0.2435E-02, 0.1059E-02,
- *-0.2257E-03,-0.1414E-02,-0.2500E-02,-0.3482E-02,-0.4388E-02,
- *-0.5269E-02,-0.5701E-02,-0.6128E-02,-0.6891E-02,-0.7481E-02,
- *-0.7917E-02,-0.8283E-02,-0.8634E-02,-0.8953E-02,-0.9183E-02,
- *-0.9235E-02,-0.9017E-02,-0.8550E-02,-0.7968E-02,-0.7338E-02,
- *-0.6589E-02,-0.5593E-02,-0.4297E-02,-0.2697E-02,-0.8211E-03,
- * 0.1227E-02, 0.3444E-02, 0.5887E-02, 0.8595E-02, 0.1154E-01,
- * 0.1478E-01, 0.1818E-01, 0.2150E-01, 0.2474E-01, 0.2793E-01,
- * 0.3089E-01, 0.3357E-01, 0.3595E-01, 0.3750E-01, 0.3791E-01,
- * 0.3714E-01, 0.3449E-01, 0.3004E-01, 0.2432E-01, 0.1679E-01,
- * 0.8710E-02, 0.2571E-02, 0.2363E-19 /
- DATA ((QHR(i,j),j=1,83),i= 5, 5)/
- *-0.4642E-22, 0.2556E-02, 0.1228E-01, 0.2679E-01, 0.4345E-01,
- * 0.6001E-01, 0.7472E-01, 0.8634E-01, 0.9402E-01, 0.9753E-01,
- * 0.9730E-01, 0.9412E-01, 0.8888E-01, 0.8243E-01, 0.7540E-01,
- * 0.6823E-01, 0.6118E-01, 0.5445E-01, 0.4815E-01, 0.4235E-01,
- * 0.3707E-01, 0.3226E-01, 0.2790E-01, 0.2393E-01, 0.2031E-01,
- * 0.1701E-01, 0.1404E-01, 0.1136E-01, 0.8930E-02, 0.6697E-02,
- * 0.4618E-02, 0.2658E-02, 0.8311E-03,-0.8244E-03,-0.2341E-02,
- *-0.3768E-02,-0.5133E-02,-0.6448E-02,-0.7699E-02,-0.8860E-02,
- *-0.9916E-02,-0.1041E-01,-0.1088E-01,-0.1179E-01,-0.1266E-01,
- *-0.1345E-01,-0.1412E-01,-0.1469E-01,-0.1514E-01,-0.1550E-01,
- *-0.1578E-01,-0.1594E-01,-0.1592E-01,-0.1563E-01,-0.1510E-01,
- *-0.1440E-01,-0.1360E-01,-0.1263E-01,-0.1141E-01,-0.9913E-02,
- *-0.8059E-02,-0.5823E-02,-0.3285E-02,-0.5974E-03, 0.2233E-02,
- * 0.5150E-02, 0.8199E-02, 0.1154E-01, 0.1528E-01, 0.1913E-01,
- * 0.2285E-01, 0.2626E-01, 0.2879E-01, 0.3028E-01, 0.3065E-01,
- * 0.2939E-01, 0.2662E-01, 0.2267E-01, 0.1759E-01, 0.1192E-01,
- * 0.6591E-02, 0.2086E-02, 0.2318E-19 /
- DATA ((QHR(i,j),j=1,83),i= 6, 6)/
- * 0.1625E-22, 0.2573E-02, 0.1220E-01, 0.2625E-01, 0.4214E-01,
- * 0.5787E-01, 0.7184E-01, 0.8289E-01, 0.9034E-01, 0.9399E-01,
- * 0.9414E-01, 0.9147E-01, 0.8675E-01, 0.8068E-01, 0.7386E-01,
- * 0.6680E-01, 0.5986E-01, 0.5322E-01, 0.4700E-01, 0.4123E-01,
- * 0.3592E-01, 0.3107E-01, 0.2665E-01, 0.2265E-01, 0.1904E-01,
- * 0.1576E-01, 0.1275E-01, 0.9934E-02, 0.7307E-02, 0.4879E-02,
- * 0.2661E-02, 0.6367E-03,-0.1255E-02,-0.3091E-02,-0.4850E-02,
- *-0.6497E-02,-0.8032E-02,-0.9461E-02,-0.1081E-01,-0.1211E-01,
- *-0.1337E-01,-0.1398E-01,-0.1457E-01,-0.1566E-01,-0.1668E-01,
- *-0.1763E-01,-0.1853E-01,-0.1934E-01,-0.2002E-01,-0.2054E-01,
- *-0.2091E-01,-0.2115E-01,-0.2127E-01,-0.2128E-01,-0.2112E-01,
- *-0.2072E-01,-0.1999E-01,-0.1894E-01,-0.1763E-01,-0.1604E-01,
- *-0.1424E-01,-0.1226E-01,-0.1000E-01,-0.7301E-02,-0.4210E-02,
- *-0.7418E-03, 0.3032E-02, 0.6862E-02, 0.1054E-01, 0.1419E-01,
- * 0.1776E-01, 0.2117E-01, 0.2459E-01, 0.2764E-01, 0.2974E-01,
- * 0.3066E-01, 0.2970E-01, 0.2647E-01, 0.2148E-01, 0.1532E-01,
- * 0.8717E-02, 0.2570E-02, 0.2508E-19 /
- DATA ((QHR(i,j),j=1,83),i= 7, 7)/
- * 0.5125E-21, 0.2459E-02, 0.1162E-01, 0.2501E-01, 0.4023E-01,
- * 0.5535E-01, 0.6887E-01, 0.7967E-01, 0.8708E-01, 0.9086E-01,
- * 0.9122E-01, 0.8882E-01, 0.8440E-01, 0.7862E-01, 0.7208E-01,
- * 0.6526E-01, 0.5848E-01, 0.5192E-01, 0.4570E-01, 0.3991E-01,
- * 0.3457E-01, 0.2967E-01, 0.2519E-01, 0.2107E-01, 0.1728E-01,
- * 0.1382E-01, 0.1064E-01, 0.7682E-02, 0.4928E-02, 0.2351E-02,
- *-0.6637E-04,-0.2319E-02,-0.4410E-02,-0.6406E-02,-0.8340E-02,
- *-0.1019E-01,-0.1195E-01,-0.1361E-01,-0.1518E-01,-0.1668E-01,
- *-0.1818E-01,-0.1892E-01,-0.1966E-01,-0.2106E-01,-0.2230E-01,
- *-0.2341E-01,-0.2447E-01,-0.2552E-01,-0.2651E-01,-0.2740E-01,
- *-0.2810E-01,-0.2856E-01,-0.2879E-01,-0.2890E-01,-0.2894E-01,
- *-0.2880E-01,-0.2833E-01,-0.2751E-01,-0.2636E-01,-0.2487E-01,
- *-0.2313E-01,-0.2114E-01,-0.1883E-01,-0.1609E-01,-0.1296E-01,
- *-0.9384E-02,-0.5490E-02,-0.1521E-02, 0.2468E-02, 0.6546E-02,
- * 0.1053E-01, 0.1434E-01, 0.1803E-01, 0.2113E-01, 0.2331E-01,
- * 0.2455E-01, 0.2408E-01, 0.2180E-01, 0.1828E-01, 0.1307E-01,
- * 0.7038E-02, 0.2041E-02, 0.1995E-19 /
- DATA ((QHR(i,j),j=1,83),i= 8, 8)/
- *-0.3431E-22, 0.2397E-02, 0.1118E-01, 0.2394E-01, 0.3859E-01,
- * 0.5328E-01, 0.6650E-01, 0.7715E-01, 0.8439E-01, 0.8803E-01,
- * 0.8844E-01, 0.8620E-01, 0.8197E-01, 0.7644E-01, 0.7019E-01,
- * 0.6359E-01, 0.5697E-01, 0.5056E-01, 0.4446E-01, 0.3871E-01,
- * 0.3329E-01, 0.2823E-01, 0.2353E-01, 0.1923E-01, 0.1528E-01,
- * 0.1161E-01, 0.8164E-02, 0.4941E-02, 0.1932E-02,-0.8723E-03,
- *-0.3485E-02,-0.5947E-02,-0.8331E-02,-0.1062E-01,-0.1279E-01,
- *-0.1487E-01,-0.1687E-01,-0.1880E-01,-0.2068E-01,-0.2250E-01,
- *-0.2423E-01,-0.2505E-01,-0.2585E-01,-0.2742E-01,-0.2903E-01,
- *-0.3062E-01,-0.3210E-01,-0.3340E-01,-0.3454E-01,-0.3552E-01,
- *-0.3636E-01,-0.3719E-01,-0.3801E-01,-0.3861E-01,-0.3884E-01,
- *-0.3868E-01,-0.3827E-01,-0.3766E-01,-0.3684E-01,-0.3575E-01,
- *-0.3421E-01,-0.3221E-01,-0.2979E-01,-0.2700E-01,-0.2382E-01,
- *-0.2038E-01,-0.1664E-01,-0.1243E-01,-0.7940E-02,-0.3224E-02,
- * 0.1704E-02, 0.6477E-02, 0.1076E-01, 0.1462E-01, 0.1760E-01,
- * 0.1876E-01, 0.1840E-01, 0.1628E-01, 0.1222E-01, 0.9020E-02,
- * 0.6669E-02, 0.2401E-02,-0.4543E-20 /
- DATA ((QHR(i,j),j=1,83),i= 9, 9)/
- * 0.5428E-21, 0.2160E-02, 0.1018E-01, 0.2199E-01, 0.3564E-01,
- * 0.4949E-01, 0.6216E-01, 0.7251E-01, 0.7971E-01, 0.8344E-01,
- * 0.8402E-01, 0.8198E-01, 0.7805E-01, 0.7290E-01, 0.6704E-01,
- * 0.6082E-01, 0.5446E-01, 0.4816E-01, 0.4206E-01, 0.3627E-01,
- * 0.3084E-01, 0.2575E-01, 0.2099E-01, 0.1652E-01, 0.1233E-01,
- * 0.8374E-02, 0.4708E-02, 0.1307E-02,-0.1890E-02,-0.4921E-02,
- *-0.7821E-02,-0.1063E-01,-0.1333E-01,-0.1588E-01,-0.1830E-01,
- *-0.2066E-01,-0.2297E-01,-0.2525E-01,-0.2748E-01,-0.2965E-01,
- *-0.3172E-01,-0.3272E-01,-0.3372E-01,-0.3568E-01,-0.3761E-01,
- *-0.3945E-01,-0.4119E-01,-0.4283E-01,-0.4435E-01,-0.4579E-01,
- *-0.4714E-01,-0.4834E-01,-0.4932E-01,-0.4999E-01,-0.5036E-01,
- *-0.5054E-01,-0.5054E-01,-0.5029E-01,-0.4966E-01,-0.4864E-01,
- *-0.4712E-01,-0.4506E-01,-0.4254E-01,-0.3967E-01,-0.3646E-01,
- *-0.3293E-01,-0.2902E-01,-0.2457E-01,-0.1945E-01,-0.1405E-01,
- *-0.8622E-02,-0.3265E-02, 0.1392E-02, 0.5168E-02, 0.8102E-02,
- * 0.9738E-02, 0.1022E-01, 0.9905E-02, 0.8604E-02, 0.6227E-02,
- * 0.3512E-02, 0.1108E-02, 0.1924E-19 /
- DATA ((QHR(i,j),j=1,83),i=10,10)/
- *-0.3477E-21, 0.2034E-02, 0.9499E-02, 0.2036E-01, 0.3281E-01,
- * 0.4547E-01, 0.5712E-01, 0.6669E-01, 0.7353E-01, 0.7731E-01,
- * 0.7815E-01, 0.7657E-01, 0.7319E-01, 0.6854E-01, 0.6305E-01,
- * 0.5711E-01, 0.5099E-01, 0.4485E-01, 0.3885E-01, 0.3311E-01,
- * 0.2767E-01, 0.2255E-01, 0.1772E-01, 0.1313E-01, 0.8757E-02,
- * 0.4622E-02, 0.7392E-03,-0.2913E-02,-0.6355E-02,-0.9660E-02,
- *-0.1289E-01,-0.1603E-01,-0.1901E-01,-0.2186E-01,-0.2463E-01,
- *-0.2736E-01,-0.3004E-01,-0.3268E-01,-0.3525E-01,-0.3774E-01,
- *-0.4020E-01,-0.4143E-01,-0.4268E-01,-0.4512E-01,-0.4739E-01,
- *-0.4951E-01,-0.5156E-01,-0.5360E-01,-0.5561E-01,-0.5757E-01,
- *-0.5935E-01,-0.6080E-01,-0.6189E-01,-0.6279E-01,-0.6358E-01,
- *-0.6419E-01,-0.6450E-01,-0.6438E-01,-0.6376E-01,-0.6267E-01,
- *-0.6117E-01,-0.5918E-01,-0.5666E-01,-0.5367E-01,-0.5018E-01,
- *-0.4604E-01,-0.4141E-01,-0.3642E-01,-0.3102E-01,-0.2535E-01,
- *-0.1955E-01,-0.1368E-01,-0.7927E-02,-0.2870E-02, 0.1242E-02,
- * 0.4428E-02, 0.6122E-02, 0.6821E-02, 0.7160E-02, 0.5520E-02,
- * 0.2549E-02, 0.8291E-03,-0.1758E-19 /
- DATA ((QHR(i,j),j=1,83),i=11,11)/
- * 0.8851E-21, 0.1859E-02, 0.8720E-02, 0.1878E-01, 0.3043E-01,
- * 0.4237E-01, 0.5343E-01, 0.6265E-01, 0.6924E-01, 0.7287E-01,
- * 0.7377E-01, 0.7232E-01, 0.6910E-01, 0.6470E-01, 0.5955E-01,
- * 0.5392E-01, 0.4805E-01, 0.4211E-01, 0.3624E-01, 0.3055E-01,
- * 0.2510E-01, 0.1989E-01, 0.1493E-01, 0.1020E-01, 0.5681E-02,
- * 0.1362E-02,-0.2723E-02,-0.6589E-02,-0.1029E-01,-0.1385E-01,
- *-0.1729E-01,-0.2066E-01,-0.2394E-01,-0.2709E-01,-0.3014E-01,
- *-0.3314E-01,-0.3610E-01,-0.3903E-01,-0.4192E-01,-0.4476E-01,
- *-0.4752E-01,-0.4886E-01,-0.5020E-01,-0.5284E-01,-0.5546E-01,
- *-0.5801E-01,-0.6046E-01,-0.6278E-01,-0.6498E-01,-0.6706E-01,
- *-0.6903E-01,-0.7085E-01,-0.7245E-01,-0.7371E-01,-0.7462E-01,
- *-0.7526E-01,-0.7566E-01,-0.7574E-01,-0.7537E-01,-0.7453E-01,
- *-0.7312E-01,-0.7107E-01,-0.6842E-01,-0.6529E-01,-0.6165E-01,
- *-0.5757E-01,-0.5295E-01,-0.4765E-01,-0.4154E-01,-0.3501E-01,
- *-0.2830E-01,-0.2156E-01,-0.1537E-01,-0.9855E-02,-0.4989E-02,
- *-0.1263E-02, 0.1438E-02, 0.3321E-02, 0.4031E-02, 0.3630E-02,
- * 0.2530E-02, 0.8873E-03, 0.1537E-19 /
- DATA ((QHR(i,j),j=1,83),i=12,12)/
- *-0.1670E-21, 0.1944E-02, 0.8894E-02, 0.1865E-01, 0.2968E-01,
- * 0.4087E-01, 0.5121E-01, 0.5986E-01, 0.6614E-01, 0.6972E-01,
- * 0.7074E-01, 0.6963E-01, 0.6680E-01, 0.6265E-01, 0.5758E-01,
- * 0.5196E-01, 0.4612E-01, 0.4027E-01, 0.3450E-01, 0.2886E-01,
- * 0.2337E-01, 0.1809E-01, 0.1304E-01, 0.8231E-02, 0.3693E-02,
- *-0.6171E-03,-0.4788E-02,-0.8846E-02,-0.1278E-01,-0.1657E-01,
- *-0.2018E-01,-0.2364E-01,-0.2705E-01,-0.3045E-01,-0.3378E-01,
- *-0.3701E-01,-0.4015E-01,-0.4324E-01,-0.4629E-01,-0.4933E-01,
- *-0.5233E-01,-0.5380E-01,-0.5523E-01,-0.5803E-01,-0.6083E-01,
- *-0.6364E-01,-0.6638E-01,-0.6896E-01,-0.7134E-01,-0.7353E-01,
- *-0.7556E-01,-0.7749E-01,-0.7926E-01,-0.8082E-01,-0.8205E-01,
- *-0.8287E-01,-0.8326E-01,-0.8319E-01,-0.8271E-01,-0.8176E-01,
- *-0.8032E-01,-0.7839E-01,-0.7590E-01,-0.7263E-01,-0.6863E-01,
- *-0.6393E-01,-0.5859E-01,-0.5273E-01,-0.4664E-01,-0.4024E-01,
- *-0.3349E-01,-0.2651E-01,-0.1924E-01,-0.1195E-01,-0.5381E-02,
- * 0.1154E-03, 0.4222E-02, 0.6402E-02, 0.6872E-02, 0.6538E-02,
- * 0.5064E-02, 0.1805E-02, 0.9720E-20 /
- DATA ((QHR(i,j),j=1,83),i=13,13)/
- * 0.5713E-21, 0.1640E-02, 0.7646E-02, 0.1635E-01, 0.2638E-01,
- * 0.3671E-01, 0.4640E-01, 0.5457E-01, 0.6050E-01, 0.6385E-01,
- * 0.6477E-01, 0.6359E-01, 0.6079E-01, 0.5688E-01, 0.5218E-01,
- * 0.4696E-01, 0.4140E-01, 0.3567E-01, 0.2990E-01, 0.2421E-01,
- * 0.1867E-01, 0.1328E-01, 0.8065E-02, 0.3014E-02,-0.1891E-02,
- *-0.6651E-02,-0.1122E-01,-0.1560E-01,-0.1985E-01,-0.2400E-01,
- *-0.2805E-01,-0.3205E-01,-0.3599E-01,-0.3980E-01,-0.4353E-01,
- *-0.4721E-01,-0.5087E-01,-0.5451E-01,-0.5812E-01,-0.6167E-01,
- *-0.6515E-01,-0.6685E-01,-0.6855E-01,-0.7192E-01,-0.7525E-01,
- *-0.7848E-01,-0.8160E-01,-0.8460E-01,-0.8744E-01,-0.9016E-01,
- *-0.9273E-01,-0.9511E-01,-0.9719E-01,-0.9889E-01,-0.1002E+00,
- *-0.1012E+00,-0.1019E+00,-0.1022E+00,-0.1019E+00,-0.1010E+00,
- *-0.9950E-01,-0.9723E-01,-0.9427E-01,-0.9069E-01,-0.8647E-01,
- *-0.8165E-01,-0.7613E-01,-0.6981E-01,-0.6258E-01,-0.5483E-01,
- *-0.4683E-01,-0.3863E-01,-0.3081E-01,-0.2360E-01,-0.1695E-01,
- *-0.1129E-01,-0.6603E-02,-0.2679E-02, 0.6384E-04, 0.1208E-02,
- * 0.1158E-02, 0.4679E-03, 0.3459E-20 /
- DATA ((QHR(i,j),j=1,83),i=14,14)/
- *-0.3391E-21, 0.1558E-02, 0.7150E-02, 0.1507E-01, 0.2396E-01,
- * 0.3316E-01, 0.4196E-01, 0.4932E-01, 0.5460E-01, 0.5752E-01,
- * 0.5818E-01, 0.5695E-01, 0.5431E-01, 0.5058E-01, 0.4604E-01,
- * 0.4093E-01, 0.3542E-01, 0.2967E-01, 0.2380E-01, 0.1795E-01,
- * 0.1220E-01, 0.6539E-02, 0.9936E-03,-0.4447E-02,-0.9836E-02,
- *-0.1513E-01,-0.2026E-01,-0.2521E-01,-0.3004E-01,-0.3479E-01,
- *-0.3953E-01,-0.4426E-01,-0.4888E-01,-0.5337E-01,-0.5779E-01,
- *-0.6219E-01,-0.6658E-01,-0.7095E-01,-0.7529E-01,-0.7954E-01,
- *-0.8370E-01,-0.8577E-01,-0.8785E-01,-0.9198E-01,-0.9597E-01,
- *-0.9978E-01,-0.1035E+00,-0.1070E+00,-0.1105E+00,-0.1138E+00,
- *-0.1170E+00,-0.1197E+00,-0.1220E+00,-0.1239E+00,-0.1254E+00,
- *-0.1267E+00,-0.1275E+00,-0.1278E+00,-0.1273E+00,-0.1261E+00,
- *-0.1242E+00,-0.1215E+00,-0.1180E+00,-0.1138E+00,-0.1089E+00,
- *-0.1030E+00,-0.9632E-01,-0.8884E-01,-0.8055E-01,-0.7182E-01,
- *-0.6271E-01,-0.5320E-01,-0.4376E-01,-0.3485E-01,-0.2659E-01,
- *-0.1935E-01,-0.1351E-01,-0.8481E-02,-0.3919E-02,-0.2001E-02,
- *-0.1903E-02,-0.4805E-03,-0.1251E-20 /
- DATA ((QHR(i,j),j=1,83),i=15,15)/
- *-0.1315E-21, 0.1259E-02, 0.5558E-02, 0.1106E-01, 0.1676E-01,
- * 0.2214E-01, 0.2691E-01, 0.3081E-01, 0.3335E-01, 0.3421E-01,
- * 0.3352E-01, 0.3156E-01, 0.2855E-01, 0.2461E-01, 0.1986E-01,
- * 0.1447E-01, 0.8665E-02, 0.2619E-02,-0.3626E-02,-0.1010E-01,
- *-0.1679E-01,-0.2363E-01,-0.3055E-01,-0.3751E-01,-0.4444E-01,
- *-0.5139E-01,-0.5843E-01,-0.6553E-01,-0.7263E-01,-0.7968E-01,
- *-0.8668E-01,-0.9364E-01,-0.1006E+00,-0.1076E+00,-0.1146E+00,
- *-0.1215E+00,-0.1283E+00,-0.1350E+00,-0.1416E+00,-0.1482E+00,
- *-0.1547E+00,-0.1578E+00,-0.1609E+00,-0.1670E+00,-0.1729E+00,
- *-0.1787E+00,-0.1842E+00,-0.1893E+00,-0.1940E+00,-0.1983E+00,
- *-0.2021E+00,-0.2055E+00,-0.2084E+00,-0.2109E+00,-0.2125E+00,
- *-0.2132E+00,-0.2130E+00,-0.2120E+00,-0.2102E+00,-0.2075E+00,
- *-0.2036E+00,-0.1986E+00,-0.1925E+00,-0.1852E+00,-0.1768E+00,
- *-0.1672E+00,-0.1564E+00,-0.1447E+00,-0.1322E+00,-0.1193E+00,
- *-0.1056E+00,-0.9127E-01,-0.7654E-01,-0.6181E-01,-0.4789E-01,
- *-0.3535E-01,-0.2416E-01,-0.1481E-01,-0.7809E-02,-0.2425E-02,
- * 0.7463E-03, 0.6630E-03,-0.2429E-19 /
- DATA ((QHR(i,j),j=1,83),i=16,16)/
- * 0.2669E-21, 0.2490E-03, 0.1557E-02, 0.3470E-02, 0.4990E-02,
- * 0.5817E-02, 0.5650E-02, 0.4433E-02, 0.2410E-02,-0.3422E-03,
- *-0.3735E-02,-0.7634E-02,-0.1195E-01,-0.1662E-01,-0.2170E-01,
- *-0.2725E-01,-0.3320E-01,-0.3944E-01,-0.4594E-01,-0.5273E-01,
- *-0.5979E-01,-0.6710E-01,-0.7461E-01,-0.8231E-01,-0.9016E-01,
- *-0.9814E-01,-0.1063E+00,-0.1145E+00,-0.1230E+00,-0.1314E+00,
- *-0.1400E+00,-0.1487E+00,-0.1574E+00,-0.1662E+00,-0.1749E+00,
- *-0.1837E+00,-0.1925E+00,-0.2012E+00,-0.2099E+00,-0.2185E+00,
- *-0.2270E+00,-0.2311E+00,-0.2352E+00,-0.2433E+00,-0.2512E+00,
- *-0.2588E+00,-0.2660E+00,-0.2728E+00,-0.2792E+00,-0.2851E+00,
- *-0.2903E+00,-0.2950E+00,-0.2989E+00,-0.3021E+00,-0.3043E+00,
- *-0.3055E+00,-0.3056E+00,-0.3046E+00,-0.3023E+00,-0.2987E+00,
- *-0.2936E+00,-0.2870E+00,-0.2790E+00,-0.2692E+00,-0.2577E+00,
- *-0.2446E+00,-0.2300E+00,-0.2139E+00,-0.1965E+00,-0.1777E+00,
- *-0.1578E+00,-0.1373E+00,-0.1168E+00,-0.9640E-01,-0.7634E-01,
- *-0.5701E-01,-0.3961E-01,-0.2516E-01,-0.1338E-01,-0.5261E-02,
- *-0.1734E-02,-0.3817E-03,-0.7847E-20 /
- DATA ((QHR(i,j),j=1,83),i=17,17)/
- * 0.3473E-21, 0.9441E-04, 0.6895E-03, 0.1715E-02, 0.2543E-02,
- * 0.2424E-02, 0.1184E-02,-0.1028E-02,-0.3976E-02,-0.7404E-02,
- *-0.1123E-01,-0.1541E-01,-0.1992E-01,-0.2481E-01,-0.3006E-01,
- *-0.3562E-01,-0.4158E-01,-0.4796E-01,-0.5468E-01,-0.6169E-01,
- *-0.6896E-01,-0.7648E-01,-0.8426E-01,-0.9226E-01,-0.1004E+00,
- *-0.1088E+00,-0.1174E+00,-0.1261E+00,-0.1350E+00,-0.1440E+00,
- *-0.1531E+00,-0.1622E+00,-0.1714E+00,-0.1807E+00,-0.1901E+00,
- *-0.1994E+00,-0.2087E+00,-0.2180E+00,-0.2271E+00,-0.2362E+00,
- *-0.2451E+00,-0.2495E+00,-0.2538E+00,-0.2623E+00,-0.2706E+00,
- *-0.2785E+00,-0.2860E+00,-0.2931E+00,-0.2998E+00,-0.3058E+00,
- *-0.3113E+00,-0.3160E+00,-0.3199E+00,-0.3229E+00,-0.3250E+00,
- *-0.3261E+00,-0.3261E+00,-0.3247E+00,-0.3220E+00,-0.3179E+00,
- *-0.3123E+00,-0.3052E+00,-0.2963E+00,-0.2858E+00,-0.2735E+00,
- *-0.2595E+00,-0.2438E+00,-0.2265E+00,-0.2078E+00,-0.1878E+00,
- *-0.1669E+00,-0.1450E+00,-0.1230E+00,-0.1012E+00,-0.8006E-01,
- *-0.6003E-01,-0.4183E-01,-0.2630E-01,-0.1460E-01,-0.6345E-02,
- *-0.1145E-02, 0.1771E-03, 0.4417E-20 /
- DATA ((QHR(i,j),j=1,83),i=18,18)/
- * 0.2287E-22,-0.7661E-04,-0.1820E-03,-0.3819E-03,-0.1410E-02,
- *-0.3696E-02,-0.7124E-02,-0.1130E-01,-0.1590E-01,-0.2082E-01,
- *-0.2596E-01,-0.3131E-01,-0.3684E-01,-0.4254E-01,-0.4843E-01,
- *-0.5451E-01,-0.6080E-01,-0.6736E-01,-0.7417E-01,-0.8127E-01,
- *-0.8867E-01,-0.9636E-01,-0.1044E+00,-0.1127E+00,-0.1213E+00,
- *-0.1301E+00,-0.1392E+00,-0.1486E+00,-0.1581E+00,-0.1679E+00,
- *-0.1778E+00,-0.1878E+00,-0.1980E+00,-0.2082E+00,-0.2185E+00,
- *-0.2289E+00,-0.2392E+00,-0.2496E+00,-0.2598E+00,-0.2699E+00,
- *-0.2799E+00,-0.2849E+00,-0.2897E+00,-0.2993E+00,-0.3086E+00,
- *-0.3175E+00,-0.3260E+00,-0.3340E+00,-0.3415E+00,-0.3483E+00,
- *-0.3545E+00,-0.3600E+00,-0.3645E+00,-0.3682E+00,-0.3708E+00,
- *-0.3723E+00,-0.3725E+00,-0.3714E+00,-0.3689E+00,-0.3649E+00,
- *-0.3593E+00,-0.3519E+00,-0.3428E+00,-0.3318E+00,-0.3188E+00,
- *-0.3039E+00,-0.2870E+00,-0.2682E+00,-0.2474E+00,-0.2249E+00,
- *-0.2008E+00,-0.1755E+00,-0.1495E+00,-0.1230E+00,-0.9693E-01,
- *-0.7212E-01,-0.4973E-01,-0.3077E-01,-0.1595E-01,-0.6038E-02,
- *-0.1019E-02, 0.1302E-03,-0.4145E-21 /
- DATA ((QHR(i,j),j=1,83),i=19,19)/
- *-0.1316E-21, 0.1287E-04,-0.7324E-04,-0.7375E-03,-0.2397E-02,
- *-0.4972E-02,-0.8190E-02,-0.1191E-01,-0.1606E-01,-0.2061E-01,
- *-0.2556E-01,-0.3088E-01,-0.3658E-01,-0.4264E-01,-0.4903E-01,
- *-0.5574E-01,-0.6275E-01,-0.7004E-01,-0.7761E-01,-0.8543E-01,
- *-0.9352E-01,-0.1018E+00,-0.1104E+00,-0.1192E+00,-0.1283E+00,
- *-0.1376E+00,-0.1471E+00,-0.1569E+00,-0.1668E+00,-0.1769E+00,
- *-0.1872E+00,-0.1976E+00,-0.2082E+00,-0.2188E+00,-0.2294E+00,
- *-0.2401E+00,-0.2508E+00,-0.2614E+00,-0.2719E+00,-0.2823E+00,
- *-0.2925E+00,-0.2975E+00,-0.3025E+00,-0.3122E+00,-0.3216E+00,
- *-0.3305E+00,-0.3391E+00,-0.3472E+00,-0.3546E+00,-0.3615E+00,
- *-0.3677E+00,-0.3730E+00,-0.3776E+00,-0.3812E+00,-0.3838E+00,
- *-0.3854E+00,-0.3857E+00,-0.3849E+00,-0.3826E+00,-0.3790E+00,
- *-0.3739E+00,-0.3673E+00,-0.3589E+00,-0.3489E+00,-0.3371E+00,
- *-0.3234E+00,-0.3078E+00,-0.2903E+00,-0.2709E+00,-0.2495E+00,
- *-0.2262E+00,-0.2013E+00,-0.1747E+00,-0.1470E+00,-0.1187E+00,
- *-0.9077E-01,-0.6426E-01,-0.4063E-01,-0.2163E-01,-0.8394E-02,
- *-0.1355E-02, 0.2122E-03, 0.3172E-21 /
- DATA ((QHR(i,j),j=1,83),i=20,20)/
- * 0.1171E-21,-0.1182E-03,-0.6476E-03,-0.1734E-02,-0.3588E-02,
- *-0.6341E-02,-0.9982E-02,-0.1441E-01,-0.1953E-01,-0.2524E-01,
- *-0.3147E-01,-0.3817E-01,-0.4530E-01,-0.5285E-01,-0.6078E-01,
- *-0.6908E-01,-0.7774E-01,-0.8673E-01,-0.9606E-01,-0.1057E+00,
- *-0.1156E+00,-0.1258E+00,-0.1363E+00,-0.1470E+00,-0.1579E+00,
- *-0.1690E+00,-0.1802E+00,-0.1915E+00,-0.2029E+00,-0.2144E+00,
- *-0.2258E+00,-0.2372E+00,-0.2485E+00,-0.2597E+00,-0.2708E+00,
- *-0.2816E+00,-0.2922E+00,-0.3025E+00,-0.3125E+00,-0.3220E+00,
- *-0.3312E+00,-0.3356E+00,-0.3398E+00,-0.3479E+00,-0.3555E+00,
- *-0.3624E+00,-0.3687E+00,-0.3742E+00,-0.3790E+00,-0.3830E+00,
- *-0.3861E+00,-0.3884E+00,-0.3897E+00,-0.3900E+00,-0.3893E+00,
- *-0.3875E+00,-0.3846E+00,-0.3806E+00,-0.3755E+00,-0.3691E+00,
- *-0.3615E+00,-0.3526E+00,-0.3424E+00,-0.3308E+00,-0.3178E+00,
- *-0.3034E+00,-0.2875E+00,-0.2702E+00,-0.2514E+00,-0.2310E+00,
- *-0.2093E+00,-0.1864E+00,-0.1624E+00,-0.1377E+00,-0.1128E+00,
- *-0.8848E-01,-0.6550E-01,-0.4484E-01,-0.2749E-01,-0.1423E-01,
- *-0.5446E-02,-0.9621E-03, 0.1176E-19 /
-c************** MIE (phase fun uh) ***************
- DATA ((UHR(i,j),j=1,83),i= 1, 1)/
- *-0.3494E+00,-0.3431E+00,-0.3173E+00,-0.2772E+00,-0.2303E+00,
- *-0.1834E+00,-0.1408E+00,-0.1042E+00,-0.7359E-01,-0.4855E-01,
- *-0.2835E-01,-0.1232E-01, 0.1890E-03, 0.9855E-02, 0.1727E-01,
- * 0.2297E-01, 0.2739E-01, 0.3090E-01, 0.3380E-01, 0.3630E-01,
- * 0.3857E-01, 0.4074E-01, 0.4290E-01, 0.4513E-01, 0.4753E-01,
- * 0.5015E-01, 0.5307E-01, 0.5632E-01, 0.5992E-01, 0.6392E-01,
- * 0.6836E-01, 0.7330E-01, 0.7882E-01, 0.8499E-01, 0.9188E-01,
- * 0.9958E-01, 0.1082E+00, 0.1177E+00, 0.1283E+00, 0.1402E+00,
- * 0.1535E+00, 0.1607E+00, 0.1683E+00, 0.1850E+00, 0.2036E+00,
- * 0.2244E+00, 0.2478E+00, 0.2741E+00, 0.3037E+00, 0.3371E+00,
- * 0.3747E+00, 0.4173E+00, 0.4654E+00, 0.5200E+00, 0.5820E+00,
- * 0.6525E+00, 0.7328E+00, 0.8244E+00, 0.9291E+00, 0.1049E+01,
- * 0.1186E+01, 0.1344E+01, 0.1526E+01, 0.1736E+01, 0.1977E+01,
- * 0.2257E+01, 0.2580E+01, 0.2956E+01, 0.3392E+01, 0.3901E+01,
- * 0.4494E+01, 0.5188E+01, 0.6001E+01, 0.6955E+01, 0.8078E+01,
- * 0.9399E+01, 0.1095E+02, 0.1276E+02, 0.1486E+02, 0.1727E+02,
- * 0.2006E+02, 0.2372E+02, 0.2698E+02 /
- DATA ((UHR(i,j),j=1,83),i= 2, 2)/
- *-0.3524E+00,-0.3463E+00,-0.3220E+00,-0.2842E+00,-0.2399E+00,
- *-0.1954E+00,-0.1544E+00,-0.1187E+00,-0.8839E-01,-0.6310E-01,
- *-0.4229E-01,-0.2541E-01,-0.1182E-01,-0.9428E-03, 0.7715E-02,
- * 0.1460E-01, 0.2010E-01, 0.2458E-01, 0.2833E-01, 0.3160E-01,
- * 0.3459E-01, 0.3743E-01, 0.4021E-01, 0.4304E-01, 0.4599E-01,
- * 0.4911E-01, 0.5246E-01, 0.5609E-01, 0.6006E-01, 0.6444E-01,
- * 0.6928E-01, 0.7463E-01, 0.8056E-01, 0.8714E-01, 0.9447E-01,
- * 0.1026E+00, 0.1117E+00, 0.1218E+00, 0.1330E+00, 0.1456E+00,
- * 0.1596E+00, 0.1672E+00, 0.1752E+00, 0.1927E+00, 0.2123E+00,
- * 0.2343E+00, 0.2590E+00, 0.2868E+00, 0.3180E+00, 0.3533E+00,
- * 0.3930E+00, 0.4378E+00, 0.4886E+00, 0.5461E+00, 0.6114E+00,
- * 0.6857E+00, 0.7702E+00, 0.8665E+00, 0.9763E+00, 0.1102E+01,
- * 0.1245E+01, 0.1410E+01, 0.1598E+01, 0.1814E+01, 0.2063E+01,
- * 0.2348E+01, 0.2677E+01, 0.3055E+01, 0.3491E+01, 0.3992E+01,
- * 0.4570E+01, 0.5236E+01, 0.6004E+01, 0.6888E+01, 0.7905E+01,
- * 0.9071E+01, 0.1040E+02, 0.1191E+02, 0.1360E+02, 0.1549E+02,
- * 0.1763E+02, 0.2043E+02, 0.2269E+02 /
- DATA ((UHR(i,j),j=1,83),i= 3, 3)/
- *-0.3543E+00,-0.3483E+00,-0.3242E+00,-0.2868E+00,-0.2430E+00,
- *-0.1988E+00,-0.1580E+00,-0.1225E+00,-0.9214E-01,-0.6671E-01,
- *-0.4569E-01,-0.2853E-01,-0.1465E-01,-0.3506E-02, 0.5396E-02,
- * 0.1252E-01, 0.1826E-01, 0.2297E-01, 0.2693E-01, 0.3039E-01,
- * 0.3353E-01, 0.3652E-01, 0.3945E-01, 0.4244E-01, 0.4552E-01,
- * 0.4876E-01, 0.5219E-01, 0.5589E-01, 0.5993E-01, 0.6441E-01,
- * 0.6937E-01, 0.7486E-01, 0.8092E-01, 0.8762E-01, 0.9504E-01,
- * 0.1033E+00, 0.1124E+00, 0.1227E+00, 0.1341E+00, 0.1468E+00,
- * 0.1610E+00, 0.1687E+00, 0.1768E+00, 0.1946E+00, 0.2144E+00,
- * 0.2367E+00, 0.2617E+00, 0.2898E+00, 0.3214E+00, 0.3571E+00,
- * 0.3973E+00, 0.4427E+00, 0.4940E+00, 0.5522E+00, 0.6183E+00,
- * 0.6933E+00, 0.7787E+00, 0.8760E+00, 0.9869E+00, 0.1114E+01,
- * 0.1258E+01, 0.1424E+01, 0.1614E+01, 0.1831E+01, 0.2081E+01,
- * 0.2367E+01, 0.2696E+01, 0.3074E+01, 0.3509E+01, 0.4008E+01,
- * 0.4581E+01, 0.5240E+01, 0.5997E+01, 0.6864E+01, 0.7858E+01,
- * 0.8991E+01, 0.1028E+02, 0.1172E+02, 0.1334E+02, 0.1512E+02,
- * 0.1715E+02, 0.1978E+02, 0.2187E+02 /
- DATA ((UHR(i,j),j=1,83),i= 4, 4)/
- *-0.3623E+00,-0.3563E+00,-0.3319E+00,-0.2945E+00,-0.2511E+00,
- *-0.2074E+00,-0.1670E+00,-0.1316E+00,-0.1013E+00,-0.7564E-01,
- *-0.5424E-01,-0.3660E-01,-0.2215E-01,-0.1035E-01,-0.7512E-03,
- * 0.7037E-02, 0.1339E-01, 0.1864E-01, 0.2309E-01, 0.2701E-01,
- * 0.3060E-01, 0.3398E-01, 0.3728E-01, 0.4060E-01, 0.4399E-01,
- * 0.4752E-01, 0.5126E-01, 0.5525E-01, 0.5956E-01, 0.6429E-01,
- * 0.6950E-01, 0.7522E-01, 0.8152E-01, 0.8848E-01, 0.9621E-01,
- * 0.1048E+00, 0.1143E+00, 0.1249E+00, 0.1367E+00, 0.1498E+00,
- * 0.1645E+00, 0.1725E+00, 0.1809E+00, 0.1991E+00, 0.2196E+00,
- * 0.2426E+00, 0.2684E+00, 0.2974E+00, 0.3300E+00, 0.3668E+00,
- * 0.4082E+00, 0.4549E+00, 0.5077E+00, 0.5675E+00, 0.6353E+00,
- * 0.7124E+00, 0.8000E+00, 0.8996E+00, 0.1013E+01, 0.1142E+01,
- * 0.1290E+01, 0.1458E+01, 0.1650E+01, 0.1870E+01, 0.2122E+01,
- * 0.2410E+01, 0.2740E+01, 0.3116E+01, 0.3547E+01, 0.4039E+01,
- * 0.4600E+01, 0.5240E+01, 0.5969E+01, 0.6796E+01, 0.7733E+01,
- * 0.8788E+01, 0.9970E+01, 0.1128E+02, 0.1272E+02, 0.1429E+02,
- * 0.1607E+02, 0.1836E+02, 0.2008E+02 /
- DATA ((UHR(i,j),j=1,83),i= 5, 5)/
- *-0.3549E+00,-0.3492E+00,-0.3263E+00,-0.2913E+00,-0.2506E+00,
- *-0.2094E+00,-0.1712E+00,-0.1373E+00,-0.1079E+00,-0.8269E-01,
- *-0.6136E-01,-0.4350E-01,-0.2875E-01,-0.1668E-01,-0.6828E-02,
- * 0.1283E-02, 0.8046E-02, 0.1379E-01, 0.1875E-01, 0.2312E-01,
- * 0.2708E-01, 0.3080E-01, 0.3440E-01, 0.3798E-01, 0.4162E-01,
- * 0.4539E-01, 0.4934E-01, 0.5356E-01, 0.5811E-01, 0.6307E-01,
- * 0.6851E-01, 0.7449E-01, 0.8109E-01, 0.8833E-01, 0.9631E-01,
- * 0.1051E+00, 0.1149E+00, 0.1258E+00, 0.1380E+00, 0.1515E+00,
- * 0.1665E+00, 0.1747E+00, 0.1833E+00, 0.2021E+00, 0.2232E+00,
- * 0.2467E+00, 0.2731E+00, 0.3028E+00, 0.3362E+00, 0.3737E+00,
- * 0.4161E+00, 0.4640E+00, 0.5180E+00, 0.5792E+00, 0.6484E+00,
- * 0.7269E+00, 0.8160E+00, 0.9173E+00, 0.1033E+01, 0.1164E+01,
- * 0.1314E+01, 0.1484E+01, 0.1678E+01, 0.1900E+01, 0.2154E+01,
- * 0.2442E+01, 0.2772E+01, 0.3147E+01, 0.3575E+01, 0.4061E+01,
- * 0.4614E+01, 0.5240E+01, 0.5948E+01, 0.6747E+01, 0.7644E+01,
- * 0.8645E+01, 0.9754E+01, 0.1097E+02, 0.1229E+02, 0.1373E+02,
- * 0.1535E+02, 0.1742E+02, 0.1891E+02 /
- DATA ((UHR(i,j),j=1,83),i= 6, 6)/
- *-0.3501E+00,-0.3445E+00,-0.3222E+00,-0.2883E+00,-0.2490E+00,
- *-0.2093E+00,-0.1723E+00,-0.1395E+00,-0.1110E+00,-0.8637E-01,
- *-0.6546E-01,-0.4792E-01,-0.3327E-01,-0.2107E-01,-0.1092E-01,
- *-0.2495E-02, 0.4536E-02, 0.1048E-01, 0.1563E-01, 0.2023E-01,
- * 0.2445E-01, 0.2841E-01, 0.3223E-01, 0.3598E-01, 0.3978E-01,
- * 0.4373E-01, 0.4791E-01, 0.5235E-01, 0.5711E-01, 0.6224E-01,
- * 0.6780E-01, 0.7387E-01, 0.8054E-01, 0.8792E-01, 0.9610E-01,
- * 0.1052E+00, 0.1152E+00, 0.1263E+00, 0.1386E+00, 0.1524E+00,
- * 0.1677E+00, 0.1760E+00, 0.1848E+00, 0.2039E+00, 0.2253E+00,
- * 0.2493E+00, 0.2761E+00, 0.3063E+00, 0.3402E+00, 0.3784E+00,
- * 0.4213E+00, 0.4698E+00, 0.5245E+00, 0.5865E+00, 0.6567E+00,
- * 0.7362E+00, 0.8264E+00, 0.9289E+00, 0.1045E+01, 0.1178E+01,
- * 0.1328E+01, 0.1500E+01, 0.1696E+01, 0.1919E+01, 0.2173E+01,
- * 0.2462E+01, 0.2791E+01, 0.3166E+01, 0.3591E+01, 0.4074E+01,
- * 0.4621E+01, 0.5238E+01, 0.5934E+01, 0.6715E+01, 0.7588E+01,
- * 0.8556E+01, 0.9623E+01, 0.1079E+02, 0.1205E+02, 0.1341E+02,
- * 0.1495E+02, 0.1689E+02, 0.1825E+02 /
- DATA ((UHR(i,j),j=1,83),i= 7, 7)/
- *-0.3444E+00,-0.3391E+00,-0.3180E+00,-0.2860E+00,-0.2488E+00,
- *-0.2111E+00,-0.1758E+00,-0.1442E+00,-0.1165E+00,-0.9248E-01,
- *-0.7187E-01,-0.5442E-01,-0.3969E-01,-0.2726E-01,-0.1682E-01,
- *-0.8060E-02,-0.6755E-03, 0.5616E-02, 0.1109E-01, 0.1600E-01,
- * 0.2054E-01, 0.2481E-01, 0.2894E-01, 0.3302E-01, 0.3715E-01,
- * 0.4138E-01, 0.4580E-01, 0.5046E-01, 0.5543E-01, 0.6080E-01,
- * 0.6664E-01, 0.7299E-01, 0.7993E-01, 0.8757E-01, 0.9601E-01,
- * 0.1053E+00, 0.1157E+00, 0.1271E+00, 0.1398E+00, 0.1539E+00,
- * 0.1697E+00, 0.1782E+00, 0.1872E+00, 0.2068E+00, 0.2287E+00,
- * 0.2532E+00, 0.2807E+00, 0.3116E+00, 0.3463E+00, 0.3853E+00,
- * 0.4292E+00, 0.4786E+00, 0.5344E+00, 0.5976E+00, 0.6690E+00,
- * 0.7500E+00, 0.8417E+00, 0.9457E+00, 0.1064E+01, 0.1198E+01,
- * 0.1350E+01, 0.1523E+01, 0.1720E+01, 0.1944E+01, 0.2199E+01,
- * 0.2488E+01, 0.2817E+01, 0.3189E+01, 0.3611E+01, 0.4087E+01,
- * 0.4624E+01, 0.5228E+01, 0.5905E+01, 0.6660E+01, 0.7497E+01,
- * 0.8420E+01, 0.9427E+01, 0.1052E+02, 0.1169E+02, 0.1294E+02,
- * 0.1436E+02, 0.1613E+02, 0.1732E+02 /
- DATA ((UHR(i,j),j=1,83),i= 8, 8)/
- *-0.3445E+00,-0.3392E+00,-0.3184E+00,-0.2873E+00,-0.2518E+00,
- *-0.2159E+00,-0.1822E+00,-0.1519E+00,-0.1249E+00,-0.1012E+00,
- *-0.8062E-01,-0.6291E-01,-0.4783E-01,-0.3512E-01,-0.2442E-01,
- *-0.1535E-01,-0.7550E-02,-0.7200E-03, 0.5353E-02, 0.1080E-01,
- * 0.1576E-01, 0.2041E-01, 0.2486E-01, 0.2924E-01, 0.3364E-01,
- * 0.3816E-01, 0.4288E-01, 0.4787E-01, 0.5320E-01, 0.5889E-01,
- * 0.6502E-01, 0.7168E-01, 0.7899E-01, 0.8699E-01, 0.9579E-01,
- * 0.1055E+00, 0.1163E+00, 0.1281E+00, 0.1413E+00, 0.1559E+00,
- * 0.1722E+00, 0.1810E+00, 0.1904E+00, 0.2106E+00, 0.2333E+00,
- * 0.2586E+00, 0.2869E+00, 0.3186E+00, 0.3542E+00, 0.3943E+00,
- * 0.4393E+00, 0.4902E+00, 0.5475E+00, 0.6121E+00, 0.6851E+00,
- * 0.7675E+00, 0.8608E+00, 0.9665E+00, 0.1086E+01, 0.1222E+01,
- * 0.1376E+01, 0.1551E+01, 0.1749E+01, 0.1974E+01, 0.2229E+01,
- * 0.2517E+01, 0.2843E+01, 0.3212E+01, 0.3627E+01, 0.4095E+01,
- * 0.4619E+01, 0.5204E+01, 0.5856E+01, 0.6577E+01, 0.7371E+01,
- * 0.8238E+01, 0.9177E+01, 0.1018E+02, 0.1125E+02, 0.1240E+02,
- * 0.1370E+02, 0.1529E+02, 0.1632E+02 /
- DATA ((UHR(i,j),j=1,83),i= 9, 9)/
- *-0.3352E+00,-0.3305E+00,-0.3116E+00,-0.2833E+00,-0.2507E+00,
- *-0.2175E+00,-0.1862E+00,-0.1577E+00,-0.1321E+00,-0.1093E+00,
- *-0.8922E-01,-0.7179E-01,-0.5683E-01,-0.4406E-01,-0.3314E-01,
- *-0.2373E-01,-0.1554E-01,-0.8318E-02,-0.1873E-02, 0.3948E-02,
- * 0.9322E-02, 0.1440E-01, 0.1931E-01, 0.2414E-01, 0.2899E-01,
- * 0.3392E-01, 0.3900E-01, 0.4432E-01, 0.4995E-01, 0.5599E-01,
- * 0.6253E-01, 0.6964E-01, 0.7738E-01, 0.8581E-01, 0.9503E-01,
- * 0.1051E+00, 0.1163E+00, 0.1287E+00, 0.1424E+00, 0.1577E+00,
- * 0.1746E+00, 0.1837E+00, 0.1933E+00, 0.2143E+00, 0.2377E+00,
- * 0.2638E+00, 0.2931E+00, 0.3258E+00, 0.3626E+00, 0.4038E+00,
- * 0.4501E+00, 0.5023E+00, 0.5610E+00, 0.6271E+00, 0.7017E+00,
- * 0.7859E+00, 0.8810E+00, 0.9885E+00, 0.1110E+01, 0.1248E+01,
- * 0.1404E+01, 0.1580E+01, 0.1779E+01, 0.2004E+01, 0.2259E+01,
- * 0.2546E+01, 0.2870E+01, 0.3234E+01, 0.3643E+01, 0.4100E+01,
- * 0.4610E+01, 0.5177E+01, 0.5803E+01, 0.6492E+01, 0.7244E+01,
- * 0.8058E+01, 0.8932E+01, 0.9860E+01, 0.1084E+02, 0.1188E+02,
- * 0.1306E+02, 0.1448E+02, 0.1535E+02 /
- DATA ((UHR(i,j),j=1,83),i=10,10)/
- *-0.3251E+00,-0.3208E+00,-0.3035E+00,-0.2777E+00,-0.2480E+00,
- *-0.2176E+00,-0.1886E+00,-0.1621E+00,-0.1382E+00,-0.1167E+00,
- *-0.9761E-01,-0.8091E-01,-0.6630E-01,-0.5355E-01,-0.4243E-01,
- *-0.3274E-01,-0.2422E-01,-0.1669E-01,-0.9947E-02,-0.3766E-02,
- * 0.2012E-02, 0.7505E-02, 0.1284E-01, 0.1812E-01, 0.2341E-01,
- * 0.2877E-01, 0.3426E-01, 0.3997E-01, 0.4599E-01, 0.5244E-01,
- * 0.5940E-01, 0.6693E-01, 0.7507E-01, 0.8392E-01, 0.9360E-01,
- * 0.1042E+00, 0.1159E+00, 0.1289E+00, 0.1432E+00, 0.1591E+00,
- * 0.1766E+00, 0.1861E+00, 0.1961E+00, 0.2179E+00, 0.2421E+00,
- * 0.2691E+00, 0.2994E+00, 0.3332E+00, 0.3711E+00, 0.4136E+00,
- * 0.4612E+00, 0.5147E+00, 0.5748E+00, 0.6424E+00, 0.7186E+00,
- * 0.8045E+00, 0.9014E+00, 0.1011E+01, 0.1134E+01, 0.1273E+01,
- * 0.1430E+01, 0.1607E+01, 0.1807E+01, 0.2033E+01, 0.2287E+01,
- * 0.2572E+01, 0.2893E+01, 0.3252E+01, 0.3653E+01, 0.4100E+01,
- * 0.4596E+01, 0.5143E+01, 0.5745E+01, 0.6403E+01, 0.7115E+01,
- * 0.7881E+01, 0.8695E+01, 0.9554E+01, 0.1046E+02, 0.1142E+02,
- * 0.1249E+02, 0.1378E+02, 0.1452E+02 /
- DATA ((UHR(i,j),j=1,83),i=11,11)/
- *-0.3184E+00,-0.3143E+00,-0.2983E+00,-0.2743E+00,-0.2467E+00,
- *-0.2186E+00,-0.1917E+00,-0.1669E+00,-0.1442E+00,-0.1236E+00,
- *-0.1050E+00,-0.8855E-01,-0.7408E-01,-0.6144E-01,-0.5037E-01,
- *-0.4060E-01,-0.3190E-01,-0.2406E-01,-0.1693E-01,-0.1038E-01,
- *-0.4264E-02, 0.1565E-02, 0.7208E-02, 0.1278E-01, 0.1836E-01,
- * 0.2402E-01, 0.2983E-01, 0.3589E-01, 0.4227E-01, 0.4906E-01,
- * 0.5635E-01, 0.6423E-01, 0.7277E-01, 0.8204E-01, 0.9214E-01,
- * 0.1032E+00, 0.1153E+00, 0.1287E+00, 0.1436E+00, 0.1600E+00,
- * 0.1782E+00, 0.1880E+00, 0.1983E+00, 0.2207E+00, 0.2457E+00,
- * 0.2735E+00, 0.3046E+00, 0.3393E+00, 0.3781E+00, 0.4216E+00,
- * 0.4703E+00, 0.5250E+00, 0.5864E+00, 0.6552E+00, 0.7327E+00,
- * 0.8199E+00, 0.9180E+00, 0.1028E+01, 0.1153E+01, 0.1293E+01,
- * 0.1451E+01, 0.1629E+01, 0.1829E+01, 0.2054E+01, 0.2307E+01,
- * 0.2590E+01, 0.2908E+01, 0.3262E+01, 0.3656E+01, 0.4094E+01,
- * 0.4578E+01, 0.5109E+01, 0.5691E+01, 0.6323E+01, 0.7004E+01,
- * 0.7732E+01, 0.8503E+01, 0.9312E+01, 0.1016E+02, 0.1106E+02,
- * 0.1207E+02, 0.1326E+02, 0.1392E+02 /
- DATA ((UHR(i,j),j=1,83),i=12,12)/
- *-0.3186E+00,-0.3144E+00,-0.2981E+00,-0.2741E+00,-0.2470E+00,
- *-0.2197E+00,-0.1936E+00,-0.1696E+00,-0.1476E+00,-0.1275E+00,
- *-0.1095E+00,-0.9341E-01,-0.7916E-01,-0.6654E-01,-0.5536E-01,
- *-0.4542E-01,-0.3658E-01,-0.2863E-01,-0.2137E-01,-0.1463E-01,
- *-0.8288E-02,-0.2231E-02, 0.3630E-02, 0.9366E-02, 0.1510E-01,
- * 0.2095E-01, 0.2701E-01, 0.3334E-01, 0.4000E-01, 0.4704E-01,
- * 0.5452E-01, 0.6255E-01, 0.7126E-01, 0.8076E-01, 0.9113E-01,
- * 0.1025E+00, 0.1150E+00, 0.1288E+00, 0.1439E+00, 0.1606E+00,
- * 0.1792E+00, 0.1892E+00, 0.1998E+00, 0.2227E+00, 0.2481E+00,
- * 0.2765E+00, 0.3081E+00, 0.3433E+00, 0.3827E+00, 0.4268E+00,
- * 0.4762E+00, 0.5315E+00, 0.5936E+00, 0.6634E+00, 0.7417E+00,
- * 0.8296E+00, 0.9285E+00, 0.1040E+01, 0.1165E+01, 0.1305E+01,
- * 0.1464E+01, 0.1642E+01, 0.1842E+01, 0.2067E+01, 0.2318E+01,
- * 0.2600E+01, 0.2915E+01, 0.3266E+01, 0.3656E+01, 0.4088E+01,
- * 0.4563E+01, 0.5085E+01, 0.5654E+01, 0.6270E+01, 0.6932E+01,
- * 0.7637E+01, 0.8381E+01, 0.9161E+01, 0.9979E+01, 0.1085E+02,
- * 0.1183E+02, 0.1296E+02, 0.1358E+02 /
- DATA ((UHR(i,j),j=1,83),i=13,13)/
- *-0.3108E+00,-0.3072E+00,-0.2930E+00,-0.2720E+00,-0.2480E+00,
- *-0.2234E+00,-0.2000E+00,-0.1781E+00,-0.1578E+00,-0.1390E+00,
- *-0.1218E+00,-0.1062E+00,-0.9233E-01,-0.7991E-01,-0.6879E-01,
- *-0.5878E-01,-0.4968E-01,-0.4133E-01,-0.3361E-01,-0.2642E-01,
- *-0.1962E-01,-0.1307E-01,-0.6688E-02,-0.3697E-03, 0.5976E-02,
- * 0.1241E-01, 0.1899E-01, 0.2584E-01, 0.3303E-01, 0.4065E-01,
- * 0.4879E-01, 0.5756E-01, 0.6701E-01, 0.7723E-01, 0.8834E-01,
- * 0.1004E+00, 0.1137E+00, 0.1283E+00, 0.1444E+00, 0.1622E+00,
- * 0.1817E+00, 0.1923E+00, 0.2034E+00, 0.2274E+00, 0.2541E+00,
- * 0.2838E+00, 0.3168E+00, 0.3536E+00, 0.3946E+00, 0.4403E+00,
- * 0.4914E+00, 0.5487E+00, 0.6127E+00, 0.6842E+00, 0.7644E+00,
- * 0.8543E+00, 0.9550E+00, 0.1068E+01, 0.1195E+01, 0.1337E+01,
- * 0.1496E+01, 0.1674E+01, 0.1873E+01, 0.2096E+01, 0.2345E+01,
- * 0.2622E+01, 0.2931E+01, 0.3272E+01, 0.3649E+01, 0.4065E+01,
- * 0.4520E+01, 0.5015E+01, 0.5552E+01, 0.6129E+01, 0.6744E+01,
- * 0.7395E+01, 0.8078E+01, 0.8789E+01, 0.9531E+01, 0.1032E+02,
- * 0.1120E+02, 0.1220E+02, 0.1271E+02 /
- DATA ((UHR(i,j),j=1,83),i=14,14)/
- *-0.3172E+00,-0.3136E+00,-0.2996E+00,-0.2795E+00,-0.2570E+00,
- *-0.2344E+00,-0.2128E+00,-0.1927E+00,-0.1739E+00,-0.1563E+00,
- *-0.1401E+00,-0.1252E+00,-0.1117E+00,-0.9936E-01,-0.8813E-01,
- *-0.7783E-01,-0.6833E-01,-0.5951E-01,-0.5130E-01,-0.4354E-01,
- *-0.3608E-01,-0.2884E-01,-0.2171E-01,-0.1462E-01,-0.7470E-02,
- *-0.2342E-03, 0.7158E-02, 0.1482E-01, 0.2285E-01, 0.3135E-01,
- * 0.4045E-01, 0.5020E-01, 0.6063E-01, 0.7189E-01, 0.8408E-01,
- * 0.9732E-01, 0.1118E+00, 0.1277E+00, 0.1452E+00, 0.1643E+00,
- * 0.1854E+00, 0.1968E+00, 0.2087E+00, 0.2344E+00, 0.2629E+00,
- * 0.2945E+00, 0.3295E+00, 0.3684E+00, 0.4116E+00, 0.4596E+00,
- * 0.5131E+00, 0.5728E+00, 0.6391E+00, 0.7130E+00, 0.7955E+00,
- * 0.8877E+00, 0.9905E+00, 0.1105E+01, 0.1233E+01, 0.1376E+01,
- * 0.1535E+01, 0.1712E+01, 0.1909E+01, 0.2128E+01, 0.2371E+01,
- * 0.2640E+01, 0.2938E+01, 0.3264E+01, 0.3623E+01, 0.4014E+01,
- * 0.4439E+01, 0.4898E+01, 0.5391E+01, 0.5916E+01, 0.6471E+01,
- * 0.7054E+01, 0.7660E+01, 0.8289E+01, 0.8945E+01, 0.9644E+01,
- * 0.1042E+02, 0.1126E+02, 0.1165E+02 /
- DATA ((UHR(i,j),j=1,83),i=15,15)/
- *-0.3355E+00,-0.3325E+00,-0.3208E+00,-0.3041E+00,-0.2862E+00,
- *-0.2690E+00,-0.2532E+00,-0.2386E+00,-0.2248E+00,-0.2116E+00,
- *-0.1991E+00,-0.1873E+00,-0.1761E+00,-0.1653E+00,-0.1551E+00,
- *-0.1452E+00,-0.1356E+00,-0.1263E+00,-0.1172E+00,-0.1082E+00,
- *-0.9927E-01,-0.9033E-01,-0.8133E-01,-0.7222E-01,-0.6290E-01,
- *-0.5327E-01,-0.4328E-01,-0.3285E-01,-0.2188E-01,-0.1031E-01,
- * 0.1921E-02, 0.1493E-01, 0.2884E-01, 0.4377E-01, 0.5984E-01,
- * 0.7724E-01, 0.9610E-01, 0.1165E+00, 0.1386E+00, 0.1627E+00,
- * 0.1890E+00, 0.2030E+00, 0.2177E+00, 0.2491E+00, 0.2835E+00,
- * 0.3211E+00, 0.3623E+00, 0.4076E+00, 0.4572E+00, 0.5118E+00,
- * 0.5717E+00, 0.6376E+00, 0.7102E+00, 0.7899E+00, 0.8775E+00,
- * 0.9738E+00, 0.1080E+01, 0.1196E+01, 0.1324E+01, 0.1464E+01,
- * 0.1618E+01, 0.1786E+01, 0.1971E+01, 0.2172E+01, 0.2391E+01,
- * 0.2629E+01, 0.2887E+01, 0.3165E+01, 0.3465E+01, 0.3787E+01,
- * 0.4129E+01, 0.4493E+01, 0.4876E+01, 0.5278E+01, 0.5699E+01,
- * 0.6137E+01, 0.6593E+01, 0.7071E+01, 0.7579E+01, 0.8125E+01,
- * 0.8710E+01, 0.9260E+01, 0.9472E+01 /
- DATA ((UHR(i,j),j=1,83),i=16,16)/
- *-0.2986E+00,-0.2969E+00,-0.2903E+00,-0.2811E+00,-0.2717E+00,
- *-0.2631E+00,-0.2554E+00,-0.2484E+00,-0.2417E+00,-0.2351E+00,
- *-0.2286E+00,-0.2220E+00,-0.2154E+00,-0.2086E+00,-0.2016E+00,
- *-0.1945E+00,-0.1874E+00,-0.1801E+00,-0.1726E+00,-0.1650E+00,
- *-0.1572E+00,-0.1491E+00,-0.1408E+00,-0.1322E+00,-0.1231E+00,
- *-0.1137E+00,-0.1038E+00,-0.9336E-01,-0.8228E-01,-0.7050E-01,
- *-0.5794E-01,-0.4453E-01,-0.3018E-01,-0.1472E-01, 0.1974E-02,
- * 0.1998E-01, 0.3942E-01, 0.6046E-01, 0.8329E-01, 0.1081E+00,
- * 0.1351E+00, 0.1495E+00, 0.1645E+00, 0.1965E+00, 0.2314E+00,
- * 0.2696E+00, 0.3113E+00, 0.3569E+00, 0.4069E+00, 0.4615E+00,
- * 0.5214E+00, 0.5872E+00, 0.6594E+00, 0.7386E+00, 0.8256E+00,
- * 0.9211E+00, 0.1026E+01, 0.1141E+01, 0.1268E+01, 0.1407E+01,
- * 0.1561E+01, 0.1729E+01, 0.1913E+01, 0.2115E+01, 0.2337E+01,
- * 0.2580E+01, 0.2845E+01, 0.3134E+01, 0.3449E+01, 0.3791E+01,
- * 0.4161E+01, 0.4561E+01, 0.4991E+01, 0.5453E+01, 0.5949E+01,
- * 0.6480E+01, 0.7049E+01, 0.7661E+01, 0.8324E+01, 0.9038E+01,
- * 0.9780E+01, 0.1043E+02, 0.1066E+02 /
- DATA ((UHR(i,j),j=1,83),i=17,17)/
- *-0.3040E+00,-0.3026E+00,-0.2970E+00,-0.2890E+00,-0.2804E+00,
- *-0.2723E+00,-0.2650E+00,-0.2584E+00,-0.2524E+00,-0.2467E+00,
- *-0.2410E+00,-0.2351E+00,-0.2291E+00,-0.2229E+00,-0.2165E+00,
- *-0.2098E+00,-0.2029E+00,-0.1959E+00,-0.1887E+00,-0.1813E+00,
- *-0.1736E+00,-0.1656E+00,-0.1573E+00,-0.1486E+00,-0.1396E+00,
- *-0.1300E+00,-0.1199E+00,-0.1093E+00,-0.9800E-01,-0.8599E-01,
- *-0.7316E-01,-0.5941E-01,-0.4468E-01,-0.2888E-01,-0.1189E-01,
- * 0.6459E-02, 0.2630E-01, 0.4776E-01, 0.7101E-01, 0.9619E-01,
- * 0.1235E+00, 0.1381E+00, 0.1532E+00, 0.1856E+00, 0.2209E+00,
- * 0.2593E+00, 0.3012E+00, 0.3470E+00, 0.3969E+00, 0.4516E+00,
- * 0.5115E+00, 0.5770E+00, 0.6487E+00, 0.7273E+00, 0.8135E+00,
- * 0.9082E+00, 0.1012E+01, 0.1126E+01, 0.1251E+01, 0.1388E+01,
- * 0.1539E+01, 0.1705E+01, 0.1887E+01, 0.2086E+01, 0.2305E+01,
- * 0.2545E+01, 0.2808E+01, 0.3096E+01, 0.3411E+01, 0.3754E+01,
- * 0.4127E+01, 0.4534E+01, 0.4975E+01, 0.5452E+01, 0.5968E+01,
- * 0.6526E+01, 0.7131E+01, 0.7787E+01, 0.8497E+01, 0.9256E+01,
- * 0.1003E+02, 0.1069E+02, 0.1091E+02 /
- DATA ((UHR(i,j),j=1,83),i=18,18)/
- *-0.3020E+00,-0.3010E+00,-0.2972E+00,-0.2919E+00,-0.2865E+00,
- *-0.2817E+00,-0.2774E+00,-0.2735E+00,-0.2698E+00,-0.2660E+00,
- *-0.2621E+00,-0.2579E+00,-0.2534E+00,-0.2488E+00,-0.2438E+00,
- *-0.2386E+00,-0.2331E+00,-0.2273E+00,-0.2212E+00,-0.2148E+00,
- *-0.2081E+00,-0.2010E+00,-0.1934E+00,-0.1855E+00,-0.1770E+00,
- *-0.1681E+00,-0.1586E+00,-0.1484E+00,-0.1376E+00,-0.1260E+00,
- *-0.1137E+00,-0.1004E+00,-0.8612E-01,-0.7079E-01,-0.5430E-01,
- *-0.3653E-01,-0.1736E-01, 0.3350E-02, 0.2573E-01, 0.4993E-01,
- * 0.7616E-01, 0.9008E-01, 0.1046E+00, 0.1354E+00, 0.1689E+00,
- * 0.2052E+00, 0.2448E+00, 0.2878E+00, 0.3347E+00, 0.3858E+00,
- * 0.4416E+00, 0.5025E+00, 0.5690E+00, 0.6418E+00, 0.7216E+00,
- * 0.8090E+00, 0.9050E+00, 0.1010E+01, 0.1127E+01, 0.1255E+01,
- * 0.1396E+01, 0.1552E+01, 0.1725E+01, 0.1918E+01, 0.2132E+01,
- * 0.2371E+01, 0.2639E+01, 0.2939E+01, 0.3277E+01, 0.3659E+01,
- * 0.4091E+01, 0.4582E+01, 0.5141E+01, 0.5776E+01, 0.6499E+01,
- * 0.7321E+01, 0.8249E+01, 0.9290E+01, 0.1044E+02, 0.1166E+02,
- * 0.1286E+02, 0.1383E+02, 0.1415E+02 /
- DATA ((UHR(i,j),j=1,83),i=19,19)/
- *-0.3020E+00,-0.3015E+00,-0.2993E+00,-0.2963E+00,-0.2934E+00,
- *-0.2907E+00,-0.2882E+00,-0.2857E+00,-0.2830E+00,-0.2802E+00,
- *-0.2770E+00,-0.2736E+00,-0.2699E+00,-0.2659E+00,-0.2616E+00,
- *-0.2570E+00,-0.2520E+00,-0.2466E+00,-0.2409E+00,-0.2349E+00,
- *-0.2284E+00,-0.2216E+00,-0.2143E+00,-0.2066E+00,-0.1983E+00,
- *-0.1896E+00,-0.1802E+00,-0.1702E+00,-0.1596E+00,-0.1482E+00,
- *-0.1360E+00,-0.1229E+00,-0.1089E+00,-0.9387E-01,-0.7772E-01,
- *-0.6037E-01,-0.4170E-01,-0.2161E-01, 0.3854E-04, 0.2337E-01,
- * 0.4855E-01, 0.6188E-01, 0.7573E-01, 0.1051E+00, 0.1368E+00,
- * 0.1712E+00, 0.2084E+00, 0.2487E+00, 0.2924E+00, 0.3399E+00,
- * 0.3915E+00, 0.4477E+00, 0.5089E+00, 0.5756E+00, 0.6486E+00,
- * 0.7285E+00, 0.8160E+00, 0.9123E+00, 0.1018E+01, 0.1135E+01,
- * 0.1265E+01, 0.1409E+01, 0.1570E+01, 0.1751E+01, 0.1954E+01,
- * 0.2185E+01, 0.2447E+01, 0.2749E+01, 0.3097E+01, 0.3501E+01,
- * 0.3975E+01, 0.4533E+01, 0.5195E+01, 0.5981E+01, 0.6917E+01,
- * 0.8026E+01, 0.9330E+01, 0.1084E+02, 0.1253E+02, 0.1434E+02,
- * 0.1609E+02, 0.1744E+02, 0.1785E+02 /
- DATA ((UHR(i,j),j=1,83),i=20,20)/
- *-0.3991E+00,-0.3988E+00,-0.3975E+00,-0.3952E+00,-0.3922E+00,
- *-0.3886E+00,-0.3846E+00,-0.3804E+00,-0.3758E+00,-0.3710E+00,
- *-0.3658E+00,-0.3604E+00,-0.3545E+00,-0.3484E+00,-0.3418E+00,
- *-0.3349E+00,-0.3275E+00,-0.3197E+00,-0.3115E+00,-0.3028E+00,
- *-0.2937E+00,-0.2840E+00,-0.2737E+00,-0.2629E+00,-0.2515E+00,
- *-0.2395E+00,-0.2268E+00,-0.2133E+00,-0.1991E+00,-0.1841E+00,
- *-0.1682E+00,-0.1513E+00,-0.1335E+00,-0.1146E+00,-0.9463E-01,
- *-0.7341E-01,-0.5089E-01,-0.2699E-01,-0.1594E-02, 0.2540E-01,
- * 0.5413E-01, 0.6918E-01, 0.8472E-01, 0.1173E+00, 0.1521E+00,
- * 0.1893E+00, 0.2290E+00, 0.2716E+00, 0.3172E+00, 0.3663E+00,
- * 0.4191E+00, 0.4760E+00, 0.5375E+00, 0.6042E+00, 0.6765E+00,
- * 0.7554E+00, 0.8415E+00, 0.9359E+00, 0.1040E+01, 0.1154E+01,
- * 0.1281E+01, 0.1423E+01, 0.1581E+01, 0.1758E+01, 0.1958E+01,
- * 0.2185E+01, 0.2443E+01, 0.2737E+01, 0.3073E+01, 0.3459E+01,
- * 0.3903E+01, 0.4412E+01, 0.4996E+01, 0.5663E+01, 0.6418E+01,
- * 0.7263E+01, 0.8190E+01, 0.9182E+01, 0.1020E+02, 0.1118E+02,
- * 0.1203E+02, 0.1261E+02, 0.1277E+02 /
-
-
- do 1 i=1,20
- asy(1,i)=asy_m(i)
- ex(1,i)=ex_m(i)
- sc(1,i)=sc_m(i)
- do 1 j=1,nquad
- ph(i,j)=phr(i,j)
- qh(i,j)=qhr(i,j)
- uh(i,j)=uhr(i,j)
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/BDM.h b/Modules/ThirdParty/6S/src/6SV1.0B/BDM.h
deleted file mode 100644
index 2e624a9..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/BDM.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_bdm_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.P b/Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.P
deleted file mode 100644
index 5f8cb9d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int brdfgrid_(integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal *brdfdat, doublereal *angmu, doublereal *angphi, doublereal *brdfint);
-/*:ref: splie2_ 14 5 7 7 4 4 7 */
-/*:ref: splin2_ 14 9 7 7 7 7 4 4 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.c b/Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.c
deleted file mode 100644
index 87dcaa3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.c
+++ /dev/null
@@ -1,94 +0,0 @@
-/* BRDFGRID.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static integer c__10 = 10;
-static integer c__13 = 13;
-
-/*< >*/
-/* Subroutine */ int brdfgrid_(integer *mu, integer *np, doublereal *rm,
- doublereal *rp, doublereal *brdfdat, doublereal *angmu, doublereal *
- angphi, doublereal *brdfint)
-{
- /* System generated locals */
- integer brdfint_dim1, brdfint_offset, rm_offset, i__1, i__2;
-
- /* Local variables */
- doublereal brdftemp[130] /* was [10][13] */, gaussphi;
- integer j, k;
- doublereal y;
- extern /* Subroutine */ int splie2_(doublereal *, doublereal *, integer *,
- integer *, doublereal *), splin2_(doublereal *, doublereal *,
- doublereal *, doublereal *, integer *, integer *, doublereal *,
- doublereal *, doublereal *);
- doublereal gaussmu;
-
-/*< integer mu,np >*/
-/*< >*/
-/*< real brdftemp(10,13) >*/
-/*< real gaussmu,gaussphi,y >*/
-/*< integer j,k >*/
-/*< do 10 j=1,np >*/
- /* Parameter adjustments */
- rm_offset = -(*mu);
- rm -= rm_offset;
- brdfint_dim1 = *mu - (-(*mu)) + 1;
- brdfint_offset = -(*mu) + brdfint_dim1;
- brdfint -= brdfint_offset;
- --rp;
- brdfdat -= 11;
- --angmu;
- --angphi;
-
- /* Function Body */
- i__1 = *np;
- for (j = 1; j <= i__1; ++j) {
-/*< do 10 k=1,mu >*/
- i__2 = *mu;
- for (k = 1; k <= i__2; ++k) {
-/*< 10 brdfint(k,j)=0. >*/
-/* L10: */
- brdfint[k + j * brdfint_dim1] = 0.;
- }
- }
-/*< call splie2(angphi,brdfdat,10,13,brdftemp) >*/
- splie2_(&angphi[1], &brdfdat[11], &c__10, &c__13, brdftemp);
-/*< do 1 j=1,np >*/
- i__2 = *np;
- for (j = 1; j <= i__2; ++j) {
-/*< do 2 k=1,mu >*/
- i__1 = *mu;
- for (k = 1; k <= i__1; ++k) {
-/*< gaussmu=rm(k) >*/
- gaussmu = rm[k];
-/*< gaussphi=rp(j) >*/
- gaussphi = rp[j];
-/*< >*/
- splin2_(&angmu[1], &angphi[1], &brdfdat[11], brdftemp, &c__10, &
- c__13, &gaussmu, &gaussphi, &y);
-/*< brdfint(k,j)=y >*/
- brdfint[k + j * brdfint_dim1] = y;
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* brdfgrid_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.f b/Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.f
deleted file mode 100644
index 5a708ed..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.f
+++ /dev/null
@@ -1,24 +0,0 @@
- subroutine brdfgrid(mu,np,rm,rp,brdfdat,angmu,angphi,
- s brdfint)
- integer mu,np
- real rp(np),brdfint(-mu:mu,np),rm(-mu:mu)
- s ,angmu(10),angphi(13),brdfdat(10,13)
- real brdftemp(10,13)
- real gaussmu,gaussphi,y
- integer j,k
- do 10 j=1,np
- do 10 k=1,mu
- 10 brdfint(k,j)=0.
- call splie2(angphi,brdfdat,10,13,brdftemp)
- do 1 j=1,np
- do 2 k=1,mu
- gaussmu=rm(k)
- gaussphi=rp(j)
- call splin2(angmu,angphi,brdfdat,brdftemp,10,13,
- s gaussmu,gaussphi,
- s y)
- brdfint(k,j)=y
- 2 continue
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.h b/Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.h
deleted file mode 100644
index 6010666..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/BRDFGRID.h
+++ /dev/null
@@ -1,10 +0,0 @@
-extern int otb_6s_brdfgrid_(
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *brdfdat,
- otb_6s_doublereal *angmu,
- otb_6s_doublereal *angphi,
- otb_6s_doublereal *brdfint
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/CHAND.P b/Modules/ThirdParty/6S/src/6SV1.0B/CHAND.P
deleted file mode 100644
index a66f3bc..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/CHAND.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int chand_(doublereal *xphi, doublereal *xmuv, doublereal *xmus, doublereal *xtau, doublereal *xrray);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/CHAND.c b/Modules/ThirdParty/6S/src/6SV1.0B/CHAND.c
deleted file mode 100644
index c651437..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/CHAND.c
+++ /dev/null
@@ -1,155 +0,0 @@
-/* CHAND.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< s >*/
-/* Subroutine */ int chand_(doublereal *xphi, doublereal *xmuv, doublereal *
- xmus, doublereal *xtau, doublereal *xrray)
-{
- /* Initialized data */
-
- static doublereal as0[10] = { .33243832,-.06777104,.1628537,.001577425,
- -.30924818,-.01240906,-.10324388,.03241678,.11493334,-.03503695 };
- static doublereal as1[2] = { .19666292,-.05439061 };
- static doublereal as2[2] = { .14545937,-.02910845 };
-
- /* Builtin functions */
- double cos(doublereal), sqrt(doublereal), exp(doublereal), log(doublereal)
- ;
-
- /* Local variables */
- integer i__;
- doublereal pi, pl[10], fs0, fs1, fs2, xp1, xp2, xp3, fac, xfd, xph1, xph2,
- xph3, xdep, xitm, phios, cfonc1, cfonc2, cfonc3, xbeta2, xcosf1,
- xcosf2, xcosf3, xitot1, xitot2, xitot3, xlntau;
-
-/* input parameters: xphi,xmus,xmuv,xtau */
-/* xphi: azimuthal difference between sun and observation (xphi=0, */
-/* in backscattering) and expressed in degree (0.:360.) */
-/* xmus: cosine of the sun zenith angle */
-/* xmuv: cosine of the observation zenith angle */
-/* xtau: molecular optical depth */
-/* output parameter: xrray : molecular reflectance (0.:1.) */
-/* constant : xdep: depolarization factor (0.0279) */
-/*< real xdep,pl(10) >*/
-/*< real fs0,fs1,fs2 >*/
-/*< real as0(10),as1(2),as2(2) >*/
-/*< real xphi,xmus,fac,xmuv,xtau,xrray,pi,phios,xcosf1,xcosf2 >*/
-/*< real xcosf3,xbeta2,xfd,xph1,xph2,xph3,xitm, xp1, xp2, xp3 >*/
-/*< real cfonc1,cfonc2,cfonc3,xlntau,xitot1,xitot2,xitot3 >*/
-/*< integer i >*/
-/*< d >*/
-/*< data (as1(i),i=1,2) /.19666292, -5.439061e-02/ >*/
-/*< data (as2(i),i=1,2) /.14545937,-2.910845e-02/ >*/
-/*< pi=3.1415927 >*/
- pi = 3.1415927;
-/*< fac=pi/180. >*/
- fac = pi / 180.;
-/*< phios=180.-xphi >*/
- phios = 180. - *xphi;
-/*< xcosf1=1. >*/
- xcosf1 = 1.;
-/*< xcosf2=cos(phios*fac) >*/
- xcosf2 = cos(phios * fac);
-/*< xcosf3=cos(2*phios*fac) >*/
- xcosf3 = cos(phios * 2 * fac);
-/*< xbeta2=0.5 >*/
- xbeta2 = .5;
-/*< xdep=0.0279 >*/
- xdep = .0279;
-/*< xfd=xdep/(2-xdep) >*/
- xfd = xdep / (2 - xdep);
-/*< xfd=(1-xfd)/(1+2*xfd) >*/
- xfd = (1 - xfd) / (xfd * 2 + 1);
-/*< xph1=1+(3*xmus*xmus-1)*(3*xmuv*xmuv-1)*xfd/8. >*/
- xph1 = (*xmus * 3 * *xmus - 1) * (*xmuv * 3 * *xmuv - 1) * xfd / 8. + 1;
-/*< xph2=-xmus*xmuv*sqrt(1-xmus*xmus)*sqrt(1-xmuv*xmuv) >*/
- xph2 = -(*xmus) * *xmuv * sqrt(1 - *xmus * *xmus) * sqrt(1 - *xmuv * *
- xmuv);
-/*< xph2=xph2*xfd*xbeta2*1.5 >*/
- xph2 = xph2 * xfd * xbeta2 * 1.5;
-/*< xph3=(1-xmus*xmus)*(1-xmuv*xmuv) >*/
- xph3 = (1 - *xmus * *xmus) * (1 - *xmuv * *xmuv);
-/*< xph3=xph3*xfd*xbeta2*0.375 >*/
- xph3 = xph3 * xfd * xbeta2 * .375;
-/*< xitm=(1-exp(-xtau*(1/xmus+1/xmuv)))*xmus/(4*(xmus+xmuv)) >*/
- xitm = (1 - exp(-(*xtau) * (1 / *xmus + 1 / *xmuv))) * *xmus / ((*xmus + *
- xmuv) * 4);
-/*< xp1=xph1*xitm >*/
- xp1 = xph1 * xitm;
-/*< xp2=xph2*xitm >*/
- xp2 = xph2 * xitm;
-/*< xp3=xph3*xitm >*/
- xp3 = xph3 * xitm;
-/*< xitm=(1-exp(-xtau/xmus))*(1-exp(-xtau/xmuv)) >*/
- xitm = (1 - exp(-(*xtau) / *xmus)) * (1 - exp(-(*xtau) / *xmuv));
-/*< cfonc1=xph1*xitm >*/
- cfonc1 = xph1 * xitm;
-/*< cfonc2=xph2*xitm >*/
- cfonc2 = xph2 * xitm;
-/*< cfonc3=xph3*xitm >*/
- cfonc3 = xph3 * xitm;
-/*< xlntau=log(xtau) >*/
- xlntau = log(*xtau);
-/*< pl(1)=1. >*/
- pl[0] = 1.;
-/*< pl(2)=xlntau >*/
- pl[1] = xlntau;
-/*< pl(3)=xmus+xmuv >*/
- pl[2] = *xmus + *xmuv;
-/*< pl(4)=xlntau*pl(3) >*/
- pl[3] = xlntau * pl[2];
-/*< pl(5)=xmus*xmuv >*/
- pl[4] = *xmus * *xmuv;
-/*< pl(6)=xlntau*pl(5) >*/
- pl[5] = xlntau * pl[4];
-/*< pl(7)=xmus*xmus+xmuv*xmuv >*/
- pl[6] = *xmus * *xmus + *xmuv * *xmuv;
-/*< pl(8)=xlntau*pl(7) >*/
- pl[7] = xlntau * pl[6];
-/*< pl(9)=xmus*xmus*xmuv*xmuv >*/
- pl[8] = *xmus * *xmus * *xmuv * *xmuv;
-/*< pl(10)=xlntau*pl(9) >*/
- pl[9] = xlntau * pl[8];
-/*< fs0=0. >*/
- fs0 = 0.;
-/*< do i=1,10 >*/
- for (i__ = 1; i__ <= 10; ++i__) {
-/*< fs0=fs0+pl(i)*as0(i) >*/
- fs0 += pl[i__ - 1] * as0[i__ - 1];
-/*< enddo >*/
- }
-/*< fs1=pl(1)*as1(1)+pl(2)*as1(2) >*/
- fs1 = pl[0] * as1[0] + pl[1] * as1[1];
-/*< fs2=pl(1)*as2(1)+pl(2)*as2(2) >*/
- fs2 = pl[0] * as2[0] + pl[1] * as2[1];
-/*< xitot1=xp1+cfonc1*fs0*xmus >*/
- xitot1 = xp1 + cfonc1 * fs0 * *xmus;
-/*< xitot2=xp2+cfonc2*fs1*xmus >*/
- xitot2 = xp2 + cfonc2 * fs1 * *xmus;
-/*< xitot3=xp3+cfonc3*fs2*xmus >*/
- xitot3 = xp3 + cfonc3 * fs2 * *xmus;
-/*< xrray=xitot1*xcosf1 >*/
- *xrray = xitot1 * xcosf1;
-/*< xrray=xrray+xitot2*xcosf2*2 >*/
- *xrray += xitot2 * xcosf2 * 2;
-/*< xrray=xrray+xitot3*xcosf3*2 >*/
- *xrray += xitot3 * xcosf3 * 2;
-/*< xrray=xrray/xmus >*/
- *xrray /= *xmus;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* chand_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/CHAND.f b/Modules/ThirdParty/6S/src/6SV1.0B/CHAND.f
deleted file mode 100644
index 7887dd3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/CHAND.f
+++ /dev/null
@@ -1,71 +0,0 @@
- subroutine chand (xphi,xmuv,xmus,xtau
- s ,xrray)
-c input parameters: xphi,xmus,xmuv,xtau
-c xphi: azimuthal difference between sun and observation (xphi=0,
-c in backscattering) and expressed in degree (0.:360.)
-c xmus: cosine of the sun zenith angle
-c xmuv: cosine of the observation zenith angle
-c xtau: molecular optical depth
-c output parameter: xrray : molecular reflectance (0.:1.)
-c constant : xdep: depolarization factor (0.0279)
- real xdep,pl(10)
- real fs0,fs1,fs2
- real as0(10),as1(2),as2(2)
- real xphi,xmus,fac,xmuv,xtau,xrray,pi,phios,xcosf1,xcosf2
- real xcosf3,xbeta2,xfd,xph1,xph2,xph3,xitm, xp1, xp2, xp3
- real cfonc1,cfonc2,cfonc3,xlntau,xitot1,xitot2,xitot3
- integer i
- data (as0(i),i=1,10) /.33243832,-6.777104e-02,.16285370
- s ,1.577425e-03,-.30924818,-1.240906e-02,-.10324388
- s ,3.241678e-02,.11493334,-3.503695e-02/
- data (as1(i),i=1,2) /.19666292, -5.439061e-02/
- data (as2(i),i=1,2) /.14545937,-2.910845e-02/
- pi=3.1415927
- fac=pi/180.
- phios=180.-xphi
- xcosf1=1.
- xcosf2=cos(phios*fac)
- xcosf3=cos(2*phios*fac)
- xbeta2=0.5
- xdep=0.0279
- xfd=xdep/(2-xdep)
- xfd=(1-xfd)/(1+2*xfd)
- xph1=1+(3*xmus*xmus-1)*(3*xmuv*xmuv-1)*xfd/8.
- xph2=-xmus*xmuv*sqrt(1-xmus*xmus)*sqrt(1-xmuv*xmuv)
- xph2=xph2*xfd*xbeta2*1.5
- xph3=(1-xmus*xmus)*(1-xmuv*xmuv)
- xph3=xph3*xfd*xbeta2*0.375
- xitm=(1-exp(-xtau*(1/xmus+1/xmuv)))*xmus/(4*(xmus+xmuv))
- xp1=xph1*xitm
- xp2=xph2*xitm
- xp3=xph3*xitm
- xitm=(1-exp(-xtau/xmus))*(1-exp(-xtau/xmuv))
- cfonc1=xph1*xitm
- cfonc2=xph2*xitm
- cfonc3=xph3*xitm
- xlntau=log(xtau)
- pl(1)=1.
- pl(2)=xlntau
- pl(3)=xmus+xmuv
- pl(4)=xlntau*pl(3)
- pl(5)=xmus*xmuv
- pl(6)=xlntau*pl(5)
- pl(7)=xmus*xmus+xmuv*xmuv
- pl(8)=xlntau*pl(7)
- pl(9)=xmus*xmus*xmuv*xmuv
- pl(10)=xlntau*pl(9)
- fs0=0.
- do i=1,10
- fs0=fs0+pl(i)*as0(i)
- enddo
- fs1=pl(1)*as1(1)+pl(2)*as1(2)
- fs2=pl(1)*as2(1)+pl(2)*as2(2)
- xitot1=xp1+cfonc1*fs0*xmus
- xitot2=xp2+cfonc2*fs1*xmus
- xitot3=xp3+cfonc3*fs2*xmus
- xrray=xitot1*xcosf1
- xrray=xrray+xitot2*xcosf2*2
- xrray=xrray+xitot3*xcosf3*2
- xrray=xrray/xmus
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/CHAND.h b/Modules/ThirdParty/6S/src/6SV1.0B/CHAND.h
deleted file mode 100644
index ece38a0..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/CHAND.h
+++ /dev/null
@@ -1,7 +0,0 @@
-extern int otb_6s_chand_(
- otb_6s_doublereal *xphi,
- otb_6s_doublereal *xmuv,
- otb_6s_doublereal *xmus,
- otb_6s_doublereal *xtau,
- otb_6s_doublereal *xrray
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.P b/Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.P
deleted file mode 100644
index ef6888b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int clearw_(doublereal *r__);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.c b/Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.c
deleted file mode 100644
index 0204dab..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.c
+++ /dev/null
@@ -1,122 +0,0 @@
-/* CLEARW.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine clearw (r) >*/
-/* Subroutine */ int clearw_(doublereal *r__)
-{
- /* Initialized data */
-
- static doublereal sr[1501] = { 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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.0205,.041,.041,.041,.041,.041,.041,.041,.041,.041,.041,.041,
- .041,.041,.041,.041,.041,.041,.041,.041,.041,.041,.041,.041,.041,
- .041,.041,.041,.041,.041,.041,.041,.041,.041,.041,.041,.041,.041,
- .041,.041,.041,.041,.0415,.042,.0425,.043,.0435,.044,.044,.044,
- .045,.046,.0465,.047,.048,.049,.0495,.05,.051,.052,.053,.054,
- .0545,.055,.0555,.056,.0575,.059,.0595,.06,.0605,.061,.061,.061,
- .06,.059,.058,.057,.0555,.054,.0535,.053,.052,.051,.0505,.05,
- .0495,.049,.048,.047,.0465,.046,.046,.046,.0455,.045,.0445,.044,
- .0435,.043,.043,.043,.042,.041,.0405,.04,.039,.038,.0375,.037,
- .037,.037,.0365,.036,.0345,.033,.0325,.032,.0315,.031,.03,.029,
- .028,.027,.0255,.024,.0235,.023,.022,.021,.0195,.018,.0165,.015,
- .0135,.012,.0105,.009,.0085,.008,.007,.006,.005,.004,.003,.002,
- .0015,.001,5e-4,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0. };
-
- integer i__;
-
-/*< real sr(1501),r(1501) >*/
-/*< integer l,i >*/
-/* clear water reflectance */
-/* warning : values of dry sand ground reflectance are given */
-/* between 0.5 and 1.0 microns. outside this interval the */
-/* values are set to 0. */
-/*< >*/
- /* Parameter adjustments */
- --r__;
-
- /* Function Body */
-/*< >*/
-/*< do 1 i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< r(i)=sr(i) >*/
- r__[i__] = sr[i__ - 1];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* clearw_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.f b/Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.f
deleted file mode 100644
index 1a57d4d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.f
+++ /dev/null
@@ -1,42 +0,0 @@
- subroutine clearw (r)
- real sr(1501),r(1501)
- integer l,i
-
-c clear water reflectance
-c warning : values of dry sand ground reflectance are given
-c between 0.5 and 1.0 microns. outside this interval the
-c values are set to 0.
-
- data (sr(l),l=1,135)/ 58*0.,
- a .00000, .02050, .04100, .04100, .04100, .04100, .04100,
- a .04100, .04100, .04100, .04100, .04100, .04100, .04100,
- a .04100, .04100, .04100, .04100, .04100, .04100, .04100,
- a .04100, .04100, .04100, .04100, .04100, .04100, .04100,
- a .04100, .04100, .04100, .04100, .04100, .04100, .04100,
- a .04100, .04100, .04100, .04100, .04100, .04100, .04100,
- a .04100, .04150, .04200, .04250, .04300, .04350, .04400,
- a .04400, .04400, .04500, .04600, .04650, .04700, .04800,
- a .04900, .04950, .05000, .05100, .05200, .05300, .05400,
- a .05450, .05500, .05550, .05600, .05750, .05900, .05950,
- a .06000, .06050, .06100, .06100, .06100, .06000, .05900/
- data (sr(l),l=136,1501)/
- a .05800, .05700, .05550, .05400, .05350, .05300, .05200,
- a .05100, .05050, .05000, .04950, .04900, .04800, .04700,
- a .04650, .04600, .04600, .04600, .04550, .04500, .04450,
- a .04400, .04350, .04300, .04300, .04300, .04200, .04100,
- a .04050, .04000, .03900, .03800, .03750, .03700, .03700,
- a .03700, .03650, .03600, .03450, .03300, .03250, .03200,
- a .03150, .03100, .03000, .02900, .02800, .02700, .02550,
- a .02400, .02350, .02300, .02200, .02100, .01950, .01800,
- a .01650, .01500, .01350, .01200, .01050, .00900, .00850,
- a .00800, .00700, .00600, .00500, .00400, .00300, .00200,
- a .00150, .00100, .00050, .00000, .00000, .00000, .00000,
- a .00000, .00000, .00000, .00000, .00000, .00000, .00000,
- a .00000, .00000,
- a1280*0./
- do 1 i=1,1501
- r(i)=sr(i)
- 1 continue
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.h b/Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.h
deleted file mode 100644
index c9a18e8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/CLEARW.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_clearw_(
- otb_6s_doublereal *r__
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.P b/Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.P
deleted file mode 100644
index 325a7c0..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int csalbr_(doublereal *xtau, doublereal *xalb);
-extern doublereal fintexp3_(doublereal *xtau);
-extern doublereal fintexp1_(doublereal *xtau);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.c b/Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.c
deleted file mode 100644
index 2e452ea..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.c
+++ /dev/null
@@ -1,99 +0,0 @@
-/* CSALBR.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine csalbr(xtau,xalb) >*/
-/* Subroutine */ int csalbr_(doublereal *xtau, doublereal *xalb)
-{
- /* Builtin functions */
- double exp(doublereal);
-
- /* Local variables */
- extern doublereal fintexp3_(doublereal *);
-
-/*< real xtau,xalb,fintexp3 >*/
-/*< xalb=(3*xtau-fintexp3(xtau)*(4+2*xtau)+2*exp(-xtau)) >*/
- *xalb = *xtau * 3 - fintexp3_(xtau) * (*xtau * 2 + 4) + exp(-(*xtau)) * 2;
-/*< xalb=xalb/(4.+3*xtau) >*/
- *xalb /= *xtau * 3 + 4.;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* csalbr_ */
-
-/*< real function fintexp3(xtau) >*/
-doublereal fintexp3_(doublereal *xtau)
-{
- /* System generated locals */
- doublereal ret_val;
-
- /* Builtin functions */
- double exp(doublereal);
-
- /* Local variables */
- extern doublereal fintexp1_(doublereal *);
- doublereal xx;
-
-/*< real xx,xtau,fintexp1 >*/
-/*< xx=(exp(-xtau)*(1.-xtau)+xtau*xtau*fintexp1(xtau))/2. >*/
- xx = (exp(-(*xtau)) * (1. - *xtau) + *xtau * *xtau * fintexp1_(xtau)) /
- 2.;
-/*< fintexp3=xx >*/
- ret_val = xx;
-/*< return >*/
- return ret_val;
-/*< end >*/
-} /* fintexp3_ */
-
-/*< real function fintexp1(xtau) >*/
-doublereal fintexp1_(doublereal *xtau)
-{
- /* Initialized data */
-
- static doublereal a[6] = { -.57721566,.99999193,-.24991055,.05519968,
- -.00976004,.00107857 };
-
- /* System generated locals */
- doublereal ret_val;
-
- /* Builtin functions */
- double log(doublereal);
-
- /* Local variables */
- integer i__;
- doublereal xx, xftau;
-
-/* accuracy 2e-07... for 0<xtau<1 */
-/*< real xx,a(0:5),xtau,xftau >*/
-/*< integer i >*/
-/*< >*/
-/*< xx=a(0) >*/
- xx = a[0];
-/*< xftau=1. >*/
- xftau = 1.;
-/*< do i=1,5 >*/
- for (i__ = 1; i__ <= 5; ++i__) {
-/*< xftau=xftau*xtau >*/
- xftau *= *xtau;
-/*< xx=xx+a(i)*xftau >*/
- xx += a[i__] * xftau;
-/*< enddo >*/
- }
-/*< fintexp1=xx-log(xtau) >*/
- ret_val = xx - log(*xtau);
-/*< return >*/
- return ret_val;
-/*< end >*/
-} /* fintexp1_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.f b/Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.f
deleted file mode 100644
index 8dad690..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.f
+++ /dev/null
@@ -1,27 +0,0 @@
- subroutine csalbr(xtau,xalb)
- real xtau,xalb,fintexp3
- xalb=(3*xtau-fintexp3(xtau)*(4+2*xtau)+2*exp(-xtau))
- xalb=xalb/(4.+3*xtau)
- return
- end
- real function fintexp3(xtau)
- real xx,xtau,fintexp1
- xx=(exp(-xtau)*(1.-xtau)+xtau*xtau*fintexp1(xtau))/2.
- fintexp3=xx
- return
- end
- real function fintexp1(xtau)
-c accuracy 2e-07... for 0<xtau<1
- real xx,a(0:5),xtau,xftau
- integer i
- data (a(i),i=0,5) /-.57721566,0.99999193,-0.24991055,
- c 0.05519968,-0.00976004,0.00107857/
- xx=a(0)
- xftau=1.
- do i=1,5
- xftau=xftau*xtau
- xx=xx+a(i)*xftau
- enddo
- fintexp1=xx-log(xtau)
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.h b/Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.h
deleted file mode 100644
index 3d2bae1..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/CSALBR.h
+++ /dev/null
@@ -1,10 +0,0 @@
-extern int otb_6s_csalbr_(
- otb_6s_doublereal *xtau,
- otb_6s_doublereal *xalb
- );
-extern otb_6s_doublereal otb_6s_fintexp3_(
- otb_6s_doublereal *xtau
- );
-extern otb_6s_doublereal otb_6s_fintexp1_(
- otb_6s_doublereal *xtau
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DICA1.P b/Modules/ThirdParty/6S/src/6SV1.0B/DICA1.P
deleted file mode 100644
index 478a120..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DICA1.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int dica1_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DICA1.c b/Modules/ThirdParty/6S/src/6SV1.0B/DICA1.c
deleted file mode 100644
index d82a9a8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DICA1.c
+++ /dev/null
@@ -1,299 +0,0 @@
-/* DICA1.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine dica1(a,inu) >*/
-/* Subroutine */ int dica1_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 1.1446e-5,.0020117,
- -.0041334,3.2304e-6,-.0069982,9.0084e-6,2500.,2510.,1.9234e-5,
- .0019311,-.0017326,-5.8646e-6,-.0045311,-6.0352e-7,2510.,2520.,
- 9.202e-6,.0017952,.0034861,-2.526e-5,5.8777e-4,-2.0915e-5,2520.,
- 2530.,1.6374e-6,.0018281,.010418,-4.3535e-5,.0074404,-4.1207e-5,
- 2530.,2540.,1.9079e-7,.0010034,.011048,-9.739e-6,.010458,
- -3.7165e-5,2540.,2550.,3.4315e-9,2.4238e-5,.0054443,-3.5215e-5,
- .00216,-2.8602e-5,2550.,2560.,8.2488e-9,1.2211e-4,.026474,
- -1.1937e-4,.023595,-1.1358e-4,2560.,2570.,6.4587e-7,.0014539,
- .017175,-7.7312e-5,.015125,-7.6621e-5,2570.,2580.,5.4268e-6,
- .0015777,.0078126,-4.2151e-5,.0051843,-3.9096e-5,2580.,2590.,
- 2.0993e-5,.0024666,.0015156,-1.4469e-5,.0014551,-1.2874e-5,2590.,
- 2600.,3.1892e-5,.0032261,-.0024271,1.4275e-6,-.0024514,2.5977e-6,
- 2600.,2610.,1.1919e-5,.0029607,-.0037722,7.2919e-6,-.004064,
- 7.442e-6,2610.,2620.,3.5396e-5,.0031915,-.0024421,-5.4413e-7,
- -.0029857,7.7772e-7,2620.,2630.,2.2174e-5,.0031839,.002243,
- -1.6625e-5,.0017446,-1.7477e-5,2630.,2640.,4.9654e-6,.0031706,
- .0096026,-4.1529e-5,.0087311,-4.451e-5,2640.,2650.,5.9768e-7,
- .0013719,.0076702,1.3005e-5,.0090078,-2.4905e-5,2650.,2660.,
- 1.3394e-7,3.2465e-4,.0037114,-2.6108e-5,9.3326e-4,-2.2404e-5,
- 2660.,2670.,9.101e-9,7.1741e-5,.010072,-5.3553e-5,.0068917,
- -4.7305e-5,2670.,2680.,0.,0.,0.,0.,0.,0.,2680.,2690.,0.,0.,0.,0.,
- 0.,0.,2690.,2700.,0.,0.,0.,0.,0.,0.,2700.,2710.,0.,0.,0.,0.,0.,0.,
- 2710.,2720.,3.0498e-7,.0012211,.011385,-5.7015e-5,.008676,
- -5.3344e-5,2720.,2730.,2.3044e-6,.0018735,.0031625,-2.3857e-5,
- 4.2583e-4,-2.0332e-5,2730.,2740.,4.587e-6,.0020082,-.0021166,
- -4.3444e-6,-.0048776,8.714e-7,2740.,2750.,1.8151e-6,.001778,
- -.0043591,3.9928e-6,-.0074161,1.0271e-5,2750.,2760.,4.3155e-6,
- .0021845,-.0035667,1.0325e-6,-.0064484,6.9079e-6,2760.,2770.,
- 3.5601e-6,.0015853,-2.4397e-4,-1.1623e-5,-.0030932,-6.6664e-6,
- 2770.,2780.,1.4023e-6,.0017421,.0052527,-3.1584e-5,.0022672,
- -2.6978e-5,2780.,2790.,1.9517e-7,.0010843,.011752,-5.0614e-5,
- .0090578,-5.0929e-5,2790.,2800.,0.,0.,0.,0.,0.,0.,2800.,2810.,0.,
- 0.,0.,0.,0.,0.,2810.,2820.,0.,0.,0.,0.,0.,0.,2820.,2830.,0.,0.,0.,
- 0.,0.,0.,2830.,2840.,0.,0.,0.,0.,0.,0.,2840.,2850.,0.,0.,0.,0.,0.,
- 0.,2850.,2860.,0.,0.,0.,0.,0.,0.,2860.,2870.,0.,0.,0.,0.,0.,0.,
- 2870.,2880.,0.,0.,0.,0.,0.,0.,2880.,2890.,0.,0.,0.,0.,0.,0.,2890.,
- 2900.,0.,0.,0.,0.,0.,0.,2900.,2910.,0.,0.,0.,0.,0.,0.,2910.,2920.,
- 0.,0.,0.,0.,0.,0.,2920.,2930.,0.,0.,0.,0.,0.,0.,2930.,2940.,0.,0.,
- 0.,0.,0.,0.,2940.,2950.,0.,0.,0.,0.,0.,0.,2950.,2960.,0.,0.,0.,0.,
- 0.,0.,2960.,2970.,0.,0.,0.,0.,0.,0.,2970.,2980.,0.,0.,0.,0.,0.,0.,
- 2980.,2990.,0.,0.,0.,0.,0.,0.,2990.,3e3,0.,0.,0.,0.,0.,0.,3e3,
- 3010.,0.,0.,0.,0.,0.,0.,3010.,3020.,0.,0.,0.,0.,0.,0.,3020.,3030.,
- 0.,0.,0.,0.,0.,0.,3030.,3040.,0.,0.,0.,0.,0.,0.,3040.,3050.,0.,0.,
- 0.,0.,0.,0.,3050.,3060.,0.,0.,0.,0.,0.,0.,3060.,3070.,0.,0.,0.,0.,
- 0.,0.,3070.,3080.,3.3052e-6,.058651,.034989,-1.529e-4,.031987,
- -1.4721e-4,3080.,3090.,4.1503e-5,.20207,.026206,-1.1436e-4,
- .023672,-1.1213e-4,3090.,3100.,8.7906e-5,.21783,.018422,
- -8.5123e-5,.015304,-7.985e-5,3100.,3110.,2.9489e-5,.12859,.014066,
- -6.9404e-5,.011044,-6.3254e-5,3110.,3120.,3.1118e-5,.2981,.025033,
- -1.1155e-4,.022143,-1.0719e-4,3120.,3130.,1.4832e-4,.7106,.018309,
- -7.0285e-5,.015857,-7.3742e-5,3130.,3140.,5.0912e-4,.39631,
- .016927,-7.7076e-5,.014306,-7.4481e-5,3140.,3150.,.0018569,.28375,
- .0076498,-3.6249e-5,.0067089,-3.6791e-5,3150.,3160.,.0023217,
- .3497,.0010351,-1.0688e-5,9.4905e-4,-6.7349e-6,3160.,3170.,
- 4.761e-4,.41947,.0019347,1.6317e-5,.0033594,-7.9441e-6,3170.,
- 3180.,4.6778e-4,.77616,7.9129e-4,2.3675e-5,9.1006e-4,4.8023e-6,
- 3180.,3190.,.0030862,.25667,-.0014396,-4.1338e-6,-.0027351,
- 6.4924e-6,3190.,3200.,.0034062,.18499,.003259,-2.4779e-5,
- 2.1425e-4,-1.9664e-5,3200.,3210.,.0014366,.17452,.010436,
- -5.221e-5,.0077713,-4.9107e-5,3210.,3220.,2.6116e-4,.16068,
- .020114,-8.9663e-5,.017964,-8.8666e-5,3220.,3230.,3.408e-5,.26237,
- .031854,-1.3724e-4,.029565,-1.3533e-4,3230.,3240.,3.8044e-5,
- .18154,.023462,-1.0477e-4,.020484,-1.0031e-4,3240.,3250.,
- 2.3642e-5,.12587,.01793,-8.3993e-5,.014725,-7.8063e-5,3250.,3260.,
- 1.3555e-6,.0021856,.0043607,-2.9254e-5,.0012372,-2.4119e-5,3260.,
- 3270.,3.5631e-4,.86373,.015491,-6.0741e-5,.014051,-6.1126e-5,
- 3270.,3280.,3.3068e-4,.41597,.01708,-4.5243e-5,.018249,-6.1327e-5,
- 3280.,3290.,.001398,.43415,.020779,-8.71e-5,.019046,-8.4016e-5,
- 3290.,3300.,.0054038,.37316,.013012,-5.4513e-5,.014582,-6.1135e-5,
- 3300.,3310.,.011865,.37215,.005333,-2.4891e-5,.0077872,-2.3154e-5,
- 3310.,3320.,.0081717,.45864,7.0369e-4,-2.5399e-6,.0032045,
- -2.1463e-6,3320.,3330.,.0067313,.55963,-.0020245,2.6702e-6,
- -.0024299,1.777e-5,3330.,3340.,.013254,.74729,-.001815,5.4501e-6,
- .0013181,-4.3636e-7,3340.,3350.,.036823,.36421,-2.01e-4,
- -5.8593e-6,.0013324,-2.3987e-6,3350.,3360.,.035439,.40306,
- .0054434,-2.6546e-5,.0067677,-2.8288e-5,3360.,3370.,.0090957,
- .48115,.014512,-6.1088e-5,.016771,-6.5673e-5,3370.,3380.,.0015199,
- .65754,.023451,-8.6e-5,.024073,-8.9238e-5,3380.,3390.,1.3838e-4,
- .96599,.027438,-3.7378e-5,.026069,-7.2896e-5,3390.,3400.,
- 3.1321e-4,.32432,.014691,-4.5546e-5,.01786,-4.056e-5,3400.,3410.,
- 9.6318e-4,.34642,.017708,-6.6986e-5,.020408,-5.3348e-5,3410.,
- 3420.,6.1782e-4,.30724,.02599,-8.9579e-5,.025999,-9.8228e-5,3420.,
- 3430.,4.0506e-4,.30755,.038698,-1.6162e-4,.035406,-1.5721e-4,
- 3430.,3440.,.0011183,.2365,.034497,-1.4952e-4,.032465,-1.4642e-4,
- 3440.,3450.,.0018653,.34796,.029814,-1.2999e-4,.026883,-1.245e-4,
- 3450.,3460.,.0035542,.40556,.017369,-5.7102e-5,.019546,-4.6731e-5,
- 3460.,3470.,.0090605,.50199,.012281,2.333e-7,.01992,2.7162e-5,
- 3470.,3480.,.008421,.7135,.011986,7.348e-5,.024636,8.1574e-5,
- 3480.,3490.,.0060886,.9612,.023574,1.0867e-4,.044783,-7.2014e-5,
- 3490.,3500.,.035622,1.6535,.012077,1.3532e-4,.02212,8.0854e-5,
- 3500.,3510.,.078238,1.3688,.016785,1.4511e-4,.032327,-1.2296e-5,
- 3510.,3520.,.17292,1.6314,.028411,-4.0866e-6,.033279,-8.391e-5,
- 3520.,3530.,.58094,1.4177,.030478,-9.228e-5,.032074,-1.1676e-4,
- 3530.,3540.,1.9973,1.0662,.026332,-1.0563e-4,.027668,-1.086e-4,
- 3540.,3550.,5.8904,.85364,.020626,-8.7922e-5,.022034,-8.7919e-5,
- 3550.,3560.,16.608,.82681,.016296,-7.197e-5,.016508,-6.8914e-5,
- 3560.,3570.,33.94,.67293,.011756,-5.5546e-5,.012667,-5.0727e-5,
- 3570.,3580.,105.89,.40519,.0053354,-3.05e-5,.00642,-2.7269e-5,
- 3580.,3590.,286.58,.37875,3.1591e-4,-7.6033e-6,.0017571,
- -6.9331e-6,3590.,3600.,258.81,.31632,-.0031299,5.3577e-6,
- -.0014554,1.6811e-5,3600.,3610.,153.98,.23899,-.0042487,5.6295e-6,
- -.0038259,2.864e-5,3610.,3620.,381.54,.2369,-.0021079,-4.2102e-6,
- -.0046108,4.6494e-6,3620.,3630.,189.08,.24104,.003487,-2.4525e-5,
- .0012111,-1.869e-5,3630.,3640.,22.631,.27596,.013843,-6.0817e-5,
- .013983,-5.5436e-5,3640.,3650.,.789,.45834,.0288,-9.2261e-5,
- .033526,-1.1634e-4,3650.,3660.,3.5516,.24747,.021606,-9.1483e-5,
- .025091,-7.7825e-5,3660.,3670.,26.382,.26344,.013128,-5.9351e-5,
- .015813,-4.5315e-5,3670.,3680.,114.51,.25517,.0061726,-3.2903e-5,
- .0088361,-1.856e-5,3680.,3690.,375.87,.29958,6.1303e-4,-1.0823e-5,
- .0025691,2.5921e-6,3690.,3700.,399.12,.32406,-.0024055,3.4271e-6,
- 8.3356e-4,1.4624e-5,3700.,3710.,209.7,.49024,-.0029825,1.1251e-5,
- 9.8088e-4,1.7825e-5,3710.,3720.,651.86,.43325,-.0025584,
- -7.4576e-7,-.0013717,1.1441e-5,3720.,3730.,360.94,.49364,.0033219,
- -1.9819e-5,.0045993,-1.8704e-5,3730.,3740.,57.048,.71411,.013964,
- -5.8323e-5,.015441,-6.5072e-5,3740.,3750.,1.6419,.94961,.031167,
- -1.2796e-4,.03253,-1.3294e-4,3750.,3760.,.0072097,.71242,.053044,
- -2.1219e-4,.055695,-2.2364e-4,3760.,3770.,3.2929e-4,.16488,
- .043688,-1.8453e-4,.042346,-1.8165e-4,3770.,3780.,.0014501,.17127,
- .036748,-1.5788e-4,.035331,-1.524e-4,3780.,3790.,.0047585,.19488,
- .031054,-1.364e-4,.028516,-1.3041e-4,3790.,3800.,.0056312,.2178,
- .027563,-1.2299e-4,.02536,-1.1514e-4,3800.,3810.,.0025663,.23975,
- .026455,-1.1697e-4,.025771,-1.0379e-4,3810.,3820.,.0073473,.2611,
- .028264,-1.2512e-4,.026543,-1.1735e-4,3820.,3830.,.0041625,.3064,
- .0335,-1.4328e-4,.032396,-1.4197e-4,3830.,3840.,6.2707e-4,.49963,
- .042723,-1.7265e-4,.041198,-1.7864e-4,3840.,3850.,5.2281e-5,.443,
- .041789,-1.3546e-4,.041381,-1.6812e-4,3850.,3860.,1.1349e-4,
- .48522,.040194,-1.3982e-4,.03909,-1.6958e-4,3860.,3870.,1.1733e-4,
- .49615,.044541,-1.6207e-4,.043254,-1.8688e-4,3870.,3880.,
- 2.1994e-5,.36694,.051435,-1.7841e-4,.051058,-2.162e-4,3880.,3890.,
- 0.,0.,0.,0.,0.,0.,3890.,3900.,0.,0.,0.,0.,0.,0.,3900.,3910.,0.,0.,
- 0.,0.,0.,0.,3910.,3920.,0.,0.,0.,0.,0.,0.,3920.,3930.,0.,0.,0.,0.,
- 0.,0.,3930.,3940.,1.0712e-5,.11242,.038222,-1.6405e-4,.035612,
- -1.6058e-4,3940.,3950.,2.226e-5,.088337,.032098,-1.4078e-4,
- .029142,-1.356e-4,3950.,3960.,6.0145e-5,.1215,.02614,-1.1441e-4,
- .023109,-1.101e-4,3960.,3970.,1.1812e-4,.5338,.023839,-9.6178e-5,
- .023506,-1.0676e-4,3970.,3980.,6.12e-5,.32611,.020895,-7.6119e-5,
- .020369,-8.7589e-5,3980.,3990.,3.019e-4,.84191,.024861,-9.352e-5,
- .024385,-1.0546e-4,3990.,4e3,.0013735,.6758,.014099,-6.4565e-5,
- .011933,-5.7363e-5,4e3,4010.,.0017095,.28901,.013726,-6.7497e-5,
- .010543,-6.096e-5,4010.,4020.,.0020687,.45821,.021277,-8.6802e-5,
- .020845,-9.0012e-5,4020.,4030.,0.,0.,0.,0.,0.,0.,4030.,4040.,0.,
- 0.,0.,0.,0.,0.,4040.,4050.,0.,0.,0.,0.,0.,0.,4050.,4060.,0.,0.,0.,
- 0.,0.,0.,4060.,4070.,0.,0.,0.,0.,0.,0.,4070.,4080.,0.,0.,0.,0.,0.,
- 0.,4080.,4090.,0.,0.,0.,0.,0.,0.,4090.,4100.,0.,0.,0.,0.,0.,0.,
- 4100.,4110.,0.,0.,0.,0.,0.,0.,4110.,4120.,0.,0.,0.,0.,0.,0.,4120.,
- 4130.,0.,0.,0.,0.,0.,0.,4130.,4140.,0.,0.,0.,0.,0.,0.,4140.,4150.,
- 0.,0.,0.,0.,0.,0.,4150.,4160.,0.,0.,0.,0.,0.,0.,4160.,4170.,0.,0.,
- 0.,0.,0.,0.,4170.,4180.,0.,0.,0.,0.,0.,0.,4180.,4190.,0.,0.,0.,0.,
- 0.,0.,4190.,4200.,0.,0.,0.,0.,0.,0.,4200.,4210.,0.,0.,0.,0.,0.,0.,
- 4210.,4220.,0.,0.,0.,0.,0.,0.,4220.,4230.,0.,0.,0.,0.,0.,0.,4230.,
- 4240.,0.,0.,0.,0.,0.,0.,4240.,4250.,0.,0.,0.,0.,0.,0.,4250.,4260.,
- 0.,0.,0.,0.,0.,0.,4260.,4270.,0.,0.,0.,0.,0.,0.,4270.,4280.,0.,0.,
- 0.,0.,0.,0.,4280.,4290.,0.,0.,0.,0.,0.,0.,4290.,4300.,0.,0.,0.,0.,
- 0.,0.,4300.,4310.,0.,0.,0.,0.,0.,0.,4310.,4320.,0.,0.,0.,0.,0.,0.,
- 4320.,4330.,0.,0.,0.,0.,0.,0.,4330.,4340.,0.,0.,0.,0.,0.,0.,4340.,
- 4350.,0.,0.,0.,0.,0.,0.,4350.,4360.,0.,0.,0.,0.,0.,0.,4360.,4370.,
- 0.,0.,0.,0.,0.,0.,4370.,4380.,0.,0.,0.,0.,0.,0.,4380.,4390.,0.,0.,
- 0.,0.,0.,0.,4390.,4400.,0.,0.,0.,0.,0.,0.,4400.,4410.,0.,0.,0.,0.,
- 0.,0.,4410.,4420.,2.629e-5,.099522,-.0026652,-2.6042e-6,-.0055447,
- 3.2186e-6,4420.,4430.,8.0883e-5,.18978,5.7466e-4,-1.4607e-5,
- -.0025665,-8.7838e-6,4430.,4440.,5.526e-5,.18005,.0065537,
- -3.7323e-5,.0036814,-3.3174e-5,4440.,4450.,8.255e-6,.05991,
- .012867,-6.4515e-5,.0097575,-5.8512e-5,4450.,4460.,0.,0.,0.,0.,0.,
- 0.,4460.,4470.,0.,0.,0.,0.,0.,0.,4470.,4480.,0.,0.,0.,0.,0.,0.,
- 4480.,4490.,0.,0.,0.,0.,0.,0.,4490.,4500.,0.,0.,0.,0.,0.,0.,4500.,
- 4510.,0.,0.,0.,0.,0.,0.,4510.,4520.,0.,0.,0.,0.,0.,0.,4520.,4530.,
- 0.,0.,0.,0.,0.,0.,4530.,4540.,5.6586e-6,.058006,.021852,-1.003e-4,
- .018901,-9.4764e-5,4540.,4550.,6.0995e-5,.17176,.013472,
- -6.3857e-5,.010919,-6.1333e-5,4550.,4560.,1.6173e-4,.1827,
- .0055264,-3.3401e-5,.0025266,-2.8677e-5,4560.,4570.,1.342e-4,
- .18669,8.6662e-5,-1.2871e-5,-.0031886,-6.3395e-6,4570.,4580.,
- 7.7677e-6,.035973,-.0017804,3.5792e-6,-.004378,4.7097e-6,4580.,
- 4590.,2.1446e-4,.52918,-.0026414,1.9171e-8,-.0051868,3.1486e-6,
- 4590.,4600.,4.9732e-4,.19678,-.0015023,-6.4944e-6,-.0045248,
- -6.0552e-7,4600.,4610.,5.7844e-4,.21566,.0036076,-2.5498e-5,
- 6.874e-4,-2.1166e-5,4610.,4620.,1.836e-4,.19472,.010909,
- -4.5759e-5,.0094535,-5.3705e-5,4620.,4630.,2.1722e-5,.066168,
- .010212,2.4083e-5,.016411,-6.7231e-5,4630.,4640.,1.5836e-5,
- .0025231,-.0037387,1.6847e-6,-.0066855,7.7758e-6,4640.,4650.,
- 2.8194e-5,.055835,.011719,7.8341e-5,.028162,-6.5915e-5,4650.,
- 4660.,2.9246e-5,.15846,.033601,-1.2318e-4,.031988,-1.4227e-4,
- 4660.,4670.,6.866e-5,.23768,.030956,-1.3481e-4,.028087,-1.3066e-4,
- 4670.,4680.,2.5776e-5,.14238,.026879,-1.1219e-4,.025142,
- -1.1785e-4,4680.,4690.,6.7605e-5,.28782,.028103,-9.7067e-5,
- .028478,-1.1197e-4,4690.,4700.,9.4449e-5,.58934,.03528,-9.4266e-5,
- .037047,-1.3314e-4,4700.,4710.,2.1985e-4,.94207,.026856,1.5457e-5,
- .034398,-7.9603e-5,4710.,4720.,5.9268e-4,.92654,.019629,7.9413e-5,
- .02922,-3.244e-5,4720.,4730.,.001207,.99725,.019414,1.0014e-4,
- .026778,-2.2067e-5,4730.,4740.,.0022806,1.2176,.028561,-2.1574e-5,
- .030485,-7.5567e-5,4740.,4750.,.0043327,1.3486,.028595,-6.6405e-5,
- .027851,-7.4726e-5,4750.,4760.,.0077428,1.4486,.030758,-1.1612e-4,
- .029991,-1.2747e-4,4760.,4770.,.025636,1.0146,.025412,-1.0692e-4,
- .02508,-1.0479e-4,4770.,4780.,.071004,.80049,.019034,-8.2075e-5,
- .019591,-8.1415e-5,4780.,4790.,.12168,.79844,.014488,-6.4424e-5,
- .0152,-5.8903e-5,4790.,4800.,.076746,1.2201,.015267,-5.7662e-5,
- .014334,-5.5273e-5,4800.,4810.,.25656,.72698,.012794,-6.0697e-5,
- .011343,-5.448e-5,4810.,4820.,.71618,.47943,.0075299,-3.4485e-5,
- .0086269,-4.1288e-5,4820.,4830.,1.9439,.28552,6.0337e-4,
- -1.0585e-5,.0017705,-3.3465e-6,4830.,4840.,2.2409,.24124,
- -.0032243,7.7209e-7,-.0036357,1.7134e-5,4840.,4850.,1.023,.23661,
- -.0044285,5.6593e-6,-.0054571,1.8603e-5,4850.,4860.,2.9838,.24972,
- -.0026005,-2.2445e-6,-.0048507,6.708e-6,4860.,4870.,1.7331,.24569,
- .002513,-2.0912e-5,9.7879e-5,-1.4658e-5,4870.,4880.,.23009,.24263,
- .012134,-5.5883e-5,.011873,-4.6579e-5,4880.,4890.,.0073766,.50576,
- .021012,1.3113e-5,.033128,-7.4753e-5,4890.,4900.,.0053301,1.1415,
- .02315,8.1743e-5,.032613,-4.9011e-5,4900.,4910.,.019881,1.1163,
- .030658,-8.9121e-5,.031493,-1.049e-4,4910.,4920.,.13274,.8018,
- .023959,-9.6864e-5,.026465,-1.057e-4,4920.,4930.,.54198,.58029,
- .016095,-6.7361e-5,.019209,-7.4544e-5,4930.,4940.,2.3931,.43634,
- .0083244,-3.8869e-5,.01091,-4.0486e-5,4940.,4950.,6.364,.38463,
- .0024225,-1.7014e-5,.0051156,-1.3677e-5,4950.,4960.,11.174,.37051,
- -.0020924,-1.8861e-6,1.9797e-4,8.4038e-6,4960.,4970.,4.7425,.4397,
- -.0023967,1.1771e-5,.0015888,1.1027e-5,4970.,4980.,13.215,.42301,
- -.002886,4.5346e-6,-.0018435,1.2941e-5,4980.,4990.,10.682,.28898,
- 9.1279e-4,-1.3741e-5,2.9048e-4,-3.723e-6,4990.,5e3,1.9873,.27401,
- .0096347,-4.5675e-5,.0089294,-4.3606e-5,5e3,5010.,.025245,.25842,
- .027802,-1.1266e-4,.028517,-1.1312e-4,5010.,5020.,.0010773,.39566,
- .019467,-9.0504e-6,.021521,-4.662e-5,5020.,5030.,.0026445,.46517,
- .022864,-5.1981e-6,.021923,-4.8242e-5,5030.,5040.,.0089353,.34218,
- .025304,-8.7147e-5,.020721,-6.3342e-5,5040.,5050.,.066176,.21908,
- .017982,-8.0841e-5,.017736,-7.414e-5,5050.,5060. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* carbon dioxide (2500 - 5050 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* dica1_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DICA1.f b/Modules/ThirdParty/6S/src/6SV1.0B/DICA1.f
deleted file mode 100644
index 8ae6c32..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DICA1.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine dica1(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c carbon dioxide (2500 - 5050 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.11446e-04, 0.20117e-02,-0.41334e-02, 0.32304e-05,-0.69982e-02,
- a 0.90084e-05, 0.25000e+04, 0.25100e+04,
- a 0.19234e-04, 0.19311e-02,-0.17326e-02,-0.58646e-05,-0.45311e-02,
- a-0.60352e-06, 0.25100e+04, 0.25200e+04,
- a 0.92020e-05, 0.17952e-02, 0.34861e-02,-0.25260e-04, 0.58777e-03,
- a-0.20915e-04, 0.25200e+04, 0.25300e+04,
- a 0.16374e-05, 0.18281e-02, 0.10418e-01,-0.43535e-04, 0.74404e-02,
- a-0.41207e-04, 0.25300e+04, 0.25400e+04,
- a 0.19079e-06, 0.10034e-02, 0.11048e-01,-0.97390e-05, 0.10458e-01,
- a-0.37165e-04, 0.25400e+04, 0.25500e+04,
- a 0.34315e-08, 0.24238e-04, 0.54443e-02,-0.35215e-04, 0.21600e-02,
- a-0.28602e-04, 0.25500e+04, 0.25600e+04,
- a 0.82488e-08, 0.12211e-03, 0.26474e-01,-0.11937e-03, 0.23595e-01,
- a-0.11358e-03, 0.25600e+04, 0.25700e+04,
- a 0.64587e-06, 0.14539e-02, 0.17175e-01,-0.77312e-04, 0.15125e-01,
- a-0.76621e-04, 0.25700e+04, 0.25800e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.54268e-05, 0.15777e-02, 0.78126e-02,-0.42151e-04, 0.51843e-02,
- a-0.39096e-04, 0.25800e+04, 0.25900e+04,
- a 0.20993e-04, 0.24666e-02, 0.15156e-02,-0.14469e-04, 0.14551e-02,
- a-0.12874e-04, 0.25900e+04, 0.26000e+04,
- a 0.31892e-04, 0.32261e-02,-0.24271e-02, 0.14275e-05,-0.24514e-02,
- a 0.25977e-05, 0.26000e+04, 0.26100e+04,
- a 0.11919e-04, 0.29607e-02,-0.37722e-02, 0.72919e-05,-0.40640e-02,
- a 0.74420e-05, 0.26100e+04, 0.26200e+04,
- a 0.35396e-04, 0.31915e-02,-0.24421e-02,-0.54413e-06,-0.29857e-02,
- a 0.77772e-06, 0.26200e+04, 0.26300e+04,
- a 0.22174e-04, 0.31839e-02, 0.22430e-02,-0.16625e-04, 0.17446e-02,
- a-0.17477e-04, 0.26300e+04, 0.26400e+04,
- a 0.49654e-05, 0.31706e-02, 0.96026e-02,-0.41529e-04, 0.87311e-02,
- a-0.44510e-04, 0.26400e+04, 0.26500e+04,
- a 0.59768e-06, 0.13719e-02, 0.76702e-02, 0.13005e-04, 0.90078e-02,
- a-0.24905e-04, 0.26500e+04, 0.26600e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.13394e-06, 0.32465e-03, 0.37114e-02,-0.26108e-04, 0.93326e-03,
- a-0.22404e-04, 0.26600e+04, 0.26700e+04,
- a 0.91010e-08, 0.71741e-04, 0.10072e-01,-0.53553e-04, 0.68917e-02,
- a-0.47305e-04, 0.26700e+04, 0.26800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26800e+04, 0.26900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26900e+04, 0.27000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27000e+04, 0.27100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27100e+04, 0.27200e+04,
- a 0.30498e-06, 0.12211e-02, 0.11385e-01,-0.57015e-04, 0.86760e-02,
- a-0.53344e-04, 0.27200e+04, 0.27300e+04,
- a 0.23044e-05, 0.18735e-02, 0.31625e-02,-0.23857e-04, 0.42583e-03,
- a-0.20332e-04, 0.27300e+04, 0.27400e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.45870e-05, 0.20082e-02,-0.21166e-02,-0.43444e-05,-0.48776e-02,
- a 0.87140e-06, 0.27400e+04, 0.27500e+04,
- a 0.18151e-05, 0.17780e-02,-0.43591e-02, 0.39928e-05,-0.74161e-02,
- a 0.10271e-04, 0.27500e+04, 0.27600e+04,
- a 0.43155e-05, 0.21845e-02,-0.35667e-02, 0.10325e-05,-0.64484e-02,
- a 0.69079e-05, 0.27600e+04, 0.27700e+04,
- a 0.35601e-05, 0.15853e-02,-0.24397e-03,-0.11623e-04,-0.30932e-02,
- a-0.66664e-05, 0.27700e+04, 0.27800e+04,
- a 0.14023e-05, 0.17421e-02, 0.52527e-02,-0.31584e-04, 0.22672e-02,
- a-0.26978e-04, 0.27800e+04, 0.27900e+04,
- a 0.19517e-06, 0.10843e-02, 0.11752e-01,-0.50614e-04, 0.90578e-02,
- a-0.50929e-04, 0.27900e+04, 0.28000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28000e+04, 0.28100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28100e+04, 0.28200e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28200e+04, 0.28300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28300e+04, 0.28400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28400e+04, 0.28500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28500e+04, 0.28600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28600e+04, 0.28700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28700e+04, 0.28800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28800e+04, 0.28900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28900e+04, 0.29000e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29000e+04, 0.29100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29100e+04, 0.29200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29200e+04, 0.29300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29300e+04, 0.29400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29400e+04, 0.29500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29500e+04, 0.29600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29600e+04, 0.29700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29700e+04, 0.29800e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29800e+04, 0.29900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29900e+04, 0.30000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30000e+04, 0.30100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30100e+04, 0.30200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30200e+04, 0.30300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30300e+04, 0.30400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30400e+04, 0.30500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30500e+04, 0.30600e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30600e+04, 0.30700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30700e+04, 0.30800e+04,
- a 0.33052e-05, 0.58651e-01, 0.34989e-01,-0.15290e-03, 0.31987e-01,
- a-0.14721e-03, 0.30800e+04, 0.30900e+04,
- a 0.41503e-04, 0.20207e+00, 0.26206e-01,-0.11436e-03, 0.23672e-01,
- a-0.11213e-03, 0.30900e+04, 0.31000e+04,
- a 0.87906e-04, 0.21783e+00, 0.18422e-01,-0.85123e-04, 0.15304e-01,
- a-0.79850e-04, 0.31000e+04, 0.31100e+04,
- a 0.29489e-04, 0.12859e+00, 0.14066e-01,-0.69404e-04, 0.11044e-01,
- a-0.63254e-04, 0.31100e+04, 0.31200e+04,
- a 0.31118e-04, 0.29810e+00, 0.25033e-01,-0.11155e-03, 0.22143e-01,
- a-0.10719e-03, 0.31200e+04, 0.31300e+04,
- a 0.14832e-03, 0.71060e+00, 0.18309e-01,-0.70285e-04, 0.15857e-01,
- a-0.73742e-04, 0.31300e+04, 0.31400e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.50912e-03, 0.39631e+00, 0.16927e-01,-0.77076e-04, 0.14306e-01,
- a-0.74481e-04, 0.31400e+04, 0.31500e+04,
- a 0.18569e-02, 0.28375e+00, 0.76498e-02,-0.36249e-04, 0.67089e-02,
- a-0.36791e-04, 0.31500e+04, 0.31600e+04,
- a 0.23217e-02, 0.34970e+00, 0.10351e-02,-0.10688e-04, 0.94905e-03,
- a-0.67349e-05, 0.31600e+04, 0.31700e+04,
- a 0.47610e-03, 0.41947e+00, 0.19347e-02, 0.16317e-04, 0.33594e-02,
- a-0.79441e-05, 0.31700e+04, 0.31800e+04,
- a 0.46778e-03, 0.77616e+00, 0.79129e-03, 0.23675e-04, 0.91006e-03,
- a 0.48023e-05, 0.31800e+04, 0.31900e+04,
- a 0.30862e-02, 0.25667e+00,-0.14396e-02,-0.41338e-05,-0.27351e-02,
- a 0.64924e-05, 0.31900e+04, 0.32000e+04,
- a 0.34062e-02, 0.18499e+00, 0.32590e-02,-0.24779e-04, 0.21425e-03,
- a-0.19664e-04, 0.32000e+04, 0.32100e+04,
- a 0.14366e-02, 0.17452e+00, 0.10436e-01,-0.52210e-04, 0.77713e-02,
- a-0.49107e-04, 0.32100e+04, 0.32200e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.26116e-03, 0.16068e+00, 0.20114e-01,-0.89663e-04, 0.17964e-01,
- a-0.88666e-04, 0.32200e+04, 0.32300e+04,
- a 0.34080e-04, 0.26237e+00, 0.31854e-01,-0.13724e-03, 0.29565e-01,
- a-0.13533e-03, 0.32300e+04, 0.32400e+04,
- a 0.38044e-04, 0.18154e+00, 0.23462e-01,-0.10477e-03, 0.20484e-01,
- a-0.10031e-03, 0.32400e+04, 0.32500e+04,
- a 0.23642e-04, 0.12587e+00, 0.17930e-01,-0.83993e-04, 0.14725e-01,
- a-0.78063e-04, 0.32500e+04, 0.32600e+04,
- a 0.13555e-05, 0.21856e-02, 0.43607e-02,-0.29254e-04, 0.12372e-02,
- a-0.24119e-04, 0.32600e+04, 0.32700e+04,
- a 0.35631e-03, 0.86373e+00, 0.15491e-01,-0.60741e-04, 0.14051e-01,
- a-0.61126e-04, 0.32700e+04, 0.32800e+04,
- a 0.33068e-03, 0.41597e+00, 0.17080e-01,-0.45243e-04, 0.18249e-01,
- a-0.61327e-04, 0.32800e+04, 0.32900e+04,
- a 0.13980e-02, 0.43415e+00, 0.20779e-01,-0.87100e-04, 0.19046e-01,
- a-0.84016e-04, 0.32900e+04, 0.33000e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.54038e-02, 0.37316e+00, 0.13012e-01,-0.54513e-04, 0.14582e-01,
- a-0.61135e-04, 0.33000e+04, 0.33100e+04,
- a 0.11865e-01, 0.37215e+00, 0.53330e-02,-0.24891e-04, 0.77872e-02,
- a-0.23154e-04, 0.33100e+04, 0.33200e+04,
- a 0.81717e-02, 0.45864e+00, 0.70369e-03,-0.25399e-05, 0.32045e-02,
- a-0.21463e-05, 0.33200e+04, 0.33300e+04,
- a 0.67313e-02, 0.55963e+00,-0.20245e-02, 0.26702e-05,-0.24299e-02,
- a 0.17770e-04, 0.33300e+04, 0.33400e+04,
- a 0.13254e-01, 0.74729e+00,-0.18150e-02, 0.54501e-05, 0.13181e-02,
- a-0.43636e-06, 0.33400e+04, 0.33500e+04,
- a 0.36823e-01, 0.36421e+00,-0.20100e-03,-0.58593e-05, 0.13324e-02,
- a-0.23987e-05, 0.33500e+04, 0.33600e+04,
- a 0.35439e-01, 0.40306e+00, 0.54434e-02,-0.26546e-04, 0.67677e-02,
- a-0.28288e-04, 0.33600e+04, 0.33700e+04,
- a 0.90957e-02, 0.48115e+00, 0.14512e-01,-0.61088e-04, 0.16771e-01,
- a-0.65673e-04, 0.33700e+04, 0.33800e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.15199e-02, 0.65754e+00, 0.23451e-01,-0.86000e-04, 0.24073e-01,
- a-0.89238e-04, 0.33800e+04, 0.33900e+04,
- a 0.13838e-03, 0.96599e+00, 0.27438e-01,-0.37378e-04, 0.26069e-01,
- a-0.72896e-04, 0.33900e+04, 0.34000e+04,
- a 0.31321e-03, 0.32432e+00, 0.14691e-01,-0.45546e-04, 0.17860e-01,
- a-0.40560e-04, 0.34000e+04, 0.34100e+04,
- a 0.96318e-03, 0.34642e+00, 0.17708e-01,-0.66986e-04, 0.20408e-01,
- a-0.53348e-04, 0.34100e+04, 0.34200e+04,
- a 0.61782e-03, 0.30724e+00, 0.25990e-01,-0.89579e-04, 0.25999e-01,
- a-0.98228e-04, 0.34200e+04, 0.34300e+04,
- a 0.40506e-03, 0.30755e+00, 0.38698e-01,-0.16162e-03, 0.35406e-01,
- a-0.15721e-03, 0.34300e+04, 0.34400e+04,
- a 0.11183e-02, 0.23650e+00, 0.34497e-01,-0.14952e-03, 0.32465e-01,
- a-0.14642e-03, 0.34400e+04, 0.34500e+04,
- a 0.18653e-02, 0.34796e+00, 0.29814e-01,-0.12999e-03, 0.26883e-01,
- a-0.12450e-03, 0.34500e+04, 0.34600e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.35542e-02, 0.40556e+00, 0.17369e-01,-0.57102e-04, 0.19546e-01,
- a-0.46731e-04, 0.34600e+04, 0.34700e+04,
- a 0.90605e-02, 0.50199e+00, 0.12281e-01, 0.23330e-06, 0.19920e-01,
- a 0.27162e-04, 0.34700e+04, 0.34800e+04,
- a 0.84210e-02, 0.71350e+00, 0.11986e-01, 0.73480e-04, 0.24636e-01,
- a 0.81574e-04, 0.34800e+04, 0.34900e+04,
- a 0.60886e-02, 0.96120e+00, 0.23574e-01, 0.10867e-03, 0.44783e-01,
- a-0.72014e-04, 0.34900e+04, 0.35000e+04,
- a 0.35622e-01, 0.16535e+01, 0.12077e-01, 0.13532e-03, 0.22120e-01,
- a 0.80854e-04, 0.35000e+04, 0.35100e+04,
- a 0.78238e-01, 0.13688e+01, 0.16785e-01, 0.14511e-03, 0.32327e-01,
- a-0.12296e-04, 0.35100e+04, 0.35200e+04,
- a 0.17292e+00, 0.16314e+01, 0.28411e-01,-0.40866e-05, 0.33279e-01,
- a-0.83910e-04, 0.35200e+04, 0.35300e+04,
- a 0.58094e+00, 0.14177e+01, 0.30478e-01,-0.92280e-04, 0.32074e-01,
- a-0.11676e-03, 0.35300e+04, 0.35400e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.19973e+01, 0.10662e+01, 0.26332e-01,-0.10563e-03, 0.27668e-01,
- a-0.10860e-03, 0.35400e+04, 0.35500e+04,
- a 0.58904e+01, 0.85364e+00, 0.20626e-01,-0.87922e-04, 0.22034e-01,
- a-0.87919e-04, 0.35500e+04, 0.35600e+04,
- a 0.16608e+02, 0.82681e+00, 0.16296e-01,-0.71970e-04, 0.16508e-01,
- a-0.68914e-04, 0.35600e+04, 0.35700e+04,
- a 0.33940e+02, 0.67293e+00, 0.11756e-01,-0.55546e-04, 0.12667e-01,
- a-0.50727e-04, 0.35700e+04, 0.35800e+04,
- a 0.10589e+03, 0.40519e+00, 0.53354e-02,-0.30500e-04, 0.64200e-02,
- a-0.27269e-04, 0.35800e+04, 0.35900e+04,
- a 0.28658e+03, 0.37875e+00, 0.31591e-03,-0.76033e-05, 0.17571e-02,
- a-0.69331e-05, 0.35900e+04, 0.36000e+04,
- a 0.25881e+03, 0.31632e+00,-0.31299e-02, 0.53577e-05,-0.14554e-02,
- a 0.16811e-04, 0.36000e+04, 0.36100e+04,
- a 0.15398e+03, 0.23899e+00,-0.42487e-02, 0.56295e-05,-0.38259e-02,
- a 0.28640e-04, 0.36100e+04, 0.36200e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.38154e+03, 0.23690e+00,-0.21079e-02,-0.42102e-05,-0.46108e-02,
- a 0.46494e-05, 0.36200e+04, 0.36300e+04,
- a 0.18908e+03, 0.24104e+00, 0.34870e-02,-0.24525e-04, 0.12111e-02,
- a-0.18690e-04, 0.36300e+04, 0.36400e+04,
- a 0.22631e+02, 0.27596e+00, 0.13843e-01,-0.60817e-04, 0.13983e-01,
- a-0.55436e-04, 0.36400e+04, 0.36500e+04,
- a 0.78900e+00, 0.45834e+00, 0.28800e-01,-0.92261e-04, 0.33526e-01,
- a-0.11634e-03, 0.36500e+04, 0.36600e+04,
- a 0.35516e+01, 0.24747e+00, 0.21606e-01,-0.91483e-04, 0.25091e-01,
- a-0.77825e-04, 0.36600e+04, 0.36700e+04,
- a 0.26382e+02, 0.26344e+00, 0.13128e-01,-0.59351e-04, 0.15813e-01,
- a-0.45315e-04, 0.36700e+04, 0.36800e+04,
- a 0.11451e+03, 0.25517e+00, 0.61726e-02,-0.32903e-04, 0.88361e-02,
- a-0.18560e-04, 0.36800e+04, 0.36900e+04,
- a 0.37587e+03, 0.29958e+00, 0.61303e-03,-0.10823e-04, 0.25691e-02,
- a 0.25921e-05, 0.36900e+04, 0.37000e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.39912e+03, 0.32406e+00,-0.24055e-02, 0.34271e-05, 0.83356e-03,
- a 0.14624e-04, 0.37000e+04, 0.37100e+04,
- a 0.20970e+03, 0.49024e+00,-0.29825e-02, 0.11251e-04, 0.98088e-03,
- a 0.17825e-04, 0.37100e+04, 0.37200e+04,
- a 0.65186e+03, 0.43325e+00,-0.25584e-02,-0.74576e-06,-0.13717e-02,
- a 0.11441e-04, 0.37200e+04, 0.37300e+04,
- a 0.36094e+03, 0.49364e+00, 0.33219e-02,-0.19819e-04, 0.45993e-02,
- a-0.18704e-04, 0.37300e+04, 0.37400e+04,
- a 0.57048e+02, 0.71411e+00, 0.13964e-01,-0.58323e-04, 0.15441e-01,
- a-0.65072e-04, 0.37400e+04, 0.37500e+04,
- a 0.16419e+01, 0.94961e+00, 0.31167e-01,-0.12796e-03, 0.32530e-01,
- a-0.13294e-03, 0.37500e+04, 0.37600e+04,
- a 0.72097e-02, 0.71242e+00, 0.53044e-01,-0.21219e-03, 0.55695e-01,
- a-0.22364e-03, 0.37600e+04, 0.37700e+04,
- a 0.32929e-03, 0.16488e+00, 0.43688e-01,-0.18453e-03, 0.42346e-01,
- a-0.18165e-03, 0.37700e+04, 0.37800e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.14501e-02, 0.17127e+00, 0.36748e-01,-0.15788e-03, 0.35331e-01,
- a-0.15240e-03, 0.37800e+04, 0.37900e+04,
- a 0.47585e-02, 0.19488e+00, 0.31054e-01,-0.13640e-03, 0.28516e-01,
- a-0.13041e-03, 0.37900e+04, 0.38000e+04,
- a 0.56312e-02, 0.21780e+00, 0.27563e-01,-0.12299e-03, 0.25360e-01,
- a-0.11514e-03, 0.38000e+04, 0.38100e+04,
- a 0.25663e-02, 0.23975e+00, 0.26455e-01,-0.11697e-03, 0.25771e-01,
- a-0.10379e-03, 0.38100e+04, 0.38200e+04,
- a 0.73473e-02, 0.26110e+00, 0.28264e-01,-0.12512e-03, 0.26543e-01,
- a-0.11735e-03, 0.38200e+04, 0.38300e+04,
- a 0.41625e-02, 0.30640e+00, 0.33500e-01,-0.14328e-03, 0.32396e-01,
- a-0.14197e-03, 0.38300e+04, 0.38400e+04,
- a 0.62707e-03, 0.49963e+00, 0.42723e-01,-0.17265e-03, 0.41198e-01,
- a-0.17864e-03, 0.38400e+04, 0.38500e+04,
- a 0.52281e-04, 0.44300e+00, 0.41789e-01,-0.13546e-03, 0.41381e-01,
- a-0.16812e-03, 0.38500e+04, 0.38600e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.11349e-03, 0.48522e+00, 0.40194e-01,-0.13982e-03, 0.39090e-01,
- a-0.16958e-03, 0.38600e+04, 0.38700e+04,
- a 0.11733e-03, 0.49615e+00, 0.44541e-01,-0.16207e-03, 0.43254e-01,
- a-0.18688e-03, 0.38700e+04, 0.38800e+04,
- a 0.21994e-04, 0.36694e+00, 0.51435e-01,-0.17841e-03, 0.51058e-01,
- a-0.21620e-03, 0.38800e+04, 0.38900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.38900e+04, 0.39000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39000e+04, 0.39100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39100e+04, 0.39200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39200e+04, 0.39300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39300e+04, 0.39400e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.10712e-04, 0.11242e+00, 0.38222e-01,-0.16405e-03, 0.35612e-01,
- a-0.16058e-03, 0.39400e+04, 0.39500e+04,
- a 0.22260e-04, 0.88337e-01, 0.32098e-01,-0.14078e-03, 0.29142e-01,
- a-0.13560e-03, 0.39500e+04, 0.39600e+04,
- a 0.60145e-04, 0.12150e+00, 0.26140e-01,-0.11441e-03, 0.23109e-01,
- a-0.11010e-03, 0.39600e+04, 0.39700e+04,
- a 0.11812e-03, 0.53380e+00, 0.23839e-01,-0.96178e-04, 0.23506e-01,
- a-0.10676e-03, 0.39700e+04, 0.39800e+04,
- a 0.61200e-04, 0.32611e+00, 0.20895e-01,-0.76119e-04, 0.20369e-01,
- a-0.87589e-04, 0.39800e+04, 0.39900e+04,
- a 0.30190e-03, 0.84191e+00, 0.24861e-01,-0.93520e-04, 0.24385e-01,
- a-0.10546e-03, 0.39900e+04, 0.40000e+04,
- a 0.13735e-02, 0.67580e+00, 0.14099e-01,-0.64565e-04, 0.11933e-01,
- a-0.57363e-04, 0.40000e+04, 0.40100e+04,
- a 0.17095e-02, 0.28901e+00, 0.13726e-01,-0.67497e-04, 0.10543e-01,
- a-0.60960e-04, 0.40100e+04, 0.40200e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.20687e-02, 0.45821e+00, 0.21277e-01,-0.86802e-04, 0.20845e-01,
- a-0.90012e-04, 0.40200e+04, 0.40300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40300e+04, 0.40400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40400e+04, 0.40500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40500e+04, 0.40600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40600e+04, 0.40700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40700e+04, 0.40800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40800e+04, 0.40900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40900e+04, 0.41000e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41000e+04, 0.41100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41100e+04, 0.41200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41200e+04, 0.41300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41300e+04, 0.41400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41400e+04, 0.41500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41500e+04, 0.41600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41600e+04, 0.41700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41700e+04, 0.41800e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41800e+04, 0.41900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41900e+04, 0.42000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42000e+04, 0.42100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42100e+04, 0.42200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42200e+04, 0.42300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42300e+04, 0.42400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42400e+04, 0.42500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42500e+04, 0.42600e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42600e+04, 0.42700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42700e+04, 0.42800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42800e+04, 0.42900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42900e+04, 0.43000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43000e+04, 0.43100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43100e+04, 0.43200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43200e+04, 0.43300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43300e+04, 0.43400e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43400e+04, 0.43500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43500e+04, 0.43600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43600e+04, 0.43700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43700e+04, 0.43800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43800e+04, 0.43900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43900e+04, 0.44000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44000e+04, 0.44100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44100e+04, 0.44200e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.26290e-04, 0.99522e-01,-0.26652e-02,-0.26042e-05,-0.55447e-02,
- a 0.32186e-05, 0.44200e+04, 0.44300e+04,
- a 0.80883e-04, 0.18978e+00, 0.57466e-03,-0.14607e-04,-0.25665e-02,
- a-0.87838e-05, 0.44300e+04, 0.44400e+04,
- a 0.55260e-04, 0.18005e+00, 0.65537e-02,-0.37323e-04, 0.36814e-02,
- a-0.33174e-04, 0.44400e+04, 0.44500e+04,
- a 0.82550e-05, 0.59910e-01, 0.12867e-01,-0.64515e-04, 0.97575e-02,
- a-0.58512e-04, 0.44500e+04, 0.44600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44600e+04, 0.44700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44700e+04, 0.44800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44800e+04, 0.44900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44900e+04, 0.45000e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45000e+04, 0.45100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45100e+04, 0.45200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45200e+04, 0.45300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45300e+04, 0.45400e+04,
- a 0.56586e-05, 0.58006e-01, 0.21852e-01,-0.10030e-03, 0.18901e-01,
- a-0.94764e-04, 0.45400e+04, 0.45500e+04,
- a 0.60995e-04, 0.17176e+00, 0.13472e-01,-0.63857e-04, 0.10919e-01,
- a-0.61333e-04, 0.45500e+04, 0.45600e+04,
- a 0.16173e-03, 0.18270e+00, 0.55264e-02,-0.33401e-04, 0.25266e-02,
- a-0.28677e-04, 0.45600e+04, 0.45700e+04,
- a 0.13420e-03, 0.18669e+00, 0.86662e-04,-0.12871e-04,-0.31886e-02,
- a-0.63395e-05, 0.45700e+04, 0.45800e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.77677e-05, 0.35973e-01,-0.17804e-02, 0.35792e-05,-0.43780e-02,
- a 0.47097e-05, 0.45800e+04, 0.45900e+04,
- a 0.21446e-03, 0.52918e+00,-0.26414e-02, 0.19171e-07,-0.51868e-02,
- a 0.31486e-05, 0.45900e+04, 0.46000e+04,
- a 0.49732e-03, 0.19678e+00,-0.15023e-02,-0.64944e-05,-0.45248e-02,
- a-0.60552e-06, 0.46000e+04, 0.46100e+04,
- a 0.57844e-03, 0.21566e+00, 0.36076e-02,-0.25498e-04, 0.68740e-03,
- a-0.21166e-04, 0.46100e+04, 0.46200e+04,
- a 0.18360e-03, 0.19472e+00, 0.10909e-01,-0.45759e-04, 0.94535e-02,
- a-0.53705e-04, 0.46200e+04, 0.46300e+04,
- a 0.21722e-04, 0.66168e-01, 0.10212e-01, 0.24083e-04, 0.16411e-01,
- a-0.67231e-04, 0.46300e+04, 0.46400e+04,
- a 0.15836e-04, 0.25231e-02,-0.37387e-02, 0.16847e-05,-0.66855e-02,
- a 0.77758e-05, 0.46400e+04, 0.46500e+04,
- a 0.28194e-04, 0.55835e-01, 0.11719e-01, 0.78341e-04, 0.28162e-01,
- a-0.65915e-04, 0.46500e+04, 0.46600e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.29246e-04, 0.15846e+00, 0.33601e-01,-0.12318e-03, 0.31988e-01,
- a-0.14227e-03, 0.46600e+04, 0.46700e+04,
- a 0.68660e-04, 0.23768e+00, 0.30956e-01,-0.13481e-03, 0.28087e-01,
- a-0.13066e-03, 0.46700e+04, 0.46800e+04,
- a 0.25776e-04, 0.14238e+00, 0.26879e-01,-0.11219e-03, 0.25142e-01,
- a-0.11785e-03, 0.46800e+04, 0.46900e+04,
- a 0.67605e-04, 0.28782e+00, 0.28103e-01,-0.97067e-04, 0.28478e-01,
- a-0.11197e-03, 0.46900e+04, 0.47000e+04,
- a 0.94449e-04, 0.58934e+00, 0.35280e-01,-0.94266e-04, 0.37047e-01,
- a-0.13314e-03, 0.47000e+04, 0.47100e+04,
- a 0.21985e-03, 0.94207e+00, 0.26856e-01, 0.15457e-04, 0.34398e-01,
- a-0.79603e-04, 0.47100e+04, 0.47200e+04,
- a 0.59268e-03, 0.92654e+00, 0.19629e-01, 0.79413e-04, 0.29220e-01,
- a-0.32440e-04, 0.47200e+04, 0.47300e+04,
- a 0.12070e-02, 0.99725e+00, 0.19414e-01, 0.10014e-03, 0.26778e-01,
- a-0.22067e-04, 0.47300e+04, 0.47400e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.22806e-02, 0.12176e+01, 0.28561e-01,-0.21574e-04, 0.30485e-01,
- a-0.75567e-04, 0.47400e+04, 0.47500e+04,
- a 0.43327e-02, 0.13486e+01, 0.28595e-01,-0.66405e-04, 0.27851e-01,
- a-0.74726e-04, 0.47500e+04, 0.47600e+04,
- a 0.77428e-02, 0.14486e+01, 0.30758e-01,-0.11612e-03, 0.29991e-01,
- a-0.12747e-03, 0.47600e+04, 0.47700e+04,
- a 0.25636e-01, 0.10146e+01, 0.25412e-01,-0.10692e-03, 0.25080e-01,
- a-0.10479e-03, 0.47700e+04, 0.47800e+04,
- a 0.71004e-01, 0.80049e+00, 0.19034e-01,-0.82075e-04, 0.19591e-01,
- a-0.81415e-04, 0.47800e+04, 0.47900e+04,
- a 0.12168e+00, 0.79844e+00, 0.14488e-01,-0.64424e-04, 0.15200e-01,
- a-0.58903e-04, 0.47900e+04, 0.48000e+04,
- a 0.76746e-01, 0.12201e+01, 0.15267e-01,-0.57662e-04, 0.14334e-01,
- a-0.55273e-04, 0.48000e+04, 0.48100e+04,
- a 0.25656e+00, 0.72698e+00, 0.12794e-01,-0.60697e-04, 0.11343e-01,
- a-0.54480e-04, 0.48100e+04, 0.48200e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.71618e+00, 0.47943e+00, 0.75299e-02,-0.34485e-04, 0.86269e-02,
- a-0.41288e-04, 0.48200e+04, 0.48300e+04,
- a 0.19439e+01, 0.28552e+00, 0.60337e-03,-0.10585e-04, 0.17705e-02,
- a-0.33465e-05, 0.48300e+04, 0.48400e+04,
- a 0.22409e+01, 0.24124e+00,-0.32243e-02, 0.77209e-06,-0.36357e-02,
- a 0.17134e-04, 0.48400e+04, 0.48500e+04,
- a 0.10230e+01, 0.23661e+00,-0.44285e-02, 0.56593e-05,-0.54571e-02,
- a 0.18603e-04, 0.48500e+04, 0.48600e+04,
- a 0.29838e+01, 0.24972e+00,-0.26005e-02,-0.22445e-05,-0.48507e-02,
- a 0.67080e-05, 0.48600e+04, 0.48700e+04,
- a 0.17331e+01, 0.24569e+00, 0.25130e-02,-0.20912e-04, 0.97879e-04,
- a-0.14658e-04, 0.48700e+04, 0.48800e+04,
- a 0.23009e+00, 0.24263e+00, 0.12134e-01,-0.55883e-04, 0.11873e-01,
- a-0.46579e-04, 0.48800e+04, 0.48900e+04,
- a 0.73766e-02, 0.50576e+00, 0.21012e-01, 0.13113e-04, 0.33128e-01,
- a-0.74753e-04, 0.48900e+04, 0.49000e+04/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.53301e-02, 0.11415e+01, 0.23150e-01, 0.81743e-04, 0.32613e-01,
- a-0.49011e-04, 0.49000e+04, 0.49100e+04,
- a 0.19881e-01, 0.11163e+01, 0.30658e-01,-0.89121e-04, 0.31493e-01,
- a-0.10490e-03, 0.49100e+04, 0.49200e+04,
- a 0.13274e+00, 0.80180e+00, 0.23959e-01,-0.96864e-04, 0.26465e-01,
- a-0.10570e-03, 0.49200e+04, 0.49300e+04,
- a 0.54198e+00, 0.58029e+00, 0.16095e-01,-0.67361e-04, 0.19209e-01,
- a-0.74544e-04, 0.49300e+04, 0.49400e+04,
- a 0.23931e+01, 0.43634e+00, 0.83244e-02,-0.38869e-04, 0.10910e-01,
- a-0.40486e-04, 0.49400e+04, 0.49500e+04,
- a 0.63640e+01, 0.38463e+00, 0.24225e-02,-0.17014e-04, 0.51156e-02,
- a-0.13677e-04, 0.49500e+04, 0.49600e+04,
- a 0.11174e+02, 0.37051e+00,-0.20924e-02,-0.18861e-05, 0.19797e-03,
- a 0.84038e-05, 0.49600e+04, 0.49700e+04,
- a 0.47425e+01, 0.43970e+00,-0.23967e-02, 0.11771e-04, 0.15888e-02,
- a 0.11027e-04, 0.49700e+04, 0.49800e+04/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.13215e+02, 0.42301e+00,-0.28860e-02, 0.45346e-05,-0.18435e-02,
- a 0.12941e-04, 0.49800e+04, 0.49900e+04,
- a 0.10682e+02, 0.28898e+00, 0.91279e-03,-0.13741e-04, 0.29048e-03,
- a-0.37230e-05, 0.49900e+04, 0.50000e+04,
- a 0.19873e+01, 0.27401e+00, 0.96347e-02,-0.45675e-04, 0.89294e-02,
- a-0.43606e-04, 0.50000e+04, 0.50100e+04,
- a 0.25245e-01, 0.25842e+00, 0.27802e-01,-0.11266e-03, 0.28517e-01,
- a-0.11312e-03, 0.50100e+04, 0.50200e+04,
- a 0.10773e-02, 0.39566e+00, 0.19467e-01,-0.90504e-05, 0.21521e-01,
- a-0.46620e-04, 0.50200e+04, 0.50300e+04,
- a 0.26445e-02, 0.46517e+00, 0.22864e-01,-0.51981e-05, 0.21923e-01,
- a-0.48242e-04, 0.50300e+04, 0.50400e+04,
- a 0.89353e-02, 0.34218e+00, 0.25304e-01,-0.87147e-04, 0.20721e-01,
- a-0.63342e-04, 0.50400e+04, 0.50500e+04,
- a 0.66176e-01, 0.21908e+00, 0.17982e-01,-0.80841e-04, 0.17736e-01,
- a-0.74140e-04, 0.50500e+04, 0.50600e+04/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DICA1.h b/Modules/ThirdParty/6S/src/6SV1.0B/DICA1.h
deleted file mode 100644
index d9036be..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DICA1.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_dica1_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DICA2.P b/Modules/ThirdParty/6S/src/6SV1.0B/DICA2.P
deleted file mode 100644
index 60bce4d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DICA2.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int dica2_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DICA2.c b/Modules/ThirdParty/6S/src/6SV1.0B/DICA2.c
deleted file mode 100644
index 909f958..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DICA2.c
+++ /dev/null
@@ -1,300 +0,0 @@
-/* DICA2.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine dica2(a,inu) >*/
-/* Subroutine */ int dica2_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { .37011,.18132,.0098385,
- -4.992e-5,.0096965,-3.9497e-5,5060.,5070.,1.7202,.2316,.0029954,
- -2.2435e-5,.0029757,-9.2488e-6,5070.,5080.,3.3606,.25416,
- -.0016977,-4.0846e-6,-.0013656,1.1658e-5,5080.,5090.,1.8282,
- .30223,-.0032772,9.4805e-6,-5.335e-4,2.1209e-5,5090.,5100.,2.9024,
- .38026,-.0030989,7.2616e-6,-.001377,1.615e-5,5100.,5110.,4.2563,
- .41711,-1.4453e-4,-8.0697e-6,4.2978e-4,-2.7285e-6,5110.,5120.,
- 1.1106,.56558,.0071956,-3.6594e-5,.0079066,-3.7847e-5,5120.,5130.,
- .30634,.97715,.015099,-6.7211e-5,.015152,-6.5294e-5,5130.,5140.,
- .11213,.77801,.019757,-8.6279e-5,.020188,-8.4289e-5,5140.,5150.,
- .014584,1.0474,.030585,-1.2981e-4,.030136,-1.2999e-4,5150.,5160.,
- .001482,.96349,.039762,-1.6303e-4,.039329,-1.6879e-4,5160.,5170.,
- 7.185e-5,.75521,.050597,-1.9183e-4,.049189,-2.096e-4,5170.,5180.,
- 2.9909e-5,.14908,.03608,-1.1815e-4,.034793,-1.453e-4,5180.,5190.,
- 1.2504e-4,.18326,.032726,-1.4282e-4,.029813,-1.3805e-4,5190.,
- 5200.,2.1512e-4,.19978,.02843,-1.2662e-4,.025525,-1.2103e-4,5200.,
- 5210.,9.6169e-5,.20142,.026447,-1.1912e-4,.023511,-1.1308e-4,
- 5210.,5220.,1.9738e-4,.21048,.02716,-1.2182e-4,.024213,-1.1582e-4,
- 5220.,5230.,2.6384e-4,.44256,.028679,-1.144e-4,.024161,-1.056e-4,
- 5230.,5240.,3.6492e-4,.82665,.01703,-5.0383e-5,.015395,-5.7885e-5,
- 5240.,5250.,1.5039e-4,.27488,.013098,-6.1988e-5,.010623,
- -5.4594e-5,5250.,5260.,2.4449e-4,.45805,.01877,-8.2525e-5,.016371,
- -8.1515e-5,5260.,5270.,6.037e-5,.43685,.016157,-6.0387e-5,.013838,
- -6.3959e-5,5270.,5280.,4.5624e-4,1.0732,.012236,-4.3571e-5,
- .011139,-5.5369e-5,5280.,5290.,9.4288e-4,.71418,.0033079,
- -9.3343e-6,.0045345,-2.5858e-5,5290.,5300.,.0024083,.75842,
- .0033829,4.6857e-7,.0043964,-1.9712e-5,5300.,5310.,.011861,.7448,
- -.0016809,-1.8723e-6,-.0036883,4.435e-6,5310.,5320.,.005669,
- .26992,-.0026897,-1.9753e-6,-.0056893,3.9128e-6,5320.,5330.,
- .0043472,.36618,.0037666,-2.1625e-5,.0021182,-2.2907e-5,5330.,
- 5340.,6.5931e-5,.17111,.021978,-9.6238e-5,.020336,-9.699e-5,5340.,
- 5350.,0.,0.,0.,0.,0.,0.,5350.,5360.,0.,0.,0.,0.,0.,0.,5360.,5370.,
- 0.,0.,0.,0.,0.,0.,5370.,5380.,0.,0.,0.,0.,0.,0.,5380.,5390.,0.,0.,
- 0.,0.,0.,0.,5390.,5400.,0.,0.,0.,0.,0.,0.,5400.,5410.,0.,0.,0.,0.,
- 0.,0.,5410.,5420.,0.,0.,0.,0.,0.,0.,5420.,5430.,0.,0.,0.,0.,0.,0.,
- 5430.,5440.,0.,0.,0.,0.,0.,0.,5440.,5450.,0.,0.,0.,0.,0.,0.,5450.,
- 5460.,0.,0.,0.,0.,0.,0.,5460.,5470.,0.,0.,0.,0.,0.,0.,5470.,5480.,
- 0.,0.,0.,0.,0.,0.,5480.,5490.,0.,0.,0.,0.,0.,0.,5490.,5500.,0.,0.,
- 0.,0.,0.,0.,5500.,5510.,0.,0.,0.,0.,0.,0.,5510.,5520.,0.,0.,0.,0.,
- 0.,0.,5520.,5530.,0.,0.,0.,0.,0.,0.,5530.,5540.,0.,0.,0.,0.,0.,0.,
- 5540.,5550.,0.,0.,0.,0.,0.,0.,5550.,5560.,6.8899e-6,.12901,
- .032092,-1.4141e-4,.029106,-1.3565e-4,5560.,5570.,5.4438e-6,
- .10241,.030061,-1.3353e-4,.027225,-1.2783e-4,5570.,5580.,0.,0.,0.,
- 0.,0.,0.,5580.,5590.,1.3218e-5,.23142,.031168,-1.3734e-4,.028262,
- -1.3193e-4,5590.,5600.,0.,0.,0.,0.,0.,0.,5600.,5610.,0.,0.,0.,0.,
- 0.,0.,5610.,5620.,0.,0.,0.,0.,0.,0.,5620.,5630.,0.,0.,0.,0.,0.,0.,
- 5630.,5640.,0.,0.,0.,0.,0.,0.,5640.,5650.,3.3959e-6,.061663,
- .034194,-1.4999e-4,.031058,-1.438e-4,5650.,5660.,1.0828e-5,.12604,
- .03117,-1.3759e-4,.028105,-1.3178e-4,5660.,5670.,1.7083e-5,.16767,
- .028148,-1.2567e-4,.025263,-1.1999e-4,5670.,5680.,4.9699e-6,
- .072931,.026646,-1.1993e-4,.02372,-1.1402e-4,5680.,5690.,
- 3.2495e-5,.33854,.028198,-1.2521e-4,.025185,-1.1947e-4,5690.,
- 5700.,8.5544e-6,.12346,.03299,-1.4471e-4,.029937,-1.3907e-4,5700.,
- 5710.,0.,0.,0.,0.,0.,0.,5710.,5720.,0.,0.,0.,0.,0.,0.,5720.,5730.,
- 0.,0.,0.,0.,0.,0.,5730.,5740.,0.,0.,0.,0.,0.,0.,5740.,5750.,0.,0.,
- 0.,0.,0.,0.,5750.,5760.,0.,0.,0.,0.,0.,0.,5760.,5770.,0.,0.,0.,0.,
- 0.,0.,5770.,5780.,0.,0.,0.,0.,0.,0.,5780.,5790.,0.,0.,0.,0.,0.,0.,
- 5790.,5800.,0.,0.,0.,0.,0.,0.,5800.,5810.,0.,0.,0.,0.,0.,0.,5810.,
- 5820.,1.0801e-7,6.4763e-4,.00504,-3.331e-5,.0018319,-2.715e-5,
- 5820.,5830.,3.6558e-7,.0011712,.0012766,-1.7918e-5,-.0017271,
- -1.2476e-5,5830.,5840.,6.5048e-7,.0015865,-.0022804,-3.9603e-6,
- -.0050092,1.3558e-6,5840.,5850.,2.8928e-7,.0011091,-.0041564,
- 3.1815e-6,-.0071328,9.2288e-6,5850.,5860.,8.7451e-7,.0023908,
- -.003329,2.1406e-7,-.0062303,6.1286e-6,5860.,5870.,6.7089e-7,
- .0021602,.0012514,-1.6242e-5,-.0014507,-1.275e-5,5870.,5880.,0.,
- 0.,0.,0.,0.,0.,5880.,5890.,0.,0.,0.,0.,0.,0.,5890.,5900.,0.,0.,0.,
- 0.,0.,0.,5900.,5910.,0.,0.,0.,0.,0.,0.,5910.,5920.,1.7501e-8,
- 1.3034e-4,.0051578,-3.4109e-5,.0018735,-2.7495e-5,5920.,5930.,
- 6.9507e-7,.0034287,4.4624e-4,-1.3702e-5,-.0024553,-8.9919e-6,
- 5930.,5940.,7.8354e-7,.0027679,-.002211,-4.0762e-6,-.0050605,
- 1.5266e-6,5940.,5950.,1.7028e-5,.28847,.029444,-1.0994e-4,.027638,
- -1.257e-4,5950.,5960.,1.43e-5,.23307,.025314,-6.3115e-5,.025428,
- -1.0758e-4,5960.,5970.,2.9931e-5,.32693,.031262,-1.0549e-4,
- .030096,-1.315e-4,5970.,5980.,1.6591e-4,.85547,.027749,-1.2007e-4,
- .025471,-1.1947e-4,5980.,5990.,4.2245e-4,.43143,.020385,
- -9.2124e-5,.018281,-8.9908e-5,5990.,6e3,9.3274e-4,.46433,.015249,
- -7.1885e-5,.01312,-6.839e-5,6e3,6010.,7.0225e-4,.54757,.013086,
- -5.8065e-5,.011855,-5.6321e-5,6010.,6020.,6.928e-4,.65125,.013222,
- -5.6472e-5,.011874,-5.5027e-5,6020.,6030.,.0015664,.5897,.015019,
- -7.1875e-5,.012178,-6.7231e-5,6030.,6040.,.0038079,.38374,
- .0089238,-3.815e-5,.0095406,-4.6524e-5,6040.,6050.,.011401,.22142,
- .0011962,-1.4969e-5,5.0672e-4,-5.0173e-6,6050.,6060.,.015986,
- .20314,-.0028719,-1.5218e-6,-.0057785,4.2132e-6,6060.,6070.,
- .0065575,.20869,-.0045237,4.7582e-6,-.0074277,1.0726e-5,6070.,
- 6080.,.016542,.20732,-.0033062,1.2692e-7,-.0062117,5.9729e-6,
- 6080.,6090.,.0148,.21832,5.2489e-4,-1.4021e-5,-.002348,-9.405e-6,
- 6090.,6100.,.0037777,.221,.0079105,-4.1125e-5,.0056565,-3.9694e-5,
- 6100.,6110.,2.3785e-4,.20223,.019267,-7.498e-5,.018479,-8.4052e-5,
- 6110.,6120.,8.7992e-6,.013627,.0023267,9.2669e-5,.014502,
- 8.1104e-5,6120.,6130.,4.6902e-5,.41886,.0248,7.0996e-5,.036122,
- -1.3184e-4,6130.,6140.,1.7614e-4,.70325,.034157,-1.2548e-4,
- .032692,-1.4479e-4,6140.,6150.,5.1423e-4,.765,.030511,-1.3248e-4,
- .028126,-1.2927e-4,6150.,6160.,.0016425,.80783,.024399,-1.0406e-4,
- .023798,-1.0618e-4,6160.,6170.,.0047297,.7047,.018441,-8.1354e-5,
- .017633,-8.284e-5,6170.,6180.,.012112,.7774,.014404,-6.4815e-5,
- .014093,-6.4401e-5,6180.,6190.,.029946,.46202,.0077033,-3.8421e-5,
- .0091624,-3.7333e-5,6190.,6200.,.084779,.36412,.0025097,
- -1.7677e-5,.0033111,-1.9653e-5,6200.,6210.,.14928,.35083,
- -.0016626,6.5627e-7,-1.0556e-5,3.0708e-6,6210.,6220.,.055916,
- .2564,-.0037859,9.6465e-6,-4.846e-4,2.9685e-5,6220.,6230.,.14147,
- .24788,-.0037163,1.7896e-6,-.006379,1.0289e-5,6230.,6240.,.16605,
- .27773,3.1594e-4,-1.2404e-5,-.0024142,-8.6644e-6,6240.,6250.,
- .026015,.2642,.0096177,-4.5715e-5,.0081902,-4.718e-5,6250.,6260.,
- 3.4429e-4,.24315,.027429,-1.0196e-4,.028346,-1.1603e-4,6260.,
- 6270.,4.6627e-5,.19149,.036426,-1.3678e-4,.034831,-1.5131e-4,
- 6270.,6280.,2.1373e-4,.25683,.031955,-1.3913e-4,.029335,
- -1.3555e-4,6280.,6290.,.0013513,.24863,.022352,-9.6861e-5,.021515,
- -9.9991e-5,6290.,6300.,.0054489,.20135,.014377,-6.5562e-5,.015352,
- -6.4813e-5,6300.,6310.,.027679,.22784,.0074243,-3.7863e-5,
- .0085371,-3.3611e-5,6310.,6320.,.078593,.25925,.0020493,
- -1.5599e-5,.0043199,-6.7814e-6,6320.,6330.,.14691,.31965,
- -.0018417,-2.6752e-7,-4.3593e-4,7.2456e-6,6330.,6340.,.060904,
- .38372,-.0026072,1.0806e-5,3.4105e-5,6.1858e-6,6340.,6350.,.16958,
- .41812,-.0032411,1.9629e-6,-.0029726,8.5775e-6,6350.,6360.,.14604,
- .4663,.0014212,-1.3457e-5,.0019636,-1.361e-5,6360.,6370.,.031358,
- .68476,.010997,-4.6694e-5,.011746,-5.4252e-5,6370.,6380.,.0010642,
- .83438,.027721,-1.1549e-4,.027342,-1.2081e-4,6380.,6390.,
- 1.0993e-5,.084985,.011868,1.2012e-4,.014373,3.5831e-5,6390.,6400.,
- 6.8548e-5,.19065,-1.396e-4,-1.1926e-5,-.0033005,-5.8719e-6,6400.,
- 6410.,5.8606e-5,.18176,.0053969,-3.2912e-5,.0024598,-2.8413e-5,
- 6410.,6420.,1.3107e-5,.089518,.011918,-6.0253e-5,.0088864,
- -5.4787e-5,6420.,6430.,0.,0.,0.,0.,0.,0.,6430.,6440.,1.17e-5,
- .080752,.030987,-1.3581e-4,.028483,-1.3216e-4,6440.,6450.,
- 1.5147e-4,.133,.021388,-9.5943e-5,.019129,-9.4039e-5,6450.,6460.,
- .0010569,.14161,.012722,-6.2067e-5,.010104,-5.8766e-5,6460.,6470.,
- .0062046,.17678,.0050148,-3.1545e-5,.002256,-2.7623e-5,6470.,
- 6480.,.012909,.15821,-1.1368e-4,-1.2254e-5,-.0031262,-6.7108e-6,
- 6480.,6490.,.018519,.26278,-.0033124,1.2436e-6,-.0049708,1.187e-5,
- 6490.,6500.,.0094276,.28543,-.0037172,9.5584e-6,-.0028297,
- 1.7915e-5,6500.,6510.,.02326,.34557,-.0016092,-1.5397e-6,
- -.0015497,2.6953e-6,6510.,6520.,.011602,.45777,.0040857,
- -2.3186e-5,.003463,-2.4006e-5,6520.,6530.,.0026251,1.0461,
- .0096811,-3.5495e-5,.0054387,-2.7418e-5,6530.,6540.,.0013999,
- .87933,.011802,-4.3414e-5,.0093028,-3.5381e-5,6540.,6550.,
- .0010684,.70255,.015871,-6.462e-5,.012638,-5.6493e-5,6550.,6560.,
- 1.6155e-4,.42392,.025507,-1.1133e-4,.023436,-1.1063e-4,6560.,
- 6570.,1.8042e-5,.32854,.030046,-1.3213e-4,.02717,-1.2714e-4,6570.,
- 6580.,0.,0.,0.,0.,0.,0.,6580.,6590.,0.,0.,0.,0.,0.,0.,6590.,6600.,
- 0.,0.,0.,0.,0.,0.,6600.,6610.,0.,0.,0.,0.,0.,0.,6610.,6620.,0.,0.,
- 0.,0.,0.,0.,6620.,6630.,1.6128e-5,.088896,.01184,-5.9958e-5,
- .0088458,-5.4627e-5,6630.,6640.,5.7685e-5,.1197,.0066894,
- -3.9133e-5,.0037276,-3.4034e-5,6640.,6650.,1.6743e-4,.15492,
- .0016277,-1.8979e-5,-.0013919,-1.3601e-5,6650.,6660.,2.3995e-4,
- .19763,-.0015517,-2.5448e-6,-.0034273,4.3033e-7,6660.,6670.,
- .0011561,.75988,-.001204,-2.7363e-6,-.0037117,-3.8924e-7,6670.,
- 6680.,2.3092e-4,.26967,-.0038326,2.1748e-6,-.0067421,8.1124e-6,
- 6680.,6690.,1.8913e-4,.29419,2.3018e-4,-1.1781e-5,-.0022434,
- -9.0419e-6,6690.,6700.,4.262e-6,.033197,.008741,-4.0921e-5,
- .0057336,-3.8266e-5,6700.,6710.,9.8135e-7,.0038989,.019411,
- -9.0203e-5,.01638,-8.4877e-5,6710.,6720.,2.4238e-6,.0042762,
- .015022,-7.3077e-5,.01219,-6.7965e-5,6720.,6730.,4.5088e-6,
- .0043488,.010996,-5.6685e-5,.0085436,-5.3188e-5,6730.,6740.,
- 1.0584e-5,.0026967,.0057298,-3.4851e-5,.0039372,-3.384e-5,6740.,
- 6750.,2.4861e-5,.0051111,.0029099,-1.5549e-5,.0043761,-2.6982e-5,
- 6750.,6760.,3.9077e-5,.0028826,-.001771,-1.6701e-6,-.001197,
- 3.3e-6,6760.,6770.,2.3656e-5,.0021453,-.004179,3.1183e-6,
- -.0071966,9.311e-6,6770.,6780.,4.577e-5,.0032492,-.003795,
- 1.7261e-6,-.006782,7.9425e-6,6780.,6790.,6.1088e-5,.0055679,
- .001493,-1.1871e-5,7.2114e-4,-1.3903e-5,6790.,6800.,0.,0.,0.,0.,
- 0.,0.,6800.,6810.,0.,0.,0.,0.,0.,0.,6810.,6820.,0.,0.,0.,0.,0.,0.,
- 6820.,6830.,9.2277e-7,.029726,.049361,-2.108e-4,.046239,
- -2.0451e-4,6830.,6840.,1.4134e-5,.25624,.046651,-1.979e-4,.043955,
- -1.9411e-4,6840.,6850.,7.2012e-5,.62577,.042787,-1.8123e-4,.0404,
- -1.7929e-4,6850.,6860.,1.8633e-4,.5831,.038378,-1.6303e-4,.035924,
- -1.6051e-4,6860.,6870.,5.7256e-4,.7495,.03396,-1.4641e-4,.03134,
- -1.4291e-4,6870.,6880.,.0014919,.79461,.029669,-1.2898e-4,.027598,
- -1.2671e-4,6880.,6890.,.003259,.69112,.02466,-1.0873e-4,.022993,
- -1.093e-4,6890.,6900.,.0079821,.66219,.020779,-9.1999e-5,.020053,
- -9.48e-5,6900.,6910.,.019955,.70298,.016653,-7.4032e-5,.017622,
- -7.4061e-5,6910.,6920.,.047678,.44625,.011512,-5.6613e-5,.010983,
- -5.0893e-5,6920.,6930.,.072667,.31454,.0067346,-3.8595e-5,
- .0058565,-4.0764e-5,6930.,6940.,.21391,.45263,.0039143,-1.9313e-5,
- .0056575,-2.8872e-5,6940.,6950.,.3773,.2493,-.0011236,-3.7053e-6,
- 4.1967e-4,5.3393e-6,6950.,6960.,.29585,.17647,-.0038687,2.2126e-6,
- -.0068173,8.2438e-6,6960.,6970.,.30531,.23118,-.004195,3.5322e-6,
- -.0069672,1.113e-5,6970.,6980.,.77834,.54008,5.3815e-4,-7.5276e-6,
- -1.0156e-4,-7.935e-6,6980.,6990.,0.,0.,0.,0.,0.,0.,6990.,7e3,0.,
- 0.,0.,0.,0.,0.,7e3,7010.,0.,0.,0.,0.,0.,0.,7010.,7020.,0.,0.,0.,
- 0.,0.,0.,7020.,7030.,0.,0.,0.,0.,0.,0.,7030.,7040.,0.,0.,0.,0.,0.,
- 0.,7040.,7050.,0.,0.,0.,0.,0.,0.,7050.,7060.,0.,0.,0.,0.,0.,0.,
- 7060.,7070.,0.,0.,0.,0.,0.,0.,7070.,7080.,0.,0.,0.,0.,0.,0.,7080.,
- 7090.,0.,0.,0.,0.,0.,0.,7090.,7100.,0.,0.,0.,0.,0.,0.,7100.,7110.,
- 0.,0.,0.,0.,0.,0.,7110.,7120.,0.,0.,0.,0.,0.,0.,7120.,7130.,0.,0.,
- 0.,0.,0.,0.,7130.,7140.,0.,0.,0.,0.,0.,0.,7140.,7150.,0.,0.,0.,0.,
- 0.,0.,7150.,7160.,0.,0.,0.,0.,0.,0.,7160.,7170.,0.,0.,0.,0.,0.,0.,
- 7170.,7180.,0.,0.,0.,0.,0.,0.,7180.,7190.,0.,0.,0.,0.,0.,0.,7190.,
- 7200.,0.,0.,0.,0.,0.,0.,7200.,7210.,0.,0.,0.,0.,0.,0.,7210.,7220.,
- 0.,0.,0.,0.,0.,0.,7220.,7230.,0.,0.,0.,0.,0.,0.,7230.,7240.,0.,0.,
- 0.,0.,0.,0.,7240.,7250.,9.7362e-6,.061285,.004498,-3.1185e-5,
- .0013664,-2.5022e-5,7250.,7260.,5.4706e-5,.18852,2.4251e-4,
- -1.332e-5,-.0027302,-8.1259e-6,7260.,7270.,6.1563e-5,.20629,
- -.0032814,2.2e-8,-.0062079,5.925e-6,7270.,7280.,1.4699e-5,.075241,
- -.0044219,4.3348e-6,-.0074089,1.0364e-5,7280.,7290.,7.0542e-5,
- .20329,-.002882,-1.4802e-6,-.0057837,4.2344e-6,7290.,7300.,
- 5.4492e-5,.21457,.0013783,-1.721e-5,-.0014841,-1.2786e-5,7300.,
- 7310.,0.,0.,0.,0.,0.,0.,7310.,7320.,0.,0.,0.,0.,0.,0.,7320.,7330.,
- 0.,0.,0.,0.,0.,0.,7330.,7340.,0.,0.,0.,0.,0.,0.,7340.,7350.,0.,0.,
- 0.,0.,0.,0.,7350.,7360.,0.,0.,0.,0.,0.,0.,7360.,7370.,0.,0.,0.,0.,
- 0.,0.,7370.,7380.,0.,0.,0.,0.,0.,0.,7380.,7390.,4.0391e-5,.34559,
- .016271,-7.7571e-5,.013286,-7.2256e-5,7390.,7400.,4.8302e-5,
- .37526,.012898,-6.4691e-5,.010001,-5.8901e-5,7400.,7410.,
- 2.6773e-5,.14702,.016569,-7.6331e-5,.013558,-7.16e-5,7410.,7420.,
- 2.0816e-4,.52374,.010994,-5.4458e-5,.0090105,-5.4076e-5,7420.,
- 7430.,4.8129e-4,.23329,.0042161,-2.5147e-5,.0034174,-2.5567e-5,
- 7430.,7440.,.0010907,.19364,-.0012077,-7.8171e-6,-.0041544,
- -2.4136e-6,7440.,7450.,7.8191e-4,.2075,-.0039131,2.4015e-6,
- -.0069105,8.5956e-6,7450.,7460.,7.115e-4,.19688,-.0041668,
- 3.3692e-6,-.0070951,9.4003e-6,7460.,7470.,.0014863,.25817,
- -.0012495,-7.1361e-6,-.0041323,-2.2309e-6,7470.,7480.,4.7705e-4,
- .2487,.005832,-3.2625e-5,.0036125,-3.1486e-5,7480.,7490.,
- 2.3552e-5,.11333,.017332,-8.0926e-5,.014655,-7.7124e-5,7490.,
- 7500.,0.,0.,0.,0.,0.,0.,7500.,7510.,0.,0.,0.,0.,0.,0.,7510.,7520.,
- 0.,0.,0.,0.,0.,0.,7520.,7530.,7.1378e-6,.057272,.023828,
- -1.0818e-4,.020923,-1.0279e-4,7530.,7540.,5.5634e-5,.11302,
- .017308,-8.0844e-5,.014641,-7.7072e-5,7540.,7550.,3.874e-4,.29038,
- .010833,-4.9887e-5,.010414,-5.4606e-5,7550.,7560.,9.6863e-4,
- .27281,.0053932,-2.8655e-5,.0052931,-3.3358e-5,7560.,7570.,
- .0023248,.26964,4.149e-4,-1.1296e-5,-6.0618e-5,-1.1765e-5,7570.,
- 7580.,.0029909,.2796,-.0030237,8.4962e-7,-.0041122,3.9569e-6,
- 7580.,7590.,.001504,.43911,-.0026031,1.2211e-5,-.0012549,
- 4.2399e-6,7590.,7600.,.004448,.35168,-.0020068,-1.1923e-6,
- -.0024644,4.0855e-6,7600.,7610.,.0020548,.3146,.0041619,
- -2.4632e-5,.0023465,-2.5042e-5,7610.,7620. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* carbon dioxide (5060 - 7610 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* dica2_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DICA2.f b/Modules/ThirdParty/6S/src/6SV1.0B/DICA2.f
deleted file mode 100644
index 0d7fcd5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DICA2.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine dica2(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c carbon dioxide (5060 - 7610 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.37011e+00, 0.18132e+00, 0.98385e-02,-0.49920e-04, 0.96965e-02,
- a-0.39497e-04, 0.50600e+04, 0.50700e+04,
- a 0.17202e+01, 0.23160e+00, 0.29954e-02,-0.22435e-04, 0.29757e-02,
- a-0.92488e-05, 0.50700e+04, 0.50800e+04,
- a 0.33606e+01, 0.25416e+00,-0.16977e-02,-0.40846e-05,-0.13656e-02,
- a 0.11658e-04, 0.50800e+04, 0.50900e+04,
- a 0.18282e+01, 0.30223e+00,-0.32772e-02, 0.94805e-05,-0.53350e-03,
- a 0.21209e-04, 0.50900e+04, 0.51000e+04,
- a 0.29024e+01, 0.38026e+00,-0.30989e-02, 0.72616e-05,-0.13770e-02,
- a 0.16150e-04, 0.51000e+04, 0.51100e+04,
- a 0.42563e+01, 0.41711e+00,-0.14453e-03,-0.80697e-05, 0.42978e-03,
- a-0.27285e-05, 0.51100e+04, 0.51200e+04,
- a 0.11106e+01, 0.56558e+00, 0.71956e-02,-0.36594e-04, 0.79066e-02,
- a-0.37847e-04, 0.51200e+04, 0.51300e+04,
- a 0.30634e+00, 0.97715e+00, 0.15099e-01,-0.67211e-04, 0.15152e-01,
- a-0.65294e-04, 0.51300e+04, 0.51400e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.11213e+00, 0.77801e+00, 0.19757e-01,-0.86279e-04, 0.20188e-01,
- a-0.84289e-04, 0.51400e+04, 0.51500e+04,
- a 0.14584e-01, 0.10474e+01, 0.30585e-01,-0.12981e-03, 0.30136e-01,
- a-0.12999e-03, 0.51500e+04, 0.51600e+04,
- a 0.14820e-02, 0.96349e+00, 0.39762e-01,-0.16303e-03, 0.39329e-01,
- a-0.16879e-03, 0.51600e+04, 0.51700e+04,
- a 0.71850e-04, 0.75521e+00, 0.50597e-01,-0.19183e-03, 0.49189e-01,
- a-0.20960e-03, 0.51700e+04, 0.51800e+04,
- a 0.29909e-04, 0.14908e+00, 0.36080e-01,-0.11815e-03, 0.34793e-01,
- a-0.14530e-03, 0.51800e+04, 0.51900e+04,
- a 0.12504e-03, 0.18326e+00, 0.32726e-01,-0.14282e-03, 0.29813e-01,
- a-0.13805e-03, 0.51900e+04, 0.52000e+04,
- a 0.21512e-03, 0.19978e+00, 0.28430e-01,-0.12662e-03, 0.25525e-01,
- a-0.12103e-03, 0.52000e+04, 0.52100e+04,
- a 0.96169e-04, 0.20142e+00, 0.26447e-01,-0.11912e-03, 0.23511e-01,
- a-0.11308e-03, 0.52100e+04, 0.52200e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.19738e-03, 0.21048e+00, 0.27160e-01,-0.12182e-03, 0.24213e-01,
- a-0.11582e-03, 0.52200e+04, 0.52300e+04,
- a 0.26384e-03, 0.44256e+00, 0.28679e-01,-0.11440e-03, 0.24161e-01,
- a-0.10560e-03, 0.52300e+04, 0.52400e+04,
- a 0.36492e-03, 0.82665e+00, 0.17030e-01,-0.50383e-04, 0.15395e-01,
- a-0.57885e-04, 0.52400e+04, 0.52500e+04,
- a 0.15039e-03, 0.27488e+00, 0.13098e-01,-0.61988e-04, 0.10623e-01,
- a-0.54594e-04, 0.52500e+04, 0.52600e+04,
- a 0.24449e-03, 0.45805e+00, 0.18770e-01,-0.82525e-04, 0.16371e-01,
- a-0.81515e-04, 0.52600e+04, 0.52700e+04,
- a 0.60370e-04, 0.43685e+00, 0.16157e-01,-0.60387e-04, 0.13838e-01,
- a-0.63959e-04, 0.52700e+04, 0.52800e+04,
- a 0.45624e-03, 0.10732e+01, 0.12236e-01,-0.43571e-04, 0.11139e-01,
- a-0.55369e-04, 0.52800e+04, 0.52900e+04,
- a 0.94288e-03, 0.71418e+00, 0.33079e-02,-0.93343e-05, 0.45345e-02,
- a-0.25858e-04, 0.52900e+04, 0.53000e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.24083e-02, 0.75842e+00, 0.33829e-02, 0.46857e-06, 0.43964e-02,
- a-0.19712e-04, 0.53000e+04, 0.53100e+04,
- a 0.11861e-01, 0.74480e+00,-0.16809e-02,-0.18723e-05,-0.36883e-02,
- a 0.44350e-05, 0.53100e+04, 0.53200e+04,
- a 0.56690e-02, 0.26992e+00,-0.26897e-02,-0.19753e-05,-0.56893e-02,
- a 0.39128e-05, 0.53200e+04, 0.53300e+04,
- a 0.43472e-02, 0.36618e+00, 0.37666e-02,-0.21625e-04, 0.21182e-02,
- a-0.22907e-04, 0.53300e+04, 0.53400e+04,
- a 0.65931e-04, 0.17111e+00, 0.21978e-01,-0.96238e-04, 0.20336e-01,
- a-0.96990e-04, 0.53400e+04, 0.53500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53500e+04, 0.53600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53600e+04, 0.53700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53700e+04, 0.53800e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53800e+04, 0.53900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53900e+04, 0.54000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54000e+04, 0.54100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54100e+04, 0.54200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54200e+04, 0.54300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54300e+04, 0.54400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54400e+04, 0.54500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54500e+04, 0.54600e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54600e+04, 0.54700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54700e+04, 0.54800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54800e+04, 0.54900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54900e+04, 0.55000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55000e+04, 0.55100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55100e+04, 0.55200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55200e+04, 0.55300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55300e+04, 0.55400e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55400e+04, 0.55500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55500e+04, 0.55600e+04,
- a 0.68899e-05, 0.12901e+00, 0.32092e-01,-0.14141e-03, 0.29106e-01,
- a-0.13565e-03, 0.55600e+04, 0.55700e+04,
- a 0.54438e-05, 0.10241e+00, 0.30061e-01,-0.13353e-03, 0.27225e-01,
- a-0.12783e-03, 0.55700e+04, 0.55800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55800e+04, 0.55900e+04,
- a 0.13218e-04, 0.23142e+00, 0.31168e-01,-0.13734e-03, 0.28262e-01,
- a-0.13193e-03, 0.55900e+04, 0.56000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56000e+04, 0.56100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56100e+04, 0.56200e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56200e+04, 0.56300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56300e+04, 0.56400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56400e+04, 0.56500e+04,
- a 0.33959e-05, 0.61663e-01, 0.34194e-01,-0.14999e-03, 0.31058e-01,
- a-0.14380e-03, 0.56500e+04, 0.56600e+04,
- a 0.10828e-04, 0.12604e+00, 0.31170e-01,-0.13759e-03, 0.28105e-01,
- a-0.13178e-03, 0.56600e+04, 0.56700e+04,
- a 0.17083e-04, 0.16767e+00, 0.28148e-01,-0.12567e-03, 0.25263e-01,
- a-0.11999e-03, 0.56700e+04, 0.56800e+04,
- a 0.49699e-05, 0.72931e-01, 0.26646e-01,-0.11993e-03, 0.23720e-01,
- a-0.11402e-03, 0.56800e+04, 0.56900e+04,
- a 0.32495e-04, 0.33854e+00, 0.28198e-01,-0.12521e-03, 0.25185e-01,
- a-0.11947e-03, 0.56900e+04, 0.57000e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.85544e-05, 0.12346e+00, 0.32990e-01,-0.14471e-03, 0.29937e-01,
- a-0.13907e-03, 0.57000e+04, 0.57100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57100e+04, 0.57200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57200e+04, 0.57300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57300e+04, 0.57400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57400e+04, 0.57500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57500e+04, 0.57600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57600e+04, 0.57700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57700e+04, 0.57800e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57800e+04, 0.57900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57900e+04, 0.58000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58000e+04, 0.58100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58100e+04, 0.58200e+04,
- a 0.10801e-06, 0.64763e-03, 0.50400e-02,-0.33310e-04, 0.18319e-02,
- a-0.27150e-04, 0.58200e+04, 0.58300e+04,
- a 0.36558e-06, 0.11712e-02, 0.12766e-02,-0.17918e-04,-0.17271e-02,
- a-0.12476e-04, 0.58300e+04, 0.58400e+04,
- a 0.65048e-06, 0.15865e-02,-0.22804e-02,-0.39603e-05,-0.50092e-02,
- a 0.13558e-05, 0.58400e+04, 0.58500e+04,
- a 0.28928e-06, 0.11091e-02,-0.41564e-02, 0.31815e-05,-0.71328e-02,
- a 0.92288e-05, 0.58500e+04, 0.58600e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.87451e-06, 0.23908e-02,-0.33290e-02, 0.21406e-06,-0.62303e-02,
- a 0.61286e-05, 0.58600e+04, 0.58700e+04,
- a 0.67089e-06, 0.21602e-02, 0.12514e-02,-0.16242e-04,-0.14507e-02,
- a-0.12750e-04, 0.58700e+04, 0.58800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58800e+04, 0.58900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58900e+04, 0.59000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.59000e+04, 0.59100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.59100e+04, 0.59200e+04,
- a 0.17501e-07, 0.13034e-03, 0.51578e-02,-0.34109e-04, 0.18735e-02,
- a-0.27495e-04, 0.59200e+04, 0.59300e+04,
- a 0.69507e-06, 0.34287e-02, 0.44624e-03,-0.13702e-04,-0.24553e-02,
- a-0.89919e-05, 0.59300e+04, 0.59400e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.78354e-06, 0.27679e-02,-0.22110e-02,-0.40762e-05,-0.50605e-02,
- a 0.15266e-05, 0.59400e+04, 0.59500e+04,
- a 0.17028e-04, 0.28847e+00, 0.29444e-01,-0.10994e-03, 0.27638e-01,
- a-0.12570e-03, 0.59500e+04, 0.59600e+04,
- a 0.14300e-04, 0.23307e+00, 0.25314e-01,-0.63115e-04, 0.25428e-01,
- a-0.10758e-03, 0.59600e+04, 0.59700e+04,
- a 0.29931e-04, 0.32693e+00, 0.31262e-01,-0.10549e-03, 0.30096e-01,
- a-0.13150e-03, 0.59700e+04, 0.59800e+04,
- a 0.16591e-03, 0.85547e+00, 0.27749e-01,-0.12007e-03, 0.25471e-01,
- a-0.11947e-03, 0.59800e+04, 0.59900e+04,
- a 0.42245e-03, 0.43143e+00, 0.20385e-01,-0.92124e-04, 0.18281e-01,
- a-0.89908e-04, 0.59900e+04, 0.60000e+04,
- a 0.93274e-03, 0.46433e+00, 0.15249e-01,-0.71885e-04, 0.13120e-01,
- a-0.68390e-04, 0.60000e+04, 0.60100e+04,
- a 0.70225e-03, 0.54757e+00, 0.13086e-01,-0.58065e-04, 0.11855e-01,
- a-0.56321e-04, 0.60100e+04, 0.60200e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.69280e-03, 0.65125e+00, 0.13222e-01,-0.56472e-04, 0.11874e-01,
- a-0.55027e-04, 0.60200e+04, 0.60300e+04,
- a 0.15664e-02, 0.58970e+00, 0.15019e-01,-0.71875e-04, 0.12178e-01,
- a-0.67231e-04, 0.60300e+04, 0.60400e+04,
- a 0.38079e-02, 0.38374e+00, 0.89238e-02,-0.38150e-04, 0.95406e-02,
- a-0.46524e-04, 0.60400e+04, 0.60500e+04,
- a 0.11401e-01, 0.22142e+00, 0.11962e-02,-0.14969e-04, 0.50672e-03,
- a-0.50173e-05, 0.60500e+04, 0.60600e+04,
- a 0.15986e-01, 0.20314e+00,-0.28719e-02,-0.15218e-05,-0.57785e-02,
- a 0.42132e-05, 0.60600e+04, 0.60700e+04,
- a 0.65575e-02, 0.20869e+00,-0.45237e-02, 0.47582e-05,-0.74277e-02,
- a 0.10726e-04, 0.60700e+04, 0.60800e+04,
- a 0.16542e-01, 0.20732e+00,-0.33062e-02, 0.12692e-06,-0.62117e-02,
- a 0.59729e-05, 0.60800e+04, 0.60900e+04,
- a 0.14800e-01, 0.21832e+00, 0.52489e-03,-0.14021e-04,-0.23480e-02,
- a-0.94050e-05, 0.60900e+04, 0.61000e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.37777e-02, 0.22100e+00, 0.79105e-02,-0.41125e-04, 0.56565e-02,
- a-0.39694e-04, 0.61000e+04, 0.61100e+04,
- a 0.23785e-03, 0.20223e+00, 0.19267e-01,-0.74980e-04, 0.18479e-01,
- a-0.84052e-04, 0.61100e+04, 0.61200e+04,
- a 0.87992e-05, 0.13627e-01, 0.23267e-02, 0.92669e-04, 0.14502e-01,
- a 0.81104e-04, 0.61200e+04, 0.61300e+04,
- a 0.46902e-04, 0.41886e+00, 0.24800e-01, 0.70996e-04, 0.36122e-01,
- a-0.13184e-03, 0.61300e+04, 0.61400e+04,
- a 0.17614e-03, 0.70325e+00, 0.34157e-01,-0.12548e-03, 0.32692e-01,
- a-0.14479e-03, 0.61400e+04, 0.61500e+04,
- a 0.51423e-03, 0.76500e+00, 0.30511e-01,-0.13248e-03, 0.28126e-01,
- a-0.12927e-03, 0.61500e+04, 0.61600e+04,
- a 0.16425e-02, 0.80783e+00, 0.24399e-01,-0.10406e-03, 0.23798e-01,
- a-0.10618e-03, 0.61600e+04, 0.61700e+04,
- a 0.47297e-02, 0.70470e+00, 0.18441e-01,-0.81354e-04, 0.17633e-01,
- a-0.82840e-04, 0.61700e+04, 0.61800e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.12112e-01, 0.77740e+00, 0.14404e-01,-0.64815e-04, 0.14093e-01,
- a-0.64401e-04, 0.61800e+04, 0.61900e+04,
- a 0.29946e-01, 0.46202e+00, 0.77033e-02,-0.38421e-04, 0.91624e-02,
- a-0.37333e-04, 0.61900e+04, 0.62000e+04,
- a 0.84779e-01, 0.36412e+00, 0.25097e-02,-0.17677e-04, 0.33111e-02,
- a-0.19653e-04, 0.62000e+04, 0.62100e+04,
- a 0.14928e+00, 0.35083e+00,-0.16626e-02, 0.65627e-06,-0.10556e-04,
- a 0.30708e-05, 0.62100e+04, 0.62200e+04,
- a 0.55916e-01, 0.25640e+00,-0.37859e-02, 0.96465e-05,-0.48460e-03,
- a 0.29685e-04, 0.62200e+04, 0.62300e+04,
- a 0.14147e+00, 0.24788e+00,-0.37163e-02, 0.17896e-05,-0.63790e-02,
- a 0.10289e-04, 0.62300e+04, 0.62400e+04,
- a 0.16605e+00, 0.27773e+00, 0.31594e-03,-0.12404e-04,-0.24142e-02,
- a-0.86644e-05, 0.62400e+04, 0.62500e+04,
- a 0.26015e-01, 0.26420e+00, 0.96177e-02,-0.45715e-04, 0.81902e-02,
- a-0.47180e-04, 0.62500e+04, 0.62600e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.34429e-03, 0.24315e+00, 0.27429e-01,-0.10196e-03, 0.28346e-01,
- a-0.11603e-03, 0.62600e+04, 0.62700e+04,
- a 0.46627e-04, 0.19149e+00, 0.36426e-01,-0.13678e-03, 0.34831e-01,
- a-0.15131e-03, 0.62700e+04, 0.62800e+04,
- a 0.21373e-03, 0.25683e+00, 0.31955e-01,-0.13913e-03, 0.29335e-01,
- a-0.13555e-03, 0.62800e+04, 0.62900e+04,
- a 0.13513e-02, 0.24863e+00, 0.22352e-01,-0.96861e-04, 0.21515e-01,
- a-0.99991e-04, 0.62900e+04, 0.63000e+04,
- a 0.54489e-02, 0.20135e+00, 0.14377e-01,-0.65562e-04, 0.15352e-01,
- a-0.64813e-04, 0.63000e+04, 0.63100e+04,
- a 0.27679e-01, 0.22784e+00, 0.74243e-02,-0.37863e-04, 0.85371e-02,
- a-0.33611e-04, 0.63100e+04, 0.63200e+04,
- a 0.78593e-01, 0.25925e+00, 0.20493e-02,-0.15599e-04, 0.43199e-02,
- a-0.67814e-05, 0.63200e+04, 0.63300e+04,
- a 0.14691e+00, 0.31965e+00,-0.18417e-02,-0.26752e-06,-0.43593e-03,
- a 0.72456e-05, 0.63300e+04, 0.63400e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.60904e-01, 0.38372e+00,-0.26072e-02, 0.10806e-04, 0.34105e-04,
- a 0.61858e-05, 0.63400e+04, 0.63500e+04,
- a 0.16958e+00, 0.41812e+00,-0.32411e-02, 0.19629e-05,-0.29726e-02,
- a 0.85775e-05, 0.63500e+04, 0.63600e+04,
- a 0.14604e+00, 0.46630e+00, 0.14212e-02,-0.13457e-04, 0.19636e-02,
- a-0.13610e-04, 0.63600e+04, 0.63700e+04,
- a 0.31358e-01, 0.68476e+00, 0.10997e-01,-0.46694e-04, 0.11746e-01,
- a-0.54252e-04, 0.63700e+04, 0.63800e+04,
- a 0.10642e-02, 0.83438e+00, 0.27721e-01,-0.11549e-03, 0.27342e-01,
- a-0.12081e-03, 0.63800e+04, 0.63900e+04,
- a 0.10993e-04, 0.84985e-01, 0.11868e-01, 0.12012e-03, 0.14373e-01,
- a 0.35831e-04, 0.63900e+04, 0.64000e+04,
- a 0.68548e-04, 0.19065e+00,-0.13960e-03,-0.11926e-04,-0.33005e-02,
- a-0.58719e-05, 0.64000e+04, 0.64100e+04,
- a 0.58606e-04, 0.18176e+00, 0.53969e-02,-0.32912e-04, 0.24598e-02,
- a-0.28413e-04, 0.64100e+04, 0.64200e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.13107e-04, 0.89518e-01, 0.11918e-01,-0.60253e-04, 0.88864e-02,
- a-0.54787e-04, 0.64200e+04, 0.64300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64300e+04, 0.64400e+04,
- a 0.11700e-04, 0.80752e-01, 0.30987e-01,-0.13581e-03, 0.28483e-01,
- a-0.13216e-03, 0.64400e+04, 0.64500e+04,
- a 0.15147e-03, 0.13300e+00, 0.21388e-01,-0.95943e-04, 0.19129e-01,
- a-0.94039e-04, 0.64500e+04, 0.64600e+04,
- a 0.10569e-02, 0.14161e+00, 0.12722e-01,-0.62067e-04, 0.10104e-01,
- a-0.58766e-04, 0.64600e+04, 0.64700e+04,
- a 0.62046e-02, 0.17678e+00, 0.50148e-02,-0.31545e-04, 0.22560e-02,
- a-0.27623e-04, 0.64700e+04, 0.64800e+04,
- a 0.12909e-01, 0.15821e+00,-0.11368e-03,-0.12254e-04,-0.31262e-02,
- a-0.67108e-05, 0.64800e+04, 0.64900e+04,
- a 0.18519e-01, 0.26278e+00,-0.33124e-02, 0.12436e-05,-0.49708e-02,
- a 0.11870e-04, 0.64900e+04, 0.65000e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.94276e-02, 0.28543e+00,-0.37172e-02, 0.95584e-05,-0.28297e-02,
- a 0.17915e-04, 0.65000e+04, 0.65100e+04,
- a 0.23260e-01, 0.34557e+00,-0.16092e-02,-0.15397e-05,-0.15497e-02,
- a 0.26953e-05, 0.65100e+04, 0.65200e+04,
- a 0.11602e-01, 0.45777e+00, 0.40857e-02,-0.23186e-04, 0.34630e-02,
- a-0.24006e-04, 0.65200e+04, 0.65300e+04,
- a 0.26251e-02, 0.10461e+01, 0.96811e-02,-0.35495e-04, 0.54387e-02,
- a-0.27418e-04, 0.65300e+04, 0.65400e+04,
- a 0.13999e-02, 0.87933e+00, 0.11802e-01,-0.43414e-04, 0.93028e-02,
- a-0.35381e-04, 0.65400e+04, 0.65500e+04,
- a 0.10684e-02, 0.70255e+00, 0.15871e-01,-0.64620e-04, 0.12638e-01,
- a-0.56493e-04, 0.65500e+04, 0.65600e+04,
- a 0.16155e-03, 0.42392e+00, 0.25507e-01,-0.11133e-03, 0.23436e-01,
- a-0.11063e-03, 0.65600e+04, 0.65700e+04,
- a 0.18042e-04, 0.32854e+00, 0.30046e-01,-0.13213e-03, 0.27170e-01,
- a-0.12714e-03, 0.65700e+04, 0.65800e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65800e+04, 0.65900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65900e+04, 0.66000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66000e+04, 0.66100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66100e+04, 0.66200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66200e+04, 0.66300e+04,
- a 0.16128e-04, 0.88896e-01, 0.11840e-01,-0.59958e-04, 0.88458e-02,
- a-0.54627e-04, 0.66300e+04, 0.66400e+04,
- a 0.57685e-04, 0.11970e+00, 0.66894e-02,-0.39133e-04, 0.37276e-02,
- a-0.34034e-04, 0.66400e+04, 0.66500e+04,
- a 0.16743e-03, 0.15492e+00, 0.16277e-02,-0.18979e-04,-0.13919e-02,
- a-0.13601e-04, 0.66500e+04, 0.66600e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.23995e-03, 0.19763e+00,-0.15517e-02,-0.25448e-05,-0.34273e-02,
- a 0.43033e-06, 0.66600e+04, 0.66700e+04,
- a 0.11561e-02, 0.75988e+00,-0.12040e-02,-0.27363e-05,-0.37117e-02,
- a-0.38924e-06, 0.66700e+04, 0.66800e+04,
- a 0.23092e-03, 0.26967e+00,-0.38326e-02, 0.21748e-05,-0.67421e-02,
- a 0.81124e-05, 0.66800e+04, 0.66900e+04,
- a 0.18913e-03, 0.29419e+00, 0.23018e-03,-0.11781e-04,-0.22434e-02,
- a-0.90419e-05, 0.66900e+04, 0.67000e+04,
- a 0.42620e-05, 0.33197e-01, 0.87410e-02,-0.40921e-04, 0.57336e-02,
- a-0.38266e-04, 0.67000e+04, 0.67100e+04,
- a 0.98135e-06, 0.38989e-02, 0.19411e-01,-0.90203e-04, 0.16380e-01,
- a-0.84877e-04, 0.67100e+04, 0.67200e+04,
- a 0.24238e-05, 0.42762e-02, 0.15022e-01,-0.73077e-04, 0.12190e-01,
- a-0.67965e-04, 0.67200e+04, 0.67300e+04,
- a 0.45088e-05, 0.43488e-02, 0.10996e-01,-0.56685e-04, 0.85436e-02,
- a-0.53188e-04, 0.67300e+04, 0.67400e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.10584e-04, 0.26967e-02, 0.57298e-02,-0.34851e-04, 0.39372e-02,
- a-0.33840e-04, 0.67400e+04, 0.67500e+04,
- a 0.24861e-04, 0.51111e-02, 0.29099e-02,-0.15549e-04, 0.43761e-02,
- a-0.26982e-04, 0.67500e+04, 0.67600e+04,
- a 0.39077e-04, 0.28826e-02,-0.17710e-02,-0.16701e-05,-0.11970e-02,
- a 0.33000e-05, 0.67600e+04, 0.67700e+04,
- a 0.23656e-04, 0.21453e-02,-0.41790e-02, 0.31183e-05,-0.71966e-02,
- a 0.93110e-05, 0.67700e+04, 0.67800e+04,
- a 0.45770e-04, 0.32492e-02,-0.37950e-02, 0.17261e-05,-0.67820e-02,
- a 0.79425e-05, 0.67800e+04, 0.67900e+04,
- a 0.61088e-04, 0.55679e-02, 0.14930e-02,-0.11871e-04, 0.72114e-03,
- a-0.13903e-04, 0.67900e+04, 0.68000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68000e+04, 0.68100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68100e+04, 0.68200e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68200e+04, 0.68300e+04,
- a 0.92277e-06, 0.29726e-01, 0.49361e-01,-0.21080e-03, 0.46239e-01,
- a-0.20451e-03, 0.68300e+04, 0.68400e+04,
- a 0.14134e-04, 0.25624e+00, 0.46651e-01,-0.19790e-03, 0.43955e-01,
- a-0.19411e-03, 0.68400e+04, 0.68500e+04,
- a 0.72012e-04, 0.62577e+00, 0.42787e-01,-0.18123e-03, 0.40400e-01,
- a-0.17929e-03, 0.68500e+04, 0.68600e+04,
- a 0.18633e-03, 0.58310e+00, 0.38378e-01,-0.16303e-03, 0.35924e-01,
- a-0.16051e-03, 0.68600e+04, 0.68700e+04,
- a 0.57256e-03, 0.74950e+00, 0.33960e-01,-0.14641e-03, 0.31340e-01,
- a-0.14291e-03, 0.68700e+04, 0.68800e+04,
- a 0.14919e-02, 0.79461e+00, 0.29669e-01,-0.12898e-03, 0.27598e-01,
- a-0.12671e-03, 0.68800e+04, 0.68900e+04,
- a 0.32590e-02, 0.69112e+00, 0.24660e-01,-0.10873e-03, 0.22993e-01,
- a-0.10930e-03, 0.68900e+04, 0.69000e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.79821e-02, 0.66219e+00, 0.20779e-01,-0.91999e-04, 0.20053e-01,
- a-0.94800e-04, 0.69000e+04, 0.69100e+04,
- a 0.19955e-01, 0.70298e+00, 0.16653e-01,-0.74032e-04, 0.17622e-01,
- a-0.74061e-04, 0.69100e+04, 0.69200e+04,
- a 0.47678e-01, 0.44625e+00, 0.11512e-01,-0.56613e-04, 0.10983e-01,
- a-0.50893e-04, 0.69200e+04, 0.69300e+04,
- a 0.72667e-01, 0.31454e+00, 0.67346e-02,-0.38595e-04, 0.58565e-02,
- a-0.40764e-04, 0.69300e+04, 0.69400e+04,
- a 0.21391e+00, 0.45263e+00, 0.39143e-02,-0.19313e-04, 0.56575e-02,
- a-0.28872e-04, 0.69400e+04, 0.69500e+04,
- a 0.37730e+00, 0.24930e+00,-0.11236e-02,-0.37053e-05, 0.41967e-03,
- a 0.53393e-05, 0.69500e+04, 0.69600e+04,
- a 0.29585e+00, 0.17647e+00,-0.38687e-02, 0.22126e-05,-0.68173e-02,
- a 0.82438e-05, 0.69600e+04, 0.69700e+04,
- a 0.30531e+00, 0.23118e+00,-0.41950e-02, 0.35322e-05,-0.69672e-02,
- a 0.11130e-04, 0.69700e+04, 0.69800e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.77834e+00, 0.54008e+00, 0.53815e-03,-0.75276e-05,-0.10156e-03,
- a-0.79350e-05, 0.69800e+04, 0.69900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69900e+04, 0.70000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70000e+04, 0.70100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70100e+04, 0.70200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70200e+04, 0.70300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70300e+04, 0.70400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70400e+04, 0.70500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70500e+04, 0.70600e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70600e+04, 0.70700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70700e+04, 0.70800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70800e+04, 0.70900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70900e+04, 0.71000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71000e+04, 0.71100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71100e+04, 0.71200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71200e+04, 0.71300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71300e+04, 0.71400e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71400e+04, 0.71500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71500e+04, 0.71600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71600e+04, 0.71700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71700e+04, 0.71800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71800e+04, 0.71900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71900e+04, 0.72000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72000e+04, 0.72100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72100e+04, 0.72200e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72200e+04, 0.72300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72300e+04, 0.72400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72400e+04, 0.72500e+04,
- a 0.97362e-05, 0.61285e-01, 0.44980e-02,-0.31185e-04, 0.13664e-02,
- a-0.25022e-04, 0.72500e+04, 0.72600e+04,
- a 0.54706e-04, 0.18852e+00, 0.24251e-03,-0.13320e-04,-0.27302e-02,
- a-0.81259e-05, 0.72600e+04, 0.72700e+04,
- a 0.61563e-04, 0.20629e+00,-0.32814e-02, 0.22000e-07,-0.62079e-02,
- a 0.59250e-05, 0.72700e+04, 0.72800e+04,
- a 0.14699e-04, 0.75241e-01,-0.44219e-02, 0.43348e-05,-0.74089e-02,
- a 0.10364e-04, 0.72800e+04, 0.72900e+04,
- a 0.70542e-04, 0.20329e+00,-0.28820e-02,-0.14802e-05,-0.57837e-02,
- a 0.42344e-05, 0.72900e+04, 0.73000e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.54492e-04, 0.21457e+00, 0.13783e-02,-0.17210e-04,-0.14841e-02,
- a-0.12786e-04, 0.73000e+04, 0.73100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73100e+04, 0.73200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73200e+04, 0.73300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73300e+04, 0.73400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73400e+04, 0.73500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73500e+04, 0.73600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73600e+04, 0.73700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73700e+04, 0.73800e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73800e+04, 0.73900e+04,
- a 0.40391e-04, 0.34559e+00, 0.16271e-01,-0.77571e-04, 0.13286e-01,
- a-0.72256e-04, 0.73900e+04, 0.74000e+04,
- a 0.48302e-04, 0.37526e+00, 0.12898e-01,-0.64691e-04, 0.10001e-01,
- a-0.58901e-04, 0.74000e+04, 0.74100e+04,
- a 0.26773e-04, 0.14702e+00, 0.16569e-01,-0.76331e-04, 0.13558e-01,
- a-0.71600e-04, 0.74100e+04, 0.74200e+04,
- a 0.20816e-03, 0.52374e+00, 0.10994e-01,-0.54458e-04, 0.90105e-02,
- a-0.54076e-04, 0.74200e+04, 0.74300e+04,
- a 0.48129e-03, 0.23329e+00, 0.42161e-02,-0.25147e-04, 0.34174e-02,
- a-0.25567e-04, 0.74300e+04, 0.74400e+04,
- a 0.10907e-02, 0.19364e+00,-0.12077e-02,-0.78171e-05,-0.41544e-02,
- a-0.24136e-05, 0.74400e+04, 0.74500e+04,
- a 0.78191e-03, 0.20750e+00,-0.39131e-02, 0.24015e-05,-0.69105e-02,
- a 0.85956e-05, 0.74500e+04, 0.74600e+04/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.71150e-03, 0.19688e+00,-0.41668e-02, 0.33692e-05,-0.70951e-02,
- a 0.94003e-05, 0.74600e+04, 0.74700e+04,
- a 0.14863e-02, 0.25817e+00,-0.12495e-02,-0.71361e-05,-0.41323e-02,
- a-0.22309e-05, 0.74700e+04, 0.74800e+04,
- a 0.47705e-03, 0.24870e+00, 0.58320e-02,-0.32625e-04, 0.36125e-02,
- a-0.31486e-04, 0.74800e+04, 0.74900e+04,
- a 0.23552e-04, 0.11333e+00, 0.17332e-01,-0.80926e-04, 0.14655e-01,
- a-0.77124e-04, 0.74900e+04, 0.75000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75000e+04, 0.75100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75100e+04, 0.75200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75200e+04, 0.75300e+04,
- a 0.71378e-05, 0.57272e-01, 0.23828e-01,-0.10818e-03, 0.20923e-01,
- a-0.10279e-03, 0.75300e+04, 0.75400e+04/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.55634e-04, 0.11302e+00, 0.17308e-01,-0.80844e-04, 0.14641e-01,
- a-0.77072e-04, 0.75400e+04, 0.75500e+04,
- a 0.38740e-03, 0.29038e+00, 0.10833e-01,-0.49887e-04, 0.10414e-01,
- a-0.54606e-04, 0.75500e+04, 0.75600e+04,
- a 0.96863e-03, 0.27281e+00, 0.53932e-02,-0.28655e-04, 0.52931e-02,
- a-0.33358e-04, 0.75600e+04, 0.75700e+04,
- a 0.23248e-02, 0.26964e+00, 0.41490e-03,-0.11296e-04,-0.60618e-04,
- a-0.11765e-04, 0.75700e+04, 0.75800e+04,
- a 0.29909e-02, 0.27960e+00,-0.30237e-02, 0.84962e-06,-0.41122e-02,
- a 0.39569e-05, 0.75800e+04, 0.75900e+04,
- a 0.15040e-02, 0.43911e+00,-0.26031e-02, 0.12211e-04,-0.12549e-02,
- a 0.42399e-05, 0.75900e+04, 0.76000e+04,
- a 0.44480e-02, 0.35168e+00,-0.20068e-02,-0.11923e-05,-0.24644e-02,
- a 0.40855e-05, 0.76000e+04, 0.76100e+04,
- a 0.20548e-02, 0.31460e+00, 0.41619e-02,-0.24632e-04, 0.23465e-02,
- a-0.25042e-04, 0.76100e+04, 0.76200e+04/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DICA2.h b/Modules/ThirdParty/6S/src/6SV1.0B/DICA2.h
deleted file mode 100644
index 0925154..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DICA2.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_dica2_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DICA3.P b/Modules/ThirdParty/6S/src/6SV1.0B/DICA3.P
deleted file mode 100644
index 051c632..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DICA3.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int dica3_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DICA3.c b/Modules/ThirdParty/6S/src/6SV1.0B/DICA3.c
deleted file mode 100644
index 673abb0..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DICA3.c
+++ /dev/null
@@ -1,239 +0,0 @@
-/* DICA3.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine dica3(a,inu) >*/
-/* Subroutine */ int dica3_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 4.1135e-5,.13491,
- .019511,-8.8592e-5,.017169,-8.6383e-5,7620.,7630.,0.,0.,0.,0.,0.,
- 0.,7630.,7640.,0.,0.,0.,0.,0.,0.,7640.,7650.,0.,0.,0.,0.,0.,0.,
- 7650.,7660.,0.,0.,0.,0.,0.,0.,7660.,7670.,0.,0.,0.,0.,0.,0.,7670.,
- 7680.,6.9843e-6,.05869,.017996,-8.495e-5,.014986,-7.9255e-5,7680.,
- 7690.,4.4856e-5,.1161,.012313,-6.1208e-5,.0094917,-5.6817e-5,
- 7690.,7700.,2.1119e-4,.14823,.0058288,-3.5255e-5,.0029752,
- -3.0772e-5,7700.,7710.,6.8368e-4,.18822,2.1812e-4,-1.3229e-5,
- -.0027425,-8.0771e-6,7710.,7720.,8.0401e-4,.20648,-.0032887,
- 5.0708e-8,-.0062117,5.94e-6,7720.,7730.,3.6897e-4,.20612,
- -.0045166,4.7173e-6,-.0074494,1.0697e-5,7730.,7740.,.0011094,
- .31021,-.0022536,-1.0224e-6,-.0033444,2.1129e-6,7740.,7750.,
- 6.5848e-4,.26193,.0027594,-2.1278e-5,2.5217e-4,-1.8776e-5,7750.,
- 7760.,7.3155e-5,.30739,.013041,-6.319e-5,.010499,-6.0136e-5,7760.,
- 7770.,1.9363e-5,.19417,.014647,-7.1772e-5,.011659,-6.5892e-5,
- 7770.,7780.,0.,0.,0.,0.,0.,0.,7780.,7790.,0.,0.,0.,0.,0.,0.,7790.,
- 7800.,0.,0.,0.,0.,0.,0.,7800.,7810.,0.,0.,0.,0.,0.,0.,7810.,7820.,
- 0.,0.,0.,0.,0.,0.,7820.,7830.,0.,0.,0.,0.,0.,0.,7830.,7840.,0.,0.,
- 0.,0.,0.,0.,7840.,7850.,0.,0.,0.,0.,0.,0.,7850.,7860.,0.,0.,0.,0.,
- 0.,0.,7860.,7870.,0.,0.,0.,0.,0.,0.,7870.,7880.,0.,0.,0.,0.,0.,0.,
- 7880.,7890.,3.719e-5,.1891,3.2484e-4,-1.3576e-5,-.0026862,
- -8.2867e-6,7890.,7900.,9.4656e-5,.363,-.0020395,-4.2752e-6,
- -.0049939,1.2049e-6,7900.,7910.,7.3888e-5,.33612,-.0027854,
- -1.4358e-6,-.005628,3.7427e-6,7910.,7920.,3.5986e-5,.14439,
- -.0040916,3.0556e-6,-.0070423,9.0581e-6,7920.,7930.,7.729e-5,
- .22754,-.0015562,-6.2734e-6,-.0044592,-1.0627e-6,7930.,7940.,
- 1.8388e-5,.092491,.0027526,-2.4014e-5,-3.4204e-4,-1.8092e-5,7940.,
- 7950.,1.9936e-7,.0010968,.001703,-2.0156e-5,-.0013872,-1.4222e-5,
- 7950.,7960.,4.9455e-7,.0019615,-.0015846,-6.8674e-6,-.004292,
- -1.7132e-6,7960.,7970.,2.7828e-7,.0013177,-.0036989,1.1926e-6,
- -.0065515,6.9563e-6,7970.,7980.,3.8372e-7,.0017475,-.0038411,
- 1.7875e-6,-.0067043,7.5942e-6,7980.,7990.,7.3276e-7,.003011,
- -6.7794e-4,-9.4857e-6,-.0034111,-5.1641e-6,7990.,8e3,0.,0.,0.,0.,
- 0.,0.,8e3,8010.,0.,0.,0.,0.,0.,0.,8010.,8020.,0.,0.,0.,0.,0.,0.,
- 8020.,8030.,3.7029e-8,3.6096e-4,.012109,-6.2089e-5,.0089059,
- -5.5639e-5,8030.,8040.,2.1335e-7,.0010751,.0088149,-4.8284e-5,
- .0057133,-4.2623e-5,8040.,8050.,4.6462e-7,.001086,.0049284,
- -3.291e-5,.0017555,-2.6942e-5,8050.,8060.,1.5991e-6,.0018385,
- 6.4633e-4,-1.5477e-5,-.0022392,-1.0372e-5,8060.,8070.,1.7752e-6,
- .0016397,-.0024966,-3.4666e-6,-.0051909,1.8847e-6,8070.,8080.,
- 2.4423e-5,.26254,.02579,-7.7107e-5,.025403,-1.1405e-4,8080.,8090.,
- 6.1857e-5,.23309,.021977,-7.7807e-5,.020482,-9.5402e-5,8090.,
- 8100.,1.3473e-4,.23293,.019374,-8.4779e-5,.016814,-8.2971e-5,
- 8100.,8110.,3.3293e-4,.42794,.016857,-7.4779e-5,.01563,-7.4735e-5,
- 8110.,8120.,4.5545e-4,.42084,.014131,-6.4833e-5,.011587,
- -6.2246e-5,8120.,8130.,3.9267e-4,.4459,.01422,-6.6328e-5,.010179,
- -5.8346e-5,8130.,8140.,.0014095,.66221,.012879,-6.3481e-5,.010259,
- -5.9679e-5,8140.,8150.,.0025744,.34109,.0081434,-3.5365e-5,
- .010242,-4.4763e-5,8150.,8160.,.0053482,.12345,.0021618,
- -2.1398e-5,-8.9174e-4,-1.5761e-5,8160.,8170.,.0085974,.12902,
- -.0011939,-8.269e-6,-.0041809,-2.5012e-6,8170.,8180.,.011093,
- .20887,-.0036354,1.357e-6,-.006594,7.4093e-6,8180.,8190.,.0090124,
- .22951,-.0041975,3.4952e-6,-.0071581,9.6182e-6,8190.,8200.,
- .022977,.54634,5.4679e-4,-7.4452e-6,3.2715e-5,-7.7515e-6,8200.,
- 8210.,4.0967e-5,.33171,.029828,-1.2884e-4,.027502,-1.2751e-4,
- 8210.,8220.,1.3117e-4,.36661,.024705,-1.0516e-4,.023688,
- -1.1029e-4,8220.,8230.,4.1427e-4,.33236,.018964,-8.1986e-5,
- .018612,-8.8547e-5,8230.,8240.,.0011268,.30228,.013786,-6.0455e-5,
- .014251,-6.6968e-5,8240.,8250.,.0038631,.3115,.0080823,-3.8679e-5,
- .0084273,-4.2578e-5,8250.,8260.,.0060039,.26991,.0040499,
- -2.3093e-5,.0051036,-2.751e-5,8260.,8270.,.014968,.24443,
- -6.0624e-4,-8.9134e-6,-.0014888,-7.5779e-6,8270.,8280.,.015831,
- .42226,-.0020274,6.2203e-6,-1.636e-4,-2.1524e-6,8280.,8290.,
- .0086272,.42161,-.0028717,1.6391e-5,5.8996e-4,1.5552e-5,8290.,
- 8300.,.038978,.60506,-1.8963e-4,-4.6658e-6,-.0011243,-4.8784e-6,
- 8300.,8310.,0.,0.,0.,0.,0.,0.,8310.,8320.,0.,0.,0.,0.,0.,0.,8320.,
- 8330.,0.,0.,0.,0.,0.,0.,8330.,8340.,0.,0.,0.,0.,0.,0.,8340.,8350.,
- 0.,0.,0.,0.,0.,0.,8350.,8360.,0.,0.,0.,0.,0.,0.,8360.,8370.,0.,0.,
- 0.,0.,0.,0.,8370.,8380.,0.,0.,0.,0.,0.,0.,8380.,8390.,0.,0.,0.,0.,
- 0.,0.,8390.,8400.,0.,0.,0.,0.,0.,0.,8400.,8410.,0.,0.,0.,0.,0.,0.,
- 8410.,8420.,0.,0.,0.,0.,0.,0.,8420.,8430.,0.,0.,0.,0.,0.,0.,8430.,
- 8440.,0.,0.,0.,0.,0.,0.,8440.,8450.,0.,0.,0.,0.,0.,0.,8450.,8460.,
- 0.,0.,0.,0.,0.,0.,8460.,8470.,0.,0.,0.,0.,0.,0.,8470.,8480.,0.,0.,
- 0.,0.,0.,0.,8480.,8490.,0.,0.,0.,0.,0.,0.,8490.,8500.,0.,0.,0.,0.,
- 0.,0.,8500.,8510.,0.,0.,0.,0.,0.,0.,8510.,8520.,0.,0.,0.,0.,0.,0.,
- 8520.,8530.,0.,0.,0.,0.,0.,0.,8530.,8540.,0.,0.,0.,0.,0.,0.,8540.,
- 8550.,0.,0.,0.,0.,0.,0.,8550.,8560.,0.,0.,0.,0.,0.,0.,8560.,8570.,
- 0.,0.,0.,0.,0.,0.,8570.,8580.,0.,0.,0.,0.,0.,0.,8580.,8590.,0.,0.,
- 0.,0.,0.,0.,8590.,8600.,0.,0.,0.,0.,0.,0.,8600.,8610.,0.,0.,0.,0.,
- 0.,0.,8610.,8620.,0.,0.,0.,0.,0.,0.,8620.,8630.,0.,0.,0.,0.,0.,0.,
- 8630.,8640.,0.,0.,0.,0.,0.,0.,8640.,8650.,0.,0.,0.,0.,0.,0.,8650.,
- 8660.,0.,0.,0.,0.,0.,0.,8660.,8670.,0.,0.,0.,0.,0.,0.,8670.,8680.,
- 0.,0.,0.,0.,0.,0.,8680.,8690.,0.,0.,0.,0.,0.,0.,8690.,8700.,0.,0.,
- 0.,0.,0.,0.,8700.,8710.,0.,0.,0.,0.,0.,0.,8710.,8720.,0.,0.,0.,0.,
- 0.,0.,8720.,8730.,0.,0.,0.,0.,0.,0.,8730.,8740.,0.,0.,0.,0.,0.,0.,
- 8740.,8750.,0.,0.,0.,0.,0.,0.,8750.,8760.,0.,0.,0.,0.,0.,0.,8760.,
- 8770.,0.,0.,0.,0.,0.,0.,8770.,8780.,0.,0.,0.,0.,0.,0.,8780.,8790.,
- 0.,0.,0.,0.,0.,0.,8790.,8800.,0.,0.,0.,0.,0.,0.,8800.,8810.,0.,0.,
- 0.,0.,0.,0.,8810.,8820.,0.,0.,0.,0.,0.,0.,8820.,8830.,0.,0.,0.,0.,
- 0.,0.,8830.,8840.,0.,0.,0.,0.,0.,0.,8840.,8850.,0.,0.,0.,0.,0.,0.,
- 8850.,8860.,0.,0.,0.,0.,0.,0.,8860.,8870.,0.,0.,0.,0.,0.,0.,8870.,
- 8880.,0.,0.,0.,0.,0.,0.,8880.,8890.,0.,0.,0.,0.,0.,0.,8890.,8900.,
- 0.,0.,0.,0.,0.,0.,8900.,8910.,0.,0.,0.,0.,0.,0.,8910.,8920.,0.,0.,
- 0.,0.,0.,0.,8920.,8930.,0.,0.,0.,0.,0.,0.,8930.,8940.,0.,0.,0.,0.,
- 0.,0.,8940.,8950.,0.,0.,0.,0.,0.,0.,8950.,8960.,0.,0.,0.,0.,0.,0.,
- 8960.,8970.,0.,0.,0.,0.,0.,0.,8970.,8980.,0.,0.,0.,0.,0.,0.,8980.,
- 8990.,0.,0.,0.,0.,0.,0.,8990.,9e3,0.,0.,0.,0.,0.,0.,9e3,9010.,0.,
- 0.,0.,0.,0.,0.,9010.,9020.,0.,0.,0.,0.,0.,0.,9020.,9030.,0.,0.,0.,
- 0.,0.,0.,9030.,9040.,0.,0.,0.,0.,0.,0.,9040.,9050.,0.,0.,0.,0.,0.,
- 0.,9050.,9060.,0.,0.,0.,0.,0.,0.,9060.,9070.,0.,0.,0.,0.,0.,0.,
- 9070.,9080.,0.,0.,0.,0.,0.,0.,9080.,9090.,0.,0.,0.,0.,0.,0.,9090.,
- 9100.,0.,0.,0.,0.,0.,0.,9100.,9110.,0.,0.,0.,0.,0.,0.,9110.,9120.,
- 0.,0.,0.,0.,0.,0.,9120.,9130.,0.,0.,0.,0.,0.,0.,9130.,9140.,0.,0.,
- 0.,0.,0.,0.,9140.,9150.,0.,0.,0.,0.,0.,0.,9150.,9160.,0.,0.,0.,0.,
- 0.,0.,9160.,9170.,0.,0.,0.,0.,0.,0.,9170.,9180.,0.,0.,0.,0.,0.,0.,
- 9180.,9190.,0.,0.,0.,0.,0.,0.,9190.,9200.,0.,0.,0.,0.,0.,0.,9200.,
- 9210.,0.,0.,0.,0.,0.,0.,9210.,9220.,0.,0.,0.,0.,0.,0.,9220.,9230.,
- 0.,0.,0.,0.,0.,0.,9230.,9240.,0.,0.,0.,0.,0.,0.,9240.,9250.,0.,0.,
- 0.,0.,0.,0.,9250.,9260.,0.,0.,0.,0.,0.,0.,9260.,9270.,0.,0.,0.,0.,
- 0.,0.,9270.,9280.,0.,0.,0.,0.,0.,0.,9280.,9290.,0.,0.,0.,0.,0.,0.,
- 9290.,9300.,0.,0.,0.,0.,0.,0.,9300.,9310.,0.,0.,0.,0.,0.,0.,9310.,
- 9320.,0.,0.,0.,0.,0.,0.,9320.,9330.,0.,0.,0.,0.,0.,0.,9330.,9340.,
- 9.9593e-6,.060237,.0097616,-5.2148e-5,.0066534,-4.6124e-5,9340.,
- 9350.,4.3567e-5,.12051,.0054505,-3.4277e-5,.0024633,-2.9032e-5,
- 9350.,9360.,8.8924e-5,.12477,.0012273,-1.774e-5,-.0018429,
- -1.1984e-5,9360.,9370.,1.5573e-4,.16489,-.0021342,-4.4631e-6,
- -.005046,1.1731e-6,9370.,9380.,9.4382e-5,.17579,-.0041243,
- 3.1944e-6,-.0071235,9.3601e-6,9380.,9390.,2.1829e-4,.27491,
- -.0034678,8.2722e-7,-.0064858,7.0242e-6,9390.,9400.,2.27e-4,
- .36616,.0019245,-1.579e-5,-1.5673e-4,-1.5436e-5,9400.,9410.,0.,0.,
- 0.,0.,0.,0.,9410.,9420.,0.,0.,0.,0.,0.,0.,9420.,9430.,0.,0.,0.,0.,
- 0.,0.,9430.,9440.,0.,0.,0.,0.,0.,0.,9440.,9450.,4.0618e-5,.33672,
- .016922,-7.9759e-5,.013854,-7.4271e-5,9450.,9460.,8.026e-5,.35567,
- .013366,-6.6285e-5,.010448,-6.0815e-5,9460.,9470.,1.7445e-4,
- .15326,.0081302,-4.4538e-5,.0056112,-4.1022e-5,9470.,9480.,
- 3.3041e-4,.26053,.0049592,-2.831e-5,.0049032,-3.3415e-5,9480.,
- 9490.,8.9723e-4,.1582,-1.1481e-4,-1.225e-5,-.0031268,-6.7086e-6,
- 9490.,9500.,8.7248e-4,.13522,-.0029599,-1.3666e-6,-.005813,
- 4.3278e-6,9500.,9510.,5.7391e-4,.20153,-.0043771,4.1806e-6,
- -.0073125,1.0212e-5,9510.,9520.,.002106,.33852,-.0026269,
- -1.9082e-6,-.0056393,3.824e-6,9520.,9530.,8.7766e-4,.35363,
- .0044041,-2.4109e-5,.0031707,-2.6057e-5,9530.,9540.,0.,0.,0.,0.,
- 0.,0.,9540.,9550.,0.,0.,0.,0.,0.,0.,9550.,9560.,0.,0.,0.,0.,0.,0.,
- 9560.,9570.,0.,0.,0.,0.,0.,0.,9570.,9580.,0.,0.,0.,0.,0.,0.,9580.,
- 9590.,0.,0.,0.,0.,0.,0.,9590.,9600.,0.,0.,0.,0.,0.,0.,9600.,9610.,
- 0.,0.,0.,0.,0.,0.,9610.,9620.,0.,0.,0.,0.,0.,0.,9620.,9630.,0.,0.,
- 0.,0.,0.,0.,9630.,9640.,0.,0.,0.,0.,0.,0.,9640.,9650.,0.,0.,0.,0.,
- 0.,0.,9650.,9660.,0.,0.,0.,0.,0.,0.,9660.,9670.,0.,0.,0.,0.,0.,0.,
- 9670.,9680.,0.,0.,0.,0.,0.,0.,9680.,9690.,0.,0.,0.,0.,0.,0.,9690.,
- 9700.,0.,0.,0.,0.,0.,0.,9700.,9710.,0.,0.,0.,0.,0.,0.,9710.,9720.,
- 0.,0.,0.,0.,0.,0.,9720.,9730.,0.,0.,0.,0.,0.,0.,9730.,9740.,0.,0.,
- 0.,0.,0.,0.,9740.,9750.,0.,0.,0.,0.,0.,0.,9750.,9760.,0.,0.,0.,0.,
- 0.,0.,9760.,9770.,0.,0.,0.,0.,0.,0.,9770.,9780.,0.,0.,0.,0.,0.,0.,
- 9780.,9790.,0.,0.,0.,0.,0.,0.,9790.,9800.,0.,0.,0.,0.,0.,0.,9800.,
- 9810.,0.,0.,0.,0.,0.,0.,9810.,9820.,0.,0.,0.,0.,0.,0.,9820.,9830.,
- 0.,0.,0.,0.,0.,0.,9830.,9840.,0.,0.,0.,0.,0.,0.,9840.,9850.,0.,0.,
- 0.,0.,0.,0.,9850.,9860.,0.,0.,0.,0.,0.,0.,9860.,9870.,0.,0.,0.,0.,
- 0.,0.,9870.,9880.,0.,0.,0.,0.,0.,0.,9880.,9890.,0.,0.,0.,0.,0.,0.,
- 9890.,9900.,0.,0.,0.,0.,0.,0.,9900.,9910.,0.,0.,0.,0.,0.,0.,9910.,
- 9920.,0.,0.,0.,0.,0.,0.,9920.,9930.,0.,0.,0.,0.,0.,0.,9930.,9940.,
- 0.,0.,0.,0.,0.,0.,9940.,9950.,0.,0.,0.,0.,0.,0.,9950.,9960.,0.,0.,
- 0.,0.,0.,0.,9960.,9970.,0.,0.,0.,0.,0.,0.,9970.,9980.,0.,0.,0.,0.,
- 0.,0.,9980.,9990.,0.,0.,0.,0.,0.,0.,9990.,1e4,0.,0.,0.,0.,0.,0.,
- 1e4,10010.,0.,0.,0.,0.,0.,0.,10010.,10020.,0.,0.,0.,0.,0.,0.,
- 10020.,10030.,0.,0.,0.,0.,0.,0.,10030.,10040.,0.,0.,0.,0.,0.,0.,
- 10040.,10050.,0.,0.,0.,0.,0.,0.,10050.,10060.,0.,0.,0.,0.,0.,0.,
- 10060.,10070.,0.,0.,0.,0.,0.,0.,10070.,10080.,0.,0.,0.,0.,0.,0.,
- 10080.,10090.,0.,0.,0.,0.,0.,0.,10090.,10100.,0.,0.,0.,0.,0.,0.,
- 10100.,10110.,0.,0.,0.,0.,0.,0.,10110.,10120.,0.,0.,0.,0.,0.,0.,
- 10120.,10130.,0.,0.,0.,0.,0.,0.,10130.,10140.,0.,0.,0.,0.,0.,0.,
- 10140.,10150.,0.,0.,0.,0.,0.,0.,10150.,10160.,0.,0.,0.,0.,0.,0.,
- 10160.,10170.,0.,0.,0.,0.,0.,0.,10170.,10180. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* carbon dioxide (7620 - 10170 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* dica3_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DICA3.f b/Modules/ThirdParty/6S/src/6SV1.0B/DICA3.f
deleted file mode 100644
index 796f2f5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DICA3.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine dica3(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c carbon dioxide (7620 - 10170 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.41135e-04, 0.13491e+00, 0.19511e-01,-0.88592e-04, 0.17169e-01,
- a-0.86383e-04, 0.76200e+04, 0.76300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76300e+04, 0.76400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76400e+04, 0.76500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76500e+04, 0.76600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76600e+04, 0.76700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76700e+04, 0.76800e+04,
- a 0.69843e-05, 0.58690e-01, 0.17996e-01,-0.84950e-04, 0.14986e-01,
- a-0.79255e-04, 0.76800e+04, 0.76900e+04,
- a 0.44856e-04, 0.11610e+00, 0.12313e-01,-0.61208e-04, 0.94917e-02,
- a-0.56817e-04, 0.76900e+04, 0.77000e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.21119e-03, 0.14823e+00, 0.58288e-02,-0.35255e-04, 0.29752e-02,
- a-0.30772e-04, 0.77000e+04, 0.77100e+04,
- a 0.68368e-03, 0.18822e+00, 0.21812e-03,-0.13229e-04,-0.27425e-02,
- a-0.80771e-05, 0.77100e+04, 0.77200e+04,
- a 0.80401e-03, 0.20648e+00,-0.32887e-02, 0.50708e-07,-0.62117e-02,
- a 0.59400e-05, 0.77200e+04, 0.77300e+04,
- a 0.36897e-03, 0.20612e+00,-0.45166e-02, 0.47173e-05,-0.74494e-02,
- a 0.10697e-04, 0.77300e+04, 0.77400e+04,
- a 0.11094e-02, 0.31021e+00,-0.22536e-02,-0.10224e-05,-0.33444e-02,
- a 0.21129e-05, 0.77400e+04, 0.77500e+04,
- a 0.65848e-03, 0.26193e+00, 0.27594e-02,-0.21278e-04, 0.25217e-03,
- a-0.18776e-04, 0.77500e+04, 0.77600e+04,
- a 0.73155e-04, 0.30739e+00, 0.13041e-01,-0.63190e-04, 0.10499e-01,
- a-0.60136e-04, 0.77600e+04, 0.77700e+04,
- a 0.19363e-04, 0.19417e+00, 0.14647e-01,-0.71772e-04, 0.11659e-01,
- a-0.65892e-04, 0.77700e+04, 0.77800e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77800e+04, 0.77900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77900e+04, 0.78000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78000e+04, 0.78100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78100e+04, 0.78200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78200e+04, 0.78300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78300e+04, 0.78400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78400e+04, 0.78500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78500e+04, 0.78600e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78600e+04, 0.78700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78700e+04, 0.78800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78800e+04, 0.78900e+04,
- a 0.37190e-04, 0.18910e+00, 0.32484e-03,-0.13576e-04,-0.26862e-02,
- a-0.82867e-05, 0.78900e+04, 0.79000e+04,
- a 0.94656e-04, 0.36300e+00,-0.20395e-02,-0.42752e-05,-0.49939e-02,
- a 0.12049e-05, 0.79000e+04, 0.79100e+04,
- a 0.73888e-04, 0.33612e+00,-0.27854e-02,-0.14358e-05,-0.56280e-02,
- a 0.37427e-05, 0.79100e+04, 0.79200e+04,
- a 0.35986e-04, 0.14439e+00,-0.40916e-02, 0.30556e-05,-0.70423e-02,
- a 0.90581e-05, 0.79200e+04, 0.79300e+04,
- a 0.77290e-04, 0.22754e+00,-0.15562e-02,-0.62734e-05,-0.44592e-02,
- a-0.10627e-05, 0.79300e+04, 0.79400e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.18388e-04, 0.92491e-01, 0.27526e-02,-0.24014e-04,-0.34204e-03,
- a-0.18092e-04, 0.79400e+04, 0.79500e+04,
- a 0.19936e-06, 0.10968e-02, 0.17030e-02,-0.20156e-04,-0.13872e-02,
- a-0.14222e-04, 0.79500e+04, 0.79600e+04,
- a 0.49455e-06, 0.19615e-02,-0.15846e-02,-0.68674e-05,-0.42920e-02,
- a-0.17132e-05, 0.79600e+04, 0.79700e+04,
- a 0.27828e-06, 0.13177e-02,-0.36989e-02, 0.11926e-05,-0.65515e-02,
- a 0.69563e-05, 0.79700e+04, 0.79800e+04,
- a 0.38372e-06, 0.17475e-02,-0.38411e-02, 0.17875e-05,-0.67043e-02,
- a 0.75942e-05, 0.79800e+04, 0.79900e+04,
- a 0.73276e-06, 0.30110e-02,-0.67794e-03,-0.94857e-05,-0.34111e-02,
- a-0.51641e-05, 0.79900e+04, 0.80000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80000e+04, 0.80100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80100e+04, 0.80200e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80200e+04, 0.80300e+04,
- a 0.37029e-07, 0.36096e-03, 0.12109e-01,-0.62089e-04, 0.89059e-02,
- a-0.55639e-04, 0.80300e+04, 0.80400e+04,
- a 0.21335e-06, 0.10751e-02, 0.88149e-02,-0.48284e-04, 0.57133e-02,
- a-0.42623e-04, 0.80400e+04, 0.80500e+04,
- a 0.46462e-06, 0.10860e-02, 0.49284e-02,-0.32910e-04, 0.17555e-02,
- a-0.26942e-04, 0.80500e+04, 0.80600e+04,
- a 0.15991e-05, 0.18385e-02, 0.64633e-03,-0.15477e-04,-0.22392e-02,
- a-0.10372e-04, 0.80600e+04, 0.80700e+04,
- a 0.17752e-05, 0.16397e-02,-0.24966e-02,-0.34666e-05,-0.51909e-02,
- a 0.18847e-05, 0.80700e+04, 0.80800e+04,
- a 0.24423e-04, 0.26254e+00, 0.25790e-01,-0.77107e-04, 0.25403e-01,
- a-0.11405e-03, 0.80800e+04, 0.80900e+04,
- a 0.61857e-04, 0.23309e+00, 0.21977e-01,-0.77807e-04, 0.20482e-01,
- a-0.95402e-04, 0.80900e+04, 0.81000e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.13473e-03, 0.23293e+00, 0.19374e-01,-0.84779e-04, 0.16814e-01,
- a-0.82971e-04, 0.81000e+04, 0.81100e+04,
- a 0.33293e-03, 0.42794e+00, 0.16857e-01,-0.74779e-04, 0.15630e-01,
- a-0.74735e-04, 0.81100e+04, 0.81200e+04,
- a 0.45545e-03, 0.42084e+00, 0.14131e-01,-0.64833e-04, 0.11587e-01,
- a-0.62246e-04, 0.81200e+04, 0.81300e+04,
- a 0.39267e-03, 0.44590e+00, 0.14220e-01,-0.66328e-04, 0.10179e-01,
- a-0.58346e-04, 0.81300e+04, 0.81400e+04,
- a 0.14095e-02, 0.66221e+00, 0.12879e-01,-0.63481e-04, 0.10259e-01,
- a-0.59679e-04, 0.81400e+04, 0.81500e+04,
- a 0.25744e-02, 0.34109e+00, 0.81434e-02,-0.35365e-04, 0.10242e-01,
- a-0.44763e-04, 0.81500e+04, 0.81600e+04,
- a 0.53482e-02, 0.12345e+00, 0.21618e-02,-0.21398e-04,-0.89174e-03,
- a-0.15761e-04, 0.81600e+04, 0.81700e+04,
- a 0.85974e-02, 0.12902e+00,-0.11939e-02,-0.82690e-05,-0.41809e-02,
- a-0.25012e-05, 0.81700e+04, 0.81800e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.11093e-01, 0.20887e+00,-0.36354e-02, 0.13570e-05,-0.65940e-02,
- a 0.74093e-05, 0.81800e+04, 0.81900e+04,
- a 0.90124e-02, 0.22951e+00,-0.41975e-02, 0.34952e-05,-0.71581e-02,
- a 0.96182e-05, 0.81900e+04, 0.82000e+04,
- a 0.22977e-01, 0.54634e+00, 0.54679e-03,-0.74452e-05, 0.32715e-04,
- a-0.77515e-05, 0.82000e+04, 0.82100e+04,
- a 0.40967e-04, 0.33171e+00, 0.29828e-01,-0.12884e-03, 0.27502e-01,
- a-0.12751e-03, 0.82100e+04, 0.82200e+04,
- a 0.13117e-03, 0.36661e+00, 0.24705e-01,-0.10516e-03, 0.23688e-01,
- a-0.11029e-03, 0.82200e+04, 0.82300e+04,
- a 0.41427e-03, 0.33236e+00, 0.18964e-01,-0.81986e-04, 0.18612e-01,
- a-0.88547e-04, 0.82300e+04, 0.82400e+04,
- a 0.11268e-02, 0.30228e+00, 0.13786e-01,-0.60455e-04, 0.14251e-01,
- a-0.66968e-04, 0.82400e+04, 0.82500e+04,
- a 0.38631e-02, 0.31150e+00, 0.80823e-02,-0.38679e-04, 0.84273e-02,
- a-0.42578e-04, 0.82500e+04, 0.82600e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.60039e-02, 0.26991e+00, 0.40499e-02,-0.23093e-04, 0.51036e-02,
- a-0.27510e-04, 0.82600e+04, 0.82700e+04,
- a 0.14968e-01, 0.24443e+00,-0.60624e-03,-0.89134e-05,-0.14888e-02,
- a-0.75779e-05, 0.82700e+04, 0.82800e+04,
- a 0.15831e-01, 0.42226e+00,-0.20274e-02, 0.62203e-05,-0.16360e-03,
- a-0.21524e-05, 0.82800e+04, 0.82900e+04,
- a 0.86272e-02, 0.42161e+00,-0.28717e-02, 0.16391e-04, 0.58996e-03,
- a 0.15552e-04, 0.82900e+04, 0.83000e+04,
- a 0.38978e-01, 0.60506e+00,-0.18963e-03,-0.46658e-05,-0.11243e-02,
- a-0.48784e-05, 0.83000e+04, 0.83100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83100e+04, 0.83200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83200e+04, 0.83300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83300e+04, 0.83400e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83400e+04, 0.83500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83500e+04, 0.83600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83600e+04, 0.83700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83700e+04, 0.83800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83800e+04, 0.83900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83900e+04, 0.84000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84000e+04, 0.84100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84100e+04, 0.84200e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84200e+04, 0.84300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84300e+04, 0.84400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84400e+04, 0.84500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84500e+04, 0.84600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84600e+04, 0.84700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84700e+04, 0.84800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84800e+04, 0.84900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84900e+04, 0.85000e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85000e+04, 0.85100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85100e+04, 0.85200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85200e+04, 0.85300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85300e+04, 0.85400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85400e+04, 0.85500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85500e+04, 0.85600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85600e+04, 0.85700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85700e+04, 0.85800e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85800e+04, 0.85900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85900e+04, 0.86000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86000e+04, 0.86100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86100e+04, 0.86200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86200e+04, 0.86300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86300e+04, 0.86400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86400e+04, 0.86500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86500e+04, 0.86600e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86600e+04, 0.86700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86700e+04, 0.86800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86800e+04, 0.86900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86900e+04, 0.87000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87000e+04, 0.87100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87100e+04, 0.87200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87200e+04, 0.87300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87300e+04, 0.87400e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87400e+04, 0.87500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87500e+04, 0.87600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87600e+04, 0.87700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87700e+04, 0.87800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87800e+04, 0.87900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87900e+04, 0.88000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88000e+04, 0.88100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88100e+04, 0.88200e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88200e+04, 0.88300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88300e+04, 0.88400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88400e+04, 0.88500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88500e+04, 0.88600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88600e+04, 0.88700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88700e+04, 0.88800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88800e+04, 0.88900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88900e+04, 0.89000e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89000e+04, 0.89100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89100e+04, 0.89200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89200e+04, 0.89300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89300e+04, 0.89400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89400e+04, 0.89500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89500e+04, 0.89600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89600e+04, 0.89700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89700e+04, 0.89800e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89800e+04, 0.89900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89900e+04, 0.90000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90000e+04, 0.90100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90100e+04, 0.90200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90200e+04, 0.90300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90300e+04, 0.90400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90400e+04, 0.90500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90500e+04, 0.90600e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90600e+04, 0.90700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90700e+04, 0.90800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90800e+04, 0.90900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90900e+04, 0.91000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91000e+04, 0.91100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91100e+04, 0.91200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91200e+04, 0.91300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91300e+04, 0.91400e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91400e+04, 0.91500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91500e+04, 0.91600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91600e+04, 0.91700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91700e+04, 0.91800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91800e+04, 0.91900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91900e+04, 0.92000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92000e+04, 0.92100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92100e+04, 0.92200e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92200e+04, 0.92300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92300e+04, 0.92400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92400e+04, 0.92500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92500e+04, 0.92600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92600e+04, 0.92700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92700e+04, 0.92800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92800e+04, 0.92900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92900e+04, 0.93000e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93000e+04, 0.93100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93100e+04, 0.93200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93200e+04, 0.93300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93300e+04, 0.93400e+04,
- a 0.99593e-05, 0.60237e-01, 0.97616e-02,-0.52148e-04, 0.66534e-02,
- a-0.46124e-04, 0.93400e+04, 0.93500e+04,
- a 0.43567e-04, 0.12051e+00, 0.54505e-02,-0.34277e-04, 0.24633e-02,
- a-0.29032e-04, 0.93500e+04, 0.93600e+04,
- a 0.88924e-04, 0.12477e+00, 0.12273e-02,-0.17740e-04,-0.18429e-02,
- a-0.11984e-04, 0.93600e+04, 0.93700e+04,
- a 0.15573e-03, 0.16489e+00,-0.21342e-02,-0.44631e-05,-0.50460e-02,
- a 0.11731e-05, 0.93700e+04, 0.93800e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.94382e-04, 0.17579e+00,-0.41243e-02, 0.31944e-05,-0.71235e-02,
- a 0.93601e-05, 0.93800e+04, 0.93900e+04,
- a 0.21829e-03, 0.27491e+00,-0.34678e-02, 0.82722e-06,-0.64858e-02,
- a 0.70242e-05, 0.93900e+04, 0.94000e+04,
- a 0.22700e-03, 0.36616e+00, 0.19245e-02,-0.15790e-04,-0.15673e-03,
- a-0.15436e-04, 0.94000e+04, 0.94100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94100e+04, 0.94200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94200e+04, 0.94300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94300e+04, 0.94400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94400e+04, 0.94500e+04,
- a 0.40618e-04, 0.33672e+00, 0.16922e-01,-0.79759e-04, 0.13854e-01,
- a-0.74271e-04, 0.94500e+04, 0.94600e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.80260e-04, 0.35567e+00, 0.13366e-01,-0.66285e-04, 0.10448e-01,
- a-0.60815e-04, 0.94600e+04, 0.94700e+04,
- a 0.17445e-03, 0.15326e+00, 0.81302e-02,-0.44538e-04, 0.56112e-02,
- a-0.41022e-04, 0.94700e+04, 0.94800e+04,
- a 0.33041e-03, 0.26053e+00, 0.49592e-02,-0.28310e-04, 0.49032e-02,
- a-0.33415e-04, 0.94800e+04, 0.94900e+04,
- a 0.89723e-03, 0.15820e+00,-0.11481e-03,-0.12250e-04,-0.31268e-02,
- a-0.67086e-05, 0.94900e+04, 0.95000e+04,
- a 0.87248e-03, 0.13522e+00,-0.29599e-02,-0.13666e-05,-0.58130e-02,
- a 0.43278e-05, 0.95000e+04, 0.95100e+04,
- a 0.57391e-03, 0.20153e+00,-0.43771e-02, 0.41806e-05,-0.73125e-02,
- a 0.10212e-04, 0.95100e+04, 0.95200e+04,
- a 0.21060e-02, 0.33852e+00,-0.26269e-02,-0.19082e-05,-0.56393e-02,
- a 0.38240e-05, 0.95200e+04, 0.95300e+04,
- a 0.87766e-03, 0.35363e+00, 0.44041e-02,-0.24109e-04, 0.31707e-02,
- a-0.26057e-04, 0.95300e+04, 0.95400e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95400e+04, 0.95500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95500e+04, 0.95600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95600e+04, 0.95700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95700e+04, 0.95800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95800e+04, 0.95900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95900e+04, 0.96000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96000e+04, 0.96100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96100e+04, 0.96200e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96200e+04, 0.96300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96300e+04, 0.96400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96400e+04, 0.96500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96500e+04, 0.96600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96600e+04, 0.96700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96700e+04, 0.96800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96800e+04, 0.96900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96900e+04, 0.97000e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97000e+04, 0.97100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97100e+04, 0.97200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97200e+04, 0.97300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97300e+04, 0.97400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97400e+04, 0.97500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97500e+04, 0.97600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97600e+04, 0.97700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97700e+04, 0.97800e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97800e+04, 0.97900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97900e+04, 0.98000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98000e+04, 0.98100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98100e+04, 0.98200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98200e+04, 0.98300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98300e+04, 0.98400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98400e+04, 0.98500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98500e+04, 0.98600e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98600e+04, 0.98700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98700e+04, 0.98800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98800e+04, 0.98900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98900e+04, 0.99000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99000e+04, 0.99100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99100e+04, 0.99200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99200e+04, 0.99300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99300e+04, 0.99400e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99400e+04, 0.99500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99500e+04, 0.99600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99600e+04, 0.99700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99700e+04, 0.99800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99800e+04, 0.99900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99900e+04, 0.10000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10000e+05, 0.10010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10010e+05, 0.10020e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10020e+05, 0.10030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10030e+05, 0.10040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10040e+05, 0.10050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10050e+05, 0.10060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10060e+05, 0.10070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10070e+05, 0.10080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10080e+05, 0.10090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10090e+05, 0.10100e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10100e+05, 0.10110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10110e+05, 0.10120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10120e+05, 0.10130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10130e+05, 0.10140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10140e+05, 0.10150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10150e+05, 0.10160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10160e+05, 0.10170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10170e+05, 0.10180e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DICA3.h b/Modules/ThirdParty/6S/src/6SV1.0B/DICA3.h
deleted file mode 100644
index b003b03..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DICA3.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_dica3_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.P b/Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.P
deleted file mode 100644
index 68ee2f8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.P
+++ /dev/null
@@ -1,12 +0,0 @@
-extern int discom_(integer *idatmp, integer *iaer, integer *iaer_prof__, doublereal *xmus, doublereal *xmuv, doublereal *phi, doublereal *taer55, doublereal *taer55p, doublereal *palt, doublereal *phirad, integer *nt, integer *mu, integer *np, doublereal *rm, doublereal *gb, doublereal *rp, doublereal *ftray, integer *ipol, doublereal *xlm1, doublereal *xlm2, doublereal *roatm_fi__, integer *nfi, integer *nfilut, doublereal *filut, doublereal *roluts, doublereal *rolutsq, doublereal *rolutsu);
-/* comlen num_quad__ 4 */
-/* comlen sixs_phase__ 480000 */
-/* comlen sixs_polar__ 56032 */
-/* comlen sixs_aer__ 960 */
-/* comlen sixs_disc__ 4320 */
-/* comlen sixs_ffu__ 12024 */
-/* comlen aeroprof_ 2428 */
-/*:ref: odrayl_ 14 2 7 7 */
-/*:ref: trunca_ 14 2 7 4 */
-/*:ref: atmref_ 14 41 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 4 7 7 7 7 4 4 7 7 7 7 */
-/*:ref: scatra_ 14 28 4 7 7 7 7 7 7 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.c b/Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.c
deleted file mode 100644
index 4057cba..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.c
+++ /dev/null
@@ -1,409 +0,0 @@
-/* DISCOM.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal phasel[20000] /* was [20][1000] */, qhasel[20000] /*
- was [20][1000] */, uhasel[20000] /* was [20][1000] */;
-} sixs_phase__;
-
-#define sixs_phase__1 sixs_phase__
-
-/*OTB */
-/*Extern*/ struct {
- doublereal pha[1000], qha[1000], uha[1000], alphal[1001], betal[1001],
- gammal[1001], zetal[1001];
-} sixs_polar__;
-
-#define sixs_polar__1 sixs_polar__
-
-Extern struct {
- doublereal ext[20], ome[20], gasym[20], phase[20], qhase[20], uhase[20];
-} sixs_aer__;
-
-#define sixs_aer__1 sixs_aer__
-
-Extern struct {
- doublereal roatm[60] /* was [3][20] */, dtdir[60] /* was [3][20]
- */, dtdif[60] /* was [3][20] */, utdir[60] /* was [3][20]
- */, utdif[60] /* was [3][20] */, sphal[60] /* was [3][20]
- */, wldis[20], trayl[20], traypl[20], rqatm[60] /* was [3][20]
- */, ruatm[60] /* was [3][20] */;
-} sixs_disc__;
-
-#define sixs_disc__1 sixs_disc__
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-Extern struct {
- integer num_z__;
- doublereal alt_z__[101], taer_z__[101], taer55_z__[101];
-} aeroprof_;
-
-#define aeroprof_1 aeroprof_
-
-/*< >*/
-/* Subroutine */ int discom_(integer *idatmp, integer *iaer, integer *
- iaer_prof__, doublereal *xmus, doublereal *xmuv, doublereal *phi,
- doublereal *taer55, doublereal *taer55p, doublereal *palt, doublereal
- *phirad, integer *nt, integer *mu, integer *np, doublereal *rm,
- doublereal *gb, doublereal *rp, doublereal *ftray, integer *ipol,
- doublereal *xlm1, doublereal *xlm2, doublereal *roatm_fi__, integer *
- nfi, integer *nfilut, doublereal *filut, doublereal *roluts,
- doublereal *rolutsq, doublereal *rolutsu)
-{
- /* System generated locals */
- integer rm_offset, gb_offset, xlm1_dim1, xlm1_offset, xlm2_dim1,
- xlm2_offset, roluts_dim2, roluts_offset, rolutsq_dim2,
- rolutsq_offset, rolutsu_dim2, rolutsu_offset, filut_dim1,
- filut_offset, i__1;
-
- /* Local variables */
- doublereal romix_fi__[181];
- integer i__, j, k, l;
- doublereal rorayl_fi__[181], wl;
- integer ifi;
- doublereal taer, nbmu, piza, tray, coeff = 0., taerp, tamoy, romix, trayp,
- rqmix, rumix, rolut[1025] /* was [25][41] */, ddifta, ddirta,
- ddiftt, ddiftr, udifta;
- extern /* Subroutine */ int atmref_(integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *, integer *,
- integer *, integer *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, integer *, doublereal *, doublereal *, doublereal *,
- doublereal *, integer *, integer *, doublereal *, doublereal *,
- doublereal *, doublereal *);
- doublereal roaero, ddirtr, rqaero, ddirtt, udirta;
- extern /* Subroutine */ int odrayl_(doublereal *, doublereal *);
- doublereal ruaero, udiftr, udiftt;
- extern /* Subroutine */ int trunca_(doublereal *, integer *), scatra_(
- integer *, doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *);
- doublereal rorayl, tamoyp, rqrayl, udirtt, udirtr, rurayl, rolutq[1025]
- /* was [25][41] */, pizmoy, rolutu[1025] /* was [25][41] */,
- sphalba, sphalbr, sphalbt;
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real phasel,qhasel,uhasel >*/
-/*< >*/
-/*< real pha,qha,uha,alphal,betal,gammal,zetal >*/
-/*< >*/
-/*< real nbmu >*/
-/* - to vary the number of quadratures */
-/*< integer mu,np,ipol >*/
-/*< integer idatmp,iaer,nt,l,k >*/
-/*< real rm(-mu:mu),rp(np),gb(-mu:mu) >*/
-/*< real ftray,xlm1(-mu:mu,np),xlm2(-mu:mu,np) >*/
-/*< real roatm_fi(3,20,nfi) >*/
-/* THOMAS */
-/* real rorayl_fi(nfi),romix_fi(nfi) */
-/*< real rorayl_fi(181),romix_fi(181) >*/
-/* THOMAS */
-/* real rolut(mu,41) */
-/*< real rolut(25,41) >*/
-/*< real roluts(20,mu,41) >*/
-/* THOMAS */
-/* real rolutq(mu,41) */
-/*< real rolutq(25,41) >*/
-/*< real rolutsq(20,mu,41) >*/
-/* THOMAS */
-/* real rolutu(mu,41) */
-/*< real rolutu(25,41) >*/
-/*< real rolutsu(20,mu,41) >*/
-/*< real filut(mu,41) >*/
-/*< integer nfilut(mu) >*/
-/*< real xmus,xmuv,phi >*/
-/*< real taer55,taer55p,palt,phirad,ext,ome,gasym,phase,roatm >*/
-/*< real dtdir,dtdif,utdir,utdif,sphal,wldis,trayl,traypl,s >*/
-/*< real wlinf,wlsup,wl,tray,trayp,taer >*/
-/*< real rqatm,ruatm,rurayl,ruaero,rumix,qhase,uhase >*/
-/*< real taerp,piza,tamoy,tamoyp,pizmoy,rorayl,rqrayl,rqmix,rqaero >*/
-/*< real roaero,romix,ddirtt,ddiftt,udirtt,udiftt,sphalbt,ddirtr >*/
-/*< real ddiftr,udirtr,udiftr,sphalbr,ddirta,ddifta,udirta,udifta >*/
-/*< real sphalba,coeff >*/
-/*< >*/
-/*< >*/
-/*< common /sixs_ffu/s(1501),wlinf,wlsup >*/
-/*< real alt_z,taer_z,taer55_z >*/
-/*< >*/
-/*< integer iaer_prof >*/
-/* computation of all scattering parameters at wavelength */
-/* discrete values,so we can interpolate at any wavelength */
-/*< do 50 l=1,20 >*/
- /* Parameter adjustments */
- rolutsu_dim2 = *mu;
- rolutsu_offset = (rolutsu_dim2 + 1) * 20 + 1;
- rolutsu -= rolutsu_offset;
- rolutsq_dim2 = *mu;
- rolutsq_offset = (rolutsq_dim2 + 1) * 20 + 1;
- rolutsq -= rolutsq_offset;
- roluts_dim2 = *mu;
- roluts_offset = (roluts_dim2 + 1) * 20 + 1;
- roluts -= roluts_offset;
- filut_dim1 = *mu;
- filut_offset = filut_dim1 + 1;
- filut -= filut_offset;
- --nfilut;
- gb_offset = -(*mu);
- gb -= gb_offset;
- rm_offset = -(*mu);
- rm -= rm_offset;
- xlm2_dim1 = *mu - (-(*mu)) + 1;
- xlm2_offset = -(*mu) + xlm2_dim1;
- xlm2 -= xlm2_offset;
- xlm1_dim1 = *mu - (-(*mu)) + 1;
- xlm1_offset = -(*mu) + xlm1_dim1;
- xlm1 -= xlm1_offset;
- --rp;
- roatm_fi__ -= 64;
-
- /* Function Body */
- for (l = 1; l <= 20; ++l) {
-/*< wl=wldis(l) >*/
- wl = sixs_disc__1.wldis[l - 1];
-/*< if ((wlsup.lt.wldis(1)).and.(l.le.2)) goto 30 >*/
- if (sixs_ffu__1.wlsup < sixs_disc__1.wldis[0] && l <= 2) {
- goto L30;
- }
-/*< if (wlinf.gt.wldis(20).and.(l.ge.19)) goto 30 >*/
- if (sixs_ffu__1.wlinf > sixs_disc__1.wldis[19] && l >= 19) {
- goto L30;
- }
-/*< >*/
- if (l < 20 && sixs_disc__1.wldis[l - 1] < sixs_ffu__1.wlinf &&
- sixs_disc__1.wldis[l] < sixs_ffu__1.wlinf) {
- goto L50;
- }
-/*< >*/
- if (l > 1 && sixs_disc__1.wldis[l - 1] > sixs_ffu__1.wlsup &&
- sixs_disc__1.wldis[l - 2] > sixs_ffu__1.wlsup) {
- goto L50;
- }
-/* computation of rayleigh optical depth at wl */
-/*< 30 call odrayl(wl,tray) >*/
-L30:
- odrayl_(&wl, &tray);
-/* plane case discussed here above */
-/*< if (idatmp.eq.0.or.idatmp.eq.4) then >*/
- if (*idatmp == 0 || *idatmp == 4) {
-/*< if (idatmp.eq.4) trayp=tray >*/
- if (*idatmp == 4) {
- trayp = tray;
- }
-/*< if (idatmp.eq.0) trayp=0. >*/
- if (*idatmp == 0) {
- trayp = 0.;
- }
-/*< else >*/
- } else {
-/*< trayp=tray*ftray >*/
- trayp = tray * *ftray;
-/*< endif >*/
- }
-/*< trayl(l)=tray >*/
- sixs_disc__1.trayl[l - 1] = tray;
-/*< traypl(l)=trayp >*/
- sixs_disc__1.traypl[l - 1] = trayp;
-/* computation of aerosol optical properties at wl */
-/*< taer=taer55*ext(l) >*/
- taer = *taer55 * sixs_aer__1.ext[l - 1];
-/*< taerp=taer55p*ext(l) >*/
- taerp = *taer55p * sixs_aer__1.ext[l - 1];
-/*< piza=ome(l) >*/
- piza = sixs_aer__1.ome[l - 1];
-/* - in case of the user-defined aerosol profile */
-/*< do i=1,num_z >*/
- i__1 = aeroprof_1.num_z__;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< taer_z(i)=taer55_z(i)*ext(l) >*/
- aeroprof_1.taer_z__[i__] = aeroprof_1.taer55_z__[i__] *
- sixs_aer__1.ext[l - 1];
-/*< enddo >*/
- }
-/* - in case of the user-defined aerosol profile */
-
-/* computation of atmospheric reflectances */
-/* rorayl is rayleigh ref */
-/* roaero is aerosol ref */
-/* call trunca to decompose aerosol phase function in */
-/* Legendre polynomials. */
-/*< nbmu=nquad >*/
- nbmu = (doublereal) num_quad__1.nquad;
-/*< do k=1,nbmu >*/
- i__1 = (integer) nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< pha(k)=phasel(l,k) >*/
- sixs_polar__1.pha[k - 1] = sixs_phase__1.phasel[l + k * 20 - 21];
-/*< enddo >*/
- }
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< do k=1,nbmu >*/
- i__1 = (integer) nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< qha(k)=qhasel(l,k) >*/
- sixs_polar__1.qha[k - 1] = sixs_phase__1.qhasel[l + k * 20 -
- 21];
-/*< uha(k)=uhasel(l,k) >*/
- sixs_polar__1.uha[k - 1] = sixs_phase__1.uhasel[l + k * 20 -
- 21];
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< if (iaer.ne.0) call trunca(coeff,ipol) ! the routine is modified >*/
- if (*iaer != 0) {
- trunca_(&coeff, ipol);
- }
-/*< tamoy=taer*(1.-piza*coeff) >*/
- tamoy = taer * (1. - piza * coeff);
-/*< tamoyp=taerp*(1.-piza*coeff) >*/
- tamoyp = taerp * (1. - piza * coeff);
-/*< pizmoy=piza*(1.-coeff)/(1.-piza*coeff) >*/
- pizmoy = piza * (1. - coeff) / (1. - piza * coeff);
-/*< >*/
- atmref_(iaer, iaer_prof__, &tamoy, &taer, &tray, &pizmoy, &piza, &
- tamoyp, &taerp, &trayp, palt, phi, xmus, xmuv, phirad, nt, mu,
- np, &rm[rm_offset], &gb[gb_offset], &rp[1], &rorayl, &roaero,
- &romix, &rqrayl, &rqaero, &rqmix, &rurayl, &ruaero, &rumix,
- ipol, &xlm1[xlm1_offset], &xlm2[xlm2_offset], rorayl_fi__,
- romix_fi__, nfi, &nfilut[1], &filut[filut_offset], rolut,
- rolutq, rolutu);
-/*< roatm(1,l)=rorayl >*/
- sixs_disc__1.roatm[l * 3 - 3] = rorayl;
-/*< roatm(2,l)=romix >*/
- sixs_disc__1.roatm[l * 3 - 2] = romix;
-/*< roatm(3,l)=roaero >*/
- sixs_disc__1.roatm[l * 3 - 1] = roaero;
-/* write(6,*) 'rorayl',rorayl */
-/* write(6,*)'romix',romix */
-/* write(6,*)'roaero',roaero */
-/*< rqatm(1,l)=rqrayl >*/
- sixs_disc__1.rqatm[l * 3 - 3] = rqrayl;
-/*< rqatm(2,l)=rqmix >*/
- sixs_disc__1.rqatm[l * 3 - 2] = rqmix;
-/*< rqatm(3,l)=rqaero >*/
- sixs_disc__1.rqatm[l * 3 - 1] = rqaero;
-/* write(6,*) 'rqrayl',rqrayl */
-/* write(6,*)'rqmix',rqmix */
-/* write(6,*)'rqaero',rqaero */
-/*< ruatm(1,l)=rurayl >*/
- sixs_disc__1.ruatm[l * 3 - 3] = rurayl;
-/*< ruatm(2,l)=rumix >*/
- sixs_disc__1.ruatm[l * 3 - 2] = rumix;
-/*< ruatm(3,l)=ruaero >*/
- sixs_disc__1.ruatm[l * 3 - 1] = ruaero;
-/* write(6,*) 'rurayl',rurayl */
-/* write(6,*)'rumix',rumix */
-/* write(6,*)'ruaero',ruaero */
-/*< do ifi=1,nfi >*/
- i__1 = *nfi;
- for (ifi = 1; ifi <= i__1; ++ifi) {
-/*< roatm_fi(1,l,ifi)=rorayl_fi(ifi) >*/
- roatm_fi__[(l + ifi * 20) * 3 + 1] = rorayl_fi__[ifi - 1];
-/*< roatm_fi(2,l,ifi)=romix_fi(ifi) >*/
- roatm_fi__[(l + ifi * 20) * 3 + 2] = romix_fi__[ifi - 1];
-/*< enddo >*/
- }
-/*< do i=1,mu >*/
- i__1 = *mu;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< do j=1,41 >*/
- for (j = 1; j <= 41; ++j) {
-/*< roluts(l,i,j)=rolut(i,j) >*/
- roluts[l + (i__ + j * roluts_dim2) * 20] = rolut[i__ + j * 25
- - 26];
-/*< rolutsq(l,i,j)=rolutq(i,j) >*/
- rolutsq[l + (i__ + j * rolutsq_dim2) * 20] = rolutq[i__ + j *
- 25 - 26];
-/*< rolutsu(l,i,j)=rolutu(i,j) >*/
- rolutsu[l + (i__ + j * rolutsu_dim2) * 20] = rolutu[i__ + j *
- 25 - 26];
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* computation of scattering transmitances (direct and diffuse) */
-/* first time for rayleigh ,next total (rayleigh+aerosols) */
-/*< >*/
- scatra_(iaer_prof__, &tamoy, &tamoyp, &tray, &trayp, &pizmoy, palt,
- nt, mu, &rm[rm_offset], &gb[gb_offset], xmus, xmuv, &ddirtt, &
- ddiftt, &udirtt, &udiftt, &sphalbt, &ddirtr, &ddiftr, &udirtr,
- &udiftr, &sphalbr, &ddirta, &ddifta, &udirta, &udifta, &
- sphalba);
-/*< dtdir(1,l)=ddirtr >*/
- sixs_disc__1.dtdir[l * 3 - 3] = ddirtr;
-/*< dtdif(1,l)=ddiftr >*/
- sixs_disc__1.dtdif[l * 3 - 3] = ddiftr;
-/*< dtdir(2,l)=ddirtt >*/
- sixs_disc__1.dtdir[l * 3 - 2] = ddirtt;
-/*< dtdif(2,l)=ddiftt >*/
- sixs_disc__1.dtdif[l * 3 - 2] = ddiftt;
-/*< dtdir(3,l)=ddirta >*/
- sixs_disc__1.dtdir[l * 3 - 1] = ddirta;
-/*< dtdif(3,l)=ddifta >*/
- sixs_disc__1.dtdif[l * 3 - 1] = ddifta;
-/*< utdir(1,l)=udirtr >*/
- sixs_disc__1.utdir[l * 3 - 3] = udirtr;
-/*< utdif(1,l)=udiftr >*/
- sixs_disc__1.utdif[l * 3 - 3] = udiftr;
-/*< utdir(2,l)=udirtt >*/
- sixs_disc__1.utdir[l * 3 - 2] = udirtt;
-/*< utdif(2,l)=udiftt >*/
- sixs_disc__1.utdif[l * 3 - 2] = udiftt;
-/*< utdir(3,l)=udirta >*/
- sixs_disc__1.utdir[l * 3 - 1] = udirta;
-/*< utdif(3,l)=udifta >*/
- sixs_disc__1.utdif[l * 3 - 1] = udifta;
-/*< sphal(1,l)=sphalbr >*/
- sixs_disc__1.sphal[l * 3 - 3] = sphalbr;
-/*< sphal(2,l)=sphalbt >*/
- sixs_disc__1.sphal[l * 3 - 2] = sphalbt;
-/*< sphal(3,l)=sphalba >*/
- sixs_disc__1.sphal[l * 3 - 1] = sphalba;
-/*< 50 continue >*/
-L50:
- ;
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* discom_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.f b/Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.f
deleted file mode 100644
index 86ee6df..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.f
+++ /dev/null
@@ -1,202 +0,0 @@
- subroutine discom (idatmp,iaer,iaer_prof,xmus,xmuv,phi,taer55,
- &taer55p,palt,phirad,nt,mu,np,rm,gb,rp,ftray,ipol,xlm1,xlm2,
- a roatm_fi,nfi,nfilut,filut,roluts,rolutsq,rolutsu)
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real phasel,qhasel,uhasel
- common /sixs_phase/ phasel(20,nqmax_p),qhasel(20,nqmax_p),
- &uhasel(20,nqmax_p)
- real pha,qha,uha,alphal,betal,gammal,zetal
- common /sixs_polar/ pha(nqmax_p),qha(nqmax_p),uha(nqmax_p),
- &alphal(0:nqmax_p),betal(0:nqmax_p),gammal(0:nqmax_p),
- &zetal(0:nqmax_p)
- real nbmu
-c - to vary the number of quadratures
-
-
- integer mu,np,ipol
- integer idatmp,iaer,nt,l,k
- real rm(-mu:mu),rp(np),gb(-mu:mu)
- real ftray,xlm1(-mu:mu,np),xlm2(-mu:mu,np)
- real roatm_fi(3,20,nfi)
-c THOMAS
-c real rorayl_fi(nfi),romix_fi(nfi)
- real rorayl_fi(181),romix_fi(181)
-
-c THOMAS
-c real rolut(mu,41)
- real rolut(25,41)
- real roluts(20,mu,41)
-c THOMAS
-c real rolutq(mu,41)
- real rolutq(25,41)
- real rolutsq(20,mu,41)
-c THOMAS
-c real rolutu(mu,41)
- real rolutu(25,41)
- real rolutsu(20,mu,41)
- real filut(mu,41)
- integer nfilut(mu)
-
- real xmus,xmuv,phi
- real taer55,taer55p,palt,phirad,ext,ome,gasym,phase,roatm
- real dtdir,dtdif,utdir,utdif,sphal,wldis,trayl,traypl,s
- real wlinf,wlsup,wl,tray,trayp,taer
-
- real rqatm,ruatm,rurayl,ruaero,rumix,qhase,uhase
- real taerp,piza,tamoy,tamoyp,pizmoy,rorayl,rqrayl,rqmix,rqaero
- real roaero,romix,ddirtt,ddiftt,udirtt,udiftt,sphalbt,ddirtr
- real ddiftr,udirtr,udiftr,sphalbr,ddirta,ddifta,udirta,udifta
- real sphalba,coeff
-
- common /sixs_aer/ext(20),ome(20),gasym(20),phase(20),qhase(20),
- &uhase(20)
- common /sixs_disc/ roatm(3,20),dtdir(3,20),dtdif(3,20),
- a utdir(3,20),utdif(3,20),sphal(3,20),wldis(20),trayl(20),
- a traypl(20),rqatm(3,20),ruatm(3,20)
- common /sixs_ffu/s(1501),wlinf,wlsup
-
-
- real alt_z,taer_z,taer55_z
- common /aeroprof/ num_z,alt_z(0:nt_p_max),taer_z(0:nt_p_max),
- &taer55_z(0:nt_p_max)
- integer iaer_prof
-
-
-c computation of all scattering parameters at wavelength
-c discrete values,so we can interpolate at any wavelength
-
- do 50 l=1,20
- wl=wldis(l)
- if ((wlsup.lt.wldis(1)).and.(l.le.2)) goto 30
- if (wlinf.gt.wldis(20).and.(l.ge.19)) goto 30
- if ((l.lt.20).and.(wldis(l).lt.wlinf).and.
- a (wldis(l+1).lt.wlinf)) goto 50
- if ((l.gt.1).and.(wldis(l).gt.wlsup).and.
- a (wldis(l-1).gt.wlsup)) goto 50
-
-c computation of rayleigh optical depth at wl
- 30 call odrayl(wl,tray)
-
-
-c plane case discussed here above
- if (idatmp.eq.0.or.idatmp.eq.4) then
- if (idatmp.eq.4) trayp=tray
- if (idatmp.eq.0) trayp=0.
- else
- trayp=tray*ftray
- endif
- trayl(l)=tray
- traypl(l)=trayp
-
-c computation of aerosol optical properties at wl
-
- taer=taer55*ext(l)
- taerp=taer55p*ext(l)
- piza=ome(l)
-
-
-c - in case of the user-defined aerosol profile
- do i=1,num_z
- taer_z(i)=taer55_z(i)*ext(l)
- enddo
-c - in case of the user-defined aerosol profile
-
-c
-c computation of atmospheric reflectances
-c rorayl is rayleigh ref
-c roaero is aerosol ref
-c call trunca to decompose aerosol phase function in
-c Legendre polynomials.
- nbmu=nquad
- do k=1,nbmu
- pha(k)=phasel(l,k)
- enddo
- if (ipol.ne.0)then
- do k=1,nbmu
- qha(k)=qhasel(l,k)
- uha(k)=uhasel(l,k)
- enddo
- endif
-
- if (iaer.ne.0) call trunca(coeff,ipol) ! the routine is modified
-
- tamoy=taer*(1.-piza*coeff)
- tamoyp=taerp*(1.-piza*coeff)
- pizmoy=piza*(1.-coeff)/(1.-piza*coeff)
-
-
-
- call atmref(iaer,iaer_prof,tamoy,taer,tray,pizmoy,piza,tamoyp,
- s taerp,trayp,palt,phi,xmus,xmuv,phirad,nt,mu,np,rm,gb,rp,rorayl,
- s roaero,romix,rqrayl,rqaero,rqmix,rurayl,ruaero,rumix,ipol,
- s xlm1,xlm2,rorayl_fi,romix_fi,nfi,
- a nfilut,filut,rolut,rolutq,rolutu)
-
- roatm(1,l)=rorayl
- roatm(2,l)=romix
- roatm(3,l)=roaero
-c write(6,*) 'rorayl',rorayl
-c write(6,*)'romix',romix
-c write(6,*)'roaero',roaero
-
- rqatm(1,l)=rqrayl
- rqatm(2,l)=rqmix
- rqatm(3,l)=rqaero
-c write(6,*) 'rqrayl',rqrayl
-c write(6,*)'rqmix',rqmix
-c write(6,*)'rqaero',rqaero
-
- ruatm(1,l)=rurayl
- ruatm(2,l)=rumix
- ruatm(3,l)=ruaero
-c write(6,*) 'rurayl',rurayl
-c write(6,*)'rumix',rumix
-c write(6,*)'ruaero',ruaero
-
-
- do ifi=1,nfi
- roatm_fi(1,l,ifi)=rorayl_fi(ifi)
- roatm_fi(2,l,ifi)=romix_fi(ifi)
- enddo
-
- do i=1,mu
- do j=1,41
- roluts(l,i,j)=rolut(i,j)
- rolutsq(l,i,j)=rolutq(i,j)
- rolutsu(l,i,j)=rolutu(i,j)
- enddo
- enddo
-
-
-
-
-c computation of scattering transmitances (direct and diffuse)
-c first time for rayleigh ,next total (rayleigh+aerosols)
- call scatra(iaer_prof,tamoy,tamoyp,tray,trayp,pizmoy,
- a palt,nt,mu,rm,gb,
- a xmus,xmuv,ddirtt,ddiftt,udirtt,udiftt,sphalbt,ddirtr,ddiftr,
- a udirtr,udiftr,sphalbr,ddirta,ddifta,udirta,udifta,sphalba)
- dtdir(1,l)=ddirtr
- dtdif(1,l)=ddiftr
- dtdir(2,l)=ddirtt
- dtdif(2,l)=ddiftt
- dtdir(3,l)=ddirta
- dtdif(3,l)=ddifta
- utdir(1,l)=udirtr
- utdif(1,l)=udiftr
- utdir(2,l)=udirtt
- utdif(2,l)=udiftt
- utdir(3,l)=udirta
- utdif(3,l)=udifta
- sphal(1,l)=sphalbr
- sphal(2,l)=sphalbt
- sphal(3,l)=sphalba
-
- 50 continue
-
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.h b/Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.h
deleted file mode 100644
index 2005a21..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DISCOM.h
+++ /dev/null
@@ -1,29 +0,0 @@
-extern int otb_6s_discom_(
- otb_6s_integer *idatmp,
- otb_6s_integer *iaer,
- otb_6s_integer *iaer_prof__,
- otb_6s_doublereal *xmus,
- otb_6s_doublereal *xmuv,
- otb_6s_doublereal *phi,
- otb_6s_doublereal *taer55,
- otb_6s_doublereal *taer55p,
- otb_6s_doublereal *palt,
- otb_6s_doublereal *phirad,
- otb_6s_integer *nt,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *gb,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *ftray,
- otb_6s_integer *ipol,
- otb_6s_doublereal *xlm1,
- otb_6s_doublereal *xlm2,
- otb_6s_doublereal *roatm_fi__,
- otb_6s_integer *nfi,
- otb_6s_integer *nfilut,
- otb_6s_doublereal *filut,
- otb_6s_doublereal *roluts,
- otb_6s_doublereal *rolutsq,
- otb_6s_doublereal *rolutsu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.P b/Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.P
deleted file mode 100644
index 6b46b95..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int discre_(doublereal *ta, doublereal *ha, doublereal *tr, doublereal *hr, integer *it, integer *nt, doublereal *yy, doublereal *dd, doublereal *ppp2, doublereal *ppp1, doublereal *zx);
-/*:ref: print_error__ 14 2 13 124 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.c b/Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.c
deleted file mode 100644
index a5d813d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.c
+++ /dev/null
@@ -1,120 +0,0 @@
-/* DISCRE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< >*/
-/* Subroutine */ int discre_(doublereal *ta, doublereal *ha, doublereal *tr,
- doublereal *hr, integer *it, integer *nt, doublereal *yy, doublereal *
- dd, doublereal *ppp2, doublereal *ppp1, doublereal *zx)
-{
- /* System generated locals */
- doublereal d__1;
-
- /* Builtin functions */
- double exp(doublereal);
-
- /* Local variables */
- doublereal y1, y2, y3, x2, dt, xd, ti, xx;
- extern /* Subroutine */ int print_error__(char *, ftnlen);
- doublereal delta, ecart;
-
-/*< double precision ta,ha,tr,hr,yy,dd,ppp2,ppp1,zx,dt,ti >*/
-/*< double precision y1,y2,y3,x2,xd,delta,ecart >*/
-/*< double precision xx >*/
-/*< integer it,nt >*/
-/*< if (ha.ge.7.) then >*/
- if (*ha >= 7.) {
-/*< >*/
- print_error__("check aerosol measurements or plane altitude", 44L);
-/*< return >*/
- return 0;
-/*< endif >*/
- }
-/*< if (it.eq.0) then >*/
- if (*it == 0) {
-/*< dt=1.e-17 >*/
- dt = 1e-17;
-/*< else >*/
- } else {
-/*< dt=2.*(ta+tr-yy)/(nt-it+1.) >*/
- dt = (*ta + *tr - *yy) * 2. / (*nt - *it + 1.);
-/*< endif >*/
- }
-/*< 99 dt=dt/2. >*/
-L99:
- dt /= 2.;
-/*< ti=yy+dt >*/
- ti = *yy + dt;
-/*< y1=ppp2 >*/
- y1 = *ppp2;
-/*< y3=ppp1 >*/
- y3 = *ppp1;
-/*< 706 y2=(y1+y3)*0.5 >*/
-L706:
- y2 = (y1 + y3) * .5;
-/*< xx=-y2/ha >*/
- xx = -y2 / *ha;
-/*< if (xx.lt.-18) then >*/
- if (xx < -18.) {
-/*< x2=tr*exp(-y2/hr) >*/
- x2 = *tr * exp(-y2 / *hr);
-/*< else >*/
- } else {
-/*< x2=ta*dexp(xx)+tr*exp(-y2/hr) >*/
- x2 = *ta * exp(xx) + *tr * exp(-y2 / *hr);
-/*< endif >*/
- }
-/*< xd=abs(ti-x2) >*/
- xd = (d__1 = ti - x2, abs(d__1));
-/*< if(xd.lt.0.00001) go to 705 >*/
- if (xd < 1e-5) {
- goto L705;
- }
-/*< if(ti-x2) 701,703,703 >*/
- if (ti - x2 >= 0.) {
- goto L703;
- } else {
- goto L701;
- }
-/*< 701 y3=y2 >*/
-L701:
- y3 = y2;
-/*< go to 706 >*/
- goto L706;
-/*< 703 y1=y2 >*/
-L703:
- y1 = y2;
-/*< go to 706 >*/
- goto L706;
-/*< 705 zx=y2 >*/
-L705:
- *zx = y2;
-/*< delta=1./(1.+ta*hr/tr/ha*exp((zx-ppp1)*(1./hr-1./ha))) >*/
- delta = 1. / (*ta * *hr / *tr / *ha * exp((*zx - *ppp1) * (1. / *hr - 1. /
- *ha)) + 1.);
-/*< ecart=0 >*/
- ecart = 0.;
-/*< if(dd.ne.0) ecart=abs((dd-delta)/dd) >*/
- if (*dd != 0.) {
- ecart = (d__1 = (*dd - delta) / *dd, abs(d__1));
- }
-/*< if((ecart.gt.0.75).and.(it.ne.0)) go to 99 >*/
- if (ecart > .75 && *it != 0) {
- goto L99;
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* discre_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.f b/Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.f
deleted file mode 100644
index 5ebaa80..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.f
+++ /dev/null
@@ -1,41 +0,0 @@
- subroutine discre(ta,ha,tr,hr,it,nt,yy,dd,ppp2,ppp1,
- s zx)
- double precision ta,ha,tr,hr,yy,dd,ppp2,ppp1,zx,dt,ti
- double precision y1,y2,y3,x2,xd,delta,ecart
- double precision xx
- integer it,nt
- if (ha.ge.7.) then
- call print_error
- s ('check aerosol measurements or plane altitude')
- return
- endif
- if (it.eq.0) then
- dt=1.e-17
- else
- dt=2.*(ta+tr-yy)/(nt-it+1.)
- endif
- 99 dt=dt/2.
- ti=yy+dt
- y1=ppp2
- y3=ppp1
- 706 y2=(y1+y3)*0.5
- xx=-y2/ha
- if (xx.lt.-18) then
- x2=tr*exp(-y2/hr)
- else
- x2=ta*dexp(xx)+tr*exp(-y2/hr)
- endif
- xd=abs(ti-x2)
- if(xd.lt.0.00001) go to 705
- if(ti-x2) 701,703,703
- 701 y3=y2
- go to 706
- 703 y1=y2
- go to 706
- 705 zx=y2
- delta=1./(1.+ta*hr/tr/ha*exp((zx-ppp1)*(1./hr-1./ha)))
- ecart=0
- if(dd.ne.0) ecart=abs((dd-delta)/dd)
- if((ecart.gt.0.75).and.(it.ne.0)) go to 99
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.h b/Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.h
deleted file mode 100644
index 9c17c1c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DISCRE.h
+++ /dev/null
@@ -1,13 +0,0 @@
-extern int otb_6s_discre_(
- otb_6s_doublereal *ta,
- otb_6s_doublereal *ha,
- otb_6s_doublereal *tr,
- otb_6s_doublereal *hr,
- otb_6s_integer *it,
- otb_6s_integer *nt,
- otb_6s_doublereal *yy,
- otb_6s_doublereal *dd,
- otb_6s_doublereal *ppp2,
- otb_6s_doublereal *ppp1,
- otb_6s_doublereal *zx
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DUST.P b/Modules/ThirdParty/6S/src/6SV1.0B/DUST.P
deleted file mode 100644
index 5dfa62a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DUST.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int dust_();
-/* comlen num_quad__ 4 */
-/* comlen sixs_aerbas__ 480000 */
-/* comlen sixs_coef__ 1952 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DUST.c b/Modules/ThirdParty/6S/src/6SV1.0B/DUST.c
deleted file mode 100644
index d4666a1..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DUST.c
+++ /dev/null
@@ -1,721 +0,0 @@
-/* DUST.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal ph[20000] /* was [20][1000] */, qh[20000] /* was [20][
- 1000] */, uh[20000] /* was [20][1000] */;
-} sixs_aerbas__;
-
-#define sixs_aerbas__1 sixs_aerbas__
-
-Extern struct {
- doublereal ex[80] /* was [4][20] */, sc[80] /* was [4][20] */,
- asy[80] /* was [4][20] */, vi[4];
-} sixs_coef__;
-
-#define sixs_coef__1 sixs_coef__
-
-/*< subroutine dust >*/
-/* Subroutine */ int dust_()
-{
- /* Initialized data */
-
- static doublereal asy_m__[20] = { .846,.838,.836,.832,.827,.826,.822,.817,
- .812,.807,.802,.8,.792,.785,.778,.795,.808,.859,.892,.853 };
- static doublereal ex_m__[20] = { 8.230388,8.305723,8.328883,8.368396,
- 8.415968,8.42865,8.467864,8.519962,8.583242,8.632867,8.689027,
- 8.704309,8.803438,8.924636,9.300344,9.404915,9.368683,8.811917,
- 7.876924,7.002555 };
- static doublereal sc_m__[20] = { 5.5657,5.744132,5.786949,5.888061,
- 5.976042,6.028808,6.112733,6.215003,6.333235,6.450123,6.547941,
- 6.603794,6.771705,7.00242,7.719834,8.043072,8.08431,7.738148,
- 6.921192,6.187184 };
- static doublereal phr[1660] /* was [20][83] */ = { .3243,.3504,.3625,
- .3853,.4323,.4322,.4427,.496,.5164,.5181,.5654,.5712,.5994,.5925,
- .3548,.236,.2183,.1136,.0644,.07657,.316,.341,.3534,.3726,.413,
- .4125,.4235,.4724,.4898,.4938,.5352,.5403,.5672,.5612,.3322,.2178,
- .1988,.1007,.05458,.07193,.3591,.3912,.4034,.4175,.4481,.4415,
- .4548,.4868,.5048,.5082,.5364,.5328,.5564,.5433,.3156,.1964,.17,
- .08035,.04514,.06322,.3476,.3864,.3995,.4135,.4391,.4331,.4487,
- .4722,.492,.4987,.5185,.5126,.5333,.5175,.313,.194,.166,.08849,
- .05591,.06634,.3226,.3531,.3637,.3787,.403,.4048,.4149,.4366,
- .4535,.4599,.4779,.4783,.4909,.4768,.3146,.2077,.1823,.1064,
- .05989,.07486,.2902,.3218,.3363,.3464,.3689,.3649,.3774,.3942,
- .4158,.4226,.4371,.4312,.4489,.4387,.3242,.2326,.204,.1102,.05586,
- .07879,.2596,.2983,.3122,.3207,.3346,.3299,.3463,.3518,.3775,
- .3885,.3962,.3866,.4085,.4069,.3406,.2537,.2133,.1035,.05049,
- .07773,.2419,.2747,.2775,.2931,.2956,.3059,.3185,.3219,.3353,
- .3506,.3542,.3578,.3701,.3811,.3519,.2599,.2101,.09485,.04611,
- .07451,.2232,.239,.2391,.255,.265,.2776,.2823,.2946,.3016,.3106,
- .3207,.3308,.3386,.3563,.3468,.2539,.201,.08717,.04284,.07098,
- .1846,.1973,.2059,.2139,.2299,.2307,.2372,.2565,.2648,.2717,.2835,
- .287,.3018,.3207,.3281,.2416,.1911,.08152,.04062,.06784,.1428,
- .1651,.1719,.1797,.1895,.1899,.2001,.2072,.2222,.2321,.2396,.2392,
- .2571,.2746,.2985,.2274,.1825,.07739,.03894,.06531,.1168,.1363,
- .1389,.1483,.1499,.1577,.1664,.1679,.1798,.1928,.1962,.2008,.2129,
- .2299,.2611,.2136,.1742,.07472,.03775,.06342,.09709,.108,.1102,
- .1176,.1248,.1289,.1339,.1415,.1499,.1568,.1648,.1685,.18,.1957,
- .2251,.1981,.1662,.07332,.0369,.06207,.08103,.08892,.09256,.09732,
- .1054,.1059,.1105,.1205,.1266,.1316,.1396,.1417,.1531,.1668,.1957,
- .1817,.1576,.07256,.03647,.06114,.07004,.0784,.08045,.0853,.08953,
- .09193,.09644,.1019,.1077,.1139,.119,.1217,.1307,.1423,.171,.1655,
- .148,.07272,.03634,.06053,.0632,.07077,.0712,.07638,.07772,.08229,
- .08606,.08837,.09357,.1003,.1033,.1072,.1135,.1235,.15,.1485,
- .1385,.07329,.03638,.06011,.05814,.06358,.06493,.06854,.07041,
- .07362,.07676,.07963,.08409,.08989,.09258,.09605,.1015,.1101,
- .1331,.1334,.1282,.07381,.03668,.05981,.05326,.05933,.06051,
- .06361,.06557,.06746,.07074,.073,.07747,.08219,.08497,.08694,
- .09286,.1005,.1188,.1212,.1175,.07415,.03732,.0595,.05106,.0551,
- .05595,.05873,.06245,.06315,.06528,.06925,.07286,.07531,.07979,
- .0809,.08691,.09362,.1074,.1102,.1079,.07411,.03816,.05911,.0494,
- .05225,.05397,.05571,.05991,.05925,.0613,.06632,.06935,.07122,
- .07564,.07628,.08209,.08802,.09941,.1012,.09907,.07328,.03919,
- .0585,.0487,.05194,.05247,.05508,.05656,.05816,.06028,.06339,
- .06534,.06883,.07122,.07342,.07726,.08284,.0932,.09373,.09203,
- .07137,.04024,.0577,.04778,.05138,.0516,.05421,.05516,.05746,
- .05938,.06103,.06333,.06691,.06867,.07136,.07418,.07917,.0884,
- .08759,.08621,.0694,.04118,.05674,.0482,.05099,.05119,.05365,
- .05353,.05736,.05857,.05995,.06142,.06558,.06649,.07074,.07177,
- .07662,.0847,.08329,.08117,.06678,.04189,.05577,.04788,.05019,
- .05069,.05277,.05403,.05622,.0575,.06034,.06153,.06441,.06643,
- .06956,.07148,.07603,.08216,.08024,.07705,.06417,.04234,.05485,
- .04772,.05009,.05103,.05261,.05539,.05591,.05712,.05995,.06279,
- .06427,.0676,.06862,.07242,.07642,.08044,.0778,.07415,.06139,
- .04253,.05396,.04784,.04996,.05174,.05262,.05675,.05538,.05693,
- .06075,.06407,.06474,.06877,.06817,.0734,.07699,.07981,.07591,
- .07245,.0588,.04238,.05316,.04869,.05225,.05266,.05491,.05634,
- .05713,.05924,.06106,.06367,.06628,.06842,.06912,.07313,.07689,
- .07995,.07502,.07116,.05642,.04189,.05249,.04996,.05356,.05382,
- .05623,.05705,.0592,.06095,.06174,.06438,.06768,.06902,.07099,
- .07361,.07716,.0809,.075,.07028,.05471,.04135,.05211,.05202,
- .05519,.05511,.05787,.05789,.06115,.06269,.06349,.06546,.06929,
- .07022,.07334,.0749,.0785,.08223,.07553,.06998,.05351,.04079,.052,
- .0528,.05641,.05686,.05919,.06072,.06213,.06402,.06621,.06841,
- .07105,.07329,.07487,.07806,.08175,.08385,.07636,.07034,.05247,
- .04021,.0521,.05469,.05805,.05922,.06104,.06362,.06397,.06583,
- .06858,.07172,.07377,.07671,.07713,.08153,.0851,.08613,.07738,
- .07157,.05169,.03982,.05246,.05593,.06066,.06272,.06405,.06673,
- .06597,.06862,.07111,.07521,.07767,.08028,.07946,.08518,.08877,
- .08903,.079,.07347,.05156,.0396,.05313,.0591,.06323,.06472,.06664,
- .06976,.06955,.07187,.07485,.07843,.08059,.08373,.08371,.08879,
- .09248,.09256,.08176,.07534,.05198,.03966,.0542,.06304,.06633,
- .06745,.06981,.07261,.07405,.0756,.07902,.08167,.08416,.08727,
- .08901,.09263,.09669,.09657,.08511,.07742,.05276,.04003,.05562,
- .06599,.06987,.07095,.07354,.07714,.07774,.07968,.084,.08663,
- .08859,.09258,.09343,.09821,.1025,.1008,.08852,.08053,.05375,
- .04059,.05735,.06985,.07371,.0754,.07771,.08242,.082,.08408,
- .08898,.09257,.09403,.0988,.09861,.1046,.1088,.1064,.09255,.08427,
- .0552,.0414,.05946,.07474,.07894,.08057,.08325,.08687,.08777,
- .08997,.0945,.09782,.1004,.1043,.1053,.1104,.1148,.1129,.09769,
- .0881,.05741,.04262,.06211,.08012,.08533,.08557,.08967,.09191,
- .09513,.09726,.1006,.1034,.1069,.1104,.1133,.1168,.1216,.1194,
- .1034,.0926,.0601,.04421,.06525,.08582,.09124,.09202,.09601,
- .09852,.1018,.104,.1081,.1107,.1145,.118,.1214,.1248,.1299,.1269,
- .1099,.09819,.06304,.0461,.06887,.09162,.09803,.09913,.1033,.1069,
- .1088,.1117,.1161,.1199,.1234,.1276,.1294,.1347,.1397,.1367,.1173,
- .1043,.06663,.04841,.07309,.09846,.1067,.1079,.1124,.1152,.1176,
- .1213,.1238,.1294,.1341,.1375,.1387,.1448,.1498,.148,.1256,.1111,
- .07119,.05129,.07808,.1009,.1112,.1131,.1174,.1203,.1215,.1263,
- .1283,.1349,.14,.143,.1433,.1505,.1554,.1532,.1302,.1151,.07373,
- .05293,.08087,.105,.1168,.118,.1232,.1243,.1269,.1323,.1329,.1395,
- .146,.148,.1492,.1558,.161,.1587,.1349,.1194,.07642,.05471,.08386,
- .1138,.1253,.128,.1323,.1357,.1371,.1421,.1444,.1518,.1573,.1607,
- .1617,.1688,.1741,.17,.1455,.1291,.0822,.05867,.09045,.1246,.1344,
- .1375,.142,.1478,.148,.1526,.1591,.1649,.1691,.1747,.1753,.1836,
- .1896,.1837,.1573,.1399,.08908,.06332,.09808,.1362,.1455,.1498,
- .1538,.161,.1606,.1652,.1731,.1796,.1837,.19,.19,.1994,.2057,
- .2002,.1705,.1522,.09734,.06885,.107,.1473,.1616,.165,.1704,.1739,
- .176,.1823,.186,.1944,.2016,.2054,.206,.2154,.2219,.2178,.1857,
- .1664,.1067,.07527,.1172,.1611,.1759,.1798,.1854,.1898,.1924,
- .1986,.2023,.2118,.219,.2236,.2246,.2344,.2414,.2371,.2032,.1824,
- .1172,.08266,.129,.1732,.1898,.1974,.2008,.2107,.2063,.2143,.2216,
- .2338,.2387,.2462,.2423,.2573,.2644,.2589,.2229,.2005,.1298,
- .09136,.1427,.1897,.2075,.2154,.2193,.2298,.2261,.2342,.2414,
- .2546,.2603,.2678,.2649,.2798,.2876,.2826,.2451,.2217,.1444,.1016,
- .1586,.2101,.2249,.2317,.2374,.2505,.2484,.2549,.2662,.2767,.2813,
- .2913,.2913,.3044,.3134,.3082,.2707,.2458,.1611,.1135,.177,.2304,
- .2462,.2535,.2597,.274,.2719,.2788,.2908,.3023,.3073,.318,.3184,
- .3322,.342,.3389,.3002,.273,.1805,.1275,.1984,.254,.2702,.2763,
- .2847,.2986,.2982,.3057,.319,.3296,.336,.347,.3479,.3629,.3743,
- .3742,.3331,.3042,.2037,.1442,.2236,.2787,.2948,.3028,.3109,.3278,
- .3259,.3338,.3495,.3616,.3677,.3804,.3802,.3976,.4103,.4136,.3703,
- .3406,.2305,.1638,.2531,.306,.3259,.3322,.3431,.357,.3598,.3684,
- .3812,.3939,.4031,.4145,.4174,.4335,.4478,.4562,.4136,.3818,.2616,
- .1869,.2875,.3378,.3559,.3624,.3746,.3904,.3945,.4027,.4204,.4303,
- .4403,.4529,.459,.4739,.491,.5038,.4634,.4287,.2986,.2147,.3284,
- .3659,.3928,.4018,.4137,.43,.4314,.4431,.4577,.4737,.4856,.4978,
- .5009,.5205,.5389,.5594,.5194,.4834,.3423,.2479,.3765,.4035,.4306,
- .4391,.4531,.4704,.4746,.4859,.5039,.5181,.5309,.5447,.5516,.57,
- .5917,.6209,.5833,.5473,.3937,.2875,.4337,.4393,.4753,.4861,.5002,
- .5168,.5205,.535,.55,.5693,.5851,.5982,.6042,.6259,.65,.6897,
- .6567,.6205,.4552,.3358,.502,.4858,.5264,.5328,.5529,.5611,.5758,
- .5914,.6028,.6201,.6432,.6525,.6657,.6838,.712,.7698,.7427,.7037,
- .528,.3941,.5834,.536,.5803,.5849,.6089,.6133,.6349,.6516,.6593,
- .6798,.7082,.7156,.7324,.7504,.7826,.8596,.8407,.8011,.6154,.4649,
- .6815,.5962,.633,.633,.6637,.6722,.6999,.7137,.7294,.745,.7732,
- .7858,.8081,.8258,.8644,.958,.9513,.9173,.7208,.5523,.7996,.6485,
- .6854,.6967,.7219,.7469,.7585,.7757,.8073,.8255,.849,.8704,.8848,
- .9151,.9597,1.068,1.08,1.051,.8468,.6595,.9427,.7072,.7571,.7683,
- .7969,.819,.836,.8562,.8843,.906,.9353,.9557,.9761,1.005,1.056,
- 1.197,1.232,1.205,1.,.7922,1.117,.7761,.8406,.8482,.8836,.8945,
- .9231,.948,.9682,.994,1.034,1.05,1.076,1.106,1.166,1.345,1.408,
- 1.387,1.187,.9585,1.329,.8649,.9153,.9209,.9625,.985,1.018,1.039,
- 1.073,1.096,1.134,1.16,1.191,1.225,1.294,1.516,1.61,1.603,1.415,
- 1.167,1.591,.9362,1.007,1.022,1.062,1.095,1.115,1.145,1.179,1.217,
- 1.258,1.288,1.311,1.361,1.439,1.708,1.848,1.858,1.694,1.43,1.913,
- 1.036,1.116,1.127,1.176,1.201,1.236,1.269,1.307,1.341,1.392,1.423,
- 1.459,1.508,1.603,1.928,2.126,2.161,2.039,1.764,2.312,1.154,1.225,
- 1.239,1.292,1.334,1.371,1.401,1.456,1.493,1.543,1.587,1.627,1.687,
- 1.799,2.19,2.459,2.522,2.466,2.193,2.81,1.261,1.362,1.39,1.441,
- 1.497,1.516,1.56,1.621,1.679,1.733,1.787,1.813,1.901,2.028,2.507,
- 2.857,2.956,3.001,2.746,3.431,1.424,1.534,1.552,1.623,1.665,1.714,
- 1.762,1.821,1.881,1.957,2.008,2.055,2.145,2.3,2.887,3.333,3.489,
- 3.671,3.466,4.213,1.594,1.73,1.763,1.836,1.902,1.937,1.999,2.071,
- 2.155,2.236,2.305,2.346,2.467,2.649,3.357,3.923,4.144,4.518,4.407,
- 5.199,1.832,1.992,2.026,2.118,2.191,2.24,2.313,2.399,2.498,2.599,
- 2.682,2.734,2.878,3.099,3.955,4.668,4.967,5.602,5.65,6.449,2.152,
- 2.347,2.388,2.502,2.582,2.658,2.745,2.844,2.962,3.098,3.19,3.27,
- 3.433,3.705,4.749,5.632,6.022,7.003,7.306,8.048,2.617,2.856,2.909,
- 3.052,3.169,3.255,3.363,3.503,3.656,3.816,3.948,4.039,4.257,4.596,
- 5.869,6.929,7.419,8.848,9.537,10.1,3.335,3.662,3.74,3.928,4.088,
- 4.189,4.342,4.528,4.736,4.95,5.119,5.228,5.517,5.941,7.494,8.742,
- 9.362,11.34,12.59,12.75,4.608,5.08,5.173,5.455,5.645,5.828,6.041,
- 6.274,6.551,6.868,7.074,7.25,7.603,8.148,10.,11.44,12.19,14.81,
- 16.84,16.25,7.076,7.789,7.947,8.364,8.69,8.933,9.239,9.62,10.01,
- 10.43,10.74,10.98,11.45,12.14,14.21,15.76,16.59,19.9,22.94,20.95,
- 12.68,13.92,14.19,14.87,15.39,15.74,16.24,16.8,17.4,18.,18.42,
- 18.69,19.33,20.12,21.96,23.21,24.03,27.93,32.14,27.4,28.42,30.64,
- 31.13,32.27,33.19,33.7,34.42,35.29,36.08,36.73,37.25,37.49,38.06,
- 38.51,38.05,37.66,38.01,41.85,47.11,36.86,89.63,93.19,93.92,95.21,
- 96.27,96.5,96.88,97.25,97.21,96.55,96.09,95.41,93.86,90.71,77.68,
- 70.09,68.38,69.31,74.26,50.85,546.3,522.3,516.2,499.2,484.4,474.2,
- 459.7,441.3,421.1,399.6,382.1,370.6,342.6,304.7,205.8,159.3,147.5,
- 130.1,125.1,65.26,5621.,4201.,3938.,3362.,2954.,2722.,2420.,2096.,
- 1798.,1542.,1362.,1262.,1035.,791.2,361.8,235.3,207.6,165.9,149.9,
- 69.8 };
- static doublereal qhr[1660] /* was [20][83] */ = { 1.268e-22,8.915e-22,
- -6.146e-22,-8.679e-22,5.549e-22,3.355e-22,2.263e-22,-1.172e-21,
- -5.743e-22,-4.904e-22,-1.071e-22,1.195e-21,-2.802e-22,7.227e-22,
- 3.341e-22,4.569e-23,3.013e-23,-8.339e-23,-1.652e-22,-4.718e-23,
- .02476,.01047,.01969,.01142,.02641,.01874,.0132,.02621,.02658,
- .01744,.02586,.02337,.02409,.01962,1.668e-4,-.003494,-.006586,
- -.003001,-3.713e-5,-3.367e-4,.02255,.008794,.01817,.01278,.04434,
- .02124,.01774,.05035,.04799,.02926,.05239,.04146,.05438,.05306,
- .01905,.004438,-.006701,-.001501,.003969,9.818e-4,-.008459,
- -.01221,-.00623,-.007503,.01074,-2.99e-4,-1.102e-4,.01893,.02133,
- .01488,.02991,.02593,.03805,.04545,.03846,.01387,.003526,.009853,
- .00787,.005409,-.037,-.02791,-.03044,-.02461,-.03317,-.02018,
- -.01613,-.02101,-.01628,-.003591,-.005289,.004162,.007287,.02058,
- .0506,.01729,.01083,.01559,.004872,.007205,-.05391,-.04559,
- -.05209,-.04284,-.05365,-.03582,-.03241,-.03886,-.03471,-.01959,
- -.02169,-.008725,-.006781,.009166,.04795,.0162,.008649,.01043,
- 6.642e-4,.004406,-.05697,-.05726,-.05398,-.05172,-.04567,-.04506,
- -.04148,-.03113,-.02654,-.01971,-.01274,-.008606,.002331,.01769,
- .03824,.01017,-.001759,.002577,-.00274,-4.729e-4,-.04863,-.04209,
- -.03391,-.03515,-.01946,-.03142,-.02489,-.0147,-8.06e-4,3.157e-4,
- .01198,.004025,.02494,.03513,.03434,-.00219,-.01359,-.003925,
- -.004686,-.005499,-.0216,-.009986,-.007471,-.003311,-.00409,
- -.001718,.006124,.00629,.01513,.02603,.02723,.02814,.03896,.04622,
- .03286,-.01421,-.02471,-.01012,-.006046,-.01012,.002527,.008919,
- .003891,.01311,.008491,.02246,.02474,.02117,.02537,.03606,.03617,
- .04608,.04654,.05277,.02928,-.02101,-.03343,-.01511,-.007327,
- -.01419,.007879,.01561,.01574,.02056,.01844,.02391,.02857,.02847,
- .03273,.0422,.04163,.04622,.05034,.05581,.0295,-.02372,-.0376,
- -.02013,-.008648,-.01783,.008199,.01519,.02093,.02022,.02527,
- .02167,.02612,.02779,.03695,.0412,.04372,.04163,.05053,.05464,
- .03271,-.02141,-.03836,-.02543,-.009896,-.02108,.01009,.01543,
- .01697,.01896,.02248,.0219,.02471,.02789,.03215,.03473,.03843,
- .03901,.04468,.04927,.03308,-.01531,-.0367,-.02928,-.01121,
- -.02385,.01381,.01286,.01185,.0154,.01768,.02166,.0214,.02736,
- .02589,.02781,.03191,.03714,.03791,.04313,.03264,-.01001,-.03092,
- -.03297,-.01258,-.02614,.0106,.01151,.01116,.01383,.01647,.0187,
- .01898,.02288,.02356,.02484,.02863,.03139,.03378,.03835,.03297,
- -.004689,-.02429,-.03565,-.01432,-.02769,.007513,.01267,.01147,
- .01481,.01332,.01663,.01882,.01786,.01992,.02373,.02415,.02669,
- .02862,.03267,.03119,.001363,-.01861,-.037,-.01624,-.02862,
- .006562,.009975,.01049,.01219,.01159,.01396,.01571,.01574,.01756,
- .02128,.02113,.02362,.02494,.02844,.02856,.005275,-.01251,-.03797,
- -.01813,-.02888,.004469,.007821,.009795,.01017,.01144,.01111,
- .01304,.01373,.01675,.01941,.01978,.0202,.02303,.026,.02664,
- .007626,-.008017,-.03668,-.01998,-.02848,.004342,.006247,.007055,
- .008202,.009839,.009925,.01121,.01353,.01476,.0165,.01789,.01838,
- .02103,.02379,.02484,.008819,-.004221,-.03487,-.02148,-.02766,
- .00387,.005102,.005709,.006948,.008875,.008866,.009889,.0123,
- .01358,.01463,.01657,.01688,.01951,.02197,.02333,.008749,-.001206,
- -.03197,-.02289,-.02647,.003488,.005426,.005082,.006972,.006834,
- .009426,.01011,.01004,.01168,.0138,.01451,.01596,.01736,.01969,
- .02166,.008743,2.898e-4,-.02826,-.0236,-.02509,.001873,.004434,
- .004872,.00619,.006969,.007567,.008898,.009056,.01147,.01319,
- .0141,.01429,.01671,.01876,.01996,.008694,.001564,-.02552,-.02407,
- -.02369,8.242e-4,.0047,.004787,.006439,.005712,.007128,.008921,
- .007886,.01027,.01287,.0128,.01335,.01536,.01747,.018,.008697,
- .001966,-.02208,-.02368,-.02232,1.707e-4,.002735,.003997,.004648,
- .006149,.00571,.007182,.007899,.01043,.01178,.01285,.01243,.01519,
- .01693,.01671,.008481,.001962,-.01931,-.0229,-.02109,-5.39e-4,
- .002602,.003696,.004435,.005588,.005228,.006796,.007281,.01003,
- .01128,.01251,.01168,.01491,.0167,.01536,.007835,.002216,-.01667,
- -.02176,-.02002,-3.612e-4,1.81e-4,.001473,.001918,.00611,.004137,
- .004625,.008963,.01019,.009016,.0129,.01164,.01537,.01727,.01453,
- .007277,.002135,-.01454,-.02038,-.01907,-2.495e-4,.001072,.001427,
- .00266,.004177,.004865,.005367,.008128,.008618,.009107,.01137,
- .01192,.01399,.01623,.01374,.006824,.001819,-.01253,-.01895,
- -.01834,-.001048,-1.217e-4,.001349,.001885,.004484,.003448,
- .004419,.008272,.008749,.009229,.01142,.01125,.01388,.0159,.0138,
- .006472,.001428,-.01133,-.01772,-.0178,-.001244,.001517,.001024,
- .00319,.002991,.004953,.006144,.006622,.00764,.00954,.01031,
- .01151,.01281,.0147,.01355,.006108,.001478,-.01019,-.01648,
- -.01737,-.002457,4.575e-4,.001414,.002531,.003738,.00401,.005411,
- .006194,.008194,.009797,.01065,.01126,.01291,.01446,.01344,
- .005573,.001519,-.009347,-.01539,-.01708,-.001549,.001173,
- 4.724e-4,.003014,.002014,.005156,.006249,.006127,.006869,.009819,
- .009588,.01192,.01206,.01374,.01313,.005435,.001486,-.008573,
- -.01445,-.0169,-.004067,3.59e-4,.001628,.002541,.004061,.003211,
- .005222,.006022,.008858,.01013,.01143,.01064,.01379,.01538,.01261,
- .005348,.001357,-.008007,-.01367,-.01683,-.001796,-.001717,
- -9.738e-4,3.263e-4,.003613,.003659,.003798,.008311,.00832,.008269,
- .01127,.01222,.01385,.01575,.01256,.005386,.001147,-.007655,
- -.01312,-.01692,-.002753,8.142e-4,7.231e-4,.002842,.002326,
- .004971,.006125,.005975,.00766,.01005,.0105,.01246,.01311,.01494,
- .01244,.005309,.001426,-.007264,-.01278,-.01707,-.004492,
- -8.557e-4,.001648,.001856,.004274,.003029,.004896,.006272,.009486,
- .01096,.0121,.01146,.01437,.01548,.01323,.005225,.001829,-.006791,
- -.01244,-.01725,-.002752,-1.025e-4,-3.753e-4,.002172,.002807,
- .004759,.005991,.007114,.008386,.01057,.01144,.01251,.01403,
- .01542,.01401,.005663,.001888,-.006614,-.01223,-.01755,-.004822,
- .001248,.001837,.003738,.003406,.004766,.007145,.005577,.009288,
- .01216,.01216,.01208,.01477,.01628,.01399,.006047,.002242,
- -.006553,-.01218,-.01795,-.005504,-.001358,.001687,.001736,
- .005575,.002813,.005129,.00745,.01118,.01194,.01408,.01183,.01656,
- .01779,.01446,.006261,.00305,-.00638,-.01215,-.01836,-.003245,
- -7.803e-4,-4.635e-4,.001778,.004299,.004695,.00589,.008602,.01032,
- .01127,.01369,.01354,.01649,.01797,.01532,.007047,.003673,-.00626,
- -.01213,-.01885,-.003857,7.688e-4,.001536,.003486,.003577,.005471,
- .007235,.007773,.01004,.01264,.01331,.01443,.01624,.01813,.01538,
- .008086,.004362,-.006197,-.01218,-.01937,-.005823,-7.587e-4,
- .001999,.002549,.0059,.003873,.006232,.008895,.01187,.01296,.015,
- .0143,.01775,.01948,.01533,.008532,.005665,-.006101,-.01234,
- -.01993,-.002124,.001022,5.311e-4,.003672,.003044,.007237,.008208,
- .008417,.009991,.01291,.01354,.01616,.01668,.01875,.01614,.008645,
- .006338,-.006076,-.01244,-.02026,-.003315,-.002572,5.462e-5,
- 7.203e-4,.006663,.004518,.005417,.01028,.01288,.01248,.01626,
- .01507,.01908,.02064,.01667,.009205,.006978,-.006109,-.01256,
- -.02061,-.00196,-4.315e-4,-1.677e-4,.002449,.004768,.006216,
- .007206,.01081,.01206,.01347,.016,.01574,.01936,.02149,.01881,
- .01082,.007626,-.005996,-.01278,-.02125,-.003327,.001019,.001806,
- .003997,.00532,.007103,.008669,.009788,.01274,.01478,.01651,
- .01641,.01989,.02214,.02027,.01264,.008406,-.005687,-.01301,
- -.02188,-.005509,.001875,.002745,.005103,.006569,.007084,.00976,
- .009921,.01348,.01571,.01701,.01743,.02018,.02241,.02104,.01413,
- .009918,-.005619,-.01334,-.02266,-.003118,-4.092e-4,.001526,
- .003269,.0072,.007509,.008739,.01222,.01401,.01539,.01762,.0195,
- .02084,.02331,.02245,.01593,.0114,-.005624,-.01371,-.02344,
- -.001082,-6.854e-4,-3.013e-4,.002811,.007851,.00896,.009252,
- .01378,.01469,.01537,.01858,.0209,.02196,.0245,.02493,.01813,
- .01239,-.005103,-.01394,-.02414,3.212e-4,.002913,-2.097e-4,
- .005948,.005473,.01228,.01279,.0138,.01326,.01705,.01768,.02259,
- .02164,.02494,.02767,.02008,.01399,-.0046,-.01419,-.02489,.001378,
- .005484,.001492,.008544,.004245,.01379,.01504,.014,.01307,.01936,
- .01778,.02357,.02215,.02608,.03004,.0216,.01624,-.004475,-.01459,
- -.02573,-4.333e-4,.00629,.005193,.009975,.006273,.01267,.01547,
- .01373,.01588,.02237,.02046,.02261,.02476,.02845,.03304,.0238,
- .01771,-.003889,-.01482,-.02651,-.002347,.007964,.007723,.01191,
- .007705,.0131,.01708,.01269,.0178,.02453,.02224,.02303,.02642,
- .02964,.03633,.02666,.01879,-.002786,-.01493,-.02712,-.001399,
- .008576,.006748,.0123,.006867,.01566,.01849,.0136,.01682,.02419,
- .02141,.0264,.02579,.02964,.03829,.02888,.02146,-.002153,-.01521,
- -.02791,-.002813,.0087,.007801,.01287,.007293,.01553,.01906,
- .01369,.01716,.0255,.02159,.02738,.02594,.03016,.03985,.03036,
- .02455,-.001486,-.01542,-.02868,-.004009,.009681,.008641,.01418,
- .006801,.01539,.0203,.01264,.01738,.02762,.02189,.0267,.02639,
- .03082,.0427,.03324,.02607,5.661e-6,-.01534,-.02913,-.006005,
- .007736,.008715,.01277,.008444,.01335,.01875,.01214,.01952,.0283,
- .02413,.02505,.02864,.03255,.04578,.03643,.02811,.001504,-.0154,
- -.02965,-.005521,.006657,.006408,.01147,.006439,.01344,.01797,
- .01224,.01837,.02694,.02357,.02563,.02866,.03317,.04765,.03835,
- .03165,.002807,-.0154,-.03011,-.005109,.001938,.002116,.006827,
- .00586,.01152,.01404,.01369,.01788,.0236,.02375,.02602,.02937,
- .0346,.04812,.04051,.0345,.004649,-.01501,-.03031,-.007876,
- 5.279e-4,-3.111e-4,.005626,.003223,.01025,.01334,.01118,.01547,
- .02251,.02155,.02495,.02752,.03345,.04968,.04391,.03637,.006591,
- -.0147,-.03038,-.008446,-.005814,-.007032,-7.231e-4,3.031e-4,
- .008236,.008714,.01219,.01178,.01713,.01819,.02565,.02461,.03161,
- .05035,.04708,.03955,.009116,-.0142,-.03013,-.01587,-.01153,
- -.009027,-.005651,2.25e-4,.001398,.003267,.01015,.01121,.01383,
- .01756,.02134,.02407,.0314,.05016,.04807,.0436,.01215,-.01317,
- -.02967,-.02224,-.01495,-.01203,-.008878,-.003539,-.003515,
- -4.783e-4,.005442,.007955,.01067,.01458,.01729,.02125,.0285,
- .05161,.05076,.04602,.01426,-.01214,-.02892,-.02776,-.01527,
- -.01565,-.009875,-.01139,-.005077,-.001286,-.003573,.001397,
- .008326,.008183,.01336,.01523,.02306,.05113,.05418,.04828,.01796,
- -.01083,-.02755,-.02752,-.02602,-.02859,-.02113,-.0182,-.01056,
- -.01079,-.003473,-.005306,-.00201,.00276,.01032,.01101,.02084,
- .04874,.05633,.05033,.0228,-.008337,-.02562,-.03971,-.03755,
- -.0326,-.03108,-.01868,-.02413,-.02215,-.01,-.006195,-.007234,
- .001497,-2.555e-4,.009503,.01854,.04621,.0568,.05366,.02606,
- -.006306,-.02328,-.05038,-.04496,-.03945,-.03878,-.02639,-.03163,
- -.03003,-.01888,-.01378,-.01587,-.005853,-.006704,.002281,.01152,
- .04301,.05788,.05725,.03027,-.003129,-.02036,-.05438,-.05354,
- -.05263,-.04865,-.03951,-.03768,-.03895,-.02498,-.02609,-.02868,
- -.01693,-.01122,-.007148,.005739,.03629,.0568,.0602,.03632,
- .001217,-.01595,-.06782,-.07206,-.06436,-.06617,-.04185,-.0544,
- -.05641,-.03189,-.02939,-.04142,-.02007,-.02425,-.01019,.001794,
- .03227,.05861,.05813,.04196,.005563,-.01081,-.08576,-.07231,
- -.06736,-.0658,-.05879,-.06391,-.05817,-.05337,-.04444,-.04308,
- -.03546,-.03827,-.02554,-.01378,.02879,.05881,.05912,.04816,
- .01181,-.004895,-.09301,-.08516,-.08161,-.07857,-.07798,-.07361,
- -.07001,-.06653,-.0624,-.05402,-.05307,-.04682,-.04225,-.0281,
- .02171,.0561,.06185,.05429,.01875,.002784,-.1103,-.103,-.09714,
- -.09628,-.08801,-.09088,-.08741,-.07995,-.07218,-.06868,-.06244,
- -.06168,-.05133,-.03814,.02015,.05159,.06386,.06013,.02696,.01122,
- -.1294,-.1099,-.1062,-.1027,-.1085,-.1041,-.09479,-.1041,-.08915,
- -.0747,-.0791,-.0788,-.06732,-.05394,.01023,.04816,.06292,.06981,
- .03742,.02192,-.1358,-.1343,-.1375,-.1287,-.1288,-.1144,-.1152,
- -.1105,-.1097,-.1022,-.0968,-.0822,-.08226,-.06431,-.001314,
- .04755,.05653,.07773,.04885,.0338,-.1531,-.1605,-.1647,-.1558,
- -.1413,-.135,-.1404,-.1158,-.1203,-.127,-.1035,-.09563,-.08529,
- -.0636,-.004303,.04797,.05427,.08519,.06171,.04555,-.1867,-.1845,
- -.1723,-.1757,-.1492,-.1664,-.1631,-.1343,-.124,-.1337,-.1067,
- -.1193,-.08863,-.06949,-.01217,.04573,.05557,.09469,.07738,.05906,
- -.1947,-.211,-.212,-.2041,-.1788,-.1729,-.1828,-.1388,-.1513,
- -.1619,-.129,-.115,-.1055,-.07644,-.01671,.04337,.06068,.1001,
- .09339,.0714,-.2355,-.2412,-.2262,-.2289,-.185,-.2081,-.2092,
- -.1523,-.1526,-.1699,-.1278,-.1342,-.1014,-.0697,-.004811,.04462,
- .06457,.1114,.1113,.08277,-.2765,-.2572,-.2233,-.235,-.1963,
- -.2327,-.2178,-.1769,-.1536,-.1539,-.1274,-.1454,-.1001,-.07127,
- 3.506e-4,.05837,.0675,.116,.1272,.09052,-.2621,-.2445,-.2653,
- -.2259,-.2498,-.1805,-.1823,-.1698,-.1977,-.1567,-.1616,-.08839,
- -.124,-.07447,.01281,.09104,.0557,.1219,.1371,.09304,-.2857,
- -.2903,-.2455,-.2563,-.1505,-.207,-.2122,-.1072,-.08945,-.1272,
- -.05051,-.07265,-.01593,.01157,.09823,.1244,.07216,.1272,.1355,
- .08736,-.2604,-.2884,-.09803,-.2237,.06993,-.2145,-.2078,.01727,
- .1337,-.008717,.1614,-.03975,.1754,.1504,.1908,.142,.1193,.0856,
- .07581,.05598,.08863,.07441,.1603,.09307,.2651,.1464,.1096,.1725,
- .2616,.1571,.2539,.1465,.2386,.1925,.1472,.08351,.07938,.03885,
- .02173,.01352,1.341e-18,-6.003e-18,-7.181e-18,-3.242e-18,
- -4.398e-18,1.28e-18,2.688e-18,5.777e-18,7.57e-19,2.719e-18,
- -2.801e-19,-9.238e-19,-8.006e-19,8.456e-19,-4.975e-19,2.65e-19,
- -1.204e-19,-3.065e-19,9.486e-20,-1.058e-19 };
- static doublereal uhr[1660] /* was [20][83] */ = { -.3243,-.3504,-.3625,
- -.3853,-.4323,-.4322,-.4427,-.496,-.5164,-.5181,-.5654,-.5712,
- -.5994,-.5925,-.3548,-.236,-.2183,-.1136,-.0644,-.07657,-.2275,
- -.2583,-.2725,-.2956,-.3391,-.3413,-.3553,-.4083,-.4297,-.4384,
- -.4828,-.4907,-.5223,-.5233,-.3133,-.2085,-.1922,-.09834,-.05294,
- -.07138,-.01795,-.04707,-.05735,-.07782,-.1088,-.1128,-.1299,
- -.1697,-.1933,-.2108,-.2465,-.2569,-.2911,-.3052,-.1695,-.1093,
- -.1014,-.04735,-.02004,-.0524,.04439,.02789,.02289,.01077,
- -.003171,-.007923,-.02048,-.04294,-.05802,-.07562,-.09581,-.1062,
- -.1285,-.1376,-.04147,-.009279,-.008594,.00231,.00555,-.02943,
- .03578,.03269,.03027,.02519,.01441,.01379,.008951,-.005037,
- -.01449,-.02196,-.03659,-.04171,-.05458,-.05303,.02811,.0544,
- .05487,.03021,.01412,-.01269,.01267,.0135,.007699,.01022,2.126e-4,
- .007758,.004957,-.004217,-.01248,-.01282,-.02283,-.01919,-.0296,
- -.02092,.05365,.08631,.08811,.038,.01288,-.004242,-.01034,-.01829,
- -.02313,-.01947,-.01919,-.01261,-.01808,-.01286,-.02362,-.0263,
- -.0262,-.01819,-.0265,-.01634,.05498,.09693,.09656,.03552,.00989,
- -.001328,-.03552,-.04433,-.04096,-.04326,-.0334,-.03633,-.04058,
- -.03018,-.03299,-.03815,-.03239,-.02964,-.03047,-.02247,.0491,
- .09204,.09036,.0308,.007319,-8.748e-4,-.05009,-.0421,-.03741,
- -.03956,-.03951,-.04292,-.03879,-.03998,-.03497,-.03195,-.03282,
- -.03479,-.02948,-.02243,.04089,.07919,.07855,.02686,.005413,
- -.001035,-.04099,-.03186,-.03494,-.03079,-.03483,-.02978,-.02715,
- -.03348,-.02895,-.02503,-.0255,-.02321,-.02136,-.01528,.02886,
- .06369,.06551,.024,.003973,-.001153,-.02721,-.03047,-.03292,
- -.02897,-.02856,-.02259,-.024,-.0187,-.02253,-.02079,-.01786,
- -.01096,-.01299,-.00669,.01992,.04884,.05402,.02242,.003066,
- -.001031,-.02594,-.02724,-.02654,-.02497,-.01972,-.02031,-.02033,
- -.01341,-.01395,-.01406,-.009588,-.007853,-.005201,-6.13e-4,
- .01745,.03684,.04436,.02143,.002644,-6.918e-4,-.02533,-.02107,
- -.01916,-.01821,-.01776,-.01749,-.01474,-.01375,-.01104,-.007127,
- -.007054,-.006274,-.002967,5.223e-4,.0156,.0287,.03628,.02109,
- .002585,-9.753e-5,-.02248,-.0183,-.01894,-.0161,-.01724,-.01337,
- -.01181,-.01335,-.01042,-.006479,-.00642,-.003348,-.002263,
- .001365,.01214,.02269,.03001,.02134,.002752,7.33e-4,-.0215,
- -.01933,-.0192,-.01711,-.01587,-.01375,-.01288,-.01116,-.009425,
- -.007255,-.005374,-.002809,-.001152,.002894,.01022,.0186,.02499,
- .02156,.00326,.001688,-.02233,-.02083,-.01882,-.01834,-.01416,
- -.01573,-.01461,-.009871,-.008193,-.007829,-.004197,-.004043,
- -9.091e-5,.003881,.01022,.01696,.02102,.02184,.004136,.002725,
- -.02209,-.02007,-.01973,-.01796,-.01489,-.01481,-.01396,-.01029,
- -.009074,-.008612,-.005056,-.00411,-9.361e-4,.003137,.009971,
- .01574,.01899,.02211,.005316,.003713,-.02106,-.01973,-.01992,
- -.01765,-.01631,-.01421,-.01361,-.011,-.01039,-.008582,-.006425,
- -.003913,-.002342,.001673,.01037,.01479,.01769,.02217,.006561,
- .00464,-.02203,-.01893,-.01825,-.01662,-.01659,-.01481,-.01308,
- -.01255,-.01045,-.007332,-.006812,-.005076,-.002902,9.269e-4,
- .01086,.0149,.01649,.02205,.007916,.005533,-.022,-.01882,-.0188,
- -.01674,-.01658,-.01419,-.01296,-.0128,-.01053,-.007874,-.006876,
- -.005094,-.002954,9.24e-4,.01077,.01502,.01642,.02163,.009371,
- .006384,-.02227,-.01979,-.01896,-.01769,-.01541,-.01492,-.01394,
- -.0121,-.009603,-.008479,-.006017,-.005268,-.002203,.001605,
- .01081,.01533,.01624,.02157,.01068,.007328,-.02192,-.01974,
- -.01868,-.0175,-.01529,-.01523,-.01404,-.01134,-.009431,-.008158,
- -.005717,-.005347,-.001818,.002073,.01098,.01562,.01643,.02118,
- .01203,.008258,-.02216,-.02,-.01895,-.01776,-.01377,-.01567,
- -.01414,-.01036,-.008129,-.008214,-.004357,-.005671,-4.951e-4,
- .00327,.01189,.01582,.01715,.0207,.01312,.009143,-.02116,-.01834,
- -.01813,-.01617,-.01455,-.01377,-.01242,-.01091,-.00865,-.006986,
- -.004872,-.004336,-9.19e-4,.00303,.01298,.01641,.01773,.02043,
- .01394,.01007,-.02043,-.01736,-.01723,-.01504,-.01482,-.01284,
- -.01119,-.01013,-.008813,-.005735,-.005091,-.003083,-.001151,
- .002866,.01421,.01715,.01847,.02035,.01455,.01101,-.01964,-.01565,
- -.01625,-.0134,-.01458,-.011,-.009432,-.009804,-.008393,-.00453,
- -.004568,-.001539,-4.745e-4,.003714,.01496,.01824,.01943,.02048,
- .01502,.0121,-.01853,-.01667,-.01593,-.01434,-.01217,-.01088,
- -.01012,-.007304,-.006066,-.004489,-.0022,4.284e-5,.001872,
- .006027,.01611,.01966,.02052,.02086,.0155,.0133,-.01754,-.01492,
- -.01448,-.01256,-.01104,-.009663,-.008492,-.005993,-.004523,
- -.002666,-4.823e-4,.001385,.003777,.008167,.01744,.02102,.02214,
- .02118,.01597,.01452,-.01771,-.0147,-.01257,-.01194,-.007639,
- -.009634,-.00797,-.004045,-.001066,-6.568e-4,.002991,.001904,
- .007191,.01134,.01963,.0226,.02411,.02152,.01638,.01583,-.01472,
- -.01251,-.01157,-.009849,-.00712,-.006501,-.005433,-.002252,
- -7.197e-5,.001308,.004298,.005102,.008798,.0132,.0222,.02504,
- .02589,.02245,.01691,.01733,-.01352,-.01047,-.009595,-.007649,
- -.005115,-.004269,-.002901,5.06e-5,.001953,.00363,.006428,.008036,
- .01108,.01583,.02459,.02775,.0277,.0236,.0175,.01902,-.009567,
- -.008317,-.009181,-.005715,-.003964,-2.647e-4,4.081e-6,.003228,
- .003462,.00545,.00834,.01239,.01324,.01807,.02753,.03076,.03023,
- .02479,.01823,.02087,-.009255,-.004739,-.004405,-.001671,
- -9.363e-4,.001572,.003413,.00512,.007174,.01033,.01206,.01458,
- .01705,.0218,.03145,.03411,.03331,.02609,.01908,.02289,-.006918,
- -.003179,-.002159,2.362e-4,.003409,.003747,.00573,.009411,.01161,
- .01366,.01669,.01793,.02177,.02645,.03648,.03785,.03648,.02761,
- .02012,.02513,-.002846,.002167,.001466,.0055,.004963,.009521,
- .01153,.01177,.01407,.01868,.01942,.02313,.02486,.02995,.04139,
- .04213,.04012,.02962,.02138,.02771,-.001439,.005453,.00707,
- .009494,.01041,.01195,.01514,.016,.01987,.02418,.02527,.02711,
- .03082,.03603,.04626,.04695,.04457,.03204,.02297,.03066,.004171,
- .006826,.008585,.01093,.01626,.0161,.01751,.02377,.02597,.02711,
- .03205,.03347,.038,.0434,.05233,.05213,.04944,.03453,.02479,
- .03391,.008762,.01329,.01377,.01738,.02074,.02243,.02428,.02858,
- .03146,.03375,.03803,.03973,.0445,.0504,.05903,.05795,.05497,
- .03741,.02682,.03753,.0109,.01912,.02235,.02426,.02805,.02677,
- .03088,.03357,.03938,.04277,.04582,.04503,.05224,.05794,.06685,
- .06486,.06108,.04108,.02919,.04172,.0184,.0237,.02656,.02912,
- .03467,.03418,.03701,.04242,.04644,.04937,.0534,.05426,.06014,
- .06595,.07655,.07288,.06756,.04526,.03198,.04649,.02884,.0312,
- .03128,.03616,.03989,.045,.04562,.05172,.05292,.05631,.0608,
- .06591,.06843,.0753,.08663,.08128,.07513,.04974,.03513,.05182,
- .02866,.03354,.03672,.03928,.04751,.04617,.0483,.05684,.06022,
- .06125,.06801,.06919,.07551,.08223,.09116,.08575,.07953,.05223,
- .03685,.05475,.03381,.04061,.04147,.04609,.04928,.05283,.05523,
- .06051,.06336,.0671,.07166,.07529,.07977,.08715,.09689,.09042,
- .08416,.055,.03872,.05789,.0396,.04866,.05297,.05536,.06204,
- .06081,.06469,.06992,.07667,.0797,.08498,.08497,.09305,.1,.109,
- .1016,.09372,.06123,.04291,.06486,.05157,.05869,.0606,.06555,
- .0721,.07332,.07658,.08332,.0878,.09125,.09705,.09891,.1059,.1134,
- .1238,.1145,.104,.06833,.04782,.07282,.06634,.06984,.07029,.07693,
- .08275,.08783,.08945,.09825,.1,.1041,.1104,.1154,.1202,.1289,
- .1401,.128,.1166,.07631,.05345,.08192,.07588,.08732,.0862,.09465,
- .09633,.1031,.1072,.1103,.1155,.1221,.1264,.1306,.1368,.1456,
- .1576,.1429,.1312,.08562,.05995,.09229,.08726,.1039,.1049,.1124,
- .1117,.1186,.1249,.1248,.133,.1425,.1444,.1477,.1554,.1646,.1777,
- .1605,.1468,.09653,.06758,.1043,.09928,.1181,.1238,.1284,.1331,
- .1329,.1413,.1436,.1551,.1631,.1667,.166,.1779,.187,.2002,.1804,
- .1645,.109,.07645,.1182,.1166,.1346,.1412,.1458,.1533,.1523,.1601,
- .166,.1766,.1837,.1891,.1895,.2012,.2113,.2237,.2024,.1859,.1234,
- .08673,.1341,.1371,.1507,.1578,.1627,.1769,.1735,.1794,.1921,
- .2015,.2047,.2154,.2151,.2285,.2396,.2495,.2278,.2099,.1403,
- .09874,.1527,.1568,.1733,.1821,.1869,.2014,.1964,.2045,.216,.2285,
- .2335,.2433,.2408,.2573,.2686,.2811,.2574,.2362,.1598,.1129,.1743,
- .182,.1985,.2055,.213,.226,.2247,.2329,.2439,.2559,.2629,.2723,
- .2716,.2878,.3003,.3166,.2903,.2671,.1824,.1295,.1994,.2087,.2222,
- .2309,.238,.2561,.2529,.2599,.2774,.2885,.2932,.3065,.3057,.3235,
- .3377,.355,.3266,.3036,.2092,.149,.2288,.2357,.2526,.2616,.2697,
- .2881,.2857,.2936,.3101,.3234,.3292,.343,.3426,.3616,.3771,.3976,
- .3693,.3446,.2404,.1722,.2633,.2673,.2853,.2932,.3039,.3213,.3218,
- .3306,.3485,.3596,.3681,.3811,.3843,.4016,.4195,.446,.4191,.3907,
- .2769,.1999,.304,.297,.3221,.3324,.3427,.3611,.3602,.3712,.3871,
- .4029,.4129,.426,.4279,.448,.4673,.5007,.475,.4449,.3203,.2329,
- .352,.3342,.3598,.3703,.3819,.4039,.4026,.4133,.4347,.4494,.4581,
- .475,.478,.4997,.5221,.5613,.538,.5082,.3718,.2725,.4092,.3698,
- .4059,.4198,.4307,.451,.4483,.4634,.4801,.5017,.5142,.5291,.5297,
- .5559,.5802,.6306,.6111,.5807,.4326,.3206,.4772,.418,.4596,.4665,
- .4853,.4938,.5066,.5224,.5322,.5508,.5726,.5819,.5929,.6121,.6406,
- .7101,.6965,.6637,.5048,.3785,.5583,.4708,.5129,.5173,.5405,.5458,
- .5661,.5817,.5914,.61,.6361,.6447,.661,.6787,.7117,.7984,.7935,
- .7606,.5921,.4492,.6563,.5307,.5654,.5667,.5953,.6068,.6303,.6434,
- .6611,.6772,.7018,.7165,.7352,.7554,.7941,.8966,.9035,.8755,.697,
- .5363,.7741,.584,.6197,.6307,.6551,.6804,.6903,.7071,.7383,.7563,
- .778,.7996,.8123,.8431,.8877,1.006,1.032,1.008,.8221,.643,.9167,
- .6446,.6905,.7018,.7291,.7523,.7684,.7865,.8166,.8359,.8627,.884,
- .9047,.9325,.9832,1.133,1.183,1.162,.9752,.7755,1.091,.7125,.774,
- .7826,.8157,.8294,.8541,.8777,.9,.9253,.9614,.9791,1.002,1.034,
- 1.093,1.28,1.358,1.342,1.161,.9413,1.303,.8015,.8514,.8565,.8973,
- .9173,.9506,.9707,1.002,1.024,1.063,1.086,1.117,1.149,1.217,1.451,
- 1.558,1.557,1.388,1.149,1.564,.876,.9416,.9551,.9948,1.025,1.049,
- 1.076,1.109,1.142,1.183,1.211,1.239,1.282,1.36,1.64,1.794,1.812,
- 1.667,1.411,1.886,.9746,1.049,1.059,1.107,1.132,1.168,1.197,1.238,
- 1.267,1.315,1.346,1.384,1.43,1.524,1.857,2.071,2.113,2.011,1.745,
- 2.284,1.09,1.159,1.172,1.224,1.265,1.3,1.329,1.383,1.419,1.466,
- 1.51,1.548,1.606,1.717,2.117,2.403,2.472,2.437,2.174,2.782,1.199,
- 1.294,1.32,1.371,1.425,1.446,1.486,1.546,1.601,1.652,1.705,1.734,
- 1.816,1.942,2.431,2.797,2.904,2.972,2.726,3.402,1.36,1.463,1.479,
- 1.549,1.592,1.639,1.684,1.745,1.801,1.872,1.925,1.97,2.058,2.212,
- 2.808,3.271,3.435,3.639,3.444,4.184,1.526,1.657,1.691,1.76,1.825,
- 1.858,1.917,1.989,2.069,2.149,2.215,2.254,2.372,2.553,3.274,3.859,
- 4.088,4.486,4.385,5.17,1.764,1.917,1.946,2.038,2.104,2.16,2.228,
- 2.31,2.401,2.502,2.579,2.638,2.772,2.991,3.864,4.599,4.909,5.569,
- 5.628,6.419,2.077,2.262,2.3,2.412,2.491,2.567,2.649,2.749,2.858,
- 2.988,3.08,3.163,3.318,3.59,4.649,5.559,5.96,6.969,7.283,8.02,
- 2.534,2.764,2.815,2.954,3.067,3.154,3.257,3.395,3.541,3.698,3.826,
- 3.919,4.13,4.467,5.758,6.851,7.354,8.813,9.514,10.07,3.247,3.565,
- 3.638,3.824,3.976,4.083,4.231,4.409,4.609,4.824,4.986,5.103,5.378,
- 5.8,7.369,8.653,9.292,11.3,12.56,12.73,4.514,4.972,5.059,5.34,
- 5.526,5.714,5.92,6.153,6.42,6.732,6.937,7.12,7.463,8.007,9.871,
- 11.35,12.12,14.77,16.81,16.22,6.968,7.674,7.829,8.243,8.562,8.808,
- 9.113,9.488,9.875,10.3,10.6,10.84,11.31,12.,14.08,15.66,16.51,
- 19.87,22.92,20.93,12.56,13.79,14.06,14.74,15.25,15.61,16.11,16.67,
- 17.26,17.86,18.28,18.55,19.19,19.99,21.85,23.12,23.96,27.9,32.12,
- 27.39,28.29,30.5,30.97,32.12,33.04,33.57,34.27,35.16,35.93,36.58,
- 37.12,37.37,37.93,38.39,37.97,37.6,37.95,41.82,47.1,36.85,89.49,
- 93.05,93.77,95.07,96.14,96.37,96.75,97.14,97.09,96.43,95.98,95.31,
- 93.76,90.63,77.64,70.06,68.35,69.3,74.26,50.85,546.2,522.2,516.1,
- 499.1,484.4,474.1,459.6,441.2,421.,399.6,382.1,370.6,342.5,304.7,
- 205.7,159.3,147.5,130.1,125.1,65.26,5621.,4201.,3938.,3362.,2954.,
- 2722.,2420.,2096.,1798.,1542.,1362.,1262.,1035.,791.2,361.8,235.3,
- 207.6,165.9,149.9,69.8 };
-
- /* System generated locals */
- integer i__1;
-
- /* Local variables */
- integer i__, j;
- doublereal vi_m__;
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real ph,qh,uh >*/
-/*< common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p) >*/
-/*< real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p) >*/
-/* - to vary the number of quadratures */
-/*< real ex,sc,asy,vi >*/
-/*< common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4) >*/
-/*< real ex_m(20),sc_m(20),asy_m(20),vi_m >*/
-/*< integer i,j >*/
-/* Dust model */
-/* Parameters and refractive indices - G.A. d'Almeida, 'Atmospheric */
-/* aerosols. Global climatology and radiative characteristics', 1991. */
-/* Extinction coefficients are calculated in km-1 */
-/* *************** MIE (asy) ****************** */
-/*< >*/
-/* *************** MIE (ext&sca) ****************** */
-/*< >*/
-/* ************** MIE (phase fun ph) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun qh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun uh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< vi_m=18.2859898 >*/
- vi_m__ = 18.2859898;
-/*< vi(1)=vi_m >*/
- sixs_coef__1.vi[0] = vi_m__;
-/*< do 1 i=1,20 >*/
- for (i__ = 1; i__ <= 20; ++i__) {
-/*< asy(1,i)=asy_m(i) >*/
- sixs_coef__1.asy[(i__ << 2) - 4] = asy_m__[i__ - 1];
-/*< ex(1,i)=ex_m(i) >*/
- sixs_coef__1.ex[(i__ << 2) - 4] = ex_m__[i__ - 1];
-/*< sc(1,i)=sc_m(i) >*/
- sixs_coef__1.sc[(i__ << 2) - 4] = sc_m__[i__ - 1];
-/*< do 1 j=1,nquad >*/
- i__1 = num_quad__1.nquad;
- for (j = 1; j <= i__1; ++j) {
-/*< ph(i,j)=phr(i,j) >*/
- sixs_aerbas__1.ph[i__ + j * 20 - 21] = phr[i__ + j * 20 - 21];
-/*< qh(i,j)=qhr(i,j) >*/
- sixs_aerbas__1.qh[i__ + j * 20 - 21] = qhr[i__ + j * 20 - 21];
-/*< uh(i,j)=uhr(i,j) >*/
- sixs_aerbas__1.uh[i__ + j * 20 - 21] = uhr[i__ + j * 20 - 21];
-/*< 1 continue >*/
-/* L1: */
- }
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* dust_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DUST.f b/Modules/ThirdParty/6S/src/6SV1.0B/DUST.f
deleted file mode 100644
index 9601cf2..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DUST.f
+++ /dev/null
@@ -1,1133 +0,0 @@
- subroutine dust
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real ph,qh,uh
- common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p)
- real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p)
-c - to vary the number of quadratures
- real ex,sc,asy,vi
- common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4)
- real ex_m(20),sc_m(20),asy_m(20),vi_m
- integer i,j
-
-c Dust model
-c Parameters and refractive indices - G.A. d'Almeida, 'Atmospheric
-c aerosols. Global climatology and radiative characteristics', 1991.
-c Extinction coefficients are calculated in km-1
-
-c*************** MIE (asy) ******************
- data (asy_m(j),j=1,20)/
- a 0.846,0.838,0.836,0.832,0.827,0.826,0.822,0.817,0.812,0.807,
- a 0.802,0.800,0.792,0.785,0.778,0.795,0.808,0.859,0.892,0.853/
-c*************** MIE (ext&sca) ******************
- data (ex_m(j),sc_m(j),j=1,20) /
- a 0.8230388E+01,0.5565700E+01,0.8305723E+01,0.5744132E+01,
- a 0.8328883E+01,0.5786949E+01,0.8368396E+01,0.5888061E+01,
- a 0.8415968E+01,0.5976042E+01,0.8428650E+01,0.6028808E+01,
- a 0.8467864E+01,0.6112733E+01,0.8519962E+01,0.6215003E+01,
- a 0.8583242E+01,0.6333235E+01,0.8632867E+01,0.6450123E+01,
- a 0.8689027E+01,0.6547941E+01,0.8704309E+01,0.6603794E+01,
- a 0.8803438E+01,0.6771705E+01,0.8924636E+01,0.7002420E+01,
- a 0.9300344E+01,0.7719834E+01,0.9404915E+01,0.8043072E+01,
- a 0.9368683E+01,0.8084310E+01,0.8811917E+01,0.7738148E+01,
- a 0.7876924E+01,0.6921192E+01,0.7002555E+01,0.6187184E+01 /
-c************** MIE (phase fun ph) ***************
- DATA ((PHR(i,j),j=1,83),i= 1, 1)/
- *0.3243E+00,0.3160E+00,0.3591E+00,0.3476E+00,0.3226E+00,
- *0.2902E+00,0.2596E+00,0.2419E+00,0.2232E+00,0.1846E+00,
- *0.1428E+00,0.1168E+00,0.9709E-01,0.8103E-01,0.7004E-01,
- *0.6320E-01,0.5814E-01,0.5326E-01,0.5106E-01,0.4940E-01,
- *0.4870E-01,0.4778E-01,0.4820E-01,0.4788E-01,0.4772E-01,
- *0.4784E-01,0.4869E-01,0.4996E-01,0.5202E-01,0.5280E-01,
- *0.5469E-01,0.5593E-01,0.5910E-01,0.6304E-01,0.6599E-01,
- *0.6985E-01,0.7474E-01,0.8012E-01,0.8582E-01,0.9162E-01,
- *0.9846E-01,0.1009E+00,0.1050E+00,0.1138E+00,0.1246E+00,
- *0.1362E+00,0.1473E+00,0.1611E+00,0.1732E+00,0.1897E+00,
- *0.2101E+00,0.2304E+00,0.2540E+00,0.2787E+00,0.3060E+00,
- *0.3378E+00,0.3659E+00,0.4035E+00,0.4393E+00,0.4858E+00,
- *0.5360E+00,0.5962E+00,0.6485E+00,0.7072E+00,0.7761E+00,
- *0.8649E+00,0.9362E+00,0.1036E+01,0.1154E+01,0.1261E+01,
- *0.1424E+01,0.1594E+01,0.1832E+01,0.2152E+01,0.2617E+01,
- *0.3335E+01,0.4608E+01,0.7076E+01,0.1268E+02,0.2842E+02,
- *0.8963E+02,0.5463E+03,0.5621E+04 /
- DATA ((PHR(i,j),j=1,83),i= 2, 2)/
- *0.3504E+00,0.3410E+00,0.3912E+00,0.3864E+00,0.3531E+00,
- *0.3218E+00,0.2983E+00,0.2747E+00,0.2390E+00,0.1973E+00,
- *0.1651E+00,0.1363E+00,0.1080E+00,0.8892E-01,0.7840E-01,
- *0.7077E-01,0.6358E-01,0.5933E-01,0.5510E-01,0.5225E-01,
- *0.5194E-01,0.5138E-01,0.5099E-01,0.5019E-01,0.5009E-01,
- *0.4996E-01,0.5225E-01,0.5356E-01,0.5519E-01,0.5641E-01,
- *0.5805E-01,0.6066E-01,0.6323E-01,0.6633E-01,0.6987E-01,
- *0.7371E-01,0.7894E-01,0.8533E-01,0.9124E-01,0.9803E-01,
- *0.1067E+00,0.1112E+00,0.1168E+00,0.1253E+00,0.1344E+00,
- *0.1455E+00,0.1616E+00,0.1759E+00,0.1898E+00,0.2075E+00,
- *0.2249E+00,0.2462E+00,0.2702E+00,0.2948E+00,0.3259E+00,
- *0.3559E+00,0.3928E+00,0.4306E+00,0.4753E+00,0.5264E+00,
- *0.5803E+00,0.6330E+00,0.6854E+00,0.7571E+00,0.8406E+00,
- *0.9153E+00,0.1007E+01,0.1116E+01,0.1225E+01,0.1362E+01,
- *0.1534E+01,0.1730E+01,0.1992E+01,0.2347E+01,0.2856E+01,
- *0.3662E+01,0.5080E+01,0.7789E+01,0.1392E+02,0.3064E+02,
- *0.9319E+02,0.5223E+03,0.4201E+04 /
- DATA ((PHR(i,j),j=1,83),i= 3, 3)/
- *0.3625E+00,0.3534E+00,0.4034E+00,0.3995E+00,0.3637E+00,
- *0.3363E+00,0.3122E+00,0.2775E+00,0.2391E+00,0.2059E+00,
- *0.1719E+00,0.1389E+00,0.1102E+00,0.9256E-01,0.8045E-01,
- *0.7120E-01,0.6493E-01,0.6051E-01,0.5595E-01,0.5397E-01,
- *0.5247E-01,0.5160E-01,0.5119E-01,0.5069E-01,0.5103E-01,
- *0.5174E-01,0.5266E-01,0.5382E-01,0.5511E-01,0.5686E-01,
- *0.5922E-01,0.6272E-01,0.6472E-01,0.6745E-01,0.7095E-01,
- *0.7540E-01,0.8057E-01,0.8557E-01,0.9202E-01,0.9913E-01,
- *0.1079E+00,0.1131E+00,0.1180E+00,0.1280E+00,0.1375E+00,
- *0.1498E+00,0.1650E+00,0.1798E+00,0.1974E+00,0.2154E+00,
- *0.2317E+00,0.2535E+00,0.2763E+00,0.3028E+00,0.3322E+00,
- *0.3624E+00,0.4018E+00,0.4391E+00,0.4861E+00,0.5328E+00,
- *0.5849E+00,0.6330E+00,0.6967E+00,0.7683E+00,0.8482E+00,
- *0.9209E+00,0.1022E+01,0.1127E+01,0.1239E+01,0.1390E+01,
- *0.1552E+01,0.1763E+01,0.2026E+01,0.2388E+01,0.2909E+01,
- *0.3740E+01,0.5173E+01,0.7947E+01,0.1419E+02,0.3113E+02,
- *0.9392E+02,0.5162E+03,0.3938E+04 /
- DATA ((PHR(i,j),j=1,83),i= 4, 4)/
- *0.3853E+00,0.3726E+00,0.4175E+00,0.4135E+00,0.3787E+00,
- *0.3464E+00,0.3207E+00,0.2931E+00,0.2550E+00,0.2139E+00,
- *0.1797E+00,0.1483E+00,0.1176E+00,0.9732E-01,0.8530E-01,
- *0.7638E-01,0.6854E-01,0.6361E-01,0.5873E-01,0.5571E-01,
- *0.5508E-01,0.5421E-01,0.5365E-01,0.5277E-01,0.5261E-01,
- *0.5262E-01,0.5491E-01,0.5623E-01,0.5787E-01,0.5919E-01,
- *0.6104E-01,0.6405E-01,0.6664E-01,0.6981E-01,0.7354E-01,
- *0.7771E-01,0.8325E-01,0.8967E-01,0.9601E-01,0.1033E+00,
- *0.1124E+00,0.1174E+00,0.1232E+00,0.1323E+00,0.1420E+00,
- *0.1538E+00,0.1704E+00,0.1854E+00,0.2008E+00,0.2193E+00,
- *0.2374E+00,0.2597E+00,0.2847E+00,0.3109E+00,0.3431E+00,
- *0.3746E+00,0.4137E+00,0.4531E+00,0.5002E+00,0.5529E+00,
- *0.6089E+00,0.6637E+00,0.7219E+00,0.7969E+00,0.8836E+00,
- *0.9625E+00,0.1062E+01,0.1176E+01,0.1292E+01,0.1441E+01,
- *0.1623E+01,0.1836E+01,0.2118E+01,0.2502E+01,0.3052E+01,
- *0.3928E+01,0.5455E+01,0.8364E+01,0.1487E+02,0.3227E+02,
- *0.9521E+02,0.4992E+03,0.3362E+04 /
- DATA ((PHR(i,j),j=1,83),i= 5, 5)/
- *0.4323E+00,0.4130E+00,0.4481E+00,0.4391E+00,0.4030E+00,
- *0.3689E+00,0.3346E+00,0.2956E+00,0.2650E+00,0.2299E+00,
- *0.1895E+00,0.1499E+00,0.1248E+00,0.1054E+00,0.8953E-01,
- *0.7772E-01,0.7041E-01,0.6557E-01,0.6245E-01,0.5991E-01,
- *0.5656E-01,0.5516E-01,0.5353E-01,0.5403E-01,0.5539E-01,
- *0.5675E-01,0.5634E-01,0.5705E-01,0.5789E-01,0.6072E-01,
- *0.6362E-01,0.6673E-01,0.6976E-01,0.7261E-01,0.7714E-01,
- *0.8242E-01,0.8687E-01,0.9191E-01,0.9852E-01,0.1069E+00,
- *0.1152E+00,0.1203E+00,0.1243E+00,0.1357E+00,0.1478E+00,
- *0.1610E+00,0.1739E+00,0.1898E+00,0.2107E+00,0.2298E+00,
- *0.2505E+00,0.2740E+00,0.2986E+00,0.3278E+00,0.3570E+00,
- *0.3904E+00,0.4300E+00,0.4704E+00,0.5168E+00,0.5611E+00,
- *0.6133E+00,0.6722E+00,0.7469E+00,0.8190E+00,0.8945E+00,
- *0.9850E+00,0.1095E+01,0.1201E+01,0.1334E+01,0.1497E+01,
- *0.1665E+01,0.1902E+01,0.2191E+01,0.2582E+01,0.3169E+01,
- *0.4088E+01,0.5645E+01,0.8690E+01,0.1539E+02,0.3319E+02,
- *0.9627E+02,0.4844E+03,0.2954E+04 /
- DATA ((PHR(i,j),j=1,83),i= 6, 6)/
- *0.4322E+00,0.4125E+00,0.4415E+00,0.4331E+00,0.4048E+00,
- *0.3649E+00,0.3299E+00,0.3059E+00,0.2776E+00,0.2307E+00,
- *0.1899E+00,0.1577E+00,0.1289E+00,0.1059E+00,0.9193E-01,
- *0.8229E-01,0.7362E-01,0.6746E-01,0.6315E-01,0.5925E-01,
- *0.5816E-01,0.5746E-01,0.5736E-01,0.5622E-01,0.5591E-01,
- *0.5538E-01,0.5713E-01,0.5920E-01,0.6115E-01,0.6213E-01,
- *0.6397E-01,0.6597E-01,0.6955E-01,0.7405E-01,0.7774E-01,
- *0.8200E-01,0.8777E-01,0.9513E-01,0.1018E+00,0.1088E+00,
- *0.1176E+00,0.1215E+00,0.1269E+00,0.1371E+00,0.1480E+00,
- *0.1606E+00,0.1760E+00,0.1924E+00,0.2063E+00,0.2261E+00,
- *0.2484E+00,0.2719E+00,0.2982E+00,0.3259E+00,0.3598E+00,
- *0.3945E+00,0.4314E+00,0.4746E+00,0.5205E+00,0.5758E+00,
- *0.6349E+00,0.6999E+00,0.7585E+00,0.8360E+00,0.9231E+00,
- *0.1018E+01,0.1115E+01,0.1236E+01,0.1371E+01,0.1516E+01,
- *0.1714E+01,0.1937E+01,0.2240E+01,0.2658E+01,0.3255E+01,
- *0.4189E+01,0.5828E+01,0.8933E+01,0.1574E+02,0.3370E+02,
- *0.9650E+02,0.4742E+03,0.2722E+04 /
- DATA ((PHR(i,j),j=1,83),i= 7, 7)/
- *0.4427E+00,0.4235E+00,0.4548E+00,0.4487E+00,0.4149E+00,
- *0.3774E+00,0.3463E+00,0.3185E+00,0.2823E+00,0.2372E+00,
- *0.2001E+00,0.1664E+00,0.1339E+00,0.1105E+00,0.9644E-01,
- *0.8606E-01,0.7676E-01,0.7074E-01,0.6528E-01,0.6130E-01,
- *0.6028E-01,0.5938E-01,0.5857E-01,0.5750E-01,0.5712E-01,
- *0.5693E-01,0.5924E-01,0.6095E-01,0.6269E-01,0.6402E-01,
- *0.6583E-01,0.6862E-01,0.7187E-01,0.7560E-01,0.7968E-01,
- *0.8408E-01,0.8997E-01,0.9726E-01,0.1040E+00,0.1117E+00,
- *0.1213E+00,0.1263E+00,0.1323E+00,0.1421E+00,0.1526E+00,
- *0.1652E+00,0.1823E+00,0.1986E+00,0.2143E+00,0.2342E+00,
- *0.2549E+00,0.2788E+00,0.3057E+00,0.3338E+00,0.3684E+00,
- *0.4027E+00,0.4431E+00,0.4859E+00,0.5350E+00,0.5914E+00,
- *0.6516E+00,0.7137E+00,0.7757E+00,0.8562E+00,0.9480E+00,
- *0.1039E+01,0.1145E+01,0.1269E+01,0.1401E+01,0.1560E+01,
- *0.1762E+01,0.1999E+01,0.2313E+01,0.2745E+01,0.3363E+01,
- *0.4342E+01,0.6041E+01,0.9239E+01,0.1624E+02,0.3442E+02,
- *0.9688E+02,0.4597E+03,0.2420E+04 /
- DATA ((PHR(i,j),j=1,83),i= 8, 8)/
- *0.4960E+00,0.4724E+00,0.4868E+00,0.4722E+00,0.4366E+00,
- *0.3942E+00,0.3518E+00,0.3219E+00,0.2946E+00,0.2565E+00,
- *0.2072E+00,0.1679E+00,0.1415E+00,0.1205E+00,0.1019E+00,
- *0.8837E-01,0.7963E-01,0.7300E-01,0.6925E-01,0.6632E-01,
- *0.6339E-01,0.6103E-01,0.5995E-01,0.6034E-01,0.5995E-01,
- *0.6075E-01,0.6106E-01,0.6174E-01,0.6349E-01,0.6621E-01,
- *0.6858E-01,0.7111E-01,0.7485E-01,0.7902E-01,0.8400E-01,
- *0.8898E-01,0.9450E-01,0.1006E+00,0.1081E+00,0.1161E+00,
- *0.1238E+00,0.1283E+00,0.1329E+00,0.1444E+00,0.1591E+00,
- *0.1731E+00,0.1860E+00,0.2023E+00,0.2216E+00,0.2414E+00,
- *0.2662E+00,0.2908E+00,0.3190E+00,0.3495E+00,0.3812E+00,
- *0.4204E+00,0.4577E+00,0.5039E+00,0.5500E+00,0.6028E+00,
- *0.6593E+00,0.7294E+00,0.8073E+00,0.8843E+00,0.9682E+00,
- *0.1073E+01,0.1179E+01,0.1307E+01,0.1456E+01,0.1621E+01,
- *0.1821E+01,0.2071E+01,0.2399E+01,0.2844E+01,0.3503E+01,
- *0.4528E+01,0.6274E+01,0.9620E+01,0.1680E+02,0.3529E+02,
- *0.9725E+02,0.4413E+03,0.2096E+04 /
- DATA ((PHR(i,j),j=1,83),i= 9, 9)/
- *0.5164E+00,0.4898E+00,0.5048E+00,0.4920E+00,0.4535E+00,
- *0.4158E+00,0.3775E+00,0.3353E+00,0.3016E+00,0.2648E+00,
- *0.2222E+00,0.1798E+00,0.1499E+00,0.1266E+00,0.1077E+00,
- *0.9357E-01,0.8409E-01,0.7747E-01,0.7286E-01,0.6935E-01,
- *0.6534E-01,0.6333E-01,0.6142E-01,0.6153E-01,0.6279E-01,
- *0.6407E-01,0.6367E-01,0.6438E-01,0.6546E-01,0.6841E-01,
- *0.7172E-01,0.7521E-01,0.7843E-01,0.8167E-01,0.8663E-01,
- *0.9257E-01,0.9782E-01,0.1034E+00,0.1107E+00,0.1199E+00,
- *0.1294E+00,0.1349E+00,0.1395E+00,0.1518E+00,0.1649E+00,
- *0.1796E+00,0.1944E+00,0.2118E+00,0.2338E+00,0.2546E+00,
- *0.2767E+00,0.3023E+00,0.3296E+00,0.3616E+00,0.3939E+00,
- *0.4303E+00,0.4737E+00,0.5181E+00,0.5693E+00,0.6201E+00,
- *0.6798E+00,0.7450E+00,0.8255E+00,0.9060E+00,0.9940E+00,
- *0.1096E+01,0.1217E+01,0.1341E+01,0.1493E+01,0.1679E+01,
- *0.1881E+01,0.2155E+01,0.2498E+01,0.2962E+01,0.3656E+01,
- *0.4736E+01,0.6551E+01,0.1001E+02,0.1740E+02,0.3608E+02,
- *0.9721E+02,0.4211E+03,0.1798E+04 /
- DATA ((PHR(i,j),j=1,83),i=10,10)/
- *0.5181E+00,0.4938E+00,0.5082E+00,0.4987E+00,0.4599E+00,
- *0.4226E+00,0.3885E+00,0.3506E+00,0.3106E+00,0.2717E+00,
- *0.2321E+00,0.1928E+00,0.1568E+00,0.1316E+00,0.1139E+00,
- *0.1003E+00,0.8989E-01,0.8219E-01,0.7531E-01,0.7122E-01,
- *0.6883E-01,0.6691E-01,0.6558E-01,0.6441E-01,0.6427E-01,
- *0.6474E-01,0.6628E-01,0.6768E-01,0.6929E-01,0.7105E-01,
- *0.7377E-01,0.7767E-01,0.8059E-01,0.8416E-01,0.8859E-01,
- *0.9403E-01,0.1004E+00,0.1069E+00,0.1145E+00,0.1234E+00,
- *0.1341E+00,0.1400E+00,0.1460E+00,0.1573E+00,0.1691E+00,
- *0.1837E+00,0.2016E+00,0.2190E+00,0.2387E+00,0.2603E+00,
- *0.2813E+00,0.3073E+00,0.3360E+00,0.3677E+00,0.4031E+00,
- *0.4403E+00,0.4856E+00,0.5309E+00,0.5851E+00,0.6432E+00,
- *0.7082E+00,0.7732E+00,0.8490E+00,0.9353E+00,0.1034E+01,
- *0.1134E+01,0.1258E+01,0.1392E+01,0.1543E+01,0.1733E+01,
- *0.1957E+01,0.2236E+01,0.2599E+01,0.3098E+01,0.3816E+01,
- *0.4950E+01,0.6868E+01,0.1043E+02,0.1800E+02,0.3673E+02,
- *0.9655E+02,0.3996E+03,0.1542E+04 /
- DATA ((PHR(i,j),j=1,83),i=11,11)/
- *0.5654E+00,0.5352E+00,0.5364E+00,0.5185E+00,0.4779E+00,
- *0.4371E+00,0.3962E+00,0.3542E+00,0.3207E+00,0.2835E+00,
- *0.2396E+00,0.1962E+00,0.1648E+00,0.1396E+00,0.1190E+00,
- *0.1033E+00,0.9258E-01,0.8497E-01,0.7979E-01,0.7564E-01,
- *0.7122E-01,0.6867E-01,0.6649E-01,0.6643E-01,0.6760E-01,
- *0.6877E-01,0.6842E-01,0.6902E-01,0.7022E-01,0.7329E-01,
- *0.7671E-01,0.8028E-01,0.8373E-01,0.8727E-01,0.9258E-01,
- *0.9880E-01,0.1043E+00,0.1104E+00,0.1180E+00,0.1276E+00,
- *0.1375E+00,0.1430E+00,0.1480E+00,0.1607E+00,0.1747E+00,
- *0.1900E+00,0.2054E+00,0.2236E+00,0.2462E+00,0.2678E+00,
- *0.2913E+00,0.3180E+00,0.3470E+00,0.3804E+00,0.4145E+00,
- *0.4529E+00,0.4978E+00,0.5447E+00,0.5982E+00,0.6525E+00,
- *0.7156E+00,0.7858E+00,0.8704E+00,0.9557E+00,0.1050E+01,
- *0.1160E+01,0.1288E+01,0.1423E+01,0.1587E+01,0.1787E+01,
- *0.2008E+01,0.2305E+01,0.2682E+01,0.3190E+01,0.3948E+01,
- *0.5119E+01,0.7074E+01,0.1074E+02,0.1842E+02,0.3725E+02,
- *0.9609E+02,0.3821E+03,0.1362E+04 /
- DATA ((PHR(i,j),j=1,83),i=12,12)/
- *0.5712E+00,0.5403E+00,0.5328E+00,0.5126E+00,0.4783E+00,
- *0.4312E+00,0.3866E+00,0.3578E+00,0.3308E+00,0.2870E+00,
- *0.2392E+00,0.2008E+00,0.1685E+00,0.1417E+00,0.1217E+00,
- *0.1072E+00,0.9605E-01,0.8694E-01,0.8090E-01,0.7628E-01,
- *0.7342E-01,0.7136E-01,0.7074E-01,0.6956E-01,0.6862E-01,
- *0.6817E-01,0.6912E-01,0.7099E-01,0.7334E-01,0.7487E-01,
- *0.7713E-01,0.7946E-01,0.8371E-01,0.8901E-01,0.9343E-01,
- *0.9861E-01,0.1053E+00,0.1133E+00,0.1214E+00,0.1294E+00,
- *0.1387E+00,0.1433E+00,0.1492E+00,0.1617E+00,0.1753E+00,
- *0.1900E+00,0.2060E+00,0.2246E+00,0.2423E+00,0.2649E+00,
- *0.2913E+00,0.3184E+00,0.3479E+00,0.3802E+00,0.4174E+00,
- *0.4590E+00,0.5009E+00,0.5516E+00,0.6042E+00,0.6657E+00,
- *0.7324E+00,0.8081E+00,0.8848E+00,0.9761E+00,0.1076E+01,
- *0.1191E+01,0.1311E+01,0.1459E+01,0.1627E+01,0.1813E+01,
- *0.2055E+01,0.2346E+01,0.2734E+01,0.3270E+01,0.4039E+01,
- *0.5228E+01,0.7250E+01,0.1098E+02,0.1869E+02,0.3749E+02,
- *0.9541E+02,0.3706E+03,0.1262E+04 /
- DATA ((PHR(i,j),j=1,83),i=13,13)/
- *0.5994E+00,0.5672E+00,0.5564E+00,0.5333E+00,0.4909E+00,
- *0.4489E+00,0.4085E+00,0.3701E+00,0.3386E+00,0.3018E+00,
- *0.2571E+00,0.2129E+00,0.1800E+00,0.1531E+00,0.1307E+00,
- *0.1135E+00,0.1015E+00,0.9286E-01,0.8691E-01,0.8209E-01,
- *0.7726E-01,0.7418E-01,0.7177E-01,0.7148E-01,0.7242E-01,
- *0.7340E-01,0.7313E-01,0.7361E-01,0.7490E-01,0.7806E-01,
- *0.8153E-01,0.8518E-01,0.8879E-01,0.9263E-01,0.9821E-01,
- *0.1046E+00,0.1104E+00,0.1168E+00,0.1248E+00,0.1347E+00,
- *0.1448E+00,0.1505E+00,0.1558E+00,0.1688E+00,0.1836E+00,
- *0.1994E+00,0.2154E+00,0.2344E+00,0.2573E+00,0.2798E+00,
- *0.3044E+00,0.3322E+00,0.3629E+00,0.3976E+00,0.4335E+00,
- *0.4739E+00,0.5205E+00,0.5700E+00,0.6259E+00,0.6838E+00,
- *0.7504E+00,0.8258E+00,0.9151E+00,0.1005E+01,0.1106E+01,
- *0.1225E+01,0.1361E+01,0.1508E+01,0.1687E+01,0.1901E+01,
- *0.2145E+01,0.2467E+01,0.2878E+01,0.3433E+01,0.4257E+01,
- *0.5517E+01,0.7603E+01,0.1145E+02,0.1933E+02,0.3806E+02,
- *0.9386E+02,0.3426E+03,0.1035E+04 /
- DATA ((PHR(i,j),j=1,83),i=14,14)/
- *0.5925E+00,0.5612E+00,0.5433E+00,0.5175E+00,0.4768E+00,
- *0.4387E+00,0.4069E+00,0.3811E+00,0.3563E+00,0.3207E+00,
- *0.2746E+00,0.2299E+00,0.1957E+00,0.1668E+00,0.1423E+00,
- *0.1235E+00,0.1101E+00,0.1005E+00,0.9362E-01,0.8802E-01,
- *0.8284E-01,0.7917E-01,0.7662E-01,0.7603E-01,0.7642E-01,
- *0.7699E-01,0.7689E-01,0.7716E-01,0.7850E-01,0.8175E-01,
- *0.8510E-01,0.8877E-01,0.9248E-01,0.9669E-01,0.1025E+00,
- *0.1088E+00,0.1148E+00,0.1216E+00,0.1299E+00,0.1397E+00,
- *0.1498E+00,0.1554E+00,0.1610E+00,0.1741E+00,0.1896E+00,
- *0.2057E+00,0.2219E+00,0.2414E+00,0.2644E+00,0.2876E+00,
- *0.3134E+00,0.3420E+00,0.3743E+00,0.4103E+00,0.4478E+00,
- *0.4910E+00,0.5389E+00,0.5917E+00,0.6500E+00,0.7120E+00,
- *0.7826E+00,0.8644E+00,0.9597E+00,0.1056E+01,0.1166E+01,
- *0.1294E+01,0.1439E+01,0.1603E+01,0.1799E+01,0.2028E+01,
- *0.2300E+01,0.2649E+01,0.3099E+01,0.3705E+01,0.4596E+01,
- *0.5941E+01,0.8148E+01,0.1214E+02,0.2012E+02,0.3851E+02,
- *0.9071E+02,0.3047E+03,0.7912E+03 /
- DATA ((PHR(i,j),j=1,83),i=15,15)/
- *0.3548E+00,0.3322E+00,0.3156E+00,0.3130E+00,0.3146E+00,
- *0.3242E+00,0.3406E+00,0.3519E+00,0.3468E+00,0.3281E+00,
- *0.2985E+00,0.2611E+00,0.2251E+00,0.1957E+00,0.1710E+00,
- *0.1500E+00,0.1331E+00,0.1188E+00,0.1074E+00,0.9941E-01,
- *0.9320E-01,0.8840E-01,0.8470E-01,0.8216E-01,0.8044E-01,
- *0.7981E-01,0.7995E-01,0.8090E-01,0.8223E-01,0.8385E-01,
- *0.8613E-01,0.8903E-01,0.9256E-01,0.9657E-01,0.1008E+00,
- *0.1064E+00,0.1129E+00,0.1194E+00,0.1269E+00,0.1367E+00,
- *0.1480E+00,0.1532E+00,0.1587E+00,0.1700E+00,0.1837E+00,
- *0.2002E+00,0.2178E+00,0.2371E+00,0.2589E+00,0.2826E+00,
- *0.3082E+00,0.3389E+00,0.3742E+00,0.4136E+00,0.4562E+00,
- *0.5038E+00,0.5594E+00,0.6209E+00,0.6897E+00,0.7698E+00,
- *0.8596E+00,0.9580E+00,0.1068E+01,0.1197E+01,0.1345E+01,
- *0.1516E+01,0.1708E+01,0.1928E+01,0.2190E+01,0.2507E+01,
- *0.2887E+01,0.3357E+01,0.3955E+01,0.4749E+01,0.5869E+01,
- *0.7494E+01,0.1000E+02,0.1421E+02,0.2196E+02,0.3805E+02,
- *0.7768E+02,0.2058E+03,0.3618E+03 /
- DATA ((PHR(i,j),j=1,83),i=16,16)/
- *0.2360E+00,0.2178E+00,0.1964E+00,0.1940E+00,0.2077E+00,
- *0.2326E+00,0.2537E+00,0.2599E+00,0.2539E+00,0.2416E+00,
- *0.2274E+00,0.2136E+00,0.1981E+00,0.1817E+00,0.1655E+00,
- *0.1485E+00,0.1334E+00,0.1212E+00,0.1102E+00,0.1012E+00,
- *0.9373E-01,0.8759E-01,0.8329E-01,0.8024E-01,0.7780E-01,
- *0.7591E-01,0.7502E-01,0.7500E-01,0.7553E-01,0.7636E-01,
- *0.7738E-01,0.7900E-01,0.8176E-01,0.8511E-01,0.8852E-01,
- *0.9255E-01,0.9769E-01,0.1034E+00,0.1099E+00,0.1173E+00,
- *0.1256E+00,0.1302E+00,0.1349E+00,0.1455E+00,0.1573E+00,
- *0.1705E+00,0.1857E+00,0.2032E+00,0.2229E+00,0.2451E+00,
- *0.2707E+00,0.3002E+00,0.3331E+00,0.3703E+00,0.4136E+00,
- *0.4634E+00,0.5194E+00,0.5833E+00,0.6567E+00,0.7427E+00,
- *0.8407E+00,0.9513E+00,0.1080E+01,0.1232E+01,0.1408E+01,
- *0.1610E+01,0.1848E+01,0.2126E+01,0.2459E+01,0.2857E+01,
- *0.3333E+01,0.3923E+01,0.4668E+01,0.5632E+01,0.6929E+01,
- *0.8742E+01,0.1144E+02,0.1576E+02,0.2321E+02,0.3766E+02,
- *0.7009E+02,0.1593E+03,0.2353E+03 /
- DATA ((PHR(i,j),j=1,83),i=17,17)/
- *0.2183E+00,0.1988E+00,0.1700E+00,0.1660E+00,0.1823E+00,
- *0.2040E+00,0.2133E+00,0.2101E+00,0.2010E+00,0.1911E+00,
- *0.1825E+00,0.1742E+00,0.1662E+00,0.1576E+00,0.1480E+00,
- *0.1385E+00,0.1282E+00,0.1175E+00,0.1079E+00,0.9907E-01,
- *0.9203E-01,0.8621E-01,0.8117E-01,0.7705E-01,0.7415E-01,
- *0.7245E-01,0.7116E-01,0.7028E-01,0.6998E-01,0.7034E-01,
- *0.7157E-01,0.7347E-01,0.7534E-01,0.7742E-01,0.8053E-01,
- *0.8427E-01,0.8810E-01,0.9260E-01,0.9819E-01,0.1043E+00,
- *0.1111E+00,0.1151E+00,0.1194E+00,0.1291E+00,0.1399E+00,
- *0.1522E+00,0.1664E+00,0.1824E+00,0.2005E+00,0.2217E+00,
- *0.2458E+00,0.2730E+00,0.3042E+00,0.3406E+00,0.3818E+00,
- *0.4287E+00,0.4834E+00,0.5473E+00,0.6205E+00,0.7037E+00,
- *0.8011E+00,0.9173E+00,0.1051E+01,0.1205E+01,0.1387E+01,
- *0.1603E+01,0.1858E+01,0.2161E+01,0.2522E+01,0.2956E+01,
- *0.3489E+01,0.4144E+01,0.4967E+01,0.6022E+01,0.7419E+01,
- *0.9362E+01,0.1219E+02,0.1659E+02,0.2403E+02,0.3801E+02,
- *0.6838E+02,0.1475E+03,0.2076E+03 /
- DATA ((PHR(i,j),j=1,83),i=18,18)/
- *0.1136E+00,0.1007E+00,0.8035E-01,0.8849E-01,0.1064E+00,
- *0.1102E+00,0.1035E+00,0.9485E-01,0.8717E-01,0.8152E-01,
- *0.7739E-01,0.7472E-01,0.7332E-01,0.7256E-01,0.7272E-01,
- *0.7329E-01,0.7381E-01,0.7415E-01,0.7411E-01,0.7328E-01,
- *0.7137E-01,0.6940E-01,0.6678E-01,0.6417E-01,0.6139E-01,
- *0.5880E-01,0.5642E-01,0.5471E-01,0.5351E-01,0.5247E-01,
- *0.5169E-01,0.5156E-01,0.5198E-01,0.5276E-01,0.5375E-01,
- *0.5520E-01,0.5741E-01,0.6010E-01,0.6304E-01,0.6663E-01,
- *0.7119E-01,0.7373E-01,0.7642E-01,0.8220E-01,0.8908E-01,
- *0.9734E-01,0.1067E+00,0.1172E+00,0.1298E+00,0.1444E+00,
- *0.1611E+00,0.1805E+00,0.2037E+00,0.2305E+00,0.2616E+00,
- *0.2986E+00,0.3423E+00,0.3937E+00,0.4552E+00,0.5280E+00,
- *0.6154E+00,0.7208E+00,0.8468E+00,0.1000E+01,0.1187E+01,
- *0.1415E+01,0.1694E+01,0.2039E+01,0.2466E+01,0.3001E+01,
- *0.3671E+01,0.4518E+01,0.5602E+01,0.7003E+01,0.8848E+01,
- *0.1134E+02,0.1481E+02,0.1990E+02,0.2793E+02,0.4185E+02,
- *0.6931E+02,0.1301E+03,0.1659E+03 /
- DATA ((PHR(i,j),j=1,83),i=19,19)/
- *0.6440E-01,0.5458E-01,0.4514E-01,0.5591E-01,0.5989E-01,
- *0.5586E-01,0.5049E-01,0.4611E-01,0.4284E-01,0.4062E-01,
- *0.3894E-01,0.3775E-01,0.3690E-01,0.3647E-01,0.3634E-01,
- *0.3638E-01,0.3668E-01,0.3732E-01,0.3816E-01,0.3919E-01,
- *0.4024E-01,0.4118E-01,0.4189E-01,0.4234E-01,0.4253E-01,
- *0.4238E-01,0.4189E-01,0.4135E-01,0.4079E-01,0.4021E-01,
- *0.3982E-01,0.3960E-01,0.3966E-01,0.4003E-01,0.4059E-01,
- *0.4140E-01,0.4262E-01,0.4421E-01,0.4610E-01,0.4841E-01,
- *0.5129E-01,0.5293E-01,0.5471E-01,0.5867E-01,0.6332E-01,
- *0.6885E-01,0.7527E-01,0.8266E-01,0.9136E-01,0.1016E+00,
- *0.1135E+00,0.1275E+00,0.1442E+00,0.1638E+00,0.1869E+00,
- *0.2147E+00,0.2479E+00,0.2875E+00,0.3358E+00,0.3941E+00,
- *0.4649E+00,0.5523E+00,0.6595E+00,0.7922E+00,0.9585E+00,
- *0.1167E+01,0.1430E+01,0.1764E+01,0.2193E+01,0.2746E+01,
- *0.3466E+01,0.4407E+01,0.5650E+01,0.7306E+01,0.9537E+01,
- *0.1259E+02,0.1684E+02,0.2294E+02,0.3214E+02,0.4711E+02,
- *0.7426E+02,0.1251E+03,0.1499E+03 /
- DATA ((PHR(i,j),j=1,83),i=20,20)/
- *0.7657E-01,0.7193E-01,0.6322E-01,0.6634E-01,0.7486E-01,
- *0.7879E-01,0.7773E-01,0.7451E-01,0.7098E-01,0.6784E-01,
- *0.6531E-01,0.6342E-01,0.6207E-01,0.6114E-01,0.6053E-01,
- *0.6011E-01,0.5981E-01,0.5950E-01,0.5911E-01,0.5850E-01,
- *0.5770E-01,0.5674E-01,0.5577E-01,0.5485E-01,0.5396E-01,
- *0.5316E-01,0.5249E-01,0.5211E-01,0.5200E-01,0.5210E-01,
- *0.5246E-01,0.5313E-01,0.5420E-01,0.5562E-01,0.5735E-01,
- *0.5946E-01,0.6211E-01,0.6525E-01,0.6887E-01,0.7309E-01,
- *0.7808E-01,0.8087E-01,0.8386E-01,0.9045E-01,0.9808E-01,
- *0.1070E+00,0.1172E+00,0.1290E+00,0.1427E+00,0.1586E+00,
- *0.1770E+00,0.1984E+00,0.2236E+00,0.2531E+00,0.2875E+00,
- *0.3284E+00,0.3765E+00,0.4337E+00,0.5020E+00,0.5834E+00,
- *0.6815E+00,0.7996E+00,0.9427E+00,0.1117E+01,0.1329E+01,
- *0.1591E+01,0.1913E+01,0.2312E+01,0.2810E+01,0.3431E+01,
- *0.4213E+01,0.5199E+01,0.6449E+01,0.8048E+01,0.1010E+02,
- *0.1275E+02,0.1625E+02,0.2095E+02,0.2740E+02,0.3686E+02,
- *0.5085E+02,0.6526E+02,0.6980E+02 /
-c************** MIE (phase fun qh) ***************
- DATA ((QHR(i,j),j=1,83),i= 1, 1)/
- * 0.1268E-21, 0.2476E-01, 0.2255E-01,-0.8459E-02,-0.3700E-01,
- *-0.5391E-01,-0.5697E-01,-0.4863E-01,-0.2160E-01, 0.2527E-02,
- * 0.7879E-02, 0.8199E-02, 0.1009E-01, 0.1381E-01, 0.1060E-01,
- * 0.7513E-02, 0.6562E-02, 0.4469E-02, 0.4342E-02, 0.3870E-02,
- * 0.3488E-02, 0.1873E-02, 0.8242E-03, 0.1707E-03,-0.5390E-03,
- *-0.3612E-03,-0.2495E-03,-0.1048E-02,-0.1244E-02,-0.2457E-02,
- *-0.1549E-02,-0.4067E-02,-0.1796E-02,-0.2753E-02,-0.4492E-02,
- *-0.2752E-02,-0.4822E-02,-0.5504E-02,-0.3245E-02,-0.3857E-02,
- *-0.5823E-02,-0.2124E-02,-0.3315E-02,-0.1960E-02,-0.3327E-02,
- *-0.5509E-02,-0.3118E-02,-0.1082E-02, 0.3212E-03, 0.1378E-02,
- *-0.4333E-03,-0.2347E-02,-0.1399E-02,-0.2813E-02,-0.4009E-02,
- *-0.6005E-02,-0.5521E-02,-0.5109E-02,-0.7876E-02,-0.8446E-02,
- *-0.1587E-01,-0.2224E-01,-0.2776E-01,-0.2752E-01,-0.3971E-01,
- *-0.5038E-01,-0.5438E-01,-0.6782E-01,-0.8576E-01,-0.9301E-01,
- *-0.1103E+00,-0.1294E+00,-0.1358E+00,-0.1531E+00,-0.1867E+00,
- *-0.1947E+00,-0.2355E+00,-0.2765E+00,-0.2621E+00,-0.2857E+00,
- *-0.2604E+00, 0.8863E-01, 0.1341E-17 /
- DATA ((QHR(i,j),j=1,83),i= 2, 2)/
- * 0.8915E-21, 0.1047E-01, 0.8794E-02,-0.1221E-01,-0.2791E-01,
- *-0.4559E-01,-0.5726E-01,-0.4209E-01,-0.9986E-02, 0.8919E-02,
- * 0.1561E-01, 0.1519E-01, 0.1543E-01, 0.1286E-01, 0.1151E-01,
- * 0.1267E-01, 0.9975E-02, 0.7821E-02, 0.6247E-02, 0.5102E-02,
- * 0.5426E-02, 0.4434E-02, 0.4700E-02, 0.2735E-02, 0.2602E-02,
- * 0.1810E-03, 0.1072E-02,-0.1217E-03, 0.1517E-02, 0.4575E-03,
- * 0.1173E-02, 0.3590E-03,-0.1717E-02, 0.8142E-03,-0.8557E-03,
- *-0.1025E-03, 0.1248E-02,-0.1358E-02,-0.7803E-03, 0.7688E-03,
- *-0.7587E-03, 0.1022E-02,-0.2572E-02,-0.4315E-03, 0.1019E-02,
- * 0.1875E-02,-0.4092E-03,-0.6854E-03, 0.2913E-02, 0.5484E-02,
- * 0.6290E-02, 0.7964E-02, 0.8576E-02, 0.8700E-02, 0.9681E-02,
- * 0.7736E-02, 0.6657E-02, 0.1938E-02, 0.5279E-03,-0.5814E-02,
- *-0.1153E-01,-0.1495E-01,-0.1527E-01,-0.2602E-01,-0.3755E-01,
- *-0.4496E-01,-0.5354E-01,-0.7206E-01,-0.7231E-01,-0.8516E-01,
- *-0.1030E+00,-0.1099E+00,-0.1343E+00,-0.1605E+00,-0.1845E+00,
- *-0.2110E+00,-0.2412E+00,-0.2572E+00,-0.2445E+00,-0.2903E+00,
- *-0.2884E+00, 0.7441E-01,-0.6003E-17 /
- DATA ((QHR(i,j),j=1,83),i= 3, 3)/
- *-0.6146E-21, 0.1969E-01, 0.1817E-01,-0.6230E-02,-0.3044E-01,
- *-0.5209E-01,-0.5398E-01,-0.3391E-01,-0.7471E-02, 0.3891E-02,
- * 0.1574E-01, 0.2093E-01, 0.1697E-01, 0.1185E-01, 0.1116E-01,
- * 0.1147E-01, 0.1049E-01, 0.9795E-02, 0.7055E-02, 0.5709E-02,
- * 0.5082E-02, 0.4872E-02, 0.4787E-02, 0.3997E-02, 0.3696E-02,
- * 0.1473E-02, 0.1427E-02, 0.1349E-02, 0.1024E-02, 0.1414E-02,
- * 0.4724E-03, 0.1628E-02,-0.9738E-03, 0.7231E-03, 0.1648E-02,
- *-0.3753E-03, 0.1837E-02, 0.1687E-02,-0.4635E-03, 0.1536E-02,
- * 0.1999E-02, 0.5311E-03, 0.5462E-04,-0.1677E-03, 0.1806E-02,
- * 0.2745E-02, 0.1526E-02,-0.3013E-03,-0.2097E-03, 0.1492E-02,
- * 0.5193E-02, 0.7723E-02, 0.6748E-02, 0.7801E-02, 0.8641E-02,
- * 0.8715E-02, 0.6408E-02, 0.2116E-02,-0.3111E-03,-0.7032E-02,
- *-0.9027E-02,-0.1203E-01,-0.1565E-01,-0.2859E-01,-0.3260E-01,
- *-0.3945E-01,-0.5263E-01,-0.6436E-01,-0.6736E-01,-0.8161E-01,
- *-0.9714E-01,-0.1062E+00,-0.1375E+00,-0.1647E+00,-0.1723E+00,
- *-0.2120E+00,-0.2262E+00,-0.2233E+00,-0.2653E+00,-0.2455E+00,
- *-0.9803E-01, 0.1603E+00,-0.7181E-17 /
- DATA ((QHR(i,j),j=1,83),i= 4, 4)/
- *-0.8679E-21, 0.1142E-01, 0.1278E-01,-0.7503E-02,-0.2461E-01,
- *-0.4284E-01,-0.5172E-01,-0.3515E-01,-0.3311E-02, 0.1311E-01,
- * 0.2056E-01, 0.2022E-01, 0.1896E-01, 0.1540E-01, 0.1383E-01,
- * 0.1481E-01, 0.1219E-01, 0.1017E-01, 0.8202E-02, 0.6948E-02,
- * 0.6972E-02, 0.6190E-02, 0.6439E-02, 0.4648E-02, 0.4435E-02,
- * 0.1918E-02, 0.2660E-02, 0.1885E-02, 0.3190E-02, 0.2531E-02,
- * 0.3014E-02, 0.2541E-02, 0.3263E-03, 0.2842E-02, 0.1856E-02,
- * 0.2172E-02, 0.3738E-02, 0.1736E-02, 0.1778E-02, 0.3486E-02,
- * 0.2549E-02, 0.3672E-02, 0.7203E-03, 0.2449E-02, 0.3997E-02,
- * 0.5103E-02, 0.3269E-02, 0.2811E-02, 0.5948E-02, 0.8544E-02,
- * 0.9975E-02, 0.1191E-01, 0.1230E-01, 0.1287E-01, 0.1418E-01,
- * 0.1277E-01, 0.1147E-01, 0.6827E-02, 0.5626E-02,-0.7231E-03,
- *-0.5651E-02,-0.8878E-02,-0.9875E-02,-0.2113E-01,-0.3108E-01,
- *-0.3878E-01,-0.4865E-01,-0.6617E-01,-0.6580E-01,-0.7857E-01,
- *-0.9628E-01,-0.1027E+00,-0.1287E+00,-0.1558E+00,-0.1757E+00,
- *-0.2041E+00,-0.2289E+00,-0.2350E+00,-0.2259E+00,-0.2563E+00,
- *-0.2237E+00, 0.9307E-01,-0.3242E-17 /
- DATA ((QHR(i,j),j=1,83),i= 5, 5)/
- * 0.5549E-21, 0.2641E-01, 0.4434E-01, 0.1074E-01,-0.3317E-01,
- *-0.5365E-01,-0.4567E-01,-0.1946E-01,-0.4090E-02, 0.8491E-02,
- * 0.1844E-01, 0.2527E-01, 0.2248E-01, 0.1768E-01, 0.1647E-01,
- * 0.1332E-01, 0.1159E-01, 0.1144E-01, 0.9839E-02, 0.8875E-02,
- * 0.6834E-02, 0.6969E-02, 0.5712E-02, 0.6149E-02, 0.5588E-02,
- * 0.6110E-02, 0.4177E-02, 0.4484E-02, 0.2991E-02, 0.3738E-02,
- * 0.2014E-02, 0.4061E-02, 0.3613E-02, 0.2326E-02, 0.4274E-02,
- * 0.2807E-02, 0.3406E-02, 0.5575E-02, 0.4299E-02, 0.3577E-02,
- * 0.5900E-02, 0.3044E-02, 0.6663E-02, 0.4768E-02, 0.5320E-02,
- * 0.6569E-02, 0.7200E-02, 0.7851E-02, 0.5473E-02, 0.4245E-02,
- * 0.6273E-02, 0.7705E-02, 0.6867E-02, 0.7293E-02, 0.6801E-02,
- * 0.8444E-02, 0.6439E-02, 0.5860E-02, 0.3223E-02, 0.3031E-03,
- * 0.2250E-03,-0.3539E-02,-0.1139E-01,-0.1820E-01,-0.1868E-01,
- *-0.2639E-01,-0.3951E-01,-0.4185E-01,-0.5879E-01,-0.7798E-01,
- *-0.8801E-01,-0.1085E+00,-0.1288E+00,-0.1413E+00,-0.1492E+00,
- *-0.1788E+00,-0.1850E+00,-0.1963E+00,-0.2498E+00,-0.1505E+00,
- * 0.6993E-01, 0.2651E+00,-0.4398E-17 /
- DATA ((QHR(i,j),j=1,83),i= 6, 6)/
- * 0.3355E-21, 0.1874E-01, 0.2124E-01,-0.2990E-03,-0.2018E-01,
- *-0.3582E-01,-0.4506E-01,-0.3142E-01,-0.1718E-02, 0.2246E-01,
- * 0.2391E-01, 0.2167E-01, 0.2190E-01, 0.2166E-01, 0.1870E-01,
- * 0.1663E-01, 0.1396E-01, 0.1111E-01, 0.9925E-02, 0.8866E-02,
- * 0.9426E-02, 0.7567E-02, 0.7128E-02, 0.5710E-02, 0.5228E-02,
- * 0.4137E-02, 0.4865E-02, 0.3448E-02, 0.4953E-02, 0.4010E-02,
- * 0.5156E-02, 0.3211E-02, 0.3659E-02, 0.4971E-02, 0.3029E-02,
- * 0.4759E-02, 0.4766E-02, 0.2813E-02, 0.4695E-02, 0.5471E-02,
- * 0.3873E-02, 0.7237E-02, 0.4518E-02, 0.6216E-02, 0.7103E-02,
- * 0.7084E-02, 0.7509E-02, 0.8960E-02, 0.1228E-01, 0.1379E-01,
- * 0.1267E-01, 0.1310E-01, 0.1566E-01, 0.1553E-01, 0.1539E-01,
- * 0.1335E-01, 0.1344E-01, 0.1152E-01, 0.1025E-01, 0.8236E-02,
- * 0.1398E-02,-0.3515E-02,-0.5077E-02,-0.1056E-01,-0.2413E-01,
- *-0.3163E-01,-0.3768E-01,-0.5440E-01,-0.6391E-01,-0.7361E-01,
- *-0.9088E-01,-0.1041E+00,-0.1144E+00,-0.1350E+00,-0.1664E+00,
- *-0.1729E+00,-0.2081E+00,-0.2327E+00,-0.1805E+00,-0.2070E+00,
- *-0.2145E+00, 0.1464E+00, 0.1280E-17 /
- DATA ((QHR(i,j),j=1,83),i= 7, 7)/
- * 0.2263E-21, 0.1320E-01, 0.1774E-01,-0.1102E-03,-0.1613E-01,
- *-0.3241E-01,-0.4148E-01,-0.2489E-01, 0.6124E-02, 0.2474E-01,
- * 0.2857E-01, 0.2612E-01, 0.2471E-01, 0.2140E-01, 0.1898E-01,
- * 0.1882E-01, 0.1571E-01, 0.1304E-01, 0.1121E-01, 0.9889E-02,
- * 0.1011E-01, 0.8898E-02, 0.8921E-02, 0.7182E-02, 0.6796E-02,
- * 0.4625E-02, 0.5367E-02, 0.4419E-02, 0.6144E-02, 0.5411E-02,
- * 0.6249E-02, 0.5222E-02, 0.3798E-02, 0.6125E-02, 0.4896E-02,
- * 0.5991E-02, 0.7145E-02, 0.5129E-02, 0.5890E-02, 0.7235E-02,
- * 0.6232E-02, 0.8208E-02, 0.5417E-02, 0.7206E-02, 0.8669E-02,
- * 0.9760E-02, 0.8739E-02, 0.9252E-02, 0.1279E-01, 0.1504E-01,
- * 0.1547E-01, 0.1708E-01, 0.1849E-01, 0.1906E-01, 0.2030E-01,
- * 0.1875E-01, 0.1797E-01, 0.1404E-01, 0.1334E-01, 0.8714E-02,
- * 0.3267E-02,-0.4783E-03,-0.1286E-02,-0.1079E-01,-0.2215E-01,
- *-0.3003E-01,-0.3895E-01,-0.5641E-01,-0.5817E-01,-0.7001E-01,
- *-0.8741E-01,-0.9479E-01,-0.1152E+00,-0.1404E+00,-0.1631E+00,
- *-0.1828E+00,-0.2092E+00,-0.2178E+00,-0.1823E+00,-0.2122E+00,
- *-0.2078E+00, 0.1096E+00, 0.2688E-17 /
- DATA ((QHR(i,j),j=1,83),i= 8, 8)/
- *-0.1172E-20, 0.2621E-01, 0.5035E-01, 0.1893E-01,-0.2101E-01,
- *-0.3886E-01,-0.3113E-01,-0.1470E-01, 0.6290E-02, 0.2117E-01,
- * 0.2847E-01, 0.2779E-01, 0.2789E-01, 0.2736E-01, 0.2288E-01,
- * 0.1786E-01, 0.1574E-01, 0.1373E-01, 0.1353E-01, 0.1230E-01,
- * 0.1004E-01, 0.9056E-02, 0.7886E-02, 0.7899E-02, 0.7281E-02,
- * 0.8963E-02, 0.8128E-02, 0.8272E-02, 0.6622E-02, 0.6194E-02,
- * 0.6127E-02, 0.6022E-02, 0.8311E-02, 0.5975E-02, 0.6272E-02,
- * 0.7114E-02, 0.5577E-02, 0.7450E-02, 0.8602E-02, 0.7773E-02,
- * 0.8895E-02, 0.8417E-02, 0.1028E-01, 0.1081E-01, 0.9788E-02,
- * 0.9921E-02, 0.1222E-01, 0.1378E-01, 0.1380E-01, 0.1400E-01,
- * 0.1373E-01, 0.1269E-01, 0.1360E-01, 0.1369E-01, 0.1264E-01,
- * 0.1214E-01, 0.1224E-01, 0.1369E-01, 0.1118E-01, 0.1219E-01,
- * 0.1015E-01, 0.5442E-02,-0.3573E-02,-0.3473E-02,-0.1000E-01,
- *-0.1888E-01,-0.2498E-01,-0.3189E-01,-0.5337E-01,-0.6653E-01,
- *-0.7995E-01,-0.1041E+00,-0.1105E+00,-0.1158E+00,-0.1343E+00,
- *-0.1388E+00,-0.1523E+00,-0.1769E+00,-0.1698E+00,-0.1072E+00,
- * 0.1727E-01, 0.1725E+00, 0.5777E-17 /
- DATA ((QHR(i,j),j=1,83),i= 9, 9)/
- *-0.5743E-21, 0.2658E-01, 0.4799E-01, 0.2133E-01,-0.1628E-01,
- *-0.3471E-01,-0.2654E-01,-0.8060E-03, 0.1513E-01, 0.2537E-01,
- * 0.3273E-01, 0.3695E-01, 0.3215E-01, 0.2589E-01, 0.2356E-01,
- * 0.1992E-01, 0.1756E-01, 0.1675E-01, 0.1476E-01, 0.1358E-01,
- * 0.1168E-01, 0.1147E-01, 0.1027E-01, 0.1043E-01, 0.1003E-01,
- * 0.1019E-01, 0.8618E-02, 0.8749E-02, 0.7640E-02, 0.8194E-02,
- * 0.6869E-02, 0.8858E-02, 0.8320E-02, 0.7660E-02, 0.9486E-02,
- * 0.8386E-02, 0.9288E-02, 0.1118E-01, 0.1032E-01, 0.1004E-01,
- * 0.1187E-01, 0.9991E-02, 0.1288E-01, 0.1206E-01, 0.1274E-01,
- * 0.1348E-01, 0.1401E-01, 0.1469E-01, 0.1326E-01, 0.1307E-01,
- * 0.1588E-01, 0.1780E-01, 0.1682E-01, 0.1716E-01, 0.1738E-01,
- * 0.1952E-01, 0.1837E-01, 0.1788E-01, 0.1547E-01, 0.1178E-01,
- * 0.1121E-01, 0.7955E-02, 0.1397E-02,-0.5306E-02,-0.6195E-02,
- *-0.1378E-01,-0.2609E-01,-0.2939E-01,-0.4444E-01,-0.6240E-01,
- *-0.7218E-01,-0.8915E-01,-0.1097E+00,-0.1203E+00,-0.1240E+00,
- *-0.1513E+00,-0.1526E+00,-0.1536E+00,-0.1977E+00,-0.8945E-01,
- * 0.1337E+00, 0.2616E+00, 0.7570E-18 /
- DATA ((QHR(i,j),j=1,83),i=10,10)/
- *-0.4904E-21, 0.1744E-01, 0.2926E-01, 0.1488E-01,-0.3591E-02,
- *-0.1959E-01,-0.1971E-01, 0.3157E-03, 0.2603E-01, 0.3606E-01,
- * 0.4220E-01, 0.4120E-01, 0.3473E-01, 0.2781E-01, 0.2484E-01,
- * 0.2373E-01, 0.2128E-01, 0.1941E-01, 0.1650E-01, 0.1463E-01,
- * 0.1380E-01, 0.1319E-01, 0.1287E-01, 0.1178E-01, 0.1128E-01,
- * 0.9016E-02, 0.9107E-02, 0.9229E-02, 0.9540E-02, 0.9797E-02,
- * 0.9819E-02, 0.1013E-01, 0.8269E-02, 0.1005E-01, 0.1096E-01,
- * 0.1057E-01, 0.1216E-01, 0.1194E-01, 0.1127E-01, 0.1264E-01,
- * 0.1296E-01, 0.1291E-01, 0.1248E-01, 0.1347E-01, 0.1478E-01,
- * 0.1571E-01, 0.1539E-01, 0.1537E-01, 0.1705E-01, 0.1936E-01,
- * 0.2237E-01, 0.2453E-01, 0.2419E-01, 0.2550E-01, 0.2762E-01,
- * 0.2830E-01, 0.2694E-01, 0.2360E-01, 0.2251E-01, 0.1713E-01,
- * 0.1383E-01, 0.1067E-01, 0.8326E-02,-0.2010E-02,-0.7234E-02,
- *-0.1587E-01,-0.2868E-01,-0.4142E-01,-0.4308E-01,-0.5402E-01,
- *-0.6868E-01,-0.7470E-01,-0.1022E+00,-0.1270E+00,-0.1337E+00,
- *-0.1619E+00,-0.1699E+00,-0.1539E+00,-0.1567E+00,-0.1272E+00,
- *-0.8717E-02, 0.1571E+00, 0.2719E-17 /
- DATA ((QHR(i,j),j=1,83),i=11,11)/
- *-0.1071E-21, 0.2586E-01, 0.5239E-01, 0.2991E-01,-0.5289E-02,
- *-0.2169E-01,-0.1274E-01, 0.1198E-01, 0.2723E-01, 0.3617E-01,
- * 0.4163E-01, 0.4372E-01, 0.3843E-01, 0.3191E-01, 0.2863E-01,
- * 0.2415E-01, 0.2113E-01, 0.1978E-01, 0.1789E-01, 0.1657E-01,
- * 0.1451E-01, 0.1410E-01, 0.1280E-01, 0.1285E-01, 0.1251E-01,
- * 0.1290E-01, 0.1137E-01, 0.1142E-01, 0.1031E-01, 0.1065E-01,
- * 0.9588E-02, 0.1143E-01, 0.1127E-01, 0.1050E-01, 0.1210E-01,
- * 0.1144E-01, 0.1216E-01, 0.1408E-01, 0.1369E-01, 0.1331E-01,
- * 0.1500E-01, 0.1354E-01, 0.1626E-01, 0.1600E-01, 0.1651E-01,
- * 0.1701E-01, 0.1762E-01, 0.1858E-01, 0.1768E-01, 0.1778E-01,
- * 0.2046E-01, 0.2224E-01, 0.2141E-01, 0.2159E-01, 0.2189E-01,
- * 0.2413E-01, 0.2357E-01, 0.2375E-01, 0.2155E-01, 0.1819E-01,
- * 0.1756E-01, 0.1458E-01, 0.8183E-02, 0.2760E-02, 0.1497E-02,
- *-0.5853E-02,-0.1693E-01,-0.2007E-01,-0.3546E-01,-0.5307E-01,
- *-0.6244E-01,-0.7910E-01,-0.9680E-01,-0.1035E+00,-0.1067E+00,
- *-0.1290E+00,-0.1278E+00,-0.1274E+00,-0.1616E+00,-0.5051E-01,
- * 0.1614E+00, 0.2539E+00,-0.2801E-18 /
- DATA ((QHR(i,j),j=1,83),i=12,12)/
- * 0.1195E-20, 0.2337E-01, 0.4146E-01, 0.2593E-01, 0.4162E-02,
- *-0.8725E-02,-0.8606E-02, 0.4025E-02, 0.2814E-01, 0.4608E-01,
- * 0.4622E-01, 0.4163E-01, 0.3901E-01, 0.3714E-01, 0.3139E-01,
- * 0.2669E-01, 0.2362E-01, 0.2020E-01, 0.1838E-01, 0.1688E-01,
- * 0.1596E-01, 0.1429E-01, 0.1335E-01, 0.1243E-01, 0.1168E-01,
- * 0.1164E-01, 0.1192E-01, 0.1125E-01, 0.1151E-01, 0.1126E-01,
- * 0.1192E-01, 0.1064E-01, 0.1222E-01, 0.1246E-01, 0.1146E-01,
- * 0.1251E-01, 0.1208E-01, 0.1183E-01, 0.1354E-01, 0.1443E-01,
- * 0.1430E-01, 0.1616E-01, 0.1507E-01, 0.1574E-01, 0.1641E-01,
- * 0.1743E-01, 0.1950E-01, 0.2090E-01, 0.2259E-01, 0.2357E-01,
- * 0.2261E-01, 0.2303E-01, 0.2640E-01, 0.2738E-01, 0.2670E-01,
- * 0.2505E-01, 0.2563E-01, 0.2602E-01, 0.2495E-01, 0.2565E-01,
- * 0.2134E-01, 0.1729E-01, 0.1336E-01, 0.1032E-01,-0.2555E-03,
- *-0.6704E-02,-0.1122E-01,-0.2425E-01,-0.3827E-01,-0.4682E-01,
- *-0.6168E-01,-0.7880E-01,-0.8220E-01,-0.9563E-01,-0.1193E+00,
- *-0.1150E+00,-0.1342E+00,-0.1454E+00,-0.8839E-01,-0.7265E-01,
- *-0.3975E-01, 0.1465E+00,-0.9238E-18 /
- DATA ((QHR(i,j),j=1,83),i=13,13)/
- *-0.2802E-21, 0.2409E-01, 0.5438E-01, 0.3805E-01, 0.7287E-02,
- *-0.6781E-02, 0.2331E-02, 0.2494E-01, 0.3896E-01, 0.4654E-01,
- * 0.5034E-01, 0.5053E-01, 0.4468E-01, 0.3791E-01, 0.3378E-01,
- * 0.2862E-01, 0.2494E-01, 0.2303E-01, 0.2103E-01, 0.1951E-01,
- * 0.1736E-01, 0.1671E-01, 0.1536E-01, 0.1519E-01, 0.1491E-01,
- * 0.1537E-01, 0.1399E-01, 0.1388E-01, 0.1281E-01, 0.1291E-01,
- * 0.1206E-01, 0.1379E-01, 0.1385E-01, 0.1311E-01, 0.1437E-01,
- * 0.1403E-01, 0.1477E-01, 0.1656E-01, 0.1649E-01, 0.1624E-01,
- * 0.1775E-01, 0.1668E-01, 0.1908E-01, 0.1936E-01, 0.1989E-01,
- * 0.2018E-01, 0.2084E-01, 0.2196E-01, 0.2164E-01, 0.2215E-01,
- * 0.2476E-01, 0.2642E-01, 0.2579E-01, 0.2594E-01, 0.2639E-01,
- * 0.2864E-01, 0.2866E-01, 0.2937E-01, 0.2752E-01, 0.2461E-01,
- * 0.2407E-01, 0.2125E-01, 0.1523E-01, 0.1101E-01, 0.9503E-02,
- * 0.2281E-02,-0.7148E-02,-0.1019E-01,-0.2554E-01,-0.4225E-01,
- *-0.5133E-01,-0.6732E-01,-0.8226E-01,-0.8529E-01,-0.8863E-01,
- *-0.1055E+00,-0.1014E+00,-0.1001E+00,-0.1240E+00,-0.1593E-01,
- * 0.1754E+00, 0.2386E+00,-0.8006E-18 /
- DATA ((QHR(i,j),j=1,83),i=14,14)/
- * 0.7227E-21, 0.1962E-01, 0.5306E-01, 0.4545E-01, 0.2058E-01,
- * 0.9166E-02, 0.1769E-01, 0.3513E-01, 0.4622E-01, 0.5277E-01,
- * 0.5581E-01, 0.5464E-01, 0.4927E-01, 0.4313E-01, 0.3835E-01,
- * 0.3267E-01, 0.2844E-01, 0.2600E-01, 0.2379E-01, 0.2197E-01,
- * 0.1969E-01, 0.1876E-01, 0.1747E-01, 0.1693E-01, 0.1670E-01,
- * 0.1727E-01, 0.1623E-01, 0.1590E-01, 0.1470E-01, 0.1446E-01,
- * 0.1374E-01, 0.1538E-01, 0.1575E-01, 0.1494E-01, 0.1548E-01,
- * 0.1542E-01, 0.1628E-01, 0.1779E-01, 0.1797E-01, 0.1813E-01,
- * 0.1948E-01, 0.1875E-01, 0.2064E-01, 0.2149E-01, 0.2214E-01,
- * 0.2241E-01, 0.2331E-01, 0.2450E-01, 0.2494E-01, 0.2608E-01,
- * 0.2845E-01, 0.2964E-01, 0.2964E-01, 0.3016E-01, 0.3082E-01,
- * 0.3255E-01, 0.3317E-01, 0.3460E-01, 0.3345E-01, 0.3161E-01,
- * 0.3140E-01, 0.2850E-01, 0.2306E-01, 0.2084E-01, 0.1854E-01,
- * 0.1152E-01, 0.5739E-02, 0.1794E-02,-0.1378E-01,-0.2810E-01,
- *-0.3814E-01,-0.5394E-01,-0.6431E-01,-0.6360E-01,-0.6949E-01,
- *-0.7644E-01,-0.6970E-01,-0.7127E-01,-0.7447E-01, 0.1157E-01,
- * 0.1504E+00, 0.1925E+00, 0.8456E-18 /
- DATA ((QHR(i,j),j=1,83),i=15,15)/
- * 0.3341E-21, 0.1668E-03, 0.1905E-01, 0.3846E-01, 0.5060E-01,
- * 0.4795E-01, 0.3824E-01, 0.3434E-01, 0.3286E-01, 0.2928E-01,
- * 0.2950E-01, 0.3271E-01, 0.3308E-01, 0.3264E-01, 0.3297E-01,
- * 0.3119E-01, 0.2856E-01, 0.2664E-01, 0.2484E-01, 0.2333E-01,
- * 0.2166E-01, 0.1996E-01, 0.1800E-01, 0.1671E-01, 0.1536E-01,
- * 0.1453E-01, 0.1374E-01, 0.1380E-01, 0.1355E-01, 0.1344E-01,
- * 0.1313E-01, 0.1261E-01, 0.1256E-01, 0.1244E-01, 0.1323E-01,
- * 0.1401E-01, 0.1399E-01, 0.1446E-01, 0.1532E-01, 0.1538E-01,
- * 0.1533E-01, 0.1614E-01, 0.1667E-01, 0.1881E-01, 0.2027E-01,
- * 0.2104E-01, 0.2245E-01, 0.2493E-01, 0.2767E-01, 0.3004E-01,
- * 0.3304E-01, 0.3633E-01, 0.3829E-01, 0.3985E-01, 0.4270E-01,
- * 0.4578E-01, 0.4765E-01, 0.4812E-01, 0.4968E-01, 0.5035E-01,
- * 0.5016E-01, 0.5161E-01, 0.5113E-01, 0.4874E-01, 0.4621E-01,
- * 0.4301E-01, 0.3629E-01, 0.3227E-01, 0.2879E-01, 0.2171E-01,
- * 0.2015E-01, 0.1023E-01,-0.1314E-02,-0.4303E-02,-0.1217E-01,
- *-0.1671E-01,-0.4811E-02, 0.3506E-03, 0.1281E-01, 0.9823E-01,
- * 0.1908E+00, 0.1472E+00,-0.4975E-18 /
- DATA ((QHR(i,j),j=1,83),i=16,16)/
- * 0.4569E-22,-0.3494E-02, 0.4438E-02, 0.1387E-01, 0.1729E-01,
- * 0.1620E-01, 0.1017E-01,-0.2190E-02,-0.1421E-01,-0.2101E-01,
- *-0.2372E-01,-0.2141E-01,-0.1531E-01,-0.1001E-01,-0.4689E-02,
- * 0.1363E-02, 0.5275E-02, 0.7626E-02, 0.8819E-02, 0.8749E-02,
- * 0.8743E-02, 0.8694E-02, 0.8697E-02, 0.8481E-02, 0.7835E-02,
- * 0.7277E-02, 0.6824E-02, 0.6472E-02, 0.6108E-02, 0.5573E-02,
- * 0.5435E-02, 0.5348E-02, 0.5386E-02, 0.5309E-02, 0.5225E-02,
- * 0.5663E-02, 0.6047E-02, 0.6261E-02, 0.7047E-02, 0.8086E-02,
- * 0.8532E-02, 0.8645E-02, 0.9205E-02, 0.1082E-01, 0.1264E-01,
- * 0.1413E-01, 0.1593E-01, 0.1813E-01, 0.2008E-01, 0.2160E-01,
- * 0.2380E-01, 0.2666E-01, 0.2888E-01, 0.3036E-01, 0.3324E-01,
- * 0.3643E-01, 0.3835E-01, 0.4051E-01, 0.4391E-01, 0.4708E-01,
- * 0.4807E-01, 0.5076E-01, 0.5418E-01, 0.5633E-01, 0.5680E-01,
- * 0.5788E-01, 0.5680E-01, 0.5861E-01, 0.5881E-01, 0.5610E-01,
- * 0.5159E-01, 0.4816E-01, 0.4755E-01, 0.4797E-01, 0.4573E-01,
- * 0.4337E-01, 0.4462E-01, 0.5837E-01, 0.9104E-01, 0.1244E+00,
- * 0.1420E+00, 0.8351E-01, 0.2650E-18 /
- DATA ((QHR(i,j),j=1,83),i=17,17)/
- * 0.3013E-22,-0.6586E-02,-0.6701E-02, 0.3526E-02, 0.1083E-01,
- * 0.8649E-02,-0.1759E-02,-0.1359E-01,-0.2471E-01,-0.3343E-01,
- *-0.3760E-01,-0.3836E-01,-0.3670E-01,-0.3092E-01,-0.2429E-01,
- *-0.1861E-01,-0.1251E-01,-0.8017E-02,-0.4221E-02,-0.1206E-02,
- * 0.2898E-03, 0.1564E-02, 0.1966E-02, 0.1962E-02, 0.2216E-02,
- * 0.2135E-02, 0.1819E-02, 0.1428E-02, 0.1478E-02, 0.1519E-02,
- * 0.1486E-02, 0.1357E-02, 0.1147E-02, 0.1426E-02, 0.1829E-02,
- * 0.1888E-02, 0.2242E-02, 0.3050E-02, 0.3673E-02, 0.4362E-02,
- * 0.5665E-02, 0.6338E-02, 0.6978E-02, 0.7626E-02, 0.8406E-02,
- * 0.9918E-02, 0.1140E-01, 0.1239E-01, 0.1399E-01, 0.1624E-01,
- * 0.1771E-01, 0.1879E-01, 0.2146E-01, 0.2455E-01, 0.2607E-01,
- * 0.2811E-01, 0.3165E-01, 0.3450E-01, 0.3637E-01, 0.3955E-01,
- * 0.4360E-01, 0.4602E-01, 0.4828E-01, 0.5033E-01, 0.5366E-01,
- * 0.5725E-01, 0.6020E-01, 0.5813E-01, 0.5912E-01, 0.6185E-01,
- * 0.6386E-01, 0.6292E-01, 0.5653E-01, 0.5427E-01, 0.5557E-01,
- * 0.6068E-01, 0.6457E-01, 0.6750E-01, 0.5570E-01, 0.7216E-01,
- * 0.1193E+00, 0.7938E-01,-0.1204E-18 /
- DATA ((QHR(i,j),j=1,83),i=18,18)/
- *-0.8339E-22,-0.3001E-02,-0.1501E-02, 0.9853E-02, 0.1559E-01,
- * 0.1043E-01, 0.2577E-02,-0.3925E-02,-0.1012E-01,-0.1511E-01,
- *-0.2013E-01,-0.2543E-01,-0.2928E-01,-0.3297E-01,-0.3565E-01,
- *-0.3700E-01,-0.3797E-01,-0.3668E-01,-0.3487E-01,-0.3197E-01,
- *-0.2826E-01,-0.2552E-01,-0.2208E-01,-0.1931E-01,-0.1667E-01,
- *-0.1454E-01,-0.1253E-01,-0.1133E-01,-0.1019E-01,-0.9347E-02,
- *-0.8573E-02,-0.8007E-02,-0.7655E-02,-0.7264E-02,-0.6791E-02,
- *-0.6614E-02,-0.6553E-02,-0.6380E-02,-0.6260E-02,-0.6197E-02,
- *-0.6101E-02,-0.6076E-02,-0.6109E-02,-0.5996E-02,-0.5687E-02,
- *-0.5619E-02,-0.5624E-02,-0.5103E-02,-0.4600E-02,-0.4475E-02,
- *-0.3889E-02,-0.2786E-02,-0.2153E-02,-0.1486E-02, 0.5661E-05,
- * 0.1504E-02, 0.2807E-02, 0.4649E-02, 0.6591E-02, 0.9116E-02,
- * 0.1215E-01, 0.1426E-01, 0.1796E-01, 0.2280E-01, 0.2606E-01,
- * 0.3027E-01, 0.3632E-01, 0.4196E-01, 0.4816E-01, 0.5429E-01,
- * 0.6013E-01, 0.6981E-01, 0.7773E-01, 0.8519E-01, 0.9469E-01,
- * 0.1001E+00, 0.1114E+00, 0.1160E+00, 0.1219E+00, 0.1272E+00,
- * 0.8560E-01, 0.3885E-01,-0.3065E-18 /
- DATA ((QHR(i,j),j=1,83),i=19,19)/
- *-0.1652E-21,-0.3713E-04, 0.3969E-02, 0.7870E-02, 0.4872E-02,
- * 0.6642E-03,-0.2740E-02,-0.4686E-02,-0.6046E-02,-0.7327E-02,
- *-0.8648E-02,-0.9896E-02,-0.1121E-01,-0.1258E-01,-0.1432E-01,
- *-0.1624E-01,-0.1813E-01,-0.1998E-01,-0.2148E-01,-0.2289E-01,
- *-0.2360E-01,-0.2407E-01,-0.2368E-01,-0.2290E-01,-0.2176E-01,
- *-0.2038E-01,-0.1895E-01,-0.1772E-01,-0.1648E-01,-0.1539E-01,
- *-0.1445E-01,-0.1367E-01,-0.1312E-01,-0.1278E-01,-0.1244E-01,
- *-0.1223E-01,-0.1218E-01,-0.1215E-01,-0.1213E-01,-0.1218E-01,
- *-0.1234E-01,-0.1244E-01,-0.1256E-01,-0.1278E-01,-0.1301E-01,
- *-0.1334E-01,-0.1371E-01,-0.1394E-01,-0.1419E-01,-0.1459E-01,
- *-0.1482E-01,-0.1493E-01,-0.1521E-01,-0.1542E-01,-0.1534E-01,
- *-0.1540E-01,-0.1540E-01,-0.1501E-01,-0.1470E-01,-0.1420E-01,
- *-0.1317E-01,-0.1214E-01,-0.1083E-01,-0.8337E-02,-0.6306E-02,
- *-0.3129E-02, 0.1217E-02, 0.5563E-02, 0.1181E-01, 0.1875E-01,
- * 0.2696E-01, 0.3742E-01, 0.4885E-01, 0.6171E-01, 0.7738E-01,
- * 0.9339E-01, 0.1113E+00, 0.1272E+00, 0.1371E+00, 0.1355E+00,
- * 0.7581E-01, 0.2173E-01, 0.9486E-19 /
- DATA ((QHR(i,j),j=1,83),i=20,20)/
- *-0.4718E-22,-0.3367E-03, 0.9818E-03, 0.5409E-02, 0.7205E-02,
- * 0.4406E-02,-0.4729E-03,-0.5499E-02,-0.1012E-01,-0.1419E-01,
- *-0.1783E-01,-0.2108E-01,-0.2385E-01,-0.2614E-01,-0.2769E-01,
- *-0.2862E-01,-0.2888E-01,-0.2848E-01,-0.2766E-01,-0.2647E-01,
- *-0.2509E-01,-0.2369E-01,-0.2232E-01,-0.2109E-01,-0.2002E-01,
- *-0.1907E-01,-0.1834E-01,-0.1780E-01,-0.1737E-01,-0.1708E-01,
- *-0.1690E-01,-0.1683E-01,-0.1692E-01,-0.1707E-01,-0.1725E-01,
- *-0.1755E-01,-0.1795E-01,-0.1836E-01,-0.1885E-01,-0.1937E-01,
- *-0.1993E-01,-0.2026E-01,-0.2061E-01,-0.2125E-01,-0.2188E-01,
- *-0.2266E-01,-0.2344E-01,-0.2414E-01,-0.2489E-01,-0.2573E-01,
- *-0.2651E-01,-0.2712E-01,-0.2791E-01,-0.2868E-01,-0.2913E-01,
- *-0.2965E-01,-0.3011E-01,-0.3031E-01,-0.3038E-01,-0.3013E-01,
- *-0.2967E-01,-0.2892E-01,-0.2755E-01,-0.2562E-01,-0.2328E-01,
- *-0.2036E-01,-0.1595E-01,-0.1081E-01,-0.4895E-02, 0.2784E-02,
- * 0.1122E-01, 0.2192E-01, 0.3380E-01, 0.4555E-01, 0.5906E-01,
- * 0.7140E-01, 0.8277E-01, 0.9052E-01, 0.9304E-01, 0.8736E-01,
- * 0.5598E-01, 0.1352E-01,-0.1058E-18 /
-c************** MIE (phase fun uh) ***************
- DATA ((UHR(i,j),j=1,83),i= 1, 1)/
- *-0.3243E+00,-0.2275E+00,-0.1795E-01, 0.4439E-01, 0.3578E-01,
- * 0.1267E-01,-0.1034E-01,-0.3552E-01,-0.5009E-01,-0.4099E-01,
- *-0.2721E-01,-0.2594E-01,-0.2533E-01,-0.2248E-01,-0.2150E-01,
- *-0.2233E-01,-0.2209E-01,-0.2106E-01,-0.2203E-01,-0.2200E-01,
- *-0.2227E-01,-0.2192E-01,-0.2216E-01,-0.2116E-01,-0.2043E-01,
- *-0.1964E-01,-0.1853E-01,-0.1754E-01,-0.1771E-01,-0.1472E-01,
- *-0.1352E-01,-0.9567E-02,-0.9255E-02,-0.6918E-02,-0.2846E-02,
- *-0.1439E-02, 0.4171E-02, 0.8762E-02, 0.1090E-01, 0.1840E-01,
- * 0.2884E-01, 0.2866E-01, 0.3381E-01, 0.3960E-01, 0.5157E-01,
- * 0.6634E-01, 0.7588E-01, 0.8726E-01, 0.9928E-01, 0.1166E+00,
- * 0.1371E+00, 0.1568E+00, 0.1820E+00, 0.2087E+00, 0.2357E+00,
- * 0.2673E+00, 0.2970E+00, 0.3342E+00, 0.3698E+00, 0.4180E+00,
- * 0.4708E+00, 0.5307E+00, 0.5840E+00, 0.6446E+00, 0.7125E+00,
- * 0.8015E+00, 0.8760E+00, 0.9746E+00, 0.1090E+01, 0.1199E+01,
- * 0.1360E+01, 0.1526E+01, 0.1764E+01, 0.2077E+01, 0.2534E+01,
- * 0.3247E+01, 0.4514E+01, 0.6968E+01, 0.1256E+02, 0.2829E+02,
- * 0.8949E+02, 0.5462E+03, 0.5621E+04 /
- DATA ((UHR(i,j),j=1,83),i= 2, 2)/
- *-0.3504E+00,-0.2583E+00,-0.4707E-01, 0.2789E-01, 0.3269E-01,
- * 0.1350E-01,-0.1829E-01,-0.4433E-01,-0.4210E-01,-0.3186E-01,
- *-0.3047E-01,-0.2724E-01,-0.2107E-01,-0.1830E-01,-0.1933E-01,
- *-0.2083E-01,-0.2007E-01,-0.1973E-01,-0.1893E-01,-0.1882E-01,
- *-0.1979E-01,-0.1974E-01,-0.2000E-01,-0.1834E-01,-0.1736E-01,
- *-0.1565E-01,-0.1667E-01,-0.1492E-01,-0.1470E-01,-0.1251E-01,
- *-0.1047E-01,-0.8317E-02,-0.4739E-02,-0.3179E-02, 0.2167E-02,
- * 0.5453E-02, 0.6826E-02, 0.1329E-01, 0.1912E-01, 0.2370E-01,
- * 0.3120E-01, 0.3354E-01, 0.4061E-01, 0.4866E-01, 0.5869E-01,
- * 0.6984E-01, 0.8732E-01, 0.1039E+00, 0.1181E+00, 0.1346E+00,
- * 0.1507E+00, 0.1733E+00, 0.1985E+00, 0.2222E+00, 0.2526E+00,
- * 0.2853E+00, 0.3221E+00, 0.3598E+00, 0.4059E+00, 0.4596E+00,
- * 0.5129E+00, 0.5654E+00, 0.6197E+00, 0.6905E+00, 0.7740E+00,
- * 0.8514E+00, 0.9416E+00, 0.1049E+01, 0.1159E+01, 0.1294E+01,
- * 0.1463E+01, 0.1657E+01, 0.1917E+01, 0.2262E+01, 0.2764E+01,
- * 0.3565E+01, 0.4972E+01, 0.7674E+01, 0.1379E+02, 0.3050E+02,
- * 0.9305E+02, 0.5222E+03, 0.4201E+04 /
- DATA ((UHR(i,j),j=1,83),i= 3, 3)/
- *-0.3625E+00,-0.2725E+00,-0.5735E-01, 0.2289E-01, 0.3027E-01,
- * 0.7699E-02,-0.2313E-01,-0.4096E-01,-0.3741E-01,-0.3494E-01,
- *-0.3292E-01,-0.2654E-01,-0.1916E-01,-0.1894E-01,-0.1920E-01,
- *-0.1882E-01,-0.1973E-01,-0.1992E-01,-0.1825E-01,-0.1880E-01,
- *-0.1896E-01,-0.1868E-01,-0.1895E-01,-0.1813E-01,-0.1723E-01,
- *-0.1625E-01,-0.1593E-01,-0.1448E-01,-0.1257E-01,-0.1157E-01,
- *-0.9595E-02,-0.9181E-02,-0.4405E-02,-0.2159E-02, 0.1466E-02,
- * 0.7070E-02, 0.8585E-02, 0.1377E-01, 0.2235E-01, 0.2656E-01,
- * 0.3128E-01, 0.3672E-01, 0.4147E-01, 0.5297E-01, 0.6060E-01,
- * 0.7029E-01, 0.8620E-01, 0.1049E+00, 0.1238E+00, 0.1412E+00,
- * 0.1578E+00, 0.1821E+00, 0.2055E+00, 0.2309E+00, 0.2616E+00,
- * 0.2932E+00, 0.3324E+00, 0.3703E+00, 0.4198E+00, 0.4665E+00,
- * 0.5173E+00, 0.5667E+00, 0.6307E+00, 0.7018E+00, 0.7826E+00,
- * 0.8565E+00, 0.9551E+00, 0.1059E+01, 0.1172E+01, 0.1320E+01,
- * 0.1479E+01, 0.1691E+01, 0.1946E+01, 0.2300E+01, 0.2815E+01,
- * 0.3638E+01, 0.5059E+01, 0.7829E+01, 0.1406E+02, 0.3097E+02,
- * 0.9377E+02, 0.5161E+03, 0.3938E+04 /
- DATA ((UHR(i,j),j=1,83),i= 4, 4)/
- *-0.3853E+00,-0.2956E+00,-0.7782E-01, 0.1077E-01, 0.2519E-01,
- * 0.1022E-01,-0.1947E-01,-0.4326E-01,-0.3956E-01,-0.3079E-01,
- *-0.2897E-01,-0.2497E-01,-0.1821E-01,-0.1610E-01,-0.1711E-01,
- *-0.1834E-01,-0.1796E-01,-0.1765E-01,-0.1662E-01,-0.1674E-01,
- *-0.1769E-01,-0.1750E-01,-0.1776E-01,-0.1617E-01,-0.1504E-01,
- *-0.1340E-01,-0.1434E-01,-0.1256E-01,-0.1194E-01,-0.9849E-02,
- *-0.7649E-02,-0.5715E-02,-0.1671E-02, 0.2362E-03, 0.5500E-02,
- * 0.9494E-02, 0.1093E-01, 0.1738E-01, 0.2426E-01, 0.2912E-01,
- * 0.3616E-01, 0.3928E-01, 0.4609E-01, 0.5536E-01, 0.6555E-01,
- * 0.7693E-01, 0.9465E-01, 0.1124E+00, 0.1284E+00, 0.1458E+00,
- * 0.1627E+00, 0.1869E+00, 0.2130E+00, 0.2380E+00, 0.2697E+00,
- * 0.3039E+00, 0.3427E+00, 0.3819E+00, 0.4307E+00, 0.4853E+00,
- * 0.5405E+00, 0.5953E+00, 0.6551E+00, 0.7291E+00, 0.8157E+00,
- * 0.8973E+00, 0.9948E+00, 0.1107E+01, 0.1224E+01, 0.1371E+01,
- * 0.1549E+01, 0.1760E+01, 0.2038E+01, 0.2412E+01, 0.2954E+01,
- * 0.3824E+01, 0.5340E+01, 0.8243E+01, 0.1474E+02, 0.3212E+02,
- * 0.9507E+02, 0.4991E+03, 0.3362E+04 /
- DATA ((UHR(i,j),j=1,83),i= 5, 5)/
- *-0.4323E+00,-0.3391E+00,-0.1088E+00,-0.3171E-02, 0.1441E-01,
- * 0.2126E-03,-0.1919E-01,-0.3340E-01,-0.3951E-01,-0.3483E-01,
- *-0.2856E-01,-0.1972E-01,-0.1776E-01,-0.1724E-01,-0.1587E-01,
- *-0.1416E-01,-0.1489E-01,-0.1631E-01,-0.1659E-01,-0.1658E-01,
- *-0.1541E-01,-0.1529E-01,-0.1377E-01,-0.1455E-01,-0.1482E-01,
- *-0.1458E-01,-0.1217E-01,-0.1104E-01,-0.7639E-02,-0.7120E-02,
- *-0.5115E-02,-0.3964E-02,-0.9363E-03, 0.3409E-02, 0.4963E-02,
- * 0.1041E-01, 0.1626E-01, 0.2074E-01, 0.2805E-01, 0.3467E-01,
- * 0.3989E-01, 0.4751E-01, 0.4928E-01, 0.6204E-01, 0.7210E-01,
- * 0.8275E-01, 0.9633E-01, 0.1117E+00, 0.1331E+00, 0.1533E+00,
- * 0.1769E+00, 0.2014E+00, 0.2260E+00, 0.2561E+00, 0.2881E+00,
- * 0.3213E+00, 0.3611E+00, 0.4039E+00, 0.4510E+00, 0.4938E+00,
- * 0.5458E+00, 0.6068E+00, 0.6804E+00, 0.7523E+00, 0.8294E+00,
- * 0.9173E+00, 0.1025E+01, 0.1132E+01, 0.1265E+01, 0.1425E+01,
- * 0.1592E+01, 0.1825E+01, 0.2104E+01, 0.2491E+01, 0.3067E+01,
- * 0.3976E+01, 0.5526E+01, 0.8562E+01, 0.1525E+02, 0.3304E+02,
- * 0.9614E+02, 0.4844E+03, 0.2954E+04 /
- DATA ((UHR(i,j),j=1,83),i= 6, 6)/
- *-0.4322E+00,-0.3413E+00,-0.1128E+00,-0.7923E-02, 0.1379E-01,
- * 0.7758E-02,-0.1261E-01,-0.3633E-01,-0.4292E-01,-0.2978E-01,
- *-0.2259E-01,-0.2031E-01,-0.1749E-01,-0.1337E-01,-0.1375E-01,
- *-0.1573E-01,-0.1481E-01,-0.1421E-01,-0.1481E-01,-0.1419E-01,
- *-0.1492E-01,-0.1523E-01,-0.1567E-01,-0.1377E-01,-0.1284E-01,
- *-0.1100E-01,-0.1088E-01,-0.9663E-02,-0.9634E-02,-0.6501E-02,
- *-0.4269E-02,-0.2647E-03, 0.1572E-02, 0.3747E-02, 0.9521E-02,
- * 0.1195E-01, 0.1610E-01, 0.2243E-01, 0.2677E-01, 0.3418E-01,
- * 0.4500E-01, 0.4617E-01, 0.5283E-01, 0.6081E-01, 0.7332E-01,
- * 0.8783E-01, 0.1031E+00, 0.1186E+00, 0.1329E+00, 0.1523E+00,
- * 0.1735E+00, 0.1964E+00, 0.2247E+00, 0.2529E+00, 0.2857E+00,
- * 0.3218E+00, 0.3602E+00, 0.4026E+00, 0.4483E+00, 0.5066E+00,
- * 0.5661E+00, 0.6303E+00, 0.6903E+00, 0.7684E+00, 0.8541E+00,
- * 0.9506E+00, 0.1049E+01, 0.1168E+01, 0.1300E+01, 0.1446E+01,
- * 0.1639E+01, 0.1858E+01, 0.2160E+01, 0.2567E+01, 0.3154E+01,
- * 0.4083E+01, 0.5714E+01, 0.8808E+01, 0.1561E+02, 0.3357E+02,
- * 0.9637E+02, 0.4741E+03, 0.2722E+04 /
- DATA ((UHR(i,j),j=1,83),i= 7, 7)/
- *-0.4427E+00,-0.3553E+00,-0.1299E+00,-0.2048E-01, 0.8951E-02,
- * 0.4957E-02,-0.1808E-01,-0.4058E-01,-0.3879E-01,-0.2715E-01,
- *-0.2400E-01,-0.2033E-01,-0.1474E-01,-0.1181E-01,-0.1288E-01,
- *-0.1461E-01,-0.1396E-01,-0.1361E-01,-0.1308E-01,-0.1296E-01,
- *-0.1394E-01,-0.1404E-01,-0.1414E-01,-0.1242E-01,-0.1119E-01,
- *-0.9432E-02,-0.1012E-01,-0.8492E-02,-0.7970E-02,-0.5433E-02,
- *-0.2901E-02, 0.4081E-05, 0.3413E-02, 0.5730E-02, 0.1153E-01,
- * 0.1514E-01, 0.1751E-01, 0.2428E-01, 0.3088E-01, 0.3701E-01,
- * 0.4562E-01, 0.4830E-01, 0.5523E-01, 0.6469E-01, 0.7658E-01,
- * 0.8945E-01, 0.1072E+00, 0.1249E+00, 0.1413E+00, 0.1601E+00,
- * 0.1794E+00, 0.2045E+00, 0.2329E+00, 0.2599E+00, 0.2936E+00,
- * 0.3306E+00, 0.3712E+00, 0.4133E+00, 0.4634E+00, 0.5224E+00,
- * 0.5817E+00, 0.6434E+00, 0.7071E+00, 0.7865E+00, 0.8777E+00,
- * 0.9707E+00, 0.1076E+01, 0.1197E+01, 0.1329E+01, 0.1486E+01,
- * 0.1684E+01, 0.1917E+01, 0.2228E+01, 0.2649E+01, 0.3257E+01,
- * 0.4231E+01, 0.5920E+01, 0.9113E+01, 0.1611E+02, 0.3427E+02,
- * 0.9675E+02, 0.4596E+03, 0.2420E+04 /
- DATA ((UHR(i,j),j=1,83),i= 8, 8)/
- *-0.4960E+00,-0.4083E+00,-0.1697E+00,-0.4294E-01,-0.5037E-02,
- *-0.4217E-02,-0.1286E-01,-0.3018E-01,-0.3998E-01,-0.3348E-01,
- *-0.1870E-01,-0.1341E-01,-0.1375E-01,-0.1335E-01,-0.1116E-01,
- *-0.9871E-02,-0.1029E-01,-0.1100E-01,-0.1255E-01,-0.1280E-01,
- *-0.1210E-01,-0.1134E-01,-0.1036E-01,-0.1091E-01,-0.1013E-01,
- *-0.9804E-02,-0.7304E-02,-0.5993E-02,-0.4045E-02,-0.2252E-02,
- * 0.5060E-04, 0.3228E-02, 0.5120E-02, 0.9411E-02, 0.1177E-01,
- * 0.1600E-01, 0.2377E-01, 0.2858E-01, 0.3357E-01, 0.4242E-01,
- * 0.5172E-01, 0.5684E-01, 0.6051E-01, 0.6992E-01, 0.8332E-01,
- * 0.9825E-01, 0.1103E+00, 0.1248E+00, 0.1436E+00, 0.1660E+00,
- * 0.1921E+00, 0.2160E+00, 0.2439E+00, 0.2774E+00, 0.3101E+00,
- * 0.3485E+00, 0.3871E+00, 0.4347E+00, 0.4801E+00, 0.5322E+00,
- * 0.5914E+00, 0.6611E+00, 0.7383E+00, 0.8166E+00, 0.9000E+00,
- * 0.1002E+01, 0.1109E+01, 0.1238E+01, 0.1383E+01, 0.1546E+01,
- * 0.1745E+01, 0.1989E+01, 0.2310E+01, 0.2749E+01, 0.3395E+01,
- * 0.4409E+01, 0.6153E+01, 0.9488E+01, 0.1667E+02, 0.3516E+02,
- * 0.9714E+02, 0.4412E+03, 0.2096E+04 /
- DATA ((UHR(i,j),j=1,83),i= 9, 9)/
- *-0.5164E+00,-0.4297E+00,-0.1933E+00,-0.5802E-01,-0.1449E-01,
- *-0.1248E-01,-0.2362E-01,-0.3299E-01,-0.3497E-01,-0.2895E-01,
- *-0.2253E-01,-0.1395E-01,-0.1104E-01,-0.1042E-01,-0.9425E-02,
- *-0.8193E-02,-0.9074E-02,-0.1039E-01,-0.1045E-01,-0.1053E-01,
- *-0.9603E-02,-0.9431E-02,-0.8129E-02,-0.8650E-02,-0.8813E-02,
- *-0.8393E-02,-0.6066E-02,-0.4523E-02,-0.1066E-02,-0.7197E-04,
- * 0.1953E-02, 0.3462E-02, 0.7174E-02, 0.1161E-01, 0.1407E-01,
- * 0.1987E-01, 0.2597E-01, 0.3146E-01, 0.3938E-01, 0.4644E-01,
- * 0.5292E-01, 0.6022E-01, 0.6336E-01, 0.7667E-01, 0.8780E-01,
- * 0.1000E+00, 0.1155E+00, 0.1330E+00, 0.1551E+00, 0.1766E+00,
- * 0.2015E+00, 0.2285E+00, 0.2559E+00, 0.2885E+00, 0.3234E+00,
- * 0.3596E+00, 0.4029E+00, 0.4494E+00, 0.5017E+00, 0.5508E+00,
- * 0.6100E+00, 0.6772E+00, 0.7563E+00, 0.8359E+00, 0.9253E+00,
- * 0.1024E+01, 0.1142E+01, 0.1267E+01, 0.1419E+01, 0.1601E+01,
- * 0.1801E+01, 0.2069E+01, 0.2401E+01, 0.2858E+01, 0.3541E+01,
- * 0.4609E+01, 0.6420E+01, 0.9875E+01, 0.1726E+02, 0.3593E+02,
- * 0.9709E+02, 0.4210E+03, 0.1798E+04 /
- DATA ((UHR(i,j),j=1,83),i=10,10)/
- *-0.5181E+00,-0.4384E+00,-0.2108E+00,-0.7562E-01,-0.2196E-01,
- *-0.1282E-01,-0.2630E-01,-0.3815E-01,-0.3195E-01,-0.2503E-01,
- *-0.2079E-01,-0.1406E-01,-0.7127E-02,-0.6479E-02,-0.7255E-02,
- *-0.7829E-02,-0.8612E-02,-0.8582E-02,-0.7332E-02,-0.7874E-02,
- *-0.8479E-02,-0.8158E-02,-0.8214E-02,-0.6986E-02,-0.5735E-02,
- *-0.4530E-02,-0.4489E-02,-0.2666E-02,-0.6568E-03, 0.1308E-02,
- * 0.3630E-02, 0.5450E-02, 0.1033E-01, 0.1366E-01, 0.1868E-01,
- * 0.2418E-01, 0.2711E-01, 0.3375E-01, 0.4277E-01, 0.4937E-01,
- * 0.5631E-01, 0.6125E-01, 0.6710E-01, 0.7970E-01, 0.9125E-01,
- * 0.1041E+00, 0.1221E+00, 0.1425E+00, 0.1631E+00, 0.1837E+00,
- * 0.2047E+00, 0.2335E+00, 0.2629E+00, 0.2932E+00, 0.3292E+00,
- * 0.3681E+00, 0.4129E+00, 0.4581E+00, 0.5142E+00, 0.5726E+00,
- * 0.6361E+00, 0.7018E+00, 0.7780E+00, 0.8627E+00, 0.9614E+00,
- * 0.1063E+01, 0.1183E+01, 0.1315E+01, 0.1466E+01, 0.1652E+01,
- * 0.1872E+01, 0.2149E+01, 0.2502E+01, 0.2988E+01, 0.3698E+01,
- * 0.4824E+01, 0.6732E+01, 0.1030E+02, 0.1786E+02, 0.3658E+02,
- * 0.9643E+02, 0.3996E+03, 0.1542E+04 /
- DATA ((UHR(i,j),j=1,83),i=11,11)/
- *-0.5654E+00,-0.4828E+00,-0.2465E+00,-0.9581E-01,-0.3659E-01,
- *-0.2283E-01,-0.2620E-01,-0.3239E-01,-0.3282E-01,-0.2550E-01,
- *-0.1786E-01,-0.9588E-02,-0.7054E-02,-0.6420E-02,-0.5374E-02,
- *-0.4197E-02,-0.5056E-02,-0.6425E-02,-0.6812E-02,-0.6876E-02,
- *-0.6017E-02,-0.5717E-02,-0.4357E-02,-0.4872E-02,-0.5091E-02,
- *-0.4568E-02,-0.2200E-02,-0.4823E-03, 0.2991E-02, 0.4298E-02,
- * 0.6428E-02, 0.8340E-02, 0.1206E-01, 0.1669E-01, 0.1942E-01,
- * 0.2527E-01, 0.3205E-01, 0.3803E-01, 0.4582E-01, 0.5340E-01,
- * 0.6080E-01, 0.6801E-01, 0.7166E-01, 0.8498E-01, 0.9705E-01,
- * 0.1104E+00, 0.1264E+00, 0.1444E+00, 0.1667E+00, 0.1891E+00,
- * 0.2154E+00, 0.2433E+00, 0.2723E+00, 0.3065E+00, 0.3430E+00,
- * 0.3811E+00, 0.4260E+00, 0.4750E+00, 0.5291E+00, 0.5819E+00,
- * 0.6447E+00, 0.7165E+00, 0.7996E+00, 0.8840E+00, 0.9791E+00,
- * 0.1086E+01, 0.1211E+01, 0.1346E+01, 0.1510E+01, 0.1705E+01,
- * 0.1925E+01, 0.2215E+01, 0.2579E+01, 0.3080E+01, 0.3826E+01,
- * 0.4986E+01, 0.6937E+01, 0.1060E+02, 0.1828E+02, 0.3712E+02,
- * 0.9598E+02, 0.3821E+03, 0.1362E+04 /
- DATA ((UHR(i,j),j=1,83),i=12,12)/
- *-0.5712E+00,-0.4907E+00,-0.2569E+00,-0.1062E+00,-0.4171E-01,
- *-0.1919E-01,-0.1819E-01,-0.2964E-01,-0.3479E-01,-0.2321E-01,
- *-0.1096E-01,-0.7853E-02,-0.6274E-02,-0.3348E-02,-0.2809E-02,
- *-0.4043E-02,-0.4110E-02,-0.3913E-02,-0.5076E-02,-0.5094E-02,
- *-0.5268E-02,-0.5347E-02,-0.5671E-02,-0.4336E-02,-0.3083E-02,
- *-0.1539E-02, 0.4284E-04, 0.1385E-02, 0.1904E-02, 0.5102E-02,
- * 0.8036E-02, 0.1239E-01, 0.1458E-01, 0.1793E-01, 0.2313E-01,
- * 0.2711E-01, 0.3347E-01, 0.3973E-01, 0.4503E-01, 0.5426E-01,
- * 0.6591E-01, 0.6919E-01, 0.7529E-01, 0.8497E-01, 0.9891E-01,
- * 0.1154E+00, 0.1306E+00, 0.1477E+00, 0.1660E+00, 0.1895E+00,
- * 0.2151E+00, 0.2408E+00, 0.2716E+00, 0.3057E+00, 0.3426E+00,
- * 0.3843E+00, 0.4279E+00, 0.4780E+00, 0.5297E+00, 0.5929E+00,
- * 0.6610E+00, 0.7352E+00, 0.8123E+00, 0.9047E+00, 0.1002E+01,
- * 0.1117E+01, 0.1239E+01, 0.1384E+01, 0.1548E+01, 0.1734E+01,
- * 0.1970E+01, 0.2254E+01, 0.2638E+01, 0.3163E+01, 0.3919E+01,
- * 0.5103E+01, 0.7120E+01, 0.1084E+02, 0.1855E+02, 0.3737E+02,
- * 0.9531E+02, 0.3706E+03, 0.1262E+04 /
- DATA ((UHR(i,j),j=1,83),i=13,13)/
- *-0.5994E+00,-0.5223E+00,-0.2911E+00,-0.1285E+00,-0.5458E-01,
- *-0.2960E-01,-0.2650E-01,-0.3047E-01,-0.2948E-01,-0.2136E-01,
- *-0.1299E-01,-0.5201E-02,-0.2967E-02,-0.2263E-02,-0.1152E-02,
- *-0.9091E-04,-0.9361E-03,-0.2342E-02,-0.2902E-02,-0.2954E-02,
- *-0.2203E-02,-0.1818E-02,-0.4951E-03,-0.9190E-03,-0.1151E-02,
- *-0.4745E-03, 0.1872E-02, 0.3777E-02, 0.7191E-02, 0.8798E-02,
- * 0.1108E-01, 0.1324E-01, 0.1705E-01, 0.2177E-01, 0.2486E-01,
- * 0.3082E-01, 0.3800E-01, 0.4450E-01, 0.5224E-01, 0.6014E-01,
- * 0.6843E-01, 0.7551E-01, 0.7977E-01, 0.9305E-01, 0.1059E+00,
- * 0.1202E+00, 0.1368E+00, 0.1554E+00, 0.1779E+00, 0.2012E+00,
- * 0.2285E+00, 0.2573E+00, 0.2878E+00, 0.3235E+00, 0.3616E+00,
- * 0.4016E+00, 0.4480E+00, 0.4997E+00, 0.5559E+00, 0.6121E+00,
- * 0.6787E+00, 0.7554E+00, 0.8431E+00, 0.9325E+00, 0.1034E+01,
- * 0.1149E+01, 0.1282E+01, 0.1430E+01, 0.1606E+01, 0.1816E+01,
- * 0.2058E+01, 0.2372E+01, 0.2772E+01, 0.3318E+01, 0.4130E+01,
- * 0.5378E+01, 0.7463E+01, 0.1131E+02, 0.1919E+02, 0.3793E+02,
- * 0.9376E+02, 0.3425E+03, 0.1035E+04 /
- DATA ((UHR(i,j),j=1,83),i=14,14)/
- *-0.5925E+00,-0.5233E+00,-0.3052E+00,-0.1376E+00,-0.5303E-01,
- *-0.2092E-01,-0.1634E-01,-0.2247E-01,-0.2243E-01,-0.1528E-01,
- *-0.6690E-02,-0.6130E-03, 0.5223E-03, 0.1365E-02, 0.2894E-02,
- * 0.3881E-02, 0.3137E-02, 0.1673E-02, 0.9269E-03, 0.9240E-03,
- * 0.1605E-02, 0.2073E-02, 0.3270E-02, 0.3030E-02, 0.2866E-02,
- * 0.3714E-02, 0.6027E-02, 0.8167E-02, 0.1134E-01, 0.1320E-01,
- * 0.1583E-01, 0.1807E-01, 0.2180E-01, 0.2645E-01, 0.2995E-01,
- * 0.3603E-01, 0.4340E-01, 0.5040E-01, 0.5794E-01, 0.6595E-01,
- * 0.7530E-01, 0.8223E-01, 0.8715E-01, 0.1000E+00, 0.1134E+00,
- * 0.1289E+00, 0.1456E+00, 0.1646E+00, 0.1870E+00, 0.2113E+00,
- * 0.2396E+00, 0.2686E+00, 0.3003E+00, 0.3377E+00, 0.3771E+00,
- * 0.4195E+00, 0.4673E+00, 0.5221E+00, 0.5802E+00, 0.6406E+00,
- * 0.7117E+00, 0.7941E+00, 0.8877E+00, 0.9832E+00, 0.1093E+01,
- * 0.1217E+01, 0.1360E+01, 0.1524E+01, 0.1717E+01, 0.1942E+01,
- * 0.2212E+01, 0.2553E+01, 0.2991E+01, 0.3590E+01, 0.4467E+01,
- * 0.5800E+01, 0.8007E+01, 0.1200E+02, 0.1999E+02, 0.3839E+02,
- * 0.9063E+02, 0.3047E+03, 0.7912E+03 /
- DATA ((UHR(i,j),j=1,83),i=15,15)/
- *-0.3548E+00,-0.3133E+00,-0.1695E+00,-0.4147E-01, 0.2811E-01,
- * 0.5365E-01, 0.5498E-01, 0.4910E-01, 0.4089E-01, 0.2886E-01,
- * 0.1992E-01, 0.1745E-01, 0.1560E-01, 0.1214E-01, 0.1022E-01,
- * 0.1022E-01, 0.9971E-02, 0.1037E-01, 0.1086E-01, 0.1077E-01,
- * 0.1081E-01, 0.1098E-01, 0.1189E-01, 0.1298E-01, 0.1421E-01,
- * 0.1496E-01, 0.1611E-01, 0.1744E-01, 0.1963E-01, 0.2220E-01,
- * 0.2459E-01, 0.2753E-01, 0.3145E-01, 0.3648E-01, 0.4139E-01,
- * 0.4626E-01, 0.5233E-01, 0.5903E-01, 0.6685E-01, 0.7655E-01,
- * 0.8663E-01, 0.9116E-01, 0.9689E-01, 0.1090E+00, 0.1238E+00,
- * 0.1401E+00, 0.1576E+00, 0.1777E+00, 0.2002E+00, 0.2237E+00,
- * 0.2495E+00, 0.2811E+00, 0.3166E+00, 0.3550E+00, 0.3976E+00,
- * 0.4460E+00, 0.5007E+00, 0.5613E+00, 0.6306E+00, 0.7101E+00,
- * 0.7984E+00, 0.8966E+00, 0.1006E+01, 0.1133E+01, 0.1280E+01,
- * 0.1451E+01, 0.1640E+01, 0.1857E+01, 0.2117E+01, 0.2431E+01,
- * 0.2808E+01, 0.3274E+01, 0.3864E+01, 0.4649E+01, 0.5758E+01,
- * 0.7369E+01, 0.9871E+01, 0.1408E+02, 0.2185E+02, 0.3797E+02,
- * 0.7764E+02, 0.2057E+03, 0.3618E+03 /
- DATA ((UHR(i,j),j=1,83),i=16,16)/
- *-0.2360E+00,-0.2085E+00,-0.1093E+00,-0.9279E-02, 0.5440E-01,
- * 0.8631E-01, 0.9693E-01, 0.9204E-01, 0.7919E-01, 0.6369E-01,
- * 0.4884E-01, 0.3684E-01, 0.2870E-01, 0.2269E-01, 0.1860E-01,
- * 0.1696E-01, 0.1574E-01, 0.1479E-01, 0.1490E-01, 0.1502E-01,
- * 0.1533E-01, 0.1562E-01, 0.1582E-01, 0.1641E-01, 0.1715E-01,
- * 0.1824E-01, 0.1966E-01, 0.2102E-01, 0.2260E-01, 0.2504E-01,
- * 0.2775E-01, 0.3076E-01, 0.3411E-01, 0.3785E-01, 0.4213E-01,
- * 0.4695E-01, 0.5213E-01, 0.5795E-01, 0.6486E-01, 0.7288E-01,
- * 0.8128E-01, 0.8575E-01, 0.9042E-01, 0.1016E+00, 0.1145E+00,
- * 0.1280E+00, 0.1429E+00, 0.1605E+00, 0.1804E+00, 0.2024E+00,
- * 0.2278E+00, 0.2574E+00, 0.2903E+00, 0.3266E+00, 0.3693E+00,
- * 0.4191E+00, 0.4750E+00, 0.5380E+00, 0.6111E+00, 0.6965E+00,
- * 0.7935E+00, 0.9035E+00, 0.1032E+01, 0.1183E+01, 0.1358E+01,
- * 0.1558E+01, 0.1794E+01, 0.2071E+01, 0.2403E+01, 0.2797E+01,
- * 0.3271E+01, 0.3859E+01, 0.4599E+01, 0.5559E+01, 0.6851E+01,
- * 0.8653E+01, 0.1135E+02, 0.1566E+02, 0.2312E+02, 0.3760E+02,
- * 0.7006E+02, 0.1593E+03, 0.2353E+03 /
- DATA ((UHR(i,j),j=1,83),i=17,17)/
- *-0.2183E+00,-0.1922E+00,-0.1014E+00,-0.8594E-02, 0.5487E-01,
- * 0.8811E-01, 0.9656E-01, 0.9036E-01, 0.7855E-01, 0.6551E-01,
- * 0.5402E-01, 0.4436E-01, 0.3628E-01, 0.3001E-01, 0.2499E-01,
- * 0.2102E-01, 0.1899E-01, 0.1769E-01, 0.1649E-01, 0.1642E-01,
- * 0.1624E-01, 0.1643E-01, 0.1715E-01, 0.1773E-01, 0.1847E-01,
- * 0.1943E-01, 0.2052E-01, 0.2214E-01, 0.2411E-01, 0.2589E-01,
- * 0.2770E-01, 0.3023E-01, 0.3331E-01, 0.3648E-01, 0.4012E-01,
- * 0.4457E-01, 0.4944E-01, 0.5497E-01, 0.6108E-01, 0.6756E-01,
- * 0.7513E-01, 0.7953E-01, 0.8416E-01, 0.9372E-01, 0.1040E+00,
- * 0.1166E+00, 0.1312E+00, 0.1468E+00, 0.1645E+00, 0.1859E+00,
- * 0.2099E+00, 0.2362E+00, 0.2671E+00, 0.3036E+00, 0.3446E+00,
- * 0.3907E+00, 0.4449E+00, 0.5082E+00, 0.5807E+00, 0.6637E+00,
- * 0.7606E+00, 0.8755E+00, 0.1008E+01, 0.1162E+01, 0.1342E+01,
- * 0.1557E+01, 0.1812E+01, 0.2113E+01, 0.2472E+01, 0.2904E+01,
- * 0.3435E+01, 0.4088E+01, 0.4909E+01, 0.5960E+01, 0.7354E+01,
- * 0.9292E+01, 0.1212E+02, 0.1651E+02, 0.2396E+02, 0.3795E+02,
- * 0.6835E+02, 0.1475E+03, 0.2076E+03 /
- DATA ((UHR(i,j),j=1,83),i=18,18)/
- *-0.1136E+00,-0.9834E-01,-0.4735E-01, 0.2310E-02, 0.3021E-01,
- * 0.3800E-01, 0.3552E-01, 0.3080E-01, 0.2686E-01, 0.2400E-01,
- * 0.2242E-01, 0.2143E-01, 0.2109E-01, 0.2134E-01, 0.2156E-01,
- * 0.2184E-01, 0.2211E-01, 0.2217E-01, 0.2205E-01, 0.2163E-01,
- * 0.2157E-01, 0.2118E-01, 0.2070E-01, 0.2043E-01, 0.2035E-01,
- * 0.2048E-01, 0.2086E-01, 0.2118E-01, 0.2152E-01, 0.2245E-01,
- * 0.2360E-01, 0.2479E-01, 0.2609E-01, 0.2761E-01, 0.2962E-01,
- * 0.3204E-01, 0.3453E-01, 0.3741E-01, 0.4108E-01, 0.4526E-01,
- * 0.4974E-01, 0.5223E-01, 0.5500E-01, 0.6123E-01, 0.6833E-01,
- * 0.7631E-01, 0.8562E-01, 0.9653E-01, 0.1090E+00, 0.1234E+00,
- * 0.1403E+00, 0.1598E+00, 0.1824E+00, 0.2092E+00, 0.2404E+00,
- * 0.2769E+00, 0.3203E+00, 0.3718E+00, 0.4326E+00, 0.5048E+00,
- * 0.5921E+00, 0.6970E+00, 0.8221E+00, 0.9752E+00, 0.1161E+01,
- * 0.1388E+01, 0.1667E+01, 0.2011E+01, 0.2437E+01, 0.2972E+01,
- * 0.3639E+01, 0.4486E+01, 0.5569E+01, 0.6969E+01, 0.8813E+01,
- * 0.1130E+02, 0.1477E+02, 0.1987E+02, 0.2790E+02, 0.4182E+02,
- * 0.6930E+02, 0.1301E+03, 0.1659E+03 /
- DATA ((UHR(i,j),j=1,83),i=19,19)/
- *-0.6440E-01,-0.5294E-01,-0.2004E-01, 0.5550E-02, 0.1412E-01,
- * 0.1288E-01, 0.9890E-02, 0.7319E-02, 0.5413E-02, 0.3973E-02,
- * 0.3066E-02, 0.2644E-02, 0.2585E-02, 0.2752E-02, 0.3260E-02,
- * 0.4136E-02, 0.5316E-02, 0.6561E-02, 0.7916E-02, 0.9371E-02,
- * 0.1068E-01, 0.1203E-01, 0.1312E-01, 0.1394E-01, 0.1455E-01,
- * 0.1502E-01, 0.1550E-01, 0.1597E-01, 0.1638E-01, 0.1691E-01,
- * 0.1750E-01, 0.1823E-01, 0.1908E-01, 0.2012E-01, 0.2138E-01,
- * 0.2297E-01, 0.2479E-01, 0.2682E-01, 0.2919E-01, 0.3198E-01,
- * 0.3513E-01, 0.3685E-01, 0.3872E-01, 0.4291E-01, 0.4782E-01,
- * 0.5345E-01, 0.5995E-01, 0.6758E-01, 0.7645E-01, 0.8673E-01,
- * 0.9874E-01, 0.1129E+00, 0.1295E+00, 0.1490E+00, 0.1722E+00,
- * 0.1999E+00, 0.2329E+00, 0.2725E+00, 0.3206E+00, 0.3785E+00,
- * 0.4492E+00, 0.5363E+00, 0.6430E+00, 0.7755E+00, 0.9413E+00,
- * 0.1149E+01, 0.1411E+01, 0.1745E+01, 0.2174E+01, 0.2726E+01,
- * 0.3444E+01, 0.4385E+01, 0.5628E+01, 0.7283E+01, 0.9514E+01,
- * 0.1256E+02, 0.1681E+02, 0.2292E+02, 0.3212E+02, 0.4710E+02,
- * 0.7426E+02, 0.1251E+03, 0.1499E+03 /
- DATA ((UHR(i,j),j=1,83),i=20,20)/
- *-0.7657E-01,-0.7138E-01,-0.5240E-01,-0.2943E-01,-0.1269E-01,
- *-0.4242E-02,-0.1328E-02,-0.8748E-03,-0.1035E-02,-0.1153E-02,
- *-0.1031E-02,-0.6918E-03,-0.9753E-04, 0.7330E-03, 0.1688E-02,
- * 0.2725E-02, 0.3713E-02, 0.4640E-02, 0.5533E-02, 0.6384E-02,
- * 0.7328E-02, 0.8258E-02, 0.9143E-02, 0.1007E-01, 0.1101E-01,
- * 0.1210E-01, 0.1330E-01, 0.1452E-01, 0.1583E-01, 0.1733E-01,
- * 0.1902E-01, 0.2087E-01, 0.2289E-01, 0.2513E-01, 0.2771E-01,
- * 0.3066E-01, 0.3391E-01, 0.3753E-01, 0.4172E-01, 0.4649E-01,
- * 0.5182E-01, 0.5475E-01, 0.5789E-01, 0.6486E-01, 0.7282E-01,
- * 0.8192E-01, 0.9229E-01, 0.1043E+00, 0.1182E+00, 0.1341E+00,
- * 0.1527E+00, 0.1743E+00, 0.1994E+00, 0.2288E+00, 0.2633E+00,
- * 0.3040E+00, 0.3520E+00, 0.4092E+00, 0.4772E+00, 0.5583E+00,
- * 0.6563E+00, 0.7741E+00, 0.9167E+00, 0.1091E+01, 0.1303E+01,
- * 0.1564E+01, 0.1886E+01, 0.2284E+01, 0.2782E+01, 0.3402E+01,
- * 0.4184E+01, 0.5170E+01, 0.6419E+01, 0.8020E+01, 0.1007E+02,
- * 0.1273E+02, 0.1622E+02, 0.2093E+02, 0.2739E+02, 0.3685E+02,
- * 0.5085E+02, 0.6526E+02, 0.6980E+02 /
-
- vi_m=18.2859898
- vi(1)=vi_m
- do 1 i=1,20
- asy(1,i)=asy_m(i)
- ex(1,i)=ex_m(i)
- sc(1,i)=sc_m(i)
- do 1 j=1,nquad
- ph(i,j)=phr(i,j)
- qh(i,j)=qhr(i,j)
- uh(i,j)=uhr(i,j)
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/DUST.h b/Modules/ThirdParty/6S/src/6SV1.0B/DUST.h
deleted file mode 100644
index 5a2ada9..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/DUST.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_dust_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.P b/Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.P
deleted file mode 100644
index d47cb35..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int enviro_(doublereal *difr, doublereal *difa, doublereal *r__, doublereal *palt, doublereal *xmuv, doublereal *fra, doublereal *fae, doublereal *fr);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.c b/Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.c
deleted file mode 100644
index a852868..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.c
+++ /dev/null
@@ -1,156 +0,0 @@
-/* ENVIRO.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< >*/
-/* Subroutine */ int enviro_(doublereal *difr, doublereal *difa, doublereal *
- r__, doublereal *palt, doublereal *xmuv, doublereal *fra, doublereal *
- fae, doublereal *fr)
-{
- /* Initialized data */
-
- static doublereal alt[16] = { .5,1.,2.,3.,4.,5.,6.,7.,8.,10.,12.,14.,16.,
- 18.,20.,60. };
- static doublereal cfr1[16] = { .73,.71,.656,.606,.56,.516,.473,.433,.395,
- .323,.258,.209,.171,.142,.122,.07 };
- static doublereal cfr2[16] = { 2.8,1.51,.845,.634,.524,.465,.429,.405,.39,
- .386,.409,.445,.488,.545,.608,.868 };
- static doublereal cfa1[16] = { .239,.396,.588,.626,.612,.505,.454,.448,
- .444,.445,.444,.448,.448,.448,.448,.448 };
- static doublereal cfa2[16] = { 1.4,1.2,1.02,.86,.74,.56,.46,.42,.38,.34,
- .3,.28,.27,.27,.27,.27 };
- static doublereal cfa3[16] = { 9.17,6.26,5.48,5.16,4.74,3.65,3.24,3.15,
- 3.07,2.97,2.88,2.83,2.83,2.83,2.83,2.83 };
-
- /* Builtin functions */
- double exp(doublereal), log(doublereal);
-
- /* Local variables */
- integer i__;
- doublereal a0, b0, a1, b1, fae0, fra0, zmin, zmax, xlnv, xcfa1, xcfa2,
- xcfa3, xcfr1, xcfr2;
-
-/*< real difr, difa, r, palt >*/
-/*< real fae,fra,fr,fae0,fra0,xmuv,xlnv,a0,b0,a1,b1 >*/
-/*< real zmin,zmax,xcfr1,xcfr2,xcfa1,xcfa2,xcfa3 >*/
-/*< real alt(16),cfr1(16),cfr2(16),cfa1(16),cfa2(16),cfa3(16) >*/
-/*< integer i >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/* calculation of the environmental function for */
-/* rayleigh and aerosols contribution. */
-
-/* this calculation have been done for nadir observation */
-/* and are corrected of the effect of the view zenith angle. */
-
-/*< a0=1.3347 >*/
- a0 = 1.3347;
-/*< b0=0.57757 >*/
- b0 = .57757;
-/*< a1=-1.479 >*/
- a1 = -1.479;
-/*< b1=-1.5275 >*/
- b1 = -1.5275;
-/*< if (palt.ge.60.) then >*/
- if (*palt >= 60.) {
-/*< fae0=1-0.448*exp(-r*0.27)-0.552*exp(-r*2.83) >*/
- fae0 = 1 - exp(-(*r__) * .27) * .448 - exp(-(*r__) * 2.83) * .552;
-/*< fra0=1-0.930*exp(-r*0.080)-0.070*exp(-r*1.100) >*/
- fra0 = 1 - exp(-(*r__) * .08) * .93 - exp(-(*r__) * 1.1) * .07;
-/*< else >*/
- } else {
-/*< i=0 >*/
- i__ = 0;
-/*< 10 i=i+1 >*/
-L10:
- ++i__;
-/*< if (palt.ge.alt(i)) goto 10 >*/
- if (*palt >= alt[i__ - 1]) {
- goto L10;
- }
-/*< if ((i.gt.1).and.(i.le.16)) then >*/
- if (i__ > 1 && i__ <= 16) {
-/*< zmin=alt(i-1) >*/
- zmin = alt[i__ - 2];
-/*< zmax=alt(i) >*/
- zmax = alt[i__ - 1];
-/*< xcfr1=cfr1(i-1)+(cfr1(i)-cfr1(i-1))*(palt-zmin)/(zmax-zmin) >*/
- xcfr1 = cfr1[i__ - 2] + (cfr1[i__ - 1] - cfr1[i__ - 2]) * (*palt
- - zmin) / (zmax - zmin);
-/*< xcfr2=cfr2(i-1)+(cfr2(i)-cfr2(i-1))*(palt-zmin)/(zmax-zmin) >*/
- xcfr2 = cfr2[i__ - 2] + (cfr2[i__ - 1] - cfr2[i__ - 2]) * (*palt
- - zmin) / (zmax - zmin);
-/*< xcfa1=cfa1(i-1)+(cfa1(i)-cfa1(i-1))*(palt-zmin)/(zmax-zmin) >*/
- xcfa1 = cfa1[i__ - 2] + (cfa1[i__ - 1] - cfa1[i__ - 2]) * (*palt
- - zmin) / (zmax - zmin);
-/*< xcfa2=cfa2(i-1)+(cfa2(i)-cfa2(i-1))*(palt-zmin)/(zmax-zmin) >*/
- xcfa2 = cfa2[i__ - 2] + (cfa2[i__ - 1] - cfa2[i__ - 2]) * (*palt
- - zmin) / (zmax - zmin);
-/*< xcfa3=cfa3(i-1)+(cfa3(i)-cfa3(i-1))*(palt-zmin)/(zmax-zmin) >*/
- xcfa3 = cfa3[i__ - 2] + (cfa3[i__ - 1] - cfa3[i__ - 2]) * (*palt
- - zmin) / (zmax - zmin);
-/*< endif >*/
- }
-/*< if (i.eq.1) then >*/
- if (i__ == 1) {
-/*< xcfr1=cfr1(1) >*/
- xcfr1 = cfr1[0];
-/*< xcfr2=cfr2(1) >*/
- xcfr2 = cfr2[0];
-/*< xcfa1=cfa1(1) >*/
- xcfa1 = cfa1[0];
-/*< xcfa2=cfa2(1) >*/
- xcfa2 = cfa2[0];
-/*< xcfa3=cfa3(1) >*/
- xcfa3 = cfa3[0];
-/*< endif >*/
- }
-/*< fra0=1.-xcfr1*exp(-r*xcfr2)-(1.-xcfr1)*exp(-r*0.08) >*/
- fra0 = 1. - xcfr1 * exp(-(*r__) * xcfr2) - (1. - xcfr1) * exp(-(*r__)
- * .08);
-/*< fae0=1.-xcfa1*exp(-r*xcfa2)-(1.-xcfa1)*exp(-r*xcfa3) >*/
- fae0 = 1. - xcfa1 * exp(-(*r__) * xcfa2) - (1. - xcfa1) * exp(-(*r__)
- * xcfa3);
-/*< endif >*/
- }
-/* correction of the effect of the view zenith angle */
-/*< xlnv=log(xmuv) >*/
- xlnv = log(*xmuv);
-/*< fra=fra0*(xlnv*(1-fra0)+1) >*/
- *fra = fra0 * (xlnv * (1 - fra0) + 1);
-/*< >*/
- *fae = fae0 * (a0 * xlnv + 1 + b0 * xlnv * xlnv + fae0 * (a1 * xlnv + b1 *
- xlnv * xlnv) + fae0 * fae0 * ((-a1 - a0) * xlnv + (-b1 - b0) *
- xlnv * xlnv));
-
-/*< if ((difa+difr).gt.1.E-03) then >*/
- if (*difa + *difr > .001) {
-/*< fr=(fae*difa+fra*difr)/(difa+difr) >*/
- *fr = (*fae * *difa + *fra * *difr) / (*difa + *difr);
-/*< else >*/
- } else {
-/*< fr=1. >*/
- *fr = 1.;
-/*< endif >*/
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* enviro_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.f b/Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.f
deleted file mode 100644
index dd8e3b7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.f
+++ /dev/null
@@ -1,70 +0,0 @@
- subroutine enviro (difr,difa,r,palt,xmuv,
- a fra,fae,fr)
- real difr, difa, r, palt
- real fae,fra,fr,fae0,fra0,xmuv,xlnv,a0,b0,a1,b1
- real zmin,zmax,xcfr1,xcfr2,xcfa1,xcfa2,xcfa3
- real alt(16),cfr1(16),cfr2(16),cfa1(16),cfa2(16),cfa3(16)
- integer i
- data (alt(i),i=1,16) /0.5,1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,
- s 10.0,12.0,14.0,16.0,18.0,20.0,60.0/
- data (cfr1(i),i=1,16) /0.730,0.710,0.656,0.606,0.560,0.516,0.473,
- s 0.433,0.395,0.323,0.258,0.209,0.171,0.142,0.122,0.070/
- data (cfr2(i),i=1,16) /2.8,1.51,0.845,0.634,0.524,0.465,0.429,
- s 0.405,0.390,0.386,0.409,0.445,0.488,0.545,0.608,0.868/
- data (cfa1(i),i=1,16) /0.239,0.396,0.588,0.626,0.612,0.505,0.454,
- s 0.448,0.444,0.445,0.444,0.448,0.448,0.448,0.448,0.448/
- data (cfa2(i),i=1,16) /1.40,1.20,1.02,0.86,0.74,0.56,0.46,0.42,
- s 0.38,0.34,0.3,0.28,0.27,0.27,0.27,0.27/
- data (cfa3(i),i=1,16) /9.17,6.26,5.48,5.16,4.74,3.65,3.24,3.15,
- s 3.07,2.97,2.88,2.83,2.83,2.83,2.83,2.83/
-c
-c calculation of the environmental function for
-c rayleigh and aerosols contribution.
-c
-c this calculation have been done for nadir observation
-c and are corrected of the effect of the view zenith angle.
-c
- a0=1.3347
- b0=0.57757
- a1=-1.479
- b1=-1.5275
-
- if (palt.ge.60.) then
- fae0=1-0.448*exp(-r*0.27)-0.552*exp(-r*2.83)
- fra0=1-0.930*exp(-r*0.080)-0.070*exp(-r*1.100)
- else
- i=0
- 10 i=i+1
- if (palt.ge.alt(i)) goto 10
- if ((i.gt.1).and.(i.le.16)) then
- zmin=alt(i-1)
- zmax=alt(i)
- xcfr1=cfr1(i-1)+(cfr1(i)-cfr1(i-1))*(palt-zmin)/(zmax-zmin)
- xcfr2=cfr2(i-1)+(cfr2(i)-cfr2(i-1))*(palt-zmin)/(zmax-zmin)
- xcfa1=cfa1(i-1)+(cfa1(i)-cfa1(i-1))*(palt-zmin)/(zmax-zmin)
- xcfa2=cfa2(i-1)+(cfa2(i)-cfa2(i-1))*(palt-zmin)/(zmax-zmin)
- xcfa3=cfa3(i-1)+(cfa3(i)-cfa3(i-1))*(palt-zmin)/(zmax-zmin)
- endif
- if (i.eq.1) then
- xcfr1=cfr1(1)
- xcfr2=cfr2(1)
- xcfa1=cfa1(1)
- xcfa2=cfa2(1)
- xcfa3=cfa3(1)
- endif
- fra0=1.-xcfr1*exp(-r*xcfr2)-(1.-xcfr1)*exp(-r*0.08)
- fae0=1.-xcfa1*exp(-r*xcfa2)-(1.-xcfa1)*exp(-r*xcfa3)
- endif
-c correction of the effect of the view zenith angle
- xlnv=log(xmuv)
- fra=fra0*(xlnv*(1-fra0)+1)
- fae=fae0*((1+a0*xlnv+b0*xlnv*xlnv)+fae0*(a1*xlnv+b1*xlnv*xlnv)+
- sfae0*fae0*((-a1-a0)*xlnv+(-b1-b0)*xlnv*xlnv))
-c
- if ((difa+difr).gt.1.E-03) then
- fr=(fae*difa+fra*difr)/(difa+difr)
- else
- fr=1.
- endif
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.h b/Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.h
deleted file mode 100644
index 089e732..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ENVIRO.h
+++ /dev/null
@@ -1,10 +0,0 @@
-extern int otb_6s_enviro_(
- otb_6s_doublereal *difr,
- otb_6s_doublereal *difa,
- otb_6s_doublereal *r__,
- otb_6s_doublereal *palt,
- otb_6s_doublereal *xmuv,
- otb_6s_doublereal *fra,
- otb_6s_doublereal *fae,
- otb_6s_doublereal *fr
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.P b/Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.P
deleted file mode 100644
index 43c17aa..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int equivwl_(integer *iinf, integer *isup, doublereal *step, doublereal *wlmoy);
-/* comlen sixs_ffu__ 12024 */
-/*:ref: solirr_ 14 2 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.c b/Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.c
deleted file mode 100644
index d491a6b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.c
+++ /dev/null
@@ -1,71 +0,0 @@
-/* EQUIVWL.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine equivwl(iinf,isup,step,wlmoy) >*/
-/* Subroutine */ int equivwl_(integer *iinf, integer *isup, doublereal *step,
- doublereal *wlmoy)
-{
- /* System generated locals */
- integer i__1;
-
- /* Local variables */
- integer l;
- doublereal wl, seb, swl, coef, sbor, wlwave;
- extern /* Subroutine */ int solirr_(doublereal *, doublereal *);
-
-/*< common /sixs_ffu/s(1501),wlinf,wlsup >*/
-/*< real step,wlmoy,s,wlinf,wlsup,seb,wlwave,sbor,wl,swl,coef >*/
-/*< integer iinf,isup,l >*/
-/*< seb=0. >*/
- seb = 0.;
-/*< wlwave=0. >*/
- wlwave = 0.;
-/*< do 50 l=iinf,isup >*/
- i__1 = *isup;
- for (l = *iinf; l <= i__1; ++l) {
-/*< sbor=s(l) >*/
- sbor = sixs_ffu__1.s[l - 1];
-/*< if(l.eq.iinf.or.l.eq.isup) sbor=sbor*0.5 >*/
- if (l == *iinf || l == *isup) {
- sbor *= .5;
- }
-/*< wl=.25+(l-1)*step >*/
- wl = (l - 1) * *step + .25;
-/*< call solirr(wl,swl) >*/
- solirr_(&wl, &swl);
-/*< coef=sbor*step*swl >*/
- coef = sbor * *step * swl;
-/*< seb=seb+coef >*/
- seb += coef;
-/*< wlwave=wlwave+wl*coef >*/
- wlwave += wl * coef;
-/*< 50 continue >*/
-/* L50: */
- }
-/*< wlmoy=wlwave/seb >*/
- *wlmoy = wlwave / seb;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* equivwl_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.f b/Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.f
deleted file mode 100644
index 692468c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.f
+++ /dev/null
@@ -1,21 +0,0 @@
- subroutine equivwl(iinf,isup,step,wlmoy)
-
- common /sixs_ffu/s(1501),wlinf,wlsup
- real step,wlmoy,s,wlinf,wlsup,seb,wlwave,sbor,wl,swl,coef
- integer iinf,isup,l
-
- seb=0.
- wlwave=0.
-
- do 50 l=iinf,isup
- sbor=s(l)
- if(l.eq.iinf.or.l.eq.isup) sbor=sbor*0.5
- wl=.25+(l-1)*step
- call solirr(wl,swl)
- coef=sbor*step*swl
- seb=seb+coef
- wlwave=wlwave+wl*coef
- 50 continue
- wlmoy=wlwave/seb
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.h b/Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.h
deleted file mode 100644
index bfefdb6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/EQUIVWL.h
+++ /dev/null
@@ -1,6 +0,0 @@
-extern int otb_6s_equivwl_(
- otb_6s_integer *iinf,
- otb_6s_integer *isup,
- otb_6s_doublereal *step,
- otb_6s_doublereal *wlmoy
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.P b/Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.P
deleted file mode 100644
index c2b650c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int gauss_(doublereal *x1, doublereal *x2, doublereal *x, doublereal *w, integer *n);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.c b/Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.c
deleted file mode 100644
index b0500b8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.c
+++ /dev/null
@@ -1,99 +0,0 @@
-/* GAUSS.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine gauss(x1,x2,x,w,n) >*/
-/* Subroutine */ int gauss_(doublereal *x1, doublereal *x2, doublereal *x,
- doublereal *w, integer *n)
-{
- /* System generated locals */
- integer i__1, i__2;
- doublereal d__1;
-
- /* Builtin functions */
- double cos(doublereal);
-
- /* Local variables */
- integer i__, j, m;
- doublereal z__, p1, p2, p3, z1, pp, xl, xm;
-
-/*< integer n >*/
-/*< real x1,x2,x(n),w(n) >*/
-/*< double precision xm,xl,z,p1,p2,p3,pp,z1 >*/
-/*< integer m,i,j >*/
-/*< parameter (eps=3.d-14) >*/
-/*< m=(n+1)/2 >*/
- /* Parameter adjustments */
- --w;
- --x;
-
- /* Function Body */
- m = (*n + 1) / 2;
-/*< xm=0.5d0*(x2+x1) >*/
- xm = (*x2 + *x1) * .5;
-/*< xl=0.5d0*(x2-x1) >*/
- xl = (*x2 - *x1) * .5;
-/*< do 12 i=1,m >*/
- i__1 = m;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< z=cos(3.141592654d0*(i-.25d0)/(n+.5d0)) >*/
- z__ = cos((i__ - .25) * 3.141592654 / (*n + .5));
-/*< 1 continue >*/
-L1:
-/*< p1=1.d0 >*/
- p1 = 1.;
-/*< p2=0.d0 >*/
- p2 = 0.;
-/*< do 11 j=1,n >*/
- i__2 = *n;
- for (j = 1; j <= i__2; ++j) {
-/*< p3=p2 >*/
- p3 = p2;
-/*< p2=p1 >*/
- p2 = p1;
-/*< p1=((2.d0*j-1.d0)*z*p2-(j-1.d0)*p3)/j >*/
- p1 = ((j * 2. - 1.) * z__ * p2 - (j - 1.) * p3) / j;
-/*< 11 continue >*/
-/* L11: */
- }
-/*< pp=n*(z*p1-p2)/(z*z-1.d0) >*/
- pp = *n * (z__ * p1 - p2) / (z__ * z__ - 1.);
-/*< z1=z >*/
- z1 = z__;
-/*< z=z1-p1/pp >*/
- z__ = z1 - p1 / pp;
-/*< if(abs(z-z1).gt.eps)go to 1 >*/
- if ((d__1 = z__ - z1, abs(d__1)) > 3e-14) {
- goto L1;
- }
-/*< if (abs(z).lt.eps) z=0. >*/
- if (abs(z__) < 3e-14) {
- z__ = 0.;
- }
-/*< x(i)=xm-xl*z >*/
- x[i__] = xm - xl * z__;
-/*< x(n+1-i)=xm+xl*z >*/
- x[*n + 1 - i__] = xm + xl * z__;
-/*< w(i)=2.d0*xl/((1.d0-z*z)*pp*pp) >*/
- w[i__] = xl * 2. / ((1. - z__ * z__) * pp * pp);
-/*< w(n+1-i)=w(i) >*/
- w[*n + 1 - i__] = w[i__];
-/*< 12 continue >*/
-/* L12: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* gauss_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.f b/Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.f
deleted file mode 100644
index 4f792ad..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.f
+++ /dev/null
@@ -1,31 +0,0 @@
- subroutine gauss(x1,x2,x,w,n)
- integer n
- real x1,x2,x(n),w(n)
- double precision xm,xl,z,p1,p2,p3,pp,z1
- integer m,i,j
- parameter (eps=3.d-14)
- m=(n+1)/2
- xm=0.5d0*(x2+x1)
- xl=0.5d0*(x2-x1)
- do 12 i=1,m
- z=cos(3.141592654d0*(i-.25d0)/(n+.5d0))
-1 continue
- p1=1.d0
- p2=0.d0
- do 11 j=1,n
- p3=p2
- p2=p1
- p1=((2.d0*j-1.d0)*z*p2-(j-1.d0)*p3)/j
-11 continue
- pp=n*(z*p1-p2)/(z*z-1.d0)
- z1=z
- z=z1-p1/pp
- if(abs(z-z1).gt.eps)go to 1
- if (abs(z).lt.eps) z=0.
- x(i)=xm-xl*z
- x(n+1-i)=xm+xl*z
- w(i)=2.d0*xl/((1.d0-z*z)*pp*pp)
- w(n+1-i)=w(i)
-12 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.h b/Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.h
deleted file mode 100644
index b3c9582..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/GAUSS.h
+++ /dev/null
@@ -1,7 +0,0 @@
-extern int otb_6s_gauss_(
- otb_6s_doublereal *x1,
- otb_6s_doublereal *x2,
- otb_6s_doublereal *x,
- otb_6s_doublereal *w,
- otb_6s_integer *n
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/GLI.P b/Modules/ThirdParty/6S/src/6SV1.0B/GLI.P
deleted file mode 100644
index 0f99f08..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/GLI.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int gli_(integer *iwa);
-/* comlen sixs_ffu__ 12024 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/GLI.c b/Modules/ThirdParty/6S/src/6SV1.0B/GLI.c
deleted file mode 100644
index 7ae0fd6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/GLI.c
+++ /dev/null
@@ -1,2366 +0,0 @@
-/* GLI.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine gli(iwa)
>*/
-/* Subroutine */ int gli_(integer *iwa)
-{
- /* Initialized data */
-
- static doublereal sr[45030] /* was [30][1501] */ = { 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,6e-4,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.,0.,0.,0.,0.,.0143,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.,0.,0.,0.,0.,
- .1695,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.,0.,0.,0.,0.,.7856,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.,0.,0.,0.,0.,1.,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.,
- 0.,0.,0.,0.,.8603,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.,0.,0.,0.,0.,.6609,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.,0.,0.,0.,0.,
- .1362,1e-4,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.,0.,0.,0.,.0046,.0032,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.,0.,0.,0.,0.,
- .0578,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.,0.,0.,0.,0.,.3966,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.,0.,0.,0.,0.,.8555,6e-4,
- 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.,0.,0.,0.,1.,.0018,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.,0.,0.,0.,.8754,.0115,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.,
- 0.,0.,0.,.3549,.1084,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.,0.,0.,0.,.0191,.495,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.,0.,0.,
- 0.,.0021,.9144,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.,0.,0.,0.,2e-4,.9933,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.,0.,0.,0.,0.,
- 1.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0043,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.504,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.016,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0449,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0373,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0055,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.872,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0023,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1678,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,8e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.3194,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.,0.,0.,0.,0.,.494,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.0013,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6032,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0284,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.6765,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.3606,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.7175,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9418,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,.7529,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.,.768,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.8609,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.7501,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.4104,5e-4,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.7582,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0245,.0041,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.7786,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,9e-4,.0679,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.8087,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.5128,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.8411,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.,.865,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.9945,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .8807,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.8005,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.886,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.2593,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9122,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.018,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.9378,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.0025,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9493,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.,0.,0.,0.,0.,.9414,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 9e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9247,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0028,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.9108,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0132,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9236,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.1541,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.9582,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.67,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.,1.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9741,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9974,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.8148,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.9177,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5002,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5027,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.2119,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .0599,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0787,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0058,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.0308,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0018,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0147,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,4e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.0077,.0059,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0016,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0041,.015,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0081,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.0368,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1404,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0908,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.6543,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .2109,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.,.4416,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.9842,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.703,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.8295,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.8303,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.3512,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.8361,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0247,8e-4,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,.8131,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.0023,.0017,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.8287,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0054,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.8874,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.0356,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9466,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2764,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.9827,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .705,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.,0.,1.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .9816,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9969,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9369,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,.7746,3e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .9247,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.3752,.0011,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9719,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0672,.004,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .9915,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0096,.0215,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.936,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0034,.175,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .9012,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0012,.537,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9332,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.9137,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .8642,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.,.6192,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,.85,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.367,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5092,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,.1984,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.1436,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0938,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0214,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.0363,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.0073,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0145,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0031,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.0061,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .0011,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,.005,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.003,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0084,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0066,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.0126,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.0296,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0193,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1705,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.0333,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .5002,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0606,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9069,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.101,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.,.1526,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.8731,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2315,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5293,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.3722,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.1088,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5786,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0148,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,.7782,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,9e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.8558,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,3e-4,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.8646,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.,0.,0.,0.,0.,.8744,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.,0.,0.,0.,0.,
- .8732,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.,0.,0.,0.,0.,.8729,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.,0.,0.,0.,0.,.8772,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0027,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,.8969,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.008,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9213,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0602,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.9401,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.2599,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9467,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6287,0.,.0052,0.,0.,0.,0.,0.,
- 0.,0.,0.,.9453,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.9786,.0035,.0024,0.,0.,0.,0.,0.,0.,0.,0.,.9485,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.,.0041,.0112,0.,0.,0.,0.,
- 0.,0.,0.,0.,.9656,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.8146,.0196,.0766,0.,0.,0.,0.,0.,0.,0.,0.,.9844,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.4406,.1472,.323,0.,0.,
- 0.,0.,0.,0.,0.,0.,.9986,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.0821,.4664,.7425,0.,0.,0.,0.,0.,0.,0.,0.,1.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0101,.8574,1.,0.,0.,
- 0.,0.,0.,0.,0.,0.,.9907,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,6e-4,1.,.9832,0.,0.,0.,0.,0.,0.,0.,0.,.9971,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,2e-4,.841,.751,0.,0.,
- 0.,0.,0.,0.,0.,0.,.9878,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.5263,.3495,0.,0.,0.,0.,0.,0.,0.,0.,.9479,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1281,.0496,0.,0.,
- 0.,0.,0.,0.,0.,0.,.828,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.0117,6e-4,0.,0.,0.,0.,0.,0.,0.,0.,.6115,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,5e-4,3e-4,.0019,
- .0019,0.,0.,0.,0.,0.,0.,.3401,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,2e-4,2e-4,.0058,.0058,0.,0.,0.,0.,0.,0.,
- .1529,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 1e-4,.0069,.0094,0.,0.,0.,0.,0.,0.,.0736,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.031,.0462,0.,0.,0.,0.,0.,
- 0.,.0391,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.1591,.2016,0.,0.,0.,0.,0.,0.,.0237,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.4483,.5075,0.,0.,0.,0.,0.,
- 0.,.0143,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.802,.859,0.,0.,0.,0.,0.,0.,.008,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.,1.,0.,0.,0.,0.,0.,0.,.004,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .9333,.9067,0.,0.,0.,0.,0.,0.,.0022,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6808,.6282,0.,0.,0.,0.,0.,0.,
- .0013,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.3058,.2518,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.,0.,0.,0.,.0424,.0323,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.,0.,0.,0.,
- .0055,.0042,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.,0.,0.,0.,7e-4,5e-4,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.,0.,0.,0.,2e-4,
- 1e-4,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0035,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.,0.,0.,0.,0.,.0038,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.,0.,0.,0.,0.,.0173,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.,0.,0.,0.,
- 0.,.0867,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.,0.,0.,0.,0.,.322,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.,0.,0.,0.,0.,.7013,0.,
- 0.,0.,0.,0.,0.,.0104,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.9994,0.,0.,0.,0.,0.,0.,.0166,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.,.0013,0.,0.,
- 0.,0.,0.,.0242,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.8014,.0076,0.,0.,0.,0.,0.,.0289,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.4503,.0821,0.,0.,
- 0.,0.,0.,.0393,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.1004,.3724,0.,0.,0.,0.,0.,.0477,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0152,.8271,0.,0.,
- 0.,0.,0.,.062,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.0023,1.,0.,0.,0.,0.,0.,.0847,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,4e-4,.7206,0.,0.,0.,
- 0.,0.,.1155,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.2798,0.,0.,0.,0.,0.,.1654,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0199,0.,0.,0.,0.,0.,
- .2424,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.0031,0.,0.,0.,0.,0.,.3491,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.,0.,0.,0.,0.,.4884,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.,0.,0.,0.,0.,.6336,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.,0.,0.,0.,0.,.7547,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.,0.,0.,
- 0.,0.,.8044,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.,0.,0.,0.,0.,.8386,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.,0.,0.,0.,0.,.8373,
- 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.,0.,0.,0.,0.,.8479,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.,0.,0.,0.,0.,.8822,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.,0.,
- 0.,0.,0.,.929,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.,0.,0.,0.,0.,.9644,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.,0.,0.,0.,0.,
- .9888,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.,0.,0.,0.,0.,.9916,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.,0.,0.,0.,0.,1.,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.,
- 0.,0.,0.,0.,.993,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.,0.,0.,0.,0.,.9925,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.,0.,0.,0.,0.,
- .9916,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.,0.,0.,0.,0.,.9944,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.,0.,0.,0.,0.,.9841,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.,0.,0.,0.,0.,.9813,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.,0.,0.,0.,0.,.9757,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.,0.,0.,0.,
- 0.,.9747,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.,0.,0.,0.,0.,.9574,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.,0.,0.,0.,0.,.9523,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.,0.,0.,0.,0.,.937,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.,0.,0.,0.,0.,.9242,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.,0.,0.,
- 0.,0.,.91,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,.0013,0.,0.,0.,0.,.9003,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0031,0.,0.,0.,0.,
- .8681,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.0024,0.,0.,0.,0.,.8372,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0084,0.,0.,0.,0.,.7883,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.0324,.001,0.,0.,0.,.7708,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1326,.0065,0.,0.,0.,.776,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.3645,.0299,0.,0.,0.,.7806,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.684,.1312,0.,0.,0.,.7435,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.9222,.383,0.,0.,0.,.732,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9612,.7718,0.,0.,0.,.7169,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.974,1.,0.,0.,0.,.6866,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.,.9379,0.,0.,0.,.6593,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .9819,.704,0.,0.,0.,.6233,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.8727,.2942,0.,0.,0.,.5975,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .685,.0449,0.,0.,0.,.589,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.3029,4e-4,0.,0.,0.,.5268,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .0679,1e-4,0.,0.,0.,.4429,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0226,0.,0.,0.,0.,.3085,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .007,0.,0.,0.,0.,.1714,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0204,0.,0.,0.,0.,.0903,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0137,
- 0.,0.,0.,0.,.0485,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.0033,0.,0.,0.,0.,.0261,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.,0.,0.,0.,
- 0.,.0138,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.,0.,0.,0.,0.,.0069,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.,0.,0.,0.,0.,.0031,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.,0.,0.,0.,0.,.0014,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.,0.,0.,0.,0.,.0014,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.,0.,0.,
- 0.,0.,8e-4,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .0043,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.,0.,0.,0.,0.,.0253,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.,0.,0.,0.,0.,.1014,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.,0.,0.,0.,0.,.2803,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.,0.,0.,0.,0.,.5436,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.,0.,0.,0.,
- 0.,.8665,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.,0.,0.,0.,0.,1.,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.,0.,0.,0.,0.,.9959,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.,0.,0.,0.,0.,.9545,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.,0.,0.,0.,0.,.916,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.,0.,0.,0.,
- 0.,.82,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.,0.,0.,0.,0.,.664,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.,0.,0.,0.,0.,.4227,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.,0.,0.,0.,0.,.1146,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.,0.,0.,0.,0.,.0191,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.,0.,0.,
- 0.,0.,.0049,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.,0.,0.,0.,0.,.0037,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.,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.,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.,
- 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.,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.,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.,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.,0.,0.,0.,0.,0.,.0032,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.,
- 0.,0.,0.,0.,.0064,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.,0.,0.,0.,0.,.0135,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.,0.,0.,0.,0.,
- .0313,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.,0.,0.,0.,0.,.0709,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.,0.,0.,0.,0.,.1657,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.,0.,0.,0.,0.,.3032,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.,0.,0.,0.,0.,.5037,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.,0.,0.,0.,
- 0.,.7128,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.,0.,0.,0.,0.,.8368,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.,0.,0.,0.,0.,.8686,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.,0.,0.,0.,0.,.8896,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.,0.,0.,0.,0.,.8938,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.,0.,0.,
- 0.,0.,.8909,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.,0.,0.,0.,0.,.915,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.,0.,0.,0.,0.,.9421,
- 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.,0.,0.,0.,0.,.9305,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.,0.,0.,0.,0.,.9427,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.,0.,
- 0.,0.,0.,1.,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.,0.,0.,0.,0.,.9961,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.,0.,0.,0.,0.,.9556,
- 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.,0.,0.,0.,0.,.9633,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.,0.,0.,0.,0.,.9678,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.,0.,
- 0.,0.,0.,.8963,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.,0.,0.,0.,0.,.8757,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.,0.,0.,0.,0.,
- .8838,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.,0.,0.,0.,0.,.8893,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.,0.,0.,0.,0.,.8777,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.,0.,0.,0.,0.,.8674,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.,0.,0.,0.,0.,.8761,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.,0.,0.,0.,
- 0.,.8867,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.,0.,0.,0.,0.,.8587,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.,0.,0.,0.,0.,.794,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.,0.,0.,0.,0.,.7151,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.,0.,0.,0.,0.,.5976,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.,0.,0.,
- 0.,0.,.4265,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.,0.,0.,0.,0.,.2509,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.,0.,0.,0.,0.,.1289,
- 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.,0.,0.,0.,0.,.0623,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.,0.,0.,0.,0.,.0317,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.,0.,
- 0.,0.,0.,.0159,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.,0.,0.,0.,0.,.0085,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.,0.,0.,0.,0.,
- .0046,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0058,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.,0.,0.,0.,0.,.0178,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.,0.,0.,0.,0.,.0508,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.,0.,0.,0.,0.,.141,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.,0.,0.,
- 0.,0.,.2924,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.,0.,0.,0.,0.,.5056,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.,0.,0.,0.,0.,.7681,
- 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.,0.,0.,0.,0.,.9331,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.,0.,0.,0.,0.,.993,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.,0.,
- 0.,0.,0.,1.,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.,0.,0.,0.,0.,.927,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.,0.,0.,0.,0.,.8278,
- 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.,0.,0.,0.,0.,.5676,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.,0.,0.,0.,0.,.249,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.,0.,
- 0.,0.,0.,.0835,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.,0.,0.,0.,0.,.0235,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.,0.,0.,0.,0.,
- .0059,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.,0.,0.,0.,0.,.002,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0068,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.,0.,0.,0.,0.,.0219,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.,0.,0.,0.,0.,.0541,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.,0.,0.,
- 0.,0.,.1136,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.,0.,0.,0.,0.,.2214,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.,0.,0.,0.,0.,.3447,
- 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.,0.,0.,0.,0.,.4893,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.,0.,0.,0.,0.,.6701,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.,0.,
- 0.,0.,0.,.777,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.,0.,0.,0.,0.,.8363,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.,0.,0.,0.,0.,
- .9081,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.,0.,0.,0.,0.,.9563,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.,0.,0.,0.,0.,.9807,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.,0.,0.,0.,0.,1.,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.,0.,0.,0.,0.,.9893,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.,0.,0.,0.,0.,
- .9989,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.,0.,0.,0.,0.,.9617,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.,0.,0.,0.,0.,.9284,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.,0.,0.,0.,0.,.8841,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.,0.,0.,0.,0.,.7611,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.,0.,0.,0.,
- 0.,.6234,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.,0.,0.,0.,0.,.4452,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.,0.,0.,0.,0.,.2543,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.,0.,0.,0.,0.,.095,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.,0.,0.,0.,0.,.0273,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.,0.,0.,
- 0.,0.,.0081,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.,0.,0.,0.,0.,.0034,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.,0.,0.,0.,0.,8e-4,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,.0022,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.,0.,0.,0.,0.,
- .0042,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.,0.,0.,0.,0.,.0072,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.,0.,0.,0.,0.,.0114,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.,0.,0.,0.,0.,.0181,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.,0.,0.,0.,0.,.0304,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.,0.,0.,0.,
- 0.,.05,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.,0.,0.,0.,0.,.0864,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.,0.,0.,0.,0.,.1525,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.,0.,0.,0.,0.,.2561,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.,0.,0.,0.,0.,.3996,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.,0.,0.,
- 0.,0.,.5604,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.,0.,0.,0.,0.,.6781,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.,0.,0.,0.,0.,.7316,
- 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.,0.,0.,0.,0.,.7521,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.,0.,0.,0.,0.,.7678,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.,0.,
- 0.,0.,0.,.7857,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.,0.,0.,0.,0.,.8055,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.,0.,0.,0.,0.,
- .8261,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.,0.,0.,0.,0.,.8478,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.,0.,0.,0.,0.,.865,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.,0.,0.,0.,0.,.8731,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.,0.,0.,0.,0.,.8779,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.,0.,0.,0.,
- 0.,.884,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.,0.,0.,0.,0.,.8911,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.,0.,0.,0.,0.,.8986,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.,0.,0.,0.,0.,.9087,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.,0.,0.,0.,0.,.9211,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.,0.,0.,
- 0.,0.,.9313,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.,0.,0.,0.,0.,.933,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.,0.,0.,0.,0.,.9345,
- 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.,0.,0.,0.,0.,.9424,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.,0.,0.,0.,0.,.9474,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.,0.,
- 0.,0.,0.,.9456,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.,0.,0.,0.,0.,.9506,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.,0.,0.,0.,0.,
- .9539,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.,0.,0.,0.,0.,.9576,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.,0.,0.,0.,0.,.955,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.,0.,0.,0.,0.,.9544,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.,0.,0.,0.,0.,.9609,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.,0.,0.,0.,
- 0.,.9611,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.,0.,0.,0.,0.,.9619,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.,0.,0.,0.,0.,.9638,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.,0.,0.,0.,0.,.9628,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.,0.,0.,0.,0.,.9564,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.,0.,0.,
- 0.,0.,.9435,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.,0.,0.,0.,0.,.9316,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.,0.,0.,0.,0.,.9189,
- 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.,0.,0.,0.,0.,.9044,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.,0.,0.,0.,0.,.8829,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.,0.,
- 0.,0.,0.,.8633,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.,0.,0.,0.,0.,.8435,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.,0.,0.,0.,0.,
- .8332,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.,0.,0.,0.,0.,.8268,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.,0.,0.,0.,0.,.8248,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.,0.,0.,0.,0.,.8276,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.,0.,0.,0.,0.,.8342,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.,0.,0.,0.,
- 0.,.8459,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.,0.,0.,0.,0.,.8605,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.,0.,0.,0.,0.,.8739,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.,0.,0.,0.,0.,.8905,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.,0.,0.,0.,0.,.9054,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.,0.,0.,
- 0.,0.,.9116,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.,0.,0.,0.,0.,.9168,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.,0.,0.,0.,0.,.9208,
- 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.,0.,0.,0.,0.,.9184,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.,0.,0.,0.,0.,.917,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.,0.,
- 0.,0.,0.,.9159,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.,0.,0.,0.,0.,.9161,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.,0.,0.,0.,0.,
- .9123,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.,0.,0.,0.,0.,.9065,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.,0.,0.,0.,0.,.9042,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.,0.,0.,0.,0.,.908,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.,0.,0.,0.,0.,.9129,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.,0.,0.,0.,
- 0.,.9168,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.,0.,0.,0.,0.,.9267,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.,0.,0.,0.,0.,.941,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.,0.,0.,0.,0.,.9501,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.,0.,0.,0.,0.,.9547,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.,0.,0.,
- 0.,0.,.9648,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.,0.,0.,0.,0.,.9752,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.,0.,0.,0.,0.,.9831,
- 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.,0.,0.,0.,0.,.9887,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.,0.,0.,0.,0.,.9962,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.,0.,
- 0.,0.,0.,1.,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.,0.,0.,0.,0.,.9988,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.,0.,0.,0.,0.,.9887,
- 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.,0.,0.,0.,0.,.9686,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.,0.,0.,0.,0.,.9239,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.,0.,
- 0.,0.,0.,.8401,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.,0.,0.,0.,0.,.7266,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.,0.,0.,0.,0.,
- .5947,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.,0.,0.,0.,0.,.4558,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.,0.,0.,0.,0.,.333,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.,0.,0.,0.,0.,.2379,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.,0.,0.,0.,0.,.1669,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.,0.,0.,0.,
- 0.,.1172,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.,0.,0.,0.,0.,.0851,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.,0.,0.,0.,0.,.0612,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.,0.,0.,0.,0.,.0453,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.,0.,0.,0.,0.,.0333,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.,0.,0.,
- 0.,0.,.0244,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.,0.,0.,0.,0.,.0193,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.0045,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.,0.,0.,0.,0.,.0027,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.,0.,0.,0.,0.,.0087,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.,0.,0.,0.,0.,.0069,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.,0.,0.,0.,0.,.0105,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.,0.,0.,
- 0.,0.,.0153,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.,0.,0.,0.,0.,.0255,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.,0.,0.,0.,0.,.039,
- 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.,0.,0.,0.,0.,.0653,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.,0.,0.,0.,0.,.1022,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.,0.,
- 0.,0.,0.,.1419,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.,0.,0.,0.,0.,.2048,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.,0.,0.,0.,0.,
- .2903,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.,0.,0.,0.,0.,.4057,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.,0.,0.,0.,0.,.5334,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.,0.,0.,0.,0.,.665,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.,0.,0.,0.,0.,.7886,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.,0.,0.,0.,
- 0.,.8657,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.,0.,0.,0.,0.,.9184,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.,0.,0.,0.,0.,.9321,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.,0.,0.,0.,0.,.9491,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.,0.,0.,0.,0.,.9246,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.,0.,0.,
- 0.,0.,.9173,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.,0.,0.,0.,0.,.9147,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.,0.,0.,0.,0.,.9202,
- 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.,0.,0.,0.,0.,.9112,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.,0.,0.,0.,0.,.9217,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.,0.,
- 0.,0.,0.,.9243,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.,0.,0.,0.,0.,.9385,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.,0.,0.,0.,0.,
- .9563,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.,0.,0.,0.,0.,1.,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.,0.,0.,0.,0.,.9859,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.,
- 0.,0.,0.,0.,.9868,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.,0.,0.,0.,0.,.9994,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.,0.,0.,0.,0.,
- .9922,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.,0.,0.,0.,0.,.9815,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.,0.,0.,0.,0.,.9908,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.,0.,0.,0.,0.,.9855,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.,0.,0.,0.,0.,.9711,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.,0.,0.,0.,
- 0.,.9728,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.,0.,0.,0.,0.,.9782,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.,0.,0.,0.,0.,.9934,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.,0.,0.,0.,0.,.9558,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.,0.,0.,0.,0.,.9815,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.,0.,0.,
- 0.,0.,.9481,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.,0.,0.,0.,0.,.9466,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.,0.,0.,0.,0.,.9257,
- 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.,0.,0.,0.,0.,.9285,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.,0.,0.,0.,0.,.9403,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.,0.,
- 0.,0.,0.,.9677,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.,0.,0.,0.,0.,.9883,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.,0.,0.,0.,0.,
- .965,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.,0.,0.,0.,0.,.9908,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.,0.,0.,0.,0.,.9337,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.,0.,0.,0.,0.,.9125,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.,0.,0.,0.,0.,.8639,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.,0.,0.,0.,
- 0.,.8543,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.,0.,0.,0.,0.,.8834,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.,0.,0.,0.,0.,.8884,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.,0.,0.,0.,0.,.9043,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.,0.,0.,0.,0.,.8717,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.,0.,0.,
- 0.,0.,.882,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.,0.,0.,0.,0.,.8926,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.,0.,0.,0.,0.,.8361,
- 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.,0.,0.,0.,0.,.7852,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.,0.,0.,0.,0.,.75,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.,0.,
- 0.,0.,0.,.7733,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.,0.,0.,0.,0.,.7568,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.,0.,0.,0.,0.,
- .7741,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.,0.,0.,0.,0.,.7927,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.,0.,0.,0.,0.,.7819,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.,0.,0.,0.,0.,.7689,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.,0.,0.,0.,0.,.7631,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.,0.,0.,0.,
- 0.,.7051,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.,0.,0.,0.,0.,.7291,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.,0.,0.,0.,0.,.6841,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.,0.,0.,0.,0.,.678,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.,0.,0.,0.,0.,.6827,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.,0.,0.,
- 0.,0.,.7425,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.,0.,0.,0.,0.,.6906,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.,0.,0.,0.,0.,.7343,
- 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.,0.,0.,0.,0.,.6891,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.,0.,0.,0.,0.,.6785,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.,0.,
- 0.,0.,0.,.6517,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.,0.,0.,0.,0.,.619,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.,0.,0.,0.,0.,
- .6325,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.,0.,0.,0.,0.,.6353,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.,0.,0.,0.,0.,.6531,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.,0.,0.,0.,0.,.6623,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.,0.,0.,0.,0.,.7007,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.,0.,0.,0.,
- 0.,.6663,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.,0.,0.,0.,0.,.6919,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.,0.,0.,0.,0.,.6916,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.,0.,0.,0.,0.,.6454,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.,0.,0.,0.,0.,.6366,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.,0.,0.,
- 0.,0.,.6423,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.,0.,0.,0.,0.,.647,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.,0.,0.,0.,0.,.6354,
- 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.,0.,0.,0.,0.,.6512,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.,0.,0.,0.,0.,.6222,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.,0.,
- 0.,0.,0.,.6069,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.,0.,0.,0.,0.,.5461,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.,0.,0.,0.,0.,
- .5012,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.,0.,0.,0.,0.,.4481,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.,0.,0.,0.,0.,.3781,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.,0.,0.,0.,0.,.3251,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.,0.,0.,0.,0.,.279,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.,0.,0.,0.,
- 0.,.2318,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.,0.,0.,0.,0.,.1869,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.,0.,0.,0.,0.,.1509,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.,0.,0.,0.,0.,.1173,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.,0.,0.,0.,0.,.0889,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.,0.,0.,
- 0.,0.,.0676,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.,0.,0.,0.,0.,.043,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.,0.,0.,0.,0.,.0306,
- 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.,0.,0.,0.,0.,.0267,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.,0.,0.,0.,0.,.0247,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,1e-4,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.,0.,0.,0.,0.,1e-4,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.,0.,0.,0.,0.,1e-4,
- 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.,0.,0.,0.,0.,1e-4,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.,0.,0.,0.,0.,1e-4,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.,0.,
- 0.,0.,0.,1e-4,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.,0.,0.,0.,0.,2e-4,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.,0.,0.,0.,0.,
- 2e-4,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.,0.,0.,0.,0.,2e-4,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.,0.,0.,0.,0.,3e-4,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.,0.,0.,0.,0.,3e-4,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.,0.,0.,0.,0.,3e-4,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.,0.,0.,0.,
- 0.,3e-4,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.,0.,0.,0.,0.,3e-4,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.,0.,0.,0.,0.,3e-4,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.,0.,0.,0.,0.,3e-4,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.,0.,0.,0.,0.,3e-4,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.,0.,0.,
- 0.,0.,4e-4,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.,0.,0.,0.,0.,5e-4,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.,0.,0.,0.,0.,5e-4,
- 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.,0.,0.,0.,0.,5e-4,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.,0.,0.,0.,0.,6e-4,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.,0.,
- 0.,0.,0.,7e-4,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.,0.,0.,0.,0.,9e-4,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.,0.,0.,0.,0.,
- .0012,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.,0.,0.,0.,0.,.0011,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.,0.,0.,0.,0.,.001,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.,0.,0.,0.,0.,.0013,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.,0.,0.,0.,0.,.0016,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.,0.,0.,0.,
- 0.,.0018,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.,0.,0.,0.,0.,.0021,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.,0.,0.,0.,0.,.0022,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.,0.,0.,0.,0.,.0022,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.,0.,0.,0.,0.,.0024,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.,0.,0.,
- 0.,0.,.0025,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.,0.,0.,0.,0.,.0027,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.,0.,0.,0.,0.,.0028,
- 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.,0.,0.,0.,0.,.003,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.,0.,0.,0.,0.,.0031,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.,0.,
- 0.,0.,0.,.0037,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.,0.,0.,0.,0.,.0042,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.,0.,0.,0.,0.,
- .0043,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.,0.,0.,0.,0.,.0044,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.,0.,0.,0.,0.,.0047,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.,0.,0.,0.,0.,.0049,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.,0.,0.,0.,0.,.0052,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.,0.,0.,0.,
- 0.,.0054,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.,0.,0.,0.,0.,.0059,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.,0.,0.,0.,0.,.0063,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.,0.,0.,0.,0.,.0066,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.,0.,0.,0.,0.,.0068,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.,0.,0.,
- 0.,0.,.007,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.,0.,0.,0.,0.,.0071,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.,0.,0.,0.,0.,.0075,
- 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.,0.,0.,0.,0.,.0079,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.,0.,0.,0.,0.,.0083,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.,0.,
- 0.,0.,0.,.0088,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.,0.,0.,0.,0.,.009,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.,0.,0.,0.,0.,
- .0092,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.,0.,0.,0.,0.,.0097,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.,0.,0.,0.,0.,.0102,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.,0.,0.,0.,0.,.0104,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.,0.,0.,0.,0.,.0106,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.,0.,0.,0.,
- 0.,.0107,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.,0.,0.,0.,0.,.0108,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.,0.,0.,0.,0.,.0114,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.,0.,0.,0.,0.,.012,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.,0.,0.,0.,0.,.0124,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.,0.,0.,
- 0.,0.,.0129,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.,0.,0.,0.,0.,.0135,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.,0.,0.,0.,0.,.0141,
- 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.,0.,0.,0.,0.,.0149,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.,0.,0.,0.,0.,.0157,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.,0.,
- 0.,0.,0.,.0159,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.,0.,0.,0.,0.,.0161,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.,0.,0.,0.,0.,
- .0168,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.,0.,0.,0.,0.,.0176,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.,0.,0.,0.,0.,.0185,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.,0.,0.,0.,0.,.0193,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.,0.,0.,0.,0.,.0197,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.,0.,0.,0.,
- 0.,.0202,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.,0.,0.,0.,0.,.0209,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.,0.,0.,0.,0.,.0217,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.,0.,0.,0.,0.,.0229,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.,0.,0.,0.,0.,.0241,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.,0.,0.,
- 0.,0.,.025,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.,0.,0.,0.,0.,.0259,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.,0.,0.,0.,0.,.0267,
- 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.,0.,0.,0.,0.,.0275,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.,0.,0.,0.,0.,.0286,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.,0.,
- 0.,0.,0.,.0297,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.,0.,0.,0.,0.,.0305,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.,0.,0.,0.,0.,
- .0313,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.,0.,0.,0.,0.,.0327,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.,0.,0.,0.,0.,.0341,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.,0.,0.,0.,0.,.0355,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.,0.,0.,0.,0.,.0368,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.,0.,0.,0.,
- 0.,.0381,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.,0.,0.,0.,0.,.0393,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.,0.,0.,0.,0.,.0409,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.,0.,0.,0.,0.,.0424,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.,0.,0.,0.,0.,.0437,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.,0.,0.,
- 0.,0.,.0449,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.,0.,0.,0.,0.,.0472,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.,0.,0.,0.,0.,.0495,
- 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.,0.,0.,0.,0.,.0511,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.,0.,0.,0.,0.,.0528,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.,0.,
- 0.,0.,0.,.0561,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.,0.,0.,0.,0.,.0594,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.,0.,0.,0.,0.,
- .0629,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.,0.,0.,0.,0.,.0663,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.,0.,0.,0.,0.,.0707,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.,0.,0.,0.,0.,.0751,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.,0.,0.,0.,0.,.0808,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.,0.,0.,0.,
- 0.,.0865,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.,0.,0.,0.,0.,.0935,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.,0.,0.,0.,0.,.1005,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.,0.,0.,0.,0.,.11,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.,0.,0.,0.,0.,.1196,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.,0.,0.,
- 0.,0.,.1335,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.,0.,0.,0.,0.,.1475,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.,0.,0.,0.,0.,.1652,
- 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.,0.,0.,0.,0.,.1829,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.,0.,0.,0.,0.,.206,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.,0.,
- 0.,0.,0.,.2291,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.,0.,0.,0.,0.,.2611,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.,0.,0.,0.,0.,
- .2931,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.,0.,0.,0.,0.,.3323,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.,0.,0.,0.,0.,.3715,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.,0.,0.,0.,0.,.4179,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.,0.,0.,0.,0.,.4643,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.,0.,0.,0.,
- 0.,.514,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.,0.,0.,0.,0.,.5637,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.,0.,0.,0.,0.,.6106,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.,0.,0.,0.,0.,.6575,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.,0.,0.,0.,0.,.6951,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.,0.,0.,
- 0.,0.,.7328,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.,0.,0.,0.,0.,.7539,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.,0.,0.,0.,0.,.7749,
- 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.,0.,0.,0.,0.,.7815,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.,0.,0.,0.,0.,.7881,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.,0.,
- 0.,0.,0.,.786,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.,0.,0.,0.,0.,.7838,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.,0.,0.,0.,0.,
- .7813,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.,0.,0.,0.,0.,.7789,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.,0.,0.,0.,0.,.78,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.,0.,0.,0.,0.,.7812,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.,0.,0.,0.,0.,.7868,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.,0.,0.,0.,
- 0.,.7924,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.,0.,0.,0.,0.,.7973,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.,0.,0.,0.,0.,.8022,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.,0.,0.,0.,0.,.808,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.,0.,0.,0.,0.,.8138,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.,0.,0.,
- 0.,0.,.8203,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.,0.,0.,0.,0.,.8269,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.,0.,0.,0.,0.,.8315,
- 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.,0.,0.,0.,0.,.8361,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.,0.,0.,0.,0.,.8401,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.,0.,
- 0.,0.,0.,.844,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.,0.,0.,0.,0.,.8472,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.,0.,0.,0.,0.,
- .8503,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.,0.,0.,0.,0.,.8532,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.,0.,0.,0.,0.,.8562,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.,0.,0.,0.,0.,.8572,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.,0.,0.,0.,0.,.8582,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.,0.,0.,0.,
- 0.,.8582,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.,0.,0.,0.,0.,.8582,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.,0.,0.,0.,0.,.857,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.,0.,0.,0.,0.,.8559,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.,0.,0.,0.,0.,.8552,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.,0.,0.,
- 0.,0.,.8546,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.,0.,0.,0.,0.,.8551,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.,0.,0.,0.,0.,.8555,
- 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.,0.,0.,0.,0.,.8575,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.,0.,0.,0.,0.,.8595,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.,0.,
- 0.,0.,0.,.8626,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.,0.,0.,0.,0.,.8658,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.,0.,0.,0.,0.,
- .8702,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.,0.,0.,0.,0.,.8746,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.,0.,0.,0.,0.,.8799,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.,0.,0.,0.,0.,.8852,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.,0.,0.,0.,0.,.8921,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.,0.,0.,0.,
- 0.,.899,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.,0.,0.,0.,0.,.9075,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.,0.,0.,0.,0.,.9161,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.,0.,0.,0.,0.,.9232,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.,0.,0.,0.,0.,.9302,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.,0.,0.,
- 0.,0.,.9355,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.,0.,0.,0.,0.,.9408,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.,0.,0.,0.,0.,.9459,
- 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.,0.,0.,0.,0.,.951,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.,0.,0.,0.,0.,.9543,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.,0.,
- 0.,0.,0.,.9576,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.,0.,0.,0.,0.,.9594,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.,0.,0.,0.,0.,
- .9612,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.,0.,0.,0.,0.,.9605,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.,0.,0.,0.,0.,.9599,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.,0.,0.,0.,0.,.9587,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.,0.,0.,0.,0.,.9576,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.,0.,0.,0.,
- 0.,.9559,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.,0.,0.,0.,0.,.9543,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.,0.,0.,0.,0.,.9523,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.,0.,0.,0.,0.,.9503,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.,0.,0.,0.,0.,.9493,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.,0.,0.,
- 0.,0.,.9483,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.,0.,0.,0.,0.,.9497,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.,0.,0.,0.,0.,.951,
- 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.,0.,0.,0.,0.,.9528,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.,0.,0.,0.,0.,.9546,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.,0.,
- 0.,0.,0.,.9589,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.,0.,0.,0.,0.,.9632,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.,0.,0.,0.,0.,
- .9678,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.,0.,0.,0.,0.,.9724,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.,0.,0.,0.,0.,.9768,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.,0.,0.,0.,0.,.9812,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.,0.,0.,0.,0.,.985,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.,0.,0.,0.,
- 0.,.9888,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.,0.,0.,0.,0.,.9916,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.,0.,0.,0.,0.,.9944,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.,0.,0.,0.,0.,.9969,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.,0.,0.,0.,0.,.9993,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.,0.,0.,
- 0.,0.,.9997,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.,0.,0.,0.,0.,1.,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.,0.,0.,0.,0.,.9992,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.,0.,0.,0.,0.,.9984,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.,0.,0.,0.,0.,.9974,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.,0.,0.,
- 0.,0.,.9964,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.,0.,0.,0.,0.,.9939,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.,0.,0.,0.,0.,.9914,
- 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.,0.,0.,0.,0.,.9885,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.,0.,0.,0.,0.,.9855,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.,0.,
- 0.,0.,0.,.9844,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.,0.,0.,0.,0.,.9832,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.,0.,0.,0.,0.,
- .9804,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.,0.,0.,0.,0.,.9776,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.,0.,0.,0.,0.,.974,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.,0.,0.,0.,0.,.9704,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.,0.,0.,0.,0.,.9689,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.,0.,0.,0.,
- 0.,.9674,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.,0.,0.,0.,0.,.9659,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.,0.,0.,0.,0.,.9645,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.,0.,0.,0.,0.,.9622,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.,0.,0.,0.,0.,.9599,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.,0.,0.,
- 0.,0.,.9587,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.,0.,0.,0.,0.,.9576,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.,0.,0.,0.,0.,.9544,
- 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.,0.,0.,0.,0.,.9513,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.,0.,0.,0.,0.,.9472,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.,0.,
- 0.,0.,0.,.9431,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.,0.,0.,0.,0.,.9365,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.,0.,0.,0.,0.,
- .9299,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.,0.,0.,0.,0.,.9174,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.,0.,0.,0.,0.,.905,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.,0.,0.,0.,0.,.8832,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.,0.,0.,0.,0.,.8615,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.,0.,0.,0.,
- 0.,.8323,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.,0.,0.,0.,0.,.8032,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.,0.,0.,0.,0.,.7656,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.,0.,0.,0.,0.,.7279,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.,0.,0.,0.,0.,.6884,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.,0.,0.,
- 0.,0.,.649,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.,0.,0.,0.,0.,.6135,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.,0.,0.,0.,0.,.5782,
- 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.,0.,0.,0.,0.,.5497,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.,0.,0.,0.,0.,.5212,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.,0.,
- 0.,0.,0.,.5005,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.,0.,0.,0.,0.,.4798,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.,0.,0.,0.,0.,
- .4602,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.,0.,0.,0.,0.,.4406,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.,0.,0.,0.,0.,.4189,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.,0.,0.,0.,0.,.3972,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.,0.,0.,0.,0.,.3704,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.,0.,0.,0.,
- 0.,.3435,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.,0.,0.,0.,0.,.3142,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.,0.,0.,0.,0.,.2849,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.,0.,0.,0.,0.,.258,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.,0.,0.,0.,0.,.2311,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.,0.,0.,
- 0.,0.,.2078,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.,0.,0.,0.,0.,.1845,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.,0.,0.,0.,0.,.166,
- 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.,0.,0.,0.,0.,.1476,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.,0.,0.,0.,0.,.1345,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.,0.,
- 0.,0.,0.,.1214,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.,0.,0.,0.,0.,.1118,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.,0.,0.,0.,0.,
- .1022,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.,0.,0.,0.,0.,.0944,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.,0.,0.,0.,0.,.0866,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.,0.,0.,0.,0.,.081,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.,0.,0.,0.,0.,.0753,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.,0.,0.,0.,
- 0.,.0707,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.,0.,0.,0.,0.,.0659,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.,0.,0.,0.,0.,.0612,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.,0.,0.,0.,0.,.0564,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.,0.,0.,0.,0.,.0542,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.,0.,0.,
- 0.,0.,.052,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.,0.,0.,0.,0.,.0494,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.,0.,0.,0.,0.,.0468,
- 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.,0.,0.,0.,0.,.0447,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.,0.,0.,0.,0.,.0425,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.,0.,
- 0.,0.,0.,.0401,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.,0.,0.,0.,0.,.0378,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.,0.,0.,0.,0.,
- .0359,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.,0.,0.,0.,0.,.034,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.,0.,0.,0.,0.,.0328,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.,0.,0.,0.,0.,.0316,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.,0.,0.,0.,0.,.0311,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.,0.,0.,0.,
- 0.,.0305,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.,0.,0.,0.,0.,.0298,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.,0.,0.,0.,0.,.0291,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.,0.,0.,0.,0.,.0282,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.,0.,0.,0.,0.,.0273,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.,0.,0.,
- 0.,0.,.0262,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.,0.,0.,0.,0.,.0252 };
-
- integer i__;
- doublereal wli[30], wls[30];
-
-
-/* created: R. Hoeller 3/10/2002 */
-/* GLI response function values */
-/* are based on version (NASDA/EORC 99.7.19) */
-/* Values are interpolated to 2.5nm wavelenght intervals */
-/* changed by J. Nieke to channel 30 */
-
-/*< real s,wlinf,wlsup
>*/
-/*< common /sixs_ffu/ s(1501),wlinf,wlsup
>*/
-/*< real sr(30,1501),wli(30),wls(30)
>*/
-/*< integer iwa,l,i
>*/
-/* band 1 of GLI (380nm at 1km) */
-/*< >*/
-/* band 2 of GLI (400 nm at 1km) */
-/*< >*/
-/* band 3 of GLI (412 nm at 1km) */
-/*< >*/
-/* band 4 of GLI (443H/L nm at 1km) */
-/*< >*/
-/* band 5 of GLI (460H/L nm at 1km) */
-/*< >*/
-/* band 6 of GLI (490 nm at 1km) */
-/*< >*/
-/* band 7 of GLI (520H/L nm at 1km) */
-/*< >*/
-/* band 8 of GLI (545H/L nm at 1km) */
-/*< >*/
-/* band 9 of GLI (565 nm at 1km) */
-/*< >*/
-/* band 10 of GLI (625 nm at 1km) */
-/*< >*/
-/* band 11 of GLI (666 nm at 1km) */
-/*< >*/
-/* band 12 of GLI (680 nm at 1km) */
-/*< >*/
-/* band 13 of GLI (678 nm at 1km) */
-/*< >*/
-/* band 14 of GLI (710 nm at 1km) */
-/*< >*/
-/* band 15 of GLI (710 nm at 1km) */
-/*< >*/
-/* band 16 of GLI (749 nm at 1km) */
-/*< >*/
-/* band 17 of GLI (763 nm at 1km) */
-/*< >*/
-/* band 18 of GLI (865 nm at 1km) */
-/*< >*/
-/* band 19 of GLI (865 nm at 1km) */
-/*< >*/
-/* band 20 of GLI (460 nm at 250m) */
-/*< >*/
-/* band 21 of GLI (545 nm at 250m) */
-/*< >*/
-/* band 22 of GLI (660 nm at 250m) */
-/*< >*/
-/* band 23 of GLI (825 nm at 250m) */
-/*< >*/
-/* band 24 of GLI (1050 nm at 1km) */
-/*< >*/
-/* band 25 of GLI (1135 nm at 1km) */
-/*< >*/
-/* band 26 of GLI (1240 nm at 1km) */
-/*< >*/
-/* band 27 of GLI (1338 nm at 1km) */
-/*< >*/
-/* band 28 of GLI (1640 nm at 250m) */
-/*< >*/
-/* band 29 of GLI (2210 nm at 250m) */
-/*< >*/
-/* band 30 of GLI (3715 nm at 1km) (remark: cut-off at 4.um) */
-/*< >*/
-/* channel 1 lower and upper wavelength */
-/*< wli(1)=0.37
>*/
- wli[0] = .37;
-/*< wls(1)=0.3925
>*/
- wls[0] = .3925;
-/* channel 2 lower and upper wavelength */
-/*< wli(2)=0.3875
>*/
- wli[1] = .3875;
-/*< wls(2)=0.4125
>*/
- wls[1] = .4125;
-/* channel 3 lower and upper wavelength */
-/*< wli(3)=0.3975
>*/
- wli[2] = .3975;
-/*< wls(3)=0.4275
>*/
- wls[2] = .4275;
-/* channel 4 lower and upper wavelength */
-/*< wli(4)=0.4325
>*/
- wli[3] = .4325;
-/*< wls(4)=0.4525
>*/
- wls[3] = .4525;
-/* channel 5 lower and upper wavelength */
-/*< wli(5)=0.4475
>*/
- wli[4] = .4475;
-/*< wls(5)=0.47
>*/
- wls[4] = .47;
-/* channel 6 lower and upper wavelength */
-/*< wli(6)=0.475
>*/
- wli[5] = .475;
-/*< wls(6)=0.505
>*/
- wls[5] = .505;
-/* channel 7 lower and upper wavelength */
-/*< wli(7)=0.5075
>*/
- wli[6] = .5075;
-/*< wls(7)=0.5325
>*/
- wls[6] = .5325;
-/* channel 8 lower and upper wavelength */
-/*< wli(8)=0.5275
>*/
- wli[7] = .5275;
-/*< wls(8)=0.56
>*/
- wls[7] = .56;
-/* channel 9 lower and upper wavelength */
-/*< wli(9)=0.5475
>*/
- wli[8] = .5475;
-/*< wls(9)=0.5825
>*/
- wls[8] = .5825;
-/* channel 10 lower and upper wavelength */
-/*< wli(10)=0.61
>*/
- wli[9] = .61;
-/*< wls(10)=0.64
>*/
- wls[9] = .64;
-/* channel 11 lower and upper wavelength */
-/*< wli(11)=0.6525
>*/
- wli[10] = .6525;
-/*< wls(11)=0.6825
>*/
- wls[10] = .6825;
-/* channel 12 lower and upper wavelength */
-/*< wli(12)=0.665
>*/
- wli[11] = .665;
-/*< wls(12)=0.695
>*/
- wls[11] = .695;
-/* channel 13 lower and upper wavelength */
-/*< wli(13)=0.6625
>*/
- wli[12] = .6625;
-/*< wls(13)=0.6975
>*/
- wls[12] = .6975;
-/* channel 14 lower and upper wavelength */
-/*< wli(14)=0.6925
>*/
- wli[13] = .6925;
-/*< wls(14)=0.7275
>*/
- wls[13] = .7275;
-/* channel 15 lower and upper wavelength */
-/*< wli(15)=0.6925
>*/
- wli[14] = .6925;
-/*< wls(15)=0.7275
>*/
- wls[14] = .7275;
-/* channel 16 lower and upper wavelength */
-/*< wli(16)=0.7325
>*/
- wli[15] = .7325;
-/*< wls(16)=0.7675
>*/
- wls[15] = .7675;
-/* channel 17 lower and upper wavelength */
-/*< wli(17)=0.75
>*/
- wli[16] = .75;
-/*< wls(17)=0.775
>*/
- wls[16] = .775;
-/* channel 18 lower and upper wavelength */
-/*< wli(18)=0.840
>*/
- wli[17] = .84;
-/*< wls(18)=0.8925
>*/
- wls[17] = .8925;
-/* channel 19 lower and upper wavelength */
-/*< wli(19)=0.85
>*/
- wli[18] = .85;
-/*< wls(19)=0.88
>*/
- wls[18] = .88;
-/* channel 20 lower and upper wavelength */
-/*< wli(20)=0.415
>*/
- wli[19] = .415;
-/*< wls(20)=0.5075
>*/
- wls[19] = .5075;
-/* channel 21 lower and upper wavelength */
-/*< wli(21)=0.505
>*/
- wli[20] = .505;
-/*< wls(21)=0.58
>*/
- wls[20] = .58;
-/* channel 22 lower and upper wavelength */
-/*< wli(22)=0.6075
>*/
- wli[21] = .6075;
-/*< wls(22)=0.715
>*/
- wls[21] = .715;
-/* channel 23 lower and upper wavelength */
-/*< wli(23)=0.745
>*/
- wli[22] = .745;
-/*< wls(23)=0.9075
>*/
- wls[22] = .9075;
-/* channel 24 lower and upper wavelength */
-/*< wli(24)=1.03
>*/
- wli[23] = 1.03;
-/*< wls(24)=1.07
>*/
- wls[23] = 1.07;
-/* channel 25 lower and upper wavelength */
-/*< wli(25)=1.085
>*/
- wli[24] = 1.085;
-/*< wls(25)=1.19
>*/
- wls[24] = 1.19;
-/* channel 26 lower and upper wavelength */
-/*< wli(26)=1.22
>*/
- wli[25] = 1.22;
-/*< wls(26)=1.2625
>*/
- wls[25] = 1.2625;
-/* channel 27 lower and upper wavelength */
-/*< wli(27)=1.3475
>*/
- wli[26] = 1.3475;
-/*< wls(27)=1.415
>*/
- wls[26] = 1.415;
-/* channel 28 lower and upper wavelength */
-/*< wli(28)=1.515
>*/
- wli[27] = 1.515;
-/*< wls(28)=1.77
>*/
- wls[27] = 1.77;
-/* channel 29 lower and upper wavelength */
-/*< wli(29)=2.055
>*/
- wli[28] = 2.055;
-/*< wls(29)=2.345
>*/
- wls[28] = 2.345;
-/* channel 30 lower and upper wavelength */
-/*< wli(30)=3.22
>*/
- wli[29] = 3.22;
-/*< wls(30)=4.0
>*/
- wls[29] = 4.;
-/*< do 1 i=1,1501
>*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< s(i)=sr(iwa,i)
>*/
- sixs_ffu__1.s[i__ - 1] = sr[*iwa + i__ * 30 - 31];
-/*< 1 continue
>*/
-/* L1: */
- }
-/*< wlinf=wli(iwa)
>*/
- sixs_ffu__1.wlinf = wli[*iwa - 1];
-/*< wlsup=wls(iwa)
>*/
- sixs_ffu__1.wlsup = wls[*iwa - 1];
-/*< return
>*/
- return 0;
-/*< end
>*/
-} /* gli_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/GLI.f b/Modules/ThirdParty/6S/src/6SV1.0B/GLI.f
deleted file mode 100644
index 4ce8853..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/GLI.f
+++ /dev/null
@@ -1,350 +0,0 @@
- subroutine gli(iwa)
-c
-c created: R. Hoeller 3/10/2002
-c GLI response function values
-c are based on version (NASDA/EORC 99.7.19)
-c Values are interpolated to 2.5nm wavelenght intervals
-c changed by J. Nieke to channel 30
-c
- real s,wlinf,wlsup
- common /sixs_ffu/ s(1501),wlinf,wlsup
- real sr(30,1501),wli(30),wls(30)
- integer iwa,l,i
-c band 1 of GLI (380nm at 1km)
- DATA (SR(1,L),L=1,1501)/ 48*0.,
- A .0006, .0143, .1695, .7856, 1.0000, .8603, .6609, .1362,
- A .0046, .0000,
- A1443*0./
-
-c band 2 of GLI (400 nm at 1km)
- DATA (SR(2,L),L=1,1501)/ 55*0.,
- A .0001, .0032, .0578, .3966, .8555, 1.000, .8754, .3549,
- A .0191, .0021, .0002,
- A1435*0./
-c band 3 of GLI (412 nm at 1km)
- DATA (SR(3,L),L=1,1501)/ 59*0.,
- A .0006, .0018, .0115, .1084, .4950, .9144, .9933, 1.0000,
- A .5040, .0449, .0055, .0023, .0008,
- A1429*0./
-c band 4 of GLI (443H/L nm at 1km)
- DATA (SR(4,L),L=1,1501)/ 73*0.,
- A .0013, .0284, .3606, .9418, 1.0000, .8609, .4104, .0245,
- A .0009,
- A1419*0./
-c band 5 of GLI (460H/L nm at 1km)
- DATA (SR(5,L),L=1,1501)/ 79*0.,
- A .0005, .0041, .0679, .5128, 1.0000, .9945, .8005, .2593,
- A .0180, .0025,
- A1412*0./
-c band 6 of GLI (490 nm at 1km)
- DATA (SR(6,L),L=1,1501)/ 90*0.,
- A .0009, .0028, .0132, .1541, .6700, 1.0000, .9974, .9177,
- A .5027, .0599, .0058, .0018, .0004,
- A1398*0./
-c band 7 of GLI (520H/L nm at 1km)
- DATA (SR(7,L),L=1,1501)/ 103*0.,
- A .0016, .0081, .1404, .6543, 1.0000, .9842, .8295, .3512,
- A .0247, .0023, .0000,
- A1387*0./
-c band 8 of GLI (545H/L nm at 1km)
- DATA (SR(8,L),L=1,1501)/ 111*0.,
- A .0008, .0017, .0054, .0356, .2764, .7050, 1.0000, .9969,
- A .7746, .3752, .0672, .0096, .0034, .0012,
- A1376*0./
-c band 9 of GLI (565 nm at 1km)
- DATA (SR(9,L),L=1,1501)/ 119*0.,
- A .0003, .0011, .0040, .0215, .1750, .5370, .9137, 1.0000,
- A .8500, .5092, .1436, .0214, .0073, .0031, .0011,
- A1367*0./
-c band 10 of GLI (625 nm at 1km)
- DATA (SR(10,L),L=1,1501)/ 144*0.,
- A .0030, .0066, .0296, .1705, .5002, .9069, 1.0000, .8731,
- A .5293, .1088, .0148, .0009, .0003,
- A1344*0./
-c band 11 of GLI (666 nm at 1km)
- DATA (SR(11,L),L=1,1501)/ 161*0.,
- A .0027, .0080, .0602, .2599, .6287, .9786, 1.0000, .8146,
- A .4406, .0821, .0101, .0006, .0002,
- A1327*0./
-c band 12 of GLI (680 nm at 1km)
- DATA (SR(12,L),L=1,1501)/ 166*0.,
- A .0035, .0041, .0196, .1472, .4664, .8574, 1.0000, .8410,
- A .5263, .1281, .0117, .0005, .0002,
- A1322*0./
-c band 13 of GLI (678 nm at 1km)
- DATA (SR(13,L),L=1,1501)/ 165*0.,
- A .0052, .0024, .0112, .0766, .3230, .7425, 1.0000, .9832,
- A .7510, .3495, .0496, .0006, .0003, .0002, .0001,
- A1321*0./
-c band 14 of GLI (710 nm at 1km)
- DATA (SR(14,L),L=1,1501)/ 177*0.,
- A .0019, .0058, .0069, .0310, .1591, .4483, .8020, 1.0000,
- A .9333, .6808, .3058, .0424, .0055, .0007, .0002,
- A1309*0./
-c band 15 of GLI (710 nm at 1km)
- DATA (SR(15,L),L=1,1501)/ 177*0.,
- A .0019, .0058, .0094, .0462, .2016, .5075, .8590, 1.0000,
- A .9067, .6282, .2518, .0323, .0042, .0005, .0001,
- A1309*0./
-c band 16 of GLI (749 nm at 1km)
- DATA (SR(16,L),L=1,1501)/ 193*0.,
- A .0035, .0038, .0173, .0867, .3220, .7013, .9994, 1.0000,
- A .8014, .4503, .1004, .0152, .0023, .0004, .0000,
- A1293*0./
-c band 17 of GLI (763 nm at 1km)
- DATA (SR(17,L),L=1,1501)/ 200*0.,
- A .0013, .0076, .0821, .3724, .8271, 1.0000, .7206, .2798,
- A .0199, .0031, .0000,
- A1290*0./
-c band 18 of GLI (865 nm at 1km)
- DATA (SR(18,L),L=1,1501)/ 236*0.,
- A .0013, .0031, .0024, .0084, .0324, .1326, .3645, .6840,
- A .9222, .9612, .9740, 1.0000, .9819, .8727, .6850, .3029,
- A .0679, .0226, .0070, .0204, .0137, .0033,
- A1243*0./
-c band 19 of GLI (865 nm at 1km)
- DATA (SR(19,L),L=1,1501)/ 240*0.,
- A .0010, .0065, .0299, .1312, .3830, .7718, 1.0000, .9379,
- A .7040, .2942, .0449, .0004, .0001,
- A1248*0./
-c band 20 of GLI (460 nm at 250m)
- DATA (SR(20,L),L=1,1501)/ 66*0.,
- A .0043, .0160, .0373, .872, .1678, .3194, .4940, .6032,
- A .6765, .7175, .7529, .7680, .7501, .7582, .7786, .8087,
- A .8411, .8650, .8807, .8860, .9122, .9378, .9493, .9414,
- A .9247, .9108, .9236, .9582, 1.0000, .9741, .8148, .5002,
- A .2119, .0787, .0308, .0147, .0077, .0041,
- A1397*0./
-c band 21 of GLI (545 nm at 250m)
- DATA (SR(21,L),L=1,1501)/ 102*0.,
- A .0059, .0150, .0368, .0908, .2109, .4416, .7030, .8303,
- A .8361, .8131, .8287, .8874, .9466, .9827, 1.0000, .9816,
- A .9369, .9247, .9719, .9915, .9360, .9012, .9332, .8642,
- A .6192, .3670, .1984, .0938, .0363, .0145, .0061,
- A1368*0./
-c band 22 of GLI (660 nm at 250m)
- DATA (SR(22,L),L=1,1501)/ 143*0.,
- A .0050, .0084, .0126, .0193, .0333, .0606, .1010, .1526,
- A .2315, .3722, .5786, .7782, .8558, .8646, .8744, .8732,
- A .8729, .8772, .8969, .9213, .9401, .9467, .9453, .9485,
- A .9656, .9844, .9986, 1.0000, .9907, .9971, .9878, .9479,
- A .8280, .6115, .3401, .1529, .0736, .0391, .0237, .0143,
- A .0080, .0040, .0022, .0013,
- A1314*0./
-c band 23 of GLI (825 nm at 250m)
- DATA (SR(23,L),L=1,1501)/ 198*0.,
- A .0104, .0166, .0242, .0289, .0393, .0477, .0620, .0847,
- A .1155, .1654, .2424, .3491, .4884, .6336, .7547, .8044,
- A .8386, .8373, .8479, .8822, .9290, .9644, .9888, .9916,
- A 1.0000, .9930, .9925, .9916, .9944, .9841, .9813, .9757,
- A .9747, .9574, .9523, .9370, .9242, .9100, .9003, .8681,
- A .8372, .7883, .7708, .7760, .7806, .7435, .7320, .7169,
- A .6866, .6593, .6233, .5975, .5890, .5268, .4429, .3085,
- A .1714, .0903, .0485, .0261, .0138, .0069, .0031, .0014,
- A .0014, .0008,
- A1237*0./
-c band 24 of GLI (1050 nm at 1km)
- DATA (SR(24,L),L=1,1501)/ 312*0.,
- A .0043, .0253, .1014, .2803, .5436, .8665, 1.0000, .9959,
- A .9545, .9160, .8200, .6640, .4227, .1146, .0191, .0049,
- A .0037 ,
- A1172*0./
-c band 25 of GLI (1135 nm at 1km)
- DATA (SR(25,L),L=1,1501)/ 334*0.,
- A .0032, .0064, .0135, .0313, .0709, .1657, .3032, .5037,
- A .7128, .8368, .8686, .8896, .8938, .8909, .9150, .9421,
- A .9305, .9427, 1.0000, .9961, .9556, .9633, .9678, .8963,
- A .8757, .8838, .8893, .8777, .8674, .8761, .8867, .8587,
- A .7940, .7151, .5976, .4265, .2509, .1289, .0623, .0317,
- A .0159, .0085, .0046,
- A1124*0./
-c band 26 of GLI (1240 nm at 1km)
- DATA (SR(26,L),L=1,1501)/ 388*0.,
- A .0058, .0178, .0508, .1410, .2924, .5056, .7681, .9331,
- A .9930, 1.0000, .9270, .8278, .5676, .2490, .0835, .0235,
- A .0059, .0020,
- A1095*0./
-c band 27 of GLI (1338 nm at 1km)
- DATA (SR(27,L),L=1,1501)/ 439*0.,
- A .0068, .0219, .0541, .1136, .2214, .3447, .4893, .6701,
- A .7770, .8363, .9081, .9563, .9807, 1.0000, .9893, .9989,
- A .9617, .9284, .8841, .7611, .6234, .4452, .2543, .0950,
- A .0273, .0081, .0034, .0008,
- A1034*0./
-c band 28 of GLI (1640 nm at 250m)
- DATA (SR(28,L),L=1,1501)/ 506*0.,
- A .0022, .0042, .0072, .0114, .0181, .0304, .0500, .0864,
- A .1525, .2561, .3996, .5604, .6781, .7316, .7521, .7678,
- A .7857, .8055, .8261, .8478, .8650, .8731, .8779, .8840,
- A .8911, .8986, .9087, .9211, .9313, .9330, .9345, .9424,
- A .9474, .9456, .9506, .9539, .9576, .9550, .9544, .9609,
- A .9611, .9619, .9638, .9628, .9564, .9435, .9316, .9189,
- A .9044, .8829, .8633, .8435, .8332, .8268, .8248, .8276,
- A .8342, .8459, .8605, .8739, .8905, .9054, .9116, .9168,
- A .9208, .9184, .9170, .9159, .9161, .9123, .9065, .9042,
- A .9080, .9129, .9168, .9267, .9410, .9501, .9547, .9648,
- A .9752, .9831, .9887, .9962, 1.0000, .9988, .9887, .9686,
- A .9239, .8401, .7266, .5947, .4558, .3330, .2379, .1669,
- A .1172, .0851, .0612, .0453, .0333, .0244, .0193,
- A892*0./
-c band 29 of GLI (2210 nm at 250m)
- DATA (SR(29,L),L=1,1501)/ 722*0.,
- A .0045, .0027, .0087, .0069, .0105, .0153, .0255, .0390,
- A .0653, .1022, .1419, .2048, .2903, .4057, .5334, .6650,
- A .7886, .8657, .9184, .9321, .9491, .9246, .9173, .9147,
- A .9202, .9112, .9217, .9243, .9385, .9563, 1.0000, .9859,
- A .9868, .9994, .9922, .9815, .9908, .9855, .9711, .9728,
- A .9782, .9934, .9558, .9815, .9481, .9466, .9257, .9285,
- A .9403, .9677, .9883, .9650, .9908, .9337, .9125, .8639,
- A .8543, .8834, .8884, .9043, .8717, .8820, .8926, .8361,
- A .7852, .7500, .7733, .7568, .7741, .7927, .7819, .7689,
- A .7631, .7051, .7291, .6841, .6780, .6827, .7425, .6906,
- A .7343, .6891, .6785, .6517, .6190, .6325, .6353, .6531,
- A .6623, .7007, .6663, .6919, .6916, .6454, .6366, .6423,
- A .6470, .6354, .6512, .6222, .6069, .5461, .5012, .4481,
- A .3781, .3251, .2790, .2318, .1869, .1509, .1173, .0889,
- A .0676, .0430, .0306, .0267, .0247,
- A662*0./
-c band 30 of GLI (3715 nm at 1km) (remark: cut-off at 4.um)
- DATA (SR(30,L),L=1,1501)/ 1188*0.,
- A .0001, .0001, .0001, .0001, .0001, .0001, .0002, .0002,
- A .0002, .0003, .0003, .0003, .0003, .0003, .0003, .0003,
- A .0003, .0004, .0005, .0005, .0005, .0006, .0007, .0009,
- A .0012, .0011, .0010, .0013, .0016, .0018, .0021, .0022,
- A .0022, .0024, .0025, .0027, .0028, .0030, .0031, .0037,
- A .0042, .0043, .0044, .0047, .0049, .0052, .0054, .0059,
- A .0063, .0066, .0068, .0070, .0071, .0075, .0079, .0083,
- A .0088, .0090, .0092, .0097, .0102, .0104, .0106, .0107,
- A .0108, .0114, .0120, .0124, .0129, .0135, .0141, .0149,
- A .0157, .0159, .0161, .0168, .0176, .0185, .0193, .0197,
- A .0202, .0209, .0217, .0229, .0241, .0250, .0259, .0267,
- A .0275, .0286, .0297, .0305, .0313, .0327, .0341, .0355,
- A .0368, .0381, .0393, .0409, .0424, .0437, .0449, .0472,
- A .0495, .0511, .0528, .0561, .0594, .0629, .0663, .0707,
- A .0751, .0808, .0865, .0935, .1005, .1100, .1196, .1335,
- A .1475, .1652, .1829, .2060, .2291, .2611, .2931, .3323,
- A .3715, .4179, .4643, .5140, .5637, .6106, .6575, .6951,
- A .7328, .7539, .7749, .7815, .7881, .7860, .7838, .7813,
- A .7789, .7800, .7812, .7868, .7924, .7973, .8022, .8080,
- A .8138, .8203, .8269, .8315, .8361, .8401, .8440, .8472,
- A .8503, .8532, .8562, .8572, .8582, .8582, .8582, .8570,
- A .8559, .8552, .8546, .8551, .8555, .8575, .8595, .8626,
- A .8658, .8702, .8746, .8799, .8852, .8921, .8990, .9075,
- A .9161, .9232, .9302, .9355, .9408, .9459, .9510, .9543,
- A .9576, .9594, .9612, .9605, .9599, .9587, .9576, .9559,
- A .9543, .9523, .9503, .9493, .9483, .9497, .9510, .9528,
- A .9546, .9589, .9632, .9678, .9724, .9768, .9812, .9850,
- A .9888, .9916, .9944, .9969, .9993, .9997, 1.0000,
- A .9992, .9984, .9974, .9964, .9939, .9914, .9885, .9855,
- A .9844, .9832, .9804, .9776, .9740, .9704, .9689, .9674,
- A .9659, .9645, .9622, .9599, .9587, .9576, .9544, .9513,
- A .9472, .9431, .9365, .9299, .9174, .9050, .8832, .8615,
- A .8323, .8032, .7656, .7279, .6884, .6490, .6135, .5782,
- A .5497, .5212, .5005, .4798, .4602, .4406, .4189, .3972,
- A .3704, .3435, .3142, .2849, .2580, .2311, .2078, .1845,
- A .1660, .1476, .1345, .1214, .1118, .1022, .0944, .0866,
- A .0810, .0753, .0707, .0659, .0612, .0564, .0542, .0520,
- A .0494, .0468, .0447, .0425, .0401, .0378, .0359, .0340,
- A .0328, .0316, .0311, .0305, .0298, .0291, .0282, .0273,
- A .0262, .0252 /
-
-c channel 1 lower and upper wavelength
- wli(1)=0.37
- wls(1)=0.3925
-c channel 2 lower and upper wavelength
- wli(2)=0.3875
- wls(2)=0.4125
-c channel 3 lower and upper wavelength
- wli(3)=0.3975
- wls(3)=0.4275
-c channel 4 lower and upper wavelength
- wli(4)=0.4325
- wls(4)=0.4525
-c channel 5 lower and upper wavelength
- wli(5)=0.4475
- wls(5)=0.47
-c channel 6 lower and upper wavelength
- wli(6)=0.475
- wls(6)=0.505
-c channel 7 lower and upper wavelength
- wli(7)=0.5075
- wls(7)=0.5325
-c channel 8 lower and upper wavelength
- wli(8)=0.5275
- wls(8)=0.56
-c channel 9 lower and upper wavelength
- wli(9)=0.5475
- wls(9)=0.5825
-c channel 10 lower and upper wavelength
- wli(10)=0.61
- wls(10)=0.64
-c channel 11 lower and upper wavelength
- wli(11)=0.6525
- wls(11)=0.6825
-c channel 12 lower and upper wavelength
- wli(12)=0.665
- wls(12)=0.695
-c channel 13 lower and upper wavelength
- wli(13)=0.6625
- wls(13)=0.6975
-c channel 14 lower and upper wavelength
- wli(14)=0.6925
- wls(14)=0.7275
-c channel 15 lower and upper wavelength
- wli(15)=0.6925
- wls(15)=0.7275
-c channel 16 lower and upper wavelength
- wli(16)=0.7325
- wls(16)=0.7675
-c channel 17 lower and upper wavelength
- wli(17)=0.75
- wls(17)=0.775
-c channel 18 lower and upper wavelength
- wli(18)=0.840
- wls(18)=0.8925
-c channel 19 lower and upper wavelength
- wli(19)=0.85
- wls(19)=0.88
-c channel 20 lower and upper wavelength
- wli(20)=0.415
- wls(20)=0.5075
-c channel 21 lower and upper wavelength
- wli(21)=0.505
- wls(21)=0.58
-c channel 22 lower and upper wavelength
- wli(22)=0.6075
- wls(22)=0.715
-c channel 23 lower and upper wavelength
- wli(23)=0.745
- wls(23)=0.9075
-c channel 24 lower and upper wavelength
- wli(24)=1.03
- wls(24)=1.07
-c channel 25 lower and upper wavelength
- wli(25)=1.085
- wls(25)=1.19
-c channel 26 lower and upper wavelength
- wli(26)=1.22
- wls(26)=1.2625
-c channel 27 lower and upper wavelength
- wli(27)=1.3475
- wls(27)=1.415
-c channel 28 lower and upper wavelength
- wli(28)=1.515
- wls(28)=1.77
-c channel 29 lower and upper wavelength
- wli(29)=2.055
- wls(29)=2.345
-c channel 30 lower and upper wavelength
- wli(30)=3.22
- wls(30)=4.0
-
- do 1 i=1,1501
- s(i)=sr(iwa,i)
- 1 continue
-
- wlinf=wli(iwa)
- wlsup=wls(iwa)
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/GLI.h b/Modules/ThirdParty/6S/src/6SV1.0B/GLI.h
deleted file mode 100644
index ab55414..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/GLI.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_gli_(
- otb_6s_integer *iwa
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/GOES.P b/Modules/ThirdParty/6S/src/6SV1.0B/GOES.P
deleted file mode 100644
index 57913b5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/GOES.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int goes_(integer *iwa);
-/* comlen sixs_ffu__ 12024 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/GOES.c b/Modules/ThirdParty/6S/src/6SV1.0B/GOES.c
deleted file mode 100644
index de0eeda..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/GOES.c
+++ /dev/null
@@ -1,212 +0,0 @@
-/* GOES.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine goes(iwa) >*/
-/* Subroutine */ int goes_(integer *iwa)
-{
- /* Initialized data */
-
- static doublereal sr[3002] /* was [2][1501] */ = { 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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.01,0.,.01,0.,.03,
- .01,.05,.02,.09,.04,.13,.06,.22,.12,.3,.18,.38,.3,.46,.41,.52,.51,
- .58,.61,.63,.69,.68,.77,.7,.83,.73,.89,.75,.91,.77,.93,.79,.94,
- .81,.96,.82,.96,.84,.97,.85,.98,.86,.99,.87,.99,.88,.99,.89,1.,.9,
- 1.,.91,1.,.92,1.,.93,1.,.93,1.,.94,.99,.95,.99,.96,.99,.96,.98,
- .97,.98,.98,.97,.99,.97,.99,.96,.99,.96,.98,.96,.98,.95,.97,.95,
- .97,.95,.96,.94,.95,.94,.95,.93,.94,.92,.94,.91,.93,.9,.93,.89,
- .92,.88,.92,.87,.91,.86,.91,.85,.91,.84,.91,.83,.91,.82,.91,.81,
- .91,.8,.91,.8,.91,.79,.91,.78,.9,.77,.89,.76,.88,.75,.88,.74,.86,
- .73,.84,.72,.83,.7,.81,.69,.79,.67,.77,.66,.75,.64,.73,.63,.71,
- .61,.69,.59,.69,.58,.68,.56,.67,.55,.66,.54,.65,.52,.64,.51,.63,
- .5,.61,.49,.6,.48,.59,.46,.57,.45,.56,.44,.54,.43,.52,.41,.5,.4,
- .49,.38,.47,.37,.46,.36,.44,.34,.43,.33,.41,.32,.4,.31,.38,.29,
- .36,.28,.35,.27,.33,.26,.32,.24,.3,.23,.29,.22,.28,.21,.27,.2,.26,
- .19,.25,.18,.23,.17,.22,.17,.21,.16,.2,.15,.19,.14,.18,.14,.17,
- .13,.16,.12,.15,.12,.14,.11,.13,.1,.12,.09,.11,.09,.1,.08,.1,.08,
- .09,.07,.08,.07,.08,.07,.07,.06,.06,.06,.06,.05,.05,.05,.05,.05,
- .04,.04,.04,.04,.03,.03,.03,.03,.03,.03,.02,.03,.02,.02,.02,.02,
- .02,.02,.01,.02,.01,.02,.01,.01,.01,.01,.01,.01,0.,.01,0.,.01,0.,
- .01,0.,.01,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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. };
-
- integer i__;
- doublereal wli[2], wls[2];
-
-/*< common /sixs_ffu/ s(1501),wlinf,wlsup >*/
-/*< real sr(2,1501),wli(2),wls(2) >*/
-/*< real s,wlinf,wlsup >*/
-/*< integer iwa,l,i >*/
-
-/* spectral band of goes east */
-
-
-/*< >*/
-/*< >*/
-/* spectral band of goes west */
-
-/*< >*/
-/*< >*/
-/*< wli(1)=0.49 >*/
- wli[0] = .49;
-/*< wls(1)=0.8999999 >*/
- wls[0] = .8999999;
-/*< wli(2)=0.49 >*/
- wli[1] = .49;
-/*< wls(2)=0.8999999 >*/
- wls[1] = .8999999;
-/*< do 1 i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< s(i)=sr(iwa,i) >*/
- sixs_ffu__1.s[i__ - 1] = sr[*iwa + (i__ << 1) - 3];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< wlinf=wli(iwa) >*/
- sixs_ffu__1.wlinf = wli[*iwa - 1];
-/*< wlsup=wls(iwa) >*/
- sixs_ffu__1.wlsup = wls[*iwa - 1];
-/*< return >*/
- return 0;
-/*< end >*/
-} /* goes_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/GOES.f b/Modules/ThirdParty/6S/src/6SV1.0B/GOES.f
deleted file mode 100644
index 6e076bc..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/GOES.f
+++ /dev/null
@@ -1,77 +0,0 @@
- subroutine goes(iwa)
- common /sixs_ffu/ s(1501),wlinf,wlsup
- real sr(2,1501),wli(2),wls(2)
- real s,wlinf,wlsup
- integer iwa,l,i
-c
-c spectral band of goes east
-c
-c
- data (sr(1,l),l=1,166)/ 96*0.,
- a .00, .00, .00, .01, .01, .03, .05,
- a .09, .13, .22, .30, .38, .46, .52,
- a .58, .63, .68, .70, .73, .75, .77,
- a .79, .81, .82, .84, .85, .86, .87,
- a .88, .89, .90, .91, .92, .93, .93,
- a .94, .95, .96, .96, .97, .98, .99,
- a .99, .99, .98, .98, .97, .97, .96,
- a .95, .95, .94, .94, .93, .93, .92,
- a .92, .91, .91, .91, .91, .91, .91,
- a .91, .91, .91, .91, .90, .89, .88/
- data (sr(1,l),l=167,1501)/
- a .88, .86, .84, .83, .81, .79, .77,
- a .75, .73, .71, .69, .69, .68, .67,
- a .66, .65, .64, .63, .61, .60, .59,
- a .57, .56, .54, .52, .50, .49, .47,
- a .46, .44, .43, .41, .40, .38, .36,
- a .35, .33, .32, .30, .29, .28, .27,
- a .26, .25, .23, .22, .21, .20, .19,
- a .18, .17, .16, .15, .14, .13, .12,
- a .11, .10, .10, .09, .08, .08, .07,
- a .06, .06, .05, .05, .04, .04, .03,
- a .03, .03, .02, .02, .02, .02, .01,
- a .01, .01, .01, .01, .00, .00, .00,
- a .00, .00, .00, .00, .00, .00, .00,
- a .00, .00, .00, .00,
- a1240*0./
-c spectral band of goes west
-c
- data (sr(2,l),l=1,166)/ 96*0.,
- a .00, .00, .00, .00, .00, .01, .02,
- a .04, .06, .12, .18, .30, .41, .51,
- a .61, .69, .77, .83, .89, .91, .93,
- a .94, .96, .96, .97, .98, .99, .99,
- a .99, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00,
- a .99, .99, .99, .98, .98, .97, .97,
- a .96, .96, .96, .95, .95, .95, .94,
- a .94, .93, .92, .91, .90, .89, .88,
- a .87, .86, .85, .84, .83, .82, .81,
- a .80, .80, .79, .78, .77, .76, .75/
- data (sr(2,l),l=167,1501)/
- a .74, .73, .72, .70, .69, .67, .66,
- a .64, .63, .61, .59, .58, .56, .55,
- a .54, .52, .51, .50, .49, .48, .46,
- a .45, .44, .43, .41, .40, .38, .37,
- a .36, .34, .33, .32, .31, .29, .28,
- a .27, .26, .24, .23, .22, .21, .20,
- a .19, .18, .17, .17, .16, .15, .14,
- a .14, .13, .12, .12, .11, .10, .09,
- a .09, .08, .08, .07, .07, .07, .06,
- a .06, .05, .05, .05, .04, .04, .03,
- a .03, .03, .03, .02, .02, .02, .02,
- a .02, .01, .01, .01, .01, .01, .01,
- a .01, .00, .00, .00, .00, .00, .00,
- a .00, .00, .00, .00,
- a1240*0./
- wli(1)=0.49
- wls(1)=0.8999999
- wli(2)=0.49
- wls(2)=0.8999999
- do 1 i=1,1501
- s(i)=sr(iwa,i)
- 1 continue
- wlinf=wli(iwa)
- wlsup=wls(iwa)
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/GOES.h b/Modules/ThirdParty/6S/src/6SV1.0B/GOES.h
deleted file mode 100644
index 6fa25a3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/GOES.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_goes_(
- otb_6s_integer *iwa
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.P b/Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.P
deleted file mode 100644
index 6366773..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int hapkalbe_(doublereal *om, doublereal *af, doublereal *s0, doublereal *h__, doublereal *brdfalb);
-/*:ref: gauss_ 14 5 7 7 7 7 4 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.c b/Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.c
deleted file mode 100644
index 554109b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.c
+++ /dev/null
@@ -1,126 +0,0 @@
-/* HAPKALBE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static integer c__24 = 24;
-static integer c__48 = 48;
-static doublereal c_b7 = 1.5;
-
-/*< >*/
-/* Subroutine */ int hapkalbe_(doublereal *om, doublereal *af, doublereal *s0,
- doublereal *h__, doublereal *brdfalb)
-{
- /* System generated locals */
- doublereal d__1;
-
- /* Builtin functions */
- double atan(doublereal), cos(doublereal), sin(doublereal), sqrt(
- doublereal), pow_dd(doublereal *, doublereal *), acos(doublereal),
- tan(doublereal);
-
- /* Local variables */
- doublereal f, g;
- integer j, k, l;
- doublereal h1, h2, p0, fa[48], bg, cg, fi, ta[24], pg, pi, si1, si2, mu1,
- mu2, h1h2, wfa[48], wta[24], phi1, phi2, pond, summ, teta1, teta2;
- extern /* Subroutine */ int gauss_(doublereal *, doublereal *, doublereal
- *, doublereal *, integer *);
-
-/*< parameter (nta=24,nfa=48) >*/
-/*< real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa) >*/
-/*< real om,af,s0,h,mu1,mu2 >*/
-/*< real brdfalb,summ,si2,si1 >*/
-/*< real fi,f,cg,h1,h2,h1h2,pg,p0,g,bg,pond >*/
-/*< real pi >*/
-/*< integer k,j,l >*/
-/*< pi=atan(1.)*4. >*/
- pi = atan(1.) * 4.;
-/*< teta1=0. >*/
- teta1 = 0.;
-/*< teta2=pi/2. >*/
- teta2 = pi / 2.;
-/*< call gauss(teta1,teta2,ta,wta,nta) >*/
- gauss_(&teta1, &teta2, ta, wta, &c__24);
-/*< phi1=0. >*/
- phi1 = 0.;
-/*< phi2=2.*pi >*/
- phi2 = pi * 2.;
-/*< call gauss(phi1,phi2,fa,wfa,nfa) >*/
- gauss_(&phi1, &phi2, fa, wfa, &c__48);
-/*< brdfalb=0. >*/
- *brdfalb = 0.;
-/*< summ=0. >*/
- summ = 0.;
-/*< do 1 k=1,nfa >*/
- for (k = 1; k <= 48; ++k) {
-/*< do 2 j=1,nta >*/
- for (j = 1; j <= 24; ++j) {
-/*< do 3 l=1,nta >*/
- for (l = 1; l <= 24; ++l) {
-/*< mu2=cos(ta(j)) >*/
- mu2 = cos(ta[j - 1]);
-/*< mu1=cos(ta(l)) >*/
- mu1 = cos(ta[l - 1]);
-/*< si2=sin(ta(j)) >*/
- si2 = sin(ta[j - 1]);
-/*< si1=sin(ta(l)) >*/
- si1 = sin(ta[l - 1]);
-/*< fi=fa(k) >*/
- fi = fa[k - 1];
-/*< f=om/4./(mu2+mu1) >*/
- f = *om / 4. / (mu2 + mu1);
-/*< cg=mu1*mu2+sqrt(1.-mu1*mu1)*sqrt(1.-mu2*mu2)*cos(fi) >*/
- cg = mu1 * mu2 + sqrt(1. - mu1 * mu1) * sqrt(1. - mu2 * mu2) *
- cos(fi);
-/*< h1=(1.+2*mu1)/(1.+2.*sqrt(1.-om)*mu1) >*/
- h1 = (mu1 * 2 + 1.) / (sqrt(1. - *om) * 2. * mu1 + 1.);
-/*< h2=(1.+2*mu2)/(1.+2.*sqrt(1.-om)*mu2) >*/
- h2 = (mu2 * 2 + 1.) / (sqrt(1. - *om) * 2. * mu2 + 1.);
-/*< h1h2=h1*h2 >*/
- h1h2 = h1 * h2;
-/*< pg=(1-af*af)/((1+af*af+2*af*cg)**1.5) >*/
- d__1 = *af * *af + 1 + *af * 2 * cg;
- pg = (1 - *af * *af) / pow_dd(&d__1, &c_b7);
-/*< p0=(1-af*af)/((1+af*af+2*af)**1.5) >*/
- d__1 = *af * *af + 1 + *af * 2;
- p0 = (1 - *af * *af) / pow_dd(&d__1, &c_b7);
-/*< g=acos(cg) >*/
- g = acos(cg);
-/*< bg=(s0/(om*p0))/(1.+tan(g/2.)/h) >*/
- bg = *s0 / (*om * p0) / (tan(g / 2.) / *h__ + 1.);
-/*< pond=mu1*mu2*si1*si2*wfa(k)*wta(j)*wta(l) >*/
- pond = mu1 * mu2 * si1 * si2 * wfa[k - 1] * wta[j - 1] * wta[
- l - 1];
-/*< brdfalb=brdfalb+f*((1.+bg)*pg+h1h2-1.)*pond >*/
- *brdfalb += f * ((bg + 1.) * pg + h1h2 - 1.) * pond;
-/*< summ=summ+pond >*/
- summ += pond;
-/*< 3 continue >*/
-/* L3: */
- }
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< brdfalb=brdfalb/summ >*/
- *brdfalb /= summ;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* hapkalbe_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.f b/Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.f
deleted file mode 100644
index 8d498e1..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.f
+++ /dev/null
@@ -1,45 +0,0 @@
- subroutine hapkalbe(om,af,s0,h,
- s brdfalb)
- parameter (nta=24,nfa=48)
- real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa)
- real om,af,s0,h,mu1,mu2
- real brdfalb,summ,si2,si1
- real fi,f,cg,h1,h2,h1h2,pg,p0,g,bg,pond
- real pi
- integer k,j,l
- pi=atan(1.)*4.
- teta1=0.
- teta2=pi/2.
- call gauss(teta1,teta2,ta,wta,nta)
- phi1=0.
- phi2=2.*pi
- call gauss(phi1,phi2,fa,wfa,nfa)
- brdfalb=0.
- summ=0.
- do 1 k=1,nfa
- do 2 j=1,nta
- do 3 l=1,nta
- mu2=cos(ta(j))
- mu1=cos(ta(l))
- si2=sin(ta(j))
- si1=sin(ta(l))
- fi=fa(k)
- f=om/4./(mu2+mu1)
- cg=mu1*mu2+sqrt(1.-mu1*mu1)*sqrt(1.-mu2*mu2)*cos(fi)
- h1=(1.+2*mu1)/(1.+2.*sqrt(1.-om)*mu1)
- h2=(1.+2*mu2)/(1.+2.*sqrt(1.-om)*mu2)
- h1h2=h1*h2
- pg=(1-af*af)/((1+af*af+2*af*cg)**1.5)
- p0=(1-af*af)/((1+af*af+2*af)**1.5)
- g=acos(cg)
- bg=(s0/(om*p0))/(1.+tan(g/2.)/h)
- pond=mu1*mu2*si1*si2*wfa(k)*wta(j)*wta(l)
- brdfalb=brdfalb+f*((1.+bg)*pg+h1h2-1.)*pond
- summ=summ+pond
- 3 continue
- 2 continue
- 1 continue
- brdfalb=brdfalb/summ
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.h b/Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.h
deleted file mode 100644
index 0798e80..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKALBE.h
+++ /dev/null
@@ -1,7 +0,0 @@
-extern int otb_6s_hapkalbe_(
- otb_6s_doublereal *om,
- otb_6s_doublereal *af,
- otb_6s_doublereal *s0,
- otb_6s_doublereal *h__,
- otb_6s_doublereal *brdfalb
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.P b/Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.P
deleted file mode 100644
index e4b1c19..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int hapkbrdf_(doublereal *om, doublereal *af, doublereal *s0, doublereal *h__, integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal *brdfint);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.c b/Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.c
deleted file mode 100644
index fc5488c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.c
+++ /dev/null
@@ -1,116 +0,0 @@
-/* HAPKBRDF.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static doublereal c_b4 = 1.5;
-
-/*< >*/
-/* Subroutine */ int hapkbrdf_(doublereal *om, doublereal *af, doublereal *s0,
- doublereal *h__, integer *mu, integer *np, doublereal *rm,
- doublereal *rp, doublereal *brdfint)
-{
- /* System generated locals */
- integer rm_offset, brdfint_dim1, brdfint_offset, i__1, i__2;
- doublereal d__1;
-
- /* Builtin functions */
- double sqrt(doublereal), cos(doublereal), pow_dd(doublereal *, doublereal
- *), acos(doublereal), tan(doublereal);
-
- /* Local variables */
- doublereal f, g;
- integer j, k;
- doublereal h1, h2, p0, bg, cg, fi, pg, mu1, mu2, h1h2;
-
-/*< integer mu,np,k,j >*/
-/*< real rm(-mu:mu),rp(np),brdfint(-mu:mu,np) >*/
-/*< real f,h1 >*/
-/*< real h2,h1h2,pg,p0,g,bg >*/
-/*< real mu1,mu2,fi,cg >*/
-/*< real om,af,s0,h >*/
-/* here the notation are taken according to j.g.r.,vol 95,no d8,pp 11767,
-*/
-/* geometrical conditions: mu1 cosine of sun zenith angle */
-/* mu2 cosine of view zenith angle */
-/* fi: fi1-fi2 [radians] */
-/* cg: cos(g) */
-/* canopy parameters : om (albedo) */
-/* : af assymetry parameter for the phase function */
-/* : s0 amplitude of hot spot */
-/* : h width of the hot spot */
-/*< mu1=rm(0) >*/
- /* Parameter adjustments */
- rm_offset = -(*mu);
- rm -= rm_offset;
- brdfint_dim1 = *mu - (-(*mu)) + 1;
- brdfint_offset = -(*mu) + brdfint_dim1;
- brdfint -= brdfint_offset;
- --rp;
-
- /* Function Body */
- mu1 = rm[0];
-/*< do 1 k=1,np >*/
- i__1 = *np;
- for (k = 1; k <= i__1; ++k) {
-/*< do 2 j=1,mu >*/
- i__2 = *mu;
- for (j = 1; j <= i__2; ++j) {
-/*< mu2=rm(j) >*/
- mu2 = rm[j];
-/*< if (j.eq.mu) then >*/
- if (j == *mu) {
-/*< fi=rm(-mu) >*/
- fi = rm[-(*mu)];
-/*< else >*/
- } else {
-/*< fi=rp(k)+rm(-mu) >*/
- fi = rp[k] + rm[-(*mu)];
-/*< endif >*/
- }
-/*< cg=mu1*mu2+sqrt(1.-mu1*mu1)*sqrt(1.-mu2*mu2)*cos(fi) >*/
- cg = mu1 * mu2 + sqrt(1. - mu1 * mu1) * sqrt(1. - mu2 * mu2) *
- cos(fi);
-/*< f=om/4./(mu2+mu1) >*/
- f = *om / 4. / (mu2 + mu1);
-/*< h1=(1.+2*mu1)/(1.+2.*sqrt(1.-om)*mu1) >*/
- h1 = (mu1 * 2 + 1.) / (sqrt(1. - *om) * 2. * mu1 + 1.);
-/*< h2=(1.+2*mu2)/(1.+2.*sqrt(1.-om)*mu2) >*/
- h2 = (mu2 * 2 + 1.) / (sqrt(1. - *om) * 2. * mu2 + 1.);
-/*< h1h2=h1*h2 >*/
- h1h2 = h1 * h2;
-/*< pg=(1-af*af)/((1+af*af+2*af*cg)**1.5) >*/
- d__1 = *af * *af + 1 + *af * 2 * cg;
- pg = (1 - *af * *af) / pow_dd(&d__1, &c_b4);
-/*< p0=(1-af*af)/((1+af*af+2*af)**1.5) >*/
- d__1 = *af * *af + 1 + *af * 2;
- p0 = (1 - *af * *af) / pow_dd(&d__1, &c_b4);
-/*< g=acos(cg) >*/
- g = acos(cg);
-/*< bg=(s0/(om*p0))/(1+tan(g/2.)/h) >*/
- bg = *s0 / (*om * p0) / (tan(g / 2.) / *h__ + 1);
-/*< brdfint(j,k)=f*((1.+bg)*pg+h1h2-1.) >*/
- brdfint[j + k * brdfint_dim1] = f * ((bg + 1.) * pg + h1h2 - 1.);
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* hapkbrdf_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.f b/Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.f
deleted file mode 100644
index 96b7428..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.f
+++ /dev/null
@@ -1,44 +0,0 @@
- subroutine hapkbrdf(om,af,s0,h,mu,np,rm,rp,
- s brdfint)
- integer mu,np,k,j
- real rm(-mu:mu),rp(np),brdfint(-mu:mu,np)
- real f,h1
- real h2,h1h2,pg,p0,g,bg
- real mu1,mu2,fi,cg
- real om,af,s0,h
-c here the notation are taken according to j.g.r.,vol 95,no d8,pp 11767,
-c geometrical conditions: mu1 cosine of sun zenith angle
-c mu2 cosine of view zenith angle
-c fi: fi1-fi2 [radians]
-c cg: cos(g)
-c canopy parameters : om (albedo)
-c : af assymetry parameter for the phase function
-c : s0 amplitude of hot spot
-c : h width of the hot spot
- mu1=rm(0)
- do 1 k=1,np
- do 2 j=1,mu
- mu2=rm(j)
- if (j.eq.mu) then
- fi=rm(-mu)
- else
- fi=rp(k)+rm(-mu)
- endif
- cg=mu1*mu2+sqrt(1.-mu1*mu1)*sqrt(1.-mu2*mu2)*cos(fi)
- f=om/4./(mu2+mu1)
- h1=(1.+2*mu1)/(1.+2.*sqrt(1.-om)*mu1)
- h2=(1.+2*mu2)/(1.+2.*sqrt(1.-om)*mu2)
- h1h2=h1*h2
- pg=(1-af*af)/((1+af*af+2*af*cg)**1.5)
- p0=(1-af*af)/((1+af*af+2*af)**1.5)
- g=acos(cg)
- bg=(s0/(om*p0))/(1+tan(g/2.)/h)
- brdfint(j,k)=f*((1.+bg)*pg+h1h2-1.)
- 2 continue
- 1 continue
- return
- end
-
-
-
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.h b/Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.h
deleted file mode 100644
index d734f81..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/HAPKBRDF.h
+++ /dev/null
@@ -1,11 +0,0 @@
-extern int otb_6s_hapkbrdf_(
- otb_6s_doublereal *om,
- otb_6s_doublereal *af,
- otb_6s_doublereal *s0,
- otb_6s_doublereal *h__,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *brdfint
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/HRV.P b/Modules/ThirdParty/6S/src/6SV1.0B/HRV.P
deleted file mode 100644
index 0be8441..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/HRV.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int hrv_(integer *iwa);
-/* comlen sixs_ffu__ 12024 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/HRV.c b/Modules/ThirdParty/6S/src/6SV1.0B/HRV.c
deleted file mode 100644
index d857753..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/HRV.c
+++ /dev/null
@@ -1,674 +0,0 @@
-/* HRV.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine hrv(iwa) >*/
-/* Subroutine */ int hrv_(integer *iwa)
-{
- /* Initialized data */
-
- static doublereal sr[12008] /* was [8][1501] */ = { 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,.001,0.,0.,0.,.001,
- 0.,0.,.001,.0023,0.,0.,.0013,.0015,0.,0.,.0013,.0035,0.,0.,.0025,
- .002,0.,0.,.0015,.0048,0.,0.,.0038,.0025,0.,0.,.0018,.006,0.,0.,
- .005,.003,0.,0.,.002,.0492,0.,0.,.0322,.004,0.,0.,.0137,.0925,0.,
- 0.,.0595,.005,0.,0.,.0255,.1357,0.,0.,.0867,.006,0.,0.,.0372,.179,
- 0.,0.,.114,.007,0.,0.,.049,.2598,0.,0.,.1723,.085,0.,0.,.0898,
- .3405,0.,0.,.2305,.163,0.,0.,.1305,.4213,0.,0.,.2888,.241,0.,0.,
- .1713,.502,0.,0.,.347,.319,0.,0.,.212,.5575,0.,0.,.3748,.3918,0.,
- 0.,.2468,.613,0.,0.,.4025,.4645,0.,0.,.2815,.6685,0.,0.,.4303,
- .5373,0.,0.,.3163,.724,0.,0.,.458,.61,0.,0.,.351,.7588,0.,0.,.475,
- .65,0.,0.,.3725,.7935,0.,0.,.492,.69,0.,0.,.394,.8283,0.,0.,.509,
- .73,0.,0.,.4155,.863,0.,0.,.526,.77,0.,0.,.437,.89,0.,0.,.5538,
- .7965,0.,0.,.4655,.917,0.,0.,.5815,.823,0.,0.,.494,.944,0.,0.,
- .6093,.8495,0.,0.,.5225,.971,0.,0.,.637,.876,0.,0.,.551,.9782,0.,
- 0.,.6575,.8957,0.,0.,.5742,.9855,0.,0.,.678,.9155,0.,0.,.5975,
- .9927,0.,0.,.6985,.9352,0.,0.,.6207,1.,0.,0.,.719,.955,0.,0.,.644,
- .9875,0.,0.,.7228,.9663,0.,0.,.6505,.975,0.,0.,.7265,.9775,0.,0.,
- .657,.9625,0.,0.,.7303,.9888,0.,0.,.6635,.95,0.,0.,.734,1.,0.,0.,
- .67,.9255,0.,0.,.737,.9915,0.,0.,.6752,.901,0.,0.,.74,.983,0.,0.,
- .6805,.8765,0.,0.,.743,.9745,0.,0.,.6858,.852,0.,0.,.746,.966,0.,
- 0.,.691,.8225,0.,0.,.7595,.9362,0.,0.,.7032,.793,0.,0.,.773,.9065,
- 0.,0.,.7155,.7635,0.,0.,.7865,.8767,0.,0.,.7278,.734,0.,0.,.8,
- .847,0.,0.,.74,.7105,0.,0.,.8163,.8147,0.,0.,.753,.687,0.,0.,
- .8325,.7825,0.,0.,.766,.6635,0.,0.,.8488,.7502,0.,0.,.779,.64,0.,
- 0.,.865,.718,0.,0.,.792,.5945,0.,0.,.8767,.666,0.,0.,.8027,.549,
- 0.,0.,.8885,.614,0.,0.,.8135,.5035,0.,0.,.9003,.562,0.,0.,.8242,
- .458,0.,0.,.912,.51,.004,0.,.835,.3985,0.,0.,.9137,.4638,.0045,0.,
- .8427,.339,0.,0.,.9155,.4175,.005,0.,.8505,.2795,0.,0.,.9172,
- .3713,.0055,0.,.8582,.22,.019,0.,.919,.325,.006,0.,.866,.1787,
- .0845,0.,.9245,.2737,.0115,0.,.8692,.1375,.15,0.,.93,.2225,.017,
- 0.,.8725,.0962,.2155,0.,.9355,.1712,.0225,0.,.8758,.055,.281,0.,
- .941,.12,.028,0.,.879,.0437,.387,0.,.9387,.1012,.0893,0.,.883,
- .0325,.493,0.,.9365,.0825,.1505,0.,.887,.0212,.599,0.,.9342,.0637,
- .2118,0.,.891,.01,.705,0.,.932,.045,.273,0.,.895,.0085,.7663,0.,
- .9373,.0377,.3593,0.,.9025,.007,.8275,0.,.9425,.0305,.4455,0.,.91,
- .0055,.8888,0.,.9478,.0232,.5318,0.,.9175,.004,.95,0.,.953,.016,
- .618,0.,.925,.0035,.9557,0.,.9575,.0122,.6803,0.,.9365,.003,.9615,
- 0.,.962,.0085,.7425,0.,.948,.0025,.9672,0.,.9665,.0047,.8048,0.,
- .9595,.002,.973,0.,.971,.001,.867,0.,.971,.0015,.9797,0.,.9783,
- 7e-4,.9003,0.,.9783,.001,.9865,0.,.9855,5e-4,.9335,0.,.9855,5e-4,
- .9933,0.,.9928,2e-4,.9668,0.,.9928,0.,1.,0.,1.,0.,1.,0.,1.,0.,
- .8445,0.,.9898,0.,.9365,0.,.993,0.,.689,0.,.9795,0.,.873,0.,.986,
- 0.,.5335,0.,.9693,0.,.8095,0.,.979,0.,.378,0.,.959,0.,.746,0.,
- .972,0.,.3152,0.,.945,0.,.683,0.,.9548,0.,.2525,0.,.931,0.,.62,0.,
- .9375,0.,.1897,0.,.917,0.,.557,0.,.9202,0.,.127,0.,.903,0.,.494,
- 0.,.903,0.,.1067,0.,.878,0.,.4405,0.,.8802,0.,.0865,0.,.853,0.,
- .387,0.,.8575,0.,.0662,0.,.828,0.,.3335,0.,.8347,0.,.046,0.,.803,
- 0.,.28,0.,.812,0.,.0395,0.,.777,0.,.2452,0.,.7945,0.,.033,0.,.751,
- 0.,.2105,0.,.777,0.,.0265,0.,.725,0.,.1757,0.,.7595,0.,.02,0.,
- .699,0.,.141,0.,.742,0.,.0172,0.,.682,0.,.1222,0.,.7062,0.,.0145,
- 0.,.665,0.,.1035,0.,.6705,0.,.0117,0.,.648,0.,.0847,0.,.6347,0.,
- .009,0.,.631,0.,.066,0.,.599,0.,.008,0.,.6235,0.,.0575,0.,.5587,
- 0.,.007,0.,.616,0.,.049,0.,.5185,0.,.006,0.,.6085,0.,.0405,0.,
- .4782,0.,.005,0.,.601,0.,.032,0.,.438,0.,.0045,0.,.5535,0.,.0283,
- 0.,.3893,0.,.004,0.,.506,0.,.0245,0.,.3405,0.,.0035,0.,.4585,0.,
- .0208,0.,.2918,0.,.003,0.,.411,0.,.017,0.,.243,0.,0.,0.,.362,0.,
- .0152,0.,.2085,0.,0.,0.,.313,0.,.0135,0.,.174,0.,0.,0.,.264,0.,
- .0117,0.,.1395,0.,0.,.001,.215,0.,.01,0.,.105,0.,0.,.0033,.1825,
- 0.,0.,0.,.0895,0.,0.,.0055,.15,0.,0.,0.,.074,0.,0.,.0078,.1175,0.,
- 0.,0.,.0585,0.,0.,.01,.085,0.,0.,.002,.043,0.,0.,.0238,.072,0.,0.,
- .003,.0367,0.,0.,.0375,.059,0.,0.,.004,.0305,0.,0.,.0513,.046,0.,
- 0.,.005,.0242,0.,0.,.065,.033,0.,0.,.006,.018,0.,0.,.0953,.0282,
- 0.,0.,.0105,.0155,0.,0.,.1255,.0235,0.,0.,.015,.013,0.,0.,.1558,
- .0187,0.,0.,.0195,.0105,0.,0.,.186,.014,0.,0.,.024,.008,0.,0.,
- .247,.012,0.,0.,.038,.007,0.,0.,.308,.01,0.,0.,.052,.006,0.,0.,
- .369,.008,0.,0.,.066,.005,0.,0.,.43,.006,0.,0.,.08,.004,0.,0.,
- .4918,.0055,0.,0.,.114,.0035,0.,0.,.5535,.005,0.,0.,.148,.003,0.,
- 0.,.6153,.0045,0.,0.,.182,.0025,0.,0.,.677,.004,0.,0.,.216,.002,
- 0.,0.,.7222,.0035,0.,0.,.2722,.0018,0.,0.,.7675,.003,0.,0.,.3285,
- .0015,0.,0.,.8127,.0025,0.,0.,.3847,.0013,0.,0.,.858,.002,0.,0.,
- .441,.001,0.,0.,.8825,0.,0.,0.,.5018,0.,0.,0.,.907,0.,0.,0.,.5625,
- 0.,0.,0.,.9315,0.,0.,0.,.6233,0.,0.,0.,.956,0.,0.,0.,.684,0.,0.,
- 0.,.967,0.,0.,0.,.7298,0.,0.,0.,.978,0.,0.,0.,.7755,0.,0.,0.,.989,
- 0.,0.,0.,.8213,0.,0.,0.,1.,0.,0.,0.,.867,0.,0.,0.,.9915,0.,0.,0.,
- .892,0.,0.,0.,.983,0.,0.,0.,.917,0.,0.,0.,.9745,0.,0.,0.,.942,0.,
- 0.,0.,.966,0.,0.,0.,.967,0.,0.,0.,.9557,0.,0.,0.,.9753,0.,0.,0.,
- .9455,0.,0.,0.,.9835,0.,0.,0.,.9352,0.,0.,0.,.9918,0.,0.,0.,.925,
- 0.,0.,0.,1.,0.,0.,0.,.9112,0.,0.,0.,.9967,0.,0.,0.,.8975,0.,0.,0.,
- .9935,0.,0.,0.,.8837,0.,0.,0.,.9902,0.,0.,0.,.87,0.,0.,0.,.987,0.,
- 0.,0.,.8777,0.,0.,0.,.9793,0.,0.,0.,.8855,0.,0.,0.,.9715,0.,0.,0.,
- .8932,0.,0.,0.,.9638,0.,0.,0.,.901,0.,0.,0.,.956,0.,0.,0.,.8342,
- 0.,0.,0.,.95,0.,0.,0.,.7675,0.,0.,0.,.944,0.,0.,0.,.7007,0.,0.,0.,
- .938,0.,0.,0.,.634,0.,0.,0.,.932,0.,0.,0.,.56,0.,0.,0.,.9047,0.,
- 0.,0.,.486,0.,0.,0.,.8775,0.,0.,0.,.412,0.,0.,0.,.8502,0.,0.,0.,
- .338,0.,0.,0.,.823,0.,0.,0.,.2875,0.,0.,0.,.7665,0.,0.,0.,.237,0.,
- 0.,0.,.71,0.,0.,0.,.1865,0.,0.,0.,.6535,0.,0.,0.,.136,0.,0.,0.,
- .597,0.,0.,0.,.113,0.,0.,0.,.5305,0.,0.,0.,.09,0.,0.,0.,.464,0.,
- 0.,0.,.067,0.,0.,0.,.3975,0.,0.,0.,.044,0.,0.,0.,.331,0.,0.,0.,
- .036,0.,0.,0.,.285,0.,0.,0.,.028,0.,0.,0.,.239,0.,0.,0.,.02,0.,0.,
- 0.,.193,0.,0.,0.,.012,0.,0.,0.,.147,0.,0.,0.,.0108,0.,0.,0.,.125,
- 0.,0.,0.,.0095,0.,0.,0.,.103,0.,0.,0.,.0083,0.,0.,0.,.081,0.,0.,
- 0.,.007,0.,0.,0.,.059,0.,0.,0.,.0067,0.,0.,0.,.0497,0.,0.,0.,
- .0065,0.,0.,0.,.0405,0.,0.,0.,.0062,0.,0.,0.,.0312,0.,0.,0.,.006,
- 0.,0.,0.,.022,0.,0.,0.,.0047,0.,0.,0.,.0185,0.,0.,0.,.0035,0.,0.,
- 0.,.015,0.,0.,0.,.0022,0.,0.,0.,.0115,0.,0.,0.,.001,0.,0.,0.,.008,
- 0.,0.,0.,0.,0.,0.,0.,.0062,0.,0.,0.,0.,0.,0.,0.,.0045,0.,0.,0.,0.,
- 0.,0.,0.,.0027,0.,0.,0.,0.,0.,0.,0.,.001,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0. };
-
- integer i__;
- doublereal wli[8], wls[8];
-
-/*< common /sixs_ffu/ s(1501),wlinf,wlsup >*/
-/*< real sr(8,1501),wli(8),wls(8) >*/
-/*< real s,wlinf,wlsup >*/
-/*< integer iwa,l,i >*/
-
-/* 1st spectral band of hrv1 */
-/*< >*/
-/* 2nd spectral band of hrv1 */
-/*< >*/
-/* 3rd spectral band of hrv1 */
-/*< >*/
-/* panchromatic band of hrv1 */
-/*< >*/
-/* 1st spectral band of hrv2 */
-/*< >*/
-/* 2nd spectral band of hrv2 */
-/*< >*/
-/* 3rd spectral band of hrv2 */
-/*< >*/
-/* panchromatic spectral band of hrv2 */
-/*< >*/
-/*< wli(1)=.4699999 >*/
- wli[0] = .4699999;
-/*< wls(1)=.6499999 >*/
- wls[0] = .6499999;
-/*< wli(2)=0.6 >*/
- wli[1] = .6;
-/*< wls(2)=0.72 >*/
- wls[1] = .72;
-/*< wli(3)=0.73 >*/
- wli[2] = .73;
-/*< wls(3)=0.93 >*/
- wls[2] = .93;
-/*< wli(4)=0.4699999 >*/
- wli[3] = .4699999;
-/*< wls(4)=0.79 >*/
- wls[3] = .79;
-/*< wli(5)=0.4699999 >*/
- wli[4] = .4699999;
-/*< wls(5)=0.6499999 >*/
- wls[4] = .6499999;
-/*< wli(6)=0.5899999 >*/
- wli[5] = .5899999;
-/*< wls(6)=0.73 >*/
- wls[5] = .73;
-/*< wli(7)=0.74 >*/
- wli[6] = .74;
-/*< wls(7)=0.94 >*/
- wls[6] = .94;
-/*< wli(8)=0.4699999 >*/
- wli[7] = .4699999;
-/*< wls(8)=0.79 >*/
- wls[7] = .79;
-/*< do i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< s(i)=sr(iwa,i) >*/
- sixs_ffu__1.s[i__ - 1] = sr[*iwa + (i__ << 3) - 9];
-/*< enddo >*/
- }
-/*< wlinf=wli(iwa) >*/
- sixs_ffu__1.wlinf = wli[*iwa - 1];
-/*< wlsup=wls(iwa) >*/
- sixs_ffu__1.wlsup = wls[*iwa - 1];
-/*< return >*/
- return 0;
-/*< end >*/
-} /* hrv_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/HRV.f b/Modules/ThirdParty/6S/src/6SV1.0B/HRV.f
deleted file mode 100644
index 4700980..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/HRV.f
+++ /dev/null
@@ -1,149 +0,0 @@
- subroutine hrv(iwa)
- common /sixs_ffu/ s(1501),wlinf,wlsup
- real sr(8,1501),wli(8),wls(8)
- real s,wlinf,wlsup
- integer iwa,l,i
-c
-c 1st spectral band of hrv1
- data (sr(1,l),l=1,1501)/ 88*0.,
- a .0010, .0023, .0035, .0048, .0060, .0492, .0925, .1357,
- a .1790, .2598, .3405, .4213, .5020, .5575, .6130, .6685,
- a .7240, .7588, .7935, .8283, .8630, .8900, .9170, .9440,
- a .9710, .9782, .9855, .9927,1.0000, .9875, .9750, .9625,
- a .9500, .9255, .9010, .8765, .8520, .8225, .7930, .7635,
- a .7340, .7105, .6870, .6635, .6400, .5945, .5490, .5035,
- a .4580, .3985, .3390, .2795, .2200, .1787, .1375, .0962,
- a .0550, .0437, .0325, .0212, .0100, .0085, .0070, .0055,
- a .0040, .0035, .0030, .0025, .0020, .0015, .0010, .0005,
- a .0000,
- a1340*0./
-c 2nd spectral band of hrv1
- data (sr(2,l),l=1,1501)/ 140*0.,
- a .0190, .0845, .1500, .2155, .2810, .3870, .4930, .5990,
- a .7050, .7663, .8275, .8888, .9500, .9557, .9615, .9672,
- a .9730, .9797, .9865, .9933,1.0000, .8445, .6890, .5335,
- a .3780, .3152, .2525, .1897, .1270, .1067, .0865, .0662,
- a .0460, .0395, .0330, .0265, .0200, .0172, .0145, .0117,
- a .0090, .0080, .0070, .0060, .0050, .0045, .0040, .0035,
- a .0030,
- a1312*0./
-c 3rd spectral band of hrv1
- data (sr(3,l),l=1,1501)/ 192*0.,
- a .0010, .0033, .0055, .0078, .0100, .0238, .0375, .0513,
- a .0650, .0953, .1255, .1558, .1860, .2470, .3080, .3690,
- a .4300, .4918, .5535, .6153, .6770, .7222, .7675, .8127,
- a .8580, .8825, .9070, .9315, .9560, .9670, .9780, .9890,
- a1.0000, .9915, .9830, .9745, .9660, .9557, .9455, .9352,
- a .9250, .9112, .8975, .8837, .8700, .8777, .8855, .8932,
- a .9010, .8342, .7675, .7007, .6340, .5600, .4860, .4120,
- a .3380, .2875, .2370, .1865, .1360, .1130, .0900, .0670,
- a .0440, .0360, .0280, .0200, .0120, .0108, .0095, .0083,
- a .0070, .0067, .0065, .0062, .0060, .0047, .0035, .0022,
- a .0010,
- a1228*0./
-c panchromatic band of hrv1
- data (sr(4,l),l=1,1501)/ 88*0.,
- a .0000, .0013, .0025, .0038, .0050, .0322, .0595, .0867,
- a .1140, .1723, .2305, .2888, .3470, .3748, .4025, .4303,
- a .4580, .4750, .4920, .5090, .5260, .5538, .5815, .6093,
- a .6370, .6575, .6780, .6985, .7190, .7228, .7265, .7303,
- a .7340, .7370, .7400, .7430, .7460, .7595, .7730, .7865,
- a .8000, .8163, .8325, .8488, .8650, .8767, .8885, .9003,
- a .9120, .9137, .9155, .9172, .9190, .9245, .9300, .9355,
- a .9410, .9387, .9365, .9342, .9320, .9373, .9425, .9478,
- a .9530, .9575, .9620, .9665, .9710, .9783, .9855, .9928,
- a1.0000, .9898, .9795, .9693, .9590, .9450, .9310, .9170,
- a .9030, .8780, .8530, .8280, .8030, .7770, .7510, .7250,
- a .6990, .6820, .6650, .6480, .6310, .6235, .6160, .6085,
- a .6010, .5535, .5060, .4585, .4110, .3620, .3130, .2640,
- a .2150, .1825, .1500, .1175, .0850, .0720, .0590, .0460,
- a .0330, .0282, .0235, .0187, .0140, .0120, .0100, .0080,
- a .0060, .0055, .0050, .0045, .0040, .0035, .0030, .0025,
- a .0020,
- a1284*0./
-c 1st spectral band of hrv2
- data (sr(5,l),l=1,1501)/ 88*0.,
- a .0010, .0015, .0020, .0025, .0030, .0040, .0050, .0060,
- a .0070, .0850, .1630, .2410, .3190, .3918, .4645, .5373,
- a .6100, .6500, .6900, .7300, .7700, .7965, .8230, .8495,
- a .8760, .8957, .9155, .9352, .9550, .9663, .9775, .9888,
- a1.0000, .9915, .9830, .9745, .9660, .9362, .9065, .8767,
- a .8470, .8147, .7825, .7502, .7180, .6660, .6140, .5620,
- a .5100, .4638, .4175, .3713, .3250, .2737, .2225, .1712,
- a .1200, .1012, .0825, .0637, .0450, .0377, .0305, .0232,
- a .0160, .0122, .0085, .0047, .0010, .0007, .0005, .0002,
- a .0000,
- a1340*0./
-c 2nd spectral band of hrv2
-
- data (sr(6,l),l=1,1501)/ 136*0.,
- a .0040, .0045, .0050, .0055, .0060, .0115, .0170, .0225,
- a .0280, .0893, .1505, .2118, .2730, .3593, .4455, .5318,
- a .6180, .6803, .7425, .8048, .8670, .9003, .9335, .9668,
- a1.0000, .9365, .8730, .8095, .7460, .6830, .6200, .5570,
- a .4940, .4405, .3870, .3335, .2800, .2452, .2105, .1757,
- a .1410, .1222, .1035, .0847, .0660, .0575, .0490, .0405,
- a .0320, .0283, .0245, .0208, .0170, .0152, .0135, .0117,
- a .0100,
- a1308*0./
-c 3rd spectral band of hrv2
- data (sr(7,l),l=1,1501)/ 196*0.,
- a .0020, .0030, .0040, .0050, .0060, .0105, .0150, .0195,
- a .0240, .0380, .0520, .0660, .0800, .1140, .1480, .1820,
- a .2160, .2722, .3285, .3847, .4410, .5018, .5625, .6233,
- a .6840, .7298, .7755, .8213, .8670, .8920, .9170, .9420,
- a .9670, .9753, .9835, .9918,1.0000, .9967, .9935, .9902,
- a .9870, .9793, .9715, .9638, .9560, .9500, .9440, .9380,
- a .9320, .9047, .8775, .8502, .8230, .7665, .7100, .6535,
- a .5970, .5305, .4640, .3975, .3310, .2850, .2390, .1930,
- a .1470, .1250, .1030, .0810, .0590, .0497, .0405, .0312,
- a .0220, .0185, .0150, .0115, .0080, .0062, .0045, .0027,
- a .0010,
- a1224*0./
-
-c panchromatic spectral band of hrv2
-
- data (sr(8,l),l=1,1501)/ 88*0.,
- a .0010, .0013, .0015, .0018, .0020, .0137, .0255, .0372,
- a .0490, .0898, .1305, .1713, .2120, .2468, .2815, .3163,
- a .3510, .3725, .3940, .4155, .4370, .4655, .4940, .5225,
- a .5510, .5742, .5975, .6207, .6440, .6505, .6570, .6635,
- a .6700, .6752, .6805, .6858, .6910, .7032, .7155, .7278,
- a .7400, .7530, .7660, .7790, .7920, .8027, .8135, .8242,
- a .8350, .8427, .8505, .8582, .8660, .8692, .8725, .8758,
- a .8790, .8830, .8870, .8910, .8950, .9025, .9100, .9175,
- a .9250, .9365, .9480, .9595, .9710, .9783, .9855, .9928,
- a1.0000, .9930, .9860, .9790, .9720, .9548, .9375, .9202,
- a .9030, .8802, .8575, .8347, .8120, .7945, .7770, .7595,
- a .7420, .7062, .6705, .6347, .5990, .5587, .5185, .4782,
- a .4380, .3893, .3405, .2918, .2430, .2085, .1740, .1395,
- a .1050, .0895, .0740, .0585, .0430, .0367, .0305, .0242,
- a .0180, .0155, .0130, .0105, .0080, .0070, .0060, .0050,
- a .0040, .0035, .0030, .0025, .0020, .0018, .0015, .0013,
- a .0010,
- a1284*0./
-
- wli(1)=.4699999
- wls(1)=.6499999
- wli(2)=0.6
- wls(2)=0.72
- wli(3)=0.73
- wls(3)=0.93
- wli(4)=0.4699999
- wls(4)=0.79
- wli(5)=0.4699999
- wls(5)=0.6499999
- wli(6)=0.5899999
- wls(6)=0.73
- wli(7)=0.74
- wls(7)=0.94
- wli(8)=0.4699999
- wls(8)=0.79
-
- do i=1,1501
- s(i)=sr(iwa,i)
- enddo
- wlinf=wli(iwa)
- wlsup=wls(iwa)
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/HRV.h b/Modules/ThirdParty/6S/src/6SV1.0B/HRV.h
deleted file mode 100644
index 3177efa..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/HRV.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_hrv_(
- otb_6s_integer *iwa
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.P b/Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.P
deleted file mode 100644
index dff5957..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.P
+++ /dev/null
@@ -1,11 +0,0 @@
-extern int iapialbe_(integer *pild, doublereal *pxlt, doublereal *prl, doublereal *ptl, doublereal *prs, integer *pihs, doublereal *pc, doublereal *brdfalb);
-/* comlen sixs_ier__ 8 */
-/* comlen gauss_m__ 324 */
-/* comlen p_ 44 */
-/* comlen ld_ 32 */
-/* comlen ro_ 24 */
-/*:ref: lad_ 14 0 */
-/*:ref: gauss_ 14 5 7 7 7 7 4 */
-/*:ref: gauleg_ 14 5 7 7 7 7 4 */
-/*:ref: solve_ 14 1 7 */
-/*:ref: ro_1__ 7 4 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.c b/Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.c
deleted file mode 100644
index a036f4a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.c
+++ /dev/null
@@ -1,395 +0,0 @@
-/* IAPIALBE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-Extern struct {
- doublereal xgm[20], wgm[20];
- integer n;
-} gauss_m__;
-
-#define gauss_m__1 gauss_m__
-
-Extern struct {
- doublereal xlt, rl, tl, rs, c__;
- integer ild;
-} p_;
-
-#define p_1 p_
-
-Extern struct {
- doublereal a_ld__, b_ld__, c_ld__, d_ld__;
-} ld_;
-
-#define ld_1 ld_
-
-Extern struct {
- doublereal ro_1_c__, ro_1_s__, ro_mult__;
-} ro_;
-
-#define ro_1 ro_
-
-/* Table of constant values */
-
-static integer c__9 = 9;
-static integer c__1 = 1;
-static integer c__24 = 24;
-static integer c__48 = 48;
-static doublereal c_b54 = -1.;
-static doublereal c_b55 = 1.;
-
-/*< >*/
-/* Subroutine */ int iapialbe_(integer *pild, doublereal *pxlt, doublereal *
- prl, doublereal *ptl, doublereal *prs, integer *pihs, doublereal *pc,
- doublereal *brdfalb)
-{
- /* Builtin functions */
- integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen),
- e_wsle();
- /* Subroutine */ int s_stop(char *, ftnlen);
- double cos(doublereal), sin(doublereal), acos(doublereal);
-
- /* Local variables */
- integer j, k, l;
- doublereal y, fa[48], fi, ta[24], si1, si2, mu1, mu2;
- extern /* Subroutine */ int lad_();
- doublereal wfa[48];
- integer ihs;
- doublereal wta[24];
- extern doublereal ro_1__(doublereal *, doublereal *, doublereal *,
- doublereal *);
- doublereal phi1, phi2, pond, summ, teta1, teta2, phi_i__, phi_v__;
- extern /* Subroutine */ int gauss_(doublereal *, doublereal *, doublereal
- *, doublereal *, integer *), solve_(doublereal *), gauleg_(
- doublereal *, doublereal *, doublereal *, doublereal *, integer *)
- ;
- doublereal theta_i__, theta_v__;
-
- /* Fortran I/O blocks */
- static cilist io___2 = { 0, 6, 0, 0, 0 };
- static cilist io___3 = { 0, 6, 0, 0, 0 };
- static cilist io___4 = { 0, 6, 0, 0, 0 };
- static cilist io___5 = { 0, 6, 0, 0, 0 };
- static cilist io___6 = { 0, 6, 0, 0, 0 };
- static cilist io___7 = { 0, 6, 0, 0, 0 };
- static cilist io___8 = { 0, 6, 0, 0, 0 };
- static cilist io___9 = { 0, 6, 0, 0, 0 };
- static cilist io___10 = { 0, 6, 0, 0, 0 };
- static cilist io___11 = { 0, 6, 0, 0, 0 };
- static cilist io___12 = { 0, 6, 0, 0, 0 };
- static cilist io___13 = { 0, 6, 0, 0, 0 };
- static cilist io___14 = { 0, 6, 0, 0, 0 };
-
-
-
-/* interface between the computer code of the model of Iaquinta and Pinty
-*/
-/* the computer code is courtesy of Jean Ianquinta */
-/* see module IAPITOOLS.f for a complete description */
-
-
-/*< parameter (nta=24,nfa=48) >*/
-/*< real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa) >*/
-/*< real mu1,mu2,fi >*/
-/*< real pi,y >*/
-/*< real brdfalb,summ,si1,si2,ro_1,pond >*/
-/*< integer iwr,l,k,j >*/
-/*< integer pild,pihs >*/
-/*< real pxlt,prl,ptl,prs,pc >*/
-/*< logical ier >*/
-/*< common/sixs_ier/iwr,ier >*/
-/* begin of Iaquinta and Pinty model parameter and declaration */
-/*< parameter (Pi=3.141592653589793) >*/
-/*< common /gauss_m/xgm (20),wgm (20),n >*/
-/*< real xgm,wgm >*/
-/*< integer n >*/
-/*< common /p/xLt,Rl,Tl,Rs,c,ild >*/
-/*< real xLt,Rl,Tl,Rs,c >*/
-/*< integer ild >*/
-/*< common /ld/a_ld,b_ld,c_ld,d_ld >*/
-/*< real a_ld,b_ld,c_ld,d_ld >*/
-/*< common /Ro/Ro_1_c,Ro_1_s,Ro_mult >*/
-/*< real Ro_1_c,Ro_1_s,Ro_mult >*/
-/*< real Theta_i,Phi_i >*/
-/*< real Theta_v,Phi_v >*/
-/*< integer ihs >*/
-
-/* xLt = leaf area index */
-/* Rl = leaf reflection coefficient (Bi-Lambertian) */
-/* Tl = leaf transmission coefficient (Bi-Lambertian) */
-/* ild = leaf angle distribution : */
-/* 1 = planophile */
-/* 2 = erectophile */
-/* 3 = plagiophile */
-/* 4 = extremophile */
-/* 5 = uniform */
-/* Rs = soil albedo */
-/* c = 2*r*Lambda */
-
-/* Ro_1_c = single scattering by the canopy term */
-/* Ro_1_s = uncollided by the leaves (or singly scattered by */
-/* the soil) radiation */
-/* (Ro_1 = Ro_1_c + Ro_1_s) */
-/* Ro_mult = multiple scattering */
-/* transfer paramater to common / / parameter struture */
-/*< ild=pild >*/
- p_1.ild = *pild;
-/*< Xlt=pXlt >*/
- p_1.xlt = *pxlt;
-/*< Rl=pRl >*/
- p_1.rl = *prl;
-/*< Tl=pTl >*/
- p_1.tl = *ptl;
-/*< Rs=pRs >*/
- p_1.rs = *prs;
-/*< ihs=pihs >*/
- ihs = *pihs;
-/*< c=pc >*/
- p_1.c__ = *pc;
-
-/* Check parameter validity */
-/*< >*/
- if (p_1.ild != 1 && p_1.ild != 2 && p_1.ild != 3 && p_1.ild != 4 &&
- p_1.ild != 5) {
-/*< print*,'Leaf angle distribution !' >*/
- s_wsle(&io___2);
- do_lio(&c__9, &c__1, "Leaf angle distribution !", 25L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (xlt.le.0.) then >*/
- if (p_1.xlt <= 0.) {
-/*< print*,'Leaf area index < 0. !' >*/
- s_wsle(&io___3);
- do_lio(&c__9, &c__1, "Leaf area index < 0. !", 22L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (xlt.lt.1.) then >*/
- if (p_1.xlt < 1.) {
-/*< print*,'Leaf area index < 1. !' >*/
- s_wsle(&io___4);
- do_lio(&c__9, &c__1, "Leaf area index < 1. !", 22L);
- e_wsle();
-/*< endif >*/
- }
-/*< if (xlt.gt.15.) then >*/
- if (p_1.xlt > 15.) {
-/*< print*,'Leaf area index > 15. !' >*/
- s_wsle(&io___5);
- do_lio(&c__9, &c__1, "Leaf area index > 15. !", 23L);
- e_wsle();
-/*< endif >*/
- }
-/*< if (Rl.lt.0.) then >*/
- if (p_1.rl < 0.) {
-/*< print*,'Leaf reflectance < 0. !' >*/
- s_wsle(&io___6);
- do_lio(&c__9, &c__1, "Leaf reflectance < 0. !", 23L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (Rl.gt..99) then >*/
- if (p_1.rl > .99) {
-/*< print*,'Leaf reflectance > .99 !' >*/
- s_wsle(&io___7);
- do_lio(&c__9, &c__1, "Leaf reflectance > .99 !", 24L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (Tl.lt.0.) then >*/
- if (p_1.tl < 0.) {
-/*< print*,'Leaf transmittance < 0. !' >*/
- s_wsle(&io___8);
- do_lio(&c__9, &c__1, "Leaf transmittance < 0. !", 25L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (Tl.gt..99) then >*/
- if (p_1.tl > .99) {
-/*< print*,'Leaf transmittance > .99 !' >*/
- s_wsle(&io___9);
- do_lio(&c__9, &c__1, "Leaf transmittance > .99 !", 26L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (Rl+Tl.gt..99) then >*/
- if (p_1.rl + p_1.tl > .99) {
-/*< print*,'Single scattering albedo > .99 !' >*/
- s_wsle(&io___10);
- do_lio(&c__9, &c__1, "Single scattering albedo > .99 !", 32L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (Rs.lt.0.) then >*/
- if (p_1.rs < 0.) {
-/*< print*,'Soil albedo < 0. !' >*/
- s_wsle(&io___11);
- do_lio(&c__9, &c__1, "Soil albedo < 0. !", 18L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (Rs.gt..99) then >*/
- if (p_1.rs > .99) {
-/*< print*,'Soil albedo > .99 !' >*/
- s_wsle(&io___12);
- do_lio(&c__9, &c__1, "Soil albedo > .99 !", 19L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (c.lt.0.) then >*/
- if (p_1.c__ < 0.) {
-/*< print*,'Hot-spot parameter < 0. !' >*/
- s_wsle(&io___13);
- do_lio(&c__9, &c__1, "Hot-spot parameter < 0. !", 25L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (c.gt.2.) then >*/
- if (p_1.c__ > 2.) {
-/*< print*,'Hot-spot parameter > 2. !' >*/
- s_wsle(&io___14);
- do_lio(&c__9, &c__1, "Hot-spot parameter > 2. !", 25L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/* compute leaf area angle distribution */
-/*< call lad >*/
- lad_();
-
-/* - Hot-spot parameter */
-
-/*< if (ihs.eq.0) c=1.e-20 >*/
- if (ihs == 0) {
- p_1.c__ = 1e-20;
- }
-
-/*< teta1=0. >*/
- teta1 = 0.;
-/*< teta2=pi/2. >*/
- teta2 = 1.5707963267948966;
-/*< call gauss(teta1,teta2,ta,wta,nta) >*/
- gauss_(&teta1, &teta2, ta, wta, &c__24);
-/*< phi1=0. >*/
- phi1 = 0.;
-/*< phi2=2.*pi >*/
- phi2 = 6.2831853071795862;
-/*< call gauss(phi1,phi2,fa,wfa,nfa) >*/
- gauss_(&phi1, &phi2, fa, wfa, &c__48);
-/*< brdfalb=0. >*/
- *brdfalb = 0.;
-/*< summ=0. >*/
- summ = 0.;
-/* - Gauss's quadrature (n points) */
-
-/*< n=10 >*/
- gauss_m__1.n = 10;
-/*< call gauleg (-1.,1.,xgm,wgm,n) >*/
- gauleg_(&c_b54, &c_b55, gauss_m__1.xgm, gauss_m__1.wgm, &gauss_m__1.n);
-
-/*< do 3 l=1,nta >*/
- for (l = 1; l <= 24; ++l) {
-/*< mu1=cos(ta(l)) >*/
- mu1 = cos(ta[l - 1]);
-/*< si1=sin(ta(l)) >*/
- si1 = sin(ta[l - 1]);
-/*< Theta_i=acos(mu1) >*/
- theta_i__ = acos(mu1);
-/*< Theta_i=Pi-Theta_i >*/
- theta_i__ = 3.141592653589793 - theta_i__;
-/* - Computation of the multiple scattering (Ro_mult) */
-
-/*< call solve (Theta_i) >*/
- solve_(&theta_i__);
-
-/*< do 1 k=1,nfa >*/
- for (k = 1; k <= 48; ++k) {
-/*< do 2 j=1,nta >*/
- for (j = 1; j <= 24; ++j) {
-/*< mu2=cos(ta(j)) >*/
- mu2 = cos(ta[j - 1]);
-/*< si2=sin(ta(j)) >*/
- si2 = sin(ta[j - 1]);
-/*< fi=fa(k) >*/
- fi = fa[k - 1];
-/*< Theta_v=acos(mu2) >*/
- theta_v__ = acos(mu2);
-/*< if (fi.lt.0.) fi=fi+2.*pi >*/
- if (fi < 0.) {
- fi += 6.2831853071795862;
- }
-/*< if (fi.gt.(2.*pi)) fi=fi-2.*pi >*/
- if (fi > 6.2831853071795862) {
- fi += -6.2831853071795862;
- }
-/*< Phi_i=fi >*/
- phi_i__ = fi;
-/*< Phi_v=0. >*/
- phi_v__ = 0.;
-/*< y=Ro_1(Theta_i,Phi_i,Theta_v,Phi_v)+Ro_mult >*/
- y = ro_1__(&theta_i__, &phi_i__, &theta_v__, &phi_v__) +
- ro_1.ro_mult__;
-/*< pond=mu1*mu2*si1*si2*wfa(k)*wta(j)*wta(l) >*/
- pond = mu1 * mu2 * si1 * si2 * wfa[k - 1] * wta[j - 1] * wta[
- l - 1];
-/*< brdfalb=brdfalb+pond*y >*/
- *brdfalb += pond * y;
-/*< summ=summ+pond >*/
- summ += pond;
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< 3 continue >*/
-/* L3: */
- }
-/*< brdfalb=brdfalb/summ >*/
- *brdfalb /= summ;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* iapialbe_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.f b/Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.f
deleted file mode 100644
index dc6317f..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.f
+++ /dev/null
@@ -1,164 +0,0 @@
- subroutine iapialbe(pild,pxlt,prl,ptl,prs,pihs,pc,
- s brdfalb)
-c
-c interface between the computer code of the model of Iaquinta and Pinty
-c the computer code is courtesy of Jean Ianquinta
-c see module IAPITOOLS.f for a complete description
-c
-c
- parameter (nta=24,nfa=48)
- real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa)
- real mu1,mu2,fi
- real pi,y
- real brdfalb,summ,si1,si2,ro_1,pond
- integer iwr,l,k,j
- integer pild,pihs
- real pxlt,prl,ptl,prs,pc
- logical ier
- common/sixs_ier/iwr,ier
-C begin of Iaquinta and Pinty model parameter and declaration
- parameter (Pi=3.141592653589793)
- common /gauss_m/xgm (20),wgm (20),n
- real xgm,wgm
- integer n
- common /p/xLt,Rl,Tl,Rs,c,ild
- real xLt,Rl,Tl,Rs,c
- integer ild
- common /ld/a_ld,b_ld,c_ld,d_ld
- real a_ld,b_ld,c_ld,d_ld
- common /Ro/Ro_1_c,Ro_1_s,Ro_mult
- real Ro_1_c,Ro_1_s,Ro_mult
- real Theta_i,Phi_i
- real Theta_v,Phi_v
- integer ihs
-c
-c xLt = leaf area index
-c Rl = leaf reflection coefficient (Bi-Lambertian)
-c Tl = leaf transmission coefficient (Bi-Lambertian)
-c ild = leaf angle distribution :
-c 1 = planophile
-c 2 = erectophile
-c 3 = plagiophile
-c 4 = extremophile
-c 5 = uniform
-c Rs = soil albedo
-c c = 2*r*Lambda
-c
-c Ro_1_c = single scattering by the canopy term
-c Ro_1_s = uncollided by the leaves (or singly scattered by
-c the soil) radiation
-c (Ro_1 = Ro_1_c + Ro_1_s)
-c Ro_mult = multiple scattering
-c transfer paramater to common / / parameter struture
- ild=pild
- Xlt=pXlt
- Rl=pRl
- Tl=pTl
- Rs=pRs
- ihs=pihs
- c=pc
-C
-C Check parameter validity
- if ((ild.ne.1).and.
- + (ild.ne.2).and.
- + (ild.ne.3).and.
- + (ild.ne.4).and.
- + (ild.ne.5)) then
- print*,'Leaf angle distribution !'
- stop
- endif
- if (xlt.le.0.) then
- print*,'Leaf area index < 0. !'
- stop
- endif
- if (xlt.lt.1.) then
- print*,'Leaf area index < 1. !'
- endif
- if (xlt.gt.15.) then
- print*,'Leaf area index > 15. !'
- endif
- if (Rl.lt.0.) then
- print*,'Leaf reflectance < 0. !'
- stop
- endif
- if (Rl.gt..99) then
- print*,'Leaf reflectance > .99 !'
- stop
- endif
- if (Tl.lt.0.) then
- print*,'Leaf transmittance < 0. !'
- stop
- endif
- if (Tl.gt..99) then
- print*,'Leaf transmittance > .99 !'
- stop
- endif
- if (Rl+Tl.gt..99) then
- print*,'Single scattering albedo > .99 !'
- stop
- endif
- if (Rs.lt.0.) then
- print*,'Soil albedo < 0. !'
- stop
- endif
- if (Rs.gt..99) then
- print*,'Soil albedo > .99 !'
- stop
- endif
- if (c.lt.0.) then
- print*,'Hot-spot parameter < 0. !'
- stop
- endif
- if (c.gt.2.) then
- print*,'Hot-spot parameter > 2. !'
- stop
- endif
-C compute leaf area angle distribution
- call lad
-C
-c - Hot-spot parameter
-c
- if (ihs.eq.0) c=1.e-20
-C
- teta1=0.
- teta2=pi/2.
- call gauss(teta1,teta2,ta,wta,nta)
- phi1=0.
- phi2=2.*pi
- call gauss(phi1,phi2,fa,wfa,nfa)
- brdfalb=0.
- summ=0.
-c - Gauss's quadrature (n points)
-c
- n=10
- call gauleg (-1.,1.,xgm,wgm,n)
-c
- do 3 l=1,nta
- mu1=cos(ta(l))
- si1=sin(ta(l))
- Theta_i=acos(mu1)
- Theta_i=Pi-Theta_i
-c - Computation of the multiple scattering (Ro_mult)
-c
- call solve (Theta_i)
-c
- do 1 k=1,nfa
- do 2 j=1,nta
- mu2=cos(ta(j))
- si2=sin(ta(j))
- fi=fa(k)
- Theta_v=acos(mu2)
- if (fi.lt.0.) fi=fi+2.*pi
- if (fi.gt.(2.*pi)) fi=fi-2.*pi
- Phi_i=fi
- Phi_v=0.
- y=Ro_1(Theta_i,Phi_i,Theta_v,Phi_v)+Ro_mult
- pond=mu1*mu2*si1*si2*wfa(k)*wta(j)*wta(l)
- brdfalb=brdfalb+pond*y
- summ=summ+pond
- 2 continue
- 1 continue
- 3 continue
- brdfalb=brdfalb/summ
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.h b/Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.h
deleted file mode 100644
index 6db7d54..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIALBE.h
+++ /dev/null
@@ -1,10 +0,0 @@
-extern int otb_6s_iapialbe_(
- otb_6s_integer *pild,
- otb_6s_doublereal *pxlt,
- otb_6s_doublereal *prl,
- otb_6s_doublereal *ptl,
- otb_6s_doublereal *prs,
- otb_6s_integer *pihs,
- otb_6s_doublereal *pc,
- otb_6s_doublereal *brdfalb
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.P b/Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.P
deleted file mode 100644
index ef02000..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.P
+++ /dev/null
@@ -1,10 +0,0 @@
-extern int iapibrdf_(integer *pild, doublereal *pxlt, doublereal *prl, doublereal *ptl, doublereal *prs, integer *pihs, doublereal *pc, integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal *brdfint);
-/* comlen sixs_ier__ 8 */
-/* comlen gauss_m__ 324 */
-/* comlen p_ 44 */
-/* comlen ld_ 32 */
-/* comlen ro_ 24 */
-/*:ref: lad_ 14 0 */
-/*:ref: gauleg_ 14 5 7 7 7 7 4 */
-/*:ref: solve_ 14 1 7 */
-/*:ref: ro_1__ 7 4 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.c b/Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.c
deleted file mode 100644
index cc1475b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.c
+++ /dev/null
@@ -1,380 +0,0 @@
-/* IAPIBRDF.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-Extern struct {
- doublereal xgm[20], wgm[20];
- integer n;
-} gauss_m__;
-
-#define gauss_m__1 gauss_m__
-
-Extern struct {
- doublereal xlt, rl, tl, rs, c__;
- integer ild;
-} p_;
-
-#define p_1 p_
-
-Extern struct {
- doublereal a_ld__, b_ld__, c_ld__, d_ld__;
-} ld_;
-
-#define ld_1 ld_
-
-Extern struct {
- doublereal ro_1_c__, ro_1_s__, ro_mult__;
-} ro_;
-
-#define ro_1 ro_
-
-/* Table of constant values */
-
-static integer c__9 = 9;
-static integer c__1 = 1;
-static doublereal c_b52 = -1.;
-static doublereal c_b53 = 1.;
-
-/*< >*/
-/* Subroutine */ int iapibrdf_(integer *pild, doublereal *pxlt, doublereal *
- prl, doublereal *ptl, doublereal *prs, integer *pihs, doublereal *pc,
- integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal *
- brdfint)
-{
- /* System generated locals */
- integer rm_offset, brdfint_dim1, brdfint_offset, i__1, i__2;
-
- /* Builtin functions */
- integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen),
- e_wsle();
- /* Subroutine */ int s_stop(char *, ftnlen);
- double acos(doublereal);
-
- /* Local variables */
- integer j, k;
- doublereal fi, mu1, mu2;
- extern /* Subroutine */ int lad_();
- integer ihs;
- extern doublereal ro_1__(doublereal *, doublereal *, doublereal *,
- doublereal *);
- doublereal phi_i__, phi_v__;
- extern /* Subroutine */ int solve_(doublereal *), gauleg_(doublereal *,
- doublereal *, doublereal *, doublereal *, integer *);
- doublereal theta_i__, theta_v__;
-
- /* Fortran I/O blocks */
- static cilist io___2 = { 0, 6, 0, 0, 0 };
- static cilist io___3 = { 0, 6, 0, 0, 0 };
- static cilist io___4 = { 0, 6, 0, 0, 0 };
- static cilist io___5 = { 0, 6, 0, 0, 0 };
- static cilist io___6 = { 0, 6, 0, 0, 0 };
- static cilist io___7 = { 0, 6, 0, 0, 0 };
- static cilist io___8 = { 0, 6, 0, 0, 0 };
- static cilist io___9 = { 0, 6, 0, 0, 0 };
- static cilist io___10 = { 0, 6, 0, 0, 0 };
- static cilist io___11 = { 0, 6, 0, 0, 0 };
- static cilist io___12 = { 0, 6, 0, 0, 0 };
- static cilist io___13 = { 0, 6, 0, 0, 0 };
- static cilist io___14 = { 0, 6, 0, 0, 0 };
-
-
-
-/* interface between the computer code of the model of Iaquinta and Pinty
-*/
-/* the computer code is courtesy of Jean Ianquinta */
-/* see module IAPITOOLS.f for a complete description */
-
-
-/*< integer np,mu >*/
-/*< real rm(-mu:mu),rp(np),brdfint(-mu:mu,np) >*/
-/*< real ro_1 >*/
-/*< integer iwr,k,j >*/
-/*< integer pild,pihs >*/
-/*< real pxlt,prl,ptl,prs,pc >*/
-/*< logical ier >*/
-/*< common/sixs_ier/iwr,ier >*/
-
-/*< real mu1,mu2,fi >*/
-/*< real pi >*/
-/* begin of Iaquinta and Pinty model parameter and declaration */
-/*< parameter (Pi=3.141592653589793) >*/
-/*< common /gauss_m/xgm (20),wgm (20),n >*/
-/*< real xgm,wgm >*/
-/*< integer n >*/
-/*< common /p/xLt,Rl,Tl,Rs,c,ild >*/
-/*< real xLt,Rl,Tl,Rs,c >*/
-/*< integer ild >*/
-/*< common /ld/a_ld,b_ld,c_ld,d_ld >*/
-/*< real a_ld,b_ld,c_ld,d_ld >*/
-/*< common /Ro/Ro_1_c,Ro_1_s,Ro_mult >*/
-/*< real Ro_1_c,Ro_1_s,Ro_mult >*/
-/*< real Theta_i,Phi_i >*/
-/*< real Theta_v,Phi_v >*/
-/*< integer ihs >*/
-/* xLt = leaf area index */
-/* Rl = leaf reflection coefficient (Bi-Lambertian) */
-/* Tl = leaf transmission coefficient (Bi-Lambertian) */
-/* ild = leaf angle distribution : */
-/* 1 = planophile */
-/* 2 = erectophile */
-/* 3 = plagiophile */
-/* 4 = extremophile */
-/* 5 = uniform */
-/* Rs = soil albedo */
-/* c = 2*r*Lambda */
-
-/* Ro_1_c = single scattering by the canopy term */
-/* Ro_1_s = uncollided by the leaves (or singly scattered by */
-/* the soil) radiation */
-/* (Ro_1 = Ro_1_c + Ro_1_s) */
-/* Ro_mult = multiple scattering */
-/* transfer paramater to common / / parameter struture */
-/*< ild=pild >*/
- /* Parameter adjustments */
- rm_offset = -(*mu);
- rm -= rm_offset;
- brdfint_dim1 = *mu - (-(*mu)) + 1;
- brdfint_offset = -(*mu) + brdfint_dim1;
- brdfint -= brdfint_offset;
- --rp;
-
- /* Function Body */
- p_1.ild = *pild;
-/*< Xlt=pXlt >*/
- p_1.xlt = *pxlt;
-/*< Rl=pRl >*/
- p_1.rl = *prl;
-/*< Tl=pTl >*/
- p_1.tl = *ptl;
-/*< Rs=pRs >*/
- p_1.rs = *prs;
-/*< ihs=pihs >*/
- ihs = *pihs;
-/*< c=pc >*/
- p_1.c__ = *pc;
-
-/* Check parameter validity */
-/*< >*/
- if (p_1.ild != 1 && p_1.ild != 2 && p_1.ild != 3 && p_1.ild != 4 &&
- p_1.ild != 5) {
-/*< print*,'Leaf angle distribution !' >*/
- s_wsle(&io___2);
- do_lio(&c__9, &c__1, "Leaf angle distribution !", 25L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (xlt.le.0.) then >*/
- if (p_1.xlt <= 0.) {
-/*< print*,'Leaf area index < 0. !' >*/
- s_wsle(&io___3);
- do_lio(&c__9, &c__1, "Leaf area index < 0. !", 22L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (xlt.lt.1.) then >*/
- if (p_1.xlt < 1.) {
-/*< print*,'Leaf area index < 1. !' >*/
- s_wsle(&io___4);
- do_lio(&c__9, &c__1, "Leaf area index < 1. !", 22L);
- e_wsle();
-/*< endif >*/
- }
-/*< if (xlt.gt.15.) then >*/
- if (p_1.xlt > 15.) {
-/*< print*,'Leaf area index > 15. !' >*/
- s_wsle(&io___5);
- do_lio(&c__9, &c__1, "Leaf area index > 15. !", 23L);
- e_wsle();
-/*< endif >*/
- }
-/*< if (Rl.lt.0.) then >*/
- if (p_1.rl < 0.) {
-/*< print*,'Leaf reflectance < 0. !' >*/
- s_wsle(&io___6);
- do_lio(&c__9, &c__1, "Leaf reflectance < 0. !", 23L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (Rl.gt..99) then >*/
- if (p_1.rl > .99) {
-/*< print*,'Leaf reflectance > .99 !' >*/
- s_wsle(&io___7);
- do_lio(&c__9, &c__1, "Leaf reflectance > .99 !", 24L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (Tl.lt.0.) then >*/
- if (p_1.tl < 0.) {
-/*< print*,'Leaf transmittance < 0. !' >*/
- s_wsle(&io___8);
- do_lio(&c__9, &c__1, "Leaf transmittance < 0. !", 25L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (Tl.gt..99) then >*/
- if (p_1.tl > .99) {
-/*< print*,'Leaf transmittance > .99 !' >*/
- s_wsle(&io___9);
- do_lio(&c__9, &c__1, "Leaf transmittance > .99 !", 26L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (Rl+Tl.gt..99) then >*/
- if (p_1.rl + p_1.tl > .99) {
-/*< print*,'Single scattering albedo > .99 !' >*/
- s_wsle(&io___10);
- do_lio(&c__9, &c__1, "Single scattering albedo > .99 !", 32L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (Rs.lt.0.) then >*/
- if (p_1.rs < 0.) {
-/*< print*,'Soil albedo < 0. !' >*/
- s_wsle(&io___11);
- do_lio(&c__9, &c__1, "Soil albedo < 0. !", 18L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (Rs.gt..99) then >*/
- if (p_1.rs > .99) {
-/*< print*,'Soil albedo > .99 !' >*/
- s_wsle(&io___12);
- do_lio(&c__9, &c__1, "Soil albedo > .99 !", 19L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (c.lt.0.) then >*/
- if (p_1.c__ < 0.) {
-/*< print*,'Hot-spot parameter < 0. !' >*/
- s_wsle(&io___13);
- do_lio(&c__9, &c__1, "Hot-spot parameter < 0. !", 25L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (c.gt.2.) then >*/
- if (p_1.c__ > 2.) {
-/*< print*,'Hot-spot parameter > 2. !' >*/
- s_wsle(&io___14);
- do_lio(&c__9, &c__1, "Hot-spot parameter > 2. !", 25L);
- e_wsle();
-/*< stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/* compute leaf area angle distribution */
-/*< call lad >*/
- lad_();
-
-/* - Hot-spot parameter */
-
-/*< if (ihs.eq.0) c=0. >*/
- if (ihs == 0) {
- p_1.c__ = 0.;
- }
-
-/*< mu1=rm(0) >*/
- mu1 = rm[0];
-/*< Theta_i=acos(mu1) >*/
- theta_i__ = acos(mu1);
-/*< Theta_i=Pi-Theta_i >*/
- theta_i__ = 3.141592653589793 - theta_i__;
-
-
-/* - Gauss's quadrature (n points) */
-
-/*< n=10 >*/
- gauss_m__1.n = 10;
-/*< call gauleg (-1.,1.,xgm,wgm,n) >*/
- gauleg_(&c_b52, &c_b53, gauss_m__1.xgm, gauss_m__1.wgm, &gauss_m__1.n);
-
-/* - Computation of the multiple scattering (Ro_mult) */
-
-/*< call solve (Theta_i) >*/
- solve_(&theta_i__);
-
-/*< do 1 k=1,np >*/
- i__1 = *np;
- for (k = 1; k <= i__1; ++k) {
-/*< do 2 j=1,mu >*/
- i__2 = *mu;
- for (j = 1; j <= i__2; ++j) {
-/*< mu2=rm(j) >*/
- mu2 = rm[j];
-/*< if (j.eq.mu) then >*/
- if (j == *mu) {
-/*< fi=rm(-mu) >*/
- fi = rm[-(*mu)];
-/*< else >*/
- } else {
-/*< fi=rp(k)+rm(-mu) >*/
- fi = rp[k] + rm[-(*mu)];
-/*< endif >*/
- }
-/*< Theta_v=acos(mu2) >*/
- theta_v__ = acos(mu2);
-/*< if (fi.lt.0.) fi=fi+2.*pi >*/
- if (fi < 0.) {
- fi += 6.2831853071795862;
- }
-/*< if (fi.gt.(2.*pi)) fi=fi-2.*pi >*/
- if (fi > 6.2831853071795862) {
- fi += -6.2831853071795862;
- }
-/*< Phi_i=fi >*/
- phi_i__ = fi;
-/*< Phi_v=0. >*/
- phi_v__ = 0.;
-/*< brdfint(j,k)=Ro_1(Theta_i,Phi_i,Theta_v,Phi_v)+Ro_mult >*/
- brdfint[j + k * brdfint_dim1] = ro_1__(&theta_i__, &phi_i__, &
- theta_v__, &phi_v__) + ro_1.ro_mult__;
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* iapibrdf_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.f b/Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.f
deleted file mode 100644
index d2c33fb..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.f
+++ /dev/null
@@ -1,154 +0,0 @@
- subroutine iapibrdf(pild,pxlt,prl,ptl,prs,pihs,pc,mu,np,rm,rp,
- s brdfint)
-c
-c interface between the computer code of the model of Iaquinta and Pinty
-c the computer code is courtesy of Jean Ianquinta
-c see module IAPITOOLS.f for a complete description
-c
-c
- integer np,mu
- real rm(-mu:mu),rp(np),brdfint(-mu:mu,np)
- real ro_1
- integer iwr,k,j
- integer pild,pihs
- real pxlt,prl,ptl,prs,pc
- logical ier
- common/sixs_ier/iwr,ier
-c
- real mu1,mu2,fi
- real pi
-C begin of Iaquinta and Pinty model parameter and declaration
- parameter (Pi=3.141592653589793)
- common /gauss_m/xgm (20),wgm (20),n
- real xgm,wgm
- integer n
- common /p/xLt,Rl,Tl,Rs,c,ild
- real xLt,Rl,Tl,Rs,c
- integer ild
- common /ld/a_ld,b_ld,c_ld,d_ld
- real a_ld,b_ld,c_ld,d_ld
- common /Ro/Ro_1_c,Ro_1_s,Ro_mult
- real Ro_1_c,Ro_1_s,Ro_mult
- real Theta_i,Phi_i
- real Theta_v,Phi_v
- integer ihs
-c xLt = leaf area index
-c Rl = leaf reflection coefficient (Bi-Lambertian)
-c Tl = leaf transmission coefficient (Bi-Lambertian)
-c ild = leaf angle distribution :
-c 1 = planophile
-c 2 = erectophile
-c 3 = plagiophile
-c 4 = extremophile
-c 5 = uniform
-c Rs = soil albedo
-c c = 2*r*Lambda
-c
-c Ro_1_c = single scattering by the canopy term
-c Ro_1_s = uncollided by the leaves (or singly scattered by
-c the soil) radiation
-c (Ro_1 = Ro_1_c + Ro_1_s)
-c Ro_mult = multiple scattering
-c transfer paramater to common / / parameter struture
- ild=pild
- Xlt=pXlt
- Rl=pRl
- Tl=pTl
- Rs=pRs
- ihs=pihs
- c=pc
-C
-C Check parameter validity
- if ((ild.ne.1).and.
- + (ild.ne.2).and.
- + (ild.ne.3).and.
- + (ild.ne.4).and.
- + (ild.ne.5)) then
- print*,'Leaf angle distribution !'
- stop
- endif
- if (xlt.le.0.) then
- print*,'Leaf area index < 0. !'
- stop
- endif
- if (xlt.lt.1.) then
- print*,'Leaf area index < 1. !'
- endif
- if (xlt.gt.15.) then
- print*,'Leaf area index > 15. !'
- endif
- if (Rl.lt.0.) then
- print*,'Leaf reflectance < 0. !'
- stop
- endif
- if (Rl.gt..99) then
- print*,'Leaf reflectance > .99 !'
- stop
- endif
- if (Tl.lt.0.) then
- print*,'Leaf transmittance < 0. !'
- stop
- endif
- if (Tl.gt..99) then
- print*,'Leaf transmittance > .99 !'
- stop
- endif
- if (Rl+Tl.gt..99) then
- print*,'Single scattering albedo > .99 !'
- stop
- endif
- if (Rs.lt.0.) then
- print*,'Soil albedo < 0. !'
- stop
- endif
- if (Rs.gt..99) then
- print*,'Soil albedo > .99 !'
- stop
- endif
- if (c.lt.0.) then
- print*,'Hot-spot parameter < 0. !'
- stop
- endif
- if (c.gt.2.) then
- print*,'Hot-spot parameter > 2. !'
- stop
- endif
-C compute leaf area angle distribution
- call lad
-C
-c - Hot-spot parameter
-c
- if (ihs.eq.0) c=0.
-C
- mu1=rm(0)
- Theta_i=acos(mu1)
- Theta_i=Pi-Theta_i
-c
-c
-c - Gauss's quadrature (n points)
-c
- n=10
- call gauleg (-1.,1.,xgm,wgm,n)
-c
-c - Computation of the multiple scattering (Ro_mult)
-c
- call solve (Theta_i)
-C
- do 1 k=1,np
- do 2 j=1,mu
- mu2=rm(j)
- if (j.eq.mu) then
- fi=rm(-mu)
- else
- fi=rp(k)+rm(-mu)
- endif
- Theta_v=acos(mu2)
- if (fi.lt.0.) fi=fi+2.*pi
- if (fi.gt.(2.*pi)) fi=fi-2.*pi
- Phi_i=fi
- Phi_v=0.
- brdfint(j,k)=Ro_1(Theta_i,Phi_i,Theta_v,Phi_v)+Ro_mult
- 2 continue
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.h b/Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.h
deleted file mode 100644
index fb844e5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/IAPIBRDF.h
+++ /dev/null
@@ -1,14 +0,0 @@
-extern int otb_6s_iapibrdf_(
- otb_6s_integer *pild,
- otb_6s_doublereal *pxlt,
- otb_6s_doublereal *prl,
- otb_6s_doublereal *ptl,
- otb_6s_doublereal *prs,
- otb_6s_integer *pihs,
- otb_6s_doublereal *pc,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *brdfint
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.P b/Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.P
deleted file mode 100644
index 1b0bc09..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.P
+++ /dev/null
@@ -1,15 +0,0 @@
-extern doublereal ro_1__(doublereal *theta_i__, doublereal *phi_i__, doublereal *theta_e__, doublereal *phi_e__);
-extern doublereal gamma_f__(doublereal *theta_p__, doublereal *phi_p__, doublereal *theta, doublereal *phi);
-extern doublereal geo_(doublereal *theta_i__, doublereal *phi_i__, doublereal *theta_e__, doublereal *phi_e__);
-extern doublereal h_(doublereal *xl, doublereal *xli);
-extern doublereal g_f__(doublereal *theta);
-extern doublereal psi_(doublereal *theta, doublereal *xt);
-extern doublereal gl_(doublereal *theta);
-extern int gauleg_(doublereal *x1, doublereal *x2, doublereal *x, doublereal *w, integer *n);
-extern int solve_(doublereal *theta_i__);
-extern int lad_();
-/* comlen gauss_m__ 324 */
-/* comlen p_ 44 */
-/* comlen ro_ 24 */
-/* comlen ld_ 32 */
-/* comlen l_ 16 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.c b/Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.c
deleted file mode 100644
index df69188..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.c
+++ /dev/null
@@ -1,986 +0,0 @@
-/* IAPITOOLS.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal xgm[20], wgm[20];
- integer n;
-} gauss_m__;
-
-#define gauss_m__1 gauss_m__
-
-Extern struct {
- doublereal xlt, rl, tl, rs, c__;
- integer ild;
-} p_;
-
-#define p_1 p_
-
-Extern struct {
- doublereal ro_1_c__, ro_1_s__, ro_mult__;
-} ro_;
-
-#define ro_1 ro_
-
-Extern struct {
- doublereal a_ld__, b_ld__, c_ld__, d_ld__;
-} ld_;
-
-#define ld_1 ld_
-
-Extern struct {
- doublereal dl, xl;
-} l_;
-
-#define l_1 l_
-
-/*< real function Ro_1 (Theta_i,Phi_i,Theta_e,Phi_e) >*/
-doublereal ro_1__(doublereal *theta_i__, doublereal *phi_i__, doublereal *
- theta_e__, doublereal *phi_e__)
-{
- /* System generated locals */
- integer i__1;
- doublereal ret_val, d__1;
-
- /* Builtin functions */
- double cos(doublereal), exp(doublereal);
-
- /* Local variables */
- extern doublereal h_(doublereal *, doublereal *);
- integer j;
- doublereal ge, gi, ke, ki, xl;
- extern doublereal g_f__(doublereal *), geo_(doublereal *, doublereal *,
- doublereal *, doublereal *);
- doublereal xdb, xli, xmm, xrm, xmu, xmui, xtmu;
- extern doublereal gamma_f__(doublereal *, doublereal *, doublereal *,
- doublereal *);
-
-/*< common /gauss_m/xgm (20),wgm (20),n >*/
-/*< real xgm,wgm >*/
-/*< integer n >*/
-/*< real G_f,Geo,h,gamma_f >*/
-/*< common /p/xLt,Rl,Tl,Rs,c,ild >*/
-/*< real xLt,Rl,Tl,Rs,c >*/
-/*< integer ild >*/
-/*< common /Ro/Ro_1_c,Ro_1_s,Ro_mult >*/
-/*< real Ro_1_c,Ro_1_s,Ro_mult >*/
-/*< real Theta_i,Phi_i,Theta_e,Phi_e,xmui,xmu,xtmu >*/
-/*< real Gi,Ge,Ki,Ke,xLi >*/
-/*< real xmm,xrm >*/
-/*< real xL >*/
-/*< double precision xdb >*/
-/*< integer j >*/
-
-/*< xtmu=1.E-05 >*/
- xtmu = 1e-5;
-/*< xmui=abs(cos(Theta_i)) >*/
- xmui = (d__1 = cos(*theta_i__), abs(d__1));
-/*< xmu=cos(Theta_e) >*/
- xmu = cos(*theta_e__);
-/*< if (abs(xmu).lt.xtmu) xmu=xtmu >*/
- if (abs(xmu) < xtmu) {
- xmu = xtmu;
- }
-
-/*< Gi=G_f (Theta_i) >*/
- gi = g_f__(theta_i__);
-/*< Ge=G_f (Theta_e) >*/
- ge = g_f__(theta_e__);
-
-/*< Ki=Gi/xmui >*/
- ki = gi / xmui;
-/*< Ke=Ge/xmu >*/
- ke = ge / xmu;
-
-/*< xmm=0.5*(xLt+0.) >*/
- xmm = (p_1.xlt + 0.) * .5;
-/*< xrm=0.5*(xLt-0.) >*/
- xrm = (p_1.xlt + 0.) * .5;
-/*< Ro_1_c=0. >*/
- ro_1.ro_1_c__ = 0.;
-/*< xLi=c/Geo (Theta_i,Phi_i,Theta_e,Phi_e) >*/
- xli = p_1.c__ / geo_(theta_i__, phi_i__, theta_e__, phi_e__);
-/*< do j=1,n >*/
- i__1 = gauss_m__1.n;
- for (j = 1; j <= i__1; ++j) {
-/*< xL=xmm+xrm*xgm(j) >*/
- xl = xmm + xrm * gauss_m__1.xgm[j - 1];
-/*< xdb=(Ki+Ke*h(xL,xLi))*dble(xL) >*/
- xdb = (ki + ke * h_(&xl, &xli)) * xl;
-/*< if (abs(xdb).lt.1.E-30) xdb=0. >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< if (xdb.le.20) Ro_1_c=Ro_1_c+wgm(j)*xrm*dexp(-xdb) >*/
- if (xdb <= 20.) {
- ro_1.ro_1_c__ += gauss_m__1.wgm[j - 1] * xrm * exp(-xdb);
- }
-/*< enddo >*/
- }
-
-/*< >*/
- ro_1.ro_1_c__ = ro_1.ro_1_c__ * gamma_f__(theta_i__, phi_i__, theta_e__,
- phi_e__) / xmui / xmu;
-
-/*< xdb=(Ki+Ke*h (xLt,xLi))*dble(xLt) >*/
- xdb = (ki + ke * h_(&p_1.xlt, &xli)) * p_1.xlt;
-/*< if (abs(xdb).lt.1.E-30) xdb=0. >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< if (xdb.le.20) Ro_1_s=Rs*dexp(-xdb) >*/
- if (xdb <= 20.) {
- ro_1.ro_1_s__ = p_1.rs * exp(-xdb);
- }
-
-/*< Ro_1=Ro_1_c+Ro_1_s >*/
- ret_val = ro_1.ro_1_c__ + ro_1.ro_1_s__;
-
-/*< return >*/
- return ret_val;
-/*< end >*/
-} /* ro_1__ */
-
-
-/*< real function Gamma_f (Theta_p,Phi_p,Theta,Phi) >*/
-doublereal gamma_f__(doublereal *theta_p__, doublereal *phi_p__, doublereal *
- theta, doublereal *phi)
-{
- /* System generated locals */
- integer i__1, i__2;
- doublereal ret_val;
-
- /* Builtin functions */
- double cos(doublereal), sin(doublereal);
-
- /* Local variables */
- doublereal f;
- integer i__, j;
- extern doublereal gl_(doublereal *);
- doublereal dp, xt, yt, dpp, xmm, ymm, sum, xrm, yrm;
-
-/*< parameter (Pi=3.141592653589793) >*/
-/*< common /p/xLt,Rl,Tl,Rs,c,ild >*/
-/*< real xLt,Rl,Tl,Rs,c,gl >*/
-/*< integer ild >*/
-/*< common /gauss_m/xgm (20),wgm (20),n >*/
-/*< real xgm,wgm >*/
-/*< integer n >*/
-/*< real Theta_p,Phi_p,Theta,Phi >*/
-/*< real xmm,xrm,xt >*/
-/*< real ymm,yrm,yt >*/
-/*< real dp,dpp,f >*/
-/*< real sum >*/
-/*< integer i,j >*/
-
-/*< xmm=0.5*(Pi/2.+0.) >*/
- xmm = .78539816339744828;
-/*< xrm=0.5*(Pi/2.-0.) >*/
- xrm = .78539816339744828;
-/*< ymm=0.5*(2.*Pi+0.) >*/
- ymm = 3.1415926535897931;
-/*< yrm=0.5*(2.*Pi-0.) >*/
- yrm = 3.1415926535897931;
-/*< Gamma_f = 0. >*/
- ret_val = 0.;
-/*< do j=1,n >*/
- i__1 = gauss_m__1.n;
- for (j = 1; j <= i__1; ++j) {
-/*< xt=xmm+xrm*xgm (j) >*/
- xt = xmm + xrm * gauss_m__1.xgm[j - 1];
-/*< sum=0. >*/
- sum = 0.;
-/*< do i=1,n >*/
- i__2 = gauss_m__1.n;
- for (i__ = 1; i__ <= i__2; ++i__) {
-/*< yt=ymm+yrm*xgm (i) >*/
- yt = ymm + yrm * gauss_m__1.xgm[i__ - 1];
-/*< >*/
- dpp = cos(*theta_p__) * cos(xt) + sin(*theta_p__) * sin(xt) * cos(
- *phi_p__ - yt);
-/*< >*/
- dp = cos(*theta) * cos(xt) + sin(*theta) * sin(xt) * cos(*phi -
- yt);
-/* correction when porting code to HP730 */
-/*< if (dp*dpp.lt.0.) then >*/
- if (dp * dpp < 0.) {
-/*< f=Rl*abs (dp)/Pi >*/
- f = p_1.rl * abs(dp) / 3.141592653589793;
-/*< else >*/
- } else {
-/*< f=Tl*abs (dp)/Pi >*/
- f = p_1.tl * abs(dp) / 3.141592653589793;
-/*< endif >*/
- }
-/* end of correction */
-/*< sum=sum+wgm (i)*xrm*gl (xt)*f*abs (dpp) >*/
- sum += gauss_m__1.wgm[i__ - 1] * xrm * gl_(&xt) * f * abs(dpp);
-/*< enddo >*/
- }
-/*< Gamma_f=Gamma_f+wgm (j)*yrm*sum >*/
- ret_val += gauss_m__1.wgm[j - 1] * yrm * sum;
-/*< enddo >*/
- }
-/*< Gamma_f=Gamma_f/2. >*/
- ret_val /= 2.;
-/*< return >*/
- return ret_val;
-/*< end >*/
-} /* gamma_f__ */
-
-
-/*< real function Geo (Theta_i,Phi_i,Theta_e,Phi_e) >*/
-doublereal geo_(doublereal *theta_i__, doublereal *phi_i__, doublereal *
- theta_e__, doublereal *phi_e__)
-{
- /* System generated locals */
- doublereal ret_val, d__1, d__2, d__3;
-
- /* Builtin functions */
- double tan(doublereal), cos(doublereal), sqrt(doublereal);
-
-/*< real Theta_i,Phi_i,Theta_e,Phi_e >*/
-/*< >*/
-/* Computing 2nd power */
- d__2 = tan(*theta_i__);
-/* Computing 2nd power */
- d__3 = tan(*theta_e__);
- ret_val = sqrt((d__1 = d__2 * d__2 + d__3 * d__3 - tan(*theta_i__) * 2. *
- tan(*theta_e__) * cos(*phi_i__ - *phi_e__), abs(d__1)));
-/*< if (Geo.lt.1.e-35) Geo=1.e-35 >*/
- if (ret_val < 1e-35) {
- ret_val = 1e-35;
- }
-/*< return >*/
- return ret_val;
-/*< end >*/
-} /* geo_ */
-
-
-/*< real function h (xL,xLi) >*/
-doublereal h_(doublereal *xl, doublereal *xli)
-{
- /* System generated locals */
- doublereal ret_val;
-
-/*< parameter (Pi=3.141592653589793) >*/
-/*< real xL,xLi >*/
-/*< if (xL.lt.xLi) then >*/
- if (*xl < *xli) {
-/*< h=(1.-4./3./Pi)/xLi*xL >*/
- ret_val = .57558681842161241 / *xli * *xl;
-/*< else >*/
- } else {
-/*< h=1.-4./3./Pi*xLi/xL >*/
- ret_val = 1. - *xli * .42441318157838753 / *xl;
-/*< endif >*/
- }
-/*< return >*/
- return ret_val;
-/*< end >*/
-} /* h_ */
-
-
-/*< real function G_f (Theta) >*/
-doublereal g_f__(doublereal *theta)
-{
- /* System generated locals */
- integer i__1;
- doublereal ret_val;
-
- /* Local variables */
- integer j;
- extern doublereal gl_(doublereal *);
- doublereal xt;
- extern doublereal psi_(doublereal *, doublereal *);
- doublereal xmm, xrm;
-
-/*< parameter (Pi=3.141592653589793) >*/
-/*< common /p/xLt,Rl,Tl,Rs,c,ild >*/
-/*< real xLt,Rl,Tl,Rs,c,psi,gl >*/
-/*< integer ild >*/
-/*< common /gauss_m/xgm (20),wgm (20),n >*/
-/*< real xgm,wgm >*/
-/*< integer n >*/
-/*< real Theta >*/
-/*< real xmm,xrm,xt >*/
-/*< integer j >*/
-
-/*< xmm=0.5*(Pi/2.+0.) >*/
- xmm = .78539816339744828;
-/*< xrm=0.5*(Pi/2.-0.) >*/
- xrm = .78539816339744828;
-/*< G_f = 0. >*/
- ret_val = 0.;
-/*< do j=1,n >*/
- i__1 = gauss_m__1.n;
- for (j = 1; j <= i__1; ++j) {
-/*< xt=xmm+xrm*xgm (j) >*/
- xt = xmm + xrm * gauss_m__1.xgm[j - 1];
-/*< G_f=G_f+wgm (j)*xrm*Psi (Theta,xt)*gl (xt) >*/
- ret_val += gauss_m__1.wgm[j - 1] * xrm * psi_(theta, &xt) * gl_(&xt);
-/*< enddo >*/
- }
-/*< return >*/
- return ret_val;
-/*< end >*/
-} /* g_f__ */
-
-
-/*< real function Psi (Theta,xt) >*/
-doublereal psi_(doublereal *theta, doublereal *xt)
-{
- /* System generated locals */
- doublereal ret_val;
-
- /* Builtin functions */
- double cos(doublereal), sin(doublereal), acos(doublereal);
-
- /* Local variables */
- doublereal pt, cpt, smu, xmu;
-
-/*< parameter (Pi=3.141592653589793) >*/
-/*< common /p/xLt,Rl,Tl,Rs,c,ild >*/
-/*< real xLt,Rl,Tl,Rs,c >*/
-/*< integer ild >*/
-/*< real Theta,xt >*/
-/*< real cpt,pt >*/
-/*< real xmu,smu >*/
-
-/*< xmu=cos (xt) >*/
- xmu = cos(*xt);
-/*< smu=sin (xt) >*/
- smu = sin(*xt);
-/*< if (xmu.eq.1.) then >*/
- if (xmu == 1.) {
-/*< Psi=cos (Theta) >*/
- ret_val = cos(*theta);
-/*< else >*/
- } else {
-/*< if (sin (Theta).eq.0.) then >*/
- if (sin(*theta) == 0.) {
-/*< Psi=xmu >*/
- ret_val = xmu;
-/*< else >*/
- } else {
-/*< if (smu.eq.0.) then >*/
- if (smu == 0.) {
-/*< cpt=0. >*/
- cpt = 0.;
-/*< else >*/
- } else {
-/*< >*/
- cpt = xmu * 1. / smu * cos(*theta) / sin(*theta);
-/*< endif >*/
- }
-/*< if (abs (cpt).gt.1.) then >*/
- if (abs(cpt) > 1.) {
-/*< Psi=xmu*cos (Theta) >*/
- ret_val = xmu * cos(*theta);
-/*< else >*/
- } else {
-/*< pt=acos (-cpt) >*/
- pt = acos(-cpt);
-/*< >*/
- ret_val = xmu * cos(*theta) * (pt * .63661977236758138 - 1.)
- + smu * .63661977236758138 * sin(*theta) * sin(pt);
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< Psi=abs (Psi) >*/
- ret_val = abs(ret_val);
-/*< return >*/
- return ret_val;
-/*< end >*/
-} /* psi_ */
-
-
-/*< real function gl (Theta) >*/
-doublereal gl_(doublereal *theta)
-{
- /* System generated locals */
- doublereal ret_val;
-
- /* Builtin functions */
- double cos(doublereal), sin(doublereal);
-
-/*< parameter (Pi=3.141592653589793) >*/
-/*< common /ld/a_ld,b_ld,c_ld,d_ld >*/
-/*< real a_ld,b_ld,c_ld,d_ld >*/
-/*< real Theta >*/
-
-/*< >*/
- ret_val = ld_1.a_ld__ + ld_1.b_ld__ * cos(*theta * 2.) + ld_1.c_ld__ *
- cos(*theta * 4.) + ld_1.d_ld__ * sin(*theta);
-/*< return >*/
- return ret_val;
-/*< end >*/
-} /* gl_ */
-
-
-/*< subroutine gauleg(x1,x2,x,w,n) >*/
-/* Subroutine */ int gauleg_(doublereal *x1, doublereal *x2, doublereal *x,
- doublereal *w, integer *n)
-{
- /* System generated locals */
- integer i__1, i__2;
- doublereal d__1;
-
- /* Builtin functions */
- double cos(doublereal);
-
- /* Local variables */
- integer i__, j, m;
- doublereal z__, p1, p2, p3, z1, pp, xl, xm;
-
-/*< integer n >*/
-/*< real x1,x2,x (n),w (n) >*/
-/*< double precision eps >*/
-/*< parameter (eps=3.d-14) >*/
-/*< integer i,j,m >*/
-/*< double precision p1,p2,p3,pp,xl,xm,z,z1 >*/
-/*< m=(n+1)/2 >*/
- /* Parameter adjustments */
- --w;
- --x;
-
- /* Function Body */
- m = (*n + 1) / 2;
-/*< xm=0.5d00*(x2+x1) >*/
- xm = (*x2 + *x1) * .5;
-/*< xl=0.5d00*(x2-x1) >*/
- xl = (*x2 - *x1) * .5;
-/*< do i=1,m >*/
- i__1 = m;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< z=cos(3.141592654d00*(i-.25d00)/(n+.5d00)) >*/
- z__ = cos((i__ - .25) * 3.141592654 / (*n + .5));
-/*< 1 continue >*/
-L1:
-/*< p1=1.d00 >*/
- p1 = 1.;
-/*< p2=0.d00 >*/
- p2 = 0.;
-/*< do j=1,n >*/
- i__2 = *n;
- for (j = 1; j <= i__2; ++j) {
-/*< p3=p2 >*/
- p3 = p2;
-/*< p2=p1 >*/
- p2 = p1;
-/*< p1=((2.d00*j-1.d00)*z*p2-(j-1.d00)*p3)/j >*/
- p1 = ((j * 2. - 1.) * z__ * p2 - (j - 1.) * p3) / j;
-/*< enddo >*/
- }
-/*< pp=n*(z*p1-p2)/(z*z-1.d00) >*/
- pp = *n * (z__ * p1 - p2) / (z__ * z__ - 1.);
-/*< z1=z >*/
- z1 = z__;
-/*< z=z1-p1/pp >*/
- z__ = z1 - p1 / pp;
-/*< if(abs(z-z1).gt.eps)go to 1 >*/
- if ((d__1 = z__ - z1, abs(d__1)) > 3e-14) {
- goto L1;
- }
-/*< x(i)=real (xm-xl*z) >*/
- x[i__] = xm - xl * z__;
-/*< x(n+1-i)=real (xm+xl*z) >*/
- x[*n + 1 - i__] = xm + xl * z__;
-/*< w(i)=real (2.d00*xl/((1.d00-z*z)*pp*pp)) >*/
- w[i__] = xl * 2. / ((1. - z__ * z__) * pp * pp);
-/*< w(n+1-i)=w(i) >*/
- w[*n + 1 - i__] = w[i__];
-/*< enddo >*/
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* gauleg_ */
-
-
-/*< subroutine solve (Theta_i) >*/
-/* Subroutine */ int solve_(doublereal *theta_i__)
-{
- /* System generated locals */
- integer i__1;
- doublereal d__1;
-
- /* Builtin functions */
- double cos(doublereal), acos(doublereal), exp(doublereal);
-
- /* Local variables */
- doublereal g[20];
- integer j, k, l;
- doublereal s[20], q1[20], gi;
- integer nc;
- doublereal xi[420] /* was [21][20] */, q0d[20], q0u[20];
- extern doublereal g_f__(doublereal *);
- doublereal xdb, xif[420] /* was [21][20] */, xmm, sum, xrm, xmu, xi0t,
- xi1t, ximt, xmui, epsilon;
-
-/*< parameter (Pi=3.141592653589793) >*/
-/*< parameter (m=20) >*/
-/*< common /gauss_m/xgm (20),wgm (20),n >*/
-/*< real xgm,wgm,g_f >*/
-/*< integer n >*/
-/*< common /p/xLt,Rl,Tl,Rs,c,ild >*/
-/*< real xLt,Rl,Tl,Rs,c >*/
-/*< integer ild >*/
-/*< common /Ro/Ro_1_c,Ro_1_s,Ro_mult >*/
-/*< real Ro_1_c,Ro_1_s,Ro_mult >*/
-/*< real Theta_i,xmui,Gi >*/
-/*< double precision xdb >*/
-/*< common /l/dL,xL >*/
-/*< real dL,xL >*/
-/*< real xI0t,xI1t,xImt >*/
-/*< real xI (m+1,20) >*/
-/*< real Q0d (m),Q0u (m),Q1 (m),S (m),xIf (m+1,20) >*/
-/*< real G (20) >*/
-/*< integer j,k,l >*/
-/*< real xmm,xrm,xmu >*/
-/*< real sum >*/
-/*< integer nc >*/
-/*< real Epsilon >*/
-
-/*< Epsilon=1.e-4 >*/
- epsilon = 1e-4;
-
-/*< xmui=abs (cos (Theta_i)) >*/
- xmui = (d__1 = cos(*theta_i__), abs(d__1));
-
-/*< dL=xLt/float (m) >*/
- l_1.dl = p_1.xlt / 20.;
-
-/* - Computation of G-functions */
-
-/*< Gi=G_f (Theta_i) >*/
- gi = g_f__(theta_i__);
-/*< xmm=0.5*(1.+(-1.)) >*/
- xmm = 0.;
-/*< xrm=0.5*(1.-(-1.)) >*/
- xrm = 1.;
-/*< do j=1,n >*/
- i__1 = gauss_m__1.n;
- for (j = 1; j <= i__1; ++j) {
-/*< xmu=xmm+xrm*xgm (j) >*/
- xmu = xmm + xrm * gauss_m__1.xgm[j - 1];
-/*< G (j)=G_f (acos (xmu)) >*/
- d__1 = acos(xmu);
- g[j - 1] = g_f__(&d__1);
-/*< enddo >*/
- }
-
-/* - Initialisation of S (k) & xIf (k,j) */
-
-/*< do k=1,m >*/
- for (k = 1; k <= 20; ++k) {
-/*< S (k)=0. >*/
- s[k - 1] = 0.;
-/*< do j=1,n >*/
- i__1 = gauss_m__1.n;
- for (j = 1; j <= i__1; ++j) {
-/*< xIf (k,j)=0. >*/
- xif[k + j * 21 - 22] = 0.;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-
-/* - Computation of Q0d (k) & Q0u (k) <- first collision source */
-
-/* - (down) */
-
-/*< do k=1,m >*/
- for (k = 1; k <= 20; ++k) {
-/*< xL=(k-.5)*dL >*/
- l_1.xl = (k - .5) * l_1.dl;
-/*< xdb=Gi/xmui*dble(xL) >*/
- xdb = gi / xmui * l_1.xl;
-/*< if (abs(xdb).lt.1.E-30) xdb=0. >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< if (xdb.lt.20) Q0d(k)=(Rl+Tl)/2.*Gi*dexp(-xdb) >*/
- if (xdb < 20.) {
- q0d[k - 1] = (p_1.rl + p_1.tl) / 2. * gi * exp(-xdb);
- }
-/*< enddo >*/
- }
-
-/* - (up) */
-
-/*< xdb=Gi/xmui*dble(xLt) >*/
- xdb = gi / xmui * p_1.xlt;
-/*< if (abs(xdb).lt.1.E-30) xdb=0. >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< if (xdb.lt.20) xI0t=2.*Rs*xmui*dexp(-xdb) >*/
- if (xdb < 20.) {
- xi0t = p_1.rs * 2. * xmui * exp(-xdb);
- }
-/*< do k=m,1,-1 >*/
- for (k = 20; k >= 1; --k) {
-/*< xL=(k-.5)*dL >*/
- l_1.xl = (k - .5) * l_1.dl;
-/*< sum=0. >*/
- sum = 0.;
-/*< do j=n/2+1,n >*/
- i__1 = gauss_m__1.n;
- for (j = gauss_m__1.n / 2 + 1; j <= i__1; ++j) {
-/*< xmu=xmm+xrm*xgm (j) >*/
- xmu = xmm + xrm * gauss_m__1.xgm[j - 1];
-/*< xdb=dble(G(j))/dble(xmu)*(xLt-xL) >*/
- xdb = g[j - 1] / xmu * (p_1.xlt - l_1.xl);
-/*< if (abs(xdb).lt.1.E-30) xdb=0. >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< >*/
- if (xdb < 20.) {
- sum += gauss_m__1.wgm[j - 1] * xrm * xi0t * (p_1.rl + p_1.tl)
- / 2. * g[j - 1] * exp(-xdb);
- }
-/*< enddo >*/
- }
-/*< Q0u (k)=sum >*/
- q0u[k - 1] = sum;
-/*< enddo >*/
- }
-
-/* - Computation of xI (k,j) <- single scattering */
-
-/* - Initialisation of xI (k,j) */
-
-/*< do k=1,m+1 >*/
- for (k = 1; k <= 21; ++k) {
-/*< do j=1,n/2 >*/
- i__1 = gauss_m__1.n / 2;
- for (j = 1; j <= i__1; ++j) {
-/*< xI (k,j)=0. >*/
- xi[k + j * 21 - 22] = 0.;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-
-/* - (down) */
-
-/*< do k=1,m >*/
- for (k = 1; k <= 20; ++k) {
-/*< do j=1,n/2 >*/
- i__1 = gauss_m__1.n / 2;
- for (j = 1; j <= i__1; ++j) {
-/*< xmu=xmm+xrm*xgm (j) >*/
- xmu = xmm + xrm * gauss_m__1.xgm[j - 1];
-/*< >*/
- xi[k + 1 + j * 21 - 22] = (q0d[k - 1] - xi[k + j * 21 - 22] * (g[
- j - 1] / 2. + xmu / l_1.dl)) / (g[j - 1] / 2. - xmu /
- l_1.dl);
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-
-/* - (boundary condition) */
-
-/*< xI1t=0. >*/
- xi1t = 0.;
-/*< do j=1,n/2 >*/
- i__1 = gauss_m__1.n / 2;
- for (j = 1; j <= i__1; ++j) {
-/*< xmu=xmm+xrm*xgm (j) >*/
- xmu = xmm + xrm * gauss_m__1.xgm[j - 1];
-/*< xI1t=xI1t+wgm (j)*xrm*2.*Rs*abs (xmu)*xI (m+1,j) >*/
- xi1t += gauss_m__1.wgm[j - 1] * xrm * 2. * p_1.rs * abs(xmu) * xi[j *
- 21 - 1];
-/*< enddo >*/
- }
-
-/*< do j=n/2+1,n >*/
- i__1 = gauss_m__1.n;
- for (j = gauss_m__1.n / 2 + 1; j <= i__1; ++j) {
-/*< xI (m+1,j)=0. >*/
- xi[j * 21 - 1] = 0.;
-/*< enddo >*/
- }
-
-/* - (up) */
-
-/*< do k=m,1,-1 >*/
- for (k = 20; k >= 1; --k) {
-/*< do j=n/2+1,n >*/
- i__1 = gauss_m__1.n;
- for (j = gauss_m__1.n / 2 + 1; j <= i__1; ++j) {
-/*< xmu=xmm+xrm*xgm (j) >*/
- xmu = xmm + xrm * gauss_m__1.xgm[j - 1];
-/*< >*/
- xi[k + j * 21 - 22] = (q0d[k - 1] - xi[k + 1 + j * 21 - 22] * (g[
- j - 1] / 2. - xmu / l_1.dl)) / (g[j - 1] / 2. + xmu /
- l_1.dl);
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-
-/* - Computation of Q1 (k) <- second collision source */
-
-/*< do k=1,m >*/
- for (k = 1; k <= 20; ++k) {
-/*< sum=0. >*/
- sum = 0.;
-/*< do j=1,n >*/
- i__1 = gauss_m__1.n;
- for (j = 1; j <= i__1; ++j) {
-/*< >*/
- sum += gauss_m__1.wgm[j - 1] * xrm * (p_1.rl + p_1.tl) / 2. * g[j
- - 1] * (xi[k + 1 + j * 21 - 22] + xi[k + j * 21 - 22]) /
- 2.;
-/*< enddo >*/
- }
-/*< Q1 (k)=sum >*/
- q1[k - 1] = sum;
-/*< enddo >*/
- }
-
-/* - Computation of xI (k,j) <- multiple scattering */
-
-/* - Initialisation of xI (k,j) */
-
-/*< do k=1,m+1 >*/
- for (k = 1; k <= 21; ++k) {
-/*< do j=1,n/2 >*/
- i__1 = gauss_m__1.n / 2;
- for (j = 1; j <= i__1; ++j) {
-/*< xI (k,j)=0. >*/
- xi[k + j * 21 - 22] = 0.;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< l=0 >*/
- l = 0;
-/*< 1 l=l+1 >*/
-L1:
- ++l;
-
-/* - (down) */
-
-/*< do k=1,m >*/
- for (k = 1; k <= 20; ++k) {
-/*< do j=1,n/2 >*/
- i__1 = gauss_m__1.n / 2;
- for (j = 1; j <= i__1; ++j) {
-/*< xmu=xmm+xrm*xgm (j) >*/
- xmu = xmm + xrm * gauss_m__1.xgm[j - 1];
-/*< >*/
- xi[k + 1 + j * 21 - 22] = (s[k - 1] + q0u[k - 1] + q1[k - 1] - xi[
- k + j * 21 - 22] * (g[j - 1] / 2. + xmu / l_1.dl)) / (g[j
- - 1] / 2. - xmu / l_1.dl);
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-
-/* - (boundary condition) */
-
-/*< xImt=0. >*/
- ximt = 0.;
-/*< do j=1,n/2 >*/
- i__1 = gauss_m__1.n / 2;
- for (j = 1; j <= i__1; ++j) {
-/*< xmu=xmm+xrm*xgm (j) >*/
- xmu = xmm + xrm * gauss_m__1.xgm[j - 1];
-/*< xImt=xImt+wgm (j)*xrm*2.*Rs*abs (xmu)*xI (m+1,j) >*/
- ximt += gauss_m__1.wgm[j - 1] * xrm * 2. * p_1.rs * abs(xmu) * xi[j *
- 21 - 1];
-/*< enddo >*/
- }
-/*< do j=n/2+1,n >*/
- i__1 = gauss_m__1.n;
- for (j = gauss_m__1.n / 2 + 1; j <= i__1; ++j) {
-/*< xI (m+1,j)=xImt+xI1t >*/
- xi[j * 21 - 1] = ximt + xi1t;
-/*< enddo >*/
- }
-
-/* - (up) */
-
-/*< do k=m,1,-1 >*/
- for (k = 20; k >= 1; --k) {
-/*< do j=n/2+1,n >*/
- i__1 = gauss_m__1.n;
- for (j = gauss_m__1.n / 2 + 1; j <= i__1; ++j) {
-/*< xmu=xmm+xrm*xgm (j) >*/
- xmu = xmm + xrm * gauss_m__1.xgm[j - 1];
-/*< >*/
- xi[k + j * 21 - 22] = (s[k - 1] + q0u[k - 1] + q1[k - 1] - xi[k +
- 1 + j * 21 - 22] * (g[j - 1] / 2. - xmu / l_1.dl)) / (g[j
- - 1] / 2. + xmu / l_1.dl);
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-
-/* - End test */
-
-/*< nc=0 >*/
- nc = 0;
-/*< do k=1,m+1 >*/
- for (k = 1; k <= 21; ++k) {
-/*< do j=1,n >*/
- i__1 = gauss_m__1.n;
- for (j = 1; j <= i__1; ++j) {
-/*< if (abs (xIf (k,j)-xI (k,j)).lt.Epsilon) nc=nc+1 >*/
- if ((d__1 = xif[k + j * 21 - 22] - xi[k + j * 21 - 22], abs(d__1))
- < epsilon) {
- ++nc;
- }
-/*< xIf (k,j)=xI (k,j) >*/
- xif[k + j * 21 - 22] = xi[k + j * 21 - 22];
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< if ((l.lt.50).and.(nc.ne.(m+1)*n)) then >*/
- if (l < 50 && nc != gauss_m__1.n * 21) {
-
-/* - Computation of S (k) <- distributed source */
-
-/*< do k=1,m >*/
- for (k = 1; k <= 20; ++k) {
-/*< sum=0. >*/
- sum = 0.;
-/*< do j=1,n >*/
- i__1 = gauss_m__1.n;
- for (j = 1; j <= i__1; ++j) {
-/*< >*/
- sum += gauss_m__1.wgm[j - 1] * xrm * (p_1.rl + p_1.tl) / 2. *
- g[j - 1] * (xi[k + 1 + j * 21 - 22] + xi[k + j * 21 -
- 22]) / 2.;
-/*< enddo >*/
- }
-/*< S (k)=sum >*/
- s[k - 1] = sum;
-/*< enddo >*/
- }
-/*< goto 1 >*/
- goto L1;
-/*< endif >*/
- }
-
-/* - Computation of Ro_mult */
-
-/*< sum=0. >*/
- sum = 0.;
-/*< do j=n/2+1,n >*/
- i__1 = gauss_m__1.n;
- for (j = gauss_m__1.n / 2 + 1; j <= i__1; ++j) {
-/*< xmu=xmm+xrm*xgm (j) >*/
- xmu = xmm + xrm * gauss_m__1.xgm[j - 1];
-/*< sum=sum+wgm (j)*xrm*xI (1,j)*xmu/xmui >*/
- sum += gauss_m__1.wgm[j - 1] * xrm * xi[j * 21 - 21] * xmu / xmui;
-/*< enddo >*/
- }
-/*< Ro_mult=sum >*/
- ro_1.ro_mult__ = sum;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* solve_ */
-
-/*< subroutine lad >*/
-/* Subroutine */ int lad_()
-{
-/*< parameter (Pi=3.141592653589793) >*/
-/*< common /p/xLt,Rl,Tl,Rs,c,ild >*/
-/*< real xLt,Rl,Tl,Rs,c >*/
-/*< integer ild >*/
-/*< common /ld/a_ld,b_ld,c_ld,d_ld >*/
-/*< real a_ld,b_ld,c_ld,d_ld >*/
-
-/*< if (ild.eq.1) then >*/
- if (p_1.ild == 1) {
-/*< a_ld=2./Pi >*/
- ld_1.a_ld__ = .63661977236758138;
-/*< b_ld=2./Pi >*/
- ld_1.b_ld__ = .63661977236758138;
-/*< c_ld=0. >*/
- ld_1.c_ld__ = 0.;
-/*< d_ld=0. >*/
- ld_1.d_ld__ = 0.;
-/*< else >*/
- } else {
-/*< if (ild.eq.2) then >*/
- if (p_1.ild == 2) {
-/*< a_ld=2./Pi >*/
- ld_1.a_ld__ = .63661977236758138;
-/*< b_ld=-2./Pi >*/
- ld_1.b_ld__ = -.63661977236758138;
-/*< c_ld=0. >*/
- ld_1.c_ld__ = 0.;
-/*< d_ld=0. >*/
- ld_1.d_ld__ = 0.;
-/*< else >*/
- } else {
-/*< if (ild.eq.3) then >*/
- if (p_1.ild == 3) {
-/*< a_ld=2./Pi >*/
- ld_1.a_ld__ = .63661977236758138;
-/*< b_ld=0. >*/
- ld_1.b_ld__ = 0.;
-/*< c_ld=-2./Pi >*/
- ld_1.c_ld__ = -.63661977236758138;
-/*< d_ld=0. >*/
- ld_1.d_ld__ = 0.;
-/*< else >*/
- } else {
-/*< if (ild.eq.4) then >*/
- if (p_1.ild == 4) {
-/*< a_ld=2./Pi >*/
- ld_1.a_ld__ = .63661977236758138;
-/*< b_ld=0. >*/
- ld_1.b_ld__ = 0.;
-/*< c_ld=2./Pi >*/
- ld_1.c_ld__ = .63661977236758138;
-/*< d_ld=0. >*/
- ld_1.d_ld__ = 0.;
-/*< else >*/
- } else {
-/*< a_ld=0. >*/
- ld_1.a_ld__ = 0.;
-/*< b_ld=0. >*/
- ld_1.b_ld__ = 0.;
-/*< c_ld=0. >*/
- ld_1.c_ld__ = 0.;
-/*< d_ld=1. >*/
- ld_1.d_ld__ = 1.;
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* lad_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.f b/Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.f
deleted file mode 100644
index ee6c85b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.f
+++ /dev/null
@@ -1,477 +0,0 @@
- real function Ro_1 (Theta_i,Phi_i,Theta_e,Phi_e)
- common /gauss_m/xgm (20),wgm (20),n
- real xgm,wgm
- integer n
- real G_f,Geo,h,gamma_f
- common /p/xLt,Rl,Tl,Rs,c,ild
- real xLt,Rl,Tl,Rs,c
- integer ild
- common /Ro/Ro_1_c,Ro_1_s,Ro_mult
- real Ro_1_c,Ro_1_s,Ro_mult
- real Theta_i,Phi_i,Theta_e,Phi_e,xmui,xmu,xtmu
- real Gi,Ge,Ki,Ke,xLi
- real xmm,xrm
- real xL
- double precision xdb
- integer j
-c
- xtmu=1.E-05
- xmui=abs(cos(Theta_i))
- xmu=cos(Theta_e)
- if (abs(xmu).lt.xtmu) xmu=xtmu
-c
- Gi=G_f (Theta_i)
- Ge=G_f (Theta_e)
-c
- Ki=Gi/xmui
- Ke=Ge/xmu
-c
- xmm=0.5*(xLt+0.)
- xrm=0.5*(xLt-0.)
- Ro_1_c=0.
- xLi=c/Geo (Theta_i,Phi_i,Theta_e,Phi_e)
- do j=1,n
- xL=xmm+xrm*xgm(j)
- xdb=(Ki+Ke*h(xL,xLi))*dble(xL)
- if (abs(xdb).lt.1.E-30) xdb=0.
- if (xdb.le.20) Ro_1_c=Ro_1_c+wgm(j)*xrm*dexp(-xdb)
- enddo
-c
- Ro_1_c=Ro_1_c*Gamma_f (Theta_i,Phi_i,
- + Theta_e,Phi_e)/xmui/xmu
-c
- xdb=(Ki+Ke*h (xLt,xLi))*dble(xLt)
- if (abs(xdb).lt.1.E-30) xdb=0.
- if (xdb.le.20) Ro_1_s=Rs*dexp(-xdb)
-c
- Ro_1=Ro_1_c+Ro_1_s
-c
- return
- end
-c
- real function Gamma_f (Theta_p,Phi_p,Theta,Phi)
- parameter (Pi=3.141592653589793)
- common /p/xLt,Rl,Tl,Rs,c,ild
- real xLt,Rl,Tl,Rs,c,gl
- integer ild
- common /gauss_m/xgm (20),wgm (20),n
- real xgm,wgm
- integer n
- real Theta_p,Phi_p,Theta,Phi
- real xmm,xrm,xt
- real ymm,yrm,yt
- real dp,dpp,f
- real sum
- integer i,j
-c
- xmm=0.5*(Pi/2.+0.)
- xrm=0.5*(Pi/2.-0.)
- ymm=0.5*(2.*Pi+0.)
- yrm=0.5*(2.*Pi-0.)
- Gamma_f = 0.
- do j=1,n
- xt=xmm+xrm*xgm (j)
- sum=0.
- do i=1,n
- yt=ymm+yrm*xgm (i)
- dpp = cos (Theta_p)*cos (xt)+
- + sin (Theta_p)*sin (xt)*cos (Phi_p-yt)
- dp = cos (Theta)*cos (xt)+
- + sin (Theta)*sin (xt)*cos (Phi-yt)
-C correction when porting code to HP730
- if (dp*dpp.lt.0.) then
- f=Rl*abs (dp)/Pi
- else
- f=Tl*abs (dp)/Pi
- endif
-C end of correction
- sum=sum+wgm (i)*xrm*gl (xt)*f*abs (dpp)
- enddo
- Gamma_f=Gamma_f+wgm (j)*yrm*sum
- enddo
- Gamma_f=Gamma_f/2.
- return
- end
-c
- real function Geo (Theta_i,Phi_i,Theta_e,Phi_e)
- real Theta_i,Phi_i,Theta_e,Phi_e
- Geo=sqrt (abs (tan (Theta_i)**2+
- + tan (Theta_e)**2-
- + 2.*tan (Theta_i)*tan (Theta_e)*
- + cos (Phi_i-Phi_e)))
- if (Geo.lt.1.e-35) Geo=1.e-35
- return
- end
-c
- real function h (xL,xLi)
- parameter (Pi=3.141592653589793)
- real xL,xLi
- if (xL.lt.xLi) then
- h=(1.-4./3./Pi)/xLi*xL
- else
- h=1.-4./3./Pi*xLi/xL
- endif
- return
- end
-c
- real function G_f (Theta)
- parameter (Pi=3.141592653589793)
- common /p/xLt,Rl,Tl,Rs,c,ild
- real xLt,Rl,Tl,Rs,c,psi,gl
- integer ild
- common /gauss_m/xgm (20),wgm (20),n
- real xgm,wgm
- integer n
- real Theta
- real xmm,xrm,xt
- integer j
-c
- xmm=0.5*(Pi/2.+0.)
- xrm=0.5*(Pi/2.-0.)
- G_f = 0.
- do j=1,n
- xt=xmm+xrm*xgm (j)
- G_f=G_f+wgm (j)*xrm*Psi (Theta,xt)*gl (xt)
- enddo
- return
- end
-c
- real function Psi (Theta,xt)
- parameter (Pi=3.141592653589793)
- common /p/xLt,Rl,Tl,Rs,c,ild
- real xLt,Rl,Tl,Rs,c
- integer ild
- real Theta,xt
- real cpt,pt
- real xmu,smu
-c
- xmu=cos (xt)
- smu=sin (xt)
- if (xmu.eq.1.) then
- Psi=cos (Theta)
- else
- if (sin (Theta).eq.0.) then
- Psi=xmu
- else
- if (smu.eq.0.) then
- cpt=0.
- else
- cpt=1.*xmu/smu*cos (Theta)/
- + sin (Theta)
- endif
- if (abs (cpt).gt.1.) then
- Psi=xmu*cos (Theta)
- else
- pt=acos (-cpt)
- Psi=xmu*cos (Theta)*(2./Pi*pt-1.)+
- + 2./Pi*smu*sin (Theta)*sin (pt)
- endif
- endif
- endif
- Psi=abs (Psi)
- return
- end
-c
- real function gl (Theta)
- parameter (Pi=3.141592653589793)
- common /ld/a_ld,b_ld,c_ld,d_ld
- real a_ld,b_ld,c_ld,d_ld
- real Theta
-c
- gl=a_ld+
- + b_ld*cos (2.*Theta)+
- + c_ld*cos (4.*Theta)+
- + d_ld*sin (Theta)
- return
- end
-c
- subroutine gauleg(x1,x2,x,w,n)
- integer n
- real x1,x2,x (n),w (n)
- double precision eps
- parameter (eps=3.d-14)
- integer i,j,m
- double precision p1,p2,p3,pp,xl,xm,z,z1
- m=(n+1)/2
- xm=0.5d00*(x2+x1)
- xl=0.5d00*(x2-x1)
- do i=1,m
- z=cos(3.141592654d00*(i-.25d00)/(n+.5d00))
-1 continue
- p1=1.d00
- p2=0.d00
- do j=1,n
- p3=p2
- p2=p1
- p1=((2.d00*j-1.d00)*z*p2-(j-1.d00)*p3)/j
- enddo
- pp=n*(z*p1-p2)/(z*z-1.d00)
- z1=z
- z=z1-p1/pp
- if(abs(z-z1).gt.eps)go to 1
- x(i)=real (xm-xl*z)
- x(n+1-i)=real (xm+xl*z)
- w(i)=real (2.d00*xl/((1.d00-z*z)*pp*pp))
- w(n+1-i)=w(i)
- enddo
- return
- end
-c
- subroutine solve (Theta_i)
- parameter (Pi=3.141592653589793)
- parameter (m=20)
- common /gauss_m/xgm (20),wgm (20),n
- real xgm,wgm,g_f
- integer n
- common /p/xLt,Rl,Tl,Rs,c,ild
- real xLt,Rl,Tl,Rs,c
- integer ild
- common /Ro/Ro_1_c,Ro_1_s,Ro_mult
- real Ro_1_c,Ro_1_s,Ro_mult
- real Theta_i,xmui,Gi
- double precision xdb
- common /l/dL,xL
- real dL,xL
- real xI0t,xI1t,xImt
- real xI (m+1,20)
- real Q0d (m),Q0u (m),Q1 (m),S (m),xIf (m+1,20)
- real G (20)
- integer j,k,l
- real xmm,xrm,xmu
- real sum
- integer nc
- real Epsilon
-c
- Epsilon=1.e-4
-c
- xmui=abs (cos (Theta_i))
-c
- dL=xLt/float (m)
-c
-c - Computation of G-functions
-c
- Gi=G_f (Theta_i)
- xmm=0.5*(1.+(-1.))
- xrm=0.5*(1.-(-1.))
- do j=1,n
- xmu=xmm+xrm*xgm (j)
- G (j)=G_f (acos (xmu))
- enddo
-c
-c - Initialisation of S (k) & xIf (k,j)
-c
- do k=1,m
- S (k)=0.
- do j=1,n
- xIf (k,j)=0.
- enddo
- enddo
-c
-c - Computation of Q0d (k) & Q0u (k) <- first collision source
-c
-c - (down)
-c
- do k=1,m
- xL=(k-.5)*dL
- xdb=Gi/xmui*dble(xL)
- if (abs(xdb).lt.1.E-30) xdb=0.
- if (xdb.lt.20) Q0d(k)=(Rl+Tl)/2.*Gi*dexp(-xdb)
- enddo
-c
-c - (up)
-c
- xdb=Gi/xmui*dble(xLt)
- if (abs(xdb).lt.1.E-30) xdb=0.
- if (xdb.lt.20) xI0t=2.*Rs*xmui*dexp(-xdb)
- do k=m,1,-1
- xL=(k-.5)*dL
- sum=0.
- do j=n/2+1,n
- xmu=xmm+xrm*xgm (j)
- xdb=dble(G(j))/dble(xmu)*(xLt-xL)
- if (abs(xdb).lt.1.E-30) xdb=0.
- if (xdb.lt.20) sum=sum+wgm(j)*xrm*xI0t*(Rl+Tl)/2.*G(j)*
- + dexp(-xdb)
- enddo
- Q0u (k)=sum
- enddo
-c
-c - Computation of xI (k,j) <- single scattering
-c
-c - Initialisation of xI (k,j)
-c
- do k=1,m+1
- do j=1,n/2
- xI (k,j)=0.
- enddo
- enddo
-c
-c - (down)
-c
- do k=1,m
- do j=1,n/2
- xmu=xmm+xrm*xgm (j)
- xI (k+1,j)=(Q0d (k)-
- + xI (k,j)*(G (j)/2.+xmu/dL))/
- + (G (j)/2.-xmu/dL)
- enddo
- enddo
-c
-c - (boundary condition)
-c
- xI1t=0.
- do j=1,n/2
- xmu=xmm+xrm*xgm (j)
- xI1t=xI1t+wgm (j)*xrm*2.*Rs*abs (xmu)*xI (m+1,j)
- enddo
-c
- do j=n/2+1,n
- xI (m+1,j)=0.
- enddo
-c
-c - (up)
-c
- do k=m,1,-1
- do j=n/2+1,n
- xmu=xmm+xrm*xgm (j)
- xI (k,j)=(Q0d (k)-
- + xI (k+1,j)*(G (j)/2.-xmu/dL))/
- + (G (j)/2.+xmu/dL)
- enddo
- enddo
-c
-c - Computation of Q1 (k) <- second collision source
-c
- do k=1,m
- sum=0.
- do j=1,n
- sum=sum+wgm (j)*xrm*(Rl+Tl)/2.*G (j)*
- + (xI (k+1,j)+xI (k,j))/2.
- enddo
- Q1 (k)=sum
- enddo
-c
-c - Computation of xI (k,j) <- multiple scattering
-c
-c - Initialisation of xI (k,j)
-c
- do k=1,m+1
- do j=1,n/2
- xI (k,j)=0.
- enddo
- enddo
- l=0
- 1 l=l+1
-c
-c - (down)
-c
- do k=1,m
- do j=1,n/2
- xmu=xmm+xrm*xgm (j)
- xI (k+1,j)=(S (k)+Q0u (k)+Q1 (k)-
- + xI (k,j)*(G (j)/2.+xmu/dL))/
- + (G (j)/2.-xmu/dL)
- enddo
- enddo
-c
-c - (boundary condition)
-c
- xImt=0.
- do j=1,n/2
- xmu=xmm+xrm*xgm (j)
- xImt=xImt+wgm (j)*xrm*2.*Rs*abs (xmu)*xI (m+1,j)
- enddo
- do j=n/2+1,n
- xI (m+1,j)=xImt+xI1t
- enddo
-c
-c - (up)
-c
- do k=m,1,-1
- do j=n/2+1,n
- xmu=xmm+xrm*xgm (j)
- xI (k,j)=(S (k)+Q0u (k)+Q1 (k)-
- + xI (k+1,j)*(G (j)/2.-xmu/dL))/
- + (G (j)/2.+xmu/dL)
- enddo
- enddo
-c
-c - End test
-c
- nc=0
- do k=1,m+1
- do j=1,n
- if (abs (xIf (k,j)-xI (k,j)).lt.Epsilon) nc=nc+1
- xIf (k,j)=xI (k,j)
- enddo
- enddo
- if ((l.lt.50).and.(nc.ne.(m+1)*n)) then
-c
-c - Computation of S (k) <- distributed source
-c
- do k=1,m
- sum=0.
- do j=1,n
- sum=sum+wgm (j)*xrm*(Rl+Tl)/2.*G (j)*
- + (xI (k+1,j)+xI (k,j))/2.
- enddo
- S (k)=sum
- enddo
- goto 1
- endif
-c
-c - Computation of Ro_mult
-c
- sum=0.
- do j=n/2+1,n
- xmu=xmm+xrm*xgm (j)
- sum=sum+wgm (j)*xrm*xI (1,j)*xmu/xmui
- enddo
- Ro_mult=sum
- return
- end
-
-
- subroutine lad
- parameter (Pi=3.141592653589793)
- common /p/xLt,Rl,Tl,Rs,c,ild
- real xLt,Rl,Tl,Rs,c
- integer ild
- common /ld/a_ld,b_ld,c_ld,d_ld
- real a_ld,b_ld,c_ld,d_ld
-c
- if (ild.eq.1) then
- a_ld=2./Pi
- b_ld=2./Pi
- c_ld=0.
- d_ld=0.
- else
- if (ild.eq.2) then
- a_ld=2./Pi
- b_ld=-2./Pi
- c_ld=0.
- d_ld=0.
- else
- if (ild.eq.3) then
- a_ld=2./Pi
- b_ld=0.
- c_ld=-2./Pi
- d_ld=0.
- else
- if (ild.eq.4) then
- a_ld=2./Pi
- b_ld=0.
- c_ld=2./Pi
- d_ld=0.
- else
- a_ld=0.
- b_ld=0.
- c_ld=0.
- d_ld=1.
- endif
- endif
- endif
- endif
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.h b/Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.h
deleted file mode 100644
index afea66c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/IAPITOOLS.h
+++ /dev/null
@@ -1,45 +0,0 @@
-extern otb_6s_doublereal ro_1_otb_6s__(
- otb_6s_doublereal *theta_i__,
- otb_6s_doublereal *phi_i__,
- otb_6s_doublereal *theta_e__,
- otb_6s_doublereal *phi_e__
- );
-extern otb_6s_doublereal gamma_f_otb_6s__(
- otb_6s_doublereal *theta_p__,
- otb_6s_doublereal *phi_p__,
- otb_6s_doublereal *theta,
- otb_6s_doublereal *phi
- );
-extern otb_6s_doublereal otb_6s_geo_(
- otb_6s_doublereal *theta_i__,
- otb_6s_doublereal *phi_i__,
- otb_6s_doublereal *theta_e__,
- otb_6s_doublereal *phi_e__
- );
-extern otb_6s_doublereal otb_6s_h_(
- otb_6s_doublereal *xl,
- otb_6s_doublereal *xli
- );
-extern otb_6s_doublereal g_f_otb_6s__(
- otb_6s_doublereal *theta
- );
-extern otb_6s_doublereal otb_6s_psi_(
- otb_6s_doublereal *theta,
- otb_6s_doublereal *xt
- );
-extern otb_6s_doublereal otb_6s_gl_(
- otb_6s_doublereal *theta
- );
-extern int otb_6s_gauleg_(
- otb_6s_doublereal *x1,
- otb_6s_doublereal *x2,
- otb_6s_doublereal *x,
- otb_6s_doublereal *w,
- otb_6s_integer *n
- );
-extern int otb_6s_solve_(
- otb_6s_doublereal *theta_i__
- );
-extern int otb_6s_lad_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/INTERP.P b/Modules/ThirdParty/6S/src/6SV1.0B/INTERP.P
deleted file mode 100644
index a3dde3f..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/INTERP.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int interp_(integer *iaer, integer *idatmp, doublereal *wl, doublereal *taer55, doublereal *taer55p, doublereal *xmud, doublereal *romix, doublereal *rorayl, doublereal *roaero, doublereal *phaa, doublereal *phar, doublereal *rqmix, doublereal *rqrayl, doublereal *rqaero, doublereal *qhaa, doublereal *qhar, doublereal *rumix, doublereal *rurayl, doublereal *ruaero, doublereal *uhaa, doublereal *uhar, doublereal *tsca, doublereal *tray, doublereal *trayp, doublereal *taer, doublere [...]
-/* comlen sixs_aer__ 960 */
-/* comlen sixs_disc__ 4320 */
-/* comlen sixs_del__ 16 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/INTERP.c b/Modules/ThirdParty/6S/src/6SV1.0B/INTERP.c
deleted file mode 100644
index 30a9342..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/INTERP.c
+++ /dev/null
@@ -1,794 +0,0 @@
-/* INTERP.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal ext[20], ome[20], gasym[20], phase[20], qhase[20], uhase[20];
-} sixs_aer__;
-
-#define sixs_aer__1 sixs_aer__
-
-Extern struct {
- doublereal roatm[60] /* was [3][20] */, dtdir[60] /* was [3][20]
- */, dtdif[60] /* was [3][20] */, utdir[60] /* was [3][20]
- */, utdif[60] /* was [3][20] */, sphal[60] /* was [3][20]
- */, wldis[20], trayl[20], traypl[20], rqatm[60] /* was [3][20]
- */, ruatm[60] /* was [3][20] */;
-} sixs_disc__;
-
-#define sixs_disc__1 sixs_disc__
-
-Extern struct {
- doublereal delta, sigma;
-} sixs_del__;
-
-#define sixs_del__1 sixs_del__
-
-/*< >*/
-/* Subroutine */ int interp_(integer *iaer, integer *idatmp, doublereal *wl,
- doublereal *taer55, doublereal *taer55p, doublereal *xmud, doublereal
- *romix, doublereal *rorayl, doublereal *roaero, doublereal *phaa,
- doublereal *phar, doublereal *rqmix, doublereal *rqrayl, doublereal *
- rqaero, doublereal *qhaa, doublereal *qhar, doublereal *rumix,
- doublereal *rurayl, doublereal *ruaero, doublereal *uhaa, doublereal *
- uhar, doublereal *tsca, doublereal *tray, doublereal *trayp,
- doublereal *taer, doublereal *taerp, doublereal *dtott, doublereal *
- utott, doublereal *astot, doublereal *asray, doublereal *asaer,
- doublereal *utotr, doublereal *utota, doublereal *dtotr, doublereal *
- dtota, integer *ipol, doublereal *roatm_fi__, doublereal *romix_fi__,
- doublereal *rorayl_fi__, integer *nfi, doublereal *roluts, doublereal
- *rolut, doublereal *rolutsq, doublereal *rolutq, doublereal *rolutsu,
- doublereal *rolutu, integer *nfilut)
-{
- /* System generated locals */
- integer i__1, i__2;
- doublereal d__1;
-
- /* Builtin functions */
- double log(doublereal), pow_dd(doublereal *, doublereal *);
-
- /* Local variables */
- integer i__, j, ll, mu, ifi;
- doublereal coef;
- integer linf, lsup;
- doublereal test1, test2, test3, betaa, betac, aainf, dainf, coefl, betar,
- arinf, drinf, dtinf, uainf, atinf, dtotc, wlinf, dasup, urinf,
- utinf, drsup, dtsup, utotc, uasup, arsup, atsup, aasup, ursup,
- utsup, ruaer0, alphaa, alphac, alphar, depolar1, depolar2;
-
-/*< include "paramdef.inc" >*/
-/*< real test1,test2,test3 >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< Real wl,taer55,taer55p >*/
-/*< Real xmud,romix,rorayl,roaero,phaa,phar,tsca,tray >*/
-/*< Real rqmix,rqrayl,rqaero,qhaa,qhar,rqatm,qhase >*/
-/*< Real rumix,rurayl,ruaero,uhaa,uhar,ruatm,uhase >*/
-/*< Real trayp,taer,taerp,dtott,utott,astot,asray,asaer,utotr >*/
-/*< Real utota,dtotr,dtota,ext,ome,gasym,phase,roatm,dtdir >*/
-/*< Real dtdif,utdir,utdif,sphal,wldis,trayl,traypl,delta,sigma >*/
-/*< Real alphaa,betaa,alphar,betar,alphac,betac,coef,coefl,wlinf >*/
-/*< Real drinf,drsup,dtinf,dtsup,dtotc,dainf,dasup,urinf,ursup >*/
-/*< Real utinf,utsup,utotc,uainf,uasup,arinf,arsup,atinf,atsup >*/
-/*< Real aainf,aasup,depolar1,depolar2 >*/
-/*< real romix_fi(nfi),rorayl_fi(nfi),roatm_fi(3,20,nfi) >*/
-/*< real rolut(mu_p,41),roluts(20,mu_p,41) >*/
-/*< real rolutq(mu_p,41),rolutsq(20,mu_p,41) >*/
-/*< real rolutu(mu_p,41),rolutsu(20,mu_p,41) >*/
-/*< integer nfilut(mu_p),mu >*/
-/*< Integer iaer,idatmp,linf,ll,lsup,ipol >*/
-/*< >*/
-/*< >*/
-/*< common /sixs_del/ delta,sigma >*/
-/*< mu=mu_p >*/
- /* Parameter adjustments */
- --rorayl_fi__;
- --romix_fi__;
- roatm_fi__ -= 64;
- roluts -= 521;
- rolut -= 26;
- rolutsq -= 521;
- rolutq -= 26;
- rolutsu -= 521;
- rolutu -= 26;
- --nfilut;
-
- /* Function Body */
- mu = 25;
-/* that for the atmosphere (if polarization requested) : */
-/* the reflectances */
-/* rayleigh = rorayl ,(rqrayl,rurayl)
-*/
-/* aerosols = roaero ,(rqaero,ruaero)
-*/
-/* mixing = romix ,(rqmix,rumix)
-*/
-/* the downward transmittances */
-/* rayleigh = dtotr */
-/* aerosols = dtota */
-/* total = dtott */
-/* the upward transmittances */
-/* rayleigh = utotr */
-/* aerosols = utota */
-/* total = utott */
-/* the spherical albedos */
-/* rayleigh = asray */
-/* aerosols = asaer */
-/* total = astot */
-/* the optical thickness of total atmosphere */
-/* rayleigh = tray */
-/* aerosols = taer */
-/* the optical thickness of the atmosphere above the plane */
-/* rayleigh = trayp */
-/* aerosols = taerp */
-/* the tsca of the aerosols */
-/* total atmosphere = tsca */
-/*< linf=1 >*/
- linf = 1;
-/*< do 81 ll=1,19 >*/
- for (ll = 1; ll <= 19; ++ll) {
-/*< if(wl.gt.wldis(ll).and.wl.le.wldis(ll+1)) linf=ll >*/
- if (*wl > sixs_disc__1.wldis[ll - 1] && *wl <= sixs_disc__1.wldis[ll])
- {
- linf = ll;
- }
-/*< 81 continue >*/
-/* L81: */
- }
-/*< if(wl.gt.wldis(20)) linf=19 >*/
- if (*wl > sixs_disc__1.wldis[19]) {
- linf = 19;
- }
-/*< lsup=linf+1 >*/
- lsup = linf + 1;
-/* interpolation in function of wavelength for scattering */
-/* atmospheric functions from discrete values at wldis */
-/*< alphaa=0. >*/
- alphaa = 0.;
-/*< betaa=0. >*/
- betaa = 0.;
-/*< alphar=0. >*/
- alphar = 0.;
-/*< betar=0. >*/
- betar = 0.;
-/*< alphac=0. >*/
- alphac = 0.;
-/*< betac=0. >*/
- betac = 0.;
-/*< phaa=0. >*/
- *phaa = 0.;
-/*< qhaa=0. >*/
- *qhaa = 0.;
-/*< uhaa=0. >*/
- *uhaa = 0.;
-/*< phar=0. >*/
- *phar = 0.;
-/*< qhar=0. >*/
- *qhar = 0.;
-/*< uhar=0. >*/
- *uhar = 0.;
-/*< roaero=0. >*/
- *roaero = 0.;
-/*< rqaero=0. >*/
- *rqaero = 0.;
-/*< ruaero=0. >*/
- *ruaero = 0.;
-/*< rorayl=0. >*/
- *rorayl = 0.;
-/*< rqrayl=0. >*/
- *rqrayl = 0.;
-/*< rurayl=0. >*/
- *rurayl = 0.;
-/*< romix=0. >*/
- *romix = 0.;
-/*< rqmix=0. >*/
- *rqmix = 0.;
-/*< rumix=0. >*/
- *rumix = 0.;
-/*< dtota=1. >*/
- *dtota = 1.;
-/*< utota=1. >*/
- *utota = 1.;
-/*< asaer=0. >*/
- *asaer = 0.;
-/*< taer=0. >*/
- *taer = 0.;
-/*< taerp=0. >*/
- *taerp = 0.;
-/*< coef=alog(wldis(lsup)/wldis(linf)) >*/
- coef = log(sixs_disc__1.wldis[lsup - 1] / sixs_disc__1.wldis[linf - 1]);
-/*< wlinf=wldis(linf) >*/
- wlinf = sixs_disc__1.wldis[linf - 1];
-/* Here we spectrally interpolate phase functions and Stokes' */
-/* parameters I, Q and U (all divided by cos(teta_sun)), both */
-/* for Rayleigh, Aerosol, and a mixture Rayleigh+aerosol */
-/* For the Rayleigh Phase functions we need to take into */
-/* account the depolarization factor delta. */
-/*< depolar1=2.*(1.-delta)/(2.+delta) >*/
- depolar1 = (1. - sixs_del__1.delta) * 2. / (sixs_del__1.delta + 2.);
-/*< depolar2=3.*delta/(2.+delta) >*/
- depolar2 = sixs_del__1.delta * 3. / (sixs_del__1.delta + 2.);
-
-/* we first start with the parameter I (with truncation) */
-/* (divided by cos(teta_sun)) */
-/* if requested, we continue with the parameter I (without truncation)...
-*/
-/* (divided by cos(teta_sun)) */
-/*< if(iaer.eq.0) goto 2240 >*/
- if (*iaer == 0) {
- goto L2240;
- }
-/*< alphaa=alog(phase(lsup)/phase(linf))/coef >*/
- alphaa = log(sixs_aer__1.phase[lsup - 1] / sixs_aer__1.phase[linf - 1]) /
- coef;
-/*< betaa=phase(linf)/(wlinf**(alphaa)) >*/
- betaa = sixs_aer__1.phase[linf - 1] / pow_dd(&wlinf, &alphaa);
-/*< phaa=betaa*(wl**alphaa) >*/
- *phaa = betaa * pow_dd(wl, &alphaa);
-/*< 2240 continue >*/
-L2240:
-/*< phar=depolar1*.75*(1.+xmud*xmud)+depolar2 >*/
- *phar = depolar1 * .75 * (*xmud * *xmud + 1.) + depolar2;
-/*< if (idatmp.eq.0) goto 2234 >*/
- if (*idatmp == 0) {
- goto L2234;
- }
-/* if((roatm(1,linf).le..001).or.(roatm(1,lsup).le..001)) then */
-/* rorayl=roatm(1,linf)+(roatm(1,lsup)-roatm(1,linf)) */
-/* s *(wl-wldis(linf))/(wldis(lsup)-wldis(linf)) */
-/* else */
-/*< alphar=alog(roatm(1,lsup)/roatm(1,linf))/ coef >*/
- alphar = log(sixs_disc__1.roatm[lsup * 3 - 3] / sixs_disc__1.roatm[linf *
- 3 - 3]) / coef;
-/*< betar=roatm(1,linf)/(wlinf**(alphar)) >*/
- betar = sixs_disc__1.roatm[linf * 3 - 3] / pow_dd(&wlinf, &alphar);
-/*< rorayl=betar*(wl**alphar) >*/
- *rorayl = betar * pow_dd(wl, &alphar);
-/*< do ifi=1,nfi >*/
- i__1 = *nfi;
- for (ifi = 1; ifi <= i__1; ++ifi) {
-/*< alphar=alog(roatm_fi(1,lsup,ifi)/roatm_fi(1,linf,ifi))/ coef >*/
- alphar = log(roatm_fi__[(lsup + ifi * 20) * 3 + 1] / roatm_fi__[(linf
- + ifi * 20) * 3 + 1]) / coef;
-/*< betar=roatm_fi(1,linf,ifi)/(wlinf**(alphar)) >*/
- betar = roatm_fi__[(linf + ifi * 20) * 3 + 1] / pow_dd(&wlinf, &
- alphar);
-/*< rorayl_fi(ifi)=betar*(wl**alphar) >*/
- rorayl_fi__[ifi] = betar * pow_dd(wl, &alphar);
-/*< enddo >*/
- }
-/* endif */
-/* write(6,*)'Ib ',phar,rorayl,betar,alphar,roatm(1,lsup), */
-/* s roatm(1,linf) */
-/* if((roatm(2,linf).le..00000001).or.(roatm(2,lsup).le..00000001)
-) then*/
-/* romix=roatm(2,linf)+(roatm(2,lsup)-roatm(2,linf)) */
-/* s *(wl-wldis(linf))/(wldis(lsup)-wldis(linf)) */
-/* xtmp=(wl-wldis(linf))/(wldis(lsup)-wldis(linf)) */
-/* do ifi=1,nfi */
-/* romix_fi(ifi)=roatm_fi(2,linf,ifi)+ */
-/* s (roatm_fi(2,lsup,ifi)-roatm_fi(2,linf,ifi))*xtmp */
-/* enddo */
-/* else */
-/*< alphac=alog(roatm(2,lsup)/roatm(2,linf))/coef >*/
- alphac = log(sixs_disc__1.roatm[lsup * 3 - 2] / sixs_disc__1.roatm[linf *
- 3 - 2]) / coef;
-/*< betac=roatm(2,linf)/(wlinf**(alphac)) >*/
- betac = sixs_disc__1.roatm[linf * 3 - 2] / pow_dd(&wlinf, &alphac);
-/*< romix=betac*(wl**alphac) >*/
- *romix = betac * pow_dd(wl, &alphac);
-/*< do ifi=1,nfi >*/
- i__1 = *nfi;
- for (ifi = 1; ifi <= i__1; ++ifi) {
-/*< alphac=alog(roatm_fi(2,lsup,ifi)/roatm_fi(2,linf,ifi))/coef >*/
- alphac = log(roatm_fi__[(lsup + ifi * 20) * 3 + 2] / roatm_fi__[(linf
- + ifi * 20) * 3 + 2]) / coef;
-/*< betac=roatm_fi(2,linf,ifi)/(wlinf**(alphac)) >*/
- betac = roatm_fi__[(linf + ifi * 20) * 3 + 2] / pow_dd(&wlinf, &
- alphac);
-/*< romix_fi(ifi)=betac*(wl**alphac) >*/
- romix_fi__[ifi] = betac * pow_dd(wl, &alphac);
-/*< enddo >*/
- }
-/* endif */
-/*< if(iaer.eq.0) goto 2234 >*/
- if (*iaer == 0) {
- goto L2234;
- }
-/* if((roatm(3,linf).lt..001).or.(roatm(3,lsup).le..001))then */
-/* roaero=roatm(3,linf)+(roatm(3,lsup)-roatm(3,linf)) */
-/* s *(wl-wldis(linf))/(wldis(lsup)-wldis(linf)) */
-/* else */
-/*< alphaa=alog(roatm(3,lsup)/roatm(3,linf))/coef >*/
- alphaa = log(sixs_disc__1.roatm[lsup * 3 - 1] / sixs_disc__1.roatm[linf *
- 3 - 1]) / coef;
-/*< betaa=roatm(3,linf)/(wlinf**(alphaa)) >*/
- betaa = sixs_disc__1.roatm[linf * 3 - 1] / pow_dd(&wlinf, &alphaa);
-/*< roaero=betaa*(wl**alphaa) >*/
- *roaero = betaa * pow_dd(wl, &alphaa);
-/* endif */
-/* Look up table update */
-/*< coefl=(wl-wldis(linf))/(wldis(lsup)-wldis(linf)) >*/
- coefl = (*wl - sixs_disc__1.wldis[linf - 1]) / (sixs_disc__1.wldis[lsup -
- 1] - sixs_disc__1.wldis[linf - 1]);
-/*< do i=1,mu >*/
- i__1 = mu;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< do j=1,nfilut(i) >*/
- i__2 = nfilut[i__];
- for (j = 1; j <= i__2; ++j) {
-/* if ((roluts(lsup,i,j).gt.0.001).and.(roluts(linf,i,j).gt.0.001
-)) then */
-/*< alphac=alog(roluts(lsup,i,j)/roluts(linf,i,j))/coef >*/
- alphac = log(roluts[lsup + (i__ + j * 25) * 20] / roluts[linf + (
- i__ + j * 25) * 20]) / coef;
-/*< betac=roluts(linf,i,j)/(wlinf**(alphac)) >*/
- betac = roluts[linf + (i__ + j * 25) * 20] / pow_dd(&wlinf, &
- alphac);
-/*< rolut(i,j)=betac*(wl**alphac) >*/
- rolut[i__ + j * 25] = betac * pow_dd(wl, &alphac);
-/* else */
-/* rolut(i,j)=roluts(linf,i,j) */
-/* & +(roluts(lsup,i,j)-roluts(linf,i,j))*coefl */
-/* endif */
-/*< if ((rolutsq(lsup,i,j).gt.0.001).and.(rolutsq(linf,i,j).gt.0.001)) then >*/
- if (rolutsq[lsup + (i__ + j * 25) * 20] > .001 && rolutsq[linf + (
- i__ + j * 25) * 20] > .001) {
-/*< alphac=alog(rolutsq(lsup,i,j)/rolutsq(linf,i,j))/coef >*/
- alphac = log(rolutsq[lsup + (i__ + j * 25) * 20] / rolutsq[
- linf + (i__ + j * 25) * 20]) / coef;
-/*< betac=rolutsq(linf,i,j)/(wlinf**(alphac)) >*/
- betac = rolutsq[linf + (i__ + j * 25) * 20] / pow_dd(&wlinf, &
- alphac);
-/*< rolutq(i,j)=betac*(wl**alphac) >*/
- rolutq[i__ + j * 25] = betac * pow_dd(wl, &alphac);
-/*< else >*/
- } else {
-/*< >*/
- rolutq[i__ + j * 25] = rolutsq[linf + (i__ + j * 25) * 20] + (
- rolutsq[lsup + (i__ + j * 25) * 20] - rolutsq[linf + (
- i__ + j * 25) * 20]) * coefl;
-/*< endif >*/
- }
-/*< if ((rolutsu(lsup,i,j).gt.0.001).and.(rolutsu(linf,i,j).gt.0.001)) then >*/
- if (rolutsu[lsup + (i__ + j * 25) * 20] > .001 && rolutsu[linf + (
- i__ + j * 25) * 20] > .001) {
-/*< alphac=alog(rolutsu(lsup,i,j)/rolutsu(linf,i,j))/coef >*/
- alphac = log(rolutsu[lsup + (i__ + j * 25) * 20] / rolutsu[
- linf + (i__ + j * 25) * 20]) / coef;
-/*< betac=rolutsu(linf,i,j)/(wlinf**(alphac)) >*/
- betac = rolutsu[linf + (i__ + j * 25) * 20] / pow_dd(&wlinf, &
- alphac);
-/*< rolutu(i,j)=betac*(wl**alphac) >*/
- rolutu[i__ + j * 25] = betac * pow_dd(wl, &alphac);
-/*< else >*/
- } else {
-/*< >*/
- rolutu[i__ + j * 25] = rolutsu[linf + (i__ + j * 25) * 20] + (
- rolutsu[lsup + (i__ + j * 25) * 20] - rolutsu[linf + (
- i__ + j * 25) * 20]) * coefl;
-/*< endif >*/
- }
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* End Look up table update */
-/*< 2234 continue >*/
-L2234:
-/* we continue with the parameter Q .... */
-/*< if(iaer.eq.0) goto 3240 >*/
- if (*iaer == 0) {
- goto L3240;
- }
-/*< if ((qhase(lsup).gt.0.001).and.(qhase(linf).gt.0.001)) then >*/
- if (sixs_aer__1.qhase[lsup - 1] > .001 && sixs_aer__1.qhase[linf - 1] >
- .001) {
-/*< alphaa=alog(qhase(lsup)/qhase(linf))/coef >*/
- alphaa = log(sixs_aer__1.qhase[lsup - 1] / sixs_aer__1.qhase[linf - 1]
- ) / coef;
-/*< betaa=qhase(linf)/(wlinf**(alphaa)) >*/
- betaa = sixs_aer__1.qhase[linf - 1] / pow_dd(&wlinf, &alphaa);
-/*< qhaa=betaa*(wl**alphaa) >*/
- *qhaa = betaa * pow_dd(wl, &alphaa);
-/*< else >*/
- } else {
-/*< qhaa=qhase(linf)+(qhase(lsup)-qhase(linf))*coefl >*/
- *qhaa = sixs_aer__1.qhase[linf - 1] + (sixs_aer__1.qhase[lsup - 1] -
- sixs_aer__1.qhase[linf - 1]) * coefl;
-/*< endif >*/
- }
-/*< 3240 continue >*/
-L3240:
-/*< qhar=depolar1*.75*(xmud*xmud-1.) >*/
- *qhar = depolar1 * .75 * (*xmud * *xmud - 1.);
-/*< if (idatmp.eq.0) goto 3234 >*/
- if (*idatmp == 0) {
- goto L3234;
- }
-/*< test1=abs(rqatm(1,linf)) >*/
- test1 = (d__1 = sixs_disc__1.rqatm[linf * 3 - 3], abs(d__1));
-/*< test2=abs(rqatm(1,lsup)) >*/
- test2 = (d__1 = sixs_disc__1.rqatm[lsup * 3 - 3], abs(d__1));
-/*< test3=rqatm(1,lsup)*rqatm(1,linf) >*/
- test3 = sixs_disc__1.rqatm[lsup * 3 - 3] * sixs_disc__1.rqatm[linf * 3 -
- 3];
-/*< >*/
- if (test1 < .001 || test2 < .001 || test3 < 0.) {
-/*< >*/
- *rqrayl = sixs_disc__1.rqatm[linf * 3 - 3] + (sixs_disc__1.rqatm[lsup
- * 3 - 3] - sixs_disc__1.rqatm[linf * 3 - 3]) * (*wl -
- sixs_disc__1.wldis[linf - 1]) / (sixs_disc__1.wldis[lsup - 1]
- - sixs_disc__1.wldis[linf - 1]);
-/*< else >*/
- } else {
-/*< alphar=alog(rqatm(1,lsup)/rqatm(1,linf))/ coef >*/
- alphar = log(sixs_disc__1.rqatm[lsup * 3 - 3] / sixs_disc__1.rqatm[
- linf * 3 - 3]) / coef;
-/*< betar=rqatm(1,linf)/(wlinf**(alphar)) >*/
- betar = sixs_disc__1.rqatm[linf * 3 - 3] / pow_dd(&wlinf, &alphar);
-/*< rqrayl=betar*(wl**alphar) >*/
- *rqrayl = betar * pow_dd(wl, &alphar);
-/*< endif >*/
- }
-/* write(6,*)'Q ',qhar,rqrayl,betar,alphar,rqatm(1,lsup), */
-/* s rqatm(1,linf) */
-/*< test1=abs(rqatm(2,linf)) >*/
- test1 = (d__1 = sixs_disc__1.rqatm[linf * 3 - 2], abs(d__1));
-/*< test2=abs(rqatm(2,lsup)) >*/
- test2 = (d__1 = sixs_disc__1.rqatm[lsup * 3 - 2], abs(d__1));
-/*< test3=rqatm(2,lsup)*rqatm(2,linf) >*/
- test3 = sixs_disc__1.rqatm[lsup * 3 - 2] * sixs_disc__1.rqatm[linf * 3 -
- 2];
-/*< >*/
- if (test1 < .001 || test2 < .001 || test3 < 0.) {
-/*< >*/
- *rqmix = sixs_disc__1.rqatm[linf * 3 - 2] + (sixs_disc__1.rqatm[lsup *
- 3 - 2] - sixs_disc__1.rqatm[linf * 3 - 2]) * (*wl -
- sixs_disc__1.wldis[linf - 1]) / (sixs_disc__1.wldis[lsup - 1]
- - sixs_disc__1.wldis[linf - 1]);
-/*< else >*/
- } else {
-/*< alphac=alog(rqatm(2,lsup)/rqatm(2,linf))/coef >*/
- alphac = log(sixs_disc__1.rqatm[lsup * 3 - 2] / sixs_disc__1.rqatm[
- linf * 3 - 2]) / coef;
-/*< betac=rqatm(2,linf)/(wlinf**(alphac)) >*/
- betac = sixs_disc__1.rqatm[linf * 3 - 2] / pow_dd(&wlinf, &alphac);
-/*< rqmix=betac*(wl**alphac) >*/
- *rqmix = betac * pow_dd(wl, &alphac);
-/*< endif >*/
- }
-/*< if(iaer.eq.0) goto 3234 >*/
- if (*iaer == 0) {
- goto L3234;
- }
-/* write(6,*) "rqaero ",rqatm(3,linf),rqatm(3,lsup) */
-/*< test1=abs(rqatm(3,linf)) >*/
- test1 = (d__1 = sixs_disc__1.rqatm[linf * 3 - 1], abs(d__1));
-/*< test2=abs(rqatm(3,lsup)) >*/
- test2 = (d__1 = sixs_disc__1.rqatm[lsup * 3 - 1], abs(d__1));
-/*< test3=rqatm(3,lsup)*rqatm(3,linf) >*/
- test3 = sixs_disc__1.rqatm[lsup * 3 - 1] * sixs_disc__1.rqatm[linf * 3 -
- 1];
-/*< >*/
- if (test1 < .001 || test2 < .001 || test3 < 0.) {
-/*< >*/
- *rqaero = sixs_disc__1.rqatm[linf * 3 - 1] + (sixs_disc__1.rqatm[lsup
- * 3 - 1] - sixs_disc__1.rqatm[linf * 3 - 1]) * (*wl -
- sixs_disc__1.wldis[linf - 1]) / (sixs_disc__1.wldis[lsup - 1]
- - sixs_disc__1.wldis[linf - 1]);
-/*< else >*/
- } else {
-/*< alphaa=alog(rqatm(3,lsup)/rqatm(3,linf))/coef >*/
- alphaa = log(sixs_disc__1.rqatm[lsup * 3 - 1] / sixs_disc__1.rqatm[
- linf * 3 - 1]) / coef;
-/*< betaa=rqatm(3,linf)/(wlinf**(alphaa)) >*/
- betaa = sixs_disc__1.rqatm[linf * 3 - 1] / pow_dd(&wlinf, &alphaa);
-/*< rqaero=betaa*(wl**alphaa) >*/
- *rqaero = betaa * pow_dd(wl, &alphaa);
-/*< endif >*/
- }
-/* write(6,*) "rqaero ",rqaero */
-/*< 3234 continue >*/
-L3234:
-/* .... and we finish with the parameter U */
-/*< if(iaer.eq.0) goto 4242 >*/
- if (*iaer == 0) {
- goto L4242;
- }
-/*< if ((uhase(lsup).gt.0.001).and.(uhase(linf).gt.0.001)) then >*/
- if (sixs_aer__1.uhase[lsup - 1] > .001 && sixs_aer__1.uhase[linf - 1] >
- .001) {
-/*< alphaa=alog(uhase(lsup)/uhase(linf))/coef >*/
- alphaa = log(sixs_aer__1.uhase[lsup - 1] / sixs_aer__1.uhase[linf - 1]
- ) / coef;
-/*< betaa=uhase(linf)/(wlinf**(alphaa)) >*/
- betaa = sixs_aer__1.uhase[linf - 1] / pow_dd(&wlinf, &alphaa);
-/*< uhaa=betaa*(wl**alphaa) >*/
- *uhaa = betaa * pow_dd(wl, &alphaa);
-/*< else >*/
- } else {
-/*< uhaa=uhase(linf)+(uhase(lsup)-uhase(linf))*coefl >*/
- *uhaa = sixs_aer__1.uhase[linf - 1] + (sixs_aer__1.uhase[lsup - 1] -
- sixs_aer__1.uhase[linf - 1]) * coefl;
-/*< endif >*/
- }
-/*< 4242 continue >*/
-L4242:
-/*< uhar=depolar1*3./2.*xmud >*/
- *uhar = depolar1 * 3. / 2. * *xmud;
-/*< if (idatmp.eq.0) goto 4234 >*/
- if (*idatmp == 0) {
- goto L4234;
- }
-/*< test1=abs(ruatm(1,linf)) >*/
- test1 = (d__1 = sixs_disc__1.ruatm[linf * 3 - 3], abs(d__1));
-/*< test2=abs(ruatm(1,lsup)) >*/
- test2 = (d__1 = sixs_disc__1.ruatm[lsup * 3 - 3], abs(d__1));
-/*< test3=ruatm(1,lsup)*ruatm(1,linf) >*/
- test3 = sixs_disc__1.ruatm[lsup * 3 - 3] * sixs_disc__1.ruatm[linf * 3 -
- 3];
-/*< >*/
- if (test1 < .001 || test2 < .001 || test3 < 0.) {
-/*< >*/
- *rurayl = sixs_disc__1.ruatm[linf * 3 - 3] + (sixs_disc__1.ruatm[lsup
- * 3 - 3] - sixs_disc__1.ruatm[linf * 3 - 3]) * (*wl -
- sixs_disc__1.wldis[linf - 1]) / (sixs_disc__1.wldis[lsup - 1]
- - sixs_disc__1.wldis[linf - 1]);
-/*< else >*/
- } else {
-/*< alphar=alog(ruatm(1,lsup)/ruatm(1,linf))/ coef >*/
- alphar = log(sixs_disc__1.ruatm[lsup * 3 - 3] / sixs_disc__1.ruatm[
- linf * 3 - 3]) / coef;
-/*< betar=ruatm(1,linf)/(wlinf**(alphar)) >*/
- betar = sixs_disc__1.ruatm[linf * 3 - 3] / pow_dd(&wlinf, &alphar);
-/*< rurayl=betar*(wl**alphar) >*/
- *rurayl = betar * pow_dd(wl, &alphar);
-/*< endif >*/
- }
-/* write(6,*)'U ',uhar,rurayl,betar,alphar,ruatm(1,lsup), */
-/* s ruatm(1,linf) */
-/*< test1=abs(ruatm(2,linf)) >*/
- test1 = (d__1 = sixs_disc__1.ruatm[linf * 3 - 2], abs(d__1));
-/*< test2=abs(ruatm(2,lsup)) >*/
- test2 = (d__1 = sixs_disc__1.ruatm[lsup * 3 - 2], abs(d__1));
-/*< test3=ruatm(2,lsup)*ruatm(2,linf) >*/
- test3 = sixs_disc__1.ruatm[lsup * 3 - 2] * sixs_disc__1.ruatm[linf * 3 -
- 2];
-/*< >*/
- if (test1 < .001 || test2 < .001 || test3 < 0.) {
-/*< >*/
- *rumix = sixs_disc__1.ruatm[linf * 3 - 2] + (sixs_disc__1.ruatm[lsup *
- 3 - 2] - sixs_disc__1.ruatm[linf * 3 - 2]) * (*wl -
- sixs_disc__1.wldis[linf - 1]) / (sixs_disc__1.wldis[lsup - 1]
- - sixs_disc__1.wldis[linf - 1]);
-/*< else >*/
- } else {
-/*< alphac=alog(ruatm(2,lsup)/ruatm(2,linf))/coef >*/
- alphac = log(sixs_disc__1.ruatm[lsup * 3 - 2] / sixs_disc__1.ruatm[
- linf * 3 - 2]) / coef;
-/*< betac=ruatm(2,linf)/(wlinf**(alphac)) >*/
- betac = sixs_disc__1.ruatm[linf * 3 - 2] / pow_dd(&wlinf, &alphac);
-/*< rumix=betac*(wl**alphac) >*/
- *rumix = betac * pow_dd(wl, &alphac);
-/*< endif >*/
- }
-/*< if(iaer.eq.0) goto 4234 >*/
- if (*iaer == 0) {
- goto L4234;
- }
-/*< test1=abs(ruatm(3,linf)) >*/
- test1 = (d__1 = sixs_disc__1.ruatm[linf * 3 - 1], abs(d__1));
-/*< test2=abs(ruatm(3,lsup)) >*/
- test2 = (d__1 = sixs_disc__1.ruatm[lsup * 3 - 1], abs(d__1));
-/*< test3=ruatm(3,lsup)*ruatm(3,linf) >*/
- test3 = sixs_disc__1.ruatm[lsup * 3 - 1] * sixs_disc__1.ruatm[linf * 3 -
- 1];
-/*< >*/
- if (test1 < .001 || test2 < .001 || test3 < 0.) {
-/*< >*/
- ruaer0 = sixs_disc__1.ruatm[linf * 3 - 1] + (sixs_disc__1.ruatm[lsup *
- 3 - 1] - sixs_disc__1.ruatm[linf * 3 - 1]) * (*wl -
- sixs_disc__1.wldis[linf - 1]) / (sixs_disc__1.wldis[lsup - 1]
- - sixs_disc__1.wldis[linf - 1]);
-/*< else >*/
- } else {
-/*< alphaa=alog(ruatm(3,lsup)/ruatm(3,linf))/coef >*/
- alphaa = log(sixs_disc__1.ruatm[lsup * 3 - 1] / sixs_disc__1.ruatm[
- linf * 3 - 1]) / coef;
-/*< betaa=ruatm(3,linf)/(wlinf**(alphaa)) >*/
- betaa = sixs_disc__1.ruatm[linf * 3 - 1] / pow_dd(&wlinf, &alphaa);
-/*< ruaero=betaa*(wl**alphaa) >*/
- *ruaero = betaa * pow_dd(wl, &alphaa);
-/*< endif >*/
- }
-/*< 4234 continue >*/
-L4234:
-
-
-/*< alphar=alog(trayl(lsup)/trayl(linf))/coef >*/
- alphar = log(sixs_disc__1.trayl[lsup - 1] / sixs_disc__1.trayl[linf - 1])
- / coef;
-/*< betar=trayl(linf)/(wlinf**(alphar)) >*/
- betar = sixs_disc__1.trayl[linf - 1] / pow_dd(&wlinf, &alphar);
-/*< tray=betar*(wl**alphar) >*/
- *tray = betar * pow_dd(wl, &alphar);
-/*< if (idatmp.ne.0.) then >*/
- if ((doublereal) (*idatmp) != 0.) {
-/*< alphar=alog(traypl(lsup)/traypl(linf))/coef >*/
- alphar = log(sixs_disc__1.traypl[lsup - 1] / sixs_disc__1.traypl[linf
- - 1]) / coef;
-/*< betar=traypl(linf)/(wlinf**(alphar)) >*/
- betar = sixs_disc__1.traypl[linf - 1] / pow_dd(&wlinf, &alphar);
-/*< trayp=betar*(wl**alphar) >*/
- *trayp = betar * pow_dd(wl, &alphar);
-/*< else >*/
- } else {
-/*< trayp=0. >*/
- *trayp = 0.;
-/*< endif >*/
- }
-
-/*< if(iaer.eq.0) goto 1235 >*/
- if (*iaer == 0) {
- goto L1235;
- }
-/*< alphaa=alog(ext(lsup)*ome(lsup)/(ext(linf)*ome(linf)))/coef >*/
- alphaa = log(sixs_aer__1.ext[lsup - 1] * sixs_aer__1.ome[lsup - 1] / (
- sixs_aer__1.ext[linf - 1] * sixs_aer__1.ome[linf - 1])) / coef;
-/*< betaa=ext(linf)*ome(linf)/(wlinf**(alphaa)) >*/
- betaa = sixs_aer__1.ext[linf - 1] * sixs_aer__1.ome[linf - 1] / pow_dd(&
- wlinf, &alphaa);
-/*< tsca=taer55*betaa*(wl**alphaa)/ext(8) >*/
- *tsca = *taer55 * betaa * pow_dd(wl, &alphaa) / sixs_aer__1.ext[7];
-/*< alphaa=alog(ext(lsup)/ext(linf))/coef >*/
- alphaa = log(sixs_aer__1.ext[lsup - 1] / sixs_aer__1.ext[linf - 1]) /
- coef;
-/*< betaa=ext(linf)/(wlinf**(alphaa)) >*/
- betaa = sixs_aer__1.ext[linf - 1] / pow_dd(&wlinf, &alphaa);
-/*< taerp=taer55p*betaa*(wl**alphaa)/ext(8) >*/
- *taerp = *taer55p * betaa * pow_dd(wl, &alphaa) / sixs_aer__1.ext[7];
-/*< taer=taer55*betaa*(wl**alphaa)/ext(8) >*/
- *taer = *taer55 * betaa * pow_dd(wl, &alphaa) / sixs_aer__1.ext[7];
-
-/*< 1235 drinf=dtdif(1,linf)+dtdir(1,linf) >*/
-L1235:
- drinf = sixs_disc__1.dtdif[linf * 3 - 3] + sixs_disc__1.dtdir[linf * 3 -
- 3];
-/*< drsup=dtdif(1,lsup)+dtdir(1,lsup) >*/
- drsup = sixs_disc__1.dtdif[lsup * 3 - 3] + sixs_disc__1.dtdir[lsup * 3 -
- 3];
-/*< alphar=alog(drsup/drinf)/coef >*/
- alphar = log(drsup / drinf) / coef;
-/*< betar=drinf/(wlinf**(alphar)) >*/
- betar = drinf / pow_dd(&wlinf, &alphar);
-/*< dtotr=betar*(wl**alphar) >*/
- *dtotr = betar * pow_dd(wl, &alphar);
-/*< dtinf=dtdif(2,linf)+dtdir(2,linf) >*/
- dtinf = sixs_disc__1.dtdif[linf * 3 - 2] + sixs_disc__1.dtdir[linf * 3 -
- 2];
-/*< dtsup=dtdif(2,lsup)+dtdir(2,lsup) >*/
- dtsup = sixs_disc__1.dtdif[lsup * 3 - 2] + sixs_disc__1.dtdir[lsup * 3 -
- 2];
-/*< alphac=alog((dtsup*drinf)/(dtinf*drsup))/coef >*/
- alphac = log(dtsup * drinf / (dtinf * drsup)) / coef;
-/*< betac=(dtinf/drinf)/(wlinf**(alphac)) >*/
- betac = dtinf / drinf / pow_dd(&wlinf, &alphac);
-/*< dtotc=betac*(wl**alphac) >*/
- dtotc = betac * pow_dd(wl, &alphac);
-/*< dainf=dtdif(3,linf)+dtdir(3,linf) >*/
- dainf = sixs_disc__1.dtdif[linf * 3 - 1] + sixs_disc__1.dtdir[linf * 3 -
- 1];
-/*< dasup=dtdif(3,lsup)+dtdir(3,lsup) >*/
- dasup = sixs_disc__1.dtdif[lsup * 3 - 1] + sixs_disc__1.dtdir[lsup * 3 -
- 1];
-/*< if(iaer.eq.0) goto 1236 >*/
- if (*iaer == 0) {
- goto L1236;
- }
-/*< alphaa=alog(dasup/dainf)/coef >*/
- alphaa = log(dasup / dainf) / coef;
-/*< betaa=dainf/(wlinf**(alphaa)) >*/
- betaa = dainf / pow_dd(&wlinf, &alphaa);
-/*< dtota=betaa*(wl**alphaa) >*/
- *dtota = betaa * pow_dd(wl, &alphaa);
-/*< 1236 dtott=dtotc*dtotr >*/
-L1236:
- *dtott = dtotc * *dtotr;
-/*< urinf=utdif(1,linf)+utdir(1,linf) >*/
- urinf = sixs_disc__1.utdif[linf * 3 - 3] + sixs_disc__1.utdir[linf * 3 -
- 3];
-/*< ursup=utdif(1,lsup)+utdir(1,lsup) >*/
- ursup = sixs_disc__1.utdif[lsup * 3 - 3] + sixs_disc__1.utdir[lsup * 3 -
- 3];
-/*< alphar=alog(ursup/urinf)/ coef >*/
- alphar = log(ursup / urinf) / coef;
-/*< betar=urinf/(wlinf**(alphar)) >*/
- betar = urinf / pow_dd(&wlinf, &alphar);
-/*< utotr=betar*(wl**alphar) >*/
- *utotr = betar * pow_dd(wl, &alphar);
-/*< utinf=utdif(2,linf)+utdir(2,linf) >*/
- utinf = sixs_disc__1.utdif[linf * 3 - 2] + sixs_disc__1.utdir[linf * 3 -
- 2];
-/*< utsup=utdif(2,lsup)+utdir(2,lsup) >*/
- utsup = sixs_disc__1.utdif[lsup * 3 - 2] + sixs_disc__1.utdir[lsup * 3 -
- 2];
-/*< alphac=alog((utsup*urinf)/(utinf*ursup))/ coef >*/
- alphac = log(utsup * urinf / (utinf * ursup)) / coef;
-/*< betac=(utinf/urinf)/(wlinf**(alphac)) >*/
- betac = utinf / urinf / pow_dd(&wlinf, &alphac);
-/*< utotc=betac*(wl**alphac) >*/
- utotc = betac * pow_dd(wl, &alphac);
-/*< uainf=utdif(3,linf)+utdir(3,linf) >*/
- uainf = sixs_disc__1.utdif[linf * 3 - 1] + sixs_disc__1.utdir[linf * 3 -
- 1];
-/*< uasup=utdif(3,lsup)+utdir(3,lsup) >*/
- uasup = sixs_disc__1.utdif[lsup * 3 - 1] + sixs_disc__1.utdir[lsup * 3 -
- 1];
-/*< if(iaer.eq.0) goto 1237 >*/
- if (*iaer == 0) {
- goto L1237;
- }
-/*< alphaa=alog(uasup/uainf)/ coef >*/
- alphaa = log(uasup / uainf) / coef;
-/*< betaa=uainf/(wlinf**(alphaa)) >*/
- betaa = uainf / pow_dd(&wlinf, &alphaa);
-/*< utota=betaa*(wl**alphaa) >*/
- *utota = betaa * pow_dd(wl, &alphaa);
-/*< 1237 utott=utotc*utotr >*/
-L1237:
- *utott = utotc * *utotr;
-/*< arinf=sphal(1,linf) >*/
- arinf = sixs_disc__1.sphal[linf * 3 - 3];
-/*< arsup=sphal(1,lsup) >*/
- arsup = sixs_disc__1.sphal[lsup * 3 - 3];
-/*< alphar=alog(arsup/arinf)/ coef >*/
- alphar = log(arsup / arinf) / coef;
-/*< betar=arinf/(wlinf**(alphar)) >*/
- betar = arinf / pow_dd(&wlinf, &alphar);
-/*< asray=betar*(wl**alphar) >*/
- *asray = betar * pow_dd(wl, &alphar);
-/*< atinf=sphal(2,linf) >*/
- atinf = sixs_disc__1.sphal[linf * 3 - 2];
-/*< atsup=sphal(2,lsup) >*/
- atsup = sixs_disc__1.sphal[lsup * 3 - 2];
-/*< alphac=alog(atsup/atinf)/coef >*/
- alphac = log(atsup / atinf) / coef;
-/*< betac=atinf/(wlinf**(alphac)) >*/
- betac = atinf / pow_dd(&wlinf, &alphac);
-/*< astot=betac*(wl**alphac) >*/
- *astot = betac * pow_dd(wl, &alphac);
-/*< aainf=sphal(3,linf) >*/
- aainf = sixs_disc__1.sphal[linf * 3 - 1];
-/*< aasup=sphal(3,lsup) >*/
- aasup = sixs_disc__1.sphal[lsup * 3 - 1];
-/*< if(iaer.eq.0) goto 1239 >*/
- if (*iaer == 0) {
- goto L1239;
- }
-/*< alphaa=alog(aasup/aainf)/coef >*/
- alphaa = log(aasup / aainf) / coef;
-/*< betaa=aainf/(wlinf**(alphaa)) >*/
- betaa = aainf / pow_dd(&wlinf, &alphaa);
-/*< asaer=betaa*(wl**alphaa) >*/
- *asaer = betaa * pow_dd(wl, &alphaa);
-/*< 1239 return >*/
-L1239:
- return 0;
-/*< end >*/
-} /* interp_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/INTERP.f b/Modules/ThirdParty/6S/src/6SV1.0B/INTERP.f
deleted file mode 100644
index f5a4a8c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/INTERP.f
+++ /dev/null
@@ -1,388 +0,0 @@
- subroutine interp (iaer,idatmp,wl,taer55,taer55p,xmud,
- a romix,rorayl,roaero,phaa,phar,rqmix,rqrayl,rqaero,qhaa,qhar,
- a rumix,rurayl,ruaero,uhaa,uhar,
- a tsca,tray,trayp,taer,taerp,dtott,utott,astot,asray,asaer,
- a utotr,utota,dtotr,dtota,ipol,
- a roatm_fi,romix_fi,rorayl_fi,nfi,
- s roluts,rolut,rolutsq,rolutq,rolutsu,rolutu,nfilut)
-
- include "paramdef.inc"
- real test1,test2,test3
- Real wl,taer55,taer55p
- Real xmud,romix,rorayl,roaero,phaa,phar,tsca,tray
- Real rqmix,rqrayl,rqaero,qhaa,qhar,rqatm,qhase
- Real rumix,rurayl,ruaero,uhaa,uhar,ruatm,uhase
- Real trayp,taer,taerp,dtott,utott,astot,asray,asaer,utotr
- Real utota,dtotr,dtota,ext,ome,gasym,phase,roatm,dtdir
- Real dtdif,utdir,utdif,sphal,wldis,trayl,traypl,delta,sigma
- Real alphaa,betaa,alphar,betar,alphac,betac,coef,coefl,wlinf
- Real drinf,drsup,dtinf,dtsup,dtotc,dainf,dasup,urinf,ursup
- Real utinf,utsup,utotc,uainf,uasup,arinf,arsup,atinf,atsup
- Real aainf,aasup,depolar1,depolar2
- real romix_fi(nfi),rorayl_fi(nfi),roatm_fi(3,20,nfi)
- real rolut(mu_p,41),roluts(20,mu_p,41)
- real rolutq(mu_p,41),rolutsq(20,mu_p,41)
- real rolutu(mu_p,41),rolutsu(20,mu_p,41)
- integer nfilut(mu_p),mu
- Integer iaer,idatmp,linf,ll,lsup,ipol
-
- common /sixs_aer/ext(20),ome(20),gasym(20),phase(20),qhase(20),
- &uhase(20)
- common /sixs_disc/ roatm(3,20),dtdir(3,20),dtdif(3,20),
- a utdir(3,20),utdif(3,20),sphal(3,20),wldis(20),trayl(20),
- a traypl(20),rqatm(3,20),ruatm(3,20)
- common /sixs_del/ delta,sigma
-
-
- mu=mu_p
-c that for the atmosphere (if polarization requested) :
-c the reflectances
-c rayleigh = rorayl ,(rqrayl,rurayl)
-c aerosols = roaero ,(rqaero,ruaero)
-c mixing = romix ,(rqmix,rumix)
-c the downward transmittances
-c rayleigh = dtotr
-c aerosols = dtota
-c total = dtott
-c the upward transmittances
-c rayleigh = utotr
-c aerosols = utota
-c total = utott
-c the spherical albedos
-c rayleigh = asray
-c aerosols = asaer
-c total = astot
-c the optical thickness of total atmosphere
-c rayleigh = tray
-c aerosols = taer
-c the optical thickness of the atmosphere above the plane
-c rayleigh = trayp
-c aerosols = taerp
-c the tsca of the aerosols
-c total atmosphere = tsca
-
- linf=1
- do 81 ll=1,19
- if(wl.gt.wldis(ll).and.wl.le.wldis(ll+1)) linf=ll
- 81 continue
- if(wl.gt.wldis(20)) linf=19
- lsup=linf+1
-
-c interpolation in function of wavelength for scattering
-c atmospheric functions from discrete values at wldis
-
- alphaa=0.
- betaa=0.
- alphar=0.
- betar=0.
- alphac=0.
- betac=0.
- phaa=0.
- qhaa=0.
- uhaa=0.
- phar=0.
- qhar=0.
- uhar=0.
- roaero=0.
- rqaero=0.
- ruaero=0.
- rorayl=0.
- rqrayl=0.
- rurayl=0.
- romix=0.
- rqmix=0.
- rumix=0.
- dtota=1.
- utota=1.
- asaer=0.
- taer=0.
- taerp=0.
- coef=alog(wldis(lsup)/wldis(linf))
- wlinf=wldis(linf)
-c Here we spectrally interpolate phase functions and Stokes'
-c parameters I, Q and U (all divided by cos(teta_sun)), both
-c for Rayleigh, Aerosol, and a mixture Rayleigh+aerosol
-c For the Rayleigh Phase functions we need to take into
-c account the depolarization factor delta.
- depolar1=2.*(1.-delta)/(2.+delta)
- depolar2=3.*delta/(2.+delta)
-c
-c we first start with the parameter I (with truncation)
-c (divided by cos(teta_sun))
-c if requested, we continue with the parameter I (without truncation)...
-c (divided by cos(teta_sun))
- if(iaer.eq.0) goto 2240
- alphaa=alog(phase(lsup)/phase(linf))/coef
- betaa=phase(linf)/(wlinf**(alphaa))
- phaa=betaa*(wl**alphaa)
- 2240 continue
- phar=depolar1*.75*(1.+xmud*xmud)+depolar2
- if (idatmp.eq.0) goto 2234
-
-C if((roatm(1,linf).le..001).or.(roatm(1,lsup).le..001)) then
-C rorayl=roatm(1,linf)+(roatm(1,lsup)-roatm(1,linf))
-C s *(wl-wldis(linf))/(wldis(lsup)-wldis(linf))
-C else
- alphar=alog(roatm(1,lsup)/roatm(1,linf))/ coef
- betar=roatm(1,linf)/(wlinf**(alphar))
- rorayl=betar*(wl**alphar)
- do ifi=1,nfi
- alphar=alog(roatm_fi(1,lsup,ifi)/roatm_fi(1,linf,ifi))/ coef
- betar=roatm_fi(1,linf,ifi)/(wlinf**(alphar))
- rorayl_fi(ifi)=betar*(wl**alphar)
- enddo
-C endif
-c write(6,*)'Ib ',phar,rorayl,betar,alphar,roatm(1,lsup),
-c s roatm(1,linf)
-C if((roatm(2,linf).le..00000001).or.(roatm(2,lsup).le..00000001)) then
-C romix=roatm(2,linf)+(roatm(2,lsup)-roatm(2,linf))
-C s *(wl-wldis(linf))/(wldis(lsup)-wldis(linf))
-C xtmp=(wl-wldis(linf))/(wldis(lsup)-wldis(linf))
-C do ifi=1,nfi
-C romix_fi(ifi)=roatm_fi(2,linf,ifi)+
-C s (roatm_fi(2,lsup,ifi)-roatm_fi(2,linf,ifi))*xtmp
-C enddo
-C else
- alphac=alog(roatm(2,lsup)/roatm(2,linf))/coef
- betac=roatm(2,linf)/(wlinf**(alphac))
- romix=betac*(wl**alphac)
- do ifi=1,nfi
- alphac=alog(roatm_fi(2,lsup,ifi)/roatm_fi(2,linf,ifi))/coef
- betac=roatm_fi(2,linf,ifi)/(wlinf**(alphac))
- romix_fi(ifi)=betac*(wl**alphac)
- enddo
-C endif
- if(iaer.eq.0) goto 2234
-C if((roatm(3,linf).lt..001).or.(roatm(3,lsup).le..001))then
-C roaero=roatm(3,linf)+(roatm(3,lsup)-roatm(3,linf))
-C s *(wl-wldis(linf))/(wldis(lsup)-wldis(linf))
-C else
- alphaa=alog(roatm(3,lsup)/roatm(3,linf))/coef
- betaa=roatm(3,linf)/(wlinf**(alphaa))
- roaero=betaa*(wl**alphaa)
-C endif
-
-C Look up table update
- coefl=(wl-wldis(linf))/(wldis(lsup)-wldis(linf))
- do i=1,mu
- do j=1,nfilut(i)
-C if ((roluts(lsup,i,j).gt.0.001).and.(roluts(linf,i,j).gt.0.001)) then
- alphac=alog(roluts(lsup,i,j)/roluts(linf,i,j))/coef
- betac=roluts(linf,i,j)/(wlinf**(alphac))
- rolut(i,j)=betac*(wl**alphac)
-C else
-C rolut(i,j)=roluts(linf,i,j)
-C & +(roluts(lsup,i,j)-roluts(linf,i,j))*coefl
-C endif
-
- if ((rolutsq(lsup,i,j).gt.0.001).and.(rolutsq(linf,i,j).gt.0.001)) then
- alphac=alog(rolutsq(lsup,i,j)/rolutsq(linf,i,j))/coef
- betac=rolutsq(linf,i,j)/(wlinf**(alphac))
- rolutq(i,j)=betac*(wl**alphac)
- else
- rolutq(i,j)=rolutsq(linf,i,j)
- & +(rolutsq(lsup,i,j)-rolutsq(linf,i,j))*coefl
- endif
-
-
- if ((rolutsu(lsup,i,j).gt.0.001).and.(rolutsu(linf,i,j).gt.0.001)) then
- alphac=alog(rolutsu(lsup,i,j)/rolutsu(linf,i,j))/coef
- betac=rolutsu(linf,i,j)/(wlinf**(alphac))
- rolutu(i,j)=betac*(wl**alphac)
- else
- rolutu(i,j)=rolutsu(linf,i,j)
- & +(rolutsu(lsup,i,j)-rolutsu(linf,i,j))*coefl
- endif
-
- enddo
- enddo
-C End Look up table update
- 2234 continue
-
-c we continue with the parameter Q ....
- if(iaer.eq.0) goto 3240
- if ((qhase(lsup).gt.0.001).and.(qhase(linf).gt.0.001)) then
- alphaa=alog(qhase(lsup)/qhase(linf))/coef
- betaa=qhase(linf)/(wlinf**(alphaa))
- qhaa=betaa*(wl**alphaa)
- else
- qhaa=qhase(linf)+(qhase(lsup)-qhase(linf))*coefl
- endif
- 3240 continue
- qhar=depolar1*.75*(xmud*xmud-1.)
- if (idatmp.eq.0) goto 3234
-
- test1=abs(rqatm(1,linf))
- test2=abs(rqatm(1,lsup))
- test3=rqatm(1,lsup)*rqatm(1,linf)
- if((test1.lt.0.001).or.(test2.lt.0.001)
- s .or.(test3.lt.0.0)) then
- rqrayl=rqatm(1,linf)+(rqatm(1,lsup)-rqatm(1,linf))
- s *(wl-wldis(linf))/(wldis(lsup)-wldis(linf))
- else
- alphar=alog(rqatm(1,lsup)/rqatm(1,linf))/ coef
- betar=rqatm(1,linf)/(wlinf**(alphar))
- rqrayl=betar*(wl**alphar)
- endif
-c write(6,*)'Q ',qhar,rqrayl,betar,alphar,rqatm(1,lsup),
-c s rqatm(1,linf)
-
- test1=abs(rqatm(2,linf))
- test2=abs(rqatm(2,lsup))
- test3=rqatm(2,lsup)*rqatm(2,linf)
- if((test1.lt.0.001).or.(test2.lt.0.001)
- s .or.(test3.lt.0.0)) then
- rqmix=rqatm(2,linf)+(rqatm(2,lsup)-rqatm(2,linf))
- s *(wl-wldis(linf))/(wldis(lsup)-wldis(linf))
- else
- alphac=alog(rqatm(2,lsup)/rqatm(2,linf))/coef
- betac=rqatm(2,linf)/(wlinf**(alphac))
- rqmix=betac*(wl**alphac)
- endif
- if(iaer.eq.0) goto 3234
-C write(6,*) "rqaero ",rqatm(3,linf),rqatm(3,lsup)
-
- test1=abs(rqatm(3,linf))
- test2=abs(rqatm(3,lsup))
- test3=rqatm(3,lsup)*rqatm(3,linf)
- if((test1.lt.0.001).or.(test2.lt.0.001)
- s .or.(test3.lt.0.0)) then
- rqaero=rqatm(3,linf)+(rqatm(3,lsup)-rqatm(3,linf))
- s *(wl-wldis(linf))/(wldis(lsup)-wldis(linf))
- else
-
- alphaa=alog(rqatm(3,lsup)/rqatm(3,linf))/coef
- betaa=rqatm(3,linf)/(wlinf**(alphaa))
- rqaero=betaa*(wl**alphaa)
- endif
-C write(6,*) "rqaero ",rqaero
- 3234 continue
-
-c .... and we finish with the parameter U
- if(iaer.eq.0) goto 4242
- if ((uhase(lsup).gt.0.001).and.(uhase(linf).gt.0.001)) then
- alphaa=alog(uhase(lsup)/uhase(linf))/coef
- betaa=uhase(linf)/(wlinf**(alphaa))
- uhaa=betaa*(wl**alphaa)
- else
- uhaa=uhase(linf)+(uhase(lsup)-uhase(linf))*coefl
- endif
- 4242 continue
- uhar=depolar1*3./2.*xmud
- if (idatmp.eq.0) goto 4234
-
- test1=abs(ruatm(1,linf))
- test2=abs(ruatm(1,lsup))
- test3=ruatm(1,lsup)*ruatm(1,linf)
-
- if((test1.lt.0.001).or.(test2.lt.0.001)
- s .or.(test3.lt.0.0)) then
- rurayl=ruatm(1,linf)+(ruatm(1,lsup)-ruatm(1,linf))
- s *(wl-wldis(linf))/(wldis(lsup)-wldis(linf))
- else
- alphar=alog(ruatm(1,lsup)/ruatm(1,linf))/ coef
- betar=ruatm(1,linf)/(wlinf**(alphar))
- rurayl=betar*(wl**alphar)
- endif
-c write(6,*)'U ',uhar,rurayl,betar,alphar,ruatm(1,lsup),
-c s ruatm(1,linf)
- test1=abs(ruatm(2,linf))
- test2=abs(ruatm(2,lsup))
- test3=ruatm(2,lsup)*ruatm(2,linf)
- if((test1.lt.0.001).or.(test2.lt.0.001)
- s .or.(test3.lt.0.0)) then
- rumix=ruatm(2,linf)+(ruatm(2,lsup)-ruatm(2,linf))
- s *(wl-wldis(linf))/(wldis(lsup)-wldis(linf))
- else
- alphac=alog(ruatm(2,lsup)/ruatm(2,linf))/coef
- betac=ruatm(2,linf)/(wlinf**(alphac))
- rumix=betac*(wl**alphac)
- endif
- if(iaer.eq.0) goto 4234
- test1=abs(ruatm(3,linf))
- test2=abs(ruatm(3,lsup))
- test3=ruatm(3,lsup)*ruatm(3,linf)
- if((test1.lt.0.001).or.(test2.lt.0.001)
- s .or.(test3.lt.0.0)) then
- ruaer0=ruatm(3,linf)+(ruatm(3,lsup)-ruatm(3,linf))
- s *(wl-wldis(linf))/(wldis(lsup)-wldis(linf))
- else
- alphaa=alog(ruatm(3,lsup)/ruatm(3,linf))/coef
- betaa=ruatm(3,linf)/(wlinf**(alphaa))
- ruaero=betaa*(wl**alphaa)
- endif
- 4234 continue
-c
-c
- alphar=alog(trayl(lsup)/trayl(linf))/coef
- betar=trayl(linf)/(wlinf**(alphar))
- tray=betar*(wl**alphar)
- if (idatmp.ne.0.) then
- alphar=alog(traypl(lsup)/traypl(linf))/coef
- betar=traypl(linf)/(wlinf**(alphar))
- trayp=betar*(wl**alphar)
- else
- trayp=0.
- endif
-c
- if(iaer.eq.0) goto 1235
- alphaa=alog(ext(lsup)*ome(lsup)/(ext(linf)*ome(linf)))/coef
- betaa=ext(linf)*ome(linf)/(wlinf**(alphaa))
- tsca=taer55*betaa*(wl**alphaa)/ext(8)
- alphaa=alog(ext(lsup)/ext(linf))/coef
- betaa=ext(linf)/(wlinf**(alphaa))
- taerp=taer55p*betaa*(wl**alphaa)/ext(8)
- taer=taer55*betaa*(wl**alphaa)/ext(8)
-c
- 1235 drinf=dtdif(1,linf)+dtdir(1,linf)
- drsup=dtdif(1,lsup)+dtdir(1,lsup)
- alphar=alog(drsup/drinf)/coef
- betar=drinf/(wlinf**(alphar))
- dtotr=betar*(wl**alphar)
- dtinf=dtdif(2,linf)+dtdir(2,linf)
- dtsup=dtdif(2,lsup)+dtdir(2,lsup)
- alphac=alog((dtsup*drinf)/(dtinf*drsup))/coef
- betac=(dtinf/drinf)/(wlinf**(alphac))
- dtotc=betac*(wl**alphac)
- dainf=dtdif(3,linf)+dtdir(3,linf)
- dasup=dtdif(3,lsup)+dtdir(3,lsup)
- if(iaer.eq.0) goto 1236
- alphaa=alog(dasup/dainf)/coef
- betaa=dainf/(wlinf**(alphaa))
- dtota=betaa*(wl**alphaa)
- 1236 dtott=dtotc*dtotr
- urinf=utdif(1,linf)+utdir(1,linf)
- ursup=utdif(1,lsup)+utdir(1,lsup)
- alphar=alog(ursup/urinf)/ coef
- betar=urinf/(wlinf**(alphar))
- utotr=betar*(wl**alphar)
- utinf=utdif(2,linf)+utdir(2,linf)
- utsup=utdif(2,lsup)+utdir(2,lsup)
- alphac=alog((utsup*urinf)/(utinf*ursup))/ coef
- betac=(utinf/urinf)/(wlinf**(alphac))
- utotc=betac*(wl**alphac)
- uainf=utdif(3,linf)+utdir(3,linf)
- uasup=utdif(3,lsup)+utdir(3,lsup)
- if(iaer.eq.0) goto 1237
- alphaa=alog(uasup/uainf)/ coef
- betaa=uainf/(wlinf**(alphaa))
- utota=betaa*(wl**alphaa)
- 1237 utott=utotc*utotr
- arinf=sphal(1,linf)
- arsup=sphal(1,lsup)
- alphar=alog(arsup/arinf)/ coef
- betar=arinf/(wlinf**(alphar))
- asray=betar*(wl**alphar)
- atinf=sphal(2,linf)
- atsup=sphal(2,lsup)
- alphac=alog(atsup/atinf)/coef
- betac=atinf/(wlinf**(alphac))
- astot=betac*(wl**alphac)
- aainf=sphal(3,linf)
- aasup=sphal(3,lsup)
- if(iaer.eq.0) goto 1239
- alphaa=alog(aasup/aainf)/coef
- betaa=aainf/(wlinf**(alphaa))
- asaer=betaa*(wl**alphaa)
- 1239 return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/INTERP.h b/Modules/ThirdParty/6S/src/6SV1.0B/INTERP.h
deleted file mode 100644
index 8c202d0..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/INTERP.h
+++ /dev/null
@@ -1,49 +0,0 @@
-extern int otb_6s_interp_(
- otb_6s_integer *iaer,
- otb_6s_integer *idatmp,
- otb_6s_doublereal *wl,
- otb_6s_doublereal *taer55,
- otb_6s_doublereal *taer55p,
- otb_6s_doublereal *xmud,
- otb_6s_doublereal *romix,
- otb_6s_doublereal *rorayl,
- otb_6s_doublereal *roaero,
- otb_6s_doublereal *phaa,
- otb_6s_doublereal *phar,
- otb_6s_doublereal *rqmix,
- otb_6s_doublereal *rqrayl,
- otb_6s_doublereal *rqaero,
- otb_6s_doublereal *qhaa,
- otb_6s_doublereal *qhar,
- otb_6s_doublereal *rumix,
- otb_6s_doublereal *rurayl,
- otb_6s_doublereal *ruaero,
- otb_6s_doublereal *uhaa,
- otb_6s_doublereal *uhar,
- otb_6s_doublereal *tsca,
- otb_6s_doublereal *tray,
- otb_6s_doublereal *trayp,
- otb_6s_doublereal *taer,
- otb_6s_doublereal *taerp,
- otb_6s_doublereal *dtott,
- otb_6s_doublereal *utott,
- otb_6s_doublereal *astot,
- otb_6s_doublereal *asray,
- otb_6s_doublereal *asaer,
- otb_6s_doublereal *utotr,
- otb_6s_doublereal *utota,
- otb_6s_doublereal *dtotr,
- otb_6s_doublereal *dtota,
- otb_6s_integer *ipol,
- otb_6s_doublereal *roatm_fi__,
- otb_6s_doublereal *romix_fi__,
- otb_6s_doublereal *rorayl_fi__,
- otb_6s_integer *nfi,
- otb_6s_doublereal *roluts,
- otb_6s_doublereal *rolut,
- otb_6s_doublereal *rolutsq,
- otb_6s_doublereal *rolutq,
- otb_6s_doublereal *rolutsu,
- otb_6s_doublereal *rolutu,
- otb_6s_integer *nfilut
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ISO.P b/Modules/ThirdParty/6S/src/6SV1.0B/ISO.P
deleted file mode 100644
index bc84fd3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ISO.P
+++ /dev/null
@@ -1,7 +0,0 @@
-extern int iso_(integer *iaer_prof__, doublereal *tamoy, doublereal *trmoy, doublereal *pizmoy, doublereal *tamoyp, doublereal *trmoyp, doublereal *palt, integer *nt, integer *mu, doublereal *rm, doublereal *gb, doublereal *xf);
-/* comlen sixs_del__ 16 */
-/* comlen sixs_ier__ 8 */
-/* comlen multorder_ 4 */
-/*:ref: discre_ 14 11 7 7 7 7 4 4 7 7 7 7 7 */
-/*:ref: aero_prof__ 14 11 7 7 7 7 4 7 7 7 7 7 7 */
-/*:ref: kernel_ 14 6 4 4 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ISO.c b/Modules/ThirdParty/6S/src/6SV1.0B/ISO.c
deleted file mode 100644
index 4c3a317..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ISO.c
+++ /dev/null
@@ -1,937 +0,0 @@
-/* ISO.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal delta, sigma;
-} sixs_del__;
-
-#define sixs_del__1 sixs_del__
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-Extern struct {
- integer igmax;
-} multorder_;
-
-#define multorder_1 multorder_
-
-/* Table of constant values */
-
-static integer c__0 = 0;
-
-/*< >*/
-/* Subroutine */ int iso_(integer *iaer_prof__, doublereal *tamoy, doublereal
- *trmoy, doublereal *pizmoy, doublereal *tamoyp, doublereal *trmoyp,
- doublereal *palt, integer *nt, integer *mu, doublereal *rm,
- doublereal *gb, doublereal *xf)
-{
- /* System generated locals */
- integer rm_offset, gb_offset, i__1, i__2, i__3;
- doublereal d__1;
-
- /* Builtin functions */
- double log(doublereal), exp(doublereal);
-
- /* Local variables */
- doublereal a, b, c__, d__, f, h__[31];
- integer i__, j, k, l, m;
- doublereal x, y, z__, a1, d1, g1, i1[1581] /* was [31][51] */, i2[1581]
- /* was [31][51] */, i3[51];
- extern /* Subroutine */ int aero_prof__(doublereal *, doublereal *,
- doublereal *, doublereal *, integer *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *);
- doublereal y1, ca, dd, ha, ch[31];
- integer ig;
- doublereal bp[1326] /* was [26][51] */;
- integer jj;
- doublereal ta, cr, in[51], hr, th;
- integer it;
- doublereal tr, xx, zx, yy, ii1, ii2, xi1, xi2, zi1, xt1, xt2, acu, tap;
- integer itp;
- doublereal psl[51102] /* was [1002][51] */, ron, xpj, piz, xpl[51],
- xpk, trp, ypk;
- integer snt, ntp;
- doublereal xxx, acu2, inm1[51], inm2[51], ppp1, ppp2, aaaa, altc[31],
- bpjk, xdel[31], ydel[31], taup, beta0, xmus, beta2, bpjmk;
- integer index;
- doublereal ratio;
- integer iplane;
- extern /* Subroutine */ int discre_(doublereal *, doublereal *,
- doublereal *, doublereal *, integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *), kernel_(
- integer *, integer *, doublereal *, doublereal *, doublereal *,
- doublereal *);
- doublereal tavion, tavion0, tavion1, tavion2;
-
-/*< include "paramdef.inc" >*/
-/*< double precision psl(-1:1000,-25:25) >*/
-/* THOMAS */
-/* double precision psl(-1:nqmax_p,-mu:mu) */
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/* dimension for gauss integration */
-/*< integer mu >*/
-/*< real rm(-mu:mu),gb(-mu:mu) >*/
-/* dimension for os computation */
-/*< real xf(-1:1) >*/
-/* array for sos computation */
-/* THOMAS */
-/* double precision xpl(-mu:mu),bp(0:mu,-mu:mu),ch(0:nt) */
-/* double precision xdel(0:nt),ydel(0:nt),h(0:nt),altc(0:nt) */
-/* double precision i1(0:nt,-mu:mu),i2(0:nt,-mu:mu),i3(-mu:mu) */
-/* double precision in(-mu:mu),inm1(-mu:mu),inm2(-mu:mu) */
-/*< double precision xpl(-25:25),bp(0:25,-25:25),ch(0:30) >*/
-/*< double precision xdel(0:30),ydel(0:30),h(0:30),altc(0:30) >*/
-/*< double precision i1(0:30,-25:25),i2(0:30,-25:25),i3(-25:25) >*/
-/*< double precision in(-25:25),inm1(-25:25),inm2(-25:25) >*/
-/*< double precision acu,acu2,ta,piz >*/
-/*< double precision tr,trp,tap,hr,ha,zx,yy,dd,ppp2,ppp1,ca >*/
-/*< double precision cr,ratio,taup,th,xt1,xt2,aaaa,ron,beta0,beta2 >*/
-/*< double precision tavion0,tavion1,tavion2,tavion,zi1,xpk,ypk,x,y >*/
-/*< double precision z,xi1,xi2,bpjk,bpjmk,f,a,b,c,d,xx,a1,d1,g1 >*/
-/*< double precision y1,xpj,xxx,ii1,ii2 >*/
-/*< Real tamoy,trmoy,pizmoy >*/
-/*< Real tamoyp,trmoyp,palt >*/
-/*< Real delta,sigma >*/
-/*< integer snt,nt,iplane,ntp,j,it,itp,i,ig,k,index,iwr,m >*/
-/*< integer jj,l >*/
-/*< logical ier >*/
-/*< integer igmax,iaer_prof >*/
-/*< common/sixs_del/delta,sigma >*/
-/*< common/sixs_ier/iwr,ier >*/
-/*< common /multorder/ igmax >*/
-/*< snt=nt >*/
- /* Parameter adjustments */
- gb_offset = -(*mu);
- gb -= gb_offset;
- rm_offset = -(*mu);
- rm -= rm_offset;
- ++xf;
-
- /* Function Body */
- snt = *nt;
-/*< iplane=0 >*/
- iplane = 0;
-/*< acu=1.e-20 >*/
- acu = 1e-20;
-/*< acu2=1.e-3 >*/
- acu2 = .001;
-/*< ta=tamoy >*/
- ta = *tamoy;
-/*< piz=pizmoy >*/
- piz = *pizmoy;
-/*< tr=trmoy >*/
- tr = *trmoy;
-/*< do 615 m=-1,1 >*/
- for (m = -1; m <= 1; ++m) {
-/*< 615 xf(m)=0. >*/
-/* L615: */
- xf[m] = 0.;
- }
-
-/* molecular ratio within the layer */
-/* computations are performed assuming a scale of 8km for */
-/* molecules and 2km for aerosols */
-
-/* the optical thickness above plane are recomputed to give o.t above pla
-*/
-/*< trp=trmoy-trmoyp >*/
- trp = *trmoy - *trmoyp;
-/*< tap=tamoy-tamoyp >*/
- tap = *tamoy - *tamoyp;
-/* print *, 'tamoy,trmoy,pizmoy,tap,trp,palt,nt' */
-/* print *,tamoy,trmoy,pizmoy,tap,trp,palt,nt */
-/*< acu=1.e-20 >*/
- acu = 1e-20;
-/* if plane observations recompute scale height for aerosol knowing: */
-/* the aerosol optical depth as measure from the plane = tamoyp */
-/* the rayleigh scale height = = hr (8km) */
-/* the rayleigh optical depth at plane level = trmoyp */
-/* the altitude of the plane = palt */
-/* the rayleigh optical depth for total atmos = trmoy */
-/* the aerosol optical depth for total atmos = tamoy */
-/* if not plane observations then ha is equal to 2.0km */
-/* ntp local variable: if ntp=nt no plane observation selected */
-/* ntp=nt-1 plane observation selected */
-/*< hr=8.0 >*/
- hr = 8.;
-/* it's a mixing rayleigh+aerosol */
-/*< if(palt.le.900..and.palt.gt.0.0)then >*/
- if (*palt <= 900. && *palt > 0.) {
-/*< if (tap.gt.1.e-03) then >*/
- if (tap > .001) {
-/*< ha=-palt/log(tap/ta) >*/
- ha = -(*palt) / log(tap / ta);
-/*< else >*/
- } else {
-/*< ha=2. >*/
- ha = 2.;
-/*< endif >*/
- }
-/*< ntp=nt-1 >*/
- ntp = *nt - 1;
-/*< else >*/
- } else {
-/*< ha=2.0 >*/
- ha = 2.;
-/*< ntp=nt >*/
- ntp = *nt;
-/*< endif >*/
- }
-
-/*< ta=tamoy >*/
- ta = *tamoy;
-/*< tr=trmoy >*/
- tr = *trmoy;
-/*< piz=pizmoy >*/
- piz = *pizmoy;
-
-/* compute mixing rayleigh, aerosol */
-/* case 1: pure rayleigh */
-/* case 2: pure aerosol */
-/* case 3: mixing rayleigh-aerosol */
-
-/*< if((ta.le.acu2).and.(tr.gt.ta)) then >*/
- if (ta <= acu2 && tr > ta) {
-/*< do j=0,ntp >*/
- i__1 = ntp;
- for (j = 0; j <= i__1; ++j) {
-/*< h(j)=j*tr/ntp >*/
- h__[j] = j * tr / ntp;
-/*< ydel(j)=1.0 >*/
- ydel[j] = 1.;
-/*< xdel(j)=0.0 >*/
- xdel[j] = 0.;
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< if((tr.le.acu2).and.(ta.gt.tr)) then >*/
- if (tr <= acu2 && ta > tr) {
-/*< do j=0,ntp >*/
- i__1 = ntp;
- for (j = 0; j <= i__1; ++j) {
-/*< h(j)=j*ta/ntp >*/
- h__[j] = j * ta / ntp;
-/*< ydel(j)=0.0 >*/
- ydel[j] = 0.;
-/*< xdel(j)=piz >*/
- xdel[j] = piz;
-/*< enddo >*/
- }
-/*< endif >*/
- }
-
-/*< if(tr.gt.acu2.and.ta.gt.acu2.and.iaer_prof.eq.0)then >*/
- if (tr > acu2 && ta > acu2 && *iaer_prof__ == 0) {
-/*< ydel(0)=1.0 >*/
- ydel[0] = 1.;
-/*< xdel(0)=0.0 >*/
- xdel[0] = 0.;
-/*< h(0)=0. >*/
- h__[0] = 0.;
-/*< altc(0)=300. >*/
- altc[0] = 300.;
-/*< zx=300. >*/
- zx = 300.;
-/*< iplane=0 >*/
- iplane = 0;
-/*< do 14 it=0,ntp >*/
- i__1 = ntp;
- for (it = 0; it <= i__1; ++it) {
-/*< if (it.eq.0) then >*/
- if (it == 0) {
-/*< yy=0. >*/
- yy = 0.;
-/*< dd=0. >*/
- dd = 0.;
-/*< goto 111 >*/
- goto L111;
-/*< endif >*/
- }
-/*< yy=h(it-1) >*/
- yy = h__[it - 1];
-/*< dd=ydel(it-1) >*/
- dd = ydel[it - 1];
-/*< 111 ppp2=300.0 >*/
-L111:
- ppp2 = 300.;
-/*< ppp1=0.0 >*/
- ppp1 = 0.;
-/*< itp=it >*/
- itp = it;
-/*< >*/
- discre_(&ta, &ha, &tr, &hr, &itp, &ntp, &yy, &dd, &ppp2, &ppp1, &
- zx);
-/*< if(ier)return >*/
- if (sixs_ier__1.ier) {
- return 0;
- }
-/*< xxx=-zx/ha >*/
- xxx = -zx / ha;
-/*< if (xxx.lt.-18) then >*/
- if (xxx < -18.) {
-/*< ca=0. >*/
- ca = 0.;
-/*< else >*/
- } else {
-/*< ca=ta*dexp(xxx) >*/
- ca = ta * exp(xxx);
-/*< endif >*/
- }
-/*< xxx=-zx/hr >*/
- xxx = -zx / hr;
-/*< cr=tr*dexp(xxx) >*/
- cr = tr * exp(xxx);
-/*< h(it)=cr+ca >*/
- h__[it] = cr + ca;
-/*< altc(it)=zx >*/
- altc[it] = zx;
-/* print *,it,cr,ca,h(it),zx */
-/*< cr=cr/hr >*/
- cr /= hr;
-/*< ca=ca/ha >*/
- ca /= ha;
-/*< ratio=cr/(cr+ca) >*/
- ratio = cr / (cr + ca);
-/*< xdel(it)=(1.e+00-ratio)*piz >*/
- xdel[it] = (1. - ratio) * piz;
-/*< ydel(it)=ratio >*/
- ydel[it] = ratio;
-/*< 14 continue >*/
-/* L14: */
- }
-/*< endif >*/
- }
-/*< if(tr.gt.acu2.and.ta.gt.acu2.and.iaer_prof.eq.1)then >*/
- if (tr > acu2 && ta > acu2 && *iaer_prof__ == 1) {
-/*< >*/
- aero_prof__(&ta, &piz, &tr, &hr, &ntp, &xmus, h__, ch, ydel, xdel,
- altc);
-/*< endif >*/
- }
-/* update plane layer if necessary */
-/*< if (ntp.eq.(nt-1)) then >*/
- if (ntp == *nt - 1) {
-/* compute position of the plane layer */
-/*< taup=tap+trp >*/
- taup = tap + trp;
-/*< iplane=-1 >*/
- iplane = -1;
-/*< do i=0,ntp >*/
- i__1 = ntp;
- for (i__ = 0; i__ <= i__1; ++i__) {
-/*< if (taup.ge.h(i)) iplane=i >*/
- if (taup >= h__[i__]) {
- iplane = i__;
- }
-/*< enddo >*/
- }
-/* update the layer from the end to the position to update if necessar
-y */
-/*< th=0.005 >*/
- th = .005;
-/*< xt1=abs(h(iplane)-taup) >*/
- xt1 = (d__1 = h__[iplane] - taup, abs(d__1));
-/*< xt2=abs(h(iplane+1)-taup) >*/
- xt2 = (d__1 = h__[iplane + 1] - taup, abs(d__1));
-/*< if ((xt1.gt.th).and.(xt2.gt.th)) then >*/
- if (xt1 > th && xt2 > th) {
-/*< do i=nt,iplane+1,-1 >*/
- i__1 = iplane + 1;
- for (i__ = *nt; i__ >= i__1; --i__) {
-/*< xdel(i)=xdel(i-1) >*/
- xdel[i__] = xdel[i__ - 1];
-/*< ydel(i)=ydel(i-1) >*/
- ydel[i__] = ydel[i__ - 1];
-/*< h(i)=h(i-1) >*/
- h__[i__] = h__[i__ - 1];
-/*< altc(i)=altc(i-1) >*/
- altc[i__] = altc[i__ - 1];
-/*< enddo >*/
- }
-/*< else >*/
- } else {
-/*< nt=ntp >*/
- *nt = ntp;
-/*< if (xt2.lt.xt1) iplane=iplane+1 >*/
- if (xt2 < xt1) {
- ++iplane;
- }
-/*< endif >*/
- }
-/*< h(iplane)=taup >*/
- h__[iplane] = taup;
-/*< if ( tr.gt.acu2.and.ta.gt.acu2) then >*/
- if (tr > acu2 && ta > acu2) {
-/*< ca=ta*exp(-palt/ha) >*/
- ca = ta * exp(-(*palt) / ha);
-/*< cr=tr*exp(-palt/hr) >*/
- cr = tr * exp(-(*palt) / hr);
-/*< cr=cr/hr >*/
- cr /= hr;
-/*< ca=ca/ha >*/
- ca /= ha;
-/*< ratio=cr/(cr+ca) >*/
- ratio = cr / (cr + ca);
-/*< xdel(iplane)=(1.e+00-ratio)*piz >*/
- xdel[iplane] = (1. - ratio) * piz;
-/*< ydel(iplane)=ratio >*/
- ydel[iplane] = ratio;
-/*< altc(iplane)=palt >*/
- altc[iplane] = *palt;
-/*< endif >*/
- }
-/*< if ( tr.gt.acu2.and.ta.le.acu2) then >*/
- if (tr > acu2 && ta <= acu2) {
-/*< ydel(iplane)=1. >*/
- ydel[iplane] = 1.;
-/*< xdel(iplane)=0. >*/
- xdel[iplane] = 0.;
-/*< altc(iplane)=palt >*/
- altc[iplane] = *palt;
-/*< endif >*/
- }
-/*< if ( tr.le.acu2.and.ta.gt.acu2) then >*/
- if (tr <= acu2 && ta > acu2) {
-/*< ydel(iplane)=0. >*/
- ydel[iplane] = 0.;
-/*< xdel(iplane)=1.*piz >*/
- xdel[iplane] = piz * 1.;
-/*< altc(iplane)=palt >*/
- altc[iplane] = *palt;
-/*< endif >*/
- }
-/*< endif >*/
- }
-
-/* print *,ha,hr,palt,tamoy,trmoy,tap,trp */
-/* do i=0,nt */
-/* print *,i,h(i),xdel(i),ydel(i),altc(i) */
-/* enddo */
-
-/*< aaaa=delta/(2-delta) >*/
- aaaa = sixs_del__1.delta / (2 - sixs_del__1.delta);
-/*< ron=(1-aaaa)/(1+2*aaaa) >*/
- ron = (1 - aaaa) / (aaaa * 2 + 1);
-
-/* rayleigh phase function */
-
-/*< beta0=1. >*/
- beta0 = 1.;
-/*< beta2=0.5*ron >*/
- beta2 = ron * .5;
-
-/* primary scattering */
-
-/*< ig=1 >*/
- ig = 1;
-/*< tavion0=0. >*/
- tavion0 = 0.;
-/*< tavion1=0. >*/
- tavion1 = 0.;
-/*< tavion2=0. >*/
- tavion2 = 0.;
-/*< tavion=0. >*/
- tavion = 0.;
-/*< do 16 j=-mu,mu >*/
- i__1 = *mu;
- for (j = -(*mu); j <= i__1; ++j) {
-/*< i3(j)=0. >*/
- i3[j + 25] = 0.;
-/*< 16 continue >*/
-/* L16: */
- }
-
-/* kernel computations */
-
-/*< call kernel(0,mu,rm,xpl,psl,bp) >*/
- kernel_(&c__0, mu, &rm[rm_offset], xpl, psl, bp);
-/*< do 100 j=-mu,mu >*/
- i__1 = *mu;
- for (j = -(*mu); j <= i__1; ++j) {
-/*< do 101 k=0,nt >*/
- i__2 = *nt;
- for (k = 0; k <= i__2; ++k) {
-/*< i2(k,j)=0.0000 >*/
- i2[k + j * 31 + 775] = 0.;
-/*< 101 continue >*/
-/* L101: */
- }
-/*< 100 continue >*/
-/* L100: */
- }
-
-/* vertical integration, primary upward radiation */
-
-/*< do 108 k=1,mu >*/
- i__1 = *mu;
- for (k = 1; k <= i__1; ++k) {
-/*< i1(nt,k)=1.0 >*/
- i1[*nt + k * 31 + 775] = 1.;
-/*< zi1=i1(nt,k) >*/
- zi1 = i1[*nt + k * 31 + 775];
-/*< yy=rm(k) >*/
- yy = rm[k];
-/*< do 108 i=nt-1,0,-1 >*/
- for (i__ = *nt - 1; i__ >= 0; --i__) {
-/*< i1(i,k)=exp(-(ta+tr-h(i))/yy) >*/
- i1[i__ + k * 31 + 775] = exp(-(ta + tr - h__[i__]) / yy);
-/*< 108 continue >*/
-/* L108: */
- }
- }
-
-/* vertical integration, primary downward radiation */
-
-/*< do 109 k=-mu,-1 >*/
- for (k = -(*mu); k <= -1; ++k) {
-/*< do 109 i=0,nt >*/
- i__1 = *nt;
- for (i__ = 0; i__ <= i__1; ++i__) {
-/*< i1(i,k)=0.00 >*/
- i1[i__ + k * 31 + 775] = 0.;
-/*< 109 continue >*/
-/* L109: */
- }
- }
-
-/* inm2 is inialized with scattering computed at n-2 */
-/* i3 is inialized with primary scattering */
-
-/*< do 20 k=-mu,mu >*/
- i__1 = *mu;
- for (k = -(*mu); k <= i__1; ++k) {
-/*< if(k) 21,20,23 >*/
- if (k < 0) {
- goto L21;
- } else if (k == 0) {
- goto L20;
- } else {
- goto L23;
- }
-/*< 21 index=nt >*/
-L21:
- index = *nt;
-/*< go to 25 >*/
- goto L25;
-/*< 23 index=0 >*/
-L23:
- index = 0;
-/*< 25 continue >*/
-L25:
-/*< inm1(k)=i1(index,k) >*/
- inm1[k + 25] = i1[index + k * 31 + 775];
-/*< inm2(k)=i1(index,k) >*/
- inm2[k + 25] = i1[index + k * 31 + 775];
-/*< i3(k)=i1(index,k) >*/
- i3[k + 25] = i1[index + k * 31 + 775];
-/*< 20 continue >*/
-L20:
- ;
- }
-/*< tavion=i1(iplane,mu) >*/
- tavion = i1[iplane + *mu * 31 + 775];
-/*< tavion2=i1(iplane,mu) >*/
- tavion2 = i1[iplane + *mu * 31 + 775];
-
-/* loop on successive order */
-
-/*< 503 ig=ig+1 >*/
-L503:
- ++ig;
-/* write(6,*) 'ig ',ig */
-
-/* successive orders */
-
-/* multiple scattering source function at every level within the laye
-*/
-
-
-/*< do455 k=1,mu >*/
- i__1 = *mu;
- for (k = 1; k <= i__1; ++k) {
-/*< xpk=xpl(k) >*/
- xpk = xpl[k + 25];
-/*< ypk=xpl(-k) >*/
- ypk = xpl[-k + 25];
-/*< do 455 i=0,nt >*/
- i__2 = *nt;
- for (i__ = 0; i__ <= i__2; ++i__) {
-/*< ii1=0. >*/
- ii1 = 0.;
-/*< ii2=0. >*/
- ii2 = 0.;
-/*< x=xdel(i) >*/
- x = xdel[i__];
-/*< y=ydel(i) >*/
- y = ydel[i__];
-/*< do477 j=1,mu >*/
- i__3 = *mu;
- for (j = 1; j <= i__3; ++j) {
-/*< xpj=xpl(j) >*/
- xpj = xpl[j + 25];
-/*< z=gb(j) >*/
- z__ = gb[j];
-/*< xi1=i1(i,j) >*/
- xi1 = i1[i__ + j * 31 + 775];
-/*< xi2=i1(i,-j) >*/
- xi2 = i1[i__ + -j * 31 + 775];
-/*< bpjk=bp(j,k)*x+y*(beta0+beta2*xpj*xpk) >*/
- bpjk = bp[j + k * 26 + 650] * x + y * (beta0 + beta2 * xpj *
- xpk);
-/*< bpjmk=bp(j,-k)*x+y*(beta0+beta2*xpj*ypk) >*/
- bpjmk = bp[j + -k * 26 + 650] * x + y * (beta0 + beta2 * xpj *
- ypk);
-/*< ii2=ii2+z*(xi1*bpjk+xi2*bpjmk) >*/
- ii2 += z__ * (xi1 * bpjk + xi2 * bpjmk);
-/*< ii1=ii1+z*(xi1*bpjmk+xi2*bpjk) >*/
- ii1 += z__ * (xi1 * bpjmk + xi2 * bpjk);
-/*< 477 continue >*/
-/* L477: */
- }
-/*< i2(i,k)=ii2 >*/
- i2[i__ + k * 31 + 775] = ii2;
-/*< i2(i,-k)=ii1 >*/
- i2[i__ + -k * 31 + 775] = ii1;
-/*< 455 continue >*/
-/* L455: */
- }
- }
-
-/* vertical integration, upward radiation */
-
-/*< do 48 k=1,mu >*/
- i__2 = *mu;
- for (k = 1; k <= i__2; ++k) {
-/*< i1(nt,k)=0.0 >*/
- i1[*nt + k * 31 + 775] = 0.;
-/*< zi1=i1(nt,k) >*/
- zi1 = i1[*nt + k * 31 + 775];
-/*< yy=rm(k) >*/
- yy = rm[k];
-/*< do 48 i=nt-1,0,-1 >*/
- for (i__ = *nt - 1; i__ >= 0; --i__) {
-/*< jj=i+1 >*/
- jj = i__ + 1;
-/*< f=h(jj)-h(i) >*/
- f = h__[jj] - h__[i__];
-/*< a=(i2(jj,k)-i2(i,k))/f >*/
- a = (i2[jj + k * 31 + 775] - i2[i__ + k * 31 + 775]) / f;
-/*< b=i2(i,k)-a*h(i) >*/
- b = i2[i__ + k * 31 + 775] - a * h__[i__];
-/*< c=exp(-f/yy) >*/
- c__ = exp(-f / yy);
-/*< d=1.e+00-c >*/
- d__ = 1. - c__;
-/*< xx=h(i)-h(jj)*c >*/
- xx = h__[i__] - h__[jj] * c__;
-/*< zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zi1 = c__ * zi1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< i1(i,k)=zi1 >*/
- i1[i__ + k * 31 + 775] = zi1;
-/*< 48 continue >*/
-/* L48: */
- }
- }
-
-/* vertical integration, downward radiation */
-
-/*< do 50 k=-mu,-1 >*/
- for (k = -(*mu); k <= -1; ++k) {
-/*< i1(0,k)=0. >*/
- i1[k * 31 + 775] = 0.;
-/*< zi1=i1(0,k) >*/
- zi1 = i1[k * 31 + 775];
-/*< yy=rm(k) >*/
- yy = rm[k];
-/*< do 50 i=1,nt >*/
- i__2 = *nt;
- for (i__ = 1; i__ <= i__2; ++i__) {
-/*< jj=i-1 >*/
- jj = i__ - 1;
-/*< f=h(i)-h(jj) >*/
- f = h__[i__] - h__[jj];
-/*< c=exp(f/yy) >*/
- c__ = exp(f / yy);
-/*< d=1.e+00-c >*/
- d__ = 1. - c__;
-/*< a=(i2(i,k)-i2(jj,k))/f >*/
- a = (i2[i__ + k * 31 + 775] - i2[jj + k * 31 + 775]) / f;
-/*< b=i2(i,k)-a*h(i) >*/
- b = i2[i__ + k * 31 + 775] - a * h__[i__];
-/*< xx=h(i)-h(jj)*c >*/
- xx = h__[i__] - h__[jj] * c__;
-/*< zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zi1 = c__ * zi1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< i1(i,k)=zi1 >*/
- i1[i__ + k * 31 + 775] = zi1;
-/*< 50 continue >*/
-/* L50: */
- }
- }
-
-/* in is the nieme scattering order */
-
-/*< do 30 k=-mu,mu >*/
- i__2 = *mu;
- for (k = -(*mu); k <= i__2; ++k) {
-/*< if(k) 31,30,33 >*/
- if (k < 0) {
- goto L31;
- } else if (k == 0) {
- goto L30;
- } else {
- goto L33;
- }
-/*< 31 index=nt >*/
-L31:
- index = *nt;
-/*< go to 34 >*/
- goto L34;
-/*< 33 index=0 >*/
-L33:
- index = 0;
-/*< 34 continue >*/
-L34:
-/*< in(k)=i1(index,k) >*/
- in[k + 25] = i1[index + k * 31 + 775];
-/*< 30 continue >*/
-L30:
- ;
- }
-/*< tavion0=i1(iplane,mu) >*/
- tavion0 = i1[iplane + *mu * 31 + 775];
-
-/* convergence test (geometrical serie) */
-
-/*< if(ig.gt.2) then >*/
- if (ig > 2) {
-/*< z=0. >*/
- z__ = 0.;
-/*< a1=tavion2 >*/
- a1 = tavion2;
-/*< d1=tavion1 >*/
- d1 = tavion1;
-/*< g1=tavion0 >*/
- g1 = tavion0;
-/*< if (a1.ge.acu.and.d1.ge.acu.and.tavion.ge.acu) then >*/
- if (a1 >= acu && d1 >= acu && tavion >= acu) {
-/*< y=((g1/d1-d1/a1)/((1.-g1/d1)**2)*(g1/tavion)) >*/
-/* Computing 2nd power */
- d__1 = 1. - g1 / d1;
- y = (g1 / d1 - d1 / a1) / (d__1 * d__1) * (g1 / tavion);
-/*< y=abs(y) >*/
- y = abs(y);
-/*< z=max(y,z) >*/
- z__ = max(y,z__);
-/*< endif >*/
- }
-/*< do 99 l=-mu,mu >*/
- i__2 = *mu;
- for (l = -(*mu); l <= i__2; ++l) {
-/*< if (l.eq.0) goto 99 >*/
- if (l == 0) {
- goto L99;
- }
-/*< a1=inm2(l) >*/
- a1 = inm2[l + 25];
-/*< d1=inm1(l) >*/
- d1 = inm1[l + 25];
-/*< g1=in(l) >*/
- g1 = in[l + 25];
-/*< if(a1.eq.0.) go to 99 >*/
- if (a1 == 0.) {
- goto L99;
- }
-/*< if(d1.eq.0.) go to 99 >*/
- if (d1 == 0.) {
- goto L99;
- }
-/*< if(i3(l).eq.0.) go to 99 >*/
- if (i3[l + 25] == 0.) {
- goto L99;
- }
-/*< y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/i3(l))) >*/
-/* Computing 2nd power */
- d__1 = 1 - g1 / d1;
- y = (g1 / d1 - d1 / a1) / (d__1 * d__1) * (g1 / i3[l + 25]);
-/*< y=abs(y) >*/
- y = abs(y);
-/*< z=max(y,z) >*/
- z__ = max(y,z__);
-/*< 99 continue >*/
-L99:
- ;
- }
-/*< if(z.lt.0.0001) then >*/
- if (z__ < 1e-4) {
-
-/* successful test (geometrical serie) */
-
-/*< do 606 l=-mu,mu >*/
- i__2 = *mu;
- for (l = -(*mu); l <= i__2; ++l) {
-/*< if (l.eq.0) goto 606 >*/
- if (l == 0) {
- goto L606;
- }
-/*< y1=1. >*/
- y1 = 1.;
-/*< d1=inm1(l) >*/
- d1 = inm1[l + 25];
-/*< g1=in(l) >*/
- g1 = in[l + 25];
-/*< if(d1.eq.0.0) go to 606 >*/
- if (d1 == 0.) {
- goto L606;
- }
-/*< y1=1-g1/d1 >*/
- y1 = 1 - g1 / d1;
-/*< g1=g1/y1 >*/
- g1 /= y1;
-/*< i3(l)=i3(l)+g1 >*/
- i3[l + 25] += g1;
-/*< 606 continue >*/
-L606:
- ;
- }
-/*< d1=tavion1 >*/
- d1 = tavion1;
-/*< g1=tavion0 >*/
- g1 = tavion0;
-/*< y1=1. >*/
- y1 = 1.;
-/*< if (d1.ge.acu) then >*/
- if (d1 >= acu) {
-/*< if (abs(g1-d1).ge.acu) then >*/
- if ((d__1 = g1 - d1, abs(d__1)) >= acu) {
-/*< y1=1.-g1/d1 >*/
- y1 = 1. - g1 / d1;
-/*< g1=g1/y1 >*/
- g1 /= y1;
-/*< endif >*/
- }
-/*< tavion=tavion+g1 >*/
- tavion += g1;
-/*< endif >*/
- }
-/*< go to 505 >*/
- goto L505;
-/*< endif >*/
- }
-
-/* inm2 is the (n-2)ieme scattering order */
-
-/*< do 26 k=-mu,mu >*/
- i__2 = *mu;
- for (k = -(*mu); k <= i__2; ++k) {
-/*< inm2(k)=inm1(k) >*/
- inm2[k + 25] = inm1[k + 25];
-/*< 26 continue >*/
-/* L26: */
- }
-/*< tavion2=tavion1 >*/
- tavion2 = tavion1;
-/*< endif >*/
- }
-
-/* inm1 is the (n-1)ieme scattering order */
-
-/*< do 27 k=-mu,mu >*/
- i__2 = *mu;
- for (k = -(*mu); k <= i__2; ++k) {
-/*< inm1(k)=in(k) >*/
- inm1[k + 25] = in[k + 25];
-/*< 27 continue >*/
-/* L27: */
- }
-/*< tavion1=tavion0 >*/
- tavion1 = tavion0;
-
-/* sum of the n-1 orders */
-
-/*< do 610 l=-mu,mu >*/
- i__2 = *mu;
- for (l = -(*mu); l <= i__2; ++l) {
-/*< i3(l)=i3(l)+in(l) >*/
- i3[l + 25] += in[l + 25];
-/*< 610 continue >*/
-/* L610: */
- }
-/*< tavion=tavion+tavion0 >*/
- tavion += tavion0;
-
-/* stop if order n is less than 1% of the sum */
-
-/*< z=0. >*/
- z__ = 0.;
-/*< do 611 l=-mu,mu >*/
- i__2 = *mu;
- for (l = -(*mu); l <= i__2; ++l) {
-/*< if(i3(l).ne.0)then >*/
- if (i3[l + 25] != 0.) {
-/*< y=abs(in(l)/i3(l)) >*/
- y = (d__1 = in[l + 25] / i3[l + 25], abs(d__1));
-/*< z=max(z,y) >*/
- z__ = max(z__,y);
-/*< endif >*/
- }
-/*< 611 continue >*/
-/* L611: */
- }
-/*< if(z.lt.0.00001) go to 505 >*/
- if (z__ < 1e-5) {
- goto L505;
- }
-
-/* stop if order n is greater than 20 in any case */
-
-/*< if(ig-igmax) 503,503,505 >*/
- if (ig - multorder_1.igmax <= 0) {
- goto L503;
- } else {
- goto L505;
- }
-/*< 505 continue >*/
-L505:
-
-
-/*< xf(1)=xf(1)+i3(mu) >*/
- xf[1] += i3[*mu + 25];
-/*< xf(-1)=tavion >*/
- xf[-1] = tavion;
-/*< do k=1,mu >*/
- i__2 = *mu;
- for (k = 1; k <= i__2; ++k) {
-/*< xf(0)=xf(0)+rm(k)*gb(k)*i3(-k) >*/
- xf[0] += rm[k] * gb[k] * i3[-k + 25];
-/*< enddo >*/
- }
-/*< nt=snt >*/
- *nt = snt;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* iso_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ISO.f b/Modules/ThirdParty/6S/src/6SV1.0B/ISO.f
deleted file mode 100644
index 6303572..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ISO.f
+++ /dev/null
@@ -1,454 +0,0 @@
- subroutine iso(iaer_prof,tamoy,trmoy,pizmoy,
- s tamoyp,trmoyp,
- s palt,nt,mu,rm,gb,
- s xf)
-
- include "paramdef.inc"
-c THOMAS
-c double precision psl(-1:nqmax_p,-mu:mu)
- double precision psl(-1:1000,-25:25)
-c dimension for gauss integration
- integer mu
- real rm(-mu:mu),gb(-mu:mu)
-c dimension for os computation
- real xf(-1:1)
-c array for sos computation
-c THOMAS
-c double precision xpl(-mu:mu),bp(0:mu,-mu:mu),ch(0:nt)
-c double precision xdel(0:nt),ydel(0:nt),h(0:nt),altc(0:nt)
-c double precision i1(0:nt,-mu:mu),i2(0:nt,-mu:mu),i3(-mu:mu)
-c double precision in(-mu:mu),inm1(-mu:mu),inm2(-mu:mu)
-
- double precision xpl(-25:25),bp(0:25,-25:25),ch(0:30)
- double precision xdel(0:30),ydel(0:30),h(0:30),altc(0:30)
- double precision i1(0:30,-25:25),i2(0:30,-25:25),i3(-25:25)
- double precision in(-25:25),inm1(-25:25),inm2(-25:25)
-
- double precision acu,acu2,ta,piz
- double precision tr,trp,tap,hr,ha,zx,yy,dd,ppp2,ppp1,ca
- double precision cr,ratio,taup,th,xt1,xt2,aaaa,ron,beta0,beta2
- double precision tavion0,tavion1,tavion2,tavion,zi1,xpk,ypk,x,y
- double precision z,xi1,xi2,bpjk,bpjmk,f,a,b,c,d,xx,a1,d1,g1
- double precision y1,xpj,xxx,ii1,ii2
- Real tamoy,trmoy,pizmoy
- Real tamoyp,trmoyp,palt
- Real delta,sigma
- integer snt,nt,iplane,ntp,j,it,itp,i,ig,k,index,iwr,m
- integer jj,l
- logical ier
- integer igmax,iaer_prof
-
- common/sixs_del/delta,sigma
- common/sixs_ier/iwr,ier
- common /multorder/ igmax
-
-
- snt=nt
- iplane=0
- acu=1.e-20
- acu2=1.e-3
- ta=tamoy
- piz=pizmoy
- tr=trmoy
- do 615 m=-1,1
- 615 xf(m)=0.
-c
-c molecular ratio within the layer
-c computations are performed assuming a scale of 8km for
-c molecules and 2km for aerosols
-c
-c the optical thickness above plane are recomputed to give o.t above pla
- trp=trmoy-trmoyp
- tap=tamoy-tamoyp
-c print *, 'tamoy,trmoy,pizmoy,tap,trp,palt,nt'
-c print *,tamoy,trmoy,pizmoy,tap,trp,palt,nt
- acu=1.e-20
-c if plane observations recompute scale height for aerosol knowing:
-c the aerosol optical depth as measure from the plane = tamoyp
-c the rayleigh scale height = = hr (8km)
-c the rayleigh optical depth at plane level = trmoyp
-c the altitude of the plane = palt
-c the rayleigh optical depth for total atmos = trmoy
-c the aerosol optical depth for total atmos = tamoy
-c if not plane observations then ha is equal to 2.0km
-c ntp local variable: if ntp=nt no plane observation selected
-c ntp=nt-1 plane observation selected
-
-
-
- hr=8.0
-c it's a mixing rayleigh+aerosol
- if(palt.le.900..and.palt.gt.0.0)then
- if (tap.gt.1.e-03) then
- ha=-palt/log(tap/ta)
- else
- ha=2.
- endif
- ntp=nt-1
- else
- ha=2.0
- ntp=nt
- endif
-c
- ta=tamoy
- tr=trmoy
- piz=pizmoy
-c
-c compute mixing rayleigh, aerosol
-c case 1: pure rayleigh
-c case 2: pure aerosol
-c case 3: mixing rayleigh-aerosol
-c
- if((ta.le.acu2).and.(tr.gt.ta)) then
- do j=0,ntp
- h(j)=j*tr/ntp
- ydel(j)=1.0
- xdel(j)=0.0
- enddo
- endif
- if((tr.le.acu2).and.(ta.gt.tr)) then
- do j=0,ntp
- h(j)=j*ta/ntp
- ydel(j)=0.0
- xdel(j)=piz
- enddo
- endif
-c
- if(tr.gt.acu2.and.ta.gt.acu2.and.iaer_prof.eq.0)then
- ydel(0)=1.0
- xdel(0)=0.0
- h(0)=0.
- altc(0)=300.
- zx=300.
- iplane=0
- do 14 it=0,ntp
- if (it.eq.0) then
- yy=0.
- dd=0.
- goto 111
- endif
- yy=h(it-1)
- dd=ydel(it-1)
- 111 ppp2=300.0
- ppp1=0.0
- itp=it
- call discre(ta,ha,tr,hr,itp,ntp,yy,dd,ppp2,ppp1,
- s zx)
- if(ier)return
- xxx=-zx/ha
- if (xxx.lt.-18) then
- ca=0.
- else
- ca=ta*dexp(xxx)
- endif
- xxx=-zx/hr
- cr=tr*dexp(xxx)
- h(it)=cr+ca
- altc(it)=zx
-c print *,it,cr,ca,h(it),zx
- cr=cr/hr
- ca=ca/ha
- ratio=cr/(cr+ca)
- xdel(it)=(1.e+00-ratio)*piz
- ydel(it)=ratio
- 14 continue
- endif
-
- if(tr.gt.acu2.and.ta.gt.acu2.and.iaer_prof.eq.1)then
- call aero_prof(ta,piz,tr,hr,ntp,xmus,
- s h,ch,ydel,xdel,altc)
- endif
-
-c update plane layer if necessary
- if (ntp.eq.(nt-1)) then
-c compute position of the plane layer
- taup=tap+trp
- iplane=-1
- do i=0,ntp
- if (taup.ge.h(i)) iplane=i
- enddo
-c update the layer from the end to the position to update if necessary
- th=0.005
- xt1=abs(h(iplane)-taup)
- xt2=abs(h(iplane+1)-taup)
- if ((xt1.gt.th).and.(xt2.gt.th)) then
- do i=nt,iplane+1,-1
- xdel(i)=xdel(i-1)
- ydel(i)=ydel(i-1)
- h(i)=h(i-1)
- altc(i)=altc(i-1)
- enddo
- else
- nt=ntp
- if (xt2.lt.xt1) iplane=iplane+1
- endif
- h(iplane)=taup
- if ( tr.gt.acu2.and.ta.gt.acu2) then
- ca=ta*exp(-palt/ha)
- cr=tr*exp(-palt/hr)
- cr=cr/hr
- ca=ca/ha
- ratio=cr/(cr+ca)
- xdel(iplane)=(1.e+00-ratio)*piz
- ydel(iplane)=ratio
- altc(iplane)=palt
- endif
- if ( tr.gt.acu2.and.ta.le.acu2) then
- ydel(iplane)=1.
- xdel(iplane)=0.
- altc(iplane)=palt
- endif
- if ( tr.le.acu2.and.ta.gt.acu2) then
- ydel(iplane)=0.
- xdel(iplane)=1.*piz
- altc(iplane)=palt
- endif
- endif
-c
-c print *,ha,hr,palt,tamoy,trmoy,tap,trp
-c do i=0,nt
-c print *,i,h(i),xdel(i),ydel(i),altc(i)
-c enddo
-c
- aaaa=delta/(2-delta)
- ron=(1-aaaa)/(1+2*aaaa)
-c
-c rayleigh phase function
-c
- beta0=1.
- beta2=0.5*ron
-c
-c primary scattering
-c
- ig=1
- tavion0=0.
- tavion1=0.
- tavion2=0.
- tavion=0.
- do 16 j=-mu,mu
- i3(j)=0.
- 16 continue
-c
-c kernel computations
-c
- call kernel(0,mu,rm,xpl,psl,bp)
- do 100 j=-mu,mu
- do 101 k=0,nt
- i2(k,j)=0.0000
- 101 continue
- 100 continue
-c
-c vertical integration, primary upward radiation
-c
-
- do 108 k=1,mu
- i1(nt,k)=1.0
- zi1=i1(nt,k)
- yy=rm(k)
- do 108 i=nt-1,0,-1
- i1(i,k)=exp(-(ta+tr-h(i))/yy)
- 108 continue
-c
-c vertical integration, primary downward radiation
-c
- do 109 k=-mu,-1
- do 109 i=0,nt
- i1(i,k)=0.00
- 109 continue
-c
-c inm2 is inialized with scattering computed at n-2
-c i3 is inialized with primary scattering
-c
- do 20 k=-mu,mu
- if(k) 21,20,23
- 21 index=nt
- go to 25
- 23 index=0
- 25 continue
- inm1(k)=i1(index,k)
- inm2(k)=i1(index,k)
- i3(k)=i1(index,k)
- 20 continue
- tavion=i1(iplane,mu)
- tavion2=i1(iplane,mu)
-c
-c loop on successive order
-c
- 503 ig=ig+1
-c write(6,*) 'ig ',ig
-c
-c successive orders
-c
-c multiple scattering source function at every level within the laye
-c
-c
- do455 k=1,mu
- xpk=xpl(k)
- ypk=xpl(-k)
- do 455 i=0,nt
- ii1=0.
- ii2=0.
- x=xdel(i)
- y=ydel(i)
- do477 j=1,mu
- xpj=xpl(j)
- z=gb(j)
- xi1=i1(i,j)
- xi2=i1(i,-j)
- bpjk=bp(j,k)*x+y*(beta0+beta2*xpj*xpk)
- bpjmk=bp(j,-k)*x+y*(beta0+beta2*xpj*ypk)
- ii2=ii2+z*(xi1*bpjk+xi2*bpjmk)
- ii1=ii1+z*(xi1*bpjmk+xi2*bpjk)
- 477 continue
- i2(i,k)=ii2
- i2(i,-k)=ii1
- 455 continue
-c
-c vertical integration, upward radiation
-c
- do 48 k=1,mu
- i1(nt,k)=0.0
- zi1=i1(nt,k)
- yy=rm(k)
- do 48 i=nt-1,0,-1
- jj=i+1
- f=h(jj)-h(i)
- a=(i2(jj,k)-i2(i,k))/f
- b=i2(i,k)-a*h(i)
- c=exp(-f/yy)
- d=1.e+00-c
- xx=h(i)-h(jj)*c
- zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00
- i1(i,k)=zi1
- 48 continue
-c
-c vertical integration, downward radiation
-c
- do 50 k=-mu,-1
- i1(0,k)=0.
- zi1=i1(0,k)
- yy=rm(k)
- do 50 i=1,nt
- jj=i-1
- f=h(i)-h(jj)
- c=exp(f/yy)
- d=1.e+00-c
- a=(i2(i,k)-i2(jj,k))/f
- b=i2(i,k)-a*h(i)
- xx=h(i)-h(jj)*c
- zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00
- i1(i,k)=zi1
- 50 continue
-c
-c in is the nieme scattering order
-c
- do 30 k=-mu,mu
- if(k) 31,30,33
- 31 index=nt
- go to 34
- 33 index=0
- 34 continue
- in(k)=i1(index,k)
- 30 continue
- tavion0=i1(iplane,mu)
-c
-c convergence test (geometrical serie)
-c
- if(ig.gt.2) then
- z=0.
- a1=tavion2
- d1=tavion1
- g1=tavion0
- if (a1.ge.acu.and.d1.ge.acu.and.tavion.ge.acu) then
- y=((g1/d1-d1/a1)/((1.-g1/d1)**2)*(g1/tavion))
- y=abs(y)
- z=max(y,z)
- endif
- do 99 l=-mu,mu
- if (l.eq.0) goto 99
- a1=inm2(l)
- d1=inm1(l)
- g1=in(l)
- if(a1.eq.0.) go to 99
- if(d1.eq.0.) go to 99
- if(i3(l).eq.0.) go to 99
- y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/i3(l)))
- y=abs(y)
- z=max(y,z)
- 99 continue
- if(z.lt.0.0001) then
-c
-c successful test (geometrical serie)
-c
- do 606 l=-mu,mu
- if (l.eq.0) goto 606
- y1=1.
- d1=inm1(l)
- g1=in(l)
- if(d1.eq.0.0) go to 606
- y1=1-g1/d1
- g1=g1/y1
- i3(l)=i3(l)+g1
- 606 continue
- d1=tavion1
- g1=tavion0
- y1=1.
- if (d1.ge.acu) then
- if (abs(g1-d1).ge.acu) then
- y1=1.-g1/d1
- g1=g1/y1
- endif
- tavion=tavion+g1
- endif
- go to 505
- endif
-c
-c inm2 is the (n-2)ieme scattering order
-c
- do 26 k=-mu,mu
- inm2(k)=inm1(k)
- 26 continue
- tavion2=tavion1
- endif
-c
-c inm1 is the (n-1)ieme scattering order
-c
- do 27 k=-mu,mu
- inm1(k)=in(k)
- 27 continue
- tavion1=tavion0
-c
-c sum of the n-1 orders
-c
- do 610 l=-mu,mu
- i3(l)=i3(l)+in(l)
- 610 continue
- tavion=tavion+tavion0
-c
-c stop if order n is less than 1% of the sum
-c
- z=0.
- do 611 l=-mu,mu
- if(i3(l).ne.0)then
- y=abs(in(l)/i3(l))
- z=max(z,y)
- endif
- 611 continue
- if(z.lt.0.00001) go to 505
-c
-c stop if order n is greater than 20 in any case
-c
- if(ig-igmax) 503,503,505
- 505 continue
-c
-c
- xf(1)=xf(1)+i3(mu)
- xf(-1)=tavion
- do k=1,mu
- xf(0)=xf(0)+rm(k)*gb(k)*i3(-k)
- enddo
- nt=snt
- return
-
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ISO.h b/Modules/ThirdParty/6S/src/6SV1.0B/ISO.h
deleted file mode 100644
index 2b020a6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ISO.h
+++ /dev/null
@@ -1,14 +0,0 @@
-extern int otb_6s_iso_(
- otb_6s_integer *iaer_prof__,
- otb_6s_doublereal *tamoy,
- otb_6s_doublereal *trmoy,
- otb_6s_doublereal *pizmoy,
- otb_6s_doublereal *tamoyp,
- otb_6s_doublereal *trmoyp,
- otb_6s_doublereal *palt,
- otb_6s_integer *nt,
- otb_6s_integer *mu,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *gb,
- otb_6s_doublereal *xf
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.P b/Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.P
deleted file mode 100644
index 3abbda2..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int kernel_(integer *is, integer *mu, doublereal *rm, doublereal *xpl, doublereal *psl, doublereal *bp);
-/* comlen num_quad__ 4 */
-/* comlen sixs_polar__ 56032 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.c b/Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.c
deleted file mode 100644
index be5fbd8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.c
+++ /dev/null
@@ -1,299 +0,0 @@
-/* KERNEL.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal pha[1000], qha[1000], uha[1000], alphal[1001], betal[1001],
- gammal[1001], zetal[1001];
-} sixs_polar__;
-
-#define sixs_polar__1 sixs_polar__
-
-/*< subroutine kernel(is,mu,rm,xpl,psl,bp) >*/
-/* Subroutine */ int kernel_(integer *is, integer *mu, doublereal *rm,
- doublereal *xpl, doublereal *psl, doublereal *bp)
-{
- /* System generated locals */
- integer rm_offset, xpl_offset, bp_dim1, bp_offset, psl_offset, i__1, i__2,
- i__3;
- doublereal d__1;
-
- /* Builtin functions */
- double sqrt(doublereal), pow_dd(doublereal *, doublereal *);
-
- /* Local variables */
- doublereal a, b, c__;
- integer i__, j, k, l;
- doublereal x;
- integer ig, ij;
- doublereal bt;
- integer ip, lm, lp;
- doublereal xx;
- integer ip1;
- doublereal xdb, sbp, rac3;
-
-/*< integer mu >*/
-/*< real rm(-mu:mu) >*/
-/*< double precision xpl(-mu:mu),bp(0:mu,-mu:mu) >*/
-/*< integer is,ip1,j,i,k,ip,ig,l,lp,lm,ij >*/
-/*< double precision xdb,a,b,c,xx,rac3,x,bt,sbp >*/
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real pha,qha,uha,alphal,betal,gammal,zetal >*/
-/*< >*/
-/*< double precision psl(-1:nqmax_p,-mu:mu) >*/
-/* - to vary the number of quadratures */
-/*< ip1=nquad-3 >*/
- /* Parameter adjustments */
- bp_dim1 = *mu + 1;
- bp_offset = bp_dim1 * (-(*mu));
- bp -= bp_offset;
- psl_offset = -(*mu) * 1002 - 1;
- psl -= psl_offset;
- xpl_offset = -(*mu);
- xpl -= xpl_offset;
- rm_offset = -(*mu);
- rm -= rm_offset;
-
- /* Function Body */
- ip1 = num_quad__1.nquad - 3;
-/*< rac3=dsqrt(3.D+00) >*/
- rac3 = sqrt(3.);
-/*< if(is.ne.0)go to 700 >*/
- if (*is != 0) {
- goto L700;
- }
-/*< do 25 j=0,mu >*/
- i__1 = *mu;
- for (j = 0; j <= i__1; ++j) {
-/*< c=dble(rm(j)) >*/
- c__ = rm[j];
-/*< psl(0,-j)=1. >*/
- psl[-j * 1002] = 1.;
-/*< psl(0,j)=1. >*/
- psl[j * 1002] = 1.;
-/*< psl(1,j)=c >*/
- psl[j * 1002 + 1] = c__;
-/*< psl(1,-j)=-c >*/
- psl[-j * 1002 + 1] = -c__;
-/*< xdb=(3.*c*c-1.)*0.5 >*/
- xdb = (c__ * 3. * c__ - 1.) * .5;
-/*< if (abs(xdb).lt.1.E-30) xdb=0.0 >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< psl(2,-j)=xdb >*/
- psl[-j * 1002 + 2] = xdb;
-/*< psl(2,j)=xdb >*/
- psl[j * 1002 + 2] = xdb;
-/*< 25 continue >*/
-/* L25: */
- }
-/*< psl(1,0)=rm(0) >*/
- psl[1] = rm[0];
-/*< goto 501 >*/
- goto L501;
-
-/*< 700 if(is.ne.1)go to 701 >*/
-L700:
- if (*is != 1) {
- goto L701;
- }
-/*< do 26 j=0,mu >*/
- i__1 = *mu;
- for (j = 0; j <= i__1; ++j) {
-/*< c=dble(rm(j)) >*/
- c__ = rm[j];
-/*< x=1.-c*c >*/
- x = 1. - c__ * c__;
-/*< psl(0,j)=0. >*/
- psl[j * 1002] = 0.;
-/*< psl(0,-j)=0. >*/
- psl[-j * 1002] = 0.;
-/*< psl(1,-j)=sqrt(x*0.5) >*/
- psl[-j * 1002 + 1] = sqrt(x * .5);
-/*< psl(1,j)=sqrt(x*0.5) >*/
- psl[j * 1002 + 1] = sqrt(x * .5);
-/*< psl(2,j)=c*psl(1,j)*rac3 >*/
- psl[j * 1002 + 2] = c__ * psl[j * 1002 + 1] * rac3;
-/*< psl(2,-j)=-psl(2,j) >*/
- psl[-j * 1002 + 2] = -psl[j * 1002 + 2];
-/*< 26 continue >*/
-/* L26: */
- }
-/*< psl(2,0)=-psl(2,0) >*/
- psl[2] = -psl[2];
-/*< goto 501 >*/
- goto L501;
-
-/*< 701 a=1 >*/
-L701:
- a = 1.;
-/*< do 27 i=1,is >*/
- i__1 = *is;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< x=i >*/
- x = (doublereal) i__;
-/*< a=a*sqrt((i+is)/x)*0.5 >*/
- a = a * sqrt((i__ + *is) / x) * .5;
-/*< 27 continue >*/
-/* L27: */
- }
-/*< b=a*sqrt(is/(is+1.))*sqrt((is-1.)/(is+2.)) >*/
- b = a * sqrt(*is / (*is + 1.)) * sqrt((*is - 1.) / (*is + 2.));
-/*< do 28 j=0,mu >*/
- i__1 = *mu;
- for (j = 0; j <= i__1; ++j) {
-/*< c=dble(rm(j)) >*/
- c__ = rm[j];
-/*< xx=1.-c*c >*/
- xx = 1. - c__ * c__;
-/*< psl(is-1,j)=0. >*/
- psl[*is - 1 + j * 1002] = 0.;
-/*< xdb=a*xx**(is*0.5) >*/
- d__1 = *is * .5;
- xdb = a * pow_dd(&xx, &d__1);
-/*< if (abs(xdb).lt.1.E-30) xdb=0.0 >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< psl(is,-j)=xdb >*/
- psl[*is + -j * 1002] = xdb;
-/*< psl(is,j)=xdb >*/
- psl[*is + j * 1002] = xdb;
-/*< 28 continue >*/
-/* L28: */
- }
-/*< 501 k=2 >*/
-L501:
- k = 2;
-/*< ip=ip1 >*/
- ip = ip1;
-/*< if(is.gt.2)k=is >*/
- if (*is > 2) {
- k = *is;
- }
-/*< if(k.eq.ip)goto 502 >*/
- if (k == ip) {
- goto L502;
- }
-/*< ig=-1 >*/
- ig = -1;
-/*< if(is.eq.1)ig=1 >*/
- if (*is == 1) {
- ig = 1;
- }
-/*< do 30 l=k,ip-1 >*/
- i__1 = ip - 1;
- for (l = k; l <= i__1; ++l) {
-/*< lp=l+1 >*/
- lp = l + 1;
-/*< lm=l-1 >*/
- lm = l - 1;
-/*< a=(2*l+1.)/sqrt((l+is+1.)*(l-is+1.)) >*/
- a = ((l << 1) + 1.) / sqrt((l + *is + 1.) * (l - *is + 1.));
-/*< b=sqrt(float((l+is)*(l-is)))/(2.*l+1.) >*/
- b = sqrt((doublereal) ((l + *is) * (l - *is))) / (l * 2. + 1.);
-/*< do 31 j=0,mu >*/
- i__2 = *mu;
- for (j = 0; j <= i__2; ++j) {
-/*< c=dble(rm(j)) >*/
- c__ = rm[j];
-/*< xdb=a*(c*psl(l,j)-b*psl(lm,j)) >*/
- xdb = a * (c__ * psl[l + j * 1002] - b * psl[lm + j * 1002]);
-/*< if (abs(xdb).lt.1.E-30) xdb=0. >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< psl(lp,j)=xdb >*/
- psl[lp + j * 1002] = xdb;
-/*< if(j.eq.0) go to 31 >*/
- if (j == 0) {
- goto L31;
- }
-/*< psl(lp,-j)=ig*psl(lp,j) >*/
- psl[lp + -j * 1002] = ig * psl[lp + j * 1002];
-/*< 31 continue >*/
-L31:
- ;
- }
-/*< ig=-ig >*/
- ig = -ig;
-/*< 30 continue >*/
-/* L30: */
- }
-/*< 502 continue >*/
-L502:
-/*< do 1005 j=-mu,mu >*/
- i__1 = *mu;
- for (j = -(*mu); j <= i__1; ++j) {
-/*< xpl(j)=psl(2,j) >*/
- xpl[j] = psl[j * 1002 + 2];
-/*< 1005 continue >*/
-/* L1005: */
- }
-/*< ij=ip1 >*/
- ij = ip1;
-/*< do 32 j=0,mu >*/
- i__1 = *mu;
- for (j = 0; j <= i__1; ++j) {
-/*< do 32 k=-mu,mu >*/
- i__2 = *mu;
- for (k = -(*mu); k <= i__2; ++k) {
-/*< sbp=0. >*/
- sbp = 0.;
-/*< if(is.gt.ij) goto 1 >*/
- if (*is > ij) {
- goto L1;
- }
-/*< do 33 l=is,ij >*/
- i__3 = ij;
- for (l = *is; l <= i__3; ++l) {
-/*< bt=betal(l) >*/
- bt = sixs_polar__1.betal[l];
-/*< sbp=sbp+dble(psl(l,j))*psl(l,k)*bt >*/
- sbp += psl[l + j * 1002] * psl[l + k * 1002] * bt;
-/*< 33 continue >*/
-/* L33: */
- }
-/*< 1 continue >*/
-L1:
-/*< if (abs(sbp).lt.1.E-30) sbp=0. >*/
- if (abs(sbp) < 1e-30) {
- sbp = 0.;
- }
-/*< bp(j,k)=sbp >*/
- bp[j + k * bp_dim1] = sbp;
-/*< 32 continue >*/
-/* L32: */
- }
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* kernel_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.f b/Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.f
deleted file mode 100644
index ee94ae0..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.f
+++ /dev/null
@@ -1,104 +0,0 @@
- subroutine kernel(is,mu,rm,xpl,psl,bp)
- integer mu
- real rm(-mu:mu)
- double precision xpl(-mu:mu),bp(0:mu,-mu:mu)
- integer is,ip1,j,i,k,ip,ig,l,lp,lm,ij
- double precision xdb,a,b,c,xx,rac3,x,bt,sbp
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real pha,qha,uha,alphal,betal,gammal,zetal
- common /sixs_polar/ pha(nqmax_p),qha(nqmax_p),uha(nqmax_p),
- &alphal(0:nqmax_p),betal(0:nqmax_p),gammal(0:nqmax_p),
- &zetal(0:nqmax_p)
- double precision psl(-1:nqmax_p,-mu:mu)
-c - to vary the number of quadratures
-
- ip1=nquad-3
- rac3=dsqrt(3.D+00)
- if(is.ne.0)go to 700
- do 25 j=0,mu
- c=dble(rm(j))
- psl(0,-j)=1.
- psl(0,j)=1.
- psl(1,j)=c
- psl(1,-j)=-c
- xdb=(3.*c*c-1.)*0.5
- if (abs(xdb).lt.1.E-30) xdb=0.0
- psl(2,-j)=xdb
- psl(2,j)=xdb
- 25 continue
- psl(1,0)=rm(0)
- goto 501
-c
- 700 if(is.ne.1)go to 701
- do 26 j=0,mu
- c=dble(rm(j))
- x=1.-c*c
- psl(0,j)=0.
- psl(0,-j)=0.
- psl(1,-j)=sqrt(x*0.5)
- psl(1,j)=sqrt(x*0.5)
- psl(2,j)=c*psl(1,j)*rac3
- psl(2,-j)=-psl(2,j)
- 26 continue
- psl(2,0)=-psl(2,0)
- goto 501
-c
- 701 a=1
- do 27 i=1,is
- x=i
- a=a*sqrt((i+is)/x)*0.5
- 27 continue
- b=a*sqrt(is/(is+1.))*sqrt((is-1.)/(is+2.))
- do 28 j=0,mu
- c=dble(rm(j))
- xx=1.-c*c
- psl(is-1,j)=0.
- xdb=a*xx**(is*0.5)
- if (abs(xdb).lt.1.E-30) xdb=0.0
- psl(is,-j)=xdb
- psl(is,j)=xdb
- 28 continue
- 501 k=2
- ip=ip1
- if(is.gt.2)k=is
- if(k.eq.ip)goto 502
- ig=-1
- if(is.eq.1)ig=1
- do 30 l=k,ip-1
- lp=l+1
- lm=l-1
- a=(2*l+1.)/sqrt((l+is+1.)*(l-is+1.))
- b=sqrt(float((l+is)*(l-is)))/(2.*l+1.)
- do 31 j=0,mu
- c=dble(rm(j))
- xdb=a*(c*psl(l,j)-b*psl(lm,j))
- if (abs(xdb).lt.1.E-30) xdb=0.
- psl(lp,j)=xdb
- if(j.eq.0) go to 31
- psl(lp,-j)=ig*psl(lp,j)
- 31 continue
- ig=-ig
- 30 continue
- 502 continue
- do 1005 j=-mu,mu
- xpl(j)=psl(2,j)
- 1005 continue
- ij=ip1
- do 32 j=0,mu
- do 32 k=-mu,mu
- sbp=0.
- if(is.gt.ij) goto 1
- do 33 l=is,ij
- bt=betal(l)
- sbp=sbp+dble(psl(l,j))*psl(l,k)*bt
- 33 continue
- 1 continue
- if (abs(sbp).lt.1.E-30) sbp=0.
- bp(j,k)=sbp
- 32 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.h b/Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.h
deleted file mode 100644
index b03595e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/KERNEL.h
+++ /dev/null
@@ -1,8 +0,0 @@
-extern int otb_6s_kernel_(
- otb_6s_integer *is,
- otb_6s_integer *mu,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *xpl,
- otb_6s_doublereal *psl,
- otb_6s_doublereal *bp
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.P b/Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.P
deleted file mode 100644
index 3c9a222..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int kernelpol_(integer *is, integer *mu, doublereal *rm, doublereal *xpl, doublereal *xrl, doublereal *xtl, doublereal *bp, doublereal *gr, doublereal *gt, doublereal *arr, doublereal *art, doublereal *att);
-/* comlen num_quad__ 4 */
-/* comlen sixs_polar__ 56032 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.c b/Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.c
deleted file mode 100644
index a6ada4d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.c
+++ /dev/null
@@ -1,505 +0,0 @@
-/* KERNELPOL.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal pha[1000], qha[1000], uha[1000], alphal[1001], betal[1001],
- gammal[1001], zetal[1001];
-} sixs_polar__;
-
-#define sixs_polar__1 sixs_polar__
-
-/*< subroutine kernelpol(is,mu,rm,xpl,xrl,xtl,bp,gr,gt,arr,art,att) >*/
-/* Subroutine */ int kernelpol_(integer *is, integer *mu, doublereal *rm,
- doublereal *xpl, doublereal *xrl, doublereal *xtl, doublereal *bp,
- doublereal *gr, doublereal *gt, doublereal *arr, doublereal *art,
- doublereal *att)
-{
- /* System generated locals */
- integer rm_offset, xpl_offset, xrl_offset, xtl_offset, bp_dim1, bp_offset,
- gr_dim1, gr_offset, gt_dim1, gt_offset, arr_dim1, arr_offset,
- art_dim1, art_offset, att_dim1, att_offset, i__1, i__2, i__3;
- doublereal d__1;
-
- /* Builtin functions */
- double sqrt(doublereal), pow_dd(doublereal *, doublereal *);
-
- /* Local variables */
- doublereal a, b, c__, d__, e, f;
- integer i__, j, k, l;
- doublereal x, r1, r2, r3;
- integer ig, ij, ip, lp, lm;
- doublereal xx;
- integer ip1;
- doublereal xdb, sbp, sgr, sgt, psl[51102] /* was [1002][51] */, rsl[
- 51102] /* was [1002][51] */, tsl[51102] /* was [1002][
- 51] */, rac3, sarr, sart, satt;
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real pha,qha,uha,alphal,betal,gammal,zetal >*/
-/*< >*/
-/* THOMAS */
-/* double precision psl(-1:nqmax_p,-mu:mu),rsl(-1:nqmax_p,-mu:mu) */
-/* double precision tsl(-1:nqmax_p,-mu:mu) */
-/*< double precision psl(-1:nqmax_p,-25:25),rsl(-1:nqmax_p,-25:25) >*/
-/*< double precision tsl(-1:nqmax_p,-25:25) >*/
-/* - to vary the number of quadratures */
-/*< integer mu >*/
-/*< real rm(-mu:mu) >*/
-/*< double precision xpl(-mu:mu),xrl(-mu:mu),xtl(-mu:mu) >*/
-/*< double precision bp(0:mu,-mu:mu),gr(0:mu,-mu:mu),gt(0:mu,-mu:mu) >*/
-/*< double precision arr(0:mu,-mu:mu),art(0:mu,-mu:mu) >*/
-/*< double precision att(0:mu,-mu:mu) >*/
-/*< integer is,ip1,j,i,k,ip,ig,l,lp,lm,ij >*/
-/*< double precision xdb,a,b,c,d,e,f,xx,rac3,x >*/
-/*< double precision sbp,satt,sarr,sgr,sgt,sart >*/
-/*< double precision r1,r2,r3 >*/
-/*< ip1=nquad-3 >*/
- /* Parameter adjustments */
- att_dim1 = *mu + 1;
- att_offset = att_dim1 * (-(*mu));
- att -= att_offset;
- art_dim1 = *mu + 1;
- art_offset = art_dim1 * (-(*mu));
- art -= art_offset;
- arr_dim1 = *mu + 1;
- arr_offset = arr_dim1 * (-(*mu));
- arr -= arr_offset;
- gt_dim1 = *mu + 1;
- gt_offset = gt_dim1 * (-(*mu));
- gt -= gt_offset;
- gr_dim1 = *mu + 1;
- gr_offset = gr_dim1 * (-(*mu));
- gr -= gr_offset;
- bp_dim1 = *mu + 1;
- bp_offset = bp_dim1 * (-(*mu));
- bp -= bp_offset;
- xtl_offset = -(*mu);
- xtl -= xtl_offset;
- xrl_offset = -(*mu);
- xrl -= xrl_offset;
- xpl_offset = -(*mu);
- xpl -= xpl_offset;
- rm_offset = -(*mu);
- rm -= rm_offset;
-
- /* Function Body */
- ip1 = num_quad__1.nquad - 3;
-/*< rac3=dsqrt(3.D+00) >*/
- rac3 = sqrt(3.);
-/*< if(is.ne.0)go to 700 >*/
- if (*is != 0) {
- goto L700;
- }
-/*< do 25 j=0,mu >*/
- i__1 = *mu;
- for (j = 0; j <= i__1; ++j) {
-/*< c=dble(rm(j)) >*/
- c__ = rm[j];
-/*< psl(0,j)=1.D+00 >*/
- psl[j * 1002 + 25051] = 1.;
-/*< psl(0,-j)=1.D+00 >*/
- psl[-j * 1002 + 25051] = 1.;
-/*< psl(1,j)=c >*/
- psl[j * 1002 + 25052] = c__;
-/*< psl(1,-j)=-c >*/
- psl[-j * 1002 + 25052] = -c__;
-/*< xdb=(3.D+00*c*c-1.D+00)*0.5D+00 >*/
- xdb = (c__ * 3. * c__ - 1.) * .5;
-/*< if (abs(xdb).lt.1.e-30) xdb =0.0D+00 >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< psl(2,j)=xdb >*/
- psl[j * 1002 + 25053] = xdb;
-/*< psl(2,-j)=xdb >*/
- psl[-j * 1002 + 25053] = xdb;
-/*< rsl(1,j)=0.0D+00 >*/
- rsl[j * 1002 + 25052] = 0.;
-/*< rsl(1,-j)=0.0D+00 >*/
- rsl[-j * 1002 + 25052] = 0.;
-/*< xdb=3.D+00*(1.D+00-c*c)/2.D+00/sqrt(6.D+00) >*/
- xdb = (1. - c__ * c__) * 3. / 2. / sqrt(6.);
-/*< if (abs(xdb).lt.1.e-30) xdb =0.0D+00 >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< rsl(2,j)=xdb >*/
- rsl[j * 1002 + 25053] = xdb;
-/*< rsl(2,-j)=xdb >*/
- rsl[-j * 1002 + 25053] = xdb;
-/*< tsl(1,j)=0.0D+00 >*/
- tsl[j * 1002 + 25052] = 0.;
-/*< tsl(1,-j)=0.0D+00 >*/
- tsl[-j * 1002 + 25052] = 0.;
-/*< tsl(2,j)=0.0D+00 >*/
- tsl[j * 1002 + 25053] = 0.;
-/*< tsl(2,-j)=0.0D+00 >*/
- tsl[-j * 1002 + 25053] = 0.;
-/*< 25 continue >*/
-/* L25: */
- }
-/*< psl(1,0)=rm(0) >*/
- psl[25052] = rm[0];
-/*< rsl(1,0)=0.0D+00 >*/
- rsl[25052] = 0.;
-/*< goto 501 >*/
- goto L501;
-
-/*< 700 if(is.ne.1)go to 701 >*/
-L700:
- if (*is != 1) {
- goto L701;
- }
-/*< do 26 j=0,mu >*/
- i__1 = *mu;
- for (j = 0; j <= i__1; ++j) {
-/*< c=dble(rm(j)) >*/
- c__ = rm[j];
-/*< x=1.d+00-c*c >*/
- x = 1. - c__ * c__;
-/*< psl(0,j)=0.D+00 >*/
- psl[j * 1002 + 25051] = 0.;
-/*< psl(0,-j)=0.D+00 >*/
- psl[-j * 1002 + 25051] = 0.;
-/*< psl(1,j)=dsqrt(x*0.5D+00) >*/
- psl[j * 1002 + 25052] = sqrt(x * .5);
-/*< psl(1,-j)=dsqrt(x*0.5d+00) >*/
- psl[-j * 1002 + 25052] = sqrt(x * .5);
-/*< psl(2,j)=c*psl(1,j)*rac3 >*/
- psl[j * 1002 + 25053] = c__ * psl[j * 1002 + 25052] * rac3;
-/*< psl(2,-j)=-psl(2,j) >*/
- psl[-j * 1002 + 25053] = -psl[j * 1002 + 25053];
-/*< rsl(1,j)=0.0d+00 >*/
- rsl[j * 1002 + 25052] = 0.;
-/*< rsl(1,-j)=0.0d+00 >*/
- rsl[-j * 1002 + 25052] = 0.;
-/*< rsl(2,j)=-c*dsqrt(x)*0.5d+00 >*/
- rsl[j * 1002 + 25053] = -c__ * sqrt(x) * .5;
-/*< rsl(2,-j)=-rsl(2,j) >*/
- rsl[-j * 1002 + 25053] = -rsl[j * 1002 + 25053];
-/*< tsl(1,j)=0.0d+00 >*/
- tsl[j * 1002 + 25052] = 0.;
-/*< tsl(1,-j)=0.0d+00 >*/
- tsl[-j * 1002 + 25052] = 0.;
-/*< tsl(2,j)=-dsqrt(x)*0.5d+00 >*/
- tsl[j * 1002 + 25053] = -sqrt(x) * .5;
-/*< tsl(2,-j)=-dsqrt(x)*0.5d+00 >*/
- tsl[-j * 1002 + 25053] = -sqrt(x) * .5;
-/*< 26 continue >*/
-/* L26: */
- }
-/*< psl(2,0)=-psl(2,0) >*/
- psl[25053] = -psl[25053];
-/*< rsl(2,0)=-rsl(2,0) >*/
- rsl[25053] = -rsl[25053];
-/*< rsl(1,0)=0.0d+00 >*/
- rsl[25052] = 0.;
-/*< tsl(1,0)=0.0d+00 >*/
- tsl[25052] = 0.;
-/*< goto 501 >*/
- goto L501;
-
-/*< 701 a=1.0d+00 >*/
-L701:
- a = 1.;
-/*< do 27 i=1,is >*/
- i__1 = *is;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< x=i >*/
- x = (doublereal) i__;
-/*< a=a*dsqrt((i+is)/x)*0.5d+00 >*/
- a = a * sqrt((i__ + *is) / x) * .5;
-/*< 27 continue >*/
-/* L27: */
- }
-/*< b=a*dsqrt(is/(is+1.d+00))*dsqrt((is-1.d+00)/(is+2.d+00)) >*/
- b = a * sqrt(*is / (*is + 1.)) * sqrt((*is - 1.) / (*is + 2.));
-/*< do 28 j=0,mu >*/
- i__1 = *mu;
- for (j = 0; j <= i__1; ++j) {
-/*< c=dble(rm(j)) >*/
- c__ = rm[j];
-/*< xx=1.d+00-c*c >*/
- xx = 1. - c__ * c__;
-/*< psl(is-1,j)=0.d+00 >*/
- psl[*is - 1 + j * 1002 + 25051] = 0.;
-/*< rsl(is-1,j)=0.d+00 >*/
- rsl[*is - 1 + j * 1002 + 25051] = 0.;
-/*< tsl(is-1,j)=0.d+00 >*/
- tsl[*is - 1 + j * 1002 + 25051] = 0.;
-/*< xdb=a*xx**(is*0.5d+00) >*/
- d__1 = *is * .5;
- xdb = a * pow_dd(&xx, &d__1);
-/*< if (abs(xdb).lt.1.e-30) xdb =0.0d+00 >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< psl(is,-j)=xdb >*/
- psl[*is + -j * 1002 + 25051] = xdb;
-/*< psl(is,j)=xdb >*/
- psl[*is + j * 1002 + 25051] = xdb;
-/*< xdb=b*(1.+c*c)*xx**(is*0.5-1.d+00) >*/
- d__1 = *is * .5 - 1.;
- xdb = b * (c__ * c__ + 1.) * pow_dd(&xx, &d__1);
-/*< if (abs(xdb).lt.1.e-30) xdb =0.0d+00 >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< rsl(is,-j)=xdb >*/
- rsl[*is + -j * 1002 + 25051] = xdb;
-/*< rsl(is,j)=xdb >*/
- rsl[*is + j * 1002 + 25051] = xdb;
-/*< xdb=2.d+00*b*c*xx**(is*0.5-1.d+00) >*/
- d__1 = *is * .5 - 1.;
- xdb = b * 2. * c__ * pow_dd(&xx, &d__1);
-/*< if (abs(xdb).lt.1.e-30) xdb =0.0d+00 >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< tsl(is,-j)=-xdb >*/
- tsl[*is + -j * 1002 + 25051] = -xdb;
-/*< tsl(is,j)=xdb >*/
- tsl[*is + j * 1002 + 25051] = xdb;
-/*< 28 continue >*/
-/* L28: */
- }
-/*< 501 k=2 >*/
-L501:
- k = 2;
-/*< ip=ip1 >*/
- ip = ip1;
-/*< if(is.gt.2)k=is >*/
- if (*is > 2) {
- k = *is;
- }
-/*< if(k.eq.ip)goto 502 >*/
- if (k == ip) {
- goto L502;
- }
-/*< ig=-1 >*/
- ig = -1;
-/*< if(is.eq.1)ig=1 >*/
- if (*is == 1) {
- ig = 1;
- }
-/*< do 30 l=k,ip-1 >*/
- i__1 = ip - 1;
- for (l = k; l <= i__1; ++l) {
-/*< lp=l+1 >*/
- lp = l + 1;
-/*< lm=l-1 >*/
- lm = l - 1;
-/*< a=(2*l+1.d+00)/sqrt((l+is+1.d+00)*(l-is+1.d+00)) >*/
- a = ((l << 1) + 1.) / sqrt((l + *is + 1.) * (l - *is + 1.));
-/*< b=dsqrt(1.d+00*(l+is)*(l-is))/(2.*l+1.d+00) >*/
- b = sqrt((l + *is) * 1. * (l - *is)) / (l * 2. + 1.);
-/*< d=(l+1.d+00)*(2*l+1.d+00) >*/
- d__ = (l + 1.) * ((l << 1) + 1.);
-/*< d=d/dsqrt((l+3.d+00)*(l-1)*(l+is+1.d+00)*(l-is+1.)) >*/
- d__ /= sqrt((l + 3.) * (l - 1) * (l + *is + 1.) * (l - *is + 1.));
-/*< e=dsqrt((l+2.d+00)*(l-2.)*(l+is)*(l-is))/(l*(2.*l+1.)) >*/
- e = sqrt((l + 2.) * (l - 2.) * (l + *is) * (l - *is)) / (l * (l * 2.
- + 1.));
-/*< f=2.d+00*is/(l*(l+1.)) >*/
- f = *is * 2. / (l * (l + 1.));
-/*< do 31 j=0,mu >*/
- i__2 = *mu;
- for (j = 0; j <= i__2; ++j) {
-/*< c=dble(rm(j)) >*/
- c__ = rm[j];
-/*< xdb=a*(c*psl(l,j)-b*psl(lm,j)) >*/
- xdb = a * (c__ * psl[l + j * 1002 + 25051] - b * psl[lm + j *
- 1002 + 25051]);
-/*< if (abs(xdb).lt.1.e-30) xdb =0.0 >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< psl(lp,j)=xdb >*/
- psl[lp + j * 1002 + 25051] = xdb;
-/*< xdb=d*(c*rsl(l,j)-f*tsl(l,j)-e*rsl(lm,j)) >*/
- xdb = d__ * (c__ * rsl[l + j * 1002 + 25051] - f * tsl[l + j *
- 1002 + 25051] - e * rsl[lm + j * 1002 + 25051]);
-/*< if (abs(xdb).lt.1.e-30) xdb =0.0 >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< rsl(lp,j)=xdb >*/
- rsl[lp + j * 1002 + 25051] = xdb;
-/*< xdb=d*(c*tsl(l,j)-f*rsl(l,j)-e*tsl(lm,j)) >*/
- xdb = d__ * (c__ * tsl[l + j * 1002 + 25051] - f * rsl[l + j *
- 1002 + 25051] - e * tsl[lm + j * 1002 + 25051]);
-/*< if (abs(xdb).lt.1.e-30) xdb =0.0 >*/
- if (abs(xdb) < 1e-30) {
- xdb = 0.;
- }
-/*< tsl(lp,j)=xdb >*/
- tsl[lp + j * 1002 + 25051] = xdb;
-/*< if(j.eq.0) go to 31 >*/
- if (j == 0) {
- goto L31;
- }
-/*< psl(lp,-j)=ig*psl(lp,j) >*/
- psl[lp + -j * 1002 + 25051] = ig * psl[lp + j * 1002 + 25051];
-/*< rsl(lp,-j)=ig*rsl(lp,j) >*/
- rsl[lp + -j * 1002 + 25051] = ig * rsl[lp + j * 1002 + 25051];
-/*< tsl(lp,-j)=-ig*tsl(lp,j) >*/
- tsl[lp + -j * 1002 + 25051] = -ig * tsl[lp + j * 1002 + 25051];
-/*< 31 continue >*/
-L31:
- ;
- }
-/*< ig=-ig >*/
- ig = -ig;
-/*< 30 continue >*/
-/* L30: */
- }
-/*< 502 continue >*/
-L502:
-/*< do 1005 j=-mu,mu >*/
- i__1 = *mu;
- for (j = -(*mu); j <= i__1; ++j) {
-/*< xpl(j)=psl(2,j) >*/
- xpl[j] = psl[j * 1002 + 25053];
-/*< xrl(j)=rsl(2,j) >*/
- xrl[j] = rsl[j * 1002 + 25053];
-/*< xtl(j)=tsl(2,j) >*/
- xtl[j] = tsl[j * 1002 + 25053];
-/* write(6,*) "xpl,xrl,xtl ",xpl(j),xrl(j),xtl(j),j */
-/*< 1005 continue >*/
-/* L1005: */
- }
-/* stop */
-/*< ij=ip1 >*/
- ij = ip1;
-/*< do 32 j=0,mu >*/
- i__1 = *mu;
- for (j = 0; j <= i__1; ++j) {
-/*< do 32 k=-mu,mu >*/
- i__2 = *mu;
- for (k = -(*mu); k <= i__2; ++k) {
-/*< sbp=0. >*/
- sbp = 0.;
-/*< sgr=0. >*/
- sgr = 0.;
-/*< sgt=0. >*/
- sgt = 0.;
-/*< satt=0. >*/
- satt = 0.;
-/*< sarr=0. >*/
- sarr = 0.;
-/*< sart=0. >*/
- sart = 0.;
-/*< if(is.gt.ij) goto 1 >*/
- if (*is > ij) {
- goto L1;
- }
-/* write(6,*) "is,ij ",is,ij */
-/*< do 33 l=is,ij >*/
- i__3 = ij;
- for (l = *is; l <= i__3; ++l) {
-/*< r1=tsl(l,j)*tsl(l,k) >*/
- r1 = tsl[l + j * 1002 + 25051] * tsl[l + k * 1002 + 25051];
-/*< r2=rsl(l,j)*rsl(l,k) >*/
- r2 = rsl[l + j * 1002 + 25051] * rsl[l + k * 1002 + 25051];
-/*< r3=psl(l,j)*gammal(l) >*/
- r3 = psl[l + j * 1002 + 25051] * sixs_polar__1.gammal[l];
-/*< sbp=sbp+psl(l,j)*psl(l,k)*betal(l) >*/
- sbp += psl[l + j * 1002 + 25051] * psl[l + k * 1002 + 25051] *
- sixs_polar__1.betal[l];
-/*< sgr=sgr+rsl(l,k)*r3 >*/
- sgr += rsl[l + k * 1002 + 25051] * r3;
-/*< sgt=sgt+tsl(l,k)*r3 >*/
- sgt += tsl[l + k * 1002 + 25051] * r3;
-/* if (is.eq.3.and.j.eq.1)then */
-/* write(6,*)j,k,l,gammal(l),psl(l,j),tsl(l,k) */
-/* endif */
-/*< >*/
- satt = satt + r1 * sixs_polar__1.alphal[l] + r2 *
- sixs_polar__1.zetal[l];
-/*< >*/
- sarr = sarr + r1 * sixs_polar__1.zetal[l] + r2 *
- sixs_polar__1.alphal[l];
-/*< >*/
- sart = sart + tsl[l + j * 1002 + 25051] * rsl[l + k * 1002 +
- 25051] * sixs_polar__1.alphal[l] + rsl[l + j * 1002 +
- 25051] * tsl[l + k * 1002 + 25051] *
- sixs_polar__1.zetal[l];
-/*< 33 continue >*/
-/* L33: */
- }
-/*< 1 continue >*/
-L1:
-/*< if (abs(sbp).lt.1.e-30) sbp =0.0 >*/
- if (abs(sbp) < 1e-30) {
- sbp = 0.;
- }
-/*< bp(j,k)=sbp >*/
- bp[j + k * bp_dim1] = sbp;
-/*< if (abs(sgr).lt.1.e-30) sgr =0.0 >*/
- if (abs(sgr) < 1e-30) {
- sgr = 0.;
- }
-/*< gr(j,k)=sgr >*/
- gr[j + k * gr_dim1] = sgr;
-/*< if (abs(sgt).lt.1.e-30) sgt =0.0 >*/
- if (abs(sgt) < 1e-30) {
- sgt = 0.;
- }
-/*< gt(j,k)=sgt >*/
- gt[j + k * gt_dim1] = sgt;
-/*< if (abs(satt).lt.1.e-30) satt =0.0 >*/
- if (abs(satt) < 1e-30) {
- satt = 0.;
- }
-/*< att(j,k)=satt >*/
- att[j + k * att_dim1] = satt;
-/*< if (abs(sart).lt.1.e-30) sart =0.0 >*/
- if (abs(sart) < 1e-30) {
- sart = 0.;
- }
-/*< art(j,k)=sart >*/
- art[j + k * art_dim1] = sart;
-/*< if (abs(sarr).lt.1.e-30) sarr =0.0 >*/
- if (abs(sarr) < 1e-30) {
- sarr = 0.;
- }
-/*< arr(j,k)=sarr >*/
- arr[j + k * arr_dim1] = sarr;
-/*< 32 continue >*/
-/* L32: */
- }
- }
-/*< 35 continue >*/
-/* L35: */
-/* stop */
-/*< return >*/
- return 0;
-/*< end >*/
-} /* kernelpol_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.f b/Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.f
deleted file mode 100644
index 35cf5ca..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.f
+++ /dev/null
@@ -1,197 +0,0 @@
- subroutine kernelpol(is,mu,rm,xpl,xrl,xtl,bp,gr,gt,arr,art,att)
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real pha,qha,uha,alphal,betal,gammal,zetal
- common /sixs_polar/ pha(nqmax_p),qha(nqmax_p),uha(nqmax_p),
- &alphal(0:nqmax_p),betal(0:nqmax_p),gammal(0:nqmax_p),
- &zetal(0:nqmax_p)
-c THOMAS
-c double precision psl(-1:nqmax_p,-mu:mu),rsl(-1:nqmax_p,-mu:mu)
-c double precision tsl(-1:nqmax_p,-mu:mu)
- double precision psl(-1:nqmax_p,-25:25),rsl(-1:nqmax_p,-25:25)
- double precision tsl(-1:nqmax_p,-25:25)
-c - to vary the number of quadratures
-
- integer mu
- real rm(-mu:mu)
- double precision xpl(-mu:mu),xrl(-mu:mu),xtl(-mu:mu)
- double precision bp(0:mu,-mu:mu),gr(0:mu,-mu:mu),gt(0:mu,-mu:mu)
- double precision arr(0:mu,-mu:mu),art(0:mu,-mu:mu)
- double precision att(0:mu,-mu:mu)
- integer is,ip1,j,i,k,ip,ig,l,lp,lm,ij
- double precision xdb,a,b,c,d,e,f,xx,rac3,x
- double precision sbp,satt,sarr,sgr,sgt,sart
- double precision r1,r2,r3
-
-
-
- ip1=nquad-3
- rac3=dsqrt(3.D+00)
- if(is.ne.0)go to 700
- do 25 j=0,mu
- c=dble(rm(j))
- psl(0,j)=1.D+00
- psl(0,-j)=1.D+00
- psl(1,j)=c
- psl(1,-j)=-c
- xdb=(3.D+00*c*c-1.D+00)*0.5D+00
- if (abs(xdb).lt.1.e-30) xdb =0.0D+00
- psl(2,j)=xdb
- psl(2,-j)=xdb
- rsl(1,j)=0.0D+00
- rsl(1,-j)=0.0D+00
- xdb=3.D+00*(1.D+00-c*c)/2.D+00/sqrt(6.D+00)
- if (abs(xdb).lt.1.e-30) xdb =0.0D+00
- rsl(2,j)=xdb
- rsl(2,-j)=xdb
- tsl(1,j)=0.0D+00
- tsl(1,-j)=0.0D+00
- tsl(2,j)=0.0D+00
- tsl(2,-j)=0.0D+00
- 25 continue
- psl(1,0)=rm(0)
- rsl(1,0)=0.0D+00
- goto 501
-c
- 700 if(is.ne.1)go to 701
- do 26 j=0,mu
- c=dble(rm(j))
- x=1.d+00-c*c
- psl(0,j)=0.D+00
- psl(0,-j)=0.D+00
- psl(1,j)=dsqrt(x*0.5D+00)
- psl(1,-j)=dsqrt(x*0.5d+00)
- psl(2,j)=c*psl(1,j)*rac3
- psl(2,-j)=-psl(2,j)
- rsl(1,j)=0.0d+00
- rsl(1,-j)=0.0d+00
- rsl(2,j)=-c*dsqrt(x)*0.5d+00
- rsl(2,-j)=-rsl(2,j)
- tsl(1,j)=0.0d+00
- tsl(1,-j)=0.0d+00
- tsl(2,j)=-dsqrt(x)*0.5d+00
- tsl(2,-j)=-dsqrt(x)*0.5d+00
- 26 continue
- psl(2,0)=-psl(2,0)
- rsl(2,0)=-rsl(2,0)
- rsl(1,0)=0.0d+00
- tsl(1,0)=0.0d+00
- goto 501
-c
- 701 a=1.0d+00
- do 27 i=1,is
- x=i
- a=a*dsqrt((i+is)/x)*0.5d+00
- 27 continue
- b=a*dsqrt(is/(is+1.d+00))*dsqrt((is-1.d+00)/(is+2.d+00))
- do 28 j=0,mu
- c=dble(rm(j))
- xx=1.d+00-c*c
- psl(is-1,j)=0.d+00
- rsl(is-1,j)=0.d+00
- tsl(is-1,j)=0.d+00
- xdb=a*xx**(is*0.5d+00)
- if (abs(xdb).lt.1.e-30) xdb =0.0d+00
- psl(is,-j)=xdb
- psl(is,j)=xdb
- xdb=b*(1.+c*c)*xx**(is*0.5-1.d+00)
- if (abs(xdb).lt.1.e-30) xdb =0.0d+00
- rsl(is,-j)=xdb
- rsl(is,j)=xdb
- xdb=2.d+00*b*c*xx**(is*0.5-1.d+00)
- if (abs(xdb).lt.1.e-30) xdb =0.0d+00
- tsl(is,-j)=-xdb
- tsl(is,j)=xdb
- 28 continue
-
- 501 k=2
- ip=ip1
- if(is.gt.2)k=is
- if(k.eq.ip)goto 502
- ig=-1
- if(is.eq.1)ig=1
- do 30 l=k,ip-1
- lp=l+1
- lm=l-1
- a=(2*l+1.d+00)/sqrt((l+is+1.d+00)*(l-is+1.d+00))
- b=dsqrt(1.d+00*(l+is)*(l-is))/(2.*l+1.d+00)
- d=(l+1.d+00)*(2*l+1.d+00)
- d=d/dsqrt((l+3.d+00)*(l-1)*(l+is+1.d+00)*(l-is+1.))
- e=dsqrt((l+2.d+00)*(l-2.)*(l+is)*(l-is))/(l*(2.*l+1.))
- f=2.d+00*is/(l*(l+1.))
- do 31 j=0,mu
- c=dble(rm(j))
- xdb=a*(c*psl(l,j)-b*psl(lm,j))
- if (abs(xdb).lt.1.e-30) xdb =0.0
- psl(lp,j)=xdb
- xdb=d*(c*rsl(l,j)-f*tsl(l,j)-e*rsl(lm,j))
- if (abs(xdb).lt.1.e-30) xdb =0.0
- rsl(lp,j)=xdb
- xdb=d*(c*tsl(l,j)-f*rsl(l,j)-e*tsl(lm,j))
- if (abs(xdb).lt.1.e-30) xdb =0.0
- tsl(lp,j)=xdb
- if(j.eq.0) go to 31
- psl(lp,-j)=ig*psl(lp,j)
- rsl(lp,-j)=ig*rsl(lp,j)
- tsl(lp,-j)=-ig*tsl(lp,j)
- 31 continue
- ig=-ig
- 30 continue
- 502 continue
- do 1005 j=-mu,mu
- xpl(j)=psl(2,j)
- xrl(j)=rsl(2,j)
- xtl(j)=tsl(2,j)
-c write(6,*) "xpl,xrl,xtl ",xpl(j),xrl(j),xtl(j),j
- 1005 continue
-c stop
-
- ij=ip1
- do 32 j=0,mu
- do 32 k=-mu,mu
- sbp=0.
- sgr=0.
- sgt=0.
- satt=0.
- sarr=0.
- sart=0.
- if(is.gt.ij) goto 1
-c write(6,*) "is,ij ",is,ij
- do 33 l=is,ij
- r1=tsl(l,j)*tsl(l,k)
- r2=rsl(l,j)*rsl(l,k)
- r3=psl(l,j)*gammal(l)
- sbp=sbp+psl(l,j)*psl(l,k)*betal(l)
- sgr=sgr+rsl(l,k)*r3
- sgt=sgt+tsl(l,k)*r3
-c if (is.eq.3.and.j.eq.1)then
-c write(6,*)j,k,l,gammal(l),psl(l,j),tsl(l,k)
-c endif
- satt=satt+r1*alphal(l)
- & +r2*zetal(l)
- sarr=sarr+r1*zetal(l)
- & +r2*alphal(l)
- sart=sart+tsl(l,j)*rsl(l,k)*alphal(l)
- & +rsl(l,j)*tsl(l,k)*zetal(l)
- 33 continue
- 1 continue
- if (abs(sbp).lt.1.e-30) sbp =0.0
- bp(j,k)=sbp
- if (abs(sgr).lt.1.e-30) sgr =0.0
- gr(j,k)=sgr
- if (abs(sgt).lt.1.e-30) sgt =0.0
- gt(j,k)=sgt
- if (abs(satt).lt.1.e-30) satt =0.0
- att(j,k)=satt
- if (abs(sart).lt.1.e-30) sart =0.0
- art(j,k)=sart
- if (abs(sarr).lt.1.e-30) sarr =0.0
- arr(j,k)=sarr
- 32 continue
- 35 continue
-c stop
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.h b/Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.h
deleted file mode 100644
index db3b157..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/KERNELPOL.h
+++ /dev/null
@@ -1,14 +0,0 @@
-extern int otb_6s_kernelpol_(
- otb_6s_integer *is,
- otb_6s_integer *mu,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *xpl,
- otb_6s_doublereal *xrl,
- otb_6s_doublereal *xtl,
- otb_6s_doublereal *bp,
- otb_6s_doublereal *gr,
- otb_6s_doublereal *gt,
- otb_6s_doublereal *arr,
- otb_6s_doublereal *art,
- otb_6s_doublereal *att
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.P b/Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.P
deleted file mode 100644
index 652a29d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int lakew_(doublereal *r__);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.c b/Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.c
deleted file mode 100644
index 98f11d9..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.c
+++ /dev/null
@@ -1,126 +0,0 @@
-/* LAKEW.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine lakew(r) >*/
-/* Subroutine */ int lakew_(doublereal *r__)
-{
- /* Initialized data */
-
- static doublereal sr[1501] = { 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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.0225,.045,.046,.047,.0475,.048,.049,.05,.0505,
- .051,.051,.051,.052,.053,.053,.053,.054,.055,.056,.057,.0575,.058,
- .0585,.059,.0595,.06,.06,.06,.061,.062,.063,.064,.0645,.065,.066,
- .067,.0675,.068,.069,.07,.07,.07,.0695,.069,.07,.071,.071,.071,
- .0715,.072,.073,.074,.074,.074,.0745,.075,.0755,.076,.076,.076,
- .0765,.077,.077,.077,.077,.077,.077,.077,.078,.079,.0795,.08,.08,
- .08,.0805,.081,.081,.081,.0815,.082,.082,.082,.082,.082,.0825,
- .083,.0825,.082,.0825,.083,.0825,.082,.082,.082,.082,.082,.082,
- .082,.082,.082,.081,.08,.0795,.079,.079,.079,.078,.077,.076,.075,
- .0745,.074,.073,.072,.0715,.071,.0705,.07,.069,.068,.067,.066,
- .0655,.065,.0645,.064,.0635,.063,.062,.061,.0605,.06,.0595,.059,
- .058,.057,.0565,.056,.055,.054,.0535,.053,.052,.051,.0505,.05,
- .049,.048,.0475,.047,.0465,.046,.0455,.045,.0445,.044,.043,.042,
- .0415,.041,.0405,.04,.0395,.039,.038,.037,.0365,.036,.0355,.035,
- .0345,.034,.033,.032,.032,.032,.0315,.031,.0305,.03,.03,.03,.029,
- .028,.0275,.027,.027,.027,.026,.025,.0245,.024,.024,.024,.0235,
- .023,.0225,.022,.022,.022,.021,.02,.02,.02,.02,.02,.0195,.019,
- .019,.019,.019,.019,.019,.019,.019,.019,.019,.019,.0185,.018,.017,
- .016,.016,.016,.0155,.015,.0145,.014,.013,.012,.012,.012,.012,
- .012,.0115,.011,.011,.011,.01,.009,.0085,.008,.008,.008,.007,.006,
- .0055,.005,.005,.005,.004,.003,.0025,.002,.001,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,0.,0.,0.,0.,0. };
-
- integer i__;
-
-/*< real sr(1501),r(1501) >*/
-/*< integer l,i >*/
-/* lake water reflectance */
-/* warning : values of lake water reflectance are given */
-/* between 0.35 and 1.0 microns. outside this interval the */
-/* values are set to 0. */
-/*< >*/
- /* Parameter adjustments */
- --r__;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< do 1 i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< r(i)=sr(i) >*/
- r__[i__] = sr[i__ - 1];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* lakew_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.f b/Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.f
deleted file mode 100644
index 9cb0a6c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.f
+++ /dev/null
@@ -1,56 +0,0 @@
- subroutine lakew(r)
- real sr(1501),r(1501)
- integer l,i
-
-c lake water reflectance
-c warning : values of lake water reflectance are given
-c between 0.35 and 1.0 microns. outside this interval the
-c values are set to 0.
-
- data (sr(l),l=1,110)/ 40*0.,
- a .00000, .02250, .04500, .04600, .04700, .04750, .04800,
- a .04900, .05000, .05050, .05100, .05100, .05100, .05200,
- a .05300, .05300, .05300, .05400, .05500, .05600, .05700,
- a .05750, .05800, .05850, .05900, .05950, .06000, .06000,
- a .06000, .06100, .06200, .06300, .06400, .06450, .06500,
- a .06600, .06700, .06750, .06800, .06900, .07000, .07000,
- a .07000, .06950, .06900, .07000, .07100, .07100, .07100,
- a .07150, .07200, .07300, .07400, .07400, .07400, .07450,
- a .07500, .07550, .07600, .07600, .07600, .07650, .07700,
- a .07700, .07700, .07700, .07700, .07700, .07700, .07800/
- data (sr(l),l=111,180)/
- a .07900, .07950, .08000, .08000, .08000, .08050, .08100,
- a .08100, .08100, .08150, .08200, .08200, .08200, .08200,
- a .08200, .08250, .08300, .08250, .08200, .08250, .08300,
- a .08250, .08200, .08200, .08200, .08200, .08200, .08200,
- a .08200, .08200, .08200, .08100, .08000, .07950, .07900,
- a .07900, .07900, .07800, .07700, .07600, .07500, .07450,
- a .07400, .07300, .07200, .07150, .07100, .07050, .07000,
- a .06900, .06800, .06700, .06600, .06550, .06500, .06450,
- a .06400, .06350, .06300, .06200, .06100, .06050, .06000,
- a .05950, .05900, .05800, .05700, .05650, .05600, .05500/
- data (sr(l),l=181,1501)/
- a .05400, .05350, .05300, .05200, .05100, .05050, .05000,
- a .04900, .04800, .04750, .04700, .04650, .04600, .04550,
- a .04500, .04450, .04400, .04300, .04200, .04150, .04100,
- a .04050, .04000, .03950, .03900, .03800, .03700, .03650,
- a .03600, .03550, .03500, .03450, .03400, .03300, .03200,
- a .03200, .03200, .03150, .03100, .03050, .03000, .03000,
- a .03000, .02900, .02800, .02750, .02700, .02700, .02700,
- a .02600, .02500, .02450, .02400, .02400, .02400, .02350,
- a .02300, .02250, .02200, .02200, .02200, .02100, .02000,
- a .02000, .02000, .02000, .02000, .01950, .01900, .01900,
- a .01900, .01900, .01900, .01900, .01900, .01900, .01900,
- a .01900, .01900, .01850, .01800, .01700, .01600, .01600,
- a .01600, .01550, .01500, .01450, .01400, .01300, .01200,
- a .01200, .01200, .01200, .01200, .01150, .01100, .01100,
- a .01100, .01000, .00900, .00850, .00800, .00800, .00800,
- a .00700, .00600, .00550, .00500, .00500, .00500, .00400,
- a .00300, .00250, .00200, .00100, .00000, .00000, .00000,
- a .00000, .00000, 1200*0./
- do 1 i=1,1501
- r(i)=sr(i)
- 1 continue
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.h b/Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.h
deleted file mode 100644
index 0f62519..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/LAKEW.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_lakew_(
- otb_6s_doublereal *r__
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MAS.P b/Modules/ThirdParty/6S/src/6SV1.0B/MAS.P
deleted file mode 100644
index d7ad3f7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MAS.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int mas_(integer *iwa);
-/* comlen sixs_ffu__ 12024 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MAS.c b/Modules/ThirdParty/6S/src/6SV1.0B/MAS.c
deleted file mode 100644
index 12ed25a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MAS.c
+++ /dev/null
@@ -1,819 +0,0 @@
-/* MAS.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine mas(iwa) >*/
-/* Subroutine */ int mas_(integer *iwa)
-{
- /* Initialized data */
-
- static doublereal sr[15010] /* was [10][1501] */ = { 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,.0732,0.,0.,0.,0.,0.,0.,0.,0.,0.,.8372,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,3.6403,0.,0.,0.,0.,0.,0.,0.,0.,0.,4.9195,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,5.0091,0.,0.,0.,0.,0.,0.,0.,0.,0.,5.0102,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,5.0102,0.,0.,0.,0.,0.,0.,0.,0.,0.,5.0099,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,4.967,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 4.0931,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.288,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.1186,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0237,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.,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.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0244,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .0338,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0536,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .1052,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1941,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .3166,0.,0.,0.,0.,0.,0.,0.,0.,0.,.4797,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .6893,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9417,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 1.2218,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.489,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,1.7202,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.9194,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,2.0812,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.1934,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,2.258,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.3031,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,2.3395,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.362,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,2.3575,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.3228,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,2.2421,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.1129,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,1.9317,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.7031,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,1.4126,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.0985,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.8088,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5573,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.3477,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1843,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0918,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0473,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0308,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0248,
- 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.,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.,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.,0.,0.,0.,0.,0.,.0197,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.0223,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0298,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.0481,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0877,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.1645,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2829,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.4699,0.,0.,0.,0.,0.,0.,0.,0.,0.,.7101,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.9752,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.2209,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,1.4459,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.6307,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,1.7482,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.8092,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,1.837,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.8465,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,1.8527,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.8574,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,1.8627,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.8703,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,1.8733,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 1.8763,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.8769,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,1.8731,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.8599,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,1.8221,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.7208,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,1.5341,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.2689,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.981,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6911,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.425,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2204,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.0947,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0447,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.0253,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0209,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0273,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0357,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.056,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1265,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.3269,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6239,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.9777,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 1.3481,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.7037,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,2.0081,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.1885,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,2.2765,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.3178,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,2.3474,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.3777,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,2.4053,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.4286,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,2.4487,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.4604,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,2.4324,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.2594,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,1.9695,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.6105,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,1.22,0.,0.,0.,0.,0.,0.,0.,0.,0.,.8289,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.4724,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2484,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.1443,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0998,
- .0242,0.,0.,0.,0.,0.,0.,0.,0.,.0726,.0276,0.,0.,0.,0.,0.,0.,0.,0.,
- .0546,.0364,0.,0.,0.,0.,0.,0.,0.,0.,.0421,.0505,0.,0.,0.,0.,0.,0.,
- 0.,0.,.0333,.0717,0.,0.,0.,0.,0.,0.,0.,0.,.027,.1058,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.1841,0.,0.,0.,0.,0.,0.,0.,0.,0.,.3889,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.757,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.1872,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,1.6245,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.9511,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,2.0986,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.1652,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,2.2058,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.243,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,2.2471,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.2299,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,2.219,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 2.2052,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.1875,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,2.1519,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.0989,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,2.0314,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.9292,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,1.7185,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.3603,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.9476,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5555,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.2803,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1608,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.109,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0926,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.083,0.,0.,0.,0.,0.,0.,0.,0.,0.,.072,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.059,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0476,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.0377,0.,0.,0.,0.,0.,0.,0.,0.,0.,.03,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.0245,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,
- 0.,0.,.0094,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0143,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.0248,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0457,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.0902,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1928,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.4494,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.1087,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,2.4282,0.,0.,0.,0.,0.,0.,0.,0.,0.,3.6387,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,4.5556,0.,0.,0.,0.,0.,0.,0.,0.,0.,4.9434,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,4.9975,0.,0.,0.,0.,0.,0.,0.,0.,0.,4.9434,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,4.5556,0.,0.,0.,0.,0.,0.,0.,0.,0.,3.6387,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,2.4282,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.1087,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.4494,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1928,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.0902,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0457,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.0248,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0143,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.0094,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,.0215,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0307,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0493,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0827,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1454,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.2693,0.,0.,0.,0.,0.,0.,0.,0.,0.,.524,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,1.0412,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.9431,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,2.6724,0.,0.,0.,0.,0.,0.,0.,0.,0.,3.3494,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,3.8269,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 4.0296,0.,0.,0.,0.,0.,0.,0.,0.,0.,4.0624,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,4.0296,0.,0.,0.,0.,0.,0.,0.,0.,0.,3.8269,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,3.3494,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.6724,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,1.9097,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.0412,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.524,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2693,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.1454,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0827,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.0493,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0307,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.0215,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0232,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0234,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0254,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0259,0.,0.,0.,0.,0.,0.,0.,0.,0.,.03,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0313,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0325,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0368,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0397,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0432,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0454,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0525,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0624,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0839,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1305,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.2066,0.,0.,0.,0.,0.,0.,0.,0.,0.,.3012,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.4087,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5292,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.6814,0.,0.,0.,0.,0.,0.,0.,0.,0.,.8961,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,1.1607,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.4407,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,1.6803,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.8543,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,1.9683,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 2.026,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.0562,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,2.0704,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.055,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,2.0031,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.9304,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,1.8731,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.8325,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,1.7974,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.7334,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,1.6188,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.471,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,1.2919,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.0871,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.8785,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6871,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.5194,0.,0.,0.,0.,0.,0.,0.,0.,0.,.3728,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.2565,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1667,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.1099,0.,0.,0.,0.,0.,0.,0.,0.,0.,.072,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0536,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0434,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0375,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0355,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0324,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0281,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.0251,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0214,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,.0229,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0271,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0404,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.069,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1237,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.2051,0.,0.,0.,0.,0.,0.,0.,0.,0.,.3206,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.4619,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6269,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.8073,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 1.0025,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.2045,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,1.4075,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.598,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,1.769,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.9111,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,2.0102,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.0697,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,2.0965,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.1009,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,2.0903,0.,0.,0.,0.,0.,0.,0.,0.,0.,2.0685,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,2.0262,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.9608,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,1.8675,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.7447,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,1.5974,0.,0.,0.,0.,0.,0.,0.,0.,0.,1.4411,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,1.2742,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 1.0954,0.,0.,0.,0.,0.,0.,0.,0.,0.,.9031,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.7062,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5164,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.3475,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2148,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.1205,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0665,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.0376,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0254,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.0211,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,.0075,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0087,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0108,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0133,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0168,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0208,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0257,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0312,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0379,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0456,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.054,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0629,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0728,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0828,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0937,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1054,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.1189,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1329,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.1478,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1618,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.1729,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1845,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.1963,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2095,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.2206,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2326,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.2448,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2578,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.2714,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2864,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.3033,0.,0.,0.,0.,0.,0.,0.,0.,0.,.3192,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.3349,0.,0.,0.,0.,0.,0.,0.,0.,0.,.3515,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.3724,0.,0.,0.,0.,0.,0.,0.,0.,0.,.3922,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.41,0.,0.,0.,0.,0.,0.,0.,0.,0.,.4291,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.4477,0.,0.,0.,0.,0.,0.,0.,0.,0.,.4674,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.4824,0.,0.,0.,0.,0.,0.,0.,0.,0.,.4992,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.5197,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5436,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.5681,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5908,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6099,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6204,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6284,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6393,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6466,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6466,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6488,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6531,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6575,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6612,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6572,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6566,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6577,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6602,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6649,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6595,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6568,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6522,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6606,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6656,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6606,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6517,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6426,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6374,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6311,0.,0.,0.,0.,0.,0.,0.,0.,0.,.6217,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.6053,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5933,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.5827,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5672,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.5483,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5325,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.5241,0.,0.,0.,0.,0.,0.,0.,0.,0.,.5121,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.5077,0.,0.,0.,0.,0.,0.,0.,0.,0.,.4958,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.4827,0.,0.,0.,0.,0.,0.,0.,0.,0.,.4718,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.4552,0.,0.,0.,0.,0.,0.,0.,0.,0.,.4369,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.42,0.,0.,0.,0.,0.,0.,0.,0.,0.,.4076,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.3921,0.,0.,0.,0.,0.,0.,0.,0.,0.,.373,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.355,0.,0.,0.,0.,0.,0.,0.,0.,0.,.3397,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.3224,0.,0.,0.,0.,0.,0.,0.,0.,0.,.3045,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.2849,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2622,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.2426,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2223,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.2035,0.,0.,0.,0.,0.,0.,0.,0.,0.,.183,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.1628,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1416,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.1211,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1033,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0871,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0731,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0606,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0491,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0395,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0315,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0245,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0189,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0151,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0117,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0093,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0076,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.007,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0. };
-
- integer i__;
- doublereal wli[10], wls[10];
-
-/*< real s,wlinf,wlsup >*/
-/*< common /sixs_ffu/ s(1501),wlinf,wlsup >*/
-/*< real sr(10,1501),wli(10),wls(10) >*/
-/*< integer iwa,l,i >*/
-/* first spectral band of Modis airborne simulator */
-/*< >*/
-/* second spectral band of Modis airborne simulator */
-/*< >*/
-/* third spectral band of Modis airborne simulator */
-/*< >*/
-/* fourth spectral band of Modis airborne simulator */
-/*< >*/
-/* fifth spectral band of Modis airborne simulator */
-/*< >*/
-/* sixth spectral band of Modis airborne simulator */
-/*< >*/
-/* seventh spectral band of Modis airborne simulator */
-/*< >*/
-/* third band of MODIS (469nm) soil and vegetation differences */
-/*< >*/
-/* fifth band of MODIS ( 1.24micron) leaf and canopy properties */
-/*< >*/
-/* sixth band of MODIS ( 1.64microns) snow and cloud differences */
-/*< >*/
-/*< wli(1)=.5025 >*/
- wli[0] = .5025;
-/*< wls(1)=.5875 >*/
- wls[0] = .5875;
-/*< wli(2)=.6075 >*/
- wli[1] = .6075;
-/*< wls(2)=.70 >*/
- wls[1] = .7;
-/*< wli(3)=0.83 >*/
- wli[2] = .83;
-/*< wls(3)=0.9125 >*/
- wls[2] = .9125;
-/*< wli(4)=0.9 >*/
- wli[3] = .9;
-/*< wls(4)=0.9975 >*/
- wls[3] = .9975;
-/*< wli(5)=1.82 >*/
- wli[4] = 1.82;
-/*< wls(5)=1.9575 >*/
- wls[4] = 1.9575;
-/*< wli(6)=2.095 >*/
- wli[5] = 2.095;
-/*< wls(6)=2.1925 >*/
- wls[5] = 2.1925;
-/*< wli(7)=3.58 >*/
- wli[6] = 3.58;
-/*< wls(7)=3.87 >*/
- wls[6] = 3.87;
-/*< wli(8)=0.455 >*/
- wli[7] = .455;
-/*< wls(8)=0.485 >*/
- wls[7] = .485;
-/*< wli(9)=1.21 >*/
- wli[8] = 1.21;
-/*< wls(9)=1.27 >*/
- wls[8] = 1.27;
-/*< wli(10)=1.6075 >*/
- wli[9] = 1.6075;
-/*< wls(10)=1.6725 >*/
- wls[9] = 1.6725;
-/*< do 1 i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< s(i)=sr(iwa,i) >*/
- sixs_ffu__1.s[i__ - 1] = sr[*iwa + i__ * 10 - 11];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< wlinf=wli(iwa) >*/
- sixs_ffu__1.wlinf = wli[*iwa - 1];
-/*< wlsup=wls(iwa) >*/
- sixs_ffu__1.wlsup = wls[*iwa - 1];
-/*< return >*/
- return 0;
-/*< end >*/
-} /* mas_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MAS.f b/Modules/ThirdParty/6S/src/6SV1.0B/MAS.f
deleted file mode 100644
index e7ddea7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MAS.f
+++ /dev/null
@@ -1,120 +0,0 @@
- subroutine mas(iwa)
- real s,wlinf,wlsup
- common /sixs_ffu/ s(1501),wlinf,wlsup
- real sr(10,1501),wli(10),wls(10)
- integer iwa,l,i
-C first spectral band of Modis airborne simulator
- DATA (SR(1,L),L=1,1501)/ 101*0.,
- A .0244, .0338, .0536, .1052, .1941, .3166, .4797, .6893,
- A .9417,1.2218,1.4890,1.7202,1.9194,2.0812,2.1934,2.2580,
- A2.3031,2.3395,2.3620,2.3575,2.3228,2.2421,2.1129,1.9317,
- A1.7031,1.4126,1.0985, .8088, .5573, .3477, .1843, .0918,
- A .0473, .0308, .0248,
- A1365*0./
-C second spectral band of Modis airborne simulator
- DATA (SR(2,L),L=1,1501)/ 143*0.,
- A .0197, .0223, .0298, .0481, .0877, .1645, .2829, .4699,
- A .7101, .9752,1.2209,1.4459,1.6307,1.7482,1.8092,1.8370,
- A1.8465,1.8527,1.8574,1.8627,1.8703,1.8733,1.8763,1.8769,
- A1.8731,1.8599,1.8221,1.7208,1.5341,1.2689, .9810, .6911,
- A .4250, .2204, .0947, .0447, .0253, .0209,
- A1320*0./
-C third spectral band of Modis airborne simulator
- DATA (SR(3,L),L=1,1501)/ 232*0.,
- A .0273, .0357, .0560, .1265, .3269, .6239, .9777,1.3481,
- A1.7037,2.0081,2.1885,2.2765,2.3178,2.3474,2.3777,2.4053,
- A2.4286,2.4487,2.4604,2.4324,2.2594,1.9695,1.6105,1.2200,
- A .8289, .4724, .2484, .1443, .0998, .0726, .0546, .0421,
- A .0333, .0270,
- A1235*0./
-C fourth spectral band of Modis airborne simulator
- DATA (SR(4,L),L=1,1501)/ 260*0.,
- A .0242, .0276, .0364, .0505, .0717, .1058, .1841, .3889,
- A .7570,1.1872,1.6245,1.9511,2.0986,2.1652,2.2058,2.2430,
- A2.2471,2.2299,2.2190,2.2052,2.1875,2.1519,2.0989,2.0314,
- A1.9292,1.7185,1.3603, .9476, .5555, .2803, .1608, .1090,
- A .0926, .0830, .0720, .0590, .0476, .0377, .0300, .0245,
- A1201*0./
-C fifth spectral band of Modis airborne simulator
- DATA (SR(5,L),L=1,1501)/ 628*0.,
- A .0232, .0234, .0254, .0259, .0300, .0313, .0325, .0368,
- A .0397, .0432, .0454, .0525, .0624, .0839, .1305, .2066,
- A .3012, .4087, .5292, .6814, .8961,1.1607,1.4407,1.6803,
- A1.8543,1.9683,2.0260,2.0562,2.0704,2.0550,2.0031,1.9304,
- A1.8731,1.8325,1.7974,1.7334,1.6188,1.4710,1.2919,1.0871,
- A .8785, .6871, .5194, .3728, .2565, .1667, .1099, .0720,
- A .0536, .0434, .0375, .0355, .0324, .0281, .0251, .0214,
- A 817*0./
-C sixth spectral band of Modis airborne simulator
- DATA (SR(6,L),L=1,1501)/ 738*0.,
- A .0229, .0271, .0404, .0690, .1237, .2051, .3206, .4619,
- A .6269, .8073,1.0025,1.2045,1.4075,1.5980,1.7690,1.9111,
- A2.0102,2.0697,2.0965,2.1009,2.0903,2.0685,2.0262,1.9608,
- A1.8675,1.7447,1.5974,1.4411,1.2742,1.0954, .9031, .7062,
- A .5164, .3475, .2148, .1205, .0665, .0376, .0254, .0211,
- A 723*0./
-C seventh spectral band of Modis airborne simulator
- DATA (SR(7,L),L=1,1501)/1332*0.,
- A .0075, .0087, .0108, .0133, .0168, .0208, .0257, .0312,
- A .0379, .0456, .0540, .0629, .0728, .0828, .0937, .1054,
- A .1189, .1329, .1478, .1618, .1729, .1845, .1963, .2095,
- A .2206, .2326, .2448, .2578, .2714, .2864, .3033, .3192,
- A .3349, .3515, .3724, .3922, .4100, .4291, .4477, .4674,
- A .4824, .4992, .5197, .5436, .5681, .5908, .6099, .6204,
- A .6284, .6393, .6466, .6466, .6488, .6531, .6575, .6612,
- A .6572, .6566, .6577, .6602, .6649, .6595, .6568, .6522,
- A .6606, .6656, .6606, .6517, .6426, .6374, .6311, .6217,
- A .6053, .5933, .5827, .5672, .5483, .5325, .5241, .5121,
- A .5077, .4958, .4827, .4718, .4552, .4369, .4200, .4076,
- A .3921, .3730, .3550, .3397, .3224, .3045, .2849, .2622,
- A .2426, .2223, .2035, .1830, .1628, .1416, .1211, .1033,
- A .0871, .0731, .0606, .0491, .0395, .0315, .0245, .0189,
- A .0151, .0117, .0093, .0076, .0070,
- A 52*0./
-C third band of MODIS (469nm) soil and vegetation differences
- DATA (SR(8,L),L=1,1501)/ 82*0.,
- A .0732, .8372,3.6403,4.9195,5.0091,5.0102,5.0102,5.0099,
- A4.9670,4.0931,1.2880, .1186, .0237,
- A1406*0./
-C fifth band of MODIS ( 1.24micron) leaf and canopy properties
-
- DATA (SR(9,L),L=1,1501)/ 384*0.,
- A .0094, .0143, .0248, .0457, .0902, .1928, .4494,1.1087,
- A2.4282,3.6387,4.5556,4.9434,4.9975,4.9434,4.5556,3.6387,
- A2.4282,1.1087, .4494, .1928, .0902, .0457, .0248, .0143,
- A .0094,
- A1092*0./
-C sixth band of MODIS ( 1.64microns) snow and cloud differences
- DATA (SR(10,L),L=1,1501)/ 543*0.,
- A .0215, .0307, .0493, .0827, .1454, .2693, .5240,1.0412,
- A1.9431,2.6724,3.3494,3.8269,4.0296,4.0624,4.0296,3.8269,
- A3.3494,2.6724,1.9097,1.0412, .5240, .2693, .1454, .0827,
- A .0493, .0307, .0215,
- A 931*0./
- wli(1)=.5025
- wls(1)=.5875
- wli(2)=.6075
- wls(2)=.70
- wli(3)=0.83
- wls(3)=0.9125
- wli(4)=0.9
- wls(4)=0.9975
- wli(5)=1.82
- wls(5)=1.9575
- wli(6)=2.095
- wls(6)=2.1925
- wli(7)=3.58
- wls(7)=3.87
- wli(8)=0.455
- wls(8)=0.485
- wli(9)=1.21
- wls(9)=1.27
- wli(10)=1.6075
- wls(10)=1.6725
- do 1 i=1,1501
- s(i)=sr(iwa,i)
- 1 continue
- wlinf=wli(iwa)
- wlsup=wls(iwa)
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MAS.h b/Modules/ThirdParty/6S/src/6SV1.0B/MAS.h
deleted file mode 100644
index 412a5fc..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MAS.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_mas_(
- otb_6s_integer *iwa
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MERIS.P b/Modules/ThirdParty/6S/src/6SV1.0B/MERIS.P
deleted file mode 100644
index a9bfe2b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MERIS.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int meris_(integer *iwa);
-/* comlen sixs_ffu__ 12024 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MERIS.c b/Modules/ThirdParty/6S/src/6SV1.0B/MERIS.c
deleted file mode 100644
index a2bd5a0..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MERIS.c
+++ /dev/null
@@ -1,1193 +0,0 @@
-/* MERIS.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine meris(iwa)
>*/
-/* Subroutine */ int meris_(integer *iwa)
-{
- /* Initialized data */
-
- static doublereal sr[22515] /* was [15][1501] */ = { 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,
- 2e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.608,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.,1.,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.,.3829,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.,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.,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.,
- 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.,0.,0.,0.,0.,0.,2e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.6396,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.,1.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.999,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.3484,
- 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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,3e-4,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,.7031,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.,1.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.999,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.2829,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,4e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .7315,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.,1.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.999,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2545,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,7e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.7968,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.,1.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .999,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.1922,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0013,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.853,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.,1.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.998,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.14,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,.0016,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .876,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.,.999,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.997,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.121,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.,0.,0.,0.,0.,0.,.0016,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.88,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.,.998,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.119,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.,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.,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.,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.,0.,0.,0.,0.,
- 0.,.169,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.999,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.,.999,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.833,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,8e-4,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.,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.,
- 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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0011,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.868,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.,.999,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.136,.143,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.,
- .139,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,.134,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.999,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.,.999,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .999,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.999,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.875,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.0012,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 2e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.7683,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.,.999,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.998,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.998,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.997,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.997,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.996,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2618,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,2e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- .7294,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.,1.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,.999,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.2877,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,1e-4,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.7029,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.,.999,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.998,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,.3152,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0. };
-
- integer i__;
- doublereal wli[15], wls[15];
-
-
-/* created: J. Nieke 19/Nov/2002 */
-/* MERIS response function values */
-/* are based on version (ESA sep 2001) */
-/* SChar_MERIS_Band_Shape_files */
-/* Values are interpolated to 2.5nm wavelenght intervals */
-
-
-/*< real s,wlinf,wlsup
>*/
-/*< common /sixs_ffu/ s(1501),wlinf,wlsup
>*/
-/*< real sr(15,1501),wli(15),wls(15)
>*/
-/*< integer iwa,l,i
>*/
-/* band 1 of MERIS (cw=412nm bw=9.98nm) */
-/*< >*/
-/* band 2 of MERIS (cw=442nm bw=9.97nm) */
-/*< >*/
-/* band 3 of MERIS (cw=489nm bw=9.97nm) */
-/*< >*/
-/* band 4 of MERIS (cw=509nm bw=9.97nm) */
-/*< >*/
-/* band 5 of MERIS (cw=559nm bw=9.97nm) */
-/*< >*/
-/* band 6 of MERIS (cw=619nm bw=9.97nm) */
-/*< >*/
-/* band 7 of MERIS (cw=664nm bw=9.98nm) */
-/*< >*/
-/* band 8 of MERIS (cw=681nm bw=7.49nm) */
-/*< >*/
-/* band 9 of MERIS (cw=708nm bw=9.99nm) */
-/*< >*/
-/* band 10 of MERIS (cw=753nm bw=7.49nm) */
-/*< >*/
-/* band 11 of MERIS (cw=760nm bw=3.74nm) */
-/*< >*/
-/* band 12 of MERIS (cw=778nm bw=1.50nm) */
-/*< >*/
-/* band 13 of MERIS (cw=865nm bw=2.00nm) */
-/*< >*/
-/* band 14 of MERIS (cw=885nm bw=1.00nm) */
-/*< >*/
-/* band 15 of MERIS (cw=900nm bw=1.00nm) */
-/*< >*/
-/* channel 1 lower and upper wavelength */
-/*< wli(1)=0.4025
>*/
- wli[0] = .4025;
-/*< wls(1)=0.42
>*/
- wls[0] = .42;
-/* channel 2 lower and upper wavelength */
-/*< wli(2)=0.4325
>*/
- wli[1] = .4325;
-/*< wls(2)=0.45
>*/
- wls[1] = .45;
-/* channel 3 lower and upper wavelength */
-/*< wli(3)=0.48
>*/
- wli[2] = .48;
-/*< wls(3)=0.4975
>*/
- wls[2] = .4975;
-/* channel 4 lower and upper wavelength */
-/*< wli(4)=0.5
>*/
- wli[3] = .5;
-/*< wls(4)=0.5175
>*/
- wls[3] = .5175;
-/* channel 5 lower and upper wavelength */
-/*< wli(5)=0.55
>*/
- wli[4] = .55;
-/*< wls(5)=0.5675
>*/
- wls[4] = .5675;
-/* channel 6 lower and upper wavelength */
-/*< wli(6)=0.61
>*/
- wli[5] = .61;
-/*< wls(6)=0.6275
>*/
- wls[5] = .6275;
-/* channel 7 lower and upper wavelength */
-/*< wli(7)=0.655
>*/
- wli[6] = .655;
-/*< wls(7)=0.6725
>*/
- wls[6] = .6725;
-/* channel 8 lower and upper wavelength */
-/*< wli(8)=0.6725
>*/
- wli[7] = .6725;
-/*< wls(8)=0.6875
>*/
- wls[7] = .6875;
-/* channel 9 lower and upper wavelength */
-/*< wli(9)=0.7
>*/
- wli[8] = .7;
-/*< wls(9)=0.7175
>*/
- wls[8] = .7175;
-/* channel 10 lower and upper wavelength */
-/*< wli(10)=0.7450
>*/
- wli[9] = .745;
-/*< wls(10)=0.76
>*/
- wls[9] = .76;
-/* channel 11 lower and upper wavelength */
-/*< wli(11)=0.755
>*/
- wli[10] = .755;
-/*< wls(11)=0.765
>*/
- wls[10] = .765;
-/* channel 12 lower and upper wavelength */
-/*< wli(12)=0.7675
>*/
- wli[11] = .7675;
-/*< wls(12)=0.79
>*/
- wls[11] = .79;
-/* channel 13 lower and upper wavelength */
-/*< wli(13)=0.85
>*/
- wli[12] = .85;
-/*< wls(13)=0.8775
>*/
- wls[12] = .8775;
-/* channel 14 lower and upper wavelength */
-/*< wli(14)=0.875
>*/
- wli[13] = .875;
-/*< wls(14)=0.8925
>*/
- wls[13] = .8925;
-/* channel 15 lower and upper wavelength */
-/*< wli(15)=0.89
>*/
- wli[14] = .89;
-/*< wls(15)=0.9075
>*/
- wls[14] = .9075;
-/*< do 1 i=1,1501
>*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< s(i)=sr(iwa,i)
>*/
- sixs_ffu__1.s[i__ - 1] = sr[*iwa + i__ * 15 - 16];
-/*< 1 continue
>*/
-/* L1: */
- }
-/*< wlinf=wli(iwa)
>*/
- sixs_ffu__1.wlinf = wli[*iwa - 1];
-/*< wlsup=wls(iwa)
>*/
- sixs_ffu__1.wlsup = wls[*iwa - 1];
-/*< return
>*/
- return 0;
-/*< end
>*/
-} /* meris_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MERIS.f b/Modules/ThirdParty/6S/src/6SV1.0B/MERIS.f
deleted file mode 100644
index ed1f143..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MERIS.f
+++ /dev/null
@@ -1,133 +0,0 @@
- subroutine meris(iwa)
-c
-c created: J. Nieke 19/Nov/2002
-c MERIS response function values
-c are based on version (ESA sep 2001)
-c SChar_MERIS_Band_Shape_files
-c Values are interpolated to 2.5nm wavelenght intervals
-c
-c
- real s,wlinf,wlsup
- common /sixs_ffu/ s(1501),wlinf,wlsup
- real sr(15,1501),wli(15),wls(15)
- integer iwa,l,i
-c band 1 of MERIS (cw=412nm bw=9.98nm)
- DATA (SR(1,L),L=1,1501)/ 61*0.,
- A .0000, .0002, .6080, 1.0000, 1.0000, 1.0000, .3829, .0000,
- A1432*0./
-
-c band 2 of MERIS (cw=442nm bw=9.97nm)
- DATA (SR(2,L),L=1,1501)/ 73*0.,
- A .0000, .0002, .6396, 1.0000, 1.0000, .9990, .3484, .0000,
- A1420*0./
-c band 3 of MERIS (cw=489nm bw=9.97nm)
- DATA (SR(3,L),L=1,1501)/ 92*0.,
- A .0000, .0003, .7031, 1.0000, 1.0000, .9990, .2829, .0000,
- A1401*0./
-c band 4 of MERIS (cw=509nm bw=9.97nm)
- DATA (SR(4,L),L=1,1501)/ 100*0.,
- A .0000, .0004, .7315, 1.0000, 1.0000, .9990, .2545, .0000,
- A1393*0./
-c band 5 of MERIS (cw=559nm bw=9.97nm)
- DATA (SR(5,L),L=1,1501)/ 120*0.,
- A .0000, .0007, .7968, 1.0000, 1.0000, .9990, .1922, .0000,
- A1373*0./
-c band 6 of MERIS (cw=619nm bw=9.97nm)
- DATA (SR(6,L),L=1,1501)/ 144*0.,
- A .0000, .0013, .8530, 1.0000, 1.0000, .9980, .1400, .0000,
- A1349*0./
-c band 7 of MERIS (cw=664nm bw=9.98nm)
- DATA (SR(7,L),L=1,1501)/ 162*0.,
- A .0000, .0016, .8760, 1.0000, .9990, .9970, .1210, .0000,
- A1331*0./
-c band 8 of MERIS (cw=681nm bw=7.49nm)
- DATA (SR(8,L),L=1,1501)/ 169*0.,
- A .0000, .0016, .8800, 1.0000, .9980, .1190, .0000,
- A1325*0./
-c band 9 of MERIS (cw=708nm bw=9.99nm)
- DATA (SR(9,L),L=1,1501)/ 180*0.,
- A .0000, .1690, .9990, 1.0000, .9990, .8330, .0008, .0000,
- A1313*0./
-c band 10 of MERIS (cw=753nm bw=7.49nm)
- DATA (SR(10,L),L=1,1501)/ 198*0.,
- A .0000, .0011, .8680, 1.0000, .9990, .1360, .0000,
- A1296*0./
-c band 11 of MERIS (cw=760nm bw=3.74nm)
- DATA (SR(11,L),L=1,1501)/ 202*0.,
- A .0000, .1430, 1.0000, .1390, .0000,
- A1294*0./
-c band 12 of MERIS (cw=778nm bw=1.50nm)
- DATA (SR(12,L),L=1,1501)/ 207*0.,
- A .0000, .1340, .9990, 1.0000, .9990, .9990, .9990, .8750,
- A .0012, .0000,
- A1284*0./
-c band 13 of MERIS (cw=865nm bw=2.00nm)
- DATA (SR(13,L),L=1,1501)/ 240*0.,
- A .0000, .0002, .7683, 1.0000, .9990, .9980, .9980, .9970,
- A .9970, .9960, .2618, .0000,
- A1249*0./
-c band 14 of MERIS (cw=885nm bw=1.00nm)
- DATA (SR(14,L),L=1,1501)/ 250*0.,
- A .0000, .0002, .7294, 1.0000, 1.0000, .9990, .2877, .0000,
- A1243*0./
-c band 15 of MERIS (cw=900nm bw=1.00nm)
- DATA (SR(15,L),L=1,1501)/ 256*0.,
- A .0000, .0001, .7029, 1.0000, .9990, .9980, .3152, .0000,
- A1237*0./
-
-c channel 1 lower and upper wavelength
- wli(1)=0.4025
- wls(1)=0.42
-c channel 2 lower and upper wavelength
- wli(2)=0.4325
- wls(2)=0.45
-c channel 3 lower and upper wavelength
- wli(3)=0.48
- wls(3)=0.4975
-c channel 4 lower and upper wavelength
- wli(4)=0.5
- wls(4)=0.5175
-c channel 5 lower and upper wavelength
- wli(5)=0.55
- wls(5)=0.5675
-c channel 6 lower and upper wavelength
- wli(6)=0.61
- wls(6)=0.6275
-c channel 7 lower and upper wavelength
- wli(7)=0.655
- wls(7)=0.6725
-c channel 8 lower and upper wavelength
- wli(8)=0.6725
- wls(8)=0.6875
-c channel 9 lower and upper wavelength
- wli(9)=0.7
- wls(9)=0.7175
-c channel 10 lower and upper wavelength
- wli(10)=0.7450
- wls(10)=0.76
-c channel 11 lower and upper wavelength
- wli(11)=0.755
- wls(11)=0.765
-c channel 12 lower and upper wavelength
- wli(12)=0.7675
- wls(12)=0.79
-c channel 13 lower and upper wavelength
- wli(13)=0.85
- wls(13)=0.8775
-c channel 14 lower and upper wavelength
- wli(14)=0.875
- wls(14)=0.8925
-c channel 15 lower and upper wavelength
- wli(15)=0.89
- wls(15)=0.9075
-
-
- do 1 i=1,1501
- s(i)=sr(iwa,i)
- 1 continue
-
- wlinf=wli(iwa)
- wlsup=wls(iwa)
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MERIS.h b/Modules/ThirdParty/6S/src/6SV1.0B/MERIS.h
deleted file mode 100644
index f6bb4b6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MERIS.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_meris_(
- otb_6s_integer *iwa
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METEO.P b/Modules/ThirdParty/6S/src/6SV1.0B/METEO.P
deleted file mode 100644
index dc63db6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METEO.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int meteo_();
-/* comlen sixs_ffu__ 12024 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METEO.c b/Modules/ThirdParty/6S/src/6SV1.0B/METEO.c
deleted file mode 100644
index 672571f..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METEO.c
+++ /dev/null
@@ -1,132 +0,0 @@
-/* METEO.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine meteo >*/
-/* Subroutine */ int meteo_()
-{
- /* Initialized data */
-
- static doublereal sr[1501] = { 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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,.01,.01,.01,.02,.02,.02,.02,.02,.02,.03,.03,
- .04,.04,.04,.05,.05,.05,.06,.06,.07,.07,.07,.08,.08,.09,.09,.1,.1,
- .1,.11,.11,.12,.12,.12,.13,.14,.14,.15,.15,.16,.16,.17,.17,.18,
- .18,.19,.2,.2,.21,.21,.22,.23,.24,.24,.25,.26,.27,.28,.28,.29,.3,
- .3,.31,.32,.33,.34,.35,.35,.36,.37,.38,.39,.4,.4,.41,.42,.43,.44,
- .45,.46,.48,.49,.5,.51,.52,.53,.55,.56,.57,.58,.6,.61,.62,.63,.64,
- .65,.65,.66,.67,.67,.68,.69,.69,.7,.71,.71,.72,.73,.73,.74,.76,
- .77,.78,.78,.79,.8,.81,.82,.83,.84,.85,.86,.87,.88,.89,.89,.91,
- .92,.93,.94,.95,.96,.96,.97,.98,.98,.99,.99,.99,.99,1.,1.,1.,1.,
- 1.,1.,1.,1.,1.,1.,.99,.99,.99,.99,.98,.98,.98,.98,.98,.97,.97,.97,
- .97,.97,.97,.97,.96,.96,.96,.96,.96,.96,.96,.96,.96,.96,.95,.95,
- .95,.94,.93,.93,.92,.92,.91,.9,.89,.89,.88,.88,.87,.86,.86,.85,
- .85,.84,.84,.83,.82,.82,.81,.8,.8,.79,.79,.78,.77,.77,.76,.76,.75,
- .75,.74,.74,.74,.73,.73,.72,.71,.7,.68,.67,.65,.64,.63,.62,.61,.6,
- .59,.58,.57,.56,.55,.54,.53,.52,.51,.5,.49,.49,.48,.47,.46,.45,
- .43,.42,.41,.4,.39,.38,.37,.36,.35,.34,.33,.31,.3,.29,.28,.28,.27,
- .25,.24,.23,.22,.21,.2,.19,.18,.17,.16,.15,.14,.13,.12,.11,.11,.1,
- .09,.08,.08,.08,.07,.06,.06,.05,.05,.05,.04,.04,.03,.03,.02,.02,
- .01,.01,.01,.01,.01,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.
- };
-
- integer i__;
-
-/*< common /sixs_ffu/ s(1501),wlinf,wlsup >*/
-/*< real sr(1501) >*/
-/*< real s,wlinf,wlsup >*/
-/*< integer l,i >*/
-
-/* spectral band of meteosat */
-
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< wlinf=0.3499999 >*/
- sixs_ffu__1.wlinf = .3499999;
-/*< wlsup=1.11 >*/
- sixs_ffu__1.wlsup = 1.11;
-/*< do 1 i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< s(i)=sr(i) >*/
- sixs_ffu__1.s[i__ - 1] = sr[i__ - 1];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* meteo_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METEO.f b/Modules/ThirdParty/6S/src/6SV1.0B/METEO.f
deleted file mode 100644
index b68643c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METEO.f
+++ /dev/null
@@ -1,65 +0,0 @@
- subroutine meteo
- common /sixs_ffu/ s(1501),wlinf,wlsup
- real sr(1501)
- real s,wlinf,wlsup
- integer l,i
-c
-c spectral band of meteosat
-c
- data (sr(l),l=1,110)/ 40*0.,
- a .00, .00, .00, .01, .01, .01, .02,
- a .02, .02, .02, .02, .02, .03, .03,
- a .04, .04, .04, .05, .05, .05, .06,
- a .06, .07, .07, .07, .08, .08, .09,
- a .09, .10, .10, .10, .11, .11, .12,
- a .12, .12, .13, .14, .14, .15, .15,
- a .16, .16, .17, .17, .18, .18, .19,
- a .20, .20, .21, .21, .22, .23, .24,
- a .24, .25, .26, .27, .28, .28, .29,
- a .30, .30, .31, .32, .33, .34, .35/
- data (sr(l),l=111,180)/
- a .35, .36, .37, .38, .39, .40, .40,
- a .41, .42, .43, .44, .45, .46, .48,
- a .49, .50, .51, .52, .53, .55, .56,
- a .57, .58, .60, .61, .62, .63, .64,
- a .65, .65, .66, .67, .67, .68, .69,
- a .69, .70, .71, .71, .72, .73, .73,
- a .74, .76, .77, .78, .78, .79, .80,
- a .81, .82, .83, .84, .85, .86, .87,
- a .88, .89, .89, .91, .92, .93, .94,
- a .95, .96, .96, .97, .98, .98, .99/
- data (sr(l),l=181,250)/
- a .99, .99, .99, 1.00, 1.00, 1.00, 1.00,
- a 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, .99,
- a .99, .99, .99, .98, .98, .98, .98,
- a .98, .97, .97, .97, .97, .97, .97,
- a .97, .96, .96, .96, .96, .96, .96,
- a .96, .96, .96, .96, .95, .95, .95,
- a .94, .93, .93, .92, .92, .91, .90,
- a .89, .89, .88, .88, .87, .86, .86,
- a .85, .85, .84, .84, .83, .82, .82,
- a .81, .80, .80, .79, .79, .78, .77/
- data (sr(l),l=251,1501)/
- a .77, .76, .76, .75, .75, .74, .74,
- a .74, .73, .73, .72, .71, .70, .68,
- a .67, .65, .64, .63, .62, .61, .60,
- a .59, .58, .57, .56, .55, .54, .53,
- a .52, .51, .50, .49, .49, .48, .47,
- a .46, .45, .43, .42, .41, .40, .39,
- a .38, .37, .36, .35, .34, .33, .31,
- a .30, .29, .28, .28, .27, .25, .24,
- a .23, .22, .21, .20, .19, .18, .17,
- a .16, .15, .14, .13, .12, .11, .11,
- a .10, .09, .08, .08, .08, .07, .06,
- a .06, .05, .05, .05, .04, .04, .03,
- a .03, .02, .02, .01, .01, .01, .01,
- a .01, .00, .00, .00,
- a1156*0./
- wlinf=0.3499999
- wlsup=1.11
- do 1 i=1,1501
- s(i)=sr(i)
- 1 continue
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METEO.h b/Modules/ThirdParty/6S/src/6SV1.0B/METEO.h
deleted file mode 100644
index 998b849..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METEO.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_meteo_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH1.P b/Modules/ThirdParty/6S/src/6SV1.0B/METH1.P
deleted file mode 100644
index 3ea0065..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH1.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int meth1_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH1.c b/Modules/ThirdParty/6S/src/6SV1.0B/METH1.c
deleted file mode 100644
index 130098e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH1.c
+++ /dev/null
@@ -1,300 +0,0 @@
-/* METH1.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine meth1(a,inu) >*/
-/* Subroutine */ int meth1_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 1.4454,.47807,.0052823,
- -3.0056e-5,.002903,-2.686e-5,2500.,2510.,8.7736,.49348,3.8511e-4,
- -6.0533e-6,1.0891e-4,-9.3895e-6,2510.,2520.,5.7188,.51082,
- 3.239e-4,-7.2399e-6,1.6424e-4,-1.0608e-5,2520.,2530.,4.5159,
- .73333,5.5152e-4,-2.5526e-6,2.6319e-4,-1.1149e-5,2530.,2540.,
- 6.2089,.57459,-5.1671e-5,-3.2924e-6,-.0012056,-7.7167e-6,2540.,
- 2550.,9.8841,.5111,-.0015575,1.7182e-6,-.001203,-3.8007e-6,2550.,
- 2560.,7.6169,.80719,1.2985e-4,-5.7517e-6,-.0011789,-6.7688e-6,
- 2560.,2570.,7.3766,.91538,-6.9626e-4,-9.8403e-8,-.0010951,
- -5.6422e-6,2570.,2580.,7.9669,1.0249,-.0020553,6.0631e-6,
- -.0025043,1.2199e-6,2580.,2590.,12.942,1.8227,.0016813,-1.019e-5,
- 8.4177e-4,-1.3848e-5,2590.,2600.,11.671,.93909,-.0023388,
- 7.1737e-6,-.0030848,1.0079e-5,2600.,2610.,7.682,.22382,-.0036797,
- 1.7419e-5,-.002062,2.0955e-5,2610.,2620.,5.628,.56037,-.0012398,
- 1.026e-5,-.001454,8.1367e-6,2620.,2630.,14.127,1.2843,7.6229e-5,
- 5.7331e-6,-6.8637e-4,-4.6206e-6,2630.,2640.,9.0425,1.3886,
- .0042412,2.3021e-6,.0040176,-2.0017e-5,2640.,2650.,10.155,.90252,
- 9.0385e-6,1.3215e-5,-4.9853e-4,-1.2678e-6,2650.,2660.,10.154,
- .79137,.0031844,-3.2869e-6,.0011834,-1.1313e-5,2660.,2670.,11.725,
- .70879,-.0014287,1.8146e-6,-.0025033,-1.0406e-7,2670.,2680.,
- 14.948,.92692,.0062395,-3.3167e-5,.0031727,-2.6064e-5,2680.,2690.,
- 26.279,.87829,.0028361,-1.4791e-5,.0014018,-1.4682e-5,2690.,2700.,
- 7.1745,.92595,.0030055,-2.7951e-6,.0045235,-2.2596e-5,2700.,2710.,
- 27.757,.81447,.0030565,-1.9569e-5,.0025866,-2.0025e-5,2710.,2720.,
- 36.518,.82512,.0018262,-1.5755e-5,.0012027,-1.7464e-5,2720.,2730.,
- 7.1564,.77634,.0051047,-2.7255e-5,.003528,-2.6912e-5,2730.,2740.,
- 53.441,.64417,-7.6181e-5,-1.012e-5,-8.2299e-4,-9.7201e-6,2740.,
- 2750.,38.926,.7434,-6.9195e-4,-4.3135e-6,2.1091e-4,-6.9939e-6,
- 2750.,2760.,15.709,1.3287,.0030102,-4.8796e-6,.0052525,-2.2331e-5,
- 2760.,2770.,54.733,1.246,-.0010987,5.2563e-6,.002214,-1.2844e-5,
- 2770.,2780.,47.55,1.5791,8.4509e-4,-2.0192e-6,.0011472,-1.6086e-5,
- 2780.,2790.,66.52,1.2817,-2.9084e-4,-6.0279e-6,-.0013817,
- -7.9406e-6,2790.,2800.,54.178,.80208,-.0020375,1.3886e-6,-.002404,
- 9.4209e-6,2800.,2810.,53.2,.65974,-7.1708e-4,8.8569e-6,-2.5373e-4,
- 1.13e-5,2810.,2820.,148.4,.84587,-.0016143,2.0628e-6,-9.7561e-4,
- 9.6287e-6,2820.,2830.,45.29,1.3591,-2.3074e-4,1.8732e-5,.0020323,
- 6.678e-6,2830.,2840.,32.141,1.1794,7.5732e-4,5.0043e-5,.005454,
- 1.3952e-6,2840.,2850.,52.919,.85346,.0010685,4.9698e-5,.0029632,
- 1.729e-5,2850.,2860.,92.855,1.2724,.0034021,3.1892e-5,.0020937,
- 7.5591e-6,2860.,2870.,115.15,1.6724,.0068873,1.0637e-5,.0045477,
- -1.5654e-5,2870.,2880.,149.81,1.2641,.0081325,-1.1177e-6,.0053865,
- -1.8572e-5,2880.,2890.,225.46,.83931,.011197,-4.4342e-5,.0080886,
- -3.4016e-5,2890.,2900.,337.19,.68846,.0074267,-2.7002e-5,.0051288,
- -1.7032e-5,2900.,2910.,593.38,.59397,.0062712,-3.0983e-5,.0039217,
- -1.5025e-5,2910.,2920.,814.37,.44567,.0050972,-3.2548e-5,.0037255,
- -1.8409e-5,2920.,2930.,1008.,.42373,.002722,-2.2438e-5,.001776,
- -8.5011e-6,2930.,2940.,1273.8,.39048,9.1833e-4,-1.5902e-5,
- 3.8752e-4,-6.11e-6,2940.,2950.,1822.6,.32354,-8.3613e-4,
- -9.1286e-6,-.0012748,6.4576e-7,2950.,2960.,1144.9,.28404,
- -.0022237,-3.1413e-6,-.0015533,4e-6,2960.,2970.,1422.2,.24694,
- -.0034946,2.0028e-6,-.0022609,9.6681e-6,2970.,2980.,1129.9,.25225,
- -.0043236,6.0179e-6,-.0023072,8.9383e-6,2980.,2990.,382.43,.28365,
- -.0047369,1.1124e-5,.0018248,1.9257e-5,2990.,3e3,231.12,2.8616,
- .0085402,4.3691e-5,.016112,-4.2673e-5,3e3,3010.,12795.,1.9671,
- -2.1206e-4,-1.4984e-6,-3.9307e-4,-5.8544e-6,3010.,3020.,578.69,
- .79629,-.0043645,1.3898e-5,7.3408e-4,-4.5626e-6,3020.,3030.,
- 434.57,.096576,-.0055811,1.294e-5,.0011172,2.1736e-5,3030.,3040.,
- 899.49,.11536,-.0052201,1.0059e-5,-.0015874,2.2277e-5,3040.,3050.,
- 2131.4,.12202,-.0045842,6.3207e-6,-.003267,2.194e-5,3050.,3060.,
- 2451.4,.19437,-.0035989,2.0635e-6,-.0037611,1.5519e-5,3060.,3070.,
- 1860.9,.31324,-.0022827,-2.6816e-6,-.0014644,8.4665e-6,3070.,
- 3080.,2857.1,.3194,-8.3645e-4,-9.0192e-6,-7.6302e-4,2.417e-6,
- 3080.,3090.,1935.6,.28235,9.2008e-4,-1.5863e-5,.0010109,
- -1.3517e-6,3090.,3100.,1498.4,.32994,.0028983,-2.3966e-5,.0020895,
- -9.8936e-6,3100.,3110.,1250.8,.36564,.005137,-3.2908e-5,.0037408,
- -1.8191e-5,3110.,3120.,818.19,.45356,.0075913,-4.2727e-5,.0055871,
- -2.645e-5,3120.,3130.,483.02,.62289,.010573,-5.4032e-5,.0075195,
- -3.888e-5,3130.,3140.,405.16,1.0372,.01439,-6.8744e-5,.011121,
- -5.8648e-5,3140.,3150.,80.532,.8961,.01798,-6.9816e-5,.012298,
- -5.1675e-5,3150.,3160.,41.171,.85486,.021624,-8.2706e-5,.015717,
- -6.4082e-5,3160.,3170.,18.087,.82972,.024369,-8.2555e-5,.018128,
- -6.8246e-5,3170.,3180.,7.8303,.7783,.024083,-4.5258e-5,.018125,
- -5.3074e-5,3180.,3190.,5.5218,1.2503,.023406,-1.2671e-6,.019648,
- -4.075e-5,3190.,3200.,.69216,.51644,.01424,-8.731e-6,.01086,
- -3.2732e-5,3200.,3210.,.30939,.2177,.0082095,-4.4565e-5,.0058697,
- -4.1343e-5,3210.,3220.,.22568,.37985,.012091,-6.0525e-5,.0090838,
- -5.5067e-5,3220.,3230.,.18766,.2799,.01283,-6.1005e-5,.010043,
- -5.7718e-5,3230.,3240.,.063205,.18476,.014107,-6.7485e-5,.011333,
- -6.3191e-5,3240.,3250.,.028821,.059172,.014986,-7.1903e-5,.012123,
- -6.7129e-5,3250.,3260.,0.,0.,0.,0.,0.,0.,3260.,3270.,0.,0.,0.,0.,
- 0.,0.,3270.,3280.,0.,0.,0.,0.,0.,0.,3280.,3290.,0.,0.,0.,0.,0.,0.,
- 3290.,3300.,0.,0.,0.,0.,0.,0.,3300.,3310.,0.,0.,0.,0.,0.,0.,3310.,
- 3320.,0.,0.,0.,0.,0.,0.,3320.,3330.,0.,0.,0.,0.,0.,0.,3330.,3340.,
- 0.,0.,0.,0.,0.,0.,3340.,3350.,0.,0.,0.,0.,0.,0.,3350.,3360.,0.,0.,
- 0.,0.,0.,0.,3360.,3370.,0.,0.,0.,0.,0.,0.,3370.,3380.,0.,0.,0.,0.,
- 0.,0.,3380.,3390.,0.,0.,0.,0.,0.,0.,3390.,3400.,0.,0.,0.,0.,0.,0.,
- 3400.,3410.,0.,0.,0.,0.,0.,0.,3410.,3420.,0.,0.,0.,0.,0.,0.,3420.,
- 3430.,0.,0.,0.,0.,0.,0.,3430.,3440.,0.,0.,0.,0.,0.,0.,3440.,3450.,
- 0.,0.,0.,0.,0.,0.,3450.,3460.,0.,0.,0.,0.,0.,0.,3460.,3470.,0.,0.,
- 0.,0.,0.,0.,3470.,3480.,0.,0.,0.,0.,0.,0.,3480.,3490.,0.,0.,0.,0.,
- 0.,0.,3490.,3500.,0.,0.,0.,0.,0.,0.,3500.,3510.,0.,0.,0.,0.,0.,0.,
- 3510.,3520.,0.,0.,0.,0.,0.,0.,3520.,3530.,0.,0.,0.,0.,0.,0.,3530.,
- 3540.,0.,0.,0.,0.,0.,0.,3540.,3550.,0.,0.,0.,0.,0.,0.,3550.,3560.,
- 0.,0.,0.,0.,0.,0.,3560.,3570.,0.,0.,0.,0.,0.,0.,3570.,3580.,0.,0.,
- 0.,0.,0.,0.,3580.,3590.,0.,0.,0.,0.,0.,0.,3590.,3600.,0.,0.,0.,0.,
- 0.,0.,3600.,3610.,0.,0.,0.,0.,0.,0.,3610.,3620.,0.,0.,0.,0.,0.,0.,
- 3620.,3630.,0.,0.,0.,0.,0.,0.,3630.,3640.,0.,0.,0.,0.,0.,0.,3640.,
- 3650.,0.,0.,0.,0.,0.,0.,3650.,3660.,0.,0.,0.,0.,0.,0.,3660.,3670.,
- 0.,0.,0.,0.,0.,0.,3670.,3680.,0.,0.,0.,0.,0.,0.,3680.,3690.,0.,0.,
- 0.,0.,0.,0.,3690.,3700.,.014928,.049339,.0010215,-1.7301e-5,
- -.0020195,-1.1177e-5,3700.,3710.,.086139,.13757,.0010215,
- -1.7301e-5,-.0020195,-1.1177e-5,3710.,3720.,.067083,.12495,
- .0010215,-1.7301e-5,-.0020195,-1.1177e-5,3720.,3730.,.020862,
- .049275,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,3730.,3740.,
- .067784,.11899,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,3740.,
- 3750.,.15027,.18565,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,
- 3750.,3760.,.31581,.26221,.0010215,-1.7301e-5,-.0020195,
- -1.1177e-5,3760.,3770.,.48086,.2992,.0010215,-1.7301e-5,-.0020195,
- -1.1177e-5,3770.,3780.,.59376,.29431,.0010215,-1.7301e-5,
- -.0020195,-1.1177e-5,3780.,3790.,1.8375,.36994,.0010215,
- -1.7301e-5,-.0020195,-1.1177e-5,3790.,3800.,2.5355,.40322,
- .0010215,-1.7301e-5,-.0020195,-1.1177e-5,3800.,3810.,2.7002,
- .43597,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,3810.,3820.,
- 6.1651,.55369,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,3820.,
- 3830.,4.0461,.57732,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,
- 3830.,3840.,6.3365,.67727,.0010215,-1.7301e-5,-.0020195,
- -1.1177e-5,3840.,3850.,9.3866,.95498,.0010215,-1.7301e-5,
- -.0020195,-1.1177e-5,3850.,3860.,20.329,1.0079,.0010215,
- -1.7301e-5,-.0020195,-1.1177e-5,3860.,3870.,3.8488,.60704,
- -.0030055,4.6922e-6,-.0036436,-2.5739e-6,3870.,3880.,11.688,
- .69118,-.0033148,3.0917e-6,-.0045244,8.2466e-7,3880.,3890.,15.787,
- .75496,-3.761e-4,-9.5219e-6,-.0028616,-7.036e-6,3890.,3900.,
- 12.339,1.2573,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,3900.,
- 3910.,4.4035,1.1712,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,
- 3910.,3920.,1.452,1.1029,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,
- 3920.,3930.,.94805,.51649,.0010215,-1.7301e-5,-.0020195,
- -1.1177e-5,3930.,3940.,1.3512,.57924,.0010215,-1.7301e-5,
- -.0020195,-1.1177e-5,3940.,3950.,1.2982,.5633,.0010215,-1.7301e-5,
- -.0020195,-1.1177e-5,3950.,3960.,1.1898,.7034,.0010215,-1.7301e-5,
- -.0020195,-1.1177e-5,3960.,3970.,1.2669,.70992,.0010215,
- -1.7301e-5,-.0020195,-1.1177e-5,3970.,3980.,1.1486,.75703,
- .0010215,-1.7301e-5,-.0020195,-1.1177e-5,3980.,3990.,.94294,
- .67691,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,3990.,4e3,1.1722,
- .71803,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,4e3,4010.,1.6614,
- 1.1434,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,4010.,4020.,
- 1.3169,.99418,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,4020.,
- 4030.,1.6675,1.5586,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,
- 4030.,4040.,2.2754,1.5263,.0010215,-1.7301e-5,-.0020195,
- -1.1177e-5,4040.,4050.,3.3696,1.614,.0010215,-1.7301e-5,-.0020195,
- -1.1177e-5,4050.,4060.,4.4078,1.7299,.0010215,-1.7301e-5,
- -.0020195,-1.1177e-5,4060.,4070.,6.4093,1.6235,.0010215,
- -1.7301e-5,-.0020195,-1.1177e-5,4070.,4080.,8.8553,1.445,.0010215,
- -1.7301e-5,-.0020195,-1.1177e-5,4080.,4090.,8.5641,1.5633,
- .0010215,-1.7301e-5,-.0020195,-1.1177e-5,4090.,4100.,16.356,
- 1.9485,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,4100.,4110.,
- 15.552,1.5099,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,4110.,
- 4120.,23.823,2.7996,.0010215,-1.7301e-5,-.0020195,-1.1177e-5,
- 4120.,4130.,18.843,1.4075,.0058105,-2.6748e-5,6.4011e-4,
- -1.7934e-5,4130.,4140.,7.1651,.45187,.0070593,-2.9644e-5,.0039603,
- -2.9724e-5,4140.,4150.,37.171,.44157,.0068418,-3.8862e-5,.0036076,
- -3.2195e-5,4150.,4160.,38.158,.32296,.0043474,-2.9319e-5,.00185,
- -2.5238e-5,4160.,4170.,65.621,.45796,.0022774,-2.0417e-5,8.223e-5,
- -1.7919e-5,4170.,4180.,79.347,.33603,-8.4769e-4,-8.4263e-6,
- -.0034772,-3.6512e-6,4180.,4190.,65.038,.4819,-.0014827,
- -1.4444e-6,-.0022137,-5.6866e-6,4190.,4200.,86.982,.77363,
- -7.1575e-4,2.9104e-7,-.0017062,-5.7132e-6,4200.,4210.,309.82,
- 1.6801,-8.9037e-4,-1.3593e-6,-.0021551,-4.6701e-6,4210.,4220.,
- 81.077,.588,-.0012356,-7.661e-7,-.0026793,-4.4252e-6,4220.,4230.,
- 89.975,.39899,-.0039748,5.6557e-6,-.0048805,4.5246e-6,4230.,4240.,
- 148.96,.80968,-.002216,-1.5823e-6,-.0039631,-2.9253e-7,4240.,
- 4250.,155.94,1.2514,4.5507e-4,-8.2566e-6,-.0014417,-8.5226e-6,
- 4250.,4260.,100.6,1.2829,.0020903,-1.6069e-5,-3.6824e-4,
- -1.5144e-5,4260.,4270.,117.04,1.5739,5.5952e-4,-2.1104e-6,
- -8.6496e-4,-9.3941e-6,4270.,4280.,72.794,1.549,-6.9688e-4,
- -3.1516e-6,-.0027541,-2.9267e-6,4280.,4290.,55.269,.72223,
- -.0034302,5.1174e-6,-.0052484,7.0355e-6,4290.,4300.,59.856,1.1762,
- -5.5565e-4,2.0772e-7,-.0019773,-5.0966e-6,4300.,4310.,218.17,
- 2.2377,-.0013492,-1.8427e-6,-.0029966,-3.2329e-6,4310.,4320.,
- 10.284,.071846,-.0057696,9.8901e-6,-.0087876,1.5909e-5,4320.,
- 4330.,96.725,.88048,-.0045462,6.1508e-6,-.0069991,9.6787e-6,4330.,
- 4340.,111.26,1.6893,-.002444,5.0136e-7,-.0044752,1.1244e-6,4340.,
- 4350.,102.83,1.8062,-3.868e-4,-5.0005e-6,-.0021043,-6.8556e-6,
- 4350.,4360.,89.61,1.1851,-6.654e-4,2.3556e-6,-.001897,-3.4232e-6,
- 4360.,4370.,66.668,.73012,-.0022103,2.3323e-6,-.0030787,
- -5.6056e-7,4370.,4380.,81.907,.54144,-.0025213,-8.9597e-7,
- -.0047474,1.5149e-6,4380.,4390.,90.229,.49784,-.0023921,
- -1.0143e-6,-.0043793,4.6547e-7,4390.,4400.,82.849,.85204,
- -1.0412e-4,-8.1641e-6,-.0020032,-8.0151e-6,4400.,4410.,44.643,
- .57527,.0023103,-1.4133e-5,8.589e-4,-1.8551e-5,4410.,4420.,69.032,
- .78506,3.9855e-4,-1.0098e-5,-.0010159,-1.0449e-5,4420.,4430.,
- 58.683,.96123,.0024151,-1.8621e-5,9.2225e-4,-1.9737e-5,4430.,
- 4440.,37.181,1.0126,.0046217,-2.9919e-5,.0020589,-2.6447e-5,4440.,
- 4450.,42.607,1.0332,.0047981,-3.088e-5,.0014909,-2.4304e-5,4450.,
- 4460.,33.113,.94984,.0043677,-2.6166e-5,.0012754,-2.2104e-5,4460.,
- 4470.,32.668,.8529,.0023495,-1.622e-5,-4.7342e-4,-1.3768e-5,4470.,
- 4480.,23.216,.8354,.0022982,-7.3604e-6,6.8926e-4,-1.3485e-5,4480.,
- 4490.,13.719,.6592,.0014982,-6.2753e-6,-3.7161e-4,-1.1492e-5,
- 4490.,4500.,16.799,.41229,-7.848e-4,1.7545e-6,-.001216,-7.1041e-6,
- 4500.,4510.,10.085,.14021,-.0037976,6.6108e-6,-.0050669,6.8711e-6,
- 4510.,4520.,3.1009,.087599,-.0043682,1.0148e-5,-.0057555,
- 1.0223e-5,4520.,4530.,18.983,1.5932,.0014519,-9.1544e-6,
- -9.7256e-4,-1.0139e-5,4530.,4540.,63.83,2.0016,-.0011189,
- -2.1104e-6,-.0028048,-3.8802e-6,4540.,4550.,3.1441,.067773,
- -.0040447,1.4471e-5,-.0037016,5.8757e-6,4550.,4560.,2.1782,
- .029389,-.005929,1.0501e-5,-.00897,1.6625e-5,4560.,4570.,4.0086,
- .078646,-.0053825,8.3305e-6,-.0083558,1.4185e-5,4570.,4580.,
- 1.3954,.11032,-.0040678,3.1725e-6,-.0071674,9.4743e-6,4580.,4590.,
- 8.2827,.13524,-.0044855,4.8983e-6,-.0072447,9.9023e-6,4590.,4600.,
- 8.1728,.18866,-.0033132,4.1656e-7,-.0059898,5.0092e-6,4600.,4610.,
- 6.4947,.31086,-.0016438,-5.9966e-6,-.0043498,-1.4967e-6,4610.,
- 4620.,6.3479,.34741,1.5663e-4,-1.2499e-5,-.0026034,-7.9833e-6,
- 4620.,4630.,2.4602,.20366,.0017162,-1.8956e-5,-9.66e-4,-1.4741e-5,
- 4630.,4640.,2.0994,.2061,.004364,-2.6098e-5,.0019605,-2.4954e-5,
- 4640.,4650.,1.6635,.21606,.0038987,-2.7059e-5,.001059,-2.2496e-5,
- 4650.,4660.,.9148,.11908,.0055341,-3.5022e-5,.002491,-2.9056e-5,
- 4660.,4670.,0.,0.,0.,0.,0.,0.,4670.,4680.,0.,0.,0.,0.,0.,0.,4680.,
- 4690.,0.,0.,0.,0.,0.,0.,4690.,4700.,0.,0.,0.,0.,0.,0.,4700.,4710.,
- 0.,0.,0.,0.,0.,0.,4710.,4720.,0.,0.,0.,0.,0.,0.,4720.,4730.,0.,0.,
- 0.,0.,0.,0.,4730.,4740.,0.,0.,0.,0.,0.,0.,4740.,4750.,0.,0.,0.,0.,
- 0.,0.,4750.,4760.,0.,0.,0.,0.,0.,0.,4760.,4770.,0.,0.,0.,0.,0.,0.,
- 4770.,4780.,0.,0.,0.,0.,0.,0.,4780.,4790.,0.,0.,0.,0.,0.,0.,4790.,
- 4800.,0.,0.,0.,0.,0.,0.,4800.,4810.,0.,0.,0.,0.,0.,0.,4810.,4820.,
- 0.,0.,0.,0.,0.,0.,4820.,4830.,0.,0.,0.,0.,0.,0.,4830.,4840.,0.,0.,
- 0.,0.,0.,0.,4840.,4850.,0.,0.,0.,0.,0.,0.,4850.,4860.,0.,0.,0.,0.,
- 0.,0.,4860.,4870.,0.,0.,0.,0.,0.,0.,4870.,4880.,0.,0.,0.,0.,0.,0.,
- 4880.,4890.,0.,0.,0.,0.,0.,0.,4890.,4900.,0.,0.,0.,0.,0.,0.,4900.,
- 4910.,0.,0.,0.,0.,0.,0.,4910.,4920.,0.,0.,0.,0.,0.,0.,4920.,4930.,
- 0.,0.,0.,0.,0.,0.,4930.,4940.,0.,0.,0.,0.,0.,0.,4940.,4950.,0.,0.,
- 0.,0.,0.,0.,4950.,4960.,0.,0.,0.,0.,0.,0.,4960.,4970.,0.,0.,0.,0.,
- 0.,0.,4970.,4980.,0.,0.,0.,0.,0.,0.,4980.,4990.,0.,0.,0.,0.,0.,0.,
- 4990.,5e3,0.,0.,0.,0.,0.,0.,5e3,5010.,0.,0.,0.,0.,0.,0.,5010.,
- 5020.,0.,0.,0.,0.,0.,0.,5020.,5030.,0.,0.,0.,0.,0.,0.,5030.,5040.,
- 0.,0.,0.,0.,0.,0.,5040.,5050.,0.,0.,0.,0.,0.,0.,5050.,5060. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* methane (2500 - 5050 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* meth1_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH1.f b/Modules/ThirdParty/6S/src/6SV1.0B/METH1.f
deleted file mode 100644
index 71a29b6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH1.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine meth1(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c methane (2500 - 5050 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.14454e+01, 0.47807e+00, 0.52823e-02,-0.30056e-04, 0.29030e-02,
- a-0.26860e-04, 0.25000e+04, 0.25100e+04,
- a 0.87736e+01, 0.49348e+00, 0.38511e-03,-0.60533e-05, 0.10891e-03,
- a-0.93895e-05, 0.25100e+04, 0.25200e+04,
- a 0.57188e+01, 0.51082e+00, 0.32390e-03,-0.72399e-05, 0.16424e-03,
- a-0.10608e-04, 0.25200e+04, 0.25300e+04,
- a 0.45159e+01, 0.73333e+00, 0.55152e-03,-0.25526e-05, 0.26319e-03,
- a-0.11149e-04, 0.25300e+04, 0.25400e+04,
- a 0.62089e+01, 0.57459e+00,-0.51671e-04,-0.32924e-05,-0.12056e-02,
- a-0.77167e-05, 0.25400e+04, 0.25500e+04,
- a 0.98841e+01, 0.51110e+00,-0.15575e-02, 0.17182e-05,-0.12030e-02,
- a-0.38007e-05, 0.25500e+04, 0.25600e+04,
- a 0.76169e+01, 0.80719e+00, 0.12985e-03,-0.57517e-05,-0.11789e-02,
- a-0.67688e-05, 0.25600e+04, 0.25700e+04,
- a 0.73766e+01, 0.91538e+00,-0.69626e-03,-0.98403e-07,-0.10951e-02,
- a-0.56422e-05, 0.25700e+04, 0.25800e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.79669e+01, 0.10249e+01,-0.20553e-02, 0.60631e-05,-0.25043e-02,
- a 0.12199e-05, 0.25800e+04, 0.25900e+04,
- a 0.12942e+02, 0.18227e+01, 0.16813e-02,-0.10190e-04, 0.84177e-03,
- a-0.13848e-04, 0.25900e+04, 0.26000e+04,
- a 0.11671e+02, 0.93909e+00,-0.23388e-02, 0.71737e-05,-0.30848e-02,
- a 0.10079e-04, 0.26000e+04, 0.26100e+04,
- a 0.76820e+01, 0.22382e+00,-0.36797e-02, 0.17419e-04,-0.20620e-02,
- a 0.20955e-04, 0.26100e+04, 0.26200e+04,
- a 0.56280e+01, 0.56037e+00,-0.12398e-02, 0.10260e-04,-0.14540e-02,
- a 0.81367e-05, 0.26200e+04, 0.26300e+04,
- a 0.14127e+02, 0.12843e+01, 0.76229e-04, 0.57331e-05,-0.68637e-03,
- a-0.46206e-05, 0.26300e+04, 0.26400e+04,
- a 0.90425e+01, 0.13886e+01, 0.42412e-02, 0.23021e-05, 0.40176e-02,
- a-0.20017e-04, 0.26400e+04, 0.26500e+04,
- a 0.10155e+02, 0.90252e+00, 0.90385e-05, 0.13215e-04,-0.49853e-03,
- a-0.12678e-05, 0.26500e+04, 0.26600e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.10154e+02, 0.79137e+00, 0.31844e-02,-0.32869e-05, 0.11834e-02,
- a-0.11313e-04, 0.26600e+04, 0.26700e+04,
- a 0.11725e+02, 0.70879e+00,-0.14287e-02, 0.18146e-05,-0.25033e-02,
- a-0.10406e-06, 0.26700e+04, 0.26800e+04,
- a 0.14948e+02, 0.92692e+00, 0.62395e-02,-0.33167e-04, 0.31727e-02,
- a-0.26064e-04, 0.26800e+04, 0.26900e+04,
- a 0.26279e+02, 0.87829e+00, 0.28361e-02,-0.14791e-04, 0.14018e-02,
- a-0.14682e-04, 0.26900e+04, 0.27000e+04,
- a 0.71745e+01, 0.92595e+00, 0.30055e-02,-0.27951e-05, 0.45235e-02,
- a-0.22596e-04, 0.27000e+04, 0.27100e+04,
- a 0.27757e+02, 0.81447e+00, 0.30565e-02,-0.19569e-04, 0.25866e-02,
- a-0.20025e-04, 0.27100e+04, 0.27200e+04,
- a 0.36518e+02, 0.82512e+00, 0.18262e-02,-0.15755e-04, 0.12027e-02,
- a-0.17464e-04, 0.27200e+04, 0.27300e+04,
- a 0.71564e+01, 0.77634e+00, 0.51047e-02,-0.27255e-04, 0.35280e-02,
- a-0.26912e-04, 0.27300e+04, 0.27400e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.53441e+02, 0.64417e+00,-0.76181e-04,-0.10120e-04,-0.82299e-03,
- a-0.97201e-05, 0.27400e+04, 0.27500e+04,
- a 0.38926e+02, 0.74340e+00,-0.69195e-03,-0.43135e-05, 0.21091e-03,
- a-0.69939e-05, 0.27500e+04, 0.27600e+04,
- a 0.15709e+02, 0.13287e+01, 0.30102e-02,-0.48796e-05, 0.52525e-02,
- a-0.22331e-04, 0.27600e+04, 0.27700e+04,
- a 0.54733e+02, 0.12460e+01,-0.10987e-02, 0.52563e-05, 0.22140e-02,
- a-0.12844e-04, 0.27700e+04, 0.27800e+04,
- a 0.47550e+02, 0.15791e+01, 0.84509e-03,-0.20192e-05, 0.11472e-02,
- a-0.16086e-04, 0.27800e+04, 0.27900e+04,
- a 0.66520e+02, 0.12817e+01,-0.29084e-03,-0.60279e-05,-0.13817e-02,
- a-0.79406e-05, 0.27900e+04, 0.28000e+04,
- a 0.54178e+02, 0.80208e+00,-0.20375e-02, 0.13886e-05,-0.24040e-02,
- a 0.94209e-05, 0.28000e+04, 0.28100e+04,
- a 0.53200e+02, 0.65974e+00,-0.71708e-03, 0.88569e-05,-0.25373e-03,
- a 0.11300e-04, 0.28100e+04, 0.28200e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.14840e+03, 0.84587e+00,-0.16143e-02, 0.20628e-05,-0.97561e-03,
- a 0.96287e-05, 0.28200e+04, 0.28300e+04,
- a 0.45290e+02, 0.13591e+01,-0.23074e-03, 0.18732e-04, 0.20323e-02,
- a 0.66780e-05, 0.28300e+04, 0.28400e+04,
- a 0.32141e+02, 0.11794e+01, 0.75732e-03, 0.50043e-04, 0.54540e-02,
- a 0.13952e-05, 0.28400e+04, 0.28500e+04,
- a 0.52919e+02, 0.85346e+00, 0.10685e-02, 0.49698e-04, 0.29632e-02,
- a 0.17290e-04, 0.28500e+04, 0.28600e+04,
- a 0.92855e+02, 0.12724e+01, 0.34021e-02, 0.31892e-04, 0.20937e-02,
- a 0.75591e-05, 0.28600e+04, 0.28700e+04,
- a 0.11515e+03, 0.16724e+01, 0.68873e-02, 0.10637e-04, 0.45477e-02,
- a-0.15654e-04, 0.28700e+04, 0.28800e+04,
- a 0.14981e+03, 0.12641e+01, 0.81325e-02,-0.11177e-05, 0.53865e-02,
- a-0.18572e-04, 0.28800e+04, 0.28900e+04,
- a 0.22546e+03, 0.83931e+00, 0.11197e-01,-0.44342e-04, 0.80886e-02,
- a-0.34016e-04, 0.28900e+04, 0.29000e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.33719e+03, 0.68846e+00, 0.74267e-02,-0.27002e-04, 0.51288e-02,
- a-0.17032e-04, 0.29000e+04, 0.29100e+04,
- a 0.59338e+03, 0.59397e+00, 0.62712e-02,-0.30983e-04, 0.39217e-02,
- a-0.15025e-04, 0.29100e+04, 0.29200e+04,
- a 0.81437e+03, 0.44567e+00, 0.50972e-02,-0.32548e-04, 0.37255e-02,
- a-0.18409e-04, 0.29200e+04, 0.29300e+04,
- a 0.10080e+04, 0.42373e+00, 0.27220e-02,-0.22438e-04, 0.17760e-02,
- a-0.85011e-05, 0.29300e+04, 0.29400e+04,
- a 0.12738e+04, 0.39048e+00, 0.91833e-03,-0.15902e-04, 0.38752e-03,
- a-0.61100e-05, 0.29400e+04, 0.29500e+04,
- a 0.18226e+04, 0.32354e+00,-0.83613e-03,-0.91286e-05,-0.12748e-02,
- a 0.64576e-06, 0.29500e+04, 0.29600e+04,
- a 0.11449e+04, 0.28404e+00,-0.22237e-02,-0.31413e-05,-0.15533e-02,
- a 0.40000e-05, 0.29600e+04, 0.29700e+04,
- a 0.14222e+04, 0.24694e+00,-0.34946e-02, 0.20028e-05,-0.22609e-02,
- a 0.96681e-05, 0.29700e+04, 0.29800e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.11299e+04, 0.25225e+00,-0.43236e-02, 0.60179e-05,-0.23072e-02,
- a 0.89383e-05, 0.29800e+04, 0.29900e+04,
- a 0.38243e+03, 0.28365e+00,-0.47369e-02, 0.11124e-04, 0.18248e-02,
- a 0.19257e-04, 0.29900e+04, 0.30000e+04,
- a 0.23112e+03, 0.28616e+01, 0.85402e-02, 0.43691e-04, 0.16112e-01,
- a-0.42673e-04, 0.30000e+04, 0.30100e+04,
- a 0.12795e+05, 0.19671e+01,-0.21206e-03,-0.14984e-05,-0.39307e-03,
- a-0.58544e-05, 0.30100e+04, 0.30200e+04,
- a 0.57869e+03, 0.79629e+00,-0.43645e-02, 0.13898e-04, 0.73408e-03,
- a-0.45626e-05, 0.30200e+04, 0.30300e+04,
- a 0.43457e+03, 0.96576e-01,-0.55811e-02, 0.12940e-04, 0.11172e-02,
- a 0.21736e-04, 0.30300e+04, 0.30400e+04,
- a 0.89949e+03, 0.11536e+00,-0.52201e-02, 0.10059e-04,-0.15874e-02,
- a 0.22277e-04, 0.30400e+04, 0.30500e+04,
- a 0.21314e+04, 0.12202e+00,-0.45842e-02, 0.63207e-05,-0.32670e-02,
- a 0.21940e-04, 0.30500e+04, 0.30600e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.24514e+04, 0.19437e+00,-0.35989e-02, 0.20635e-05,-0.37611e-02,
- a 0.15519e-04, 0.30600e+04, 0.30700e+04,
- a 0.18609e+04, 0.31324e+00,-0.22827e-02,-0.26816e-05,-0.14644e-02,
- a 0.84665e-05, 0.30700e+04, 0.30800e+04,
- a 0.28571e+04, 0.31940e+00,-0.83645e-03,-0.90192e-05,-0.76302e-03,
- a 0.24170e-05, 0.30800e+04, 0.30900e+04,
- a 0.19356e+04, 0.28235e+00, 0.92008e-03,-0.15863e-04, 0.10109e-02,
- a-0.13517e-05, 0.30900e+04, 0.31000e+04,
- a 0.14984e+04, 0.32994e+00, 0.28983e-02,-0.23966e-04, 0.20895e-02,
- a-0.98936e-05, 0.31000e+04, 0.31100e+04,
- a 0.12508e+04, 0.36564e+00, 0.51370e-02,-0.32908e-04, 0.37408e-02,
- a-0.18191e-04, 0.31100e+04, 0.31200e+04,
- a 0.81819e+03, 0.45356e+00, 0.75913e-02,-0.42727e-04, 0.55871e-02,
- a-0.26450e-04, 0.31200e+04, 0.31300e+04,
- a 0.48302e+03, 0.62289e+00, 0.10573e-01,-0.54032e-04, 0.75195e-02,
- a-0.38880e-04, 0.31300e+04, 0.31400e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.40516e+03, 0.10372e+01, 0.14390e-01,-0.68744e-04, 0.11121e-01,
- a-0.58648e-04, 0.31400e+04, 0.31500e+04,
- a 0.80532e+02, 0.89610e+00, 0.17980e-01,-0.69816e-04, 0.12298e-01,
- a-0.51675e-04, 0.31500e+04, 0.31600e+04,
- a 0.41171e+02, 0.85486e+00, 0.21624e-01,-0.82706e-04, 0.15717e-01,
- a-0.64082e-04, 0.31600e+04, 0.31700e+04,
- a 0.18087e+02, 0.82972e+00, 0.24369e-01,-0.82555e-04, 0.18128e-01,
- a-0.68246e-04, 0.31700e+04, 0.31800e+04,
- a 0.78303e+01, 0.77830e+00, 0.24083e-01,-0.45258e-04, 0.18125e-01,
- a-0.53074e-04, 0.31800e+04, 0.31900e+04,
- a 0.55218e+01, 0.12503e+01, 0.23406e-01,-0.12671e-05, 0.19648e-01,
- a-0.40750e-04, 0.31900e+04, 0.32000e+04,
- a 0.69216e+00, 0.51644e+00, 0.14240e-01,-0.87310e-05, 0.10860e-01,
- a-0.32732e-04, 0.32000e+04, 0.32100e+04,
- a 0.30939e+00, 0.21770e+00, 0.82095e-02,-0.44565e-04, 0.58697e-02,
- a-0.41343e-04, 0.32100e+04, 0.32200e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.22568e+00, 0.37985e+00, 0.12091e-01,-0.60525e-04, 0.90838e-02,
- a-0.55067e-04, 0.32200e+04, 0.32300e+04,
- a 0.18766e+00, 0.27990e+00, 0.12830e-01,-0.61005e-04, 0.10043e-01,
- a-0.57718e-04, 0.32300e+04, 0.32400e+04,
- a 0.63205e-01, 0.18476e+00, 0.14107e-01,-0.67485e-04, 0.11333e-01,
- a-0.63191e-04, 0.32400e+04, 0.32500e+04,
- a 0.28821e-01, 0.59172e-01, 0.14986e-01,-0.71903e-04, 0.12123e-01,
- a-0.67129e-04, 0.32500e+04, 0.32600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32600e+04, 0.32700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32700e+04, 0.32800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32800e+04, 0.32900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32900e+04, 0.33000e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33000e+04, 0.33100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33100e+04, 0.33200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33200e+04, 0.33300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33300e+04, 0.33400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33400e+04, 0.33500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33500e+04, 0.33600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33600e+04, 0.33700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33700e+04, 0.33800e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33800e+04, 0.33900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33900e+04, 0.34000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34000e+04, 0.34100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34100e+04, 0.34200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34200e+04, 0.34300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34300e+04, 0.34400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34400e+04, 0.34500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34500e+04, 0.34600e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34600e+04, 0.34700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34700e+04, 0.34800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34800e+04, 0.34900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34900e+04, 0.35000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35000e+04, 0.35100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35100e+04, 0.35200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35200e+04, 0.35300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35300e+04, 0.35400e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35400e+04, 0.35500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35500e+04, 0.35600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35600e+04, 0.35700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35700e+04, 0.35800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35800e+04, 0.35900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35900e+04, 0.36000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36000e+04, 0.36100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36100e+04, 0.36200e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36200e+04, 0.36300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36300e+04, 0.36400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36400e+04, 0.36500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36500e+04, 0.36600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36600e+04, 0.36700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36700e+04, 0.36800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36800e+04, 0.36900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36900e+04, 0.37000e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.14928e-01, 0.49339e-01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.37000e+04, 0.37100e+04,
- a 0.86139e-01, 0.13757e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.37100e+04, 0.37200e+04,
- a 0.67083e-01, 0.12495e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.37200e+04, 0.37300e+04,
- a 0.20862e-01, 0.49275e-01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.37300e+04, 0.37400e+04,
- a 0.67784e-01, 0.11899e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.37400e+04, 0.37500e+04,
- a 0.15027e+00, 0.18565e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.37500e+04, 0.37600e+04,
- a 0.31581e+00, 0.26221e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.37600e+04, 0.37700e+04,
- a 0.48086e+00, 0.29920e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.37700e+04, 0.37800e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.59376e+00, 0.29431e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.37800e+04, 0.37900e+04,
- a 0.18375e+01, 0.36994e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.37900e+04, 0.38000e+04,
- a 0.25355e+01, 0.40322e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.38000e+04, 0.38100e+04,
- a 0.27002e+01, 0.43597e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.38100e+04, 0.38200e+04,
- a 0.61651e+01, 0.55369e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.38200e+04, 0.38300e+04,
- a 0.40461e+01, 0.57732e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.38300e+04, 0.38400e+04,
- a 0.63365e+01, 0.67727e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.38400e+04, 0.38500e+04,
- a 0.93866e+01, 0.95498e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.38500e+04, 0.38600e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.20329e+02, 0.10079e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.38600e+04, 0.38700e+04,
- a 0.38488e+01, 0.60704e+00,-0.30055e-02, 0.46922e-05,-0.36436e-02,
- a-0.25739e-05, 0.38700e+04, 0.38800e+04,
- a 0.11688e+02, 0.69118e+00,-0.33148e-02, 0.30917e-05,-0.45244e-02,
- a 0.82466e-06, 0.38800e+04, 0.38900e+04,
- a 0.15787e+02, 0.75496e+00,-0.37610e-03,-0.95219e-05,-0.28616e-02,
- a-0.70360e-05, 0.38900e+04, 0.39000e+04,
- a 0.12339e+02, 0.12573e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.39000e+04, 0.39100e+04,
- a 0.44035e+01, 0.11712e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.39100e+04, 0.39200e+04,
- a 0.14520e+01, 0.11029e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.39200e+04, 0.39300e+04,
- a 0.94805e+00, 0.51649e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.39300e+04, 0.39400e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.13512e+01, 0.57924e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.39400e+04, 0.39500e+04,
- a 0.12982e+01, 0.56330e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.39500e+04, 0.39600e+04,
- a 0.11898e+01, 0.70340e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.39600e+04, 0.39700e+04,
- a 0.12669e+01, 0.70992e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.39700e+04, 0.39800e+04,
- a 0.11486e+01, 0.75703e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.39800e+04, 0.39900e+04,
- a 0.94294e+00, 0.67691e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.39900e+04, 0.40000e+04,
- a 0.11722e+01, 0.71803e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.40000e+04, 0.40100e+04,
- a 0.16614e+01, 0.11434e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.40100e+04, 0.40200e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.13169e+01, 0.99418e+00, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.40200e+04, 0.40300e+04,
- a 0.16675e+01, 0.15586e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.40300e+04, 0.40400e+04,
- a 0.22754e+01, 0.15263e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.40400e+04, 0.40500e+04,
- a 0.33696e+01, 0.16140e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.40500e+04, 0.40600e+04,
- a 0.44078e+01, 0.17299e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.40600e+04, 0.40700e+04,
- a 0.64093e+01, 0.16235e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.40700e+04, 0.40800e+04,
- a 0.88553e+01, 0.14450e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.40800e+04, 0.40900e+04,
- a 0.85641e+01, 0.15633e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.40900e+04, 0.41000e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.16356e+02, 0.19485e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.41000e+04, 0.41100e+04,
- a 0.15552e+02, 0.15099e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.41100e+04, 0.41200e+04,
- a 0.23823e+02, 0.27996e+01, 0.10215e-02,-0.17301e-04,-0.20195e-02,
- a-0.11177e-04, 0.41200e+04, 0.41300e+04,
- a 0.18843e+02, 0.14075e+01, 0.58105e-02,-0.26748e-04, 0.64011e-03,
- a-0.17934e-04, 0.41300e+04, 0.41400e+04,
- a 0.71651e+01, 0.45187e+00, 0.70593e-02,-0.29644e-04, 0.39603e-02,
- a-0.29724e-04, 0.41400e+04, 0.41500e+04,
- a 0.37171e+02, 0.44157e+00, 0.68418e-02,-0.38862e-04, 0.36076e-02,
- a-0.32195e-04, 0.41500e+04, 0.41600e+04,
- a 0.38158e+02, 0.32296e+00, 0.43474e-02,-0.29319e-04, 0.18500e-02,
- a-0.25238e-04, 0.41600e+04, 0.41700e+04,
- a 0.65621e+02, 0.45796e+00, 0.22774e-02,-0.20417e-04, 0.82230e-04,
- a-0.17919e-04, 0.41700e+04, 0.41800e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.79347e+02, 0.33603e+00,-0.84769e-03,-0.84263e-05,-0.34772e-02,
- a-0.36512e-05, 0.41800e+04, 0.41900e+04,
- a 0.65038e+02, 0.48190e+00,-0.14827e-02,-0.14444e-05,-0.22137e-02,
- a-0.56866e-05, 0.41900e+04, 0.42000e+04,
- a 0.86982e+02, 0.77363e+00,-0.71575e-03, 0.29104e-06,-0.17062e-02,
- a-0.57132e-05, 0.42000e+04, 0.42100e+04,
- a 0.30982e+03, 0.16801e+01,-0.89037e-03,-0.13593e-05,-0.21551e-02,
- a-0.46701e-05, 0.42100e+04, 0.42200e+04,
- a 0.81077e+02, 0.58800e+00,-0.12356e-02,-0.76610e-06,-0.26793e-02,
- a-0.44252e-05, 0.42200e+04, 0.42300e+04,
- a 0.89975e+02, 0.39899e+00,-0.39748e-02, 0.56557e-05,-0.48805e-02,
- a 0.45246e-05, 0.42300e+04, 0.42400e+04,
- a 0.14896e+03, 0.80968e+00,-0.22160e-02,-0.15823e-05,-0.39631e-02,
- a-0.29253e-06, 0.42400e+04, 0.42500e+04,
- a 0.15594e+03, 0.12514e+01, 0.45507e-03,-0.82566e-05,-0.14417e-02,
- a-0.85226e-05, 0.42500e+04, 0.42600e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.10060e+03, 0.12829e+01, 0.20903e-02,-0.16069e-04,-0.36824e-03,
- a-0.15144e-04, 0.42600e+04, 0.42700e+04,
- a 0.11704e+03, 0.15739e+01, 0.55952e-03,-0.21104e-05,-0.86496e-03,
- a-0.93941e-05, 0.42700e+04, 0.42800e+04,
- a 0.72794e+02, 0.15490e+01,-0.69688e-03,-0.31516e-05,-0.27541e-02,
- a-0.29267e-05, 0.42800e+04, 0.42900e+04,
- a 0.55269e+02, 0.72223e+00,-0.34302e-02, 0.51174e-05,-0.52484e-02,
- a 0.70355e-05, 0.42900e+04, 0.43000e+04,
- a 0.59856e+02, 0.11762e+01,-0.55565e-03, 0.20772e-06,-0.19773e-02,
- a-0.50966e-05, 0.43000e+04, 0.43100e+04,
- a 0.21817e+03, 0.22377e+01,-0.13492e-02,-0.18427e-05,-0.29966e-02,
- a-0.32329e-05, 0.43100e+04, 0.43200e+04,
- a 0.10284e+02, 0.71846e-01,-0.57696e-02, 0.98901e-05,-0.87876e-02,
- a 0.15909e-04, 0.43200e+04, 0.43300e+04,
- a 0.96725e+02, 0.88048e+00,-0.45462e-02, 0.61508e-05,-0.69991e-02,
- a 0.96787e-05, 0.43300e+04, 0.43400e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.11126e+03, 0.16893e+01,-0.24440e-02, 0.50136e-06,-0.44752e-02,
- a 0.11244e-05, 0.43400e+04, 0.43500e+04,
- a 0.10283e+03, 0.18062e+01,-0.38680e-03,-0.50005e-05,-0.21043e-02,
- a-0.68556e-05, 0.43500e+04, 0.43600e+04,
- a 0.89610e+02, 0.11851e+01,-0.66540e-03, 0.23556e-05,-0.18970e-02,
- a-0.34232e-05, 0.43600e+04, 0.43700e+04,
- a 0.66668e+02, 0.73012e+00,-0.22103e-02, 0.23323e-05,-0.30787e-02,
- a-0.56056e-06, 0.43700e+04, 0.43800e+04,
- a 0.81907e+02, 0.54144e+00,-0.25213e-02,-0.89597e-06,-0.47474e-02,
- a 0.15149e-05, 0.43800e+04, 0.43900e+04,
- a 0.90229e+02, 0.49784e+00,-0.23921e-02,-0.10143e-05,-0.43793e-02,
- a 0.46547e-06, 0.43900e+04, 0.44000e+04,
- a 0.82849e+02, 0.85204e+00,-0.10412e-03,-0.81641e-05,-0.20032e-02,
- a-0.80151e-05, 0.44000e+04, 0.44100e+04,
- a 0.44643e+02, 0.57527e+00, 0.23103e-02,-0.14133e-04, 0.85890e-03,
- a-0.18551e-04, 0.44100e+04, 0.44200e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.69032e+02, 0.78506e+00, 0.39855e-03,-0.10098e-04,-0.10159e-02,
- a-0.10449e-04, 0.44200e+04, 0.44300e+04,
- a 0.58683e+02, 0.96123e+00, 0.24151e-02,-0.18621e-04, 0.92225e-03,
- a-0.19737e-04, 0.44300e+04, 0.44400e+04,
- a 0.37181e+02, 0.10126e+01, 0.46217e-02,-0.29919e-04, 0.20589e-02,
- a-0.26447e-04, 0.44400e+04, 0.44500e+04,
- a 0.42607e+02, 0.10332e+01, 0.47981e-02,-0.30880e-04, 0.14909e-02,
- a-0.24304e-04, 0.44500e+04, 0.44600e+04,
- a 0.33113e+02, 0.94984e+00, 0.43677e-02,-0.26166e-04, 0.12754e-02,
- a-0.22104e-04, 0.44600e+04, 0.44700e+04,
- a 0.32668e+02, 0.85290e+00, 0.23495e-02,-0.16220e-04,-0.47342e-03,
- a-0.13768e-04, 0.44700e+04, 0.44800e+04,
- a 0.23216e+02, 0.83540e+00, 0.22982e-02,-0.73604e-05, 0.68926e-03,
- a-0.13485e-04, 0.44800e+04, 0.44900e+04,
- a 0.13719e+02, 0.65920e+00, 0.14982e-02,-0.62753e-05,-0.37161e-03,
- a-0.11492e-04, 0.44900e+04, 0.45000e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.16799e+02, 0.41229e+00,-0.78480e-03, 0.17545e-05,-0.12160e-02,
- a-0.71041e-05, 0.45000e+04, 0.45100e+04,
- a 0.10085e+02, 0.14021e+00,-0.37976e-02, 0.66108e-05,-0.50669e-02,
- a 0.68711e-05, 0.45100e+04, 0.45200e+04,
- a 0.31009e+01, 0.87599e-01,-0.43682e-02, 0.10148e-04,-0.57555e-02,
- a 0.10223e-04, 0.45200e+04, 0.45300e+04,
- a 0.18983e+02, 0.15932e+01, 0.14519e-02,-0.91544e-05,-0.97256e-03,
- a-0.10139e-04, 0.45300e+04, 0.45400e+04,
- a 0.63830e+02, 0.20016e+01,-0.11189e-02,-0.21104e-05,-0.28048e-02,
- a-0.38802e-05, 0.45400e+04, 0.45500e+04,
- a 0.31441e+01, 0.67773e-01,-0.40447e-02, 0.14471e-04,-0.37016e-02,
- a 0.58757e-05, 0.45500e+04, 0.45600e+04,
- a 0.21782e+01, 0.29389e-01,-0.59290e-02, 0.10501e-04,-0.89700e-02,
- a 0.16625e-04, 0.45600e+04, 0.45700e+04,
- a 0.40086e+01, 0.78646e-01,-0.53825e-02, 0.83305e-05,-0.83558e-02,
- a 0.14185e-04, 0.45700e+04, 0.45800e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.13954e+01, 0.11032e+00,-0.40678e-02, 0.31725e-05,-0.71674e-02,
- a 0.94743e-05, 0.45800e+04, 0.45900e+04,
- a 0.82827e+01, 0.13524e+00,-0.44855e-02, 0.48983e-05,-0.72447e-02,
- a 0.99023e-05, 0.45900e+04, 0.46000e+04,
- a 0.81728e+01, 0.18866e+00,-0.33132e-02, 0.41656e-06,-0.59898e-02,
- a 0.50092e-05, 0.46000e+04, 0.46100e+04,
- a 0.64947e+01, 0.31086e+00,-0.16438e-02,-0.59966e-05,-0.43498e-02,
- a-0.14967e-05, 0.46100e+04, 0.46200e+04,
- a 0.63479e+01, 0.34741e+00, 0.15663e-03,-0.12499e-04,-0.26034e-02,
- a-0.79833e-05, 0.46200e+04, 0.46300e+04,
- a 0.24602e+01, 0.20366e+00, 0.17162e-02,-0.18956e-04,-0.96600e-03,
- a-0.14741e-04, 0.46300e+04, 0.46400e+04,
- a 0.20994e+01, 0.20610e+00, 0.43640e-02,-0.26098e-04, 0.19605e-02,
- a-0.24954e-04, 0.46400e+04, 0.46500e+04,
- a 0.16635e+01, 0.21606e+00, 0.38987e-02,-0.27059e-04, 0.10590e-02,
- a-0.22496e-04, 0.46500e+04, 0.46600e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.91480e+00, 0.11908e+00, 0.55341e-02,-0.35022e-04, 0.24910e-02,
- a-0.29056e-04, 0.46600e+04, 0.46700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46700e+04, 0.46800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46800e+04, 0.46900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46900e+04, 0.47000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47000e+04, 0.47100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47100e+04, 0.47200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47200e+04, 0.47300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47300e+04, 0.47400e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47400e+04, 0.47500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47500e+04, 0.47600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47600e+04, 0.47700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47700e+04, 0.47800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47800e+04, 0.47900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47900e+04, 0.48000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48000e+04, 0.48100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48100e+04, 0.48200e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48200e+04, 0.48300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48300e+04, 0.48400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48400e+04, 0.48500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48500e+04, 0.48600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48600e+04, 0.48700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48700e+04, 0.48800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48800e+04, 0.48900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48900e+04, 0.49000e+04/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49000e+04, 0.49100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49100e+04, 0.49200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49200e+04, 0.49300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49300e+04, 0.49400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49400e+04, 0.49500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49500e+04, 0.49600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49600e+04, 0.49700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49700e+04, 0.49800e+04/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49800e+04, 0.49900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49900e+04, 0.50000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50000e+04, 0.50100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50100e+04, 0.50200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50200e+04, 0.50300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50300e+04, 0.50400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50400e+04, 0.50500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50500e+04, 0.50600e+04/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH1.h b/Modules/ThirdParty/6S/src/6SV1.0B/METH1.h
deleted file mode 100644
index a23f4a2..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH1.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_meth1_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH2.P b/Modules/ThirdParty/6S/src/6SV1.0B/METH2.P
deleted file mode 100644
index 064e7c1..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH2.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int meth2_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH2.c b/Modules/ThirdParty/6S/src/6SV1.0B/METH2.c
deleted file mode 100644
index f4b1850..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH2.c
+++ /dev/null
@@ -1,237 +0,0 @@
-/* METH2.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine meth2(a,inu) >*/
-/* Subroutine */ int meth2_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 5060.,5070.,0.,0.,0.,0.,0.,0.,5070.,5080.,0.,0.,0.,0.,0.,0.,5080.,
- 5090.,0.,0.,0.,0.,0.,0.,5090.,5100.,0.,0.,0.,0.,0.,0.,5100.,5110.,
- 0.,0.,0.,0.,0.,0.,5110.,5120.,0.,0.,0.,0.,0.,0.,5120.,5130.,0.,0.,
- 0.,0.,0.,0.,5130.,5140.,0.,0.,0.,0.,0.,0.,5140.,5150.,0.,0.,0.,0.,
- 0.,0.,5150.,5160.,0.,0.,0.,0.,0.,0.,5160.,5170.,0.,0.,0.,0.,0.,0.,
- 5170.,5180.,0.,0.,0.,0.,0.,0.,5180.,5190.,0.,0.,0.,0.,0.,0.,5190.,
- 5200.,0.,0.,0.,0.,0.,0.,5200.,5210.,0.,0.,0.,0.,0.,0.,5210.,5220.,
- 0.,0.,0.,0.,0.,0.,5220.,5230.,0.,0.,0.,0.,0.,0.,5230.,5240.,0.,0.,
- 0.,0.,0.,0.,5240.,5250.,0.,0.,0.,0.,0.,0.,5250.,5260.,0.,0.,0.,0.,
- 0.,0.,5260.,5270.,0.,0.,0.,0.,0.,0.,5270.,5280.,0.,0.,0.,0.,0.,0.,
- 5280.,5290.,0.,0.,0.,0.,0.,0.,5290.,5300.,0.,0.,0.,0.,0.,0.,5300.,
- 5310.,0.,0.,0.,0.,0.,0.,5310.,5320.,0.,0.,0.,0.,0.,0.,5320.,5330.,
- 0.,0.,0.,0.,0.,0.,5330.,5340.,0.,0.,0.,0.,0.,0.,5340.,5350.,0.,0.,
- 0.,0.,0.,0.,5350.,5360.,0.,0.,0.,0.,0.,0.,5360.,5370.,0.,0.,0.,0.,
- 0.,0.,5370.,5380.,0.,0.,0.,0.,0.,0.,5380.,5390.,0.,0.,0.,0.,0.,0.,
- 5390.,5400.,0.,0.,0.,0.,0.,0.,5400.,5410.,0.,0.,0.,0.,0.,0.,5410.,
- 5420.,0.,0.,0.,0.,0.,0.,5420.,5430.,0.,0.,0.,0.,0.,0.,5430.,5440.,
- 0.,0.,0.,0.,0.,0.,5440.,5450.,0.,0.,0.,0.,0.,0.,5450.,5460.,0.,0.,
- 0.,0.,0.,0.,5460.,5470.,0.,0.,0.,0.,0.,0.,5470.,5480.,0.,0.,0.,0.,
- 0.,0.,5480.,5490.,0.,0.,0.,0.,0.,0.,5490.,5500.,.50197,.25265,
- .0033519,-2.4607e-5,6.8955e-4,-2.0482e-5,5500.,5510.,2.3899,
- .60596,2.7671e-5,-1.2307e-5,-.0033058,-5.2945e-6,5510.,5520.,
- 2.4379,.30699,-6.0867e-4,-9.0704e-6,-.0032892,-5.0115e-6,5520.,
- 5530.,2.1592,.38949,-.0023556,-3.3022e-6,-.0052838,2.4513e-6,
- 5530.,5540.,2.3029,.15736,-.0035795,2.1673e-6,-.005968,6.0863e-6,
- 5540.,5550.,1.954,.11711,-.0044087,5.103e-6,-.0068665,9.1701e-6,
- 5550.,5560.,1.195,.29396,-.0010618,3.4067e-6,-.0024231,-2.582e-6,
- 5560.,5570.,4.8095,1.2465,.0019344,-1.5456e-5,-6.8788e-4,
- -1.287e-5,5570.,5580.,11.674,1.5114,-.0025504,8.25e-7,-.0045912,
- 2.2777e-6,5580.,5590.,2.3702,.84024,-8.2688e-4,2.9123e-6,
- -.0020134,-5.0547e-6,5590.,5600.,3.4064,1.1326,-.0025002,
- 8.9997e-7,-.0048837,2.6082e-6,5600.,5610.,1.7392,.31991,-.0045126,
- 8.6603e-6,-.0061278,9.3747e-6,5610.,5620.,4.348,.58786,-.0043137,
- 4.6334e-6,-.0070133,9.529e-6,5620.,5630.,6.6586,1.8023,-.0019866,
- -1.5163e-6,-.0039533,-8.5993e-7,5630.,5640.,4.3959,.91267,
- -.0018359,-2.6379e-6,-.0045115,1.3137e-6,5640.,5650.,2.9732,
- .90097,-4.5783e-4,-8.654e-6,-.0035958,-2.8318e-6,5650.,5660.,
- 2.7758,.82876,.0019221,-1.4165e-5,-.0010447,-1.1375e-5,5660.,
- 5670.,1.4345,.92016,.0046313,-1.9911e-5,.0018272,-2.0246e-5,5670.,
- 5680.,1.0486,.4465,-3.8086e-4,5.6985e-6,-.0018929,-1.1857e-6,
- 5680.,5690.,.94797,.35596,-2.2904e-4,8.4588e-6,-.0016889,
- -3.7956e-7,5690.,5700.,.93528,.41431,.00128,-8.7918e-7,-.0014444,
- -4.7052e-6,5700.,5710.,1.6454,.57474,.0026463,-1.3124e-5,
- -3.7027e-4,-1.2452e-5,5710.,5720.,2.0351,.34637,.0026986,
- -1.9613e-5,-4.6781e-4,-1.4709e-5,5720.,5730.,2.2445,.69714,
- .0019373,-1.6752e-5,-8.5242e-4,-1.2956e-5,5730.,5740.,3.2153,
- .75956,.0013362,-1.4189e-5,-.0010894,-1.1571e-5,5740.,5750.,
- 3.4596,.73536,.0012876,-1.2547e-5,-4.537e-4,-1.2912e-5,5750.,
- 5760.,4.9414,1.0526,6.4547e-4,-1.0024e-5,-9.6857e-4,-1.1592e-5,
- 5760.,5770.,7.5119,1.41,2.8819e-4,-7.444e-6,-.0012786,-1.0307e-5,
- 5770.,5780.,7.5235,1.323,-4.9407e-4,-6.8773e-6,-.002629,-6.638e-6,
- 5780.,5790.,10.241,1.6323,-.0013776,-5.3214e-6,-.0037904,
- -2.3185e-6,5790.,5800.,9.1281,.93597,-.0035876,2.3809e-6,
- -.0059879,5.9495e-6,5800.,5810.,3.9872,.6767,-.0044503,6.8501e-6,
- -.0067178,9.7535e-6,5810.,5820.,2.9318,.24918,-.0051233,7.7265e-6,
- -.0076555,1.1663e-5,5820.,5830.,3.6596,.91227,-.0026988,2.3063e-6,
- -.0047124,2.5366e-6,5830.,5840.,6.9904,.93296,-.0037966,6.1051e-6,
- -.0055025,7.3047e-6,5840.,5850.,12.815,1.9354,-.0021432,8.1298e-7,
- -.0042246,2.2902e-6,5850.,5860.,10.246,2.1238,4.6316e-5,
- -6.0726e-6,-.00223,-5.3836e-6,5860.,5870.,9.5647,1.9821,.0012796,
- -7.4626e-6,-9.2616e-4,-1.0886e-5,5870.,5880.,4.8776,1.7308,
- .0012461,-8.1397e-6,-5.6127e-5,-1.3882e-5,5880.,5890.,5.7337,
- .87446,.0038286,-1.704e-5,6.941e-4,-1.573e-5,5890.,5900.,7.472,
- .73641,.0028865,-2.0558e-5,-6.6892e-4,-1.358e-5,5900.,5910.,
- 7.0944,.66112,.0024095,-2.1458e-5,-9.9935e-4,-1.3636e-5,5910.,
- 5920.,8.1168,.58477,.0013314,-1.7142e-5,-.0010021,-1.3588e-5,
- 5920.,5930.,10.972,.47138,-3.0541e-4,-9.6826e-6,-.0014478,
- -9.657e-6,5930.,5940.,7.3055,.38828,-.0015833,-3.9472e-6,
- -.0024534,-5.2105e-6,5940.,5950.,.18257,.15141,.0032545,
- -2.5286e-5,3.2305e-4,-1.9965e-5,5950.,5960.,8.803,.28605,
- -.0031163,1.3762e-6,-.0040606,1.0755e-6,5960.,5970.,6.8729,.20493,
- -.0040682,5.468e-6,-.004767,4.3804e-6,5970.,5980.,2.9955,.47987,
- -.002474,9.9034e-6,-8.4087e-4,-7.5046e-6,5980.,5990.,14.364,
- 1.4135,.0066597,-3.1277e-5,.0045742,-3.1988e-5,5990.,6e3,65.167,
- .97529,-.0019616,-2.2633e-6,-.0046527,1.0271e-6,6e3,6010.,3.5647,
- .20344,-.0052252,1.0688e-5,-.0057674,8.0346e-6,6010.,6020.,3.4141,
- .14357,-.0054304,9.5186e-6,-.0072736,1.143e-5,6020.,6030.,7.635,
- .4332,-.0031157,1.3276e-5,-.001277,1.7678e-7,6030.,6040.,16.118,
- .28374,-.0041664,4.9599e-6,-.0056931,5.7765e-6,6040.,6050.,19.177,
- .33833,-.0035167,1.7094e-6,-.0061198,6.6957e-6,6050.,6060.,16.85,
- .88879,-.002146,-3.2028e-6,-.0042847,2.7277e-7,6060.,6070.,21.077,
- .25352,-9.3983e-4,-9.0824e-6,-.0038178,-2.813e-6,6070.,6080.,
- 14.763,.2437,5.8706e-4,-1.4814e-5,-.0030455,-5.893e-6,6080.,6090.,
- 12.16,.31237,.002521,-2.1431e-5,-.0011996,-1.1964e-5,6090.,6100.,
- 10.601,.42935,.0043443,-2.7697e-5,3.1712e-4,-1.7641e-5,6100.,
- 6110.,7.7832,.54373,.0057906,-2.6532e-5,.001438,-1.9125e-5,6110.,
- 6120.,5.7902,1.1869,.0054008,-1.8503e-5,.0023381,-2.0741e-5,6120.,
- 6130.,4.0292,.58128,.0079694,-2.4981e-5,.0032731,-2.2237e-5,6130.,
- 6140.,3.0446,.82071,.0077456,-1.3929e-5,.0053212,-2.5965e-5,6140.,
- 6150.,1.9431,.98831,.006064,-2.2019e-5,.0032998,-2.4905e-5,6150.,
- 6160.,.97862,.77724,.0073198,-3.3144e-5,.0043341,-3.23e-5,6160.,
- 6170.,.41035,.31003,.0044331,-2.7381e-5,.0019194,-2.471e-5,6170.,
- 6180.,.19122,.12211,.0046368,-3.0314e-5,.0017315,-2.5376e-5,6180.,
- 6190.,0.,0.,0.,0.,0.,0.,6190.,6200.,0.,0.,0.,0.,0.,0.,6200.,6210.,
- 0.,0.,0.,0.,0.,0.,6210.,6220.,0.,0.,0.,0.,0.,0.,6220.,6230.,0.,0.,
- 0.,0.,0.,0.,6230.,6240.,0.,0.,0.,0.,0.,0.,6240.,6250.,0.,0.,0.,0.,
- 0.,0.,6250.,6260.,0.,0.,0.,0.,0.,0.,6260.,6270.,0.,0.,0.,0.,0.,0.,
- 6270.,6280.,0.,0.,0.,0.,0.,0.,6280.,6290.,0.,0.,0.,0.,0.,0.,6290.,
- 6300.,0.,0.,0.,0.,0.,0.,6300.,6310.,0.,0.,0.,0.,0.,0.,6310.,6320.,
- 0.,0.,0.,0.,0.,0.,6320.,6330.,0.,0.,0.,0.,0.,0.,6330.,6340.,0.,0.,
- 0.,0.,0.,0.,6340.,6350.,0.,0.,0.,0.,0.,0.,6350.,6360.,0.,0.,0.,0.,
- 0.,0.,6360.,6370.,0.,0.,0.,0.,0.,0.,6370.,6380.,0.,0.,0.,0.,0.,0.,
- 6380.,6390.,0.,0.,0.,0.,0.,0.,6390.,6400.,0.,0.,0.,0.,0.,0.,6400.,
- 6410.,0.,0.,0.,0.,0.,0.,6410.,6420.,0.,0.,0.,0.,0.,0.,6420.,6430.,
- 0.,0.,0.,0.,0.,0.,6430.,6440.,0.,0.,0.,0.,0.,0.,6440.,6450.,0.,0.,
- 0.,0.,0.,0.,6450.,6460.,0.,0.,0.,0.,0.,0.,6460.,6470.,0.,0.,0.,0.,
- 0.,0.,6470.,6480.,0.,0.,0.,0.,0.,0.,6480.,6490.,0.,0.,0.,0.,0.,0.,
- 6490.,6500.,0.,0.,0.,0.,0.,0.,6500.,6510.,0.,0.,0.,0.,0.,0.,6510.,
- 6520.,0.,0.,0.,0.,0.,0.,6520.,6530.,0.,0.,0.,0.,0.,0.,6530.,6540.,
- 0.,0.,0.,0.,0.,0.,6540.,6550.,0.,0.,0.,0.,0.,0.,6550.,6560.,0.,0.,
- 0.,0.,0.,0.,6560.,6570.,0.,0.,0.,0.,0.,0.,6570.,6580.,0.,0.,0.,0.,
- 0.,0.,6580.,6590.,0.,0.,0.,0.,0.,0.,6590.,6600.,0.,0.,0.,0.,0.,0.,
- 6600.,6610.,0.,0.,0.,0.,0.,0.,6610.,6620.,0.,0.,0.,0.,0.,0.,6620.,
- 6630.,0.,0.,0.,0.,0.,0.,6630.,6640.,0.,0.,0.,0.,0.,0.,6640.,6650.,
- 0.,0.,0.,0.,0.,0.,6650.,6660.,0.,0.,0.,0.,0.,0.,6660.,6670.,0.,0.,
- 0.,0.,0.,0.,6670.,6680.,0.,0.,0.,0.,0.,0.,6680.,6690.,0.,0.,0.,0.,
- 0.,0.,6690.,6700.,0.,0.,0.,0.,0.,0.,6700.,6710.,0.,0.,0.,0.,0.,0.,
- 6710.,6720.,0.,0.,0.,0.,0.,0.,6720.,6730.,0.,0.,0.,0.,0.,0.,6730.,
- 6740.,0.,0.,0.,0.,0.,0.,6740.,6750.,0.,0.,0.,0.,0.,0.,6750.,6760.,
- 0.,0.,0.,0.,0.,0.,6760.,6770.,0.,0.,0.,0.,0.,0.,6770.,6780.,0.,0.,
- 0.,0.,0.,0.,6780.,6790.,0.,0.,0.,0.,0.,0.,6790.,6800.,0.,0.,0.,0.,
- 0.,0.,6800.,6810.,0.,0.,0.,0.,0.,0.,6810.,6820.,0.,0.,0.,0.,0.,0.,
- 6820.,6830.,0.,0.,0.,0.,0.,0.,6830.,6840.,0.,0.,0.,0.,0.,0.,6840.,
- 6850.,0.,0.,0.,0.,0.,0.,6850.,6860.,0.,0.,0.,0.,0.,0.,6860.,6870.,
- 0.,0.,0.,0.,0.,0.,6870.,6880.,0.,0.,0.,0.,0.,0.,6880.,6890.,0.,0.,
- 0.,0.,0.,0.,6890.,6900.,0.,0.,0.,0.,0.,0.,6900.,6910.,0.,0.,0.,0.,
- 0.,0.,6910.,6920.,0.,0.,0.,0.,0.,0.,6920.,6930.,0.,0.,0.,0.,0.,0.,
- 6930.,6940.,0.,0.,0.,0.,0.,0.,6940.,6950.,0.,0.,0.,0.,0.,0.,6950.,
- 6960.,0.,0.,0.,0.,0.,0.,6960.,6970.,0.,0.,0.,0.,0.,0.,6970.,6980.,
- 0.,0.,0.,0.,0.,0.,6980.,6990.,0.,0.,0.,0.,0.,0.,6990.,7e3,0.,0.,
- 0.,0.,0.,0.,7e3,7010.,0.,0.,0.,0.,0.,0.,7010.,7020.,0.,0.,0.,0.,
- 0.,0.,7020.,7030.,0.,0.,0.,0.,0.,0.,7030.,7040.,0.,0.,0.,0.,0.,0.,
- 7040.,7050.,0.,0.,0.,0.,0.,0.,7050.,7060.,0.,0.,0.,0.,0.,0.,7060.,
- 7070.,0.,0.,0.,0.,0.,0.,7070.,7080.,0.,0.,0.,0.,0.,0.,7080.,7090.,
- 0.,0.,0.,0.,0.,0.,7090.,7100.,0.,0.,0.,0.,0.,0.,7100.,7110.,0.,0.,
- 0.,0.,0.,0.,7110.,7120.,0.,0.,0.,0.,0.,0.,7120.,7130.,0.,0.,0.,0.,
- 0.,0.,7130.,7140.,0.,0.,0.,0.,0.,0.,7140.,7150.,0.,0.,0.,0.,0.,0.,
- 7150.,7160.,0.,0.,0.,0.,0.,0.,7160.,7170.,0.,0.,0.,0.,0.,0.,7170.,
- 7180.,0.,0.,0.,0.,0.,0.,7180.,7190.,0.,0.,0.,0.,0.,0.,7190.,7200.,
- 0.,0.,0.,0.,0.,0.,7200.,7210.,0.,0.,0.,0.,0.,0.,7210.,7220.,0.,0.,
- 0.,0.,0.,0.,7220.,7230.,0.,0.,0.,0.,0.,0.,7230.,7240.,0.,0.,0.,0.,
- 0.,0.,7240.,7250.,0.,0.,0.,0.,0.,0.,7250.,7260.,0.,0.,0.,0.,0.,0.,
- 7260.,7270.,0.,0.,0.,0.,0.,0.,7270.,7280.,0.,0.,0.,0.,0.,0.,7280.,
- 7290.,0.,0.,0.,0.,0.,0.,7290.,7300.,0.,0.,0.,0.,0.,0.,7300.,7310.,
- 0.,0.,0.,0.,0.,0.,7310.,7320.,0.,0.,0.,0.,0.,0.,7320.,7330.,0.,0.,
- 0.,0.,0.,0.,7330.,7340.,0.,0.,0.,0.,0.,0.,7340.,7350.,0.,0.,0.,0.,
- 0.,0.,7350.,7360.,0.,0.,0.,0.,0.,0.,7360.,7370.,0.,0.,0.,0.,0.,0.,
- 7370.,7380.,0.,0.,0.,0.,0.,0.,7380.,7390.,0.,0.,0.,0.,0.,0.,7390.,
- 7400.,0.,0.,0.,0.,0.,0.,7400.,7410.,0.,0.,0.,0.,0.,0.,7410.,7420.,
- 0.,0.,0.,0.,0.,0.,7420.,7430.,0.,0.,0.,0.,0.,0.,7430.,7440.,0.,0.,
- 0.,0.,0.,0.,7440.,7450.,0.,0.,0.,0.,0.,0.,7450.,7460.,0.,0.,0.,0.,
- 0.,0.,7460.,7470.,0.,0.,0.,0.,0.,0.,7470.,7480.,0.,0.,0.,0.,0.,0.,
- 7480.,7490.,0.,0.,0.,0.,0.,0.,7490.,7500.,0.,0.,0.,0.,0.,0.,7500.,
- 7510.,0.,0.,0.,0.,0.,0.,7510.,7520.,0.,0.,0.,0.,0.,0.,7520.,7530.,
- 0.,0.,0.,0.,0.,0.,7530.,7540.,0.,0.,0.,0.,0.,0.,7540.,7550.,0.,0.,
- 0.,0.,0.,0.,7550.,7560.,0.,0.,0.,0.,0.,0.,7560.,7570.,0.,0.,0.,0.,
- 0.,0.,7570.,7580.,0.,0.,0.,0.,0.,0.,7580.,7590.,0.,0.,0.,0.,0.,0.,
- 7590.,7600.,0.,0.,0.,0.,0.,0.,7600.,7610.,0.,0.,0.,0.,0.,0.,7610.,
- 7620. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* methane (5060 - 7610 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* meth2_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH2.f b/Modules/ThirdParty/6S/src/6SV1.0B/METH2.f
deleted file mode 100644
index 0e612af..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH2.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine meth2(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c methane (5060 - 7610 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50600e+04, 0.50700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50700e+04, 0.50800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50800e+04, 0.50900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50900e+04, 0.51000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51000e+04, 0.51100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51100e+04, 0.51200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51200e+04, 0.51300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51300e+04, 0.51400e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51400e+04, 0.51500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51500e+04, 0.51600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51600e+04, 0.51700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51700e+04, 0.51800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51800e+04, 0.51900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51900e+04, 0.52000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52000e+04, 0.52100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52100e+04, 0.52200e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52200e+04, 0.52300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52300e+04, 0.52400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52400e+04, 0.52500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52500e+04, 0.52600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52600e+04, 0.52700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52700e+04, 0.52800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52800e+04, 0.52900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52900e+04, 0.53000e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53000e+04, 0.53100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53100e+04, 0.53200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53200e+04, 0.53300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53300e+04, 0.53400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53400e+04, 0.53500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53500e+04, 0.53600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53600e+04, 0.53700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53700e+04, 0.53800e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53800e+04, 0.53900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53900e+04, 0.54000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54000e+04, 0.54100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54100e+04, 0.54200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54200e+04, 0.54300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54300e+04, 0.54400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54400e+04, 0.54500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54500e+04, 0.54600e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54600e+04, 0.54700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54700e+04, 0.54800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54800e+04, 0.54900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54900e+04, 0.55000e+04,
- a 0.50197e+00, 0.25265e+00, 0.33519e-02,-0.24607e-04, 0.68955e-03,
- a-0.20482e-04, 0.55000e+04, 0.55100e+04,
- a 0.23899e+01, 0.60596e+00, 0.27671e-04,-0.12307e-04,-0.33058e-02,
- a-0.52945e-05, 0.55100e+04, 0.55200e+04,
- a 0.24379e+01, 0.30699e+00,-0.60867e-03,-0.90704e-05,-0.32892e-02,
- a-0.50115e-05, 0.55200e+04, 0.55300e+04,
- a 0.21592e+01, 0.38949e+00,-0.23556e-02,-0.33022e-05,-0.52838e-02,
- a 0.24513e-05, 0.55300e+04, 0.55400e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.23029e+01, 0.15736e+00,-0.35795e-02, 0.21673e-05,-0.59680e-02,
- a 0.60863e-05, 0.55400e+04, 0.55500e+04,
- a 0.19540e+01, 0.11711e+00,-0.44087e-02, 0.51030e-05,-0.68665e-02,
- a 0.91701e-05, 0.55500e+04, 0.55600e+04,
- a 0.11950e+01, 0.29396e+00,-0.10618e-02, 0.34067e-05,-0.24231e-02,
- a-0.25820e-05, 0.55600e+04, 0.55700e+04,
- a 0.48095e+01, 0.12465e+01, 0.19344e-02,-0.15456e-04,-0.68788e-03,
- a-0.12870e-04, 0.55700e+04, 0.55800e+04,
- a 0.11674e+02, 0.15114e+01,-0.25504e-02, 0.82500e-06,-0.45912e-02,
- a 0.22777e-05, 0.55800e+04, 0.55900e+04,
- a 0.23702e+01, 0.84024e+00,-0.82688e-03, 0.29123e-05,-0.20134e-02,
- a-0.50547e-05, 0.55900e+04, 0.56000e+04,
- a 0.34064e+01, 0.11326e+01,-0.25002e-02, 0.89997e-06,-0.48837e-02,
- a 0.26082e-05, 0.56000e+04, 0.56100e+04,
- a 0.17392e+01, 0.31991e+00,-0.45126e-02, 0.86603e-05,-0.61278e-02,
- a 0.93747e-05, 0.56100e+04, 0.56200e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.43480e+01, 0.58786e+00,-0.43137e-02, 0.46334e-05,-0.70133e-02,
- a 0.95290e-05, 0.56200e+04, 0.56300e+04,
- a 0.66586e+01, 0.18023e+01,-0.19866e-02,-0.15163e-05,-0.39533e-02,
- a-0.85993e-06, 0.56300e+04, 0.56400e+04,
- a 0.43959e+01, 0.91267e+00,-0.18359e-02,-0.26379e-05,-0.45115e-02,
- a 0.13137e-05, 0.56400e+04, 0.56500e+04,
- a 0.29732e+01, 0.90097e+00,-0.45783e-03,-0.86540e-05,-0.35958e-02,
- a-0.28318e-05, 0.56500e+04, 0.56600e+04,
- a 0.27758e+01, 0.82876e+00, 0.19221e-02,-0.14165e-04,-0.10447e-02,
- a-0.11375e-04, 0.56600e+04, 0.56700e+04,
- a 0.14345e+01, 0.92016e+00, 0.46313e-02,-0.19911e-04, 0.18272e-02,
- a-0.20246e-04, 0.56700e+04, 0.56800e+04,
- a 0.10486e+01, 0.44650e+00,-0.38086e-03, 0.56985e-05,-0.18929e-02,
- a-0.11857e-05, 0.56800e+04, 0.56900e+04,
- a 0.94797e+00, 0.35596e+00,-0.22904e-03, 0.84588e-05,-0.16889e-02,
- a-0.37956e-06, 0.56900e+04, 0.57000e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.93528e+00, 0.41431e+00, 0.12800e-02,-0.87918e-06,-0.14444e-02,
- a-0.47052e-05, 0.57000e+04, 0.57100e+04,
- a 0.16454e+01, 0.57474e+00, 0.26463e-02,-0.13124e-04,-0.37027e-03,
- a-0.12452e-04, 0.57100e+04, 0.57200e+04,
- a 0.20351e+01, 0.34637e+00, 0.26986e-02,-0.19613e-04,-0.46781e-03,
- a-0.14709e-04, 0.57200e+04, 0.57300e+04,
- a 0.22445e+01, 0.69714e+00, 0.19373e-02,-0.16752e-04,-0.85242e-03,
- a-0.12956e-04, 0.57300e+04, 0.57400e+04,
- a 0.32153e+01, 0.75956e+00, 0.13362e-02,-0.14189e-04,-0.10894e-02,
- a-0.11571e-04, 0.57400e+04, 0.57500e+04,
- a 0.34596e+01, 0.73536e+00, 0.12876e-02,-0.12547e-04,-0.45370e-03,
- a-0.12912e-04, 0.57500e+04, 0.57600e+04,
- a 0.49414e+01, 0.10526e+01, 0.64547e-03,-0.10024e-04,-0.96857e-03,
- a-0.11592e-04, 0.57600e+04, 0.57700e+04,
- a 0.75119e+01, 0.14100e+01, 0.28819e-03,-0.74440e-05,-0.12786e-02,
- a-0.10307e-04, 0.57700e+04, 0.57800e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.75235e+01, 0.13230e+01,-0.49407e-03,-0.68773e-05,-0.26290e-02,
- a-0.66380e-05, 0.57800e+04, 0.57900e+04,
- a 0.10241e+02, 0.16323e+01,-0.13776e-02,-0.53214e-05,-0.37904e-02,
- a-0.23185e-05, 0.57900e+04, 0.58000e+04,
- a 0.91281e+01, 0.93597e+00,-0.35876e-02, 0.23809e-05,-0.59879e-02,
- a 0.59495e-05, 0.58000e+04, 0.58100e+04,
- a 0.39872e+01, 0.67670e+00,-0.44503e-02, 0.68501e-05,-0.67178e-02,
- a 0.97535e-05, 0.58100e+04, 0.58200e+04,
- a 0.29318e+01, 0.24918e+00,-0.51233e-02, 0.77265e-05,-0.76555e-02,
- a 0.11663e-04, 0.58200e+04, 0.58300e+04,
- a 0.36596e+01, 0.91227e+00,-0.26988e-02, 0.23063e-05,-0.47124e-02,
- a 0.25366e-05, 0.58300e+04, 0.58400e+04,
- a 0.69904e+01, 0.93296e+00,-0.37966e-02, 0.61051e-05,-0.55025e-02,
- a 0.73047e-05, 0.58400e+04, 0.58500e+04,
- a 0.12815e+02, 0.19354e+01,-0.21432e-02, 0.81298e-06,-0.42246e-02,
- a 0.22902e-05, 0.58500e+04, 0.58600e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.10246e+02, 0.21238e+01, 0.46316e-04,-0.60726e-05,-0.22300e-02,
- a-0.53836e-05, 0.58600e+04, 0.58700e+04,
- a 0.95647e+01, 0.19821e+01, 0.12796e-02,-0.74626e-05,-0.92616e-03,
- a-0.10886e-04, 0.58700e+04, 0.58800e+04,
- a 0.48776e+01, 0.17308e+01, 0.12461e-02,-0.81397e-05,-0.56127e-04,
- a-0.13882e-04, 0.58800e+04, 0.58900e+04,
- a 0.57337e+01, 0.87446e+00, 0.38286e-02,-0.17040e-04, 0.69410e-03,
- a-0.15730e-04, 0.58900e+04, 0.59000e+04,
- a 0.74720e+01, 0.73641e+00, 0.28865e-02,-0.20558e-04,-0.66892e-03,
- a-0.13580e-04, 0.59000e+04, 0.59100e+04,
- a 0.70944e+01, 0.66112e+00, 0.24095e-02,-0.21458e-04,-0.99935e-03,
- a-0.13636e-04, 0.59100e+04, 0.59200e+04,
- a 0.81168e+01, 0.58477e+00, 0.13314e-02,-0.17142e-04,-0.10021e-02,
- a-0.13588e-04, 0.59200e+04, 0.59300e+04,
- a 0.10972e+02, 0.47138e+00,-0.30541e-03,-0.96826e-05,-0.14478e-02,
- a-0.96570e-05, 0.59300e+04, 0.59400e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.73055e+01, 0.38828e+00,-0.15833e-02,-0.39472e-05,-0.24534e-02,
- a-0.52105e-05, 0.59400e+04, 0.59500e+04,
- a 0.18257e+00, 0.15141e+00, 0.32545e-02,-0.25286e-04, 0.32305e-03,
- a-0.19965e-04, 0.59500e+04, 0.59600e+04,
- a 0.88030e+01, 0.28605e+00,-0.31163e-02, 0.13762e-05,-0.40606e-02,
- a 0.10755e-05, 0.59600e+04, 0.59700e+04,
- a 0.68729e+01, 0.20493e+00,-0.40682e-02, 0.54680e-05,-0.47670e-02,
- a 0.43804e-05, 0.59700e+04, 0.59800e+04,
- a 0.29955e+01, 0.47987e+00,-0.24740e-02, 0.99034e-05,-0.84087e-03,
- a-0.75046e-05, 0.59800e+04, 0.59900e+04,
- a 0.14364e+02, 0.14135e+01, 0.66597e-02,-0.31277e-04, 0.45742e-02,
- a-0.31988e-04, 0.59900e+04, 0.60000e+04,
- a 0.65167e+02, 0.97529e+00,-0.19616e-02,-0.22633e-05,-0.46527e-02,
- a 0.10271e-05, 0.60000e+04, 0.60100e+04,
- a 0.35647e+01, 0.20344e+00,-0.52252e-02, 0.10688e-04,-0.57674e-02,
- a 0.80346e-05, 0.60100e+04, 0.60200e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.34141e+01, 0.14357e+00,-0.54304e-02, 0.95186e-05,-0.72736e-02,
- a 0.11430e-04, 0.60200e+04, 0.60300e+04,
- a 0.76350e+01, 0.43320e+00,-0.31157e-02, 0.13276e-04,-0.12770e-02,
- a 0.17678e-06, 0.60300e+04, 0.60400e+04,
- a 0.16118e+02, 0.28374e+00,-0.41664e-02, 0.49599e-05,-0.56931e-02,
- a 0.57765e-05, 0.60400e+04, 0.60500e+04,
- a 0.19177e+02, 0.33833e+00,-0.35167e-02, 0.17094e-05,-0.61198e-02,
- a 0.66957e-05, 0.60500e+04, 0.60600e+04,
- a 0.16850e+02, 0.88879e+00,-0.21460e-02,-0.32028e-05,-0.42847e-02,
- a 0.27277e-06, 0.60600e+04, 0.60700e+04,
- a 0.21077e+02, 0.25352e+00,-0.93983e-03,-0.90824e-05,-0.38178e-02,
- a-0.28130e-05, 0.60700e+04, 0.60800e+04,
- a 0.14763e+02, 0.24370e+00, 0.58706e-03,-0.14814e-04,-0.30455e-02,
- a-0.58930e-05, 0.60800e+04, 0.60900e+04,
- a 0.12160e+02, 0.31237e+00, 0.25210e-02,-0.21431e-04,-0.11996e-02,
- a-0.11964e-04, 0.60900e+04, 0.61000e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.10601e+02, 0.42935e+00, 0.43443e-02,-0.27697e-04, 0.31712e-03,
- a-0.17641e-04, 0.61000e+04, 0.61100e+04,
- a 0.77832e+01, 0.54373e+00, 0.57906e-02,-0.26532e-04, 0.14380e-02,
- a-0.19125e-04, 0.61100e+04, 0.61200e+04,
- a 0.57902e+01, 0.11869e+01, 0.54008e-02,-0.18503e-04, 0.23381e-02,
- a-0.20741e-04, 0.61200e+04, 0.61300e+04,
- a 0.40292e+01, 0.58128e+00, 0.79694e-02,-0.24981e-04, 0.32731e-02,
- a-0.22237e-04, 0.61300e+04, 0.61400e+04,
- a 0.30446e+01, 0.82071e+00, 0.77456e-02,-0.13929e-04, 0.53212e-02,
- a-0.25965e-04, 0.61400e+04, 0.61500e+04,
- a 0.19431e+01, 0.98831e+00, 0.60640e-02,-0.22019e-04, 0.32998e-02,
- a-0.24905e-04, 0.61500e+04, 0.61600e+04,
- a 0.97862e+00, 0.77724e+00, 0.73198e-02,-0.33144e-04, 0.43341e-02,
- a-0.32300e-04, 0.61600e+04, 0.61700e+04,
- a 0.41035e+00, 0.31003e+00, 0.44331e-02,-0.27381e-04, 0.19194e-02,
- a-0.24710e-04, 0.61700e+04, 0.61800e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.19122e+00, 0.12211e+00, 0.46368e-02,-0.30314e-04, 0.17315e-02,
- a-0.25376e-04, 0.61800e+04, 0.61900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.61900e+04, 0.62000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62000e+04, 0.62100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62100e+04, 0.62200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62200e+04, 0.62300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62300e+04, 0.62400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62400e+04, 0.62500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62500e+04, 0.62600e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62600e+04, 0.62700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62700e+04, 0.62800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62800e+04, 0.62900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62900e+04, 0.63000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63000e+04, 0.63100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63100e+04, 0.63200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63200e+04, 0.63300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63300e+04, 0.63400e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63400e+04, 0.63500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63500e+04, 0.63600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63600e+04, 0.63700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63700e+04, 0.63800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63800e+04, 0.63900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63900e+04, 0.64000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64000e+04, 0.64100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64100e+04, 0.64200e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64200e+04, 0.64300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64300e+04, 0.64400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64400e+04, 0.64500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64500e+04, 0.64600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64600e+04, 0.64700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64700e+04, 0.64800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64800e+04, 0.64900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64900e+04, 0.65000e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65000e+04, 0.65100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65100e+04, 0.65200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65200e+04, 0.65300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65300e+04, 0.65400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65400e+04, 0.65500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65500e+04, 0.65600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65600e+04, 0.65700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65700e+04, 0.65800e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65800e+04, 0.65900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65900e+04, 0.66000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66000e+04, 0.66100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66100e+04, 0.66200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66200e+04, 0.66300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66300e+04, 0.66400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66400e+04, 0.66500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66500e+04, 0.66600e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66600e+04, 0.66700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66700e+04, 0.66800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66800e+04, 0.66900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66900e+04, 0.67000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67000e+04, 0.67100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67100e+04, 0.67200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67200e+04, 0.67300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67300e+04, 0.67400e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67400e+04, 0.67500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67500e+04, 0.67600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67600e+04, 0.67700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67700e+04, 0.67800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67800e+04, 0.67900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67900e+04, 0.68000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68000e+04, 0.68100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68100e+04, 0.68200e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68200e+04, 0.68300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68300e+04, 0.68400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68400e+04, 0.68500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68500e+04, 0.68600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68600e+04, 0.68700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68700e+04, 0.68800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68800e+04, 0.68900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68900e+04, 0.69000e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69000e+04, 0.69100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69100e+04, 0.69200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69200e+04, 0.69300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69300e+04, 0.69400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69400e+04, 0.69500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69500e+04, 0.69600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69600e+04, 0.69700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69700e+04, 0.69800e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69800e+04, 0.69900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69900e+04, 0.70000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70000e+04, 0.70100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70100e+04, 0.70200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70200e+04, 0.70300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70300e+04, 0.70400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70400e+04, 0.70500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70500e+04, 0.70600e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70600e+04, 0.70700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70700e+04, 0.70800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70800e+04, 0.70900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70900e+04, 0.71000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71000e+04, 0.71100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71100e+04, 0.71200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71200e+04, 0.71300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71300e+04, 0.71400e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71400e+04, 0.71500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71500e+04, 0.71600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71600e+04, 0.71700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71700e+04, 0.71800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71800e+04, 0.71900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71900e+04, 0.72000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72000e+04, 0.72100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72100e+04, 0.72200e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72200e+04, 0.72300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72300e+04, 0.72400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72400e+04, 0.72500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72500e+04, 0.72600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72600e+04, 0.72700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72700e+04, 0.72800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72800e+04, 0.72900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72900e+04, 0.73000e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73000e+04, 0.73100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73100e+04, 0.73200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73200e+04, 0.73300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73300e+04, 0.73400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73400e+04, 0.73500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73500e+04, 0.73600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73600e+04, 0.73700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73700e+04, 0.73800e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73800e+04, 0.73900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73900e+04, 0.74000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74000e+04, 0.74100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74100e+04, 0.74200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74200e+04, 0.74300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74300e+04, 0.74400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74400e+04, 0.74500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74500e+04, 0.74600e+04/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74600e+04, 0.74700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74700e+04, 0.74800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74800e+04, 0.74900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74900e+04, 0.75000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75000e+04, 0.75100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75100e+04, 0.75200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75200e+04, 0.75300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75300e+04, 0.75400e+04/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75400e+04, 0.75500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75500e+04, 0.75600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75600e+04, 0.75700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75700e+04, 0.75800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75800e+04, 0.75900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75900e+04, 0.76000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76000e+04, 0.76100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76100e+04, 0.76200e+04/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH2.h b/Modules/ThirdParty/6S/src/6SV1.0B/METH2.h
deleted file mode 100644
index 6974d3a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH2.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_meth2_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH3.P b/Modules/ThirdParty/6S/src/6SV1.0B/METH3.P
deleted file mode 100644
index c927a94..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH3.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int meth3_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH3.c b/Modules/ThirdParty/6S/src/6SV1.0B/METH3.c
deleted file mode 100644
index 7e13f84..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH3.c
+++ /dev/null
@@ -1,195 +0,0 @@
-/* METH3.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine meth3(a,inu) >*/
-/* Subroutine */ int meth3_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 7620.,7630.,0.,0.,0.,0.,0.,0.,7630.,7640.,0.,0.,0.,0.,0.,0.,7640.,
- 7650.,0.,0.,0.,0.,0.,0.,7650.,7660.,0.,0.,0.,0.,0.,0.,7660.,7670.,
- 0.,0.,0.,0.,0.,0.,7670.,7680.,0.,0.,0.,0.,0.,0.,7680.,7690.,0.,0.,
- 0.,0.,0.,0.,7690.,7700.,0.,0.,0.,0.,0.,0.,7700.,7710.,0.,0.,0.,0.,
- 0.,0.,7710.,7720.,0.,0.,0.,0.,0.,0.,7720.,7730.,0.,0.,0.,0.,0.,0.,
- 7730.,7740.,0.,0.,0.,0.,0.,0.,7740.,7750.,0.,0.,0.,0.,0.,0.,7750.,
- 7760.,0.,0.,0.,0.,0.,0.,7760.,7770.,0.,0.,0.,0.,0.,0.,7770.,7780.,
- 0.,0.,0.,0.,0.,0.,7780.,7790.,0.,0.,0.,0.,0.,0.,7790.,7800.,0.,0.,
- 0.,0.,0.,0.,7800.,7810.,0.,0.,0.,0.,0.,0.,7810.,7820.,0.,0.,0.,0.,
- 0.,0.,7820.,7830.,0.,0.,0.,0.,0.,0.,7830.,7840.,0.,0.,0.,0.,0.,0.,
- 7840.,7850.,0.,0.,0.,0.,0.,0.,7850.,7860.,0.,0.,0.,0.,0.,0.,7860.,
- 7870.,0.,0.,0.,0.,0.,0.,7870.,7880.,0.,0.,0.,0.,0.,0.,7880.,7890.,
- 0.,0.,0.,0.,0.,0.,7890.,7900.,0.,0.,0.,0.,0.,0.,7900.,7910.,0.,0.,
- 0.,0.,0.,0.,7910.,7920.,0.,0.,0.,0.,0.,0.,7920.,7930.,0.,0.,0.,0.,
- 0.,0.,7930.,7940.,0.,0.,0.,0.,0.,0.,7940.,7950.,0.,0.,0.,0.,0.,0.,
- 7950.,7960.,0.,0.,0.,0.,0.,0.,7960.,7970.,0.,0.,0.,0.,0.,0.,7970.,
- 7980.,0.,0.,0.,0.,0.,0.,7980.,7990.,0.,0.,0.,0.,0.,0.,7990.,8e3,
- 0.,0.,0.,0.,0.,0.,8e3,8010.,0.,0.,0.,0.,0.,0.,8010.,8020.,0.,0.,
- 0.,0.,0.,0.,8020.,8030.,0.,0.,0.,0.,0.,0.,8030.,8040.,0.,0.,0.,0.,
- 0.,0.,8040.,8050.,0.,0.,0.,0.,0.,0.,8050.,8060.,0.,0.,0.,0.,0.,0.,
- 8060.,8070.,0.,0.,0.,0.,0.,0.,8070.,8080.,0.,0.,0.,0.,0.,0.,8080.,
- 8090.,0.,0.,0.,0.,0.,0.,8090.,8100.,0.,0.,0.,0.,0.,0.,8100.,8110.,
- 0.,0.,0.,0.,0.,0.,8110.,8120.,0.,0.,0.,0.,0.,0.,8120.,8130.,0.,0.,
- 0.,0.,0.,0.,8130.,8140.,0.,0.,0.,0.,0.,0.,8140.,8150.,0.,0.,0.,0.,
- 0.,0.,8150.,8160.,0.,0.,0.,0.,0.,0.,8160.,8170.,0.,0.,0.,0.,0.,0.,
- 8170.,8180.,0.,0.,0.,0.,0.,0.,8180.,8190.,0.,0.,0.,0.,0.,0.,8190.,
- 8200.,0.,0.,0.,0.,0.,0.,8200.,8210.,0.,0.,0.,0.,0.,0.,8210.,8220.,
- 0.,0.,0.,0.,0.,0.,8220.,8230.,0.,0.,0.,0.,0.,0.,8230.,8240.,0.,0.,
- 0.,0.,0.,0.,8240.,8250.,0.,0.,0.,0.,0.,0.,8250.,8260.,0.,0.,0.,0.,
- 0.,0.,8260.,8270.,0.,0.,0.,0.,0.,0.,8270.,8280.,0.,0.,0.,0.,0.,0.,
- 8280.,8290.,0.,0.,0.,0.,0.,0.,8290.,8300.,0.,0.,0.,0.,0.,0.,8300.,
- 8310.,0.,0.,0.,0.,0.,0.,8310.,8320.,0.,0.,0.,0.,0.,0.,8320.,8330.,
- 0.,0.,0.,0.,0.,0.,8330.,8340.,0.,0.,0.,0.,0.,0.,8340.,8350.,0.,0.,
- 0.,0.,0.,0.,8350.,8360.,0.,0.,0.,0.,0.,0.,8360.,8370.,0.,0.,0.,0.,
- 0.,0.,8370.,8380.,0.,0.,0.,0.,0.,0.,8380.,8390.,0.,0.,0.,0.,0.,0.,
- 8390.,8400.,0.,0.,0.,0.,0.,0.,8400.,8410.,0.,0.,0.,0.,0.,0.,8410.,
- 8420.,0.,0.,0.,0.,0.,0.,8420.,8430.,0.,0.,0.,0.,0.,0.,8430.,8440.,
- 0.,0.,0.,0.,0.,0.,8440.,8450.,0.,0.,0.,0.,0.,0.,8450.,8460.,0.,0.,
- 0.,0.,0.,0.,8460.,8470.,0.,0.,0.,0.,0.,0.,8470.,8480.,0.,0.,0.,0.,
- 0.,0.,8480.,8490.,0.,0.,0.,0.,0.,0.,8490.,8500.,0.,0.,0.,0.,0.,0.,
- 8500.,8510.,0.,0.,0.,0.,0.,0.,8510.,8520.,0.,0.,0.,0.,0.,0.,8520.,
- 8530.,0.,0.,0.,0.,0.,0.,8530.,8540.,0.,0.,0.,0.,0.,0.,8540.,8550.,
- 0.,0.,0.,0.,0.,0.,8550.,8560.,0.,0.,0.,0.,0.,0.,8560.,8570.,0.,0.,
- 0.,0.,0.,0.,8570.,8580.,0.,0.,0.,0.,0.,0.,8580.,8590.,0.,0.,0.,0.,
- 0.,0.,8590.,8600.,0.,0.,0.,0.,0.,0.,8600.,8610.,0.,0.,0.,0.,0.,0.,
- 8610.,8620.,0.,0.,0.,0.,0.,0.,8620.,8630.,0.,0.,0.,0.,0.,0.,8630.,
- 8640.,0.,0.,0.,0.,0.,0.,8640.,8650.,0.,0.,0.,0.,0.,0.,8650.,8660.,
- 0.,0.,0.,0.,0.,0.,8660.,8670.,0.,0.,0.,0.,0.,0.,8670.,8680.,0.,0.,
- 0.,0.,0.,0.,8680.,8690.,0.,0.,0.,0.,0.,0.,8690.,8700.,0.,0.,0.,0.,
- 0.,0.,8700.,8710.,0.,0.,0.,0.,0.,0.,8710.,8720.,0.,0.,0.,0.,0.,0.,
- 8720.,8730.,0.,0.,0.,0.,0.,0.,8730.,8740.,0.,0.,0.,0.,0.,0.,8740.,
- 8750.,0.,0.,0.,0.,0.,0.,8750.,8760.,0.,0.,0.,0.,0.,0.,8760.,8770.,
- 0.,0.,0.,0.,0.,0.,8770.,8780.,0.,0.,0.,0.,0.,0.,8780.,8790.,0.,0.,
- 0.,0.,0.,0.,8790.,8800.,0.,0.,0.,0.,0.,0.,8800.,8810.,0.,0.,0.,0.,
- 0.,0.,8810.,8820.,0.,0.,0.,0.,0.,0.,8820.,8830.,0.,0.,0.,0.,0.,0.,
- 8830.,8840.,0.,0.,0.,0.,0.,0.,8840.,8850.,0.,0.,0.,0.,0.,0.,8850.,
- 8860.,0.,0.,0.,0.,0.,0.,8860.,8870.,0.,0.,0.,0.,0.,0.,8870.,8880.,
- 0.,0.,0.,0.,0.,0.,8880.,8890.,0.,0.,0.,0.,0.,0.,8890.,8900.,0.,0.,
- 0.,0.,0.,0.,8900.,8910.,0.,0.,0.,0.,0.,0.,8910.,8920.,0.,0.,0.,0.,
- 0.,0.,8920.,8930.,0.,0.,0.,0.,0.,0.,8930.,8940.,0.,0.,0.,0.,0.,0.,
- 8940.,8950.,0.,0.,0.,0.,0.,0.,8950.,8960.,0.,0.,0.,0.,0.,0.,8960.,
- 8970.,0.,0.,0.,0.,0.,0.,8970.,8980.,0.,0.,0.,0.,0.,0.,8980.,8990.,
- 0.,0.,0.,0.,0.,0.,8990.,9e3,0.,0.,0.,0.,0.,0.,9e3,9010.,0.,0.,0.,
- 0.,0.,0.,9010.,9020.,0.,0.,0.,0.,0.,0.,9020.,9030.,0.,0.,0.,0.,0.,
- 0.,9030.,9040.,0.,0.,0.,0.,0.,0.,9040.,9050.,0.,0.,0.,0.,0.,0.,
- 9050.,9060.,0.,0.,0.,0.,0.,0.,9060.,9070.,0.,0.,0.,0.,0.,0.,9070.,
- 9080.,0.,0.,0.,0.,0.,0.,9080.,9090.,0.,0.,0.,0.,0.,0.,9090.,9100.,
- 0.,0.,0.,0.,0.,0.,9100.,9110.,0.,0.,0.,0.,0.,0.,9110.,9120.,0.,0.,
- 0.,0.,0.,0.,9120.,9130.,0.,0.,0.,0.,0.,0.,9130.,9140.,0.,0.,0.,0.,
- 0.,0.,9140.,9150.,0.,0.,0.,0.,0.,0.,9150.,9160.,0.,0.,0.,0.,0.,0.,
- 9160.,9170.,0.,0.,0.,0.,0.,0.,9170.,9180.,0.,0.,0.,0.,0.,0.,9180.,
- 9190.,0.,0.,0.,0.,0.,0.,9190.,9200.,0.,0.,0.,0.,0.,0.,9200.,9210.,
- 0.,0.,0.,0.,0.,0.,9210.,9220.,0.,0.,0.,0.,0.,0.,9220.,9230.,0.,0.,
- 0.,0.,0.,0.,9230.,9240.,0.,0.,0.,0.,0.,0.,9240.,9250.,0.,0.,0.,0.,
- 0.,0.,9250.,9260.,0.,0.,0.,0.,0.,0.,9260.,9270.,0.,0.,0.,0.,0.,0.,
- 9270.,9280.,0.,0.,0.,0.,0.,0.,9280.,9290.,0.,0.,0.,0.,0.,0.,9290.,
- 9300.,0.,0.,0.,0.,0.,0.,9300.,9310.,0.,0.,0.,0.,0.,0.,9310.,9320.,
- 0.,0.,0.,0.,0.,0.,9320.,9330.,0.,0.,0.,0.,0.,0.,9330.,9340.,0.,0.,
- 0.,0.,0.,0.,9340.,9350.,0.,0.,0.,0.,0.,0.,9350.,9360.,0.,0.,0.,0.,
- 0.,0.,9360.,9370.,0.,0.,0.,0.,0.,0.,9370.,9380.,0.,0.,0.,0.,0.,0.,
- 9380.,9390.,0.,0.,0.,0.,0.,0.,9390.,9400.,0.,0.,0.,0.,0.,0.,9400.,
- 9410.,0.,0.,0.,0.,0.,0.,9410.,9420.,0.,0.,0.,0.,0.,0.,9420.,9430.,
- 0.,0.,0.,0.,0.,0.,9430.,9440.,0.,0.,0.,0.,0.,0.,9440.,9450.,0.,0.,
- 0.,0.,0.,0.,9450.,9460.,0.,0.,0.,0.,0.,0.,9460.,9470.,0.,0.,0.,0.,
- 0.,0.,9470.,9480.,0.,0.,0.,0.,0.,0.,9480.,9490.,0.,0.,0.,0.,0.,0.,
- 9490.,9500.,0.,0.,0.,0.,0.,0.,9500.,9510.,0.,0.,0.,0.,0.,0.,9510.,
- 9520.,0.,0.,0.,0.,0.,0.,9520.,9530.,0.,0.,0.,0.,0.,0.,9530.,9540.,
- 0.,0.,0.,0.,0.,0.,9540.,9550.,0.,0.,0.,0.,0.,0.,9550.,9560.,0.,0.,
- 0.,0.,0.,0.,9560.,9570.,0.,0.,0.,0.,0.,0.,9570.,9580.,0.,0.,0.,0.,
- 0.,0.,9580.,9590.,0.,0.,0.,0.,0.,0.,9590.,9600.,0.,0.,0.,0.,0.,0.,
- 9600.,9610.,0.,0.,0.,0.,0.,0.,9610.,9620.,0.,0.,0.,0.,0.,0.,9620.,
- 9630.,0.,0.,0.,0.,0.,0.,9630.,9640.,0.,0.,0.,0.,0.,0.,9640.,9650.,
- 0.,0.,0.,0.,0.,0.,9650.,9660.,0.,0.,0.,0.,0.,0.,9660.,9670.,0.,0.,
- 0.,0.,0.,0.,9670.,9680.,0.,0.,0.,0.,0.,0.,9680.,9690.,0.,0.,0.,0.,
- 0.,0.,9690.,9700.,0.,0.,0.,0.,0.,0.,9700.,9710.,0.,0.,0.,0.,0.,0.,
- 9710.,9720.,0.,0.,0.,0.,0.,0.,9720.,9730.,0.,0.,0.,0.,0.,0.,9730.,
- 9740.,0.,0.,0.,0.,0.,0.,9740.,9750.,0.,0.,0.,0.,0.,0.,9750.,9760.,
- 0.,0.,0.,0.,0.,0.,9760.,9770.,0.,0.,0.,0.,0.,0.,9770.,9780.,0.,0.,
- 0.,0.,0.,0.,9780.,9790.,0.,0.,0.,0.,0.,0.,9790.,9800.,0.,0.,0.,0.,
- 0.,0.,9800.,9810.,0.,0.,0.,0.,0.,0.,9810.,9820.,0.,0.,0.,0.,0.,0.,
- 9820.,9830.,0.,0.,0.,0.,0.,0.,9830.,9840.,0.,0.,0.,0.,0.,0.,9840.,
- 9850.,0.,0.,0.,0.,0.,0.,9850.,9860.,0.,0.,0.,0.,0.,0.,9860.,9870.,
- 0.,0.,0.,0.,0.,0.,9870.,9880.,0.,0.,0.,0.,0.,0.,9880.,9890.,0.,0.,
- 0.,0.,0.,0.,9890.,9900.,0.,0.,0.,0.,0.,0.,9900.,9910.,0.,0.,0.,0.,
- 0.,0.,9910.,9920.,0.,0.,0.,0.,0.,0.,9920.,9930.,0.,0.,0.,0.,0.,0.,
- 9930.,9940.,0.,0.,0.,0.,0.,0.,9940.,9950.,0.,0.,0.,0.,0.,0.,9950.,
- 9960.,0.,0.,0.,0.,0.,0.,9960.,9970.,0.,0.,0.,0.,0.,0.,9970.,9980.,
- 0.,0.,0.,0.,0.,0.,9980.,9990.,0.,0.,0.,0.,0.,0.,9990.,1e4,0.,0.,
- 0.,0.,0.,0.,1e4,10010.,0.,0.,0.,0.,0.,0.,10010.,10020.,0.,0.,0.,
- 0.,0.,0.,10020.,10030.,0.,0.,0.,0.,0.,0.,10030.,10040.,0.,0.,0.,
- 0.,0.,0.,10040.,10050.,0.,0.,0.,0.,0.,0.,10050.,10060.,0.,0.,0.,
- 0.,0.,0.,10060.,10070.,0.,0.,0.,0.,0.,0.,10070.,10080.,0.,0.,0.,
- 0.,0.,0.,10080.,10090.,0.,0.,0.,0.,0.,0.,10090.,10100.,0.,0.,0.,
- 0.,0.,0.,10100.,10110.,0.,0.,0.,0.,0.,0.,10110.,10120.,0.,0.,0.,
- 0.,0.,0.,10120.,10130.,0.,0.,0.,0.,0.,0.,10130.,10140.,0.,0.,0.,
- 0.,0.,0.,10140.,10150.,0.,0.,0.,0.,0.,0.,10150.,10160.,0.,0.,0.,
- 0.,0.,0.,10160.,10170.,0.,0.,0.,0.,0.,0.,10170.,10180. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* methane (7620 - 10170 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* meth3_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH3.f b/Modules/ThirdParty/6S/src/6SV1.0B/METH3.f
deleted file mode 100644
index 20c5e06..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH3.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine meth3(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c methane (7620 - 10170 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76200e+04, 0.76300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76300e+04, 0.76400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76400e+04, 0.76500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76500e+04, 0.76600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76600e+04, 0.76700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76700e+04, 0.76800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76800e+04, 0.76900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76900e+04, 0.77000e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77000e+04, 0.77100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77100e+04, 0.77200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77200e+04, 0.77300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77300e+04, 0.77400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77400e+04, 0.77500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77500e+04, 0.77600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77600e+04, 0.77700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77700e+04, 0.77800e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77800e+04, 0.77900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77900e+04, 0.78000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78000e+04, 0.78100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78100e+04, 0.78200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78200e+04, 0.78300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78300e+04, 0.78400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78400e+04, 0.78500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78500e+04, 0.78600e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78600e+04, 0.78700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78700e+04, 0.78800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78800e+04, 0.78900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78900e+04, 0.79000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79000e+04, 0.79100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79100e+04, 0.79200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79200e+04, 0.79300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79300e+04, 0.79400e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79400e+04, 0.79500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79500e+04, 0.79600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79600e+04, 0.79700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79700e+04, 0.79800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79800e+04, 0.79900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79900e+04, 0.80000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80000e+04, 0.80100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80100e+04, 0.80200e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80200e+04, 0.80300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80300e+04, 0.80400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80400e+04, 0.80500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80500e+04, 0.80600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80600e+04, 0.80700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80700e+04, 0.80800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80800e+04, 0.80900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80900e+04, 0.81000e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81000e+04, 0.81100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81100e+04, 0.81200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81200e+04, 0.81300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81300e+04, 0.81400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81400e+04, 0.81500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81500e+04, 0.81600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81600e+04, 0.81700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81700e+04, 0.81800e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81800e+04, 0.81900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81900e+04, 0.82000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82000e+04, 0.82100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82100e+04, 0.82200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82200e+04, 0.82300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82300e+04, 0.82400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82400e+04, 0.82500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82500e+04, 0.82600e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82600e+04, 0.82700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82700e+04, 0.82800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82800e+04, 0.82900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82900e+04, 0.83000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83000e+04, 0.83100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83100e+04, 0.83200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83200e+04, 0.83300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83300e+04, 0.83400e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83400e+04, 0.83500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83500e+04, 0.83600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83600e+04, 0.83700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83700e+04, 0.83800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83800e+04, 0.83900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83900e+04, 0.84000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84000e+04, 0.84100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84100e+04, 0.84200e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84200e+04, 0.84300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84300e+04, 0.84400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84400e+04, 0.84500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84500e+04, 0.84600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84600e+04, 0.84700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84700e+04, 0.84800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84800e+04, 0.84900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84900e+04, 0.85000e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85000e+04, 0.85100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85100e+04, 0.85200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85200e+04, 0.85300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85300e+04, 0.85400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85400e+04, 0.85500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85500e+04, 0.85600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85600e+04, 0.85700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85700e+04, 0.85800e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85800e+04, 0.85900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85900e+04, 0.86000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86000e+04, 0.86100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86100e+04, 0.86200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86200e+04, 0.86300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86300e+04, 0.86400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86400e+04, 0.86500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86500e+04, 0.86600e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86600e+04, 0.86700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86700e+04, 0.86800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86800e+04, 0.86900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86900e+04, 0.87000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87000e+04, 0.87100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87100e+04, 0.87200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87200e+04, 0.87300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87300e+04, 0.87400e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87400e+04, 0.87500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87500e+04, 0.87600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87600e+04, 0.87700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87700e+04, 0.87800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87800e+04, 0.87900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87900e+04, 0.88000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88000e+04, 0.88100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88100e+04, 0.88200e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88200e+04, 0.88300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88300e+04, 0.88400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88400e+04, 0.88500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88500e+04, 0.88600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88600e+04, 0.88700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88700e+04, 0.88800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88800e+04, 0.88900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88900e+04, 0.89000e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89000e+04, 0.89100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89100e+04, 0.89200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89200e+04, 0.89300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89300e+04, 0.89400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89400e+04, 0.89500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89500e+04, 0.89600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89600e+04, 0.89700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89700e+04, 0.89800e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89800e+04, 0.89900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89900e+04, 0.90000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90000e+04, 0.90100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90100e+04, 0.90200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90200e+04, 0.90300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90300e+04, 0.90400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90400e+04, 0.90500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90500e+04, 0.90600e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90600e+04, 0.90700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90700e+04, 0.90800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90800e+04, 0.90900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90900e+04, 0.91000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91000e+04, 0.91100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91100e+04, 0.91200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91200e+04, 0.91300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91300e+04, 0.91400e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91400e+04, 0.91500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91500e+04, 0.91600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91600e+04, 0.91700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91700e+04, 0.91800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91800e+04, 0.91900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91900e+04, 0.92000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92000e+04, 0.92100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92100e+04, 0.92200e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92200e+04, 0.92300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92300e+04, 0.92400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92400e+04, 0.92500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92500e+04, 0.92600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92600e+04, 0.92700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92700e+04, 0.92800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92800e+04, 0.92900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92900e+04, 0.93000e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93000e+04, 0.93100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93100e+04, 0.93200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93200e+04, 0.93300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93300e+04, 0.93400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93400e+04, 0.93500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93500e+04, 0.93600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93600e+04, 0.93700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93700e+04, 0.93800e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93800e+04, 0.93900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93900e+04, 0.94000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94000e+04, 0.94100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94100e+04, 0.94200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94200e+04, 0.94300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94300e+04, 0.94400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94400e+04, 0.94500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94500e+04, 0.94600e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94600e+04, 0.94700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94700e+04, 0.94800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94800e+04, 0.94900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94900e+04, 0.95000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95000e+04, 0.95100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95100e+04, 0.95200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95200e+04, 0.95300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95300e+04, 0.95400e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95400e+04, 0.95500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95500e+04, 0.95600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95600e+04, 0.95700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95700e+04, 0.95800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95800e+04, 0.95900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95900e+04, 0.96000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96000e+04, 0.96100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96100e+04, 0.96200e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96200e+04, 0.96300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96300e+04, 0.96400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96400e+04, 0.96500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96500e+04, 0.96600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96600e+04, 0.96700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96700e+04, 0.96800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96800e+04, 0.96900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96900e+04, 0.97000e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97000e+04, 0.97100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97100e+04, 0.97200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97200e+04, 0.97300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97300e+04, 0.97400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97400e+04, 0.97500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97500e+04, 0.97600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97600e+04, 0.97700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97700e+04, 0.97800e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97800e+04, 0.97900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97900e+04, 0.98000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98000e+04, 0.98100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98100e+04, 0.98200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98200e+04, 0.98300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98300e+04, 0.98400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98400e+04, 0.98500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98500e+04, 0.98600e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98600e+04, 0.98700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98700e+04, 0.98800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98800e+04, 0.98900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98900e+04, 0.99000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99000e+04, 0.99100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99100e+04, 0.99200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99200e+04, 0.99300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99300e+04, 0.99400e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99400e+04, 0.99500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99500e+04, 0.99600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99600e+04, 0.99700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99700e+04, 0.99800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99800e+04, 0.99900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99900e+04, 0.10000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10000e+05, 0.10010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10010e+05, 0.10020e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10020e+05, 0.10030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10030e+05, 0.10040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10040e+05, 0.10050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10050e+05, 0.10060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10060e+05, 0.10070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10070e+05, 0.10080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10080e+05, 0.10090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10090e+05, 0.10100e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10100e+05, 0.10110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10110e+05, 0.10120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10120e+05, 0.10130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10130e+05, 0.10140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10140e+05, 0.10150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10150e+05, 0.10160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10160e+05, 0.10170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10170e+05, 0.10180e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH3.h b/Modules/ThirdParty/6S/src/6SV1.0B/METH3.h
deleted file mode 100644
index 1888464..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH3.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_meth3_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH4.P b/Modules/ThirdParty/6S/src/6SV1.0B/METH4.P
deleted file mode 100644
index 15b8cb9..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH4.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int meth4_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH4.c b/Modules/ThirdParty/6S/src/6SV1.0B/METH4.c
deleted file mode 100644
index f11267e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH4.c
+++ /dev/null
@@ -1,206 +0,0 @@
-/* METH4.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine meth4(a,inu) >*/
-/* Subroutine */ int meth4_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 10180.,10190.,0.,0.,0.,0.,0.,0.,10190.,10200.,0.,0.,0.,0.,0.,0.,
- 10200.,10210.,0.,0.,0.,0.,0.,0.,10210.,10220.,0.,0.,0.,0.,0.,0.,
- 10220.,10230.,0.,0.,0.,0.,0.,0.,10230.,10240.,0.,0.,0.,0.,0.,0.,
- 10240.,10250.,0.,0.,0.,0.,0.,0.,10250.,10260.,0.,0.,0.,0.,0.,0.,
- 10260.,10270.,0.,0.,0.,0.,0.,0.,10270.,10280.,0.,0.,0.,0.,0.,0.,
- 10280.,10290.,0.,0.,0.,0.,0.,0.,10290.,10300.,0.,0.,0.,0.,0.,0.,
- 10300.,10310.,0.,0.,0.,0.,0.,0.,10310.,10320.,0.,0.,0.,0.,0.,0.,
- 10320.,10330.,0.,0.,0.,0.,0.,0.,10330.,10340.,0.,0.,0.,0.,0.,0.,
- 10340.,10350.,0.,0.,0.,0.,0.,0.,10350.,10360.,0.,0.,0.,0.,0.,0.,
- 10360.,10370.,0.,0.,0.,0.,0.,0.,10370.,10380.,0.,0.,0.,0.,0.,0.,
- 10380.,10390.,0.,0.,0.,0.,0.,0.,10390.,10400.,0.,0.,0.,0.,0.,0.,
- 10400.,10410.,0.,0.,0.,0.,0.,0.,10410.,10420.,0.,0.,0.,0.,0.,0.,
- 10420.,10430.,0.,0.,0.,0.,0.,0.,10430.,10440.,0.,0.,0.,0.,0.,0.,
- 10440.,10450.,0.,0.,0.,0.,0.,0.,10450.,10460.,0.,0.,0.,0.,0.,0.,
- 10460.,10470.,0.,0.,0.,0.,0.,0.,10470.,10480.,0.,0.,0.,0.,0.,0.,
- 10480.,10490.,0.,0.,0.,0.,0.,0.,10490.,10500.,0.,0.,0.,0.,0.,0.,
- 10500.,10510.,0.,0.,0.,0.,0.,0.,10510.,10520.,0.,0.,0.,0.,0.,0.,
- 10520.,10530.,0.,0.,0.,0.,0.,0.,10530.,10540.,0.,0.,0.,0.,0.,0.,
- 10540.,10550.,0.,0.,0.,0.,0.,0.,10550.,10560.,0.,0.,0.,0.,0.,0.,
- 10560.,10570.,0.,0.,0.,0.,0.,0.,10570.,10580.,0.,0.,0.,0.,0.,0.,
- 10580.,10590.,0.,0.,0.,0.,0.,0.,10590.,10600.,0.,0.,0.,0.,0.,0.,
- 10600.,10610.,0.,0.,0.,0.,0.,0.,10610.,10620.,0.,0.,0.,0.,0.,0.,
- 10620.,10630.,0.,0.,0.,0.,0.,0.,10630.,10640.,0.,0.,0.,0.,0.,0.,
- 10640.,10650.,0.,0.,0.,0.,0.,0.,10650.,10660.,0.,0.,0.,0.,0.,0.,
- 10660.,10670.,0.,0.,0.,0.,0.,0.,10670.,10680.,0.,0.,0.,0.,0.,0.,
- 10680.,10690.,0.,0.,0.,0.,0.,0.,10690.,10700.,0.,0.,0.,0.,0.,0.,
- 10700.,10710.,0.,0.,0.,0.,0.,0.,10710.,10720.,0.,0.,0.,0.,0.,0.,
- 10720.,10730.,0.,0.,0.,0.,0.,0.,10730.,10740.,0.,0.,0.,0.,0.,0.,
- 10740.,10750.,0.,0.,0.,0.,0.,0.,10750.,10760.,0.,0.,0.,0.,0.,0.,
- 10760.,10770.,0.,0.,0.,0.,0.,0.,10770.,10780.,0.,0.,0.,0.,0.,0.,
- 10780.,10790.,0.,0.,0.,0.,0.,0.,10790.,10800.,0.,0.,0.,0.,0.,0.,
- 10800.,10810.,0.,0.,0.,0.,0.,0.,10810.,10820.,0.,0.,0.,0.,0.,0.,
- 10820.,10830.,0.,0.,0.,0.,0.,0.,10830.,10840.,0.,0.,0.,0.,0.,0.,
- 10840.,10850.,0.,0.,0.,0.,0.,0.,10850.,10860.,0.,0.,0.,0.,0.,0.,
- 10860.,10870.,0.,0.,0.,0.,0.,0.,10870.,10880.,0.,0.,0.,0.,0.,0.,
- 10880.,10890.,0.,0.,0.,0.,0.,0.,10890.,10900.,0.,0.,0.,0.,0.,0.,
- 10900.,10910.,0.,0.,0.,0.,0.,0.,10910.,10920.,0.,0.,0.,0.,0.,0.,
- 10920.,10930.,0.,0.,0.,0.,0.,0.,10930.,10940.,0.,0.,0.,0.,0.,0.,
- 10940.,10950.,0.,0.,0.,0.,0.,0.,10950.,10960.,0.,0.,0.,0.,0.,0.,
- 10960.,10970.,0.,0.,0.,0.,0.,0.,10970.,10980.,0.,0.,0.,0.,0.,0.,
- 10980.,10990.,0.,0.,0.,0.,0.,0.,10990.,1.1e4,0.,0.,0.,0.,0.,0.,
- 1.1e4,11010.,0.,0.,0.,0.,0.,0.,11010.,11020.,0.,0.,0.,0.,0.,0.,
- 11020.,11030.,0.,0.,0.,0.,0.,0.,11030.,11040.,0.,0.,0.,0.,0.,0.,
- 11040.,11050.,0.,0.,0.,0.,0.,0.,11050.,11060.,0.,0.,0.,0.,0.,0.,
- 11060.,11070.,0.,0.,0.,0.,0.,0.,11070.,11080.,0.,0.,0.,0.,0.,0.,
- 11080.,11090.,0.,0.,0.,0.,0.,0.,11090.,11100.,0.,0.,0.,0.,0.,0.,
- 11100.,11110.,0.,0.,0.,0.,0.,0.,11110.,11120.,0.,0.,0.,0.,0.,0.,
- 11120.,11130.,0.,0.,0.,0.,0.,0.,11130.,11140.,0.,0.,0.,0.,0.,0.,
- 11140.,11150.,0.,0.,0.,0.,0.,0.,11150.,11160.,0.,0.,0.,0.,0.,0.,
- 11160.,11170.,0.,0.,0.,0.,0.,0.,11170.,11180.,0.,0.,0.,0.,0.,0.,
- 11180.,11190.,0.,0.,0.,0.,0.,0.,11190.,11200.,0.,0.,0.,0.,0.,0.,
- 11200.,11210.,0.,0.,0.,0.,0.,0.,11210.,11220.,0.,0.,0.,0.,0.,0.,
- 11220.,11230.,0.,0.,0.,0.,0.,0.,11230.,11240.,0.,0.,0.,0.,0.,0.,
- 11240.,11250.,0.,0.,0.,0.,0.,0.,11250.,11260.,0.,0.,0.,0.,0.,0.,
- 11260.,11270.,0.,0.,0.,0.,0.,0.,11270.,11280.,0.,0.,0.,0.,0.,0.,
- 11280.,11290.,0.,0.,0.,0.,0.,0.,11290.,11300.,0.,0.,0.,0.,0.,0.,
- 11300.,11310.,0.,0.,0.,0.,0.,0.,11310.,11320.,0.,0.,0.,0.,0.,0.,
- 11320.,11330.,0.,0.,0.,0.,0.,0.,11330.,11340.,0.,0.,0.,0.,0.,0.,
- 11340.,11350.,0.,0.,0.,0.,0.,0.,11350.,11360.,0.,0.,0.,0.,0.,0.,
- 11360.,11370.,0.,0.,0.,0.,0.,0.,11370.,11380.,0.,0.,0.,0.,0.,0.,
- 11380.,11390.,0.,0.,0.,0.,0.,0.,11390.,11400.,0.,0.,0.,0.,0.,0.,
- 11400.,11410.,0.,0.,0.,0.,0.,0.,11410.,11420.,0.,0.,0.,0.,0.,0.,
- 11420.,11430.,0.,0.,0.,0.,0.,0.,11430.,11440.,0.,0.,0.,0.,0.,0.,
- 11440.,11450.,0.,0.,0.,0.,0.,0.,11450.,11460.,0.,0.,0.,0.,0.,0.,
- 11460.,11470.,0.,0.,0.,0.,0.,0.,11470.,11480.,0.,0.,0.,0.,0.,0.,
- 11480.,11490.,0.,0.,0.,0.,0.,0.,11490.,11500.,0.,0.,0.,0.,0.,0.,
- 11500.,11510.,0.,0.,0.,0.,0.,0.,11510.,11520.,0.,0.,0.,0.,0.,0.,
- 11520.,11530.,0.,0.,0.,0.,0.,0.,11530.,11540.,0.,0.,0.,0.,0.,0.,
- 11540.,11550.,0.,0.,0.,0.,0.,0.,11550.,11560.,0.,0.,0.,0.,0.,0.,
- 11560.,11570.,0.,0.,0.,0.,0.,0.,11570.,11580.,0.,0.,0.,0.,0.,0.,
- 11580.,11590.,0.,0.,0.,0.,0.,0.,11590.,11600.,0.,0.,0.,0.,0.,0.,
- 11600.,11610.,0.,0.,0.,0.,0.,0.,11610.,11620.,0.,0.,0.,0.,0.,0.,
- 11620.,11630.,0.,0.,0.,0.,0.,0.,11630.,11640.,0.,0.,0.,0.,0.,0.,
- 11640.,11650.,0.,0.,0.,0.,0.,0.,11650.,11660.,0.,0.,0.,0.,0.,0.,
- 11660.,11670.,0.,0.,0.,0.,0.,0.,11670.,11680.,0.,0.,0.,0.,0.,0.,
- 11680.,11690.,0.,0.,0.,0.,0.,0.,11690.,11700.,0.,0.,0.,0.,0.,0.,
- 11700.,11710.,0.,0.,0.,0.,0.,0.,11710.,11720.,0.,0.,0.,0.,0.,0.,
- 11720.,11730.,0.,0.,0.,0.,0.,0.,11730.,11740.,0.,0.,0.,0.,0.,0.,
- 11740.,11750.,0.,0.,0.,0.,0.,0.,11750.,11760.,0.,0.,0.,0.,0.,0.,
- 11760.,11770.,0.,0.,0.,0.,0.,0.,11770.,11780.,0.,0.,0.,0.,0.,0.,
- 11780.,11790.,0.,0.,0.,0.,0.,0.,11790.,11800.,0.,0.,0.,0.,0.,0.,
- 11800.,11810.,0.,0.,0.,0.,0.,0.,11810.,11820.,0.,0.,0.,0.,0.,0.,
- 11820.,11830.,0.,0.,0.,0.,0.,0.,11830.,11840.,0.,0.,0.,0.,0.,0.,
- 11840.,11850.,0.,0.,0.,0.,0.,0.,11850.,11860.,0.,0.,0.,0.,0.,0.,
- 11860.,11870.,0.,0.,0.,0.,0.,0.,11870.,11880.,0.,0.,0.,0.,0.,0.,
- 11880.,11890.,0.,0.,0.,0.,0.,0.,11890.,11900.,0.,0.,0.,0.,0.,0.,
- 11900.,11910.,0.,0.,0.,0.,0.,0.,11910.,11920.,0.,0.,0.,0.,0.,0.,
- 11920.,11930.,0.,0.,0.,0.,0.,0.,11930.,11940.,0.,0.,0.,0.,0.,0.,
- 11940.,11950.,0.,0.,0.,0.,0.,0.,11950.,11960.,0.,0.,0.,0.,0.,0.,
- 11960.,11970.,0.,0.,0.,0.,0.,0.,11970.,11980.,0.,0.,0.,0.,0.,0.,
- 11980.,11990.,0.,0.,0.,0.,0.,0.,11990.,1.2e4,0.,0.,0.,0.,0.,0.,
- 1.2e4,12010.,0.,0.,0.,0.,0.,0.,12010.,12020.,0.,0.,0.,0.,0.,0.,
- 12020.,12030.,0.,0.,0.,0.,0.,0.,12030.,12040.,0.,0.,0.,0.,0.,0.,
- 12040.,12050.,0.,0.,0.,0.,0.,0.,12050.,12060.,0.,0.,0.,0.,0.,0.,
- 12060.,12070.,0.,0.,0.,0.,0.,0.,12070.,12080.,0.,0.,0.,0.,0.,0.,
- 12080.,12090.,0.,0.,0.,0.,0.,0.,12090.,12100.,0.,0.,0.,0.,0.,0.,
- 12100.,12110.,0.,0.,0.,0.,0.,0.,12110.,12120.,0.,0.,0.,0.,0.,0.,
- 12120.,12130.,0.,0.,0.,0.,0.,0.,12130.,12140.,0.,0.,0.,0.,0.,0.,
- 12140.,12150.,0.,0.,0.,0.,0.,0.,12150.,12160.,0.,0.,0.,0.,0.,0.,
- 12160.,12170.,0.,0.,0.,0.,0.,0.,12170.,12180.,0.,0.,0.,0.,0.,0.,
- 12180.,12190.,0.,0.,0.,0.,0.,0.,12190.,12200.,0.,0.,0.,0.,0.,0.,
- 12200.,12210.,0.,0.,0.,0.,0.,0.,12210.,12220.,0.,0.,0.,0.,0.,0.,
- 12220.,12230.,0.,0.,0.,0.,0.,0.,12230.,12240.,0.,0.,0.,0.,0.,0.,
- 12240.,12250.,0.,0.,0.,0.,0.,0.,12250.,12260.,0.,0.,0.,0.,0.,0.,
- 12260.,12270.,0.,0.,0.,0.,0.,0.,12270.,12280.,0.,0.,0.,0.,0.,0.,
- 12280.,12290.,0.,0.,0.,0.,0.,0.,12290.,12300.,0.,0.,0.,0.,0.,0.,
- 12300.,12310.,0.,0.,0.,0.,0.,0.,12310.,12320.,0.,0.,0.,0.,0.,0.,
- 12320.,12330.,0.,0.,0.,0.,0.,0.,12330.,12340.,0.,0.,0.,0.,0.,0.,
- 12340.,12350.,0.,0.,0.,0.,0.,0.,12350.,12360.,0.,0.,0.,0.,0.,0.,
- 12360.,12370.,0.,0.,0.,0.,0.,0.,12370.,12380.,0.,0.,0.,0.,0.,0.,
- 12380.,12390.,0.,0.,0.,0.,0.,0.,12390.,12400.,0.,0.,0.,0.,0.,0.,
- 12400.,12410.,0.,0.,0.,0.,0.,0.,12410.,12420.,0.,0.,0.,0.,0.,0.,
- 12420.,12430.,0.,0.,0.,0.,0.,0.,12430.,12440.,0.,0.,0.,0.,0.,0.,
- 12440.,12450.,0.,0.,0.,0.,0.,0.,12450.,12460.,0.,0.,0.,0.,0.,0.,
- 12460.,12470.,0.,0.,0.,0.,0.,0.,12470.,12480.,0.,0.,0.,0.,0.,0.,
- 12480.,12490.,0.,0.,0.,0.,0.,0.,12490.,12500.,0.,0.,0.,0.,0.,0.,
- 12500.,12510.,0.,0.,0.,0.,0.,0.,12510.,12520.,0.,0.,0.,0.,0.,0.,
- 12520.,12530.,0.,0.,0.,0.,0.,0.,12530.,12540.,0.,0.,0.,0.,0.,0.,
- 12540.,12550.,0.,0.,0.,0.,0.,0.,12550.,12560.,0.,0.,0.,0.,0.,0.,
- 12560.,12570.,0.,0.,0.,0.,0.,0.,12570.,12580.,0.,0.,0.,0.,0.,0.,
- 12580.,12590.,0.,0.,0.,0.,0.,0.,12590.,12600.,0.,0.,0.,0.,0.,0.,
- 12600.,12610.,0.,0.,0.,0.,0.,0.,12610.,12620.,0.,0.,0.,0.,0.,0.,
- 12620.,12630.,0.,0.,0.,0.,0.,0.,12630.,12640.,0.,0.,0.,0.,0.,0.,
- 12640.,12650.,0.,0.,0.,0.,0.,0.,12650.,12660.,0.,0.,0.,0.,0.,0.,
- 12660.,12670.,0.,0.,0.,0.,0.,0.,12670.,12680.,0.,0.,0.,0.,0.,0.,
- 12680.,12690.,0.,0.,0.,0.,0.,0.,12690.,12700.,0.,0.,0.,0.,0.,0.,
- 12700.,12710.,0.,0.,0.,0.,0.,0.,12710.,12720.,0.,0.,0.,0.,0.,0.,
- 12720.,12730.,0.,0.,0.,0.,0.,0.,12730.,12740. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* methane (10180 - 12730 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* meth4_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH4.f b/Modules/ThirdParty/6S/src/6SV1.0B/METH4.f
deleted file mode 100644
index fb6f62a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH4.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine meth4(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c methane (10180 - 12730 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10180e+05, 0.10190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10190e+05, 0.10200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10200e+05, 0.10210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10210e+05, 0.10220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10220e+05, 0.10230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10230e+05, 0.10240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10240e+05, 0.10250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10250e+05, 0.10260e+05/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10260e+05, 0.10270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10270e+05, 0.10280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10280e+05, 0.10290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10290e+05, 0.10300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10300e+05, 0.10310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10310e+05, 0.10320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10320e+05, 0.10330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10330e+05, 0.10340e+05/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10340e+05, 0.10350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10350e+05, 0.10360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10360e+05, 0.10370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10370e+05, 0.10380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10380e+05, 0.10390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10390e+05, 0.10400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10400e+05, 0.10410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10410e+05, 0.10420e+05/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10420e+05, 0.10430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10430e+05, 0.10440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10440e+05, 0.10450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10450e+05, 0.10460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10460e+05, 0.10470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10470e+05, 0.10480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10480e+05, 0.10490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10490e+05, 0.10500e+05/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10500e+05, 0.10510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10510e+05, 0.10520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10520e+05, 0.10530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10530e+05, 0.10540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10540e+05, 0.10550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10550e+05, 0.10560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10560e+05, 0.10570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10570e+05, 0.10580e+05/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10580e+05, 0.10590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10590e+05, 0.10600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10600e+05, 0.10610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10610e+05, 0.10620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10620e+05, 0.10630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10630e+05, 0.10640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10640e+05, 0.10650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10650e+05, 0.10660e+05/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10660e+05, 0.10670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10670e+05, 0.10680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10680e+05, 0.10690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10690e+05, 0.10700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10700e+05, 0.10710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10710e+05, 0.10720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10720e+05, 0.10730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10730e+05, 0.10740e+05/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10740e+05, 0.10750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10750e+05, 0.10760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10760e+05, 0.10770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10770e+05, 0.10780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10780e+05, 0.10790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10790e+05, 0.10800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10800e+05, 0.10810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10810e+05, 0.10820e+05/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10820e+05, 0.10830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10830e+05, 0.10840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10840e+05, 0.10850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10850e+05, 0.10860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10860e+05, 0.10870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10870e+05, 0.10880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10880e+05, 0.10890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10890e+05, 0.10900e+05/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10900e+05, 0.10910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10910e+05, 0.10920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10920e+05, 0.10930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10930e+05, 0.10940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10940e+05, 0.10950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10950e+05, 0.10960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10960e+05, 0.10970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10970e+05, 0.10980e+05/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10980e+05, 0.10990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10990e+05, 0.11000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11000e+05, 0.11010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11010e+05, 0.11020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11020e+05, 0.11030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11030e+05, 0.11040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11040e+05, 0.11050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11050e+05, 0.11060e+05/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11060e+05, 0.11070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11070e+05, 0.11080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11080e+05, 0.11090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11090e+05, 0.11100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11100e+05, 0.11110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11110e+05, 0.11120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11120e+05, 0.11130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11130e+05, 0.11140e+05/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11140e+05, 0.11150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11150e+05, 0.11160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11160e+05, 0.11170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11170e+05, 0.11180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11180e+05, 0.11190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11190e+05, 0.11200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11200e+05, 0.11210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11210e+05, 0.11220e+05/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11220e+05, 0.11230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11230e+05, 0.11240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11240e+05, 0.11250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11250e+05, 0.11260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11260e+05, 0.11270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11270e+05, 0.11280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11280e+05, 0.11290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11290e+05, 0.11300e+05/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11300e+05, 0.11310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11310e+05, 0.11320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11320e+05, 0.11330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11330e+05, 0.11340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11340e+05, 0.11350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11350e+05, 0.11360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11360e+05, 0.11370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11370e+05, 0.11380e+05/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11380e+05, 0.11390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11390e+05, 0.11400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11400e+05, 0.11410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11410e+05, 0.11420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11420e+05, 0.11430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11430e+05, 0.11440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11440e+05, 0.11450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11450e+05, 0.11460e+05/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11460e+05, 0.11470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11470e+05, 0.11480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11480e+05, 0.11490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11490e+05, 0.11500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11500e+05, 0.11510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11510e+05, 0.11520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11520e+05, 0.11530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11530e+05, 0.11540e+05/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11540e+05, 0.11550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11550e+05, 0.11560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11560e+05, 0.11570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11570e+05, 0.11580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11580e+05, 0.11590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11590e+05, 0.11600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11600e+05, 0.11610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11610e+05, 0.11620e+05/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11620e+05, 0.11630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11630e+05, 0.11640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11640e+05, 0.11650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11650e+05, 0.11660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11660e+05, 0.11670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11670e+05, 0.11680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11680e+05, 0.11690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11690e+05, 0.11700e+05/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11700e+05, 0.11710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11710e+05, 0.11720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11720e+05, 0.11730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11730e+05, 0.11740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11740e+05, 0.11750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11750e+05, 0.11760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11760e+05, 0.11770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11770e+05, 0.11780e+05/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11780e+05, 0.11790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11790e+05, 0.11800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11800e+05, 0.11810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11810e+05, 0.11820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11820e+05, 0.11830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11830e+05, 0.11840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11840e+05, 0.11850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11850e+05, 0.11860e+05/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11860e+05, 0.11870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11870e+05, 0.11880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11880e+05, 0.11890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11890e+05, 0.11900e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11900e+05, 0.11910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11910e+05, 0.11920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11920e+05, 0.11930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11930e+05, 0.11940e+05/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11940e+05, 0.11950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11950e+05, 0.11960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11960e+05, 0.11970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11970e+05, 0.11980e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11980e+05, 0.11990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11990e+05, 0.12000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12000e+05, 0.12010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12010e+05, 0.12020e+05/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12020e+05, 0.12030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12030e+05, 0.12040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12040e+05, 0.12050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12050e+05, 0.12060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12060e+05, 0.12070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12070e+05, 0.12080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12080e+05, 0.12090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12090e+05, 0.12100e+05/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12100e+05, 0.12110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12110e+05, 0.12120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12120e+05, 0.12130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12130e+05, 0.12140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12140e+05, 0.12150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12150e+05, 0.12160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12160e+05, 0.12170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12170e+05, 0.12180e+05/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12180e+05, 0.12190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12190e+05, 0.12200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12200e+05, 0.12210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12210e+05, 0.12220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12220e+05, 0.12230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12230e+05, 0.12240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12240e+05, 0.12250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12250e+05, 0.12260e+05/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12260e+05, 0.12270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12270e+05, 0.12280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12280e+05, 0.12290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12290e+05, 0.12300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12300e+05, 0.12310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12310e+05, 0.12320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12320e+05, 0.12330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12330e+05, 0.12340e+05/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12340e+05, 0.12350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12350e+05, 0.12360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12360e+05, 0.12370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12370e+05, 0.12380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12380e+05, 0.12390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12390e+05, 0.12400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12400e+05, 0.12410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12410e+05, 0.12420e+05/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12420e+05, 0.12430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12430e+05, 0.12440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12440e+05, 0.12450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12450e+05, 0.12460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12460e+05, 0.12470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12470e+05, 0.12480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12480e+05, 0.12490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12490e+05, 0.12500e+05/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12500e+05, 0.12510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12510e+05, 0.12520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12520e+05, 0.12530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12530e+05, 0.12540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12540e+05, 0.12550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12550e+05, 0.12560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12560e+05, 0.12570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12570e+05, 0.12580e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12580e+05, 0.12590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12590e+05, 0.12600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12600e+05, 0.12610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12610e+05, 0.12620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12620e+05, 0.12630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12630e+05, 0.12640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12640e+05, 0.12650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12650e+05, 0.12660e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12660e+05, 0.12670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12670e+05, 0.12680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12680e+05, 0.12690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12690e+05, 0.12700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12700e+05, 0.12710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12710e+05, 0.12720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12720e+05, 0.12730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12730e+05, 0.12740e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH4.h b/Modules/ThirdParty/6S/src/6SV1.0B/METH4.h
deleted file mode 100644
index 54820a9..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH4.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_meth4_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH5.P b/Modules/ThirdParty/6S/src/6SV1.0B/METH5.P
deleted file mode 100644
index ad64cdb..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH5.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int meth5_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH5.c b/Modules/ThirdParty/6S/src/6SV1.0B/METH5.c
deleted file mode 100644
index 568c532..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH5.c
+++ /dev/null
@@ -1,206 +0,0 @@
-/* METH5.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine meth5(a,inu) >*/
-/* Subroutine */ int meth5_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 12740.,12750.,0.,0.,0.,0.,0.,0.,12750.,12760.,0.,0.,0.,0.,0.,0.,
- 12760.,12770.,0.,0.,0.,0.,0.,0.,12770.,12780.,0.,0.,0.,0.,0.,0.,
- 12780.,12790.,0.,0.,0.,0.,0.,0.,12790.,12800.,0.,0.,0.,0.,0.,0.,
- 12800.,12810.,0.,0.,0.,0.,0.,0.,12810.,12820.,0.,0.,0.,0.,0.,0.,
- 12820.,12830.,0.,0.,0.,0.,0.,0.,12830.,12840.,0.,0.,0.,0.,0.,0.,
- 12840.,12850.,0.,0.,0.,0.,0.,0.,12850.,12860.,0.,0.,0.,0.,0.,0.,
- 12860.,12870.,0.,0.,0.,0.,0.,0.,12870.,12880.,0.,0.,0.,0.,0.,0.,
- 12880.,12890.,0.,0.,0.,0.,0.,0.,12890.,12900.,0.,0.,0.,0.,0.,0.,
- 12900.,12910.,0.,0.,0.,0.,0.,0.,12910.,12920.,0.,0.,0.,0.,0.,0.,
- 12920.,12930.,0.,0.,0.,0.,0.,0.,12930.,12940.,0.,0.,0.,0.,0.,0.,
- 12940.,12950.,0.,0.,0.,0.,0.,0.,12950.,12960.,0.,0.,0.,0.,0.,0.,
- 12960.,12970.,0.,0.,0.,0.,0.,0.,12970.,12980.,0.,0.,0.,0.,0.,0.,
- 12980.,12990.,0.,0.,0.,0.,0.,0.,12990.,1.3e4,0.,0.,0.,0.,0.,0.,
- 1.3e4,13010.,0.,0.,0.,0.,0.,0.,13010.,13020.,0.,0.,0.,0.,0.,0.,
- 13020.,13030.,0.,0.,0.,0.,0.,0.,13030.,13040.,0.,0.,0.,0.,0.,0.,
- 13040.,13050.,0.,0.,0.,0.,0.,0.,13050.,13060.,0.,0.,0.,0.,0.,0.,
- 13060.,13070.,0.,0.,0.,0.,0.,0.,13070.,13080.,0.,0.,0.,0.,0.,0.,
- 13080.,13090.,0.,0.,0.,0.,0.,0.,13090.,13100.,0.,0.,0.,0.,0.,0.,
- 13100.,13110.,0.,0.,0.,0.,0.,0.,13110.,13120.,0.,0.,0.,0.,0.,0.,
- 13120.,13130.,0.,0.,0.,0.,0.,0.,13130.,13140.,0.,0.,0.,0.,0.,0.,
- 13140.,13150.,0.,0.,0.,0.,0.,0.,13150.,13160.,0.,0.,0.,0.,0.,0.,
- 13160.,13170.,0.,0.,0.,0.,0.,0.,13170.,13180.,0.,0.,0.,0.,0.,0.,
- 13180.,13190.,0.,0.,0.,0.,0.,0.,13190.,13200.,0.,0.,0.,0.,0.,0.,
- 13200.,13210.,0.,0.,0.,0.,0.,0.,13210.,13220.,0.,0.,0.,0.,0.,0.,
- 13220.,13230.,0.,0.,0.,0.,0.,0.,13230.,13240.,0.,0.,0.,0.,0.,0.,
- 13240.,13250.,0.,0.,0.,0.,0.,0.,13250.,13260.,0.,0.,0.,0.,0.,0.,
- 13260.,13270.,0.,0.,0.,0.,0.,0.,13270.,13280.,0.,0.,0.,0.,0.,0.,
- 13280.,13290.,0.,0.,0.,0.,0.,0.,13290.,13300.,0.,0.,0.,0.,0.,0.,
- 13300.,13310.,0.,0.,0.,0.,0.,0.,13310.,13320.,0.,0.,0.,0.,0.,0.,
- 13320.,13330.,0.,0.,0.,0.,0.,0.,13330.,13340.,0.,0.,0.,0.,0.,0.,
- 13340.,13350.,0.,0.,0.,0.,0.,0.,13350.,13360.,0.,0.,0.,0.,0.,0.,
- 13360.,13370.,0.,0.,0.,0.,0.,0.,13370.,13380.,0.,0.,0.,0.,0.,0.,
- 13380.,13390.,0.,0.,0.,0.,0.,0.,13390.,13400.,0.,0.,0.,0.,0.,0.,
- 13400.,13410.,0.,0.,0.,0.,0.,0.,13410.,13420.,0.,0.,0.,0.,0.,0.,
- 13420.,13430.,0.,0.,0.,0.,0.,0.,13430.,13440.,0.,0.,0.,0.,0.,0.,
- 13440.,13450.,0.,0.,0.,0.,0.,0.,13450.,13460.,0.,0.,0.,0.,0.,0.,
- 13460.,13470.,0.,0.,0.,0.,0.,0.,13470.,13480.,0.,0.,0.,0.,0.,0.,
- 13480.,13490.,0.,0.,0.,0.,0.,0.,13490.,13500.,0.,0.,0.,0.,0.,0.,
- 13500.,13510.,0.,0.,0.,0.,0.,0.,13510.,13520.,0.,0.,0.,0.,0.,0.,
- 13520.,13530.,0.,0.,0.,0.,0.,0.,13530.,13540.,0.,0.,0.,0.,0.,0.,
- 13540.,13550.,0.,0.,0.,0.,0.,0.,13550.,13560.,0.,0.,0.,0.,0.,0.,
- 13560.,13570.,0.,0.,0.,0.,0.,0.,13570.,13580.,0.,0.,0.,0.,0.,0.,
- 13580.,13590.,0.,0.,0.,0.,0.,0.,13590.,13600.,0.,0.,0.,0.,0.,0.,
- 13600.,13610.,0.,0.,0.,0.,0.,0.,13610.,13620.,0.,0.,0.,0.,0.,0.,
- 13620.,13630.,0.,0.,0.,0.,0.,0.,13630.,13640.,0.,0.,0.,0.,0.,0.,
- 13640.,13650.,0.,0.,0.,0.,0.,0.,13650.,13660.,0.,0.,0.,0.,0.,0.,
- 13660.,13670.,0.,0.,0.,0.,0.,0.,13670.,13680.,0.,0.,0.,0.,0.,0.,
- 13680.,13690.,0.,0.,0.,0.,0.,0.,13690.,13700.,0.,0.,0.,0.,0.,0.,
- 13700.,13710.,0.,0.,0.,0.,0.,0.,13710.,13720.,0.,0.,0.,0.,0.,0.,
- 13720.,13730.,0.,0.,0.,0.,0.,0.,13730.,13740.,0.,0.,0.,0.,0.,0.,
- 13740.,13750.,0.,0.,0.,0.,0.,0.,13750.,13760.,0.,0.,0.,0.,0.,0.,
- 13760.,13770.,0.,0.,0.,0.,0.,0.,13770.,13780.,0.,0.,0.,0.,0.,0.,
- 13780.,13790.,0.,0.,0.,0.,0.,0.,13790.,13800.,0.,0.,0.,0.,0.,0.,
- 13800.,13810.,0.,0.,0.,0.,0.,0.,13810.,13820.,0.,0.,0.,0.,0.,0.,
- 13820.,13830.,0.,0.,0.,0.,0.,0.,13830.,13840.,0.,0.,0.,0.,0.,0.,
- 13840.,13850.,0.,0.,0.,0.,0.,0.,13850.,13860.,0.,0.,0.,0.,0.,0.,
- 13860.,13870.,0.,0.,0.,0.,0.,0.,13870.,13880.,0.,0.,0.,0.,0.,0.,
- 13880.,13890.,0.,0.,0.,0.,0.,0.,13890.,13900.,0.,0.,0.,0.,0.,0.,
- 13900.,13910.,0.,0.,0.,0.,0.,0.,13910.,13920.,0.,0.,0.,0.,0.,0.,
- 13920.,13930.,0.,0.,0.,0.,0.,0.,13930.,13940.,0.,0.,0.,0.,0.,0.,
- 13940.,13950.,0.,0.,0.,0.,0.,0.,13950.,13960.,0.,0.,0.,0.,0.,0.,
- 13960.,13970.,0.,0.,0.,0.,0.,0.,13970.,13980.,0.,0.,0.,0.,0.,0.,
- 13980.,13990.,0.,0.,0.,0.,0.,0.,13990.,1.4e4,0.,0.,0.,0.,0.,0.,
- 1.4e4,14010.,0.,0.,0.,0.,0.,0.,14010.,14020.,0.,0.,0.,0.,0.,0.,
- 14020.,14030.,0.,0.,0.,0.,0.,0.,14030.,14040.,0.,0.,0.,0.,0.,0.,
- 14040.,14050.,0.,0.,0.,0.,0.,0.,14050.,14060.,0.,0.,0.,0.,0.,0.,
- 14060.,14070.,0.,0.,0.,0.,0.,0.,14070.,14080.,0.,0.,0.,0.,0.,0.,
- 14080.,14090.,0.,0.,0.,0.,0.,0.,14090.,14100.,0.,0.,0.,0.,0.,0.,
- 14100.,14110.,0.,0.,0.,0.,0.,0.,14110.,14120.,0.,0.,0.,0.,0.,0.,
- 14120.,14130.,0.,0.,0.,0.,0.,0.,14130.,14140.,0.,0.,0.,0.,0.,0.,
- 14140.,14150.,0.,0.,0.,0.,0.,0.,14150.,14160.,0.,0.,0.,0.,0.,0.,
- 14160.,14170.,0.,0.,0.,0.,0.,0.,14170.,14180.,0.,0.,0.,0.,0.,0.,
- 14180.,14190.,0.,0.,0.,0.,0.,0.,14190.,14200.,0.,0.,0.,0.,0.,0.,
- 14200.,14210.,0.,0.,0.,0.,0.,0.,14210.,14220.,0.,0.,0.,0.,0.,0.,
- 14220.,14230.,0.,0.,0.,0.,0.,0.,14230.,14240.,0.,0.,0.,0.,0.,0.,
- 14240.,14250.,0.,0.,0.,0.,0.,0.,14250.,14260.,0.,0.,0.,0.,0.,0.,
- 14260.,14270.,0.,0.,0.,0.,0.,0.,14270.,14280.,0.,0.,0.,0.,0.,0.,
- 14280.,14290.,0.,0.,0.,0.,0.,0.,14290.,14300.,0.,0.,0.,0.,0.,0.,
- 14300.,14310.,0.,0.,0.,0.,0.,0.,14310.,14320.,0.,0.,0.,0.,0.,0.,
- 14320.,14330.,0.,0.,0.,0.,0.,0.,14330.,14340.,0.,0.,0.,0.,0.,0.,
- 14340.,14350.,0.,0.,0.,0.,0.,0.,14350.,14360.,0.,0.,0.,0.,0.,0.,
- 14360.,14370.,0.,0.,0.,0.,0.,0.,14370.,14380.,0.,0.,0.,0.,0.,0.,
- 14380.,14390.,0.,0.,0.,0.,0.,0.,14390.,14400.,0.,0.,0.,0.,0.,0.,
- 14400.,14410.,0.,0.,0.,0.,0.,0.,14410.,14420.,0.,0.,0.,0.,0.,0.,
- 14420.,14430.,0.,0.,0.,0.,0.,0.,14430.,14440.,0.,0.,0.,0.,0.,0.,
- 14440.,14450.,0.,0.,0.,0.,0.,0.,14450.,14460.,0.,0.,0.,0.,0.,0.,
- 14460.,14470.,0.,0.,0.,0.,0.,0.,14470.,14480.,0.,0.,0.,0.,0.,0.,
- 14480.,14490.,0.,0.,0.,0.,0.,0.,14490.,14500.,0.,0.,0.,0.,0.,0.,
- 14500.,14510.,0.,0.,0.,0.,0.,0.,14510.,14520.,0.,0.,0.,0.,0.,0.,
- 14520.,14530.,0.,0.,0.,0.,0.,0.,14530.,14540.,0.,0.,0.,0.,0.,0.,
- 14540.,14550.,0.,0.,0.,0.,0.,0.,14550.,14560.,0.,0.,0.,0.,0.,0.,
- 14560.,14570.,0.,0.,0.,0.,0.,0.,14570.,14580.,0.,0.,0.,0.,0.,0.,
- 14580.,14590.,0.,0.,0.,0.,0.,0.,14590.,14600.,0.,0.,0.,0.,0.,0.,
- 14600.,14610.,0.,0.,0.,0.,0.,0.,14610.,14620.,0.,0.,0.,0.,0.,0.,
- 14620.,14630.,0.,0.,0.,0.,0.,0.,14630.,14640.,0.,0.,0.,0.,0.,0.,
- 14640.,14650.,0.,0.,0.,0.,0.,0.,14650.,14660.,0.,0.,0.,0.,0.,0.,
- 14660.,14670.,0.,0.,0.,0.,0.,0.,14670.,14680.,0.,0.,0.,0.,0.,0.,
- 14680.,14690.,0.,0.,0.,0.,0.,0.,14690.,14700.,0.,0.,0.,0.,0.,0.,
- 14700.,14710.,0.,0.,0.,0.,0.,0.,14710.,14720.,0.,0.,0.,0.,0.,0.,
- 14720.,14730.,0.,0.,0.,0.,0.,0.,14730.,14740.,0.,0.,0.,0.,0.,0.,
- 14740.,14750.,0.,0.,0.,0.,0.,0.,14750.,14760.,0.,0.,0.,0.,0.,0.,
- 14760.,14770.,0.,0.,0.,0.,0.,0.,14770.,14780.,0.,0.,0.,0.,0.,0.,
- 14780.,14790.,0.,0.,0.,0.,0.,0.,14790.,14800.,0.,0.,0.,0.,0.,0.,
- 14800.,14810.,0.,0.,0.,0.,0.,0.,14810.,14820.,0.,0.,0.,0.,0.,0.,
- 14820.,14830.,0.,0.,0.,0.,0.,0.,14830.,14840.,0.,0.,0.,0.,0.,0.,
- 14840.,14850.,0.,0.,0.,0.,0.,0.,14850.,14860.,0.,0.,0.,0.,0.,0.,
- 14860.,14870.,0.,0.,0.,0.,0.,0.,14870.,14880.,0.,0.,0.,0.,0.,0.,
- 14880.,14890.,0.,0.,0.,0.,0.,0.,14890.,14900.,0.,0.,0.,0.,0.,0.,
- 14900.,14910.,0.,0.,0.,0.,0.,0.,14910.,14920.,0.,0.,0.,0.,0.,0.,
- 14920.,14930.,0.,0.,0.,0.,0.,0.,14930.,14940.,0.,0.,0.,0.,0.,0.,
- 14940.,14950.,0.,0.,0.,0.,0.,0.,14950.,14960.,0.,0.,0.,0.,0.,0.,
- 14960.,14970.,0.,0.,0.,0.,0.,0.,14970.,14980.,0.,0.,0.,0.,0.,0.,
- 14980.,14990.,0.,0.,0.,0.,0.,0.,14990.,1.5e4,0.,0.,0.,0.,0.,0.,
- 1.5e4,15010.,0.,0.,0.,0.,0.,0.,15010.,15020.,0.,0.,0.,0.,0.,0.,
- 15020.,15030.,0.,0.,0.,0.,0.,0.,15030.,15040.,0.,0.,0.,0.,0.,0.,
- 15040.,15050.,0.,0.,0.,0.,0.,0.,15050.,15060.,0.,0.,0.,0.,0.,0.,
- 15060.,15070.,0.,0.,0.,0.,0.,0.,15070.,15080.,0.,0.,0.,0.,0.,0.,
- 15080.,15090.,0.,0.,0.,0.,0.,0.,15090.,15100.,0.,0.,0.,0.,0.,0.,
- 15100.,15110.,0.,0.,0.,0.,0.,0.,15110.,15120.,0.,0.,0.,0.,0.,0.,
- 15120.,15130.,0.,0.,0.,0.,0.,0.,15130.,15140.,0.,0.,0.,0.,0.,0.,
- 15140.,15150.,0.,0.,0.,0.,0.,0.,15150.,15160.,0.,0.,0.,0.,0.,0.,
- 15160.,15170.,0.,0.,0.,0.,0.,0.,15170.,15180.,0.,0.,0.,0.,0.,0.,
- 15180.,15190.,0.,0.,0.,0.,0.,0.,15190.,15200.,0.,0.,0.,0.,0.,0.,
- 15200.,15210.,0.,0.,0.,0.,0.,0.,15210.,15220.,0.,0.,0.,0.,0.,0.,
- 15220.,15230.,0.,0.,0.,0.,0.,0.,15230.,15240.,0.,0.,0.,0.,0.,0.,
- 15240.,15250.,0.,0.,0.,0.,0.,0.,15250.,15260.,0.,0.,0.,0.,0.,0.,
- 15260.,15270.,0.,0.,0.,0.,0.,0.,15270.,15280.,0.,0.,0.,0.,0.,0.,
- 15280.,15290.,0.,0.,0.,0.,0.,0.,15290.,15300. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* methane (12740 - 15290 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* meth5_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH5.f b/Modules/ThirdParty/6S/src/6SV1.0B/METH5.f
deleted file mode 100644
index 60d607b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH5.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine meth5(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c methane (12740 - 15290 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12740e+05, 0.12750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12750e+05, 0.12760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12760e+05, 0.12770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12770e+05, 0.12780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12780e+05, 0.12790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12790e+05, 0.12800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12800e+05, 0.12810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12810e+05, 0.12820e+05/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12820e+05, 0.12830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12830e+05, 0.12840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12840e+05, 0.12850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12850e+05, 0.12860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12860e+05, 0.12870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12870e+05, 0.12880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12880e+05, 0.12890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12890e+05, 0.12900e+05/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12900e+05, 0.12910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12910e+05, 0.12920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12920e+05, 0.12930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12930e+05, 0.12940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12940e+05, 0.12950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12950e+05, 0.12960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12960e+05, 0.12970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12970e+05, 0.12980e+05/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12980e+05, 0.12990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12990e+05, 0.13000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13000e+05, 0.13010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13010e+05, 0.13020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13020e+05, 0.13030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13030e+05, 0.13040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13040e+05, 0.13050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13050e+05, 0.13060e+05/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13060e+05, 0.13070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13070e+05, 0.13080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13080e+05, 0.13090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13090e+05, 0.13100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13100e+05, 0.13110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13110e+05, 0.13120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13120e+05, 0.13130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13130e+05, 0.13140e+05/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13140e+05, 0.13150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13150e+05, 0.13160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13160e+05, 0.13170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13170e+05, 0.13180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13180e+05, 0.13190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13190e+05, 0.13200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13200e+05, 0.13210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13210e+05, 0.13220e+05/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13220e+05, 0.13230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13230e+05, 0.13240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13240e+05, 0.13250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13250e+05, 0.13260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13260e+05, 0.13270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13270e+05, 0.13280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13280e+05, 0.13290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13290e+05, 0.13300e+05/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13300e+05, 0.13310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13310e+05, 0.13320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13320e+05, 0.13330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13330e+05, 0.13340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13340e+05, 0.13350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13350e+05, 0.13360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13360e+05, 0.13370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13370e+05, 0.13380e+05/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13380e+05, 0.13390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13390e+05, 0.13400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13400e+05, 0.13410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13410e+05, 0.13420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13420e+05, 0.13430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13430e+05, 0.13440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13440e+05, 0.13450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13450e+05, 0.13460e+05/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13460e+05, 0.13470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13470e+05, 0.13480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13480e+05, 0.13490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13490e+05, 0.13500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13500e+05, 0.13510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13510e+05, 0.13520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13520e+05, 0.13530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13530e+05, 0.13540e+05/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13540e+05, 0.13550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13550e+05, 0.13560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13560e+05, 0.13570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13570e+05, 0.13580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13580e+05, 0.13590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13590e+05, 0.13600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13600e+05, 0.13610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13610e+05, 0.13620e+05/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13620e+05, 0.13630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13630e+05, 0.13640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13640e+05, 0.13650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13650e+05, 0.13660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13660e+05, 0.13670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13670e+05, 0.13680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13680e+05, 0.13690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13690e+05, 0.13700e+05/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13700e+05, 0.13710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13710e+05, 0.13720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13720e+05, 0.13730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13730e+05, 0.13740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13740e+05, 0.13750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13750e+05, 0.13760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13760e+05, 0.13770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13770e+05, 0.13780e+05/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13780e+05, 0.13790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13790e+05, 0.13800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13800e+05, 0.13810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13810e+05, 0.13820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13820e+05, 0.13830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13830e+05, 0.13840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13840e+05, 0.13850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13850e+05, 0.13860e+05/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13860e+05, 0.13870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13870e+05, 0.13880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13880e+05, 0.13890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13890e+05, 0.13900e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13900e+05, 0.13910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13910e+05, 0.13920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13920e+05, 0.13930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13930e+05, 0.13940e+05/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13940e+05, 0.13950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13950e+05, 0.13960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13960e+05, 0.13970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13970e+05, 0.13980e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13980e+05, 0.13990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13990e+05, 0.14000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14000e+05, 0.14010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14010e+05, 0.14020e+05/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14020e+05, 0.14030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14030e+05, 0.14040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14040e+05, 0.14050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14050e+05, 0.14060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14060e+05, 0.14070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14070e+05, 0.14080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14080e+05, 0.14090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14090e+05, 0.14100e+05/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14100e+05, 0.14110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14110e+05, 0.14120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14120e+05, 0.14130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14130e+05, 0.14140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14140e+05, 0.14150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14150e+05, 0.14160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14160e+05, 0.14170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14170e+05, 0.14180e+05/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14180e+05, 0.14190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14190e+05, 0.14200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14200e+05, 0.14210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14210e+05, 0.14220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14220e+05, 0.14230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14230e+05, 0.14240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14240e+05, 0.14250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14250e+05, 0.14260e+05/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14260e+05, 0.14270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14270e+05, 0.14280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14280e+05, 0.14290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14290e+05, 0.14300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14300e+05, 0.14310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14310e+05, 0.14320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14320e+05, 0.14330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14330e+05, 0.14340e+05/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14340e+05, 0.14350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14350e+05, 0.14360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14360e+05, 0.14370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14370e+05, 0.14380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14380e+05, 0.14390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14390e+05, 0.14400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14400e+05, 0.14410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14410e+05, 0.14420e+05/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14420e+05, 0.14430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14430e+05, 0.14440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14440e+05, 0.14450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14450e+05, 0.14460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14460e+05, 0.14470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14470e+05, 0.14480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14480e+05, 0.14490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14490e+05, 0.14500e+05/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14500e+05, 0.14510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14510e+05, 0.14520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14520e+05, 0.14530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14530e+05, 0.14540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14540e+05, 0.14550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14550e+05, 0.14560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14560e+05, 0.14570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14570e+05, 0.14580e+05/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14580e+05, 0.14590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14590e+05, 0.14600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14600e+05, 0.14610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14610e+05, 0.14620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14620e+05, 0.14630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14630e+05, 0.14640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14640e+05, 0.14650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14650e+05, 0.14660e+05/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14660e+05, 0.14670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14670e+05, 0.14680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14680e+05, 0.14690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14690e+05, 0.14700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14700e+05, 0.14710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14710e+05, 0.14720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14720e+05, 0.14730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14730e+05, 0.14740e+05/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14740e+05, 0.14750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14750e+05, 0.14760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14760e+05, 0.14770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14770e+05, 0.14780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14780e+05, 0.14790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14790e+05, 0.14800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14800e+05, 0.14810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14810e+05, 0.14820e+05/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14820e+05, 0.14830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14830e+05, 0.14840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14840e+05, 0.14850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14850e+05, 0.14860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14860e+05, 0.14870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14870e+05, 0.14880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14880e+05, 0.14890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14890e+05, 0.14900e+05/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14900e+05, 0.14910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14910e+05, 0.14920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14920e+05, 0.14930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14930e+05, 0.14940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14940e+05, 0.14950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14950e+05, 0.14960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14960e+05, 0.14970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14970e+05, 0.14980e+05/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14980e+05, 0.14990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14990e+05, 0.15000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15000e+05, 0.15010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15010e+05, 0.15020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15020e+05, 0.15030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15030e+05, 0.15040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15040e+05, 0.15050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15050e+05, 0.15060e+05/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15060e+05, 0.15070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15070e+05, 0.15080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15080e+05, 0.15090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15090e+05, 0.15100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15100e+05, 0.15110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15110e+05, 0.15120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15120e+05, 0.15130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15130e+05, 0.15140e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15140e+05, 0.15150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15150e+05, 0.15160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15160e+05, 0.15170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15170e+05, 0.15180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15180e+05, 0.15190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15190e+05, 0.15200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15200e+05, 0.15210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15210e+05, 0.15220e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15220e+05, 0.15230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15230e+05, 0.15240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15240e+05, 0.15250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15250e+05, 0.15260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15260e+05, 0.15270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15270e+05, 0.15280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15280e+05, 0.15290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15290e+05, 0.15300e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH5.h b/Modules/ThirdParty/6S/src/6SV1.0B/METH5.h
deleted file mode 100644
index 8865f2a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH5.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_meth5_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH6.P b/Modules/ThirdParty/6S/src/6SV1.0B/METH6.P
deleted file mode 100644
index abe4676..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH6.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int meth6_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH6.c b/Modules/ThirdParty/6S/src/6SV1.0B/METH6.c
deleted file mode 100644
index c72f5f6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH6.c
+++ /dev/null
@@ -1,206 +0,0 @@
-/* METH6.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine meth6(a,inu) >*/
-/* Subroutine */ int meth6_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 15300.,15310.,0.,0.,0.,0.,0.,0.,15310.,15320.,0.,0.,0.,0.,0.,0.,
- 15320.,15330.,0.,0.,0.,0.,0.,0.,15330.,15340.,0.,0.,0.,0.,0.,0.,
- 15340.,15350.,0.,0.,0.,0.,0.,0.,15350.,15360.,0.,0.,0.,0.,0.,0.,
- 15360.,15370.,0.,0.,0.,0.,0.,0.,15370.,15380.,0.,0.,0.,0.,0.,0.,
- 15380.,15390.,0.,0.,0.,0.,0.,0.,15390.,15400.,0.,0.,0.,0.,0.,0.,
- 15400.,15410.,0.,0.,0.,0.,0.,0.,15410.,15420.,0.,0.,0.,0.,0.,0.,
- 15420.,15430.,0.,0.,0.,0.,0.,0.,15430.,15440.,0.,0.,0.,0.,0.,0.,
- 15440.,15450.,0.,0.,0.,0.,0.,0.,15450.,15460.,0.,0.,0.,0.,0.,0.,
- 15460.,15470.,0.,0.,0.,0.,0.,0.,15470.,15480.,0.,0.,0.,0.,0.,0.,
- 15480.,15490.,0.,0.,0.,0.,0.,0.,15490.,15500.,0.,0.,0.,0.,0.,0.,
- 15500.,15510.,0.,0.,0.,0.,0.,0.,15510.,15520.,0.,0.,0.,0.,0.,0.,
- 15520.,15530.,0.,0.,0.,0.,0.,0.,15530.,15540.,0.,0.,0.,0.,0.,0.,
- 15540.,15550.,0.,0.,0.,0.,0.,0.,15550.,15560.,0.,0.,0.,0.,0.,0.,
- 15560.,15570.,0.,0.,0.,0.,0.,0.,15570.,15580.,0.,0.,0.,0.,0.,0.,
- 15580.,15590.,0.,0.,0.,0.,0.,0.,15590.,15600.,0.,0.,0.,0.,0.,0.,
- 15600.,15610.,0.,0.,0.,0.,0.,0.,15610.,15620.,0.,0.,0.,0.,0.,0.,
- 15620.,15630.,0.,0.,0.,0.,0.,0.,15630.,15640.,0.,0.,0.,0.,0.,0.,
- 15640.,15650.,0.,0.,0.,0.,0.,0.,15650.,15660.,0.,0.,0.,0.,0.,0.,
- 15660.,15670.,0.,0.,0.,0.,0.,0.,15670.,15680.,0.,0.,0.,0.,0.,0.,
- 15680.,15690.,0.,0.,0.,0.,0.,0.,15690.,15700.,0.,0.,0.,0.,0.,0.,
- 15700.,15710.,0.,0.,0.,0.,0.,0.,15710.,15720.,0.,0.,0.,0.,0.,0.,
- 15720.,15730.,0.,0.,0.,0.,0.,0.,15730.,15740.,0.,0.,0.,0.,0.,0.,
- 15740.,15750.,0.,0.,0.,0.,0.,0.,15750.,15760.,0.,0.,0.,0.,0.,0.,
- 15760.,15770.,0.,0.,0.,0.,0.,0.,15770.,15780.,0.,0.,0.,0.,0.,0.,
- 15780.,15790.,0.,0.,0.,0.,0.,0.,15790.,15800.,0.,0.,0.,0.,0.,0.,
- 15800.,15810.,0.,0.,0.,0.,0.,0.,15810.,15820.,0.,0.,0.,0.,0.,0.,
- 15820.,15830.,0.,0.,0.,0.,0.,0.,15830.,15840.,0.,0.,0.,0.,0.,0.,
- 15840.,15850.,0.,0.,0.,0.,0.,0.,15850.,15860.,0.,0.,0.,0.,0.,0.,
- 15860.,15870.,0.,0.,0.,0.,0.,0.,15870.,15880.,0.,0.,0.,0.,0.,0.,
- 15880.,15890.,0.,0.,0.,0.,0.,0.,15890.,15900.,0.,0.,0.,0.,0.,0.,
- 15900.,15910.,0.,0.,0.,0.,0.,0.,15910.,15920.,0.,0.,0.,0.,0.,0.,
- 15920.,15930.,0.,0.,0.,0.,0.,0.,15930.,15940.,0.,0.,0.,0.,0.,0.,
- 15940.,15950.,0.,0.,0.,0.,0.,0.,15950.,15960.,0.,0.,0.,0.,0.,0.,
- 15960.,15970.,0.,0.,0.,0.,0.,0.,15970.,15980.,0.,0.,0.,0.,0.,0.,
- 15980.,15990.,0.,0.,0.,0.,0.,0.,15990.,1.6e4,0.,0.,0.,0.,0.,0.,
- 1.6e4,16010.,0.,0.,0.,0.,0.,0.,16010.,16020.,0.,0.,0.,0.,0.,0.,
- 16020.,16030.,0.,0.,0.,0.,0.,0.,16030.,16040.,0.,0.,0.,0.,0.,0.,
- 16040.,16050.,0.,0.,0.,0.,0.,0.,16050.,16060.,0.,0.,0.,0.,0.,0.,
- 16060.,16070.,0.,0.,0.,0.,0.,0.,16070.,16080.,0.,0.,0.,0.,0.,0.,
- 16080.,16090.,0.,0.,0.,0.,0.,0.,16090.,16100.,0.,0.,0.,0.,0.,0.,
- 16100.,16110.,0.,0.,0.,0.,0.,0.,16110.,16120.,0.,0.,0.,0.,0.,0.,
- 16120.,16130.,0.,0.,0.,0.,0.,0.,16130.,16140.,0.,0.,0.,0.,0.,0.,
- 16140.,16150.,0.,0.,0.,0.,0.,0.,16150.,16160.,0.,0.,0.,0.,0.,0.,
- 16160.,16170.,0.,0.,0.,0.,0.,0.,16170.,16180.,0.,0.,0.,0.,0.,0.,
- 16180.,16190.,0.,0.,0.,0.,0.,0.,16190.,16200.,0.,0.,0.,0.,0.,0.,
- 16200.,16210.,0.,0.,0.,0.,0.,0.,16210.,16220.,0.,0.,0.,0.,0.,0.,
- 16220.,16230.,0.,0.,0.,0.,0.,0.,16230.,16240.,0.,0.,0.,0.,0.,0.,
- 16240.,16250.,0.,0.,0.,0.,0.,0.,16250.,16260.,0.,0.,0.,0.,0.,0.,
- 16260.,16270.,0.,0.,0.,0.,0.,0.,16270.,16280.,0.,0.,0.,0.,0.,0.,
- 16280.,16290.,0.,0.,0.,0.,0.,0.,16290.,16300.,0.,0.,0.,0.,0.,0.,
- 16300.,16310.,0.,0.,0.,0.,0.,0.,16310.,16320.,0.,0.,0.,0.,0.,0.,
- 16320.,16330.,0.,0.,0.,0.,0.,0.,16330.,16340.,0.,0.,0.,0.,0.,0.,
- 16340.,16350.,0.,0.,0.,0.,0.,0.,16350.,16360.,0.,0.,0.,0.,0.,0.,
- 16360.,16370.,0.,0.,0.,0.,0.,0.,16370.,16380.,0.,0.,0.,0.,0.,0.,
- 16380.,16390.,0.,0.,0.,0.,0.,0.,16390.,16400.,0.,0.,0.,0.,0.,0.,
- 16400.,16410.,0.,0.,0.,0.,0.,0.,16410.,16420.,0.,0.,0.,0.,0.,0.,
- 16420.,16430.,0.,0.,0.,0.,0.,0.,16430.,16440.,0.,0.,0.,0.,0.,0.,
- 16440.,16450.,0.,0.,0.,0.,0.,0.,16450.,16460.,0.,0.,0.,0.,0.,0.,
- 16460.,16470.,0.,0.,0.,0.,0.,0.,16470.,16480.,0.,0.,0.,0.,0.,0.,
- 16480.,16490.,0.,0.,0.,0.,0.,0.,16490.,16500.,0.,0.,0.,0.,0.,0.,
- 16500.,16510.,0.,0.,0.,0.,0.,0.,16510.,16520.,0.,0.,0.,0.,0.,0.,
- 16520.,16530.,0.,0.,0.,0.,0.,0.,16530.,16540.,0.,0.,0.,0.,0.,0.,
- 16540.,16550.,0.,0.,0.,0.,0.,0.,16550.,16560.,0.,0.,0.,0.,0.,0.,
- 16560.,16570.,0.,0.,0.,0.,0.,0.,16570.,16580.,0.,0.,0.,0.,0.,0.,
- 16580.,16590.,0.,0.,0.,0.,0.,0.,16590.,16600.,0.,0.,0.,0.,0.,0.,
- 16600.,16610.,0.,0.,0.,0.,0.,0.,16610.,16620.,0.,0.,0.,0.,0.,0.,
- 16620.,16630.,0.,0.,0.,0.,0.,0.,16630.,16640.,0.,0.,0.,0.,0.,0.,
- 16640.,16650.,0.,0.,0.,0.,0.,0.,16650.,16660.,0.,0.,0.,0.,0.,0.,
- 16660.,16670.,0.,0.,0.,0.,0.,0.,16670.,16680.,0.,0.,0.,0.,0.,0.,
- 16680.,16690.,0.,0.,0.,0.,0.,0.,16690.,16700.,0.,0.,0.,0.,0.,0.,
- 16700.,16710.,0.,0.,0.,0.,0.,0.,16710.,16720.,0.,0.,0.,0.,0.,0.,
- 16720.,16730.,0.,0.,0.,0.,0.,0.,16730.,16740.,0.,0.,0.,0.,0.,0.,
- 16740.,16750.,0.,0.,0.,0.,0.,0.,16750.,16760.,0.,0.,0.,0.,0.,0.,
- 16760.,16770.,0.,0.,0.,0.,0.,0.,16770.,16780.,0.,0.,0.,0.,0.,0.,
- 16780.,16790.,0.,0.,0.,0.,0.,0.,16790.,16800.,0.,0.,0.,0.,0.,0.,
- 16800.,16810.,0.,0.,0.,0.,0.,0.,16810.,16820.,0.,0.,0.,0.,0.,0.,
- 16820.,16830.,0.,0.,0.,0.,0.,0.,16830.,16840.,0.,0.,0.,0.,0.,0.,
- 16840.,16850.,0.,0.,0.,0.,0.,0.,16850.,16860.,0.,0.,0.,0.,0.,0.,
- 16860.,16870.,0.,0.,0.,0.,0.,0.,16870.,16880.,0.,0.,0.,0.,0.,0.,
- 16880.,16890.,0.,0.,0.,0.,0.,0.,16890.,16900.,0.,0.,0.,0.,0.,0.,
- 16900.,16910.,0.,0.,0.,0.,0.,0.,16910.,16920.,0.,0.,0.,0.,0.,0.,
- 16920.,16930.,0.,0.,0.,0.,0.,0.,16930.,16940.,0.,0.,0.,0.,0.,0.,
- 16940.,16950.,0.,0.,0.,0.,0.,0.,16950.,16960.,0.,0.,0.,0.,0.,0.,
- 16960.,16970.,0.,0.,0.,0.,0.,0.,16970.,16980.,0.,0.,0.,0.,0.,0.,
- 16980.,16990.,0.,0.,0.,0.,0.,0.,16990.,1.7e4,0.,0.,0.,0.,0.,0.,
- 1.7e4,17010.,0.,0.,0.,0.,0.,0.,17010.,17020.,0.,0.,0.,0.,0.,0.,
- 17020.,17030.,0.,0.,0.,0.,0.,0.,17030.,17040.,0.,0.,0.,0.,0.,0.,
- 17040.,17050.,0.,0.,0.,0.,0.,0.,17050.,17060.,0.,0.,0.,0.,0.,0.,
- 17060.,17070.,0.,0.,0.,0.,0.,0.,17070.,17080.,0.,0.,0.,0.,0.,0.,
- 17080.,17090.,0.,0.,0.,0.,0.,0.,17090.,17100.,0.,0.,0.,0.,0.,0.,
- 17100.,17110.,0.,0.,0.,0.,0.,0.,17110.,17120.,0.,0.,0.,0.,0.,0.,
- 17120.,17130.,0.,0.,0.,0.,0.,0.,17130.,17140.,0.,0.,0.,0.,0.,0.,
- 17140.,17150.,0.,0.,0.,0.,0.,0.,17150.,17160.,0.,0.,0.,0.,0.,0.,
- 17160.,17170.,0.,0.,0.,0.,0.,0.,17170.,17180.,0.,0.,0.,0.,0.,0.,
- 17180.,17190.,0.,0.,0.,0.,0.,0.,17190.,17200.,0.,0.,0.,0.,0.,0.,
- 17200.,17210.,0.,0.,0.,0.,0.,0.,17210.,17220.,0.,0.,0.,0.,0.,0.,
- 17220.,17230.,0.,0.,0.,0.,0.,0.,17230.,17240.,0.,0.,0.,0.,0.,0.,
- 17240.,17250.,0.,0.,0.,0.,0.,0.,17250.,17260.,0.,0.,0.,0.,0.,0.,
- 17260.,17270.,0.,0.,0.,0.,0.,0.,17270.,17280.,0.,0.,0.,0.,0.,0.,
- 17280.,17290.,0.,0.,0.,0.,0.,0.,17290.,17300.,0.,0.,0.,0.,0.,0.,
- 17300.,17310.,0.,0.,0.,0.,0.,0.,17310.,17320.,0.,0.,0.,0.,0.,0.,
- 17320.,17330.,0.,0.,0.,0.,0.,0.,17330.,17340.,0.,0.,0.,0.,0.,0.,
- 17340.,17350.,0.,0.,0.,0.,0.,0.,17350.,17360.,0.,0.,0.,0.,0.,0.,
- 17360.,17370.,0.,0.,0.,0.,0.,0.,17370.,17380.,0.,0.,0.,0.,0.,0.,
- 17380.,17390.,0.,0.,0.,0.,0.,0.,17390.,17400.,0.,0.,0.,0.,0.,0.,
- 17400.,17410.,0.,0.,0.,0.,0.,0.,17410.,17420.,0.,0.,0.,0.,0.,0.,
- 17420.,17430.,0.,0.,0.,0.,0.,0.,17430.,17440.,0.,0.,0.,0.,0.,0.,
- 17440.,17450.,0.,0.,0.,0.,0.,0.,17450.,17460.,0.,0.,0.,0.,0.,0.,
- 17460.,17470.,0.,0.,0.,0.,0.,0.,17470.,17480.,0.,0.,0.,0.,0.,0.,
- 17480.,17490.,0.,0.,0.,0.,0.,0.,17490.,17500.,0.,0.,0.,0.,0.,0.,
- 17500.,17510.,0.,0.,0.,0.,0.,0.,17510.,17520.,0.,0.,0.,0.,0.,0.,
- 17520.,17530.,0.,0.,0.,0.,0.,0.,17530.,17540.,0.,0.,0.,0.,0.,0.,
- 17540.,17550.,0.,0.,0.,0.,0.,0.,17550.,17560.,0.,0.,0.,0.,0.,0.,
- 17560.,17570.,0.,0.,0.,0.,0.,0.,17570.,17580.,0.,0.,0.,0.,0.,0.,
- 17580.,17590.,0.,0.,0.,0.,0.,0.,17590.,17600.,0.,0.,0.,0.,0.,0.,
- 17600.,17610.,0.,0.,0.,0.,0.,0.,17610.,17620.,0.,0.,0.,0.,0.,0.,
- 17620.,17630.,0.,0.,0.,0.,0.,0.,17630.,17640.,0.,0.,0.,0.,0.,0.,
- 17640.,17650.,0.,0.,0.,0.,0.,0.,17650.,17660.,0.,0.,0.,0.,0.,0.,
- 17660.,17670.,0.,0.,0.,0.,0.,0.,17670.,17680.,0.,0.,0.,0.,0.,0.,
- 17680.,17690.,0.,0.,0.,0.,0.,0.,17690.,17700.,0.,0.,0.,0.,0.,0.,
- 17700.,17710.,0.,0.,0.,0.,0.,0.,17710.,17720.,0.,0.,0.,0.,0.,0.,
- 17720.,17730.,0.,0.,0.,0.,0.,0.,17730.,17740.,0.,0.,0.,0.,0.,0.,
- 17740.,17750.,0.,0.,0.,0.,0.,0.,17750.,17760.,0.,0.,0.,0.,0.,0.,
- 17760.,17770.,0.,0.,0.,0.,0.,0.,17770.,17780.,0.,0.,0.,0.,0.,0.,
- 17780.,17790.,0.,0.,0.,0.,0.,0.,17790.,17800.,0.,0.,0.,0.,0.,0.,
- 17800.,17810.,0.,0.,0.,0.,0.,0.,17810.,17820.,0.,0.,0.,0.,0.,0.,
- 17820.,17830.,0.,0.,0.,0.,0.,0.,17830.,17840.,0.,0.,0.,0.,0.,0.,
- 17840.,17850.,0.,0.,0.,0.,0.,0.,17850.,17860. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* methane (15300 - 17870 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* meth6_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH6.f b/Modules/ThirdParty/6S/src/6SV1.0B/METH6.f
deleted file mode 100644
index 3ab98cc..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH6.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine meth6(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c methane (15300 - 17870 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15300e+05, 0.15310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15310e+05, 0.15320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15320e+05, 0.15330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15330e+05, 0.15340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15340e+05, 0.15350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15350e+05, 0.15360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15360e+05, 0.15370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15370e+05, 0.15380e+05/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15380e+05, 0.15390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15390e+05, 0.15400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15400e+05, 0.15410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15410e+05, 0.15420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15420e+05, 0.15430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15430e+05, 0.15440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15440e+05, 0.15450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15450e+05, 0.15460e+05/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15460e+05, 0.15470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15470e+05, 0.15480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15480e+05, 0.15490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15490e+05, 0.15500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15500e+05, 0.15510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15510e+05, 0.15520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15520e+05, 0.15530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15530e+05, 0.15540e+05/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15540e+05, 0.15550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15550e+05, 0.15560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15560e+05, 0.15570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15570e+05, 0.15580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15580e+05, 0.15590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15590e+05, 0.15600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15600e+05, 0.15610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15610e+05, 0.15620e+05/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15620e+05, 0.15630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15630e+05, 0.15640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15640e+05, 0.15650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15650e+05, 0.15660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15660e+05, 0.15670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15670e+05, 0.15680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15680e+05, 0.15690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15690e+05, 0.15700e+05/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15700e+05, 0.15710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15710e+05, 0.15720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15720e+05, 0.15730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15730e+05, 0.15740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15740e+05, 0.15750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15750e+05, 0.15760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15760e+05, 0.15770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15770e+05, 0.15780e+05/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15780e+05, 0.15790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15790e+05, 0.15800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15800e+05, 0.15810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15810e+05, 0.15820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15820e+05, 0.15830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15830e+05, 0.15840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15840e+05, 0.15850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15850e+05, 0.15860e+05/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15860e+05, 0.15870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15870e+05, 0.15880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15880e+05, 0.15890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15890e+05, 0.15900e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15900e+05, 0.15910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15910e+05, 0.15920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15920e+05, 0.15930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15930e+05, 0.15940e+05/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15940e+05, 0.15950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15950e+05, 0.15960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15960e+05, 0.15970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15970e+05, 0.15980e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15980e+05, 0.15990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15990e+05, 0.16000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16000e+05, 0.16010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16010e+05, 0.16020e+05/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16020e+05, 0.16030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16030e+05, 0.16040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16040e+05, 0.16050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16050e+05, 0.16060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16060e+05, 0.16070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16070e+05, 0.16080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16080e+05, 0.16090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16090e+05, 0.16100e+05/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16100e+05, 0.16110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16110e+05, 0.16120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16120e+05, 0.16130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16130e+05, 0.16140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16140e+05, 0.16150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16150e+05, 0.16160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16160e+05, 0.16170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16170e+05, 0.16180e+05/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16180e+05, 0.16190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16190e+05, 0.16200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16200e+05, 0.16210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16210e+05, 0.16220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16220e+05, 0.16230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16230e+05, 0.16240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16240e+05, 0.16250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16250e+05, 0.16260e+05/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16260e+05, 0.16270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16270e+05, 0.16280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16280e+05, 0.16290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16290e+05, 0.16300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16300e+05, 0.16310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16310e+05, 0.16320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16320e+05, 0.16330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16330e+05, 0.16340e+05/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16340e+05, 0.16350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16350e+05, 0.16360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16360e+05, 0.16370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16370e+05, 0.16380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16380e+05, 0.16390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16390e+05, 0.16400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16400e+05, 0.16410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16410e+05, 0.16420e+05/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16420e+05, 0.16430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16430e+05, 0.16440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16440e+05, 0.16450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16450e+05, 0.16460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16460e+05, 0.16470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16470e+05, 0.16480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16480e+05, 0.16490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16490e+05, 0.16500e+05/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16500e+05, 0.16510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16510e+05, 0.16520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16520e+05, 0.16530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16530e+05, 0.16540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16540e+05, 0.16550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16550e+05, 0.16560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16560e+05, 0.16570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16570e+05, 0.16580e+05/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16580e+05, 0.16590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16590e+05, 0.16600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16600e+05, 0.16610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16610e+05, 0.16620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16620e+05, 0.16630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16630e+05, 0.16640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16640e+05, 0.16650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16650e+05, 0.16660e+05/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16660e+05, 0.16670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16670e+05, 0.16680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16680e+05, 0.16690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16690e+05, 0.16700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16700e+05, 0.16710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16710e+05, 0.16720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16720e+05, 0.16730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16730e+05, 0.16740e+05/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16740e+05, 0.16750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16750e+05, 0.16760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16760e+05, 0.16770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16770e+05, 0.16780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16780e+05, 0.16790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16790e+05, 0.16800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16800e+05, 0.16810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16810e+05, 0.16820e+05/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16820e+05, 0.16830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16830e+05, 0.16840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16840e+05, 0.16850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16850e+05, 0.16860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16860e+05, 0.16870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16870e+05, 0.16880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16880e+05, 0.16890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16890e+05, 0.16900e+05/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16900e+05, 0.16910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16910e+05, 0.16920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16920e+05, 0.16930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16930e+05, 0.16940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16940e+05, 0.16950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16950e+05, 0.16960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16960e+05, 0.16970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16970e+05, 0.16980e+05/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16980e+05, 0.16990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16990e+05, 0.17000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17000e+05, 0.17010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17010e+05, 0.17020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17020e+05, 0.17030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17030e+05, 0.17040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17040e+05, 0.17050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17050e+05, 0.17060e+05/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17060e+05, 0.17070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17070e+05, 0.17080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17080e+05, 0.17090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17090e+05, 0.17100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17100e+05, 0.17110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17110e+05, 0.17120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17120e+05, 0.17130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17130e+05, 0.17140e+05/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17140e+05, 0.17150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17150e+05, 0.17160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17160e+05, 0.17170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17170e+05, 0.17180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17180e+05, 0.17190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17190e+05, 0.17200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17200e+05, 0.17210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17210e+05, 0.17220e+05/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17220e+05, 0.17230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17230e+05, 0.17240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17240e+05, 0.17250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17250e+05, 0.17260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17260e+05, 0.17270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17270e+05, 0.17280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17280e+05, 0.17290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17290e+05, 0.17300e+05/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17300e+05, 0.17310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17310e+05, 0.17320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17320e+05, 0.17330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17330e+05, 0.17340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17340e+05, 0.17350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17350e+05, 0.17360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17360e+05, 0.17370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17370e+05, 0.17380e+05/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17380e+05, 0.17390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17390e+05, 0.17400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17400e+05, 0.17410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17410e+05, 0.17420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17420e+05, 0.17430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17430e+05, 0.17440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17440e+05, 0.17450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17450e+05, 0.17460e+05/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17460e+05, 0.17470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17470e+05, 0.17480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17480e+05, 0.17490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17490e+05, 0.17500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17500e+05, 0.17510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17510e+05, 0.17520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17520e+05, 0.17530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17530e+05, 0.17540e+05/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17540e+05, 0.17550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17550e+05, 0.17560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17560e+05, 0.17570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17570e+05, 0.17580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17580e+05, 0.17590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17590e+05, 0.17600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17600e+05, 0.17610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17610e+05, 0.17620e+05/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17620e+05, 0.17630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17630e+05, 0.17640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17640e+05, 0.17650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17650e+05, 0.17660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17660e+05, 0.17670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17670e+05, 0.17680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17680e+05, 0.17690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17690e+05, 0.17700e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17700e+05, 0.17710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17710e+05, 0.17720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17720e+05, 0.17730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17730e+05, 0.17740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17740e+05, 0.17750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17750e+05, 0.17760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17760e+05, 0.17770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17770e+05, 0.17780e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17780e+05, 0.17790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17790e+05, 0.17800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17800e+05, 0.17810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17810e+05, 0.17820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17820e+05, 0.17830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17830e+05, 0.17840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17840e+05, 0.17850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17850e+05, 0.17860e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/METH6.h b/Modules/ThirdParty/6S/src/6SV1.0B/METH6.h
deleted file mode 100644
index 16066d4..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/METH6.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_meth6_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.P b/Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.P
deleted file mode 100644
index a85a5e2..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int midsum_();
-/* comlen sixs_atm__ 1360 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.c b/Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.c
deleted file mode 100644
index 6d7a96f..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.c
+++ /dev/null
@@ -1,80 +0,0 @@
-/* MIDSUM.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#define sixs_atm__1 sixs_atm__
-
-/*< subroutine midsum >*/
-/* Subroutine */ int midsum_()
-{
- /* Initialized data */
-
- static doublereal z2[34] = { 0.,1.,2.,3.,4.,5.,6.,7.,8.,9.,10.,11.,12.,
- 13.,14.,15.,16.,17.,18.,19.,20.,21.,22.,23.,24.,25.,30.,35.,40.,
- 45.,50.,70.,100.,99999. };
- static doublereal p2[34] = { 1013.,902.,802.,710.,628.,554.,487.,426.,
- 372.,324.,281.,243.,209.,179.,153.,130.,111.,95.,81.2,69.5,59.5,
- 51.,43.7,37.6,32.2,27.7,13.2,6.52,3.33,1.76,.951,.0671,3e-4,0. };
- static doublereal t2[34] = { 294.,290.,285.,279.,273.,267.,261.,255.,248.,
- 242.,235.,229.,222.,216.,216.,216.,216.,216.,216.,217.,218.,219.,
- 220.,222.,223.,224.,234.,245.,258.,270.,276.,218.,210.,210. };
- static doublereal wh2[34] = { 14.,9.3,5.9,3.3,1.9,1.,.61,.37,.21,.12,.064,
- .022,.006,.0018,.001,7.6e-4,6.4e-4,5.6e-4,5e-4,4.9e-4,4.5e-4,
- 5.1e-4,5.1e-4,5.4e-4,6e-4,6.7e-4,3.6e-4,1.1e-4,4.3e-5,1.9e-5,
- 1.3e-6,1.4e-7,1e-9,0. };
- static doublereal wo2[34] = { 6e-5,6e-5,6e-5,6.2e-5,6.4e-5,6.6e-5,6.9e-5,
- 7.5e-5,7.9e-5,8.6e-5,9e-5,1.1e-4,1.2e-4,1.5e-4,1.8e-4,1.9e-4,
- 2.1e-4,2.4e-4,2.8e-4,3.2e-4,3.4e-4,3.6e-4,3.6e-4,3.4e-4,3.2e-4,
- 3e-4,2e-4,9.2e-5,4.1e-5,1.3e-5,4.3e-6,8.6e-8,4.3e-11,0. };
-
- integer i__;
-
-/*< common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34) >*/
-/*< real z2(34),p2(34),t2(34),wh2(34),wo2(34) >*/
-/*< real z,p,t,wh,wo >*/
-/*< integer i >*/
-
-/* model: midlatitude summer mc clatchey */
-
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< do 1 i=1,34 >*/
- for (i__ = 1; i__ <= 34; ++i__) {
-/*< z(i)=z2(i) >*/
- sixs_atm__1.z__[i__ - 1] = z2[i__ - 1];
-/*< p(i)=p2(i) >*/
- sixs_atm__1.p[i__ - 1] = p2[i__ - 1];
-/*< t(i)=t2(i) >*/
- sixs_atm__1.t[i__ - 1] = t2[i__ - 1];
-/*< wh(i)=wh2(i) >*/
- sixs_atm__1.wh[i__ - 1] = wh2[i__ - 1];
-/*< wo(i)=wo2(i) >*/
- sixs_atm__1.wo[i__ - 1] = wo2[i__ - 1];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* midsum_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.f b/Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.f
deleted file mode 100644
index 1a4b530..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.f
+++ /dev/null
@@ -1,50 +0,0 @@
- subroutine midsum
- common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34)
- real z2(34),p2(34),t2(34),wh2(34),wo2(34)
- real z,p,t,wh,wo
- integer i
-c
-c model: midlatitude summer mc clatchey
-c
- data(z2(i),i=1, 34)/
- 1 0., 1., 2., 3., 4., 5., 6., 7., 8.,
- 2 9., 10., 11., 12., 13., 14., 15., 16., 17.,
- 3 18., 19., 20., 21., 22., 23., 24., 25., 30.,
- 4 35., 40., 45., 50., 70., 100.,99999./
- data (p2(i),i=1,34) /
- a1.013e+03,9.020e+02,8.020e+02,7.100e+02,6.280e+02,5.540e+02,
- a4.870e+02,4.260e+02,3.720e+02,3.240e+02,2.810e+02,2.430e+02,
- a2.090e+02,1.790e+02,1.530e+02,1.300e+02,1.110e+02,9.500e+01,
- a8.120e+01,6.950e+01,5.950e+01,5.100e+01,4.370e+01,3.760e+01,
- a3.220e+01,2.770e+01,1.320e+01,6.520e+00,3.330e+00,1.760e+00,
- a9.510e-01,6.710e-02,3.000e-04,0.000e+00/
- data (t2(i),i=1,34) /
- a2.940e+02,2.900e+02,2.850e+02,2.790e+02,2.730e+02,2.670e+02,
- a2.610e+02,2.550e+02,2.480e+02,2.420e+02,2.350e+02,2.290e+02,
- a2.220e+02,2.160e+02,2.160e+02,2.160e+02,2.160e+02,2.160e+02,
- a2.160e+02,2.170e+02,2.180e+02,2.190e+02,2.200e+02,2.220e+02,
- a2.230e+02,2.240e+02,2.340e+02,2.450e+02,2.580e+02,2.700e+02,
- a2.760e+02,2.180e+02,2.100e+02,2.100e+02/
- data (wh2(i),i=1,34) /
- a1.400e+01,9.300e+00,5.900e+00,3.300e+00,1.900e+00,1.000e+00,
- a6.100e-01,3.700e-01,2.100e-01,1.200e-01,6.400e-02,2.200e-02,
- a6.000e-03,1.800e-03,1.000e-03,7.600e-04,6.400e-04,5.600e-04,
- a5.000e-04,4.900e-04,4.500e-04,5.100e-04,5.100e-04,5.400e-04,
- a6.000e-04,6.700e-04,3.600e-04,1.100e-04,4.300e-05,1.900e-05,
- a1.300e-06,1.400e-07,1.000e-09,0.000e+00/
- data (wo2(i),i=1,34) /
- a6.000e-05,6.000e-05,6.000e-05,6.200e-05,6.400e-05,6.600e-05,
- a6.900e-05,7.500e-05,7.900e-05,8.600e-05,9.000e-05,1.100e-04,
- a1.200e-04,1.500e-04,1.800e-04,1.900e-04,2.100e-04,2.400e-04,
- a2.800e-04,3.200e-04,3.400e-04,3.600e-04,3.600e-04,3.400e-04,
- a3.200e-04,3.000e-04,2.000e-04,9.200e-05,4.100e-05,1.300e-05,
- a4.300e-06,8.600e-08,4.300e-11,0.000e+00/
- do 1 i=1,34
- z(i)=z2(i)
- p(i)=p2(i)
- t(i)=t2(i)
- wh(i)=wh2(i)
- wo(i)=wo2(i)
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.h b/Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.h
deleted file mode 100644
index 1dfa9e5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MIDSUM.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_midsum_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.P b/Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.P
deleted file mode 100644
index a809f96..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int midwin_();
-/* comlen sixs_atm__ 1360 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.c b/Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.c
deleted file mode 100644
index 9538788..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.c
+++ /dev/null
@@ -1,82 +0,0 @@
-/* MIDWIN.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#define sixs_atm__1 sixs_atm__
-
-/*< subroutine midwin >*/
-/* Subroutine */ int midwin_()
-{
- /* Initialized data */
-
- static doublereal z3[34] = { 0.,1.,2.,3.,4.,5.,6.,7.,8.,9.,10.,11.,12.,
- 13.,14.,15.,16.,17.,18.,19.,20.,21.,22.,23.,24.,25.,30.,35.,40.,
- 45.,50.,70.,100.,99999. };
- static doublereal p3[34] = { 1018.,897.3,789.7,693.8,608.1,531.3,462.7,
- 401.6,347.3,299.2,256.8,219.9,188.2,161.,137.8,117.8,100.7,86.1,
- 73.5,62.8,53.7,45.8,39.1,33.4,28.6,24.3,11.1,5.18,2.53,1.29,.682,
- .0467,3e-4,0. };
- static doublereal t3[34] = { 272.2,268.7,265.2,261.7,255.7,249.7,243.7,
- 237.7,231.7,225.7,219.7,219.2,218.7,218.2,217.7,217.2,216.7,216.2,
- 215.7,215.2,215.2,215.2,215.2,215.2,215.2,215.2,217.4,227.8,243.2,
- 258.5,265.7,230.7,210.2,210. };
- static doublereal wh3[34] = { 3.5,2.5,1.8,1.2,.66,.38,.21,.085,.035,.016,
- .0075,.0069,.006,.0018,.001,7.6e-4,6.4e-4,5.6e-4,5e-4,4.9e-4,
- 4.5e-4,5.1e-4,5.1e-4,5.4e-4,6e-4,6.7e-4,3.6e-4,1.1e-4,4.3e-5,
- 1.9e-5,6.3e-6,1.4e-7,1e-9,0. };
- static doublereal wo3[34] = { 6e-5,5.4e-5,4.9e-5,4.9e-5,4.9e-5,5.8e-5,
- 6.4e-5,7.7e-5,9e-5,1.2e-4,1.6e-4,2.1e-4,2.6e-4,3e-4,3.2e-4,3.4e-4,
- 3.6e-4,3.9e-4,4.1e-4,4.3e-4,4.5e-4,4.3e-4,4.3e-4,3.9e-4,3.6e-4,
- 3.4e-4,1.9e-4,9.2e-5,4.1e-5,1.3e-5,4.3e-6,8.6e-8,4.3e-11,0. };
-
- integer i__;
-
-/*< common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34) >*/
-/*< real z3(34),p3(34),t3(34),wh3(34),wo3(34) >*/
-/*< real z,p,t,wh,wo >*/
-/*< integer i >*/
-
-/* model: midlatitude winter mc clatchey */
-
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< do 1 i=1,34 >*/
- for (i__ = 1; i__ <= 34; ++i__) {
-/*< z(i)=z3(i) >*/
- sixs_atm__1.z__[i__ - 1] = z3[i__ - 1];
-/*< p(i)=p3(i) >*/
- sixs_atm__1.p[i__ - 1] = p3[i__ - 1];
-/*< t(i)=t3(i) >*/
- sixs_atm__1.t[i__ - 1] = t3[i__ - 1];
-/*< wh(i)=wh3(i) >*/
- sixs_atm__1.wh[i__ - 1] = wh3[i__ - 1];
-/*< wo(i)=wo3(i) >*/
- sixs_atm__1.wo[i__ - 1] = wo3[i__ - 1];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* midwin_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.f b/Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.f
deleted file mode 100644
index 7d0271c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.f
+++ /dev/null
@@ -1,50 +0,0 @@
- subroutine midwin
- common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34)
- real z3(34),p3(34),t3(34),wh3(34),wo3(34)
- real z,p,t,wh,wo
- integer i
-c
-c model: midlatitude winter mc clatchey
-c
- data(z3(i),i=1, 34)/
- 1 0., 1., 2., 3., 4., 5., 6., 7., 8.,
- 2 9., 10., 11., 12., 13., 14., 15., 16., 17.,
- 3 18., 19., 20., 21., 22., 23., 24., 25., 30.,
- 4 35., 40., 45., 50., 70., 100.,99999./
- data (p3(i),i=1,34) /
- a1.018e+03,8.973e+02,7.897e+02,6.938e+02,6.081e+02,5.313e+02,
- a4.627e+02,4.016e+02,3.473e+02,2.992e+02,2.568e+02,2.199e+02,
- a1.882e+02,1.610e+02,1.378e+02,1.178e+02,1.007e+02,8.610e+01,
- a7.350e+01,6.280e+01,5.370e+01,4.580e+01,3.910e+01,3.340e+01,
- a2.860e+01,2.430e+01,1.110e+01,5.180e+00,2.530e+00,1.290e+00,
- a6.820e-01,4.670e-02,3.000e-04,0.000e+00/
- data (t3(i),i=1,34) /
- a2.722e+02,2.687e+02,2.652e+02,2.617e+02,2.557e+02,2.497e+02,
- a2.437e+02,2.377e+02,2.317e+02,2.257e+02,2.197e+02,2.192e+02,
- a2.187e+02,2.182e+02,2.177e+02,2.172e+02,2.167e+02,2.162e+02,
- a2.157e+02,2.152e+02,2.152e+02,2.152e+02,2.152e+02,2.152e+02,
- a2.152e+02,2.152e+02,2.174e+02,2.278e+02,2.432e+02,2.585e+02,
- a2.657e+02,2.307e+02,2.102e+02,2.100e+02/
- data (wh3(i),i=1,34) /
- a3.500e+00,2.500e+00,1.800e+00,1.200e+00,6.600e-01,3.800e-01,
- a2.100e-01,8.500e-02,3.500e-02,1.600e-02,7.500e-03,6.900e-03,
- a6.000e-03,1.800e-03,1.000e-03,7.600e-04,6.400e-04,5.600e-04,
- a5.000e-04,4.900e-04,4.500e-04,5.100e-04,5.100e-04,5.400e-04,
- a6.000e-04,6.700e-04,3.600e-04,1.100e-04,4.300e-05,1.900e-05,
- a6.300e-06,1.400e-07,1.000e-09,0.000e+00/
- data (wo3(i),i=1,34) /
- a6.000e-05,5.400e-05,4.900e-05,4.900e-05,4.900e-05,5.800e-05,
- a6.400e-05,7.700e-05,9.000e-05,1.200e-04,1.600e-04,2.100e-04,
- a2.600e-04,3.000e-04,3.200e-04,3.400e-04,3.600e-04,3.900e-04,
- a4.100e-04,4.300e-04,4.500e-04,4.300e-04,4.300e-04,3.900e-04,
- a3.600e-04,3.400e-04,1.900e-04,9.200e-05,4.100e-05,1.300e-05,
- a4.300e-06,8.600e-08,4.300e-11,0.000e+00/
- do 1 i=1,34
- z(i)=z3(i)
- p(i)=p3(i)
- t(i)=t3(i)
- wh(i)=wh3(i)
- wo(i)=wo3(i)
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.h b/Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.h
deleted file mode 100644
index cb96a6a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MIDWIN.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_midwin_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MIE.P b/Modules/ThirdParty/6S/src/6SV1.0B/MIE.P
deleted file mode 100644
index 50291d2..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MIE.P
+++ /dev/null
@@ -1,6 +0,0 @@
-extern int mie_(integer *iaer, doublereal *wldis, doublereal *ex, doublereal *sc, doublereal *asy, integer *ipol);
-extern int exscphase_(doublereal *x, doublereal *nr, doublereal *ni, doublereal *qext, doublereal *qsca, doublereal *p11, doublereal *q11, doublereal *u11, integer *ipol, doublereal *cgaus_s__, doublereal *pdgs_s__);
-/* comlen num_quad__ 4 */
-/* comlen sixs_aerbas__ 480000 */
-/* comlen mie_in__ 2232 */
-/*:ref: gauss_ 14 5 7 7 7 7 4 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MIE.c b/Modules/ThirdParty/6S/src/6SV1.0B/MIE.c
deleted file mode 100644
index fce5545..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MIE.c
+++ /dev/null
@@ -1,899 +0,0 @@
-/* MIE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal ph[20000] /* was [20][1000] */, qh[20000] /* was [20][
- 1000] */, uh[20000] /* was [20][1000] */;
-} sixs_aerbas__;
-
-#define sixs_aerbas__1 sixs_aerbas__
-
-Extern struct {
- doublereal rmax, rmin;
- integer icp;
- doublereal rn[80] /* was [20][4] */, ri[80] /* was [20][4] */, x1[
- 4], x2[4], x3[4], cij[4];
- integer irsunph;
- doublereal rsunph[50], nrsunph[50];
-} mie_in__;
-
-#define mie_in__1 mie_in__
-
-/* Table of constant values */
-
-static doublereal c_b2 = -1.;
-static doublereal c_b3 = 1.;
-static doublereal c_b5 = 10.;
-static doublereal c_b14 = 2.;
-static integer c__9 = 9;
-static integer c__1 = 1;
-static integer c__3 = 3;
-
-/*< subroutine mie(iaer,wldis,ex,sc,asy,ipol) >*/
-/* Subroutine */ int mie_(integer *iaer, doublereal *wldis, doublereal *ex,
- doublereal *sc, doublereal *asy, integer *ipol)
-{
- /* System generated locals */
- integer i__1, i__2;
- doublereal d__1, d__2;
-
- /* Builtin functions */
- double atan(doublereal), pow_dd(doublereal *, doublereal *), d_lg10(
- doublereal *), exp(doublereal), sqrt(doublereal), log(doublereal),
- acos(doublereal);
-
- /* Local variables */
- integer i__, j, k, l;
- doublereal r__, p1[80000] /* was [20][4][1000] */, q1[80000] /*
- was [20][4][1000] */, r0;
- extern /* Subroutine */ int exscphase_(doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, integer *, doublereal *, doublereal *)
- ;
- doublereal u1[80000] /* was [20][4][1000] */, p11[1000], q11[1000],
- u11[1000], pi, dr, np[4], nr, vi[4], sca[80] /* was [20][4]
- */, arg, ext[80] /* was [20][4] */, qsca, sigm;
- integer nbmu;
- doublereal xmug, qext, alpha, asy_d__, rmind, asy_n__, rmaxd, ldexp;
- extern /* Subroutine */ int gauss_(doublereal *, doublereal *, doublereal
- *, doublereal *, integer *);
- integer nbmu_2__;
- doublereal xndpr2, cosang[1000], pdgs_s__[1000], weight[1000], cgaus_s__[
- 1000], rlogpas;
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real ph,qh,uh >*/
-/*< common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p) >*/
-/*< real cgaus_S(nqmax_p), pdgs_S(nqmax_p) >*/
-/*< integer nbmu, nbmu_2 >*/
-/*< real cosang(nqmax_p),weight(nqmax_p) >*/
-/* - to vary the number of quadratures */
-/*< double precision nr,ext(20,4),sca(20,4),np(4),p1(20,4,nqmax_p) >*/
-/*< double precision q1(20,4,nqmax_p),u1(20,4,nqmax_p) >*/
-/*< double precision p11(nqmax_p),q11(nqmax_p),u11(nqmax_p) >*/
-/*< double precision pi,r,rmind,rmaxd,r0,alpha,dr,xndpr2,Qext,Qsca >*/
-/*< double precision rlogpas >*/
-/*< real ex(4,20),sc(4,20),asy(4,20),wldis(20) >*/
-/*< real rmax,rmin,rn,ri,x1,x2,x3,rsunph,nrsunph >*/
-/*< real asy_n,asy_d,cij >*/
-/*< integer icp,i,j,l,k,iaer,irsunph,ipol >*/
-/*< double precision arg,ldexp >*/
-/*< >*/
-/*< real sigm, vi(4) >*/
-/*< ldexp=-300. >*/
- /* Parameter adjustments */
- asy -= 5;
- sc -= 5;
- ex -= 5;
- --wldis;
-
- /* Function Body */
- ldexp = -300.;
-/*< pi=4.D+00*datan(1.D+00) >*/
- pi = atan(1.) * 4.;
-/*< rlogpas=0.011 >*/
- rlogpas = .011;
-/*< nbmu=nquad >*/
- nbmu = num_quad__1.nquad;
-/*< do i=1,icp >*/
- i__1 = mie_in__1.icp;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< np(i)=0.D+00 >*/
- np[i__ - 1] = 0.;
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< ex(i,l)=0.0 >*/
- ex[i__ + (l << 2)] = 0.;
-/*< sc(i,l)=0.0 >*/
- sc[i__ + (l << 2)] = 0.;
-/*< asy(i,l)=0.0 >*/
- asy[i__ + (l << 2)] = 0.;
-/*< ext(l,i)=0.D+00 >*/
- ext[l + i__ * 20 - 21] = 0.;
-/*< sca(l,i)=0.D+00 >*/
- sca[l + i__ * 20 - 21] = 0.;
-/*< do k=1,nbmu >*/
- i__2 = nbmu;
- for (k = 1; k <= i__2; ++k) {
-/*< p1(l,i,k)=0.D+00 >*/
- p1[l + (i__ + (k << 2)) * 20 - 101] = 0.;
-/*< q1(l,i,k)=0.D+00 >*/
- q1[l + (i__ + (k << 2)) * 20 - 101] = 0.;
-/*< u1(l,i,k)=0.D+00 >*/
- u1[l + (i__ + (k << 2)) * 20 - 101] = 0.;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< rmaxd=dble(rmax) >*/
- rmaxd = mie_in__1.rmax;
-/*< rmind=dble(rmin) >*/
- rmind = mie_in__1.rmin;
-/*< do k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< q11(k)=0.D+00 >*/
- q11[k - 1] = 0.;
-/*< u11(k)=0.D+00 >*/
- u11[k - 1] = 0.;
-/*< enddo >*/
- }
-/* - calculation of gauss points */
-/*< nbmu=nquad >*/
- nbmu = num_quad__1.nquad;
-/*< nbmu_2=(nbmu-3)/2 >*/
- nbmu_2__ = (nbmu - 3) / 2;
-/*< call gauss(-1.,1.,cosang,weight,nbmu-3) >*/
- i__1 = nbmu - 3;
- gauss_(&c_b2, &c_b3, cosang, weight, &i__1);
-/*< cgaus_S(1)=-1.0 >*/
- cgaus_s__[0] = -1.;
-/*< pdgs_S(1)=0.0 >*/
- pdgs_s__[0] = 0.;
-/*< do j=1,nbmu_2 >*/
- i__1 = nbmu_2__;
- for (j = 1; j <= i__1; ++j) {
-/*< cgaus_S(j+1)=cosang(j) >*/
- cgaus_s__[j] = cosang[j - 1];
-/*< pdgs_S(j+1)=weight(j) >*/
- pdgs_s__[j] = weight[j - 1];
-/*< enddo >*/
- }
-/*< cgaus_S(nbmu_2+2)=0. >*/
- cgaus_s__[nbmu_2__ + 1] = 0.;
-/*< pdgs_S(nbmu_2+2)=0. >*/
- pdgs_s__[nbmu_2__ + 1] = 0.;
-/*< do j=nbmu_2+1,nbmu-3 >*/
- i__1 = nbmu - 3;
- for (j = nbmu_2__ + 1; j <= i__1; ++j) {
-/*< cgaus_S(j+2)=cosang(j) >*/
- cgaus_s__[j + 1] = cosang[j - 1];
-/*< pdgs_S(j+2)=weight(j) >*/
- pdgs_s__[j + 1] = weight[j - 1];
-/*< enddo >*/
- }
-/*< cgaus_S(nbmu)=1.0 >*/
- cgaus_s__[nbmu - 1] = 1.;
-/*< pdgs_S(nbmu)=0. >*/
- pdgs_s__[nbmu - 1] = 0.;
-/* - calculation of gauss points */
-/* LOOPS ON THE NUMBER OF PARTICLE TYPE (4 max) */
-/*< do 600 i=1,icp >*/
- i__1 = mie_in__1.icp;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< r=rmind >*/
- r__ = rmind;
-/*< dr=r*(10**rlogpas-1.D+00) >*/
- dr = r__ * (pow_dd(&c_b5, &rlogpas) - 1.);
-/*< 123 continue >*/
-L123:
-/* LOOPS ON THE RADIUS OF THE PARTICLE */
-/*call for the size distribution nr. For our computation, we need dn/d
-r for*/
-/*all functions except for sun-photometer inputs, for which we need dV
-/dlog(r)*/
-/*< goto(300,301,302,303)iaer-7 >*/
- switch (*iaer - 7) {
- case 1: goto L300;
- case 2: goto L301;
- case 3: goto L302;
- case 4: goto L303;
- }
-/* --- Mixture of particles (Log-Normal distribution functions, up to
-5) */
-/*< 300 nr=DLOG10(1.D+00*r/x1(i))*DLOG10(1.D+00*r/x1(i)) >*/
-L300:
- d__1 = r__ * 1. / mie_in__1.x1[i__ - 1];
- d__2 = r__ * 1. / mie_in__1.x1[i__ - 1];
- nr = d_lg10(&d__1) * d_lg10(&d__2);
-/*< nr=nr/(DLOG10(1.D+00*x2(i))*DLOG10(1.D+00*x2(i))) >*/
- d__1 = mie_in__1.x2[i__ - 1] * 1.;
- d__2 = mie_in__1.x2[i__ - 1] * 1.;
- nr /= d_lg10(&d__1) * d_lg10(&d__2);
-/*< nr=DEXP(-nr/2.D+00) >*/
- nr = exp(-nr / 2.);
-/*< nr=nr/dsqrt(2.D+00*pi)/DLOG(10.D+00)/r/DLOG10(1.D+00*x2(i)) >*/
- d__1 = mie_in__1.x2[i__ - 1] * 1.;
- nr = nr / sqrt(pi * 2.) / log(10.) / r__ / d_lg10(&d__1);
-/*< goto 399 >*/
- goto L399;
-/* --- Modified Gamma distribution function */
-/*< 301 r0=1.00D+00 >*/
-L301:
- r0 = 1.;
-/*< arg=-x2(i)*((r/r0)**x3(i)) >*/
- d__1 = r__ / r0;
- arg = -mie_in__1.x2[i__ - 1] * pow_dd(&d__1, &mie_in__1.x3[i__ - 1]);
-/*< if (arg.gt.ldexp) then >*/
- if (arg > ldexp) {
-/*< nr=((r/r0)**x1(i))*DEXP(arg) >*/
- d__1 = r__ / r0;
- nr = pow_dd(&d__1, &mie_in__1.x1[i__ - 1]) * exp(arg);
-/*< else >*/
- } else {
-/*< nr=0. >*/
- nr = 0.;
-/*< endif >*/
- }
-/*< goto 399 >*/
- goto L399;
-/* --- Junge power-law function */
-/*< 302 r0=0.1000D+00 >*/
-L302:
- r0 = .1;
-/*< nr= r0**(-x1(i)) >*/
- d__1 = -mie_in__1.x1[i__ - 1];
- nr = pow_dd(&r0, &d__1);
-/*< IF(r.GT.r0 ) nr= r**(-x1(i)) >*/
- if (r__ > r0) {
- d__1 = -mie_in__1.x1[i__ - 1];
- nr = pow_dd(&r__, &d__1);
- }
-/*< goto 399 >*/
- goto L399;
-
-/* --- from sun photometer */
-/*< 303 nr=0.D+00 >*/
-L303:
- nr = 0.;
-/*< do 299 j=2,irsunph >*/
- i__2 = mie_in__1.irsunph;
- for (j = 2; j <= i__2; ++j) {
-/*< if ((r-rsunph(j)).lt.0.000001)then >*/
- if (r__ - mie_in__1.rsunph[j - 1] < 1e-6) {
-/*< nr=(r-rsunph(j-1))/(rsunph(j)-rsunph(j-1)) >*/
- nr = (r__ - mie_in__1.rsunph[j - 2]) / (mie_in__1.rsunph[j -
- 1] - mie_in__1.rsunph[j - 2]);
-/*< nr=nrsunph(j-1)+nr*(nrsunph(j)-nrsunph(j-1)) >*/
- nr = mie_in__1.nrsunph[j - 2] + nr * (mie_in__1.nrsunph[j - 1]
- - mie_in__1.nrsunph[j - 2]);
-/*< goto 398 >*/
- goto L398;
-/*< endif >*/
- }
-/*< 299 continue >*/
-/* L299: */
- }
-/*The Mie's calculations have to be called several times (min=2, max=1
-0 for*/
-/*each type of particle): at wavelengths bounding the range of the sel
-ected*/
-/*wavelengths,and at 0.550 microns to normalized the extinction coeffi
-cient*/
-/* (if it's not in the selected range of wavelengths). */
-/*< 398 nr=nr*3./(pi*r*r*r*r*4.) >*/
-L398:
- nr = nr * 3. / (pi * r__ * r__ * r__ * r__ * 4.);
-/*< 399 continue >*/
-L399:
-/*< xndpr2=nr*dr*pi*(r**2.D+00) >*/
- xndpr2 = nr * dr * pi * pow_dd(&r__, &c_b14);
-/*relatif number of particle for each type of particle (has to be equa
-l to 1)*/
-/*< np(i)=np(i)+nr*dr >*/
- np[i__ - 1] += nr * dr;
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< alpha=2.D+00*pi*r/wldis(l) >*/
- alpha = pi * 2. * r__ / wldis[l];
-/*< >*/
- exscphase_(&alpha, &mie_in__1.rn[l + i__ * 20 - 21], &
- mie_in__1.ri[l + i__ * 20 - 21], &qext, &qsca, p11, q11,
- u11, ipol, cgaus_s__, pdgs_s__);
-/*< ext(l,i)=ext(l,i)+xndpr2*Qext >*/
- ext[l + i__ * 20 - 21] += xndpr2 * qext;
-/*< sca(l,i)=sca(l,i)+xndpr2*Qsca >*/
- sca[l + i__ * 20 - 21] += xndpr2 * qsca;
-/* phase function for each type of particle */
-/*< do k=1,nbmu >*/
- i__2 = nbmu;
- for (k = 1; k <= i__2; ++k) {
-/*< p1(l,i,k)=p1(l,i,k)+4.D+00*p11(k)*xndpr2 >*/
- p1[l + (i__ + (k << 2)) * 20 - 101] += p11[k - 1] * 4. *
- xndpr2;
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< q1(l,i,k)=q1(l,i,k)+4.D+00*q11(k)*xndpr2 >*/
- q1[l + (i__ + (k << 2)) * 20 - 101] += q11[k - 1] * 4. *
- xndpr2;
-/*< u1(l,i,k)=u1(l,i,k)+4.D+00*u11(k)*xndpr2 >*/
- u1[l + (i__ + (k << 2)) * 20 - 101] += u11[k - 1] * 4. *
- xndpr2;
-/*< endif >*/
- }
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< 599 continue >*/
-/* L599: */
-/*< vi(i)=vi(i)+r*r*r*nr*dr >*/
- vi[i__ - 1] += r__ * r__ * r__ * nr * dr;
-/*< r=r+dr >*/
- r__ += dr;
-/*< dr=r*(10**rlogpas-1.D+00) >*/
- dr = r__ * (pow_dd(&c_b5, &rlogpas) - 1.);
-/*< if(r.ge.rmaxd) goto 600 >*/
- if (r__ >= rmaxd) {
- goto L600;
- }
-/*< goto 123 >*/
- goto L123;
-/*< 600 continue >*/
-L600:
- ;
- }
-/* NOW WE MIXT THE DIFFERENT TYPES OF PARTICLE */
-/* Computation of the scattering and extinction coefficients. */
-/* The coefficients will be normalized at 0.550 micron. */
-/*< sigm=0. >*/
- sigm = 0.;
-/*< do i=1,icp >*/
- i__1 = mie_in__1.icp;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< vi(i)=4*pi*vi(i)/3 >*/
- vi[i__ - 1] = pi * 4 * vi[i__ - 1] / 3;
-/*< sigm=sigm+cij(i)/vi(i) >*/
- sigm += mie_in__1.cij[i__ - 1] / vi[i__ - 1];
-/*< enddo >*/
- }
-/* cij coefficients calculation */
-/*< do j=1,icp >*/
- i__1 = mie_in__1.icp;
- for (j = 1; j <= i__1; ++j) {
-/*< cij(j)=(cij(j)/vi(j)/sigm) >*/
- mie_in__1.cij[j - 1] = mie_in__1.cij[j - 1] / vi[j - 1] / sigm;
-/*< enddo >*/
- }
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< do i=1,icp >*/
- i__1 = mie_in__1.icp;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< ex(1,l)=ex(1,l)+cij(i)*real(ext(l,i)) >*/
- ex[(l << 2) + 1] += mie_in__1.cij[i__ - 1] * ext[l + i__ * 20 -
- 21];
-/*< sc(1,l)=sc(1,l)+cij(i)*real(sca(l,i)) >*/
- sc[(l << 2) + 1] += mie_in__1.cij[i__ - 1] * sca[l + i__ * 20 -
- 21];
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* computation of the phase functions and the asymetry coefficient */
-/* of the mixture of particles */
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< asy_n=0. >*/
- asy_n__ = 0.;
-/*< asy_d=0. >*/
- asy_d__ = 0.;
-/*< do k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< ph(l,k)=0. >*/
- sixs_aerbas__1.ph[l + k * 20 - 21] = 0.;
-/*< do i=1,icp >*/
- i__2 = mie_in__1.icp;
- for (i__ = 1; i__ <= i__2; ++i__) {
-/*< ph(l,k)=ph(l,k)+real(cij(i)*p1(l,i,k)) >*/
- sixs_aerbas__1.ph[l + k * 20 - 21] += mie_in__1.cij[i__ - 1] *
- p1[l + (i__ + (k << 2)) * 20 - 101];
-/*< enddo >*/
- }
-/*< ph(l,k)=ph(l,k)/sc(1,l) >*/
- sixs_aerbas__1.ph[l + k * 20 - 21] /= sc[(l << 2) + 1];
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< qh(l,k)=0. >*/
- sixs_aerbas__1.qh[l + k * 20 - 21] = 0.;
-/*< uh(l,k)=0. >*/
- sixs_aerbas__1.uh[l + k * 20 - 21] = 0.;
-/*< do i=1,icp >*/
- i__2 = mie_in__1.icp;
- for (i__ = 1; i__ <= i__2; ++i__) {
-/*< qh(l,k)=qh(l,k)+real(cij(i)*q1(l,i,k)) >*/
- sixs_aerbas__1.qh[l + k * 20 - 21] += mie_in__1.cij[i__ -
- 1] * q1[l + (i__ + (k << 2)) * 20 - 101];
-/*< uh(l,k)=uh(l,k)+real(cij(i)*u1(l,i,k)) >*/
- sixs_aerbas__1.uh[l + k * 20 - 21] += mie_in__1.cij[i__ -
- 1] * u1[l + (i__ + (k << 2)) * 20 - 101];
-/*< enddo >*/
- }
-/*< qh(l,k)=qh(l,k)/sc(1,l) >*/
- sixs_aerbas__1.qh[l + k * 20 - 21] /= sc[(l << 2) + 1];
-/*< uh(l,k)=uh(l,k)/sc(1,l) >*/
- sixs_aerbas__1.uh[l + k * 20 - 21] /= sc[(l << 2) + 1];
-/*< xmug=180/pi*acos(cgaus_S(k)) >*/
- xmug = 180 / pi * acos(cgaus_s__[k - 1]);
-/*< endif >*/
- }
-/*< asy_n=asy_n+cgaus_S(k)*ph(l,k)*pdgs_S(k) >*/
- asy_n__ += cgaus_s__[k - 1] * sixs_aerbas__1.ph[l + k * 20 - 21] *
- pdgs_s__[k - 1];
-/*< asy_d=asy_d+ph(l,k)*pdgs_S(k) >*/
- asy_d__ += sixs_aerbas__1.ph[l + k * 20 - 21] * pdgs_s__[k - 1];
-/*< enddo >*/
- }
-/*< asy(1,l)=asy_n/asy_d >*/
- asy[(l << 2) + 1] = asy_n__ / asy_d__;
-/*< enddo >*/
- }
-/*< do i=1,icp >*/
- i__1 = mie_in__1.icp;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< ex(i,l)=ex(i,l)/np(i) >*/
- ex[i__ + (l << 2)] /= np[i__ - 1];
-/*< sc(i,l)=sc(i,l)/np(i) >*/
- sc[i__ + (l << 2)] /= np[i__ - 1];
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< return >*/
- return 0;
-/*< END >*/
-} /* mie_ */
-
-/****************************************************************************
-*/
-/* Using the Mie's theory, this subroutine computes the scattering and */
-/*extinction efficiency factors (usually written Qsca and Qext) and it also*/
-/* computes the scattering intensity efficiency */
-/*< >*/
-/* Subroutine */ int exscphase_(doublereal *x, doublereal *nr, doublereal *ni,
- doublereal *qext, doublereal *qsca, doublereal *p11, doublereal *q11,
- doublereal *u11, integer *ipol, doublereal *cgaus_s__, doublereal *
- pdgs_s__)
-{
- /* System generated locals */
- integer i__1, i__2;
- doublereal d__1;
-
- /* Builtin functions */
- double sqrt(doublereal);
- integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen),
- e_wsle();
- /* Subroutine */ int s_stop(char *, ftnlen);
- double cos(doublereal), sin(doublereal), pow_dd(doublereal *, doublereal *
- );
-
- /* Local variables */
- doublereal xnumidny, xnumrdny;
- integer j, k, n;
- doublereal y;
- integer np;
- doublereal rn[10000001], xj[10000001];
- integer mu;
- doublereal up, xy[10000002], is1, is2;
- integer mu1, mu2;
- doublereal rs1, rs2, ian[10000001], ibn[10000001], ran[10000001], rbn[
- 10000001], imn, ren;
- integer mub;
- doublereal pin[10000001], ianb, ibnb, co_n__, ranb, rbnb;
- integer nbmu;
- doublereal coxj, idny[10000001], ignx[10000001], taun[10000001], rdnx[
- 10000001], rdny[10000001], xmud, rgnx[10000001], test, xjonh,
- xpond, xdenan, xdenbn, xden1an, xden2an, xden1bn, xden2bn,
- xnum1an, xnum2an, xnum1bn, xnum2bn, xdendny, xdengnx;
-
- /* Fortran I/O blocks */
- static cilist io___49 = { 0, 6, 0, 0, 0 };
- static cilist io___50 = { 0, 6, 0, 0, 0 };
- static cilist io___86 = { 0, 6, 0, 0, 0 };
-
-
-/*< parameter (nser=10000000) >*/
-/*< double precision Ren,Imn,X,Y,Up,XnumRDnY,XnumIDnY >*/
-/*< double precision XdenDnY,coxj,Qsca,Qext,xJonH,XdenGNX >*/
-/*< double precision Xnum1An,Xnum2An,XdenAn,Xden1An,Xden2An,RAnb,IAnb >*/
-/*< double precision Xnum1Bn,Xnum2Bn,XdenBn,Xden1Bn,Xden2Bn,RBnb,IBnb >*/
-/*< double precision xmud,xpond,RS1,RS2,IS1,IS2,co_n,test >*/
-/*< double precision xj(0:nser),xy(-1:nser),Rn(0:nser) >*/
-/*< double precision IDnY(0:nser),RDnX(0:nser),RDnY(0:nser) >*/
-/*< double precision IGnX(0:nser),RGnX(0:nser) >*/
-/*< double precision RAn(0:nser),IAn(0:nser),RBn(0:nser),IBn(0:nser) >*/
-/*< double precision TAUn(0:nser),PIn(0:nser) >*/
-/*< real nr,ni >*/
-/*< integer N,Np,mu,mub,mu1,mu2,k,nbmu,j >*/
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< double precision p11(nqmax_p),q11(nqmax_p),u11(nqmax_p) >*/
-/*< real cgaus_S(nqmax_p), pdgs_S(nqmax_p) >*/
-/* - to vary the number of quadratures */
-/*< nbmu=nquad >*/
- /* Parameter adjustments */
- --pdgs_s__;
- --cgaus_s__;
- --u11;
- --q11;
- --p11;
-
- /* Function Body */
- nbmu = num_quad__1.nquad;
-/*< Ren=nr/(nr*nr+ni*ni) >*/
- ren = *nr / (*nr * *nr + *ni * *ni);
-/*< Imn=ni/(nr*nr+ni*ni) >*/
- imn = *ni / (*nr * *nr + *ni * *ni);
-/* jcc */
-/*< Y=X*sqrt(nr*nr+ni*ni) >*/
- y = *x * sqrt(*nr * *nr + *ni * *ni);
-/* jcc */
-/* ---Identification of the greater order of computation (=mu) */
-/* as defined by F.J. Corbato, J. Assoc. Computing Machinery, 1959, */
-/* 6, 366-375 */
-/* jcc N=int(0.5D+00*(-1.D+00+dsqrt(1.D+00+4.D+00*X*X)))+1 */
-/*< N=int(0.5D+00*(-1.D+00+dsqrt(1.D+00+4.D+00*Y*Y)))+1 >*/
- n = (integer) ((sqrt(y * 4. * y + 1.) - 1.) * .5) + 1;
-/*In certain this value of N above leads to a value of Up~1 and big proble
-ms*/
-/* N=int(0.5D+00*(-1.D+00+dsqrt(1.D+00+4.D+00*Y*Y)))+3 */
-/* jcc */
-/*< if (N.eq.1)N=2 >*/
- if (n == 1) {
- n = 2;
- }
-/*< mu2=1000000 >*/
- mu2 = 1000000;
-/*< Np=N >*/
- np = n;
-/* jcc */
-/* Up=2.D+00*X/(2.D+00*Np+1.D+00) */
-/*< Up=2.D+00*Y/(2.D+00*Np+1.D+00) >*/
- up = y * 2. / (np * 2. + 1.);
-/* jcc */
-/*< mu1=int(Np+30.*(0.10+0.35*Up*(2-Up*Up)/2./(1-Up))) >*/
- mu1 = (integer) (np + (up * .35 * (2 - up * up) / 2. / (1 - up) + .1) *
- 30.);
-/* jcc */
-/* Np=int(X-0.5D+00+dsqrt(30.*0.35*X)) */
-/*< Np=int(Y-0.5D+00+dsqrt(30.*0.35*Y)) >*/
- np = (integer) (y - .5 + sqrt(y * 10.5));
-/* jcc */
-/*< if (Np.gt.N)then >*/
- if (np > n) {
-/* jcc */
-/* Up=2.D+00*X/(2.D+00*Np+1.D+00) */
-/*< Up=2.D+00*Y/(2.D+00*Np+1.D+00) >*/
- up = y * 2. / (np * 2. + 1.);
-/* jcc */
-/*< mu2=int(Np+30.*(0.10+0.35*Up*(2-Up*Up)/2./(1-Up))) >*/
- mu2 = (integer) (np + (up * .35 * (2 - up * up) / 2. / (1 - up) + .1)
- * 30.);
-/*< endif >*/
- }
-/*< mu=min0(mu1,mu2) >*/
- mu = min(mu1,mu2);
-/*< if (mu.ge.nser) then >*/
- if (mu >= 10000000) {
-/*< write(6,*) " Error, nser is too small, mu is equal to : ",mu >*/
- s_wsle(&io___49);
- do_lio(&c__9, &c__1, " Error, nser is too small, mu is equal to : ",
- 44L);
- do_lio(&c__3, &c__1, (char *)&mu, (ftnlen)sizeof(integer));
- e_wsle();
-/*< Stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/*< if (mu.le.0) then >*/
- if (mu <= 0) {
-/*< write(6,*) " Error, mu is too small, mu is equal to : ",mu >*/
- s_wsle(&io___50);
- do_lio(&c__9, &c__1, " Error, mu is too small, mu is equal to : ",
- 42L);
- do_lio(&c__3, &c__1, (char *)&mu, (ftnlen)sizeof(integer));
- e_wsle();
-/*< Stop >*/
- s_stop("", 0L);
-/*< endif >*/
- }
-/* --- Identification of the transition line. Below this line the Bessel
-*/
-/* function j behaves as oscillating functions. Above the behavior */
-/* becomes monotonic. We start at a order greater than this transition
- */
-/* line (order max=mu) because a downward recursion is called for. */
-/*< Rn(mu)=0.D+00 >*/
- rn[mu] = 0.;
-/*< k=mu+1 >*/
- k = mu + 1;
-/*< 149 continue >*/
-L149:
-/*< k=k-1 >*/
- --k;
-/*< xj(k)=0.D+00 >*/
- xj[k] = 0.;
-/*< Rn(k-1)=X/(2.D+00*k+1.D+00-X*Rn(k)) >*/
- rn[k - 1] = *x / (k * 2. + 1. - *x * rn[k]);
-/*< if (k.eq.2)then >*/
- if (k == 2) {
-/*< mub=mu >*/
- mub = mu;
-/*< xj(mub+1)=0.D+00 >*/
- xj[mub + 1] = 0.;
-/*< xj(mub)=1.D+00 >*/
- xj[mub] = 1.;
-/*< goto 150 >*/
- goto L150;
-/*< endif >*/
- }
-/*< if (Rn(k-1).gt.1.D+00)then >*/
- if (rn[k - 1] > 1.) {
-/*< mub=k-1 >*/
- mub = k - 1;
-/*< xj(mub+1)=Rn(mub) >*/
- xj[mub + 1] = rn[mub];
-/*< xj(mub)=1.D+00 >*/
- xj[mub] = 1.;
-/*< goto 150 >*/
- goto L150;
-/*< endif >*/
- }
-/*< goto 149 >*/
- goto L149;
-/*< 150 continue >*/
-L150:
-/*< do k=mub,1,-1 >*/
- for (k = mub; k >= 1; --k) {
-/*< xj(k-1)=(2.D+00*k+1.D+00)*xj(k)/X-xj(k+1) >*/
- xj[k - 1] = (k * 2. + 1.) * xj[k] / *x - xj[k + 1];
-/*< enddo >*/
- }
-/*< coxj=(xj(0)-X*xj(1))*dcos(X)+X*xj(0)*sin(X) >*/
- coxj = (xj[0] - *x * xj[1]) * cos(*x) + *x * xj[0] * sin(*x);
-/* --- Computation Dn(alpha) and Dn(alpha*m) (cf MIE's theory) */
-/* downward recursion - real and imaginary parts */
-/*< RDnY(mu)=0.D+00 >*/
- rdny[mu] = 0.;
-/*< IDnY(mu)=0.D+00 >*/
- idny[mu] = 0.;
-/*< RDnX(mu)=0.D+00 >*/
- rdnx[mu] = 0.;
-/*< do k=mu,1,-1 >*/
- for (k = mu; k >= 1; --k) {
-/*< RDnX(k-1)=k/X-1.D+00/(RDnX(k)+k/X) >*/
- rdnx[k - 1] = k / *x - 1. / (rdnx[k] + k / *x);
-/*< XnumRDnY=RDnY(k)+Ren*k/X >*/
- xnumrdny = rdny[k] + ren * k / *x;
-/*< XnumIDnY=IDnY(k)+Imn*k/X >*/
- xnumidny = idny[k] + imn * k / *x;
-/*< XdenDnY=XnumRDnY*XnumRDnY+XnumIDnY*XnumIDnY >*/
- xdendny = xnumrdny * xnumrdny + xnumidny * xnumidny;
-/*< RDnY(k-1)=k*Ren/X-XnumRDnY/XdenDnY >*/
- rdny[k - 1] = k * ren / *x - xnumrdny / xdendny;
-/*< IDnY(k-1)=k*Imn/X+XnumIDnY/XdenDnY >*/
- idny[k - 1] = k * imn / *x + xnumidny / xdendny;
-/*< enddo >*/
- }
-/* --- Initialization of the upward recursions */
-/*< xy(-1)=dsin(x)/x >*/
- xy[0] = sin(*x) / *x;
-/*< xy(0)=-dcos(x)/x >*/
- xy[1] = -cos(*x) / *x;
-/*< RGnX(0)=0.D+00 >*/
- rgnx[0] = 0.;
-/*< IGnX(0)=-1.D+00 >*/
- ignx[0] = -1.;
-/*< Qsca=0.D+00 >*/
- *qsca = 0.;
-/*< Qext=0.D+00 >*/
- *qext = 0.;
-/*< do k=1,mu >*/
- i__1 = mu;
- for (k = 1; k <= i__1; ++k) {
-/*< if (k.le.mub)then >*/
- if (k <= mub) {
-/*< xj(k)=xj(k)/coxj >*/
- xj[k] /= coxj;
-/*< else >*/
- } else {
-/*< xj(k)=Rn(k-1)*xj(k-1) >*/
- xj[k] = rn[k - 1] * xj[k - 1];
-/*< endif >*/
- }
-/* --- Computation of bessel's function y(alpha) */
-/*< xy(k)=(2.D+00*k-1.D+00)*xy(k-1)/X-xy(k-2) >*/
- xy[k + 1] = (k * 2. - 1.) * xy[k] / *x - xy[k - 1];
-/*< xJonH=xj(k)/(xj(k)*xj(k)+xy(k)*xy(k)) >*/
- xjonh = xj[k] / (xj[k] * xj[k] + xy[k + 1] * xy[k + 1]);
-/* --- Computation of Gn(alpha), Real and Imaginary part */
-/*< XdenGNX=(RGnX(k-1)-k/X)**2.D+00+IGnX(k-1)*IGnX(k-1) >*/
- d__1 = rgnx[k - 1] - k / *x;
- xdengnx = pow_dd(&d__1, &c_b14) + ignx[k - 1] * ignx[k - 1];
-/*< RGnX(k)=(k/X-RGnX(k-1))/XdenGNX-k/X >*/
- rgnx[k] = (k / *x - rgnx[k - 1]) / xdengnx - k / *x;
-/*< IGnX(k)=IGnX(k-1)/XdenGNX >*/
- ignx[k] = ignx[k - 1] / xdengnx;
-/* --- Computation of An(alpha) and Bn(alpha), Real and Imaginary part
- */
-/*< Xnum1An=RDnY(k)-nr*RDnX(k) >*/
- xnum1an = rdny[k] - *nr * rdnx[k];
-/*< Xnum2An=IDnY(k)+ni*RDnX(k) >*/
- xnum2an = idny[k] + *ni * rdnx[k];
-/*< Xden1An=RDnY(k)-nr*RGnX(k)-ni*IGnX(k) >*/
- xden1an = rdny[k] - *nr * rgnx[k] - *ni * ignx[k];
-/*< Xden2An=IDnY(k)+ni*RGnX(k)-nr*IGnX(k) >*/
- xden2an = idny[k] + *ni * rgnx[k] - *nr * ignx[k];
-/*< XdenAn=Xden1An*Xden1An+Xden2An*Xden2An >*/
- xdenan = xden1an * xden1an + xden2an * xden2an;
-/*< RAnb=(Xnum1An*Xden1An+Xnum2An*Xden2An)/XdenAn >*/
- ranb = (xnum1an * xden1an + xnum2an * xden2an) / xdenan;
-/*< IAnb=(-Xnum1An*Xden2An+Xnum2An*Xden1An)/XdenAn >*/
- ianb = (-xnum1an * xden2an + xnum2an * xden1an) / xdenan;
-/*< RAn(k)=xJonH*(xj(k)*RAnb-xy(k)*IAnb) >*/
- ran[k] = xjonh * (xj[k] * ranb - xy[k + 1] * ianb);
-/*< IAn(k)=xJonH*(xy(k)*RAnb+xj(k)*IAnb) >*/
- ian[k] = xjonh * (xy[k + 1] * ranb + xj[k] * ianb);
-/*< Xnum1Bn=nr*RDnY(k)+ni*IDnY(k)-RDnX(k) >*/
- xnum1bn = *nr * rdny[k] + *ni * idny[k] - rdnx[k];
-/*< Xnum2Bn=nr*IDnY(k)-ni*RDnY(k) >*/
- xnum2bn = *nr * idny[k] - *ni * rdny[k];
-/*< Xden1Bn=nr*RDnY(k)+ni*IDnY(k)-RGnX(k) >*/
- xden1bn = *nr * rdny[k] + *ni * idny[k] - rgnx[k];
-/*< Xden2Bn=nr*IDnY(k)-ni*RDnY(k)-IGnX(k) >*/
- xden2bn = *nr * idny[k] - *ni * rdny[k] - ignx[k];
-/*< XdenBn=Xden1Bn*Xden1Bn+Xden2Bn*Xden2Bn >*/
- xdenbn = xden1bn * xden1bn + xden2bn * xden2bn;
-/*< RBnb=(Xnum1Bn*Xden1Bn+Xnum2Bn*Xden2Bn)/XdenBn >*/
- rbnb = (xnum1bn * xden1bn + xnum2bn * xden2bn) / xdenbn;
-/*< IBnb=(-Xnum1Bn*Xden2Bn+Xnum2Bn*Xden1Bn)/XdenBn >*/
- ibnb = (-xnum1bn * xden2bn + xnum2bn * xden1bn) / xdenbn;
-/*< RBn(k)=xJonH*(xj(k)*RBnb-xy(k)*IBnb) >*/
- rbn[k] = xjonh * (xj[k] * rbnb - xy[k + 1] * ibnb);
-/*< IBn(k)=xJonH*(xy(k)*RBnb+xj(k)*IBnb) >*/
- ibn[k] = xjonh * (xy[k + 1] * rbnb + xj[k] * ibnb);
-/* ---Criterion on the recursion formulas as defined by D. Deirmendjia
-n */
-/* et al., J. Opt. Soc. Am., 1961, 51, 6, 620-633 */
-/*< test=(RAn(k)**2.+IAn(k)**2.+RBn(k)**2.+IBn(k)**2.)/k >*/
- test = (pow_dd(&ran[k], &c_b14) + pow_dd(&ian[k], &c_b14) + pow_dd(&
- rbn[k], &c_b14) + pow_dd(&ibn[k], &c_b14)) / k;
-/*< if (test.lt.1.0D-14)then >*/
- if (test < 1e-14) {
-/*< mu=k >*/
- mu = k;
-/*< if (mu.le.0) then >*/
- if (mu <= 0) {
-/*< write(6,*) "attention mu <0 ",mu >*/
- s_wsle(&io___86);
- do_lio(&c__9, &c__1, "attention mu <0 ", 16L);
- do_lio(&c__3, &c__1, (char *)&mu, (ftnlen)sizeof(integer));
- e_wsle();
-/*< endif >*/
- }
-/*< goto 400 >*/
- goto L400;
-/*< endif >*/
- }
-/* --- Computation of the scattering and extinction efficiency factor
-*/
-/*< xpond=2.D+00/X/X*(2.D+00*k+1) >*/
- xpond = 2. / *x / *x * (k * 2. + 1);
-/*< Qsca=Qsca+xpond*(RAn(k)**2.+IAn(k)**2.+RBn(k)**2.+IBn(k)**2.) >*/
- *qsca += xpond * (pow_dd(&ran[k], &c_b14) + pow_dd(&ian[k], &c_b14) +
- pow_dd(&rbn[k], &c_b14) + pow_dd(&ibn[k], &c_b14));
-/*< Qext=Qext+xpond*(RAn(k)+RBn(k)) >*/
- *qext += xpond * (ran[k] + rbn[k]);
-/*< enddo >*/
- }
-/*< 400 continue >*/
-L400:
-/* --- Computation of the amplitude functions S1 and S2 (cf MIE's theory)
-*/
-/* defined by PIn, TAUn, An and Bn with PIn and TAUn related to the */
-/* Legendre polynomials. */
-/*< do j=1,nbmu >*/
- i__1 = nbmu;
- for (j = 1; j <= i__1; ++j) {
-/*< xmud=cgaus_S(j) >*/
- xmud = cgaus_s__[j];
-/*< RS1=0.D+00 >*/
- rs1 = 0.;
-/*< RS2=0.D+00 >*/
- rs2 = 0.;
-/*< IS1=0.D+00 >*/
- is1 = 0.;
-/*< IS2=0.D+00 >*/
- is2 = 0.;
-/*< PIn(0)=0.D+00 >*/
- pin[0] = 0.;
-/*< PIn(1)=1.D+00 >*/
- pin[1] = 1.;
-/*< TAUn(1)=xmud >*/
- taun[1] = xmud;
-/*< do k=1,mu >*/
- i__2 = mu;
- for (k = 1; k <= i__2; ++k) {
-/*< co_n=(2.D+00*k+1.D+00)/k/(k+1.D+00) >*/
- co_n__ = (k * 2. + 1.) / k / (k + 1.);
-/*< RS1=RS1+co_n*(RAn(k)*PIn(k)+RBn(k)*TAUn(k)) >*/
- rs1 += co_n__ * (ran[k] * pin[k] + rbn[k] * taun[k]);
-/*< RS2=RS2+co_n*(RAn(k)*TAUn(k)+RBn(k)*PIn(k)) >*/
- rs2 += co_n__ * (ran[k] * taun[k] + rbn[k] * pin[k]);
-/*< IS1=IS1+co_n*(IAn(k)*PIn(k)+IBn(k)*TAUn(k)) >*/
- is1 += co_n__ * (ian[k] * pin[k] + ibn[k] * taun[k]);
-/*< IS2=IS2+co_n*(IAn(k)*TAUn(k)+IBn(k)*PIn(k)) >*/
- is2 += co_n__ * (ian[k] * taun[k] + ibn[k] * pin[k]);
-/*< PIn(k+1)=((2.D+00*k+1)*xmud*PIn(k)-(k+1.D+00)*PIn(k-1))/k >*/
- pin[k + 1] = ((k * 2. + 1) * xmud * pin[k] - (k + 1.) * pin[k - 1]
- ) / k;
-/*< TAUn(k+1)=(k+1.D+00)*xmud*PIn(k+1)-(k+2.D+00)*PIn(k) >*/
- taun[k + 1] = (k + 1.) * xmud * pin[k + 1] - (k + 2.) * pin[k];
-/*< enddo >*/
- }
-/* --- Computation of the scattering intensity efficiency */
-/*< p11(j)=(RS1*RS1+IS1*IS1+RS2*RS2+IS2*IS2)/X/X/2.D+00 >*/
- p11[j] = (rs1 * rs1 + is1 * is1 + rs2 * rs2 + is2 * is2) / *x / *x /
- 2.;
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< q11(j)=(RS2*RS2+IS2*IS2-RS1*RS1-IS1*IS1)/X/X/2.D+00 >*/
- q11[j] = (rs2 * rs2 + is2 * is2 - rs1 * rs1 - is1 * is1) / *x / *
- x / 2.;
-/*< u11(j)=(2.D+00*RS2*RS1+2.D+00*IS2*IS1)/X/X/2.D+00 >*/
- u11[j] = (rs2 * 2. * rs1 + is2 * 2. * is1) / *x / *x / 2.;
-/*< endif >*/
- }
-/*< enddo >*/
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* exscphase_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MIE.f b/Modules/ThirdParty/6S/src/6SV1.0B/MIE.f
deleted file mode 100644
index fe55fb7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MIE.f
+++ /dev/null
@@ -1,443 +0,0 @@
- subroutine mie(iaer,wldis,ex,sc,asy,ipol)
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real ph,qh,uh
- common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p)
- real cgaus_S(nqmax_p), pdgs_S(nqmax_p)
- integer nbmu, nbmu_2
- real cosang(nqmax_p),weight(nqmax_p)
-c - to vary the number of quadratures
-
-
- double precision nr,ext(20,4),sca(20,4),np(4),p1(20,4,nqmax_p)
- double precision q1(20,4,nqmax_p),u1(20,4,nqmax_p)
- double precision p11(nqmax_p),q11(nqmax_p),u11(nqmax_p)
- double precision pi,r,rmind,rmaxd,r0,alpha,dr,xndpr2,Qext,Qsca
- double precision rlogpas
- real ex(4,20),sc(4,20),asy(4,20),wldis(20)
- real rmax,rmin,rn,ri,x1,x2,x3,rsunph,nrsunph
- real asy_n,asy_d,cij
- integer icp,i,j,l,k,iaer,irsunph,ipol
- double precision arg,ldexp
-
- common /mie_in/ rmax,rmin,icp,rn(20,4),ri(20,4),x1(4),x2(4),
- s x3(4),cij(4),irsunph,rsunph(50),nrsunph(50)
-
- real sigm, vi(4)
-
-
- ldexp=-300.
- pi=4.D+00*datan(1.D+00)
- rlogpas=0.011
- nbmu=nquad
-
- do i=1,icp
- np(i)=0.D+00
- do l=1,20
- ex(i,l)=0.0
- sc(i,l)=0.0
- asy(i,l)=0.0
- ext(l,i)=0.D+00
- sca(l,i)=0.D+00
- do k=1,nbmu
- p1(l,i,k)=0.D+00
- q1(l,i,k)=0.D+00
- u1(l,i,k)=0.D+00
- enddo
- enddo
- enddo
- rmaxd=dble(rmax)
- rmind=dble(rmin)
- do k=1,nbmu
- q11(k)=0.D+00
- u11(k)=0.D+00
- enddo
-
-c - calculation of gauss points
- nbmu=nquad
- nbmu_2=(nbmu-3)/2
- call gauss(-1.,1.,cosang,weight,nbmu-3)
- cgaus_S(1)=-1.0
- pdgs_S(1)=0.0
- do j=1,nbmu_2
- cgaus_S(j+1)=cosang(j)
- pdgs_S(j+1)=weight(j)
- enddo
- cgaus_S(nbmu_2+2)=0.
- pdgs_S(nbmu_2+2)=0.
- do j=nbmu_2+1,nbmu-3
- cgaus_S(j+2)=cosang(j)
- pdgs_S(j+2)=weight(j)
- enddo
- cgaus_S(nbmu)=1.0
- pdgs_S(nbmu)=0.
-c - calculation of gauss points
-
-c LOOPS ON THE NUMBER OF PARTICLE TYPE (4 max)
- do 600 i=1,icp
- r=rmind
- dr=r*(10**rlogpas-1.D+00)
-
-
- 123 continue
-c LOOPS ON THE RADIUS OF THE PARTICLE
-
-c call for the size distribution nr. For our computation, we need dn/dr for
-c all functions except for sun-photometer inputs, for which we need dV/dlog(r)
-
- goto(300,301,302,303)iaer-7
-
-c --- Mixture of particles (Log-Normal distribution functions, up to 5)
-
- 300 nr=DLOG10(1.D+00*r/x1(i))*DLOG10(1.D+00*r/x1(i))
- nr=nr/(DLOG10(1.D+00*x2(i))*DLOG10(1.D+00*x2(i)))
- nr=DEXP(-nr/2.D+00)
- nr=nr/dsqrt(2.D+00*pi)/DLOG(10.D+00)/r/DLOG10(1.D+00*x2(i))
- goto 399
-
-c --- Modified Gamma distribution function
- 301 r0=1.00D+00
- arg=-x2(i)*((r/r0)**x3(i))
- if (arg.gt.ldexp) then
- nr=((r/r0)**x1(i))*DEXP(arg)
- else
- nr=0.
- endif
- goto 399
-
-C --- Junge power-law function
- 302 r0=0.1000D+00
- nr= r0**(-x1(i))
- IF(r.GT.r0 ) nr= r**(-x1(i))
- goto 399
-c
-c --- from sun photometer
- 303 nr=0.D+00
- do 299 j=2,irsunph
- if ((r-rsunph(j)).lt.0.000001)then
- nr=(r-rsunph(j-1))/(rsunph(j)-rsunph(j-1))
- nr=nrsunph(j-1)+nr*(nrsunph(j)-nrsunph(j-1))
- goto 398
- endif
- 299 continue
-
-c The Mie's calculations have to be called several times (min=2, max=10 for
-c each type of particle): at wavelengths bounding the range of the selected
-c wavelengths,and at 0.550 microns to normalized the extinction coefficient
-c (if it's not in the selected range of wavelengths).
-
- 398 nr=nr*3./(pi*r*r*r*r*4.)
- 399 continue
- xndpr2=nr*dr*pi*(r**2.D+00)
-c relatif number of particle for each type of particle (has to be equal to 1)
- np(i)=np(i)+nr*dr
-
- do l=1,20
- alpha=2.D+00*pi*r/wldis(l)
- call EXSCPHASE(alpha,rn(l,i),ri(l,i),Qext,Qsca,
- & p11,q11,u11,ipol,cgaus_S,pdgs_S)
- ext(l,i)=ext(l,i)+xndpr2*Qext
- sca(l,i)=sca(l,i)+xndpr2*Qsca
-
-c phase function for each type of particle
- do k=1,nbmu
- p1(l,i,k)=p1(l,i,k)+4.D+00*p11(k)*xndpr2
- if (ipol.ne.0)then
- q1(l,i,k)=q1(l,i,k)+4.D+00*q11(k)*xndpr2
- u1(l,i,k)=u1(l,i,k)+4.D+00*u11(k)*xndpr2
- endif
- enddo
- enddo
- 599 continue
-
- vi(i)=vi(i)+r*r*r*nr*dr
-
- r=r+dr
- dr=r*(10**rlogpas-1.D+00)
- if(r.ge.rmaxd) goto 600
- goto 123
- 600 continue
-
-
-c NOW WE MIXT THE DIFFERENT TYPES OF PARTICLE
-c Computation of the scattering and extinction coefficients.
-c The coefficients will be normalized at 0.550 micron.
-
- sigm=0.
- do i=1,icp
- vi(i)=4*pi*vi(i)/3
- sigm=sigm+cij(i)/vi(i)
- enddo
-
-c cij coefficients calculation
- do j=1,icp
- cij(j)=(cij(j)/vi(j)/sigm)
- enddo
-
- do l=1,20
- do i=1,icp
- ex(1,l)=ex(1,l)+cij(i)*real(ext(l,i))
- sc(1,l)=sc(1,l)+cij(i)*real(sca(l,i))
- enddo
- enddo
-
-c computation of the phase functions and the asymetry coefficient
-c of the mixture of particles
- do l=1,20
- asy_n=0.
- asy_d=0.
- do k=1,nbmu
- ph(l,k)=0.
- do i=1,icp
- ph(l,k)=ph(l,k)+real(cij(i)*p1(l,i,k))
- enddo
- ph(l,k)=ph(l,k)/sc(1,l)
- if (ipol.ne.0)then
- qh(l,k)=0.
- uh(l,k)=0.
- do i=1,icp
- qh(l,k)=qh(l,k)+real(cij(i)*q1(l,i,k))
- uh(l,k)=uh(l,k)+real(cij(i)*u1(l,i,k))
- enddo
- qh(l,k)=qh(l,k)/sc(1,l)
- uh(l,k)=uh(l,k)/sc(1,l)
- xmug=180/pi*acos(cgaus_S(k))
- endif
- asy_n=asy_n+cgaus_S(k)*ph(l,k)*pdgs_S(k)
- asy_d=asy_d+ph(l,k)*pdgs_S(k)
- enddo
- asy(1,l)=asy_n/asy_d
- enddo
-
- do i=1,icp
- do l=1,20
- ex(i,l)=ex(i,l)/np(i)
- sc(i,l)=sc(i,l)/np(i)
- enddo
- enddo
-
- return
- END
-C***************************************************************************
-C Using the Mie's theory, this subroutine computes the scattering and
-C extinction efficiency factors (usually written Qsca and Qext) and it also
-C computes the scattering intensity efficiency
- subroutine EXSCPHASE(X,nr,ni,Qext,Qsca,p11,q11,u11,ipol,cgaus_S,
- & pdgs_S)
- parameter (nser=10000000)
- double precision Ren,Imn,X,Y,Up,XnumRDnY,XnumIDnY
- double precision XdenDnY,coxj,Qsca,Qext,xJonH,XdenGNX
- double precision Xnum1An,Xnum2An,XdenAn,Xden1An,Xden2An,RAnb,IAnb
- double precision Xnum1Bn,Xnum2Bn,XdenBn,Xden1Bn,Xden2Bn,RBnb,IBnb
- double precision xmud,xpond,RS1,RS2,IS1,IS2,co_n,test
- double precision xj(0:nser),xy(-1:nser),Rn(0:nser)
- double precision IDnY(0:nser),RDnX(0:nser),RDnY(0:nser)
- double precision IGnX(0:nser),RGnX(0:nser)
- double precision RAn(0:nser),IAn(0:nser),RBn(0:nser),IBn(0:nser)
- double precision TAUn(0:nser),PIn(0:nser)
- real nr,ni
- integer N,Np,mu,mub,mu1,mu2,k,nbmu,j
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- double precision p11(nqmax_p),q11(nqmax_p),u11(nqmax_p)
- real cgaus_S(nqmax_p), pdgs_S(nqmax_p)
-c - to vary the number of quadratures
-
- nbmu=nquad
-
- Ren=nr/(nr*nr+ni*ni)
- Imn=ni/(nr*nr+ni*ni)
-
-
-cjcc
- Y=X*sqrt(nr*nr+ni*ni)
-cjcc
-
-
-
-c ---Identification of the greater order of computation (=mu)
-c as defined by F.J. Corbato, J. Assoc. Computing Machinery, 1959,
-c 6, 366-375
-cjcc N=int(0.5D+00*(-1.D+00+dsqrt(1.D+00+4.D+00*X*X)))+1
- N=int(0.5D+00*(-1.D+00+dsqrt(1.D+00+4.D+00*Y*Y)))+1
-C In certain this value of N above leads to a value of Up~1 and big problems
-c N=int(0.5D+00*(-1.D+00+dsqrt(1.D+00+4.D+00*Y*Y)))+3
-
-cjcc
- if (N.eq.1)N=2
-
- mu2=1000000
- Np=N
-cjcc
-c Up=2.D+00*X/(2.D+00*Np+1.D+00)
- Up=2.D+00*Y/(2.D+00*Np+1.D+00)
-cjcc
- mu1=int(Np+30.*(0.10+0.35*Up*(2-Up*Up)/2./(1-Up)))
-cjcc
-c Np=int(X-0.5D+00+dsqrt(30.*0.35*X))
- Np=int(Y-0.5D+00+dsqrt(30.*0.35*Y))
-cjcc
- if (Np.gt.N)then
-cjcc
-c Up=2.D+00*X/(2.D+00*Np+1.D+00)
- Up=2.D+00*Y/(2.D+00*Np+1.D+00)
-cjcc
- mu2=int(Np+30.*(0.10+0.35*Up*(2-Up*Up)/2./(1-Up)))
- endif
- mu=min0(mu1,mu2)
-
- if (mu.ge.nser) then
- write(6,*) " Error, nser is too small, mu is equal to : ",mu
- Stop
- endif
-
-
- if (mu.le.0) then
- write(6,*) " Error, mu is too small, mu is equal to : ",mu
- Stop
- endif
-
-c --- Identification of the transition line. Below this line the Bessel
-c function j behaves as oscillating functions. Above the behavior
-c becomes monotonic. We start at a order greater than this transition
-c line (order max=mu) because a downward recursion is called for.
- Rn(mu)=0.D+00
- k=mu+1
- 149 continue
- k=k-1
- xj(k)=0.D+00
- Rn(k-1)=X/(2.D+00*k+1.D+00-X*Rn(k))
- if (k.eq.2)then
- mub=mu
- xj(mub+1)=0.D+00
- xj(mub)=1.D+00
- goto 150
- endif
- if (Rn(k-1).gt.1.D+00)then
- mub=k-1
- xj(mub+1)=Rn(mub)
- xj(mub)=1.D+00
- goto 150
- endif
- goto 149
- 150 continue
-
- do k=mub,1,-1
- xj(k-1)=(2.D+00*k+1.D+00)*xj(k)/X-xj(k+1)
- enddo
- coxj=(xj(0)-X*xj(1))*dcos(X)+X*xj(0)*sin(X)
-
-c --- Computation Dn(alpha) and Dn(alpha*m) (cf MIE's theory)
-c downward recursion - real and imaginary parts
- RDnY(mu)=0.D+00
- IDnY(mu)=0.D+00
- RDnX(mu)=0.D+00
- do k=mu,1,-1
- RDnX(k-1)=k/X-1.D+00/(RDnX(k)+k/X)
- XnumRDnY=RDnY(k)+Ren*k/X
- XnumIDnY=IDnY(k)+Imn*k/X
- XdenDnY=XnumRDnY*XnumRDnY+XnumIDnY*XnumIDnY
- RDnY(k-1)=k*Ren/X-XnumRDnY/XdenDnY
- IDnY(k-1)=k*Imn/X+XnumIDnY/XdenDnY
-
- enddo
-
-c --- Initialization of the upward recursions
- xy(-1)=dsin(x)/x
- xy(0)=-dcos(x)/x
- RGnX(0)=0.D+00
- IGnX(0)=-1.D+00
- Qsca=0.D+00
- Qext=0.D+00
- do k=1,mu
- if (k.le.mub)then
- xj(k)=xj(k)/coxj
- else
- xj(k)=Rn(k-1)*xj(k-1)
- endif
-
-c --- Computation of bessel's function y(alpha)
- xy(k)=(2.D+00*k-1.D+00)*xy(k-1)/X-xy(k-2)
- xJonH=xj(k)/(xj(k)*xj(k)+xy(k)*xy(k))
-
-c --- Computation of Gn(alpha), Real and Imaginary part
- XdenGNX=(RGnX(k-1)-k/X)**2.D+00+IGnX(k-1)*IGnX(k-1)
- RGnX(k)=(k/X-RGnX(k-1))/XdenGNX-k/X
- IGnX(k)=IGnX(k-1)/XdenGNX
-
-c --- Computation of An(alpha) and Bn(alpha), Real and Imaginary part
- Xnum1An=RDnY(k)-nr*RDnX(k)
- Xnum2An=IDnY(k)+ni*RDnX(k)
- Xden1An=RDnY(k)-nr*RGnX(k)-ni*IGnX(k)
- Xden2An=IDnY(k)+ni*RGnX(k)-nr*IGnX(k)
- XdenAn=Xden1An*Xden1An+Xden2An*Xden2An
- RAnb=(Xnum1An*Xden1An+Xnum2An*Xden2An)/XdenAn
- IAnb=(-Xnum1An*Xden2An+Xnum2An*Xden1An)/XdenAn
- RAn(k)=xJonH*(xj(k)*RAnb-xy(k)*IAnb)
- IAn(k)=xJonH*(xy(k)*RAnb+xj(k)*IAnb)
-
- Xnum1Bn=nr*RDnY(k)+ni*IDnY(k)-RDnX(k)
- Xnum2Bn=nr*IDnY(k)-ni*RDnY(k)
- Xden1Bn=nr*RDnY(k)+ni*IDnY(k)-RGnX(k)
- Xden2Bn=nr*IDnY(k)-ni*RDnY(k)-IGnX(k)
- XdenBn=Xden1Bn*Xden1Bn+Xden2Bn*Xden2Bn
- RBnb=(Xnum1Bn*Xden1Bn+Xnum2Bn*Xden2Bn)/XdenBn
- IBnb=(-Xnum1Bn*Xden2Bn+Xnum2Bn*Xden1Bn)/XdenBn
- RBn(k)=xJonH*(xj(k)*RBnb-xy(k)*IBnb)
- IBn(k)=xJonH*(xy(k)*RBnb+xj(k)*IBnb)
-
-c ---Criterion on the recursion formulas as defined by D. Deirmendjian
-c et al., J. Opt. Soc. Am., 1961, 51, 6, 620-633
- test=(RAn(k)**2.+IAn(k)**2.+RBn(k)**2.+IBn(k)**2.)/k
- if (test.lt.1.0D-14)then
- mu=k
- if (mu.le.0) then
- write(6,*) "attention mu <0 ",mu
- endif
- goto 400
- endif
-c --- Computation of the scattering and extinction efficiency factor
- xpond=2.D+00/X/X*(2.D+00*k+1)
- Qsca=Qsca+xpond*(RAn(k)**2.+IAn(k)**2.+RBn(k)**2.+IBn(k)**2.)
- Qext=Qext+xpond*(RAn(k)+RBn(k))
-
- enddo
- 400 continue
-
-c --- Computation of the amplitude functions S1 and S2 (cf MIE's theory)
-c defined by PIn, TAUn, An and Bn with PIn and TAUn related to the
-c Legendre polynomials.
- do j=1,nbmu
- xmud=cgaus_S(j)
- RS1=0.D+00
- RS2=0.D+00
- IS1=0.D+00
- IS2=0.D+00
- PIn(0)=0.D+00
- PIn(1)=1.D+00
- TAUn(1)=xmud
- do k=1,mu
- co_n=(2.D+00*k+1.D+00)/k/(k+1.D+00)
- RS1=RS1+co_n*(RAn(k)*PIn(k)+RBn(k)*TAUn(k))
- RS2=RS2+co_n*(RAn(k)*TAUn(k)+RBn(k)*PIn(k))
- IS1=IS1+co_n*(IAn(k)*PIn(k)+IBn(k)*TAUn(k))
- IS2=IS2+co_n*(IAn(k)*TAUn(k)+IBn(k)*PIn(k))
- PIn(k+1)=((2.D+00*k+1)*xmud*PIn(k)-(k+1.D+00)*PIn(k-1))/k
- TAUn(k+1)=(k+1.D+00)*xmud*PIn(k+1)-(k+2.D+00)*PIn(k)
- enddo
-C --- Computation of the scattering intensity efficiency
- p11(j)=(RS1*RS1+IS1*IS1+RS2*RS2+IS2*IS2)/X/X/2.D+00
- if (ipol.ne.0)then
- q11(j)=(RS2*RS2+IS2*IS2-RS1*RS1-IS1*IS1)/X/X/2.D+00
- u11(j)=(2.D+00*RS2*RS1+2.D+00*IS2*IS1)/X/X/2.D+00
- endif
- enddo
-
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MIE.h b/Modules/ThirdParty/6S/src/6SV1.0B/MIE.h
deleted file mode 100644
index 7069070..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MIE.h
+++ /dev/null
@@ -1,21 +0,0 @@
-extern int otb_6s_mie_(
- otb_6s_integer *iaer,
- otb_6s_doublereal *wldis,
- otb_6s_doublereal *ex,
- otb_6s_doublereal *sc,
- otb_6s_doublereal *asy,
- otb_6s_integer *ipol
- );
-extern int otb_6s_exscphase_(
- otb_6s_doublereal *x,
- otb_6s_doublereal *nr,
- otb_6s_doublereal *ni,
- otb_6s_doublereal *qext,
- otb_6s_doublereal *qsca,
- otb_6s_doublereal *p11,
- otb_6s_doublereal *q11,
- otb_6s_doublereal *u11,
- otb_6s_integer *ipol,
- otb_6s_doublereal *cgaus_s__,
- otb_6s_doublereal *pdgs_s__
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.P b/Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.P
deleted file mode 100644
index dbaa9b6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int minnalbe_(doublereal *par1, doublereal *par2, doublereal *brdfalb);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.c b/Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.c
deleted file mode 100644
index 2b58b63..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.c
+++ /dev/null
@@ -1,27 +0,0 @@
-/* MINNALBE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< >*/
-/* Subroutine */ int minnalbe_(doublereal *par1, doublereal *par2, doublereal
- *brdfalb)
-{
-/*< real par1,par2,brdfalb >*/
-/*< brdfalb=2.*par2/(par1+1.) >*/
- *brdfalb = *par2 * 2. / (*par1 + 1.);
-/*< return >*/
- return 0;
-/*< end >*/
-} /* minnalbe_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.f b/Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.f
deleted file mode 100644
index 4e2034d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.f
+++ /dev/null
@@ -1,6 +0,0 @@
- subroutine minnalbe(par1,par2,
- s brdfalb)
- real par1,par2,brdfalb
- brdfalb=2.*par2/(par1+1.)
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.h b/Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.h
deleted file mode 100644
index 1798f58..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MINNALBE.h
+++ /dev/null
@@ -1,5 +0,0 @@
-extern int otb_6s_minnalbe_(
- otb_6s_doublereal *par1,
- otb_6s_doublereal *par2,
- otb_6s_doublereal *brdfalb
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.P b/Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.P
deleted file mode 100644
index 7529f11..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int minnbrdf_(doublereal *par1, doublereal *par2, integer *mu, integer *np, doublereal *rm, doublereal *brdfint);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.c b/Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.c
deleted file mode 100644
index c429168..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.c
+++ /dev/null
@@ -1,67 +0,0 @@
-/* MINNBRDF.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< >*/
-/* Subroutine */ int minnbrdf_(doublereal *par1, doublereal *par2, integer *
- mu, integer *np, doublereal *rm, doublereal *brdfint)
-{
- /* System generated locals */
- integer rm_offset, brdfint_dim1, brdfint_offset, i__1, i__2;
- doublereal d__1, d__2;
-
- /* Builtin functions */
- double pow_dd(doublereal *, doublereal *);
-
- /* Local variables */
- integer j, k;
- doublereal xmu, view;
-
-/*< real par1,par2,xmu,view >*/
-/*< integer mu,np,k,j >*/
-/*< real rm(-mu:mu),brdfint(-mu:mu,np) >*/
-/*< xmu=rm(0) >*/
- /* Parameter adjustments */
- rm_offset = -(*mu);
- rm -= rm_offset;
- brdfint_dim1 = *mu - (-(*mu)) + 1;
- brdfint_offset = -(*mu) + brdfint_dim1;
- brdfint -= brdfint_offset;
-
- /* Function Body */
- xmu = rm[0];
-/*< do 1 k=1,np >*/
- i__1 = *np;
- for (k = 1; k <= i__1; ++k) {
-/*< do 2 j=1,mu >*/
- i__2 = *mu;
- for (j = 1; j <= i__2; ++j) {
-/*< view=rm(j) >*/
- view = rm[j];
-/*< brdfint(j,k)=0.5*par2*(par1+1.)*((xmu*view)**(par1-1)) >*/
- d__1 = xmu * view;
- d__2 = *par1 - 1;
- brdfint[j + k * brdfint_dim1] = *par2 * .5 * (*par1 + 1.) *
- pow_dd(&d__1, &d__2);
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* minnbrdf_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.f b/Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.f
deleted file mode 100644
index ffcfec5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.f
+++ /dev/null
@@ -1,14 +0,0 @@
- subroutine minnbrdf(par1,par2,mu,np,rm,
- s brdfint)
- real par1,par2,xmu,view
- integer mu,np,k,j
- real rm(-mu:mu),brdfint(-mu:mu,np)
- xmu=rm(0)
- do 1 k=1,np
- do 2 j=1,mu
- view=rm(j)
- brdfint(j,k)=0.5*par2*(par1+1.)*((xmu*view)**(par1-1))
- 2 continue
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.h b/Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.h
deleted file mode 100644
index e9f7530..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MINNBRDF.h
+++ /dev/null
@@ -1,8 +0,0 @@
-extern int otb_6s_minnbrdf_(
- otb_6s_doublereal *par1,
- otb_6s_doublereal *par2,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *brdfint
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.P b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.P
deleted file mode 100644
index 0c50b05..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int moca1_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.c b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.c
deleted file mode 100644
index c18f7f5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.c
+++ /dev/null
@@ -1,233 +0,0 @@
-/* MOCA1.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine moca1(a,inu) >*/
-/* Subroutine */ int moca1_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 2500.,2510.,0.,0.,0.,0.,0.,0.,2510.,2520.,0.,0.,0.,0.,0.,0.,2520.,
- 2530.,0.,0.,0.,0.,0.,0.,2530.,2540.,0.,0.,0.,0.,0.,0.,2540.,2550.,
- 0.,0.,0.,0.,0.,0.,2550.,2560.,0.,0.,0.,0.,0.,0.,2560.,2570.,0.,0.,
- 0.,0.,0.,0.,2570.,2580.,0.,0.,0.,0.,0.,0.,2580.,2590.,0.,0.,0.,0.,
- 0.,0.,2590.,2600.,0.,0.,0.,0.,0.,0.,2600.,2610.,0.,0.,0.,0.,0.,0.,
- 2610.,2620.,0.,0.,0.,0.,0.,0.,2620.,2630.,0.,0.,0.,0.,0.,0.,2630.,
- 2640.,0.,0.,0.,0.,0.,0.,2640.,2650.,0.,0.,0.,0.,0.,0.,2650.,2660.,
- 0.,0.,0.,0.,0.,0.,2660.,2670.,0.,0.,0.,0.,0.,0.,2670.,2680.,0.,0.,
- 0.,0.,0.,0.,2680.,2690.,0.,0.,0.,0.,0.,0.,2690.,2700.,0.,0.,0.,0.,
- 0.,0.,2700.,2710.,0.,0.,0.,0.,0.,0.,2710.,2720.,0.,0.,0.,0.,0.,0.,
- 2720.,2730.,0.,0.,0.,0.,0.,0.,2730.,2740.,0.,0.,0.,0.,0.,0.,2740.,
- 2750.,0.,0.,0.,0.,0.,0.,2750.,2760.,0.,0.,0.,0.,0.,0.,2760.,2770.,
- 0.,0.,0.,0.,0.,0.,2770.,2780.,0.,0.,0.,0.,0.,0.,2780.,2790.,0.,0.,
- 0.,0.,0.,0.,2790.,2800.,0.,0.,0.,0.,0.,0.,2800.,2810.,0.,0.,0.,0.,
- 0.,0.,2810.,2820.,0.,0.,0.,0.,0.,0.,2820.,2830.,0.,0.,0.,0.,0.,0.,
- 2830.,2840.,0.,0.,0.,0.,0.,0.,2840.,2850.,0.,0.,0.,0.,0.,0.,2850.,
- 2860.,0.,0.,0.,0.,0.,0.,2860.,2870.,0.,0.,0.,0.,0.,0.,2870.,2880.,
- 0.,0.,0.,0.,0.,0.,2880.,2890.,0.,0.,0.,0.,0.,0.,2890.,2900.,0.,0.,
- 0.,0.,0.,0.,2900.,2910.,0.,0.,0.,0.,0.,0.,2910.,2920.,0.,0.,0.,0.,
- 0.,0.,2920.,2930.,0.,0.,0.,0.,0.,0.,2930.,2940.,0.,0.,0.,0.,0.,0.,
- 2940.,2950.,0.,0.,0.,0.,0.,0.,2950.,2960.,0.,0.,0.,0.,0.,0.,2960.,
- 2970.,0.,0.,0.,0.,0.,0.,2970.,2980.,0.,0.,0.,0.,0.,0.,2980.,2990.,
- 0.,0.,0.,0.,0.,0.,2990.,3e3,0.,0.,0.,0.,0.,0.,3e3,3010.,0.,0.,0.,
- 0.,0.,0.,3010.,3020.,0.,0.,0.,0.,0.,0.,3020.,3030.,0.,0.,0.,0.,0.,
- 0.,3030.,3040.,0.,0.,0.,0.,0.,0.,3040.,3050.,0.,0.,0.,0.,0.,0.,
- 3050.,3060.,0.,0.,0.,0.,0.,0.,3060.,3070.,0.,0.,0.,0.,0.,0.,3070.,
- 3080.,0.,0.,0.,0.,0.,0.,3080.,3090.,0.,0.,0.,0.,0.,0.,3090.,3100.,
- 0.,0.,0.,0.,0.,0.,3100.,3110.,0.,0.,0.,0.,0.,0.,3110.,3120.,0.,0.,
- 0.,0.,0.,0.,3120.,3130.,0.,0.,0.,0.,0.,0.,3130.,3140.,0.,0.,0.,0.,
- 0.,0.,3140.,3150.,0.,0.,0.,0.,0.,0.,3150.,3160.,0.,0.,0.,0.,0.,0.,
- 3160.,3170.,0.,0.,0.,0.,0.,0.,3170.,3180.,0.,0.,0.,0.,0.,0.,3180.,
- 3190.,0.,0.,0.,0.,0.,0.,3190.,3200.,0.,0.,0.,0.,0.,0.,3200.,3210.,
- 0.,0.,0.,0.,0.,0.,3210.,3220.,0.,0.,0.,0.,0.,0.,3220.,3230.,0.,0.,
- 0.,0.,0.,0.,3230.,3240.,0.,0.,0.,0.,0.,0.,3240.,3250.,0.,0.,0.,0.,
- 0.,0.,3250.,3260.,0.,0.,0.,0.,0.,0.,3260.,3270.,0.,0.,0.,0.,0.,0.,
- 3270.,3280.,0.,0.,0.,0.,0.,0.,3280.,3290.,0.,0.,0.,0.,0.,0.,3290.,
- 3300.,0.,0.,0.,0.,0.,0.,3300.,3310.,0.,0.,0.,0.,0.,0.,3310.,3320.,
- 0.,0.,0.,0.,0.,0.,3320.,3330.,0.,0.,0.,0.,0.,0.,3330.,3340.,0.,0.,
- 0.,0.,0.,0.,3340.,3350.,0.,0.,0.,0.,0.,0.,3350.,3360.,0.,0.,0.,0.,
- 0.,0.,3360.,3370.,0.,0.,0.,0.,0.,0.,3370.,3380.,0.,0.,0.,0.,0.,0.,
- 3380.,3390.,0.,0.,0.,0.,0.,0.,3390.,3400.,0.,0.,0.,0.,0.,0.,3400.,
- 3410.,0.,0.,0.,0.,0.,0.,3410.,3420.,0.,0.,0.,0.,0.,0.,3420.,3430.,
- 0.,0.,0.,0.,0.,0.,3430.,3440.,0.,0.,0.,0.,0.,0.,3440.,3450.,0.,0.,
- 0.,0.,0.,0.,3450.,3460.,0.,0.,0.,0.,0.,0.,3460.,3470.,0.,0.,0.,0.,
- 0.,0.,3470.,3480.,0.,0.,0.,0.,0.,0.,3480.,3490.,0.,0.,0.,0.,0.,0.,
- 3490.,3500.,0.,0.,0.,0.,0.,0.,3500.,3510.,0.,0.,0.,0.,0.,0.,3510.,
- 3520.,0.,0.,0.,0.,0.,0.,3520.,3530.,0.,0.,0.,0.,0.,0.,3530.,3540.,
- 0.,0.,0.,0.,0.,0.,3540.,3550.,0.,0.,0.,0.,0.,0.,3550.,3560.,0.,0.,
- 0.,0.,0.,0.,3560.,3570.,0.,0.,0.,0.,0.,0.,3570.,3580.,0.,0.,0.,0.,
- 0.,0.,3580.,3590.,0.,0.,0.,0.,0.,0.,3590.,3600.,0.,0.,0.,0.,0.,0.,
- 3600.,3610.,0.,0.,0.,0.,0.,0.,3610.,3620.,0.,0.,0.,0.,0.,0.,3620.,
- 3630.,0.,0.,0.,0.,0.,0.,3630.,3640.,0.,0.,0.,0.,0.,0.,3640.,3650.,
- 0.,0.,0.,0.,0.,0.,3650.,3660.,0.,0.,0.,0.,0.,0.,3660.,3670.,0.,0.,
- 0.,0.,0.,0.,3670.,3680.,0.,0.,0.,0.,0.,0.,3680.,3690.,0.,0.,0.,0.,
- 0.,0.,3690.,3700.,0.,0.,0.,0.,0.,0.,3700.,3710.,0.,0.,0.,0.,0.,0.,
- 3710.,3720.,0.,0.,0.,0.,0.,0.,3720.,3730.,0.,0.,0.,0.,0.,0.,3730.,
- 3740.,0.,0.,0.,0.,0.,0.,3740.,3750.,0.,0.,0.,0.,0.,0.,3750.,3760.,
- 0.,0.,0.,0.,0.,0.,3760.,3770.,2.6188e-23,7.5648e-7,.14705,
- -5.9469e-4,.14469,-5.9147e-4,3770.,3780.,1.7237e-22,7.5958e-7,
- .13909,-5.6296e-4,.13671,-5.596e-4,3780.,3790.,3.0601e-22,
- 3.9946e-7,.13415,-5.447e-4,.13135,-5.3906e-4,3790.,3800.,
- 2.5148e-21,7.6406e-7,.12775,-5.1775e-4,.12533,-5.1417e-4,3800.,
- 3810.,2.5745e-19,6.6661e-7,.10289,-4.1172e-4,.10359,-4.1229e-4,
- 3810.,3820.,2.3471e-18,8.5834e-7,.095064,-3.8496e-4,.093786,
- -3.8192e-4,3820.,3830.,4.4267e-18,6.1131e-7,.090479,-3.6372e-4,
- .091063,-3.6128e-4,3830.,3840.,3.7544e-17,9.6342e-7,.083552,
- -3.3748e-4,.083109,-3.3494e-4,3840.,3850.,6.6043e-17,4.5762e-6,
- .080581,-2.9237e-4,.1186,-1.9899e-4,3850.,3860.,5.0104e-16,
- 3.0566e-6,.073204,-2.8334e-4,.10085,-1.1404e-4,3860.,3870.,
- 2.5102e-15,5.6505e-6,.066558,-2.4745e-4,.10411,-1.0858e-4,3870.,
- 3880.,1.179e-14,7.1883e-6,.060355,-2.1477e-4,.099433,-1.0798e-4,
- 3880.,3890.,1.7518e-14,1.0491e-5,.058888,-1.6207e-4,.09819,
- -2.0655e-4,3890.,3900.,1.2334e-13,8.2478e-5,.061162,-4.6855e-5,
- .099456,-3.0433e-4,3900.,3910.,5.9987e-13,1.9476e-4,.061687,
- 1.0764e-5,.093436,-3.2996e-4,3910.,3920.,1.7948e-12,9.9622e-5,
- .052116,1.2152e-5,.087699,-2.7025e-4,3920.,3930.,8.3226e-12,
- 3.291e-4,.054625,5.1416e-5,.089131,-2.3629e-4,3930.,3940.,
- 2.0276e-11,2.1725e-4,.045681,6.3672e-5,.093594,-1.044e-4,3940.,
- 3950.,9.452e-11,4.2081e-4,.049658,5.7601e-5,.079407,-1.9603e-4,
- 3950.,3960.,2.0604e-10,4.2113e-4,.043092,7.9797e-5,.08456,
- -1.0065e-4,3960.,3970.,9.2559e-10,5.2769e-4,.046842,2.13e-5,
- .070955,-1.5981e-4,3970.,3980.,4.0093e-9,.0016525,.048905,
- -4.3479e-5,.080584,-1.3211e-4,3980.,3990.,7.2188e-9,.0049631,
- .047903,3.506e-5,.087341,-2.2515e-4,3990.,4e3,3.5244e-8,.0026406,
- .044217,-4.3905e-5,.074799,-1.3539e-4,4e3,4010.,1.4041e-7,
- .0058689,.045795,-7.4645e-5,.073346,-1.7741e-4,4010.,4020.,
- 4.8242e-7,.0031728,.03946,-9.4315e-5,.063747,-1.0552e-4,4020.,
- 4030.,1.5614e-6,.0029789,.03481,-9.4517e-5,.058578,-7.6764e-5,
- 4030.,4040.,2.3212e-6,.011038,.038571,-4.0092e-6,.064826,
- -1.8611e-4,4040.,4050.,1.0679e-5,.014942,.035924,2.0954e-7,.05826,
- -1.6362e-4,4050.,4060.,2.5314e-5,.0076112,.028757,-2.7274e-6,
- .050639,-1.0468e-4,4060.,4070.,8.2488e-5,.019238,.031099,
- 3.2981e-5,.049127,-1.4923e-4,4070.,4080.,1.5838e-4,.010696,
- .024633,3.8132e-5,.04326,-9.7166e-5,4080.,4090.,5.3014e-4,.027912,
- .028944,3.4086e-5,.042425,-1.3608e-4,4090.,4100.,.0019236,.031464,
- .026171,2.5248e-5,.036412,-1.1618e-4,4100.,4110.,.002417,.018774,
- .023171,3.1047e-5,.032949,-9.3254e-5,4110.,4120.,.0095957,.039252,
- .027808,-5.0845e-5,.030866,-1.1461e-4,4120.,4130.,.029222,.041309,
- .025476,-7.0834e-5,.025927,-9.9072e-5,4130.,4140.,.080521,.042144,
- .023591,-9.2915e-5,.022029,-9.0905e-5,4140.,4150.,.21163,.043454,
- .019801,-8.4058e-5,.017719,-7.6225e-5,4150.,4160.,.20177,.023178,
- .017214,-7.6243e-5,.015553,-6.4832e-5,4160.,4170.,.7632,.046725,
- .01416,-6.3818e-5,.012147,-5.4565e-5,4170.,4180.,1.5947,.047792,
- .010708,-5.0352e-5,.0083233,-4.2778e-5,4180.,4190.,5.2669,.073957,
- .0067643,-3.4467e-5,.004319,-2.8069e-5,4190.,4200.,6.4202,.051382,
- .0036772,-2.2614e-5,9.742e-4,-1.6763e-5,4200.,4210.,9.2445,
- .052627,.0014938,-1.3915e-5,-.0010491,-6.9012e-6,4210.,4220.,
- 11.75,.05381,-3.2681e-4,-6.6562e-6,-.0028054,1.0375e-6,4220.,
- 4230.,12.919,.055506,-.0017838,-8.5608e-7,-.0042665,7.1579e-6,
- 4230.,4240.,16.381,.089081,-.003049,4.1985e-6,-.0056615,1.1648e-5,
- 4240.,4250.,5.0278,.066105,-.0038255,7.3053e-6,-.0061865,
- 1.7191e-5,4250.,4260.,5.3208,.065464,-.0039797,7.8726e-6,-.006508,
- 1.6403e-5,4260.,4270.,18.844,.088395,-.0034205,5.6382e-6,
- -.0061631,1.2216e-5,4270.,4280.,24.188,.081391,-.0020758,
- 3.3792e-7,-.004851,6.276e-6,4280.,4290.,20.85,.078388,7.1143e-5,
- -8.1227e-6,-.0026924,-2.6258e-6,4290.,4300.,16.326,.099662,
- .003472,-2.1159e-5,8.2032e-4,-1.6489e-5,4300.,4310.,5.9676,
- .090468,.0087017,-4.1571e-5,.0061894,-3.7687e-5,4310.,4320.,
- 1.4674,.080452,.015334,-6.7528e-5,.012977,-6.4486e-5,4320.,4330.,
- .26137,.087098,.023749,-9.9448e-5,.02192,-9.8971e-5,4330.,4340.,
- .017052,.094008,.036064,-1.4594e-4,.035363,-1.4924e-4,4340.,4350.,
- 1.3974e-4,.088019,.056495,-2.2628e-4,.057375,-2.2878e-4,4350.,
- 4360.,2.5708e-10,.017736,.10803,-4.4019e-4,.10523,-4.3455e-4,
- 4360.,4370.,0.,0.,0.,0.,0.,0.,4370.,4380.,0.,0.,0.,0.,0.,0.,4380.,
- 4390.,0.,0.,0.,0.,0.,0.,4390.,4400.,0.,0.,0.,0.,0.,0.,4400.,4410.,
- 0.,0.,0.,0.,0.,0.,4410.,4420.,0.,0.,0.,0.,0.,0.,4420.,4430.,0.,0.,
- 0.,0.,0.,0.,4430.,4440.,0.,0.,0.,0.,0.,0.,4440.,4450.,0.,0.,0.,0.,
- 0.,0.,4450.,4460.,0.,0.,0.,0.,0.,0.,4460.,4470.,0.,0.,0.,0.,0.,0.,
- 4470.,4480.,0.,0.,0.,0.,0.,0.,4480.,4490.,0.,0.,0.,0.,0.,0.,4490.,
- 4500.,0.,0.,0.,0.,0.,0.,4500.,4510.,0.,0.,0.,0.,0.,0.,4510.,4520.,
- 0.,0.,0.,0.,0.,0.,4520.,4530.,0.,0.,0.,0.,0.,0.,4530.,4540.,0.,0.,
- 0.,0.,0.,0.,4540.,4550.,0.,0.,0.,0.,0.,0.,4550.,4560.,0.,0.,0.,0.,
- 0.,0.,4560.,4570.,0.,0.,0.,0.,0.,0.,4570.,4580.,0.,0.,0.,0.,0.,0.,
- 4580.,4590.,0.,0.,0.,0.,0.,0.,4590.,4600.,0.,0.,0.,0.,0.,0.,4600.,
- 4610.,0.,0.,0.,0.,0.,0.,4610.,4620.,0.,0.,0.,0.,0.,0.,4620.,4630.,
- 0.,0.,0.,0.,0.,0.,4630.,4640.,0.,0.,0.,0.,0.,0.,4640.,4650.,0.,0.,
- 0.,0.,0.,0.,4650.,4660.,0.,0.,0.,0.,0.,0.,4660.,4670.,0.,0.,0.,0.,
- 0.,0.,4670.,4680.,0.,0.,0.,0.,0.,0.,4680.,4690.,0.,0.,0.,0.,0.,0.,
- 4690.,4700.,0.,0.,0.,0.,0.,0.,4700.,4710.,0.,0.,0.,0.,0.,0.,4710.,
- 4720.,0.,0.,0.,0.,0.,0.,4720.,4730.,0.,0.,0.,0.,0.,0.,4730.,4740.,
- 0.,0.,0.,0.,0.,0.,4740.,4750.,0.,0.,0.,0.,0.,0.,4750.,4760.,0.,0.,
- 0.,0.,0.,0.,4760.,4770.,0.,0.,0.,0.,0.,0.,4770.,4780.,0.,0.,0.,0.,
- 0.,0.,4780.,4790.,0.,0.,0.,0.,0.,0.,4790.,4800.,0.,0.,0.,0.,0.,0.,
- 4800.,4810.,0.,0.,0.,0.,0.,0.,4810.,4820.,0.,0.,0.,0.,0.,0.,4820.,
- 4830.,0.,0.,0.,0.,0.,0.,4830.,4840.,0.,0.,0.,0.,0.,0.,4840.,4850.,
- 0.,0.,0.,0.,0.,0.,4850.,4860.,0.,0.,0.,0.,0.,0.,4860.,4870.,0.,0.,
- 0.,0.,0.,0.,4870.,4880.,0.,0.,0.,0.,0.,0.,4880.,4890.,0.,0.,0.,0.,
- 0.,0.,4890.,4900.,0.,0.,0.,0.,0.,0.,4900.,4910.,0.,0.,0.,0.,0.,0.,
- 4910.,4920.,0.,0.,0.,0.,0.,0.,4920.,4930.,0.,0.,0.,0.,0.,0.,4930.,
- 4940.,0.,0.,0.,0.,0.,0.,4940.,4950.,0.,0.,0.,0.,0.,0.,4950.,4960.,
- 0.,0.,0.,0.,0.,0.,4960.,4970.,0.,0.,0.,0.,0.,0.,4970.,4980.,0.,0.,
- 0.,0.,0.,0.,4980.,4990.,0.,0.,0.,0.,0.,0.,4990.,5e3,0.,0.,0.,0.,
- 0.,0.,5e3,5010.,0.,0.,0.,0.,0.,0.,5010.,5020.,0.,0.,0.,0.,0.,0.,
- 5020.,5030.,0.,0.,0.,0.,0.,0.,5030.,5040.,0.,0.,0.,0.,0.,0.,5040.,
- 5050.,0.,0.,0.,0.,0.,0.,5050.,5060. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* carbon monoxide (2500 - 5050 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* moca1_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.f b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.f
deleted file mode 100644
index a6d95fc..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine moca1(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c carbon monoxide (2500 - 5050 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25000e+04, 0.25100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25100e+04, 0.25200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25200e+04, 0.25300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25300e+04, 0.25400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25400e+04, 0.25500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25500e+04, 0.25600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25600e+04, 0.25700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25700e+04, 0.25800e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25800e+04, 0.25900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25900e+04, 0.26000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26000e+04, 0.26100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26100e+04, 0.26200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26200e+04, 0.26300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26300e+04, 0.26400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26400e+04, 0.26500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26500e+04, 0.26600e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26600e+04, 0.26700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26700e+04, 0.26800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26800e+04, 0.26900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26900e+04, 0.27000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27000e+04, 0.27100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27100e+04, 0.27200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27200e+04, 0.27300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27300e+04, 0.27400e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27400e+04, 0.27500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27500e+04, 0.27600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27600e+04, 0.27700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27700e+04, 0.27800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27800e+04, 0.27900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27900e+04, 0.28000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28000e+04, 0.28100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28100e+04, 0.28200e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28200e+04, 0.28300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28300e+04, 0.28400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28400e+04, 0.28500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28500e+04, 0.28600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28600e+04, 0.28700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28700e+04, 0.28800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28800e+04, 0.28900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28900e+04, 0.29000e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29000e+04, 0.29100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29100e+04, 0.29200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29200e+04, 0.29300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29300e+04, 0.29400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29400e+04, 0.29500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29500e+04, 0.29600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29600e+04, 0.29700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29700e+04, 0.29800e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29800e+04, 0.29900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29900e+04, 0.30000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30000e+04, 0.30100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30100e+04, 0.30200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30200e+04, 0.30300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30300e+04, 0.30400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30400e+04, 0.30500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30500e+04, 0.30600e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30600e+04, 0.30700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30700e+04, 0.30800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30800e+04, 0.30900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30900e+04, 0.31000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31000e+04, 0.31100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31100e+04, 0.31200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31200e+04, 0.31300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31300e+04, 0.31400e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31400e+04, 0.31500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31500e+04, 0.31600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31600e+04, 0.31700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31700e+04, 0.31800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31800e+04, 0.31900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31900e+04, 0.32000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32000e+04, 0.32100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32100e+04, 0.32200e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32200e+04, 0.32300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32300e+04, 0.32400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32400e+04, 0.32500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32500e+04, 0.32600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32600e+04, 0.32700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32700e+04, 0.32800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32800e+04, 0.32900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32900e+04, 0.33000e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33000e+04, 0.33100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33100e+04, 0.33200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33200e+04, 0.33300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33300e+04, 0.33400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33400e+04, 0.33500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33500e+04, 0.33600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33600e+04, 0.33700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33700e+04, 0.33800e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33800e+04, 0.33900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33900e+04, 0.34000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34000e+04, 0.34100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34100e+04, 0.34200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34200e+04, 0.34300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34300e+04, 0.34400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34400e+04, 0.34500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34500e+04, 0.34600e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34600e+04, 0.34700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34700e+04, 0.34800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34800e+04, 0.34900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34900e+04, 0.35000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35000e+04, 0.35100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35100e+04, 0.35200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35200e+04, 0.35300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35300e+04, 0.35400e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35400e+04, 0.35500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35500e+04, 0.35600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35600e+04, 0.35700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35700e+04, 0.35800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35800e+04, 0.35900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35900e+04, 0.36000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36000e+04, 0.36100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36100e+04, 0.36200e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36200e+04, 0.36300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36300e+04, 0.36400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36400e+04, 0.36500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36500e+04, 0.36600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36600e+04, 0.36700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36700e+04, 0.36800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36800e+04, 0.36900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36900e+04, 0.37000e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37000e+04, 0.37100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37100e+04, 0.37200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37200e+04, 0.37300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37300e+04, 0.37400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37400e+04, 0.37500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37500e+04, 0.37600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37600e+04, 0.37700e+04,
- a 0.26188e-22, 0.75648e-06, 0.14705e+00,-0.59469e-03, 0.14469e+00,
- a-0.59147e-03, 0.37700e+04, 0.37800e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.17237e-21, 0.75958e-06, 0.13909e+00,-0.56296e-03, 0.13671e+00,
- a-0.55960e-03, 0.37800e+04, 0.37900e+04,
- a 0.30601e-21, 0.39946e-06, 0.13415e+00,-0.54470e-03, 0.13135e+00,
- a-0.53906e-03, 0.37900e+04, 0.38000e+04,
- a 0.25148e-20, 0.76406e-06, 0.12775e+00,-0.51775e-03, 0.12533e+00,
- a-0.51417e-03, 0.38000e+04, 0.38100e+04,
- a 0.25745e-18, 0.66661e-06, 0.10289e+00,-0.41172e-03, 0.10359e+00,
- a-0.41229e-03, 0.38100e+04, 0.38200e+04,
- a 0.23471e-17, 0.85834e-06, 0.95064e-01,-0.38496e-03, 0.93786e-01,
- a-0.38192e-03, 0.38200e+04, 0.38300e+04,
- a 0.44267e-17, 0.61131e-06, 0.90479e-01,-0.36372e-03, 0.91063e-01,
- a-0.36128e-03, 0.38300e+04, 0.38400e+04,
- a 0.37544e-16, 0.96342e-06, 0.83552e-01,-0.33748e-03, 0.83109e-01,
- a-0.33494e-03, 0.38400e+04, 0.38500e+04,
- a 0.66043e-16, 0.45762e-05, 0.80581e-01,-0.29237e-03, 0.11860e+00,
- a-0.19899e-03, 0.38500e+04, 0.38600e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.50104e-15, 0.30566e-05, 0.73204e-01,-0.28334e-03, 0.10085e+00,
- a-0.11404e-03, 0.38600e+04, 0.38700e+04,
- a 0.25102e-14, 0.56505e-05, 0.66558e-01,-0.24745e-03, 0.10411e+00,
- a-0.10858e-03, 0.38700e+04, 0.38800e+04,
- a 0.11790e-13, 0.71883e-05, 0.60355e-01,-0.21477e-03, 0.99433e-01,
- a-0.10798e-03, 0.38800e+04, 0.38900e+04,
- a 0.17518e-13, 0.10491e-04, 0.58888e-01,-0.16207e-03, 0.98190e-01,
- a-0.20655e-03, 0.38900e+04, 0.39000e+04,
- a 0.12334e-12, 0.82478e-04, 0.61162e-01,-0.46855e-04, 0.99456e-01,
- a-0.30433e-03, 0.39000e+04, 0.39100e+04,
- a 0.59987e-12, 0.19476e-03, 0.61687e-01, 0.10764e-04, 0.93436e-01,
- a-0.32996e-03, 0.39100e+04, 0.39200e+04,
- a 0.17948e-11, 0.99622e-04, 0.52116e-01, 0.12152e-04, 0.87699e-01,
- a-0.27025e-03, 0.39200e+04, 0.39300e+04,
- a 0.83226e-11, 0.32910e-03, 0.54625e-01, 0.51416e-04, 0.89131e-01,
- a-0.23629e-03, 0.39300e+04, 0.39400e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.20276e-10, 0.21725e-03, 0.45681e-01, 0.63672e-04, 0.93594e-01,
- a-0.10440e-03, 0.39400e+04, 0.39500e+04,
- a 0.94520e-10, 0.42081e-03, 0.49658e-01, 0.57601e-04, 0.79407e-01,
- a-0.19603e-03, 0.39500e+04, 0.39600e+04,
- a 0.20604e-09, 0.42113e-03, 0.43092e-01, 0.79797e-04, 0.84560e-01,
- a-0.10065e-03, 0.39600e+04, 0.39700e+04,
- a 0.92559e-09, 0.52769e-03, 0.46842e-01, 0.21300e-04, 0.70955e-01,
- a-0.15981e-03, 0.39700e+04, 0.39800e+04,
- a 0.40093e-08, 0.16525e-02, 0.48905e-01,-0.43479e-04, 0.80584e-01,
- a-0.13211e-03, 0.39800e+04, 0.39900e+04,
- a 0.72188e-08, 0.49631e-02, 0.47903e-01, 0.35060e-04, 0.87341e-01,
- a-0.22515e-03, 0.39900e+04, 0.40000e+04,
- a 0.35244e-07, 0.26406e-02, 0.44217e-01,-0.43905e-04, 0.74799e-01,
- a-0.13539e-03, 0.40000e+04, 0.40100e+04,
- a 0.14041e-06, 0.58689e-02, 0.45795e-01,-0.74645e-04, 0.73346e-01,
- a-0.17741e-03, 0.40100e+04, 0.40200e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.48242e-06, 0.31728e-02, 0.39460e-01,-0.94315e-04, 0.63747e-01,
- a-0.10552e-03, 0.40200e+04, 0.40300e+04,
- a 0.15614e-05, 0.29789e-02, 0.34810e-01,-0.94517e-04, 0.58578e-01,
- a-0.76764e-04, 0.40300e+04, 0.40400e+04,
- a 0.23212e-05, 0.11038e-01, 0.38571e-01,-0.40092e-05, 0.64826e-01,
- a-0.18611e-03, 0.40400e+04, 0.40500e+04,
- a 0.10679e-04, 0.14942e-01, 0.35924e-01, 0.20954e-06, 0.58260e-01,
- a-0.16362e-03, 0.40500e+04, 0.40600e+04,
- a 0.25314e-04, 0.76112e-02, 0.28757e-01,-0.27274e-05, 0.50639e-01,
- a-0.10468e-03, 0.40600e+04, 0.40700e+04,
- a 0.82488e-04, 0.19238e-01, 0.31099e-01, 0.32981e-04, 0.49127e-01,
- a-0.14923e-03, 0.40700e+04, 0.40800e+04,
- a 0.15838e-03, 0.10696e-01, 0.24633e-01, 0.38132e-04, 0.43260e-01,
- a-0.97166e-04, 0.40800e+04, 0.40900e+04,
- a 0.53014e-03, 0.27912e-01, 0.28944e-01, 0.34086e-04, 0.42425e-01,
- a-0.13608e-03, 0.40900e+04, 0.41000e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.19236e-02, 0.31464e-01, 0.26171e-01, 0.25248e-04, 0.36412e-01,
- a-0.11618e-03, 0.41000e+04, 0.41100e+04,
- a 0.24170e-02, 0.18774e-01, 0.23171e-01, 0.31047e-04, 0.32949e-01,
- a-0.93254e-04, 0.41100e+04, 0.41200e+04,
- a 0.95957e-02, 0.39252e-01, 0.27808e-01,-0.50845e-04, 0.30866e-01,
- a-0.11461e-03, 0.41200e+04, 0.41300e+04,
- a 0.29222e-01, 0.41309e-01, 0.25476e-01,-0.70834e-04, 0.25927e-01,
- a-0.99072e-04, 0.41300e+04, 0.41400e+04,
- a 0.80521e-01, 0.42144e-01, 0.23591e-01,-0.92915e-04, 0.22029e-01,
- a-0.90905e-04, 0.41400e+04, 0.41500e+04,
- a 0.21163e+00, 0.43454e-01, 0.19801e-01,-0.84058e-04, 0.17719e-01,
- a-0.76225e-04, 0.41500e+04, 0.41600e+04,
- a 0.20177e+00, 0.23178e-01, 0.17214e-01,-0.76243e-04, 0.15553e-01,
- a-0.64832e-04, 0.41600e+04, 0.41700e+04,
- a 0.76320e+00, 0.46725e-01, 0.14160e-01,-0.63818e-04, 0.12147e-01,
- a-0.54565e-04, 0.41700e+04, 0.41800e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.15947e+01, 0.47792e-01, 0.10708e-01,-0.50352e-04, 0.83233e-02,
- a-0.42778e-04, 0.41800e+04, 0.41900e+04,
- a 0.52669e+01, 0.73957e-01, 0.67643e-02,-0.34467e-04, 0.43190e-02,
- a-0.28069e-04, 0.41900e+04, 0.42000e+04,
- a 0.64202e+01, 0.51382e-01, 0.36772e-02,-0.22614e-04, 0.97420e-03,
- a-0.16763e-04, 0.42000e+04, 0.42100e+04,
- a 0.92445e+01, 0.52627e-01, 0.14938e-02,-0.13915e-04,-0.10491e-02,
- a-0.69012e-05, 0.42100e+04, 0.42200e+04,
- a 0.11750e+02, 0.53810e-01,-0.32681e-03,-0.66562e-05,-0.28054e-02,
- a 0.10375e-05, 0.42200e+04, 0.42300e+04,
- a 0.12919e+02, 0.55506e-01,-0.17838e-02,-0.85608e-06,-0.42665e-02,
- a 0.71579e-05, 0.42300e+04, 0.42400e+04,
- a 0.16381e+02, 0.89081e-01,-0.30490e-02, 0.41985e-05,-0.56615e-02,
- a 0.11648e-04, 0.42400e+04, 0.42500e+04,
- a 0.50278e+01, 0.66105e-01,-0.38255e-02, 0.73053e-05,-0.61865e-02,
- a 0.17191e-04, 0.42500e+04, 0.42600e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.53208e+01, 0.65464e-01,-0.39797e-02, 0.78726e-05,-0.65080e-02,
- a 0.16403e-04, 0.42600e+04, 0.42700e+04,
- a 0.18844e+02, 0.88395e-01,-0.34205e-02, 0.56382e-05,-0.61631e-02,
- a 0.12216e-04, 0.42700e+04, 0.42800e+04,
- a 0.24188e+02, 0.81391e-01,-0.20758e-02, 0.33792e-06,-0.48510e-02,
- a 0.62760e-05, 0.42800e+04, 0.42900e+04,
- a 0.20850e+02, 0.78388e-01, 0.71143e-04,-0.81227e-05,-0.26924e-02,
- a-0.26258e-05, 0.42900e+04, 0.43000e+04,
- a 0.16326e+02, 0.99662e-01, 0.34720e-02,-0.21159e-04, 0.82032e-03,
- a-0.16489e-04, 0.43000e+04, 0.43100e+04,
- a 0.59676e+01, 0.90468e-01, 0.87017e-02,-0.41571e-04, 0.61894e-02,
- a-0.37687e-04, 0.43100e+04, 0.43200e+04,
- a 0.14674e+01, 0.80452e-01, 0.15334e-01,-0.67528e-04, 0.12977e-01,
- a-0.64486e-04, 0.43200e+04, 0.43300e+04,
- a 0.26137e+00, 0.87098e-01, 0.23749e-01,-0.99448e-04, 0.21920e-01,
- a-0.98971e-04, 0.43300e+04, 0.43400e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.17052e-01, 0.94008e-01, 0.36064e-01,-0.14594e-03, 0.35363e-01,
- a-0.14924e-03, 0.43400e+04, 0.43500e+04,
- a 0.13974e-03, 0.88019e-01, 0.56495e-01,-0.22628e-03, 0.57375e-01,
- a-0.22878e-03, 0.43500e+04, 0.43600e+04,
- a 0.25708e-09, 0.17736e-01, 0.10803e+00,-0.44019e-03, 0.10523e+00,
- a-0.43455e-03, 0.43600e+04, 0.43700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43700e+04, 0.43800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43800e+04, 0.43900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43900e+04, 0.44000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44000e+04, 0.44100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44100e+04, 0.44200e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44200e+04, 0.44300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44300e+04, 0.44400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44400e+04, 0.44500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44500e+04, 0.44600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44600e+04, 0.44700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44700e+04, 0.44800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44800e+04, 0.44900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44900e+04, 0.45000e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45000e+04, 0.45100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45100e+04, 0.45200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45200e+04, 0.45300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45300e+04, 0.45400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45400e+04, 0.45500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45500e+04, 0.45600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45600e+04, 0.45700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45700e+04, 0.45800e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45800e+04, 0.45900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45900e+04, 0.46000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46000e+04, 0.46100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46100e+04, 0.46200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46200e+04, 0.46300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46300e+04, 0.46400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46400e+04, 0.46500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46500e+04, 0.46600e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46600e+04, 0.46700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46700e+04, 0.46800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46800e+04, 0.46900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46900e+04, 0.47000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47000e+04, 0.47100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47100e+04, 0.47200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47200e+04, 0.47300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47300e+04, 0.47400e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47400e+04, 0.47500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47500e+04, 0.47600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47600e+04, 0.47700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47700e+04, 0.47800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47800e+04, 0.47900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47900e+04, 0.48000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48000e+04, 0.48100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48100e+04, 0.48200e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48200e+04, 0.48300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48300e+04, 0.48400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48400e+04, 0.48500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48500e+04, 0.48600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48600e+04, 0.48700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48700e+04, 0.48800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48800e+04, 0.48900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48900e+04, 0.49000e+04/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49000e+04, 0.49100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49100e+04, 0.49200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49200e+04, 0.49300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49300e+04, 0.49400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49400e+04, 0.49500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49500e+04, 0.49600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49600e+04, 0.49700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49700e+04, 0.49800e+04/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49800e+04, 0.49900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49900e+04, 0.50000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50000e+04, 0.50100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50100e+04, 0.50200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50200e+04, 0.50300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50300e+04, 0.50400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50400e+04, 0.50500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50500e+04, 0.50600e+04/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.h b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.h
deleted file mode 100644
index 6fc011c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA1.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_moca1_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.P b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.P
deleted file mode 100644
index 725291b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int moca2_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.c b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.c
deleted file mode 100644
index 355ee7c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.c
+++ /dev/null
@@ -1,243 +0,0 @@
-/* MOCA2.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine moca2(a,inu) >*/
-/* Subroutine */ int moca2_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 5060.,5070.,0.,0.,0.,0.,0.,0.,5070.,5080.,0.,0.,0.,0.,0.,0.,5080.,
- 5090.,0.,0.,0.,0.,0.,0.,5090.,5100.,0.,0.,0.,0.,0.,0.,5100.,5110.,
- 0.,0.,0.,0.,0.,0.,5110.,5120.,0.,0.,0.,0.,0.,0.,5120.,5130.,0.,0.,
- 0.,0.,0.,0.,5130.,5140.,0.,0.,0.,0.,0.,0.,5140.,5150.,0.,0.,0.,0.,
- 0.,0.,5150.,5160.,0.,0.,0.,0.,0.,0.,5160.,5170.,0.,0.,0.,0.,0.,0.,
- 5170.,5180.,0.,0.,0.,0.,0.,0.,5180.,5190.,0.,0.,0.,0.,0.,0.,5190.,
- 5200.,0.,0.,0.,0.,0.,0.,5200.,5210.,0.,0.,0.,0.,0.,0.,5210.,5220.,
- 0.,0.,0.,0.,0.,0.,5220.,5230.,0.,0.,0.,0.,0.,0.,5230.,5240.,0.,0.,
- 0.,0.,0.,0.,5240.,5250.,0.,0.,0.,0.,0.,0.,5250.,5260.,0.,0.,0.,0.,
- 0.,0.,5260.,5270.,0.,0.,0.,0.,0.,0.,5270.,5280.,0.,0.,0.,0.,0.,0.,
- 5280.,5290.,0.,0.,0.,0.,0.,0.,5290.,5300.,0.,0.,0.,0.,0.,0.,5300.,
- 5310.,0.,0.,0.,0.,0.,0.,5310.,5320.,0.,0.,0.,0.,0.,0.,5320.,5330.,
- 0.,0.,0.,0.,0.,0.,5330.,5340.,0.,0.,0.,0.,0.,0.,5340.,5350.,0.,0.,
- 0.,0.,0.,0.,5350.,5360.,0.,0.,0.,0.,0.,0.,5360.,5370.,0.,0.,0.,0.,
- 0.,0.,5370.,5380.,0.,0.,0.,0.,0.,0.,5380.,5390.,0.,0.,0.,0.,0.,0.,
- 5390.,5400.,0.,0.,0.,0.,0.,0.,5400.,5410.,0.,0.,0.,0.,0.,0.,5410.,
- 5420.,0.,0.,0.,0.,0.,0.,5420.,5430.,0.,0.,0.,0.,0.,0.,5430.,5440.,
- 0.,0.,0.,0.,0.,0.,5440.,5450.,0.,0.,0.,0.,0.,0.,5450.,5460.,0.,0.,
- 0.,0.,0.,0.,5460.,5470.,0.,0.,0.,0.,0.,0.,5470.,5480.,0.,0.,0.,0.,
- 0.,0.,5480.,5490.,0.,0.,0.,0.,0.,0.,5490.,5500.,0.,0.,0.,0.,0.,0.,
- 5500.,5510.,0.,0.,0.,0.,0.,0.,5510.,5520.,0.,0.,0.,0.,0.,0.,5520.,
- 5530.,0.,0.,0.,0.,0.,0.,5530.,5540.,0.,0.,0.,0.,0.,0.,5540.,5550.,
- 0.,0.,0.,0.,0.,0.,5550.,5560.,0.,0.,0.,0.,0.,0.,5560.,5570.,0.,0.,
- 0.,0.,0.,0.,5570.,5580.,0.,0.,0.,0.,0.,0.,5580.,5590.,0.,0.,0.,0.,
- 0.,0.,5590.,5600.,0.,0.,0.,0.,0.,0.,5600.,5610.,0.,0.,0.,0.,0.,0.,
- 5610.,5620.,0.,0.,0.,0.,0.,0.,5620.,5630.,0.,0.,0.,0.,0.,0.,5630.,
- 5640.,0.,0.,0.,0.,0.,0.,5640.,5650.,0.,0.,0.,0.,0.,0.,5650.,5660.,
- 0.,0.,0.,0.,0.,0.,5660.,5670.,0.,0.,0.,0.,0.,0.,5670.,5680.,0.,0.,
- 0.,0.,0.,0.,5680.,5690.,0.,0.,0.,0.,0.,0.,5690.,5700.,4.6683e-26,
- 3.9946e-7,.15004,-6.0825e-4,.14724,-6.0261e-4,5700.,5710.,
- 1.2312e-25,3.9946e-7,.14595,-5.9188e-4,.14315,-5.8625e-4,5710.,
- 5720.,1.1266e-24,7.5927e-7,.13909,-5.6295e-4,.13671,-5.5959e-4,
- 5720.,5730.,2.0103e-24,3.9946e-7,.13415,-5.447e-4,.13135,
- -5.3906e-4,5730.,5740.,4.9063e-24,3.9946e-7,.13038,-5.2961e-4,
- .12758,-5.2397e-4,5740.,5750.,3.9255e-23,7.6518e-7,.12413,
- -5.0331e-4,.12169,-4.9966e-4,5750.,5760.,6.3305e-23,3.9946e-7,
- .11954,-4.8626e-4,.11675,-4.8063e-4,5760.,5770.,1.5847e-21,
- 1.0092e-6,.10516,-4.1519e-4,.10467,-4.2332e-4,5770.,5780.,
- 3.6811e-21,7.1016e-7,.09985,-3.9815e-4,.098651,-4.013e-4,5780.,
- 5790.,3.2319e-20,1.2898e-6,.092607,-3.6764e-4,.092132,-3.7318e-4,
- 5790.,5800.,5.6403e-20,6.4883e-7,.087374,-3.4877e-4,.086636,
- -3.5122e-4,5800.,5810.,1.6009e-19,9.5335e-7,.0849,-3.3381e-4,
- .084844,-3.4257e-4,5810.,5820.,1.0493e-18,1.0941e-6,.076482,
- -3.0762e-4,.080072,-2.5402e-4,5820.,5830.,1.8849e-18,2.3089e-6,
- .073551,-2.7995e-4,.10134,-1.0464e-4,5830.,5840.,1.2274e-17,
- 1.8503e-6,.065955,-2.6262e-4,.08719,-6.1536e-5,5840.,5850.,
- 1.9475e-17,2.1482e-6,.062641,-2.3947e-4,.092133,-5.5475e-5,5850.,
- 5860.,4.2834e-17,5.2914e-6,.060443,-2.1227e-4,.10022,-9.1581e-5,
- 5860.,5870.,2.5814e-16,2.709e-6,.053613,-2.0674e-4,.078473,
- -2.4556e-5,5870.,5880.,3.4582e-16,2.4018e-6,.049817,-1.8578e-4,
- .083893,-9.9109e-6,5880.,5890.,1.9766e-15,2.6621e-6,.044522,
- -1.7276e-4,.070531,1.7855e-5,5890.,5900.,7.0047e-15,5.7066e-6,
- .039496,-1.4181e-4,.075654,5.7712e-6,5900.,5910.,8.6757e-15,
- 3.3052e-5,.040851,-4.9822e-5,.088823,-2.0654e-4,5910.,5920.,
- 4.0761e-14,1.4076e-5,.033721,-8.1073e-5,.073952,-7.155e-5,5920.,
- 5930.,1.1802e-13,1.8315e-5,.029401,-5.6811e-5,.072527,-6.1682e-5,
- 5930.,5940.,1.2517e-13,3.208e-5,.029645,5.2262e-6,.075673,
- -1.605e-4,5940.,5950.,5.3299e-13,8.3885e-5,.028648,5.1037e-5,
- .076701,-1.1804e-4,5950.,5960.,1.2176e-12,4.3932e-5,.023072,
- 3.9649e-5,.070157,-2.5205e-5,5960.,5970.,2.6812e-12,7.4724e-5,
- .021392,7.8492e-5,.0689,-5.7739e-5,5970.,5980.,5.2852e-12,
- 8.1623e-5,.018441,9.2123e-5,.072474,3.8196e-5,5980.,5990.,
- 1.2137e-11,2.5414e-4,.024162,1.7686e-4,.065473,-1.1219e-4,5990.,
- 6e3,2.022e-11,1.7439e-4,.021342,1.7061e-4,.061647,-4.9481e-5,6e3,
- 6010.,7.0256e-11,3.9013e-4,.025354,1.739e-4,.056294,-1.0119e-4,
- 6010.,6020.,9.1715e-11,3.8456e-4,.027846,1.3835e-4,.055857,
- -8.5738e-5,6020.,6030.,3.5812e-10,8.9526e-4,.036811,-1.9691e-5,
- .060026,-5.1263e-5,6030.,6040.,5.1951e-10,6.5082e-4,.034472,
- -3.8106e-5,.057771,-1.7166e-5,6040.,6050.,2.3396e-9,.0012585,
- .037673,-1.3867e-4,.056388,-3.7053e-5,6050.,6060.,3.1627e-9,
- .0012183,.033941,-1.1427e-4,.058265,-1.4231e-5,6060.,6070.,
- 1.3747e-8,.0010905,.030224,-1.1494e-4,.045888,-1.243e-5,6070.,
- 6080.,1.6746e-8,.0011055,.0271,-9.4052e-5,.048795,1.7267e-6,6080.,
- 6090.,6.9627e-8,.0014531,.023474,-8.7211e-5,.042687,2.9187e-5,
- 6090.,6100.,1.789e-7,.0023713,.020122,-5.984e-5,.042924,9.3171e-6,
- 6100.,6110.,1.6918e-7,.002373,.018564,-3.2576e-5,.047913,
- -5.6001e-6,6110.,6120.,6.1497e-7,.0020751,.014671,-3.6986e-5,
- .03447,3.2655e-5,6120.,6130.,1.3012e-6,.0059809,.014081,1.2706e-5,
- .041059,-1.4713e-5,6130.,6140.,2.3687e-6,.0034824,.010334,
- 1.187e-5,.031822,2.134e-5,6140.,6150.,4.1168e-6,.0049295,.0084797,
- 3.3745e-5,.032297,2.8091e-5,6150.,6160.,7.275e-6,.015527,.012669,
- 9.9217e-5,.036777,-5.5634e-5,6160.,6170.,9.7222e-6,.0091547,
- .010267,9.5535e-5,.030194,-2.5674e-5,6170.,6180.,1.7703e-5,
- .012682,.0090194,1.0461e-4,.028528,-8.8439e-6,6180.,6190.,
- 3.2557e-5,.038848,.022453,5.1526e-5,.032595,-1.0114e-4,6190.,
- 6200.,3.6378e-5,.026446,.022869,1.5344e-5,.029472,-7.8062e-5,
- 6200.,6210.,1.5091e-4,.045107,.027472,-9.5379e-5,.027231,
- -1.0428e-4,6210.,6220.,4.4635e-4,.044617,.022992,-8.3379e-5,
- .022135,-8.6546e-5,6220.,6230.,4.645e-4,.025101,.020065,
- -7.4635e-5,.019585,-7.1162e-5,6230.,6240.,.0018567,.045449,
- .017769,-7.6382e-5,.015878,-6.8709e-5,6240.,6250.,.0042909,
- .047419,.01417,-6.399e-5,.012295,-5.5119e-5,6250.,6260.,.0037371,
- .024446,.011714,-5.4834e-5,.0096092,-4.6244e-5,6260.,6270.,
- .012658,.047613,.0091389,-4.4311e-5,.006717,-3.7584e-5,6270.,
- 6280.,.022981,.050782,.0062294,-3.2686e-5,.0039945,-2.4418e-5,
- 6280.,6290.,.03751,.052128,.0036805,-2.2546e-5,.0014034,
- -1.3971e-5,6290.,6300.,.054636,.053047,.0014952,-1.3854e-5,
- -7.4579e-4,-4.3465e-6,6300.,6310.,.070262,.053883,-3.2751e-4,
- -6.6345e-6,-.0026603,2.8956e-6,6310.,6320.,.078204,.055207,
- -.0017859,-8.6799e-7,-.0043181,7.5236e-6,6320.,6330.,.10057,
- .088588,-.0030519,4.1846e-6,-.0057894,1.0937e-5,6330.,6340.,
- .031333,.065185,-.0038296,7.2424e-6,-.006643,1.2937e-5,6340.,
- 6350.,.033845,.06492,-.0039811,7.8455e-6,-.0067871,1.3512e-5,
- 6350.,6360.,.12178,.088198,-.0034193,5.6304e-6,-.0062387,
- 1.1334e-5,6360.,6370.,.15914,.081345,-.0020733,3.2783e-7,
- -.0048764,5.9258e-6,6370.,6380.,.17605,.10382,4.7396e-4,
- -9.4825e-6,-.0022623,-4.3366e-6,6380.,6390.,.10257,.11943,
- .0050797,-2.6879e-5,.002564,-2.3075e-5,6390.,6400.,.025341,.11996,
- .012613,-5.5092e-5,.010613,-5.3927e-5,6400.,6410.,.0020638,.13697,
- .024524,-9.7954e-5,.025258,-9.9948e-5,6410.,6420.,0.,0.,0.,0.,0.,
- 0.,6420.,6430.,0.,0.,0.,0.,0.,0.,6430.,6440.,0.,0.,0.,0.,0.,0.,
- 6440.,6450.,0.,0.,0.,0.,0.,0.,6450.,6460.,0.,0.,0.,0.,0.,0.,6460.,
- 6470.,0.,0.,0.,0.,0.,0.,6470.,6480.,0.,0.,0.,0.,0.,0.,6480.,6490.,
- 0.,0.,0.,0.,0.,0.,6490.,6500.,0.,0.,0.,0.,0.,0.,6500.,6510.,0.,0.,
- 0.,0.,0.,0.,6510.,6520.,0.,0.,0.,0.,0.,0.,6520.,6530.,0.,0.,0.,0.,
- 0.,0.,6530.,6540.,0.,0.,0.,0.,0.,0.,6540.,6550.,0.,0.,0.,0.,0.,0.,
- 6550.,6560.,0.,0.,0.,0.,0.,0.,6560.,6570.,0.,0.,0.,0.,0.,0.,6570.,
- 6580.,0.,0.,0.,0.,0.,0.,6580.,6590.,0.,0.,0.,0.,0.,0.,6590.,6600.,
- 0.,0.,0.,0.,0.,0.,6600.,6610.,0.,0.,0.,0.,0.,0.,6610.,6620.,0.,0.,
- 0.,0.,0.,0.,6620.,6630.,0.,0.,0.,0.,0.,0.,6630.,6640.,0.,0.,0.,0.,
- 0.,0.,6640.,6650.,0.,0.,0.,0.,0.,0.,6650.,6660.,0.,0.,0.,0.,0.,0.,
- 6660.,6670.,0.,0.,0.,0.,0.,0.,6670.,6680.,0.,0.,0.,0.,0.,0.,6680.,
- 6690.,0.,0.,0.,0.,0.,0.,6690.,6700.,0.,0.,0.,0.,0.,0.,6700.,6710.,
- 0.,0.,0.,0.,0.,0.,6710.,6720.,0.,0.,0.,0.,0.,0.,6720.,6730.,0.,0.,
- 0.,0.,0.,0.,6730.,6740.,0.,0.,0.,0.,0.,0.,6740.,6750.,0.,0.,0.,0.,
- 0.,0.,6750.,6760.,0.,0.,0.,0.,0.,0.,6760.,6770.,0.,0.,0.,0.,0.,0.,
- 6770.,6780.,0.,0.,0.,0.,0.,0.,6780.,6790.,0.,0.,0.,0.,0.,0.,6790.,
- 6800.,0.,0.,0.,0.,0.,0.,6800.,6810.,0.,0.,0.,0.,0.,0.,6810.,6820.,
- 0.,0.,0.,0.,0.,0.,6820.,6830.,0.,0.,0.,0.,0.,0.,6830.,6840.,0.,0.,
- 0.,0.,0.,0.,6840.,6850.,0.,0.,0.,0.,0.,0.,6850.,6860.,0.,0.,0.,0.,
- 0.,0.,6860.,6870.,0.,0.,0.,0.,0.,0.,6870.,6880.,0.,0.,0.,0.,0.,0.,
- 6880.,6890.,0.,0.,0.,0.,0.,0.,6890.,6900.,0.,0.,0.,0.,0.,0.,6900.,
- 6910.,0.,0.,0.,0.,0.,0.,6910.,6920.,0.,0.,0.,0.,0.,0.,6920.,6930.,
- 0.,0.,0.,0.,0.,0.,6930.,6940.,0.,0.,0.,0.,0.,0.,6940.,6950.,0.,0.,
- 0.,0.,0.,0.,6950.,6960.,0.,0.,0.,0.,0.,0.,6960.,6970.,0.,0.,0.,0.,
- 0.,0.,6970.,6980.,0.,0.,0.,0.,0.,0.,6980.,6990.,0.,0.,0.,0.,0.,0.,
- 6990.,7e3,0.,0.,0.,0.,0.,0.,7e3,7010.,0.,0.,0.,0.,0.,0.,7010.,
- 7020.,0.,0.,0.,0.,0.,0.,7020.,7030.,0.,0.,0.,0.,0.,0.,7030.,7040.,
- 0.,0.,0.,0.,0.,0.,7040.,7050.,0.,0.,0.,0.,0.,0.,7050.,7060.,0.,0.,
- 0.,0.,0.,0.,7060.,7070.,0.,0.,0.,0.,0.,0.,7070.,7080.,0.,0.,0.,0.,
- 0.,0.,7080.,7090.,0.,0.,0.,0.,0.,0.,7090.,7100.,0.,0.,0.,0.,0.,0.,
- 7100.,7110.,0.,0.,0.,0.,0.,0.,7110.,7120.,0.,0.,0.,0.,0.,0.,7120.,
- 7130.,0.,0.,0.,0.,0.,0.,7130.,7140.,0.,0.,0.,0.,0.,0.,7140.,7150.,
- 0.,0.,0.,0.,0.,0.,7150.,7160.,0.,0.,0.,0.,0.,0.,7160.,7170.,0.,0.,
- 0.,0.,0.,0.,7170.,7180.,0.,0.,0.,0.,0.,0.,7180.,7190.,0.,0.,0.,0.,
- 0.,0.,7190.,7200.,0.,0.,0.,0.,0.,0.,7200.,7210.,0.,0.,0.,0.,0.,0.,
- 7210.,7220.,0.,0.,0.,0.,0.,0.,7220.,7230.,0.,0.,0.,0.,0.,0.,7230.,
- 7240.,0.,0.,0.,0.,0.,0.,7240.,7250.,0.,0.,0.,0.,0.,0.,7250.,7260.,
- 0.,0.,0.,0.,0.,0.,7260.,7270.,0.,0.,0.,0.,0.,0.,7270.,7280.,0.,0.,
- 0.,0.,0.,0.,7280.,7290.,0.,0.,0.,0.,0.,0.,7290.,7300.,0.,0.,0.,0.,
- 0.,0.,7300.,7310.,0.,0.,0.,0.,0.,0.,7310.,7320.,0.,0.,0.,0.,0.,0.,
- 7320.,7330.,0.,0.,0.,0.,0.,0.,7330.,7340.,0.,0.,0.,0.,0.,0.,7340.,
- 7350.,0.,0.,0.,0.,0.,0.,7350.,7360.,0.,0.,0.,0.,0.,0.,7360.,7370.,
- 0.,0.,0.,0.,0.,0.,7370.,7380.,0.,0.,0.,0.,0.,0.,7380.,7390.,0.,0.,
- 0.,0.,0.,0.,7390.,7400.,0.,0.,0.,0.,0.,0.,7400.,7410.,0.,0.,0.,0.,
- 0.,0.,7410.,7420.,0.,0.,0.,0.,0.,0.,7420.,7430.,0.,0.,0.,0.,0.,0.,
- 7430.,7440.,0.,0.,0.,0.,0.,0.,7440.,7450.,0.,0.,0.,0.,0.,0.,7450.,
- 7460.,0.,0.,0.,0.,0.,0.,7460.,7470.,0.,0.,0.,0.,0.,0.,7470.,7480.,
- 0.,0.,0.,0.,0.,0.,7480.,7490.,0.,0.,0.,0.,0.,0.,7490.,7500.,0.,0.,
- 0.,0.,0.,0.,7500.,7510.,0.,0.,0.,0.,0.,0.,7510.,7520.,0.,0.,0.,0.,
- 0.,0.,7520.,7530.,0.,0.,0.,0.,0.,0.,7530.,7540.,0.,0.,0.,0.,0.,0.,
- 7540.,7550.,0.,0.,0.,0.,0.,0.,7550.,7560.,0.,0.,0.,0.,0.,0.,7560.,
- 7570.,0.,0.,0.,0.,0.,0.,7570.,7580.,0.,0.,0.,0.,0.,0.,7580.,7590.,
- 0.,0.,0.,0.,0.,0.,7590.,7600.,0.,0.,0.,0.,0.,0.,7600.,7610.,0.,0.,
- 0.,0.,0.,0.,7610.,7620. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* carbon monoxide (5060 - 7610 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* moca2_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.f b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.f
deleted file mode 100644
index 57bdb73..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine moca2(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c carbon monoxide (5060 - 7610 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50600e+04, 0.50700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50700e+04, 0.50800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50800e+04, 0.50900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50900e+04, 0.51000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51000e+04, 0.51100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51100e+04, 0.51200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51200e+04, 0.51300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51300e+04, 0.51400e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51400e+04, 0.51500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51500e+04, 0.51600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51600e+04, 0.51700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51700e+04, 0.51800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51800e+04, 0.51900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51900e+04, 0.52000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52000e+04, 0.52100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52100e+04, 0.52200e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52200e+04, 0.52300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52300e+04, 0.52400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52400e+04, 0.52500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52500e+04, 0.52600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52600e+04, 0.52700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52700e+04, 0.52800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52800e+04, 0.52900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52900e+04, 0.53000e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53000e+04, 0.53100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53100e+04, 0.53200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53200e+04, 0.53300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53300e+04, 0.53400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53400e+04, 0.53500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53500e+04, 0.53600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53600e+04, 0.53700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53700e+04, 0.53800e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53800e+04, 0.53900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53900e+04, 0.54000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54000e+04, 0.54100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54100e+04, 0.54200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54200e+04, 0.54300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54300e+04, 0.54400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54400e+04, 0.54500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54500e+04, 0.54600e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54600e+04, 0.54700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54700e+04, 0.54800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54800e+04, 0.54900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54900e+04, 0.55000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55000e+04, 0.55100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55100e+04, 0.55200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55200e+04, 0.55300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55300e+04, 0.55400e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55400e+04, 0.55500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55500e+04, 0.55600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55600e+04, 0.55700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55700e+04, 0.55800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55800e+04, 0.55900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55900e+04, 0.56000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56000e+04, 0.56100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56100e+04, 0.56200e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56200e+04, 0.56300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56300e+04, 0.56400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56400e+04, 0.56500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56500e+04, 0.56600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56600e+04, 0.56700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56700e+04, 0.56800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56800e+04, 0.56900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56900e+04, 0.57000e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.46683e-25, 0.39946e-06, 0.15004e+00,-0.60825e-03, 0.14724e+00,
- a-0.60261e-03, 0.57000e+04, 0.57100e+04,
- a 0.12312e-24, 0.39946e-06, 0.14595e+00,-0.59188e-03, 0.14315e+00,
- a-0.58625e-03, 0.57100e+04, 0.57200e+04,
- a 0.11266e-23, 0.75927e-06, 0.13909e+00,-0.56295e-03, 0.13671e+00,
- a-0.55959e-03, 0.57200e+04, 0.57300e+04,
- a 0.20103e-23, 0.39946e-06, 0.13415e+00,-0.54470e-03, 0.13135e+00,
- a-0.53906e-03, 0.57300e+04, 0.57400e+04,
- a 0.49063e-23, 0.39946e-06, 0.13038e+00,-0.52961e-03, 0.12758e+00,
- a-0.52397e-03, 0.57400e+04, 0.57500e+04,
- a 0.39255e-22, 0.76518e-06, 0.12413e+00,-0.50331e-03, 0.12169e+00,
- a-0.49966e-03, 0.57500e+04, 0.57600e+04,
- a 0.63305e-22, 0.39946e-06, 0.11954e+00,-0.48626e-03, 0.11675e+00,
- a-0.48063e-03, 0.57600e+04, 0.57700e+04,
- a 0.15847e-20, 0.10092e-05, 0.10516e+00,-0.41519e-03, 0.10467e+00,
- a-0.42332e-03, 0.57700e+04, 0.57800e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.36811e-20, 0.71016e-06, 0.99850e-01,-0.39815e-03, 0.98651e-01,
- a-0.40130e-03, 0.57800e+04, 0.57900e+04,
- a 0.32319e-19, 0.12898e-05, 0.92607e-01,-0.36764e-03, 0.92132e-01,
- a-0.37318e-03, 0.57900e+04, 0.58000e+04,
- a 0.56403e-19, 0.64883e-06, 0.87374e-01,-0.34877e-03, 0.86636e-01,
- a-0.35122e-03, 0.58000e+04, 0.58100e+04,
- a 0.16009e-18, 0.95335e-06, 0.84900e-01,-0.33381e-03, 0.84844e-01,
- a-0.34257e-03, 0.58100e+04, 0.58200e+04,
- a 0.10493e-17, 0.10941e-05, 0.76482e-01,-0.30762e-03, 0.80072e-01,
- a-0.25402e-03, 0.58200e+04, 0.58300e+04,
- a 0.18849e-17, 0.23089e-05, 0.73551e-01,-0.27995e-03, 0.10134e+00,
- a-0.10464e-03, 0.58300e+04, 0.58400e+04,
- a 0.12274e-16, 0.18503e-05, 0.65955e-01,-0.26262e-03, 0.87190e-01,
- a-0.61536e-04, 0.58400e+04, 0.58500e+04,
- a 0.19475e-16, 0.21482e-05, 0.62641e-01,-0.23947e-03, 0.92133e-01,
- a-0.55475e-04, 0.58500e+04, 0.58600e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.42834e-16, 0.52914e-05, 0.60443e-01,-0.21227e-03, 0.10022e+00,
- a-0.91581e-04, 0.58600e+04, 0.58700e+04,
- a 0.25814e-15, 0.27090e-05, 0.53613e-01,-0.20674e-03, 0.78473e-01,
- a-0.24556e-04, 0.58700e+04, 0.58800e+04,
- a 0.34582e-15, 0.24018e-05, 0.49817e-01,-0.18578e-03, 0.83893e-01,
- a-0.99109e-05, 0.58800e+04, 0.58900e+04,
- a 0.19766e-14, 0.26621e-05, 0.44522e-01,-0.17276e-03, 0.70531e-01,
- a 0.17855e-04, 0.58900e+04, 0.59000e+04,
- a 0.70047e-14, 0.57066e-05, 0.39496e-01,-0.14181e-03, 0.75654e-01,
- a 0.57712e-05, 0.59000e+04, 0.59100e+04,
- a 0.86757e-14, 0.33052e-04, 0.40851e-01,-0.49822e-04, 0.88823e-01,
- a-0.20654e-03, 0.59100e+04, 0.59200e+04,
- a 0.40761e-13, 0.14076e-04, 0.33721e-01,-0.81073e-04, 0.73952e-01,
- a-0.71550e-04, 0.59200e+04, 0.59300e+04,
- a 0.11802e-12, 0.18315e-04, 0.29401e-01,-0.56811e-04, 0.72527e-01,
- a-0.61682e-04, 0.59300e+04, 0.59400e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.12517e-12, 0.32080e-04, 0.29645e-01, 0.52262e-05, 0.75673e-01,
- a-0.16050e-03, 0.59400e+04, 0.59500e+04,
- a 0.53299e-12, 0.83885e-04, 0.28648e-01, 0.51037e-04, 0.76701e-01,
- a-0.11804e-03, 0.59500e+04, 0.59600e+04,
- a 0.12176e-11, 0.43932e-04, 0.23072e-01, 0.39649e-04, 0.70157e-01,
- a-0.25205e-04, 0.59600e+04, 0.59700e+04,
- a 0.26812e-11, 0.74724e-04, 0.21392e-01, 0.78492e-04, 0.68900e-01,
- a-0.57739e-04, 0.59700e+04, 0.59800e+04,
- a 0.52852e-11, 0.81623e-04, 0.18441e-01, 0.92123e-04, 0.72474e-01,
- a 0.38196e-04, 0.59800e+04, 0.59900e+04,
- a 0.12137e-10, 0.25414e-03, 0.24162e-01, 0.17686e-03, 0.65473e-01,
- a-0.11219e-03, 0.59900e+04, 0.60000e+04,
- a 0.20220e-10, 0.17439e-03, 0.21342e-01, 0.17061e-03, 0.61647e-01,
- a-0.49481e-04, 0.60000e+04, 0.60100e+04,
- a 0.70256e-10, 0.39013e-03, 0.25354e-01, 0.17390e-03, 0.56294e-01,
- a-0.10119e-03, 0.60100e+04, 0.60200e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.91715e-10, 0.38456e-03, 0.27846e-01, 0.13835e-03, 0.55857e-01,
- a-0.85738e-04, 0.60200e+04, 0.60300e+04,
- a 0.35812e-09, 0.89526e-03, 0.36811e-01,-0.19691e-04, 0.60026e-01,
- a-0.51263e-04, 0.60300e+04, 0.60400e+04,
- a 0.51951e-09, 0.65082e-03, 0.34472e-01,-0.38106e-04, 0.57771e-01,
- a-0.17166e-04, 0.60400e+04, 0.60500e+04,
- a 0.23396e-08, 0.12585e-02, 0.37673e-01,-0.13867e-03, 0.56388e-01,
- a-0.37053e-04, 0.60500e+04, 0.60600e+04,
- a 0.31627e-08, 0.12183e-02, 0.33941e-01,-0.11427e-03, 0.58265e-01,
- a-0.14231e-04, 0.60600e+04, 0.60700e+04,
- a 0.13747e-07, 0.10905e-02, 0.30224e-01,-0.11494e-03, 0.45888e-01,
- a-0.12430e-04, 0.60700e+04, 0.60800e+04,
- a 0.16746e-07, 0.11055e-02, 0.27100e-01,-0.94052e-04, 0.48795e-01,
- a 0.17267e-05, 0.60800e+04, 0.60900e+04,
- a 0.69627e-07, 0.14531e-02, 0.23474e-01,-0.87211e-04, 0.42687e-01,
- a 0.29187e-04, 0.60900e+04, 0.61000e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.17890e-06, 0.23713e-02, 0.20122e-01,-0.59840e-04, 0.42924e-01,
- a 0.93171e-05, 0.61000e+04, 0.61100e+04,
- a 0.16918e-06, 0.23730e-02, 0.18564e-01,-0.32576e-04, 0.47913e-01,
- a-0.56001e-05, 0.61100e+04, 0.61200e+04,
- a 0.61497e-06, 0.20751e-02, 0.14671e-01,-0.36986e-04, 0.34470e-01,
- a 0.32655e-04, 0.61200e+04, 0.61300e+04,
- a 0.13012e-05, 0.59809e-02, 0.14081e-01, 0.12706e-04, 0.41059e-01,
- a-0.14713e-04, 0.61300e+04, 0.61400e+04,
- a 0.23687e-05, 0.34824e-02, 0.10334e-01, 0.11870e-04, 0.31822e-01,
- a 0.21340e-04, 0.61400e+04, 0.61500e+04,
- a 0.41168e-05, 0.49295e-02, 0.84797e-02, 0.33745e-04, 0.32297e-01,
- a 0.28091e-04, 0.61500e+04, 0.61600e+04,
- a 0.72750e-05, 0.15527e-01, 0.12669e-01, 0.99217e-04, 0.36777e-01,
- a-0.55634e-04, 0.61600e+04, 0.61700e+04,
- a 0.97222e-05, 0.91547e-02, 0.10267e-01, 0.95535e-04, 0.30194e-01,
- a-0.25674e-04, 0.61700e+04, 0.61800e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.17703e-04, 0.12682e-01, 0.90194e-02, 0.10461e-03, 0.28528e-01,
- a-0.88439e-05, 0.61800e+04, 0.61900e+04,
- a 0.32557e-04, 0.38848e-01, 0.22453e-01, 0.51526e-04, 0.32595e-01,
- a-0.10114e-03, 0.61900e+04, 0.62000e+04,
- a 0.36378e-04, 0.26446e-01, 0.22869e-01, 0.15344e-04, 0.29472e-01,
- a-0.78062e-04, 0.62000e+04, 0.62100e+04,
- a 0.15091e-03, 0.45107e-01, 0.27472e-01,-0.95379e-04, 0.27231e-01,
- a-0.10428e-03, 0.62100e+04, 0.62200e+04,
- a 0.44635e-03, 0.44617e-01, 0.22992e-01,-0.83379e-04, 0.22135e-01,
- a-0.86546e-04, 0.62200e+04, 0.62300e+04,
- a 0.46450e-03, 0.25101e-01, 0.20065e-01,-0.74635e-04, 0.19585e-01,
- a-0.71162e-04, 0.62300e+04, 0.62400e+04,
- a 0.18567e-02, 0.45449e-01, 0.17769e-01,-0.76382e-04, 0.15878e-01,
- a-0.68709e-04, 0.62400e+04, 0.62500e+04,
- a 0.42909e-02, 0.47419e-01, 0.14170e-01,-0.63990e-04, 0.12295e-01,
- a-0.55119e-04, 0.62500e+04, 0.62600e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.37371e-02, 0.24446e-01, 0.11714e-01,-0.54834e-04, 0.96092e-02,
- a-0.46244e-04, 0.62600e+04, 0.62700e+04,
- a 0.12658e-01, 0.47613e-01, 0.91389e-02,-0.44311e-04, 0.67170e-02,
- a-0.37584e-04, 0.62700e+04, 0.62800e+04,
- a 0.22981e-01, 0.50782e-01, 0.62294e-02,-0.32686e-04, 0.39945e-02,
- a-0.24418e-04, 0.62800e+04, 0.62900e+04,
- a 0.37510e-01, 0.52128e-01, 0.36805e-02,-0.22546e-04, 0.14034e-02,
- a-0.13971e-04, 0.62900e+04, 0.63000e+04,
- a 0.54636e-01, 0.53047e-01, 0.14952e-02,-0.13854e-04,-0.74579e-03,
- a-0.43465e-05, 0.63000e+04, 0.63100e+04,
- a 0.70262e-01, 0.53883e-01,-0.32751e-03,-0.66345e-05,-0.26603e-02,
- a 0.28956e-05, 0.63100e+04, 0.63200e+04,
- a 0.78204e-01, 0.55207e-01,-0.17859e-02,-0.86799e-06,-0.43181e-02,
- a 0.75236e-05, 0.63200e+04, 0.63300e+04,
- a 0.10057e+00, 0.88588e-01,-0.30519e-02, 0.41846e-05,-0.57894e-02,
- a 0.10937e-04, 0.63300e+04, 0.63400e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.31333e-01, 0.65185e-01,-0.38296e-02, 0.72424e-05,-0.66430e-02,
- a 0.12937e-04, 0.63400e+04, 0.63500e+04,
- a 0.33845e-01, 0.64920e-01,-0.39811e-02, 0.78455e-05,-0.67871e-02,
- a 0.13512e-04, 0.63500e+04, 0.63600e+04,
- a 0.12178e+00, 0.88198e-01,-0.34193e-02, 0.56304e-05,-0.62387e-02,
- a 0.11334e-04, 0.63600e+04, 0.63700e+04,
- a 0.15914e+00, 0.81345e-01,-0.20733e-02, 0.32783e-06,-0.48764e-02,
- a 0.59258e-05, 0.63700e+04, 0.63800e+04,
- a 0.17605e+00, 0.10382e+00, 0.47396e-03,-0.94825e-05,-0.22623e-02,
- a-0.43366e-05, 0.63800e+04, 0.63900e+04,
- a 0.10257e+00, 0.11943e+00, 0.50797e-02,-0.26879e-04, 0.25640e-02,
- a-0.23075e-04, 0.63900e+04, 0.64000e+04,
- a 0.25341e-01, 0.11996e+00, 0.12613e-01,-0.55092e-04, 0.10613e-01,
- a-0.53927e-04, 0.64000e+04, 0.64100e+04,
- a 0.20638e-02, 0.13697e+00, 0.24524e-01,-0.97954e-04, 0.25258e-01,
- a-0.99948e-04, 0.64100e+04, 0.64200e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64200e+04, 0.64300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64300e+04, 0.64400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64400e+04, 0.64500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64500e+04, 0.64600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64600e+04, 0.64700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64700e+04, 0.64800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64800e+04, 0.64900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64900e+04, 0.65000e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65000e+04, 0.65100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65100e+04, 0.65200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65200e+04, 0.65300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65300e+04, 0.65400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65400e+04, 0.65500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65500e+04, 0.65600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65600e+04, 0.65700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65700e+04, 0.65800e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65800e+04, 0.65900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65900e+04, 0.66000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66000e+04, 0.66100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66100e+04, 0.66200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66200e+04, 0.66300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66300e+04, 0.66400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66400e+04, 0.66500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66500e+04, 0.66600e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66600e+04, 0.66700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66700e+04, 0.66800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66800e+04, 0.66900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66900e+04, 0.67000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67000e+04, 0.67100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67100e+04, 0.67200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67200e+04, 0.67300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67300e+04, 0.67400e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67400e+04, 0.67500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67500e+04, 0.67600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67600e+04, 0.67700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67700e+04, 0.67800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67800e+04, 0.67900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67900e+04, 0.68000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68000e+04, 0.68100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68100e+04, 0.68200e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68200e+04, 0.68300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68300e+04, 0.68400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68400e+04, 0.68500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68500e+04, 0.68600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68600e+04, 0.68700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68700e+04, 0.68800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68800e+04, 0.68900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68900e+04, 0.69000e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69000e+04, 0.69100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69100e+04, 0.69200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69200e+04, 0.69300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69300e+04, 0.69400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69400e+04, 0.69500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69500e+04, 0.69600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69600e+04, 0.69700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69700e+04, 0.69800e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69800e+04, 0.69900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69900e+04, 0.70000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70000e+04, 0.70100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70100e+04, 0.70200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70200e+04, 0.70300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70300e+04, 0.70400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70400e+04, 0.70500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70500e+04, 0.70600e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70600e+04, 0.70700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70700e+04, 0.70800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70800e+04, 0.70900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70900e+04, 0.71000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71000e+04, 0.71100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71100e+04, 0.71200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71200e+04, 0.71300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71300e+04, 0.71400e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71400e+04, 0.71500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71500e+04, 0.71600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71600e+04, 0.71700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71700e+04, 0.71800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71800e+04, 0.71900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71900e+04, 0.72000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72000e+04, 0.72100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72100e+04, 0.72200e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72200e+04, 0.72300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72300e+04, 0.72400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72400e+04, 0.72500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72500e+04, 0.72600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72600e+04, 0.72700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72700e+04, 0.72800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72800e+04, 0.72900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72900e+04, 0.73000e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73000e+04, 0.73100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73100e+04, 0.73200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73200e+04, 0.73300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73300e+04, 0.73400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73400e+04, 0.73500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73500e+04, 0.73600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73600e+04, 0.73700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73700e+04, 0.73800e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73800e+04, 0.73900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73900e+04, 0.74000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74000e+04, 0.74100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74100e+04, 0.74200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74200e+04, 0.74300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74300e+04, 0.74400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74400e+04, 0.74500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74500e+04, 0.74600e+04/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74600e+04, 0.74700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74700e+04, 0.74800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74800e+04, 0.74900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74900e+04, 0.75000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75000e+04, 0.75100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75100e+04, 0.75200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75200e+04, 0.75300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75300e+04, 0.75400e+04/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75400e+04, 0.75500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75500e+04, 0.75600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75600e+04, 0.75700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75700e+04, 0.75800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75800e+04, 0.75900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75900e+04, 0.76000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76000e+04, 0.76100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76100e+04, 0.76200e+04/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.h b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.h
deleted file mode 100644
index 019900d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA2.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_moca2_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.P b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.P
deleted file mode 100644
index d2d181a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int moca3_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.c b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.c
deleted file mode 100644
index 98ca973..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.c
+++ /dev/null
@@ -1,224 +0,0 @@
-/* MOCA3.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine moca3(a,inu) >*/
-/* Subroutine */ int moca3_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 7620.,7630.,0.,0.,0.,0.,0.,0.,7630.,7640.,0.,0.,0.,0.,0.,0.,7640.,
- 7650.,0.,0.,0.,0.,0.,0.,7650.,7660.,0.,0.,0.,0.,0.,0.,7660.,7670.,
- 0.,0.,0.,0.,0.,0.,7670.,7680.,0.,0.,0.,0.,0.,0.,7680.,7690.,0.,0.,
- 0.,0.,0.,0.,7690.,7700.,0.,0.,0.,0.,0.,0.,7700.,7710.,0.,0.,0.,0.,
- 0.,0.,7710.,7720.,0.,0.,0.,0.,0.,0.,7720.,7730.,0.,0.,0.,0.,0.,0.,
- 7730.,7740.,0.,0.,0.,0.,0.,0.,7740.,7750.,0.,0.,0.,0.,0.,0.,7750.,
- 7760.,0.,0.,0.,0.,0.,0.,7760.,7770.,0.,0.,0.,0.,0.,0.,7770.,7780.,
- 0.,0.,0.,0.,0.,0.,7780.,7790.,0.,0.,0.,0.,0.,0.,7790.,7800.,0.,0.,
- 0.,0.,0.,0.,7800.,7810.,0.,0.,0.,0.,0.,0.,7810.,7820.,0.,0.,0.,0.,
- 0.,0.,7820.,7830.,0.,0.,0.,0.,0.,0.,7830.,7840.,0.,0.,0.,0.,0.,0.,
- 7840.,7850.,0.,0.,0.,0.,0.,0.,7850.,7860.,0.,0.,0.,0.,0.,0.,7860.,
- 7870.,0.,0.,0.,0.,0.,0.,7870.,7880.,0.,0.,0.,0.,0.,0.,7880.,7890.,
- 0.,0.,0.,0.,0.,0.,7890.,7900.,0.,0.,0.,0.,0.,0.,7900.,7910.,0.,0.,
- 0.,0.,0.,0.,7910.,7920.,0.,0.,0.,0.,0.,0.,7920.,7930.,0.,0.,0.,0.,
- 0.,0.,7930.,7940.,0.,0.,0.,0.,0.,0.,7940.,7950.,0.,0.,0.,0.,0.,0.,
- 7950.,7960.,0.,0.,0.,0.,0.,0.,7960.,7970.,0.,0.,0.,0.,0.,0.,7970.,
- 7980.,0.,0.,0.,0.,0.,0.,7980.,7990.,0.,0.,0.,0.,0.,0.,7990.,8e3,
- 0.,0.,0.,0.,0.,0.,8e3,8010.,0.,0.,0.,0.,0.,0.,8010.,8020.,0.,0.,
- 0.,0.,0.,0.,8020.,8030.,0.,0.,0.,0.,0.,0.,8030.,8040.,0.,0.,0.,0.,
- 0.,0.,8040.,8050.,1.354e-16,.017736,.11256,-4.5834e-4,.10977,
- -4.527e-4,8050.,8060.,4.1572e-16,.017736,.10803,-4.4019e-4,.10523,
- -4.3455e-4,8060.,8070.,1.2473e-15,.017736,.10358,-4.2239e-4,
- .10078,-4.1676e-4,8070.,8080.,3.6626e-15,.017736,.099217,
- -4.0495e-4,.096419,-3.9931e-4,8080.,8090.,1.0521e-14,.017736,
- .094944,-3.8786e-4,.092146,-3.8222e-4,8090.,8100.,2.9549e-14,
- .017736,.09076,-3.7112e-4,.087962,-3.6548e-4,8100.,8110.,
- 8.1193e-14,.017736,.086664,-3.5474e-4,.083866,-3.491e-4,8110.,
- 8120.,2.1814e-13,.017736,.082657,-3.3871e-4,.079859,-3.3307e-4,
- 8120.,8130.,5.7319e-13,.017736,.078739,-3.2303e-4,.075941,
- -3.174e-4,8130.,8140.,1.4733e-12,.017736,.07491,-3.0772e-4,
- .072112,-3.0208e-4,8140.,8150.,3.7005e-12,.017736,.07117,
- -2.9276e-4,.068372,-2.8712e-4,8150.,8160.,9.0898e-12,.017736,
- .067519,-2.7816e-4,.064721,-2.7252e-4,8160.,8170.,2.1828e-11,
- .017736,.063958,-2.6391e-4,.06116,-2.5828e-4,8170.,8180.,
- 1.6892e-10,.034043,.058108,-2.3936e-4,.055638,-2.3553e-4,8180.,
- 8190.,2.6399e-10,.017736,.053812,-2.2333e-4,.051015,-2.177e-4,
- 8190.,8200.,5.7886e-10,.017736,.050611,-2.1052e-4,.047813,
- -2.0489e-4,8200.,8210.,1.2407e-9,.017957,.047499,-1.9807e-4,
- .044701,-1.9244e-4,8210.,8220.,2.5994e-9,.018179,.044477,
- -1.8599e-4,.041679,-1.8035e-4,8220.,8230.,1.596e-8,.036001,
- .039635,-1.6576e-4,.03707,-1.6145e-4,8230.,8240.,2.0795e-8,
- .018844,.035955,-1.519e-4,.033157,-1.4627e-4,8240.,8250.,
- 3.9708e-8,.019066,.033295,-1.4126e-4,.030497,-1.3563e-4,8250.,
- 8260.,2.0895e-7,.03799,.029113,-1.2386e-4,.026495,-1.1926e-4,
- 8260.,8270.,2.3995e-7,.019731,.025861,-1.1153e-4,.023064,
- -1.0589e-4,8270.,8280.,4.1681e-7,.019953,.023566,-1.0234e-4,
- .020768,-9.6709e-5,8280.,8290.,1.8774e-6,.040651,.020033,
- -8.771e-5,.017363,-8.2825e-5,8290.,8300.,1.8914e-6,.021283,
- .017225,-7.698e-5,.014427,-7.1347e-5,8300.,8310.,7.568e-6,.043989,
- .014172,-6.438e-5,.011463,-5.9288e-5,8310.,8320.,6.8789e-6,
- .023145,.011707,-5.4908e-5,.0089094,-4.9275e-5,8320.,8330.,
- 2.4399e-5,.046699,.0091256,-4.4298e-5,.0063969,-3.9079e-5,8330.,
- 8340.,4.6806e-5,.049425,.006215,-3.2716e-5,.0034666,-2.739e-5,
- 8340.,8350.,8.0605e-5,.050945,.0036678,-2.2582e-5,9.0701e-4,
- -1.718e-5,8350.,8360.,1.2377e-4,.051881,.0014843,-1.3895e-5,
- -.0012918,-8.4086e-6,8360.,8370.,1.6751e-4,.053029,-3.3537e-4,
- -6.6561e-6,-.0031202,-1.1154e-6,8370.,8380.,1.9593e-4,.054802,
- -.0017908,-8.6649e-7,-.0045868,4.7351e-6,8380.,8390.,1.8975e-4,
- .058538,-.0028817,3.4723e-6,-.0056846,9.1141e-6,8390.,8400.,
- 1.3472e-4,.062039,-.0036068,6.3564e-6,-.006417,1.2035e-5,8400.,
- 8410.,6.4957e-5,.06993,-.0039984,7.9148e-6,-.006795,1.3543e-5,
- 8410.,8420.,3.0309e-4,.090113,-.0036875,6.6869e-6,-.0065101,
- 1.2442e-5,8420.,8430.,5.1352e-4,.08362,-.0026038,2.4173e-6,
- -.0054145,8.1551e-6,8430.,8440.,8.2971e-4,.13049,5.179e-5,
- -7.5797e-6,-.0026588,-2.2561e-6,8440.,8450.,4.4414e-4,.14201,
- .0055167,-2.7842e-5,.0033215,-2.3351e-5,8450.,8460.,8.4089e-5,
- .17964,.015226,-6.0171e-5,.015481,-6.3601e-5,8460.,8470.,0.,0.,0.,
- 0.,0.,0.,8470.,8480.,0.,0.,0.,0.,0.,0.,8480.,8490.,0.,0.,0.,0.,0.,
- 0.,8490.,8500.,0.,0.,0.,0.,0.,0.,8500.,8510.,0.,0.,0.,0.,0.,0.,
- 8510.,8520.,0.,0.,0.,0.,0.,0.,8520.,8530.,0.,0.,0.,0.,0.,0.,8530.,
- 8540.,0.,0.,0.,0.,0.,0.,8540.,8550.,0.,0.,0.,0.,0.,0.,8550.,8560.,
- 0.,0.,0.,0.,0.,0.,8560.,8570.,0.,0.,0.,0.,0.,0.,8570.,8580.,0.,0.,
- 0.,0.,0.,0.,8580.,8590.,0.,0.,0.,0.,0.,0.,8590.,8600.,0.,0.,0.,0.,
- 0.,0.,8600.,8610.,0.,0.,0.,0.,0.,0.,8610.,8620.,0.,0.,0.,0.,0.,0.,
- 8620.,8630.,0.,0.,0.,0.,0.,0.,8630.,8640.,0.,0.,0.,0.,0.,0.,8640.,
- 8650.,0.,0.,0.,0.,0.,0.,8650.,8660.,0.,0.,0.,0.,0.,0.,8660.,8670.,
- 0.,0.,0.,0.,0.,0.,8670.,8680.,0.,0.,0.,0.,0.,0.,8680.,8690.,0.,0.,
- 0.,0.,0.,0.,8690.,8700.,0.,0.,0.,0.,0.,0.,8700.,8710.,0.,0.,0.,0.,
- 0.,0.,8710.,8720.,0.,0.,0.,0.,0.,0.,8720.,8730.,0.,0.,0.,0.,0.,0.,
- 8730.,8740.,0.,0.,0.,0.,0.,0.,8740.,8750.,0.,0.,0.,0.,0.,0.,8750.,
- 8760.,0.,0.,0.,0.,0.,0.,8760.,8770.,0.,0.,0.,0.,0.,0.,8770.,8780.,
- 0.,0.,0.,0.,0.,0.,8780.,8790.,0.,0.,0.,0.,0.,0.,8790.,8800.,0.,0.,
- 0.,0.,0.,0.,8800.,8810.,0.,0.,0.,0.,0.,0.,8810.,8820.,0.,0.,0.,0.,
- 0.,0.,8820.,8830.,0.,0.,0.,0.,0.,0.,8830.,8840.,0.,0.,0.,0.,0.,0.,
- 8840.,8850.,0.,0.,0.,0.,0.,0.,8850.,8860.,0.,0.,0.,0.,0.,0.,8860.,
- 8870.,0.,0.,0.,0.,0.,0.,8870.,8880.,0.,0.,0.,0.,0.,0.,8880.,8890.,
- 0.,0.,0.,0.,0.,0.,8890.,8900.,0.,0.,0.,0.,0.,0.,8900.,8910.,0.,0.,
- 0.,0.,0.,0.,8910.,8920.,0.,0.,0.,0.,0.,0.,8920.,8930.,0.,0.,0.,0.,
- 0.,0.,8930.,8940.,0.,0.,0.,0.,0.,0.,8940.,8950.,0.,0.,0.,0.,0.,0.,
- 8950.,8960.,0.,0.,0.,0.,0.,0.,8960.,8970.,0.,0.,0.,0.,0.,0.,8970.,
- 8980.,0.,0.,0.,0.,0.,0.,8980.,8990.,0.,0.,0.,0.,0.,0.,8990.,9e3,
- 0.,0.,0.,0.,0.,0.,9e3,9010.,0.,0.,0.,0.,0.,0.,9010.,9020.,0.,0.,
- 0.,0.,0.,0.,9020.,9030.,0.,0.,0.,0.,0.,0.,9030.,9040.,0.,0.,0.,0.,
- 0.,0.,9040.,9050.,0.,0.,0.,0.,0.,0.,9050.,9060.,0.,0.,0.,0.,0.,0.,
- 9060.,9070.,0.,0.,0.,0.,0.,0.,9070.,9080.,0.,0.,0.,0.,0.,0.,9080.,
- 9090.,0.,0.,0.,0.,0.,0.,9090.,9100.,0.,0.,0.,0.,0.,0.,9100.,9110.,
- 0.,0.,0.,0.,0.,0.,9110.,9120.,0.,0.,0.,0.,0.,0.,9120.,9130.,0.,0.,
- 0.,0.,0.,0.,9130.,9140.,0.,0.,0.,0.,0.,0.,9140.,9150.,0.,0.,0.,0.,
- 0.,0.,9150.,9160.,0.,0.,0.,0.,0.,0.,9160.,9170.,0.,0.,0.,0.,0.,0.,
- 9170.,9180.,0.,0.,0.,0.,0.,0.,9180.,9190.,0.,0.,0.,0.,0.,0.,9190.,
- 9200.,0.,0.,0.,0.,0.,0.,9200.,9210.,0.,0.,0.,0.,0.,0.,9210.,9220.,
- 0.,0.,0.,0.,0.,0.,9220.,9230.,0.,0.,0.,0.,0.,0.,9230.,9240.,0.,0.,
- 0.,0.,0.,0.,9240.,9250.,0.,0.,0.,0.,0.,0.,9250.,9260.,0.,0.,0.,0.,
- 0.,0.,9260.,9270.,0.,0.,0.,0.,0.,0.,9270.,9280.,0.,0.,0.,0.,0.,0.,
- 9280.,9290.,0.,0.,0.,0.,0.,0.,9290.,9300.,0.,0.,0.,0.,0.,0.,9300.,
- 9310.,0.,0.,0.,0.,0.,0.,9310.,9320.,0.,0.,0.,0.,0.,0.,9320.,9330.,
- 0.,0.,0.,0.,0.,0.,9330.,9340.,0.,0.,0.,0.,0.,0.,9340.,9350.,0.,0.,
- 0.,0.,0.,0.,9350.,9360.,0.,0.,0.,0.,0.,0.,9360.,9370.,0.,0.,0.,0.,
- 0.,0.,9370.,9380.,0.,0.,0.,0.,0.,0.,9380.,9390.,0.,0.,0.,0.,0.,0.,
- 9390.,9400.,0.,0.,0.,0.,0.,0.,9400.,9410.,0.,0.,0.,0.,0.,0.,9410.,
- 9420.,0.,0.,0.,0.,0.,0.,9420.,9430.,0.,0.,0.,0.,0.,0.,9430.,9440.,
- 0.,0.,0.,0.,0.,0.,9440.,9450.,0.,0.,0.,0.,0.,0.,9450.,9460.,0.,0.,
- 0.,0.,0.,0.,9460.,9470.,0.,0.,0.,0.,0.,0.,9470.,9480.,0.,0.,0.,0.,
- 0.,0.,9480.,9490.,0.,0.,0.,0.,0.,0.,9490.,9500.,0.,0.,0.,0.,0.,0.,
- 9500.,9510.,0.,0.,0.,0.,0.,0.,9510.,9520.,0.,0.,0.,0.,0.,0.,9520.,
- 9530.,0.,0.,0.,0.,0.,0.,9530.,9540.,0.,0.,0.,0.,0.,0.,9540.,9550.,
- 0.,0.,0.,0.,0.,0.,9550.,9560.,0.,0.,0.,0.,0.,0.,9560.,9570.,0.,0.,
- 0.,0.,0.,0.,9570.,9580.,0.,0.,0.,0.,0.,0.,9580.,9590.,0.,0.,0.,0.,
- 0.,0.,9590.,9600.,0.,0.,0.,0.,0.,0.,9600.,9610.,0.,0.,0.,0.,0.,0.,
- 9610.,9620.,0.,0.,0.,0.,0.,0.,9620.,9630.,0.,0.,0.,0.,0.,0.,9630.,
- 9640.,0.,0.,0.,0.,0.,0.,9640.,9650.,0.,0.,0.,0.,0.,0.,9650.,9660.,
- 0.,0.,0.,0.,0.,0.,9660.,9670.,0.,0.,0.,0.,0.,0.,9670.,9680.,0.,0.,
- 0.,0.,0.,0.,9680.,9690.,0.,0.,0.,0.,0.,0.,9690.,9700.,0.,0.,0.,0.,
- 0.,0.,9700.,9710.,0.,0.,0.,0.,0.,0.,9710.,9720.,0.,0.,0.,0.,0.,0.,
- 9720.,9730.,0.,0.,0.,0.,0.,0.,9730.,9740.,0.,0.,0.,0.,0.,0.,9740.,
- 9750.,0.,0.,0.,0.,0.,0.,9750.,9760.,0.,0.,0.,0.,0.,0.,9760.,9770.,
- 0.,0.,0.,0.,0.,0.,9770.,9780.,0.,0.,0.,0.,0.,0.,9780.,9790.,0.,0.,
- 0.,0.,0.,0.,9790.,9800.,0.,0.,0.,0.,0.,0.,9800.,9810.,0.,0.,0.,0.,
- 0.,0.,9810.,9820.,0.,0.,0.,0.,0.,0.,9820.,9830.,0.,0.,0.,0.,0.,0.,
- 9830.,9840.,0.,0.,0.,0.,0.,0.,9840.,9850.,0.,0.,0.,0.,0.,0.,9850.,
- 9860.,0.,0.,0.,0.,0.,0.,9860.,9870.,0.,0.,0.,0.,0.,0.,9870.,9880.,
- 0.,0.,0.,0.,0.,0.,9880.,9890.,0.,0.,0.,0.,0.,0.,9890.,9900.,0.,0.,
- 0.,0.,0.,0.,9900.,9910.,0.,0.,0.,0.,0.,0.,9910.,9920.,0.,0.,0.,0.,
- 0.,0.,9920.,9930.,0.,0.,0.,0.,0.,0.,9930.,9940.,0.,0.,0.,0.,0.,0.,
- 9940.,9950.,0.,0.,0.,0.,0.,0.,9950.,9960.,0.,0.,0.,0.,0.,0.,9960.,
- 9970.,0.,0.,0.,0.,0.,0.,9970.,9980.,0.,0.,0.,0.,0.,0.,9980.,9990.,
- 0.,0.,0.,0.,0.,0.,9990.,1e4,0.,0.,0.,0.,0.,0.,1e4,10010.,0.,0.,0.,
- 0.,0.,0.,10010.,10020.,0.,0.,0.,0.,0.,0.,10020.,10030.,0.,0.,0.,
- 0.,0.,0.,10030.,10040.,0.,0.,0.,0.,0.,0.,10040.,10050.,0.,0.,0.,
- 0.,0.,0.,10050.,10060.,0.,0.,0.,0.,0.,0.,10060.,10070.,0.,0.,0.,
- 0.,0.,0.,10070.,10080.,0.,0.,0.,0.,0.,0.,10080.,10090.,0.,0.,0.,
- 0.,0.,0.,10090.,10100.,0.,0.,0.,0.,0.,0.,10100.,10110.,0.,0.,0.,
- 0.,0.,0.,10110.,10120.,0.,0.,0.,0.,0.,0.,10120.,10130.,0.,0.,0.,
- 0.,0.,0.,10130.,10140.,0.,0.,0.,0.,0.,0.,10140.,10150.,0.,0.,0.,
- 0.,0.,0.,10150.,10160.,0.,0.,0.,0.,0.,0.,10160.,10170.,0.,0.,0.,
- 0.,0.,0.,10170.,10180. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* carbon monoxide (7600 - 10170 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* moca3_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.f b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.f
deleted file mode 100644
index 376f440..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine moca3(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c carbon monoxide (7600 - 10170 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76200e+04, 0.76300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76300e+04, 0.76400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76400e+04, 0.76500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76500e+04, 0.76600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76600e+04, 0.76700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76700e+04, 0.76800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76800e+04, 0.76900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76900e+04, 0.77000e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77000e+04, 0.77100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77100e+04, 0.77200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77200e+04, 0.77300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77300e+04, 0.77400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77400e+04, 0.77500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77500e+04, 0.77600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77600e+04, 0.77700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77700e+04, 0.77800e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77800e+04, 0.77900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77900e+04, 0.78000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78000e+04, 0.78100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78100e+04, 0.78200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78200e+04, 0.78300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78300e+04, 0.78400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78400e+04, 0.78500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78500e+04, 0.78600e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78600e+04, 0.78700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78700e+04, 0.78800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78800e+04, 0.78900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78900e+04, 0.79000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79000e+04, 0.79100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79100e+04, 0.79200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79200e+04, 0.79300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79300e+04, 0.79400e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79400e+04, 0.79500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79500e+04, 0.79600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79600e+04, 0.79700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79700e+04, 0.79800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79800e+04, 0.79900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79900e+04, 0.80000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80000e+04, 0.80100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80100e+04, 0.80200e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80200e+04, 0.80300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80300e+04, 0.80400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80400e+04, 0.80500e+04,
- a 0.13540e-15, 0.17736e-01, 0.11256e+00,-0.45834e-03, 0.10977e+00,
- a-0.45270e-03, 0.80500e+04, 0.80600e+04,
- a 0.41572e-15, 0.17736e-01, 0.10803e+00,-0.44019e-03, 0.10523e+00,
- a-0.43455e-03, 0.80600e+04, 0.80700e+04,
- a 0.12473e-14, 0.17736e-01, 0.10358e+00,-0.42239e-03, 0.10078e+00,
- a-0.41676e-03, 0.80700e+04, 0.80800e+04,
- a 0.36626e-14, 0.17736e-01, 0.99217e-01,-0.40495e-03, 0.96419e-01,
- a-0.39931e-03, 0.80800e+04, 0.80900e+04,
- a 0.10521e-13, 0.17736e-01, 0.94944e-01,-0.38786e-03, 0.92146e-01,
- a-0.38222e-03, 0.80900e+04, 0.81000e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.29549e-13, 0.17736e-01, 0.90760e-01,-0.37112e-03, 0.87962e-01,
- a-0.36548e-03, 0.81000e+04, 0.81100e+04,
- a 0.81193e-13, 0.17736e-01, 0.86664e-01,-0.35474e-03, 0.83866e-01,
- a-0.34910e-03, 0.81100e+04, 0.81200e+04,
- a 0.21814e-12, 0.17736e-01, 0.82657e-01,-0.33871e-03, 0.79859e-01,
- a-0.33307e-03, 0.81200e+04, 0.81300e+04,
- a 0.57319e-12, 0.17736e-01, 0.78739e-01,-0.32303e-03, 0.75941e-01,
- a-0.31740e-03, 0.81300e+04, 0.81400e+04,
- a 0.14733e-11, 0.17736e-01, 0.74910e-01,-0.30772e-03, 0.72112e-01,
- a-0.30208e-03, 0.81400e+04, 0.81500e+04,
- a 0.37005e-11, 0.17736e-01, 0.71170e-01,-0.29276e-03, 0.68372e-01,
- a-0.28712e-03, 0.81500e+04, 0.81600e+04,
- a 0.90898e-11, 0.17736e-01, 0.67519e-01,-0.27816e-03, 0.64721e-01,
- a-0.27252e-03, 0.81600e+04, 0.81700e+04,
- a 0.21828e-10, 0.17736e-01, 0.63958e-01,-0.26391e-03, 0.61160e-01,
- a-0.25828e-03, 0.81700e+04, 0.81800e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.16892e-09, 0.34043e-01, 0.58108e-01,-0.23936e-03, 0.55638e-01,
- a-0.23553e-03, 0.81800e+04, 0.81900e+04,
- a 0.26399e-09, 0.17736e-01, 0.53812e-01,-0.22333e-03, 0.51015e-01,
- a-0.21770e-03, 0.81900e+04, 0.82000e+04,
- a 0.57886e-09, 0.17736e-01, 0.50611e-01,-0.21052e-03, 0.47813e-01,
- a-0.20489e-03, 0.82000e+04, 0.82100e+04,
- a 0.12407e-08, 0.17957e-01, 0.47499e-01,-0.19807e-03, 0.44701e-01,
- a-0.19244e-03, 0.82100e+04, 0.82200e+04,
- a 0.25994e-08, 0.18179e-01, 0.44477e-01,-0.18599e-03, 0.41679e-01,
- a-0.18035e-03, 0.82200e+04, 0.82300e+04,
- a 0.15960e-07, 0.36001e-01, 0.39635e-01,-0.16576e-03, 0.37070e-01,
- a-0.16145e-03, 0.82300e+04, 0.82400e+04,
- a 0.20795e-07, 0.18844e-01, 0.35955e-01,-0.15190e-03, 0.33157e-01,
- a-0.14627e-03, 0.82400e+04, 0.82500e+04,
- a 0.39708e-07, 0.19066e-01, 0.33295e-01,-0.14126e-03, 0.30497e-01,
- a-0.13563e-03, 0.82500e+04, 0.82600e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.20895e-06, 0.37990e-01, 0.29113e-01,-0.12386e-03, 0.26495e-01,
- a-0.11926e-03, 0.82600e+04, 0.82700e+04,
- a 0.23995e-06, 0.19731e-01, 0.25861e-01,-0.11153e-03, 0.23064e-01,
- a-0.10589e-03, 0.82700e+04, 0.82800e+04,
- a 0.41681e-06, 0.19953e-01, 0.23566e-01,-0.10234e-03, 0.20768e-01,
- a-0.96709e-04, 0.82800e+04, 0.82900e+04,
- a 0.18774e-05, 0.40651e-01, 0.20033e-01,-0.87710e-04, 0.17363e-01,
- a-0.82825e-04, 0.82900e+04, 0.83000e+04,
- a 0.18914e-05, 0.21283e-01, 0.17225e-01,-0.76980e-04, 0.14427e-01,
- a-0.71347e-04, 0.83000e+04, 0.83100e+04,
- a 0.75680e-05, 0.43989e-01, 0.14172e-01,-0.64380e-04, 0.11463e-01,
- a-0.59288e-04, 0.83100e+04, 0.83200e+04,
- a 0.68789e-05, 0.23145e-01, 0.11707e-01,-0.54908e-04, 0.89094e-02,
- a-0.49275e-04, 0.83200e+04, 0.83300e+04,
- a 0.24399e-04, 0.46699e-01, 0.91256e-02,-0.44298e-04, 0.63969e-02,
- a-0.39079e-04, 0.83300e+04, 0.83400e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.46806e-04, 0.49425e-01, 0.62150e-02,-0.32716e-04, 0.34666e-02,
- a-0.27390e-04, 0.83400e+04, 0.83500e+04,
- a 0.80605e-04, 0.50945e-01, 0.36678e-02,-0.22582e-04, 0.90701e-03,
- a-0.17180e-04, 0.83500e+04, 0.83600e+04,
- a 0.12377e-03, 0.51881e-01, 0.14843e-02,-0.13895e-04,-0.12918e-02,
- a-0.84086e-05, 0.83600e+04, 0.83700e+04,
- a 0.16751e-03, 0.53029e-01,-0.33537e-03,-0.66561e-05,-0.31202e-02,
- a-0.11154e-05, 0.83700e+04, 0.83800e+04,
- a 0.19593e-03, 0.54802e-01,-0.17908e-02,-0.86649e-06,-0.45868e-02,
- a 0.47351e-05, 0.83800e+04, 0.83900e+04,
- a 0.18975e-03, 0.58538e-01,-0.28817e-02, 0.34723e-05,-0.56846e-02,
- a 0.91141e-05, 0.83900e+04, 0.84000e+04,
- a 0.13472e-03, 0.62039e-01,-0.36068e-02, 0.63564e-05,-0.64170e-02,
- a 0.12035e-04, 0.84000e+04, 0.84100e+04,
- a 0.64957e-04, 0.69930e-01,-0.39984e-02, 0.79148e-05,-0.67950e-02,
- a 0.13543e-04, 0.84100e+04, 0.84200e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.30309e-03, 0.90113e-01,-0.36875e-02, 0.66869e-05,-0.65101e-02,
- a 0.12442e-04, 0.84200e+04, 0.84300e+04,
- a 0.51352e-03, 0.83620e-01,-0.26038e-02, 0.24173e-05,-0.54145e-02,
- a 0.81551e-05, 0.84300e+04, 0.84400e+04,
- a 0.82971e-03, 0.13049e+00, 0.51790e-04,-0.75797e-05,-0.26588e-02,
- a-0.22561e-05, 0.84400e+04, 0.84500e+04,
- a 0.44414e-03, 0.14201e+00, 0.55167e-02,-0.27842e-04, 0.33215e-02,
- a-0.23351e-04, 0.84500e+04, 0.84600e+04,
- a 0.84089e-04, 0.17964e+00, 0.15226e-01,-0.60171e-04, 0.15481e-01,
- a-0.63601e-04, 0.84600e+04, 0.84700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84700e+04, 0.84800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84800e+04, 0.84900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84900e+04, 0.85000e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85000e+04, 0.85100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85100e+04, 0.85200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85200e+04, 0.85300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85300e+04, 0.85400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85400e+04, 0.85500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85500e+04, 0.85600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85600e+04, 0.85700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85700e+04, 0.85800e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85800e+04, 0.85900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85900e+04, 0.86000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86000e+04, 0.86100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86100e+04, 0.86200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86200e+04, 0.86300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86300e+04, 0.86400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86400e+04, 0.86500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86500e+04, 0.86600e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86600e+04, 0.86700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86700e+04, 0.86800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86800e+04, 0.86900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86900e+04, 0.87000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87000e+04, 0.87100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87100e+04, 0.87200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87200e+04, 0.87300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87300e+04, 0.87400e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87400e+04, 0.87500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87500e+04, 0.87600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87600e+04, 0.87700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87700e+04, 0.87800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87800e+04, 0.87900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87900e+04, 0.88000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88000e+04, 0.88100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88100e+04, 0.88200e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88200e+04, 0.88300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88300e+04, 0.88400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88400e+04, 0.88500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88500e+04, 0.88600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88600e+04, 0.88700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88700e+04, 0.88800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88800e+04, 0.88900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88900e+04, 0.89000e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89000e+04, 0.89100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89100e+04, 0.89200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89200e+04, 0.89300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89300e+04, 0.89400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89400e+04, 0.89500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89500e+04, 0.89600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89600e+04, 0.89700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89700e+04, 0.89800e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89800e+04, 0.89900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89900e+04, 0.90000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90000e+04, 0.90100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90100e+04, 0.90200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90200e+04, 0.90300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90300e+04, 0.90400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90400e+04, 0.90500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90500e+04, 0.90600e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90600e+04, 0.90700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90700e+04, 0.90800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90800e+04, 0.90900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90900e+04, 0.91000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91000e+04, 0.91100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91100e+04, 0.91200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91200e+04, 0.91300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91300e+04, 0.91400e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91400e+04, 0.91500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91500e+04, 0.91600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91600e+04, 0.91700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91700e+04, 0.91800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91800e+04, 0.91900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91900e+04, 0.92000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92000e+04, 0.92100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92100e+04, 0.92200e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92200e+04, 0.92300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92300e+04, 0.92400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92400e+04, 0.92500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92500e+04, 0.92600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92600e+04, 0.92700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92700e+04, 0.92800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92800e+04, 0.92900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92900e+04, 0.93000e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93000e+04, 0.93100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93100e+04, 0.93200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93200e+04, 0.93300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93300e+04, 0.93400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93400e+04, 0.93500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93500e+04, 0.93600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93600e+04, 0.93700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93700e+04, 0.93800e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93800e+04, 0.93900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93900e+04, 0.94000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94000e+04, 0.94100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94100e+04, 0.94200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94200e+04, 0.94300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94300e+04, 0.94400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94400e+04, 0.94500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94500e+04, 0.94600e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94600e+04, 0.94700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94700e+04, 0.94800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94800e+04, 0.94900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94900e+04, 0.95000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95000e+04, 0.95100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95100e+04, 0.95200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95200e+04, 0.95300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95300e+04, 0.95400e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95400e+04, 0.95500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95500e+04, 0.95600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95600e+04, 0.95700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95700e+04, 0.95800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95800e+04, 0.95900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95900e+04, 0.96000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96000e+04, 0.96100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96100e+04, 0.96200e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96200e+04, 0.96300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96300e+04, 0.96400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96400e+04, 0.96500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96500e+04, 0.96600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96600e+04, 0.96700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96700e+04, 0.96800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96800e+04, 0.96900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96900e+04, 0.97000e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97000e+04, 0.97100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97100e+04, 0.97200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97200e+04, 0.97300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97300e+04, 0.97400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97400e+04, 0.97500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97500e+04, 0.97600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97600e+04, 0.97700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97700e+04, 0.97800e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97800e+04, 0.97900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97900e+04, 0.98000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98000e+04, 0.98100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98100e+04, 0.98200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98200e+04, 0.98300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98300e+04, 0.98400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98400e+04, 0.98500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98500e+04, 0.98600e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98600e+04, 0.98700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98700e+04, 0.98800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98800e+04, 0.98900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98900e+04, 0.99000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99000e+04, 0.99100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99100e+04, 0.99200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99200e+04, 0.99300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99300e+04, 0.99400e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99400e+04, 0.99500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99500e+04, 0.99600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99600e+04, 0.99700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99700e+04, 0.99800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99800e+04, 0.99900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99900e+04, 0.10000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10000e+05, 0.10010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10010e+05, 0.10020e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10020e+05, 0.10030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10030e+05, 0.10040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10040e+05, 0.10050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10050e+05, 0.10060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10060e+05, 0.10070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10070e+05, 0.10080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10080e+05, 0.10090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10090e+05, 0.10100e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10100e+05, 0.10110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10110e+05, 0.10120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10120e+05, 0.10130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10130e+05, 0.10140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10140e+05, 0.10150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10150e+05, 0.10160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10160e+05, 0.10170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10170e+05, 0.10180e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.h b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.h
deleted file mode 100644
index 81166b8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA3.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_moca3_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.P b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.P
deleted file mode 100644
index 1d1b1c9..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int moca4_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.c b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.c
deleted file mode 100644
index 8e7be8e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.c
+++ /dev/null
@@ -1,206 +0,0 @@
-/* MOCA4.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine moca4(a,inu) >*/
-/* Subroutine */ int moca4_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 10180.,10190.,0.,0.,0.,0.,0.,0.,10190.,10200.,0.,0.,0.,0.,0.,0.,
- 10200.,10210.,0.,0.,0.,0.,0.,0.,10210.,10220.,0.,0.,0.,0.,0.,0.,
- 10220.,10230.,0.,0.,0.,0.,0.,0.,10230.,10240.,0.,0.,0.,0.,0.,0.,
- 10240.,10250.,0.,0.,0.,0.,0.,0.,10250.,10260.,0.,0.,0.,0.,0.,0.,
- 10260.,10270.,0.,0.,0.,0.,0.,0.,10270.,10280.,0.,0.,0.,0.,0.,0.,
- 10280.,10290.,0.,0.,0.,0.,0.,0.,10290.,10300.,0.,0.,0.,0.,0.,0.,
- 10300.,10310.,0.,0.,0.,0.,0.,0.,10310.,10320.,0.,0.,0.,0.,0.,0.,
- 10320.,10330.,0.,0.,0.,0.,0.,0.,10330.,10340.,0.,0.,0.,0.,0.,0.,
- 10340.,10350.,0.,0.,0.,0.,0.,0.,10350.,10360.,0.,0.,0.,0.,0.,0.,
- 10360.,10370.,0.,0.,0.,0.,0.,0.,10370.,10380.,0.,0.,0.,0.,0.,0.,
- 10380.,10390.,0.,0.,0.,0.,0.,0.,10390.,10400.,0.,0.,0.,0.,0.,0.,
- 10400.,10410.,0.,0.,0.,0.,0.,0.,10410.,10420.,0.,0.,0.,0.,0.,0.,
- 10420.,10430.,0.,0.,0.,0.,0.,0.,10430.,10440.,0.,0.,0.,0.,0.,0.,
- 10440.,10450.,0.,0.,0.,0.,0.,0.,10450.,10460.,0.,0.,0.,0.,0.,0.,
- 10460.,10470.,0.,0.,0.,0.,0.,0.,10470.,10480.,0.,0.,0.,0.,0.,0.,
- 10480.,10490.,0.,0.,0.,0.,0.,0.,10490.,10500.,0.,0.,0.,0.,0.,0.,
- 10500.,10510.,0.,0.,0.,0.,0.,0.,10510.,10520.,0.,0.,0.,0.,0.,0.,
- 10520.,10530.,0.,0.,0.,0.,0.,0.,10530.,10540.,0.,0.,0.,0.,0.,0.,
- 10540.,10550.,0.,0.,0.,0.,0.,0.,10550.,10560.,0.,0.,0.,0.,0.,0.,
- 10560.,10570.,0.,0.,0.,0.,0.,0.,10570.,10580.,0.,0.,0.,0.,0.,0.,
- 10580.,10590.,0.,0.,0.,0.,0.,0.,10590.,10600.,0.,0.,0.,0.,0.,0.,
- 10600.,10610.,0.,0.,0.,0.,0.,0.,10610.,10620.,0.,0.,0.,0.,0.,0.,
- 10620.,10630.,0.,0.,0.,0.,0.,0.,10630.,10640.,0.,0.,0.,0.,0.,0.,
- 10640.,10650.,0.,0.,0.,0.,0.,0.,10650.,10660.,0.,0.,0.,0.,0.,0.,
- 10660.,10670.,0.,0.,0.,0.,0.,0.,10670.,10680.,0.,0.,0.,0.,0.,0.,
- 10680.,10690.,0.,0.,0.,0.,0.,0.,10690.,10700.,0.,0.,0.,0.,0.,0.,
- 10700.,10710.,0.,0.,0.,0.,0.,0.,10710.,10720.,0.,0.,0.,0.,0.,0.,
- 10720.,10730.,0.,0.,0.,0.,0.,0.,10730.,10740.,0.,0.,0.,0.,0.,0.,
- 10740.,10750.,0.,0.,0.,0.,0.,0.,10750.,10760.,0.,0.,0.,0.,0.,0.,
- 10760.,10770.,0.,0.,0.,0.,0.,0.,10770.,10780.,0.,0.,0.,0.,0.,0.,
- 10780.,10790.,0.,0.,0.,0.,0.,0.,10790.,10800.,0.,0.,0.,0.,0.,0.,
- 10800.,10810.,0.,0.,0.,0.,0.,0.,10810.,10820.,0.,0.,0.,0.,0.,0.,
- 10820.,10830.,0.,0.,0.,0.,0.,0.,10830.,10840.,0.,0.,0.,0.,0.,0.,
- 10840.,10850.,0.,0.,0.,0.,0.,0.,10850.,10860.,0.,0.,0.,0.,0.,0.,
- 10860.,10870.,0.,0.,0.,0.,0.,0.,10870.,10880.,0.,0.,0.,0.,0.,0.,
- 10880.,10890.,0.,0.,0.,0.,0.,0.,10890.,10900.,0.,0.,0.,0.,0.,0.,
- 10900.,10910.,0.,0.,0.,0.,0.,0.,10910.,10920.,0.,0.,0.,0.,0.,0.,
- 10920.,10930.,0.,0.,0.,0.,0.,0.,10930.,10940.,0.,0.,0.,0.,0.,0.,
- 10940.,10950.,0.,0.,0.,0.,0.,0.,10950.,10960.,0.,0.,0.,0.,0.,0.,
- 10960.,10970.,0.,0.,0.,0.,0.,0.,10970.,10980.,0.,0.,0.,0.,0.,0.,
- 10980.,10990.,0.,0.,0.,0.,0.,0.,10990.,1.1e4,0.,0.,0.,0.,0.,0.,
- 1.1e4,11010.,0.,0.,0.,0.,0.,0.,11010.,11020.,0.,0.,0.,0.,0.,0.,
- 11020.,11030.,0.,0.,0.,0.,0.,0.,11030.,11040.,0.,0.,0.,0.,0.,0.,
- 11040.,11050.,0.,0.,0.,0.,0.,0.,11050.,11060.,0.,0.,0.,0.,0.,0.,
- 11060.,11070.,0.,0.,0.,0.,0.,0.,11070.,11080.,0.,0.,0.,0.,0.,0.,
- 11080.,11090.,0.,0.,0.,0.,0.,0.,11090.,11100.,0.,0.,0.,0.,0.,0.,
- 11100.,11110.,0.,0.,0.,0.,0.,0.,11110.,11120.,0.,0.,0.,0.,0.,0.,
- 11120.,11130.,0.,0.,0.,0.,0.,0.,11130.,11140.,0.,0.,0.,0.,0.,0.,
- 11140.,11150.,0.,0.,0.,0.,0.,0.,11150.,11160.,0.,0.,0.,0.,0.,0.,
- 11160.,11170.,0.,0.,0.,0.,0.,0.,11170.,11180.,0.,0.,0.,0.,0.,0.,
- 11180.,11190.,0.,0.,0.,0.,0.,0.,11190.,11200.,0.,0.,0.,0.,0.,0.,
- 11200.,11210.,0.,0.,0.,0.,0.,0.,11210.,11220.,0.,0.,0.,0.,0.,0.,
- 11220.,11230.,0.,0.,0.,0.,0.,0.,11230.,11240.,0.,0.,0.,0.,0.,0.,
- 11240.,11250.,0.,0.,0.,0.,0.,0.,11250.,11260.,0.,0.,0.,0.,0.,0.,
- 11260.,11270.,0.,0.,0.,0.,0.,0.,11270.,11280.,0.,0.,0.,0.,0.,0.,
- 11280.,11290.,0.,0.,0.,0.,0.,0.,11290.,11300.,0.,0.,0.,0.,0.,0.,
- 11300.,11310.,0.,0.,0.,0.,0.,0.,11310.,11320.,0.,0.,0.,0.,0.,0.,
- 11320.,11330.,0.,0.,0.,0.,0.,0.,11330.,11340.,0.,0.,0.,0.,0.,0.,
- 11340.,11350.,0.,0.,0.,0.,0.,0.,11350.,11360.,0.,0.,0.,0.,0.,0.,
- 11360.,11370.,0.,0.,0.,0.,0.,0.,11370.,11380.,0.,0.,0.,0.,0.,0.,
- 11380.,11390.,0.,0.,0.,0.,0.,0.,11390.,11400.,0.,0.,0.,0.,0.,0.,
- 11400.,11410.,0.,0.,0.,0.,0.,0.,11410.,11420.,0.,0.,0.,0.,0.,0.,
- 11420.,11430.,0.,0.,0.,0.,0.,0.,11430.,11440.,0.,0.,0.,0.,0.,0.,
- 11440.,11450.,0.,0.,0.,0.,0.,0.,11450.,11460.,0.,0.,0.,0.,0.,0.,
- 11460.,11470.,0.,0.,0.,0.,0.,0.,11470.,11480.,0.,0.,0.,0.,0.,0.,
- 11480.,11490.,0.,0.,0.,0.,0.,0.,11490.,11500.,0.,0.,0.,0.,0.,0.,
- 11500.,11510.,0.,0.,0.,0.,0.,0.,11510.,11520.,0.,0.,0.,0.,0.,0.,
- 11520.,11530.,0.,0.,0.,0.,0.,0.,11530.,11540.,0.,0.,0.,0.,0.,0.,
- 11540.,11550.,0.,0.,0.,0.,0.,0.,11550.,11560.,0.,0.,0.,0.,0.,0.,
- 11560.,11570.,0.,0.,0.,0.,0.,0.,11570.,11580.,0.,0.,0.,0.,0.,0.,
- 11580.,11590.,0.,0.,0.,0.,0.,0.,11590.,11600.,0.,0.,0.,0.,0.,0.,
- 11600.,11610.,0.,0.,0.,0.,0.,0.,11610.,11620.,0.,0.,0.,0.,0.,0.,
- 11620.,11630.,0.,0.,0.,0.,0.,0.,11630.,11640.,0.,0.,0.,0.,0.,0.,
- 11640.,11650.,0.,0.,0.,0.,0.,0.,11650.,11660.,0.,0.,0.,0.,0.,0.,
- 11660.,11670.,0.,0.,0.,0.,0.,0.,11670.,11680.,0.,0.,0.,0.,0.,0.,
- 11680.,11690.,0.,0.,0.,0.,0.,0.,11690.,11700.,0.,0.,0.,0.,0.,0.,
- 11700.,11710.,0.,0.,0.,0.,0.,0.,11710.,11720.,0.,0.,0.,0.,0.,0.,
- 11720.,11730.,0.,0.,0.,0.,0.,0.,11730.,11740.,0.,0.,0.,0.,0.,0.,
- 11740.,11750.,0.,0.,0.,0.,0.,0.,11750.,11760.,0.,0.,0.,0.,0.,0.,
- 11760.,11770.,0.,0.,0.,0.,0.,0.,11770.,11780.,0.,0.,0.,0.,0.,0.,
- 11780.,11790.,0.,0.,0.,0.,0.,0.,11790.,11800.,0.,0.,0.,0.,0.,0.,
- 11800.,11810.,0.,0.,0.,0.,0.,0.,11810.,11820.,0.,0.,0.,0.,0.,0.,
- 11820.,11830.,0.,0.,0.,0.,0.,0.,11830.,11840.,0.,0.,0.,0.,0.,0.,
- 11840.,11850.,0.,0.,0.,0.,0.,0.,11850.,11860.,0.,0.,0.,0.,0.,0.,
- 11860.,11870.,0.,0.,0.,0.,0.,0.,11870.,11880.,0.,0.,0.,0.,0.,0.,
- 11880.,11890.,0.,0.,0.,0.,0.,0.,11890.,11900.,0.,0.,0.,0.,0.,0.,
- 11900.,11910.,0.,0.,0.,0.,0.,0.,11910.,11920.,0.,0.,0.,0.,0.,0.,
- 11920.,11930.,0.,0.,0.,0.,0.,0.,11930.,11940.,0.,0.,0.,0.,0.,0.,
- 11940.,11950.,0.,0.,0.,0.,0.,0.,11950.,11960.,0.,0.,0.,0.,0.,0.,
- 11960.,11970.,0.,0.,0.,0.,0.,0.,11970.,11980.,0.,0.,0.,0.,0.,0.,
- 11980.,11990.,0.,0.,0.,0.,0.,0.,11990.,1.2e4,0.,0.,0.,0.,0.,0.,
- 1.2e4,12010.,0.,0.,0.,0.,0.,0.,12010.,12020.,0.,0.,0.,0.,0.,0.,
- 12020.,12030.,0.,0.,0.,0.,0.,0.,12030.,12040.,0.,0.,0.,0.,0.,0.,
- 12040.,12050.,0.,0.,0.,0.,0.,0.,12050.,12060.,0.,0.,0.,0.,0.,0.,
- 12060.,12070.,0.,0.,0.,0.,0.,0.,12070.,12080.,0.,0.,0.,0.,0.,0.,
- 12080.,12090.,0.,0.,0.,0.,0.,0.,12090.,12100.,0.,0.,0.,0.,0.,0.,
- 12100.,12110.,0.,0.,0.,0.,0.,0.,12110.,12120.,0.,0.,0.,0.,0.,0.,
- 12120.,12130.,0.,0.,0.,0.,0.,0.,12130.,12140.,0.,0.,0.,0.,0.,0.,
- 12140.,12150.,0.,0.,0.,0.,0.,0.,12150.,12160.,0.,0.,0.,0.,0.,0.,
- 12160.,12170.,0.,0.,0.,0.,0.,0.,12170.,12180.,0.,0.,0.,0.,0.,0.,
- 12180.,12190.,0.,0.,0.,0.,0.,0.,12190.,12200.,0.,0.,0.,0.,0.,0.,
- 12200.,12210.,0.,0.,0.,0.,0.,0.,12210.,12220.,0.,0.,0.,0.,0.,0.,
- 12220.,12230.,0.,0.,0.,0.,0.,0.,12230.,12240.,0.,0.,0.,0.,0.,0.,
- 12240.,12250.,0.,0.,0.,0.,0.,0.,12250.,12260.,0.,0.,0.,0.,0.,0.,
- 12260.,12270.,0.,0.,0.,0.,0.,0.,12270.,12280.,0.,0.,0.,0.,0.,0.,
- 12280.,12290.,0.,0.,0.,0.,0.,0.,12290.,12300.,0.,0.,0.,0.,0.,0.,
- 12300.,12310.,0.,0.,0.,0.,0.,0.,12310.,12320.,0.,0.,0.,0.,0.,0.,
- 12320.,12330.,0.,0.,0.,0.,0.,0.,12330.,12340.,0.,0.,0.,0.,0.,0.,
- 12340.,12350.,0.,0.,0.,0.,0.,0.,12350.,12360.,0.,0.,0.,0.,0.,0.,
- 12360.,12370.,0.,0.,0.,0.,0.,0.,12370.,12380.,0.,0.,0.,0.,0.,0.,
- 12380.,12390.,0.,0.,0.,0.,0.,0.,12390.,12400.,0.,0.,0.,0.,0.,0.,
- 12400.,12410.,0.,0.,0.,0.,0.,0.,12410.,12420.,0.,0.,0.,0.,0.,0.,
- 12420.,12430.,0.,0.,0.,0.,0.,0.,12430.,12440.,0.,0.,0.,0.,0.,0.,
- 12440.,12450.,0.,0.,0.,0.,0.,0.,12450.,12460.,0.,0.,0.,0.,0.,0.,
- 12460.,12470.,0.,0.,0.,0.,0.,0.,12470.,12480.,0.,0.,0.,0.,0.,0.,
- 12480.,12490.,0.,0.,0.,0.,0.,0.,12490.,12500.,0.,0.,0.,0.,0.,0.,
- 12500.,12510.,0.,0.,0.,0.,0.,0.,12510.,12520.,0.,0.,0.,0.,0.,0.,
- 12520.,12530.,0.,0.,0.,0.,0.,0.,12530.,12540.,0.,0.,0.,0.,0.,0.,
- 12540.,12550.,0.,0.,0.,0.,0.,0.,12550.,12560.,0.,0.,0.,0.,0.,0.,
- 12560.,12570.,0.,0.,0.,0.,0.,0.,12570.,12580.,0.,0.,0.,0.,0.,0.,
- 12580.,12590.,0.,0.,0.,0.,0.,0.,12590.,12600.,0.,0.,0.,0.,0.,0.,
- 12600.,12610.,0.,0.,0.,0.,0.,0.,12610.,12620.,0.,0.,0.,0.,0.,0.,
- 12620.,12630.,0.,0.,0.,0.,0.,0.,12630.,12640.,0.,0.,0.,0.,0.,0.,
- 12640.,12650.,0.,0.,0.,0.,0.,0.,12650.,12660.,0.,0.,0.,0.,0.,0.,
- 12660.,12670.,0.,0.,0.,0.,0.,0.,12670.,12680.,0.,0.,0.,0.,0.,0.,
- 12680.,12690.,0.,0.,0.,0.,0.,0.,12690.,12700.,0.,0.,0.,0.,0.,0.,
- 12700.,12710.,0.,0.,0.,0.,0.,0.,12710.,12720.,0.,0.,0.,0.,0.,0.,
- 12720.,12730.,0.,0.,0.,0.,0.,0.,12730.,12740. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* carbon monoxide (10180 - 12730 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* moca4_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.f b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.f
deleted file mode 100644
index 7a911bf..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine moca4(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c carbon monoxide (10180 - 12730 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10180e+05, 0.10190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10190e+05, 0.10200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10200e+05, 0.10210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10210e+05, 0.10220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10220e+05, 0.10230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10230e+05, 0.10240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10240e+05, 0.10250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10250e+05, 0.10260e+05/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10260e+05, 0.10270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10270e+05, 0.10280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10280e+05, 0.10290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10290e+05, 0.10300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10300e+05, 0.10310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10310e+05, 0.10320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10320e+05, 0.10330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10330e+05, 0.10340e+05/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10340e+05, 0.10350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10350e+05, 0.10360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10360e+05, 0.10370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10370e+05, 0.10380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10380e+05, 0.10390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10390e+05, 0.10400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10400e+05, 0.10410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10410e+05, 0.10420e+05/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10420e+05, 0.10430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10430e+05, 0.10440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10440e+05, 0.10450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10450e+05, 0.10460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10460e+05, 0.10470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10470e+05, 0.10480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10480e+05, 0.10490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10490e+05, 0.10500e+05/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10500e+05, 0.10510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10510e+05, 0.10520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10520e+05, 0.10530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10530e+05, 0.10540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10540e+05, 0.10550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10550e+05, 0.10560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10560e+05, 0.10570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10570e+05, 0.10580e+05/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10580e+05, 0.10590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10590e+05, 0.10600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10600e+05, 0.10610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10610e+05, 0.10620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10620e+05, 0.10630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10630e+05, 0.10640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10640e+05, 0.10650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10650e+05, 0.10660e+05/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10660e+05, 0.10670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10670e+05, 0.10680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10680e+05, 0.10690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10690e+05, 0.10700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10700e+05, 0.10710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10710e+05, 0.10720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10720e+05, 0.10730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10730e+05, 0.10740e+05/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10740e+05, 0.10750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10750e+05, 0.10760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10760e+05, 0.10770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10770e+05, 0.10780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10780e+05, 0.10790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10790e+05, 0.10800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10800e+05, 0.10810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10810e+05, 0.10820e+05/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10820e+05, 0.10830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10830e+05, 0.10840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10840e+05, 0.10850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10850e+05, 0.10860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10860e+05, 0.10870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10870e+05, 0.10880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10880e+05, 0.10890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10890e+05, 0.10900e+05/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10900e+05, 0.10910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10910e+05, 0.10920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10920e+05, 0.10930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10930e+05, 0.10940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10940e+05, 0.10950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10950e+05, 0.10960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10960e+05, 0.10970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10970e+05, 0.10980e+05/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10980e+05, 0.10990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10990e+05, 0.11000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11000e+05, 0.11010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11010e+05, 0.11020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11020e+05, 0.11030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11030e+05, 0.11040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11040e+05, 0.11050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11050e+05, 0.11060e+05/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11060e+05, 0.11070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11070e+05, 0.11080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11080e+05, 0.11090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11090e+05, 0.11100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11100e+05, 0.11110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11110e+05, 0.11120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11120e+05, 0.11130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11130e+05, 0.11140e+05/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11140e+05, 0.11150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11150e+05, 0.11160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11160e+05, 0.11170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11170e+05, 0.11180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11180e+05, 0.11190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11190e+05, 0.11200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11200e+05, 0.11210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11210e+05, 0.11220e+05/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11220e+05, 0.11230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11230e+05, 0.11240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11240e+05, 0.11250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11250e+05, 0.11260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11260e+05, 0.11270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11270e+05, 0.11280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11280e+05, 0.11290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11290e+05, 0.11300e+05/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11300e+05, 0.11310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11310e+05, 0.11320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11320e+05, 0.11330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11330e+05, 0.11340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11340e+05, 0.11350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11350e+05, 0.11360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11360e+05, 0.11370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11370e+05, 0.11380e+05/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11380e+05, 0.11390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11390e+05, 0.11400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11400e+05, 0.11410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11410e+05, 0.11420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11420e+05, 0.11430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11430e+05, 0.11440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11440e+05, 0.11450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11450e+05, 0.11460e+05/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11460e+05, 0.11470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11470e+05, 0.11480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11480e+05, 0.11490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11490e+05, 0.11500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11500e+05, 0.11510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11510e+05, 0.11520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11520e+05, 0.11530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11530e+05, 0.11540e+05/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11540e+05, 0.11550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11550e+05, 0.11560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11560e+05, 0.11570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11570e+05, 0.11580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11580e+05, 0.11590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11590e+05, 0.11600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11600e+05, 0.11610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11610e+05, 0.11620e+05/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11620e+05, 0.11630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11630e+05, 0.11640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11640e+05, 0.11650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11650e+05, 0.11660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11660e+05, 0.11670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11670e+05, 0.11680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11680e+05, 0.11690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11690e+05, 0.11700e+05/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11700e+05, 0.11710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11710e+05, 0.11720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11720e+05, 0.11730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11730e+05, 0.11740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11740e+05, 0.11750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11750e+05, 0.11760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11760e+05, 0.11770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11770e+05, 0.11780e+05/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11780e+05, 0.11790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11790e+05, 0.11800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11800e+05, 0.11810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11810e+05, 0.11820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11820e+05, 0.11830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11830e+05, 0.11840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11840e+05, 0.11850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11850e+05, 0.11860e+05/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11860e+05, 0.11870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11870e+05, 0.11880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11880e+05, 0.11890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11890e+05, 0.11900e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11900e+05, 0.11910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11910e+05, 0.11920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11920e+05, 0.11930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11930e+05, 0.11940e+05/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11940e+05, 0.11950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11950e+05, 0.11960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11960e+05, 0.11970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11970e+05, 0.11980e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11980e+05, 0.11990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11990e+05, 0.12000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12000e+05, 0.12010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12010e+05, 0.12020e+05/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12020e+05, 0.12030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12030e+05, 0.12040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12040e+05, 0.12050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12050e+05, 0.12060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12060e+05, 0.12070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12070e+05, 0.12080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12080e+05, 0.12090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12090e+05, 0.12100e+05/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12100e+05, 0.12110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12110e+05, 0.12120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12120e+05, 0.12130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12130e+05, 0.12140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12140e+05, 0.12150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12150e+05, 0.12160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12160e+05, 0.12170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12170e+05, 0.12180e+05/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12180e+05, 0.12190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12190e+05, 0.12200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12200e+05, 0.12210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12210e+05, 0.12220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12220e+05, 0.12230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12230e+05, 0.12240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12240e+05, 0.12250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12250e+05, 0.12260e+05/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12260e+05, 0.12270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12270e+05, 0.12280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12280e+05, 0.12290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12290e+05, 0.12300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12300e+05, 0.12310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12310e+05, 0.12320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12320e+05, 0.12330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12330e+05, 0.12340e+05/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12340e+05, 0.12350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12350e+05, 0.12360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12360e+05, 0.12370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12370e+05, 0.12380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12380e+05, 0.12390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12390e+05, 0.12400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12400e+05, 0.12410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12410e+05, 0.12420e+05/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12420e+05, 0.12430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12430e+05, 0.12440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12440e+05, 0.12450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12450e+05, 0.12460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12460e+05, 0.12470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12470e+05, 0.12480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12480e+05, 0.12490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12490e+05, 0.12500e+05/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12500e+05, 0.12510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12510e+05, 0.12520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12520e+05, 0.12530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12530e+05, 0.12540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12540e+05, 0.12550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12550e+05, 0.12560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12560e+05, 0.12570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12570e+05, 0.12580e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12580e+05, 0.12590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12590e+05, 0.12600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12600e+05, 0.12610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12610e+05, 0.12620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12620e+05, 0.12630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12630e+05, 0.12640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12640e+05, 0.12650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12650e+05, 0.12660e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12660e+05, 0.12670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12670e+05, 0.12680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12680e+05, 0.12690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12690e+05, 0.12700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12700e+05, 0.12710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12710e+05, 0.12720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12720e+05, 0.12730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12730e+05, 0.12740e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.h b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.h
deleted file mode 100644
index 955bba4..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA4.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_moca4_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.P b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.P
deleted file mode 100644
index 54c0b40..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int moca5_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.c b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.c
deleted file mode 100644
index 7a18f56..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.c
+++ /dev/null
@@ -1,206 +0,0 @@
-/* MOCA5.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine moca5(a,inu) >*/
-/* Subroutine */ int moca5_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 12740.,12750.,0.,0.,0.,0.,0.,0.,12750.,12760.,0.,0.,0.,0.,0.,0.,
- 12760.,12770.,0.,0.,0.,0.,0.,0.,12770.,12780.,0.,0.,0.,0.,0.,0.,
- 12780.,12790.,0.,0.,0.,0.,0.,0.,12790.,12800.,0.,0.,0.,0.,0.,0.,
- 12800.,12810.,0.,0.,0.,0.,0.,0.,12810.,12820.,0.,0.,0.,0.,0.,0.,
- 12820.,12830.,0.,0.,0.,0.,0.,0.,12830.,12840.,0.,0.,0.,0.,0.,0.,
- 12840.,12850.,0.,0.,0.,0.,0.,0.,12850.,12860.,0.,0.,0.,0.,0.,0.,
- 12860.,12870.,0.,0.,0.,0.,0.,0.,12870.,12880.,0.,0.,0.,0.,0.,0.,
- 12880.,12890.,0.,0.,0.,0.,0.,0.,12890.,12900.,0.,0.,0.,0.,0.,0.,
- 12900.,12910.,0.,0.,0.,0.,0.,0.,12910.,12920.,0.,0.,0.,0.,0.,0.,
- 12920.,12930.,0.,0.,0.,0.,0.,0.,12930.,12940.,0.,0.,0.,0.,0.,0.,
- 12940.,12950.,0.,0.,0.,0.,0.,0.,12950.,12960.,0.,0.,0.,0.,0.,0.,
- 12960.,12970.,0.,0.,0.,0.,0.,0.,12970.,12980.,0.,0.,0.,0.,0.,0.,
- 12980.,12990.,0.,0.,0.,0.,0.,0.,12990.,1.3e4,0.,0.,0.,0.,0.,0.,
- 1.3e4,13010.,0.,0.,0.,0.,0.,0.,13010.,13020.,0.,0.,0.,0.,0.,0.,
- 13020.,13030.,0.,0.,0.,0.,0.,0.,13030.,13040.,0.,0.,0.,0.,0.,0.,
- 13040.,13050.,0.,0.,0.,0.,0.,0.,13050.,13060.,0.,0.,0.,0.,0.,0.,
- 13060.,13070.,0.,0.,0.,0.,0.,0.,13070.,13080.,0.,0.,0.,0.,0.,0.,
- 13080.,13090.,0.,0.,0.,0.,0.,0.,13090.,13100.,0.,0.,0.,0.,0.,0.,
- 13100.,13110.,0.,0.,0.,0.,0.,0.,13110.,13120.,0.,0.,0.,0.,0.,0.,
- 13120.,13130.,0.,0.,0.,0.,0.,0.,13130.,13140.,0.,0.,0.,0.,0.,0.,
- 13140.,13150.,0.,0.,0.,0.,0.,0.,13150.,13160.,0.,0.,0.,0.,0.,0.,
- 13160.,13170.,0.,0.,0.,0.,0.,0.,13170.,13180.,0.,0.,0.,0.,0.,0.,
- 13180.,13190.,0.,0.,0.,0.,0.,0.,13190.,13200.,0.,0.,0.,0.,0.,0.,
- 13200.,13210.,0.,0.,0.,0.,0.,0.,13210.,13220.,0.,0.,0.,0.,0.,0.,
- 13220.,13230.,0.,0.,0.,0.,0.,0.,13230.,13240.,0.,0.,0.,0.,0.,0.,
- 13240.,13250.,0.,0.,0.,0.,0.,0.,13250.,13260.,0.,0.,0.,0.,0.,0.,
- 13260.,13270.,0.,0.,0.,0.,0.,0.,13270.,13280.,0.,0.,0.,0.,0.,0.,
- 13280.,13290.,0.,0.,0.,0.,0.,0.,13290.,13300.,0.,0.,0.,0.,0.,0.,
- 13300.,13310.,0.,0.,0.,0.,0.,0.,13310.,13320.,0.,0.,0.,0.,0.,0.,
- 13320.,13330.,0.,0.,0.,0.,0.,0.,13330.,13340.,0.,0.,0.,0.,0.,0.,
- 13340.,13350.,0.,0.,0.,0.,0.,0.,13350.,13360.,0.,0.,0.,0.,0.,0.,
- 13360.,13370.,0.,0.,0.,0.,0.,0.,13370.,13380.,0.,0.,0.,0.,0.,0.,
- 13380.,13390.,0.,0.,0.,0.,0.,0.,13390.,13400.,0.,0.,0.,0.,0.,0.,
- 13400.,13410.,0.,0.,0.,0.,0.,0.,13410.,13420.,0.,0.,0.,0.,0.,0.,
- 13420.,13430.,0.,0.,0.,0.,0.,0.,13430.,13440.,0.,0.,0.,0.,0.,0.,
- 13440.,13450.,0.,0.,0.,0.,0.,0.,13450.,13460.,0.,0.,0.,0.,0.,0.,
- 13460.,13470.,0.,0.,0.,0.,0.,0.,13470.,13480.,0.,0.,0.,0.,0.,0.,
- 13480.,13490.,0.,0.,0.,0.,0.,0.,13490.,13500.,0.,0.,0.,0.,0.,0.,
- 13500.,13510.,0.,0.,0.,0.,0.,0.,13510.,13520.,0.,0.,0.,0.,0.,0.,
- 13520.,13530.,0.,0.,0.,0.,0.,0.,13530.,13540.,0.,0.,0.,0.,0.,0.,
- 13540.,13550.,0.,0.,0.,0.,0.,0.,13550.,13560.,0.,0.,0.,0.,0.,0.,
- 13560.,13570.,0.,0.,0.,0.,0.,0.,13570.,13580.,0.,0.,0.,0.,0.,0.,
- 13580.,13590.,0.,0.,0.,0.,0.,0.,13590.,13600.,0.,0.,0.,0.,0.,0.,
- 13600.,13610.,0.,0.,0.,0.,0.,0.,13610.,13620.,0.,0.,0.,0.,0.,0.,
- 13620.,13630.,0.,0.,0.,0.,0.,0.,13630.,13640.,0.,0.,0.,0.,0.,0.,
- 13640.,13650.,0.,0.,0.,0.,0.,0.,13650.,13660.,0.,0.,0.,0.,0.,0.,
- 13660.,13670.,0.,0.,0.,0.,0.,0.,13670.,13680.,0.,0.,0.,0.,0.,0.,
- 13680.,13690.,0.,0.,0.,0.,0.,0.,13690.,13700.,0.,0.,0.,0.,0.,0.,
- 13700.,13710.,0.,0.,0.,0.,0.,0.,13710.,13720.,0.,0.,0.,0.,0.,0.,
- 13720.,13730.,0.,0.,0.,0.,0.,0.,13730.,13740.,0.,0.,0.,0.,0.,0.,
- 13740.,13750.,0.,0.,0.,0.,0.,0.,13750.,13760.,0.,0.,0.,0.,0.,0.,
- 13760.,13770.,0.,0.,0.,0.,0.,0.,13770.,13780.,0.,0.,0.,0.,0.,0.,
- 13780.,13790.,0.,0.,0.,0.,0.,0.,13790.,13800.,0.,0.,0.,0.,0.,0.,
- 13800.,13810.,0.,0.,0.,0.,0.,0.,13810.,13820.,0.,0.,0.,0.,0.,0.,
- 13820.,13830.,0.,0.,0.,0.,0.,0.,13830.,13840.,0.,0.,0.,0.,0.,0.,
- 13840.,13850.,0.,0.,0.,0.,0.,0.,13850.,13860.,0.,0.,0.,0.,0.,0.,
- 13860.,13870.,0.,0.,0.,0.,0.,0.,13870.,13880.,0.,0.,0.,0.,0.,0.,
- 13880.,13890.,0.,0.,0.,0.,0.,0.,13890.,13900.,0.,0.,0.,0.,0.,0.,
- 13900.,13910.,0.,0.,0.,0.,0.,0.,13910.,13920.,0.,0.,0.,0.,0.,0.,
- 13920.,13930.,0.,0.,0.,0.,0.,0.,13930.,13940.,0.,0.,0.,0.,0.,0.,
- 13940.,13950.,0.,0.,0.,0.,0.,0.,13950.,13960.,0.,0.,0.,0.,0.,0.,
- 13960.,13970.,0.,0.,0.,0.,0.,0.,13970.,13980.,0.,0.,0.,0.,0.,0.,
- 13980.,13990.,0.,0.,0.,0.,0.,0.,13990.,1.4e4,0.,0.,0.,0.,0.,0.,
- 1.4e4,14010.,0.,0.,0.,0.,0.,0.,14010.,14020.,0.,0.,0.,0.,0.,0.,
- 14020.,14030.,0.,0.,0.,0.,0.,0.,14030.,14040.,0.,0.,0.,0.,0.,0.,
- 14040.,14050.,0.,0.,0.,0.,0.,0.,14050.,14060.,0.,0.,0.,0.,0.,0.,
- 14060.,14070.,0.,0.,0.,0.,0.,0.,14070.,14080.,0.,0.,0.,0.,0.,0.,
- 14080.,14090.,0.,0.,0.,0.,0.,0.,14090.,14100.,0.,0.,0.,0.,0.,0.,
- 14100.,14110.,0.,0.,0.,0.,0.,0.,14110.,14120.,0.,0.,0.,0.,0.,0.,
- 14120.,14130.,0.,0.,0.,0.,0.,0.,14130.,14140.,0.,0.,0.,0.,0.,0.,
- 14140.,14150.,0.,0.,0.,0.,0.,0.,14150.,14160.,0.,0.,0.,0.,0.,0.,
- 14160.,14170.,0.,0.,0.,0.,0.,0.,14170.,14180.,0.,0.,0.,0.,0.,0.,
- 14180.,14190.,0.,0.,0.,0.,0.,0.,14190.,14200.,0.,0.,0.,0.,0.,0.,
- 14200.,14210.,0.,0.,0.,0.,0.,0.,14210.,14220.,0.,0.,0.,0.,0.,0.,
- 14220.,14230.,0.,0.,0.,0.,0.,0.,14230.,14240.,0.,0.,0.,0.,0.,0.,
- 14240.,14250.,0.,0.,0.,0.,0.,0.,14250.,14260.,0.,0.,0.,0.,0.,0.,
- 14260.,14270.,0.,0.,0.,0.,0.,0.,14270.,14280.,0.,0.,0.,0.,0.,0.,
- 14280.,14290.,0.,0.,0.,0.,0.,0.,14290.,14300.,0.,0.,0.,0.,0.,0.,
- 14300.,14310.,0.,0.,0.,0.,0.,0.,14310.,14320.,0.,0.,0.,0.,0.,0.,
- 14320.,14330.,0.,0.,0.,0.,0.,0.,14330.,14340.,0.,0.,0.,0.,0.,0.,
- 14340.,14350.,0.,0.,0.,0.,0.,0.,14350.,14360.,0.,0.,0.,0.,0.,0.,
- 14360.,14370.,0.,0.,0.,0.,0.,0.,14370.,14380.,0.,0.,0.,0.,0.,0.,
- 14380.,14390.,0.,0.,0.,0.,0.,0.,14390.,14400.,0.,0.,0.,0.,0.,0.,
- 14400.,14410.,0.,0.,0.,0.,0.,0.,14410.,14420.,0.,0.,0.,0.,0.,0.,
- 14420.,14430.,0.,0.,0.,0.,0.,0.,14430.,14440.,0.,0.,0.,0.,0.,0.,
- 14440.,14450.,0.,0.,0.,0.,0.,0.,14450.,14460.,0.,0.,0.,0.,0.,0.,
- 14460.,14470.,0.,0.,0.,0.,0.,0.,14470.,14480.,0.,0.,0.,0.,0.,0.,
- 14480.,14490.,0.,0.,0.,0.,0.,0.,14490.,14500.,0.,0.,0.,0.,0.,0.,
- 14500.,14510.,0.,0.,0.,0.,0.,0.,14510.,14520.,0.,0.,0.,0.,0.,0.,
- 14520.,14530.,0.,0.,0.,0.,0.,0.,14530.,14540.,0.,0.,0.,0.,0.,0.,
- 14540.,14550.,0.,0.,0.,0.,0.,0.,14550.,14560.,0.,0.,0.,0.,0.,0.,
- 14560.,14570.,0.,0.,0.,0.,0.,0.,14570.,14580.,0.,0.,0.,0.,0.,0.,
- 14580.,14590.,0.,0.,0.,0.,0.,0.,14590.,14600.,0.,0.,0.,0.,0.,0.,
- 14600.,14610.,0.,0.,0.,0.,0.,0.,14610.,14620.,0.,0.,0.,0.,0.,0.,
- 14620.,14630.,0.,0.,0.,0.,0.,0.,14630.,14640.,0.,0.,0.,0.,0.,0.,
- 14640.,14650.,0.,0.,0.,0.,0.,0.,14650.,14660.,0.,0.,0.,0.,0.,0.,
- 14660.,14670.,0.,0.,0.,0.,0.,0.,14670.,14680.,0.,0.,0.,0.,0.,0.,
- 14680.,14690.,0.,0.,0.,0.,0.,0.,14690.,14700.,0.,0.,0.,0.,0.,0.,
- 14700.,14710.,0.,0.,0.,0.,0.,0.,14710.,14720.,0.,0.,0.,0.,0.,0.,
- 14720.,14730.,0.,0.,0.,0.,0.,0.,14730.,14740.,0.,0.,0.,0.,0.,0.,
- 14740.,14750.,0.,0.,0.,0.,0.,0.,14750.,14760.,0.,0.,0.,0.,0.,0.,
- 14760.,14770.,0.,0.,0.,0.,0.,0.,14770.,14780.,0.,0.,0.,0.,0.,0.,
- 14780.,14790.,0.,0.,0.,0.,0.,0.,14790.,14800.,0.,0.,0.,0.,0.,0.,
- 14800.,14810.,0.,0.,0.,0.,0.,0.,14810.,14820.,0.,0.,0.,0.,0.,0.,
- 14820.,14830.,0.,0.,0.,0.,0.,0.,14830.,14840.,0.,0.,0.,0.,0.,0.,
- 14840.,14850.,0.,0.,0.,0.,0.,0.,14850.,14860.,0.,0.,0.,0.,0.,0.,
- 14860.,14870.,0.,0.,0.,0.,0.,0.,14870.,14880.,0.,0.,0.,0.,0.,0.,
- 14880.,14890.,0.,0.,0.,0.,0.,0.,14890.,14900.,0.,0.,0.,0.,0.,0.,
- 14900.,14910.,0.,0.,0.,0.,0.,0.,14910.,14920.,0.,0.,0.,0.,0.,0.,
- 14920.,14930.,0.,0.,0.,0.,0.,0.,14930.,14940.,0.,0.,0.,0.,0.,0.,
- 14940.,14950.,0.,0.,0.,0.,0.,0.,14950.,14960.,0.,0.,0.,0.,0.,0.,
- 14960.,14970.,0.,0.,0.,0.,0.,0.,14970.,14980.,0.,0.,0.,0.,0.,0.,
- 14980.,14990.,0.,0.,0.,0.,0.,0.,14990.,1.5e4,0.,0.,0.,0.,0.,0.,
- 1.5e4,15010.,0.,0.,0.,0.,0.,0.,15010.,15020.,0.,0.,0.,0.,0.,0.,
- 15020.,15030.,0.,0.,0.,0.,0.,0.,15030.,15040.,0.,0.,0.,0.,0.,0.,
- 15040.,15050.,0.,0.,0.,0.,0.,0.,15050.,15060.,0.,0.,0.,0.,0.,0.,
- 15060.,15070.,0.,0.,0.,0.,0.,0.,15070.,15080.,0.,0.,0.,0.,0.,0.,
- 15080.,15090.,0.,0.,0.,0.,0.,0.,15090.,15100.,0.,0.,0.,0.,0.,0.,
- 15100.,15110.,0.,0.,0.,0.,0.,0.,15110.,15120.,0.,0.,0.,0.,0.,0.,
- 15120.,15130.,0.,0.,0.,0.,0.,0.,15130.,15140.,0.,0.,0.,0.,0.,0.,
- 15140.,15150.,0.,0.,0.,0.,0.,0.,15150.,15160.,0.,0.,0.,0.,0.,0.,
- 15160.,15170.,0.,0.,0.,0.,0.,0.,15170.,15180.,0.,0.,0.,0.,0.,0.,
- 15180.,15190.,0.,0.,0.,0.,0.,0.,15190.,15200.,0.,0.,0.,0.,0.,0.,
- 15200.,15210.,0.,0.,0.,0.,0.,0.,15210.,15220.,0.,0.,0.,0.,0.,0.,
- 15220.,15230.,0.,0.,0.,0.,0.,0.,15230.,15240.,0.,0.,0.,0.,0.,0.,
- 15240.,15250.,0.,0.,0.,0.,0.,0.,15250.,15260.,0.,0.,0.,0.,0.,0.,
- 15260.,15270.,0.,0.,0.,0.,0.,0.,15270.,15280.,0.,0.,0.,0.,0.,0.,
- 15280.,15290.,0.,0.,0.,0.,0.,0.,15290.,15300. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* carbon monoxide (12740 - 15290 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* moca5_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.f b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.f
deleted file mode 100644
index cd2d43b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine moca5(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c carbon monoxide (12740 - 15290 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12740e+05, 0.12750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12750e+05, 0.12760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12760e+05, 0.12770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12770e+05, 0.12780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12780e+05, 0.12790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12790e+05, 0.12800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12800e+05, 0.12810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12810e+05, 0.12820e+05/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12820e+05, 0.12830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12830e+05, 0.12840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12840e+05, 0.12850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12850e+05, 0.12860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12860e+05, 0.12870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12870e+05, 0.12880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12880e+05, 0.12890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12890e+05, 0.12900e+05/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12900e+05, 0.12910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12910e+05, 0.12920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12920e+05, 0.12930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12930e+05, 0.12940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12940e+05, 0.12950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12950e+05, 0.12960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12960e+05, 0.12970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12970e+05, 0.12980e+05/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12980e+05, 0.12990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12990e+05, 0.13000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13000e+05, 0.13010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13010e+05, 0.13020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13020e+05, 0.13030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13030e+05, 0.13040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13040e+05, 0.13050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13050e+05, 0.13060e+05/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13060e+05, 0.13070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13070e+05, 0.13080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13080e+05, 0.13090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13090e+05, 0.13100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13100e+05, 0.13110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13110e+05, 0.13120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13120e+05, 0.13130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13130e+05, 0.13140e+05/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13140e+05, 0.13150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13150e+05, 0.13160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13160e+05, 0.13170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13170e+05, 0.13180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13180e+05, 0.13190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13190e+05, 0.13200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13200e+05, 0.13210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13210e+05, 0.13220e+05/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13220e+05, 0.13230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13230e+05, 0.13240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13240e+05, 0.13250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13250e+05, 0.13260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13260e+05, 0.13270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13270e+05, 0.13280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13280e+05, 0.13290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13290e+05, 0.13300e+05/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13300e+05, 0.13310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13310e+05, 0.13320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13320e+05, 0.13330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13330e+05, 0.13340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13340e+05, 0.13350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13350e+05, 0.13360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13360e+05, 0.13370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13370e+05, 0.13380e+05/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13380e+05, 0.13390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13390e+05, 0.13400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13400e+05, 0.13410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13410e+05, 0.13420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13420e+05, 0.13430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13430e+05, 0.13440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13440e+05, 0.13450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13450e+05, 0.13460e+05/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13460e+05, 0.13470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13470e+05, 0.13480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13480e+05, 0.13490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13490e+05, 0.13500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13500e+05, 0.13510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13510e+05, 0.13520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13520e+05, 0.13530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13530e+05, 0.13540e+05/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13540e+05, 0.13550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13550e+05, 0.13560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13560e+05, 0.13570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13570e+05, 0.13580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13580e+05, 0.13590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13590e+05, 0.13600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13600e+05, 0.13610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13610e+05, 0.13620e+05/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13620e+05, 0.13630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13630e+05, 0.13640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13640e+05, 0.13650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13650e+05, 0.13660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13660e+05, 0.13670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13670e+05, 0.13680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13680e+05, 0.13690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13690e+05, 0.13700e+05/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13700e+05, 0.13710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13710e+05, 0.13720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13720e+05, 0.13730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13730e+05, 0.13740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13740e+05, 0.13750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13750e+05, 0.13760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13760e+05, 0.13770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13770e+05, 0.13780e+05/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13780e+05, 0.13790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13790e+05, 0.13800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13800e+05, 0.13810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13810e+05, 0.13820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13820e+05, 0.13830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13830e+05, 0.13840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13840e+05, 0.13850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13850e+05, 0.13860e+05/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13860e+05, 0.13870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13870e+05, 0.13880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13880e+05, 0.13890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13890e+05, 0.13900e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13900e+05, 0.13910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13910e+05, 0.13920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13920e+05, 0.13930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13930e+05, 0.13940e+05/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13940e+05, 0.13950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13950e+05, 0.13960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13960e+05, 0.13970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13970e+05, 0.13980e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13980e+05, 0.13990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13990e+05, 0.14000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14000e+05, 0.14010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14010e+05, 0.14020e+05/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14020e+05, 0.14030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14030e+05, 0.14040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14040e+05, 0.14050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14050e+05, 0.14060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14060e+05, 0.14070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14070e+05, 0.14080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14080e+05, 0.14090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14090e+05, 0.14100e+05/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14100e+05, 0.14110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14110e+05, 0.14120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14120e+05, 0.14130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14130e+05, 0.14140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14140e+05, 0.14150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14150e+05, 0.14160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14160e+05, 0.14170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14170e+05, 0.14180e+05/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14180e+05, 0.14190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14190e+05, 0.14200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14200e+05, 0.14210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14210e+05, 0.14220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14220e+05, 0.14230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14230e+05, 0.14240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14240e+05, 0.14250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14250e+05, 0.14260e+05/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14260e+05, 0.14270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14270e+05, 0.14280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14280e+05, 0.14290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14290e+05, 0.14300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14300e+05, 0.14310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14310e+05, 0.14320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14320e+05, 0.14330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14330e+05, 0.14340e+05/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14340e+05, 0.14350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14350e+05, 0.14360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14360e+05, 0.14370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14370e+05, 0.14380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14380e+05, 0.14390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14390e+05, 0.14400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14400e+05, 0.14410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14410e+05, 0.14420e+05/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14420e+05, 0.14430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14430e+05, 0.14440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14440e+05, 0.14450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14450e+05, 0.14460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14460e+05, 0.14470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14470e+05, 0.14480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14480e+05, 0.14490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14490e+05, 0.14500e+05/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14500e+05, 0.14510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14510e+05, 0.14520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14520e+05, 0.14530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14530e+05, 0.14540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14540e+05, 0.14550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14550e+05, 0.14560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14560e+05, 0.14570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14570e+05, 0.14580e+05/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14580e+05, 0.14590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14590e+05, 0.14600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14600e+05, 0.14610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14610e+05, 0.14620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14620e+05, 0.14630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14630e+05, 0.14640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14640e+05, 0.14650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14650e+05, 0.14660e+05/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14660e+05, 0.14670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14670e+05, 0.14680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14680e+05, 0.14690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14690e+05, 0.14700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14700e+05, 0.14710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14710e+05, 0.14720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14720e+05, 0.14730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14730e+05, 0.14740e+05/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14740e+05, 0.14750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14750e+05, 0.14760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14760e+05, 0.14770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14770e+05, 0.14780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14780e+05, 0.14790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14790e+05, 0.14800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14800e+05, 0.14810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14810e+05, 0.14820e+05/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14820e+05, 0.14830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14830e+05, 0.14840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14840e+05, 0.14850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14850e+05, 0.14860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14860e+05, 0.14870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14870e+05, 0.14880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14880e+05, 0.14890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14890e+05, 0.14900e+05/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14900e+05, 0.14910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14910e+05, 0.14920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14920e+05, 0.14930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14930e+05, 0.14940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14940e+05, 0.14950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14950e+05, 0.14960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14960e+05, 0.14970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14970e+05, 0.14980e+05/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14980e+05, 0.14990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14990e+05, 0.15000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15000e+05, 0.15010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15010e+05, 0.15020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15020e+05, 0.15030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15030e+05, 0.15040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15040e+05, 0.15050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15050e+05, 0.15060e+05/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15060e+05, 0.15070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15070e+05, 0.15080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15080e+05, 0.15090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15090e+05, 0.15100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15100e+05, 0.15110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15110e+05, 0.15120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15120e+05, 0.15130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15130e+05, 0.15140e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15140e+05, 0.15150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15150e+05, 0.15160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15160e+05, 0.15170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15170e+05, 0.15180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15180e+05, 0.15190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15190e+05, 0.15200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15200e+05, 0.15210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15210e+05, 0.15220e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15220e+05, 0.15230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15230e+05, 0.15240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15240e+05, 0.15250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15250e+05, 0.15260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15260e+05, 0.15270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15270e+05, 0.15280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15280e+05, 0.15290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15290e+05, 0.15300e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.h b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.h
deleted file mode 100644
index bb1d205..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA5.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_moca5_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.P b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.P
deleted file mode 100644
index 0ab6d67..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int moca6_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.c b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.c
deleted file mode 100644
index 1a9608d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.c
+++ /dev/null
@@ -1,206 +0,0 @@
-/* MOCA6.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine moca6(a,inu) >*/
-/* Subroutine */ int moca6_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 15300.,15310.,0.,0.,0.,0.,0.,0.,15310.,15320.,0.,0.,0.,0.,0.,0.,
- 15320.,15330.,0.,0.,0.,0.,0.,0.,15330.,15340.,0.,0.,0.,0.,0.,0.,
- 15340.,15350.,0.,0.,0.,0.,0.,0.,15350.,15360.,0.,0.,0.,0.,0.,0.,
- 15360.,15370.,0.,0.,0.,0.,0.,0.,15370.,15380.,0.,0.,0.,0.,0.,0.,
- 15380.,15390.,0.,0.,0.,0.,0.,0.,15390.,15400.,0.,0.,0.,0.,0.,0.,
- 15400.,15410.,0.,0.,0.,0.,0.,0.,15410.,15420.,0.,0.,0.,0.,0.,0.,
- 15420.,15430.,0.,0.,0.,0.,0.,0.,15430.,15440.,0.,0.,0.,0.,0.,0.,
- 15440.,15450.,0.,0.,0.,0.,0.,0.,15450.,15460.,0.,0.,0.,0.,0.,0.,
- 15460.,15470.,0.,0.,0.,0.,0.,0.,15470.,15480.,0.,0.,0.,0.,0.,0.,
- 15480.,15490.,0.,0.,0.,0.,0.,0.,15490.,15500.,0.,0.,0.,0.,0.,0.,
- 15500.,15510.,0.,0.,0.,0.,0.,0.,15510.,15520.,0.,0.,0.,0.,0.,0.,
- 15520.,15530.,0.,0.,0.,0.,0.,0.,15530.,15540.,0.,0.,0.,0.,0.,0.,
- 15540.,15550.,0.,0.,0.,0.,0.,0.,15550.,15560.,0.,0.,0.,0.,0.,0.,
- 15560.,15570.,0.,0.,0.,0.,0.,0.,15570.,15580.,0.,0.,0.,0.,0.,0.,
- 15580.,15590.,0.,0.,0.,0.,0.,0.,15590.,15600.,0.,0.,0.,0.,0.,0.,
- 15600.,15610.,0.,0.,0.,0.,0.,0.,15610.,15620.,0.,0.,0.,0.,0.,0.,
- 15620.,15630.,0.,0.,0.,0.,0.,0.,15630.,15640.,0.,0.,0.,0.,0.,0.,
- 15640.,15650.,0.,0.,0.,0.,0.,0.,15650.,15660.,0.,0.,0.,0.,0.,0.,
- 15660.,15670.,0.,0.,0.,0.,0.,0.,15670.,15680.,0.,0.,0.,0.,0.,0.,
- 15680.,15690.,0.,0.,0.,0.,0.,0.,15690.,15700.,0.,0.,0.,0.,0.,0.,
- 15700.,15710.,0.,0.,0.,0.,0.,0.,15710.,15720.,0.,0.,0.,0.,0.,0.,
- 15720.,15730.,0.,0.,0.,0.,0.,0.,15730.,15740.,0.,0.,0.,0.,0.,0.,
- 15740.,15750.,0.,0.,0.,0.,0.,0.,15750.,15760.,0.,0.,0.,0.,0.,0.,
- 15760.,15770.,0.,0.,0.,0.,0.,0.,15770.,15780.,0.,0.,0.,0.,0.,0.,
- 15780.,15790.,0.,0.,0.,0.,0.,0.,15790.,15800.,0.,0.,0.,0.,0.,0.,
- 15800.,15810.,0.,0.,0.,0.,0.,0.,15810.,15820.,0.,0.,0.,0.,0.,0.,
- 15820.,15830.,0.,0.,0.,0.,0.,0.,15830.,15840.,0.,0.,0.,0.,0.,0.,
- 15840.,15850.,0.,0.,0.,0.,0.,0.,15850.,15860.,0.,0.,0.,0.,0.,0.,
- 15860.,15870.,0.,0.,0.,0.,0.,0.,15870.,15880.,0.,0.,0.,0.,0.,0.,
- 15880.,15890.,0.,0.,0.,0.,0.,0.,15890.,15900.,0.,0.,0.,0.,0.,0.,
- 15900.,15910.,0.,0.,0.,0.,0.,0.,15910.,15920.,0.,0.,0.,0.,0.,0.,
- 15920.,15930.,0.,0.,0.,0.,0.,0.,15930.,15940.,0.,0.,0.,0.,0.,0.,
- 15940.,15950.,0.,0.,0.,0.,0.,0.,15950.,15960.,0.,0.,0.,0.,0.,0.,
- 15960.,15970.,0.,0.,0.,0.,0.,0.,15970.,15980.,0.,0.,0.,0.,0.,0.,
- 15980.,15990.,0.,0.,0.,0.,0.,0.,15990.,1.6e4,0.,0.,0.,0.,0.,0.,
- 1.6e4,16010.,0.,0.,0.,0.,0.,0.,16010.,16020.,0.,0.,0.,0.,0.,0.,
- 16020.,16030.,0.,0.,0.,0.,0.,0.,16030.,16040.,0.,0.,0.,0.,0.,0.,
- 16040.,16050.,0.,0.,0.,0.,0.,0.,16050.,16060.,0.,0.,0.,0.,0.,0.,
- 16060.,16070.,0.,0.,0.,0.,0.,0.,16070.,16080.,0.,0.,0.,0.,0.,0.,
- 16080.,16090.,0.,0.,0.,0.,0.,0.,16090.,16100.,0.,0.,0.,0.,0.,0.,
- 16100.,16110.,0.,0.,0.,0.,0.,0.,16110.,16120.,0.,0.,0.,0.,0.,0.,
- 16120.,16130.,0.,0.,0.,0.,0.,0.,16130.,16140.,0.,0.,0.,0.,0.,0.,
- 16140.,16150.,0.,0.,0.,0.,0.,0.,16150.,16160.,0.,0.,0.,0.,0.,0.,
- 16160.,16170.,0.,0.,0.,0.,0.,0.,16170.,16180.,0.,0.,0.,0.,0.,0.,
- 16180.,16190.,0.,0.,0.,0.,0.,0.,16190.,16200.,0.,0.,0.,0.,0.,0.,
- 16200.,16210.,0.,0.,0.,0.,0.,0.,16210.,16220.,0.,0.,0.,0.,0.,0.,
- 16220.,16230.,0.,0.,0.,0.,0.,0.,16230.,16240.,0.,0.,0.,0.,0.,0.,
- 16240.,16250.,0.,0.,0.,0.,0.,0.,16250.,16260.,0.,0.,0.,0.,0.,0.,
- 16260.,16270.,0.,0.,0.,0.,0.,0.,16270.,16280.,0.,0.,0.,0.,0.,0.,
- 16280.,16290.,0.,0.,0.,0.,0.,0.,16290.,16300.,0.,0.,0.,0.,0.,0.,
- 16300.,16310.,0.,0.,0.,0.,0.,0.,16310.,16320.,0.,0.,0.,0.,0.,0.,
- 16320.,16330.,0.,0.,0.,0.,0.,0.,16330.,16340.,0.,0.,0.,0.,0.,0.,
- 16340.,16350.,0.,0.,0.,0.,0.,0.,16350.,16360.,0.,0.,0.,0.,0.,0.,
- 16360.,16370.,0.,0.,0.,0.,0.,0.,16370.,16380.,0.,0.,0.,0.,0.,0.,
- 16380.,16390.,0.,0.,0.,0.,0.,0.,16390.,16400.,0.,0.,0.,0.,0.,0.,
- 16400.,16410.,0.,0.,0.,0.,0.,0.,16410.,16420.,0.,0.,0.,0.,0.,0.,
- 16420.,16430.,0.,0.,0.,0.,0.,0.,16430.,16440.,0.,0.,0.,0.,0.,0.,
- 16440.,16450.,0.,0.,0.,0.,0.,0.,16450.,16460.,0.,0.,0.,0.,0.,0.,
- 16460.,16470.,0.,0.,0.,0.,0.,0.,16470.,16480.,0.,0.,0.,0.,0.,0.,
- 16480.,16490.,0.,0.,0.,0.,0.,0.,16490.,16500.,0.,0.,0.,0.,0.,0.,
- 16500.,16510.,0.,0.,0.,0.,0.,0.,16510.,16520.,0.,0.,0.,0.,0.,0.,
- 16520.,16530.,0.,0.,0.,0.,0.,0.,16530.,16540.,0.,0.,0.,0.,0.,0.,
- 16540.,16550.,0.,0.,0.,0.,0.,0.,16550.,16560.,0.,0.,0.,0.,0.,0.,
- 16560.,16570.,0.,0.,0.,0.,0.,0.,16570.,16580.,0.,0.,0.,0.,0.,0.,
- 16580.,16590.,0.,0.,0.,0.,0.,0.,16590.,16600.,0.,0.,0.,0.,0.,0.,
- 16600.,16610.,0.,0.,0.,0.,0.,0.,16610.,16620.,0.,0.,0.,0.,0.,0.,
- 16620.,16630.,0.,0.,0.,0.,0.,0.,16630.,16640.,0.,0.,0.,0.,0.,0.,
- 16640.,16650.,0.,0.,0.,0.,0.,0.,16650.,16660.,0.,0.,0.,0.,0.,0.,
- 16660.,16670.,0.,0.,0.,0.,0.,0.,16670.,16680.,0.,0.,0.,0.,0.,0.,
- 16680.,16690.,0.,0.,0.,0.,0.,0.,16690.,16700.,0.,0.,0.,0.,0.,0.,
- 16700.,16710.,0.,0.,0.,0.,0.,0.,16710.,16720.,0.,0.,0.,0.,0.,0.,
- 16720.,16730.,0.,0.,0.,0.,0.,0.,16730.,16740.,0.,0.,0.,0.,0.,0.,
- 16740.,16750.,0.,0.,0.,0.,0.,0.,16750.,16760.,0.,0.,0.,0.,0.,0.,
- 16760.,16770.,0.,0.,0.,0.,0.,0.,16770.,16780.,0.,0.,0.,0.,0.,0.,
- 16780.,16790.,0.,0.,0.,0.,0.,0.,16790.,16800.,0.,0.,0.,0.,0.,0.,
- 16800.,16810.,0.,0.,0.,0.,0.,0.,16810.,16820.,0.,0.,0.,0.,0.,0.,
- 16820.,16830.,0.,0.,0.,0.,0.,0.,16830.,16840.,0.,0.,0.,0.,0.,0.,
- 16840.,16850.,0.,0.,0.,0.,0.,0.,16850.,16860.,0.,0.,0.,0.,0.,0.,
- 16860.,16870.,0.,0.,0.,0.,0.,0.,16870.,16880.,0.,0.,0.,0.,0.,0.,
- 16880.,16890.,0.,0.,0.,0.,0.,0.,16890.,16900.,0.,0.,0.,0.,0.,0.,
- 16900.,16910.,0.,0.,0.,0.,0.,0.,16910.,16920.,0.,0.,0.,0.,0.,0.,
- 16920.,16930.,0.,0.,0.,0.,0.,0.,16930.,16940.,0.,0.,0.,0.,0.,0.,
- 16940.,16950.,0.,0.,0.,0.,0.,0.,16950.,16960.,0.,0.,0.,0.,0.,0.,
- 16960.,16970.,0.,0.,0.,0.,0.,0.,16970.,16980.,0.,0.,0.,0.,0.,0.,
- 16980.,16990.,0.,0.,0.,0.,0.,0.,16990.,1.7e4,0.,0.,0.,0.,0.,0.,
- 1.7e4,17010.,0.,0.,0.,0.,0.,0.,17010.,17020.,0.,0.,0.,0.,0.,0.,
- 17020.,17030.,0.,0.,0.,0.,0.,0.,17030.,17040.,0.,0.,0.,0.,0.,0.,
- 17040.,17050.,0.,0.,0.,0.,0.,0.,17050.,17060.,0.,0.,0.,0.,0.,0.,
- 17060.,17070.,0.,0.,0.,0.,0.,0.,17070.,17080.,0.,0.,0.,0.,0.,0.,
- 17080.,17090.,0.,0.,0.,0.,0.,0.,17090.,17100.,0.,0.,0.,0.,0.,0.,
- 17100.,17110.,0.,0.,0.,0.,0.,0.,17110.,17120.,0.,0.,0.,0.,0.,0.,
- 17120.,17130.,0.,0.,0.,0.,0.,0.,17130.,17140.,0.,0.,0.,0.,0.,0.,
- 17140.,17150.,0.,0.,0.,0.,0.,0.,17150.,17160.,0.,0.,0.,0.,0.,0.,
- 17160.,17170.,0.,0.,0.,0.,0.,0.,17170.,17180.,0.,0.,0.,0.,0.,0.,
- 17180.,17190.,0.,0.,0.,0.,0.,0.,17190.,17200.,0.,0.,0.,0.,0.,0.,
- 17200.,17210.,0.,0.,0.,0.,0.,0.,17210.,17220.,0.,0.,0.,0.,0.,0.,
- 17220.,17230.,0.,0.,0.,0.,0.,0.,17230.,17240.,0.,0.,0.,0.,0.,0.,
- 17240.,17250.,0.,0.,0.,0.,0.,0.,17250.,17260.,0.,0.,0.,0.,0.,0.,
- 17260.,17270.,0.,0.,0.,0.,0.,0.,17270.,17280.,0.,0.,0.,0.,0.,0.,
- 17280.,17290.,0.,0.,0.,0.,0.,0.,17290.,17300.,0.,0.,0.,0.,0.,0.,
- 17300.,17310.,0.,0.,0.,0.,0.,0.,17310.,17320.,0.,0.,0.,0.,0.,0.,
- 17320.,17330.,0.,0.,0.,0.,0.,0.,17330.,17340.,0.,0.,0.,0.,0.,0.,
- 17340.,17350.,0.,0.,0.,0.,0.,0.,17350.,17360.,0.,0.,0.,0.,0.,0.,
- 17360.,17370.,0.,0.,0.,0.,0.,0.,17370.,17380.,0.,0.,0.,0.,0.,0.,
- 17380.,17390.,0.,0.,0.,0.,0.,0.,17390.,17400.,0.,0.,0.,0.,0.,0.,
- 17400.,17410.,0.,0.,0.,0.,0.,0.,17410.,17420.,0.,0.,0.,0.,0.,0.,
- 17420.,17430.,0.,0.,0.,0.,0.,0.,17430.,17440.,0.,0.,0.,0.,0.,0.,
- 17440.,17450.,0.,0.,0.,0.,0.,0.,17450.,17460.,0.,0.,0.,0.,0.,0.,
- 17460.,17470.,0.,0.,0.,0.,0.,0.,17470.,17480.,0.,0.,0.,0.,0.,0.,
- 17480.,17490.,0.,0.,0.,0.,0.,0.,17490.,17500.,0.,0.,0.,0.,0.,0.,
- 17500.,17510.,0.,0.,0.,0.,0.,0.,17510.,17520.,0.,0.,0.,0.,0.,0.,
- 17520.,17530.,0.,0.,0.,0.,0.,0.,17530.,17540.,0.,0.,0.,0.,0.,0.,
- 17540.,17550.,0.,0.,0.,0.,0.,0.,17550.,17560.,0.,0.,0.,0.,0.,0.,
- 17560.,17570.,0.,0.,0.,0.,0.,0.,17570.,17580.,0.,0.,0.,0.,0.,0.,
- 17580.,17590.,0.,0.,0.,0.,0.,0.,17590.,17600.,0.,0.,0.,0.,0.,0.,
- 17600.,17610.,0.,0.,0.,0.,0.,0.,17610.,17620.,0.,0.,0.,0.,0.,0.,
- 17620.,17630.,0.,0.,0.,0.,0.,0.,17630.,17640.,0.,0.,0.,0.,0.,0.,
- 17640.,17650.,0.,0.,0.,0.,0.,0.,17650.,17660.,0.,0.,0.,0.,0.,0.,
- 17660.,17670.,0.,0.,0.,0.,0.,0.,17670.,17680.,0.,0.,0.,0.,0.,0.,
- 17680.,17690.,0.,0.,0.,0.,0.,0.,17690.,17700.,0.,0.,0.,0.,0.,0.,
- 17700.,17710.,0.,0.,0.,0.,0.,0.,17710.,17720.,0.,0.,0.,0.,0.,0.,
- 17720.,17730.,0.,0.,0.,0.,0.,0.,17730.,17740.,0.,0.,0.,0.,0.,0.,
- 17740.,17750.,0.,0.,0.,0.,0.,0.,17750.,17760.,0.,0.,0.,0.,0.,0.,
- 17760.,17770.,0.,0.,0.,0.,0.,0.,17770.,17780.,0.,0.,0.,0.,0.,0.,
- 17780.,17790.,0.,0.,0.,0.,0.,0.,17790.,17800.,0.,0.,0.,0.,0.,0.,
- 17800.,17810.,0.,0.,0.,0.,0.,0.,17810.,17820.,0.,0.,0.,0.,0.,0.,
- 17820.,17830.,0.,0.,0.,0.,0.,0.,17830.,17840.,0.,0.,0.,0.,0.,0.,
- 17840.,17850.,0.,0.,0.,0.,0.,0.,17850.,17860. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* carbon monoxide (15300 - 17870 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* moca6_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.f b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.f
deleted file mode 100644
index 448adbd..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine moca6(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c carbon monoxide (15300 - 17870 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15300e+05, 0.15310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15310e+05, 0.15320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15320e+05, 0.15330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15330e+05, 0.15340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15340e+05, 0.15350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15350e+05, 0.15360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15360e+05, 0.15370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15370e+05, 0.15380e+05/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15380e+05, 0.15390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15390e+05, 0.15400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15400e+05, 0.15410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15410e+05, 0.15420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15420e+05, 0.15430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15430e+05, 0.15440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15440e+05, 0.15450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15450e+05, 0.15460e+05/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15460e+05, 0.15470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15470e+05, 0.15480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15480e+05, 0.15490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15490e+05, 0.15500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15500e+05, 0.15510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15510e+05, 0.15520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15520e+05, 0.15530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15530e+05, 0.15540e+05/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15540e+05, 0.15550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15550e+05, 0.15560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15560e+05, 0.15570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15570e+05, 0.15580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15580e+05, 0.15590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15590e+05, 0.15600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15600e+05, 0.15610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15610e+05, 0.15620e+05/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15620e+05, 0.15630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15630e+05, 0.15640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15640e+05, 0.15650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15650e+05, 0.15660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15660e+05, 0.15670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15670e+05, 0.15680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15680e+05, 0.15690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15690e+05, 0.15700e+05/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15700e+05, 0.15710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15710e+05, 0.15720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15720e+05, 0.15730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15730e+05, 0.15740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15740e+05, 0.15750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15750e+05, 0.15760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15760e+05, 0.15770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15770e+05, 0.15780e+05/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15780e+05, 0.15790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15790e+05, 0.15800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15800e+05, 0.15810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15810e+05, 0.15820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15820e+05, 0.15830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15830e+05, 0.15840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15840e+05, 0.15850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15850e+05, 0.15860e+05/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15860e+05, 0.15870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15870e+05, 0.15880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15880e+05, 0.15890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15890e+05, 0.15900e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15900e+05, 0.15910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15910e+05, 0.15920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15920e+05, 0.15930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15930e+05, 0.15940e+05/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15940e+05, 0.15950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15950e+05, 0.15960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15960e+05, 0.15970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15970e+05, 0.15980e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15980e+05, 0.15990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15990e+05, 0.16000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16000e+05, 0.16010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16010e+05, 0.16020e+05/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16020e+05, 0.16030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16030e+05, 0.16040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16040e+05, 0.16050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16050e+05, 0.16060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16060e+05, 0.16070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16070e+05, 0.16080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16080e+05, 0.16090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16090e+05, 0.16100e+05/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16100e+05, 0.16110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16110e+05, 0.16120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16120e+05, 0.16130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16130e+05, 0.16140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16140e+05, 0.16150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16150e+05, 0.16160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16160e+05, 0.16170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16170e+05, 0.16180e+05/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16180e+05, 0.16190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16190e+05, 0.16200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16200e+05, 0.16210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16210e+05, 0.16220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16220e+05, 0.16230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16230e+05, 0.16240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16240e+05, 0.16250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16250e+05, 0.16260e+05/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16260e+05, 0.16270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16270e+05, 0.16280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16280e+05, 0.16290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16290e+05, 0.16300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16300e+05, 0.16310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16310e+05, 0.16320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16320e+05, 0.16330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16330e+05, 0.16340e+05/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16340e+05, 0.16350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16350e+05, 0.16360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16360e+05, 0.16370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16370e+05, 0.16380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16380e+05, 0.16390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16390e+05, 0.16400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16400e+05, 0.16410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16410e+05, 0.16420e+05/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16420e+05, 0.16430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16430e+05, 0.16440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16440e+05, 0.16450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16450e+05, 0.16460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16460e+05, 0.16470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16470e+05, 0.16480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16480e+05, 0.16490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16490e+05, 0.16500e+05/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16500e+05, 0.16510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16510e+05, 0.16520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16520e+05, 0.16530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16530e+05, 0.16540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16540e+05, 0.16550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16550e+05, 0.16560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16560e+05, 0.16570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16570e+05, 0.16580e+05/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16580e+05, 0.16590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16590e+05, 0.16600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16600e+05, 0.16610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16610e+05, 0.16620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16620e+05, 0.16630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16630e+05, 0.16640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16640e+05, 0.16650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16650e+05, 0.16660e+05/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16660e+05, 0.16670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16670e+05, 0.16680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16680e+05, 0.16690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16690e+05, 0.16700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16700e+05, 0.16710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16710e+05, 0.16720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16720e+05, 0.16730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16730e+05, 0.16740e+05/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16740e+05, 0.16750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16750e+05, 0.16760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16760e+05, 0.16770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16770e+05, 0.16780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16780e+05, 0.16790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16790e+05, 0.16800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16800e+05, 0.16810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16810e+05, 0.16820e+05/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16820e+05, 0.16830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16830e+05, 0.16840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16840e+05, 0.16850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16850e+05, 0.16860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16860e+05, 0.16870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16870e+05, 0.16880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16880e+05, 0.16890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16890e+05, 0.16900e+05/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16900e+05, 0.16910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16910e+05, 0.16920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16920e+05, 0.16930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16930e+05, 0.16940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16940e+05, 0.16950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16950e+05, 0.16960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16960e+05, 0.16970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16970e+05, 0.16980e+05/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16980e+05, 0.16990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16990e+05, 0.17000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17000e+05, 0.17010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17010e+05, 0.17020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17020e+05, 0.17030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17030e+05, 0.17040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17040e+05, 0.17050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17050e+05, 0.17060e+05/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17060e+05, 0.17070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17070e+05, 0.17080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17080e+05, 0.17090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17090e+05, 0.17100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17100e+05, 0.17110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17110e+05, 0.17120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17120e+05, 0.17130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17130e+05, 0.17140e+05/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17140e+05, 0.17150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17150e+05, 0.17160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17160e+05, 0.17170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17170e+05, 0.17180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17180e+05, 0.17190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17190e+05, 0.17200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17200e+05, 0.17210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17210e+05, 0.17220e+05/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17220e+05, 0.17230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17230e+05, 0.17240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17240e+05, 0.17250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17250e+05, 0.17260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17260e+05, 0.17270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17270e+05, 0.17280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17280e+05, 0.17290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17290e+05, 0.17300e+05/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17300e+05, 0.17310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17310e+05, 0.17320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17320e+05, 0.17330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17330e+05, 0.17340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17340e+05, 0.17350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17350e+05, 0.17360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17360e+05, 0.17370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17370e+05, 0.17380e+05/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17380e+05, 0.17390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17390e+05, 0.17400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17400e+05, 0.17410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17410e+05, 0.17420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17420e+05, 0.17430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17430e+05, 0.17440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17440e+05, 0.17450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17450e+05, 0.17460e+05/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17460e+05, 0.17470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17470e+05, 0.17480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17480e+05, 0.17490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17490e+05, 0.17500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17500e+05, 0.17510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17510e+05, 0.17520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17520e+05, 0.17530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17530e+05, 0.17540e+05/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17540e+05, 0.17550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17550e+05, 0.17560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17560e+05, 0.17570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17570e+05, 0.17580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17580e+05, 0.17590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17590e+05, 0.17600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17600e+05, 0.17610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17610e+05, 0.17620e+05/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17620e+05, 0.17630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17630e+05, 0.17640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17640e+05, 0.17650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17650e+05, 0.17660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17660e+05, 0.17670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17670e+05, 0.17680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17680e+05, 0.17690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17690e+05, 0.17700e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17700e+05, 0.17710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17710e+05, 0.17720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17720e+05, 0.17730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17730e+05, 0.17740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17740e+05, 0.17750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17750e+05, 0.17760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17760e+05, 0.17770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17770e+05, 0.17780e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17780e+05, 0.17790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17790e+05, 0.17800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17800e+05, 0.17810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17810e+05, 0.17820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17820e+05, 0.17830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17830e+05, 0.17840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17840e+05, 0.17850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17850e+05, 0.17860e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.h b/Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.h
deleted file mode 100644
index 21d5e93..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MOCA6.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_moca6_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MODIS.P b/Modules/ThirdParty/6S/src/6SV1.0B/MODIS.P
deleted file mode 100644
index b32d6c5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MODIS.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int modis_(integer *iwa);
-/* comlen sixs_ffu__ 12024 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MODIS.c b/Modules/ThirdParty/6S/src/6SV1.0B/MODIS.c
deleted file mode 100644
index afae14d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MODIS.c
+++ /dev/null
@@ -1,656 +0,0 @@
-/* MODIS.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine modis(iwa) >*/
-/* Subroutine */ int modis_(integer *iwa)
-{
- /* Initialized data */
-
- static doublereal sr[12008] /* was [8][1501] */ = { 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,0.,0.,.103827,0.,0.,0.,0.,0.,
- 0.,0.,.667243,0.,0.,0.,0.,0.,0.,0.,.653138,0.,0.,0.,0.,0.,0.,0.,
- .791234,0.,0.,0.,0.,0.,0.,0.,.424308,0.,0.,0.,0.,0.,0.,0.,.901939,
- 0.,0.,0.,0.,0.,0.,0.,.853962,0.,0.,0.,0.,0.,0.,0.,.236372,0.,0.,
- 0.,0.,0.,0.,0.,.017134,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,
- .0222,0.,0.,0.,0.,0.,0.,0.,.2021,0.,0.,0.,0.,0.,0.,0.,.7451,0.,0.,
- 0.,0.,0.,0.,0.,1.0141,0.,0.,0.,0.,0.,0.,0.,.9036,0.,0.,0.,0.,0.,
- 0.,0.,.8745,0.,0.,0.,0.,0.,0.,0.,.9242,0.,0.,0.,0.,0.,0.,0.,
- 1.0009,0.,0.,0.,0.,0.,0.,0.,.9305,0.,0.,0.,0.,0.,0.,0.,.5877,0.,
- 0.,0.,0.,0.,0.,0.,.1496,0.,0.,0.,0.,0.,0.,0.,.017,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0286,0.,0.,0.,0.,0.,0.,0.,.2645,
- 0.,0.,0.,0.,0.,0.,0.,.7583,0.,0.,0.,0.,0.,0.,0.,.9889,0.,0.,0.,0.,
- 0.,0.,0.,1.0002,0.,0.,0.,0.,0.,0.,0.,.975,0.,0.,0.,0.,0.,0.,0.,
- .9726,0.,0.,0.,0.,0.,0.,0.,.9878,0.,0.,0.,0.,0.,0.,0.,.9622,0.,0.,
- 0.,0.,0.,0.,0.,.7041,0.,0.,0.,0.,0.,0.,0.,.2147,0.,0.,0.,0.,0.,0.,
- 0.,.0163,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.,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.,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.,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.,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.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.0101,0.,
- 0.,0.,0.,0.,0.,0.,.0984,0.,0.,0.,0.,0.,0.,0.,.2914,0.,0.,0.,0.,0.,
- 0.,0.,.502,0.,0.,0.,0.,0.,0.,0.,.6564,0.,0.,0.,0.,0.,0.,0.,.6881,
- 0.,0.,0.,0.,0.,0.,0.,.7064,0.,0.,0.,0.,0.,0.,0.,.7114,0.,0.,0.,0.,
- 0.,0.,0.,.7292,0.,0.,0.,0.,0.,0.,0.,.7523,0.,0.,0.,0.,0.,0.,0.,
- .7721,0.,0.,0.,0.,0.,0.,0.,.7852,0.,0.,0.,0.,0.,0.,0.,.8112,0.,0.,
- 0.,0.,0.,0.,0.,.8664,0.,0.,0.,0.,0.,0.,0.,.9309,0.,0.,0.,0.,0.,0.,
- 0.,.9794,0.,0.,0.,0.,0.,0.,0.,1.,0.,0.,0.,0.,0.,0.,0.,.9855,0.,0.,
- 0.,0.,0.,0.,0.,.9333,0.,0.,0.,0.,0.,0.,0.,.8429,0.,0.,0.,0.,0.,0.,
- 0.,.7187,0.,0.,0.,0.,0.,0.,0.,.5672,0.,0.,0.,0.,0.,0.,0.,.3996,0.,
- 0.,0.,0.,0.,0.,0.,.2327,0.,0.,0.,0.,0.,0.,0.,.1024,0.,0.,0.,0.,0.,
- 0.,0.,.0369,0.,0.,0.,0.,0.,0.,0.,.0157,0.,0.,0.,0.,0.,0.,0.,.0092,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.0216,0.,0.,0.,0.,0.,0.,0.,.0502,0.,0.,0.,
- 0.,0.,0.,0.,.0923,0.,0.,0.,0.,0.,0.,0.,.1431,0.,0.,0.,0.,0.,0.,0.,
- .1938,0.,0.,0.,0.,0.,0.,0.,.2713,0.,0.,0.,0.,0.,0.,0.,.4292,0.,0.,
- 0.,0.,0.,0.,0.,.6543,0.,0.,0.,0.,0.,0.,0.,.8606,0.,0.,0.,0.,0.,0.,
- 0.,.9672,0.,0.,0.,0.,0.,0.,0.,.9609,0.,0.,0.,0.,0.,0.,0.,.9418,0.,
- 0.,0.,0.,0.,0.,0.,.9273,0.,0.,0.,0.,0.,0.,0.,.9311,0.,0.,0.,0.,0.,
- 0.,0.,.955,0.,0.,0.,0.,0.,0.,0.,.9827,0.,0.,0.,0.,0.,0.,0.,.9948,
- 0.,0.,0.,0.,0.,0.,0.,1.,0.,0.,0.,0.,0.,0.,0.,.9782,0.,0.,0.,0.,0.,
- 0.,0.,.9308,0.,0.,0.,0.,0.,0.,0.,.786,0.,0.,0.,0.,0.,0.,0.,.543,
- 0.,0.,0.,0.,0.,0.,0.,.2931,0.,0.,0.,0.,0.,0.,0.,.1477,0.,0.,0.,0.,
- 0.,0.,0.,.0824,0.,0.,0.,0.,0.,0.,0.,.052,0.,0.,0.,0.,0.,0.,0.,
- .0367,0.,0.,0.,0.,0.,0.,0.,.0276,0.,0.,0.,0.,0.,0.,0.,.0213,0.,0.,
- 0.,0.,0.,0.,0.,.0159,0.,0.,0.,0.,0.,0.,0.,.0112,0.,0.,0.,0.,0.,0.,
- 0.,.0076,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,.0188,0.,0.,0.,0.,0.,0.,0.,.0381,0.,0.,
- 0.,0.,0.,0.,0.,.0984,0.,0.,0.,0.,0.,0.,0.,.1872,0.,0.,0.,0.,0.,0.,
- 0.,.3188,0.,0.,0.,0.,0.,0.,0.,.4933,0.,0.,0.,0.,0.,0.,0.,.6582,0.,
- 0.,0.,0.,0.,0.,0.,.8046,0.,0.,0.,0.,0.,0.,0.,.8877,0.,0.,0.,0.,0.,
- 0.,0.,.9564,0.,0.,0.,0.,0.,0.,0.,.9973,0.,0.,0.,0.,0.,0.,0.,1.,0.,
- 0.,0.,0.,0.,0.,0.,.9451,0.,0.,0.,0.,0.,0.,0.,.8172,0.,0.,0.,0.,0.,
- 0.,0.,.6366,0.,0.,0.,0.,0.,0.,0.,.3949,0.,0.,0.,0.,0.,0.,0.,.226,
- 0.,0.,0.,0.,0.,0.,0.,.1218,0.,0.,0.,0.,0.,0.,0.,.0623,0.,0.,0.,0.,
- 0.,0.,0.,.0253,0.,0.,0.,0.,0.,0.,0.,.0173,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,.058,0.,0.,0.,0.,0.,0.,0.,.091,0.,0.,0.,
- 0.,0.,0.,0.,.1611,0.,0.,0.,0.,0.,0.,0.,.2705,0.,0.,0.,0.,0.,0.,0.,
- .4289,0.,0.,0.,0.,0.,0.,0.,.6049,0.,0.,0.,0.,0.,0.,0.,.7688,0.,0.,
- 0.,0.,0.,0.,0.,.8948,0.,0.,0.,0.,0.,0.,0.,.9729,0.,0.,0.,0.,0.,0.,
- 0.,1.,0.,0.,0.,0.,0.,0.,0.,.9969,0.,0.,0.,0.,0.,0.,0.,.9875,0.,0.,
- 0.,0.,0.,0.,0.,.9648,0.,0.,0.,0.,0.,0.,0.,.9278,0.,0.,0.,0.,0.,0.,
- 0.,.8629,0.,0.,0.,0.,0.,0.,0.,.753,0.,0.,0.,0.,0.,0.,0.,.6041,0.,
- 0.,0.,0.,0.,0.,0.,.4342,0.,0.,0.,0.,0.,0.,0.,.2748,0.,0.,0.,0.,0.,
- 0.,0.,.1614,0.,0.,0.,0.,0.,0.,0.,.0911,0.,0.,0.,0.,0.,0.,0.,.0508,
- 0.,0.,0.,0.,0.,0.,0.,.0299,0.,0.,0.,0.,0.,0.,0.,.0162,0.,0.,0.,0.,
- 0.,0.,0.,.0108,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.0124,0.,0.,0.,0.,0.,0.,0.,.0165,0.,0.,0.,0.,0.,0.,0.,.0229,0.,
- 0.,0.,0.,0.,0.,0.,.0317,0.,0.,0.,0.,0.,0.,0.,.0444,0.,0.,0.,0.,0.,
- 0.,0.,.063,0.,0.,0.,0.,0.,0.,0.,.0918,0.,0.,0.,0.,0.,0.,0.,.1358,
- 0.,0.,0.,0.,0.,0.,0.,.2006,0.,0.,0.,0.,0.,0.,0.,.2904,0.,0.,0.,0.,
- 0.,0.,0.,.4032,0.,0.,0.,0.,0.,0.,0.,.5329,0.,0.,0.,0.,0.,0.,0.,
- .6632,0.,0.,0.,0.,0.,0.,0.,.7775,0.,0.,0.,0.,0.,0.,0.,.868,0.,0.,
- 0.,0.,0.,0.,0.,.9308,0.,0.,0.,0.,0.,0.,0.,.97,0.,0.,0.,0.,0.,0.,
- 0.,.9913,0.,0.,0.,0.,0.,0.,0.,1.,0.,0.,0.,0.,0.,0.,0.,1.0009,0.,
- 0.,0.,0.,0.,0.,0.,.9961,0.,0.,0.,0.,0.,0.,0.,.9866,0.,0.,0.,0.,0.,
- 0.,0.,.9715,0.,0.,0.,0.,0.,0.,0.,.9498,0.,0.,0.,0.,0.,0.,0.,.9209,
- 0.,0.,0.,0.,0.,0.,0.,.8851,0.,0.,0.,0.,0.,0.,0.,.8446,0.,0.,0.,0.,
- 0.,0.,0.,.8022,0.,0.,0.,0.,0.,0.,0.,.7614,0.,0.,0.,0.,0.,0.,0.,
- .7241,0.,0.,0.,0.,0.,0.,0.,.686,0.,0.,0.,0.,0.,0.,0.,.6423,0.,0.,
- 0.,0.,0.,0.,0.,.5915,0.,0.,0.,0.,0.,0.,0.,.5326,0.,0.,0.,0.,0.,0.,
- 0.,.4637,0.,0.,0.,0.,0.,0.,0.,.3846,0.,0.,0.,0.,0.,0.,0.,.3042,0.,
- 0.,0.,0.,0.,0.,0.,.2317,0.,0.,0.,0.,0.,0.,0.,.1698,0.,0.,0.,0.,0.,
- 0.,0.,.1195,0.,0.,0.,0.,0.,0.,0.,.0814,0.,0.,0.,0.,0.,0.,0.,.0553,
- 0.,0.,0.,0.,0.,0.,0.,.0381,0.,0.,0.,0.,0.,0.,0.,.0266,0.,0.,0.,0.,
- 0.,0.,0.,.0189,0.,0.,0.,0.,0.,0.,0.,.0137,0.,0.,0.,0.,0.,0.,0.,
- .0097,0.,0.,0.,0.,0.,0.,0.,.0056,0.,0.,0.,0.,0.,0.,0.,1e-4,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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. };
-
- integer i__;
- doublereal wli[8], wls[8];
-
-/*< real s,wlinf,wlsup >*/
-/*< common /sixs_ffu/ s(1501),wlinf,wlsup >*/
-/*< real sr(8,1501),wli(8),wls(8) >*/
-/*< integer iwa,l,i >*/
-/* band 1 of MODIS (vegetation monitoring at 250m) */
-/*< >*/
-/* band 2 of MODIS (vegetation monitoring at 250m) */
-/*< >*/
-/* band 3 of MODIS (vegetation monitoring at 500m / MVI) */
-/*< >*/
-/* band 4 of MODIS (green channel at 500m ) */
-/*< >*/
-/* band 5 of MODIS (cloud channel at 500m ) */
-/*< >*/
-/* band 6 of MODIS (snow/ice channel at 500m ) */
-/*< >*/
-/* band 7 of MODIS (liquid water absorption channel at 500m ) */
-/*< >*/
-/*< wli(1)=0.61 >*/
- wli[0] = .61;
-/* band 8 of MODIS (Ocean bands ) */
-/*< >*/
-/*< wls(1)=0.685 >*/
- wls[0] = .685;
-/*< wli(2)=0.820 >*/
- wli[1] = .82;
-/*< wls(2)=0.9025 >*/
- wls[1] = .9025;
-/*< wli(3)=0.450 >*/
- wli[2] = .45;
-/*< wls(3)=0.4825 >*/
- wls[2] = .4825;
-/*< wli(4)=0.540 >*/
- wli[3] = .54;
-/*< wls(4)=0.570 >*/
- wls[3] = .57;
-/*< wli(5)=1.215 >*/
- wli[4] = 1.215;
-/*< wls(5)=1.270 >*/
- wls[4] = 1.27;
-/*< wli(6)=1.600 >*/
- wli[5] = 1.6;
-/*< wls(6)=1.665 >*/
- wls[5] = 1.665;
-/*< wli(7)=2.0575 >*/
- wli[6] = 2.0575;
-/*< wls(7)=2.1825 >*/
- wls[6] = 2.1825;
-/*< wli(8)=0.4025 >*/
- wli[7] = .4025;
-/*< wls(8)=0.4225 >*/
- wls[7] = .4225;
-/*< do 1 i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< s(i)=sr(iwa,i) >*/
- sixs_ffu__1.s[i__ - 1] = sr[*iwa + (i__ << 3) - 9];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< wlinf=wli(iwa) >*/
- sixs_ffu__1.wlinf = wli[*iwa - 1];
-/*< wlsup=wls(iwa) >*/
- sixs_ffu__1.wlsup = wls[*iwa - 1];
-/*< return >*/
- return 0;
-/*< end >*/
-} /* modis_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MODIS.f b/Modules/ThirdParty/6S/src/6SV1.0B/MODIS.f
deleted file mode 100644
index 50b4ba6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MODIS.f
+++ /dev/null
@@ -1,80 +0,0 @@
- subroutine modis(iwa)
- real s,wlinf,wlsup
- common /sixs_ffu/ s(1501),wlinf,wlsup
- real sr(8,1501),wli(8),wls(8)
- integer iwa,l,i
-c band 1 of MODIS (vegetation monitoring at 250m)
- DATA (SR(1,L),L=1,1501)/ 144*0.,
- A .0000, .0000, .0101, .0984, .2914, .5020, .6564, .6881,
- A .7064, .7114, .7292, .7523, .7721, .7852, .8112, .8664,
- A .9309, .9794,1.0000, .9855, .9333, .8429, .7187, .5672,
- A .3996, .2327, .1024, .0369, .0157, .0092, .0000,
- A1326*0./
-c band 2 of MODIS (vegetation monitoring at 250m)
- DATA (SR(2,L),L=1,1501)/ 228*0.,
- A .0000, .0216, .0502, .0923, .1431, .1938, .2713, .4292,
- A .6543, .8606, .9672, .9609, .9418, .9273, .9311, .9550,
- A .9827, .9948,1.0000, .9782, .9308, .7860, .5430, .2931,
- A .1477, .0824, .0520, .0367, .0276, .0213, .0159, .0112,
- A .0076, .0000,
- A1239*0./
-c band 3 of MODIS (vegetation monitoring at 500m / MVI)
- DATA (SR(3,L),L=1,1501)/ 80*0.,
- A .0000, .0222, .2021, .7451,1.0141, .9036, .8745, .9242,
- A1.0009, .9305, .5877, .1496, .0170, .0000,
- A1407*0./
-c band 4 of MODIS (green channel at 500m )
- DATA (SR(4,L),L=1,1501)/ 116*0.,
- A .0286, .2645, .7583, .9889,1.0002, .9750, .9726, .9878,
- A .9622, .7041, .2147, .0163, .0000,
- A1372*0./
-c band 5 of MODIS (cloud channel at 500m )
- DATA (SR(5,L),L=1,1501)/ 386*0.,
- A .0000, .0188, .0381, .0984, .1872, .3188, .4933, .6582,
- A .8046, .8877, .9564, .9973,1.0000, .9451, .8172, .6366,
- A .3949, .2260, .1218, .0623, .0253, .0173, .0000,
- A1092*0./
-c band 6 of MODIS (snow/ice channel at 500m )
- DATA (SR(6,L),L=1,1501)/ 540*0.,
- A .0000, .0580, .0910, .1611, .2705, .4289, .6049, .7688,
- A .8948, .9729,1.0000, .9969, .9875, .9648, .9278, .8629,
- A .7530, .6041, .4342, .2748, .1614, .0911, .0508, .0299,
- A .0162, .0108, .0000,
- A 934*0./
-c band 7 of MODIS (liquid water absorption channel at 500m )
- DATA (SR(7,L),L=1,1501)/ 723*0.,
- A .0000, .0124, .0165, .0229, .0317, .0444, .0630, .0918,
- A .1358, .2006, .2904, .4032, .5329, .6632, .7775, .8680,
- A .9308, .9700, .9913,1.0000,1.0009, .9961, .9866, .9715,
- A .9498, .9209, .8851, .8446, .8022, .7614, .7241, .6860,
- A .6423, .5915, .5326, .4637, .3846, .3042, .2317, .1698,
- A .1195, .0814, .0553, .0381, .0266, .0189, .0137, .0097,
- A .0056, .0001, .0000,
- A 727*0./
- wli(1)=0.61
-c band 8 of MODIS (Ocean bands )
- DATA (SR(8,L),L=1,1501)/ 65*0.,
- A 0.103827,0.667243,0.653138, 0.791234,0.424308,0.901939,
- A 0.853962,0.236372,0.017134,1427*0/
- wls(1)=0.685
- wli(2)=0.820
- wls(2)=0.9025
- wli(3)=0.450
- wls(3)=0.4825
- wli(4)=0.540
- wls(4)=0.570
- wli(5)=1.215
- wls(5)=1.270
- wli(6)=1.600
- wls(6)=1.665
- wli(7)=2.0575
- wls(7)=2.1825
- wli(8)=0.4025
- wls(8)=0.4225
- do 1 i=1,1501
- s(i)=sr(iwa,i)
- 1 continue
- wlinf=wli(iwa)
- wlsup=wls(iwa)
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MODIS.h b/Modules/ThirdParty/6S/src/6SV1.0B/MODIS.h
deleted file mode 100644
index 0978679..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MODIS.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_modis_(
- otb_6s_integer *iwa
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.P b/Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.P
deleted file mode 100644
index ded38fc..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int modisalbe_(doublereal *p1, doublereal *p2, doublereal *p3, doublereal *brdfalb);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.c b/Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.c
deleted file mode 100644
index bcdb025..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.c
+++ /dev/null
@@ -1,27 +0,0 @@
-/* MODISALBE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< >*/
-/* Subroutine */ int modisalbe_(doublereal *p1, doublereal *p2, doublereal *
- p3, doublereal *brdfalb)
-{
-/*< real p1,p2,p3,brdfalb >*/
-/*< brdfalb=p1+p2*0.189184-p3*1.377622 >*/
- *brdfalb = *p1 + *p2 * .189184 - *p3 * 1.377622;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* modisalbe_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.f b/Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.f
deleted file mode 100644
index 7c7fa23..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.f
+++ /dev/null
@@ -1,6 +0,0 @@
- subroutine modisalbe(p1,p2,p3,
- s brdfalb)
- real p1,p2,p3,brdfalb
- brdfalb=p1+p2*0.189184-p3*1.377622
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.h b/Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.h
deleted file mode 100644
index a419b70..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MODISALBE.h
+++ /dev/null
@@ -1,6 +0,0 @@
-extern int otb_6s_modisalbe_(
- otb_6s_doublereal *p1,
- otb_6s_doublereal *p2,
- otb_6s_doublereal *p3,
- otb_6s_doublereal *brdfalb
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.P b/Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.P
deleted file mode 100644
index 143889f..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int modisbrdf_(doublereal *p1, doublereal *p2, doublereal *p3, integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal *brdfint);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.c b/Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.c
deleted file mode 100644
index 03f17fa..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.c
+++ /dev/null
@@ -1,143 +0,0 @@
-/* MODISBRDF.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< >*/
-/* Subroutine */ int modisbrdf_(doublereal *p1, doublereal *p2, doublereal *
- p3, integer *mu, integer *np, doublereal *rm, doublereal *rp,
- doublereal *brdfint)
-{
- /* System generated locals */
- integer rm_offset, brdfint_dim1, brdfint_offset, i__1, i__2;
-
- /* Builtin functions */
- double acos(doublereal), atan(doublereal), cos(doublereal), sin(
- doublereal), tan(doublereal), sqrt(doublereal);
-
- /* Local variables */
- integer j, k;
- doublereal rossthick, pi, cfi, rfi, sfi, cts, ctv, rts, sts, rtv, stv,
- cpha, rpha, cost, tvar, sint, tanti, tantv, angdist, angtemp,
- angover, lispars, rosselt;
-
-/*< real p1,p2,p3,xmu,view >*/
-/*< real dts,dtv,dfs,dfv,dfi >*/
-/*< real rts,rtv,rfs,rfv,rfi,rpha >*/
-/*< real cts,ctv,cfi,cpha >*/
-/*< real sts,stv,sfi >*/
-/*< real tanti,tantv >*/
-/*< real cost,sint,tvar >*/
-/*< real rossthick,rosselt,lispars >*/
-/*< real angdist,angtemp,angover >*/
-/*< integer mu,np,k,j >*/
-/*< real rm(-mu:mu),rp(np),brdfint(-mu:mu,np) >*/
-/*< rts=acos(rm(0)) >*/
- /* Parameter adjustments */
- rm_offset = -(*mu);
- rm -= rm_offset;
- brdfint_dim1 = *mu - (-(*mu)) + 1;
- brdfint_offset = -(*mu) + brdfint_dim1;
- brdfint -= brdfint_offset;
- --rp;
-
- /* Function Body */
- rts = acos(rm[0]);
-/*< pi=atan(1.)*4. >*/
- pi = atan(1.) * 4.;
-/*< do 1 k=1,np >*/
- i__1 = *np;
- for (k = 1; k <= i__1; ++k) {
-/*< do 2 j=1,mu >*/
- i__2 = *mu;
- for (j = 1; j <= i__2; ++j) {
-/*< rtv=acos(rm(j)) >*/
- rtv = acos(rm[j]);
-/*< if (j.eq.mu) then >*/
- if (j == *mu) {
-/*< rfi=rm(-mu) >*/
- rfi = rm[-(*mu)];
-/*< else >*/
- } else {
-/*< rfi=rp(k)+rm(-mu) >*/
- rfi = rp[k] + rm[-(*mu)];
-/*< endif >*/
- }
-/*< rfi=abs(rfi) >*/
- rfi = abs(rfi);
-/*< cts=cos(rts) >*/
- cts = cos(rts);
-/*< ctv=cos(rtv) >*/
- ctv = cos(rtv);
-/*< sts=sin(rts) >*/
- sts = sin(rts);
-/*< stv=sin(rtv) >*/
- stv = sin(rtv);
-/*< cfi=cos(rfi) >*/
- cfi = cos(rfi);
-/*< sfi=sin(rfi) >*/
- sfi = sin(rfi);
-/*< cpha=cts*ctv+sts*stv*cfi >*/
- cpha = cts * ctv + sts * stv * cfi;
-/*< rpha=acos(cpha) >*/
- rpha = acos(cpha);
-/*< rosselt=(pi/2-rpha)*cpha+sin(rpha) >*/
- rosselt = (pi / 2 - rpha) * cpha + sin(rpha);
-/*< rossthick=(rosselt/(cts+ctv))-pi/4. >*/
- rossthick = rosselt / (cts + ctv) - pi / 4.;
-/*< tanti=tan(rts) >*/
- tanti = tan(rts);
-/*< tantv=tan(rtv) >*/
- tantv = tan(rtv);
-/*< angdist=tanti*tanti+tantv*tantv-2.*tanti*tantv*cfi >*/
- angdist = tanti * tanti + tantv * tantv - tanti * 2. * tantv *
- cfi;
-/*< angdist=sqrt(angdist) >*/
- angdist = sqrt(angdist);
-/*< angtemp=1./cts+1./ctv >*/
- angtemp = 1. / cts + 1. / ctv;
-/*< c >*/
- cost = sqrt(angdist * angdist + tanti * tanti * tantv * tantv *
- sfi * sfi) * 2.;
-/*< cost=cost/angtemp >*/
- cost /= angtemp;
-/*< if (cost.ge.1.) cost=1. >*/
- if (cost >= 1.) {
- cost = 1.;
- }
-/*< if (cost.le.-1.) cost=-1. >*/
- if (cost <= -1.) {
- cost = -1.;
- }
-/*< tvar=acos(cost) >*/
- tvar = acos(cost);
-/*< sint=sqrt(1.-cost*cost) >*/
- sint = sqrt(1. - cost * cost);
-/*< angover=(tvar-sint*cost)*angtemp/pi >*/
- angover = (tvar - sint * cost) * angtemp / pi;
-/*< lispars=angover-angtemp+0.5*(1.+cpha)/cts/ctv >*/
- lispars = angover - angtemp + (cpha + 1.) * .5 / cts / ctv;
-/*< brdfint(j,k)=p1+p2*rossthick+p3*lispars >*/
- brdfint[j + k * brdfint_dim1] = *p1 + *p2 * rossthick + *p3 *
- lispars;
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* modisbrdf_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.f b/Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.f
deleted file mode 100644
index 3a44a6d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.f
+++ /dev/null
@@ -1,58 +0,0 @@
- subroutine modisbrdf(p1,p2,p3,mu,np,rm,rp,
- s brdfint)
- real p1,p2,p3,xmu,view
- real dts,dtv,dfs,dfv,dfi
- real rts,rtv,rfs,rfv,rfi,rpha
- real cts,ctv,cfi,cpha
- real sts,stv,sfi
- real tanti,tantv
- real cost,sint,tvar
- real rossthick,rosselt,lispars
- real angdist,angtemp,angover
- integer mu,np,k,j
- real rm(-mu:mu),rp(np),brdfint(-mu:mu,np)
- rts=acos(rm(0))
- pi=atan(1.)*4.
- do 1 k=1,np
- do 2 j=1,mu
- rtv=acos(rm(j))
- if (j.eq.mu) then
- rfi=rm(-mu)
- else
- rfi=rp(k)+rm(-mu)
- endif
- rfi=abs(rfi)
- cts=cos(rts)
- ctv=cos(rtv)
- sts=sin(rts)
- stv=sin(rtv)
- cfi=cos(rfi)
- sfi=sin(rfi)
- cpha=cts*ctv+sts*stv*cfi
- rpha=acos(cpha)
-
- rosselt=(pi/2-rpha)*cpha+sin(rpha)
- rossthick=(rosselt/(cts+ctv))-pi/4.
-
- tanti=tan(rts)
- tantv=tan(rtv)
-
- angdist=tanti*tanti+tantv*tantv-2.*tanti*tantv*cfi
- angdist=sqrt(angdist)
-
- angtemp=1./cts+1./ctv
- cost=2.*sqrt(angdist*angdist+tanti*tanti*tantv
- & *tantv*sfi*sfi)
- cost=cost/angtemp
- if (cost.ge.1.) cost=1.
- if (cost.le.-1.) cost=-1.
- tvar=acos(cost)
- sint=sqrt(1.-cost*cost)
- angover=(tvar-sint*cost)*angtemp/pi
- lispars=angover-angtemp+0.5*(1.+cpha)/cts/ctv
-
- brdfint(j,k)=p1+p2*rossthick+p3*lispars
- 2 continue
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.h b/Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.h
deleted file mode 100644
index b54e98d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MODISBRDF.h
+++ /dev/null
@@ -1,10 +0,0 @@
-extern int otb_6s_modisbrdf_(
- otb_6s_doublereal *p1,
- otb_6s_doublereal *p2,
- otb_6s_doublereal *p3,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *brdfint
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MSS.P b/Modules/ThirdParty/6S/src/6SV1.0B/MSS.P
deleted file mode 100644
index 37803ae..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MSS.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int mss_(integer *iwa);
-/* comlen sixs_ffu__ 12024 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MSS.c b/Modules/ThirdParty/6S/src/6SV1.0B/MSS.c
deleted file mode 100644
index d5f8ad9..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MSS.c
+++ /dev/null
@@ -1,364 +0,0 @@
-/* MSS.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine mss(iwa) >*/
-/* Subroutine */ int mss_(integer *iwa)
-{
- /* Initialized data */
-
- static doublereal sr[6004] /* was [4][1501] */ = { 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,.01,0.,0.,0.,.01,0.,0.,0.,.01,0.,0.,0.,.02,0.,0.,
- 0.,.04,0.,0.,0.,.05,0.,0.,0.,.09,0.,0.,0.,.13,0.,0.,0.,.21,0.,0.,
- 0.,.29,0.,0.,0.,.45,0.,0.,0.,.61,0.,0.,0.,.72,0.,0.,0.,.82,0.,0.,
- 0.,.85,0.,0.,0.,.89,0.,0.,0.,.92,0.,0.,0.,.95,0.,0.,0.,.96,0.,0.,
- 0.,.98,0.,0.,0.,.99,0.,0.,0.,.99,0.,0.,0.,1.,0.,0.,0.,1.,0.,0.,0.,
- 1.,0.,0.,0.,1.,0.,0.,0.,1.,0.,0.,0.,1.,0.,0.,0.,1.,0.,0.,0.,.99,
- 0.,0.,0.,.99,0.,0.,0.,.98,0.,0.,0.,.98,0.,0.,0.,.98,0.,0.,0.,.97,
- 0.,0.,0.,.97,0.,0.,0.,.96,0.,0.,0.,.96,0.,0.,0.,.96,0.,0.,0.,.96,
- 0.,0.,0.,.95,0.,0.,0.,.95,.01,0.,0.,.93,.01,0.,0.,.91,.01,0.,0.,
- .89,.01,0.,0.,.87,.01,0.,0.,.85,.01,0.,0.,.82,.02,0.,0.,.73,.03,
- 0.,0.,.65,.04,0.,0.,.54,.08,0.,0.,.43,.13,0.,0.,.38,.21,0.,0.,.33,
- .29,0.,0.,.24,.43,0.,0.,.15,.57,0.,0.,.11,.69,0.,0.,.08,.8,0.,0.,
- .06,.86,0.,0.,.04,.92,0.,0.,.03,.94,0.,0.,.03,.96,0.,0.,.02,.97,
- 0.,0.,.02,.99,0.,0.,.02,.99,0.,0.,.01,1.,0.,0.,0.,1.,0.,0.,0.,1.,
- 0.,0.,0.,.99,0.,0.,0.,.98,0.,0.,0.,.97,0.,0.,0.,.96,.01,0.,0.,.94,
- .01,0.,0.,.93,.01,0.,0.,.9,.02,0.,0.,.88,.02,0.,0.,.92,.02,0.,0.,
- .96,.02,0.,0.,.96,.03,0.,0.,.96,.03,0.,0.,.95,.05,0.,0.,.95,.07,
- 0.,0.,.9,.1,0.,0.,.84,.14,0.,0.,.82,.17,0.,0.,.8,.2,0.,0.,.79,.31,
- 0.,0.,.78,.41,0.,0.,.79,.48,0.,0.,.8,.56,0.,0.,.8,.66,0.,0.,.8,
- .75,0.,0.,.73,.83,0.,0.,.67,.9,0.,0.,.59,.93,0.,0.,.5,.97,0.,0.,
- .38,.98,0.,0.,.25,.99,0.,0.,.18,1.,0.,0.,.11,1.,0.,0.,.09,1.,0.,
- 0.,.08,.99,0.,0.,.07,.99,0.,0.,.06,.98,0.,0.,.05,.97,0.,0.,.05,
- .96,0.,0.,.04,.94,0.,0.,.04,.93,0.,0.,.03,.9,0.,0.,.03,.88,0.,0.,
- 0.,.87,0.,0.,0.,.86,0.,0.,0.,.84,0.,0.,0.,.83,0.,0.,0.,.82,0.,0.,
- 0.,.82,0.,0.,0.,.82,0.,0.,0.,.82,0.,0.,0.,.82,0.,0.,0.,.83,0.,0.,
- 0.,.83,0.,0.,0.,.83,0.,0.,0.,.83,0.,0.,0.,.83,.01,0.,0.,.81,.02,
- 0.,0.,.8,.02,0.,0.,.78,.04,0.,0.,.75,.06,0.,0.,.68,.14,0.,0.,.61,
- .21,0.,0.,.55,.45,0.,0.,.49,.68,0.,0.,.41,.76,0.,0.,.34,.83,0.,0.,
- .29,.89,0.,0.,.24,.94,0.,0.,.19,.94,0.,0.,.15,.94,0.,0.,.12,.94,
- 0.,0.,.08,.95,0.,0.,.07,.95,0.,0.,.07,.96,0.,0.,.05,.97,0.,0.,.03,
- .98,0.,0.,.03,.99,0.,0.,.03,.99,0.,0.,.02,1.,0.,0.,.02,1.,0.,0.,
- .01,1.,0.,0.,.01,1.,0.,0.,.01,1.,0.,0.,.01,1.,0.,0.,0.,1.,0.,0.,
- 0.,.99,0.,0.,0.,.98,0.,0.,0.,.97,0.,0.,0.,.96,0.,0.,0.,.95,0.,0.,
- 0.,.94,0.,0.,0.,.93,0.,0.,0.,.92,0.,0.,0.,.92,0.,0.,0.,.91,0.,0.,
- 0.,.9,0.,0.,0.,.89,0.,0.,0.,.88,0.,0.,0.,.87,0.,0.,0.,.86,0.,0.,
- 0.,.86,0.,0.,0.,.85,0.,0.,0.,.83,0.,0.,0.,.82,0.,0.,0.,.81,0.,0.,
- 0.,.8,0.,0.,0.,.78,0.,0.,0.,.77,0.,0.,0.,.76,0.,0.,0.,.76,0.,0.,
- 0.,.75,0.,0.,0.,.74,0.,0.,0.,.72,0.,0.,0.,.7,0.,0.,0.,.69,0.,0.,
- 0.,.68,0.,0.,0.,.66,0.,0.,0.,.64,0.,0.,0.,.63,0.,0.,0.,.62,0.,0.,
- 0.,.61,0.,0.,0.,.6,0.,0.,0.,.58,0.,0.,0.,.57,0.,0.,0.,.56,0.,0.,
- 0.,.55,0.,0.,0.,.55,0.,0.,0.,.54,0.,0.,0.,.52,0.,0.,0.,.51,0.,0.,
- 0.,.5,0.,0.,0.,.49,0.,0.,0.,.47,0.,0.,0.,.46,0.,0.,0.,.45,0.,0.,
- 0.,.44,0.,0.,0.,.43,0.,0.,0.,.42,0.,0.,0.,.41,0.,0.,0.,.4,0.,0.,
- 0.,.39,0.,0.,0.,.39,0.,0.,0.,.38,0.,0.,0.,.37,0.,0.,0.,.36,0.,0.,
- 0.,.35,0.,0.,0.,.34,0.,0.,0.,.33,0.,0.,0.,.32,0.,0.,0.,.31,0.,0.,
- 0.,.3,0.,0.,0.,.29,0.,0.,0.,.28,0.,0.,0.,.27,0.,0.,0.,.26,0.,0.,
- 0.,.25,0.,0.,0.,.24,0.,0.,0.,.23,0.,0.,0.,.22,0.,0.,0.,.21,0.,0.,
- 0.,.2,0.,0.,0.,.2,0.,0.,0.,.19,0.,0.,0.,.18,0.,0.,0.,.16,0.,0.,0.,
- .15,0.,0.,0.,.14,0.,0.,0.,.13,0.,0.,0.,.12,0.,0.,0.,.12,0.,0.,0.,
- .11,0.,0.,0.,.1,0.,0.,0.,.08,0.,0.,0.,.07,0.,0.,0.,.06,0.,0.,0.,
- .06,0.,0.,0.,.05,0.,0.,0.,.04,0.,0.,0.,.03,0.,0.,0.,.02,0.,0.,0.,
- .01,0.,0.,0.,.01,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0. };
-
- integer i__;
- doublereal wli[4], wls[4];
-
-/*< common /sixs_ffu/ s(1501),wlinf,wlsup >*/
-/*< real sr(4,1501),wli(4),wls(4) >*/
-/*< real s,wlinf,wlsup >*/
-/*< integer iwa,l,i >*/
-
-/* 1st spectral band of multi spectral scanner */
-
-/*< >*/
-
-/* 2nd spectral band of multi spectral scanner */
-
-/*< >*/
-
-/* 3rd spectral band of multi spectral scanner */
-
-/*< >*/
-/* 4th spectral band of multi spectral scanner */
-
-/*< >*/
-/*< >*/
-/*< wli(1)=0.4749999 >*/
- wli[0] = .4749999;
-/*< wls(1)=0.6399999 >*/
- wls[0] = .6399999;
-/*< wli(2)=0.5799999 >*/
- wli[1] = .5799999;
-/*< wls(2)=0.75 >*/
- wls[1] = .75;
-/*< wli(3)=0.6549999 >*/
- wli[2] = .6549999;
-/*< wls(3)=0.8549998 >*/
- wls[2] = .8549998;
-/*< wli(4)=0.7849999 >*/
- wli[3] = .7849999;
-/*< wls(4)=1.1 >*/
- wls[3] = 1.1;
-/*< do 1 i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< s(i)=sr(iwa,i) >*/
- sixs_ffu__1.s[i__ - 1] = sr[*iwa + (i__ << 2) - 5];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< wlinf=wli(iwa) >*/
- sixs_ffu__1.wlinf = wli[*iwa - 1];
-/*< wlsup=wls(iwa) >*/
- sixs_ffu__1.wlsup = wls[*iwa - 1];
-/*< return >*/
- return 0;
-/*< end >*/
-} /* mss_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MSS.f b/Modules/ThirdParty/6S/src/6SV1.0B/MSS.f
deleted file mode 100644
index 6d71102..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MSS.f
+++ /dev/null
@@ -1,92 +0,0 @@
- subroutine mss(iwa)
- common /sixs_ffu/ s(1501),wlinf,wlsup
- real sr(4,1501),wli(4),wls(4)
- real s,wlinf,wlsup
- integer iwa,l,i
-c
-c 1st spectral band of multi spectral scanner
-c
- data (sr(1,l),l=1,1501)/ 90*0.,
- a .00, .01, .01, .01, .02, .04, .05,
- a .09, .13, .21, .29, .45, .61, .72,
- a .82, .85, .89, .92, .95, .96, .98,
- a .99, .99, 1.00, 1.00, 1.00, 1.00, 1.00,
- a 1.00, 1.00, .99, .99, .98, .98, .98,
- a .97, .97, .96, .96, .96, .96, .95,
- a .95, .93, .91, .89, .87, .85, .82,
- a .73, .65, .54, .43, .38, .33, .24,
- a .15, .11, .08, .06, .04, .03, .03,
- a .02, .02, .02, .01,
- a1344*0./
-c
-c 2nd spectral band of multi spectral scanner
-c
- data (sr(2,l),l=1,1501)/ 132*0.,
- a .01, .01, .01, .01, .01, .01, .02,
- a .03, .04, .08, .13, .21, .29, .43,
- a .57, .69, .80, .86, .92, .94, .96,
- a .97, .99, .99, 1.00, 1.00, 1.00, .99,
- a .98, .97, .96, .94, .93, .90, .88,
- a .92, .96, .96, .96, .95, .95, .90,
- a .84, .82, .80, .79, .78, .79, .80,
- a .80, .80, .73, .67, .59, .50, .38,
- a .25, .18, .11, .09, .08, .07, .06,
- a .05, .05, .04, .04, .03, .03,
- a1300*0./
-c
-c 3rd spectral band of multi spectral scanner
-c
- data (sr(3,l),l=1,1501)/ 162*0.,
- a .01, .01, .01, .02, .02, .02, .02,
- a .03, .03, .05, .07, .10, .14, .17,
- a .20, .31, .41, .48, .56, .66, .75,
- a .83, .90, .93, .97, .98, .99, 1.00,
- a 1.00, 1.00, .99, .99, .98, .97, .96,
- a .94, .93, .90, .88, .87, .86, .84,
- a .83, .82, .82, .82, .82, .82, .83,
- a .83, .83, .83, .83, .81, .80, .78,
- a .75, .68, .61, .55, .49, .41, .34,
- a .29, .24, .19, .15, .12, .08, .07,
- a .07, .05, .03, .03, .03, .02, .02,
- a .01, .01, .01, .01,
- a1258*0./
-c 4th spectral band of multi spectral scanner
-c
- data (sr(4,l),l=1,284)/ 214*0.,
- a .01, .02, .02, .04, .06, .14, .21,
- a .45, .68, .76, .83, .89, .94, .94,
- a .94, .94, .95, .95, .96, .97, .98,
- a .99, .99, 1.00, 1.00, 1.00, 1.00, 1.00,
- a 1.00, 1.00, .99, .98, .97, .96, .95,
- a .94, .93, .92, .92, .91, .90, .89,
- a .88, .87, .86, .86, .85, .83, .82,
- a .81, .80, .78, .77, .76, .76, .75,
- a .74, .72, .70, .69, .68, .66, .64,
- a .63, .62, .61, .60, .58, .57, .56/
- data (sr(4,l),l=285,1501)/
- a .55, .55, .54, .52, .51, .50, .49,
- a .47, .46, .45, .44, .43, .42, .41,
- a .40, .39, .39, .38, .37, .36, .35,
- a .34, .33, .32, .31, .30, .29, .28,
- a .27, .26, .25, .24, .23, .22, .21,
- a .20, .20, .19, .18, .16, .15, .14,
- a .13, .12, .12, .11, .10, .08, .07,
- a .06, .06, .05, .04, .03, .02, .01,
- a .01,
- a1160*0./
- wli(1)=0.4749999
- wls(1)=0.6399999
- wli(2)=0.5799999
- wls(2)=0.75
- wli(3)=0.6549999
- wls(3)=0.8549998
- wli(4)=0.7849999
- wls(4)=1.1
- do 1 i=1,1501
- s(i)=sr(iwa,i)
- 1 continue
- wlinf=wli(iwa)
- wlsup=wls(iwa)
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/MSS.h b/Modules/ThirdParty/6S/src/6SV1.0B/MSS.h
deleted file mode 100644
index 4a6ab78..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/MSS.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_mss_(
- otb_6s_integer *iwa
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/Makefile_ref b/Modules/ThirdParty/6S/src/6SV1.0B/Makefile_ref
deleted file mode 100644
index 42b8188..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/Makefile_ref
+++ /dev/null
@@ -1,46 +0,0 @@
-SHELL = /bin/sh
-SYSTEM = HP-UX
-EXTRA = +FPVZOUD +O3 -D$(SYSTEM)
-EXTRA = -g
-EXTRA = -O
-FFLAGS= $(EXTRA)
-#CFLAGS = -Ae $(EXTRA)
-CFLAGS = $(EXTRA)
-FC = g77 $(FFLAGS)
-CC = cc $(CFLAGS)
-
-OBJECTS0 = AATSR.o ABSTRA.o AEROSO.o AKTOOL.o ATMREF.o AVHRR.o BBM.o BDM.o BRDFGRID.o \
-CHAND.o CLEARW.o CSALBR.o DICA1.o DICA2.o DICA3.o DISCOM.o \
-DISCRE.o DUST.o ENVIRO.o EQUIVWL.o GAUSS.o GLI.o GOES.o HAPKALBE.o \
-HAPKBRDF.o HRV.o IAPIALBE.o IAPIBRDF.o IAPITOOLS.o INTERP.o ISO.o \
-KERNEL.o KERNELPOL.o LAKEW.o MAS.o MERIS.o METEO.o METH1.o METH2.o METH3.o METH4.o \
-METH5.o METH6.o MIDSUM.o MIDWIN.o MIE.o MINNALBE.o MINNBRDF.o \
-MOCA1.o MOCA2.o MOCA3.o MOCA4.o MOCA5.o MOCA6.o MODIS.o MSS.o NIOX1.o \
-MODISBRDF.o MODISALBE.o \
-NIOX2.o NIOX3.o NIOX4.o NIOX5.o NIOX6.o OCEA.o OCEAALBE.o OCEABRDF.o OCEABRDFFAST.o\
-OCEATOOLS.o ODA550.o ODRAYL.o OS.o OSPOL.o OXYG3.o OXYG4.o OXYG5.o OXYG6.o \
-OZON1.o PLANPOL.o POLDER.o POSGE.o POSGW.o POSLAN.o POSMTO.o POSNOA.o POSSOL.o POSSPO.o \
-POLGLIT.o POLNAD.o \
-PRESPLANE.o PRESSURE.o PRINT_ERROR.o RAHMALBE.o RAHMBRDF.o ROUJALBE.o \
-ROUJBRDF.o SAND.o SCATRA.o SEAWIFS.o SOLIRR.o SOOT.o SPECINTERP.o SPLIE2.o \
-SPLIN2.o SPLINE.o SPLINT.o STM.o SUBSUM.o SUBWIN.o TM.o TROPIC.o \
-TRUNCA.o US62.o VARSOL.o VEGETA.o VERSALBE.o VERSBRDF.o VERSTOOLS.o \
-WALTALBE.o WALTBRDF.o WATE.o WAVA1.o WAVA2.o WAVA3.o WAVA4.o WAVA5.o \
-WAVA6.o AEROPROF.o
-
-OBJECTS1= main.o
-
-
-
-sixs: $(OBJECTS0) $(OBJECTS1)
- $(FC) $(OBJECTS1) $(OBJECTS0) -o sixsV1.0B -lm
-
-sixsc++: $(OBJECTS0) $(OBJECTS1)
- $(CC) $(OBJECTS1) $(OBJECTS0) -o sixsV1.0B.c++ -lm
-
-
-clean:
- rm -f *.o
-
-
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.P b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.P
deleted file mode 100644
index da808fa..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int niox1_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.c b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.c
deleted file mode 100644
index a273fcd..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.c
+++ /dev/null
@@ -1,268 +0,0 @@
-/* NIOX1.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine niox1(a,inu) >*/
-/* Subroutine */ int niox1_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 2.0198,1.2223,.021725,
- -7.4064e-5,.021102,-6.8716e-5,2500.,2510.,5.563,.51358,.018526,
- -8.1387e-5,.020173,-7.5293e-5,2510.,2520.,30.587,.41845,.010994,
- -5.2858e-5,.012658,-4.4443e-5,2520.,2530.,127.44,.46867,.0044706,
- -2.7536e-5,.0057879,-1.6691e-5,2530.,2540.,288.02,.51762,
- -2.6998e-4,-8.7651e-6,.0012264,2.1451e-6,2540.,2550.,353.69,.7476,
- -.0029604,4.5093e-6,-.0013209,1.2765e-5,2550.,2560.,185.24,1.0395,
- -.0026365,1.2028e-5,6.176e-4,1.0222e-5,2560.,2570.,464.55,.85773,
- -.0024108,-1.72e-6,-7.7777e-4,5.7019e-6,2570.,2580.,293.83,1.0741,
- .0031043,-2.1797e-5,.0037703,-2.0707e-5,2580.,2590.,55.672,1.7813,
- .013484,-6.2711e-5,.013188,-6.339e-5,2590.,2600.,6.6505,2.3452,
- .023437,-9.9109e-5,.023591,-1.0503e-4,2600.,2610.,.41623,2.2528,
- .035914,-1.5047e-4,.035732,-1.5387e-4,2610.,2620.,.01271,1.0271,
- .047982,-1.9811e-4,.047474,-2.0344e-4,2620.,2630.,0.,0.,0.,0.,0.,
- 0.,2630.,2640.,0.,0.,0.,0.,0.,0.,2640.,2650.,0.,0.,0.,0.,0.,0.,
- 2650.,2660.,0.,0.,0.,0.,0.,0.,2660.,2670.,0.,0.,0.,0.,0.,0.,2670.,
- 2680.,0.,0.,0.,0.,0.,0.,2680.,2690.,0.,0.,0.,0.,0.,0.,2690.,2700.,
- 0.,0.,0.,0.,0.,0.,2700.,2710.,0.,0.,0.,0.,0.,0.,2710.,2720.,0.,0.,
- 0.,0.,0.,0.,2720.,2730.,.018198,.18592,.025778,-1.1646e-4,.02282,
- -1.1152e-4,2730.,2740.,.21623,.86664,.021368,-9.617e-5,.018994,
- -9.4763e-5,2740.,2750.,.9723,1.0815,.015101,-7.1229e-5,.012988,
- -7.0769e-5,2750.,2760.,3.1871,1.6537,.0095979,-4.1092e-5,.0109,
- -5.0556e-5,2760.,2770.,9.1207,2.0456,.0045146,-1.7223e-5,.0068327,
- -3.3329e-5,2770.,2780.,15.769,2.4147,.00151,2.7306e-6,.004717,
- -2.1798e-5,2780.,2790.,63.944,2.2532,-9.2395e-4,-1.4987e-6,
- -.0017516,-2.476e-6,2790.,2800.,13.465,.81561,-.0029579,7.8199e-6,
- -.0016132,7.282e-6,2800.,2810.,15.397,.59138,-4.591e-4,-9.3657e-6,
- -.0015437,-2.9788e-6,2810.,2820.,3.8011,.48019,.0069255,
- -3.8126e-5,.0047344,-3.7097e-5,2820.,2830.,.17619,.34619,.019824,
- -8.9371e-5,.017957,-8.9565e-5,2830.,2840.,0.,0.,0.,0.,0.,0.,2840.,
- 2850.,0.,0.,0.,0.,0.,0.,2850.,2860.,0.,0.,0.,0.,0.,0.,2860.,2870.,
- 0.,0.,0.,0.,0.,0.,2870.,2880.,0.,0.,0.,0.,0.,0.,2880.,2890.,0.,0.,
- 0.,0.,0.,0.,2890.,2900.,0.,0.,0.,0.,0.,0.,2900.,2910.,0.,0.,0.,0.,
- 0.,0.,2910.,2920.,0.,0.,0.,0.,0.,0.,2920.,2930.,0.,0.,0.,0.,0.,0.,
- 2930.,2940.,0.,0.,0.,0.,0.,0.,2940.,2950.,0.,0.,0.,0.,0.,0.,2950.,
- 2960.,0.,0.,0.,0.,0.,0.,2960.,2970.,0.,0.,0.,0.,0.,0.,2970.,2980.,
- 0.,0.,0.,0.,0.,0.,2980.,2990.,0.,0.,0.,0.,0.,0.,2990.,3e3,0.,0.,
- 0.,0.,0.,0.,3e3,3010.,0.,0.,0.,0.,0.,0.,3010.,3020.,0.,0.,0.,0.,
- 0.,0.,3020.,3030.,0.,0.,0.,0.,0.,0.,3030.,3040.,0.,0.,0.,0.,0.,0.,
- 3040.,3050.,0.,0.,0.,0.,0.,0.,3050.,3060.,0.,0.,0.,0.,0.,0.,3060.,
- 3070.,0.,0.,0.,0.,0.,0.,3070.,3080.,0.,0.,0.,0.,0.,0.,3080.,3090.,
- 0.,0.,0.,0.,0.,0.,3090.,3100.,0.,0.,0.,0.,0.,0.,3100.,3110.,0.,0.,
- 0.,0.,0.,0.,3110.,3120.,0.,0.,0.,0.,0.,0.,3120.,3130.,0.,0.,0.,0.,
- 0.,0.,3130.,3140.,0.,0.,0.,0.,0.,0.,3140.,3150.,0.,0.,0.,0.,0.,0.,
- 3150.,3160.,0.,0.,0.,0.,0.,0.,3160.,3170.,0.,0.,0.,0.,0.,0.,3170.,
- 3180.,0.,0.,0.,0.,0.,0.,3180.,3190.,0.,0.,0.,0.,0.,0.,3190.,3200.,
- 0.,0.,0.,0.,0.,0.,3200.,3210.,0.,0.,0.,0.,0.,0.,3210.,3220.,0.,0.,
- 0.,0.,0.,0.,3220.,3230.,0.,0.,0.,0.,0.,0.,3230.,3240.,0.,0.,0.,0.,
- 0.,0.,3240.,3250.,0.,0.,0.,0.,0.,0.,3250.,3260.,0.,0.,0.,0.,0.,0.,
- 3260.,3270.,0.,0.,0.,0.,0.,0.,3270.,3280.,0.,0.,0.,0.,0.,0.,3280.,
- 3290.,.031935,.33591,.031875,-1.4104e-4,.028977,-1.3626e-4,3290.,
- 3300.,.29281,.7467,.024844,-1.1101e-4,.022436,-1.0879e-4,3300.,
- 3310.,1.3054,.88331,.018331,-8.5898e-5,.015557,-8.2041e-5,3310.,
- 3320.,4.3559,.97784,.012392,-6.2543e-5,.0096436,-5.8644e-5,3320.,
- 3330.,10.74,.87778,.0059037,-3.4711e-5,.0041535,-3.5594e-5,3330.,
- 3340.,23.794,.67907,5.4208e-5,-1.1592e-5,-8.2054e-4,-1.2774e-5,
- 3340.,3350.,27.447,.86607,-.0018645,4.7336e-6,-.001502,-1.8166e-6,
- 3350.,3360.,12.839,.92051,-.0018449,1.8928e-5,-3.1436e-5,
- 6.4319e-6,3360.,3370.,33.503,.561,-.0027786,-1.9224e-7,-.0032856,
- 1.1355e-5,3370.,3380.,20.6,.44389,.0016967,-1.9484e-5,-.0011701,
- -1.5371e-5,3380.,3390.,3.8609,.51395,.010469,-4.8303e-5,.010318,
- -4.3382e-5,3390.,3400.,.29988,.99187,.032066,-1.0701e-4,.031782,
- -1.3149e-4,3400.,3410.,1.1046,.96114,.03056,-1.2026e-4,.031203,
- -1.3653e-4,3410.,3420.,5.3792,.96792,.023315,-9.51e-5,.024421,
- -1.0864e-4,3420.,3430.,25.745,.89943,.015618,-6.5963e-5,.017309,
- -7.84e-5,3430.,3440.,90.538,.79321,.009142,-4.2087e-5,.010653,
- -5.0451e-5,3440.,3450.,302.63,.81416,.0031369,-1.9699e-5,.0046971,
- -2.3774e-5,3450.,3460.,451.74,.71592,-.0010912,-4.691e-6,7.436e-4,
- -4.31e-6,3460.,3470.,395.99,.95008,-.0034795,5.0213e-6,-.0012061,
- 8.3238e-6,3470.,3480.,391.94,1.0413,-.0024518,9.7005e-6,3.1609e-4,
- 6.168e-6,3480.,3490.,753.96,.84036,-9.1794e-4,-4.5133e-6,
- -2.3983e-4,-6.0537e-7,3490.,3500.,216.44,.71621,.00633,-3.2276e-5,
- .0065565,-3.1312e-5,3500.,3510.,1.8617,.41652,.026193,-1.1186e-4,
- .025872,-1.1548e-4,3510.,3520.,0.,0.,0.,0.,0.,0.,3520.,3530.,0.,
- 0.,0.,0.,0.,0.,3530.,3540.,0.,0.,0.,0.,0.,0.,3540.,3550.,0.,0.,0.,
- 0.,0.,0.,3550.,3560.,0.,0.,0.,0.,0.,0.,3560.,3570.,0.,0.,0.,0.,0.,
- 0.,3570.,3580.,.11329,.32221,.011785,-5.9055e-5,.009293,
- -5.6411e-5,3580.,3590.,.6324,.37454,.0039372,-2.85e-5,.0010518,
- -2.435e-5,3590.,3600.,1.3646,.37234,-.0012358,-8.9975e-6,
- -.0042592,-3.4218e-6,3600.,3610.,1.1991,.43663,-.0040429,
- 1.6771e-6,-.007273,8.322e-6,3610.,3620.,.84759,.39017,-.0045304,
- 3.5248e-6,-.0077172,1.0072e-5,3620.,3630.,1.7247,.41455,-.0023639,
- -4.6172e-6,-.0054164,1.1967e-6,3630.,3640.,.9314,.40923,.002508,
- -2.2795e-5,-3.8062e-4,-1.8608e-5,3640.,3650.,.17321,.37301,
- .010558,-5.3495e-5,.0082291,-5.1685e-5,3650.,3660.,.0028992,
- .031363,.018626,-8.9141e-5,.015463,-8.2773e-5,3660.,3670.,0.,0.,
- 0.,0.,0.,0.,3670.,3680.,0.,0.,0.,0.,0.,0.,3680.,3690.,.052016,
- .2333,.023008,-1.0429e-4,.020466,-1.014e-4,3690.,3700.,.40077,
- .43751,.015625,-7.0109e-5,.014974,-7.3666e-5,3700.,3710.,2.1822,
- .57186,.0083501,-3.9798e-5,.0081924,-4.424e-5,3710.,3720.,6.6262,
- .62697,.0026483,-1.7431e-5,.0025461,-2.1437e-5,3720.,3730.,11.503,
- .6936,-.001529,-2.0568e-6,-.0018176,-4.1926e-6,3730.,3740.,5.547,
- .70735,-.0036265,5.5723e-6,-.0039987,4.3869e-6,3740.,3750.,10.823,
- .8515,-.0028437,4.704e-6,-.0029039,1.4795e-6,3750.,3760.,13.145,
- .83989,2.3467e-4,-7.519e-6,3.7066e-4,-1.0406e-5,3760.,3770.,
- 3.9192,.87428,.0073134,-3.2311e-5,.0084021,-3.9596e-5,3770.,3780.,
- .56238,.59784,.018114,-8.3716e-5,.016001,-8.226e-5,3780.,3790.,
- 1.486,.24352,.011201,-5.7941e-5,.0083855,-5.3563e-5,3790.,3800.,
- 5.7846,.28312,.0051402,-3.3968e-5,.0020967,-2.8941e-5,3800.,3810.,
- 15.534,.38502,2.6866e-4,-1.3504e-5,-.0010262,-5.4149e-6,3810.,
- 3820.,20.107,.46654,-.0028471,4.7046e-7,-.0034091,7.0565e-6,3820.,
- 3830.,9.6329,.68399,-.0033535,1.0816e-5,-.0031945,9.1488e-6,3830.,
- 3840.,28.782,.76658,-.0028915,1.4121e-6,-.0036898,2.7782e-6,3840.,
- 3850.,22.068,.72888,.0013903,-1.6991e-5,-3.5656e-4,-1.6534e-5,
- 3850.,3860.,4.1416,1.4182,.010989,-5.3426e-5,.0089392,-5.1526e-5,
- 3860.,3870.,1.386,1.0616,.014465,-7.035e-5,.011642,-6.6421e-5,
- 3870.,3880.,.21981,.827,.023073,-1.0318e-4,.020793,-1.0169e-4,
- 3880.,3890.,0.,0.,0.,0.,0.,0.,3890.,3900.,0.,0.,0.,0.,0.,0.,3900.,
- 3910.,0.,0.,0.,0.,0.,0.,3910.,3920.,0.,0.,0.,0.,0.,0.,3920.,3930.,
- 0.,0.,0.,0.,0.,0.,3930.,3940.,0.,0.,0.,0.,0.,0.,3940.,3950.,0.,0.,
- 0.,0.,0.,0.,3950.,3960.,0.,0.,0.,0.,0.,0.,3960.,3970.,0.,0.,0.,0.,
- 0.,0.,3970.,3980.,0.,0.,0.,0.,0.,0.,3980.,3990.,0.,0.,0.,0.,0.,0.,
- 3990.,4e3,0.,0.,0.,0.,0.,0.,4e3,4010.,0.,0.,0.,0.,0.,0.,4010.,
- 4020.,0.,0.,0.,0.,0.,0.,4020.,4030.,.046381,.22687,.0024345,
- -2.3816e-5,-7.0852e-4,-1.7981e-5,4030.,4040.,.11207,.33988,
- -.0013925,-8.515e-6,-.0044315,-2.7839e-6,4040.,4050.,.26494,
- .78086,7.5352e-4,-1.0882e-5,-.00225,-8.0414e-6,4050.,4060.,.52355,
- .95211,-.003229,-8.4991e-7,-.0065316,5.7606e-6,4060.,4070.,.20288,
- .51222,-.0019356,-5.8786e-6,-.0049461,-5.0049e-7,4070.,4080.,
- .047528,.22508,.002968,-2.5911e-5,-1.9533e-4,-2.0081e-5,4080.,
- 4090.,0.,0.,0.,0.,0.,0.,4090.,4100.,0.,0.,0.,0.,0.,0.,4100.,4110.,
- 0.,0.,0.,0.,0.,0.,4110.,4120.,0.,0.,0.,0.,0.,0.,4120.,4130.,0.,0.,
- 0.,0.,0.,0.,4130.,4140.,0.,0.,0.,0.,0.,0.,4140.,4150.,0.,0.,0.,0.,
- 0.,0.,4150.,4160.,0.,0.,0.,0.,0.,0.,4160.,4170.,0.,0.,0.,0.,0.,0.,
- 4170.,4180.,0.,0.,0.,0.,0.,0.,4180.,4190.,0.,0.,0.,0.,0.,0.,4190.,
- 4200.,0.,0.,0.,0.,0.,0.,4200.,4210.,0.,0.,0.,0.,0.,0.,4210.,4220.,
- 0.,0.,0.,0.,0.,0.,4220.,4230.,0.,0.,0.,0.,0.,0.,4230.,4240.,0.,0.,
- 0.,0.,0.,0.,4240.,4250.,0.,0.,0.,0.,0.,0.,4250.,4260.,0.,0.,0.,0.,
- 0.,0.,4260.,4270.,0.,0.,0.,0.,0.,0.,4270.,4280.,0.,0.,0.,0.,0.,0.,
- 4280.,4290.,0.,0.,0.,0.,0.,0.,4290.,4300.,.010261,.065002,
- .0034485,-2.8392e-5,1.7191e-4,-2.183e-5,4300.,4310.,.084185,
- .33064,1.571e-4,-1.4472e-5,-.0028838,-8.9966e-6,4310.,4320.,
- .11106,.39358,-.0032422,-1.3748e-6,-.006363,4.8743e-6,4320.,4330.,
- .58854,1.3088,-9.7669e-4,7.0381e-7,-.0031832,2.6227e-6,4330.,
- 4340.,.25725,1.0051,.006086,4.6822e-5,.0059645,6.3569e-6,4340.,
- 4350.,.46043,1.0822,.014451,-3.4551e-5,.010783,-4.3114e-5,4350.,
- 4360.,1.0879,.79314,.015344,-7.4899e-5,.012327,-6.9661e-5,4360.,
- 4370.,2.8336,.83143,.010372,-5.4787e-5,.0077026,-5.1069e-5,4370.,
- 4380.,5.6315,.55232,.0048246,-3.1963e-5,.0030343,-3.1434e-5,4380.,
- 4390.,11.627,.66242,.0012226,-1.4669e-5,9.6618e-4,-1.906e-5,4390.,
- 4400.,18.357,.81274,-.0015078,2.8307e-6,3.021e-4,-3.645e-6,4400.,
- 4410.,8.1517,.53727,-.0041588,8.2656e-6,-.0039017,1.9754e-5,4410.,
- 4420.,21.947,.50379,-.0036693,3.4765e-7,-.0068581,6.819e-6,4420.,
- 4430.,21.321,.70812,.0014866,-1.5888e-5,-7.1958e-4,-1.5047e-5,
- 4430.,4440.,.76039,.46213,.015813,-7.1293e-5,.014807,-7.4172e-5,
- 4440.,4450.,0.,0.,0.,0.,0.,0.,4450.,4460.,0.,0.,0.,0.,0.,0.,4460.,
- 4470.,0.,0.,0.,0.,0.,0.,4470.,4480.,0.,0.,0.,0.,0.,0.,4480.,4490.,
- 0.,0.,0.,0.,0.,0.,4490.,4500.,0.,0.,0.,0.,0.,0.,4500.,4510.,0.,0.,
- 0.,0.,0.,0.,4510.,4520.,0.,0.,0.,0.,0.,0.,4520.,4530.,0.,0.,0.,0.,
- 0.,0.,4530.,4540.,0.,0.,0.,0.,0.,0.,4540.,4550.,0.,0.,0.,0.,0.,0.,
- 4550.,4560.,0.,0.,0.,0.,0.,0.,4560.,4570.,.0027208,.031363,
- .019608,-9.3071e-5,.016446,-8.6703e-5,4570.,4580.,.075316,.2673,
- .013852,-6.7928e-5,.01126,-6.4664e-5,4580.,4590.,.26478,.24916,
- .0075261,-4.3549e-5,.0044923,-3.8501e-5,4590.,4600.,.94057,.32245,
- .0019994,-2.1568e-5,-.0010356,-1.639e-5,4600.,4610.,1.6283,.34503,
- -.002067,-5.9246e-6,-.0051076,-7.9763e-8,4610.,4620.,1.1361,
- .39643,-.0042841,2.5773e-6,-.007504,9.2053e-6,4620.,4630.,1.3595,
- .42824,-.0043267,2.7527e-6,-.0075382,9.366e-6,4630.,4640.,2.345,
- .5039,-.0013021,-8.1896e-6,-.0042803,-3.1004e-6,4640.,4650.,
- .73444,.57859,.006112,-3.3071e-5,.0044533,-3.3529e-5,4650.,4660.,
- .038422,.23935,.02365,-1.0589e-4,.020573,-1.0116e-4,4660.,4670.,
- .16643,.21059,.017844,-8.4429e-5,.015076,-8.0351e-5,4670.,4680.,
- .66361,.33032,.012376,-5.9085e-5,.01164,-5.974e-5,4680.,4690.,
- 2.4086,.4322,.0069608,-3.6434e-5,.0066271,-3.8146e-5,4690.,4700.,
- 5.7007,.46363,.0024374,-1.85e-5,.0021804,-2.0294e-5,4700.,4710.,
- 11.243,.58097,-.0013313,-4.1463e-6,-.001735,-4.8882e-6,4710.,
- 4720.,7.8568,.66135,-.0035465,4.3994e-6,-.0041602,4.5248e-6,4720.,
- 4730.,9.4234,.73404,-.0035684,4.612e-6,-.0040476,4.3652e-6,4730.,
- 4740.,18.463,1.0659,1.1174e-6,-7.5689e-6,-1.4938e-4,-1.035e-5,
- 4740.,4750.,2.9519,.92577,.009335,-4.0974e-5,.010093,-5.0109e-5,
- 4750.,4760.,0.,0.,0.,0.,0.,0.,4760.,4770.,0.,0.,0.,0.,0.,0.,4770.,
- 4780.,0.,0.,0.,0.,0.,0.,4780.,4790.,0.,0.,0.,0.,0.,0.,4790.,4800.,
- 0.,0.,0.,0.,0.,0.,4800.,4810.,0.,0.,0.,0.,0.,0.,4810.,4820.,0.,0.,
- 0.,0.,0.,0.,4820.,4830.,0.,0.,0.,0.,0.,0.,4830.,4840.,0.,0.,0.,0.,
- 0.,0.,4840.,4850.,0.,0.,0.,0.,0.,0.,4850.,4860.,0.,0.,0.,0.,0.,0.,
- 4860.,4870.,0.,0.,0.,0.,0.,0.,4870.,4880.,0.,0.,0.,0.,0.,0.,4880.,
- 4890.,0.,0.,0.,0.,0.,0.,4890.,4900.,0.,0.,0.,0.,0.,0.,4900.,4910.,
- 0.,0.,0.,0.,0.,0.,4910.,4920.,0.,0.,0.,0.,0.,0.,4920.,4930.,0.,0.,
- 0.,0.,0.,0.,4930.,4940.,0.,0.,0.,0.,0.,0.,4940.,4950.,.057081,
- .26504,2.1749e-4,-1.4991e-5,-.0028657,-9.2093e-6,4950.,4960.,
- .089281,.35365,-.0029091,-2.6962e-6,-.0059925,3.4121e-6,4960.,
- 4970.,.46911,1.1088,-.0015343,-4.5097e-6,-.0043859,-9.5143e-7,
- 4970.,4980.,.1858,.71004,2.2264e-4,5.4082e-6,-.0022981,3.4446e-7,
- 4980.,4990.,.30113,.63162,.0034248,-2.4398e-5,-2.019e-4,
- -1.8173e-5,4990.,5e3,.54259,.33048,1.4963e-4,-1.4443e-5,-.0028875,
- -8.9818e-6,5e3,5010.,.69468,.35696,-.0031719,-1.6864e-6,-.0062635,
- 4.4718e-6,5010.,5020.,.31258,.41285,-.0047292,4.2957e-6,-.0079123,
- 1.0784e-5,5020.,5030.,.9629,.50181,-.0034905,-3.0499e-7,-.0066561,
- 6.056e-6,5030.,5040.,.75559,.535,.0012181,-1.6925e-5,-.0015139,
- -1.3577e-5,5040.,5050.,.089652,.35481,.010413,-5.3691e-5,.0078717,
- -5.0854e-5,5050.,5060. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* nitrous oxide (2500 - 5050 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* niox1_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.f b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.f
deleted file mode 100644
index 05a23ad..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine niox1(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c nitrous oxide (2500 - 5050 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.20198e+01, 0.12223e+01, 0.21725e-01,-0.74064e-04, 0.21102e-01,
- a-0.68716e-04, 0.25000e+04, 0.25100e+04,
- a 0.55630e+01, 0.51358e+00, 0.18526e-01,-0.81387e-04, 0.20173e-01,
- a-0.75293e-04, 0.25100e+04, 0.25200e+04,
- a 0.30587e+02, 0.41845e+00, 0.10994e-01,-0.52858e-04, 0.12658e-01,
- a-0.44443e-04, 0.25200e+04, 0.25300e+04,
- a 0.12744e+03, 0.46867e+00, 0.44706e-02,-0.27536e-04, 0.57879e-02,
- a-0.16691e-04, 0.25300e+04, 0.25400e+04,
- a 0.28802e+03, 0.51762e+00,-0.26998e-03,-0.87651e-05, 0.12264e-02,
- a 0.21451e-05, 0.25400e+04, 0.25500e+04,
- a 0.35369e+03, 0.74760e+00,-0.29604e-02, 0.45093e-05,-0.13209e-02,
- a 0.12765e-04, 0.25500e+04, 0.25600e+04,
- a 0.18524e+03, 0.10395e+01,-0.26365e-02, 0.12028e-04, 0.61760e-03,
- a 0.10222e-04, 0.25600e+04, 0.25700e+04,
- a 0.46455e+03, 0.85773e+00,-0.24108e-02,-0.17200e-05,-0.77777e-03,
- a 0.57019e-05, 0.25700e+04, 0.25800e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.29383e+03, 0.10741e+01, 0.31043e-02,-0.21797e-04, 0.37703e-02,
- a-0.20707e-04, 0.25800e+04, 0.25900e+04,
- a 0.55672e+02, 0.17813e+01, 0.13484e-01,-0.62711e-04, 0.13188e-01,
- a-0.63390e-04, 0.25900e+04, 0.26000e+04,
- a 0.66505e+01, 0.23452e+01, 0.23437e-01,-0.99109e-04, 0.23591e-01,
- a-0.10503e-03, 0.26000e+04, 0.26100e+04,
- a 0.41623e+00, 0.22528e+01, 0.35914e-01,-0.15047e-03, 0.35732e-01,
- a-0.15387e-03, 0.26100e+04, 0.26200e+04,
- a 0.12710e-01, 0.10271e+01, 0.47982e-01,-0.19811e-03, 0.47474e-01,
- a-0.20344e-03, 0.26200e+04, 0.26300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26300e+04, 0.26400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26400e+04, 0.26500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26500e+04, 0.26600e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26600e+04, 0.26700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26700e+04, 0.26800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26800e+04, 0.26900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26900e+04, 0.27000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27000e+04, 0.27100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27100e+04, 0.27200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.27200e+04, 0.27300e+04,
- a 0.18198e-01, 0.18592e+00, 0.25778e-01,-0.11646e-03, 0.22820e-01,
- a-0.11152e-03, 0.27300e+04, 0.27400e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.21623e+00, 0.86664e+00, 0.21368e-01,-0.96170e-04, 0.18994e-01,
- a-0.94763e-04, 0.27400e+04, 0.27500e+04,
- a 0.97230e+00, 0.10815e+01, 0.15101e-01,-0.71229e-04, 0.12988e-01,
- a-0.70769e-04, 0.27500e+04, 0.27600e+04,
- a 0.31871e+01, 0.16537e+01, 0.95979e-02,-0.41092e-04, 0.10900e-01,
- a-0.50556e-04, 0.27600e+04, 0.27700e+04,
- a 0.91207e+01, 0.20456e+01, 0.45146e-02,-0.17223e-04, 0.68327e-02,
- a-0.33329e-04, 0.27700e+04, 0.27800e+04,
- a 0.15769e+02, 0.24147e+01, 0.15100e-02, 0.27306e-05, 0.47170e-02,
- a-0.21798e-04, 0.27800e+04, 0.27900e+04,
- a 0.63944e+02, 0.22532e+01,-0.92395e-03,-0.14987e-05,-0.17516e-02,
- a-0.24760e-05, 0.27900e+04, 0.28000e+04,
- a 0.13465e+02, 0.81561e+00,-0.29579e-02, 0.78199e-05,-0.16132e-02,
- a 0.72820e-05, 0.28000e+04, 0.28100e+04,
- a 0.15397e+02, 0.59138e+00,-0.45910e-03,-0.93657e-05,-0.15437e-02,
- a-0.29788e-05, 0.28100e+04, 0.28200e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.38011e+01, 0.48019e+00, 0.69255e-02,-0.38126e-04, 0.47344e-02,
- a-0.37097e-04, 0.28200e+04, 0.28300e+04,
- a 0.17619e+00, 0.34619e+00, 0.19824e-01,-0.89371e-04, 0.17957e-01,
- a-0.89565e-04, 0.28300e+04, 0.28400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28400e+04, 0.28500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28500e+04, 0.28600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28600e+04, 0.28700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28700e+04, 0.28800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28800e+04, 0.28900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.28900e+04, 0.29000e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29000e+04, 0.29100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29100e+04, 0.29200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29200e+04, 0.29300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29300e+04, 0.29400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29400e+04, 0.29500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29500e+04, 0.29600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29600e+04, 0.29700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29700e+04, 0.29800e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29800e+04, 0.29900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.29900e+04, 0.30000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30000e+04, 0.30100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30100e+04, 0.30200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30200e+04, 0.30300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30300e+04, 0.30400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30400e+04, 0.30500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30500e+04, 0.30600e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30600e+04, 0.30700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30700e+04, 0.30800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30800e+04, 0.30900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.30900e+04, 0.31000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31000e+04, 0.31100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31100e+04, 0.31200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31200e+04, 0.31300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31300e+04, 0.31400e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31400e+04, 0.31500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31500e+04, 0.31600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31600e+04, 0.31700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31700e+04, 0.31800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31800e+04, 0.31900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.31900e+04, 0.32000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32000e+04, 0.32100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32100e+04, 0.32200e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32200e+04, 0.32300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32300e+04, 0.32400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32400e+04, 0.32500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32500e+04, 0.32600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32600e+04, 0.32700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32700e+04, 0.32800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32800e+04, 0.32900e+04,
- a 0.31935e-01, 0.33591e+00, 0.31875e-01,-0.14104e-03, 0.28977e-01,
- a-0.13626e-03, 0.32900e+04, 0.33000e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.29281e+00, 0.74670e+00, 0.24844e-01,-0.11101e-03, 0.22436e-01,
- a-0.10879e-03, 0.33000e+04, 0.33100e+04,
- a 0.13054e+01, 0.88331e+00, 0.18331e-01,-0.85898e-04, 0.15557e-01,
- a-0.82041e-04, 0.33100e+04, 0.33200e+04,
- a 0.43559e+01, 0.97784e+00, 0.12392e-01,-0.62543e-04, 0.96436e-02,
- a-0.58644e-04, 0.33200e+04, 0.33300e+04,
- a 0.10740e+02, 0.87778e+00, 0.59037e-02,-0.34711e-04, 0.41535e-02,
- a-0.35594e-04, 0.33300e+04, 0.33400e+04,
- a 0.23794e+02, 0.67907e+00, 0.54208e-04,-0.11592e-04,-0.82054e-03,
- a-0.12774e-04, 0.33400e+04, 0.33500e+04,
- a 0.27447e+02, 0.86607e+00,-0.18645e-02, 0.47336e-05,-0.15020e-02,
- a-0.18166e-05, 0.33500e+04, 0.33600e+04,
- a 0.12839e+02, 0.92051e+00,-0.18449e-02, 0.18928e-04,-0.31436e-04,
- a 0.64319e-05, 0.33600e+04, 0.33700e+04,
- a 0.33503e+02, 0.56100e+00,-0.27786e-02,-0.19224e-06,-0.32856e-02,
- a 0.11355e-04, 0.33700e+04, 0.33800e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.20600e+02, 0.44389e+00, 0.16967e-02,-0.19484e-04,-0.11701e-02,
- a-0.15371e-04, 0.33800e+04, 0.33900e+04,
- a 0.38609e+01, 0.51395e+00, 0.10469e-01,-0.48303e-04, 0.10318e-01,
- a-0.43382e-04, 0.33900e+04, 0.34000e+04,
- a 0.29988e+00, 0.99187e+00, 0.32066e-01,-0.10701e-03, 0.31782e-01,
- a-0.13149e-03, 0.34000e+04, 0.34100e+04,
- a 0.11046e+01, 0.96114e+00, 0.30560e-01,-0.12026e-03, 0.31203e-01,
- a-0.13653e-03, 0.34100e+04, 0.34200e+04,
- a 0.53792e+01, 0.96792e+00, 0.23315e-01,-0.95100e-04, 0.24421e-01,
- a-0.10864e-03, 0.34200e+04, 0.34300e+04,
- a 0.25745e+02, 0.89943e+00, 0.15618e-01,-0.65963e-04, 0.17309e-01,
- a-0.78400e-04, 0.34300e+04, 0.34400e+04,
- a 0.90538e+02, 0.79321e+00, 0.91420e-02,-0.42087e-04, 0.10653e-01,
- a-0.50451e-04, 0.34400e+04, 0.34500e+04,
- a 0.30263e+03, 0.81416e+00, 0.31369e-02,-0.19699e-04, 0.46971e-02,
- a-0.23774e-04, 0.34500e+04, 0.34600e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.45174e+03, 0.71592e+00,-0.10912e-02,-0.46910e-05, 0.74360e-03,
- a-0.43100e-05, 0.34600e+04, 0.34700e+04,
- a 0.39599e+03, 0.95008e+00,-0.34795e-02, 0.50213e-05,-0.12061e-02,
- a 0.83238e-05, 0.34700e+04, 0.34800e+04,
- a 0.39194e+03, 0.10413e+01,-0.24518e-02, 0.97005e-05, 0.31609e-03,
- a 0.61680e-05, 0.34800e+04, 0.34900e+04,
- a 0.75396e+03, 0.84036e+00,-0.91794e-03,-0.45133e-05,-0.23983e-03,
- a-0.60537e-06, 0.34900e+04, 0.35000e+04,
- a 0.21644e+03, 0.71621e+00, 0.63300e-02,-0.32276e-04, 0.65565e-02,
- a-0.31312e-04, 0.35000e+04, 0.35100e+04,
- a 0.18617e+01, 0.41652e+00, 0.26193e-01,-0.11186e-03, 0.25872e-01,
- a-0.11548e-03, 0.35100e+04, 0.35200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35200e+04, 0.35300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35300e+04, 0.35400e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35400e+04, 0.35500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35500e+04, 0.35600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35600e+04, 0.35700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35700e+04, 0.35800e+04,
- a 0.11329e+00, 0.32221e+00, 0.11785e-01,-0.59055e-04, 0.92930e-02,
- a-0.56411e-04, 0.35800e+04, 0.35900e+04,
- a 0.63240e+00, 0.37454e+00, 0.39372e-02,-0.28500e-04, 0.10518e-02,
- a-0.24350e-04, 0.35900e+04, 0.36000e+04,
- a 0.13646e+01, 0.37234e+00,-0.12358e-02,-0.89975e-05,-0.42592e-02,
- a-0.34218e-05, 0.36000e+04, 0.36100e+04,
- a 0.11991e+01, 0.43663e+00,-0.40429e-02, 0.16771e-05,-0.72730e-02,
- a 0.83220e-05, 0.36100e+04, 0.36200e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.84759e+00, 0.39017e+00,-0.45304e-02, 0.35248e-05,-0.77172e-02,
- a 0.10072e-04, 0.36200e+04, 0.36300e+04,
- a 0.17247e+01, 0.41455e+00,-0.23639e-02,-0.46172e-05,-0.54164e-02,
- a 0.11967e-05, 0.36300e+04, 0.36400e+04,
- a 0.93140e+00, 0.40923e+00, 0.25080e-02,-0.22795e-04,-0.38062e-03,
- a-0.18608e-04, 0.36400e+04, 0.36500e+04,
- a 0.17321e+00, 0.37301e+00, 0.10558e-01,-0.53495e-04, 0.82291e-02,
- a-0.51685e-04, 0.36500e+04, 0.36600e+04,
- a 0.28992e-02, 0.31363e-01, 0.18626e-01,-0.89141e-04, 0.15463e-01,
- a-0.82773e-04, 0.36600e+04, 0.36700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36700e+04, 0.36800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36800e+04, 0.36900e+04,
- a 0.52016e-01, 0.23330e+00, 0.23008e-01,-0.10429e-03, 0.20466e-01,
- a-0.10140e-03, 0.36900e+04, 0.37000e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.40077e+00, 0.43751e+00, 0.15625e-01,-0.70109e-04, 0.14974e-01,
- a-0.73666e-04, 0.37000e+04, 0.37100e+04,
- a 0.21822e+01, 0.57186e+00, 0.83501e-02,-0.39798e-04, 0.81924e-02,
- a-0.44240e-04, 0.37100e+04, 0.37200e+04,
- a 0.66262e+01, 0.62697e+00, 0.26483e-02,-0.17431e-04, 0.25461e-02,
- a-0.21437e-04, 0.37200e+04, 0.37300e+04,
- a 0.11503e+02, 0.69360e+00,-0.15290e-02,-0.20568e-05,-0.18176e-02,
- a-0.41926e-05, 0.37300e+04, 0.37400e+04,
- a 0.55470e+01, 0.70735e+00,-0.36265e-02, 0.55723e-05,-0.39987e-02,
- a 0.43869e-05, 0.37400e+04, 0.37500e+04,
- a 0.10823e+02, 0.85150e+00,-0.28437e-02, 0.47040e-05,-0.29039e-02,
- a 0.14795e-05, 0.37500e+04, 0.37600e+04,
- a 0.13145e+02, 0.83989e+00, 0.23467e-03,-0.75190e-05, 0.37066e-03,
- a-0.10406e-04, 0.37600e+04, 0.37700e+04,
- a 0.39192e+01, 0.87428e+00, 0.73134e-02,-0.32311e-04, 0.84021e-02,
- a-0.39596e-04, 0.37700e+04, 0.37800e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.56238e+00, 0.59784e+00, 0.18114e-01,-0.83716e-04, 0.16001e-01,
- a-0.82260e-04, 0.37800e+04, 0.37900e+04,
- a 0.14860e+01, 0.24352e+00, 0.11201e-01,-0.57941e-04, 0.83855e-02,
- a-0.53563e-04, 0.37900e+04, 0.38000e+04,
- a 0.57846e+01, 0.28312e+00, 0.51402e-02,-0.33968e-04, 0.20967e-02,
- a-0.28941e-04, 0.38000e+04, 0.38100e+04,
- a 0.15534e+02, 0.38502e+00, 0.26866e-03,-0.13504e-04,-0.10262e-02,
- a-0.54149e-05, 0.38100e+04, 0.38200e+04,
- a 0.20107e+02, 0.46654e+00,-0.28471e-02, 0.47046e-06,-0.34091e-02,
- a 0.70565e-05, 0.38200e+04, 0.38300e+04,
- a 0.96329e+01, 0.68399e+00,-0.33535e-02, 0.10816e-04,-0.31945e-02,
- a 0.91488e-05, 0.38300e+04, 0.38400e+04,
- a 0.28782e+02, 0.76658e+00,-0.28915e-02, 0.14121e-05,-0.36898e-02,
- a 0.27782e-05, 0.38400e+04, 0.38500e+04,
- a 0.22068e+02, 0.72888e+00, 0.13903e-02,-0.16991e-04,-0.35656e-03,
- a-0.16534e-04, 0.38500e+04, 0.38600e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.41416e+01, 0.14182e+01, 0.10989e-01,-0.53426e-04, 0.89392e-02,
- a-0.51526e-04, 0.38600e+04, 0.38700e+04,
- a 0.13860e+01, 0.10616e+01, 0.14465e-01,-0.70350e-04, 0.11642e-01,
- a-0.66421e-04, 0.38700e+04, 0.38800e+04,
- a 0.21981e+00, 0.82700e+00, 0.23073e-01,-0.10318e-03, 0.20793e-01,
- a-0.10169e-03, 0.38800e+04, 0.38900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.38900e+04, 0.39000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39000e+04, 0.39100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39100e+04, 0.39200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39200e+04, 0.39300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39300e+04, 0.39400e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39400e+04, 0.39500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39500e+04, 0.39600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39600e+04, 0.39700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39700e+04, 0.39800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39800e+04, 0.39900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39900e+04, 0.40000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40000e+04, 0.40100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40100e+04, 0.40200e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40200e+04, 0.40300e+04,
- a 0.46381e-01, 0.22687e+00, 0.24345e-02,-0.23816e-04,-0.70852e-03,
- a-0.17981e-04, 0.40300e+04, 0.40400e+04,
- a 0.11207e+00, 0.33988e+00,-0.13925e-02,-0.85150e-05,-0.44315e-02,
- a-0.27839e-05, 0.40400e+04, 0.40500e+04,
- a 0.26494e+00, 0.78086e+00, 0.75352e-03,-0.10882e-04,-0.22500e-02,
- a-0.80414e-05, 0.40500e+04, 0.40600e+04,
- a 0.52355e+00, 0.95211e+00,-0.32290e-02,-0.84991e-06,-0.65316e-02,
- a 0.57606e-05, 0.40600e+04, 0.40700e+04,
- a 0.20288e+00, 0.51222e+00,-0.19356e-02,-0.58786e-05,-0.49461e-02,
- a-0.50049e-06, 0.40700e+04, 0.40800e+04,
- a 0.47528e-01, 0.22508e+00, 0.29680e-02,-0.25911e-04,-0.19533e-03,
- a-0.20081e-04, 0.40800e+04, 0.40900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40900e+04, 0.41000e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41000e+04, 0.41100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41100e+04, 0.41200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41200e+04, 0.41300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41300e+04, 0.41400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41400e+04, 0.41500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41500e+04, 0.41600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41600e+04, 0.41700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41700e+04, 0.41800e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41800e+04, 0.41900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41900e+04, 0.42000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42000e+04, 0.42100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42100e+04, 0.42200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42200e+04, 0.42300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42300e+04, 0.42400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42400e+04, 0.42500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42500e+04, 0.42600e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42600e+04, 0.42700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42700e+04, 0.42800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42800e+04, 0.42900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42900e+04, 0.43000e+04,
- a 0.10261e-01, 0.65002e-01, 0.34485e-02,-0.28392e-04, 0.17191e-03,
- a-0.21830e-04, 0.43000e+04, 0.43100e+04,
- a 0.84185e-01, 0.33064e+00, 0.15710e-03,-0.14472e-04,-0.28838e-02,
- a-0.89966e-05, 0.43100e+04, 0.43200e+04,
- a 0.11106e+00, 0.39358e+00,-0.32422e-02,-0.13748e-05,-0.63630e-02,
- a 0.48743e-05, 0.43200e+04, 0.43300e+04,
- a 0.58854e+00, 0.13088e+01,-0.97669e-03, 0.70381e-06,-0.31832e-02,
- a 0.26227e-05, 0.43300e+04, 0.43400e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.25725e+00, 0.10051e+01, 0.60860e-02, 0.46822e-04, 0.59645e-02,
- a 0.63569e-05, 0.43400e+04, 0.43500e+04,
- a 0.46043e+00, 0.10822e+01, 0.14451e-01,-0.34551e-04, 0.10783e-01,
- a-0.43114e-04, 0.43500e+04, 0.43600e+04,
- a 0.10879e+01, 0.79314e+00, 0.15344e-01,-0.74899e-04, 0.12327e-01,
- a-0.69661e-04, 0.43600e+04, 0.43700e+04,
- a 0.28336e+01, 0.83143e+00, 0.10372e-01,-0.54787e-04, 0.77026e-02,
- a-0.51069e-04, 0.43700e+04, 0.43800e+04,
- a 0.56315e+01, 0.55232e+00, 0.48246e-02,-0.31963e-04, 0.30343e-02,
- a-0.31434e-04, 0.43800e+04, 0.43900e+04,
- a 0.11627e+02, 0.66242e+00, 0.12226e-02,-0.14669e-04, 0.96618e-03,
- a-0.19060e-04, 0.43900e+04, 0.44000e+04,
- a 0.18357e+02, 0.81274e+00,-0.15078e-02, 0.28307e-05, 0.30210e-03,
- a-0.36450e-05, 0.44000e+04, 0.44100e+04,
- a 0.81517e+01, 0.53727e+00,-0.41588e-02, 0.82656e-05,-0.39017e-02,
- a 0.19754e-04, 0.44100e+04, 0.44200e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.21947e+02, 0.50379e+00,-0.36693e-02, 0.34765e-06,-0.68581e-02,
- a 0.68190e-05, 0.44200e+04, 0.44300e+04,
- a 0.21321e+02, 0.70812e+00, 0.14866e-02,-0.15888e-04,-0.71958e-03,
- a-0.15047e-04, 0.44300e+04, 0.44400e+04,
- a 0.76039e+00, 0.46213e+00, 0.15813e-01,-0.71293e-04, 0.14807e-01,
- a-0.74172e-04, 0.44400e+04, 0.44500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44500e+04, 0.44600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44600e+04, 0.44700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44700e+04, 0.44800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44800e+04, 0.44900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44900e+04, 0.45000e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45000e+04, 0.45100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45100e+04, 0.45200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45200e+04, 0.45300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45300e+04, 0.45400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45400e+04, 0.45500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45500e+04, 0.45600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45600e+04, 0.45700e+04,
- a 0.27208e-02, 0.31363e-01, 0.19608e-01,-0.93071e-04, 0.16446e-01,
- a-0.86703e-04, 0.45700e+04, 0.45800e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.75316e-01, 0.26730e+00, 0.13852e-01,-0.67928e-04, 0.11260e-01,
- a-0.64664e-04, 0.45800e+04, 0.45900e+04,
- a 0.26478e+00, 0.24916e+00, 0.75261e-02,-0.43549e-04, 0.44923e-02,
- a-0.38501e-04, 0.45900e+04, 0.46000e+04,
- a 0.94057e+00, 0.32245e+00, 0.19994e-02,-0.21568e-04,-0.10356e-02,
- a-0.16390e-04, 0.46000e+04, 0.46100e+04,
- a 0.16283e+01, 0.34503e+00,-0.20670e-02,-0.59246e-05,-0.51076e-02,
- a-0.79763e-07, 0.46100e+04, 0.46200e+04,
- a 0.11361e+01, 0.39643e+00,-0.42841e-02, 0.25773e-05,-0.75040e-02,
- a 0.92053e-05, 0.46200e+04, 0.46300e+04,
- a 0.13595e+01, 0.42824e+00,-0.43267e-02, 0.27527e-05,-0.75382e-02,
- a 0.93660e-05, 0.46300e+04, 0.46400e+04,
- a 0.23450e+01, 0.50390e+00,-0.13021e-02,-0.81896e-05,-0.42803e-02,
- a-0.31004e-05, 0.46400e+04, 0.46500e+04,
- a 0.73444e+00, 0.57859e+00, 0.61120e-02,-0.33071e-04, 0.44533e-02,
- a-0.33529e-04, 0.46500e+04, 0.46600e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.38422e-01, 0.23935e+00, 0.23650e-01,-0.10589e-03, 0.20573e-01,
- a-0.10116e-03, 0.46600e+04, 0.46700e+04,
- a 0.16643e+00, 0.21059e+00, 0.17844e-01,-0.84429e-04, 0.15076e-01,
- a-0.80351e-04, 0.46700e+04, 0.46800e+04,
- a 0.66361e+00, 0.33032e+00, 0.12376e-01,-0.59085e-04, 0.11640e-01,
- a-0.59740e-04, 0.46800e+04, 0.46900e+04,
- a 0.24086e+01, 0.43220e+00, 0.69608e-02,-0.36434e-04, 0.66271e-02,
- a-0.38146e-04, 0.46900e+04, 0.47000e+04,
- a 0.57007e+01, 0.46363e+00, 0.24374e-02,-0.18500e-04, 0.21804e-02,
- a-0.20294e-04, 0.47000e+04, 0.47100e+04,
- a 0.11243e+02, 0.58097e+00,-0.13313e-02,-0.41463e-05,-0.17350e-02,
- a-0.48882e-05, 0.47100e+04, 0.47200e+04,
- a 0.78568e+01, 0.66135e+00,-0.35465e-02, 0.43994e-05,-0.41602e-02,
- a 0.45248e-05, 0.47200e+04, 0.47300e+04,
- a 0.94234e+01, 0.73404e+00,-0.35684e-02, 0.46120e-05,-0.40476e-02,
- a 0.43652e-05, 0.47300e+04, 0.47400e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.18463e+02, 0.10659e+01, 0.11174e-05,-0.75689e-05,-0.14938e-03,
- a-0.10350e-04, 0.47400e+04, 0.47500e+04,
- a 0.29519e+01, 0.92577e+00, 0.93350e-02,-0.40974e-04, 0.10093e-01,
- a-0.50109e-04, 0.47500e+04, 0.47600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47600e+04, 0.47700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47700e+04, 0.47800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47800e+04, 0.47900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47900e+04, 0.48000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48000e+04, 0.48100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48100e+04, 0.48200e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48200e+04, 0.48300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48300e+04, 0.48400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48400e+04, 0.48500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48500e+04, 0.48600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48600e+04, 0.48700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48700e+04, 0.48800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48800e+04, 0.48900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48900e+04, 0.49000e+04/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49000e+04, 0.49100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49100e+04, 0.49200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49200e+04, 0.49300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49300e+04, 0.49400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49400e+04, 0.49500e+04,
- a 0.57081e-01, 0.26504e+00, 0.21749e-03,-0.14991e-04,-0.28657e-02,
- a-0.92093e-05, 0.49500e+04, 0.49600e+04,
- a 0.89281e-01, 0.35365e+00,-0.29091e-02,-0.26962e-05,-0.59925e-02,
- a 0.34121e-05, 0.49600e+04, 0.49700e+04,
- a 0.46911e+00, 0.11088e+01,-0.15343e-02,-0.45097e-05,-0.43859e-02,
- a-0.95143e-06, 0.49700e+04, 0.49800e+04/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.18580e+00, 0.71004e+00, 0.22264e-03, 0.54082e-05,-0.22981e-02,
- a 0.34446e-06, 0.49800e+04, 0.49900e+04,
- a 0.30113e+00, 0.63162e+00, 0.34248e-02,-0.24398e-04,-0.20190e-03,
- a-0.18173e-04, 0.49900e+04, 0.50000e+04,
- a 0.54259e+00, 0.33048e+00, 0.14963e-03,-0.14443e-04,-0.28875e-02,
- a-0.89818e-05, 0.50000e+04, 0.50100e+04,
- a 0.69468e+00, 0.35696e+00,-0.31719e-02,-0.16864e-05,-0.62635e-02,
- a 0.44718e-05, 0.50100e+04, 0.50200e+04,
- a 0.31258e+00, 0.41285e+00,-0.47292e-02, 0.42957e-05,-0.79123e-02,
- a 0.10784e-04, 0.50200e+04, 0.50300e+04,
- a 0.96290e+00, 0.50181e+00,-0.34905e-02,-0.30499e-06,-0.66561e-02,
- a 0.60560e-05, 0.50300e+04, 0.50400e+04,
- a 0.75559e+00, 0.53500e+00, 0.12181e-02,-0.16925e-04,-0.15139e-02,
- a-0.13577e-04, 0.50400e+04, 0.50500e+04,
- a 0.89652e-01, 0.35481e+00, 0.10413e-01,-0.53691e-04, 0.78717e-02,
- a-0.50854e-04, 0.50500e+04, 0.50600e+04/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.h b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.h
deleted file mode 100644
index 37c0a48..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX1.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_niox1_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.P b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.P
deleted file mode 100644
index a655228..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int niox2_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.c b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.c
deleted file mode 100644
index 39cbb12..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.c
+++ /dev/null
@@ -1,199 +0,0 @@
-/* NIOX2.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine niox2(a,inu) >*/
-/* Subroutine */ int niox2_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { .072211,.24584,
- .0096738,-5.1958e-5,.0067533,-4.7277e-5,5060.,5070.,.21388,.25456,
- .0043318,-3.1058e-5,.0012217,-2.5614e-5,5070.,5080.,.57556,.33263,
- -2.6597e-4,-1.2844e-5,-.0033007,-7.3238e-6,5080.,5090.,.67723,
- .36014,-.0034018,-8.0539e-7,-.006515,5.4383e-6,5090.,5100.,.30093,
- .41799,-.0047912,4.5347e-6,-.0079672,1.0982e-5,5100.,5110.,1.0645,
- .53257,-.003157,-1.4679e-6,-.0062971,4.7135e-6,5110.,5120.,.67643,
- .61899,.0025029,-2.0398e-5,2.0488e-4,-1.9155e-5,5120.,5130.,
- .018117,.12425,.013386,-6.7752e-5,.010428,-6.2211e-5,5130.,5140.,
- 0.,0.,0.,0.,0.,0.,5140.,5150.,0.,0.,0.,0.,0.,0.,5150.,5160.,0.,0.,
- 0.,0.,0.,0.,5160.,5170.,0.,0.,0.,0.,0.,0.,5170.,5180.,0.,0.,0.,0.,
- 0.,0.,5180.,5190.,0.,0.,0.,0.,0.,0.,5190.,5200.,0.,0.,0.,0.,0.,0.,
- 5200.,5210.,0.,0.,0.,0.,0.,0.,5210.,5220.,0.,0.,0.,0.,0.,0.,5220.,
- 5230.,0.,0.,0.,0.,0.,0.,5230.,5240.,0.,0.,0.,0.,0.,0.,5240.,5250.,
- 0.,0.,0.,0.,0.,0.,5250.,5260.,0.,0.,0.,0.,0.,0.,5260.,5270.,0.,0.,
- 0.,0.,0.,0.,5270.,5280.,0.,0.,0.,0.,0.,0.,5280.,5290.,0.,0.,0.,0.,
- 0.,0.,5290.,5300.,0.,0.,0.,0.,0.,0.,5300.,5310.,0.,0.,0.,0.,0.,0.,
- 5310.,5320.,0.,0.,0.,0.,0.,0.,5320.,5330.,0.,0.,0.,0.,0.,0.,5330.,
- 5340.,0.,0.,0.,0.,0.,0.,5340.,5350.,0.,0.,0.,0.,0.,0.,5350.,5360.,
- 0.,0.,0.,0.,0.,0.,5360.,5370.,0.,0.,0.,0.,0.,0.,5370.,5380.,0.,0.,
- 0.,0.,0.,0.,5380.,5390.,0.,0.,0.,0.,0.,0.,5390.,5400.,0.,0.,0.,0.,
- 0.,0.,5400.,5410.,0.,0.,0.,0.,0.,0.,5410.,5420.,0.,0.,0.,0.,0.,0.,
- 5420.,5430.,0.,0.,0.,0.,0.,0.,5430.,5440.,0.,0.,0.,0.,0.,0.,5440.,
- 5450.,0.,0.,0.,0.,0.,0.,5450.,5460.,0.,0.,0.,0.,0.,0.,5460.,5470.,
- 0.,0.,0.,0.,0.,0.,5470.,5480.,0.,0.,0.,0.,0.,0.,5480.,5490.,0.,0.,
- 0.,0.,0.,0.,5490.,5500.,0.,0.,0.,0.,0.,0.,5500.,5510.,0.,0.,0.,0.,
- 0.,0.,5510.,5520.,0.,0.,0.,0.,0.,0.,5520.,5530.,0.,0.,0.,0.,0.,0.,
- 5530.,5540.,0.,0.,0.,0.,0.,0.,5540.,5550.,0.,0.,0.,0.,0.,0.,5550.,
- 5560.,0.,0.,0.,0.,0.,0.,5560.,5570.,0.,0.,0.,0.,0.,0.,5570.,5580.,
- 0.,0.,0.,0.,0.,0.,5580.,5590.,0.,0.,0.,0.,0.,0.,5590.,5600.,0.,0.,
- 0.,0.,0.,0.,5600.,5610.,0.,0.,0.,0.,0.,0.,5610.,5620.,0.,0.,0.,0.,
- 0.,0.,5620.,5630.,0.,0.,0.,0.,0.,0.,5630.,5640.,0.,0.,0.,0.,0.,0.,
- 5640.,5650.,0.,0.,0.,0.,0.,0.,5650.,5660.,0.,0.,0.,0.,0.,0.,5660.,
- 5670.,0.,0.,0.,0.,0.,0.,5670.,5680.,0.,0.,0.,0.,0.,0.,5680.,5690.,
- 0.,0.,0.,0.,0.,0.,5690.,5700.,0.,0.,0.,0.,0.,0.,5700.,5710.,0.,0.,
- 0.,0.,0.,0.,5710.,5720.,0.,0.,0.,0.,0.,0.,5720.,5730.,0.,0.,0.,0.,
- 0.,0.,5730.,5740.,0.,0.,0.,0.,0.,0.,5740.,5750.,0.,0.,0.,0.,0.,0.,
- 5750.,5760.,0.,0.,0.,0.,0.,0.,5760.,5770.,0.,0.,0.,0.,0.,0.,5770.,
- 5780.,0.,0.,0.,0.,0.,0.,5780.,5790.,0.,0.,0.,0.,0.,0.,5790.,5800.,
- 0.,0.,0.,0.,0.,0.,5800.,5810.,0.,0.,0.,0.,0.,0.,5810.,5820.,0.,0.,
- 0.,0.,0.,0.,5820.,5830.,0.,0.,0.,0.,0.,0.,5830.,5840.,0.,0.,0.,0.,
- 0.,0.,5840.,5850.,0.,0.,0.,0.,0.,0.,5850.,5860.,0.,0.,0.,0.,0.,0.,
- 5860.,5870.,0.,0.,0.,0.,0.,0.,5870.,5880.,0.,0.,0.,0.,0.,0.,5880.,
- 5890.,0.,0.,0.,0.,0.,0.,5890.,5900.,0.,0.,0.,0.,0.,0.,5900.,5910.,
- 0.,0.,0.,0.,0.,0.,5910.,5920.,0.,0.,0.,0.,0.,0.,5920.,5930.,0.,0.,
- 0.,0.,0.,0.,5930.,5940.,0.,0.,0.,0.,0.,0.,5940.,5950.,0.,0.,0.,0.,
- 0.,0.,5950.,5960.,0.,0.,0.,0.,0.,0.,5960.,5970.,0.,0.,0.,0.,0.,0.,
- 5970.,5980.,0.,0.,0.,0.,0.,0.,5980.,5990.,0.,0.,0.,0.,0.,0.,5990.,
- 6e3,0.,0.,0.,0.,0.,0.,6e3,6010.,0.,0.,0.,0.,0.,0.,6010.,6020.,0.,
- 0.,0.,0.,0.,0.,6020.,6030.,0.,0.,0.,0.,0.,0.,6030.,6040.,0.,0.,0.,
- 0.,0.,0.,6040.,6050.,0.,0.,0.,0.,0.,0.,6050.,6060.,0.,0.,0.,0.,0.,
- 0.,6060.,6070.,0.,0.,0.,0.,0.,0.,6070.,6080.,0.,0.,0.,0.,0.,0.,
- 6080.,6090.,0.,0.,0.,0.,0.,0.,6090.,6100.,0.,0.,0.,0.,0.,0.,6100.,
- 6110.,0.,0.,0.,0.,0.,0.,6110.,6120.,0.,0.,0.,0.,0.,0.,6120.,6130.,
- 0.,0.,0.,0.,0.,0.,6130.,6140.,0.,0.,0.,0.,0.,0.,6140.,6150.,0.,0.,
- 0.,0.,0.,0.,6150.,6160.,0.,0.,0.,0.,0.,0.,6160.,6170.,0.,0.,0.,0.,
- 0.,0.,6170.,6180.,0.,0.,0.,0.,0.,0.,6180.,6190.,0.,0.,0.,0.,0.,0.,
- 6190.,6200.,0.,0.,0.,0.,0.,0.,6200.,6210.,0.,0.,0.,0.,0.,0.,6210.,
- 6220.,0.,0.,0.,0.,0.,0.,6220.,6230.,0.,0.,0.,0.,0.,0.,6230.,6240.,
- 0.,0.,0.,0.,0.,0.,6240.,6250.,0.,0.,0.,0.,0.,0.,6250.,6260.,0.,0.,
- 0.,0.,0.,0.,6260.,6270.,0.,0.,0.,0.,0.,0.,6270.,6280.,0.,0.,0.,0.,
- 0.,0.,6280.,6290.,0.,0.,0.,0.,0.,0.,6290.,6300.,0.,0.,0.,0.,0.,0.,
- 6300.,6310.,0.,0.,0.,0.,0.,0.,6310.,6320.,0.,0.,0.,0.,0.,0.,6320.,
- 6330.,0.,0.,0.,0.,0.,0.,6330.,6340.,0.,0.,0.,0.,0.,0.,6340.,6350.,
- 0.,0.,0.,0.,0.,0.,6350.,6360.,0.,0.,0.,0.,0.,0.,6360.,6370.,0.,0.,
- 0.,0.,0.,0.,6370.,6380.,0.,0.,0.,0.,0.,0.,6380.,6390.,0.,0.,0.,0.,
- 0.,0.,6390.,6400.,0.,0.,0.,0.,0.,0.,6400.,6410.,0.,0.,0.,0.,0.,0.,
- 6410.,6420.,0.,0.,0.,0.,0.,0.,6420.,6430.,0.,0.,0.,0.,0.,0.,6430.,
- 6440.,0.,0.,0.,0.,0.,0.,6440.,6450.,0.,0.,0.,0.,0.,0.,6450.,6460.,
- 0.,0.,0.,0.,0.,0.,6460.,6470.,0.,0.,0.,0.,0.,0.,6470.,6480.,0.,0.,
- 0.,0.,0.,0.,6480.,6490.,0.,0.,0.,0.,0.,0.,6490.,6500.,0.,0.,0.,0.,
- 0.,0.,6500.,6510.,0.,0.,0.,0.,0.,0.,6510.,6520.,0.,0.,0.,0.,0.,0.,
- 6520.,6530.,0.,0.,0.,0.,0.,0.,6530.,6540.,0.,0.,0.,0.,0.,0.,6540.,
- 6550.,0.,0.,0.,0.,0.,0.,6550.,6560.,0.,0.,0.,0.,0.,0.,6560.,6570.,
- 0.,0.,0.,0.,0.,0.,6570.,6580.,0.,0.,0.,0.,0.,0.,6580.,6590.,0.,0.,
- 0.,0.,0.,0.,6590.,6600.,0.,0.,0.,0.,0.,0.,6600.,6610.,0.,0.,0.,0.,
- 0.,0.,6610.,6620.,0.,0.,0.,0.,0.,0.,6620.,6630.,0.,0.,0.,0.,0.,0.,
- 6630.,6640.,0.,0.,0.,0.,0.,0.,6640.,6650.,0.,0.,0.,0.,0.,0.,6650.,
- 6660.,0.,0.,0.,0.,0.,0.,6660.,6670.,0.,0.,0.,0.,0.,0.,6670.,6680.,
- 0.,0.,0.,0.,0.,0.,6680.,6690.,0.,0.,0.,0.,0.,0.,6690.,6700.,0.,0.,
- 0.,0.,0.,0.,6700.,6710.,0.,0.,0.,0.,0.,0.,6710.,6720.,0.,0.,0.,0.,
- 0.,0.,6720.,6730.,0.,0.,0.,0.,0.,0.,6730.,6740.,0.,0.,0.,0.,0.,0.,
- 6740.,6750.,0.,0.,0.,0.,0.,0.,6750.,6760.,0.,0.,0.,0.,0.,0.,6760.,
- 6770.,0.,0.,0.,0.,0.,0.,6770.,6780.,0.,0.,0.,0.,0.,0.,6780.,6790.,
- 0.,0.,0.,0.,0.,0.,6790.,6800.,0.,0.,0.,0.,0.,0.,6800.,6810.,0.,0.,
- 0.,0.,0.,0.,6810.,6820.,0.,0.,0.,0.,0.,0.,6820.,6830.,0.,0.,0.,0.,
- 0.,0.,6830.,6840.,0.,0.,0.,0.,0.,0.,6840.,6850.,0.,0.,0.,0.,0.,0.,
- 6850.,6860.,0.,0.,0.,0.,0.,0.,6860.,6870.,0.,0.,0.,0.,0.,0.,6870.,
- 6880.,0.,0.,0.,0.,0.,0.,6880.,6890.,0.,0.,0.,0.,0.,0.,6890.,6900.,
- 0.,0.,0.,0.,0.,0.,6900.,6910.,0.,0.,0.,0.,0.,0.,6910.,6920.,0.,0.,
- 0.,0.,0.,0.,6920.,6930.,0.,0.,0.,0.,0.,0.,6930.,6940.,0.,0.,0.,0.,
- 0.,0.,6940.,6950.,0.,0.,0.,0.,0.,0.,6950.,6960.,0.,0.,0.,0.,0.,0.,
- 6960.,6970.,0.,0.,0.,0.,0.,0.,6970.,6980.,0.,0.,0.,0.,0.,0.,6980.,
- 6990.,0.,0.,0.,0.,0.,0.,6990.,7e3,0.,0.,0.,0.,0.,0.,7e3,7010.,0.,
- 0.,0.,0.,0.,0.,7010.,7020.,0.,0.,0.,0.,0.,0.,7020.,7030.,0.,0.,0.,
- 0.,0.,0.,7030.,7040.,0.,0.,0.,0.,0.,0.,7040.,7050.,0.,0.,0.,0.,0.,
- 0.,7050.,7060.,0.,0.,0.,0.,0.,0.,7060.,7070.,0.,0.,0.,0.,0.,0.,
- 7070.,7080.,0.,0.,0.,0.,0.,0.,7080.,7090.,0.,0.,0.,0.,0.,0.,7090.,
- 7100.,0.,0.,0.,0.,0.,0.,7100.,7110.,0.,0.,0.,0.,0.,0.,7110.,7120.,
- 0.,0.,0.,0.,0.,0.,7120.,7130.,0.,0.,0.,0.,0.,0.,7130.,7140.,0.,0.,
- 0.,0.,0.,0.,7140.,7150.,0.,0.,0.,0.,0.,0.,7150.,7160.,0.,0.,0.,0.,
- 0.,0.,7160.,7170.,0.,0.,0.,0.,0.,0.,7170.,7180.,0.,0.,0.,0.,0.,0.,
- 7180.,7190.,0.,0.,0.,0.,0.,0.,7190.,7200.,0.,0.,0.,0.,0.,0.,7200.,
- 7210.,0.,0.,0.,0.,0.,0.,7210.,7220.,0.,0.,0.,0.,0.,0.,7220.,7230.,
- 0.,0.,0.,0.,0.,0.,7230.,7240.,0.,0.,0.,0.,0.,0.,7240.,7250.,0.,0.,
- 0.,0.,0.,0.,7250.,7260.,0.,0.,0.,0.,0.,0.,7260.,7270.,0.,0.,0.,0.,
- 0.,0.,7270.,7280.,0.,0.,0.,0.,0.,0.,7280.,7290.,0.,0.,0.,0.,0.,0.,
- 7290.,7300.,0.,0.,0.,0.,0.,0.,7300.,7310.,0.,0.,0.,0.,0.,0.,7310.,
- 7320.,0.,0.,0.,0.,0.,0.,7320.,7330.,0.,0.,0.,0.,0.,0.,7330.,7340.,
- 0.,0.,0.,0.,0.,0.,7340.,7350.,0.,0.,0.,0.,0.,0.,7350.,7360.,0.,0.,
- 0.,0.,0.,0.,7360.,7370.,0.,0.,0.,0.,0.,0.,7370.,7380.,0.,0.,0.,0.,
- 0.,0.,7380.,7390.,0.,0.,0.,0.,0.,0.,7390.,7400.,0.,0.,0.,0.,0.,0.,
- 7400.,7410.,0.,0.,0.,0.,0.,0.,7410.,7420.,0.,0.,0.,0.,0.,0.,7420.,
- 7430.,0.,0.,0.,0.,0.,0.,7430.,7440.,0.,0.,0.,0.,0.,0.,7440.,7450.,
- 0.,0.,0.,0.,0.,0.,7450.,7460.,0.,0.,0.,0.,0.,0.,7460.,7470.,0.,0.,
- 0.,0.,0.,0.,7470.,7480.,0.,0.,0.,0.,0.,0.,7480.,7490.,0.,0.,0.,0.,
- 0.,0.,7490.,7500.,0.,0.,0.,0.,0.,0.,7500.,7510.,0.,0.,0.,0.,0.,0.,
- 7510.,7520.,0.,0.,0.,0.,0.,0.,7520.,7530.,0.,0.,0.,0.,0.,0.,7530.,
- 7540.,0.,0.,0.,0.,0.,0.,7540.,7550.,0.,0.,0.,0.,0.,0.,7550.,7560.,
- 0.,0.,0.,0.,0.,0.,7560.,7570.,0.,0.,0.,0.,0.,0.,7570.,7580.,0.,0.,
- 0.,0.,0.,0.,7580.,7590.,0.,0.,0.,0.,0.,0.,7590.,7600.,0.,0.,0.,0.,
- 0.,0.,7600.,7610.,0.,0.,0.,0.,0.,0.,7610.,7620. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* nitrous oxide (5060 - 7610 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* niox2_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.f b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.f
deleted file mode 100644
index 6fc2ae9..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine niox2(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c nitrous oxide (5060 - 7610 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.72211e-01, 0.24584e+00, 0.96738e-02,-0.51958e-04, 0.67533e-02,
- a-0.47277e-04, 0.50600e+04, 0.50700e+04,
- a 0.21388e+00, 0.25456e+00, 0.43318e-02,-0.31058e-04, 0.12217e-02,
- a-0.25614e-04, 0.50700e+04, 0.50800e+04,
- a 0.57556e+00, 0.33263e+00,-0.26597e-03,-0.12844e-04,-0.33007e-02,
- a-0.73238e-05, 0.50800e+04, 0.50900e+04,
- a 0.67723e+00, 0.36014e+00,-0.34018e-02,-0.80539e-06,-0.65150e-02,
- a 0.54383e-05, 0.50900e+04, 0.51000e+04,
- a 0.30093e+00, 0.41799e+00,-0.47912e-02, 0.45347e-05,-0.79672e-02,
- a 0.10982e-04, 0.51000e+04, 0.51100e+04,
- a 0.10645e+01, 0.53257e+00,-0.31570e-02,-0.14679e-05,-0.62971e-02,
- a 0.47135e-05, 0.51100e+04, 0.51200e+04,
- a 0.67643e+00, 0.61899e+00, 0.25029e-02,-0.20398e-04, 0.20488e-03,
- a-0.19155e-04, 0.51200e+04, 0.51300e+04,
- a 0.18117e-01, 0.12425e+00, 0.13386e-01,-0.67752e-04, 0.10428e-01,
- a-0.62211e-04, 0.51300e+04, 0.51400e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51400e+04, 0.51500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51500e+04, 0.51600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51600e+04, 0.51700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51700e+04, 0.51800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51800e+04, 0.51900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.51900e+04, 0.52000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52000e+04, 0.52100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52100e+04, 0.52200e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52200e+04, 0.52300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52300e+04, 0.52400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52400e+04, 0.52500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52500e+04, 0.52600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52600e+04, 0.52700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52700e+04, 0.52800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52800e+04, 0.52900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.52900e+04, 0.53000e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53000e+04, 0.53100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53100e+04, 0.53200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53200e+04, 0.53300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53300e+04, 0.53400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53400e+04, 0.53500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53500e+04, 0.53600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53600e+04, 0.53700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53700e+04, 0.53800e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53800e+04, 0.53900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.53900e+04, 0.54000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54000e+04, 0.54100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54100e+04, 0.54200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54200e+04, 0.54300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54300e+04, 0.54400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54400e+04, 0.54500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54500e+04, 0.54600e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54600e+04, 0.54700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54700e+04, 0.54800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54800e+04, 0.54900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.54900e+04, 0.55000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55000e+04, 0.55100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55100e+04, 0.55200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55200e+04, 0.55300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55300e+04, 0.55400e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55400e+04, 0.55500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55500e+04, 0.55600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55600e+04, 0.55700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55700e+04, 0.55800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55800e+04, 0.55900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.55900e+04, 0.56000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56000e+04, 0.56100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56100e+04, 0.56200e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56200e+04, 0.56300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56300e+04, 0.56400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56400e+04, 0.56500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56500e+04, 0.56600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56600e+04, 0.56700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56700e+04, 0.56800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56800e+04, 0.56900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.56900e+04, 0.57000e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57000e+04, 0.57100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57100e+04, 0.57200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57200e+04, 0.57300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57300e+04, 0.57400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57400e+04, 0.57500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57500e+04, 0.57600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57600e+04, 0.57700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57700e+04, 0.57800e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57800e+04, 0.57900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.57900e+04, 0.58000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58000e+04, 0.58100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58100e+04, 0.58200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58200e+04, 0.58300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58300e+04, 0.58400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58400e+04, 0.58500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58500e+04, 0.58600e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58600e+04, 0.58700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58700e+04, 0.58800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58800e+04, 0.58900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.58900e+04, 0.59000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.59000e+04, 0.59100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.59100e+04, 0.59200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.59200e+04, 0.59300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.59300e+04, 0.59400e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.59400e+04, 0.59500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.59500e+04, 0.59600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.59600e+04, 0.59700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.59700e+04, 0.59800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.59800e+04, 0.59900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.59900e+04, 0.60000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.60000e+04, 0.60100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.60100e+04, 0.60200e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.60200e+04, 0.60300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.60300e+04, 0.60400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.60400e+04, 0.60500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.60500e+04, 0.60600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.60600e+04, 0.60700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.60700e+04, 0.60800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.60800e+04, 0.60900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.60900e+04, 0.61000e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.61000e+04, 0.61100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.61100e+04, 0.61200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.61200e+04, 0.61300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.61300e+04, 0.61400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.61400e+04, 0.61500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.61500e+04, 0.61600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.61600e+04, 0.61700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.61700e+04, 0.61800e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.61800e+04, 0.61900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.61900e+04, 0.62000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62000e+04, 0.62100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62100e+04, 0.62200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62200e+04, 0.62300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62300e+04, 0.62400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62400e+04, 0.62500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62500e+04, 0.62600e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62600e+04, 0.62700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62700e+04, 0.62800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62800e+04, 0.62900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.62900e+04, 0.63000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63000e+04, 0.63100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63100e+04, 0.63200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63200e+04, 0.63300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63300e+04, 0.63400e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63400e+04, 0.63500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63500e+04, 0.63600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63600e+04, 0.63700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63700e+04, 0.63800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63800e+04, 0.63900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.63900e+04, 0.64000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64000e+04, 0.64100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64100e+04, 0.64200e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64200e+04, 0.64300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64300e+04, 0.64400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64400e+04, 0.64500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64500e+04, 0.64600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64600e+04, 0.64700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64700e+04, 0.64800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64800e+04, 0.64900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.64900e+04, 0.65000e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65000e+04, 0.65100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65100e+04, 0.65200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65200e+04, 0.65300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65300e+04, 0.65400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65400e+04, 0.65500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65500e+04, 0.65600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65600e+04, 0.65700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65700e+04, 0.65800e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65800e+04, 0.65900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.65900e+04, 0.66000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66000e+04, 0.66100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66100e+04, 0.66200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66200e+04, 0.66300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66300e+04, 0.66400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66400e+04, 0.66500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66500e+04, 0.66600e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66600e+04, 0.66700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66700e+04, 0.66800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66800e+04, 0.66900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.66900e+04, 0.67000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67000e+04, 0.67100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67100e+04, 0.67200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67200e+04, 0.67300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67300e+04, 0.67400e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67400e+04, 0.67500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67500e+04, 0.67600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67600e+04, 0.67700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67700e+04, 0.67800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67800e+04, 0.67900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.67900e+04, 0.68000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68000e+04, 0.68100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68100e+04, 0.68200e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68200e+04, 0.68300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68300e+04, 0.68400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68400e+04, 0.68500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68500e+04, 0.68600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68600e+04, 0.68700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68700e+04, 0.68800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68800e+04, 0.68900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.68900e+04, 0.69000e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69000e+04, 0.69100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69100e+04, 0.69200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69200e+04, 0.69300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69300e+04, 0.69400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69400e+04, 0.69500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69500e+04, 0.69600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69600e+04, 0.69700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69700e+04, 0.69800e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69800e+04, 0.69900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.69900e+04, 0.70000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70000e+04, 0.70100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70100e+04, 0.70200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70200e+04, 0.70300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70300e+04, 0.70400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70400e+04, 0.70500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70500e+04, 0.70600e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70600e+04, 0.70700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70700e+04, 0.70800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70800e+04, 0.70900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.70900e+04, 0.71000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71000e+04, 0.71100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71100e+04, 0.71200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71200e+04, 0.71300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71300e+04, 0.71400e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71400e+04, 0.71500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71500e+04, 0.71600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71600e+04, 0.71700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71700e+04, 0.71800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71800e+04, 0.71900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.71900e+04, 0.72000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72000e+04, 0.72100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72100e+04, 0.72200e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72200e+04, 0.72300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72300e+04, 0.72400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72400e+04, 0.72500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72500e+04, 0.72600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72600e+04, 0.72700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72700e+04, 0.72800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72800e+04, 0.72900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.72900e+04, 0.73000e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73000e+04, 0.73100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73100e+04, 0.73200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73200e+04, 0.73300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73300e+04, 0.73400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73400e+04, 0.73500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73500e+04, 0.73600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73600e+04, 0.73700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73700e+04, 0.73800e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73800e+04, 0.73900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.73900e+04, 0.74000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74000e+04, 0.74100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74100e+04, 0.74200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74200e+04, 0.74300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74300e+04, 0.74400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74400e+04, 0.74500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74500e+04, 0.74600e+04/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74600e+04, 0.74700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74700e+04, 0.74800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74800e+04, 0.74900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.74900e+04, 0.75000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75000e+04, 0.75100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75100e+04, 0.75200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75200e+04, 0.75300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75300e+04, 0.75400e+04/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75400e+04, 0.75500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75500e+04, 0.75600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75600e+04, 0.75700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75700e+04, 0.75800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75800e+04, 0.75900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.75900e+04, 0.76000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76000e+04, 0.76100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76100e+04, 0.76200e+04/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.h b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.h
deleted file mode 100644
index 7c0a28d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX2.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_niox2_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.P b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.P
deleted file mode 100644
index 7e65323..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int niox3_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.c b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.c
deleted file mode 100644
index b37603b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.c
+++ /dev/null
@@ -1,195 +0,0 @@
-/* NIOX3.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine niox3(a,inu) >*/
-/* Subroutine */ int niox3_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 7620.,7630.,0.,0.,0.,0.,0.,0.,7630.,7640.,0.,0.,0.,0.,0.,0.,7640.,
- 7650.,0.,0.,0.,0.,0.,0.,7650.,7660.,0.,0.,0.,0.,0.,0.,7660.,7670.,
- 0.,0.,0.,0.,0.,0.,7670.,7680.,0.,0.,0.,0.,0.,0.,7680.,7690.,0.,0.,
- 0.,0.,0.,0.,7690.,7700.,0.,0.,0.,0.,0.,0.,7700.,7710.,0.,0.,0.,0.,
- 0.,0.,7710.,7720.,0.,0.,0.,0.,0.,0.,7720.,7730.,0.,0.,0.,0.,0.,0.,
- 7730.,7740.,0.,0.,0.,0.,0.,0.,7740.,7750.,0.,0.,0.,0.,0.,0.,7750.,
- 7760.,0.,0.,0.,0.,0.,0.,7760.,7770.,0.,0.,0.,0.,0.,0.,7770.,7780.,
- 0.,0.,0.,0.,0.,0.,7780.,7790.,0.,0.,0.,0.,0.,0.,7790.,7800.,0.,0.,
- 0.,0.,0.,0.,7800.,7810.,0.,0.,0.,0.,0.,0.,7810.,7820.,0.,0.,0.,0.,
- 0.,0.,7820.,7830.,0.,0.,0.,0.,0.,0.,7830.,7840.,0.,0.,0.,0.,0.,0.,
- 7840.,7850.,0.,0.,0.,0.,0.,0.,7850.,7860.,0.,0.,0.,0.,0.,0.,7860.,
- 7870.,0.,0.,0.,0.,0.,0.,7870.,7880.,0.,0.,0.,0.,0.,0.,7880.,7890.,
- 0.,0.,0.,0.,0.,0.,7890.,7900.,0.,0.,0.,0.,0.,0.,7900.,7910.,0.,0.,
- 0.,0.,0.,0.,7910.,7920.,0.,0.,0.,0.,0.,0.,7920.,7930.,0.,0.,0.,0.,
- 0.,0.,7930.,7940.,0.,0.,0.,0.,0.,0.,7940.,7950.,0.,0.,0.,0.,0.,0.,
- 7950.,7960.,0.,0.,0.,0.,0.,0.,7960.,7970.,0.,0.,0.,0.,0.,0.,7970.,
- 7980.,0.,0.,0.,0.,0.,0.,7980.,7990.,0.,0.,0.,0.,0.,0.,7990.,8e3,
- 0.,0.,0.,0.,0.,0.,8e3,8010.,0.,0.,0.,0.,0.,0.,8010.,8020.,0.,0.,
- 0.,0.,0.,0.,8020.,8030.,0.,0.,0.,0.,0.,0.,8030.,8040.,0.,0.,0.,0.,
- 0.,0.,8040.,8050.,0.,0.,0.,0.,0.,0.,8050.,8060.,0.,0.,0.,0.,0.,0.,
- 8060.,8070.,0.,0.,0.,0.,0.,0.,8070.,8080.,0.,0.,0.,0.,0.,0.,8080.,
- 8090.,0.,0.,0.,0.,0.,0.,8090.,8100.,0.,0.,0.,0.,0.,0.,8100.,8110.,
- 0.,0.,0.,0.,0.,0.,8110.,8120.,0.,0.,0.,0.,0.,0.,8120.,8130.,0.,0.,
- 0.,0.,0.,0.,8130.,8140.,0.,0.,0.,0.,0.,0.,8140.,8150.,0.,0.,0.,0.,
- 0.,0.,8150.,8160.,0.,0.,0.,0.,0.,0.,8160.,8170.,0.,0.,0.,0.,0.,0.,
- 8170.,8180.,0.,0.,0.,0.,0.,0.,8180.,8190.,0.,0.,0.,0.,0.,0.,8190.,
- 8200.,0.,0.,0.,0.,0.,0.,8200.,8210.,0.,0.,0.,0.,0.,0.,8210.,8220.,
- 0.,0.,0.,0.,0.,0.,8220.,8230.,0.,0.,0.,0.,0.,0.,8230.,8240.,0.,0.,
- 0.,0.,0.,0.,8240.,8250.,0.,0.,0.,0.,0.,0.,8250.,8260.,0.,0.,0.,0.,
- 0.,0.,8260.,8270.,0.,0.,0.,0.,0.,0.,8270.,8280.,0.,0.,0.,0.,0.,0.,
- 8280.,8290.,0.,0.,0.,0.,0.,0.,8290.,8300.,0.,0.,0.,0.,0.,0.,8300.,
- 8310.,0.,0.,0.,0.,0.,0.,8310.,8320.,0.,0.,0.,0.,0.,0.,8320.,8330.,
- 0.,0.,0.,0.,0.,0.,8330.,8340.,0.,0.,0.,0.,0.,0.,8340.,8350.,0.,0.,
- 0.,0.,0.,0.,8350.,8360.,0.,0.,0.,0.,0.,0.,8360.,8370.,0.,0.,0.,0.,
- 0.,0.,8370.,8380.,0.,0.,0.,0.,0.,0.,8380.,8390.,0.,0.,0.,0.,0.,0.,
- 8390.,8400.,0.,0.,0.,0.,0.,0.,8400.,8410.,0.,0.,0.,0.,0.,0.,8410.,
- 8420.,0.,0.,0.,0.,0.,0.,8420.,8430.,0.,0.,0.,0.,0.,0.,8430.,8440.,
- 0.,0.,0.,0.,0.,0.,8440.,8450.,0.,0.,0.,0.,0.,0.,8450.,8460.,0.,0.,
- 0.,0.,0.,0.,8460.,8470.,0.,0.,0.,0.,0.,0.,8470.,8480.,0.,0.,0.,0.,
- 0.,0.,8480.,8490.,0.,0.,0.,0.,0.,0.,8490.,8500.,0.,0.,0.,0.,0.,0.,
- 8500.,8510.,0.,0.,0.,0.,0.,0.,8510.,8520.,0.,0.,0.,0.,0.,0.,8520.,
- 8530.,0.,0.,0.,0.,0.,0.,8530.,8540.,0.,0.,0.,0.,0.,0.,8540.,8550.,
- 0.,0.,0.,0.,0.,0.,8550.,8560.,0.,0.,0.,0.,0.,0.,8560.,8570.,0.,0.,
- 0.,0.,0.,0.,8570.,8580.,0.,0.,0.,0.,0.,0.,8580.,8590.,0.,0.,0.,0.,
- 0.,0.,8590.,8600.,0.,0.,0.,0.,0.,0.,8600.,8610.,0.,0.,0.,0.,0.,0.,
- 8610.,8620.,0.,0.,0.,0.,0.,0.,8620.,8630.,0.,0.,0.,0.,0.,0.,8630.,
- 8640.,0.,0.,0.,0.,0.,0.,8640.,8650.,0.,0.,0.,0.,0.,0.,8650.,8660.,
- 0.,0.,0.,0.,0.,0.,8660.,8670.,0.,0.,0.,0.,0.,0.,8670.,8680.,0.,0.,
- 0.,0.,0.,0.,8680.,8690.,0.,0.,0.,0.,0.,0.,8690.,8700.,0.,0.,0.,0.,
- 0.,0.,8700.,8710.,0.,0.,0.,0.,0.,0.,8710.,8720.,0.,0.,0.,0.,0.,0.,
- 8720.,8730.,0.,0.,0.,0.,0.,0.,8730.,8740.,0.,0.,0.,0.,0.,0.,8740.,
- 8750.,0.,0.,0.,0.,0.,0.,8750.,8760.,0.,0.,0.,0.,0.,0.,8760.,8770.,
- 0.,0.,0.,0.,0.,0.,8770.,8780.,0.,0.,0.,0.,0.,0.,8780.,8790.,0.,0.,
- 0.,0.,0.,0.,8790.,8800.,0.,0.,0.,0.,0.,0.,8800.,8810.,0.,0.,0.,0.,
- 0.,0.,8810.,8820.,0.,0.,0.,0.,0.,0.,8820.,8830.,0.,0.,0.,0.,0.,0.,
- 8830.,8840.,0.,0.,0.,0.,0.,0.,8840.,8850.,0.,0.,0.,0.,0.,0.,8850.,
- 8860.,0.,0.,0.,0.,0.,0.,8860.,8870.,0.,0.,0.,0.,0.,0.,8870.,8880.,
- 0.,0.,0.,0.,0.,0.,8880.,8890.,0.,0.,0.,0.,0.,0.,8890.,8900.,0.,0.,
- 0.,0.,0.,0.,8900.,8910.,0.,0.,0.,0.,0.,0.,8910.,8920.,0.,0.,0.,0.,
- 0.,0.,8920.,8930.,0.,0.,0.,0.,0.,0.,8930.,8940.,0.,0.,0.,0.,0.,0.,
- 8940.,8950.,0.,0.,0.,0.,0.,0.,8950.,8960.,0.,0.,0.,0.,0.,0.,8960.,
- 8970.,0.,0.,0.,0.,0.,0.,8970.,8980.,0.,0.,0.,0.,0.,0.,8980.,8990.,
- 0.,0.,0.,0.,0.,0.,8990.,9e3,0.,0.,0.,0.,0.,0.,9e3,9010.,0.,0.,0.,
- 0.,0.,0.,9010.,9020.,0.,0.,0.,0.,0.,0.,9020.,9030.,0.,0.,0.,0.,0.,
- 0.,9030.,9040.,0.,0.,0.,0.,0.,0.,9040.,9050.,0.,0.,0.,0.,0.,0.,
- 9050.,9060.,0.,0.,0.,0.,0.,0.,9060.,9070.,0.,0.,0.,0.,0.,0.,9070.,
- 9080.,0.,0.,0.,0.,0.,0.,9080.,9090.,0.,0.,0.,0.,0.,0.,9090.,9100.,
- 0.,0.,0.,0.,0.,0.,9100.,9110.,0.,0.,0.,0.,0.,0.,9110.,9120.,0.,0.,
- 0.,0.,0.,0.,9120.,9130.,0.,0.,0.,0.,0.,0.,9130.,9140.,0.,0.,0.,0.,
- 0.,0.,9140.,9150.,0.,0.,0.,0.,0.,0.,9150.,9160.,0.,0.,0.,0.,0.,0.,
- 9160.,9170.,0.,0.,0.,0.,0.,0.,9170.,9180.,0.,0.,0.,0.,0.,0.,9180.,
- 9190.,0.,0.,0.,0.,0.,0.,9190.,9200.,0.,0.,0.,0.,0.,0.,9200.,9210.,
- 0.,0.,0.,0.,0.,0.,9210.,9220.,0.,0.,0.,0.,0.,0.,9220.,9230.,0.,0.,
- 0.,0.,0.,0.,9230.,9240.,0.,0.,0.,0.,0.,0.,9240.,9250.,0.,0.,0.,0.,
- 0.,0.,9250.,9260.,0.,0.,0.,0.,0.,0.,9260.,9270.,0.,0.,0.,0.,0.,0.,
- 9270.,9280.,0.,0.,0.,0.,0.,0.,9280.,9290.,0.,0.,0.,0.,0.,0.,9290.,
- 9300.,0.,0.,0.,0.,0.,0.,9300.,9310.,0.,0.,0.,0.,0.,0.,9310.,9320.,
- 0.,0.,0.,0.,0.,0.,9320.,9330.,0.,0.,0.,0.,0.,0.,9330.,9340.,0.,0.,
- 0.,0.,0.,0.,9340.,9350.,0.,0.,0.,0.,0.,0.,9350.,9360.,0.,0.,0.,0.,
- 0.,0.,9360.,9370.,0.,0.,0.,0.,0.,0.,9370.,9380.,0.,0.,0.,0.,0.,0.,
- 9380.,9390.,0.,0.,0.,0.,0.,0.,9390.,9400.,0.,0.,0.,0.,0.,0.,9400.,
- 9410.,0.,0.,0.,0.,0.,0.,9410.,9420.,0.,0.,0.,0.,0.,0.,9420.,9430.,
- 0.,0.,0.,0.,0.,0.,9430.,9440.,0.,0.,0.,0.,0.,0.,9440.,9450.,0.,0.,
- 0.,0.,0.,0.,9450.,9460.,0.,0.,0.,0.,0.,0.,9460.,9470.,0.,0.,0.,0.,
- 0.,0.,9470.,9480.,0.,0.,0.,0.,0.,0.,9480.,9490.,0.,0.,0.,0.,0.,0.,
- 9490.,9500.,0.,0.,0.,0.,0.,0.,9500.,9510.,0.,0.,0.,0.,0.,0.,9510.,
- 9520.,0.,0.,0.,0.,0.,0.,9520.,9530.,0.,0.,0.,0.,0.,0.,9530.,9540.,
- 0.,0.,0.,0.,0.,0.,9540.,9550.,0.,0.,0.,0.,0.,0.,9550.,9560.,0.,0.,
- 0.,0.,0.,0.,9560.,9570.,0.,0.,0.,0.,0.,0.,9570.,9580.,0.,0.,0.,0.,
- 0.,0.,9580.,9590.,0.,0.,0.,0.,0.,0.,9590.,9600.,0.,0.,0.,0.,0.,0.,
- 9600.,9610.,0.,0.,0.,0.,0.,0.,9610.,9620.,0.,0.,0.,0.,0.,0.,9620.,
- 9630.,0.,0.,0.,0.,0.,0.,9630.,9640.,0.,0.,0.,0.,0.,0.,9640.,9650.,
- 0.,0.,0.,0.,0.,0.,9650.,9660.,0.,0.,0.,0.,0.,0.,9660.,9670.,0.,0.,
- 0.,0.,0.,0.,9670.,9680.,0.,0.,0.,0.,0.,0.,9680.,9690.,0.,0.,0.,0.,
- 0.,0.,9690.,9700.,0.,0.,0.,0.,0.,0.,9700.,9710.,0.,0.,0.,0.,0.,0.,
- 9710.,9720.,0.,0.,0.,0.,0.,0.,9720.,9730.,0.,0.,0.,0.,0.,0.,9730.,
- 9740.,0.,0.,0.,0.,0.,0.,9740.,9750.,0.,0.,0.,0.,0.,0.,9750.,9760.,
- 0.,0.,0.,0.,0.,0.,9760.,9770.,0.,0.,0.,0.,0.,0.,9770.,9780.,0.,0.,
- 0.,0.,0.,0.,9780.,9790.,0.,0.,0.,0.,0.,0.,9790.,9800.,0.,0.,0.,0.,
- 0.,0.,9800.,9810.,0.,0.,0.,0.,0.,0.,9810.,9820.,0.,0.,0.,0.,0.,0.,
- 9820.,9830.,0.,0.,0.,0.,0.,0.,9830.,9840.,0.,0.,0.,0.,0.,0.,9840.,
- 9850.,0.,0.,0.,0.,0.,0.,9850.,9860.,0.,0.,0.,0.,0.,0.,9860.,9870.,
- 0.,0.,0.,0.,0.,0.,9870.,9880.,0.,0.,0.,0.,0.,0.,9880.,9890.,0.,0.,
- 0.,0.,0.,0.,9890.,9900.,0.,0.,0.,0.,0.,0.,9900.,9910.,0.,0.,0.,0.,
- 0.,0.,9910.,9920.,0.,0.,0.,0.,0.,0.,9920.,9930.,0.,0.,0.,0.,0.,0.,
- 9930.,9940.,0.,0.,0.,0.,0.,0.,9940.,9950.,0.,0.,0.,0.,0.,0.,9950.,
- 9960.,0.,0.,0.,0.,0.,0.,9960.,9970.,0.,0.,0.,0.,0.,0.,9970.,9980.,
- 0.,0.,0.,0.,0.,0.,9980.,9990.,0.,0.,0.,0.,0.,0.,9990.,1e4,0.,0.,
- 0.,0.,0.,0.,1e4,10010.,0.,0.,0.,0.,0.,0.,10010.,10020.,0.,0.,0.,
- 0.,0.,0.,10020.,10030.,0.,0.,0.,0.,0.,0.,10030.,10040.,0.,0.,0.,
- 0.,0.,0.,10040.,10050.,0.,0.,0.,0.,0.,0.,10050.,10060.,0.,0.,0.,
- 0.,0.,0.,10060.,10070.,0.,0.,0.,0.,0.,0.,10070.,10080.,0.,0.,0.,
- 0.,0.,0.,10080.,10090.,0.,0.,0.,0.,0.,0.,10090.,10100.,0.,0.,0.,
- 0.,0.,0.,10100.,10110.,0.,0.,0.,0.,0.,0.,10110.,10120.,0.,0.,0.,
- 0.,0.,0.,10120.,10130.,0.,0.,0.,0.,0.,0.,10130.,10140.,0.,0.,0.,
- 0.,0.,0.,10140.,10150.,0.,0.,0.,0.,0.,0.,10150.,10160.,0.,0.,0.,
- 0.,0.,0.,10160.,10170.,0.,0.,0.,0.,0.,0.,10170.,10180. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* nitrous oxide (7620 - 10170 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* niox3_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.f b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.f
deleted file mode 100644
index 13bb664..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine niox3(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c nitrous oxide (7620 - 10170 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76200e+04, 0.76300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76300e+04, 0.76400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76400e+04, 0.76500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76500e+04, 0.76600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76600e+04, 0.76700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76700e+04, 0.76800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76800e+04, 0.76900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76900e+04, 0.77000e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77000e+04, 0.77100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77100e+04, 0.77200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77200e+04, 0.77300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77300e+04, 0.77400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77400e+04, 0.77500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77500e+04, 0.77600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77600e+04, 0.77700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77700e+04, 0.77800e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77800e+04, 0.77900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77900e+04, 0.78000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78000e+04, 0.78100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78100e+04, 0.78200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78200e+04, 0.78300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78300e+04, 0.78400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78400e+04, 0.78500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78500e+04, 0.78600e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78600e+04, 0.78700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78700e+04, 0.78800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78800e+04, 0.78900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.78900e+04, 0.79000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79000e+04, 0.79100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79100e+04, 0.79200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79200e+04, 0.79300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79300e+04, 0.79400e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79400e+04, 0.79500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79500e+04, 0.79600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79600e+04, 0.79700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79700e+04, 0.79800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79800e+04, 0.79900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.79900e+04, 0.80000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80000e+04, 0.80100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80100e+04, 0.80200e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80200e+04, 0.80300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80300e+04, 0.80400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80400e+04, 0.80500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80500e+04, 0.80600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80600e+04, 0.80700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80700e+04, 0.80800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80800e+04, 0.80900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80900e+04, 0.81000e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81000e+04, 0.81100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81100e+04, 0.81200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81200e+04, 0.81300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81300e+04, 0.81400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81400e+04, 0.81500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81500e+04, 0.81600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81600e+04, 0.81700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81700e+04, 0.81800e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81800e+04, 0.81900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81900e+04, 0.82000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82000e+04, 0.82100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82100e+04, 0.82200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82200e+04, 0.82300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82300e+04, 0.82400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82400e+04, 0.82500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82500e+04, 0.82600e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82600e+04, 0.82700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82700e+04, 0.82800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82800e+04, 0.82900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82900e+04, 0.83000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83000e+04, 0.83100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83100e+04, 0.83200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83200e+04, 0.83300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83300e+04, 0.83400e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83400e+04, 0.83500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83500e+04, 0.83600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83600e+04, 0.83700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83700e+04, 0.83800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83800e+04, 0.83900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83900e+04, 0.84000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84000e+04, 0.84100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84100e+04, 0.84200e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84200e+04, 0.84300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84300e+04, 0.84400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84400e+04, 0.84500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84500e+04, 0.84600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84600e+04, 0.84700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84700e+04, 0.84800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84800e+04, 0.84900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84900e+04, 0.85000e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85000e+04, 0.85100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85100e+04, 0.85200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85200e+04, 0.85300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85300e+04, 0.85400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85400e+04, 0.85500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85500e+04, 0.85600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85600e+04, 0.85700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85700e+04, 0.85800e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85800e+04, 0.85900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85900e+04, 0.86000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86000e+04, 0.86100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86100e+04, 0.86200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86200e+04, 0.86300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86300e+04, 0.86400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86400e+04, 0.86500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86500e+04, 0.86600e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86600e+04, 0.86700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86700e+04, 0.86800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86800e+04, 0.86900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86900e+04, 0.87000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87000e+04, 0.87100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87100e+04, 0.87200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87200e+04, 0.87300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87300e+04, 0.87400e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87400e+04, 0.87500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87500e+04, 0.87600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87600e+04, 0.87700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87700e+04, 0.87800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87800e+04, 0.87900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87900e+04, 0.88000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88000e+04, 0.88100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88100e+04, 0.88200e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88200e+04, 0.88300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88300e+04, 0.88400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88400e+04, 0.88500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88500e+04, 0.88600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88600e+04, 0.88700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88700e+04, 0.88800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88800e+04, 0.88900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88900e+04, 0.89000e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89000e+04, 0.89100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89100e+04, 0.89200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89200e+04, 0.89300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89300e+04, 0.89400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89400e+04, 0.89500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89500e+04, 0.89600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89600e+04, 0.89700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89700e+04, 0.89800e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89800e+04, 0.89900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89900e+04, 0.90000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90000e+04, 0.90100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90100e+04, 0.90200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90200e+04, 0.90300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90300e+04, 0.90400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90400e+04, 0.90500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90500e+04, 0.90600e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90600e+04, 0.90700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90700e+04, 0.90800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90800e+04, 0.90900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90900e+04, 0.91000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91000e+04, 0.91100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91100e+04, 0.91200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91200e+04, 0.91300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91300e+04, 0.91400e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91400e+04, 0.91500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91500e+04, 0.91600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91600e+04, 0.91700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91700e+04, 0.91800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91800e+04, 0.91900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91900e+04, 0.92000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92000e+04, 0.92100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92100e+04, 0.92200e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92200e+04, 0.92300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92300e+04, 0.92400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92400e+04, 0.92500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92500e+04, 0.92600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92600e+04, 0.92700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92700e+04, 0.92800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92800e+04, 0.92900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92900e+04, 0.93000e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93000e+04, 0.93100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93100e+04, 0.93200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93200e+04, 0.93300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93300e+04, 0.93400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93400e+04, 0.93500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93500e+04, 0.93600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93600e+04, 0.93700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93700e+04, 0.93800e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93800e+04, 0.93900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.93900e+04, 0.94000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94000e+04, 0.94100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94100e+04, 0.94200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94200e+04, 0.94300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94300e+04, 0.94400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94400e+04, 0.94500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94500e+04, 0.94600e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94600e+04, 0.94700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94700e+04, 0.94800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94800e+04, 0.94900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94900e+04, 0.95000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95000e+04, 0.95100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95100e+04, 0.95200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95200e+04, 0.95300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95300e+04, 0.95400e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95400e+04, 0.95500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95500e+04, 0.95600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95600e+04, 0.95700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95700e+04, 0.95800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95800e+04, 0.95900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95900e+04, 0.96000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96000e+04, 0.96100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96100e+04, 0.96200e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96200e+04, 0.96300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96300e+04, 0.96400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96400e+04, 0.96500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96500e+04, 0.96600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96600e+04, 0.96700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96700e+04, 0.96800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96800e+04, 0.96900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96900e+04, 0.97000e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97000e+04, 0.97100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97100e+04, 0.97200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97200e+04, 0.97300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97300e+04, 0.97400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97400e+04, 0.97500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97500e+04, 0.97600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97600e+04, 0.97700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97700e+04, 0.97800e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97800e+04, 0.97900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97900e+04, 0.98000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98000e+04, 0.98100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98100e+04, 0.98200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98200e+04, 0.98300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98300e+04, 0.98400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98400e+04, 0.98500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98500e+04, 0.98600e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98600e+04, 0.98700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98700e+04, 0.98800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98800e+04, 0.98900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98900e+04, 0.99000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99000e+04, 0.99100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99100e+04, 0.99200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99200e+04, 0.99300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99300e+04, 0.99400e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99400e+04, 0.99500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99500e+04, 0.99600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99600e+04, 0.99700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99700e+04, 0.99800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99800e+04, 0.99900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99900e+04, 0.10000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10000e+05, 0.10010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10010e+05, 0.10020e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10020e+05, 0.10030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10030e+05, 0.10040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10040e+05, 0.10050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10050e+05, 0.10060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10060e+05, 0.10070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10070e+05, 0.10080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10080e+05, 0.10090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10090e+05, 0.10100e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10100e+05, 0.10110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10110e+05, 0.10120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10120e+05, 0.10130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10130e+05, 0.10140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10140e+05, 0.10150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10150e+05, 0.10160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10160e+05, 0.10170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10170e+05, 0.10180e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.h b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.h
deleted file mode 100644
index 819c9c5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX3.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_niox3_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.P b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.P
deleted file mode 100644
index fa9afe0..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int niox4_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.c b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.c
deleted file mode 100644
index e14dba8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.c
+++ /dev/null
@@ -1,206 +0,0 @@
-/* NIOX4.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine niox4(a,inu) >*/
-/* Subroutine */ int niox4_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 10180.,10190.,0.,0.,0.,0.,0.,0.,10190.,10200.,0.,0.,0.,0.,0.,0.,
- 10200.,10210.,0.,0.,0.,0.,0.,0.,10210.,10220.,0.,0.,0.,0.,0.,0.,
- 10220.,10230.,0.,0.,0.,0.,0.,0.,10230.,10240.,0.,0.,0.,0.,0.,0.,
- 10240.,10250.,0.,0.,0.,0.,0.,0.,10250.,10260.,0.,0.,0.,0.,0.,0.,
- 10260.,10270.,0.,0.,0.,0.,0.,0.,10270.,10280.,0.,0.,0.,0.,0.,0.,
- 10280.,10290.,0.,0.,0.,0.,0.,0.,10290.,10300.,0.,0.,0.,0.,0.,0.,
- 10300.,10310.,0.,0.,0.,0.,0.,0.,10310.,10320.,0.,0.,0.,0.,0.,0.,
- 10320.,10330.,0.,0.,0.,0.,0.,0.,10330.,10340.,0.,0.,0.,0.,0.,0.,
- 10340.,10350.,0.,0.,0.,0.,0.,0.,10350.,10360.,0.,0.,0.,0.,0.,0.,
- 10360.,10370.,0.,0.,0.,0.,0.,0.,10370.,10380.,0.,0.,0.,0.,0.,0.,
- 10380.,10390.,0.,0.,0.,0.,0.,0.,10390.,10400.,0.,0.,0.,0.,0.,0.,
- 10400.,10410.,0.,0.,0.,0.,0.,0.,10410.,10420.,0.,0.,0.,0.,0.,0.,
- 10420.,10430.,0.,0.,0.,0.,0.,0.,10430.,10440.,0.,0.,0.,0.,0.,0.,
- 10440.,10450.,0.,0.,0.,0.,0.,0.,10450.,10460.,0.,0.,0.,0.,0.,0.,
- 10460.,10470.,0.,0.,0.,0.,0.,0.,10470.,10480.,0.,0.,0.,0.,0.,0.,
- 10480.,10490.,0.,0.,0.,0.,0.,0.,10490.,10500.,0.,0.,0.,0.,0.,0.,
- 10500.,10510.,0.,0.,0.,0.,0.,0.,10510.,10520.,0.,0.,0.,0.,0.,0.,
- 10520.,10530.,0.,0.,0.,0.,0.,0.,10530.,10540.,0.,0.,0.,0.,0.,0.,
- 10540.,10550.,0.,0.,0.,0.,0.,0.,10550.,10560.,0.,0.,0.,0.,0.,0.,
- 10560.,10570.,0.,0.,0.,0.,0.,0.,10570.,10580.,0.,0.,0.,0.,0.,0.,
- 10580.,10590.,0.,0.,0.,0.,0.,0.,10590.,10600.,0.,0.,0.,0.,0.,0.,
- 10600.,10610.,0.,0.,0.,0.,0.,0.,10610.,10620.,0.,0.,0.,0.,0.,0.,
- 10620.,10630.,0.,0.,0.,0.,0.,0.,10630.,10640.,0.,0.,0.,0.,0.,0.,
- 10640.,10650.,0.,0.,0.,0.,0.,0.,10650.,10660.,0.,0.,0.,0.,0.,0.,
- 10660.,10670.,0.,0.,0.,0.,0.,0.,10670.,10680.,0.,0.,0.,0.,0.,0.,
- 10680.,10690.,0.,0.,0.,0.,0.,0.,10690.,10700.,0.,0.,0.,0.,0.,0.,
- 10700.,10710.,0.,0.,0.,0.,0.,0.,10710.,10720.,0.,0.,0.,0.,0.,0.,
- 10720.,10730.,0.,0.,0.,0.,0.,0.,10730.,10740.,0.,0.,0.,0.,0.,0.,
- 10740.,10750.,0.,0.,0.,0.,0.,0.,10750.,10760.,0.,0.,0.,0.,0.,0.,
- 10760.,10770.,0.,0.,0.,0.,0.,0.,10770.,10780.,0.,0.,0.,0.,0.,0.,
- 10780.,10790.,0.,0.,0.,0.,0.,0.,10790.,10800.,0.,0.,0.,0.,0.,0.,
- 10800.,10810.,0.,0.,0.,0.,0.,0.,10810.,10820.,0.,0.,0.,0.,0.,0.,
- 10820.,10830.,0.,0.,0.,0.,0.,0.,10830.,10840.,0.,0.,0.,0.,0.,0.,
- 10840.,10850.,0.,0.,0.,0.,0.,0.,10850.,10860.,0.,0.,0.,0.,0.,0.,
- 10860.,10870.,0.,0.,0.,0.,0.,0.,10870.,10880.,0.,0.,0.,0.,0.,0.,
- 10880.,10890.,0.,0.,0.,0.,0.,0.,10890.,10900.,0.,0.,0.,0.,0.,0.,
- 10900.,10910.,0.,0.,0.,0.,0.,0.,10910.,10920.,0.,0.,0.,0.,0.,0.,
- 10920.,10930.,0.,0.,0.,0.,0.,0.,10930.,10940.,0.,0.,0.,0.,0.,0.,
- 10940.,10950.,0.,0.,0.,0.,0.,0.,10950.,10960.,0.,0.,0.,0.,0.,0.,
- 10960.,10970.,0.,0.,0.,0.,0.,0.,10970.,10980.,0.,0.,0.,0.,0.,0.,
- 10980.,10990.,0.,0.,0.,0.,0.,0.,10990.,1.1e4,0.,0.,0.,0.,0.,0.,
- 1.1e4,11010.,0.,0.,0.,0.,0.,0.,11010.,11020.,0.,0.,0.,0.,0.,0.,
- 11020.,11030.,0.,0.,0.,0.,0.,0.,11030.,11040.,0.,0.,0.,0.,0.,0.,
- 11040.,11050.,0.,0.,0.,0.,0.,0.,11050.,11060.,0.,0.,0.,0.,0.,0.,
- 11060.,11070.,0.,0.,0.,0.,0.,0.,11070.,11080.,0.,0.,0.,0.,0.,0.,
- 11080.,11090.,0.,0.,0.,0.,0.,0.,11090.,11100.,0.,0.,0.,0.,0.,0.,
- 11100.,11110.,0.,0.,0.,0.,0.,0.,11110.,11120.,0.,0.,0.,0.,0.,0.,
- 11120.,11130.,0.,0.,0.,0.,0.,0.,11130.,11140.,0.,0.,0.,0.,0.,0.,
- 11140.,11150.,0.,0.,0.,0.,0.,0.,11150.,11160.,0.,0.,0.,0.,0.,0.,
- 11160.,11170.,0.,0.,0.,0.,0.,0.,11170.,11180.,0.,0.,0.,0.,0.,0.,
- 11180.,11190.,0.,0.,0.,0.,0.,0.,11190.,11200.,0.,0.,0.,0.,0.,0.,
- 11200.,11210.,0.,0.,0.,0.,0.,0.,11210.,11220.,0.,0.,0.,0.,0.,0.,
- 11220.,11230.,0.,0.,0.,0.,0.,0.,11230.,11240.,0.,0.,0.,0.,0.,0.,
- 11240.,11250.,0.,0.,0.,0.,0.,0.,11250.,11260.,0.,0.,0.,0.,0.,0.,
- 11260.,11270.,0.,0.,0.,0.,0.,0.,11270.,11280.,0.,0.,0.,0.,0.,0.,
- 11280.,11290.,0.,0.,0.,0.,0.,0.,11290.,11300.,0.,0.,0.,0.,0.,0.,
- 11300.,11310.,0.,0.,0.,0.,0.,0.,11310.,11320.,0.,0.,0.,0.,0.,0.,
- 11320.,11330.,0.,0.,0.,0.,0.,0.,11330.,11340.,0.,0.,0.,0.,0.,0.,
- 11340.,11350.,0.,0.,0.,0.,0.,0.,11350.,11360.,0.,0.,0.,0.,0.,0.,
- 11360.,11370.,0.,0.,0.,0.,0.,0.,11370.,11380.,0.,0.,0.,0.,0.,0.,
- 11380.,11390.,0.,0.,0.,0.,0.,0.,11390.,11400.,0.,0.,0.,0.,0.,0.,
- 11400.,11410.,0.,0.,0.,0.,0.,0.,11410.,11420.,0.,0.,0.,0.,0.,0.,
- 11420.,11430.,0.,0.,0.,0.,0.,0.,11430.,11440.,0.,0.,0.,0.,0.,0.,
- 11440.,11450.,0.,0.,0.,0.,0.,0.,11450.,11460.,0.,0.,0.,0.,0.,0.,
- 11460.,11470.,0.,0.,0.,0.,0.,0.,11470.,11480.,0.,0.,0.,0.,0.,0.,
- 11480.,11490.,0.,0.,0.,0.,0.,0.,11490.,11500.,0.,0.,0.,0.,0.,0.,
- 11500.,11510.,0.,0.,0.,0.,0.,0.,11510.,11520.,0.,0.,0.,0.,0.,0.,
- 11520.,11530.,0.,0.,0.,0.,0.,0.,11530.,11540.,0.,0.,0.,0.,0.,0.,
- 11540.,11550.,0.,0.,0.,0.,0.,0.,11550.,11560.,0.,0.,0.,0.,0.,0.,
- 11560.,11570.,0.,0.,0.,0.,0.,0.,11570.,11580.,0.,0.,0.,0.,0.,0.,
- 11580.,11590.,0.,0.,0.,0.,0.,0.,11590.,11600.,0.,0.,0.,0.,0.,0.,
- 11600.,11610.,0.,0.,0.,0.,0.,0.,11610.,11620.,0.,0.,0.,0.,0.,0.,
- 11620.,11630.,0.,0.,0.,0.,0.,0.,11630.,11640.,0.,0.,0.,0.,0.,0.,
- 11640.,11650.,0.,0.,0.,0.,0.,0.,11650.,11660.,0.,0.,0.,0.,0.,0.,
- 11660.,11670.,0.,0.,0.,0.,0.,0.,11670.,11680.,0.,0.,0.,0.,0.,0.,
- 11680.,11690.,0.,0.,0.,0.,0.,0.,11690.,11700.,0.,0.,0.,0.,0.,0.,
- 11700.,11710.,0.,0.,0.,0.,0.,0.,11710.,11720.,0.,0.,0.,0.,0.,0.,
- 11720.,11730.,0.,0.,0.,0.,0.,0.,11730.,11740.,0.,0.,0.,0.,0.,0.,
- 11740.,11750.,0.,0.,0.,0.,0.,0.,11750.,11760.,0.,0.,0.,0.,0.,0.,
- 11760.,11770.,0.,0.,0.,0.,0.,0.,11770.,11780.,0.,0.,0.,0.,0.,0.,
- 11780.,11790.,0.,0.,0.,0.,0.,0.,11790.,11800.,0.,0.,0.,0.,0.,0.,
- 11800.,11810.,0.,0.,0.,0.,0.,0.,11810.,11820.,0.,0.,0.,0.,0.,0.,
- 11820.,11830.,0.,0.,0.,0.,0.,0.,11830.,11840.,0.,0.,0.,0.,0.,0.,
- 11840.,11850.,0.,0.,0.,0.,0.,0.,11850.,11860.,0.,0.,0.,0.,0.,0.,
- 11860.,11870.,0.,0.,0.,0.,0.,0.,11870.,11880.,0.,0.,0.,0.,0.,0.,
- 11880.,11890.,0.,0.,0.,0.,0.,0.,11890.,11900.,0.,0.,0.,0.,0.,0.,
- 11900.,11910.,0.,0.,0.,0.,0.,0.,11910.,11920.,0.,0.,0.,0.,0.,0.,
- 11920.,11930.,0.,0.,0.,0.,0.,0.,11930.,11940.,0.,0.,0.,0.,0.,0.,
- 11940.,11950.,0.,0.,0.,0.,0.,0.,11950.,11960.,0.,0.,0.,0.,0.,0.,
- 11960.,11970.,0.,0.,0.,0.,0.,0.,11970.,11980.,0.,0.,0.,0.,0.,0.,
- 11980.,11990.,0.,0.,0.,0.,0.,0.,11990.,1.2e4,0.,0.,0.,0.,0.,0.,
- 1.2e4,12010.,0.,0.,0.,0.,0.,0.,12010.,12020.,0.,0.,0.,0.,0.,0.,
- 12020.,12030.,0.,0.,0.,0.,0.,0.,12030.,12040.,0.,0.,0.,0.,0.,0.,
- 12040.,12050.,0.,0.,0.,0.,0.,0.,12050.,12060.,0.,0.,0.,0.,0.,0.,
- 12060.,12070.,0.,0.,0.,0.,0.,0.,12070.,12080.,0.,0.,0.,0.,0.,0.,
- 12080.,12090.,0.,0.,0.,0.,0.,0.,12090.,12100.,0.,0.,0.,0.,0.,0.,
- 12100.,12110.,0.,0.,0.,0.,0.,0.,12110.,12120.,0.,0.,0.,0.,0.,0.,
- 12120.,12130.,0.,0.,0.,0.,0.,0.,12130.,12140.,0.,0.,0.,0.,0.,0.,
- 12140.,12150.,0.,0.,0.,0.,0.,0.,12150.,12160.,0.,0.,0.,0.,0.,0.,
- 12160.,12170.,0.,0.,0.,0.,0.,0.,12170.,12180.,0.,0.,0.,0.,0.,0.,
- 12180.,12190.,0.,0.,0.,0.,0.,0.,12190.,12200.,0.,0.,0.,0.,0.,0.,
- 12200.,12210.,0.,0.,0.,0.,0.,0.,12210.,12220.,0.,0.,0.,0.,0.,0.,
- 12220.,12230.,0.,0.,0.,0.,0.,0.,12230.,12240.,0.,0.,0.,0.,0.,0.,
- 12240.,12250.,0.,0.,0.,0.,0.,0.,12250.,12260.,0.,0.,0.,0.,0.,0.,
- 12260.,12270.,0.,0.,0.,0.,0.,0.,12270.,12280.,0.,0.,0.,0.,0.,0.,
- 12280.,12290.,0.,0.,0.,0.,0.,0.,12290.,12300.,0.,0.,0.,0.,0.,0.,
- 12300.,12310.,0.,0.,0.,0.,0.,0.,12310.,12320.,0.,0.,0.,0.,0.,0.,
- 12320.,12330.,0.,0.,0.,0.,0.,0.,12330.,12340.,0.,0.,0.,0.,0.,0.,
- 12340.,12350.,0.,0.,0.,0.,0.,0.,12350.,12360.,0.,0.,0.,0.,0.,0.,
- 12360.,12370.,0.,0.,0.,0.,0.,0.,12370.,12380.,0.,0.,0.,0.,0.,0.,
- 12380.,12390.,0.,0.,0.,0.,0.,0.,12390.,12400.,0.,0.,0.,0.,0.,0.,
- 12400.,12410.,0.,0.,0.,0.,0.,0.,12410.,12420.,0.,0.,0.,0.,0.,0.,
- 12420.,12430.,0.,0.,0.,0.,0.,0.,12430.,12440.,0.,0.,0.,0.,0.,0.,
- 12440.,12450.,0.,0.,0.,0.,0.,0.,12450.,12460.,0.,0.,0.,0.,0.,0.,
- 12460.,12470.,0.,0.,0.,0.,0.,0.,12470.,12480.,0.,0.,0.,0.,0.,0.,
- 12480.,12490.,0.,0.,0.,0.,0.,0.,12490.,12500.,0.,0.,0.,0.,0.,0.,
- 12500.,12510.,0.,0.,0.,0.,0.,0.,12510.,12520.,0.,0.,0.,0.,0.,0.,
- 12520.,12530.,0.,0.,0.,0.,0.,0.,12530.,12540.,0.,0.,0.,0.,0.,0.,
- 12540.,12550.,0.,0.,0.,0.,0.,0.,12550.,12560.,0.,0.,0.,0.,0.,0.,
- 12560.,12570.,0.,0.,0.,0.,0.,0.,12570.,12580.,0.,0.,0.,0.,0.,0.,
- 12580.,12590.,0.,0.,0.,0.,0.,0.,12590.,12600.,0.,0.,0.,0.,0.,0.,
- 12600.,12610.,0.,0.,0.,0.,0.,0.,12610.,12620.,0.,0.,0.,0.,0.,0.,
- 12620.,12630.,0.,0.,0.,0.,0.,0.,12630.,12640.,0.,0.,0.,0.,0.,0.,
- 12640.,12650.,0.,0.,0.,0.,0.,0.,12650.,12660.,0.,0.,0.,0.,0.,0.,
- 12660.,12670.,0.,0.,0.,0.,0.,0.,12670.,12680.,0.,0.,0.,0.,0.,0.,
- 12680.,12690.,0.,0.,0.,0.,0.,0.,12690.,12700.,0.,0.,0.,0.,0.,0.,
- 12700.,12710.,0.,0.,0.,0.,0.,0.,12710.,12720.,0.,0.,0.,0.,0.,0.,
- 12720.,12730.,0.,0.,0.,0.,0.,0.,12730.,12740. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* nitrous oxide (10180 - 12730 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* niox4_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.f b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.f
deleted file mode 100644
index 2066057..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine niox4(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c nitrous oxide (10180 - 12730 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10180e+05, 0.10190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10190e+05, 0.10200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10200e+05, 0.10210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10210e+05, 0.10220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10220e+05, 0.10230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10230e+05, 0.10240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10240e+05, 0.10250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10250e+05, 0.10260e+05/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10260e+05, 0.10270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10270e+05, 0.10280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10280e+05, 0.10290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10290e+05, 0.10300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10300e+05, 0.10310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10310e+05, 0.10320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10320e+05, 0.10330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10330e+05, 0.10340e+05/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10340e+05, 0.10350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10350e+05, 0.10360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10360e+05, 0.10370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10370e+05, 0.10380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10380e+05, 0.10390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10390e+05, 0.10400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10400e+05, 0.10410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10410e+05, 0.10420e+05/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10420e+05, 0.10430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10430e+05, 0.10440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10440e+05, 0.10450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10450e+05, 0.10460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10460e+05, 0.10470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10470e+05, 0.10480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10480e+05, 0.10490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10490e+05, 0.10500e+05/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10500e+05, 0.10510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10510e+05, 0.10520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10520e+05, 0.10530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10530e+05, 0.10540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10540e+05, 0.10550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10550e+05, 0.10560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10560e+05, 0.10570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10570e+05, 0.10580e+05/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10580e+05, 0.10590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10590e+05, 0.10600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10600e+05, 0.10610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10610e+05, 0.10620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10620e+05, 0.10630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10630e+05, 0.10640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10640e+05, 0.10650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10650e+05, 0.10660e+05/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10660e+05, 0.10670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10670e+05, 0.10680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10680e+05, 0.10690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10690e+05, 0.10700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10700e+05, 0.10710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10710e+05, 0.10720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10720e+05, 0.10730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10730e+05, 0.10740e+05/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10740e+05, 0.10750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10750e+05, 0.10760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10760e+05, 0.10770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10770e+05, 0.10780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10780e+05, 0.10790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10790e+05, 0.10800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10800e+05, 0.10810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10810e+05, 0.10820e+05/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10820e+05, 0.10830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10830e+05, 0.10840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10840e+05, 0.10850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10850e+05, 0.10860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10860e+05, 0.10870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10870e+05, 0.10880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10880e+05, 0.10890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10890e+05, 0.10900e+05/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10900e+05, 0.10910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10910e+05, 0.10920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10920e+05, 0.10930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10930e+05, 0.10940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10940e+05, 0.10950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10950e+05, 0.10960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10960e+05, 0.10970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10970e+05, 0.10980e+05/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10980e+05, 0.10990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10990e+05, 0.11000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11000e+05, 0.11010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11010e+05, 0.11020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11020e+05, 0.11030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11030e+05, 0.11040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11040e+05, 0.11050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11050e+05, 0.11060e+05/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11060e+05, 0.11070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11070e+05, 0.11080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11080e+05, 0.11090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11090e+05, 0.11100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11100e+05, 0.11110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11110e+05, 0.11120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11120e+05, 0.11130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11130e+05, 0.11140e+05/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11140e+05, 0.11150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11150e+05, 0.11160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11160e+05, 0.11170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11170e+05, 0.11180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11180e+05, 0.11190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11190e+05, 0.11200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11200e+05, 0.11210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11210e+05, 0.11220e+05/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11220e+05, 0.11230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11230e+05, 0.11240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11240e+05, 0.11250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11250e+05, 0.11260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11260e+05, 0.11270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11270e+05, 0.11280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11280e+05, 0.11290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11290e+05, 0.11300e+05/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11300e+05, 0.11310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11310e+05, 0.11320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11320e+05, 0.11330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11330e+05, 0.11340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11340e+05, 0.11350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11350e+05, 0.11360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11360e+05, 0.11370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11370e+05, 0.11380e+05/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11380e+05, 0.11390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11390e+05, 0.11400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11400e+05, 0.11410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11410e+05, 0.11420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11420e+05, 0.11430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11430e+05, 0.11440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11440e+05, 0.11450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11450e+05, 0.11460e+05/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11460e+05, 0.11470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11470e+05, 0.11480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11480e+05, 0.11490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11490e+05, 0.11500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11500e+05, 0.11510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11510e+05, 0.11520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11520e+05, 0.11530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11530e+05, 0.11540e+05/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11540e+05, 0.11550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11550e+05, 0.11560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11560e+05, 0.11570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11570e+05, 0.11580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11580e+05, 0.11590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11590e+05, 0.11600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11600e+05, 0.11610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11610e+05, 0.11620e+05/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11620e+05, 0.11630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11630e+05, 0.11640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11640e+05, 0.11650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11650e+05, 0.11660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11660e+05, 0.11670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11670e+05, 0.11680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11680e+05, 0.11690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11690e+05, 0.11700e+05/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11700e+05, 0.11710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11710e+05, 0.11720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11720e+05, 0.11730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11730e+05, 0.11740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11740e+05, 0.11750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11750e+05, 0.11760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11760e+05, 0.11770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11770e+05, 0.11780e+05/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11780e+05, 0.11790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11790e+05, 0.11800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11800e+05, 0.11810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11810e+05, 0.11820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11820e+05, 0.11830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11830e+05, 0.11840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11840e+05, 0.11850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11850e+05, 0.11860e+05/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11860e+05, 0.11870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11870e+05, 0.11880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11880e+05, 0.11890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11890e+05, 0.11900e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11900e+05, 0.11910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11910e+05, 0.11920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11920e+05, 0.11930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11930e+05, 0.11940e+05/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11940e+05, 0.11950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11950e+05, 0.11960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11960e+05, 0.11970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11970e+05, 0.11980e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11980e+05, 0.11990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11990e+05, 0.12000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12000e+05, 0.12010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12010e+05, 0.12020e+05/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12020e+05, 0.12030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12030e+05, 0.12040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12040e+05, 0.12050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12050e+05, 0.12060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12060e+05, 0.12070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12070e+05, 0.12080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12080e+05, 0.12090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12090e+05, 0.12100e+05/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12100e+05, 0.12110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12110e+05, 0.12120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12120e+05, 0.12130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12130e+05, 0.12140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12140e+05, 0.12150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12150e+05, 0.12160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12160e+05, 0.12170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12170e+05, 0.12180e+05/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12180e+05, 0.12190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12190e+05, 0.12200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12200e+05, 0.12210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12210e+05, 0.12220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12220e+05, 0.12230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12230e+05, 0.12240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12240e+05, 0.12250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12250e+05, 0.12260e+05/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12260e+05, 0.12270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12270e+05, 0.12280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12280e+05, 0.12290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12290e+05, 0.12300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12300e+05, 0.12310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12310e+05, 0.12320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12320e+05, 0.12330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12330e+05, 0.12340e+05/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12340e+05, 0.12350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12350e+05, 0.12360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12360e+05, 0.12370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12370e+05, 0.12380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12380e+05, 0.12390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12390e+05, 0.12400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12400e+05, 0.12410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12410e+05, 0.12420e+05/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12420e+05, 0.12430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12430e+05, 0.12440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12440e+05, 0.12450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12450e+05, 0.12460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12460e+05, 0.12470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12470e+05, 0.12480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12480e+05, 0.12490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12490e+05, 0.12500e+05/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12500e+05, 0.12510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12510e+05, 0.12520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12520e+05, 0.12530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12530e+05, 0.12540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12540e+05, 0.12550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12550e+05, 0.12560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12560e+05, 0.12570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12570e+05, 0.12580e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12580e+05, 0.12590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12590e+05, 0.12600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12600e+05, 0.12610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12610e+05, 0.12620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12620e+05, 0.12630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12630e+05, 0.12640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12640e+05, 0.12650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12650e+05, 0.12660e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12660e+05, 0.12670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12670e+05, 0.12680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12680e+05, 0.12690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12690e+05, 0.12700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12700e+05, 0.12710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12710e+05, 0.12720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12720e+05, 0.12730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12730e+05, 0.12740e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.h b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.h
deleted file mode 100644
index 14b325f..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX4.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_niox4_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.P b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.P
deleted file mode 100644
index f9d876d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int niox5_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.c b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.c
deleted file mode 100644
index 78c244d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.c
+++ /dev/null
@@ -1,206 +0,0 @@
-/* NIOX5.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine niox5(a,inu) >*/
-/* Subroutine */ int niox5_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 12740.,12750.,0.,0.,0.,0.,0.,0.,12750.,12760.,0.,0.,0.,0.,0.,0.,
- 12760.,12770.,0.,0.,0.,0.,0.,0.,12770.,12780.,0.,0.,0.,0.,0.,0.,
- 12780.,12790.,0.,0.,0.,0.,0.,0.,12790.,12800.,0.,0.,0.,0.,0.,0.,
- 12800.,12810.,0.,0.,0.,0.,0.,0.,12810.,12820.,0.,0.,0.,0.,0.,0.,
- 12820.,12830.,0.,0.,0.,0.,0.,0.,12830.,12840.,0.,0.,0.,0.,0.,0.,
- 12840.,12850.,0.,0.,0.,0.,0.,0.,12850.,12860.,0.,0.,0.,0.,0.,0.,
- 12860.,12870.,0.,0.,0.,0.,0.,0.,12870.,12880.,0.,0.,0.,0.,0.,0.,
- 12880.,12890.,0.,0.,0.,0.,0.,0.,12890.,12900.,0.,0.,0.,0.,0.,0.,
- 12900.,12910.,0.,0.,0.,0.,0.,0.,12910.,12920.,0.,0.,0.,0.,0.,0.,
- 12920.,12930.,0.,0.,0.,0.,0.,0.,12930.,12940.,0.,0.,0.,0.,0.,0.,
- 12940.,12950.,0.,0.,0.,0.,0.,0.,12950.,12960.,0.,0.,0.,0.,0.,0.,
- 12960.,12970.,0.,0.,0.,0.,0.,0.,12970.,12980.,0.,0.,0.,0.,0.,0.,
- 12980.,12990.,0.,0.,0.,0.,0.,0.,12990.,1.3e4,0.,0.,0.,0.,0.,0.,
- 1.3e4,13010.,0.,0.,0.,0.,0.,0.,13010.,13020.,0.,0.,0.,0.,0.,0.,
- 13020.,13030.,0.,0.,0.,0.,0.,0.,13030.,13040.,0.,0.,0.,0.,0.,0.,
- 13040.,13050.,0.,0.,0.,0.,0.,0.,13050.,13060.,0.,0.,0.,0.,0.,0.,
- 13060.,13070.,0.,0.,0.,0.,0.,0.,13070.,13080.,0.,0.,0.,0.,0.,0.,
- 13080.,13090.,0.,0.,0.,0.,0.,0.,13090.,13100.,0.,0.,0.,0.,0.,0.,
- 13100.,13110.,0.,0.,0.,0.,0.,0.,13110.,13120.,0.,0.,0.,0.,0.,0.,
- 13120.,13130.,0.,0.,0.,0.,0.,0.,13130.,13140.,0.,0.,0.,0.,0.,0.,
- 13140.,13150.,0.,0.,0.,0.,0.,0.,13150.,13160.,0.,0.,0.,0.,0.,0.,
- 13160.,13170.,0.,0.,0.,0.,0.,0.,13170.,13180.,0.,0.,0.,0.,0.,0.,
- 13180.,13190.,0.,0.,0.,0.,0.,0.,13190.,13200.,0.,0.,0.,0.,0.,0.,
- 13200.,13210.,0.,0.,0.,0.,0.,0.,13210.,13220.,0.,0.,0.,0.,0.,0.,
- 13220.,13230.,0.,0.,0.,0.,0.,0.,13230.,13240.,0.,0.,0.,0.,0.,0.,
- 13240.,13250.,0.,0.,0.,0.,0.,0.,13250.,13260.,0.,0.,0.,0.,0.,0.,
- 13260.,13270.,0.,0.,0.,0.,0.,0.,13270.,13280.,0.,0.,0.,0.,0.,0.,
- 13280.,13290.,0.,0.,0.,0.,0.,0.,13290.,13300.,0.,0.,0.,0.,0.,0.,
- 13300.,13310.,0.,0.,0.,0.,0.,0.,13310.,13320.,0.,0.,0.,0.,0.,0.,
- 13320.,13330.,0.,0.,0.,0.,0.,0.,13330.,13340.,0.,0.,0.,0.,0.,0.,
- 13340.,13350.,0.,0.,0.,0.,0.,0.,13350.,13360.,0.,0.,0.,0.,0.,0.,
- 13360.,13370.,0.,0.,0.,0.,0.,0.,13370.,13380.,0.,0.,0.,0.,0.,0.,
- 13380.,13390.,0.,0.,0.,0.,0.,0.,13390.,13400.,0.,0.,0.,0.,0.,0.,
- 13400.,13410.,0.,0.,0.,0.,0.,0.,13410.,13420.,0.,0.,0.,0.,0.,0.,
- 13420.,13430.,0.,0.,0.,0.,0.,0.,13430.,13440.,0.,0.,0.,0.,0.,0.,
- 13440.,13450.,0.,0.,0.,0.,0.,0.,13450.,13460.,0.,0.,0.,0.,0.,0.,
- 13460.,13470.,0.,0.,0.,0.,0.,0.,13470.,13480.,0.,0.,0.,0.,0.,0.,
- 13480.,13490.,0.,0.,0.,0.,0.,0.,13490.,13500.,0.,0.,0.,0.,0.,0.,
- 13500.,13510.,0.,0.,0.,0.,0.,0.,13510.,13520.,0.,0.,0.,0.,0.,0.,
- 13520.,13530.,0.,0.,0.,0.,0.,0.,13530.,13540.,0.,0.,0.,0.,0.,0.,
- 13540.,13550.,0.,0.,0.,0.,0.,0.,13550.,13560.,0.,0.,0.,0.,0.,0.,
- 13560.,13570.,0.,0.,0.,0.,0.,0.,13570.,13580.,0.,0.,0.,0.,0.,0.,
- 13580.,13590.,0.,0.,0.,0.,0.,0.,13590.,13600.,0.,0.,0.,0.,0.,0.,
- 13600.,13610.,0.,0.,0.,0.,0.,0.,13610.,13620.,0.,0.,0.,0.,0.,0.,
- 13620.,13630.,0.,0.,0.,0.,0.,0.,13630.,13640.,0.,0.,0.,0.,0.,0.,
- 13640.,13650.,0.,0.,0.,0.,0.,0.,13650.,13660.,0.,0.,0.,0.,0.,0.,
- 13660.,13670.,0.,0.,0.,0.,0.,0.,13670.,13680.,0.,0.,0.,0.,0.,0.,
- 13680.,13690.,0.,0.,0.,0.,0.,0.,13690.,13700.,0.,0.,0.,0.,0.,0.,
- 13700.,13710.,0.,0.,0.,0.,0.,0.,13710.,13720.,0.,0.,0.,0.,0.,0.,
- 13720.,13730.,0.,0.,0.,0.,0.,0.,13730.,13740.,0.,0.,0.,0.,0.,0.,
- 13740.,13750.,0.,0.,0.,0.,0.,0.,13750.,13760.,0.,0.,0.,0.,0.,0.,
- 13760.,13770.,0.,0.,0.,0.,0.,0.,13770.,13780.,0.,0.,0.,0.,0.,0.,
- 13780.,13790.,0.,0.,0.,0.,0.,0.,13790.,13800.,0.,0.,0.,0.,0.,0.,
- 13800.,13810.,0.,0.,0.,0.,0.,0.,13810.,13820.,0.,0.,0.,0.,0.,0.,
- 13820.,13830.,0.,0.,0.,0.,0.,0.,13830.,13840.,0.,0.,0.,0.,0.,0.,
- 13840.,13850.,0.,0.,0.,0.,0.,0.,13850.,13860.,0.,0.,0.,0.,0.,0.,
- 13860.,13870.,0.,0.,0.,0.,0.,0.,13870.,13880.,0.,0.,0.,0.,0.,0.,
- 13880.,13890.,0.,0.,0.,0.,0.,0.,13890.,13900.,0.,0.,0.,0.,0.,0.,
- 13900.,13910.,0.,0.,0.,0.,0.,0.,13910.,13920.,0.,0.,0.,0.,0.,0.,
- 13920.,13930.,0.,0.,0.,0.,0.,0.,13930.,13940.,0.,0.,0.,0.,0.,0.,
- 13940.,13950.,0.,0.,0.,0.,0.,0.,13950.,13960.,0.,0.,0.,0.,0.,0.,
- 13960.,13970.,0.,0.,0.,0.,0.,0.,13970.,13980.,0.,0.,0.,0.,0.,0.,
- 13980.,13990.,0.,0.,0.,0.,0.,0.,13990.,1.4e4,0.,0.,0.,0.,0.,0.,
- 1.4e4,14010.,0.,0.,0.,0.,0.,0.,14010.,14020.,0.,0.,0.,0.,0.,0.,
- 14020.,14030.,0.,0.,0.,0.,0.,0.,14030.,14040.,0.,0.,0.,0.,0.,0.,
- 14040.,14050.,0.,0.,0.,0.,0.,0.,14050.,14060.,0.,0.,0.,0.,0.,0.,
- 14060.,14070.,0.,0.,0.,0.,0.,0.,14070.,14080.,0.,0.,0.,0.,0.,0.,
- 14080.,14090.,0.,0.,0.,0.,0.,0.,14090.,14100.,0.,0.,0.,0.,0.,0.,
- 14100.,14110.,0.,0.,0.,0.,0.,0.,14110.,14120.,0.,0.,0.,0.,0.,0.,
- 14120.,14130.,0.,0.,0.,0.,0.,0.,14130.,14140.,0.,0.,0.,0.,0.,0.,
- 14140.,14150.,0.,0.,0.,0.,0.,0.,14150.,14160.,0.,0.,0.,0.,0.,0.,
- 14160.,14170.,0.,0.,0.,0.,0.,0.,14170.,14180.,0.,0.,0.,0.,0.,0.,
- 14180.,14190.,0.,0.,0.,0.,0.,0.,14190.,14200.,0.,0.,0.,0.,0.,0.,
- 14200.,14210.,0.,0.,0.,0.,0.,0.,14210.,14220.,0.,0.,0.,0.,0.,0.,
- 14220.,14230.,0.,0.,0.,0.,0.,0.,14230.,14240.,0.,0.,0.,0.,0.,0.,
- 14240.,14250.,0.,0.,0.,0.,0.,0.,14250.,14260.,0.,0.,0.,0.,0.,0.,
- 14260.,14270.,0.,0.,0.,0.,0.,0.,14270.,14280.,0.,0.,0.,0.,0.,0.,
- 14280.,14290.,0.,0.,0.,0.,0.,0.,14290.,14300.,0.,0.,0.,0.,0.,0.,
- 14300.,14310.,0.,0.,0.,0.,0.,0.,14310.,14320.,0.,0.,0.,0.,0.,0.,
- 14320.,14330.,0.,0.,0.,0.,0.,0.,14330.,14340.,0.,0.,0.,0.,0.,0.,
- 14340.,14350.,0.,0.,0.,0.,0.,0.,14350.,14360.,0.,0.,0.,0.,0.,0.,
- 14360.,14370.,0.,0.,0.,0.,0.,0.,14370.,14380.,0.,0.,0.,0.,0.,0.,
- 14380.,14390.,0.,0.,0.,0.,0.,0.,14390.,14400.,0.,0.,0.,0.,0.,0.,
- 14400.,14410.,0.,0.,0.,0.,0.,0.,14410.,14420.,0.,0.,0.,0.,0.,0.,
- 14420.,14430.,0.,0.,0.,0.,0.,0.,14430.,14440.,0.,0.,0.,0.,0.,0.,
- 14440.,14450.,0.,0.,0.,0.,0.,0.,14450.,14460.,0.,0.,0.,0.,0.,0.,
- 14460.,14470.,0.,0.,0.,0.,0.,0.,14470.,14480.,0.,0.,0.,0.,0.,0.,
- 14480.,14490.,0.,0.,0.,0.,0.,0.,14490.,14500.,0.,0.,0.,0.,0.,0.,
- 14500.,14510.,0.,0.,0.,0.,0.,0.,14510.,14520.,0.,0.,0.,0.,0.,0.,
- 14520.,14530.,0.,0.,0.,0.,0.,0.,14530.,14540.,0.,0.,0.,0.,0.,0.,
- 14540.,14550.,0.,0.,0.,0.,0.,0.,14550.,14560.,0.,0.,0.,0.,0.,0.,
- 14560.,14570.,0.,0.,0.,0.,0.,0.,14570.,14580.,0.,0.,0.,0.,0.,0.,
- 14580.,14590.,0.,0.,0.,0.,0.,0.,14590.,14600.,0.,0.,0.,0.,0.,0.,
- 14600.,14610.,0.,0.,0.,0.,0.,0.,14610.,14620.,0.,0.,0.,0.,0.,0.,
- 14620.,14630.,0.,0.,0.,0.,0.,0.,14630.,14640.,0.,0.,0.,0.,0.,0.,
- 14640.,14650.,0.,0.,0.,0.,0.,0.,14650.,14660.,0.,0.,0.,0.,0.,0.,
- 14660.,14670.,0.,0.,0.,0.,0.,0.,14670.,14680.,0.,0.,0.,0.,0.,0.,
- 14680.,14690.,0.,0.,0.,0.,0.,0.,14690.,14700.,0.,0.,0.,0.,0.,0.,
- 14700.,14710.,0.,0.,0.,0.,0.,0.,14710.,14720.,0.,0.,0.,0.,0.,0.,
- 14720.,14730.,0.,0.,0.,0.,0.,0.,14730.,14740.,0.,0.,0.,0.,0.,0.,
- 14740.,14750.,0.,0.,0.,0.,0.,0.,14750.,14760.,0.,0.,0.,0.,0.,0.,
- 14760.,14770.,0.,0.,0.,0.,0.,0.,14770.,14780.,0.,0.,0.,0.,0.,0.,
- 14780.,14790.,0.,0.,0.,0.,0.,0.,14790.,14800.,0.,0.,0.,0.,0.,0.,
- 14800.,14810.,0.,0.,0.,0.,0.,0.,14810.,14820.,0.,0.,0.,0.,0.,0.,
- 14820.,14830.,0.,0.,0.,0.,0.,0.,14830.,14840.,0.,0.,0.,0.,0.,0.,
- 14840.,14850.,0.,0.,0.,0.,0.,0.,14850.,14860.,0.,0.,0.,0.,0.,0.,
- 14860.,14870.,0.,0.,0.,0.,0.,0.,14870.,14880.,0.,0.,0.,0.,0.,0.,
- 14880.,14890.,0.,0.,0.,0.,0.,0.,14890.,14900.,0.,0.,0.,0.,0.,0.,
- 14900.,14910.,0.,0.,0.,0.,0.,0.,14910.,14920.,0.,0.,0.,0.,0.,0.,
- 14920.,14930.,0.,0.,0.,0.,0.,0.,14930.,14940.,0.,0.,0.,0.,0.,0.,
- 14940.,14950.,0.,0.,0.,0.,0.,0.,14950.,14960.,0.,0.,0.,0.,0.,0.,
- 14960.,14970.,0.,0.,0.,0.,0.,0.,14970.,14980.,0.,0.,0.,0.,0.,0.,
- 14980.,14990.,0.,0.,0.,0.,0.,0.,14990.,1.5e4,0.,0.,0.,0.,0.,0.,
- 1.5e4,15010.,0.,0.,0.,0.,0.,0.,15010.,15020.,0.,0.,0.,0.,0.,0.,
- 15020.,15030.,0.,0.,0.,0.,0.,0.,15030.,15040.,0.,0.,0.,0.,0.,0.,
- 15040.,15050.,0.,0.,0.,0.,0.,0.,15050.,15060.,0.,0.,0.,0.,0.,0.,
- 15060.,15070.,0.,0.,0.,0.,0.,0.,15070.,15080.,0.,0.,0.,0.,0.,0.,
- 15080.,15090.,0.,0.,0.,0.,0.,0.,15090.,15100.,0.,0.,0.,0.,0.,0.,
- 15100.,15110.,0.,0.,0.,0.,0.,0.,15110.,15120.,0.,0.,0.,0.,0.,0.,
- 15120.,15130.,0.,0.,0.,0.,0.,0.,15130.,15140.,0.,0.,0.,0.,0.,0.,
- 15140.,15150.,0.,0.,0.,0.,0.,0.,15150.,15160.,0.,0.,0.,0.,0.,0.,
- 15160.,15170.,0.,0.,0.,0.,0.,0.,15170.,15180.,0.,0.,0.,0.,0.,0.,
- 15180.,15190.,0.,0.,0.,0.,0.,0.,15190.,15200.,0.,0.,0.,0.,0.,0.,
- 15200.,15210.,0.,0.,0.,0.,0.,0.,15210.,15220.,0.,0.,0.,0.,0.,0.,
- 15220.,15230.,0.,0.,0.,0.,0.,0.,15230.,15240.,0.,0.,0.,0.,0.,0.,
- 15240.,15250.,0.,0.,0.,0.,0.,0.,15250.,15260.,0.,0.,0.,0.,0.,0.,
- 15260.,15270.,0.,0.,0.,0.,0.,0.,15270.,15280.,0.,0.,0.,0.,0.,0.,
- 15280.,15290.,0.,0.,0.,0.,0.,0.,15290.,15300. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* nitrous oxide (12740 - 15290 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* niox5_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.f b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.f
deleted file mode 100644
index 10fad40..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine niox5(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c nitrous oxide (12740 - 15290 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12740e+05, 0.12750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12750e+05, 0.12760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12760e+05, 0.12770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12770e+05, 0.12780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12780e+05, 0.12790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12790e+05, 0.12800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12800e+05, 0.12810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12810e+05, 0.12820e+05/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12820e+05, 0.12830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12830e+05, 0.12840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12840e+05, 0.12850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12850e+05, 0.12860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12860e+05, 0.12870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12870e+05, 0.12880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12880e+05, 0.12890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12890e+05, 0.12900e+05/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12900e+05, 0.12910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12910e+05, 0.12920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12920e+05, 0.12930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12930e+05, 0.12940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12940e+05, 0.12950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12950e+05, 0.12960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12960e+05, 0.12970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12970e+05, 0.12980e+05/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12980e+05, 0.12990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12990e+05, 0.13000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13000e+05, 0.13010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13010e+05, 0.13020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13020e+05, 0.13030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13030e+05, 0.13040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13040e+05, 0.13050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13050e+05, 0.13060e+05/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13060e+05, 0.13070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13070e+05, 0.13080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13080e+05, 0.13090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13090e+05, 0.13100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13100e+05, 0.13110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13110e+05, 0.13120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13120e+05, 0.13130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13130e+05, 0.13140e+05/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13140e+05, 0.13150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13150e+05, 0.13160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13160e+05, 0.13170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13170e+05, 0.13180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13180e+05, 0.13190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13190e+05, 0.13200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13200e+05, 0.13210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13210e+05, 0.13220e+05/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13220e+05, 0.13230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13230e+05, 0.13240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13240e+05, 0.13250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13250e+05, 0.13260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13260e+05, 0.13270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13270e+05, 0.13280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13280e+05, 0.13290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13290e+05, 0.13300e+05/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13300e+05, 0.13310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13310e+05, 0.13320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13320e+05, 0.13330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13330e+05, 0.13340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13340e+05, 0.13350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13350e+05, 0.13360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13360e+05, 0.13370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13370e+05, 0.13380e+05/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13380e+05, 0.13390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13390e+05, 0.13400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13400e+05, 0.13410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13410e+05, 0.13420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13420e+05, 0.13430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13430e+05, 0.13440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13440e+05, 0.13450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13450e+05, 0.13460e+05/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13460e+05, 0.13470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13470e+05, 0.13480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13480e+05, 0.13490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13490e+05, 0.13500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13500e+05, 0.13510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13510e+05, 0.13520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13520e+05, 0.13530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13530e+05, 0.13540e+05/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13540e+05, 0.13550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13550e+05, 0.13560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13560e+05, 0.13570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13570e+05, 0.13580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13580e+05, 0.13590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13590e+05, 0.13600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13600e+05, 0.13610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13610e+05, 0.13620e+05/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13620e+05, 0.13630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13630e+05, 0.13640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13640e+05, 0.13650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13650e+05, 0.13660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13660e+05, 0.13670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13670e+05, 0.13680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13680e+05, 0.13690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13690e+05, 0.13700e+05/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13700e+05, 0.13710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13710e+05, 0.13720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13720e+05, 0.13730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13730e+05, 0.13740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13740e+05, 0.13750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13750e+05, 0.13760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13760e+05, 0.13770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13770e+05, 0.13780e+05/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13780e+05, 0.13790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13790e+05, 0.13800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13800e+05, 0.13810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13810e+05, 0.13820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13820e+05, 0.13830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13830e+05, 0.13840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13840e+05, 0.13850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13850e+05, 0.13860e+05/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13860e+05, 0.13870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13870e+05, 0.13880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13880e+05, 0.13890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13890e+05, 0.13900e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13900e+05, 0.13910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13910e+05, 0.13920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13920e+05, 0.13930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13930e+05, 0.13940e+05/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13940e+05, 0.13950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13950e+05, 0.13960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13960e+05, 0.13970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13970e+05, 0.13980e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13980e+05, 0.13990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13990e+05, 0.14000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14000e+05, 0.14010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14010e+05, 0.14020e+05/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14020e+05, 0.14030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14030e+05, 0.14040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14040e+05, 0.14050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14050e+05, 0.14060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14060e+05, 0.14070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14070e+05, 0.14080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14080e+05, 0.14090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14090e+05, 0.14100e+05/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14100e+05, 0.14110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14110e+05, 0.14120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14120e+05, 0.14130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14130e+05, 0.14140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14140e+05, 0.14150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14150e+05, 0.14160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14160e+05, 0.14170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14170e+05, 0.14180e+05/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14180e+05, 0.14190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14190e+05, 0.14200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14200e+05, 0.14210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14210e+05, 0.14220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14220e+05, 0.14230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14230e+05, 0.14240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14240e+05, 0.14250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14250e+05, 0.14260e+05/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14260e+05, 0.14270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14270e+05, 0.14280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14280e+05, 0.14290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14290e+05, 0.14300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14300e+05, 0.14310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14310e+05, 0.14320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14320e+05, 0.14330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14330e+05, 0.14340e+05/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14340e+05, 0.14350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14350e+05, 0.14360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14360e+05, 0.14370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14370e+05, 0.14380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14380e+05, 0.14390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14390e+05, 0.14400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14400e+05, 0.14410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14410e+05, 0.14420e+05/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14420e+05, 0.14430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14430e+05, 0.14440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14440e+05, 0.14450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14450e+05, 0.14460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14460e+05, 0.14470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14470e+05, 0.14480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14480e+05, 0.14490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14490e+05, 0.14500e+05/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14500e+05, 0.14510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14510e+05, 0.14520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14520e+05, 0.14530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14530e+05, 0.14540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14540e+05, 0.14550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14550e+05, 0.14560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14560e+05, 0.14570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14570e+05, 0.14580e+05/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14580e+05, 0.14590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14590e+05, 0.14600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14600e+05, 0.14610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14610e+05, 0.14620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14620e+05, 0.14630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14630e+05, 0.14640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14640e+05, 0.14650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14650e+05, 0.14660e+05/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14660e+05, 0.14670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14670e+05, 0.14680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14680e+05, 0.14690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14690e+05, 0.14700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14700e+05, 0.14710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14710e+05, 0.14720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14720e+05, 0.14730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14730e+05, 0.14740e+05/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14740e+05, 0.14750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14750e+05, 0.14760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14760e+05, 0.14770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14770e+05, 0.14780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14780e+05, 0.14790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14790e+05, 0.14800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14800e+05, 0.14810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14810e+05, 0.14820e+05/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14820e+05, 0.14830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14830e+05, 0.14840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14840e+05, 0.14850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14850e+05, 0.14860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14860e+05, 0.14870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14870e+05, 0.14880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14880e+05, 0.14890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14890e+05, 0.14900e+05/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14900e+05, 0.14910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14910e+05, 0.14920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14920e+05, 0.14930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14930e+05, 0.14940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14940e+05, 0.14950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14950e+05, 0.14960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14960e+05, 0.14970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14970e+05, 0.14980e+05/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14980e+05, 0.14990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14990e+05, 0.15000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15000e+05, 0.15010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15010e+05, 0.15020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15020e+05, 0.15030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15030e+05, 0.15040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15040e+05, 0.15050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15050e+05, 0.15060e+05/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15060e+05, 0.15070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15070e+05, 0.15080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15080e+05, 0.15090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15090e+05, 0.15100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15100e+05, 0.15110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15110e+05, 0.15120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15120e+05, 0.15130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15130e+05, 0.15140e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15140e+05, 0.15150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15150e+05, 0.15160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15160e+05, 0.15170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15170e+05, 0.15180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15180e+05, 0.15190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15190e+05, 0.15200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15200e+05, 0.15210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15210e+05, 0.15220e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15220e+05, 0.15230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15230e+05, 0.15240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15240e+05, 0.15250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15250e+05, 0.15260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15260e+05, 0.15270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15270e+05, 0.15280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15280e+05, 0.15290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15290e+05, 0.15300e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.h b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.h
deleted file mode 100644
index b2e5bf7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX5.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_niox5_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.P b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.P
deleted file mode 100644
index 0115c3e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int niox6_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.c b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.c
deleted file mode 100644
index 209eee6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.c
+++ /dev/null
@@ -1,206 +0,0 @@
-/* NIOX6.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine niox6(a,inu) >*/
-/* Subroutine */ int niox6_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 15300.,15310.,0.,0.,0.,0.,0.,0.,15310.,15320.,0.,0.,0.,0.,0.,0.,
- 15320.,15330.,0.,0.,0.,0.,0.,0.,15330.,15340.,0.,0.,0.,0.,0.,0.,
- 15340.,15350.,0.,0.,0.,0.,0.,0.,15350.,15360.,0.,0.,0.,0.,0.,0.,
- 15360.,15370.,0.,0.,0.,0.,0.,0.,15370.,15380.,0.,0.,0.,0.,0.,0.,
- 15380.,15390.,0.,0.,0.,0.,0.,0.,15390.,15400.,0.,0.,0.,0.,0.,0.,
- 15400.,15410.,0.,0.,0.,0.,0.,0.,15410.,15420.,0.,0.,0.,0.,0.,0.,
- 15420.,15430.,0.,0.,0.,0.,0.,0.,15430.,15440.,0.,0.,0.,0.,0.,0.,
- 15440.,15450.,0.,0.,0.,0.,0.,0.,15450.,15460.,0.,0.,0.,0.,0.,0.,
- 15460.,15470.,0.,0.,0.,0.,0.,0.,15470.,15480.,0.,0.,0.,0.,0.,0.,
- 15480.,15490.,0.,0.,0.,0.,0.,0.,15490.,15500.,0.,0.,0.,0.,0.,0.,
- 15500.,15510.,0.,0.,0.,0.,0.,0.,15510.,15520.,0.,0.,0.,0.,0.,0.,
- 15520.,15530.,0.,0.,0.,0.,0.,0.,15530.,15540.,0.,0.,0.,0.,0.,0.,
- 15540.,15550.,0.,0.,0.,0.,0.,0.,15550.,15560.,0.,0.,0.,0.,0.,0.,
- 15560.,15570.,0.,0.,0.,0.,0.,0.,15570.,15580.,0.,0.,0.,0.,0.,0.,
- 15580.,15590.,0.,0.,0.,0.,0.,0.,15590.,15600.,0.,0.,0.,0.,0.,0.,
- 15600.,15610.,0.,0.,0.,0.,0.,0.,15610.,15620.,0.,0.,0.,0.,0.,0.,
- 15620.,15630.,0.,0.,0.,0.,0.,0.,15630.,15640.,0.,0.,0.,0.,0.,0.,
- 15640.,15650.,0.,0.,0.,0.,0.,0.,15650.,15660.,0.,0.,0.,0.,0.,0.,
- 15660.,15670.,0.,0.,0.,0.,0.,0.,15670.,15680.,0.,0.,0.,0.,0.,0.,
- 15680.,15690.,0.,0.,0.,0.,0.,0.,15690.,15700.,0.,0.,0.,0.,0.,0.,
- 15700.,15710.,0.,0.,0.,0.,0.,0.,15710.,15720.,0.,0.,0.,0.,0.,0.,
- 15720.,15730.,0.,0.,0.,0.,0.,0.,15730.,15740.,0.,0.,0.,0.,0.,0.,
- 15740.,15750.,0.,0.,0.,0.,0.,0.,15750.,15760.,0.,0.,0.,0.,0.,0.,
- 15760.,15770.,0.,0.,0.,0.,0.,0.,15770.,15780.,0.,0.,0.,0.,0.,0.,
- 15780.,15790.,0.,0.,0.,0.,0.,0.,15790.,15800.,0.,0.,0.,0.,0.,0.,
- 15800.,15810.,0.,0.,0.,0.,0.,0.,15810.,15820.,0.,0.,0.,0.,0.,0.,
- 15820.,15830.,0.,0.,0.,0.,0.,0.,15830.,15840.,0.,0.,0.,0.,0.,0.,
- 15840.,15850.,0.,0.,0.,0.,0.,0.,15850.,15860.,0.,0.,0.,0.,0.,0.,
- 15860.,15870.,0.,0.,0.,0.,0.,0.,15870.,15880.,0.,0.,0.,0.,0.,0.,
- 15880.,15890.,0.,0.,0.,0.,0.,0.,15890.,15900.,0.,0.,0.,0.,0.,0.,
- 15900.,15910.,0.,0.,0.,0.,0.,0.,15910.,15920.,0.,0.,0.,0.,0.,0.,
- 15920.,15930.,0.,0.,0.,0.,0.,0.,15930.,15940.,0.,0.,0.,0.,0.,0.,
- 15940.,15950.,0.,0.,0.,0.,0.,0.,15950.,15960.,0.,0.,0.,0.,0.,0.,
- 15960.,15970.,0.,0.,0.,0.,0.,0.,15970.,15980.,0.,0.,0.,0.,0.,0.,
- 15980.,15990.,0.,0.,0.,0.,0.,0.,15990.,1.6e4,0.,0.,0.,0.,0.,0.,
- 1.6e4,16010.,0.,0.,0.,0.,0.,0.,16010.,16020.,0.,0.,0.,0.,0.,0.,
- 16020.,16030.,0.,0.,0.,0.,0.,0.,16030.,16040.,0.,0.,0.,0.,0.,0.,
- 16040.,16050.,0.,0.,0.,0.,0.,0.,16050.,16060.,0.,0.,0.,0.,0.,0.,
- 16060.,16070.,0.,0.,0.,0.,0.,0.,16070.,16080.,0.,0.,0.,0.,0.,0.,
- 16080.,16090.,0.,0.,0.,0.,0.,0.,16090.,16100.,0.,0.,0.,0.,0.,0.,
- 16100.,16110.,0.,0.,0.,0.,0.,0.,16110.,16120.,0.,0.,0.,0.,0.,0.,
- 16120.,16130.,0.,0.,0.,0.,0.,0.,16130.,16140.,0.,0.,0.,0.,0.,0.,
- 16140.,16150.,0.,0.,0.,0.,0.,0.,16150.,16160.,0.,0.,0.,0.,0.,0.,
- 16160.,16170.,0.,0.,0.,0.,0.,0.,16170.,16180.,0.,0.,0.,0.,0.,0.,
- 16180.,16190.,0.,0.,0.,0.,0.,0.,16190.,16200.,0.,0.,0.,0.,0.,0.,
- 16200.,16210.,0.,0.,0.,0.,0.,0.,16210.,16220.,0.,0.,0.,0.,0.,0.,
- 16220.,16230.,0.,0.,0.,0.,0.,0.,16230.,16240.,0.,0.,0.,0.,0.,0.,
- 16240.,16250.,0.,0.,0.,0.,0.,0.,16250.,16260.,0.,0.,0.,0.,0.,0.,
- 16260.,16270.,0.,0.,0.,0.,0.,0.,16270.,16280.,0.,0.,0.,0.,0.,0.,
- 16280.,16290.,0.,0.,0.,0.,0.,0.,16290.,16300.,0.,0.,0.,0.,0.,0.,
- 16300.,16310.,0.,0.,0.,0.,0.,0.,16310.,16320.,0.,0.,0.,0.,0.,0.,
- 16320.,16330.,0.,0.,0.,0.,0.,0.,16330.,16340.,0.,0.,0.,0.,0.,0.,
- 16340.,16350.,0.,0.,0.,0.,0.,0.,16350.,16360.,0.,0.,0.,0.,0.,0.,
- 16360.,16370.,0.,0.,0.,0.,0.,0.,16370.,16380.,0.,0.,0.,0.,0.,0.,
- 16380.,16390.,0.,0.,0.,0.,0.,0.,16390.,16400.,0.,0.,0.,0.,0.,0.,
- 16400.,16410.,0.,0.,0.,0.,0.,0.,16410.,16420.,0.,0.,0.,0.,0.,0.,
- 16420.,16430.,0.,0.,0.,0.,0.,0.,16430.,16440.,0.,0.,0.,0.,0.,0.,
- 16440.,16450.,0.,0.,0.,0.,0.,0.,16450.,16460.,0.,0.,0.,0.,0.,0.,
- 16460.,16470.,0.,0.,0.,0.,0.,0.,16470.,16480.,0.,0.,0.,0.,0.,0.,
- 16480.,16490.,0.,0.,0.,0.,0.,0.,16490.,16500.,0.,0.,0.,0.,0.,0.,
- 16500.,16510.,0.,0.,0.,0.,0.,0.,16510.,16520.,0.,0.,0.,0.,0.,0.,
- 16520.,16530.,0.,0.,0.,0.,0.,0.,16530.,16540.,0.,0.,0.,0.,0.,0.,
- 16540.,16550.,0.,0.,0.,0.,0.,0.,16550.,16560.,0.,0.,0.,0.,0.,0.,
- 16560.,16570.,0.,0.,0.,0.,0.,0.,16570.,16580.,0.,0.,0.,0.,0.,0.,
- 16580.,16590.,0.,0.,0.,0.,0.,0.,16590.,16600.,0.,0.,0.,0.,0.,0.,
- 16600.,16610.,0.,0.,0.,0.,0.,0.,16610.,16620.,0.,0.,0.,0.,0.,0.,
- 16620.,16630.,0.,0.,0.,0.,0.,0.,16630.,16640.,0.,0.,0.,0.,0.,0.,
- 16640.,16650.,0.,0.,0.,0.,0.,0.,16650.,16660.,0.,0.,0.,0.,0.,0.,
- 16660.,16670.,0.,0.,0.,0.,0.,0.,16670.,16680.,0.,0.,0.,0.,0.,0.,
- 16680.,16690.,0.,0.,0.,0.,0.,0.,16690.,16700.,0.,0.,0.,0.,0.,0.,
- 16700.,16710.,0.,0.,0.,0.,0.,0.,16710.,16720.,0.,0.,0.,0.,0.,0.,
- 16720.,16730.,0.,0.,0.,0.,0.,0.,16730.,16740.,0.,0.,0.,0.,0.,0.,
- 16740.,16750.,0.,0.,0.,0.,0.,0.,16750.,16760.,0.,0.,0.,0.,0.,0.,
- 16760.,16770.,0.,0.,0.,0.,0.,0.,16770.,16780.,0.,0.,0.,0.,0.,0.,
- 16780.,16790.,0.,0.,0.,0.,0.,0.,16790.,16800.,0.,0.,0.,0.,0.,0.,
- 16800.,16810.,0.,0.,0.,0.,0.,0.,16810.,16820.,0.,0.,0.,0.,0.,0.,
- 16820.,16830.,0.,0.,0.,0.,0.,0.,16830.,16840.,0.,0.,0.,0.,0.,0.,
- 16840.,16850.,0.,0.,0.,0.,0.,0.,16850.,16860.,0.,0.,0.,0.,0.,0.,
- 16860.,16870.,0.,0.,0.,0.,0.,0.,16870.,16880.,0.,0.,0.,0.,0.,0.,
- 16880.,16890.,0.,0.,0.,0.,0.,0.,16890.,16900.,0.,0.,0.,0.,0.,0.,
- 16900.,16910.,0.,0.,0.,0.,0.,0.,16910.,16920.,0.,0.,0.,0.,0.,0.,
- 16920.,16930.,0.,0.,0.,0.,0.,0.,16930.,16940.,0.,0.,0.,0.,0.,0.,
- 16940.,16950.,0.,0.,0.,0.,0.,0.,16950.,16960.,0.,0.,0.,0.,0.,0.,
- 16960.,16970.,0.,0.,0.,0.,0.,0.,16970.,16980.,0.,0.,0.,0.,0.,0.,
- 16980.,16990.,0.,0.,0.,0.,0.,0.,16990.,1.7e4,0.,0.,0.,0.,0.,0.,
- 1.7e4,17010.,0.,0.,0.,0.,0.,0.,17010.,17020.,0.,0.,0.,0.,0.,0.,
- 17020.,17030.,0.,0.,0.,0.,0.,0.,17030.,17040.,0.,0.,0.,0.,0.,0.,
- 17040.,17050.,0.,0.,0.,0.,0.,0.,17050.,17060.,0.,0.,0.,0.,0.,0.,
- 17060.,17070.,0.,0.,0.,0.,0.,0.,17070.,17080.,0.,0.,0.,0.,0.,0.,
- 17080.,17090.,0.,0.,0.,0.,0.,0.,17090.,17100.,0.,0.,0.,0.,0.,0.,
- 17100.,17110.,0.,0.,0.,0.,0.,0.,17110.,17120.,0.,0.,0.,0.,0.,0.,
- 17120.,17130.,0.,0.,0.,0.,0.,0.,17130.,17140.,0.,0.,0.,0.,0.,0.,
- 17140.,17150.,0.,0.,0.,0.,0.,0.,17150.,17160.,0.,0.,0.,0.,0.,0.,
- 17160.,17170.,0.,0.,0.,0.,0.,0.,17170.,17180.,0.,0.,0.,0.,0.,0.,
- 17180.,17190.,0.,0.,0.,0.,0.,0.,17190.,17200.,0.,0.,0.,0.,0.,0.,
- 17200.,17210.,0.,0.,0.,0.,0.,0.,17210.,17220.,0.,0.,0.,0.,0.,0.,
- 17220.,17230.,0.,0.,0.,0.,0.,0.,17230.,17240.,0.,0.,0.,0.,0.,0.,
- 17240.,17250.,0.,0.,0.,0.,0.,0.,17250.,17260.,0.,0.,0.,0.,0.,0.,
- 17260.,17270.,0.,0.,0.,0.,0.,0.,17270.,17280.,0.,0.,0.,0.,0.,0.,
- 17280.,17290.,0.,0.,0.,0.,0.,0.,17290.,17300.,0.,0.,0.,0.,0.,0.,
- 17300.,17310.,0.,0.,0.,0.,0.,0.,17310.,17320.,0.,0.,0.,0.,0.,0.,
- 17320.,17330.,0.,0.,0.,0.,0.,0.,17330.,17340.,0.,0.,0.,0.,0.,0.,
- 17340.,17350.,0.,0.,0.,0.,0.,0.,17350.,17360.,0.,0.,0.,0.,0.,0.,
- 17360.,17370.,0.,0.,0.,0.,0.,0.,17370.,17380.,0.,0.,0.,0.,0.,0.,
- 17380.,17390.,0.,0.,0.,0.,0.,0.,17390.,17400.,0.,0.,0.,0.,0.,0.,
- 17400.,17410.,0.,0.,0.,0.,0.,0.,17410.,17420.,0.,0.,0.,0.,0.,0.,
- 17420.,17430.,0.,0.,0.,0.,0.,0.,17430.,17440.,0.,0.,0.,0.,0.,0.,
- 17440.,17450.,0.,0.,0.,0.,0.,0.,17450.,17460.,0.,0.,0.,0.,0.,0.,
- 17460.,17470.,0.,0.,0.,0.,0.,0.,17470.,17480.,0.,0.,0.,0.,0.,0.,
- 17480.,17490.,0.,0.,0.,0.,0.,0.,17490.,17500.,0.,0.,0.,0.,0.,0.,
- 17500.,17510.,0.,0.,0.,0.,0.,0.,17510.,17520.,0.,0.,0.,0.,0.,0.,
- 17520.,17530.,0.,0.,0.,0.,0.,0.,17530.,17540.,0.,0.,0.,0.,0.,0.,
- 17540.,17550.,0.,0.,0.,0.,0.,0.,17550.,17560.,0.,0.,0.,0.,0.,0.,
- 17560.,17570.,0.,0.,0.,0.,0.,0.,17570.,17580.,0.,0.,0.,0.,0.,0.,
- 17580.,17590.,0.,0.,0.,0.,0.,0.,17590.,17600.,0.,0.,0.,0.,0.,0.,
- 17600.,17610.,0.,0.,0.,0.,0.,0.,17610.,17620.,0.,0.,0.,0.,0.,0.,
- 17620.,17630.,0.,0.,0.,0.,0.,0.,17630.,17640.,0.,0.,0.,0.,0.,0.,
- 17640.,17650.,0.,0.,0.,0.,0.,0.,17650.,17660.,0.,0.,0.,0.,0.,0.,
- 17660.,17670.,0.,0.,0.,0.,0.,0.,17670.,17680.,0.,0.,0.,0.,0.,0.,
- 17680.,17690.,0.,0.,0.,0.,0.,0.,17690.,17700.,0.,0.,0.,0.,0.,0.,
- 17700.,17710.,0.,0.,0.,0.,0.,0.,17710.,17720.,0.,0.,0.,0.,0.,0.,
- 17720.,17730.,0.,0.,0.,0.,0.,0.,17730.,17740.,0.,0.,0.,0.,0.,0.,
- 17740.,17750.,0.,0.,0.,0.,0.,0.,17750.,17760.,0.,0.,0.,0.,0.,0.,
- 17760.,17770.,0.,0.,0.,0.,0.,0.,17770.,17780.,0.,0.,0.,0.,0.,0.,
- 17780.,17790.,0.,0.,0.,0.,0.,0.,17790.,17800.,0.,0.,0.,0.,0.,0.,
- 17800.,17810.,0.,0.,0.,0.,0.,0.,17810.,17820.,0.,0.,0.,0.,0.,0.,
- 17820.,17830.,0.,0.,0.,0.,0.,0.,17830.,17840.,0.,0.,0.,0.,0.,0.,
- 17840.,17850.,0.,0.,0.,0.,0.,0.,17850.,17860. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* nitrous oxide (15300 - 17870 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* niox6_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.f b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.f
deleted file mode 100644
index 8102af0..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine niox6(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c nitrous oxide (15300 - 17870 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15300e+05, 0.15310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15310e+05, 0.15320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15320e+05, 0.15330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15330e+05, 0.15340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15340e+05, 0.15350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15350e+05, 0.15360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15360e+05, 0.15370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15370e+05, 0.15380e+05/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15380e+05, 0.15390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15390e+05, 0.15400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15400e+05, 0.15410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15410e+05, 0.15420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15420e+05, 0.15430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15430e+05, 0.15440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15440e+05, 0.15450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15450e+05, 0.15460e+05/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15460e+05, 0.15470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15470e+05, 0.15480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15480e+05, 0.15490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15490e+05, 0.15500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15500e+05, 0.15510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15510e+05, 0.15520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15520e+05, 0.15530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15530e+05, 0.15540e+05/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15540e+05, 0.15550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15550e+05, 0.15560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15560e+05, 0.15570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15570e+05, 0.15580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15580e+05, 0.15590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15590e+05, 0.15600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15600e+05, 0.15610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15610e+05, 0.15620e+05/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15620e+05, 0.15630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15630e+05, 0.15640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15640e+05, 0.15650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15650e+05, 0.15660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15660e+05, 0.15670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15670e+05, 0.15680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15680e+05, 0.15690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15690e+05, 0.15700e+05/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15700e+05, 0.15710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15710e+05, 0.15720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15720e+05, 0.15730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15730e+05, 0.15740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15740e+05, 0.15750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15750e+05, 0.15760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15760e+05, 0.15770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15770e+05, 0.15780e+05/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15780e+05, 0.15790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15790e+05, 0.15800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15800e+05, 0.15810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15810e+05, 0.15820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15820e+05, 0.15830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15830e+05, 0.15840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15840e+05, 0.15850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15850e+05, 0.15860e+05/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15860e+05, 0.15870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15870e+05, 0.15880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15880e+05, 0.15890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15890e+05, 0.15900e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15900e+05, 0.15910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15910e+05, 0.15920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15920e+05, 0.15930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15930e+05, 0.15940e+05/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15940e+05, 0.15950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15950e+05, 0.15960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15960e+05, 0.15970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15970e+05, 0.15980e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15980e+05, 0.15990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15990e+05, 0.16000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16000e+05, 0.16010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16010e+05, 0.16020e+05/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16020e+05, 0.16030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16030e+05, 0.16040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16040e+05, 0.16050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16050e+05, 0.16060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16060e+05, 0.16070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16070e+05, 0.16080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16080e+05, 0.16090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16090e+05, 0.16100e+05/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16100e+05, 0.16110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16110e+05, 0.16120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16120e+05, 0.16130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16130e+05, 0.16140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16140e+05, 0.16150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16150e+05, 0.16160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16160e+05, 0.16170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16170e+05, 0.16180e+05/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16180e+05, 0.16190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16190e+05, 0.16200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16200e+05, 0.16210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16210e+05, 0.16220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16220e+05, 0.16230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16230e+05, 0.16240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16240e+05, 0.16250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16250e+05, 0.16260e+05/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16260e+05, 0.16270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16270e+05, 0.16280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16280e+05, 0.16290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16290e+05, 0.16300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16300e+05, 0.16310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16310e+05, 0.16320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16320e+05, 0.16330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16330e+05, 0.16340e+05/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16340e+05, 0.16350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16350e+05, 0.16360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16360e+05, 0.16370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16370e+05, 0.16380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16380e+05, 0.16390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16390e+05, 0.16400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16400e+05, 0.16410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16410e+05, 0.16420e+05/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16420e+05, 0.16430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16430e+05, 0.16440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16440e+05, 0.16450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16450e+05, 0.16460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16460e+05, 0.16470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16470e+05, 0.16480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16480e+05, 0.16490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16490e+05, 0.16500e+05/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16500e+05, 0.16510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16510e+05, 0.16520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16520e+05, 0.16530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16530e+05, 0.16540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16540e+05, 0.16550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16550e+05, 0.16560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16560e+05, 0.16570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16570e+05, 0.16580e+05/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16580e+05, 0.16590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16590e+05, 0.16600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16600e+05, 0.16610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16610e+05, 0.16620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16620e+05, 0.16630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16630e+05, 0.16640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16640e+05, 0.16650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16650e+05, 0.16660e+05/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16660e+05, 0.16670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16670e+05, 0.16680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16680e+05, 0.16690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16690e+05, 0.16700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16700e+05, 0.16710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16710e+05, 0.16720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16720e+05, 0.16730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16730e+05, 0.16740e+05/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16740e+05, 0.16750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16750e+05, 0.16760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16760e+05, 0.16770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16770e+05, 0.16780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16780e+05, 0.16790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16790e+05, 0.16800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16800e+05, 0.16810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16810e+05, 0.16820e+05/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16820e+05, 0.16830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16830e+05, 0.16840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16840e+05, 0.16850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16850e+05, 0.16860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16860e+05, 0.16870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16870e+05, 0.16880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16880e+05, 0.16890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16890e+05, 0.16900e+05/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16900e+05, 0.16910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16910e+05, 0.16920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16920e+05, 0.16930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16930e+05, 0.16940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16940e+05, 0.16950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16950e+05, 0.16960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16960e+05, 0.16970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16970e+05, 0.16980e+05/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16980e+05, 0.16990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16990e+05, 0.17000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17000e+05, 0.17010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17010e+05, 0.17020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17020e+05, 0.17030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17030e+05, 0.17040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17040e+05, 0.17050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17050e+05, 0.17060e+05/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17060e+05, 0.17070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17070e+05, 0.17080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17080e+05, 0.17090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17090e+05, 0.17100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17100e+05, 0.17110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17110e+05, 0.17120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17120e+05, 0.17130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17130e+05, 0.17140e+05/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17140e+05, 0.17150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17150e+05, 0.17160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17160e+05, 0.17170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17170e+05, 0.17180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17180e+05, 0.17190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17190e+05, 0.17200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17200e+05, 0.17210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17210e+05, 0.17220e+05/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17220e+05, 0.17230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17230e+05, 0.17240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17240e+05, 0.17250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17250e+05, 0.17260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17260e+05, 0.17270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17270e+05, 0.17280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17280e+05, 0.17290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17290e+05, 0.17300e+05/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17300e+05, 0.17310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17310e+05, 0.17320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17320e+05, 0.17330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17330e+05, 0.17340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17340e+05, 0.17350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17350e+05, 0.17360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17360e+05, 0.17370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17370e+05, 0.17380e+05/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17380e+05, 0.17390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17390e+05, 0.17400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17400e+05, 0.17410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17410e+05, 0.17420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17420e+05, 0.17430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17430e+05, 0.17440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17440e+05, 0.17450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17450e+05, 0.17460e+05/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17460e+05, 0.17470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17470e+05, 0.17480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17480e+05, 0.17490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17490e+05, 0.17500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17500e+05, 0.17510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17510e+05, 0.17520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17520e+05, 0.17530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17530e+05, 0.17540e+05/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17540e+05, 0.17550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17550e+05, 0.17560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17560e+05, 0.17570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17570e+05, 0.17580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17580e+05, 0.17590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17590e+05, 0.17600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17600e+05, 0.17610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17610e+05, 0.17620e+05/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17620e+05, 0.17630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17630e+05, 0.17640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17640e+05, 0.17650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17650e+05, 0.17660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17660e+05, 0.17670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17670e+05, 0.17680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17680e+05, 0.17690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17690e+05, 0.17700e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17700e+05, 0.17710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17710e+05, 0.17720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17720e+05, 0.17730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17730e+05, 0.17740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17740e+05, 0.17750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17750e+05, 0.17760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17760e+05, 0.17770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17770e+05, 0.17780e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17780e+05, 0.17790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17790e+05, 0.17800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17800e+05, 0.17810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17810e+05, 0.17820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17820e+05, 0.17830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17830e+05, 0.17840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17840e+05, 0.17850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17850e+05, 0.17860e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.h b/Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.h
deleted file mode 100644
index 4a0a57c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/NIOX6.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_niox6_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEA.P b/Modules/ThirdParty/6S/src/6SV1.0B/OCEA.P
deleted file mode 100644
index 9887648..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEA.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int ocea_();
-/* comlen num_quad__ 4 */
-/* comlen sixs_aerbas__ 480000 */
-/* comlen sixs_coef__ 1952 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEA.c b/Modules/ThirdParty/6S/src/6SV1.0B/OCEA.c
deleted file mode 100644
index 0d73c93..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEA.c
+++ /dev/null
@@ -1,710 +0,0 @@
-/* OCEA.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal ph[20000] /* was [20][1000] */, qh[20000] /* was [20][
- 1000] */, uh[20000] /* was [20][1000] */;
-} sixs_aerbas__;
-
-#define sixs_aerbas__1 sixs_aerbas__
-
-Extern struct {
- doublereal ex[80] /* was [4][20] */, sc[80] /* was [4][20] */,
- asy[80] /* was [4][20] */, vi[4];
-} sixs_coef__;
-
-#define sixs_coef__1 sixs_coef__
-
-/*< subroutine ocea >*/
-/* Subroutine */ int ocea_()
-{
- /* Initialized data */
-
- static doublereal asy_m__[20] = { .79,.787,.785,.784,.782,.784,.781,.784,
- .781,.78,.78,.779,.779,.778,.779,.785,.787,.792,.816,.749 };
- static doublereal ex_m__[20] = { 3.492134,3.555835,3.57744,3.601985,
- 3.625801,3.628089,3.658286,3.658747,3.696527,3.730609,3.736655,
- 3.76356,3.776731,3.813161,3.830686,3.729777,3.675602,3.516177,
- 3.257454,2.827842 };
- static doublereal sc_m__[20] = { 3.4921,3.555833,3.577438,3.601983,
- 3.625799,3.628088,3.658284,3.658746,3.696526,3.730607,3.73665,
- 3.763552,3.774958,3.809129,3.805399,3.662509,3.619132,3.413872,
- 2.935607,2.749985 };
- static doublereal phr[1660] /* was [20][83] */ = { .8426,.7371,.8416,
- .7122,.8664,.6608,.6706,.5889,.6593,.6636,.5688,.5587,.5378,.5168,
- .3996,.3001,.2823,.2252,.131,.2124,.6434,.6009,.6946,.6039,.6659,
- .5459,.5495,.4993,.5301,.5313,.4824,.4718,.4466,.4308,.3448,.2702,
- .2552,.2063,.1235,.2038,.5956,.5322,.5479,.5204,.5552,.5048,.4882,
- .4727,.4588,.4331,.4236,.4102,.3985,.3776,.2744,.2249,.2123,.1757,
- .1075,.1826,.5002,.4548,.4787,.4514,.5141,.4428,.4283,.4128,.4268,
- .3833,.378,.3746,.3581,.3454,.2618,.2075,.1951,.1674,.1051,.1735,
- .4105,.4231,.4314,.4316,.4301,.4113,.4208,.3737,.3862,.3809,.3504,
- .3706,.3376,.3293,.2804,.2173,.2063,.1797,.1162,.1792,.3836,.4052,
- .4126,.4104,.4072,.3873,.4096,.36,.3848,.3787,.3637,.3749,.3474,
- .3456,.2976,.2344,.225,.1971,.1279,.1937,.3575,.368,.3866,.3784,
- .3892,.3655,.3788,.3534,.3614,.3648,.3511,.3569,.3401,.334,.2947,
- .2445,.233,.2027,.1325,.2072,.333,.3354,.3507,.3412,.3549,.3399,
- .3436,.3382,.3344,.3414,.326,.33,.3225,.3164,.2798,.2409,.2294,
- .1997,.1308,.2138,.3124,.3138,.3253,.3191,.3279,.3196,.3238,.3167,
- .3203,.3151,.3112,.3079,.3044,.3057,.2638,.2303,.2198,.1918,.1263,
- .215,.3045,.3088,.3055,.3072,.3039,.3124,.3103,.2988,.2993,.3003,
- .2946,.3001,.2916,.2831,.2525,.2189,.2091,.1829,.1212,.2119,.2944,
- .3007,.3074,.3039,.3054,.2971,.3053,.2874,.2957,.2909,.2833,.2901,
- .2768,.2749,.2468,.2091,.1996,.1761,.1166,.2053,.313,.2947,.3016,
- .2959,.2999,.2926,.2946,.2958,.2936,.2844,.2884,.2808,.2782,.2694,
- .2364,.2043,.1948,.17,.1127,.1954,.3192,.3047,.3081,.3044,.3095,
- .2948,.2988,.2978,.287,.2831,.2804,.2791,.2727,.2609,.2288,.1989,
- .1897,.1643,.1094,.1843,.3212,.3135,.3114,.3166,.3093,.2983,.3058,
- .2869,.2902,.2779,.2755,.2726,.2645,.2594,.2199,.1914,.1833,.1593,
- .1064,.1734,.3219,.3072,.2991,.2903,.2942,.2961,.2862,.2834,.2796,
- .2661,.2714,.2647,.2585,.2462,.2093,.183,.1761,.1528,.1035,.1629,
- .272,.2729,.2695,.2685,.2658,.2627,.2616,.2525,.2515,.245,.243,
- .2433,.2334,.2234,.1969,.1709,.1658,.1457,.1002,.1531,.1896,.2174,
- .2187,.2197,.2103,.2145,.2177,.203,.2033,.2168,.2001,.2095,.1961,
- .1933,.1803,.1572,.1536,.1381,.0966,.1436,.1406,.1588,.1602,.1659,
- .1651,.1668,.1697,.1663,.1712,.1755,.1722,.1725,.1692,.17,.1609,
- .145,.1419,.1296,.09285,.1348,.1112,.1248,.1267,.1316,.1318,.1355,
- .1372,.1363,.1405,.145,.1431,.1478,.1461,.1469,.1437,.1322,.1308,
- .1203,.08897,.1272,.08642,.1018,.1009,.1077,.1062,.1118,.1158,
- .1144,.1173,.121,.123,.1257,.1251,.1276,.1274,.1217,.1212,.1116,
- .0852,.1206,.07607,.08348,.08076,.08814,.09173,.09367,.09579,
- .1005,.1038,.1048,.1096,.108,.112,.1152,.1142,.1126,.1122,.1047,
- .08176,.1151,.06522,.0735,.0751,.08054,.08102,.08208,.08666,
- .08513,.09074,.0946,.09526,.09734,.09955,.1024,.1066,.1031,.1029,
- .09838,.07844,.1107,.05889,.06763,.06945,.07234,.0705,.07585,
- .0776,.078,.08075,.08601,.08662,.08935,.09025,.09267,.09947,.0965,
- .09669,.09271,.0755,.1071,.05396,.06191,.06487,.06789,.06683,
- .07008,.07292,.07446,.07543,.07905,.07964,.08281,.08358,.08647,
- .09336,.09209,.09196,.08816,.073,.1042,.05403,.0585,.06009,.06153,
- .06425,.06669,.06827,.07029,.07246,.07576,.07711,.07891,.08109,
- .08277,.08845,.08818,.08785,.08463,.07107,.1022,.05099,.0571,
- .0602,.06069,.06434,.06452,.06565,.06724,.071,.07431,.07407,
- .07586,.0767,.08042,.08567,.08503,.08478,.0823,.06969,.1009,
- .05312,.05775,.05861,.0623,.06605,.06434,.0673,.06657,.07184,
- .07193,.07372,.07496,.07662,.07934,.08339,.08264,.08275,.08067,
- .06873,.1002,.05451,.06092,.05718,.06139,.06611,.06681,.0675,
- .06844,.07128,.07079,.07438,.0763,.07581,.07891,.0819,.0813,
- .08117,.07946,.06809,.1001,.05772,.06167,.06273,.06629,.06616,
- .06584,.06969,.06837,.07116,.07205,.07378,.07527,.07548,.07803,
- .08271,.08088,.08028,.07876,.06787,.1007,.06023,.06361,.06565,
- .0695,.06686,.06769,.07152,.07044,.07401,.07254,.07485,.07573,
- .07713,.07916,.08283,.08114,.08069,.07854,.06822,.1019,.06418,
- .06903,.06835,.07217,.06866,.07257,.07437,.07275,.0732,.07474,
- .07721,.07931,.07839,.07961,.08322,.08147,.08124,.0792,.06902,
- .1037,.06527,.07096,.07368,.07294,.07485,.07321,.07546,.07142,
- .07674,.07882,.07781,.0788,.07919,.08182,.0855,.0817,.08157,
- .08085,.07019,.1059,.06742,.07184,.07535,.07528,.07979,.07348,
- .07707,.07433,.0799,.08157,.07875,.08026,.08084,.08377,.08712,
- .08302,.08289,.08232,.07171,.1087,.07013,.07387,.07684,.07636,
- .07674,.07569,.07993,.07682,.07918,.08212,.08057,.08262,.08268,
- .08415,.08869,.08619,.0854,.08368,.07369,.1123,.07259,.07345,
- .07894,.0796,.08148,.07601,.08173,.07981,.08244,.08465,.08385,
- .08354,.08594,.0883,.09052,.08901,.08837,.0865,.07631,.1166,
- .07394,.07282,.08157,.078,.0875,.07629,.0801,.08221,.08828,.0886,
- .08722,.08508,.08982,.09301,.09368,.09171,.09169,.0902,.07946,
- .1215,.07478,.07554,.08408,.08043,.08774,.0811,.08452,.08415,
- .09053,.09026,.09066,.08891,.09255,.09631,.09776,.09569,.09499,
- .09374,.08301,.1273,.07715,.08142,.08347,.08519,.0899,.08746,
- .0886,.08919,.0922,.09384,.09366,.09556,.09571,.09909,.1013,.1006,
- .09951,.09791,.08719,.134,.08478,.08376,.08672,.08747,.09508,
- .08929,.09152,.09547,.1005,.09784,.1009,.09839,.1033,.1061,.1063,
- .106,.1053,.1036,.09225,.1416,.08979,.08866,.09469,.09079,.101,
- .09444,.09693,.1007,.1051,.104,.1071,.1037,.1086,.1129,.1132,
- .1123,.1113,.1096,.09801,.1506,.09464,.09809,.09861,.1023,.1022,
- .1054,.1069,.106,.1076,.1103,.1108,.1147,.114,.1159,.1211,.1191,
- .1177,.1161,.1045,.161,.09427,.1049,.1042,.1104,.1041,.1112,.1138,
- .1093,.1097,.1144,.1122,.1204,.1156,.1183,.1254,.123,.1215,.12,
- .1081,.1666,.1028,.1051,.1064,.1104,.1135,.1103,.1153,.115,.1169,
- .1176,.1187,.1221,.1217,.1249,.1297,.1274,.1259,.1244,.1121,.1724,
- .1102,.1109,.1161,.1146,.1254,.1186,.1207,.1228,.1289,.1296,.131,
- .1284,.1332,.1377,.1379,.1373,.1359,.1344,.121,.185,.1198,.1254,
- .1262,.1316,.1323,.1324,.1364,.1337,.1374,.1382,.1398,.1421,.1441,
- .1464,.1491,.148,.1469,.1451,.1311,.1997,.128,.1378,.142,.1436,
- .1444,.1464,.1482,.1433,.1468,.1531,.1494,.1557,.1531,.1574,.1643,
- .1604,.1586,.1573,.1426,.2168,.1445,.15,.1573,.1569,.1635,.1555,
- .1633,.159,.1666,.1667,.1671,.1677,.1697,.1748,.1789,.1744,.1731,
- .1723,.156,.2361,.1604,.1666,.1684,.172,.183,.1731,.1778,.1757,
- .1841,.185,.1843,.1858,.1881,.1925,.1936,.1915,.1903,.1886,.1714,
- .2579,.1768,.1895,.1934,.1958,.1944,.195,.2021,.1947,.1985,.2033,
- .2007,.2075,.2042,.2083,.2155,.2109,.2089,.2069,.1888,.2828,.1994,
- .2086,.2146,.2123,.2175,.2167,.2207,.215,.2243,.227,.2241,.2279,
- .2257,.2319,.238,.2322,.2302,.2293,.2091,.3109,.2309,.229,.2365,
- .2367,.2535,.2335,.2427,.2445,.2565,.2523,.254,.2495,.2573,.2631,
- .2616,.258,.257,.2551,.2327,.3428,.2565,.2618,.2647,.2655,.2743,
- .2678,.2733,.2736,.2809,.2788,.2828,.2798,.2852,.29,.2901,.2882,
- .2864,.2835,.2598,.3798,.2911,.3,.2991,.303,.3041,.3054,.3111,
- .3074,.3079,.3141,.3126,.3195,.3145,.3188,.3259,.3207,.3184,.3163,
- .2909,.4228,.318,.333,.3443,.3428,.3488,.3386,.3492,.3371,.3524,
- .3554,.3482,.3524,.3505,.3596,.3668,.3591,.3566,.3555,.3273,.4716,
- .3703,.3761,.3853,.3839,.3902,.3825,.3912,.3863,.3968,.3984,.4003,
- .3936,.4015,.4058,.4091,.4045,.403,.4005,.3697,.5269,.4197,.4294,
- .4286,.4325,.4369,.4416,.4417,.4432,.4453,.442,.4489,.4496,.45,
- .4559,.4574,.4575,.4556,.4519,.4189,.5912,.4777,.4934,.4908,.4958,
- .4909,.4964,.5052,.4945,.4967,.503,.5024,.5095,.5068,.5092,.5208,
- .5169,.514,.5121,.4765,.6656,.5351,.5513,.556,.5588,.5575,.5581,
- .5681,.5606,.57,.5699,.5708,.5705,.5702,.5805,.5911,.5861,.5843,
- .5835,.5443,.7513,.6305,.6135,.6274,.6227,.6392,.6265,.6322,.6452,
- .6483,.6515,.6544,.6412,.6587,.6598,.6665,.6675,.6677,.6661,.6239,
- .8503,.6948,.7221,.7126,.7247,.7165,.7284,.7343,.7256,.7255,.7292,
- .7288,.7449,.7363,.7409,.7591,.7643,.7627,.7614,.7174,.966,.8032,
- .8242,.806,.8165,.8007,.8331,.8314,.8269,.8248,.8238,.8358,.8497,
- .8402,.8458,.8703,.8749,.8738,.8745,.8283,1.101,.9123,.9168,.9229,
- .9301,.9262,.9285,.9413,.9382,.9349,.9585,.9476,.9532,.957,.9639,
- .9971,1.002,1.005,1.01,.9602,1.256,1.045,1.052,1.045,1.054,1.051,
- 1.064,1.068,1.074,1.071,1.08,1.088,1.091,1.104,1.108,1.139,1.157,
- 1.162,1.17,1.117,1.437,1.202,1.181,1.18,1.183,1.199,1.209,1.201,
- 1.232,1.223,1.234,1.246,1.244,1.26,1.271,1.31,1.339,1.346,1.355,
- 1.304,1.649,1.35,1.371,1.339,1.363,1.342,1.394,1.388,1.402,1.387,
- 1.399,1.417,1.438,1.439,1.452,1.512,1.553,1.561,1.577,1.529,1.899,
- 1.547,1.555,1.539,1.559,1.539,1.575,1.587,1.59,1.579,1.618,1.612,
- 1.647,1.647,1.661,1.758,1.801,1.813,1.843,1.798,2.192,1.746,1.761,
- 1.746,1.758,1.773,1.804,1.789,1.825,1.822,1.845,1.864,1.877,1.9,
- 1.93,2.034,2.102,2.123,2.163,2.125,2.534,1.991,1.987,2.,2.001,
- 2.018,2.045,2.039,2.099,2.107,2.119,2.157,2.148,2.198,2.239,2.363,
- 2.462,2.493,2.544,2.519,2.935,2.292,2.256,2.238,2.272,2.313,2.329,
- 2.325,2.415,2.411,2.428,2.476,2.474,2.542,2.583,2.752,2.895,2.932,
- 3.001,2.998,3.41,2.558,2.614,2.586,2.638,2.634,2.699,2.691,2.751,
- 2.766,2.781,2.846,2.871,2.92,2.991,3.24,3.405,3.452,3.554,3.582,
- 3.972,2.934,2.954,2.99,3.016,3.033,3.079,3.082,3.163,3.203,3.241,
- 3.314,3.302,3.408,3.504,3.818,4.018,4.09,4.229,4.299,4.636,3.345,
- 3.396,3.41,3.46,3.513,3.538,3.564,3.664,3.713,3.765,3.838,3.85,
- 3.98,4.102,4.502,4.784,4.877,5.049,5.181,5.421,3.825,3.88,3.942,
- 3.991,4.088,4.056,4.128,4.266,4.361,4.413,4.52,4.476,4.681,4.866,
- 5.355,5.723,5.84,6.064,6.276,6.351,4.451,4.503,4.567,4.649,4.782,
- 4.761,4.829,5.023,5.136,5.196,5.353,5.312,5.572,5.793,6.435,6.89,
- 7.037,7.318,7.642,7.469,5.155,5.402,5.412,5.551,5.625,5.761,5.822,
- 5.956,6.092,6.228,6.394,6.488,6.685,6.962,7.85,8.363,8.542,8.895,
- 9.369,8.819,6.128,6.516,6.598,6.753,6.865,6.998,7.147,7.27,7.494,
- 7.736,7.848,8.012,8.232,8.615,9.727,10.3,10.52,10.94,11.59,10.46,
- 7.764,8.2,8.306,8.564,8.698,8.866,9.083,9.373,9.599,9.943,10.1,
- 10.24,10.6,11.06,12.32,12.98,13.2,13.65,14.51,12.46,10.5,11.11,
- 11.17,11.64,11.93,12.14,12.39,12.85,13.15,13.46,13.82,13.9,14.42,
- 14.91,16.17,16.83,17.02,17.39,18.46,14.97,15.94,16.88,17.22,17.69,
- 18.17,18.36,18.71,19.24,19.74,20.17,20.5,20.57,21.12,21.62,22.4,
- 22.68,22.71,22.8,24.04,18.18,29.5,31.12,31.3,32.05,32.33,32.93,
- 33.25,33.83,34.1,34.42,34.63,34.7,34.85,34.71,33.47,32.46,32.01,
- 31.15,32.36,22.41,74.09,75.67,75.72,75.77,75.34,75.63,75.14,74.27,
- 73.18,72.17,70.96,70.86,68.31,65.34,56.06,50.6,48.71,45.22,45.59,
- 27.9,321.8,299.9,295.1,282.,271.4,262.8,253.3,239.,226.4,214.,
- 202.1,196.2,179.3,159.2,110.4,88.08,81.47,69.77,65.89,33.1,1844.,
- 1405.,1323.,1138.,1019.,941.7,842.4,740.1,643.6,560.6,500.2,466.7,
- 391.1,309.2,161.9,114.7,102.5,82.55,74.9,34.69 };
- static doublereal qhr[1660] /* was [20][83] */ = { -5.652e-22,9.414e-22,
- 1.377e-21,5.153e-22,6.702e-22,-3.949e-22,-7.177e-24,-3.24e-22,
- 1.72e-22,-7.197e-22,8.139e-22,-7.425e-22,5.346e-22,8.02e-22,
- -5.546e-22,1.866e-22,3.793e-22,2.609e-22,-5.096e-23,-2.177e-22,
- -.004313,-.02148,-.0324,-.03973,-.02668,-.02874,-.03681,-.009355,
- -.02559,-.0509,-.02558,-.02536,-.02282,-.02738,-.01304,-.007885,
- -.007249,-.005137,-.001452,1.329e-4,.08133,.03455,.04286,.02373,
- 8.251e-4,.04286,.01664,.01593,.0142,.02446,.01282,.0169,.01047,
- -.001208,.003771,-.001345,-.003766,-.004366,-.001341,.00422,
- .02057,.07867,.08798,.06997,.04873,.06443,.06839,.01917,.01941,
- .04509,.01142,.05213,.001513,.01797,.02171,.009548,.007035,
- .005665,.003994,.01304,.04002,.04848,.039,.0409,.05822,.04238,
- .04673,.02439,.05511,.04499,.03862,.03816,.02542,.0403,.01232,
- .01448,.01472,.01406,.008694,.01961,.03516,.03081,.03007,.03377,
- .03429,.02595,.02728,.01935,.02178,.01829,.02034,.01641,.02023,
- .01935,.008975,.01025,.01122,.01053,.007307,.02278,.01535,.006826,
- .01692,.006982,-.001839,.008069,.005361,.007732,-.007668,.002361,
- -.003045,-3.1e-4,-.003904,-.005775,-.003002,-.001326,-.002153,
- -.001487,1.631e-4,.02239,-.01468,-.01285,-.01615,-.01835,-.002601,
- -.01591,-.01598,-.02749,-.01665,-.02006,-.02027,-.02087,-.02441,
- -.0212,-.0247,-.0198,-.01956,-.01449,-.008888,.01925,-.0531,
- -.02542,-.0291,-.0177,-.04287,-.03601,-.02734,-.05613,-.04416,
- -.03582,-.04761,-.0399,-.04896,-.04041,-.04071,-.0361,-.03404,
- -.02718,-.0174,.01498,-.06907,-.06736,-.0505,-.06745,-.06043,
- -.0714,-.06933,-.06637,-.06232,-.05358,-.06124,-.06941,-.06321,
- -.05868,-.05149,-.04634,-.04349,-.03704,-.02431,.01017,-.0904,
- -.09198,-.08576,-.08655,-.08286,-.09417,-.0866,-.08221,-.07647,
- -.07447,-.07568,-.08761,-.07552,-.06833,-.06463,-.05262,-.04988,
- -.04262,-.02893,.006718,-.1349,-.1066,-.1091,-.1051,-.1083,-.1015,
- -.1027,-.112,-.1002,-.08945,-.09914,-.0891,-.0933,-.08267,-.06949,
- -.05715,-.05493,-.04596,-.03167,.004972,-.1587,-.1388,-.1339,
- -.133,-.1315,-.1202,-.1238,-.12,-.113,-.1068,-.1048,-.1005,
- -.09863,-.08673,-.06932,-.05584,-.0546,-.04705,-.03279,.004223,
- -.1714,-.1596,-.1502,-.153,-.1377,-.1395,-.1361,-.1182,-.1162,
- -.1059,-.1049,-.1067,-.09404,-.08466,-.06602,-.0521,-.05109,
- -.04461,-.03224,.004145,-.1827,-.1506,-.1358,-.1223,-.135,-.1301,
- -.1154,-.1248,-.1149,-.09378,-.1087,-.09678,-.09572,-.08131,
- -.05468,-.04839,-.04825,-.04,-.03074,.004127,-.1288,-.1155,-.1073,
- -.1081,-.09677,-.09785,-.09423,-.09325,-.08304,-.07825,-.0779,
- -.07441,-.07181,-.05719,-.0446,-.03949,-.04026,-.03403,-.02843,
- .003634,-.05406,-.06667,-.06237,-.06315,-.05612,-.06059,-.05514,
- -.04818,-.04706,-.05091,-.0443,-.04953,-.03974,-.03646,-.03401,
- -.02864,-.03002,-.0285,-.02558,.002971,-.02625,-.02285,-.02447,
- -.02324,-.02971,-.02294,-.02077,-.02681,-.02803,-.02584,-.02972,
- -.02205,-.02616,-.02559,-.02117,-.02141,-.02356,-.02351,-.023,
- .002403,-.01019,-.01157,-.007987,-.01108,-.01186,-.009932,-.01127,
- -.01105,-.01121,-.0102,-.01305,-.01164,-.01341,-.01172,-.0125,
- -.01553,-.01751,-.01813,-.02036,.001743,-.002488,-6.434e-4,
- .001037,-.0012,-.001925,-.003946,-9.738e-4,-.00434,-.00309,
- -.002085,-.005027,-.002738,-.004901,-.004864,-.005944,-.01121,
- -.0131,-.01437,-.01808,9.126e-4,-.001738,.004941,.003342,.004999,
- 6.147e-4,.001885,.005773,-.001019,-7.171e-4,.002355,-.002336,
- .001631,-.001544,-.002056,-.002347,-.007991,-.009902,-.0118,
- -.01626,-2.284e-4,.001211,5.109e-4,.003115,.001866,.003895,
- .001371,.002083,.002498,.003461,.004949,.002746,2.907e-4,.001408,
- .002111,-.001709,-.005756,-.007011,-.00915,-.01461,-.001605,
- 4.563e-4,9.727e-4,.004347,.00334,.005068,9.16e-4,.003273,.003301,
- .002662,.005296,.001041,.001065,.001477,.001751,-5.68e-4,-.003976,
- -.005689,-.00808,-.01347,-.00291,.003466,.002256,.00178,.001777,
- .002352,.003312,.002883,.002703,.002987,.002505,.003174,.003352,
- .003356,.002285,-4.256e-4,-.003076,-.005154,-.007606,-.01259,
- -.004133,-1.493e-4,1.119e-4,7.169e-4,.001436,.002879,6.612e-4,
- 8.928e-4,.002312,.003538,.002509,.003479,.001473,.002461,.003585,
- -7.978e-4,-.002895,-.004173,-.006912,-.01191,-.005437,3.994e-4,
- -.00249,-1.787e-4,-.001121,.002913,-5.298e-4,-6.255e-4,.001985,
- .004784,.001762,.003466,-6.874e-4,.003178,.00408,-.001225,
- -.003062,-.003917,-.006317,-.01146,-.006707,-.002694,-2.937e-4,
- -1.866e-4,-.001198,-.002223,-.001417,-2.589e-4,-4.751e-4,
- -8.729e-4,.001775,2.804e-4,3.727e-4,6.163e-4,8.305e-4,-8.54e-4,
- -.002996,-.004468,-.006653,-.01129,-.007812,-.005007,-.003061,
- -3.717e-4,-.001074,-.005321,-.001727,-.001137,-.001738,-.003289,
- 3.908e-4,-.002467,1.043e-4,-.00131,-7.996e-4,-4.459e-4,-.00298,
- -.004325,-.007137,-.01118,-.008877,-.007406,-.004907,-.00419,
- -.003401,-.004496,-.003372,-.002237,-.002378,-.002055,-.001609,
- -.002409,-.001979,-.001013,-2.206e-4,-.001989,-.003291,-.004049,
- -.006806,-.01106,-.009991,-.009019,-.00615,-.007022,-.008284,
- -.002506,-.004507,-.004908,-.005705,-.001804,-8.453e-4,-.001813,
- -.001952,-.002031,4.236e-4,-.002721,-.004053,-.004832,-.006484,
- -.01105,-.01106,-.01274,-.009551,-.004385,-.006722,-.006739,
- -.008046,-.005277,-.006433,-.004225,-4.221e-4,-.00508,-.004301,
- -.004379,-.001935,-8.114e-4,-.003831,-.005011,-.006791,-.01115,
- -.01208,-.01195,-.01002,-.006997,-.005177,-.006839,-.00903,
- -.004451,-.004408,-.004292,-.003227,-.003482,-.004007,-.002608,
- -.001592,-.001992,-.003254,-.00428,-.006897,-.01122,-.01311,
- -.009552,-.01206,-.01042,-.009347,-.005546,-.008927,-.007563,
- -.003969,-.001369,-.003607,-2.263e-5,-.003971,-6.183e-4,.001039,
- -.003635,-.002734,-.003671,-.006685,-.01127,-.01413,-.008995,
- -.0091,-.006191,-.008328,-.005542,-.005286,-.006745,-.003565,
- -.001593,-.001441,-9.982e-4,-.002212,-7.185e-4,4.55e-4,-.001756,
- -.002997,-.003999,-.006533,-.01145,-.01507,-.008926,-.005451,
- -.004346,-.005107,-.004234,-.003281,-.003568,-.003522,-.002009,
- 8.404e-4,-5.088e-4,-6.598e-4,-3.818e-4,.001046,-2.795e-4,-.003025,
- -.004196,-.006329,-.01163,-.01598,-.006393,-.003768,-.006999,
- -.003385,-8.077e-4,-6.92e-4,-.0012,-5.782e-5,5.345e-4,8.303e-4,
- .001044,.001032,8.694e-4,.001521,-.001043,-.001965,-.00315,
- -.006145,-.01178,-.01684,-.002516,.002641,-.001642,.001059,
- -.003385,.002602,.002491,4.956e-4,.001736,.002055,.002645,.004533,
- .00264,.003464,4.989e-4,-.001457,-.0027,-.0061,-.01197,-.01754,
- -.001326,.005438,.003803,.00583,.002486,.004785,.007746,-2.255e-4,
- .001974,.005549,.003514,.006206,.003864,.00435,.002797,-.001773,
- -.002816,-.005659,-.01215,-.01824,.001299,.005056,.005121,.006722,
- .00351,.00416,.007179,.004909,.005268,.006134,.005332,.0065,
- .005761,.00573,.003355,-2.319e-4,-.001362,-.005194,-.01226,
- -.01911,.003362,.005468,.006217,.007302,.006383,.00759,.007156,
- .007191,.007065,.008483,.007357,.007573,.007659,.008103,.003589,
- .001232,-4.341e-4,-.004903,-.01244,-.01991,.004485,.009817,
- .009376,.01098,.01321,.009385,.01314,.005593,.01055,.01277,
- .009363,.01072,.008838,.01006,.005501,6.366e-4,-4.483e-4,-.004035,
- -.0126,-.02051,.00563,.01079,.01007,.009981,.0158,.01059,.01313,
- .006115,.01333,.01429,.01166,.01178,.01052,.01214,.006332,
- 8.594e-4,5.659e-5,-.003516,-.01262,-.02079,.006771,.01084,.01456,
- .01275,.01651,.008535,.01336,.007903,.01523,.01594,.01333,.01061,
- .01259,.01383,.007456,.001673,.001032,-.003219,-.01264,-.02106,
- .01022,.009448,.01745,.0125,.01558,.01049,.01225,.01328,.01631,
- .01703,.01562,.01079,.01465,.01552,.008347,.004333,.002605,
- -.003215,-.01282,-.02146,.01252,.0161,.01543,.01623,.01728,.01694,
- .01854,.0156,.01758,.01644,.01571,.01752,.01486,.01547,.009798,
- .004814,.002722,-.002886,-.01311,-.0217,.01659,.01855,.01825,
- .01743,.02283,.01781,.02003,.01761,.02096,.02071,.0205,.01904,
- .01833,.01995,.01176,.005511,.003645,-.001855,-.01314,-.02211,
- .02257,.01618,.01987,.0178,.02308,.01729,.01786,.02237,.02608,
- .02338,.02396,.01741,.02314,.02294,.01182,.007957,.006001,
- -9.998e-4,-.01309,-.02266,.02038,.0227,.02443,.02224,.02508,
- .02452,.02448,.0244,.02591,.02527,.02515,.0225,.02269,.02445,.014,
- .009499,.006844,-6.527e-4,-.01327,-.02292,.02396,.02782,.03077,
- .03006,.02401,.02989,.02963,.02697,.02342,.02967,.02609,.02662,
- .02445,.02457,.01758,.01017,.00744,1.118e-4,-.01331,-.02289,
- .02829,.02992,.02968,.02789,.03473,.0303,.02795,.02854,.03227,
- .03417,.02929,.02836,.0286,.02931,.01764,.01134,.00904,.001955,
- -.01307,-.02282,.02622,.03257,.0336,.03505,.03949,.03068,.03517,
- .03133,.03423,.03694,.03304,.03031,.02962,.03258,.01944,.01385,
- .01074,.002583,-.013,-.02253,.03117,.04231,.04489,.04417,.03137,
- .04281,.04348,.03471,.03271,.03621,.03278,.0386,.03174,.03044,
- .02505,.01574,.01194,.002506,-.013,-.02219,.03548,.03962,.04517,
- .04075,.03798,.04487,.03882,.04033,.03682,.04565,.034,.03844,
- .03386,.03379,.02669,.01745,.01392,.004828,-.01248,-.02208,.04045,
- .04831,.04316,.04337,.05508,.0437,.04532,.03909,.04823,.05179,
- .0436,.04273,.04029,.04396,.02577,.01808,.01539,.008041,-.01171,
- -.02176,.04483,.05199,.05245,.05498,.04682,.04908,.05204,.04932,
- .04623,.04982,.04444,.04566,.04386,.04278,.03125,.0223,.01904,
- .008175,-.01125,-.02092,.04913,.05227,.05575,.05322,.05096,.05736,
- .05212,.05292,.04942,.05453,.04499,.05043,.04414,.04506,.036,
- .02555,.02107,.009348,-.01065,-.0198,.04837,.06304,.06458,.06139,
- .05694,.05621,.05906,.0509,.04909,.06488,.04726,.05705,.04571,
- .04588,.03937,.02615,.02186,.01291,-.009443,-.01841,.05558,.06644,
- .0659,.06674,.0638,.0665,.06778,.05525,.06249,.06501,.05435,
- .05887,.05412,.05532,.04114,.02827,.02566,.01596,-.008028,-.01695,
- .05632,.06961,.07301,.07196,.06197,.06731,.06769,.06602,.05941,
- .06474,.05612,.06274,.05507,.05771,.04509,.03563,.03135,.01712,
- -.006614,-.01556,.07013,.07646,.0653,.06613,.06336,.07626,.06898,
- .06821,.06084,.06791,.06334,.0713,.06218,.05807,.0486,.03828,
- .03269,.02057,-.0048,-.01355,.07452,.07575,.0853,.08054,.07228,
- .0717,.08005,.07123,.0678,.07775,.06192,.0689,.06413,.06175,
- .05804,.03732,.03479,.02485,-.002568,-.0108,.07231,.08536,.081,
- .08335,.06858,.08259,.08349,.07677,.06821,.07289,.06735,.076,
- .06922,.06692,.0577,.04515,.04155,.02842,2.316e-4,-.007844,.0889,
- .07497,.07168,.07577,.08092,.07632,.07226,.08395,.07542,.07601,
- .07705,.07541,.07416,.06815,.05971,.05192,.0462,.03146,.003061,
- -.004848,.08722,.0943,.07552,.08372,.07072,.09607,.08684,.08011,
- .06948,.06822,.07289,.0908,.07933,.06942,.06539,.05435,.04829,
- .03422,.00607,-9.065e-4,.09534,.0863,.08379,.09626,.0714,.07728,
- .09591,.08679,.07942,.07584,.08262,.08251,.08333,.07462,.07594,
- .05621,.05326,.03999,.01038,.003866,.08891,.08251,.07635,.08004,
- .0698,.07295,.07709,.09204,.06939,.07646,.08428,.07776,.08379,
- .07353,.07405,.06525,.06045,.04683,.01547,.007975,.08269,.06499,
- .07311,.07107,.09243,.0761,.07128,.0737,.09442,.08409,.09148,
- .07403,.08689,.09213,.07652,.06667,.06287,.05261,.02014,.01258,
- .1003,.07332,.05822,.06142,.06652,.08304,.06704,.09114,.08481,
- .05685,.0967,.0857,.09666,.08559,.07664,.07688,.07114,.05304,
- .02522,.01858,.06763,.08381,.0648,.07472,.06055,.07244,.08266,
- .07572,.07315,.07211,.08878,.08986,.08051,.08296,.08816,.07661,
- .07291,.05871,.03139,.02488,.08108,.03474,.05886,.04178,.06636,
- .04201,.04439,.07807,.08639,.06113,.09254,.06068,.08971,.09431,
- .09041,.08159,.07942,.06699,.03847,.03137,.0153,.05205,.06843,
- .04422,.05477,.05154,.05628,.03782,.06086,.07916,.04597,.07006,
- .04985,.07357,.09147,.08153,.07793,.07472,.04606,.03738,.04417,
- .009879,.05198,.01839,.06935,.01437,.01977,.04951,.105,.0597,
- .08947,.04909,.0892,.1039,.08411,.08537,.08813,.0796,.05331,
- .04299,.04865,.03438,.0243,.05264,.003807,.03095,.05664,.07015,
- .03096,.01954,.05791,.0656,.07194,.06191,.09423,.09095,.09055,
- .07448,.05918,.04889,-.02253,.04582,.01679,.05821,4.117e-4,.06875,
- .06722,.008199,-.00655,.02637,.006618,.07687,.03749,.0347,.09277,
- .08504,.08425,.08043,.06658,.05418,-.008601,.00784,-.06881,
- -.01082,.03388,.03148,.02624,.0194,.03203,-.003274,.02768,.05273,
- .04367,.04893,.07651,.08838,.0867,.08777,.07396,.05791,.01806,
- -.01749,-.04788,.01844,-.06244,.007756,.02828,.03688,-.0172,
- -.001087,.02528,.03299,.0463,.03296,.08829,.08481,.08757,.09274,
- .08132,.06107,-.07635,.0246,-.08695,-.001667,-.04231,-.01868,
- .004223,5.608e-5,.01845,-.005281,.05614,.03491,.05292,.06785,
- .06671,.09359,.1005,.09622,.08653,.06273,-.005849,-.1583,-.1898,
- -.201,.106,-.02055,-.1563,.0439,.1281,-.009384,.1248,-.001907,
- .1102,.1091,.02218,.1219,.1175,.08918,.08619,.05995,-.009235,
- -.05196,-.06728,-.08919,-.1044,.05688,-.0607,.1358,-.03856,
- -.09625,.00779,.08271,.06302,.0215,.06686,.1652,.1312,.06334,
- .0814,.05742,-.02265,-.07299,.1288,-.03129,-.1264,-.01536,-.05531,
- .1169,-.08897,.07555,.03756,.04703,.06338,-.01466,.1021,.1679,
- .1295,.04469,.07159,.04489,.3535,-.3856,-.2377,-.3706,.4247,
- -.2547,-.3453,.1794,.244,.265,.3277,-.1358,.3112,.09967,.04647,
- .11,.1019,.04983,.054,.01604,.3803,-.01326,-.2115,-.08864,.4541,
- .3047,.08463,.4116,.45,-.1381,.1548,.009753,.2792,.1809,.0139,
- .01693,.02994,.03037,.01954,7.223e-4,-2.302e-18,9.563e-19,
- 7.805e-19,-3.064e-18,8.861e-19,4.664e-19,2.078e-18,-1.607e-18,
- 1.261e-18,-4.426e-19,-3.183e-19,4.34e-19,9.208e-19,-6.464e-20,
- 3.706e-19,2.805e-19,6.088e-20,-8.083e-20,-3.907e-20,-4.384e-20 };
- static doublereal uhr[1660] /* was [20][83] */ = { -.8426,-.7371,-.8416,
- -.7122,-.8664,-.6608,-.6706,-.5889,-.6593,-.6636,-.5688,-.5587,
- -.5378,-.5168,-.3996,-.3001,-.2823,-.2252,-.131,-.2124,-.1512,
- -.2069,-.3336,-.3136,-.3516,-.2564,-.3198,-.3041,-.3391,-.3651,
- -.3293,-.3274,-.3285,-.3438,-.3168,-.2572,-.2452,-.2012,-.1223,
- -.203,.1679,.11,.09135,.08403,.09632,.05049,.04301,.02199,.008364,
- -.01746,-.0216,-.04008,-.04629,-.06097,-.1228,-.132,-.1304,-.1206,
- -.08941,-.1662,.2232,.209,.2252,.1993,.2176,.1855,.1719,.1577,
- .1549,.1192,.1168,.114,.09712,.08793,.01827,-.0201,-.02797,
- -.04027,-.04865,-.1175,.1845,.2205,.2291,.2105,.2284,.2171,.2037,
- .1853,.1888,.1931,.1559,.1774,.1408,.1405,.09226,.04422,.0331,
- .01409,-.01497,-.07631,.1837,.1991,.201,.2002,.2014,.1947,.2043,
- .185,.1881,.1981,.1794,.1834,.168,.1646,.1194,.07563,.06589,.0458,
- .006717,-.04685,.1682,.1714,.175,.1792,.1735,.1732,.1804,.1764,
- .1804,.173,.1709,.1683,.1685,.1628,.1239,.08821,.08013,.05784,
- .0175,-.02746,.1336,.1405,.1408,.147,.1546,.151,.149,.1473,.1559,
- .1437,.1498,.1485,.1478,.1442,.114,.08727,.07979,.05822,.02105,
- -.01602,.115,.1101,.105,.1066,.1331,.1202,.1157,.1235,.1343,.1199,
- .1308,.122,.124,.1247,.09693,.07862,.07176,.05374,.02099,-.009286,
- .09094,.0938,.1006,.102,.09517,.09626,.1037,.09957,.09504,.1009,
- .09775,.103,.09613,.09378,.08495,.06639,.06056,.04651,.01948,
- -.005518,.06528,.08414,.08382,.08936,.08239,.07806,.09017,.07441,
- .07598,.08032,.073,.08363,.07267,.07476,.07222,.05388,.05007,
- .04075,.01779,-.003717,.04627,.06728,.0633,.06719,.06215,.06872,
- .06776,.05497,.06421,.06715,.05842,.06368,.05809,.06281,.05605,
- .04542,.04322,.03561,.01642,-.003145,.0377,.05005,.04451,.04886,
- .0421,.05575,.04827,.04692,.04938,.05098,.04893,.05153,.0478,
- .04919,.04485,.03776,.03693,.03126,.01511,-.002474,.03534,.03647,
- .03715,.03401,.03817,.03391,.03547,.03867,.04081,.03847,.03945,
- .03881,.03904,.03882,.03834,.03177,.03125,.02733,.01386,-.001032,
- .01775,.02936,.02777,.03445,.01735,.02664,.03437,.02592,.02308,
- .02976,.02725,.03151,.02642,.02669,.03263,.02771,.02626,.02306,
- .01282,7.928e-4,.003677,.01733,.01595,.02153,.006287,.02403,
- .02049,.0161,.01172,.01945,.01045,.0256,.01512,.01515,.02842,
- .02399,.02268,.02054,.01222,.002525,.008794,.006293,-3.422e-4,
- .00638,.008136,.007792,.008467,.01415,.01688,.007791,.02091,.0166,
- .02154,.02085,.02225,.02183,.02242,.01991,.01221,.004049,.004774,
- 3.976e-4,-.002512,-2.794e-4,.003077,.002567,.00404,.009052,.0123,
- .006595,.01823,.01176,.019,.01814,.01883,.02161,.02178,.01853,
- .01227,.005865,-.002936,.001455,-.00353,.002265,-.003569,.005055,
- .005856,.006789,.003472,.005837,.008151,.01176,.0123,.01036,
- .01916,.02033,.01981,.01776,.01246,.008004,-.001055,-.003213,
- -.001489,-4.472e-4,-.002117,.001865,4.377e-4,.005208,.004617,
- .00668,.009053,.01015,.01123,.01216,.01937,.01909,.01903,.0182,
- .01295,.01014,-.004216,5.012e-4,-.00135,5.364e-4,-.001946,.003724,
- .004102,.002953,.002471,.005578,.006726,.01212,.009375,.009457,
- .01935,.01917,.01882,.01831,.0135,.01221,-.00393,-3.795e-4,
- -.002088,5.133e-4,-.003192,.002628,.004671,.002873,.004665,.00531,
- .007144,.01034,.009789,.01169,.01982,.01939,.01913,.01893,.01435,
- .01418,-.002856,-.003606,-.003299,-.001371,6.389e-4,-9.249e-4,
- .0017,.004717,.006909,.006381,.01054,.008066,.01182,.0146,.01889,
- .02009,.02066,.02021,.01545,.01608,-.003038,-.002712,-.005737,
- -.002577,4.394e-4,.001178,.001434,.004994,.00761,.006208,.01033,
- .009159,.01229,.01453,.01784,.02156,.02198,.02124,.0166,.01824,
- -.004482,8.825e-4,-.002474,.002268,-.00109,.002739,.0057,.003266,
- .00571,.006047,.008399,.01119,.01105,.01394,.02071,.02164,.02199,
- .02228,.01776,.02061,-.004071,3.683e-4,-1.479e-4,.003891,
- -8.206e-4,.001562,.006306,.003654,.006339,.007906,.009657,.01101,
- .01169,.01413,.02268,.02229,.0228,.02362,.01899,.02291,-.00159,
- -.001942,-7.506e-5,.001116,6.905e-5,.002546,.003382,.00761,
- .007626,.008396,.01143,.01041,.01397,.01633,.02282,.02475,.02518,
- .02499,.02047,.02532,-.001264,-.001362,.002579,.00281,.001113,
- .002344,.005572,.007326,.009925,.01134,.01189,.01083,.01553,
- .01773,.02415,.02657,.02712,.02684,.02222,.02811,-.001784,
- 8.682e-4,.0033,.002739,.00723,.004967,.0057,.007803,.01292,.01415,
- .01542,.01326,.0173,.02035,.02597,.02792,.02865,.02928,.02413,
- .03125,.001478,.003818,.004082,.004702,.00912,.00847,.007806,
- .01208,.01354,.01615,.0161,.01673,.01899,.02221,.028,.03036,
- .03087,.03124,.02606,.03468,.006338,.007277,.006788,.008594,
- .01113,.01109,.0125,.01616,.01763,.01708,.01942,.02001,.02263,
- .02462,.03068,.0332,.03344,.03319,.02818,.03836,.009648,.008885,
- .009169,.01042,.01523,.01367,.01375,.0194,.021,.02139,.02356,
- .02191,.02562,.02899,.03297,.03623,.03626,.0362,.03071,.0423,
- .01363,.01318,.01302,.01405,.01948,.01831,.01729,.02363,.02619,
- .02413,.02721,.02539,.0301,.03353,.03614,.03949,.03996,.03956,
- .03364,.04684,.01701,.01908,.01588,.02009,.02122,.0234,.02386,
- .02678,.02812,.02692,.03069,.03158,.03259,.03569,.0404,.04289,
- .04317,.04284,.03675,.05219,.01945,.02488,.02172,.02662,.02494,
- .02935,.02992,.02864,.03083,.03055,.03326,.037,.0354,.03918,
- .04572,.04617,.04626,.04656,.04013,.05803,.02154,.02793,.02824,
- .02858,.02981,.03149,.03261,.03244,.03404,.03817,.03684,.03955,
- .03981,.04318,.0502,.05076,.05076,.05099,.04405,.06425,.02649,
- .03077,.03144,.03317,.03346,.03429,.03714,.03814,.04007,.04198,
- .0427,.04345,.04567,.04883,.05506,.05606,.05599,.05587,.04854,
- .07121,.02941,.03552,.03614,.03922,.04134,.03978,.04285,.04209,
- .04421,.04731,.04649,.04933,.04981,.05382,.06099,.06098,.06105,
- .06142,.0535,.07906,.03563,.03997,.04318,.04341,.04615,.04564,
- .04749,.04724,.05155,.05276,.05345,.05397,.05782,.06063,.06752,
- .067,.06718,.06764,.05903,.08776,.04004,.04453,.04702,.04793,
- .05214,.05085,.0529,.05458,.05915,.05833,.06171,.06058,.06443,
- .06961,.07365,.07474,.07457,.07421,.06528,.09752,.04883,.05067,
- .0516,.05442,.0589,.05827,.05921,.06271,.0647,.06646,.06764,
- .06889,.07186,.0747,.08126,.08249,.08209,.08162,.07238,.1086,
- .05012,.05686,.05825,.06102,.06197,.06404,.06534,.06451,.06747,
- .07209,.06934,.07388,.07388,.07788,.08619,.08622,.08588,.08595,
- .07627,.1146,.0558,.05724,.06118,.06086,.07025,.06469,.06603,
- .06961,.0748,.07664,.07545,.07673,.07914,.08467,.09118,.09038,
- .09003,.0908,.08041,.1208,.06611,.06685,.07179,.07101,.07636,
- .07351,.07655,.0794,.08388,.08648,.08753,.08589,.09051,.09541,
- .101,.1005,.1002,.1008,.08949,.1344,.07306,.08308,.07945,.08426,
- .0827,.08817,.09017,.09111,.09402,.09355,.0977,.09998,.1021,.1055,
- .1111,.1125,.1122,.1112,.0998,.1497,.08434,.09196,.09315,.09396,
- .0981,.09956,.1003,.1023,.1055,.1083,.1084,.1118,.1125,.118,.1247,
- .1253,.1243,.1239,.1116,.1671,.09886,.1046,.1078,.1087,.1174,
- .1115,.1156,.115,.1228,.1244,.1249,.1247,.1281,.1339,.1396,.1388,
- .1384,.1392,.1251,.1868,.1162,.1215,.1222,.1254,.1311,.1276,.1324,
- .1335,.1376,.1407,.1418,.1419,.1461,.1499,.1558,.1561,.1556,.1552,
- .1404,.2091,.132,.143,.1414,.1472,.148,.1492,.1545,.1527,.1558,
- .1572,.1593,.1632,.163,.1681,.1759,.1755,.1744,.1734,.158,.2344,
- .1552,.1602,.1642,.1664,.1729,.1686,.1743,.1724,.1806,.1803,.1824,
- .1817,.185,.1912,.1983,.1963,.1953,.196,.1783,.2628,.182,.1813,
- .1869,.189,.2052,.1886,.1961,.1998,.2092,.2079,.2086,.2045,.213,
- .2183,.2222,.2214,.2211,.2214,.2018,.295,.212,.2142,.216,.2186,
- .2238,.2221,.2268,.229,.2346,.2315,.2389,.2356,.2424,.2468,.2502,
- .2521,.2506,.2491,.2286,.3321,.2457,.249,.2484,.2529,.2569,.2572,
- .2609,.2647,.2644,.2659,.2686,.2719,.2725,.276,.2848,.2848,.2833,
- .2817,.2597,.3751,.2747,.284,.2934,.2941,.301,.2898,.2997,.2929,
- .3067,.3075,.3051,.3053,.3088,.3164,.3254,.3217,.3205,.321,.296,
- .424,.321,.3269,.3363,.3354,.3419,.3335,.3424,.3385,.3496,.3533,
- .3524,.3478,.3551,.3611,.3679,.3663,.3654,.3656,.3381,.4795,.3711,
- .3818,.3786,.3837,.3865,.3927,.3936,.3947,.3989,.3942,.4012,.4032,
- .4043,.4104,.4154,.4196,.4183,.4164,.3871,.5437,.4338,.4407,.4398,
- .4436,.4409,.4463,.4521,.4513,.4515,.4533,.4587,.46,.4636,.4662,
- .4781,.4784,.4771,.476,.4444,.6179,.4887,.5003,.5034,.5064,.507,
- .5085,.5162,.5129,.5236,.5211,.5242,.523,.5248,.5354,.5479,.5467,
- .5455,.5468,.5117,.7035,.5837,.5665,.5749,.5696,.5896,.58,.5815,
- .5945,.6013,.6011,.6075,.5951,.612,.6143,.6221,.628,.6285,.6288,
- .591,.8024,.6498,.6671,.6606,.6681,.667,.6761,.678,.6797,.6781,
- .6814,.6836,.6927,.6907,.6954,.7134,.7239,.7237,.7239,.6842,.9178,
- .7571,.7721,.7526,.763,.7513,.781,.7763,.7785,.7775,.774,.7891,
- .7986,.7937,.8001,.8247,.8331,.8331,.8362,.7944,1.052,.8658,.8667,
- .8687,.8767,.8728,.8779,.8903,.8884,.8857,.9063,.8994,.9034,.9086,
- .916,.9508,.9599,.9629,.9702,.9258,1.208,.9953,1.003,.9887,.9972,
- .9981,1.015,1.014,1.023,1.02,1.027,1.038,1.042,1.055,1.059,1.09,
- 1.113,1.119,1.129,1.082,1.388,1.155,1.125,1.126,1.128,1.146,1.153,
- 1.144,1.182,1.174,1.181,1.196,1.189,1.21,1.222,1.261,1.295,1.303,
- 1.315,1.269,1.6,1.299,1.317,1.281,1.305,1.286,1.34,1.331,1.35,
- 1.333,1.344,1.364,1.383,1.387,1.399,1.461,1.508,1.517,1.535,1.492,
- 1.85,1.498,1.502,1.478,1.499,1.481,1.522,1.529,1.537,1.525,1.559,
- 1.558,1.592,1.594,1.608,1.705,1.754,1.768,1.8,1.762,2.143,1.695,
- 1.707,1.685,1.699,1.713,1.748,1.73,1.769,1.764,1.783,1.808,1.821,
- 1.845,1.873,1.98,2.053,2.075,2.119,2.087,2.485,1.936,1.929,1.94,
- 1.942,1.953,1.985,1.979,2.039,2.044,2.059,2.095,2.087,2.137,2.176,
- 2.309,2.412,2.443,2.498,2.481,2.886,2.238,2.195,2.169,2.207,2.246,
- 2.265,2.261,2.358,2.347,2.359,2.414,2.409,2.481,2.521,2.693,2.845,
- 2.882,2.955,2.959,3.361,2.501,2.552,2.514,2.569,2.564,2.636,2.622,
- 2.688,2.701,2.709,2.782,2.807,2.857,2.926,3.179,3.351,3.4,3.507,
- 3.543,3.923,2.871,2.887,2.913,2.944,2.951,3.011,3.01,3.095,3.13,
- 3.165,3.243,3.232,3.339,3.434,3.754,3.963,4.037,4.18,4.259,4.587,
- 3.273,3.324,3.329,3.385,3.429,3.462,3.489,3.591,3.63,3.684,3.759,
- 3.774,3.902,4.024,4.436,4.726,4.821,5.,5.141,5.373,3.754,3.799,
- 3.85,3.902,3.999,3.973,4.041,4.189,4.28,4.326,4.442,4.394,4.603,
- 4.787,5.285,5.662,5.783,6.014,6.236,6.304,4.364,4.417,4.472,4.559,
- 4.681,4.675,4.737,4.935,5.044,5.101,5.265,5.224,5.486,5.71,6.362,
- 6.828,6.978,7.266,7.603,7.422,5.061,5.306,5.298,5.443,5.514,5.664,
- 5.717,5.862,5.992,6.123,6.297,6.392,6.591,6.868,7.768,8.299,8.481,
- 8.844,9.331,8.772,6.005,6.402,6.475,6.633,6.738,6.881,7.025,7.155,
- 7.37,7.621,7.73,7.899,8.117,8.504,9.639,10.23,10.45,10.89,11.55,
- 10.41,7.627,8.059,8.152,8.412,8.539,8.72,8.932,9.233,9.457,9.795,
- 9.962,10.1,10.46,10.93,12.22,12.89,13.13,13.59,14.47,12.42,10.32,
- 10.94,10.98,11.46,11.73,11.96,12.21,12.68,12.97,13.27,13.66,13.73,
- 14.26,14.75,16.05,16.74,16.93,17.33,18.43,14.93,15.74,16.69,17.01,
- 17.48,17.97,18.17,18.51,19.05,19.55,20.,20.32,20.39,20.95,21.46,
- 22.28,22.59,22.63,22.74,24.01,18.15,29.32,30.95,31.07,31.86,32.11,
- 32.78,33.08,33.68,33.93,34.26,34.48,34.57,34.73,34.59,33.38,32.41,
- 31.96,31.12,32.34,22.39,73.89,75.54,75.55,75.63,75.17,75.52,75.02,
- 74.18,73.06,72.04,70.86,70.78,68.22,65.27,56.02,50.58,48.69,45.21,
- 45.58,27.9,321.7,299.8,295.,282.,271.3,262.7,253.3,239.,226.4,
- 214.,202.1,196.2,179.3,159.2,110.4,88.07,81.46,69.77,65.89,33.1,
- 1844.,1405.,1323.,1138.,1019.,941.7,842.4,740.1,643.6,560.6,500.2,
- 466.7,391.1,309.2,161.9,114.7,102.5,82.55,74.9,34.69 };
-
- /* System generated locals */
- integer i__1;
-
- /* Local variables */
- integer i__, j;
- doublereal vi_m__;
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real ph,qh,uh >*/
-/*< common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p) >*/
-/*< real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p) >*/
-/* - to vary the number of quadratures */
-/*< real ex,sc,asy,vi >*/
-/*< common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4) >*/
-/*< real ex_m(20),sc_m(20),asy_m(20),vi_m >*/
-/*< integer i,j >*/
-/* Oceanic model */
-/* Parameters and refractive indices - G.A. d'Almeida, 'Atmospheric */
-/* aerosols. Global climatology and radiative characteristics', 1991. */
-/* Extinction coefficients are calculated in km-1 */
-/* *************** MIE (asy) ****************** */
-/*< >*/
-/* *************** MIE (ext&sca) ****************** */
-/*< >*/
-/* ************** MIE (phase fun ph) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun qh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun uh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< vi_m=4.99809027 >*/
- vi_m__ = 4.99809027;
-/*< vi(3)=vi_m >*/
- sixs_coef__1.vi[2] = vi_m__;
-/*< do 1 i=1,20 >*/
- for (i__ = 1; i__ <= 20; ++i__) {
-/*< asy(3,i)=asy_m(i) >*/
- sixs_coef__1.asy[(i__ << 2) - 2] = asy_m__[i__ - 1];
-/*< ex(3,i)=ex_m(i) >*/
- sixs_coef__1.ex[(i__ << 2) - 2] = ex_m__[i__ - 1];
-/*< sc(3,i)=sc_m(i) >*/
- sixs_coef__1.sc[(i__ << 2) - 2] = sc_m__[i__ - 1];
-/*< do 1 j=1,nquad >*/
- i__1 = num_quad__1.nquad;
- for (j = 1; j <= i__1; ++j) {
-/*< ph(i,j)=phr(i,j) >*/
- sixs_aerbas__1.ph[i__ + j * 20 - 21] = phr[i__ + j * 20 - 21];
-/*< qh(i,j)=qhr(i,j) >*/
- sixs_aerbas__1.qh[i__ + j * 20 - 21] = qhr[i__ + j * 20 - 21];
-/*< uh(i,j)=uhr(i,j) >*/
- sixs_aerbas__1.uh[i__ + j * 20 - 21] = uhr[i__ + j * 20 - 21];
-/*< 1 continue >*/
-/* L1: */
- }
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* ocea_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEA.f b/Modules/ThirdParty/6S/src/6SV1.0B/OCEA.f
deleted file mode 100644
index f673078..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEA.f
+++ /dev/null
@@ -1,1135 +0,0 @@
- subroutine ocea
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real ph,qh,uh
- common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p)
- real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p)
-c - to vary the number of quadratures
- real ex,sc,asy,vi
- common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4)
- real ex_m(20),sc_m(20),asy_m(20),vi_m
- integer i,j
-
-c Oceanic model
-c Parameters and refractive indices - G.A. d'Almeida, 'Atmospheric
-c aerosols. Global climatology and radiative characteristics', 1991.
-c Extinction coefficients are calculated in km-1
-
-c*************** MIE (asy) ******************
- data (asy_m(j),j=1,20)/
- a 0.790,0.787,0.785,0.784,0.782,0.784,0.781,0.784,0.781,0.780,
- a 0.780,0.779,0.779,0.778,0.779,0.785,0.787,0.792,0.816,0.749/
-c*************** MIE (ext&sca) ******************
- data (ex_m(j),sc_m(j),j=1,20) /
- a 0.3492134E+01,0.3492100E+01,0.3555835E+01,0.3555833E+01,
- a 0.3577440E+01,0.3577438E+01,0.3601985E+01,0.3601983E+01,
- a 0.3625801E+01,0.3625799E+01,0.3628089E+01,0.3628088E+01,
- a 0.3658286E+01,0.3658284E+01,0.3658747E+01,0.3658746E+01,
- a 0.3696527E+01,0.3696526E+01,0.3730609E+01,0.3730607E+01,
- a 0.3736655E+01,0.3736650E+01,0.3763560E+01,0.3763552E+01,
- a 0.3776731E+01,0.3774958E+01,0.3813161E+01,0.3809129E+01,
- a 0.3830686E+01,0.3805399E+01,0.3729777E+01,0.3662509E+01,
- a 0.3675602E+01,0.3619132E+01,0.3516177E+01,0.3413872E+01,
- a 0.3257454E+01,0.2935607E+01,0.2827842E+01,0.2749985E+01 /
-c************** MIE (phase fun ph) ***************
- DATA ((PHR(i,j),j=1,83),i= 1, 1)/
- *0.8426E+00,0.6434E+00,0.5956E+00,0.5002E+00,0.4105E+00,
- *0.3836E+00,0.3575E+00,0.3330E+00,0.3124E+00,0.3045E+00,
- *0.2944E+00,0.3130E+00,0.3192E+00,0.3212E+00,0.3219E+00,
- *0.2720E+00,0.1896E+00,0.1406E+00,0.1112E+00,0.8642E-01,
- *0.7607E-01,0.6522E-01,0.5889E-01,0.5396E-01,0.5403E-01,
- *0.5099E-01,0.5312E-01,0.5451E-01,0.5772E-01,0.6023E-01,
- *0.6418E-01,0.6527E-01,0.6742E-01,0.7013E-01,0.7259E-01,
- *0.7394E-01,0.7478E-01,0.7715E-01,0.8478E-01,0.8979E-01,
- *0.9464E-01,0.9427E-01,0.1028E+00,0.1102E+00,0.1198E+00,
- *0.1280E+00,0.1445E+00,0.1604E+00,0.1768E+00,0.1994E+00,
- *0.2309E+00,0.2565E+00,0.2911E+00,0.3180E+00,0.3703E+00,
- *0.4197E+00,0.4777E+00,0.5351E+00,0.6305E+00,0.6948E+00,
- *0.8032E+00,0.9123E+00,0.1045E+01,0.1202E+01,0.1350E+01,
- *0.1547E+01,0.1746E+01,0.1991E+01,0.2292E+01,0.2558E+01,
- *0.2934E+01,0.3345E+01,0.3825E+01,0.4451E+01,0.5155E+01,
- *0.6128E+01,0.7764E+01,0.1050E+02,0.1594E+02,0.2950E+02,
- *0.7409E+02,0.3218E+03,0.1844E+04 /
- DATA ((PHR(i,j),j=1,83),i= 2, 2)/
- *0.7371E+00,0.6009E+00,0.5322E+00,0.4548E+00,0.4231E+00,
- *0.4052E+00,0.3680E+00,0.3354E+00,0.3138E+00,0.3088E+00,
- *0.3007E+00,0.2947E+00,0.3047E+00,0.3135E+00,0.3072E+00,
- *0.2729E+00,0.2174E+00,0.1588E+00,0.1248E+00,0.1018E+00,
- *0.8348E-01,0.7350E-01,0.6763E-01,0.6191E-01,0.5850E-01,
- *0.5710E-01,0.5775E-01,0.6092E-01,0.6167E-01,0.6361E-01,
- *0.6903E-01,0.7096E-01,0.7184E-01,0.7387E-01,0.7345E-01,
- *0.7282E-01,0.7554E-01,0.8142E-01,0.8376E-01,0.8866E-01,
- *0.9809E-01,0.1049E+00,0.1051E+00,0.1109E+00,0.1254E+00,
- *0.1378E+00,0.1500E+00,0.1666E+00,0.1895E+00,0.2086E+00,
- *0.2290E+00,0.2618E+00,0.3000E+00,0.3330E+00,0.3761E+00,
- *0.4294E+00,0.4934E+00,0.5513E+00,0.6135E+00,0.7221E+00,
- *0.8242E+00,0.9168E+00,0.1052E+01,0.1181E+01,0.1371E+01,
- *0.1555E+01,0.1761E+01,0.1987E+01,0.2256E+01,0.2614E+01,
- *0.2954E+01,0.3396E+01,0.3880E+01,0.4503E+01,0.5402E+01,
- *0.6516E+01,0.8200E+01,0.1111E+02,0.1688E+02,0.3112E+02,
- *0.7567E+02,0.2999E+03,0.1405E+04 /
- DATA ((PHR(i,j),j=1,83),i= 3, 3)/
- *0.8416E+00,0.6946E+00,0.5479E+00,0.4787E+00,0.4314E+00,
- *0.4126E+00,0.3866E+00,0.3507E+00,0.3253E+00,0.3055E+00,
- *0.3074E+00,0.3016E+00,0.3081E+00,0.3114E+00,0.2991E+00,
- *0.2695E+00,0.2187E+00,0.1602E+00,0.1267E+00,0.1009E+00,
- *0.8076E-01,0.7510E-01,0.6945E-01,0.6487E-01,0.6009E-01,
- *0.6020E-01,0.5861E-01,0.5718E-01,0.6273E-01,0.6565E-01,
- *0.6835E-01,0.7368E-01,0.7535E-01,0.7684E-01,0.7894E-01,
- *0.8157E-01,0.8408E-01,0.8347E-01,0.8672E-01,0.9469E-01,
- *0.9861E-01,0.1042E+00,0.1064E+00,0.1161E+00,0.1262E+00,
- *0.1420E+00,0.1573E+00,0.1684E+00,0.1934E+00,0.2146E+00,
- *0.2365E+00,0.2647E+00,0.2991E+00,0.3443E+00,0.3853E+00,
- *0.4286E+00,0.4908E+00,0.5560E+00,0.6274E+00,0.7126E+00,
- *0.8060E+00,0.9229E+00,0.1045E+01,0.1180E+01,0.1339E+01,
- *0.1539E+01,0.1746E+01,0.2000E+01,0.2238E+01,0.2586E+01,
- *0.2990E+01,0.3410E+01,0.3942E+01,0.4567E+01,0.5412E+01,
- *0.6598E+01,0.8306E+01,0.1117E+02,0.1722E+02,0.3130E+02,
- *0.7572E+02,0.2951E+03,0.1323E+04 /
- DATA ((PHR(i,j),j=1,83),i= 4, 4)/
- *0.7122E+00,0.6039E+00,0.5204E+00,0.4514E+00,0.4316E+00,
- *0.4104E+00,0.3784E+00,0.3412E+00,0.3191E+00,0.3072E+00,
- *0.3039E+00,0.2959E+00,0.3044E+00,0.3166E+00,0.2903E+00,
- *0.2685E+00,0.2197E+00,0.1659E+00,0.1316E+00,0.1077E+00,
- *0.8814E-01,0.8054E-01,0.7234E-01,0.6789E-01,0.6153E-01,
- *0.6069E-01,0.6230E-01,0.6139E-01,0.6629E-01,0.6950E-01,
- *0.7217E-01,0.7294E-01,0.7528E-01,0.7636E-01,0.7960E-01,
- *0.7800E-01,0.8043E-01,0.8519E-01,0.8747E-01,0.9079E-01,
- *0.1023E+00,0.1104E+00,0.1104E+00,0.1146E+00,0.1316E+00,
- *0.1436E+00,0.1569E+00,0.1720E+00,0.1958E+00,0.2123E+00,
- *0.2367E+00,0.2655E+00,0.3030E+00,0.3428E+00,0.3839E+00,
- *0.4325E+00,0.4958E+00,0.5588E+00,0.6227E+00,0.7247E+00,
- *0.8165E+00,0.9301E+00,0.1054E+01,0.1183E+01,0.1363E+01,
- *0.1559E+01,0.1758E+01,0.2001E+01,0.2272E+01,0.2638E+01,
- *0.3016E+01,0.3460E+01,0.3991E+01,0.4649E+01,0.5551E+01,
- *0.6753E+01,0.8564E+01,0.1164E+02,0.1769E+02,0.3205E+02,
- *0.7577E+02,0.2820E+03,0.1138E+04 /
- DATA ((PHR(i,j),j=1,83),i= 5, 5)/
- *0.8664E+00,0.6659E+00,0.5552E+00,0.5141E+00,0.4301E+00,
- *0.4072E+00,0.3892E+00,0.3549E+00,0.3279E+00,0.3039E+00,
- *0.3054E+00,0.2999E+00,0.3095E+00,0.3093E+00,0.2942E+00,
- *0.2658E+00,0.2103E+00,0.1651E+00,0.1318E+00,0.1062E+00,
- *0.9173E-01,0.8102E-01,0.7050E-01,0.6683E-01,0.6425E-01,
- *0.6434E-01,0.6605E-01,0.6611E-01,0.6616E-01,0.6686E-01,
- *0.6866E-01,0.7485E-01,0.7979E-01,0.7674E-01,0.8148E-01,
- *0.8750E-01,0.8774E-01,0.8990E-01,0.9508E-01,0.1010E+00,
- *0.1022E+00,0.1041E+00,0.1135E+00,0.1254E+00,0.1323E+00,
- *0.1444E+00,0.1635E+00,0.1830E+00,0.1944E+00,0.2175E+00,
- *0.2535E+00,0.2743E+00,0.3041E+00,0.3488E+00,0.3902E+00,
- *0.4369E+00,0.4909E+00,0.5575E+00,0.6392E+00,0.7165E+00,
- *0.8007E+00,0.9262E+00,0.1051E+01,0.1199E+01,0.1342E+01,
- *0.1539E+01,0.1773E+01,0.2018E+01,0.2313E+01,0.2634E+01,
- *0.3033E+01,0.3513E+01,0.4088E+01,0.4782E+01,0.5625E+01,
- *0.6865E+01,0.8698E+01,0.1193E+02,0.1817E+02,0.3233E+02,
- *0.7534E+02,0.2714E+03,0.1019E+04 /
- DATA ((PHR(i,j),j=1,83),i= 6, 6)/
- *0.6608E+00,0.5459E+00,0.5048E+00,0.4428E+00,0.4113E+00,
- *0.3873E+00,0.3655E+00,0.3399E+00,0.3196E+00,0.3124E+00,
- *0.2971E+00,0.2926E+00,0.2948E+00,0.2983E+00,0.2961E+00,
- *0.2627E+00,0.2145E+00,0.1668E+00,0.1355E+00,0.1118E+00,
- *0.9367E-01,0.8208E-01,0.7585E-01,0.7008E-01,0.6669E-01,
- *0.6452E-01,0.6434E-01,0.6681E-01,0.6584E-01,0.6769E-01,
- *0.7257E-01,0.7321E-01,0.7348E-01,0.7569E-01,0.7601E-01,
- *0.7629E-01,0.8110E-01,0.8746E-01,0.8929E-01,0.9444E-01,
- *0.1054E+00,0.1112E+00,0.1103E+00,0.1186E+00,0.1324E+00,
- *0.1464E+00,0.1555E+00,0.1731E+00,0.1950E+00,0.2167E+00,
- *0.2335E+00,0.2678E+00,0.3054E+00,0.3386E+00,0.3825E+00,
- *0.4416E+00,0.4964E+00,0.5581E+00,0.6265E+00,0.7284E+00,
- *0.8331E+00,0.9285E+00,0.1064E+01,0.1209E+01,0.1394E+01,
- *0.1575E+01,0.1804E+01,0.2045E+01,0.2329E+01,0.2699E+01,
- *0.3079E+01,0.3538E+01,0.4056E+01,0.4761E+01,0.5761E+01,
- *0.6998E+01,0.8866E+01,0.1214E+02,0.1836E+02,0.3293E+02,
- *0.7563E+02,0.2628E+03,0.9417E+03 /
- DATA ((PHR(i,j),j=1,83),i= 7, 7)/
- *0.6706E+00,0.5495E+00,0.4882E+00,0.4283E+00,0.4208E+00,
- *0.4096E+00,0.3788E+00,0.3436E+00,0.3238E+00,0.3103E+00,
- *0.3053E+00,0.2946E+00,0.2988E+00,0.3058E+00,0.2862E+00,
- *0.2616E+00,0.2177E+00,0.1697E+00,0.1372E+00,0.1158E+00,
- *0.9579E-01,0.8666E-01,0.7760E-01,0.7292E-01,0.6827E-01,
- *0.6565E-01,0.6730E-01,0.6750E-01,0.6969E-01,0.7152E-01,
- *0.7437E-01,0.7546E-01,0.7707E-01,0.7993E-01,0.8173E-01,
- *0.8010E-01,0.8452E-01,0.8860E-01,0.9152E-01,0.9693E-01,
- *0.1069E+00,0.1138E+00,0.1153E+00,0.1207E+00,0.1364E+00,
- *0.1482E+00,0.1633E+00,0.1778E+00,0.2021E+00,0.2207E+00,
- *0.2427E+00,0.2733E+00,0.3111E+00,0.3492E+00,0.3912E+00,
- *0.4417E+00,0.5052E+00,0.5681E+00,0.6322E+00,0.7343E+00,
- *0.8314E+00,0.9413E+00,0.1068E+01,0.1201E+01,0.1388E+01,
- *0.1587E+01,0.1789E+01,0.2039E+01,0.2325E+01,0.2691E+01,
- *0.3082E+01,0.3564E+01,0.4128E+01,0.4829E+01,0.5822E+01,
- *0.7147E+01,0.9083E+01,0.1239E+02,0.1871E+02,0.3325E+02,
- *0.7514E+02,0.2533E+03,0.8424E+03 /
- DATA ((PHR(i,j),j=1,83),i= 8, 8)/
- *0.5889E+00,0.4993E+00,0.4727E+00,0.4128E+00,0.3737E+00,
- *0.3600E+00,0.3534E+00,0.3382E+00,0.3167E+00,0.2988E+00,
- *0.2874E+00,0.2958E+00,0.2978E+00,0.2869E+00,0.2834E+00,
- *0.2525E+00,0.2030E+00,0.1663E+00,0.1363E+00,0.1144E+00,
- *0.1005E+00,0.8513E-01,0.7800E-01,0.7446E-01,0.7029E-01,
- *0.6724E-01,0.6657E-01,0.6844E-01,0.6837E-01,0.7044E-01,
- *0.7275E-01,0.7142E-01,0.7433E-01,0.7682E-01,0.7981E-01,
- *0.8221E-01,0.8415E-01,0.8919E-01,0.9547E-01,0.1007E+00,
- *0.1060E+00,0.1093E+00,0.1150E+00,0.1228E+00,0.1337E+00,
- *0.1433E+00,0.1590E+00,0.1757E+00,0.1947E+00,0.2150E+00,
- *0.2445E+00,0.2736E+00,0.3074E+00,0.3371E+00,0.3863E+00,
- *0.4432E+00,0.4945E+00,0.5606E+00,0.6452E+00,0.7256E+00,
- *0.8269E+00,0.9382E+00,0.1074E+01,0.1232E+01,0.1402E+01,
- *0.1590E+01,0.1825E+01,0.2099E+01,0.2415E+01,0.2751E+01,
- *0.3163E+01,0.3664E+01,0.4266E+01,0.5023E+01,0.5956E+01,
- *0.7270E+01,0.9373E+01,0.1285E+02,0.1924E+02,0.3383E+02,
- *0.7427E+02,0.2390E+03,0.7401E+03 /
- DATA ((PHR(i,j),j=1,83),i= 9, 9)/
- *0.6593E+00,0.5301E+00,0.4588E+00,0.4268E+00,0.3862E+00,
- *0.3848E+00,0.3614E+00,0.3344E+00,0.3203E+00,0.2993E+00,
- *0.2957E+00,0.2936E+00,0.2870E+00,0.2902E+00,0.2796E+00,
- *0.2515E+00,0.2033E+00,0.1712E+00,0.1405E+00,0.1173E+00,
- *0.1038E+00,0.9074E-01,0.8075E-01,0.7543E-01,0.7246E-01,
- *0.7100E-01,0.7184E-01,0.7128E-01,0.7116E-01,0.7401E-01,
- *0.7320E-01,0.7674E-01,0.7990E-01,0.7918E-01,0.8244E-01,
- *0.8828E-01,0.9053E-01,0.9220E-01,0.1005E+00,0.1051E+00,
- *0.1076E+00,0.1097E+00,0.1169E+00,0.1289E+00,0.1374E+00,
- *0.1468E+00,0.1666E+00,0.1841E+00,0.1985E+00,0.2243E+00,
- *0.2565E+00,0.2809E+00,0.3079E+00,0.3524E+00,0.3968E+00,
- *0.4453E+00,0.4967E+00,0.5700E+00,0.6483E+00,0.7255E+00,
- *0.8248E+00,0.9349E+00,0.1071E+01,0.1223E+01,0.1387E+01,
- *0.1579E+01,0.1822E+01,0.2107E+01,0.2411E+01,0.2766E+01,
- *0.3203E+01,0.3713E+01,0.4361E+01,0.5136E+01,0.6092E+01,
- *0.7494E+01,0.9599E+01,0.1315E+02,0.1974E+02,0.3410E+02,
- *0.7318E+02,0.2264E+03,0.6436E+03 /
- DATA ((PHR(i,j),j=1,83),i=10,10)/
- *0.6636E+00,0.5313E+00,0.4331E+00,0.3833E+00,0.3809E+00,
- *0.3787E+00,0.3648E+00,0.3414E+00,0.3151E+00,0.3003E+00,
- *0.2909E+00,0.2844E+00,0.2831E+00,0.2779E+00,0.2661E+00,
- *0.2450E+00,0.2168E+00,0.1755E+00,0.1450E+00,0.1210E+00,
- *0.1048E+00,0.9460E-01,0.8601E-01,0.7905E-01,0.7576E-01,
- *0.7431E-01,0.7193E-01,0.7079E-01,0.7205E-01,0.7254E-01,
- *0.7474E-01,0.7882E-01,0.8157E-01,0.8212E-01,0.8465E-01,
- *0.8860E-01,0.9026E-01,0.9384E-01,0.9784E-01,0.1040E+00,
- *0.1103E+00,0.1144E+00,0.1176E+00,0.1296E+00,0.1382E+00,
- *0.1531E+00,0.1667E+00,0.1850E+00,0.2033E+00,0.2270E+00,
- *0.2523E+00,0.2788E+00,0.3141E+00,0.3554E+00,0.3984E+00,
- *0.4420E+00,0.5030E+00,0.5699E+00,0.6515E+00,0.7292E+00,
- *0.8238E+00,0.9585E+00,0.1080E+01,0.1234E+01,0.1399E+01,
- *0.1618E+01,0.1845E+01,0.2119E+01,0.2428E+01,0.2781E+01,
- *0.3241E+01,0.3765E+01,0.4413E+01,0.5196E+01,0.6228E+01,
- *0.7736E+01,0.9943E+01,0.1346E+02,0.2017E+02,0.3442E+02,
- *0.7217E+02,0.2140E+03,0.5606E+03 /
- DATA ((PHR(i,j),j=1,83),i=11,11)/
- *0.5688E+00,0.4824E+00,0.4236E+00,0.3780E+00,0.3504E+00,
- *0.3637E+00,0.3511E+00,0.3260E+00,0.3112E+00,0.2946E+00,
- *0.2833E+00,0.2884E+00,0.2804E+00,0.2755E+00,0.2714E+00,
- *0.2430E+00,0.2001E+00,0.1722E+00,0.1431E+00,0.1230E+00,
- *0.1096E+00,0.9526E-01,0.8662E-01,0.7964E-01,0.7711E-01,
- *0.7407E-01,0.7372E-01,0.7438E-01,0.7378E-01,0.7485E-01,
- *0.7721E-01,0.7781E-01,0.7875E-01,0.8057E-01,0.8385E-01,
- *0.8722E-01,0.9066E-01,0.9366E-01,0.1009E+00,0.1071E+00,
- *0.1108E+00,0.1122E+00,0.1187E+00,0.1310E+00,0.1398E+00,
- *0.1494E+00,0.1671E+00,0.1843E+00,0.2007E+00,0.2241E+00,
- *0.2540E+00,0.2828E+00,0.3126E+00,0.3482E+00,0.4003E+00,
- *0.4489E+00,0.5024E+00,0.5708E+00,0.6544E+00,0.7288E+00,
- *0.8358E+00,0.9476E+00,0.1088E+01,0.1246E+01,0.1417E+01,
- *0.1612E+01,0.1864E+01,0.2157E+01,0.2476E+01,0.2846E+01,
- *0.3314E+01,0.3838E+01,0.4520E+01,0.5353E+01,0.6394E+01,
- *0.7848E+01,0.1010E+02,0.1382E+02,0.2050E+02,0.3463E+02,
- *0.7096E+02,0.2021E+03,0.5002E+03 /
- DATA ((PHR(i,j),j=1,83),i=12,12)/
- *0.5587E+00,0.4718E+00,0.4102E+00,0.3746E+00,0.3706E+00,
- *0.3749E+00,0.3569E+00,0.3300E+00,0.3079E+00,0.3001E+00,
- *0.2901E+00,0.2808E+00,0.2791E+00,0.2726E+00,0.2647E+00,
- *0.2433E+00,0.2095E+00,0.1725E+00,0.1478E+00,0.1257E+00,
- *0.1080E+00,0.9734E-01,0.8935E-01,0.8281E-01,0.7891E-01,
- *0.7586E-01,0.7496E-01,0.7630E-01,0.7527E-01,0.7573E-01,
- *0.7931E-01,0.7880E-01,0.8026E-01,0.8262E-01,0.8354E-01,
- *0.8508E-01,0.8891E-01,0.9556E-01,0.9839E-01,0.1037E+00,
- *0.1147E+00,0.1204E+00,0.1221E+00,0.1284E+00,0.1421E+00,
- *0.1557E+00,0.1677E+00,0.1858E+00,0.2075E+00,0.2279E+00,
- *0.2495E+00,0.2798E+00,0.3195E+00,0.3524E+00,0.3936E+00,
- *0.4496E+00,0.5095E+00,0.5705E+00,0.6412E+00,0.7449E+00,
- *0.8497E+00,0.9532E+00,0.1091E+01,0.1244E+01,0.1438E+01,
- *0.1647E+01,0.1877E+01,0.2148E+01,0.2474E+01,0.2871E+01,
- *0.3302E+01,0.3850E+01,0.4476E+01,0.5312E+01,0.6488E+01,
- *0.8012E+01,0.1024E+02,0.1390E+02,0.2057E+02,0.3470E+02,
- *0.7086E+02,0.1962E+03,0.4667E+03 /
- DATA ((PHR(i,j),j=1,83),i=13,13)/
- *0.5378E+00,0.4466E+00,0.3985E+00,0.3581E+00,0.3376E+00,
- *0.3474E+00,0.3401E+00,0.3225E+00,0.3044E+00,0.2916E+00,
- *0.2768E+00,0.2782E+00,0.2727E+00,0.2645E+00,0.2585E+00,
- *0.2334E+00,0.1961E+00,0.1692E+00,0.1461E+00,0.1251E+00,
- *0.1120E+00,0.9955E-01,0.9025E-01,0.8358E-01,0.8109E-01,
- *0.7670E-01,0.7662E-01,0.7581E-01,0.7548E-01,0.7713E-01,
- *0.7839E-01,0.7919E-01,0.8084E-01,0.8268E-01,0.8594E-01,
- *0.8982E-01,0.9255E-01,0.9571E-01,0.1033E+00,0.1086E+00,
- *0.1140E+00,0.1156E+00,0.1217E+00,0.1332E+00,0.1441E+00,
- *0.1531E+00,0.1697E+00,0.1881E+00,0.2042E+00,0.2257E+00,
- *0.2573E+00,0.2852E+00,0.3145E+00,0.3505E+00,0.4015E+00,
- *0.4500E+00,0.5068E+00,0.5702E+00,0.6587E+00,0.7363E+00,
- *0.8402E+00,0.9570E+00,0.1104E+01,0.1260E+01,0.1439E+01,
- *0.1647E+01,0.1900E+01,0.2198E+01,0.2542E+01,0.2920E+01,
- *0.3408E+01,0.3980E+01,0.4681E+01,0.5572E+01,0.6685E+01,
- *0.8232E+01,0.1060E+02,0.1442E+02,0.2112E+02,0.3485E+02,
- *0.6831E+02,0.1793E+03,0.3911E+03 /
- DATA ((PHR(i,j),j=1,83),i=14,14)/
- *0.5168E+00,0.4308E+00,0.3776E+00,0.3454E+00,0.3293E+00,
- *0.3456E+00,0.3340E+00,0.3164E+00,0.3057E+00,0.2831E+00,
- *0.2749E+00,0.2694E+00,0.2609E+00,0.2594E+00,0.2462E+00,
- *0.2234E+00,0.1933E+00,0.1700E+00,0.1469E+00,0.1276E+00,
- *0.1152E+00,0.1024E+00,0.9267E-01,0.8647E-01,0.8277E-01,
- *0.8042E-01,0.7934E-01,0.7891E-01,0.7803E-01,0.7916E-01,
- *0.7961E-01,0.8182E-01,0.8377E-01,0.8415E-01,0.8830E-01,
- *0.9301E-01,0.9631E-01,0.9909E-01,0.1061E+00,0.1129E+00,
- *0.1159E+00,0.1183E+00,0.1249E+00,0.1377E+00,0.1464E+00,
- *0.1574E+00,0.1748E+00,0.1925E+00,0.2083E+00,0.2319E+00,
- *0.2631E+00,0.2900E+00,0.3188E+00,0.3596E+00,0.4058E+00,
- *0.4559E+00,0.5092E+00,0.5805E+00,0.6598E+00,0.7409E+00,
- *0.8458E+00,0.9639E+00,0.1108E+01,0.1271E+01,0.1452E+01,
- *0.1661E+01,0.1930E+01,0.2239E+01,0.2583E+01,0.2991E+01,
- *0.3504E+01,0.4102E+01,0.4866E+01,0.5793E+01,0.6962E+01,
- *0.8615E+01,0.1106E+02,0.1491E+02,0.2162E+02,0.3471E+02,
- *0.6534E+02,0.1592E+03,0.3092E+03 /
- DATA ((PHR(i,j),j=1,83),i=15,15)/
- *0.3996E+00,0.3448E+00,0.2744E+00,0.2618E+00,0.2804E+00,
- *0.2976E+00,0.2947E+00,0.2798E+00,0.2638E+00,0.2525E+00,
- *0.2468E+00,0.2364E+00,0.2288E+00,0.2199E+00,0.2093E+00,
- *0.1969E+00,0.1803E+00,0.1609E+00,0.1437E+00,0.1274E+00,
- *0.1142E+00,0.1066E+00,0.9947E-01,0.9336E-01,0.8845E-01,
- *0.8567E-01,0.8339E-01,0.8190E-01,0.8271E-01,0.8283E-01,
- *0.8322E-01,0.8550E-01,0.8712E-01,0.8869E-01,0.9052E-01,
- *0.9368E-01,0.9776E-01,0.1013E+00,0.1063E+00,0.1132E+00,
- *0.1211E+00,0.1254E+00,0.1297E+00,0.1379E+00,0.1491E+00,
- *0.1643E+00,0.1789E+00,0.1936E+00,0.2155E+00,0.2380E+00,
- *0.2616E+00,0.2901E+00,0.3259E+00,0.3668E+00,0.4091E+00,
- *0.4574E+00,0.5208E+00,0.5911E+00,0.6665E+00,0.7591E+00,
- *0.8703E+00,0.9971E+00,0.1139E+01,0.1310E+01,0.1512E+01,
- *0.1758E+01,0.2034E+01,0.2363E+01,0.2752E+01,0.3240E+01,
- *0.3818E+01,0.4502E+01,0.5355E+01,0.6435E+01,0.7850E+01,
- *0.9727E+01,0.1232E+02,0.1617E+02,0.2240E+02,0.3347E+02,
- *0.5606E+02,0.1104E+03,0.1619E+03 /
- DATA ((PHR(i,j),j=1,83),i=16,16)/
- *0.3001E+00,0.2702E+00,0.2249E+00,0.2075E+00,0.2173E+00,
- *0.2344E+00,0.2445E+00,0.2409E+00,0.2303E+00,0.2189E+00,
- *0.2091E+00,0.2043E+00,0.1989E+00,0.1914E+00,0.1830E+00,
- *0.1709E+00,0.1572E+00,0.1450E+00,0.1322E+00,0.1217E+00,
- *0.1126E+00,0.1031E+00,0.9650E-01,0.9209E-01,0.8818E-01,
- *0.8503E-01,0.8264E-01,0.8130E-01,0.8088E-01,0.8114E-01,
- *0.8147E-01,0.8170E-01,0.8302E-01,0.8619E-01,0.8901E-01,
- *0.9171E-01,0.9569E-01,0.1006E+00,0.1060E+00,0.1123E+00,
- *0.1191E+00,0.1230E+00,0.1274E+00,0.1373E+00,0.1480E+00,
- *0.1604E+00,0.1744E+00,0.1915E+00,0.2109E+00,0.2322E+00,
- *0.2580E+00,0.2882E+00,0.3207E+00,0.3591E+00,0.4045E+00,
- *0.4575E+00,0.5169E+00,0.5861E+00,0.6675E+00,0.7643E+00,
- *0.8749E+00,0.1002E+01,0.1157E+01,0.1339E+01,0.1553E+01,
- *0.1801E+01,0.2102E+01,0.2462E+01,0.2895E+01,0.3405E+01,
- *0.4018E+01,0.4784E+01,0.5723E+01,0.6890E+01,0.8363E+01,
- *0.1030E+02,0.1298E+02,0.1683E+02,0.2268E+02,0.3246E+02,
- *0.5060E+02,0.8808E+02,0.1147E+03 /
- DATA ((PHR(i,j),j=1,83),i=17,17)/
- *0.2823E+00,0.2552E+00,0.2123E+00,0.1951E+00,0.2063E+00,
- *0.2250E+00,0.2330E+00,0.2294E+00,0.2198E+00,0.2091E+00,
- *0.1996E+00,0.1948E+00,0.1897E+00,0.1833E+00,0.1761E+00,
- *0.1658E+00,0.1536E+00,0.1419E+00,0.1308E+00,0.1212E+00,
- *0.1122E+00,0.1029E+00,0.9669E-01,0.9196E-01,0.8785E-01,
- *0.8478E-01,0.8275E-01,0.8117E-01,0.8028E-01,0.8069E-01,
- *0.8124E-01,0.8157E-01,0.8289E-01,0.8540E-01,0.8837E-01,
- *0.9169E-01,0.9499E-01,0.9951E-01,0.1053E+00,0.1113E+00,
- *0.1177E+00,0.1215E+00,0.1259E+00,0.1359E+00,0.1469E+00,
- *0.1586E+00,0.1731E+00,0.1903E+00,0.2089E+00,0.2302E+00,
- *0.2570E+00,0.2864E+00,0.3184E+00,0.3566E+00,0.4030E+00,
- *0.4556E+00,0.5140E+00,0.5843E+00,0.6677E+00,0.7627E+00,
- *0.8738E+00,0.1005E+01,0.1162E+01,0.1346E+01,0.1561E+01,
- *0.1813E+01,0.2123E+01,0.2493E+01,0.2932E+01,0.3452E+01,
- *0.4090E+01,0.4877E+01,0.5840E+01,0.7037E+01,0.8542E+01,
- *0.1052E+02,0.1320E+02,0.1702E+02,0.2271E+02,0.3201E+02,
- *0.4871E+02,0.8147E+02,0.1025E+03 /
- DATA ((PHR(i,j),j=1,83),i=18,18)/
- *0.2252E+00,0.2063E+00,0.1757E+00,0.1674E+00,0.1797E+00,
- *0.1971E+00,0.2027E+00,0.1997E+00,0.1918E+00,0.1829E+00,
- *0.1761E+00,0.1700E+00,0.1643E+00,0.1593E+00,0.1528E+00,
- *0.1457E+00,0.1381E+00,0.1296E+00,0.1203E+00,0.1116E+00,
- *0.1047E+00,0.9838E-01,0.9271E-01,0.8816E-01,0.8463E-01,
- *0.8230E-01,0.8067E-01,0.7946E-01,0.7876E-01,0.7854E-01,
- *0.7920E-01,0.8085E-01,0.8232E-01,0.8368E-01,0.8650E-01,
- *0.9020E-01,0.9374E-01,0.9791E-01,0.1036E+00,0.1096E+00,
- *0.1161E+00,0.1200E+00,0.1244E+00,0.1344E+00,0.1451E+00,
- *0.1573E+00,0.1723E+00,0.1886E+00,0.2069E+00,0.2293E+00,
- *0.2551E+00,0.2835E+00,0.3163E+00,0.3555E+00,0.4005E+00,
- *0.4519E+00,0.5121E+00,0.5835E+00,0.6661E+00,0.7614E+00,
- *0.8745E+00,0.1010E+01,0.1170E+01,0.1355E+01,0.1577E+01,
- *0.1843E+01,0.2163E+01,0.2544E+01,0.3001E+01,0.3554E+01,
- *0.4229E+01,0.5049E+01,0.6064E+01,0.7318E+01,0.8895E+01,
- *0.1094E+02,0.1365E+02,0.1739E+02,0.2280E+02,0.3115E+02,
- *0.4522E+02,0.6977E+02,0.8255E+02 /
- DATA ((PHR(i,j),j=1,83),i=19,19)/
- *0.1310E+00,0.1235E+00,0.1075E+00,0.1051E+00,0.1162E+00,
- *0.1279E+00,0.1325E+00,0.1308E+00,0.1263E+00,0.1212E+00,
- *0.1166E+00,0.1127E+00,0.1094E+00,0.1064E+00,0.1035E+00,
- *0.1002E+00,0.9660E-01,0.9285E-01,0.8897E-01,0.8520E-01,
- *0.8176E-01,0.7844E-01,0.7550E-01,0.7300E-01,0.7107E-01,
- *0.6969E-01,0.6873E-01,0.6809E-01,0.6787E-01,0.6822E-01,
- *0.6902E-01,0.7019E-01,0.7171E-01,0.7369E-01,0.7631E-01,
- *0.7946E-01,0.8301E-01,0.8719E-01,0.9225E-01,0.9801E-01,
- *0.1045E+00,0.1081E+00,0.1121E+00,0.1210E+00,0.1311E+00,
- *0.1426E+00,0.1560E+00,0.1714E+00,0.1888E+00,0.2091E+00,
- *0.2327E+00,0.2598E+00,0.2909E+00,0.3273E+00,0.3697E+00,
- *0.4189E+00,0.4765E+00,0.5443E+00,0.6239E+00,0.7174E+00,
- *0.8283E+00,0.9602E+00,0.1117E+01,0.1304E+01,0.1529E+01,
- *0.1798E+01,0.2125E+01,0.2519E+01,0.2998E+01,0.3582E+01,
- *0.4299E+01,0.5181E+01,0.6276E+01,0.7642E+01,0.9369E+01,
- *0.1159E+02,0.1451E+02,0.1846E+02,0.2404E+02,0.3236E+02,
- *0.4559E+02,0.6589E+02,0.7490E+02 /
- DATA ((PHR(i,j),j=1,83),i=20,20)/
- *0.2124E+00,0.2038E+00,0.1826E+00,0.1735E+00,0.1792E+00,
- *0.1937E+00,0.2072E+00,0.2138E+00,0.2150E+00,0.2119E+00,
- *0.2053E+00,0.1954E+00,0.1843E+00,0.1734E+00,0.1629E+00,
- *0.1531E+00,0.1436E+00,0.1348E+00,0.1272E+00,0.1206E+00,
- *0.1151E+00,0.1107E+00,0.1071E+00,0.1042E+00,0.1022E+00,
- *0.1009E+00,0.1002E+00,0.1001E+00,0.1007E+00,0.1019E+00,
- *0.1037E+00,0.1059E+00,0.1087E+00,0.1123E+00,0.1166E+00,
- *0.1215E+00,0.1273E+00,0.1340E+00,0.1416E+00,0.1506E+00,
- *0.1610E+00,0.1666E+00,0.1724E+00,0.1850E+00,0.1997E+00,
- *0.2168E+00,0.2361E+00,0.2579E+00,0.2828E+00,0.3109E+00,
- *0.3428E+00,0.3798E+00,0.4228E+00,0.4716E+00,0.5269E+00,
- *0.5912E+00,0.6656E+00,0.7513E+00,0.8503E+00,0.9660E+00,
- *0.1101E+01,0.1256E+01,0.1437E+01,0.1649E+01,0.1899E+01,
- *0.2192E+01,0.2534E+01,0.2935E+01,0.3410E+01,0.3972E+01,
- *0.4636E+01,0.5421E+01,0.6351E+01,0.7469E+01,0.8819E+01,
- *0.1046E+02,0.1246E+02,0.1497E+02,0.1818E+02,0.2241E+02,
- *0.2790E+02,0.3310E+02,0.3469E+02 /
-c************** MIE (phase fun qh) ***************
- DATA ((QHR(i,j),j=1,83),i= 1, 1)/
- *-0.5652E-21,-0.4313E-02, 0.8133E-01, 0.2057E-01, 0.4002E-01,
- * 0.3516E-01, 0.1535E-01,-0.1468E-01,-0.5310E-01,-0.6907E-01,
- *-0.9040E-01,-0.1349E+00,-0.1587E+00,-0.1714E+00,-0.1827E+00,
- *-0.1288E+00,-0.5406E-01,-0.2625E-01,-0.1019E-01,-0.2488E-02,
- *-0.1738E-02, 0.1211E-02, 0.4563E-03, 0.3466E-02,-0.1493E-03,
- * 0.3994E-03,-0.2694E-02,-0.5007E-02,-0.7406E-02,-0.9019E-02,
- *-0.1274E-01,-0.1195E-01,-0.9552E-02,-0.8995E-02,-0.8926E-02,
- *-0.6393E-02,-0.2516E-02,-0.1326E-02, 0.1299E-02, 0.3362E-02,
- * 0.4485E-02, 0.5630E-02, 0.6771E-02, 0.1022E-01, 0.1252E-01,
- * 0.1659E-01, 0.2257E-01, 0.2038E-01, 0.2396E-01, 0.2829E-01,
- * 0.2622E-01, 0.3117E-01, 0.3548E-01, 0.4045E-01, 0.4483E-01,
- * 0.4913E-01, 0.4837E-01, 0.5558E-01, 0.5632E-01, 0.7013E-01,
- * 0.7452E-01, 0.7231E-01, 0.8890E-01, 0.8722E-01, 0.9534E-01,
- * 0.8891E-01, 0.8269E-01, 0.1003E+00, 0.6763E-01, 0.8108E-01,
- * 0.1530E-01, 0.4417E-01, 0.4865E-01,-0.2253E-01,-0.8601E-02,
- * 0.1806E-01,-0.7635E-01,-0.5849E-02,-0.9235E-02,-0.2265E-01,
- * 0.3535E+00, 0.3803E+00,-0.2302E-17 /
- DATA ((QHR(i,j),j=1,83),i= 2, 2)/
- * 0.9414E-21,-0.2148E-01, 0.3455E-01, 0.7867E-01, 0.4848E-01,
- * 0.3081E-01, 0.6826E-02,-0.1285E-01,-0.2542E-01,-0.6736E-01,
- *-0.9198E-01,-0.1066E+00,-0.1388E+00,-0.1596E+00,-0.1506E+00,
- *-0.1155E+00,-0.6667E-01,-0.2285E-01,-0.1157E-01,-0.6434E-03,
- * 0.4941E-02, 0.5109E-03, 0.9727E-03, 0.2256E-02, 0.1119E-03,
- *-0.2490E-02,-0.2937E-03,-0.3061E-02,-0.4907E-02,-0.6150E-02,
- *-0.9551E-02,-0.1002E-01,-0.1206E-01,-0.9100E-02,-0.5451E-02,
- *-0.3768E-02, 0.2641E-02, 0.5438E-02, 0.5056E-02, 0.5468E-02,
- * 0.9817E-02, 0.1079E-01, 0.1084E-01, 0.9448E-02, 0.1610E-01,
- * 0.1855E-01, 0.1618E-01, 0.2270E-01, 0.2782E-01, 0.2992E-01,
- * 0.3257E-01, 0.4231E-01, 0.3962E-01, 0.4831E-01, 0.5199E-01,
- * 0.5227E-01, 0.6304E-01, 0.6644E-01, 0.6961E-01, 0.7646E-01,
- * 0.7575E-01, 0.8536E-01, 0.7497E-01, 0.9430E-01, 0.8630E-01,
- * 0.8251E-01, 0.6499E-01, 0.7332E-01, 0.8381E-01, 0.3474E-01,
- * 0.5205E-01, 0.9879E-02, 0.3438E-01, 0.4582E-01, 0.7840E-02,
- *-0.1749E-01, 0.2460E-01,-0.1583E+00,-0.5196E-01,-0.7299E-01,
- *-0.3856E+00,-0.1326E-01, 0.9563E-18 /
- DATA ((QHR(i,j),j=1,83),i= 3, 3)/
- * 0.1377E-20,-0.3240E-01, 0.4286E-01, 0.8798E-01, 0.3900E-01,
- * 0.3007E-01, 0.1692E-01,-0.1615E-01,-0.2910E-01,-0.5050E-01,
- *-0.8576E-01,-0.1091E+00,-0.1339E+00,-0.1502E+00,-0.1358E+00,
- *-0.1073E+00,-0.6237E-01,-0.2447E-01,-0.7987E-02, 0.1037E-02,
- * 0.3342E-02, 0.3115E-02, 0.4347E-02, 0.1780E-02, 0.7169E-03,
- *-0.1787E-03,-0.1866E-03,-0.3717E-03,-0.4190E-02,-0.7022E-02,
- *-0.4385E-02,-0.6997E-02,-0.1042E-01,-0.6191E-02,-0.4346E-02,
- *-0.6999E-02,-0.1642E-02, 0.3803E-02, 0.5121E-02, 0.6217E-02,
- * 0.9376E-02, 0.1007E-01, 0.1456E-01, 0.1745E-01, 0.1543E-01,
- * 0.1825E-01, 0.1987E-01, 0.2443E-01, 0.3077E-01, 0.2968E-01,
- * 0.3360E-01, 0.4489E-01, 0.4517E-01, 0.4316E-01, 0.5245E-01,
- * 0.5575E-01, 0.6458E-01, 0.6590E-01, 0.7301E-01, 0.6530E-01,
- * 0.8530E-01, 0.8100E-01, 0.7168E-01, 0.7552E-01, 0.8379E-01,
- * 0.7635E-01, 0.7311E-01, 0.5822E-01, 0.6480E-01, 0.5886E-01,
- * 0.6843E-01, 0.5198E-01, 0.2430E-01, 0.1679E-01,-0.6881E-01,
- *-0.4788E-01,-0.8695E-01,-0.1898E+00,-0.6728E-01, 0.1288E+00,
- *-0.2377E+00,-0.2115E+00, 0.7805E-18 /
- DATA ((QHR(i,j),j=1,83),i= 4, 4)/
- * 0.5153E-21,-0.3973E-01, 0.2373E-01, 0.6997E-01, 0.4090E-01,
- * 0.3377E-01, 0.6982E-02,-0.1835E-01,-0.1770E-01,-0.6745E-01,
- *-0.8655E-01,-0.1051E+00,-0.1330E+00,-0.1530E+00,-0.1223E+00,
- *-0.1081E+00,-0.6315E-01,-0.2324E-01,-0.1108E-01,-0.1200E-02,
- * 0.4999E-02, 0.1866E-02, 0.3340E-02, 0.1777E-02, 0.1436E-02,
- *-0.1121E-02,-0.1198E-02,-0.1074E-02,-0.3401E-02,-0.8284E-02,
- *-0.6722E-02,-0.5177E-02,-0.9347E-02,-0.8328E-02,-0.5107E-02,
- *-0.3385E-02, 0.1059E-02, 0.5830E-02, 0.6722E-02, 0.7302E-02,
- * 0.1098E-01, 0.9981E-02, 0.1275E-01, 0.1250E-01, 0.1623E-01,
- * 0.1743E-01, 0.1780E-01, 0.2224E-01, 0.3006E-01, 0.2789E-01,
- * 0.3505E-01, 0.4417E-01, 0.4075E-01, 0.4337E-01, 0.5498E-01,
- * 0.5322E-01, 0.6139E-01, 0.6674E-01, 0.7196E-01, 0.6613E-01,
- * 0.8054E-01, 0.8335E-01, 0.7577E-01, 0.8372E-01, 0.9626E-01,
- * 0.8004E-01, 0.7107E-01, 0.6142E-01, 0.7472E-01, 0.4178E-01,
- * 0.4422E-01, 0.1839E-01, 0.5264E-01, 0.5821E-01,-0.1082E-01,
- * 0.1844E-01,-0.1667E-02,-0.2010E+00,-0.8919E-01,-0.3129E-01,
- *-0.3706E+00,-0.8864E-01,-0.3064E-17 /
- DATA ((QHR(i,j),j=1,83),i= 5, 5)/
- * 0.6702E-21,-0.2668E-01, 0.8251E-03, 0.4873E-01, 0.5822E-01,
- * 0.3429E-01,-0.1839E-02,-0.2601E-02,-0.4287E-01,-0.6043E-01,
- *-0.8286E-01,-0.1083E+00,-0.1315E+00,-0.1377E+00,-0.1350E+00,
- *-0.9677E-01,-0.5612E-01,-0.2971E-01,-0.1186E-01,-0.1925E-02,
- * 0.6147E-03, 0.3895E-02, 0.5068E-02, 0.2352E-02, 0.2879E-02,
- * 0.2913E-02,-0.2223E-02,-0.5321E-02,-0.4496E-02,-0.2506E-02,
- *-0.6739E-02,-0.6839E-02,-0.5546E-02,-0.5542E-02,-0.4234E-02,
- *-0.8077E-03,-0.3385E-02, 0.2486E-02, 0.3510E-02, 0.6383E-02,
- * 0.1321E-01, 0.1580E-01, 0.1651E-01, 0.1558E-01, 0.1728E-01,
- * 0.2283E-01, 0.2308E-01, 0.2508E-01, 0.2401E-01, 0.3473E-01,
- * 0.3949E-01, 0.3137E-01, 0.3798E-01, 0.5508E-01, 0.4682E-01,
- * 0.5096E-01, 0.5694E-01, 0.6380E-01, 0.6197E-01, 0.6336E-01,
- * 0.7228E-01, 0.6858E-01, 0.8092E-01, 0.7072E-01, 0.7140E-01,
- * 0.6980E-01, 0.9243E-01, 0.6652E-01, 0.6055E-01, 0.6636E-01,
- * 0.5477E-01, 0.6935E-01, 0.3807E-02, 0.4117E-03, 0.3388E-01,
- *-0.6244E-01,-0.4231E-01, 0.1060E+00,-0.1044E+00,-0.1264E+00,
- * 0.4247E+00, 0.4541E+00, 0.8861E-18 /
- DATA ((QHR(i,j),j=1,83),i= 6, 6)/
- *-0.3949E-21,-0.2874E-01, 0.4286E-01, 0.6443E-01, 0.4238E-01,
- * 0.2595E-01, 0.8069E-02,-0.1591E-01,-0.3601E-01,-0.7140E-01,
- *-0.9417E-01,-0.1015E+00,-0.1202E+00,-0.1395E+00,-0.1301E+00,
- *-0.9785E-01,-0.6059E-01,-0.2294E-01,-0.9932E-02,-0.3946E-02,
- * 0.1885E-02, 0.1371E-02, 0.9160E-03, 0.3312E-02, 0.6612E-03,
- *-0.5298E-03,-0.1417E-02,-0.1727E-02,-0.3372E-02,-0.4507E-02,
- *-0.8046E-02,-0.9030E-02,-0.8927E-02,-0.5286E-02,-0.3281E-02,
- *-0.6920E-03, 0.2602E-02, 0.4785E-02, 0.4160E-02, 0.7590E-02,
- * 0.9385E-02, 0.1059E-01, 0.8535E-02, 0.1049E-01, 0.1694E-01,
- * 0.1781E-01, 0.1729E-01, 0.2452E-01, 0.2989E-01, 0.3030E-01,
- * 0.3068E-01, 0.4281E-01, 0.4487E-01, 0.4370E-01, 0.4908E-01,
- * 0.5736E-01, 0.5621E-01, 0.6650E-01, 0.6731E-01, 0.7626E-01,
- * 0.7170E-01, 0.8259E-01, 0.7632E-01, 0.9607E-01, 0.7728E-01,
- * 0.7295E-01, 0.7610E-01, 0.8304E-01, 0.7244E-01, 0.4201E-01,
- * 0.5154E-01, 0.1437E-01, 0.3095E-01, 0.6875E-01, 0.3148E-01,
- * 0.7756E-02,-0.1868E-01,-0.2055E-01, 0.5688E-01,-0.1536E-01,
- *-0.2547E+00, 0.3047E+00, 0.4664E-18 /
- DATA ((QHR(i,j),j=1,83),i= 7, 7)/
- *-0.7177E-23,-0.3681E-01, 0.1664E-01, 0.6839E-01, 0.4673E-01,
- * 0.2728E-01, 0.5361E-02,-0.1598E-01,-0.2734E-01,-0.6933E-01,
- *-0.8660E-01,-0.1027E+00,-0.1238E+00,-0.1361E+00,-0.1154E+00,
- *-0.9423E-01,-0.5514E-01,-0.2077E-01,-0.1127E-01,-0.9738E-03,
- * 0.5773E-02, 0.2083E-02, 0.3273E-02, 0.2883E-02, 0.8928E-03,
- *-0.6255E-03,-0.2589E-03,-0.1137E-02,-0.2237E-02,-0.4908E-02,
- *-0.5277E-02,-0.4451E-02,-0.7563E-02,-0.6745E-02,-0.3568E-02,
- *-0.1200E-02, 0.2491E-02, 0.7746E-02, 0.7179E-02, 0.7156E-02,
- * 0.1314E-01, 0.1313E-01, 0.1336E-01, 0.1225E-01, 0.1854E-01,
- * 0.2003E-01, 0.1786E-01, 0.2448E-01, 0.2963E-01, 0.2795E-01,
- * 0.3517E-01, 0.4348E-01, 0.3882E-01, 0.4532E-01, 0.5204E-01,
- * 0.5212E-01, 0.5906E-01, 0.6778E-01, 0.6769E-01, 0.6898E-01,
- * 0.8005E-01, 0.8349E-01, 0.7226E-01, 0.8684E-01, 0.9591E-01,
- * 0.7709E-01, 0.7128E-01, 0.6704E-01, 0.8266E-01, 0.4439E-01,
- * 0.5628E-01, 0.1977E-01, 0.5664E-01, 0.6722E-01, 0.2624E-01,
- * 0.2828E-01, 0.4223E-02,-0.1563E+00,-0.6070E-01,-0.5531E-01,
- *-0.3453E+00, 0.8463E-01, 0.2078E-17 /
- DATA ((QHR(i,j),j=1,83),i= 8, 8)/
- *-0.3240E-21,-0.9355E-02, 0.1593E-01, 0.1917E-01, 0.2439E-01,
- * 0.1935E-01, 0.7732E-02,-0.2749E-01,-0.5613E-01,-0.6637E-01,
- *-0.8221E-01,-0.1120E+00,-0.1200E+00,-0.1182E+00,-0.1248E+00,
- *-0.9325E-01,-0.4818E-01,-0.2681E-01,-0.1105E-01,-0.4340E-02,
- *-0.1019E-02, 0.2498E-02, 0.3301E-02, 0.2703E-02, 0.2312E-02,
- * 0.1985E-02,-0.4751E-03,-0.1738E-02,-0.2378E-02,-0.5705E-02,
- *-0.6433E-02,-0.4408E-02,-0.3969E-02,-0.3565E-02,-0.3522E-02,
- *-0.5782E-04, 0.4956E-03,-0.2255E-03, 0.4909E-02, 0.7191E-02,
- * 0.5593E-02, 0.6115E-02, 0.7903E-02, 0.1328E-01, 0.1560E-01,
- * 0.1761E-01, 0.2237E-01, 0.2440E-01, 0.2697E-01, 0.2854E-01,
- * 0.3133E-01, 0.3471E-01, 0.4033E-01, 0.3909E-01, 0.4932E-01,
- * 0.5292E-01, 0.5090E-01, 0.5525E-01, 0.6602E-01, 0.6821E-01,
- * 0.7123E-01, 0.7677E-01, 0.8395E-01, 0.8011E-01, 0.8679E-01,
- * 0.9204E-01, 0.7370E-01, 0.9114E-01, 0.7572E-01, 0.7807E-01,
- * 0.3782E-01, 0.4951E-01, 0.7015E-01, 0.8199E-02, 0.1940E-01,
- * 0.3688E-01, 0.5608E-04, 0.4390E-01, 0.1358E+00, 0.1169E+00,
- * 0.1794E+00, 0.4116E+00,-0.1607E-17 /
- DATA ((QHR(i,j),j=1,83),i= 9, 9)/
- * 0.1720E-21,-0.2559E-01, 0.1420E-01, 0.1941E-01, 0.5511E-01,
- * 0.2178E-01,-0.7668E-02,-0.1665E-01,-0.4416E-01,-0.6232E-01,
- *-0.7647E-01,-0.1002E+00,-0.1130E+00,-0.1162E+00,-0.1149E+00,
- *-0.8304E-01,-0.4706E-01,-0.2803E-01,-0.1121E-01,-0.3090E-02,
- *-0.7171E-03, 0.3461E-02, 0.2662E-02, 0.2987E-02, 0.3538E-02,
- * 0.4784E-02,-0.8729E-03,-0.3289E-02,-0.2055E-02,-0.1804E-02,
- *-0.4225E-02,-0.4292E-02,-0.1369E-02,-0.1593E-02,-0.2009E-02,
- * 0.5345E-03, 0.1736E-02, 0.1974E-02, 0.5268E-02, 0.7065E-02,
- * 0.1055E-01, 0.1333E-01, 0.1523E-01, 0.1631E-01, 0.1758E-01,
- * 0.2096E-01, 0.2608E-01, 0.2591E-01, 0.2342E-01, 0.3227E-01,
- * 0.3423E-01, 0.3271E-01, 0.3682E-01, 0.4823E-01, 0.4623E-01,
- * 0.4942E-01, 0.4909E-01, 0.6249E-01, 0.5941E-01, 0.6084E-01,
- * 0.6780E-01, 0.6821E-01, 0.7542E-01, 0.6948E-01, 0.7942E-01,
- * 0.6939E-01, 0.9442E-01, 0.8481E-01, 0.7315E-01, 0.8639E-01,
- * 0.6086E-01, 0.1050E+00, 0.3096E-01,-0.6550E-02, 0.3203E-01,
- *-0.1720E-01, 0.1845E-01, 0.1281E+00,-0.3856E-01,-0.8897E-01,
- * 0.2440E+00, 0.4500E+00, 0.1261E-17 /
- DATA ((QHR(i,j),j=1,83),i=10,10)/
- *-0.7197E-21,-0.5090E-01, 0.2446E-01, 0.4509E-01, 0.4499E-01,
- * 0.1829E-01, 0.2361E-02,-0.2006E-01,-0.3582E-01,-0.5358E-01,
- *-0.7447E-01,-0.8945E-01,-0.1068E+00,-0.1059E+00,-0.9378E-01,
- *-0.7825E-01,-0.5091E-01,-0.2584E-01,-0.1020E-01,-0.2085E-02,
- * 0.2355E-02, 0.4949E-02, 0.5296E-02, 0.2505E-02, 0.2509E-02,
- * 0.1762E-02, 0.1775E-02, 0.3908E-03,-0.1609E-02,-0.8453E-03,
- *-0.4221E-03,-0.3227E-02,-0.3607E-02,-0.1441E-02, 0.8404E-03,
- * 0.8303E-03, 0.2055E-02, 0.5549E-02, 0.6134E-02, 0.8483E-02,
- * 0.1277E-01, 0.1429E-01, 0.1594E-01, 0.1703E-01, 0.1644E-01,
- * 0.2071E-01, 0.2338E-01, 0.2527E-01, 0.2967E-01, 0.3417E-01,
- * 0.3694E-01, 0.3621E-01, 0.4565E-01, 0.5179E-01, 0.4982E-01,
- * 0.5453E-01, 0.6488E-01, 0.6501E-01, 0.6474E-01, 0.6791E-01,
- * 0.7775E-01, 0.7289E-01, 0.7601E-01, 0.6822E-01, 0.7584E-01,
- * 0.7646E-01, 0.8409E-01, 0.5685E-01, 0.7211E-01, 0.6113E-01,
- * 0.7916E-01, 0.5970E-01, 0.1954E-01, 0.2637E-01,-0.3274E-02,
- *-0.1087E-02,-0.5281E-02,-0.9384E-02,-0.9625E-01, 0.7555E-01,
- * 0.2650E+00,-0.1381E+00,-0.4426E-18 /
- DATA ((QHR(i,j),j=1,83),i=11,11)/
- * 0.8139E-21,-0.2558E-01, 0.1282E-01, 0.1142E-01, 0.3862E-01,
- * 0.2034E-01,-0.3045E-02,-0.2027E-01,-0.4761E-01,-0.6124E-01,
- *-0.7568E-01,-0.9914E-01,-0.1048E+00,-0.1049E+00,-0.1087E+00,
- *-0.7790E-01,-0.4430E-01,-0.2972E-01,-0.1305E-01,-0.5027E-02,
- *-0.2336E-02, 0.2746E-02, 0.1041E-02, 0.3174E-02, 0.3479E-02,
- * 0.3466E-02, 0.2804E-03,-0.2467E-02,-0.2409E-02,-0.1813E-02,
- *-0.5080E-02,-0.3482E-02,-0.2263E-04,-0.9982E-03,-0.5088E-03,
- * 0.1044E-02, 0.2645E-02, 0.3514E-02, 0.5332E-02, 0.7357E-02,
- * 0.9363E-02, 0.1166E-01, 0.1333E-01, 0.1562E-01, 0.1571E-01,
- * 0.2050E-01, 0.2396E-01, 0.2515E-01, 0.2609E-01, 0.2929E-01,
- * 0.3304E-01, 0.3278E-01, 0.3400E-01, 0.4360E-01, 0.4444E-01,
- * 0.4499E-01, 0.4726E-01, 0.5435E-01, 0.5612E-01, 0.6334E-01,
- * 0.6192E-01, 0.6735E-01, 0.7705E-01, 0.7289E-01, 0.8262E-01,
- * 0.8428E-01, 0.9148E-01, 0.9670E-01, 0.8878E-01, 0.9254E-01,
- * 0.4597E-01, 0.8947E-01, 0.5791E-01, 0.6618E-02, 0.2768E-01,
- * 0.2528E-01, 0.5614E-01, 0.1248E+00, 0.7790E-02, 0.3756E-01,
- * 0.3277E+00, 0.1548E+00,-0.3183E-18 /
- DATA ((QHR(i,j),j=1,83),i=12,12)/
- *-0.7425E-21,-0.2536E-01, 0.1690E-01, 0.5213E-01, 0.3816E-01,
- * 0.1641E-01,-0.3100E-03,-0.2087E-01,-0.3990E-01,-0.6941E-01,
- *-0.8761E-01,-0.8910E-01,-0.1005E+00,-0.1067E+00,-0.9678E-01,
- *-0.7441E-01,-0.4953E-01,-0.2205E-01,-0.1164E-01,-0.2738E-02,
- * 0.1631E-02, 0.2907E-03, 0.1065E-02, 0.3352E-02, 0.1473E-02,
- *-0.6874E-03, 0.3727E-03, 0.1043E-03,-0.1979E-02,-0.1952E-02,
- *-0.4301E-02,-0.4007E-02,-0.3971E-02,-0.2212E-02,-0.6598E-03,
- * 0.1032E-02, 0.4533E-02, 0.6206E-02, 0.6500E-02, 0.7573E-02,
- * 0.1072E-01, 0.1178E-01, 0.1061E-01, 0.1079E-01, 0.1752E-01,
- * 0.1904E-01, 0.1741E-01, 0.2250E-01, 0.2662E-01, 0.2836E-01,
- * 0.3031E-01, 0.3860E-01, 0.3844E-01, 0.4273E-01, 0.4566E-01,
- * 0.5043E-01, 0.5705E-01, 0.5887E-01, 0.6274E-01, 0.7130E-01,
- * 0.6890E-01, 0.7600E-01, 0.7541E-01, 0.9080E-01, 0.8251E-01,
- * 0.7776E-01, 0.7403E-01, 0.8570E-01, 0.8986E-01, 0.6068E-01,
- * 0.7006E-01, 0.4909E-01, 0.6560E-01, 0.7687E-01, 0.5273E-01,
- * 0.3299E-01, 0.3491E-01,-0.1907E-02, 0.8271E-01, 0.4703E-01,
- *-0.1358E+00, 0.9753E-02, 0.4340E-18 /
- DATA ((QHR(i,j),j=1,83),i=13,13)/
- * 0.5346E-21,-0.2282E-01, 0.1047E-01, 0.1513E-02, 0.2542E-01,
- * 0.2023E-01,-0.3904E-02,-0.2441E-01,-0.4896E-01,-0.6321E-01,
- *-0.7552E-01,-0.9330E-01,-0.9863E-01,-0.9404E-01,-0.9572E-01,
- *-0.7181E-01,-0.3974E-01,-0.2616E-01,-0.1341E-01,-0.4901E-02,
- *-0.1544E-02, 0.1408E-02, 0.1477E-02, 0.3356E-02, 0.2461E-02,
- * 0.3178E-02, 0.6163E-03,-0.1310E-02,-0.1013E-02,-0.2031E-02,
- *-0.4379E-02,-0.2608E-02,-0.6183E-03,-0.7185E-03,-0.3818E-03,
- * 0.8694E-03, 0.2640E-02, 0.3864E-02, 0.5761E-02, 0.7659E-02,
- * 0.8838E-02, 0.1052E-01, 0.1259E-01, 0.1465E-01, 0.1486E-01,
- * 0.1833E-01, 0.2314E-01, 0.2269E-01, 0.2445E-01, 0.2860E-01,
- * 0.2962E-01, 0.3174E-01, 0.3386E-01, 0.4029E-01, 0.4386E-01,
- * 0.4414E-01, 0.4571E-01, 0.5412E-01, 0.5507E-01, 0.6218E-01,
- * 0.6413E-01, 0.6922E-01, 0.7416E-01, 0.7933E-01, 0.8333E-01,
- * 0.8379E-01, 0.8689E-01, 0.9666E-01, 0.8051E-01, 0.8971E-01,
- * 0.4985E-01, 0.8920E-01, 0.7194E-01, 0.3749E-01, 0.4367E-01,
- * 0.4630E-01, 0.5292E-01, 0.1102E+00, 0.6302E-01, 0.6338E-01,
- * 0.3112E+00, 0.2792E+00, 0.9208E-18 /
- DATA ((QHR(i,j),j=1,83),i=14,14)/
- * 0.8020E-21,-0.2738E-01,-0.1208E-02, 0.1797E-01, 0.4030E-01,
- * 0.1935E-01,-0.5775E-02,-0.2120E-01,-0.4041E-01,-0.5868E-01,
- *-0.6833E-01,-0.8267E-01,-0.8673E-01,-0.8466E-01,-0.8131E-01,
- *-0.5719E-01,-0.3646E-01,-0.2559E-01,-0.1172E-01,-0.4864E-02,
- *-0.2056E-02, 0.2111E-02, 0.1751E-02, 0.2285E-02, 0.3585E-02,
- * 0.4080E-02, 0.8305E-03,-0.7996E-03,-0.2206E-03, 0.4236E-03,
- *-0.1935E-02,-0.1592E-02, 0.1039E-02, 0.4550E-03, 0.1046E-02,
- * 0.1521E-02, 0.3464E-02, 0.4350E-02, 0.5730E-02, 0.8103E-02,
- * 0.1006E-01, 0.1214E-01, 0.1383E-01, 0.1552E-01, 0.1547E-01,
- * 0.1995E-01, 0.2294E-01, 0.2445E-01, 0.2457E-01, 0.2931E-01,
- * 0.3258E-01, 0.3044E-01, 0.3379E-01, 0.4396E-01, 0.4278E-01,
- * 0.4506E-01, 0.4588E-01, 0.5532E-01, 0.5771E-01, 0.5807E-01,
- * 0.6175E-01, 0.6692E-01, 0.6815E-01, 0.6942E-01, 0.7462E-01,
- * 0.7353E-01, 0.9213E-01, 0.8559E-01, 0.8296E-01, 0.9431E-01,
- * 0.7357E-01, 0.1039E+00, 0.6191E-01, 0.3470E-01, 0.4893E-01,
- * 0.3296E-01, 0.6785E-01, 0.1091E+00, 0.2150E-01,-0.1466E-01,
- * 0.9967E-01, 0.1809E+00,-0.6464E-19 /
- DATA ((QHR(i,j),j=1,83),i=15,15)/
- *-0.5546E-21,-0.1304E-01, 0.3771E-02, 0.2171E-01, 0.1232E-01,
- * 0.8975E-02,-0.3002E-02,-0.2470E-01,-0.4071E-01,-0.5149E-01,
- *-0.6463E-01,-0.6949E-01,-0.6932E-01,-0.6602E-01,-0.5468E-01,
- *-0.4460E-01,-0.3401E-01,-0.2117E-01,-0.1250E-01,-0.5944E-02,
- *-0.2347E-02,-0.1709E-02,-0.5680E-03,-0.4256E-03,-0.7978E-03,
- *-0.1225E-02,-0.8540E-03,-0.4459E-03,-0.1989E-02,-0.2721E-02,
- *-0.8114E-03,-0.1992E-02,-0.3635E-02,-0.1756E-02,-0.2795E-03,
- *-0.1043E-02, 0.4989E-03, 0.2797E-02, 0.3355E-02, 0.3589E-02,
- * 0.5501E-02, 0.6332E-02, 0.7456E-02, 0.8347E-02, 0.9798E-02,
- * 0.1176E-01, 0.1182E-01, 0.1400E-01, 0.1758E-01, 0.1764E-01,
- * 0.1944E-01, 0.2505E-01, 0.2669E-01, 0.2577E-01, 0.3125E-01,
- * 0.3600E-01, 0.3937E-01, 0.4114E-01, 0.4509E-01, 0.4860E-01,
- * 0.5804E-01, 0.5770E-01, 0.5971E-01, 0.6539E-01, 0.7594E-01,
- * 0.7405E-01, 0.7652E-01, 0.7664E-01, 0.8816E-01, 0.9041E-01,
- * 0.9147E-01, 0.8411E-01, 0.9423E-01, 0.9277E-01, 0.7651E-01,
- * 0.8829E-01, 0.6671E-01, 0.2218E-01, 0.6686E-01, 0.1021E+00,
- * 0.4647E-01, 0.1390E-01, 0.3706E-18 /
- DATA ((QHR(i,j),j=1,83),i=16,16)/
- * 0.1866E-21,-0.7885E-02,-0.1345E-02, 0.9548E-02, 0.1448E-01,
- * 0.1025E-01,-0.1326E-02,-0.1980E-01,-0.3610E-01,-0.4634E-01,
- *-0.5262E-01,-0.5715E-01,-0.5584E-01,-0.5210E-01,-0.4839E-01,
- *-0.3949E-01,-0.2864E-01,-0.2141E-01,-0.1553E-01,-0.1121E-01,
- *-0.7991E-02,-0.5756E-02,-0.3976E-02,-0.3076E-02,-0.2895E-02,
- *-0.3062E-02,-0.2996E-02,-0.2980E-02,-0.3291E-02,-0.4053E-02,
- *-0.3831E-02,-0.3254E-02,-0.2734E-02,-0.2997E-02,-0.3025E-02,
- *-0.1965E-02,-0.1457E-02,-0.1773E-02,-0.2319E-03, 0.1232E-02,
- * 0.6366E-03, 0.8594E-03, 0.1673E-02, 0.4333E-02, 0.4814E-02,
- * 0.5511E-02, 0.7957E-02, 0.9499E-02, 0.1017E-01, 0.1134E-01,
- * 0.1385E-01, 0.1574E-01, 0.1745E-01, 0.1808E-01, 0.2230E-01,
- * 0.2555E-01, 0.2615E-01, 0.2827E-01, 0.3563E-01, 0.3828E-01,
- * 0.3732E-01, 0.4515E-01, 0.5192E-01, 0.5435E-01, 0.5621E-01,
- * 0.6525E-01, 0.6667E-01, 0.7688E-01, 0.7661E-01, 0.8159E-01,
- * 0.8153E-01, 0.8537E-01, 0.9095E-01, 0.8504E-01, 0.8838E-01,
- * 0.8481E-01, 0.9359E-01, 0.1219E+00, 0.1652E+00, 0.1679E+00,
- * 0.1100E+00, 0.1693E-01, 0.2805E-18 /
- DATA ((QHR(i,j),j=1,83),i=17,17)/
- * 0.3793E-21,-0.7249E-02,-0.3766E-02, 0.7035E-02, 0.1472E-01,
- * 0.1122E-01,-0.2153E-02,-0.1956E-01,-0.3404E-01,-0.4349E-01,
- *-0.4988E-01,-0.5493E-01,-0.5460E-01,-0.5109E-01,-0.4825E-01,
- *-0.4026E-01,-0.3002E-01,-0.2356E-01,-0.1751E-01,-0.1310E-01,
- *-0.9902E-02,-0.7011E-02,-0.5689E-02,-0.5154E-02,-0.4173E-02,
- *-0.3917E-02,-0.4468E-02,-0.4325E-02,-0.4049E-02,-0.4832E-02,
- *-0.5011E-02,-0.4280E-02,-0.3671E-02,-0.3999E-02,-0.4196E-02,
- *-0.3150E-02,-0.2700E-02,-0.2816E-02,-0.1362E-02,-0.4341E-03,
- *-0.4483E-03, 0.5659E-04, 0.1032E-02, 0.2605E-02, 0.2722E-02,
- * 0.3645E-02, 0.6001E-02, 0.6844E-02, 0.7440E-02, 0.9040E-02,
- * 0.1074E-01, 0.1194E-01, 0.1392E-01, 0.1539E-01, 0.1904E-01,
- * 0.2107E-01, 0.2186E-01, 0.2566E-01, 0.3135E-01, 0.3269E-01,
- * 0.3479E-01, 0.4155E-01, 0.4620E-01, 0.4829E-01, 0.5326E-01,
- * 0.6045E-01, 0.6287E-01, 0.7114E-01, 0.7291E-01, 0.7942E-01,
- * 0.7793E-01, 0.8813E-01, 0.9055E-01, 0.8425E-01, 0.8670E-01,
- * 0.8757E-01, 0.1005E+00, 0.1175E+00, 0.1312E+00, 0.1295E+00,
- * 0.1019E+00, 0.2994E-01, 0.6088E-19 /
- DATA ((QHR(i,j),j=1,83),i=18,18)/
- * 0.2609E-21,-0.5137E-02,-0.4366E-02, 0.5665E-02, 0.1406E-01,
- * 0.1053E-01,-0.1487E-02,-0.1449E-01,-0.2718E-01,-0.3704E-01,
- *-0.4262E-01,-0.4596E-01,-0.4705E-01,-0.4461E-01,-0.4000E-01,
- *-0.3403E-01,-0.2850E-01,-0.2351E-01,-0.1813E-01,-0.1437E-01,
- *-0.1180E-01,-0.9150E-02,-0.8080E-02,-0.7606E-02,-0.6912E-02,
- *-0.6317E-02,-0.6653E-02,-0.7137E-02,-0.6806E-02,-0.6484E-02,
- *-0.6791E-02,-0.6897E-02,-0.6685E-02,-0.6533E-02,-0.6329E-02,
- *-0.6145E-02,-0.6100E-02,-0.5659E-02,-0.5194E-02,-0.4903E-02,
- *-0.4035E-02,-0.3516E-02,-0.3219E-02,-0.3215E-02,-0.2886E-02,
- *-0.1855E-02,-0.9998E-03,-0.6527E-03, 0.1118E-03, 0.1955E-02,
- * 0.2583E-02, 0.2506E-02, 0.4828E-02, 0.8041E-02, 0.8175E-02,
- * 0.9348E-02, 0.1291E-01, 0.1596E-01, 0.1712E-01, 0.2057E-01,
- * 0.2485E-01, 0.2842E-01, 0.3146E-01, 0.3422E-01, 0.3999E-01,
- * 0.4683E-01, 0.5261E-01, 0.5304E-01, 0.5871E-01, 0.6699E-01,
- * 0.7472E-01, 0.7960E-01, 0.7448E-01, 0.8043E-01, 0.8777E-01,
- * 0.9274E-01, 0.9622E-01, 0.8918E-01, 0.6334E-01, 0.4469E-01,
- * 0.4983E-01, 0.3037E-01,-0.8083E-19 /
- DATA ((QHR(i,j),j=1,83),i=19,19)/
- *-0.5096E-22,-0.1452E-02,-0.1341E-02, 0.3994E-02, 0.8694E-02,
- * 0.7307E-02, 0.1631E-03,-0.8888E-02,-0.1740E-01,-0.2431E-01,
- *-0.2893E-01,-0.3167E-01,-0.3279E-01,-0.3224E-01,-0.3074E-01,
- *-0.2843E-01,-0.2558E-01,-0.2300E-01,-0.2036E-01,-0.1808E-01,
- *-0.1626E-01,-0.1461E-01,-0.1347E-01,-0.1259E-01,-0.1191E-01,
- *-0.1146E-01,-0.1129E-01,-0.1118E-01,-0.1106E-01,-0.1105E-01,
- *-0.1115E-01,-0.1122E-01,-0.1127E-01,-0.1145E-01,-0.1163E-01,
- *-0.1178E-01,-0.1197E-01,-0.1215E-01,-0.1226E-01,-0.1244E-01,
- *-0.1260E-01,-0.1262E-01,-0.1264E-01,-0.1282E-01,-0.1311E-01,
- *-0.1314E-01,-0.1309E-01,-0.1327E-01,-0.1331E-01,-0.1307E-01,
- *-0.1300E-01,-0.1300E-01,-0.1248E-01,-0.1171E-01,-0.1125E-01,
- *-0.1065E-01,-0.9443E-02,-0.8028E-02,-0.6614E-02,-0.4800E-02,
- *-0.2568E-02, 0.2316E-03, 0.3061E-02, 0.6070E-02, 0.1038E-01,
- * 0.1547E-01, 0.2014E-01, 0.2522E-01, 0.3139E-01, 0.3847E-01,
- * 0.4606E-01, 0.5331E-01, 0.5918E-01, 0.6658E-01, 0.7396E-01,
- * 0.8132E-01, 0.8653E-01, 0.8619E-01, 0.8140E-01, 0.7159E-01,
- * 0.5400E-01, 0.1954E-01,-0.3907E-19 /
- DATA ((QHR(i,j),j=1,83),i=20,20)/
- *-0.2177E-21, 0.1329E-03, 0.4220E-02, 0.1304E-01, 0.1961E-01,
- * 0.2278E-01, 0.2239E-01, 0.1925E-01, 0.1498E-01, 0.1017E-01,
- * 0.6718E-02, 0.4972E-02, 0.4223E-02, 0.4145E-02, 0.4127E-02,
- * 0.3634E-02, 0.2971E-02, 0.2403E-02, 0.1743E-02, 0.9126E-03,
- *-0.2284E-03,-0.1605E-02,-0.2910E-02,-0.4133E-02,-0.5437E-02,
- *-0.6707E-02,-0.7812E-02,-0.8877E-02,-0.9991E-02,-0.1106E-01,
- *-0.1208E-01,-0.1311E-01,-0.1413E-01,-0.1507E-01,-0.1598E-01,
- *-0.1684E-01,-0.1754E-01,-0.1824E-01,-0.1911E-01,-0.1991E-01,
- *-0.2051E-01,-0.2079E-01,-0.2106E-01,-0.2146E-01,-0.2170E-01,
- *-0.2211E-01,-0.2266E-01,-0.2292E-01,-0.2289E-01,-0.2282E-01,
- *-0.2253E-01,-0.2219E-01,-0.2208E-01,-0.2176E-01,-0.2092E-01,
- *-0.1980E-01,-0.1841E-01,-0.1695E-01,-0.1556E-01,-0.1355E-01,
- *-0.1080E-01,-0.7844E-02,-0.4848E-02,-0.9065E-03, 0.3866E-02,
- * 0.7975E-02, 0.1258E-01, 0.1858E-01, 0.2488E-01, 0.3137E-01,
- * 0.3738E-01, 0.4299E-01, 0.4889E-01, 0.5418E-01, 0.5791E-01,
- * 0.6107E-01, 0.6273E-01, 0.5995E-01, 0.5742E-01, 0.4489E-01,
- * 0.1604E-01, 0.7223E-03,-0.4384E-19 /
-c************** MIE (phase fun uh) ***************
- DATA ((UHR(i,j),j=1,83),i= 1, 1)/
- *-0.8426E+00,-0.1512E+00, 0.1679E+00, 0.2232E+00, 0.1845E+00,
- * 0.1837E+00, 0.1682E+00, 0.1336E+00, 0.1150E+00, 0.9094E-01,
- * 0.6528E-01, 0.4627E-01, 0.3770E-01, 0.3534E-01, 0.1775E-01,
- * 0.3677E-02, 0.8794E-02, 0.4774E-02,-0.2936E-02,-0.1055E-02,
- *-0.4216E-02,-0.3930E-02,-0.2856E-02,-0.3038E-02,-0.4482E-02,
- *-0.4071E-02,-0.1590E-02,-0.1264E-02,-0.1784E-02, 0.1478E-02,
- * 0.6338E-02, 0.9648E-02, 0.1363E-01, 0.1701E-01, 0.1945E-01,
- * 0.2154E-01, 0.2649E-01, 0.2941E-01, 0.3563E-01, 0.4004E-01,
- * 0.4883E-01, 0.5012E-01, 0.5580E-01, 0.6611E-01, 0.7306E-01,
- * 0.8434E-01, 0.9886E-01, 0.1162E+00, 0.1320E+00, 0.1552E+00,
- * 0.1820E+00, 0.2120E+00, 0.2457E+00, 0.2747E+00, 0.3210E+00,
- * 0.3711E+00, 0.4338E+00, 0.4887E+00, 0.5837E+00, 0.6498E+00,
- * 0.7571E+00, 0.8658E+00, 0.9953E+00, 0.1155E+01, 0.1299E+01,
- * 0.1498E+01, 0.1695E+01, 0.1936E+01, 0.2238E+01, 0.2501E+01,
- * 0.2871E+01, 0.3273E+01, 0.3754E+01, 0.4364E+01, 0.5061E+01,
- * 0.6005E+01, 0.7627E+01, 0.1032E+02, 0.1574E+02, 0.2932E+02,
- * 0.7389E+02, 0.3217E+03, 0.1844E+04 /
- DATA ((UHR(i,j),j=1,83),i= 2, 2)/
- *-0.7371E+00,-0.2069E+00, 0.1100E+00, 0.2090E+00, 0.2205E+00,
- * 0.1991E+00, 0.1714E+00, 0.1405E+00, 0.1101E+00, 0.9380E-01,
- * 0.8414E-01, 0.6728E-01, 0.5005E-01, 0.3647E-01, 0.2936E-01,
- * 0.1733E-01, 0.6293E-02, 0.3976E-03, 0.1455E-02,-0.3213E-02,
- * 0.5012E-03,-0.3795E-03,-0.3606E-02,-0.2712E-02, 0.8825E-03,
- * 0.3683E-03,-0.1942E-02,-0.1362E-02, 0.8682E-03, 0.3818E-02,
- * 0.7277E-02, 0.8885E-02, 0.1318E-01, 0.1908E-01, 0.2488E-01,
- * 0.2793E-01, 0.3077E-01, 0.3552E-01, 0.3997E-01, 0.4453E-01,
- * 0.5067E-01, 0.5686E-01, 0.5724E-01, 0.6685E-01, 0.8308E-01,
- * 0.9196E-01, 0.1046E+00, 0.1215E+00, 0.1430E+00, 0.1602E+00,
- * 0.1813E+00, 0.2142E+00, 0.2490E+00, 0.2840E+00, 0.3269E+00,
- * 0.3818E+00, 0.4407E+00, 0.5003E+00, 0.5665E+00, 0.6671E+00,
- * 0.7721E+00, 0.8667E+00, 0.1003E+01, 0.1125E+01, 0.1317E+01,
- * 0.1502E+01, 0.1707E+01, 0.1929E+01, 0.2195E+01, 0.2552E+01,
- * 0.2887E+01, 0.3324E+01, 0.3799E+01, 0.4417E+01, 0.5306E+01,
- * 0.6402E+01, 0.8059E+01, 0.1094E+02, 0.1669E+02, 0.3095E+02,
- * 0.7554E+02, 0.2998E+03, 0.1405E+04 /
- DATA ((UHR(i,j),j=1,83),i= 3, 3)/
- *-0.8416E+00,-0.3336E+00, 0.9135E-01, 0.2252E+00, 0.2291E+00,
- * 0.2010E+00, 0.1750E+00, 0.1408E+00, 0.1050E+00, 0.1006E+00,
- * 0.8382E-01, 0.6330E-01, 0.4451E-01, 0.3715E-01, 0.2777E-01,
- * 0.1595E-01,-0.3422E-03,-0.2512E-02,-0.3530E-02,-0.1489E-02,
- *-0.1350E-02,-0.2088E-02,-0.3299E-02,-0.5737E-02,-0.2474E-02,
- *-0.1479E-03,-0.7506E-04, 0.2579E-02, 0.3300E-02, 0.4082E-02,
- * 0.6788E-02, 0.9169E-02, 0.1302E-01, 0.1588E-01, 0.2172E-01,
- * 0.2824E-01, 0.3144E-01, 0.3614E-01, 0.4318E-01, 0.4702E-01,
- * 0.5160E-01, 0.5825E-01, 0.6118E-01, 0.7179E-01, 0.7945E-01,
- * 0.9315E-01, 0.1078E+00, 0.1222E+00, 0.1414E+00, 0.1642E+00,
- * 0.1869E+00, 0.2160E+00, 0.2484E+00, 0.2934E+00, 0.3363E+00,
- * 0.3786E+00, 0.4398E+00, 0.5034E+00, 0.5749E+00, 0.6606E+00,
- * 0.7526E+00, 0.8687E+00, 0.9887E+00, 0.1126E+01, 0.1281E+01,
- * 0.1478E+01, 0.1685E+01, 0.1940E+01, 0.2169E+01, 0.2514E+01,
- * 0.2913E+01, 0.3329E+01, 0.3850E+01, 0.4472E+01, 0.5298E+01,
- * 0.6475E+01, 0.8152E+01, 0.1098E+02, 0.1701E+02, 0.3107E+02,
- * 0.7555E+02, 0.2950E+03, 0.1323E+04 /
- DATA ((UHR(i,j),j=1,83),i= 4, 4)/
- *-0.7122E+00,-0.3136E+00, 0.8403E-01, 0.1993E+00, 0.2105E+00,
- * 0.2002E+00, 0.1792E+00, 0.1470E+00, 0.1066E+00, 0.1020E+00,
- * 0.8936E-01, 0.6719E-01, 0.4886E-01, 0.3401E-01, 0.3445E-01,
- * 0.2153E-01, 0.6380E-02,-0.2794E-03, 0.2265E-02,-0.4472E-03,
- * 0.5364E-03, 0.5133E-03,-0.1371E-02,-0.2577E-02, 0.2268E-02,
- * 0.3891E-02, 0.1116E-02, 0.2810E-02, 0.2739E-02, 0.4702E-02,
- * 0.8594E-02, 0.1042E-01, 0.1405E-01, 0.2009E-01, 0.2662E-01,
- * 0.2858E-01, 0.3317E-01, 0.3922E-01, 0.4341E-01, 0.4793E-01,
- * 0.5442E-01, 0.6102E-01, 0.6086E-01, 0.7101E-01, 0.8426E-01,
- * 0.9396E-01, 0.1087E+00, 0.1254E+00, 0.1472E+00, 0.1664E+00,
- * 0.1890E+00, 0.2186E+00, 0.2529E+00, 0.2941E+00, 0.3354E+00,
- * 0.3837E+00, 0.4436E+00, 0.5064E+00, 0.5696E+00, 0.6681E+00,
- * 0.7630E+00, 0.8767E+00, 0.9972E+00, 0.1128E+01, 0.1305E+01,
- * 0.1499E+01, 0.1699E+01, 0.1942E+01, 0.2207E+01, 0.2569E+01,
- * 0.2944E+01, 0.3385E+01, 0.3902E+01, 0.4559E+01, 0.5443E+01,
- * 0.6633E+01, 0.8412E+01, 0.1146E+02, 0.1748E+02, 0.3186E+02,
- * 0.7563E+02, 0.2820E+03, 0.1138E+04 /
- DATA ((UHR(i,j),j=1,83),i= 5, 5)/
- *-0.8664E+00,-0.3516E+00, 0.9632E-01, 0.2176E+00, 0.2284E+00,
- * 0.2014E+00, 0.1735E+00, 0.1546E+00, 0.1331E+00, 0.9517E-01,
- * 0.8239E-01, 0.6215E-01, 0.4210E-01, 0.3817E-01, 0.1735E-01,
- * 0.6287E-02, 0.8136E-02, 0.3077E-02,-0.3569E-02,-0.2117E-02,
- *-0.1946E-02,-0.3192E-02, 0.6389E-03, 0.4394E-03,-0.1090E-02,
- *-0.8206E-03, 0.6905E-04, 0.1113E-02, 0.7230E-02, 0.9120E-02,
- * 0.1113E-01, 0.1523E-01, 0.1948E-01, 0.2122E-01, 0.2494E-01,
- * 0.2981E-01, 0.3346E-01, 0.4134E-01, 0.4615E-01, 0.5214E-01,
- * 0.5890E-01, 0.6197E-01, 0.7025E-01, 0.7636E-01, 0.8270E-01,
- * 0.9810E-01, 0.1174E+00, 0.1311E+00, 0.1480E+00, 0.1729E+00,
- * 0.2052E+00, 0.2238E+00, 0.2569E+00, 0.3010E+00, 0.3419E+00,
- * 0.3865E+00, 0.4409E+00, 0.5070E+00, 0.5896E+00, 0.6670E+00,
- * 0.7513E+00, 0.8728E+00, 0.9981E+00, 0.1146E+01, 0.1286E+01,
- * 0.1481E+01, 0.1713E+01, 0.1953E+01, 0.2246E+01, 0.2564E+01,
- * 0.2951E+01, 0.3429E+01, 0.3999E+01, 0.4681E+01, 0.5514E+01,
- * 0.6738E+01, 0.8539E+01, 0.1173E+02, 0.1797E+02, 0.3211E+02,
- * 0.7517E+02, 0.2713E+03, 0.1019E+04 /
- DATA ((UHR(i,j),j=1,83),i= 6, 6)/
- *-0.6608E+00,-0.2564E+00, 0.5049E-01, 0.1855E+00, 0.2171E+00,
- * 0.1947E+00, 0.1732E+00, 0.1510E+00, 0.1202E+00, 0.9626E-01,
- * 0.7806E-01, 0.6872E-01, 0.5575E-01, 0.3391E-01, 0.2664E-01,
- * 0.2403E-01, 0.7792E-02, 0.2567E-02, 0.5055E-02, 0.1865E-02,
- * 0.3724E-02, 0.2628E-02,-0.9249E-03, 0.1178E-02, 0.2739E-02,
- * 0.1562E-02, 0.2546E-02, 0.2344E-02, 0.4967E-02, 0.8470E-02,
- * 0.1109E-01, 0.1367E-01, 0.1831E-01, 0.2340E-01, 0.2935E-01,
- * 0.3149E-01, 0.3429E-01, 0.3978E-01, 0.4564E-01, 0.5085E-01,
- * 0.5827E-01, 0.6404E-01, 0.6469E-01, 0.7351E-01, 0.8817E-01,
- * 0.9956E-01, 0.1115E+00, 0.1276E+00, 0.1492E+00, 0.1686E+00,
- * 0.1886E+00, 0.2221E+00, 0.2572E+00, 0.2898E+00, 0.3335E+00,
- * 0.3927E+00, 0.4463E+00, 0.5085E+00, 0.5800E+00, 0.6761E+00,
- * 0.7810E+00, 0.8779E+00, 0.1015E+01, 0.1153E+01, 0.1340E+01,
- * 0.1522E+01, 0.1748E+01, 0.1985E+01, 0.2265E+01, 0.2636E+01,
- * 0.3011E+01, 0.3462E+01, 0.3973E+01, 0.4675E+01, 0.5664E+01,
- * 0.6881E+01, 0.8720E+01, 0.1196E+02, 0.1817E+02, 0.3278E+02,
- * 0.7552E+02, 0.2627E+03, 0.9417E+03 /
- DATA ((UHR(i,j),j=1,83),i= 7, 7)/
- *-0.6706E+00,-0.3198E+00, 0.4301E-01, 0.1719E+00, 0.2037E+00,
- * 0.2043E+00, 0.1804E+00, 0.1490E+00, 0.1157E+00, 0.1037E+00,
- * 0.9017E-01, 0.6776E-01, 0.4827E-01, 0.3547E-01, 0.3437E-01,
- * 0.2049E-01, 0.8467E-02, 0.4040E-02, 0.5856E-02, 0.4377E-03,
- * 0.4102E-02, 0.4671E-02, 0.1700E-02, 0.1434E-02, 0.5700E-02,
- * 0.6306E-02, 0.3382E-02, 0.5572E-02, 0.5700E-02, 0.7806E-02,
- * 0.1250E-01, 0.1375E-01, 0.1729E-01, 0.2386E-01, 0.2992E-01,
- * 0.3261E-01, 0.3714E-01, 0.4285E-01, 0.4749E-01, 0.5290E-01,
- * 0.5921E-01, 0.6534E-01, 0.6603E-01, 0.7655E-01, 0.9017E-01,
- * 0.1003E+00, 0.1156E+00, 0.1324E+00, 0.1545E+00, 0.1743E+00,
- * 0.1961E+00, 0.2268E+00, 0.2609E+00, 0.2997E+00, 0.3424E+00,
- * 0.3936E+00, 0.4521E+00, 0.5162E+00, 0.5815E+00, 0.6780E+00,
- * 0.7763E+00, 0.8903E+00, 0.1014E+01, 0.1144E+01, 0.1331E+01,
- * 0.1529E+01, 0.1730E+01, 0.1979E+01, 0.2261E+01, 0.2622E+01,
- * 0.3010E+01, 0.3489E+01, 0.4041E+01, 0.4737E+01, 0.5717E+01,
- * 0.7025E+01, 0.8932E+01, 0.1221E+02, 0.1851E+02, 0.3308E+02,
- * 0.7502E+02, 0.2533E+03, 0.8424E+03 /
- DATA ((UHR(i,j),j=1,83),i= 8, 8)/
- *-0.5889E+00,-0.3041E+00, 0.2199E-01, 0.1577E+00, 0.1853E+00,
- * 0.1850E+00, 0.1764E+00, 0.1473E+00, 0.1235E+00, 0.9957E-01,
- * 0.7441E-01, 0.5497E-01, 0.4692E-01, 0.3867E-01, 0.2592E-01,
- * 0.1610E-01, 0.1415E-01, 0.9052E-02, 0.6789E-02, 0.5208E-02,
- * 0.2953E-02, 0.2873E-02, 0.4717E-02, 0.4994E-02, 0.3266E-02,
- * 0.3654E-02, 0.7610E-02, 0.7326E-02, 0.7803E-02, 0.1208E-01,
- * 0.1616E-01, 0.1940E-01, 0.2363E-01, 0.2678E-01, 0.2864E-01,
- * 0.3244E-01, 0.3814E-01, 0.4209E-01, 0.4724E-01, 0.5458E-01,
- * 0.6271E-01, 0.6451E-01, 0.6961E-01, 0.7940E-01, 0.9111E-01,
- * 0.1023E+00, 0.1150E+00, 0.1335E+00, 0.1527E+00, 0.1724E+00,
- * 0.1998E+00, 0.2290E+00, 0.2647E+00, 0.2929E+00, 0.3385E+00,
- * 0.3947E+00, 0.4513E+00, 0.5129E+00, 0.5945E+00, 0.6797E+00,
- * 0.7785E+00, 0.8884E+00, 0.1023E+01, 0.1182E+01, 0.1350E+01,
- * 0.1537E+01, 0.1769E+01, 0.2039E+01, 0.2358E+01, 0.2688E+01,
- * 0.3095E+01, 0.3591E+01, 0.4189E+01, 0.4935E+01, 0.5862E+01,
- * 0.7155E+01, 0.9233E+01, 0.1268E+02, 0.1905E+02, 0.3368E+02,
- * 0.7418E+02, 0.2390E+03, 0.7401E+03 /
- DATA ((UHR(i,j),j=1,83),i= 9, 9)/
- *-0.6593E+00,-0.3391E+00, 0.8364E-02, 0.1549E+00, 0.1888E+00,
- * 0.1881E+00, 0.1804E+00, 0.1559E+00, 0.1343E+00, 0.9504E-01,
- * 0.7598E-01, 0.6421E-01, 0.4938E-01, 0.4081E-01, 0.2308E-01,
- * 0.1172E-01, 0.1688E-01, 0.1230E-01, 0.3472E-02, 0.4617E-02,
- * 0.2471E-02, 0.4665E-02, 0.6909E-02, 0.7610E-02, 0.5710E-02,
- * 0.6339E-02, 0.7626E-02, 0.9925E-02, 0.1292E-01, 0.1354E-01,
- * 0.1763E-01, 0.2100E-01, 0.2619E-01, 0.2812E-01, 0.3083E-01,
- * 0.3404E-01, 0.4007E-01, 0.4421E-01, 0.5155E-01, 0.5915E-01,
- * 0.6470E-01, 0.6747E-01, 0.7480E-01, 0.8388E-01, 0.9402E-01,
- * 0.1055E+00, 0.1228E+00, 0.1376E+00, 0.1558E+00, 0.1806E+00,
- * 0.2092E+00, 0.2346E+00, 0.2644E+00, 0.3067E+00, 0.3496E+00,
- * 0.3989E+00, 0.4515E+00, 0.5236E+00, 0.6013E+00, 0.6781E+00,
- * 0.7775E+00, 0.8857E+00, 0.1020E+01, 0.1174E+01, 0.1333E+01,
- * 0.1525E+01, 0.1764E+01, 0.2044E+01, 0.2347E+01, 0.2701E+01,
- * 0.3130E+01, 0.3630E+01, 0.4280E+01, 0.5044E+01, 0.5992E+01,
- * 0.7370E+01, 0.9457E+01, 0.1297E+02, 0.1955E+02, 0.3393E+02,
- * 0.7306E+02, 0.2264E+03, 0.6436E+03 /
- DATA ((UHR(i,j),j=1,83),i=10,10)/
- *-0.6636E+00,-0.3651E+00,-0.1746E-01, 0.1192E+00, 0.1931E+00,
- * 0.1981E+00, 0.1730E+00, 0.1437E+00, 0.1199E+00, 0.1009E+00,
- * 0.8032E-01, 0.6715E-01, 0.5098E-01, 0.3847E-01, 0.2976E-01,
- * 0.1945E-01, 0.7791E-02, 0.6595E-02, 0.5837E-02, 0.6680E-02,
- * 0.5578E-02, 0.5310E-02, 0.6381E-02, 0.6208E-02, 0.6047E-02,
- * 0.7906E-02, 0.8396E-02, 0.1134E-01, 0.1415E-01, 0.1615E-01,
- * 0.1708E-01, 0.2139E-01, 0.2413E-01, 0.2692E-01, 0.3055E-01,
- * 0.3817E-01, 0.4198E-01, 0.4731E-01, 0.5276E-01, 0.5833E-01,
- * 0.6646E-01, 0.7209E-01, 0.7664E-01, 0.8648E-01, 0.9355E-01,
- * 0.1083E+00, 0.1244E+00, 0.1407E+00, 0.1572E+00, 0.1803E+00,
- * 0.2079E+00, 0.2315E+00, 0.2659E+00, 0.3075E+00, 0.3533E+00,
- * 0.3942E+00, 0.4533E+00, 0.5211E+00, 0.6011E+00, 0.6814E+00,
- * 0.7740E+00, 0.9063E+00, 0.1027E+01, 0.1181E+01, 0.1344E+01,
- * 0.1559E+01, 0.1783E+01, 0.2059E+01, 0.2359E+01, 0.2709E+01,
- * 0.3165E+01, 0.3684E+01, 0.4326E+01, 0.5101E+01, 0.6123E+01,
- * 0.7621E+01, 0.9795E+01, 0.1327E+02, 0.2000E+02, 0.3426E+02,
- * 0.7204E+02, 0.2140E+03, 0.5606E+03 /
- DATA ((UHR(i,j),j=1,83),i=11,11)/
- *-0.5688E+00,-0.3293E+00,-0.2160E-01, 0.1168E+00, 0.1559E+00,
- * 0.1794E+00, 0.1709E+00, 0.1498E+00, 0.1308E+00, 0.9775E-01,
- * 0.7300E-01, 0.5842E-01, 0.4893E-01, 0.3945E-01, 0.2725E-01,
- * 0.1045E-01, 0.2091E-01, 0.1823E-01, 0.8151E-02, 0.9053E-02,
- * 0.6726E-02, 0.7144E-02, 0.1054E-01, 0.1033E-01, 0.8399E-02,
- * 0.9657E-02, 0.1143E-01, 0.1189E-01, 0.1542E-01, 0.1610E-01,
- * 0.1942E-01, 0.2356E-01, 0.2721E-01, 0.3069E-01, 0.3326E-01,
- * 0.3684E-01, 0.4270E-01, 0.4649E-01, 0.5345E-01, 0.6171E-01,
- * 0.6764E-01, 0.6934E-01, 0.7545E-01, 0.8753E-01, 0.9770E-01,
- * 0.1084E+00, 0.1249E+00, 0.1418E+00, 0.1593E+00, 0.1824E+00,
- * 0.2086E+00, 0.2389E+00, 0.2686E+00, 0.3051E+00, 0.3524E+00,
- * 0.4012E+00, 0.4587E+00, 0.5242E+00, 0.6075E+00, 0.6836E+00,
- * 0.7891E+00, 0.8994E+00, 0.1038E+01, 0.1196E+01, 0.1364E+01,
- * 0.1558E+01, 0.1808E+01, 0.2095E+01, 0.2414E+01, 0.2782E+01,
- * 0.3243E+01, 0.3759E+01, 0.4442E+01, 0.5265E+01, 0.6297E+01,
- * 0.7730E+01, 0.9962E+01, 0.1366E+02, 0.2032E+02, 0.3448E+02,
- * 0.7086E+02, 0.2021E+03, 0.5002E+03 /
- DATA ((UHR(i,j),j=1,83),i=12,12)/
- *-0.5587E+00,-0.3274E+00,-0.4008E-01, 0.1140E+00, 0.1774E+00,
- * 0.1834E+00, 0.1683E+00, 0.1485E+00, 0.1220E+00, 0.1030E+00,
- * 0.8363E-01, 0.6368E-01, 0.5153E-01, 0.3881E-01, 0.3151E-01,
- * 0.2560E-01, 0.1660E-01, 0.1176E-01, 0.1176E-01, 0.1015E-01,
- * 0.1212E-01, 0.1034E-01, 0.8066E-02, 0.9159E-02, 0.1119E-01,
- * 0.1101E-01, 0.1041E-01, 0.1083E-01, 0.1326E-01, 0.1673E-01,
- * 0.2001E-01, 0.2191E-01, 0.2539E-01, 0.3158E-01, 0.3700E-01,
- * 0.3955E-01, 0.4345E-01, 0.4933E-01, 0.5397E-01, 0.6058E-01,
- * 0.6889E-01, 0.7388E-01, 0.7673E-01, 0.8589E-01, 0.9998E-01,
- * 0.1118E+00, 0.1247E+00, 0.1419E+00, 0.1632E+00, 0.1817E+00,
- * 0.2045E+00, 0.2356E+00, 0.2719E+00, 0.3053E+00, 0.3478E+00,
- * 0.4032E+00, 0.4600E+00, 0.5230E+00, 0.5951E+00, 0.6927E+00,
- * 0.7986E+00, 0.9034E+00, 0.1042E+01, 0.1189E+01, 0.1383E+01,
- * 0.1592E+01, 0.1821E+01, 0.2087E+01, 0.2409E+01, 0.2807E+01,
- * 0.3232E+01, 0.3774E+01, 0.4394E+01, 0.5224E+01, 0.6392E+01,
- * 0.7899E+01, 0.1010E+02, 0.1373E+02, 0.2039E+02, 0.3457E+02,
- * 0.7078E+02, 0.1962E+03, 0.4667E+03 /
- DATA ((UHR(i,j),j=1,83),i=13,13)/
- *-0.5378E+00,-0.3285E+00,-0.4629E-01, 0.9712E-01, 0.1408E+00,
- * 0.1680E+00, 0.1685E+00, 0.1478E+00, 0.1240E+00, 0.9613E-01,
- * 0.7267E-01, 0.5809E-01, 0.4780E-01, 0.3904E-01, 0.2642E-01,
- * 0.1512E-01, 0.2154E-01, 0.1900E-01, 0.1230E-01, 0.1123E-01,
- * 0.9375E-02, 0.9789E-02, 0.1182E-01, 0.1229E-01, 0.1105E-01,
- * 0.1169E-01, 0.1397E-01, 0.1553E-01, 0.1730E-01, 0.1899E-01,
- * 0.2263E-01, 0.2562E-01, 0.3010E-01, 0.3259E-01, 0.3540E-01,
- * 0.3981E-01, 0.4567E-01, 0.4981E-01, 0.5782E-01, 0.6443E-01,
- * 0.7186E-01, 0.7388E-01, 0.7914E-01, 0.9051E-01, 0.1021E+00,
- * 0.1125E+00, 0.1281E+00, 0.1461E+00, 0.1630E+00, 0.1850E+00,
- * 0.2130E+00, 0.2424E+00, 0.2725E+00, 0.3088E+00, 0.3551E+00,
- * 0.4043E+00, 0.4636E+00, 0.5248E+00, 0.6120E+00, 0.6907E+00,
- * 0.7937E+00, 0.9086E+00, 0.1055E+01, 0.1210E+01, 0.1387E+01,
- * 0.1594E+01, 0.1845E+01, 0.2137E+01, 0.2481E+01, 0.2857E+01,
- * 0.3339E+01, 0.3902E+01, 0.4603E+01, 0.5486E+01, 0.6591E+01,
- * 0.8117E+01, 0.1046E+02, 0.1426E+02, 0.2095E+02, 0.3473E+02,
- * 0.6822E+02, 0.1793E+03, 0.3911E+03 /
- DATA ((UHR(i,j),j=1,83),i=14,14)/
- *-0.5168E+00,-0.3438E+00,-0.6097E-01, 0.8793E-01, 0.1405E+00,
- * 0.1646E+00, 0.1628E+00, 0.1442E+00, 0.1247E+00, 0.9378E-01,
- * 0.7476E-01, 0.6281E-01, 0.4919E-01, 0.3882E-01, 0.2669E-01,
- * 0.1515E-01, 0.2085E-01, 0.1814E-01, 0.1036E-01, 0.1216E-01,
- * 0.9457E-02, 0.1169E-01, 0.1460E-01, 0.1453E-01, 0.1394E-01,
- * 0.1413E-01, 0.1633E-01, 0.1773E-01, 0.2035E-01, 0.2221E-01,
- * 0.2462E-01, 0.2899E-01, 0.3353E-01, 0.3569E-01, 0.3918E-01,
- * 0.4318E-01, 0.4883E-01, 0.5382E-01, 0.6063E-01, 0.6961E-01,
- * 0.7470E-01, 0.7788E-01, 0.8467E-01, 0.9541E-01, 0.1055E+00,
- * 0.1180E+00, 0.1339E+00, 0.1499E+00, 0.1681E+00, 0.1912E+00,
- * 0.2183E+00, 0.2468E+00, 0.2760E+00, 0.3164E+00, 0.3611E+00,
- * 0.4104E+00, 0.4662E+00, 0.5354E+00, 0.6143E+00, 0.6954E+00,
- * 0.8001E+00, 0.9160E+00, 0.1059E+01, 0.1222E+01, 0.1399E+01,
- * 0.1608E+01, 0.1873E+01, 0.2176E+01, 0.2521E+01, 0.2926E+01,
- * 0.3434E+01, 0.4024E+01, 0.4787E+01, 0.5710E+01, 0.6868E+01,
- * 0.8504E+01, 0.1093E+02, 0.1475E+02, 0.2146E+02, 0.3459E+02,
- * 0.6527E+02, 0.1592E+03, 0.3092E+03 /
- DATA ((UHR(i,j),j=1,83),i=15,15)/
- *-0.3996E+00,-0.3168E+00,-0.1228E+00, 0.1827E-01, 0.9226E-01,
- * 0.1194E+00, 0.1239E+00, 0.1140E+00, 0.9693E-01, 0.8495E-01,
- * 0.7222E-01, 0.5605E-01, 0.4485E-01, 0.3834E-01, 0.3263E-01,
- * 0.2842E-01, 0.2225E-01, 0.1883E-01, 0.1916E-01, 0.1937E-01,
- * 0.1935E-01, 0.1982E-01, 0.1889E-01, 0.1784E-01, 0.2071E-01,
- * 0.2268E-01, 0.2282E-01, 0.2415E-01, 0.2597E-01, 0.2800E-01,
- * 0.3068E-01, 0.3297E-01, 0.3614E-01, 0.4040E-01, 0.4572E-01,
- * 0.5020E-01, 0.5506E-01, 0.6099E-01, 0.6752E-01, 0.7365E-01,
- * 0.8126E-01, 0.8619E-01, 0.9118E-01, 0.1010E+00, 0.1111E+00,
- * 0.1247E+00, 0.1396E+00, 0.1558E+00, 0.1759E+00, 0.1983E+00,
- * 0.2222E+00, 0.2502E+00, 0.2848E+00, 0.3254E+00, 0.3679E+00,
- * 0.4154E+00, 0.4781E+00, 0.5479E+00, 0.6221E+00, 0.7134E+00,
- * 0.8247E+00, 0.9508E+00, 0.1090E+01, 0.1261E+01, 0.1461E+01,
- * 0.1705E+01, 0.1980E+01, 0.2309E+01, 0.2693E+01, 0.3179E+01,
- * 0.3754E+01, 0.4436E+01, 0.5285E+01, 0.6362E+01, 0.7768E+01,
- * 0.9639E+01, 0.1222E+02, 0.1605E+02, 0.2228E+02, 0.3338E+02,
- * 0.5602E+02, 0.1104E+03, 0.1619E+03 /
- DATA ((UHR(i,j),j=1,83),i=16,16)/
- *-0.3001E+00,-0.2572E+00,-0.1320E+00,-0.2010E-01, 0.4422E-01,
- * 0.7563E-01, 0.8821E-01, 0.8727E-01, 0.7862E-01, 0.6639E-01,
- * 0.5388E-01, 0.4542E-01, 0.3776E-01, 0.3177E-01, 0.2771E-01,
- * 0.2399E-01, 0.2183E-01, 0.2161E-01, 0.2033E-01, 0.1909E-01,
- * 0.1917E-01, 0.1939E-01, 0.2009E-01, 0.2156E-01, 0.2164E-01,
- * 0.2229E-01, 0.2475E-01, 0.2657E-01, 0.2792E-01, 0.3036E-01,
- * 0.3320E-01, 0.3623E-01, 0.3949E-01, 0.4289E-01, 0.4617E-01,
- * 0.5076E-01, 0.5606E-01, 0.6098E-01, 0.6700E-01, 0.7474E-01,
- * 0.8249E-01, 0.8622E-01, 0.9038E-01, 0.1005E+00, 0.1125E+00,
- * 0.1253E+00, 0.1388E+00, 0.1561E+00, 0.1755E+00, 0.1963E+00,
- * 0.2214E+00, 0.2521E+00, 0.2848E+00, 0.3217E+00, 0.3663E+00,
- * 0.4196E+00, 0.4784E+00, 0.5467E+00, 0.6280E+00, 0.7239E+00,
- * 0.8331E+00, 0.9599E+00, 0.1113E+01, 0.1295E+01, 0.1508E+01,
- * 0.1754E+01, 0.2053E+01, 0.2412E+01, 0.2845E+01, 0.3351E+01,
- * 0.3963E+01, 0.4726E+01, 0.5662E+01, 0.6828E+01, 0.8299E+01,
- * 0.1023E+02, 0.1289E+02, 0.1674E+02, 0.2259E+02, 0.3241E+02,
- * 0.5058E+02, 0.8807E+02, 0.1147E+03 /
- DATA ((UHR(i,j),j=1,83),i=17,17)/
- *-0.2823E+00,-0.2452E+00,-0.1304E+00,-0.2797E-01, 0.3310E-01,
- * 0.6589E-01, 0.8013E-01, 0.7979E-01, 0.7176E-01, 0.6056E-01,
- * 0.5007E-01, 0.4322E-01, 0.3693E-01, 0.3125E-01, 0.2626E-01,
- * 0.2268E-01, 0.2242E-01, 0.2178E-01, 0.1981E-01, 0.1903E-01,
- * 0.1882E-01, 0.1913E-01, 0.2066E-01, 0.2198E-01, 0.2199E-01,
- * 0.2280E-01, 0.2518E-01, 0.2712E-01, 0.2865E-01, 0.3087E-01,
- * 0.3344E-01, 0.3626E-01, 0.3996E-01, 0.4317E-01, 0.4626E-01,
- * 0.5076E-01, 0.5599E-01, 0.6105E-01, 0.6718E-01, 0.7457E-01,
- * 0.8209E-01, 0.8588E-01, 0.9003E-01, 0.1002E+00, 0.1122E+00,
- * 0.1243E+00, 0.1384E+00, 0.1556E+00, 0.1744E+00, 0.1953E+00,
- * 0.2211E+00, 0.2506E+00, 0.2833E+00, 0.3205E+00, 0.3654E+00,
- * 0.4183E+00, 0.4771E+00, 0.5455E+00, 0.6285E+00, 0.7237E+00,
- * 0.8331E+00, 0.9629E+00, 0.1119E+01, 0.1303E+01, 0.1517E+01,
- * 0.1768E+01, 0.2075E+01, 0.2443E+01, 0.2882E+01, 0.3400E+01,
- * 0.4037E+01, 0.4821E+01, 0.5783E+01, 0.6978E+01, 0.8481E+01,
- * 0.1045E+02, 0.1313E+02, 0.1693E+02, 0.2263E+02, 0.3196E+02,
- * 0.4869E+02, 0.8146E+02, 0.1025E+03 /
- DATA ((UHR(i,j),j=1,83),i=18,18)/
- *-0.2252E+00,-0.2012E+00,-0.1206E+00,-0.4027E-01, 0.1409E-01,
- * 0.4580E-01, 0.5784E-01, 0.5822E-01, 0.5374E-01, 0.4651E-01,
- * 0.4075E-01, 0.3561E-01, 0.3126E-01, 0.2733E-01, 0.2306E-01,
- * 0.2054E-01, 0.1991E-01, 0.1853E-01, 0.1776E-01, 0.1820E-01,
- * 0.1831E-01, 0.1893E-01, 0.2021E-01, 0.2124E-01, 0.2228E-01,
- * 0.2362E-01, 0.2499E-01, 0.2684E-01, 0.2928E-01, 0.3124E-01,
- * 0.3319E-01, 0.3620E-01, 0.3956E-01, 0.4284E-01, 0.4656E-01,
- * 0.5099E-01, 0.5587E-01, 0.6142E-01, 0.6764E-01, 0.7421E-01,
- * 0.8162E-01, 0.8595E-01, 0.9080E-01, 0.1008E+00, 0.1112E+00,
- * 0.1239E+00, 0.1392E+00, 0.1552E+00, 0.1734E+00, 0.1960E+00,
- * 0.2214E+00, 0.2491E+00, 0.2817E+00, 0.3210E+00, 0.3656E+00,
- * 0.4164E+00, 0.4760E+00, 0.5468E+00, 0.6288E+00, 0.7239E+00,
- * 0.8362E+00, 0.9702E+00, 0.1129E+01, 0.1315E+01, 0.1535E+01,
- * 0.1800E+01, 0.2119E+01, 0.2498E+01, 0.2955E+01, 0.3507E+01,
- * 0.4180E+01, 0.5000E+01, 0.6014E+01, 0.7266E+01, 0.8844E+01,
- * 0.1089E+02, 0.1359E+02, 0.1733E+02, 0.2274E+02, 0.3112E+02,
- * 0.4521E+02, 0.6977E+02, 0.8255E+02 /
- DATA ((UHR(i,j),j=1,83),i=19,19)/
- *-0.1310E+00,-0.1223E+00,-0.8941E-01,-0.4865E-01,-0.1497E-01,
- * 0.6717E-02, 0.1750E-01, 0.2105E-01, 0.2099E-01, 0.1948E-01,
- * 0.1779E-01, 0.1642E-01, 0.1511E-01, 0.1386E-01, 0.1282E-01,
- * 0.1222E-01, 0.1221E-01, 0.1227E-01, 0.1246E-01, 0.1295E-01,
- * 0.1350E-01, 0.1435E-01, 0.1545E-01, 0.1660E-01, 0.1776E-01,
- * 0.1899E-01, 0.2047E-01, 0.2222E-01, 0.2413E-01, 0.2606E-01,
- * 0.2818E-01, 0.3071E-01, 0.3364E-01, 0.3675E-01, 0.4013E-01,
- * 0.4405E-01, 0.4854E-01, 0.5350E-01, 0.5903E-01, 0.6528E-01,
- * 0.7238E-01, 0.7627E-01, 0.8041E-01, 0.8949E-01, 0.9980E-01,
- * 0.1116E+00, 0.1251E+00, 0.1404E+00, 0.1580E+00, 0.1783E+00,
- * 0.2018E+00, 0.2286E+00, 0.2597E+00, 0.2960E+00, 0.3381E+00,
- * 0.3871E+00, 0.4444E+00, 0.5117E+00, 0.5910E+00, 0.6842E+00,
- * 0.7944E+00, 0.9258E+00, 0.1082E+01, 0.1269E+01, 0.1492E+01,
- * 0.1762E+01, 0.2087E+01, 0.2481E+01, 0.2959E+01, 0.3543E+01,
- * 0.4259E+01, 0.5141E+01, 0.6236E+01, 0.7603E+01, 0.9331E+01,
- * 0.1155E+02, 0.1447E+02, 0.1843E+02, 0.2401E+02, 0.3234E+02,
- * 0.4558E+02, 0.6589E+02, 0.7490E+02 /
- DATA ((UHR(i,j),j=1,83),i=20,20)/
- *-0.2124E+00,-0.2030E+00,-0.1662E+00,-0.1175E+00,-0.7631E-01,
- *-0.4685E-01,-0.2746E-01,-0.1602E-01,-0.9286E-02,-0.5518E-02,
- *-0.3717E-02,-0.3145E-02,-0.2474E-02,-0.1032E-02, 0.7928E-03,
- * 0.2525E-02, 0.4049E-02, 0.5865E-02, 0.8004E-02, 0.1014E-01,
- * 0.1221E-01, 0.1418E-01, 0.1608E-01, 0.1824E-01, 0.2061E-01,
- * 0.2291E-01, 0.2532E-01, 0.2811E-01, 0.3125E-01, 0.3468E-01,
- * 0.3836E-01, 0.4230E-01, 0.4684E-01, 0.5219E-01, 0.5803E-01,
- * 0.6425E-01, 0.7121E-01, 0.7906E-01, 0.8776E-01, 0.9752E-01,
- * 0.1086E+00, 0.1146E+00, 0.1208E+00, 0.1344E+00, 0.1497E+00,
- * 0.1671E+00, 0.1868E+00, 0.2091E+00, 0.2344E+00, 0.2628E+00,
- * 0.2950E+00, 0.3321E+00, 0.3751E+00, 0.4240E+00, 0.4795E+00,
- * 0.5437E+00, 0.6179E+00, 0.7035E+00, 0.8024E+00, 0.9178E+00,
- * 0.1052E+01, 0.1208E+01, 0.1388E+01, 0.1600E+01, 0.1850E+01,
- * 0.2143E+01, 0.2485E+01, 0.2886E+01, 0.3361E+01, 0.3923E+01,
- * 0.4587E+01, 0.5373E+01, 0.6304E+01, 0.7422E+01, 0.8772E+01,
- * 0.1041E+02, 0.1242E+02, 0.1493E+02, 0.1815E+02, 0.2239E+02,
- * 0.2790E+02, 0.3310E+02, 0.3469E+02 /
-
-
-
- vi_m=4.99809027
- vi(3)=vi_m
- do 1 i=1,20
- asy(3,i)=asy_m(i)
- ex(3,i)=ex_m(i)
- sc(3,i)=sc_m(i)
- do 1 j=1,nquad
- ph(i,j)=phr(i,j)
- qh(i,j)=qhr(i,j)
- uh(i,j)=uhr(i,j)
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEA.h b/Modules/ThirdParty/6S/src/6SV1.0B/OCEA.h
deleted file mode 100644
index eb30801..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEA.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_ocea_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.P b/Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.P
deleted file mode 100644
index a60426d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int oceaalbe_(doublereal *pws, doublereal *paw, doublereal *xsal, doublereal *pcl, doublereal *pwl, doublereal *brdfalbe);
-/*:ref: indwat_ 14 4 7 7 7 7 */
-/*:ref: morcasiwat_ 14 3 7 7 7 */
-/*:ref: glitalbe_ 14 5 7 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.c b/Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.c
deleted file mode 100644
index 3a7026a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.c
+++ /dev/null
@@ -1,107 +0,0 @@
-/* OCEAALBE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static doublereal c_b2 = 3.52;
-
-/*< >*/
-/* Subroutine */ int oceaalbe_(doublereal *pws, doublereal *paw, doublereal *
- xsal, doublereal *pcl, doublereal *pwl, doublereal *brdfalbe)
-{
- /* Initialized data */
-
- static doublereal ref[39] = { .22,.22,.22,.22,.22,.22,.215,.21,.2,.19,
- .175,.155,.13,.08,.1,.105,.1,.08,.045,.055,.065,.06,.055,.04,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0. };
-
- /* Builtin functions */
- double pow_dd(doublereal *, doublereal *);
-
- /* Local variables */
- extern /* Subroutine */ int glitalbe_(doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *);
- doublereal a, c__, w, ni, nr, wl, rw;
- extern /* Subroutine */ int morcasiwat_(doublereal *, doublereal *,
- doublereal *);
- doublereal rwb, rwc;
- integer iwl;
- doublereal azw, wlp, wspd, ref_i__;
- extern /* Subroutine */ int indwat_(doublereal *, doublereal *,
- doublereal *, doublereal *);
- doublereal rogalbe;
-
-/* INPUT: pws=speed of wind (in m/s) */
-/* paw=azim. of sun - azim. of wind (in deg.) */
-/* xsal=salinity (in ppt) */
-/* pcl=pigment concentration (in mg.m-3) */
-/* pwl=wavelength of the computation (in micrometer) */
-/* OUTPUT: brdfalbe=the spherical albedo of the ocean */
-
-/*< real Ref(39) >*/
-/*< real pwl,azw,pcl,wl,wspd,C,pws,brdfalbe,w,wlp,paw >*/
-/*< real ref_i,rwc,rw,rogalbe,a,rwb,xsal >*/
-/*< real nr,ni >*/
-/*< integer iwl >*/
-/* effective reflectance of the whitecaps (Koepke, 1984) */
-/*< >*/
-/* conversion of parameter */
-/*< C=pcl >*/
- c__ = *pcl;
-/*< wspd=pws >*/
- wspd = *pws;
-/*< azw=paw >*/
- azw = *paw;
-/*< wl=pwl >*/
- wl = *pwl;
-/* COMPUTE WHITECAPS REFLECTANCE (LAMBERTIAN) */
-/*< W=2.95e-06*(wspd**3.52) >*/
- w = pow_dd(&wspd, &c_b2) * 2.95e-6;
-/*< iwl=1+int((wl-0.2)/0.1) >*/
- iwl = (integer) ((wl - .2) / .1) + 1;
-/*< wlp=0.5+(iwl-1)*0.1 >*/
- wlp = (iwl - 1) * .1 + .5;
-/*< Ref_i=ref(iwl+1)+(wl-wlp)/0.1*(ref(iwl)-ref(iwl+1)) >*/
- ref_i__ = ref[iwl] + (wl - wlp) / .1 * (ref[iwl - 1] - ref[iwl]);
-/*< Rwc=W*Ref_i >*/
- rwc = w * ref_i__;
-/* COMPUTE WATER REFRACTION INDEX */
-/*< call indwat(wl,xsal,nr,ni) >*/
- indwat_(&wl, xsal, &nr, &ni);
-/* COMPUTE BACKSCATTERED REFLECTANCE FROM THE SEA WATER (LAMBERTIAN) */
-/* water reflectance below the sea surface */
-/*< call morcasiwat(wl,C,Rw) >*/
- morcasiwat_(&wl, &c__, &rw);
-/* SUNGLINT spherical albedo */
-/*< call glitalbe(wspd,nr,ni,azw,rogalbe) >*/
- glitalbe_(&wspd, &nr, &ni, &azw, &rogalbe);
-/* water reflectance above the sea surface, (albedo re=0.485) */
-/* albedo is a=re is taken from table 2 of Austin,1974,The remote sensing
-*/
-/* of spectral radiance from below the ocean surface, in Optical */
-/* Aspects of Oceanography (N.G. Jerlov and E. Steeman Nielsen,Eds), */
-/* Academic,London,pp. 317-344 */
-/*< a=0.485 >*/
- a = .485;
-/*< Rwb=(1.-Rogalbe)*(1.-a)*Rw/(1-a*Rw) >*/
- rwb = (1. - rogalbe) * (1. - a) * rw / (1 - a * rw);
-/* SPHERICAL ALBEDO OF SEA WATER */
-/*< brdfalbe=Rwc+(1-W)*Rogalbe+(1-Rwc)*Rwb >*/
- *brdfalbe = rwc + (1 - w) * rogalbe + (1 - rwc) * rwb;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* oceaalbe_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.f b/Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.f
deleted file mode 100644
index 380dd93..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.f
+++ /dev/null
@@ -1,51 +0,0 @@
- subroutine oceaalbe(pws,paw,xsal,pcl,pwl,
- s brdfalbe)
-C INPUT: pws=speed of wind (in m/s)
-C paw=azim. of sun - azim. of wind (in deg.)
-C xsal=salinity (in ppt)
-C pcl=pigment concentration (in mg.m-3)
-C pwl=wavelength of the computation (in micrometer)
-C OUTPUT: brdfalbe=the spherical albedo of the ocean
-C
- real Ref(39)
- real pwl,azw,pcl,wl,wspd,C,pws,brdfalbe,w,wlp,paw
- real ref_i,rwc,rw,rogalbe,a,rwb,xsal
- real nr,ni
- integer iwl
-
-c effective reflectance of the whitecaps (Koepke, 1984)
- data Ref/
- &0.220,0.220,0.220,0.220,0.220,0.220,0.215,0.210,0.200,0.190,
- &0.175,0.155,0.130,0.080,0.100,0.105,0.100,0.080,0.045,0.055,
- &0.065,0.060,0.055,0.040,0.000,0.000,0.000,0.000,0.000,0.000,
- &0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000/
-C conversion of parameter
- C=pcl
- wspd=pws
- azw=paw
- wl=pwl
-
-C COMPUTE WHITECAPS REFLECTANCE (LAMBERTIAN)
- W=2.95e-06*(wspd**3.52)
- iwl=1+int((wl-0.2)/0.1)
- wlp=0.5+(iwl-1)*0.1
- Ref_i=ref(iwl+1)+(wl-wlp)/0.1*(ref(iwl)-ref(iwl+1))
- Rwc=W*Ref_i
-C COMPUTE WATER REFRACTION INDEX
- call indwat(wl,xsal,nr,ni)
-C COMPUTE BACKSCATTERED REFLECTANCE FROM THE SEA WATER (LAMBERTIAN)
-C water reflectance below the sea surface
- call morcasiwat(wl,C,Rw)
-C SUNGLINT spherical albedo
- call glitalbe(wspd,nr,ni,azw,rogalbe)
-C water reflectance above the sea surface, (albedo re=0.485)
-C albedo is a=re is taken from table 2 of Austin,1974,The remote sensing
-C of spectral radiance from below the ocean surface, in Optical
-C Aspects of Oceanography (N.G. Jerlov and E. Steeman Nielsen,Eds),
-C Academic,London,pp. 317-344
- a=0.485
- Rwb=(1.-Rogalbe)*(1.-a)*Rw/(1-a*Rw)
-C SPHERICAL ALBEDO OF SEA WATER
- brdfalbe=Rwc+(1-W)*Rogalbe+(1-Rwc)*Rwb
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.h b/Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.h
deleted file mode 100644
index 6eb58be..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEAALBE.h
+++ /dev/null
@@ -1,8 +0,0 @@
-extern int otb_6s_oceaalbe_(
- otb_6s_doublereal *pws,
- otb_6s_doublereal *paw,
- otb_6s_doublereal *xsal,
- otb_6s_doublereal *pcl,
- otb_6s_doublereal *pwl,
- otb_6s_doublereal *brdfalbe
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.P b/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.P
deleted file mode 100644
index a3f7f16..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.P
+++ /dev/null
@@ -1,5 +0,0 @@
-extern int oceabrdf_(doublereal *pws, doublereal *paw, doublereal *xsal, doublereal *pcl, doublereal *pwl, doublereal *rfoam, doublereal *rwat, doublereal *rglit, integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal *brdfint);
-/*:ref: indwat_ 14 4 7 7 7 7 */
-/*:ref: morcasiwat_ 14 3 7 7 7 */
-/*:ref: gauss_ 14 5 7 7 7 7 4 */
-/*:ref: sunglint_ 14 8 7 7 7 7 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.c b/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.c
deleted file mode 100644
index df0a255..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.c
+++ /dev/null
@@ -1,285 +0,0 @@
-/* OCEABRDF.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static doublereal c_b2 = 3.52;
-static integer c__24 = 24;
-static integer c__48 = 48;
-static doublereal c_b6 = 0.;
-
-/*< >*/
-/* Subroutine */ int oceabrdf_(doublereal *pws, doublereal *paw, doublereal *
- xsal, doublereal *pcl, doublereal *pwl, doublereal *rfoam, doublereal
- *rwat, doublereal *rglit, integer *mu, integer *np, doublereal *rm,
- doublereal *rp, doublereal *brdfint)
-{
- /* Initialized data */
-
- static doublereal ref[39] = { .22,.22,.22,.22,.22,.22,.215,.21,.2,.19,
- .175,.155,.13,.08,.1,.105,.1,.08,.045,.055,.065,.06,.055,.04,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0. };
-
- /* System generated locals */
- integer rm_offset, brdfint_dim1, brdfint_offset, i__1, i__2;
- doublereal d__1;
-
- /* Builtin functions */
- double atan(doublereal), acos(doublereal), sqrt(doublereal), pow_dd(
- doublereal *, doublereal *), cos(doublereal), sin(doublereal),
- asin(doublereal);
-
- /* Local variables */
- extern /* Subroutine */ int sunglint_(doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *);
- doublereal a, c__;
- integer j, k, m, n;
- doublereal w, fa[48], fi, n12, ta[24], ni, pi, nr, wl, tp, rw, tw;
- extern /* Subroutine */ int morcasiwat_(doublereal *, doublereal *,
- doublereal *);
- doublereal fac, wfa[48], fip, rog, tds;
- integer iwl;
- doublereal wta[24], rwc, tdv, rwb, azw, wlp, phi1, phi2, pond, rogp, wspd,
- summ, teta1, teta2, ref_i__, tetas;
- extern /* Subroutine */ int gauss_(doublereal *, doublereal *, doublereal
- *, doublereal *, integer *);
- doublereal tetav;
- extern /* Subroutine */ int indwat_(doublereal *, doublereal *,
- doublereal *, doublereal *);
-
-
-/* INPUT: pws=wind speed (in m/s) */
-/* paw= azim. of sun - azim. of wind (in deg.) */
-/* xsal=salinity (in ppt) */
-/* pcl=pigment concentration (in mg.m-3) */
-/* pwl=wavelength of the computation (in micrometer) */
-/* mu=number of zenith angle */
-/* np=number of azimuth */
-/* rm=cosine of Gauss's angles for angles between -PI/2 and PI/2 de
-g*/
-/* rp=Gauss's angles for angles between 0 and 2*PI */
-/* OUTPUT: brdfint(j,k)=the total reflectance of the sea water */
-/* rfoam= the effective reflectance of the foam (foam coverage x fo
-am reflectance)*/
-/* rwat= the reflectance of the water (just above the surface) */
-/* rglit= the reflectance of the sunglint */
-
-/*< parameter (nta=24,nfa=48) >*/
-/*< integer np,mu,k,j,m,n,iwl >*/
-/*< real rm(-mu:mu),rp(np),brdfint(-mu:mu,np) >*/
-/*< real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa) >*/
-/*< real Ref(39) >*/
-/*< real pwl,paw,pcl,pws,wl,wspd,C,azw,xsal >*/
-/*< real rfoam,rwat,rglit >*/
-/*< real pi,fac,nr,ni,n12 >*/
-/*< real tetas,w,wlp,ref_i,rwc,rw,tds,summ,tp,fip >*/
-/*< real rogp,pond,tetav,tw,tdv,fi,rog,a,rwb >*/
-/* effective reflectance of the whitecaps (Koepke, 1984) */
-/*< >*/
- /* Parameter adjustments */
- rm_offset = -(*mu);
- rm -= rm_offset;
- brdfint_dim1 = *mu - (-(*mu)) + 1;
- brdfint_offset = -(*mu) + brdfint_dim1;
- brdfint -= brdfint_offset;
- --rp;
-
- /* Function Body */
-/* conversion of parameter */
-/*< C=pcl >*/
- c__ = *pcl;
-/*< wspd=pws >*/
- wspd = *pws;
-/*< azw=paw >*/
- azw = *paw;
-/*< wl=pwl >*/
- wl = *pwl;
-/*< pi=atan(1.)*4. >*/
- pi = atan(1.) * 4.;
-/*< fac=pi/180. >*/
- fac = pi / 180.;
-/*< tetas=acos(rm(0))/fac >*/
- tetas = acos(rm[0]) / fac;
-/* COMPUTE INDEX OF WATER */
-/*< call indwat(wl,xsal,nr,ni) >*/
- indwat_(&wl, xsal, &nr, &ni);
-/* write(6,'(1A,1X,2(F10.5,1X))') "nr,ni",nr,ni */
-/*< n12=sqrt(nr*nr+ni*ni) >*/
- n12 = sqrt(nr * nr + ni * ni);
-/* COMPUTE WHITECAPS REFLECTANCE (LAMBERTIAN) */
-/*< W=2.95e-06*(wspd**3.52) >*/
- w = pow_dd(&wspd, &c_b2) * 2.95e-6;
-/*< iwl=1+int((wl-0.2)/0.1) >*/
- iwl = (integer) ((wl - .2) / .1) + 1;
-/*< wlp=0.5+(iwl-1)*0.1 >*/
- wlp = (iwl - 1) * .1 + .5;
-/*< Ref_i=ref(iwl+1)+(wl-wlp)/0.1*(ref(iwl)-ref(iwl+1)) >*/
- ref_i__ = ref[iwl] + (wl - wlp) / .1 * (ref[iwl - 1] - ref[iwl]);
-/*< Rwc=W*Ref_i >*/
- rwc = w * ref_i__;
-/* COMPUTE BACKSCATTERED REFLECTANCE FROM THE SEA WATER (LAMBERTIAN) */
-/* water reflectance below the sea surface */
-/*< call MORCASIWAT(wl,C,Rw) >*/
- morcasiwat_(&wl, &c__, &rw);
-/* call gauss quadrature */
-/*< tds=1.0 >*/
- tds = 1.;
-/*< tdv=1.0 >*/
- tdv = 1.;
-/*< if (Rw.gt.0.0001) then >*/
- if (rw > 1e-4) {
-/*< teta1=0. >*/
- teta1 = 0.;
-/*< teta2=pi/2. >*/
- teta2 = pi / 2.;
-/*< call gauss(teta1,teta2,ta,wta,nta) >*/
- gauss_(&teta1, &teta2, ta, wta, &c__24);
-/*< phi1=0. >*/
- phi1 = 0.;
-/*< phi2=2.*pi >*/
- phi2 = pi * 2.;
-/*< call gauss(phi1,phi2,fa,wfa,nfa) >*/
- gauss_(&phi1, &phi2, fa, wfa, &c__48);
-/* COMPUTE DOWNWARD TRANSMISSION FUNCTION */
-/*< tds=0. >*/
- tds = 0.;
-/*< summ=0. >*/
- summ = 0.;
-/*< do k=1,nfa >*/
- for (k = 1; k <= 48; ++k) {
-/*< do j=1,nta >*/
- for (j = 1; j <= 24; ++j) {
-/*< tp=ta(j)/fac >*/
- tp = ta[j - 1] / fac;
-/*< fip=fa(k)/fac >*/
- fip = fa[k - 1] / fac;
-/*< call sunglint(wspd,nr,ni,azw,tetas,tp,fip,rogp) >*/
- sunglint_(&wspd, &nr, &ni, &azw, &tetas, &tp, &fip, &rogp);
-/*< pond=cos(ta(j))*sin(ta(j))*wfa(k)*wta(j) >*/
- pond = cos(ta[j - 1]) * sin(ta[j - 1]) * wfa[k - 1] * wta[j -
- 1];
-/*< summ=summ+pond >*/
- summ += pond;
-/*< tds=tds+rogp*pond >*/
- tds += rogp * pond;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< tds=1.-tds/summ >*/
- tds = 1. - tds / summ;
-/*< endif >*/
- }
-/* Compute glint contribution,transmission terms and total reflectance */
-/*< Do 1 j=1,mu >*/
- i__1 = *mu;
- for (j = 1; j <= i__1; ++j) {
-/*< tetav=acos(rm(j))/fac >*/
- tetav = acos(rm[j]) / fac;
-/* compute upward transmission */
-/*< if (Rw.gt.0.0001) then >*/
- if (rw > 1e-4) {
-/*< tw=asin(sin(tetav*fac)/nr)/fac >*/
- tw = asin(sin(tetav * fac) / nr) / fac;
-/*< tdv=0. >*/
- tdv = 0.;
-/*< summ=0. >*/
- summ = 0.;
-/*< do n=1,nfa >*/
- for (n = 1; n <= 48; ++n) {
-/*< do m=1,nta >*/
- for (m = 1; m <= 24; ++m) {
-/*< tp=ta(m)/fac >*/
- tp = ta[m - 1] / fac;
-/*< fip=fa(n)/fac >*/
- fip = fa[n - 1] / fac;
-/* here we assume no aborption */
-/*< call sunglint(wspd,1./nr,0.0,azw,tw,tp,fip,rogp) >*/
- d__1 = 1. / nr;
- sunglint_(&wspd, &d__1, &c_b6, &azw, &tw, &tp, &fip, &
- rogp);
-/*< pond=cos(ta(m))*sin(ta(m))*wfa(n)*wta(m) >*/
- pond = cos(ta[m - 1]) * sin(ta[m - 1]) * wfa[n - 1] * wta[
- m - 1];
-/*< summ=summ+pond >*/
- summ += pond;
-/*< tdv=tdv+rogp*pond >*/
- tdv += rogp * pond;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< tdv=1.-tdv/summ >*/
- tdv = 1. - tdv / summ;
-/*< endif >*/
- }
-/*< Do 2 k=1,np >*/
- i__2 = *np;
- for (k = 1; k <= i__2; ++k) {
-/*< if (j.eq.mu) then >*/
- if (j == *mu) {
-/*< fi=rm(-mu) >*/
- fi = rm[-(*mu)];
-/*< else >*/
- } else {
-/*< fi=(rp(k)+rm(-mu)) >*/
- fi = rp[k] + rm[-(*mu)];
-/*< endif >*/
- }
-/*< if (fi.lt.0.) fi=fi+2.*pi >*/
- if (fi < 0.) {
- fi += pi * 2.;
- }
-/*< if (fi.gt.(2.*pi)) fi=fi-2.*pi >*/
- if (fi > pi * 2.) {
- fi -= pi * 2.;
- }
-/*< fi=fi/fac >*/
- fi /= fac;
-/* SUNGLINT REFLECTANCE */
-/*< call sunglint(wspd,nr,ni,azw,tetas,tetav,fi,rog) >*/
- sunglint_(&wspd, &nr, &ni, &azw, &tetas, &tetav, &fi, &rog);
-/* water reflectance above the sea surface */
-/* for explanation on value of a see OCEAALBE.f */
-/*< a=0.485 >*/
- a = .485;
-/* add change in solid angle from under to above to surface */
-/* that account for 1/(n12*n12) decrease in sea water directional
-*/
-/* reflectance */
-/*< Rwb=(1/(n12*n12))*tds*tdv*Rw/(1-a*Rw) >*/
- rwb = 1 / (n12 * n12) * tds * tdv * rw / (1 - a * rw);
-/* TOTAL REFLECTANCE OF SEA WATER */
-/*< brdfint(j,k)=Rwc+(1-W)*Rog+(1-Rwc)*Rwb >*/
- brdfint[j + k * brdfint_dim1] = rwc + (1 - w) * rog + (1 - rwc) *
- rwb;
-/*< rfoam=rwc >*/
- *rfoam = rwc;
-/*< rwat=(1-Rwc)*Rwb >*/
- *rwat = (1 - rwc) * rwb;
-/*< rglit=(1-W)*Rog >*/
- *rglit = (1 - w) * rog;
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* oceabrdf_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.f b/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.f
deleted file mode 100644
index 2605a82..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.f
+++ /dev/null
@@ -1,130 +0,0 @@
- subroutine oceabrdf(pws,paw,xsal,pcl,pwl,
- s rfoam,rwat,rglit,
- s mu,np,rm,rp,
- s brdfint)
-C
-C INPUT: pws=wind speed (in m/s)
-C paw= azim. of sun - azim. of wind (in deg.)
-C xsal=salinity (in ppt)
-C pcl=pigment concentration (in mg.m-3)
-C pwl=wavelength of the computation (in micrometer)
-C mu=number of zenith angle
-C np=number of azimuth
-C rm=cosine of Gauss's angles for angles between -PI/2 and PI/2 deg
-C rp=Gauss's angles for angles between 0 and 2*PI
-C OUTPUT: brdfint(j,k)=the total reflectance of the sea water
-C rfoam= the effective reflectance of the foam (foam coverage x foam reflectance)
-C rwat= the reflectance of the water (just above the surface)
-C rglit= the reflectance of the sunglint
-
-C
- parameter (nta=24,nfa=48)
- integer np,mu,k,j,m,n,iwl
- real rm(-mu:mu),rp(np),brdfint(-mu:mu,np)
- real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa)
- real Ref(39)
- real pwl,paw,pcl,pws,wl,wspd,C,azw,xsal
- real rfoam,rwat,rglit
- real pi,fac,nr,ni,n12
- real tetas,w,wlp,ref_i,rwc,rw,tds,summ,tp,fip
- real rogp,pond,tetav,tw,tdv,fi,rog,a,rwb
-c effective reflectance of the whitecaps (Koepke, 1984)
- data Ref/
- &0.220,0.220,0.220,0.220,0.220,0.220,0.215,0.210,0.200,0.190,
- &0.175,0.155,0.130,0.080,0.100,0.105,0.100,0.080,0.045,0.055,
- &0.065,0.060,0.055,0.040,0.000,0.000,0.000,0.000,0.000,0.000,
- &0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000/
-C conversion of parameter
- C=pcl
- wspd=pws
- azw=paw
- wl=pwl
- pi=atan(1.)*4.
- fac=pi/180.
- tetas=acos(rm(0))/fac
-C COMPUTE INDEX OF WATER
- call indwat(wl,xsal,nr,ni)
-C write(6,'(1A,1X,2(F10.5,1X))') "nr,ni",nr,ni
- n12=sqrt(nr*nr+ni*ni)
-C COMPUTE WHITECAPS REFLECTANCE (LAMBERTIAN)
- W=2.95e-06*(wspd**3.52)
- iwl=1+int((wl-0.2)/0.1)
- wlp=0.5+(iwl-1)*0.1
- Ref_i=ref(iwl+1)+(wl-wlp)/0.1*(ref(iwl)-ref(iwl+1))
- Rwc=W*Ref_i
-C COMPUTE BACKSCATTERED REFLECTANCE FROM THE SEA WATER (LAMBERTIAN)
-C water reflectance below the sea surface
- call MORCASIWAT(wl,C,Rw)
-C call gauss quadrature
- tds=1.0
- tdv=1.0
- if (Rw.gt.0.0001) then
- teta1=0.
- teta2=pi/2.
- call gauss(teta1,teta2,ta,wta,nta)
- phi1=0.
- phi2=2.*pi
- call gauss(phi1,phi2,fa,wfa,nfa)
-C COMPUTE DOWNWARD TRANSMISSION FUNCTION
- tds=0.
- summ=0.
- do k=1,nfa
- do j=1,nta
- tp=ta(j)/fac
- fip=fa(k)/fac
- call sunglint(wspd,nr,ni,azw,tetas,tp,fip,rogp)
- pond=cos(ta(j))*sin(ta(j))*wfa(k)*wta(j)
- summ=summ+pond
- tds=tds+rogp*pond
- enddo
- enddo
- tds=1.-tds/summ
- endif
-C Compute glint contribution,transmission terms and total reflectance
- Do 1 j=1,mu
- tetav=acos(rm(j))/fac
-C compute upward transmission
- if (Rw.gt.0.0001) then
- tw=asin(sin(tetav*fac)/nr)/fac
- tdv=0.
- summ=0.
- do n=1,nfa
- do m=1,nta
- tp=ta(m)/fac
- fip=fa(n)/fac
-c here we assume no aborption
- call sunglint(wspd,1./nr,0.0,azw,tw,tp,fip,rogp)
- pond=cos(ta(m))*sin(ta(m))*wfa(n)*wta(m)
- summ=summ+pond
- tdv=tdv+rogp*pond
- enddo
- enddo
- tdv=1.-tdv/summ
- endif
- Do 2 k=1,np
- if (j.eq.mu) then
- fi=rm(-mu)
- else
- fi=(rp(k)+rm(-mu))
- endif
- if (fi.lt.0.) fi=fi+2.*pi
- if (fi.gt.(2.*pi)) fi=fi-2.*pi
- fi=fi/fac
-C SUNGLINT REFLECTANCE
- call sunglint(wspd,nr,ni,azw,tetas,tetav,fi,rog)
-C water reflectance above the sea surface
-C for explanation on value of a see OCEAALBE.f
- a=0.485
-C add change in solid angle from under to above to surface
-C that account for 1/(n12*n12) decrease in sea water directional
-C reflectance
- Rwb=(1/(n12*n12))*tds*tdv*Rw/(1-a*Rw)
-C TOTAL REFLECTANCE OF SEA WATER
- brdfint(j,k)=Rwc+(1-W)*Rog+(1-Rwc)*Rwb
- rfoam=rwc
- rwat=(1-Rwc)*Rwb
- rglit=(1-W)*Rog
- 2 continue
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.h b/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.h
deleted file mode 100644
index 3026437..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDF.h
+++ /dev/null
@@ -1,15 +0,0 @@
-extern int otb_6s_oceabrdf_(
- otb_6s_doublereal *pws,
- otb_6s_doublereal *paw,
- otb_6s_doublereal *xsal,
- otb_6s_doublereal *pcl,
- otb_6s_doublereal *pwl,
- otb_6s_doublereal *rfoam,
- otb_6s_doublereal *rwat,
- otb_6s_doublereal *rglit,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *brdfint
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.P b/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.P
deleted file mode 100644
index a9c00f0..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int oceabrdffast_(doublereal *pws, doublereal *paw, doublereal *xsal, doublereal *pcl, doublereal *pwl, integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal *brdfint);
-/*:ref: indwat_ 14 4 7 7 7 7 */
-/*:ref: sunglint_ 14 8 7 7 7 7 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.c b/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.c
deleted file mode 100644
index 3d31f82..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.c
+++ /dev/null
@@ -1,197 +0,0 @@
-/* OCEABRDFFAST.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< >*/
-/* Subroutine */ int oceabrdffast_(doublereal *pws, doublereal *paw,
- doublereal *xsal, doublereal *pcl, doublereal *pwl, integer *mu,
- integer *np, doublereal *rm, doublereal *rp, doublereal *brdfint)
-{
-
- /* System generated locals */
- integer rm_offset, brdfint_dim1, brdfint_offset, i__1, i__2;
-
- /* Builtin functions */
- double atan(doublereal), acos(doublereal), sqrt(doublereal);
-
- /* Local variables */
- extern /* Subroutine */ int sunglint_(doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *);
- doublereal a, c__;
- integer j, k;
- doublereal fi, n12, ni, pi, nr, wl, fac, rog, azw, wspd, tetas, tetav;
- extern /* Subroutine */ int indwat_(doublereal *, doublereal *,
- doublereal *, doublereal *);
-
-
-/* INPUT: pws=wind speed (in m/s) */
-/* paw= azim. of sun - azim. of wind (in deg.) */
-/* xsal=salinity (in ppt) */
-/* pcl=pigment concentration (in mg.m-3) */
-/* pwl=wavelength of the computation (in micrometer) */
-/* mu=number of zenith angle */
-/* np=number of azimuth */
-/* rm=cosine of Gauss's angles for angles between -PI/2 and PI/2 de
-g*/
-/* rp=Gauss's angles for angles between 0 and 2*PI */
-/* OUTPUT: brdfint(j,k)=the total reflectance of the sea water */
-
-/*< parameter (nta=24,nfa=48) >*/
-/*< integer np,mu,k,j,m,n,iwl >*/
-/*< real rm(-mu:mu),rp(np),brdfint(-mu:mu,np) >*/
-/*< real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa) >*/
-/*< real Ref(39) >*/
-/*< real pwl,paw,pcl,pws,wl,wspd,C,azw,xsal >*/
-/*< real pi,fac,nr,ni,n12 >*/
-/*< real tetas,w,wlp,ref_i,rwc,rw,tds,summ,tp,fip >*/
-/*< real rogp,pond,tetav,tw,tdv,fi,rog,a,rwb >*/
-/* effective reflectance of the whitecaps (Koepke, 1984) */
-/*< >*/
- /* Parameter adjustments */
- rm_offset = -(*mu);
- rm -= rm_offset;
- brdfint_dim1 = *mu - (-(*mu)) + 1;
- brdfint_offset = -(*mu) + brdfint_dim1;
- brdfint -= brdfint_offset;
- --rp;
-
- /* Function Body */
-/* conversion of parameter */
-/*< C=pcl >*/
- c__ = *pcl;
-/*< wspd=pws >*/
- wspd = *pws;
-/*< azw=paw >*/
- azw = *paw;
-/*< wl=pwl >*/
- wl = *pwl;
-/*< pi=atan(1.)*4. >*/
- pi = atan(1.) * 4.;
-/*< fac=pi/180. >*/
- fac = pi / 180.;
-/*< tetas=acos(rm(0))/fac >*/
- tetas = acos(rm[0]) / fac;
-/* COMPUTE INDEX OF WATER */
-/*< call indwat(wl,xsal,nr,ni) >*/
- indwat_(&wl, xsal, &nr, &ni);
-/*< n12=sqrt(nr*nr+ni*ni) >*/
- n12 = sqrt(nr * nr + ni * ni);
-/* COMPUTE WHITECAPS REFLECTANCE (LAMBERTIAN) */
-/* W=2.95e-06*(wspd**3.52) */
-/* iwl=1+int((wl-0.2)/0.1) */
-/* wlp=0.5+(iwl-1)*0.1 */
-/* Ref_i=ref(iwl+1)+(wl-wlp)/0.1*(ref(iwl)-ref(iwl+1)) */
-/* Rwc=W*Ref_i */
-/* COMPUTE BACKSCATTERED REFLECTANCE FROM THE SEA WATER (LAMBERTIAN) */
-/* water reflectance below the sea surface */
-/* call MORCASIWAT(wl,C,Rw) */
-/* call gauss quadrature */
-/* tds=1.0 */
-/* tdv=1.0 */
-/* if (Rw.gt.0.0001) then */
-/* teta1=0. */
-/* teta2=pi/2. */
-/* call gauss(teta1,teta2,ta,wta,nta) */
-/* phi1=0. */
-/* phi2=2.*pi */
-/* call gauss(phi1,phi2,fa,wfa,nfa) */
-/* COMPUTE DOWNWARD TRANSMISSION FUNCTION */
-/* tds=0. */
-/* summ=0. */
-/* do k=1,nfa */
-/* do j=1,nta */
-/* tp=ta(j)/fac */
-/* fip=fa(k)/fac */
-/* call sunglint(wspd,nr,ni,azw,tetas,tp,fip,rogp) */
-/* pond=cos(ta(j))*sin(ta(j))*wfa(k)*wta(j) */
-/* summ=summ+pond */
-/* tds=tds+rogp*pond */
-/* enddo */
-/* enddo */
-/* tds=1.-tds/summ */
-/* endif */
-/* Compute glint contribution,transmission terms and total reflectance */
-/*< Do 1 j=1,mu >*/
- i__1 = *mu;
- for (j = 1; j <= i__1; ++j) {
-/*< tetav=acos(rm(j))/fac >*/
- tetav = acos(rm[j]) / fac;
-/* compute upward transmission */
-/* if (Rw.gt.0.0001) then */
-/* tw=asin(sin(tetav*fac)/nr)/fac */
-/* tdv=0. */
-/* summ=0. */
-/* do n=1,nfa */
-/* do m=1,nta */
-/* tp=ta(m)/fac */
-/* fip=fa(n)/fac */
-/* here we assume no aborption */
-/* call sunglint(wspd,1./nr,0.0,azw,tw,tp,fip,rogp) */
-/* pond=cos(ta(m))*sin(ta(m))*wfa(n)*wta(m) */
-/* summ=summ+pond */
-/* tdv=tdv+rogp*pond */
-/* enddo */
-/* enddo */
-/* tdv=1.-tdv/summ */
-/* endif */
-/*< Do 2 k=1,np >*/
- i__2 = *np;
- for (k = 1; k <= i__2; ++k) {
-/*< if (j.eq.mu) then >*/
- if (j == *mu) {
-/*< fi=rm(-mu) >*/
- fi = rm[-(*mu)];
-/*< else >*/
- } else {
-/*< fi=(rp(k)+rm(-mu)) >*/
- fi = rp[k] + rm[-(*mu)];
-/*< endif >*/
- }
-/*< if (fi.lt.0.) fi=fi+2.*pi >*/
- if (fi < 0.) {
- fi += pi * 2.;
- }
-/*< if (fi.gt.(2.*pi)) fi=fi-2.*pi >*/
- if (fi > pi * 2.) {
- fi -= pi * 2.;
- }
-/*< fi=fi/fac >*/
- fi /= fac;
-/* SUNGLINT REFLECTANCE */
-/*< call sunglint(wspd,nr,ni,azw,tetas,tetav,fi,rog) >*/
- sunglint_(&wspd, &nr, &ni, &azw, &tetas, &tetav, &fi, &rog);
-/* water reflectance above the sea surface */
-/* for explanation on value of a see OCEAALBE.f */
-/*< a=0.485 >*/
- a = .485;
-/* add change in solid angle from under to above to surface */
-/* that account for 1/(n12*n12) decrease in sea water directional
-*/
-/* reflectance */
-/* Rwb=(1/(n12*n12))*tds*tdv*Rw/(1-a*Rw) */
-/* TOTAL REFLECTANCE OF SEA WATER */
-/*< brdfint(j,k)=Rog >*/
- brdfint[j + k * brdfint_dim1] = rog;
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* oceabrdffast_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.f b/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.f
deleted file mode 100644
index e933cb3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.f
+++ /dev/null
@@ -1,119 +0,0 @@
- subroutine oceabrdffast(pws,paw,xsal,pcl,pwl,mu,np,rm,rp,
- s brdfint)
-C
-C INPUT: pws=wind speed (in m/s)
-C paw= azim. of sun - azim. of wind (in deg.)
-C xsal=salinity (in ppt)
-C pcl=pigment concentration (in mg.m-3)
-C pwl=wavelength of the computation (in micrometer)
-C mu=number of zenith angle
-C np=number of azimuth
-C rm=cosine of Gauss's angles for angles between -PI/2 and PI/2 deg
-C rp=Gauss's angles for angles between 0 and 2*PI
-C OUTPUT: brdfint(j,k)=the total reflectance of the sea water
-C
- parameter (nta=24,nfa=48)
- integer np,mu,k,j,m,n,iwl
- real rm(-mu:mu),rp(np),brdfint(-mu:mu,np)
- real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa)
- real Ref(39)
- real pwl,paw,pcl,pws,wl,wspd,C,azw,xsal
- real pi,fac,nr,ni,n12
- real tetas,w,wlp,ref_i,rwc,rw,tds,summ,tp,fip
- real rogp,pond,tetav,tw,tdv,fi,rog,a,rwb
-c effective reflectance of the whitecaps (Koepke, 1984)
- data Ref/
- &0.220,0.220,0.220,0.220,0.220,0.220,0.215,0.210,0.200,0.190,
- &0.175,0.155,0.130,0.080,0.100,0.105,0.100,0.080,0.045,0.055,
- &0.065,0.060,0.055,0.040,0.000,0.000,0.000,0.000,0.000,0.000,
- &0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000/
-C conversion of parameter
- C=pcl
- wspd=pws
- azw=paw
- wl=pwl
- pi=atan(1.)*4.
- fac=pi/180.
- tetas=acos(rm(0))/fac
-C COMPUTE INDEX OF WATER
- call indwat(wl,xsal,nr,ni)
- n12=sqrt(nr*nr+ni*ni)
-C COMPUTE WHITECAPS REFLECTANCE (LAMBERTIAN)
-C W=2.95e-06*(wspd**3.52)
-C iwl=1+int((wl-0.2)/0.1)
-C wlp=0.5+(iwl-1)*0.1
-C Ref_i=ref(iwl+1)+(wl-wlp)/0.1*(ref(iwl)-ref(iwl+1))
-C Rwc=W*Ref_i
-C COMPUTE BACKSCATTERED REFLECTANCE FROM THE SEA WATER (LAMBERTIAN)
-C water reflectance below the sea surface
-C call MORCASIWAT(wl,C,Rw)
-C call gauss quadrature
-C tds=1.0
-C tdv=1.0
-C if (Rw.gt.0.0001) then
-C teta1=0.
-C teta2=pi/2.
-C call gauss(teta1,teta2,ta,wta,nta)
-C phi1=0.
-C phi2=2.*pi
-C call gauss(phi1,phi2,fa,wfa,nfa)
-C COMPUTE DOWNWARD TRANSMISSION FUNCTION
-C tds=0.
-C summ=0.
-C do k=1,nfa
-C do j=1,nta
-C tp=ta(j)/fac
-C fip=fa(k)/fac
-C call sunglint(wspd,nr,ni,azw,tetas,tp,fip,rogp)
-C pond=cos(ta(j))*sin(ta(j))*wfa(k)*wta(j)
-C summ=summ+pond
-C tds=tds+rogp*pond
-C enddo
-C enddo
-C tds=1.-tds/summ
-C endif
-C Compute glint contribution,transmission terms and total reflectance
- Do 1 j=1,mu
- tetav=acos(rm(j))/fac
-C compute upward transmission
-C if (Rw.gt.0.0001) then
-C tw=asin(sin(tetav*fac)/nr)/fac
-C tdv=0.
-C summ=0.
-C do n=1,nfa
-C do m=1,nta
-C tp=ta(m)/fac
-C fip=fa(n)/fac
-c here we assume no aborption
-C call sunglint(wspd,1./nr,0.0,azw,tw,tp,fip,rogp)
-C pond=cos(ta(m))*sin(ta(m))*wfa(n)*wta(m)
-C summ=summ+pond
-C tdv=tdv+rogp*pond
-C enddo
-C enddo
-C tdv=1.-tdv/summ
-C endif
- Do 2 k=1,np
- if (j.eq.mu) then
- fi=rm(-mu)
- else
- fi=(rp(k)+rm(-mu))
- endif
- if (fi.lt.0.) fi=fi+2.*pi
- if (fi.gt.(2.*pi)) fi=fi-2.*pi
- fi=fi/fac
-C SUNGLINT REFLECTANCE
- call sunglint(wspd,nr,ni,azw,tetas,tetav,fi,rog)
-C water reflectance above the sea surface
-C for explanation on value of a see OCEAALBE.f
- a=0.485
-C add change in solid angle from under to above to surface
-C that account for 1/(n12*n12) decrease in sea water directional
-C reflectance
-C Rwb=(1/(n12*n12))*tds*tdv*Rw/(1-a*Rw)
-C TOTAL REFLECTANCE OF SEA WATER
- brdfint(j,k)=Rog
- 2 continue
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.h b/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.h
deleted file mode 100644
index 86a78df..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEABRDFFAST.h
+++ /dev/null
@@ -1,12 +0,0 @@
-extern int otb_6s_oceabrdffast_(
- otb_6s_doublereal *pws,
- otb_6s_doublereal *paw,
- otb_6s_doublereal *xsal,
- otb_6s_doublereal *pcl,
- otb_6s_doublereal *pwl,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *brdfint
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.P b/Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.P
deleted file mode 100644
index 58b0924..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.P
+++ /dev/null
@@ -1,5 +0,0 @@
-extern int morcasiwat_(doublereal *wl, doublereal *c__, doublereal *r2);
-extern int indwat_(doublereal *wl, doublereal *xsal, doublereal *nr, doublereal *ni);
-extern int sunglint_(doublereal *wspd, doublereal *nr, doublereal *ni, doublereal *azw, doublereal *ts, doublereal *tv, doublereal *fi, doublereal *rog);
-extern int fresnel_(doublereal *nr, doublereal *ni, doublereal *coschi, doublereal *sinchi, doublereal *r1);
-extern int glitalbe_(doublereal *wspd, doublereal *nr, doublereal *ni, doublereal *azw, doublereal *rge);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.c b/Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.c
deleted file mode 100644
index e160f98..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.c
+++ /dev/null
@@ -1,748 +0,0 @@
-/* OCEATOOLS.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static doublereal c_b3 = .62;
-static doublereal c_b10 = 2.;
-
-/*< subroutine morcasiwat(wl,C,R2) >*/
-/* Subroutine */ int morcasiwat_(doublereal *wl, doublereal *c__, doublereal *
- r2)
-{
- /* Initialized data */
-
- static doublereal tkw[61] = { .0209,.02,.0196,.0189,.0183,.0182,.0171,
- .017,.0168,.0166,.0168,.017,.0173,.0174,.0175,.0184,.0194,.0203,
- .0217,.024,.0271,.032,.0384,.0445,.049,.0505,.0518,.0543,.0568,
- .0615,.064,.064,.0717,.0762,.0807,.094,.107,.128,.157,.2,.253,
- .279,.296,.303,.31,.315,.32,.325,.33,.34,.35,.37,.405,.418,.43,
- .44,.45,.47,.5,.55,.65 };
- static doublereal txc[61] = { .11,.111,.1125,.1135,.1126,.1104,.1078,
- .1065,.1041,.0996,.0971,.0939,.0896,.0859,.0823,.0788,.0746,.0726,
- .069,.066,.0636,.06,.0578,.054,.0498,.0475,.0467,.045,.044,.0426,
- .041,.04,.039,.0375,.036,.034,.033,.0328,.0325,.033,.034,.035,
- .036,.0375,.0385,.04,.042,.043,.044,.0445,.045,.046,.0475,.049,
- .0515,.052,.0505,.044,.039,.034,.03 };
- static doublereal te[61] = { .668,.672,.68,.687,.693,.701,.707,.708,.707,
- .704,.701,.699,.7,.703,.703,.703,.703,.704,.702,.7,.7,.695,.69,
- .685,.68,.675,.67,.665,.66,.655,.65,.645,.64,.63,.623,.615,.61,
- .614,.618,.622,.626,.63,.634,.638,.642,.647,.653,.658,.663,.667,
- .672,.677,.682,.687,.695,.697,.693,.665,.64,.62,.6 };
- static doublereal tbw[61] = { .0076,.0072,.0068,.0064,.0061,.0058,.0055,
- .0052,.0049,.0047,.0045,.0043,.0041,.0039,.0037,.0036,.0034,.0033,
- .0031,.003,.0029,.0027,.0026,.0025,.0024,.0023,.0022,.0022,.0021,
- .002,.0019,.0018,.0018,.0017,.0017,.0016,.0016,.0015,.0015,.0014,
- .0014,.0013,.0013,.0012,.0012,.0011,.0011,.001,.001,.001,.001,
- 9e-4,8e-4,8e-4,8e-4,7e-4,7e-4,7e-4,7e-4,7e-4,7e-4 };
-
- /* System generated locals */
- doublereal d__1;
-
- /* Builtin functions */
- integer i_dnnt(doublereal *);
- double pow_dd(doublereal *, doublereal *), d_lg10(doublereal *);
-
- /* Local variables */
- doublereal b, e, r1, u1, u2, bb, kd, bw, xc, kw, bbt, err;
- integer iwl;
-
-/* Spectral diffuse attenuation coefficient of Case I Waters as Predicted
-*/
-/*by MOREL within the spectral range 400-700nm (1988, Journal of Geophysic
-al*/
-/* Research, Vol.93, No C9, pp 10749-10768) */
-
-/* input parameters: wl wavelength (IN MICROMETERS) */
-/* C pigment concentration */
-/* output parameter: R2 reflectance of water */
-
-/* According Morel,1988, we use: */
-
-/* Kd spectral value of the attenuation coefficient for */
-/* downwelling irradiance */
-/* with: Kd=Kw+Xc*C**e */
-/* Kw spectral value of the diffuse attenuation coefficient */
-/* for pure oceanic water */
-/* Xc, e spectral coefficients to compute the diffuse attenuation */
-/* coefficient for pigment */
-/* bb total backscattering coefficient */
-/* with: bb=0.5*bw+bbt*b */
-/* bw spectral value of the molecular scattering coefficient of water */
-/* bbt,b parameters to compute the scattering coefficients of pigments */
-
-/* R2 reflectance of water below the surface */
-/* with: R2=(0.33/u)*(bb/Kd) where u is depending of R2 */
-
-/*< real Kw,Kd >*/
-/*< real tKw(61),tXc(61),te(61),tbw(61) >*/
-/*< real wl,c,r2,xc,e,bw,bb,b,bbt,u1,r1,u2,err >*/
-/*< integer iwl >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< if (wl.lt.0.400.or.wl.gt.0.700)then >*/
- if (*wl < .4 || *wl > .7) {
-/*< R2=0.000 >*/
- *r2 = 0.;
-/*< goto 60 >*/
- goto L60;
-/*< endif >*/
- }
-/*< iwl=1+nint((wl-0.400)/0.005) >*/
- d__1 = (*wl - .4) / .005;
- iwl = i_dnnt(&d__1) + 1;
-/*< Kw=tKw(iwl) >*/
- kw = tkw[iwl - 1];
-/*< Xc=tXc(iwl) >*/
- xc = txc[iwl - 1];
-/*< e=te(iwl) >*/
- e = te[iwl - 1];
-/*< bw=tbw(iwl) >*/
- bw = tbw[iwl - 1];
-
-/*< if (abs(C).lt.0.0001)then >*/
- if (abs(*c__) < 1e-4) {
-/*< bb=0.5*bw >*/
- bb = bw * .5;
-/*< Kd=Kw >*/
- kd = kw;
-/*< else >*/
- } else {
-/*< b=0.30*C**0.62 >*/
- b = pow_dd(c__, &c_b3) * .3;
-/*< bbt=0.002+0.02*(0.5-0.25*alog10(C))*0.550/wl >*/
- bbt = (.5 - d_lg10(c__) * .25) * .02 * .55 / *wl + .002;
-/*< bb=0.5*bw+bbt*b >*/
- bb = bw * .5 + bbt * b;
-/*< Kd=Kw+Xc*C**e >*/
- kd = kw + xc * pow_dd(c__, &e);
-/*< endif >*/
- }
-/*< u1=0.75 >*/
- u1 = .75;
-/*< R1=0.33*bb/u1/Kd >*/
- r1 = bb * .33 / u1 / kd;
-/*< 50 u2=0.90*(1.-R1)/(1.+2.25*R1) >*/
-L50:
- u2 = (1. - r1) * .9 / (r1 * 2.25 + 1.);
-/*< R2=0.33*bb/u2/Kd >*/
- *r2 = bb * .33 / u2 / kd;
-/*< err=abs((R2-R1)/R2) >*/
- err = (d__1 = (*r2 - r1) / *r2, abs(d__1));
-/*< if (err.lt.0.0001)goto 60 >*/
- if (err < 1e-4) {
- goto L60;
- }
-/*< R1=R2 >*/
- r1 = *r2;
-/*< goto 50 >*/
- goto L50;
-/*< 60 return >*/
-L60:
- return 0;
-/*< end >*/
-} /* morcasiwat_ */
-
-
-/*< subroutine indwat(wl,xsal,nr,ni) >*/
-/* Subroutine */ int indwat_(doublereal *wl, doublereal *xsal, doublereal *nr,
- doublereal *ni)
-{
- /* Initialized data */
-
- static doublereal twl[62] = { .25,.275,.3,.325,.345,.375,.4,.425,.445,
- .475,.5,.525,.55,.575,.6,.625,.65,.675,.7,.725,.75,.775,.8,.825,
- .85,.875,.9,.925,.95,.975,1.,1.2,1.4,1.6,1.8,2.,2.2,2.4,2.6,2.65,
- 2.7,2.75,2.8,2.85,2.9,2.95,3.,3.05,3.1,3.15,3.2,3.25,3.3,3.35,3.4,
- 3.45,3.5,3.6,3.7,3.8,3.9,4. };
- static doublereal tnr[62] = { 1.362,1.354,1.349,1.346,1.343,1.341,1.339,
- 1.338,1.337,1.336,1.335,1.334,1.333,1.333,1.332,1.332,1.331,1.331,
- 1.331,1.33,1.33,1.33,1.329,1.329,1.329,1.328,1.328,1.328,1.327,
- 1.327,1.327,1.324,1.321,1.317,1.312,1.306,1.296,1.279,1.242,1.219,
- 1.188,1.157,1.142,1.149,1.201,1.292,1.371,1.426,1.467,1.483,1.478,
- 1.467,1.45,1.432,1.42,1.41,1.4,1.385,1.374,1.364,1.357,1.351 };
- static doublereal tni[62] = { 3.35e-8,2.35e-8,1.6e-8,1.08e-8,6.5e-9,
- 3.5e-9,1.86e-9,1.3e-9,1.02e-9,9.35e-10,1e-9,1.32e-9,1.96e-9,
- 3.6e-9,1.09e-8,1.39e-8,1.64e-8,2.23e-8,3.35e-8,9.15e-8,1.56e-7,
- 1.48e-7,1.25e-7,1.82e-7,2.93e-7,3.91e-7,4.86e-7,1.06e-6,2.93e-6,
- 3.48e-6,2.89e-6,9.89e-6,1.38e-4,8.55e-5,1.15e-4,.0011,2.89e-4,
- 9.56e-4,.00317,.0067,.019,.059,.115,.185,.268,.298,.272,.24,.192,
- .135,.0924,.061,.0368,.0261,.0195,.0132,.0094,.00515,.0036,.0034,
- .0038,.0046 };
-
- integer i__;
- doublereal yi, yr, nic, nrc, xwl;
-
-
-/* input parameters: wl=wavelength (in micrometers) */
-/* xsal=salinity (in ppt), if xsal<0 then 34.3ppt by def
-ault*/
-/* output parameters: nr=index of refraction of sea water */
-/* ni=extinction coefficient of sea water */
-
-/*< real twl(62),tnr(62),tni(62) >*/
-/*< real nr,ni,wl,xwl,yr,yi,nrc,nic,xsal >*/
-/*< integer i >*/
-/* Indices of refraction for pure water from Hale and Querry, */
-/* Applied Optique, March 1973, Vol. 12, No. 3, pp. 555-563 */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< i=2 >*/
- i__ = 2;
-/*< 10 if (wl.lt.twl(i)) goto 20 >*/
-L10:
- if (*wl < twl[i__ - 1]) {
- goto L20;
- }
-/*< if (i.lt.62) then >*/
- if (i__ < 62) {
-/*< i=i+1 >*/
- ++i__;
-/*< goto 10 >*/
- goto L10;
-/*< endif >*/
- }
-/*< 20 xwl=twl(i)-twl(i-1) >*/
-L20:
- xwl = twl[i__ - 1] - twl[i__ - 2];
-/*< yr=tnr(i)-tnr(i-1) >*/
- yr = tnr[i__ - 1] - tnr[i__ - 2];
-/*< yi=tni(i)-tni(i-1) >*/
- yi = tni[i__ - 1] - tni[i__ - 2];
-/*< nr=tnr(i-1)+(wl-twl(i-1))*yr/xwl >*/
- *nr = tnr[i__ - 2] + (*wl - twl[i__ - 2]) * yr / xwl;
-/*< ni=tni(i-1)+(wl-twl(i-1))*yi/xwl >*/
- *ni = tni[i__ - 2] + (*wl - twl[i__ - 2]) * yi / xwl;
-
-/*Correction to be applied to the index of refraction and to the extinctio
-n*/
-/* coefficients of the pure water to obtain the ocean water one (see for
-*/
-/* example Friedman). By default, a typical sea water is assumed */
-/* (Salinity=34.3ppt, Chlorinity=19ppt) as reported by Sverdrup. */
-/*In that case there is no correction for the extinction coefficient betwe
-en*/
-/* 0.25 and 4 microns. For the index of refraction, a correction of +0.006
- */
-/*has to be applied (McLellan). For a chlorinity of 19.0ppt the correction
-*/
-/*is a linear function of the salt concentration. Then, in 6S users are ab
-le*/
-/* to enter the salt concentration (in ppt). */
-/* REFERENCES: */
-/* Friedman D., Applied Optics, 1969, Vol.8, No.10, pp.2073-2078. */
-/* McLellan H.J., Elements of physical Oceanography, Pergamon Press, Inc.,
- */
-/* New-York, 1965, p 129. */
-/*Sverdrup H.V. et al., The Oceans (Prentice-Hall, Inc., Englewood Cliffs,
-*/
-/* N.J., 1942, p 173. */
-/*< nrc=0.006 >*/
- nrc = .006;
-/*< nic=0.000 >*/
- nic = 0.;
-/*< nr=nr+nrc*(xsal/34.3) >*/
- *nr += nrc * (*xsal / 34.3);
-/*< ni=ni+nic*(xsal/34.3) >*/
- *ni += nic * (*xsal / 34.3);
-/*< return >*/
- return 0;
-/*< end >*/
-} /* indwat_ */
-
-
-/*< subroutine sunglint(wspd,nr,ni,azw,ts,tv,fi,rog) >*/
-/* Subroutine */ int sunglint_(doublereal *wspd, doublereal *nr, doublereal *
- ni, doublereal *azw, doublereal *ts, doublereal *tv, doublereal *fi,
- doublereal *rog)
-{
- /* System generated locals */
- doublereal d__1;
-
- /* Builtin functions */
- double atan(doublereal), cos(doublereal), sin(doublereal), sqrt(
- doublereal), exp(doublereal);
-
- /* Local variables */
- doublereal r1, c21, c03, c40, c04, c22, cs, pi, cv, xe, ss, xn, sv, zx,
- zy, xe2, xn2, fac, phi, phw, coef, tilt, proba, sigmac, coschi,
- sinchi, sigmau, cos2chi;
- extern /* Subroutine */ int fresnel_(doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *);
- doublereal tantilt;
-
-/* input parameters: wspd=speed of the wind (in m/s) */
-/* nr=index of refraction of the sea water */
-/* ni=extinction coefficient of the sea water */
-/* azw=azim. of the sun - azim. of the wind (in deg.)
-*/
-/* ts=solar zenith angle (in deg.) */
-/* tv=view zenith angle (in deg.) */
-/* fi=relative azimuth (sun-satellite) */
-/* output parameters: rog=reflectance of the sun glint */
-
-/*< real pi,fac >*/
-/*< real wspd,nr,ni,ts,tv,fi,rog,azw,phw >*/
-/*< real cs,cv,ss,sv,phi,zx,zy,tantilt,tilt,proba,xe,xn,xe2,xn2 >*/
-/*< real coef,cos2chi,coschi,sinchi >*/
-/*< real r1,sigmaC,sigmaU,C21,C03,C40,C04,C22 >*/
-/*< pi=atan(1.)*4. >*/
- pi = atan(1.) * 4.;
-/*< fac=pi/180. >*/
- fac = pi / 180.;
-/*< phw=azw*fac >*/
- phw = *azw * fac;
-/*< cs=cos(ts*fac) >*/
- cs = cos(*ts * fac);
-/*< cv=cos(tv*fac) >*/
- cv = cos(*tv * fac);
-/*< ss=sin(ts*fac) >*/
- ss = sin(*ts * fac);
-/*< sv=sin(tv*fac) >*/
- sv = sin(*tv * fac);
-/*< phi=fi*fac >*/
- phi = *fi * fac;
-/*< Zx=-sv*sin(phi)/(cs+cv) >*/
- zx = -sv * sin(phi) / (cs + cv);
-/*< Zy=(ss+sv*cos(phi))/(cs+cv) >*/
- zy = (ss + sv * cos(phi)) / (cs + cv);
-/*< tantilt=sqrt(zx*zx+zy*zy) >*/
- tantilt = sqrt(zx * zx + zy * zy);
-/*< tilt=atan(tantilt) >*/
- tilt = atan(tantilt);
-/* write(6,*) "tantilt ",tantilt */
-/* write(6,*) "tilt " ,tilt */
-/* Anisotropic Gaussian distribution */
-/* phw=phi_sun-phi_wind */
-/*< sigmaC=0.003+0.00192*wspd >*/
- sigmac = *wspd * .00192 + .003;
-/*< sigmaU=0.00316*wspd >*/
- sigmau = *wspd * .00316;
-/*< C21=0.01-0.0086*wspd >*/
- c21 = .01 - *wspd * .0086;
-/*< C03=0.04-0.033*wspd >*/
- c03 = .04 - *wspd * .033;
-/*< C40=0.40 >*/
- c40 = .4;
-/*< C22=0.12 >*/
- c22 = .12;
-/*< C04=0.23 >*/
- c04 = .23;
-/*< xe=(cos(phw)*Zx+sin(phw)*Zy)/sqrt(SigmaC) >*/
- xe = (cos(phw) * zx + sin(phw) * zy) / sqrt(sigmac);
-/*< xn=(-sin(phw)*Zx+cos(phw)*Zy)/sqrt(SigmaU) >*/
- xn = (-sin(phw) * zx + cos(phw) * zy) / sqrt(sigmau);
-/*< xe2=xe*xe >*/
- xe2 = xe * xe;
-/*< xn2=xn*xn >*/
- xn2 = xn * xn;
-/*< coef=1-C21/2.*(xe2-1)*xn-C03/6.*(xn2-3)*xn >*/
- coef = 1 - c21 / 2. * (xe2 - 1) * xn - c03 / 6. * (xn2 - 3) * xn;
-/*< coef=coef+c40/24.*(xe2*xe2-6*xe2+3) >*/
- coef += c40 / 24. * (xe2 * xe2 - xe2 * 6 + 3);
-/*< coef=coef+C04/24.*(xn2*xn2-6*xn2+3) >*/
- coef += c04 / 24. * (xn2 * xn2 - xn2 * 6 + 3);
-/*< coef=coef+C22/4.*(xe2-1)*(xn2-1) >*/
- coef += c22 / 4. * (xe2 - 1) * (xn2 - 1);
-/*< proba=coef/2./pi/sqrt(sigmaU)/sqrt(sigmaC)*exp(-(xe2+xn2)/2.) >*/
- proba = coef / 2. / pi / sqrt(sigmau) / sqrt(sigmac) * exp(-(xe2 + xn2) /
- 2.);
-/* write(6,*) "probaglit:",proba */
-/* write(6,*) "coef glit:",coef */
-/* write(6,*) "tilt glit:",tilt */
-/* write(6,*) "phw glit:",phw */
-/* Compute Fresnel's coefficient R1 */
-/*< cos2chi=cv*cs+sv*ss*cos(phi) >*/
- cos2chi = cv * cs + sv * ss * cos(phi);
-/*< if (cos2chi.gt.1.0)cos2chi=0.99999999999 >*/
- if (cos2chi > 1.) {
- cos2chi = .99999999999;
- }
-/*< if (cos2chi.lt.-1.0)cos2chi=-0.99999999999 >*/
- if (cos2chi < -1.) {
- cos2chi = -.99999999999;
- }
-/*< coschi=sqrt(0.5*(1+cos2chi)) >*/
- coschi = sqrt((cos2chi + 1) * .5);
-/*< sinchi=sqrt(0.5*(1-cos2chi)) >*/
- sinchi = sqrt((1 - cos2chi) * .5);
-/*< if (coschi.ge.1.0)coschi=0.99999999 >*/
- if (coschi >= 1.) {
- coschi = .99999999;
- }
-/*< if (coschi.le.-1.0)coschi=-0.999999 >*/
- if (coschi <= -1.) {
- coschi = -.999999;
- }
-/*< if (sinchi.gt.1.0)sinchi=0.9999999 >*/
- if (sinchi > 1.) {
- sinchi = .9999999;
- }
-/*< if (sinchi.lt.-1.0)sinchi=-0.999999 >*/
- if (sinchi < -1.) {
- sinchi = -.999999;
- }
-/*< Call Fresnel(nr,ni,coschi,sinchi,R1) >*/
- fresnel_(nr, ni, &coschi, &sinchi, &r1);
-/* Compute Reflectance of the sun glint */
-/*< Rog=pi*R1*proba/4./cs/cv/(cos(tilt)**4) >*/
-/* Computing 4th power */
- d__1 = cos(tilt), d__1 *= d__1;
- *rog = pi * r1 * proba / 4. / cs / cv / (d__1 * d__1);
-/* write(6,*) "ROg ",Rog,R1,proba */
-/*< return >*/
- return 0;
-/*< end >*/
-} /* sunglint_ */
-
-
-
-/*< Subroutine Fresnel(nr,ni,coschi,sinchi,R1) >*/
-/* Subroutine */ int fresnel_(doublereal *nr, doublereal *ni, doublereal *
- coschi, doublereal *sinchi, doublereal *r1)
-{
- /* System generated locals */
- doublereal d__1, d__2, d__3, d__4;
-
- /* Builtin functions */
- double pow_dd(doublereal *, doublereal *), sqrt(doublereal);
-
- /* Local variables */
- doublereal u, v, a1, a2, b1, b2, rl2, rr2;
-
-
-/* to compute the Fresnel's coefficient of reflection (see for */
-/*example M. Born and E. Wolf, Principles of Optics, Pergamon Press, fifth
-*/
-/* edition, 1975, pp 628 */
-/* input parameters: nr=index of refraction of the sea water */
-/* ni=extinction coefficient of the sea water */
-/* coschi & sinchi=cosine and sine of the incident radiat
-ion*/
-/* with respect of the wave facet normal.
-*/
-/* output parameter: R1=Fresnel's coefficient for reflection */
-
-/*< real nr,ni,a1,a2,u,v,Rr2,Rl2,b1,b2,R1,coschi,sinchi >*/
-/* absolute value for a1 to get v=0 when ni=0 */
-/*< a1=abs(nr*nr-ni*ni-sinchi*sinchi) >*/
- a1 = (d__1 = *nr * *nr - *ni * *ni - *sinchi * *sinchi, abs(d__1));
-/*< a2=sqrt((nr*nr-ni*ni-sinchi*sinchi)**2.+4*nr*nr*ni*ni) >*/
- d__1 = *nr * *nr - *ni * *ni - *sinchi * *sinchi;
- a2 = sqrt(pow_dd(&d__1, &c_b10) + *nr * 4 * *nr * *ni * *ni);
-/*< u=sqrt(0.5*abs(a1+a2)) >*/
- u = sqrt((d__1 = a1 + a2, abs(d__1)) * .5);
-/*< v=sqrt(0.5*abs(-a1+a2)) >*/
- v = sqrt((d__1 = -a1 + a2, abs(d__1)) * .5);
-/*< Rr2=((coschi-u)**2+v*v)/((coschi+u)**2+v*v) >*/
-/* Computing 2nd power */
- d__1 = *coschi - u;
-/* Computing 2nd power */
- d__2 = *coschi + u;
- rr2 = (d__1 * d__1 + v * v) / (d__2 * d__2 + v * v);
-/*< b1=(nr*nr-ni*ni)*coschi >*/
- b1 = (*nr * *nr - *ni * *ni) * *coschi;
-/*< b2=2*nr*ni*coschi >*/
- b2 = *nr * 2 * *ni * *coschi;
-/*< Rl2=((b1-u)**2+(b2+v)**2)/((b1+u)**2+(b2-v)**2) >*/
-/* Computing 2nd power */
- d__1 = b1 - u;
-/* Computing 2nd power */
- d__2 = b2 + v;
-/* Computing 2nd power */
- d__3 = b1 + u;
-/* Computing 2nd power */
- d__4 = b2 - v;
- rl2 = (d__1 * d__1 + d__2 * d__2) / (d__3 * d__3 + d__4 * d__4);
-/*< R1=(Rr2+Rl2)/2. >*/
- *r1 = (rr2 + rl2) / 2.;
-/* write(6,*) "fresnel ", R1,u,v,a1,a2 */
-/*< return >*/
- return 0;
-/*< end >*/
-} /* fresnel_ */
-
-
-
-/*< subroutine glitalbe(wspd,nr,ni,azw,rge) >*/
-/* Subroutine */ int glitalbe_(doublereal *wspd, doublereal *nr, doublereal *
- ni, doublereal *azw, doublereal *rge)
-{
- /* System generated locals */
- integer i__1, i__2, i__3;
- doublereal d__1;
-
- /* Builtin functions */
- double atan(doublereal), sqrt(doublereal), acos(doublereal), sin(
- doublereal), cos(doublereal), exp(doublereal);
-
- /* Local variables */
- integer i__, j;
- doublereal q, r1, c21, c03, c40, c04, c22;
- integer km;
- doublereal pi, xe, pp, pr, xn, zx, zy, xe2, xn2, fac, hfa;
- integer nfa;
- doublereal hta, htb;
- integer nta, ntb;
- doublereal tet, phw, cofa, diff, coef, cota, cotb, phin, pond, fonc0,
- sigma, proba, prefl, costt, sigmac, coschi, sinchi, sigmau,
- costet, sintet;
- extern /* Subroutine */ int fresnel_(doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *);
- doublereal cosphin, sinphin, tantetn, costetn, sintetn;
-
-
-/* To compute the spherical albedo of the sea water. See for example */
-/* Masuda et al., Remote Sens. Environ., 24, 313-329, 1988. */
-
-/* input parameters: wsp=wind of speed */
-/* nr=index of refraction of the sea water */
-/* ni=extinction coefficient of the sea water */
-/* azw=azim. of sun - azim. of wind (in deg.) */
-/* output parameter: rge=spherical albedo of the sun glint */
-
-/*< real nr,ni,azw,phw,rge,q,wspd,prefl,proba,pr,pp,pi,fac >*/
-/*< real sigma,sigmaC,sigmaU,C21,C03,C40,C04,C22 >*/
-/*< real costt,hta,htb,hfa,cotb,cota,cofa,diff,coef >*/
-/*< real phin,cosphin,sinphin,costet,tet,sintet >*/
-/*< real costetn,sintetn,tantetn,coschi,sinchi >*/
-/*< real zx,zy,xe,xn,xe2,xn2,fonc0,pond,r1 >*/
-/*< integer nta,nfa,ntb,km,i,j >*/
-/*< pi=atan(1.)*4. >*/
- pi = atan(1.) * 4.;
-/*< fac=pi/180. >*/
- fac = pi / 180.;
-/*< sigma=0.003+0.00512*wspd >*/
- sigma = *wspd * .00512 + .003;
-/*< sigmaC=0.003+0.00192*wspd >*/
- sigmac = *wspd * .00192 + .003;
-/*< sigmaU=0.00316*wspd >*/
- sigmau = *wspd * .00316;
-/*< C21=0.01-0.0086*wspd >*/
- c21 = .01 - *wspd * .0086;
-/*< C03=0.04-0.033*wspd >*/
- c03 = .04 - *wspd * .033;
-/*< C40=0.40 >*/
- c40 = .4;
-/*< C22=0.12 >*/
- c22 = .12;
-/*< C04=0.23 >*/
- c04 = .23;
-/* costt to minimize the time of the computation */
-/* integration between 1 and costt instead of 1 and 0 */
-/*< q=50 >*/
- q = 50.;
-/*< costt=1./sqrt(1+q*sigma/4.) >*/
- costt = 1. / sqrt(q * sigma / 4. + 1);
-/*< phw=azw*fac >*/
- phw = *azw * fac;
-/*< prefl=0. >*/
- prefl = 0.;
-/*< proba=0. >*/
- proba = 0.;
-/*< ntb=31 >*/
- ntb = 31;
-/*< htb=1./float(ntb-1) >*/
- htb = 1. / (doublereal) (ntb - 1);
-/* loops on the zenith angle of the emitted radiation */
-/*< do km=1,ntb >*/
- i__1 = ntb;
- for (km = 1; km <= i__1; ++km) {
-/*< costet=(km-1)*htb >*/
- costet = (km - 1) * htb;
-/*< if (costet.lt.0.99999999) then >*/
- if (costet < .99999999) {
-/*< tet=acos(costet) >*/
- tet = acos(costet);
-/*< else >*/
- } else {
-/*< tet=0.0 >*/
- tet = 0.;
-/*< endif >*/
- }
-/*< sintet=sin(tet) >*/
- sintet = sin(tet);
-/*< tet=tet/fac >*/
- tet /= fac;
-/* write(6,*) "sintet ",sintet,tet,costet */
-/* Simpson's rules for the angle of the emitted radiation teta */
-/*< cotb=2. >*/
- cotb = 2.;
-/*< diff=abs(km/2-km/2.) >*/
- diff = (d__1 = km / 2 - km / 2., abs(d__1));
-/*< if (diff.lt.0.00001)cotb=4. >*/
- if (diff < 1e-5) {
- cotb = 4.;
- }
-/*< if (km.eq.1.or.km.eq.ntb)cotb=1.0 >*/
- if (km == 1 || km == ntb) {
- cotb = 1.;
- }
-/* loops step for phiN and tetaN (N is the facet unit normal vector)
-*/
-/*< if (tet.lt.91)nta=801 >*/
- if (tet < 91.) {
- nta = 801;
- }
-/*< if (tet.lt.81)nta=301 >*/
- if (tet < 81.) {
- nta = 301;
- }
-/*< if (tet.lt.75)nta=101 >*/
- if (tet < 75.) {
- nta = 101;
- }
-/*< if (tet.lt.65)nta=31 >*/
- if (tet < 65.) {
- nta = 31;
- }
-/*< nfa=nta >*/
- nfa = nta;
-/*< hta=(1.-costt)/float(nta-1) >*/
- hta = (1. - costt) / (doublereal) (nta - 1);
-/*< hfa=pi/float(nfa-1) >*/
- hfa = pi / (doublereal) (nfa - 1);
-/* loops on phiN (azimuth angle of the facet normal vector) */
-/*< pr=0. >*/
- pr = 0.;
-/*< pp=0. >*/
- pp = 0.;
-/*< do i=1,nfa >*/
- i__2 = nfa;
- for (i__ = 1; i__ <= i__2; ++i__) {
-/*< phin=(i-1)*hfa >*/
- phin = (i__ - 1) * hfa;
-/*< cosphin=cos(phin) >*/
- cosphin = cos(phin);
-/*< sinphin=sin(phin) >*/
- sinphin = sin(phin);
-/* Simpson's rules for phin */
-/*< cofa=2. >*/
- cofa = 2.;
-/*< diff=abs(i/2-i/2.) >*/
- diff = (d__1 = i__ / 2 - i__ / 2., abs(d__1));
-/*< if (diff.lt.0.00001)cofa=4. >*/
- if (diff < 1e-5) {
- cofa = 4.;
- }
-/*< if (i.eq.1.or.i.eq.nfa)cofa=1.0 >*/
- if (i__ == 1 || i__ == nfa) {
- cofa = 1.;
- }
-/* loops on tetaN (zenith angle of the facet normal vector) */
-/*< do j=1,nta >*/
- i__3 = nta;
- for (j = 1; j <= i__3; ++j) {
-/*< costetn=costt+(j-1)*hta >*/
- costetn = costt + (j - 1) * hta;
-/*< sintetn=sqrt(abs(1.-costetn*costetn)) >*/
- sintetn = sqrt((d__1 = 1. - costetn * costetn, abs(d__1)));
-/*< tantetn=sintetn/costetn >*/
- tantetn = sintetn / costetn;
-/* Simpson's rules for tetaN */
-/*< cota=2. >*/
- cota = 2.;
-/*< diff=abs(j/2-j/2.) >*/
- diff = (d__1 = j / 2 - j / 2., abs(d__1));
-/*< if (diff.lt.0.00001)cota=4. >*/
- if (diff < 1e-5) {
- cota = 4.;
- }
-/*< if (j.eq.1.or.j.eq.nta)cota=1.0 >*/
- if (j == 1 || j == nta) {
- cota = 1.;
- }
-/* Fresnel's reflection coefficient R1 */
-/*< coschi=costet*costetn+sintet*sintetn*cosphin >*/
- coschi = costet * costetn + sintet * sintetn * cosphin;
-/* write(6,*)" coschi ",coschi,sintet,sintetn,cosphin */
-/*< if (coschi*coschi.gt.1.0)coschi=0.99999999999 >*/
- if (coschi * coschi > 1.) {
- coschi = .99999999999;
- }
-/*< sinchi=sqrt(1-coschi*coschi) >*/
- sinchi = sqrt(1 - coschi * coschi);
-/*< if (coschi.lt.0.0)then >*/
- if (coschi < 0.) {
-/*< r1=0. >*/
- r1 = 0.;
-/*< cota=0. >*/
- cota = 0.;
-/*< else >*/
- } else {
-/*< Call Fresnel(nr,ni,coschi,sinchi,r1) >*/
- fresnel_(nr, ni, &coschi, &sinchi, &r1);
-/*< endif >*/
- }
-/* Anisotropic Gaussian distribution for wave facets slopes
-*/
-/*< Zx=-tantetn*cosphin >*/
- zx = -tantetn * cosphin;
-/*< Zy=-tantetn*sinphin >*/
- zy = -tantetn * sinphin;
-/*< xe=(cos(phw)*Zx+sin(phw)*Zy)/sqrt(SigmaC) >*/
- xe = (cos(phw) * zx + sin(phw) * zy) / sqrt(sigmac);
-/*< xn=(-sin(phw)*Zx+cos(phw)*Zy)/sqrt(SigmaU) >*/
- xn = (-sin(phw) * zx + cos(phw) * zy) / sqrt(sigmau);
-/*< xe2=xe*xe >*/
- xe2 = xe * xe;
-/*< xn2=xn*xn >*/
- xn2 = xn * xn;
-/*< coef=1-C21/2.*(xe2-1)*xn-C03/6.*(xn2-3)*xn >*/
- coef = 1 - c21 / 2. * (xe2 - 1) * xn - c03 / 6. * (xn2 - 3) *
- xn;
-/*< coef=coef+c40/24.*(xe2*xe2-6*xe2+3) >*/
- coef += c40 / 24. * (xe2 * xe2 - xe2 * 6 + 3);
-/*< coef=coef+C04/24.*(xn2*xn2-6*xn2+3) >*/
- coef += c04 / 24. * (xn2 * xn2 - xn2 * 6 + 3);
-/*< coef=coef+C22/4.*(xe2-1)*(xn2-1) >*/
- coef += c22 / 4. * (xe2 - 1) * (xn2 - 1);
-/*< fonc0=0.5*coschi*coef*exp(-(xe2+xn2)/2.)/(costetn**4) >*/
-/* Computing 4th power */
- d__1 = costetn, d__1 *= d__1;
- fonc0 = coschi * .5 * coef * exp(-(xe2 + xn2) / 2.) / (d__1 *
- d__1);
-/*< pr=pr+r1*fonc0*cofa*cota*cotb >*/
- pr += r1 * fonc0 * cofa * cota * cotb;
-/*< pp=pp+fonc0*cofa*cota*cotb >*/
- pp += fonc0 * cofa * cota * cotb;
-/* write(6,*) coef,coschi,xe2 ,xn2," pr ",pr," pp ",pp
-*/
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-
-/*< pond=2.*hta*hfa*htb/pi/sqrt(sigmaC)/sqrt(sigmaU)/3./3./3. >*/
- pond = hta * 2. * hfa * htb / pi / sqrt(sigmac) / sqrt(sigmau) / 3. /
- 3. / 3.;
-/* write(6,*) "pond ",pond," pr ",pr," pp ",pp */
-/*< prefl=prefl+pr*pond >*/
- prefl += pr * pond;
-/*< proba=proba+pp*pond >*/
- proba += pp * pond;
-/*< enddo >*/
- }
-/* write(6,*) "proba ",proba," prefl ",prefl */
-/*< rge=prefl/proba >*/
- *rge = prefl / proba;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* glitalbe_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.f b/Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.f
deleted file mode 100644
index 6ea1765..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.f
+++ /dev/null
@@ -1,415 +0,0 @@
- subroutine morcasiwat(wl,C,R2)
-C Spectral diffuse attenuation coefficient of Case I Waters as Predicted
-C by MOREL within the spectral range 400-700nm (1988, Journal of Geophysical
-C Research, Vol.93, No C9, pp 10749-10768)
-C
-C input parameters: wl wavelength (IN MICROMETERS)
-C C pigment concentration
-C output parameter: R2 reflectance of water
-C
-C According Morel,1988, we use:
-C
-C Kd spectral value of the attenuation coefficient for
-C downwelling irradiance
-C with: Kd=Kw+Xc*C**e
-C Kw spectral value of the diffuse attenuation coefficient
-C for pure oceanic water
-C Xc, e spectral coefficients to compute the diffuse attenuation
-C coefficient for pigment
-C bb total backscattering coefficient
-C with: bb=0.5*bw+bbt*b
-C bw spectral value of the molecular scattering coefficient of water
-C bbt,b parameters to compute the scattering coefficients of pigments
-C
-C R2 reflectance of water below the surface
-C with: R2=(0.33/u)*(bb/Kd) where u is depending of R2
-C
- real Kw,Kd
- real tKw(61),tXc(61),te(61),tbw(61)
- real wl,c,r2,xc,e,bw,bb,b,bbt,u1,r1,u2,err
- integer iwl
-
- data tKw/0.0209,0.0200,0.0196,0.0189,0.0183,
- & 0.0182,0.0171,0.0170,0.0168,0.0166,
- & 0.0168,0.0170,0.0173,0.0174,0.0175,
- & 0.0184,0.0194,0.0203,0.0217,0.0240,
- & 0.0271,0.0320,0.0384,0.0445,0.0490,
- & 0.0505,0.0518,0.0543,0.0568,0.0615,
- & 0.0640,0.0640,0.0717,0.0762,0.0807,
- & 0.0940,0.1070,0.1280,0.1570,0.2000,
- & 0.2530,0.2790,0.2960,0.3030,0.3100,
- & 0.3150,0.3200,0.3250,0.3300,0.3400,
- & 0.3500,0.3700,0.4050,0.4180,0.4300,
- & 0.4400,0.4500,0.4700,0.5000,0.5500,
- & 0.6500/
- data tXc/0.1100,0.1110,0.1125,0.1135,0.1126,
- & 0.1104,0.1078,0.1065,0.1041,0.0996,
- & 0.0971,0.0939,0.0896,0.0859,0.0823,
- & 0.0788,0.0746,0.0726,0.0690,0.0660,
- & 0.0636,0.0600,0.0578,0.0540,0.0498,
- & 0.0475,0.0467,0.0450,0.0440,0.0426,
- & 0.0410,0.0400,0.0390,0.0375,0.0360,
- & 0.0340,0.0330,0.0328,0.0325,0.0330,
- & 0.0340,0.0350,0.0360,0.0375,0.0385,
- & 0.0400,0.0420,0.0430,0.0440,0.0445,
- & 0.0450,0.0460,0.0475,0.0490,0.0515,
- & 0.0520,0.0505,0.0440,0.0390,0.0340,
- & 0.0300/
- data te/0.668,0.672,0.680,0.687,0.693,
- & 0.701,0.707,0.708,0.707,0.704,
- & 0.701,0.699,0.700,0.703,0.703,
- & 0.703,0.703,0.704,0.702,0.700,
- & 0.700,0.695,0.690,0.685,0.680,
- & 0.675,0.670,0.665,0.660,0.655,
- & 0.650,0.645,0.640,0.630,0.623,
- & 0.615,0.610,0.614,0.618,0.622,
- & 0.626,0.630,0.634,0.638,0.642,
- & 0.647,0.653,0.658,0.663,0.667,
- & 0.672,0.677,0.682,0.687,0.695,
- & 0.697,0.693,0.665,0.640,0.620,
- & 0.600/
- data tbw/0.0076,0.0072,0.0068,0.0064,0.0061,
- & 0.0058,0.0055,0.0052,0.0049,0.0047,
- & 0.0045,0.0043,0.0041,0.0039,0.0037,
- & 0.0036,0.0034,0.0033,0.0031,0.0030,
- & 0.0029,0.0027,0.0026,0.0025,0.0024,
- & 0.0023,0.0022,0.0022,0.0021,0.0020,
- & 0.0019,0.0018,0.0018,0.0017,0.0017,
- & 0.0016,0.0016,0.0015,0.0015,0.0014,
- & 0.0014,0.0013,0.0013,0.0012,0.0012,
- & 0.0011,0.0011,0.0010,0.0010,0.0010,
- & 0.0010,0.0009,0.0008,0.0008,0.0008,
- & 0.0007,0.0007,0.0007,0.0007,0.0007,
- & 0.0007/
- if (wl.lt.0.400.or.wl.gt.0.700)then
- R2=0.000
- goto 60
- endif
-
- iwl=1+nint((wl-0.400)/0.005)
- Kw=tKw(iwl)
- Xc=tXc(iwl)
- e=te(iwl)
- bw=tbw(iwl)
-C
- if (abs(C).lt.0.0001)then
- bb=0.5*bw
- Kd=Kw
- else
- b=0.30*C**0.62
- bbt=0.002+0.02*(0.5-0.25*alog10(C))*0.550/wl
- bb=0.5*bw+bbt*b
- Kd=Kw+Xc*C**e
- endif
-
- u1=0.75
- R1=0.33*bb/u1/Kd
-
- 50 u2=0.90*(1.-R1)/(1.+2.25*R1)
- R2=0.33*bb/u2/Kd
- err=abs((R2-R1)/R2)
- if (err.lt.0.0001)goto 60
- R1=R2
- goto 50
- 60 return
- end
-C
- subroutine indwat(wl,xsal,nr,ni)
-C
-C input parameters: wl=wavelength (in micrometers)
-C xsal=salinity (in ppt), if xsal<0 then 34.3ppt by default
-C output parameters: nr=index of refraction of sea water
-C ni=extinction coefficient of sea water
-C
- real twl(62),tnr(62),tni(62)
- real nr,ni,wl,xwl,yr,yi,nrc,nic,xsal
- integer i
-C Indices of refraction for pure water from Hale and Querry,
-C Applied Optique, March 1973, Vol. 12, No. 3, pp. 555-563
- data twl/
- S 0.250,0.275,0.300,0.325,0.345,0.375,0.400,0.425,0.445,0.475,
- S 0.500,0.525,0.550,0.575,0.600,0.625,0.650,0.675,0.700,0.725,
- S 0.750,0.775,0.800,0.825,0.850,0.875,0.900,0.925,0.950,0.975,
- S 1.000,1.200,1.400,1.600,1.800,2.000,2.200,2.400,2.600,2.650,
- S 2.700,2.750,2.800,2.850,2.900,2.950,3.000,3.050,3.100,3.150,
- S 3.200,3.250,3.300,3.350,3.400,3.450,3.500,3.600,3.700,3.800,
- S 3.900,4.000/
- data tnr/
- S 1.362,1.354,1.349,1.346,1.343,1.341,1.339,1.338,1.337,1.336,
- S 1.335,1.334,1.333,1.333,1.332,1.332,1.331,1.331,1.331,1.330,
- S 1.330,1.330,1.329,1.329,1.329,1.328,1.328,1.328,1.327,1.327,
- S 1.327,1.324,1.321,1.317,1.312,1.306,1.296,1.279,1.242,1.219,
- S 1.188,1.157,1.142,1.149,1.201,1.292,1.371,1.426,1.467,1.483,
- S 1.478,1.467,1.450,1.432,1.420,1.410,1.400,1.385,1.374,1.364,
- S 1.357,1.351/
- data tni/
- S 3.35E-08,2.35E-08,1.60E-08,1.08E-08,6.50E-09,
- S 3.50E-09,1.86E-09,1.30E-09,1.02E-09,9.35E-10,
- S 1.00E-09,1.32E-09,1.96E-09,3.60E-09,1.09E-08,
- S 1.39E-08,1.64E-08,2.23E-08,3.35E-08,9.15E-08,
- S 1.56E-07,1.48E-07,1.25E-07,1.82E-07,2.93E-07,
- S 3.91E-07,4.86E-07,1.06E-06,2.93E-06,3.48E-06,
- S 2.89E-06,9.89E-06,1.38E-04,8.55E-05,1.15E-04,
- S 1.10E-03,2.89E-04,9.56E-04,3.17E-03,6.70E-03,
- S 1.90E-02,5.90E-02,1.15E-01,1.85E-01,2.68E-01,
- S 2.98E-01,2.72E-01,2.40E-01,1.92E-01,1.35E-01,
- S 9.24E-02,6.10E-02,3.68E-02,2.61E-02,1.95E-02,
- S 1.32E-02,9.40E-03,5.15E-03,3.60E-03,3.40E-03,
- S 3.80E-03,4.60E-03/
- i=2
- 10 if (wl.lt.twl(i)) goto 20
- if (i.lt.62) then
- i=i+1
- goto 10
- endif
- 20 xwl=twl(i)-twl(i-1)
- yr=tnr(i)-tnr(i-1)
- yi=tni(i)-tni(i-1)
- nr=tnr(i-1)+(wl-twl(i-1))*yr/xwl
- ni=tni(i-1)+(wl-twl(i-1))*yi/xwl
-c
-c Correction to be applied to the index of refraction and to the extinction
-c coefficients of the pure water to obtain the ocean water one (see for
-c example Friedman). By default, a typical sea water is assumed
-c (Salinity=34.3ppt, Chlorinity=19ppt) as reported by Sverdrup.
-c In that case there is no correction for the extinction coefficient between
-c 0.25 and 4 microns. For the index of refraction, a correction of +0.006
-c has to be applied (McLellan). For a chlorinity of 19.0ppt the correction
-c is a linear function of the salt concentration. Then, in 6S users are able
-c to enter the salt concentration (in ppt).
-c REFERENCES:
-c Friedman D., Applied Optics, 1969, Vol.8, No.10, pp.2073-2078.
-c McLellan H.J., Elements of physical Oceanography, Pergamon Press, Inc.,
-c New-York, 1965, p 129.
-c Sverdrup H.V. et al., The Oceans (Prentice-Hall, Inc., Englewood Cliffs,
-c N.J., 1942, p 173.
-
- nrc=0.006
- nic=0.000
- nr=nr+nrc*(xsal/34.3)
- ni=ni+nic*(xsal/34.3)
- return
- end
-C
- subroutine sunglint(wspd,nr,ni,azw,ts,tv,fi,rog)
-C input parameters: wspd=speed of the wind (in m/s)
-C nr=index of refraction of the sea water
-C ni=extinction coefficient of the sea water
-c azw=azim. of the sun - azim. of the wind (in deg.)
-C ts=solar zenith angle (in deg.)
-C tv=view zenith angle (in deg.)
-C fi=relative azimuth (sun-satellite)
-C output parameters: rog=reflectance of the sun glint
-C
- real pi,fac
- real wspd,nr,ni,ts,tv,fi,rog,azw,phw
- real cs,cv,ss,sv,phi,zx,zy,tantilt,tilt,proba,xe,xn,xe2,xn2
- real coef,cos2chi,coschi,sinchi
- real r1,sigmaC,sigmaU,C21,C03,C40,C04,C22
- pi=atan(1.)*4.
- fac=pi/180.
- phw=azw*fac
- cs=cos(ts*fac)
- cv=cos(tv*fac)
- ss=sin(ts*fac)
- sv=sin(tv*fac)
- phi=fi*fac
- Zx=-sv*sin(phi)/(cs+cv)
- Zy=(ss+sv*cos(phi))/(cs+cv)
- tantilt=sqrt(zx*zx+zy*zy)
-
- tilt=atan(tantilt)
-C write(6,*) "tantilt ",tantilt
-C write(6,*) "tilt " ,tilt
-c Anisotropic Gaussian distribution
-c phw=phi_sun-phi_wind
- sigmaC=0.003+0.00192*wspd
- sigmaU=0.00316*wspd
- C21=0.01-0.0086*wspd
- C03=0.04-0.033*wspd
- C40=0.40
- C22=0.12
- C04=0.23
- xe=(cos(phw)*Zx+sin(phw)*Zy)/sqrt(SigmaC)
- xn=(-sin(phw)*Zx+cos(phw)*Zy)/sqrt(SigmaU)
- xe2=xe*xe
- xn2=xn*xn
- coef=1-C21/2.*(xe2-1)*xn-C03/6.*(xn2-3)*xn
- coef=coef+c40/24.*(xe2*xe2-6*xe2+3)
- coef=coef+C04/24.*(xn2*xn2-6*xn2+3)
- coef=coef+C22/4.*(xe2-1)*(xn2-1)
- proba=coef/2./pi/sqrt(sigmaU)/sqrt(sigmaC)*exp(-(xe2+xn2)/2.)
-C write(6,*) "probaglit:",proba
-C write(6,*) "coef glit:",coef
-C write(6,*) "tilt glit:",tilt
-C write(6,*) "phw glit:",phw
-c Compute Fresnel's coefficient R1
- cos2chi=cv*cs+sv*ss*cos(phi)
- if (cos2chi.gt.1.0)cos2chi=0.99999999999
- if (cos2chi.lt.-1.0)cos2chi=-0.99999999999
- coschi=sqrt(0.5*(1+cos2chi))
- sinchi=sqrt(0.5*(1-cos2chi))
- if (coschi.ge.1.0)coschi=0.99999999
- if (coschi.le.-1.0)coschi=-0.999999
- if (sinchi.gt.1.0)sinchi=0.9999999
- if (sinchi.lt.-1.0)sinchi=-0.999999
-
- Call Fresnel(nr,ni,coschi,sinchi,R1)
-C Compute Reflectance of the sun glint
- Rog=pi*R1*proba/4./cs/cv/(cos(tilt)**4)
-C write(6,*) "ROg ",Rog,R1,proba
- return
- end
-C
-C
- Subroutine Fresnel(nr,ni,coschi,sinchi,R1)
-C
-C to compute the Fresnel's coefficient of reflection (see for
-C example M. Born and E. Wolf, Principles of Optics, Pergamon Press, fifth
-C edition, 1975, pp 628
-C input parameters: nr=index of refraction of the sea water
-C ni=extinction coefficient of the sea water
-C coschi & sinchi=cosine and sine of the incident radiation
-C with respect of the wave facet normal.
-C output parameter: R1=Fresnel's coefficient for reflection
-C
- real nr,ni,a1,a2,u,v,Rr2,Rl2,b1,b2,R1,coschi,sinchi
-c absolute value for a1 to get v=0 when ni=0
- a1=abs(nr*nr-ni*ni-sinchi*sinchi)
- a2=sqrt((nr*nr-ni*ni-sinchi*sinchi)**2.+4*nr*nr*ni*ni)
- u=sqrt(0.5*abs(a1+a2))
- v=sqrt(0.5*abs(-a1+a2))
- Rr2=((coschi-u)**2+v*v)/((coschi+u)**2+v*v)
- b1=(nr*nr-ni*ni)*coschi
- b2=2*nr*ni*coschi
- Rl2=((b1-u)**2+(b2+v)**2)/((b1+u)**2+(b2-v)**2)
- R1=(Rr2+Rl2)/2.
-C write(6,*) "fresnel ", R1,u,v,a1,a2
- return
- end
-C
-C
- subroutine glitalbe(wspd,nr,ni,azw,rge)
-C
-C To compute the spherical albedo of the sea water. See for example
-C Masuda et al., Remote Sens. Environ., 24, 313-329, 1988.
-C
-C input parameters: wsp=wind of speed
-C nr=index of refraction of the sea water
-C ni=extinction coefficient of the sea water
-C azw=azim. of sun - azim. of wind (in deg.)
-C output parameter: rge=spherical albedo of the sun glint
-C
- real nr,ni,azw,phw,rge,q,wspd,prefl,proba,pr,pp,pi,fac
- real sigma,sigmaC,sigmaU,C21,C03,C40,C04,C22
- real costt,hta,htb,hfa,cotb,cota,cofa,diff,coef
- real phin,cosphin,sinphin,costet,tet,sintet
- real costetn,sintetn,tantetn,coschi,sinchi
- real zx,zy,xe,xn,xe2,xn2,fonc0,pond,r1
- integer nta,nfa,ntb,km,i,j
-
- pi=atan(1.)*4.
- fac=pi/180.
- sigma=0.003+0.00512*wspd
- sigmaC=0.003+0.00192*wspd
- sigmaU=0.00316*wspd
- C21=0.01-0.0086*wspd
- C03=0.04-0.033*wspd
- C40=0.40
- C22=0.12
- C04=0.23
-C costt to minimize the time of the computation
-c integration between 1 and costt instead of 1 and 0
- q=50
- costt=1./sqrt(1+q*sigma/4.)
- phw=azw*fac
-
- prefl=0.
- proba=0.
-
- ntb=31
- htb=1./float(ntb-1)
-c loops on the zenith angle of the emitted radiation
- do km=1,ntb
- costet=(km-1)*htb
- if (costet.lt.0.99999999) then
- tet=acos(costet)
- else
- tet=0.0
- endif
- sintet=sin(tet)
- tet=tet/fac
-C write(6,*) "sintet ",sintet,tet,costet
-c Simpson's rules for the angle of the emitted radiation teta
- cotb=2.
- diff=abs(km/2-km/2.)
- if (diff.lt.0.00001)cotb=4.
- if (km.eq.1.or.km.eq.ntb)cotb=1.0
-c loops step for phiN and tetaN (N is the facet unit normal vector)
- if (tet.lt.91)nta=801
- if (tet.lt.81)nta=301
- if (tet.lt.75)nta=101
- if (tet.lt.65)nta=31
- nfa=nta
- hta=(1.-costt)/float(nta-1)
- hfa=pi/float(nfa-1)
-c loops on phiN (azimuth angle of the facet normal vector)
- pr=0.
- pp=0.
- do i=1,nfa
- phin=(i-1)*hfa
- cosphin=cos(phin)
- sinphin=sin(phin)
-c Simpson's rules for phin
- cofa=2.
- diff=abs(i/2-i/2.)
- if (diff.lt.0.00001)cofa=4.
- if (i.eq.1.or.i.eq.nfa)cofa=1.0
-c loops on tetaN (zenith angle of the facet normal vector)
- do j=1,nta
- costetn=costt+(j-1)*hta
- sintetn=sqrt(abs(1.-costetn*costetn))
- tantetn=sintetn/costetn
-c Simpson's rules for tetaN
- cota=2.
- diff=abs(j/2-j/2.)
- if (diff.lt.0.00001)cota=4.
- if (j.eq.1.or.j.eq.nta)cota=1.0
-c Fresnel's reflection coefficient R1
- coschi=costet*costetn+sintet*sintetn*cosphin
-C write(6,*)" coschi ",coschi,sintet,sintetn,cosphin
- if (coschi*coschi.gt.1.0)coschi=0.99999999999
- sinchi=sqrt(1-coschi*coschi)
- if (coschi.lt.0.0)then
- r1=0.
- cota=0.
- else
- Call Fresnel(nr,ni,coschi,sinchi,r1)
- endif
-c Anisotropic Gaussian distribution for wave facets slopes
- Zx=-tantetn*cosphin
- Zy=-tantetn*sinphin
- xe=(cos(phw)*Zx+sin(phw)*Zy)/sqrt(SigmaC)
- xn=(-sin(phw)*Zx+cos(phw)*Zy)/sqrt(SigmaU)
- xe2=xe*xe
- xn2=xn*xn
- coef=1-C21/2.*(xe2-1)*xn-C03/6.*(xn2-3)*xn
- coef=coef+c40/24.*(xe2*xe2-6*xe2+3)
- coef=coef+C04/24.*(xn2*xn2-6*xn2+3)
- coef=coef+C22/4.*(xe2-1)*(xn2-1)
- fonc0=0.5*coschi*coef*exp(-(xe2+xn2)/2.)/(costetn**4)
- pr=pr+r1*fonc0*cofa*cota*cotb
- pp=pp+fonc0*cofa*cota*cotb
-C write(6,*) coef,coschi,xe2 ,xn2," pr ",pr," pp ",pp
- enddo
- enddo
-c
- pond=2.*hta*hfa*htb/pi/sqrt(sigmaC)/sqrt(sigmaU)/3./3./3.
-C write(6,*) "pond ",pond," pr ",pr," pp ",pp
- prefl=prefl+pr*pond
- proba=proba+pp*pond
- enddo
-C write(6,*) "proba ",proba," prefl ",prefl
- rge=prefl/proba
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.h b/Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.h
deleted file mode 100644
index 5781448..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OCEATOOLS.h
+++ /dev/null
@@ -1,35 +0,0 @@
-extern int otb_6s_morcasiwat_(
- otb_6s_doublereal *wl,
- otb_6s_doublereal *c__,
- otb_6s_doublereal *r2
- );
-extern int otb_6s_indwat_(
- otb_6s_doublereal *wl,
- otb_6s_doublereal *xsal,
- otb_6s_doublereal *nr,
- otb_6s_doublereal *ni
- );
-extern int otb_6s_sunglint_(
- otb_6s_doublereal *wspd,
- otb_6s_doublereal *nr,
- otb_6s_doublereal *ni,
- otb_6s_doublereal *azw,
- otb_6s_doublereal *ts,
- otb_6s_doublereal *tv,
- otb_6s_doublereal *fi,
- otb_6s_doublereal *rog
- );
-extern int otb_6s_fresnel_(
- otb_6s_doublereal *nr,
- otb_6s_doublereal *ni,
- otb_6s_doublereal *coschi,
- otb_6s_doublereal *sinchi,
- otb_6s_doublereal *r1
- );
-extern int otb_6s_glitalbe_(
- otb_6s_doublereal *wspd,
- otb_6s_doublereal *nr,
- otb_6s_doublereal *ni,
- otb_6s_doublereal *azw,
- otb_6s_doublereal *rge
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ODA550.P b/Modules/ThirdParty/6S/src/6SV1.0B/ODA550.P
deleted file mode 100644
index faf3ea3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ODA550.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int oda550_(integer *iaer, doublereal *v, doublereal *taer55);
-/* comlen sixs_atm__ 1360 */
-/* comlen sixs_del__ 16 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ODA550.c b/Modules/ThirdParty/6S/src/6SV1.0B/ODA550.c
deleted file mode 100644
index b716344..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ODA550.c
+++ /dev/null
@@ -1,111 +0,0 @@
-/* ODA550.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#define sixs_atm__1 sixs_atm__
-
-Extern struct {
- doublereal delta, sigma;
-} sixs_del__;
-
-#define sixs_del__1 sixs_del__
-
-/*< >*/
-/* Subroutine */ int oda550_(integer *iaer, doublereal *v, doublereal *taer55)
-{
- /* Initialized data */
-
- static doublereal an23[34] = { 2828.,1244.,537.1,225.6,119.2,89.87,63.37,
- 58.9,60.69,58.18,56.75,53.17,55.85,51.56,50.48,47.44,45.11,44.58,
- 43.14,36.34,26.67,19.33,14.55,11.13,8.826,7.429,2.238,.589,.155,
- .04082,.01078,5.55e-5,1.969e-8,0. };
- static doublereal an5[34] = { 13780.,5030.,1844.,673.1,245.3,89.87,63.37,
- 58.9,60.69,58.18,56.75,53.17,55.85,51.56,50.48,47.44,45.11,44.58,
- 43.14,36.34,26.67,19.33,14.55,11.13,8.826,7.429,2.238,.589,.155,
- .04082,.01078,5.55e-5,1.969e-8,0. };
-
- /* Builtin functions */
- double log(doublereal), exp(doublereal);
-
- /* Local variables */
- integer k;
- doublereal az, bz, ev, dz, bn5, az1, bz1, bn23, bn51, bnz, bn231, bnz1;
-
-/*< double precision bnz,bnz1 >*/
-/*< common /sixs_atm/ z(34),p(34),t(34),wh(34),wo(34) >*/
-/*< common /sixs_del/ delta,sigma >*/
-/*< real an5(34),an23(34) >*/
-/*< Real v,taer55,z,p,t,wh >*/
-/*< Real wo,delta,sigma,dz,bn5,bn51,bn23,bn231,az >*/
-/*< Real az1,bz,bz1,ev >*/
-/*< Integer iaer,k >*/
-/* aerosol optical depth at wl=550nm */
-/* vertical repartition of aerosol density for v=23km */
-/* ( in nbr of part/cm3 ) */
-/*< >*/
-/* vertical repartition of aerosol density for v=5km */
-/* ( in nbr of part/cm3 ) */
-/*< >*/
-/*< taer55=0. >*/
- *taer55 = 0.;
-/*< if(abs(v).le.0.) return >*/
- if (abs(*v) <= 0.) {
- return 0;
- }
-/*< if(iaer.eq.0) return >*/
- if (*iaer == 0) {
- return 0;
- }
-/*< do 1 k=1,32 >*/
- for (k = 1; k <= 32; ++k) {
-/*< dz=z(k+1)-z(k) >*/
- dz = sixs_atm__1.z__[k] - sixs_atm__1.z__[k - 1];
-/*< bn5=an5(k) >*/
- bn5 = an5[k - 1];
-/*< bn51=an5(k+1) >*/
- bn51 = an5[k];
-/*< bn23=an23(k) >*/
- bn23 = an23[k - 1];
-/*< bn231=an23(k+1) >*/
- bn231 = an23[k];
-/*< az=(115./18.)*(bn5-bn23) >*/
- az = (bn5 - bn23) * 6.3888888888888893;
-/*< az1=(115./18.)*(bn51-bn231) >*/
- az1 = (bn51 - bn231) * 6.3888888888888893;
-/*< bz=(5.*bn5/18.)-(23.*bn23/18.) >*/
- bz = bn5 * 5. / 18. - bn23 * 23. / 18.;
-/*< bz1=(5.*bn51/18.)-(23.*bn231/18.) >*/
- bz1 = bn51 * 5. / 18. - bn231 * 23. / 18.;
-/*< bnz=az/v-bz >*/
- bnz = az / *v - bz;
-/*< bnz1=az1/v-bz1 >*/
- bnz1 = az1 / *v - bz1;
-/*< ev=dz*exp((dlog(bnz)+dlog(bnz1))*.5) >*/
- ev = dz * exp((log(bnz) + log(bnz1)) * .5);
-/*< taer55=taer55+ev*sigma*1.0e-03 >*/
- *taer55 += ev * sixs_del__1.sigma * .001;
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* oda550_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ODA550.f b/Modules/ThirdParty/6S/src/6SV1.0B/ODA550.f
deleted file mode 100644
index 2d19427..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ODA550.f
+++ /dev/null
@@ -1,55 +0,0 @@
- subroutine oda550 (iaer,v,
- a taer55)
-
- double precision bnz,bnz1
- common /sixs_atm/ z(34),p(34),t(34),wh(34),wo(34)
- common /sixs_del/ delta,sigma
- real an5(34),an23(34)
- Real v,taer55,z,p,t,wh
- Real wo,delta,sigma,dz,bn5,bn51,bn23,bn231,az
- Real az1,bz,bz1,ev
- Integer iaer,k
-c aerosol optical depth at wl=550nm
-c vertical repartition of aerosol density for v=23km
-c ( in nbr of part/cm3 )
-
- data an23 /2.828e+03,1.244e+03,5.371e+02,2.256e+02,1.192e+02
- a,8.987e+01,6.337e+01,5.890e+01,6.069e+01,5.818e+01,5.675e+01
- a,5.317e+01,5.585e+01,5.156e+01,5.048e+01,4.744e+01,4.511e+01
- a,4.458e+01,4.314e+01,3.634e+01,2.667e+01,1.933e+01,1.455e+01
- a,1.113e+01,8.826e+00,7.429e+00,2.238e+00,5.890e-01,1.550e-01
- a,4.082e-02,1.078e-02,5.550e-05,1.969e-08,0.000e+00/
-
-c vertical repartition of aerosol density for v=5km
-c ( in nbr of part/cm3 )
-
- data an5 /1.378e+04,5.030e+03,1.844e+03,6.731e+02,2.453e+02
- a,8.987e+01,6.337e+01,5.890e+01,6.069e+01,5.818e+01,5.675e+01
- a,5.317e+01,5.585e+01,5.156e+01,5.048e+01,4.744e+01,4.511e+01
- a,4.458e+01,4.314e+01,3.634e+01,2.667e+01,1.933e+01,1.455e+01
- a,1.113e+01,8.826e+00,7.429e+00,2.238e+00,5.890e-01,1.550e-01
- a,4.082e-02,1.078e-02,5.550e-05,1.969e-08,0.000e+00/
-
-
- taer55=0.
-
- if(abs(v).le.0.) return
- if(iaer.eq.0) return
-
- do 1 k=1,32
- dz=z(k+1)-z(k)
- bn5=an5(k)
- bn51=an5(k+1)
- bn23=an23(k)
- bn231=an23(k+1)
- az=(115./18.)*(bn5-bn23)
- az1=(115./18.)*(bn51-bn231)
- bz=(5.*bn5/18.)-(23.*bn23/18.)
- bz1=(5.*bn51/18.)-(23.*bn231/18.)
- bnz=az/v-bz
- bnz1=az1/v-bz1
- ev=dz*exp((dlog(bnz)+dlog(bnz1))*.5)
- taer55=taer55+ev*sigma*1.0e-03
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ODA550.h b/Modules/ThirdParty/6S/src/6SV1.0B/ODA550.h
deleted file mode 100644
index db1e3a1..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ODA550.h
+++ /dev/null
@@ -1,5 +0,0 @@
-extern int otb_6s_oda550_(
- otb_6s_integer *iaer,
- otb_6s_doublereal *v,
- otb_6s_doublereal *taer55
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.P b/Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.P
deleted file mode 100644
index b97de22..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int odrayl_(doublereal *wl, doublereal *tray);
-/* comlen sixs_atm__ 1360 */
-/* comlen sixs_del__ 16 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.c b/Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.c
deleted file mode 100644
index 626bcc5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.c
+++ /dev/null
@@ -1,101 +0,0 @@
-/* ODRAYL.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#define sixs_atm__1 sixs_atm__
-
-Extern struct {
- doublereal delta, sigma;
-} sixs_del__;
-
-#define sixs_del__1 sixs_del__
-
-/*< >*/
-/* Subroutine */ int odrayl_(doublereal *wl, doublereal *tray)
-{
- /* Initialized data */
-
- static doublereal pi = 3.1415926;
-
- /* System generated locals */
- doublereal d__1, d__2, d__3, d__4;
-
- /* Local variables */
- doublereal a;
- integer k;
- doublereal a1, a2, a3, a4, ak, an, ns, sr, awl, dppt;
-
-/*< double precision a1,a2,a3,a4,awl,an,a >*/
-/*< real wl,tray,z,p,t,wh,wo,delta,sigma,pi,ak,dppt,sr >*/
-/*< integer k >*/
-/* molecular optical depth */
-/*< common /sixs_atm/ z(34),p(34),t(34),wh(34),wo(34) >*/
-/*< common /sixs_del/ delta,sigma >*/
-/*< real ns >*/
-/*< data pi /3.1415926/ >*/
-/*< ak=1/wl >*/
- ak = 1 / *wl;
-/*< awl=wl >*/
- awl = *wl;
-/* air refraction index edlen 1966 / metrologia,2,71-80 putting pw=0
-*/
-/*< a1=130.-ak*ak >*/
- a1 = 130. - ak * ak;
-/*< a2=38.9-ak*ak >*/
- a2 = 38.9 - ak * ak;
-/*< a3=2406030./a1 >*/
- a3 = 2406030. / a1;
-/*< a4=15997./a2 >*/
- a4 = 15997. / a2;
-/*< an=(8342.13+a3+a4)*1.0e-08 >*/
- an = (a3 + 8342.13 + a4) * 1e-8;
-/*< an=an+1.d+00 >*/
- an += 1.;
-/*< >*/
-/* Computing 3rd power */
- d__1 = pi, d__2 = d__1;
-/* Computing 2nd power */
- d__3 = an * an - 1.;
-/* Computing 2nd power */
- d__4 = an * an + 2.;
- a = d__2 * (d__1 * d__1) * 24. * (d__3 * d__3) * (sixs_del__1.delta * 3.
- + 6.) / (6. - sixs_del__1.delta * 7.) / (d__4 * d__4);
-/*< tray=0. >*/
- *tray = 0.;
-/*< do k=1,33 >*/
- for (k = 1; k <= 33; ++k) {
-/*< ns=2.54743e+19 >*/
- ns = 2.54743e19;
-/*< dppt=(288.15/1013.25)*(p(k)/t(k)+p(k+1)/t(k+1))/2. >*/
- dppt = (sixs_atm__1.p[k - 1] / sixs_atm__1.t[k - 1] + sixs_atm__1.p[k]
- / sixs_atm__1.t[k]) * .28438193930421907 / 2.;
-/*< sr=(a*dppt/(awl**4)/ns*1.e+16)*1.e+05 >*/
-/* Computing 4th power */
- d__1 = awl, d__1 *= d__1;
- sr = a * dppt / (d__1 * d__1) / ns * 1e16 * 1e5;
-/*< tray=tray+(z(k+1)-z(k))*sr >*/
- *tray += (sixs_atm__1.z__[k] - sixs_atm__1.z__[k - 1]) * sr;
-/*< enddo >*/
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* odrayl_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.f b/Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.f
deleted file mode 100644
index 082da18..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.f
+++ /dev/null
@@ -1,33 +0,0 @@
- subroutine odrayl ( wl,
- a tray)
- double precision a1,a2,a3,a4,awl,an,a
- real wl,tray,z,p,t,wh,wo,delta,sigma,pi,ak,dppt,sr
- integer k
-c molecular optical depth
-
- common /sixs_atm/ z(34),p(34),t(34),wh(34),wo(34)
- common /sixs_del/ delta,sigma
- real ns
- data pi /3.1415926/
- ak=1/wl
- awl=wl
-
-c air refraction index edlen 1966 / metrologia,2,71-80 putting pw=0
- a1=130.-ak*ak
- a2=38.9-ak*ak
- a3=2406030./a1
- a4=15997./a2
- an=(8342.13+a3+a4)*1.0e-08
- an=an+1.d+00
- a=(24.*pi**3)*((an*an-1.)**2)*(6.+3.*delta)/(6.-7.*delta)
- s /((an*an+2.)**2)
- tray=0.
- do k=1,33
- ns=2.54743e+19
- dppt=(288.15/1013.25)*(p(k)/t(k)+p(k+1)/t(k+1))/2.
- sr=(a*dppt/(awl**4)/ns*1.e+16)*1.e+05
- tray=tray+(z(k+1)-z(k))*sr
- enddo
-
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.h b/Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.h
deleted file mode 100644
index 8806a6d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ODRAYL.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_odrayl_(
- otb_6s_doublereal *wl,
- otb_6s_doublereal *tray
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OS.P b/Modules/ThirdParty/6S/src/6SV1.0B/OS.P
deleted file mode 100644
index 64a393b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OS.P
+++ /dev/null
@@ -1,9 +0,0 @@
-extern int os_(integer *iaer_prof__, doublereal *tamoy, doublereal *trmoy, doublereal *pizmoy, doublereal *tamoyp, doublereal *trmoyp, doublereal *palt, doublereal *phirad, integer *nt, integer *mu, integer *np, doublereal *rm, doublereal *gb, doublereal *rp, doublereal *xl, doublereal *xlphim, integer *nfi, doublereal *rolut);
-/* comlen num_quad__ 4 */
-/* comlen sixs_polar__ 56032 */
-/* comlen sixs_del__ 16 */
-/* comlen sixs_ier__ 8 */
-/* comlen multorder_ 4 */
-/*:ref: discre_ 14 11 7 7 7 7 4 4 7 7 7 7 7 */
-/*:ref: aero_prof__ 14 11 7 7 7 7 4 7 7 7 7 7 7 */
-/*:ref: kernel_ 14 6 4 4 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OS.c b/Modules/ThirdParty/6S/src/6SV1.0B/OS.c
deleted file mode 100644
index f490fd3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OS.c
+++ /dev/null
@@ -1,1401 +0,0 @@
-/* OS.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal pha[1000], qha[1000], uha[1000], alphal[1001], betal[1001],
- gammal[1001], zetal[1001];
-} sixs_polar__;
-
-#define sixs_polar__1 sixs_polar__
-
-Extern struct {
- doublereal delta, sigma;
-} sixs_del__;
-
-#define sixs_del__1 sixs_del__
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-Extern struct {
- integer igmax;
-} multorder_;
-
-#define multorder_1 multorder_
-
-/*< >*/
-/* Subroutine */ int os_(integer *iaer_prof__, doublereal *tamoy, doublereal *
- trmoy, doublereal *pizmoy, doublereal *tamoyp, doublereal *trmoyp,
- doublereal *palt, doublereal *phirad, integer *nt, integer *mu,
- integer *np, doublereal *rm, doublereal *gb, doublereal *rp,
- doublereal *xl, doublereal *xlphim, integer *nfi, doublereal *rolut)
-{
- /* System generated locals */
- integer rm_offset, gb_offset, xl_dim1, xl_offset, rolut_dim1,
- rolut_offset, i__1, i__2, i__3, i__4;
- doublereal d__1;
-
- /* Builtin functions */
- double log(doublereal), exp(doublereal), acos(doublereal), cos(doublereal)
- , sqrt(doublereal);
-
- /* Local variables */
- doublereal roavion0, roavion1, roavion2, a, b, c__, d__, f, h__[31];
- integer i__, j, k, l, m;
- doublereal x, y, z__, a1, d1, g1, i1[1581] /* was [31][51] */, i2[1581]
- /* was [31][51] */, i3[51], i4[51];
- extern /* Subroutine */ int aero_prof__(doublereal *, doublereal *,
- doublereal *, doublereal *, integer *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *);
- doublereal y1, ca, dd, ha, ch[31];
- integer ig;
- doublereal bp[1326] /* was [26][51] */;
- integer jj;
- doublereal ta, cr, in[51], pi, hr, th;
- integer it, is;
- doublereal tr, xx, zx, yy, ii1, ii2, sa1, sa2, xi1, xi2, zi1, xt1, xt2,
- cfi;
- integer ifi;
- doublereal xdb, phi, tap;
- integer isp, itp;
- doublereal psl[51102] /* was [1002][51] */, its, ron, spl, piz, xpl[
- 51], xpk, trp;
- integer snt, ntp;
- doublereal xpj, ypk, inm1[51], inm2[51];
- doublereal acu2 = 0.;
- integer mum1;
- doublereal ppp1, ppp2, aaaa, scaa, accu, altc[31], bpjk, xdel[31], ydel[
- 31], nbmu, taup, beta0, xmus, accu2, beta2, cscaa, bpjmk;
- integer index, iborm;
- doublereal ratio, filut[1025] /* was [25][41] */, luttv, iscama,
- nbisca, iscami;
- integer iplane;
- extern /* Subroutine */ int discre_(doublereal *, doublereal *,
- doublereal *, doublereal *, integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *), kernel_(
- integer *, integer *, doublereal *, doublereal *, doublereal *,
- doublereal *);
- doublereal phimul;
- integer nfilut[25];
- doublereal lutmuv, delta0s, roavion;
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real pha,qha,uha,alphal,betal,gammal,zetal >*/
-/*< >*/
-/*< real nbmu >*/
-/* - to vary the number of quadratures */
-/* dimension for gauss integration */
-/*< integer mu,np,nfi >*/
-/*< real rm(-mu:mu),gb(-mu:mu),rp(np),xlphim(nfi) >*/
-/* dimension for os computation */
-/*< real xl(-mu:mu,np) >*/
-/* array for sos computation */
-/* THOMAS */
-/* double precision xpl(-mu:mu),bp(0:mu,-mu:mu), */
-/* s xdel(0:nt),ydel(0:nt),ch(0:nt),h(0:nt),altc(0:nt) */
-/* double precision i1(0:nt,-mu:mu),i2(0:nt,-mu:mu),i3(-mu:mu), */
-/* s i4(-mu:mu),in(-mu:mu),inm1(-mu:mu),inm2(-mu:mu) */
-/*< >*/
-/*< >*/
-/* CCC Begin Variable for Look up table generation */
-/* azimuth or scattering angle variable for LUT computation (rolut) */
-/*azimuth table for look up table computation (filut), nb of fi in each ca
-se (nfilut)*/
-/*< real luttv,lutmuv,iscama,iscami,nbisca,its,scaa >*/
-/*< real rolut(mu,41) >*/
-/* THOMAS */
-/* real filut(mu,41) */
-/*< real filut(25,41) >*/
-/* double precision psl(-1:nqmax_p,-mu:mu) */
-/*< double precision psl(-1:1000,-25:25) >*/
-/* integer nfilut(mu) */
-/*< integer nfilut(25) >*/
-/* CCC End Variable for Look up table generation */
-/*< Real tamoy,trmoy,pizmoy >*/
-/*< Real tamoyp,trmoyp,palt,phirad >*/
-/*< real delta,sigma >*/
-/*< double precision hr,ta,tr,trp >*/
-/*< double precision tap,piz,accu,accu2,ha,xmus,zx,yy,dd >*/
-/*< double precision ppp2,ppp1,ca,cr,ratio >*/
-/*< double precision taup,th,xt1,xt2,pi,phi,aaaa,ron >*/
-/*< double precision roavion1,roavion2,roavion,spl,sa1 >*/
-/*< double precision beta0,beta2,roavion0 >*/
-/*< double precision sa2,c,zi1,f,d,xpk,y >*/
-/*< double precision a1,d1,g1,y1,delta0s >*/
-/*< integer snt >*/
-/*< integer nt,iwr,iplane,mum1,ntp,j,it,itp,i,l,m,iborm >*/
-/*< integer is,isp,ig,k,jj,index >*/
-/*< logical ier >*/
-/*< double precision xx,xdb,bpjk,bpjmk,z,xi1,xi2,x,xpj,ypk,a,b,ii1,ii2 >*/
-/*< integer igmax,iaer_prof >*/
-/*< common/sixs_del/delta,sigma >*/
-/*< common/sixs_ier/iwr,ier >*/
-/*< common /multorder/ igmax >*/
-/*< nbmu=nquad >*/
- /* Parameter adjustments */
- rolut_dim1 = *mu;
- rolut_offset = rolut_dim1 + 1;
- rolut -= rolut_offset;
- gb_offset = -(*mu);
- gb -= gb_offset;
- rm_offset = -(*mu);
- rm -= rm_offset;
- xl_dim1 = *mu - (-(*mu)) + 1;
- xl_offset = -(*mu) + xl_dim1;
- xl -= xl_offset;
- --rp;
- --xlphim;
-
- /* Function Body */
- nbmu = (doublereal) num_quad__1.nquad;
-/* the optical thickness above plane are recomputed to give o.t above pla
-*/
-/* write(6,*) 'tamoy,trmoy,tamoyp,trmoyp,palt,pizmoy' */
-/* write(6,*) tamoy,trmoy,tamoyp,trmoyp,palt,pizmoy */
-/* write(6,*) 'betal 0:80' */
-/* do i=0,80 */
-/* write(6,*) i,betal(i) */
-/* enddo */
-/* write(6,*) 'phase function 83 terms' */
-/* do i=1,83 */
-/* write(6,*) pha(i) */
-/* enddo */
-/*< snt=nt >*/
- snt = *nt;
-/*< hr=8.0 >*/
- hr = 8.;
-/*< ta=tamoy >*/
- ta = *tamoy;
-/*< tr=trmoy >*/
- tr = *trmoy;
-/*< trp=trmoy-trmoyp >*/
- trp = *trmoy - *trmoyp;
-/*< tap=tamoy-tamoyp >*/
- tap = *tamoy - *tamoyp;
-/*< piz=pizmoy >*/
- piz = *pizmoy;
-/* print *, 'ta,tr,piz,tap,trp,palt,nt' */
-/* print *,ta,tr,piz,tap,trp,palt,nt */
-/*< iplane=0 >*/
- iplane = 0;
-/*< accu=1.e-20 >*/
- accu = 1e-20;
-/*< accu2=1.e-3 >*/
- accu2 = .001;
-/*< mum1=mu-1 >*/
- mum1 = *mu - 1;
-/* if plane observations recompute scale height for aerosol knowing: */
-/* the aerosol optical depth as measure from the plane = tamoyp */
-/* the rayleigh scale height = = hr (8km) */
-/* the rayleigh optical depth at plane level = trmoyp */
-/* the altitude of the plane = palt */
-/* the rayleigh optical depth for total atmos = trmoy */
-/* the aerosol optical depth for total atmos = tamoy */
-/* if not plane observations then ha is equal to 2.0km */
-/* ntp local variable: if ntp=nt no plane observation selected */
-/* ntp=nt-1 plane observation selected */
-/* it's a mixing rayleigh+aerosol */
-/*< if(palt.le.900..and.palt.gt.0.0) then >*/
- if (*palt <= 900. && *palt > 0.) {
-/*< if (tap.gt.1.e-03) then >*/
- if (tap > .001) {
-/*< ha=-palt/log(tap/ta) >*/
- ha = -(*palt) / log(tap / ta);
-/*< else >*/
- } else {
-/*< ha=2. >*/
- ha = 2.;
-/*< endif >*/
- }
-/*< ntp=nt-1 >*/
- ntp = *nt - 1;
-/*< else >*/
- } else {
-/*< ha=2.0 >*/
- ha = 2.;
-/*< ntp=nt >*/
- ntp = *nt;
-/*< endif >*/
- }
-
-/*< xmus=-rm(0) >*/
- xmus = -rm[0];
-
-/* compute mixing rayleigh, aerosol */
-/* case 1: pure rayleigh */
-/* case 2: pure aerosol */
-/* case 3: mixing rayleigh-aerosol */
-
-/*< if((ta.le.accu2).and.(tr.gt.ta)) then >*/
- if (ta <= accu2 && tr > ta) {
-/*< do j=0,ntp >*/
- i__1 = ntp;
- for (j = 0; j <= i__1; ++j) {
-/*< h(j)=j*tr/ntp >*/
- h__[j] = j * tr / ntp;
-/*< ch(j)=exp(-h(j)/xmus)/2. >*/
- ch[j] = exp(-h__[j] / xmus) / 2.;
-/*< ydel(j)=1.0 >*/
- ydel[j] = 1.;
-/*< xdel(j)=0.0 >*/
- xdel[j] = 0.;
-/*< if (j.eq.0) then >*/
- if (j == 0) {
-/*< altc(j)=300. >*/
- altc[j] = 300.;
-/*< else >*/
- } else {
-/*< altc(j)=-log(h(j)/tr)*hr >*/
- altc[j] = -log(h__[j] / tr) * hr;
-/*< endif >*/
- }
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< if((tr.le.accu2).and.(ta.gt.tr)) then >*/
- if (tr <= accu2 && ta > tr) {
-/*< do j=0,ntp >*/
- i__1 = ntp;
- for (j = 0; j <= i__1; ++j) {
-/*< h(j)=j*ta/ntp >*/
- h__[j] = j * ta / ntp;
-/*< ch(j)=exp(-h(j)/xmus)/2. >*/
- ch[j] = exp(-h__[j] / xmus) / 2.;
-/*< ydel(j)=0.0 >*/
- ydel[j] = 0.;
-/*< xdel(j)=piz >*/
- xdel[j] = piz;
-/*< if (j.eq.0) then >*/
- if (j == 0) {
-/*< altc(j)=300. >*/
- altc[j] = 300.;
-/*< else >*/
- } else {
-/*< altc(j)=-log(h(j)/ta)*ha >*/
- altc[j] = -log(h__[j] / ta) * ha;
-/*< endif >*/
- }
-/*< enddo >*/
- }
-/*< endif >*/
- }
-
-/*< if(tr.gt.accu2.and.ta.gt.accu2.and.iaer_prof.eq.0)then >*/
- if (tr > accu2 && ta > accu2 && *iaer_prof__ == 0) {
-/*< ydel(0)=1.0 >*/
- ydel[0] = 1.;
-/*< xdel(0)=0.0 >*/
- xdel[0] = 0.;
-/*< h(0)=0. >*/
- h__[0] = 0.;
-/*< ch(0)=0.5 >*/
- ch[0] = .5;
-/*< altc(0)=300. >*/
- altc[0] = 300.;
-/*< zx=300. >*/
- zx = 300.;
-/*< iplane=0 >*/
- iplane = 0;
-/*< do 14 it=0,ntp >*/
- i__1 = ntp;
- for (it = 0; it <= i__1; ++it) {
-/*< if (it.eq.0) then >*/
- if (it == 0) {
-/*< yy=0. >*/
- yy = 0.;
-/*< dd=0. >*/
- dd = 0.;
-/*< goto 111 >*/
- goto L111;
-/*< endif >*/
- }
-/*< yy=h(it-1) >*/
- yy = h__[it - 1];
-/*< dd=ydel(it-1) >*/
- dd = ydel[it - 1];
-/*< 111 ppp2=300.0 >*/
-L111:
- ppp2 = 300.;
-/*< ppp1=0.0 >*/
- ppp1 = 0.;
-/*< itp=it >*/
- itp = it;
-/*< >*/
- discre_(&ta, &ha, &tr, &hr, &itp, &ntp, &yy, &dd, &ppp2, &ppp1, &
- zx);
-/*< if(ier)return >*/
- if (sixs_ier__1.ier) {
- return 0;
- }
-/*< xx=-zx/ha >*/
- xx = -zx / ha;
-/*< if (xx.le.-20) then >*/
- if (xx <= -20.) {
-/*< ca=0. >*/
- ca = 0.;
-/*< else >*/
- } else {
-/*< ca=ta*dexp(xx) >*/
- ca = ta * exp(xx);
-/*< endif >*/
- }
-/*< xx=-zx/hr >*/
- xx = -zx / hr;
-/*< cr=tr*dexp(xx) >*/
- cr = tr * exp(xx);
-/*< h(it)=cr+ca >*/
- h__[it] = cr + ca;
-/*< altc(it)=zx >*/
- altc[it] = zx;
-/*< ch(it)=exp(-h(it)/xmus)/2. >*/
- ch[it] = exp(-h__[it] / xmus) / 2.;
-/*< cr=cr/hr >*/
- cr /= hr;
-/*< ca=ca/ha >*/
- ca /= ha;
-/*< ratio=cr/(cr+ca) >*/
- ratio = cr / (cr + ca);
-/*< xdel(it)=(1.e+00-ratio)*piz >*/
- xdel[it] = (1. - ratio) * piz;
-/*< ydel(it)=ratio >*/
- ydel[it] = ratio;
-/* print *,'discre ',it,cr,ca,xdel(it),ydel(it),zx */
-/*< 14 continue >*/
-/* L14: */
- }
-/*< endif >*/
- }
-/*< if(tr.gt.acu2.and.ta.gt.acu2.and.iaer_prof.eq.1)then >*/
- if (tr > acu2 && ta > acu2 && *iaer_prof__ == 1) {
-/*< >*/
- aero_prof__(&ta, &piz, &tr, &hr, &ntp, &xmus, h__, ch, ydel, xdel,
- altc);
-/*< endif >*/
- }
-/* update plane layer if necessary */
-/*< if (ntp.eq.(nt-1)) then >*/
- if (ntp == *nt - 1) {
-/* compute position of the plane layer */
-/*< taup=tap+trp >*/
- taup = tap + trp;
-/*< iplane=-1 >*/
- iplane = -1;
-/*< do i=0,ntp >*/
- i__1 = ntp;
- for (i__ = 0; i__ <= i__1; ++i__) {
-/*< if (taup.ge.h(i)) iplane=i >*/
- if (taup >= h__[i__]) {
- iplane = i__;
- }
-/*< enddo >*/
- }
-/* update the layer from the end to the position to update if necessar
-y */
-/*< th=0.0005 >*/
- th = 5e-4;
-/*< xt1=abs(h(iplane)-taup) >*/
- xt1 = (d__1 = h__[iplane] - taup, abs(d__1));
-/*< xt2=abs(h(iplane+1)-taup) >*/
- xt2 = (d__1 = h__[iplane + 1] - taup, abs(d__1));
-/*< if ((xt1.gt.th).and.(xt2.gt.th)) then >*/
- if (xt1 > th && xt2 > th) {
-/*< do i=nt,iplane+1,-1 >*/
- i__1 = iplane + 1;
- for (i__ = *nt; i__ >= i__1; --i__) {
-/*< xdel(i)=xdel(i-1) >*/
- xdel[i__] = xdel[i__ - 1];
-/*< ydel(i)=ydel(i-1) >*/
- ydel[i__] = ydel[i__ - 1];
-/*< h(i)=h(i-1) >*/
- h__[i__] = h__[i__ - 1];
-/*< altc(i)=altc(i-1) >*/
- altc[i__] = altc[i__ - 1];
-/*< ch(i)=ch(i-1) >*/
- ch[i__] = ch[i__ - 1];
-/*< enddo >*/
- }
-/*< else >*/
- } else {
-/*< nt=ntp >*/
- *nt = ntp;
-/*< if (xt2.lt.xt1) iplane=iplane+1 >*/
- if (xt2 < xt1) {
- ++iplane;
- }
-/*< endif >*/
- }
-/*< h(iplane)=taup >*/
- h__[iplane] = taup;
-/*< if ( tr.gt.accu2.and.ta.gt.accu2) then >*/
- if (tr > accu2 && ta > accu2) {
-/*< ca=ta*exp(-palt/ha) >*/
- ca = ta * exp(-(*palt) / ha);
-/*< cr=tr*exp(-palt/hr) >*/
- cr = tr * exp(-(*palt) / hr);
-/*< h(iplane)=ca+cr >*/
- h__[iplane] = ca + cr;
-/*< cr=cr/hr >*/
- cr /= hr;
-/*< ca=ca/ha >*/
- ca /= ha;
-/*< ratio=cr/(cr+ca) >*/
- ratio = cr / (cr + ca);
-/*< xdel(iplane)=(1.e+00-ratio)*piz >*/
- xdel[iplane] = (1. - ratio) * piz;
-/*< ydel(iplane)=ratio >*/
- ydel[iplane] = ratio;
-/*< altc(iplane)=palt >*/
- altc[iplane] = *palt;
-/*< ch(iplane)=exp(-h(iplane)/xmus)/2. >*/
- ch[iplane] = exp(-h__[iplane] / xmus) / 2.;
-/*< endif >*/
- }
-/*< if ( tr.gt.accu2.and.ta.le.accu2) then >*/
- if (tr > accu2 && ta <= accu2) {
-/*< ydel(iplane)=1. >*/
- ydel[iplane] = 1.;
-/*< xdel(iplane)=0. >*/
- xdel[iplane] = 0.;
-/*< altc(iplane)=palt >*/
- altc[iplane] = *palt;
-/*< endif >*/
- }
-/*< if ( tr.le.accu2.and.ta.gt.accu2) then >*/
- if (tr <= accu2 && ta > accu2) {
-/*< ydel(iplane)=0. >*/
- ydel[iplane] = 0.;
-/*< xdel(iplane)=1.*piz >*/
- xdel[iplane] = piz * 1.;
-/*< altc(iplane)=palt >*/
- altc[iplane] = *palt;
-/*< endif >*/
- }
-/*< endif >*/
- }
-
-
-/* print *,ha,hr,palt,ta,tr,tap,trp */
-/* do i=0,nt */
-/* print *,i,h(i),ch(i),xdel(i),ydel(i),altc(i) */
-/* enddo */
-
-/*< pi=acos(-1.) >*/
- pi = acos(-1.);
-/*< phi=phirad >*/
- phi = *phirad;
-/*< do 615 l=1,np >*/
- i__1 = *np;
- for (l = 1; l <= i__1; ++l) {
-/*< do 615 m=-mu,mu >*/
- i__2 = *mu;
- for (m = -(*mu); m <= i__2; ++m) {
-/*< 615 xl(m,l)=0. >*/
-/* L615: */
- xl[m + l * xl_dim1] = 0.;
- }
- }
-/*< do ifi=1,nfi >*/
- i__2 = *nfi;
- for (ifi = 1; ifi <= i__2; ++ifi) {
-/*< xlphim(ifi)=0. >*/
- xlphim[ifi] = 0.;
-/*< enddo >*/
- }
-/* CC initialization of look up table variable */
-/*< do i=1,mu >*/
- i__2 = *mu;
- for (i__ = 1; i__ <= i__2; ++i__) {
-/*< nfilut(i)=0 >*/
- nfilut[i__ - 1] = 0;
-/*< do j=1,(nbmu-1)/2 >*/
- i__1 = (integer) ((nbmu - 1) / 2);
- for (j = 1; j <= i__1; ++j) {
-/*< rolut(i,j)=0. >*/
- rolut[i__ + j * rolut_dim1] = 0.;
-/*< filut(i,j)=0. >*/
- filut[i__ + j * 25 - 26] = 0.;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< its=acos(xmus)*180.0/pi >*/
- its = acos(xmus) * 180. / pi;
-/*< do i=1,mu >*/
- i__2 = *mu;
- for (i__ = 1; i__ <= i__2; ++i__) {
-/*< lutmuv=rm(i) >*/
- lutmuv = rm[i__];
-/*< luttv=acos(lutmuv)*180./pi >*/
- luttv = acos(lutmuv) * 180. / pi;
-/*< iscama=(180-abs(luttv-its)) >*/
- iscama = 180 - (d__1 = luttv - its, abs(d__1));
-/*< iscami=(180-(luttv+its)) >*/
- iscami = 180 - (luttv + its);
-/*< nbisca=int((iscama-iscami)/4)+1 >*/
- nbisca = (doublereal) ((integer) ((iscama - iscami) / 4) + 1);
-/*< nfilut(i)=nbisca >*/
- nfilut[i__ - 1] = (integer) nbisca;
-/*< filut(i,1)=0.0 >*/
- filut[i__ - 1] = 0.;
-/*< filut(i,nbisca)=180.0 >*/
- filut[i__ + (integer) nbisca * 25 - 26] = 180.;
-/*< scaa=iscama >*/
- scaa = iscama;
-/*< do j=2,nfilut(i)-1 >*/
- i__1 = nfilut[i__ - 1] - 1;
- for (j = 2; j <= i__1; ++j) {
-/*< scaa=scaa-4.0 >*/
- scaa += -4.;
-/*< cscaa=cos(scaa*pi/180.) >*/
- cscaa = cos(scaa * pi / 180.);
-/*< >*/
- cfi = -(cscaa + xmus * lutmuv) / (sqrt(1 - xmus * xmus) * sqrt(1.
- - lutmuv * lutmuv));
-/*< filut(i,j)=acos(cfi)*180.0/pi >*/
- filut[i__ + j * 25 - 26] = acos(cfi) * 180. / pi;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* CCC Check initialization (debug) */
-/* do i=1,mu */
-/* lutmuv=rm(i) */
-/* luttv=acos(lutmuv)*180./pi */
-/* do j=1,nfilut(i) */
-/* cscaa=-xmus*lutmuv-cos(filut(i,j)*pi/180.)*sqrt(1.-xmus*xmus) */
-/* S *sqrt(1.-lutmuv*lutmuv) */
-/* scaa=acos(cscaa)*180./pi */
-/* write(6,*) its,luttv,filut(i,j),scaa */
-/* enddo */
-/* enddo */
-/* CCC Check initialization (debug) */
-/* CC end initialization of look up table variable */
-
-/* ************ incident angle mus ******* */
-
-
-/*< aaaa=delta/(2-delta) >*/
- aaaa = sixs_del__1.delta / (2 - sixs_del__1.delta);
-/*< ron=(1-aaaa)/(1+2*aaaa) >*/
- ron = (1 - aaaa) / (aaaa * 2 + 1);
-/* write(6,*) 'ron ',ron */
-
-/* rayleigh phase function */
-
-/*< beta0=1. >*/
- beta0 = 1.;
-/*< beta2=0.5*ron >*/
- beta2 = ron * .5;
-
-/* fourier decomposition */
-
-/*< do 17 j=-mu,mu >*/
- i__2 = *mu;
- for (j = -(*mu); j <= i__2; ++j) {
-/*< i4(j)=0. >*/
- i4[j + 25] = 0.;
-/*< 17 continue >*/
-/* L17: */
- }
-/*< iborm=nbmu-3 >*/
- iborm = (integer) (nbmu - 3);
-/*< if( abs (xmus-1.000000) .lt.1.e-06)iborm=0 >*/
- if ((d__1 = xmus - 1., abs(d__1)) < 1e-6) {
- iborm = 0;
- }
-/*< do 24 is=0,iborm >*/
- i__2 = iborm;
- for (is = 0; is <= i__2; ++is) {
-
-/* primary scattering */
-
-/*< ig=1 >*/
- ig = 1;
-/*< roavion0=0. >*/
- roavion0 = 0.;
-/*< roavion1=0. >*/
- roavion1 = 0.;
-/*< roavion2=0. >*/
- roavion2 = 0.;
-/*< roavion=0. >*/
- roavion = 0.;
-/*< do 16 j=-mu,mu >*/
- i__1 = *mu;
- for (j = -(*mu); j <= i__1; ++j) {
-/*< i3(j)=0. >*/
- i3[j + 25] = 0.;
-/*< 16 continue >*/
-/* L16: */
- }
-
-/* kernel computations */
-
-/*< isp=is >*/
- isp = is;
-/*< call kernel(isp,mu,rm,xpl,psl,bp) >*/
- kernel_(&isp, mu, &rm[rm_offset], xpl, psl, bp);
-/*< if(is.gt.0)beta0=0. >*/
- if (is > 0) {
- beta0 = 0.;
- }
-/*< do 100 j=-mu,mu >*/
- i__1 = *mu;
- for (j = -(*mu); j <= i__1; ++j) {
-/*< if(is-2)200,200,201 >*/
- if (is - 2 <= 0) {
- goto L200;
- } else {
- goto L201;
- }
-/*< 200 spl=xpl(0) >*/
-L200:
- spl = xpl[25];
-/*< sa1=beta0+beta2*xpl(j)*spl >*/
- sa1 = beta0 + beta2 * xpl[j + 25] * spl;
-/*< sa2=bp(0,j) >*/
- sa2 = bp[j * 26 + 650];
-/*< goto 202 >*/
- goto L202;
-/*< 201 sa2=bp(0,j) >*/
-L201:
- sa2 = bp[j * 26 + 650];
-/*< sa1=0. >*/
- sa1 = 0.;
-
-/* primary scattering source function at every level within th
-e layer */
-
-/*< 202 do 101 k=0,nt >*/
-L202:
- i__3 = *nt;
- for (k = 0; k <= i__3; ++k) {
-/*< c=ch(k) >*/
- c__ = ch[k];
-/*< a=ydel(k) >*/
- a = ydel[k];
-/*< b=xdel(k) >*/
- b = xdel[k];
-/*< i2(k,j)=c*(sa2*b+sa1*a) >*/
- i2[k + j * 31 + 775] = c__ * (sa2 * b + sa1 * a);
-/*< 101 continue >*/
-/* L101: */
- }
-/*< 100 continue >*/
-/* L100: */
- }
-
-/* vertical integration, primary upward radiation */
-
-/*< do 108 k=1,mu >*/
- i__1 = *mu;
- for (k = 1; k <= i__1; ++k) {
-/*< i1(nt,k)=0. >*/
- i1[*nt + k * 31 + 775] = 0.;
-/*< zi1=i1(nt,k) >*/
- zi1 = i1[*nt + k * 31 + 775];
-/*< yy=rm(k) >*/
- yy = rm[k];
-/*< do 108 i=nt-1,0,-1 >*/
- for (i__ = *nt - 1; i__ >= 0; --i__) {
-/*< jj=i+1 >*/
- jj = i__ + 1;
-/*< f=h(jj)-h(i) >*/
- f = h__[jj] - h__[i__];
-/*< a=(i2(jj,k)-i2(i,k))/f >*/
- a = (i2[jj + k * 31 + 775] - i2[i__ + k * 31 + 775]) / f;
-/*< b=i2(i,k)-a*h(i) >*/
- b = i2[i__ + k * 31 + 775] - a * h__[i__];
-/*< c=exp(-f/yy) >*/
- c__ = exp(-f / yy);
-/*< d=1.0e+00-c >*/
- d__ = 1. - c__;
-/*< xx=h(i)-h(jj)*c >*/
- xx = h__[i__] - h__[jj] * c__;
-/*< zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zi1 = c__ * zi1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< i1(i,k)=zi1 >*/
- i1[i__ + k * 31 + 775] = zi1;
-/*< 108 continue >*/
-/* L108: */
- }
- }
-
-/* vertical integration, primary downward radiation */
-
-/*< do 109 k=-mu,-1 >*/
- for (k = -(*mu); k <= -1; ++k) {
-/*< i1(0,k)=0. >*/
- i1[k * 31 + 775] = 0.;
-/*< zi1=i1(0,k) >*/
- zi1 = i1[k * 31 + 775];
-/*< yy=rm(k) >*/
- yy = rm[k];
-/*< do 109 i=1,nt >*/
- i__1 = *nt;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< jj=i-1 >*/
- jj = i__ - 1;
-/*< f=h(i)-h(jj) >*/
- f = h__[i__] - h__[jj];
-/*< c=exp(f/yy) >*/
- c__ = exp(f / yy);
-/*< d=1.0e+00-c >*/
- d__ = 1. - c__;
-/*< a=(i2(i,k)-i2(jj,k))/f >*/
- a = (i2[i__ + k * 31 + 775] - i2[jj + k * 31 + 775]) / f;
-/*< b=i2(i,k)-a*h(i) >*/
- b = i2[i__ + k * 31 + 775] - a * h__[i__];
-/*< xx=h(i)-h(jj)*c >*/
- xx = h__[i__] - h__[jj] * c__;
-/*< zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zi1 = c__ * zi1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< i1(i,k)=zi1 >*/
- i1[i__ + k * 31 + 775] = zi1;
-/*< 109 continue >*/
-/* L109: */
- }
- }
-
-/* inm2 is inialized with scattering computed at n-2 */
-/* i3 is inialized with primary scattering */
-
-/*< do 20 k=-mu,mu >*/
- i__1 = *mu;
- for (k = -(*mu); k <= i__1; ++k) {
-/*< if(k) 21,20,23 >*/
- if (k < 0) {
- goto L21;
- } else if (k == 0) {
- goto L20;
- } else {
- goto L23;
- }
-/*< 21 index=nt >*/
-L21:
- index = *nt;
-/*< go to 25 >*/
- goto L25;
-/*< 23 index=0 >*/
-L23:
- index = 0;
-/*< 25 continue >*/
-L25:
-/*< inm1(k)=i1(index,k) >*/
- inm1[k + 25] = i1[index + k * 31 + 775];
-/*< inm2(k)=i1(index,k) >*/
- inm2[k + 25] = i1[index + k * 31 + 775];
-/*< i3(k)=i1(index,k) >*/
- i3[k + 25] = i1[index + k * 31 + 775];
-/*< 20 continue >*/
-L20:
- ;
- }
-/*< roavion2=i1(iplane,mu) >*/
- roavion2 = i1[iplane + *mu * 31 + 775];
-/*< roavion=i1(iplane,mu) >*/
- roavion = i1[iplane + *mu * 31 + 775];
-
-/* loop on successive order */
-
-/*< 503 ig=ig+1 >*/
-L503:
- ++ig;
-/* write(6,*) 'ig ',ig */
-
-/* successive orders */
-
-/* multiple scattering source function at every level within the l
-aye */
-
-/* if is < ou = 2 kernels are a mixing of aerosols and molecules k
-ern */
-/* if is >2 aerosols kernels only */
-
-/*< if(is-2)210,210,211 >*/
- if (is - 2 <= 0) {
- goto L210;
- } else {
- goto L211;
- }
-/*< 210 do455 k=1,mu >*/
-L210:
- i__1 = *mu;
- for (k = 1; k <= i__1; ++k) {
-/*< xpk=xpl(k) >*/
- xpk = xpl[k + 25];
-/*< ypk=xpl(-k) >*/
- ypk = xpl[-k + 25];
-/*< do 455 i=0,nt >*/
- i__3 = *nt;
- for (i__ = 0; i__ <= i__3; ++i__) {
-/*< ii1=0. >*/
- ii1 = 0.;
-/*< ii2=0. >*/
- ii2 = 0.;
-/*< x=xdel(i) >*/
- x = xdel[i__];
-/*< y=ydel(i) >*/
- y = ydel[i__];
-/*< do477 j=1,mu >*/
- i__4 = *mu;
- for (j = 1; j <= i__4; ++j) {
-/*< xpj=xpl(j) >*/
- xpj = xpl[j + 25];
-/*< z=gb(j) >*/
- z__ = gb[j];
-/*< xi1=i1(i,j) >*/
- xi1 = i1[i__ + j * 31 + 775];
-/*< xi2=i1(i,-j) >*/
- xi2 = i1[i__ + -j * 31 + 775];
-/*< bpjk=bp(j,k)*x+y*(beta0+beta2*xpj*xpk) >*/
- bpjk = bp[j + k * 26 + 650] * x + y * (beta0 + beta2 *
- xpj * xpk);
-/*< bpjmk=bp(j,-k)*x+y*(beta0+beta2*xpj*ypk) >*/
- bpjmk = bp[j + -k * 26 + 650] * x + y * (beta0 + beta2 *
- xpj * ypk);
-/*< xdb=z*(xi1*bpjk+xi2*bpjmk) >*/
- xdb = z__ * (xi1 * bpjk + xi2 * bpjmk);
-/*< ii2=ii2+xdb >*/
- ii2 += xdb;
-/*< xdb=z*(xi1*bpjmk+xi2*bpjk) >*/
- xdb = z__ * (xi1 * bpjmk + xi2 * bpjk);
-/*< ii1=ii1+xdb >*/
- ii1 += xdb;
-/*< 477 continue >*/
-/* L477: */
- }
-/*< if (abs(ii2).lt.1.E-30) ii2=0. >*/
- if (abs(ii2) < 1e-30) {
- ii2 = 0.;
- }
-/*< if (abs(ii1).lt.1.E-30) ii1=0. >*/
- if (abs(ii1) < 1e-30) {
- ii1 = 0.;
- }
-/*< i2(i,k)=ii2 >*/
- i2[i__ + k * 31 + 775] = ii2;
-/*< i2(i,-k)=ii1 >*/
- i2[i__ + -k * 31 + 775] = ii1;
-/*< 455 continue >*/
-/* L455: */
- }
- }
-/*< goto 213 >*/
- goto L213;
-/*< 211 do45 k=1,mu >*/
-L211:
- i__3 = *mu;
- for (k = 1; k <= i__3; ++k) {
-/*< do 45 i=0,nt >*/
- i__1 = *nt;
- for (i__ = 0; i__ <= i__1; ++i__) {
-/*< ii1=0. >*/
- ii1 = 0.;
-/*< ii2=0. >*/
- ii2 = 0.;
-/*< x=xdel(i) >*/
- x = xdel[i__];
-/*< do47 j=1,mu >*/
- i__4 = *mu;
- for (j = 1; j <= i__4; ++j) {
-/*< z=gb(j) >*/
- z__ = gb[j];
-/*< xi1=i1(i,j) >*/
- xi1 = i1[i__ + j * 31 + 775];
-/*< xi2=i1(i,-j) >*/
- xi2 = i1[i__ + -j * 31 + 775];
-/*< bpjk=bp(j,k)*x >*/
- bpjk = bp[j + k * 26 + 650] * x;
-/*< bpjmk=bp(j,-k)*x >*/
- bpjmk = bp[j + -k * 26 + 650] * x;
-/*< xdb=z*(xi1*bpjk+xi2*bpjmk) >*/
- xdb = z__ * (xi1 * bpjk + xi2 * bpjmk);
-/*< ii2=ii2+xdb >*/
- ii2 += xdb;
-/*< xdb=z*(xi1*bpjmk+xi2*bpjk) >*/
- xdb = z__ * (xi1 * bpjmk + xi2 * bpjk);
-/*< ii1=ii1+xdb >*/
- ii1 += xdb;
-/*< 47 continue >*/
-/* L47: */
- }
-/*< if (abs(ii2).lt.1.E-30) ii2=0. >*/
- if (abs(ii2) < 1e-30) {
- ii2 = 0.;
- }
-/*< if (abs(ii1).lt.1.E-30) ii1=0. >*/
- if (abs(ii1) < 1e-30) {
- ii1 = 0.;
- }
-/*< i2(i,k)=ii2 >*/
- i2[i__ + k * 31 + 775] = ii2;
-/*< i2(i,-k)=ii1 >*/
- i2[i__ + -k * 31 + 775] = ii1;
-/*< 45 continue >*/
-/* L45: */
- }
- }
-
-/* vertical integration, upward radiation */
-
-/*< 213 do 48 k=1,mu >*/
-L213:
- i__1 = *mu;
- for (k = 1; k <= i__1; ++k) {
-/*< i1(nt,k)=0. >*/
- i1[*nt + k * 31 + 775] = 0.;
-/*< zi1=i1(nt,k) >*/
- zi1 = i1[*nt + k * 31 + 775];
-/*< yy=rm(k) >*/
- yy = rm[k];
-/*< do 48 i=nt-1,0,-1 >*/
- for (i__ = *nt - 1; i__ >= 0; --i__) {
-/*< jj=i+1 >*/
- jj = i__ + 1;
-/*< f=h(jj)-h(i) >*/
- f = h__[jj] - h__[i__];
-/*< a=(i2(jj,k)-i2(i,k))/f >*/
- a = (i2[jj + k * 31 + 775] - i2[i__ + k * 31 + 775]) / f;
-/*< b=i2(i,k)-a*h(i) >*/
- b = i2[i__ + k * 31 + 775] - a * h__[i__];
-/*< c=exp(-f/yy) >*/
- c__ = exp(-f / yy);
-/*< d=1.e+00-c >*/
- d__ = 1. - c__;
-/*< xx=h(i)-h(jj)*c >*/
- xx = h__[i__] - h__[jj] * c__;
-/*< zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zi1 = c__ * zi1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< if (abs(zi1).le.1.E-20) zi1=0. >*/
- if (abs(zi1) <= 1e-20) {
- zi1 = 0.;
- }
-/*< i1(i,k)=zi1 >*/
- i1[i__ + k * 31 + 775] = zi1;
-/*< 48 continue >*/
-/* L48: */
- }
- }
-
-/* vertical integration, downward radiation */
-
-/*< do 50 k=-mu,-1 >*/
- for (k = -(*mu); k <= -1; ++k) {
-/*< i1(0,k)=0. >*/
- i1[k * 31 + 775] = 0.;
-/*< zi1=i1(0,k) >*/
- zi1 = i1[k * 31 + 775];
-/*< yy=rm(k) >*/
- yy = rm[k];
-/*< do 50 i=1,nt >*/
- i__1 = *nt;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< jj=i-1 >*/
- jj = i__ - 1;
-/*< f=h(i)-h(jj) >*/
- f = h__[i__] - h__[jj];
-/*< c=exp(f/yy) >*/
- c__ = exp(f / yy);
-/*< d=1.e+00-c >*/
- d__ = 1. - c__;
-/*< a=(i2(i,k)-i2(jj,k))/f >*/
- a = (i2[i__ + k * 31 + 775] - i2[jj + k * 31 + 775]) / f;
-/*< b=i2(i,k)-a*h(i) >*/
- b = i2[i__ + k * 31 + 775] - a * h__[i__];
-/*< xx=h(i)-h(jj)*c >*/
- xx = h__[i__] - h__[jj] * c__;
-/*< zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zi1 = c__ * zi1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< if (abs(zi1).le.1.E-20) zi1=0. >*/
- if (abs(zi1) <= 1e-20) {
- zi1 = 0.;
- }
-/*< i1(i,k)=zi1 >*/
- i1[i__ + k * 31 + 775] = zi1;
-/*< 50 continue >*/
-/* L50: */
- }
- }
-
-/* in is the nieme scattering order */
-
-/*< do 30 k=-mu,mu >*/
- i__1 = *mu;
- for (k = -(*mu); k <= i__1; ++k) {
-/*< if(k) 31,30,33 >*/
- if (k < 0) {
- goto L31;
- } else if (k == 0) {
- goto L30;
- } else {
- goto L33;
- }
-/*< 31 index=nt >*/
-L31:
- index = *nt;
-/*< go to 34 >*/
- goto L34;
-/*< 33 index=0 >*/
-L33:
- index = 0;
-/*< 34 continue >*/
-L34:
-/*< in(k)=i1(index,k) >*/
- in[k + 25] = i1[index + k * 31 + 775];
-/*< 30 continue >*/
-L30:
- ;
- }
-/*< roavion0=i1(iplane,mu) >*/
- roavion0 = i1[iplane + *mu * 31 + 775];
-
-/* convergence test (geometrical serie) */
-
-/*< if(ig.gt.2) then >*/
- if (ig > 2) {
-/*< z=0. >*/
- z__ = 0.;
-/*< a1=roavion2 >*/
- a1 = roavion2;
-/*< d1=roavion1 >*/
- d1 = roavion1;
-/*< g1=roavion0 >*/
- g1 = roavion0;
-/*< if(a1.ge.accu.and.d1.ge.accu.and.roavion.ge.accu) then >*/
- if (a1 >= accu && d1 >= accu && roavion >= accu) {
-/*< y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/roavion)) >*/
-/* Computing 2nd power */
- d__1 = 1 - g1 / d1;
- y = (g1 / d1 - d1 / a1) / (d__1 * d__1) * (g1 / roavion);
-/*< y=abs(y) >*/
- y = abs(y);
-/*< z=dmax1(dble(y),z) >*/
- z__ = max(y,z__);
-/*< endif >*/
- }
-/*< do 99 l=-mu,mu >*/
- i__1 = *mu;
- for (l = -(*mu); l <= i__1; ++l) {
-/*< if (l.eq.0) goto 99 >*/
- if (l == 0) {
- goto L99;
- }
-/*< a1=inm2(l) >*/
- a1 = inm2[l + 25];
-/*< d1=inm1(l) >*/
- d1 = inm1[l + 25];
-/*< g1=in(l) >*/
- g1 = in[l + 25];
-/*< if(a1.le.accu) go to 99 >*/
- if (a1 <= accu) {
- goto L99;
- }
-/*< if(d1.le.accu) go to 99 >*/
- if (d1 <= accu) {
- goto L99;
- }
-/*< if(i3(l).le.accu) go to 99 >*/
- if (i3[l + 25] <= accu) {
- goto L99;
- }
-/*< y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/i3(l))) >*/
-/* Computing 2nd power */
- d__1 = 1 - g1 / d1;
- y = (g1 / d1 - d1 / a1) / (d__1 * d__1) * (g1 / i3[l + 25]);
-/*< y=abs(y) >*/
- y = abs(y);
-/*< z=dmax1(dble(y),z) >*/
- z__ = max(y,z__);
-/*< 99 continue >*/
-L99:
- ;
- }
-/*< if(z.lt.0.0001) then >*/
- if (z__ < 1e-4) {
-
-/* successful test (geometrical serie) */
-
-/*< do 606 l=-mu,mu >*/
- i__1 = *mu;
- for (l = -(*mu); l <= i__1; ++l) {
-/*< y1=1. >*/
- y1 = 1.;
-/*< d1=inm1(l) >*/
- d1 = inm1[l + 25];
-/*< g1=in(l) >*/
- g1 = in[l + 25];
-/*< if(d1.le.accu) go to 606 >*/
- if (d1 <= accu) {
- goto L606;
- }
-/*< y1=1-g1/d1 >*/
- y1 = 1 - g1 / d1;
-/*< if(abs(g1-d1).le.accu) then >*/
- if ((d__1 = g1 - d1, abs(d__1)) <= accu) {
-/*< go to 606 >*/
- goto L606;
-/*< endif >*/
- }
-/*< g1=g1/y1 >*/
- g1 /= y1;
-/*< i3(l)=i3(l)+g1 >*/
- i3[l + 25] += g1;
-/*< 606 continue >*/
-L606:
- ;
- }
-/*< d1=roavion1 >*/
- d1 = roavion1;
-/*< g1=roavion0 >*/
- g1 = roavion0;
-/*< y1=1. >*/
- y1 = 1.;
-/*< if(d1.ge.accu) then >*/
- if (d1 >= accu) {
-/*< if(abs(g1-d1).ge.accu) then >*/
- if ((d__1 = g1 - d1, abs(d__1)) >= accu) {
-/*< y1=1-g1/d1 >*/
- y1 = 1 - g1 / d1;
-/*< g1=g1/y1 >*/
- g1 /= y1;
-/*< endif >*/
- }
-/*< roavion=roavion+g1 >*/
- roavion += g1;
-/*< endif >*/
- }
-/*< go to 505 >*/
- goto L505;
-/*< endif >*/
- }
-
-/* inm2 is the (n-2)ieme scattering order */
-
-/*< do 26 k=-mu,mu >*/
- i__1 = *mu;
- for (k = -(*mu); k <= i__1; ++k) {
-/*< inm2(k)=inm1(k) >*/
- inm2[k + 25] = inm1[k + 25];
-/*< 26 continue >*/
-/* L26: */
- }
-/*< roavion2=roavion1 >*/
- roavion2 = roavion1;
-/*< endif >*/
- }
-
-/* inm1 is the (n-1)ieme scattering order */
-
-/*< do 27 k=-mu,mu >*/
- i__1 = *mu;
- for (k = -(*mu); k <= i__1; ++k) {
-/*< inm1(k)=in(k) >*/
- inm1[k + 25] = in[k + 25];
-/*< 27 continue >*/
-/* L27: */
- }
-/*< roavion1=roavion0 >*/
- roavion1 = roavion0;
-
-/* sum of the n-1 orders */
-
-/*< do 610 l=-mu,mu >*/
- i__1 = *mu;
- for (l = -(*mu); l <= i__1; ++l) {
-/*< i3(l)=i3(l)+in(l) >*/
- i3[l + 25] += in[l + 25];
-/*< 610 continue >*/
-/* L610: */
- }
-/*< roavion=roavion+roavion0 >*/
- roavion += roavion0;
-
-/* stop if order n is less than 1% of the sum */
-
-/*< z=0. >*/
- z__ = 0.;
-/*< do 611 l=-mu,mu >*/
- i__1 = *mu;
- for (l = -(*mu); l <= i__1; ++l) {
-/*< if (abs(i3(l)).ge.accu) then >*/
- if ((d__1 = i3[l + 25], abs(d__1)) >= accu) {
-/*< y=abs(in(l)/i3(l)) >*/
- y = (d__1 = in[l + 25] / i3[l + 25], abs(d__1));
-/*< z=dmax1(z,dble(y)) >*/
- z__ = max(z__,y);
-/*< endif >*/
- }
-/*< 611 continue >*/
-/* L611: */
- }
-/* if(z.lt.0.00001) go to 505 # 6SV4.0 choice */
-/*< if(z.lt.0.00001) go to 505 >*/
- if (z__ < 1e-5) {
- goto L505;
- }
-
-/* stop if order n is greater than 20 in any case */
-
-/*< if(ig-igmax) 503,503,505 >*/
- if (ig - multorder_1.igmax <= 0) {
- goto L503;
- } else {
- goto L505;
- }
-/*< 505 continue >*/
-L505:
-
-/* sum of the fourier component s */
-
-/*< delta0s=1 >*/
- delta0s = 1.;
-/*< if(is.ne.0) delta0s=2 >*/
- if (is != 0) {
- delta0s = 2.;
- }
-/*< do 612 l=-mu,mu >*/
- i__1 = *mu;
- for (l = -(*mu); l <= i__1; ++l) {
-/*< i4(l)=i4(l)+delta0s*i3(l) >*/
- i4[l + 25] += delta0s * i3[l + 25];
-/*< 612 continue >*/
-/* L612: */
- }
-
-/* stop of the fourier decomposition */
-
-/*< do 614 l=1,np >*/
- i__1 = *np;
- for (l = 1; l <= i__1; ++l) {
-/*< phi=rp(l) >*/
- phi = rp[l];
-/*< do 614 m=-mum1,mum1 >*/
- i__3 = mum1;
- for (m = -mum1; m <= i__3; ++m) {
-/*< if(m.gt.0) then >*/
- if (m > 0) {
-/*< xl(m,l)=xl(m,l)+delta0s*i3(m)*cos(is*(phi+pi)) >*/
- xl[m + l * xl_dim1] += delta0s * i3[m + 25] * cos(is * (
- phi + pi));
-/*< else >*/
- } else {
-/*< xl(m,l)=xl(m,l)+delta0s*i3(m)*cos(is*phi) >*/
- xl[m + l * xl_dim1] += delta0s * i3[m + 25] * cos(is *
- phi);
-/*< endif >*/
- }
-/*< 614 continue >*/
-/* L614: */
- }
- }
-/* Look up table generation */
-/*< do m=1,mu >*/
- i__3 = *mu;
- for (m = 1; m <= i__3; ++m) {
-/*< do l=1,nfilut(m) >*/
- i__1 = nfilut[m - 1];
- for (l = 1; l <= i__1; ++l) {
-/*< phimul=filut(m,l)*pi/180. >*/
- phimul = filut[m + l * 25 - 26] * pi / 180.;
-/*< rolut(m,l)=rolut(m,l)+delta0s*i3(m)*cos(is*(phimul+pi)) >*/
- rolut[m + l * rolut_dim1] += delta0s * i3[m + 25] * cos(is * (
- phimul + pi));
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* end of look up table generation */
-/*< if(is.eq.0) then >*/
- if (is == 0) {
-/*< do k=1,mum1 >*/
- i__3 = mum1;
- for (k = 1; k <= i__3; ++k) {
-/*< xl(0,1)=xl(0,1)+rm(k)*gb(k)*i3(-k) >*/
- xl[xl_dim1] += rm[k] * gb[k] * i3[-k + 25];
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< xl(mu,1)=xl(mu,1)+delta0s*i3(mu)*cos(is*(phirad+pi)) >*/
- xl[*mu + xl_dim1] += delta0s * i3[*mu + 25] * cos(is * (*phirad + pi))
- ;
-/*< do ifi=1,nfi >*/
- i__3 = *nfi;
- for (ifi = 1; ifi <= i__3; ++ifi) {
-/*< phimul=(ifi-1)*pi/(nfi-1) >*/
- phimul = (ifi - 1) * pi / (*nfi - 1);
-/*< xlphim(ifi)=xlphim(ifi)+delta0s*roavion*cos(is*(phimul+pi)) >*/
- xlphim[ifi] += delta0s * roavion * cos(is * (phimul + pi));
-/*< enddo >*/
- }
-/*< xl(-mu,1)=xl(-mu,1)+delta0s*roavion*cos(is*(phirad+pi)) >*/
- xl[-(*mu) + xl_dim1] += delta0s * roavion * cos(is * (*phirad + pi));
-/*< z=0. >*/
- z__ = 0.;
-/*< do 613 l=-mu,mu >*/
- i__3 = *mu;
- for (l = -(*mu); l <= i__3; ++l) {
-/*< if (abs(i4(l)).lt.accu) goto 613 >*/
- if ((d__1 = i4[l + 25], abs(d__1)) < accu) {
- goto L613;
- }
-/*< x=abs(i3(l)/i4(l)) >*/
- x = (d__1 = i3[l + 25] / i4[l + 25], abs(d__1));
-/*< z=dmax1(z,x) >*/
- z__ = max(z__,x);
-/*< 613 continue >*/
-L613:
- ;
- }
-/* if(z.gt.0.001) go to 24 #6Sv4.0 choice */
-/*< if(z.gt.0.001) go to 24 >*/
- if (z__ > .001) {
- goto L24;
- }
-/*< goto 243 >*/
- goto L243;
-/*< 24 continue >*/
-L24:
- ;
- }
-/*< 243 continue >*/
-L243:
-/*< nt=snt >*/
- *nt = snt;
-/* write(6,*) 'reflectance ', xl(mu,1)/xmus */
-/*< return >*/
- return 0;
-/*< end >*/
-} /* os_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OS.f b/Modules/ThirdParty/6S/src/6SV1.0B/OS.f
deleted file mode 100644
index 51d1d94..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OS.f
+++ /dev/null
@@ -1,681 +0,0 @@
- subroutine os (iaer_prof,tamoy,trmoy,pizmoy,tamoyp,trmoyp,palt,
- s phirad,nt,mu,np,rm,gb,rp,
- s xl,xlphim,nfi,rolut)
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real pha,qha,uha,alphal,betal,gammal,zetal
- common /sixs_polar/ pha(nqmax_p),qha(nqmax_p),uha(nqmax_p),
- &alphal(0:nqmax_p),betal(0:nqmax_p),gammal(0:nqmax_p),
- &zetal(0:nqmax_p)
- real nbmu
-c - to vary the number of quadratures
-
-
-c dimension for gauss integration
- integer mu,np,nfi
- real rm(-mu:mu),gb(-mu:mu),rp(np),xlphim(nfi)
-c dimension for os computation
- real xl(-mu:mu,np)
-c array for sos computation
-c THOMAS
-c double precision xpl(-mu:mu),bp(0:mu,-mu:mu),
-c s xdel(0:nt),ydel(0:nt),ch(0:nt),h(0:nt),altc(0:nt)
-c double precision i1(0:nt,-mu:mu),i2(0:nt,-mu:mu),i3(-mu:mu),
-c s i4(-mu:mu),in(-mu:mu),inm1(-mu:mu),inm2(-mu:mu)
-
- double precision xpl(-25:25),bp(0:25,-25:25),
- s xdel(0:30),ydel(0:30),ch(0:30),h(0:30),altc(0:30)
- double precision i1(0:30,-25:25),i2(0:30,-25:25),i3(-25:25),
- s i4(-25:25),in(-25:25),inm1(-25:25),inm2(-25:25)
-
-CCCC Begin Variable for Look up table generation
-C azimuth or scattering angle variable for LUT computation (rolut)
-C azimuth table for look up table computation (filut), nb of fi in each case (nfilut)
- real luttv,lutmuv,iscama,iscami,nbisca,its,scaa
- real rolut(mu,41)
-c THOMAS
-c real filut(mu,41)
- real filut(25,41)
-c double precision psl(-1:nqmax_p,-mu:mu)
- double precision psl(-1:1000,-25:25)
-c integer nfilut(mu)
- integer nfilut(25)
-CCCC End Variable for Look up table generation
-
-
- Real tamoy,trmoy,pizmoy
- Real tamoyp,trmoyp,palt,phirad
- real delta,sigma
- double precision hr,ta,tr,trp
- double precision tap,piz,accu,accu2,ha,xmus,zx,yy,dd
- double precision ppp2,ppp1,ca,cr,ratio
- double precision taup,th,xt1,xt2,pi,phi,aaaa,ron
- double precision roavion1,roavion2,roavion,spl,sa1
- double precision beta0,beta2,roavion0
- double precision sa2,c,zi1,f,d,xpk,y
- double precision a1,d1,g1,y1,delta0s
- integer snt
- integer nt,iwr,iplane,mum1,ntp,j,it,itp,i,l,m,iborm
- integer is,isp,ig,k,jj,index
- logical ier
- double precision xx,xdb,bpjk,bpjmk,z,xi1,xi2,x,xpj,ypk,a,b,ii1,ii2
- integer igmax,iaer_prof
-
-
-
- common/sixs_del/delta,sigma
- common/sixs_ier/iwr,ier
- common /multorder/ igmax
-
- nbmu=nquad
-c the optical thickness above plane are recomputed to give o.t above pla
-c write(6,*) 'tamoy,trmoy,tamoyp,trmoyp,palt,pizmoy'
-c write(6,*) tamoy,trmoy,tamoyp,trmoyp,palt,pizmoy
-c write(6,*) 'betal 0:80'
-c do i=0,80
-c write(6,*) i,betal(i)
-c enddo
-c write(6,*) 'phase function 83 terms'
-c do i=1,83
-c write(6,*) pha(i)
-c enddo
- snt=nt
- hr=8.0
- ta=tamoy
- tr=trmoy
- trp=trmoy-trmoyp
- tap=tamoy-tamoyp
- piz=pizmoy
-c print *, 'ta,tr,piz,tap,trp,palt,nt'
-c print *,ta,tr,piz,tap,trp,palt,nt
- iplane=0
- accu=1.e-20
- accu2=1.e-3
- mum1=mu-1
-c if plane observations recompute scale height for aerosol knowing:
-c the aerosol optical depth as measure from the plane = tamoyp
-c the rayleigh scale height = = hr (8km)
-c the rayleigh optical depth at plane level = trmoyp
-c the altitude of the plane = palt
-c the rayleigh optical depth for total atmos = trmoy
-c the aerosol optical depth for total atmos = tamoy
-c if not plane observations then ha is equal to 2.0km
-c ntp local variable: if ntp=nt no plane observation selected
-c ntp=nt-1 plane observation selected
-c it's a mixing rayleigh+aerosol
- if(palt.le.900..and.palt.gt.0.0) then
- if (tap.gt.1.e-03) then
- ha=-palt/log(tap/ta)
- else
- ha=2.
- endif
- ntp=nt-1
- else
- ha=2.0
- ntp=nt
- endif
-c
- xmus=-rm(0)
-c
-c compute mixing rayleigh, aerosol
-c case 1: pure rayleigh
-c case 2: pure aerosol
-c case 3: mixing rayleigh-aerosol
-c
- if((ta.le.accu2).and.(tr.gt.ta)) then
- do j=0,ntp
- h(j)=j*tr/ntp
- ch(j)=exp(-h(j)/xmus)/2.
- ydel(j)=1.0
- xdel(j)=0.0
- if (j.eq.0) then
- altc(j)=300.
- else
- altc(j)=-log(h(j)/tr)*hr
- endif
- enddo
- endif
- if((tr.le.accu2).and.(ta.gt.tr)) then
- do j=0,ntp
- h(j)=j*ta/ntp
- ch(j)=exp(-h(j)/xmus)/2.
- ydel(j)=0.0
- xdel(j)=piz
- if (j.eq.0) then
- altc(j)=300.
- else
- altc(j)=-log(h(j)/ta)*ha
- endif
- enddo
- endif
-c
- if(tr.gt.accu2.and.ta.gt.accu2.and.iaer_prof.eq.0)then
- ydel(0)=1.0
- xdel(0)=0.0
- h(0)=0.
- ch(0)=0.5
- altc(0)=300.
- zx=300.
- iplane=0
- do 14 it=0,ntp
- if (it.eq.0) then
- yy=0.
- dd=0.
- goto 111
- endif
- yy=h(it-1)
- dd=ydel(it-1)
- 111 ppp2=300.0
- ppp1=0.0
- itp=it
- call discre(ta,ha,tr,hr,itp,ntp,yy,dd,ppp2,ppp1,
- s zx)
- if(ier)return
- xx=-zx/ha
- if (xx.le.-20) then
- ca=0.
- else
- ca=ta*dexp(xx)
- endif
- xx=-zx/hr
- cr=tr*dexp(xx)
- h(it)=cr+ca
- altc(it)=zx
- ch(it)=exp(-h(it)/xmus)/2.
- cr=cr/hr
- ca=ca/ha
- ratio=cr/(cr+ca)
- xdel(it)=(1.e+00-ratio)*piz
- ydel(it)=ratio
-c print *,'discre ',it,cr,ca,xdel(it),ydel(it),zx
- 14 continue
- endif
-
- if(tr.gt.acu2.and.ta.gt.acu2.and.iaer_prof.eq.1)then
- call aero_prof(ta,piz,tr,hr,ntp,xmus,
- s h,ch,ydel,xdel,altc)
- endif
-
-c update plane layer if necessary
- if (ntp.eq.(nt-1)) then
-c compute position of the plane layer
- taup=tap+trp
- iplane=-1
- do i=0,ntp
- if (taup.ge.h(i)) iplane=i
- enddo
-c update the layer from the end to the position to update if necessary
- th=0.0005
- xt1=abs(h(iplane)-taup)
- xt2=abs(h(iplane+1)-taup)
- if ((xt1.gt.th).and.(xt2.gt.th)) then
- do i=nt,iplane+1,-1
- xdel(i)=xdel(i-1)
- ydel(i)=ydel(i-1)
- h(i)=h(i-1)
- altc(i)=altc(i-1)
- ch(i)=ch(i-1)
- enddo
- else
- nt=ntp
- if (xt2.lt.xt1) iplane=iplane+1
- endif
- h(iplane)=taup
- if ( tr.gt.accu2.and.ta.gt.accu2) then
- ca=ta*exp(-palt/ha)
- cr=tr*exp(-palt/hr)
- h(iplane)=ca+cr
- cr=cr/hr
- ca=ca/ha
- ratio=cr/(cr+ca)
- xdel(iplane)=(1.e+00-ratio)*piz
- ydel(iplane)=ratio
- altc(iplane)=palt
- ch(iplane)=exp(-h(iplane)/xmus)/2.
- endif
- if ( tr.gt.accu2.and.ta.le.accu2) then
- ydel(iplane)=1.
- xdel(iplane)=0.
- altc(iplane)=palt
- endif
- if ( tr.le.accu2.and.ta.gt.accu2) then
- ydel(iplane)=0.
- xdel(iplane)=1.*piz
- altc(iplane)=palt
- endif
- endif
-c
-c
-c print *,ha,hr,palt,ta,tr,tap,trp
-c do i=0,nt
-c print *,i,h(i),ch(i),xdel(i),ydel(i),altc(i)
-c enddo
-c
- pi=acos(-1.)
- phi=phirad
- do 615 l=1,np
- do 615 m=-mu,mu
- 615 xl(m,l)=0.
- do ifi=1,nfi
- xlphim(ifi)=0.
- enddo
-
-CCC initialization of look up table variable
- do i=1,mu
- nfilut(i)=0
- do j=1,(nbmu-1)/2
- rolut(i,j)=0.
- filut(i,j)=0.
- enddo
- enddo
- its=acos(xmus)*180.0/pi
- do i=1,mu
- lutmuv=rm(i)
- luttv=acos(lutmuv)*180./pi
- iscama=(180-abs(luttv-its))
- iscami=(180-(luttv+its))
- nbisca=int((iscama-iscami)/4)+1
- nfilut(i)=nbisca
- filut(i,1)=0.0
- filut(i,nbisca)=180.0
- scaa=iscama
- do j=2,nfilut(i)-1
- scaa=scaa-4.0
- cscaa=cos(scaa*pi/180.)
- cfi=-(cscaa+xmus*lutmuv)/(sqrt(1-xmus*xmus)
- S *sqrt(1.-lutmuv*lutmuv))
- filut(i,j)=acos(cfi)*180.0/pi
- enddo
- enddo
-CCCC Check initialization (debug)
-C do i=1,mu
-C lutmuv=rm(i)
-C luttv=acos(lutmuv)*180./pi
-C do j=1,nfilut(i)
-C cscaa=-xmus*lutmuv-cos(filut(i,j)*pi/180.)*sqrt(1.-xmus*xmus)
-C S *sqrt(1.-lutmuv*lutmuv)
-C scaa=acos(cscaa)*180./pi
-C write(6,*) its,luttv,filut(i,j),scaa
-C enddo
-C enddo
-CCCC Check initialization (debug)
-CCC end initialization of look up table variable
-
-
-
-c
-c ************ incident angle mus *******
-c
-c
- aaaa=delta/(2-delta)
- ron=(1-aaaa)/(1+2*aaaa)
-c write(6,*) 'ron ',ron
-c
-c rayleigh phase function
-c
- beta0=1.
- beta2=0.5*ron
-c
-c fourier decomposition
-c
- do 17 j=-mu,mu
- i4(j)=0.
- 17 continue
- iborm=nbmu-3
- if( abs (xmus-1.000000) .lt.1.e-06)iborm=0
- do 24 is=0,iborm
-c
-c primary scattering
-c
- ig=1
- roavion0=0.
- roavion1=0.
- roavion2=0.
- roavion=0.
- do 16 j=-mu,mu
- i3(j)=0.
- 16 continue
-c
-c kernel computations
-c
- isp=is
- call kernel(isp,mu,rm,xpl,psl,bp)
- if(is.gt.0)beta0=0.
- do 100 j=-mu,mu
- if(is-2)200,200,201
- 200 spl=xpl(0)
- sa1=beta0+beta2*xpl(j)*spl
- sa2=bp(0,j)
- goto 202
- 201 sa2=bp(0,j)
- sa1=0.
-c
-c primary scattering source function at every level within the layer
-c
- 202 do 101 k=0,nt
- c=ch(k)
- a=ydel(k)
- b=xdel(k)
- i2(k,j)=c*(sa2*b+sa1*a)
- 101 continue
- 100 continue
-c
-c vertical integration, primary upward radiation
-c
-
- do 108 k=1,mu
- i1(nt,k)=0.
- zi1=i1(nt,k)
- yy=rm(k)
- do 108 i=nt-1,0,-1
- jj=i+1
- f=h(jj)-h(i)
- a=(i2(jj,k)-i2(i,k))/f
- b=i2(i,k)-a*h(i)
- c=exp(-f/yy)
- d=1.0e+00-c
- xx=h(i)-h(jj)*c
- zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00
- i1(i,k)=zi1
- 108 continue
-c
-c vertical integration, primary downward radiation
-c
- do 109 k=-mu,-1
- i1(0,k)=0.
- zi1=i1(0,k)
- yy=rm(k)
- do 109 i=1,nt
- jj=i-1
- f=h(i)-h(jj)
- c=exp(f/yy)
- d=1.0e+00-c
- a=(i2(i,k)-i2(jj,k))/f
- b=i2(i,k)-a*h(i)
- xx=h(i)-h(jj)*c
- zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00
- i1(i,k)=zi1
- 109 continue
-c
-c inm2 is inialized with scattering computed at n-2
-c i3 is inialized with primary scattering
-c
- do 20 k=-mu,mu
- if(k) 21,20,23
- 21 index=nt
- go to 25
- 23 index=0
- 25 continue
- inm1(k)=i1(index,k)
- inm2(k)=i1(index,k)
- i3(k)=i1(index,k)
- 20 continue
- roavion2=i1(iplane,mu)
- roavion=i1(iplane,mu)
-c
-c loop on successive order
-c
- 503 ig=ig+1
-c write(6,*) 'ig ',ig
-c
-c successive orders
-c
-c multiple scattering source function at every level within the laye
-c
-c if is < ou = 2 kernels are a mixing of aerosols and molecules kern
-c if is >2 aerosols kernels only
-c
- if(is-2)210,210,211
- 210 do455 k=1,mu
- xpk=xpl(k)
- ypk=xpl(-k)
- do 455 i=0,nt
- ii1=0.
- ii2=0.
- x=xdel(i)
- y=ydel(i)
- do477 j=1,mu
- xpj=xpl(j)
- z=gb(j)
- xi1=i1(i,j)
- xi2=i1(i,-j)
- bpjk=bp(j,k)*x+y*(beta0+beta2*xpj*xpk)
- bpjmk=bp(j,-k)*x+y*(beta0+beta2*xpj*ypk)
- xdb=z*(xi1*bpjk+xi2*bpjmk)
- ii2=ii2+xdb
- xdb=z*(xi1*bpjmk+xi2*bpjk)
- ii1=ii1+xdb
- 477 continue
- if (abs(ii2).lt.1.E-30) ii2=0.
- if (abs(ii1).lt.1.E-30) ii1=0.
- i2(i,k)=ii2
- i2(i,-k)=ii1
- 455 continue
- goto 213
- 211 do45 k=1,mu
- do 45 i=0,nt
- ii1=0.
- ii2=0.
- x=xdel(i)
- do47 j=1,mu
- z=gb(j)
- xi1=i1(i,j)
- xi2=i1(i,-j)
- bpjk=bp(j,k)*x
- bpjmk=bp(j,-k)*x
- xdb=z*(xi1*bpjk+xi2*bpjmk)
- ii2=ii2+xdb
- xdb=z*(xi1*bpjmk+xi2*bpjk)
- ii1=ii1+xdb
- 47 continue
- if (abs(ii2).lt.1.E-30) ii2=0.
- if (abs(ii1).lt.1.E-30) ii1=0.
- i2(i,k)=ii2
- i2(i,-k)=ii1
- 45 continue
-c
-c vertical integration, upward radiation
-c
- 213 do 48 k=1,mu
- i1(nt,k)=0.
- zi1=i1(nt,k)
- yy=rm(k)
- do 48 i=nt-1,0,-1
- jj=i+1
- f=h(jj)-h(i)
- a=(i2(jj,k)-i2(i,k))/f
- b=i2(i,k)-a*h(i)
- c=exp(-f/yy)
- d=1.e+00-c
- xx=h(i)-h(jj)*c
- zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00
- if (abs(zi1).le.1.E-20) zi1=0.
- i1(i,k)=zi1
- 48 continue
-c
-c vertical integration, downward radiation
-c
- do 50 k=-mu,-1
- i1(0,k)=0.
- zi1=i1(0,k)
- yy=rm(k)
- do 50 i=1,nt
- jj=i-1
- f=h(i)-h(jj)
- c=exp(f/yy)
- d=1.e+00-c
- a=(i2(i,k)-i2(jj,k))/f
- b=i2(i,k)-a*h(i)
- xx=h(i)-h(jj)*c
- zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00
- if (abs(zi1).le.1.E-20) zi1=0.
- i1(i,k)=zi1
- 50 continue
-c
-c in is the nieme scattering order
-c
- do 30 k=-mu,mu
- if(k) 31,30,33
- 31 index=nt
- go to 34
- 33 index=0
- 34 continue
- in(k)=i1(index,k)
- 30 continue
- roavion0=i1(iplane,mu)
-c
-c convergence test (geometrical serie)
-c
- if(ig.gt.2) then
- z=0.
- a1=roavion2
- d1=roavion1
- g1=roavion0
- if(a1.ge.accu.and.d1.ge.accu.and.roavion.ge.accu) then
- y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/roavion))
- y=abs(y)
- z=dmax1(dble(y),z)
- endif
- do 99 l=-mu,mu
- if (l.eq.0) goto 99
- a1=inm2(l)
- d1=inm1(l)
- g1=in(l)
- if(a1.le.accu) go to 99
- if(d1.le.accu) go to 99
- if(i3(l).le.accu) go to 99
- y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/i3(l)))
- y=abs(y)
- z=dmax1(dble(y),z)
- 99 continue
- if(z.lt.0.0001) then
-c
-c successful test (geometrical serie)
-c
- do 606 l=-mu,mu
- y1=1.
- d1=inm1(l)
- g1=in(l)
- if(d1.le.accu) go to 606
- y1=1-g1/d1
- if(abs(g1-d1).le.accu) then
- go to 606
- endif
- g1=g1/y1
- i3(l)=i3(l)+g1
- 606 continue
- d1=roavion1
- g1=roavion0
- y1=1.
- if(d1.ge.accu) then
- if(abs(g1-d1).ge.accu) then
- y1=1-g1/d1
- g1=g1/y1
- endif
- roavion=roavion+g1
- endif
- go to 505
- endif
-c
-c inm2 is the (n-2)ieme scattering order
-c
- do 26 k=-mu,mu
- inm2(k)=inm1(k)
- 26 continue
- roavion2=roavion1
- endif
-c
-c inm1 is the (n-1)ieme scattering order
-c
- do 27 k=-mu,mu
- inm1(k)=in(k)
- 27 continue
- roavion1=roavion0
-c
-c sum of the n-1 orders
-c
- do 610 l=-mu,mu
- i3(l)=i3(l)+in(l)
- 610 continue
- roavion=roavion+roavion0
-c
-c stop if order n is less than 1% of the sum
-c
- z=0.
- do 611 l=-mu,mu
- if (abs(i3(l)).ge.accu) then
- y=abs(in(l)/i3(l))
- z=dmax1(z,dble(y))
- endif
- 611 continue
-
-c if(z.lt.0.00001) go to 505 # 6SV4.0 choice
- if(z.lt.0.00001) go to 505
-c
-c stop if order n is greater than 20 in any case
-c
- if(ig-igmax) 503,503,505
- 505 continue
-c
-c sum of the fourier component s
-c
- delta0s=1
- if(is.ne.0) delta0s=2
- do 612 l=-mu,mu
- i4(l)=i4(l)+delta0s*i3(l)
- 612 continue
-c
-c stop of the fourier decomposition
-c
- do 614 l=1,np
- phi=rp(l)
- do 614 m=-mum1,mum1
- if(m.gt.0) then
- xl(m,l)=xl(m,l)+delta0s*i3(m)*cos(is*(phi+pi))
- else
- xl(m,l)=xl(m,l)+delta0s*i3(m)*cos(is*phi)
- endif
- 614 continue
-
-C Look up table generation
- do m=1,mu
- do l=1,nfilut(m)
- phimul=filut(m,l)*pi/180.
- rolut(m,l)=rolut(m,l)+delta0s*i3(m)*cos(is*(phimul+pi))
- enddo
- enddo
-C end of look up table generation
-
-
-
- if(is.eq.0) then
- do k=1,mum1
- xl(0,1)=xl(0,1)+rm(k)*gb(k)*i3(-k)
- enddo
- endif
- xl(mu,1)=xl(mu,1)+delta0s*i3(mu)*cos(is*(phirad+pi))
- do ifi=1,nfi
- phimul=(ifi-1)*pi/(nfi-1)
- xlphim(ifi)=xlphim(ifi)+delta0s*roavion*cos(is*(phimul+pi))
- enddo
- xl(-mu,1)=xl(-mu,1)+delta0s*roavion*cos(is*(phirad+pi))
- z=0.
- do 613 l=-mu,mu
- if (abs(i4(l)).lt.accu) goto 613
- x=abs(i3(l)/i4(l))
- z=dmax1(z,x)
- 613 continue
-
-c if(z.gt.0.001) go to 24 #6Sv4.0 choice
- if(z.gt.0.001) go to 24
- goto 243
-
- 24 continue
- 243 continue
- nt=snt
-c write(6,*) 'reflectance ', xl(mu,1)/xmus
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OS.h b/Modules/ThirdParty/6S/src/6SV1.0B/OS.h
deleted file mode 100644
index d912cf9..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OS.h
+++ /dev/null
@@ -1,20 +0,0 @@
-extern int otb_6s_os_(
- otb_6s_integer *iaer_prof__,
- otb_6s_doublereal *tamoy,
- otb_6s_doublereal *trmoy,
- otb_6s_doublereal *pizmoy,
- otb_6s_doublereal *tamoyp,
- otb_6s_doublereal *trmoyp,
- otb_6s_doublereal *palt,
- otb_6s_doublereal *phirad,
- otb_6s_integer *nt,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *gb,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *xl,
- otb_6s_doublereal *xlphim,
- otb_6s_integer *nfi,
- otb_6s_doublereal *rolut
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.P b/Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.P
deleted file mode 100644
index 1d6a820..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.P
+++ /dev/null
@@ -1,9 +0,0 @@
-extern int ospol_(integer *iaer_prof__, doublereal *tamoy, doublereal *trmoy, doublereal *pizmoy, doublereal *tamoyp, doublereal *trmoyp, doublereal *palt, doublereal *phirad, integer *nt, integer *mu, integer *np, doublereal *rm, doublereal *gb, doublereal *rp, doublereal *xli, doublereal *xlq, doublereal *xlu, doublereal *xlphim, integer *nfi, integer *nfilut, doublereal *filut, doublereal *rolut, doublereal *rolutq, doublereal *rolutu);
-/* comlen num_quad__ 4 */
-/* comlen sixs_polar__ 56032 */
-/* comlen sixs_del__ 16 */
-/* comlen sixs_ier__ 8 */
-/* comlen multorder_ 4 */
-/*:ref: discre_ 14 11 7 7 7 7 4 4 7 7 7 7 7 */
-/*:ref: aero_prof__ 14 11 7 7 7 7 4 7 7 7 7 7 7 */
-/*:ref: kernelpol_ 14 12 4 4 7 7 7 7 7 7 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.c b/Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.c
deleted file mode 100644
index 8f42646..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.c
+++ /dev/null
@@ -1,2104 +0,0 @@
-/* OSPOL.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal pha[1000], qha[1000], uha[1000], alphal[1001], betal[1001],
- gammal[1001], zetal[1001];
-} sixs_polar__;
-
-#define sixs_polar__1 sixs_polar__
-
-Extern struct {
- doublereal delta, sigma;
-} sixs_del__;
-
-#define sixs_del__1 sixs_del__
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-Extern struct {
- integer igmax;
-} multorder_;
-
-#define multorder_1 multorder_
-
-/*< >*/
-/* Subroutine */ int ospol_(integer *iaer_prof__, doublereal *tamoy,
- doublereal *trmoy, doublereal *pizmoy, doublereal *tamoyp, doublereal
- *trmoyp, doublereal *palt, doublereal *phirad, integer *nt, integer *
- mu, integer *np, doublereal *rm, doublereal *gb, doublereal *rp,
- doublereal *xli, doublereal *xlq, doublereal *xlu, doublereal *xlphim,
- integer *nfi, integer *nfilut, doublereal *filut, doublereal *rolut,
- doublereal *rolutq, doublereal *rolutu)
-{
- /* System generated locals */
- integer rm_offset, gb_offset, xli_dim1, xli_offset, xlq_dim1, xlq_offset,
- xlu_dim1, xlu_offset, rolut_dim1, rolut_offset, rolutq_dim1,
- rolutq_offset, rolutu_dim1, rolutu_offset, filut_dim1,
- filut_offset, i__1, i__2, i__3, i__4;
- doublereal d__1;
-
- /* Builtin functions */
- double log(doublereal), exp(doublereal), acos(doublereal), sqrt(
- doublereal), cos(doublereal), sin(doublereal);
-
- /* Local variables */
- doublereal roiavion[4], roqavion[4], rouavion[4], a, b, c__, d__, f, h__[
- 31];
- integer i__, j, k, l, m;
- doublereal x, y, z__, a1, d1, g1, i1[1581] /* was [31][51] */, i2[1581]
- /* was [31][51] */, i3[51], i4[51];
- extern /* Subroutine */ int aero_prof__(doublereal *, doublereal *,
- doublereal *, doublereal *, integer *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *);
- doublereal q1[1581] /* was [31][51] */, q2[1581] /* was [31][51] */,
- q3[51], q4[51], u1[1581] /* was [31][51] */, u2[1581] /*
- was [31][51] */, u3[51], u4[51], y1, r1;
- extern /* Subroutine */ int kernelpol_(integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *);
- doublereal ca, dd, ha, ch[31];
- integer ig;
- doublereal bp[1326] /* was [26][51] */;
- integer jj;
- doublereal ta, cr, in[153] /* was [3][51] */, gr[1326] /* was [26][
- 51] */, hr, gt[1326] /* was [26][51] */, th, pi, qn[153]
- /* was [3][51] */;
- integer it;
- doublereal un[153] /* was [3][51] */, tr;
- integer is;
- doublereal xx, zx, yy, ii1, ii2, sa1, sa2, sb1, sb2, sc1, sc2, xi1, qq1,
- zi1, qq2, xi2, xq1, uu1, zq1, xt1, xt2, uu2, zu1, xq2, xu1, xu2;
- integer ifi;
- doublereal acu, xdb, phi, arr[1326] /* was [26][51] */, tap, art[1326]
- /* was [26][51] */, att[1326] /* was [26][51] */;
- integer isp, itp;
- doublereal ron, spl, piz, xpl[51], xrl[51], trp, xtl[51];
- integer snt, ntp;
- doublereal xpj, xrj, xtj, ypj, yrj, ytj, xpk, xrk, xtk, ypk, yrk, ytk,
- acu2;
- integer mum1;
- doublereal ppp1, ppp2, aaaa, altc[31], bpjk, xdel[31], ydel[31], gtjk,
- gtkj, grjk, grkj, taup, beta0, xmus, beta2, bpjmk;
- integer index, iborm;
- doublereal grjmk, grkmj, gtjmk, gtkmj, ratio, arrjk, artjk, artkj, attjk,
- gamma2, alpha2;
- integer iplane;
- extern /* Subroutine */ int discre_(doublereal *, doublereal *,
- doublereal *, doublereal *, integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *);
- doublereal arrjmk, artjmk, artkmj, attjmk, phimul, delta0s;
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real pha,qha,uha,alphal,betal,gammal,zetal >*/
-/*< >*/
-/* - to vary the number of quadratures */
-/* dimension for gauss integration */
-/*< integer mu,np,nfi >*/
-/*< real rm(-mu:mu),gb(-mu:mu),rp(np),xlphim(nfi) >*/
-/* dimension for os computation */
-/*< real xli(-mu:mu,np),xlq(-mu:mu,np),xlu(-mu:mu,np) >*/
-/* array for sos computation */
-/* THOMAS */
-/* double precision xpl(-mu:mu),xrl(-mu:mu),xtl(-mu:mu) */
-/* double precision bp(0:mu,-mu:mu),gr(0:mu,-mu:mu),gt(0:mu,-mu:mu)
-*/
-/* double precision arr(0:mu,-mu:mu),art(0:mu,-mu:mu) */
-/* double precision att(0:mu,-mu:mu),altc(0:nt) */
-/* double precision xdel(0:nt),ydel(0:nt),ch(0:nt),h(0:nt) */
-/* real i1(0:nt,-mu:mu),q1(0:nt,-mu:mu) */
-/* real u1(0:nt,-mu:mu),i2(0:nt,-mu:mu) */
-/* real q2(0:nt,-mu:mu),u2(0:nt,-mu:mu) */
-/* real i3(-mu:mu),q3(-mu:mu),u3(-mu:mu) */
-/* real i4(-mu:mu),q4(-mu:mu),u4(-mu:mu) */
-/* real in(0:2,-mu:mu),qn(0:2,-mu:mu),un(0:2,-mu:mu) */
-/*< double precision xpl(-25:25),xrl(-25:25),xtl(-25:25) >*/
-/*< double precision bp(0:25,-25:25),gr(0:25,-25:25),gt(0:25,-25:25) >*/
-/*< double precision arr(0:25,-25:25),art(0:25,-25:25) >*/
-/*< double precision att(0:25,-25:25),altc(0:30) >*/
-/*< double precision xdel(0:30),ydel(0:30),ch(0:30),h(0:30) >*/
-/*< real i1(0:30,-25:25),q1(0:30,-25:25) >*/
-/*< real u1(0:30,-25:25),i2(0:30,-25:25) >*/
-/*< real q2(0:30,-25:25),u2(0:30,-25:25) >*/
-/*< real i3(-25:25),q3(-25:25),u3(-25:25) >*/
-/*< real i4(-25:25),q4(-25:25),u4(-25:25) >*/
-/*< real in(0:2,-25:25),qn(0:2,-25:25),un(0:2,-25:25) >*/
-/*< real roIavion(-1:2),roQavion(-1:2),roUavion(-1:2) >*/
-/* CCC Begin Variable for Look up table generation */
-/* azimuth or scattering angle variable for LUT computation (rolut) */
-/*azimuth table for look up table computation (filut), nb of fi in each ca
-se (nfilut)*/
-/*< real luttv,lutmuv,iscama,iscami,its,scaa >*/
-/*< integer nbisca >*/
-/*< real rolut(mu,41),rolutq(mu,41),rolutu(mu,41) >*/
-/*< real filut(mu,41) >*/
-/*< integer nfilut(mu) >*/
-/* CCC End Variable for Look up table generation */
-/*< real tamoy,trmoy,pizmoy >*/
-/*< real tamoyp,trmoyp,palt,phirad >*/
-/*< real delta,sigma >*/
-/*< double precision hr,ta,tr,trp >*/
-/*< double precision ppp2,ppp1,ca,cr,ratio >*/
-/*< double precision tap,piz,acu,acu2,ha,xmus,zx,yy,dd >*/
-/*< double precision taup,th,xt1,xt2,pi,phi,aaaa,ron,spl >*/
-/*< double precision sa1,sa2,sb1,sb2,sc1,sc2 >*/
-/*< double precision beta0,beta2,gamma2,alpha2 >*/
-/*< double precision zi1,zq1,zu1,c,f,d,y >*/
-/*< double precision a1,d1,g1,y1,r1,delta0s >*/
-/*< integer snt >*/
-/*< integer nt,iwr,iplane,mum1,ntp,j,it,itp,i,l,m,iborm >*/
-/*< integer is,isp,ig,k,jj,index >*/
-/*< logical ier >*/
-/*< double precision xx,xdb,z,x,a,b >*/
-/*< double precision bpjk,bpjmk,gtjk,gtjmk,gtkj,gtkmj,grjk,grjmk >*/
-/*< double precision grkj,grkmj,arrjk,arrjmk,artjk,artjmk,artkj >*/
-/*< double precision artkmj,attjk,attjmk >*/
-/*< double precision ii1,ii2,qq1,qq2,uu1,uu2,xi1,xi2,xq1,xq2,xu1,xu2 >*/
-/*< double precision xpj,xrj,xtj,ypj,yrj,ytj,xpk,xrk,xtk,ypk,yrk,ytk >*/
-/*< integer igmax,iaer_prof >*/
-/*< common/sixs_del/delta,sigma >*/
-/*< common/sixs_ier/iwr,ier >*/
-/*< common /multorder/ igmax >*/
-/* the optical thickness above plane are recomputed to give o.t above pla
-*/
-/*< snt=nt >*/
- /* Parameter adjustments */
- rolutu_dim1 = *mu;
- rolutu_offset = rolutu_dim1 + 1;
- rolutu -= rolutu_offset;
- rolutq_dim1 = *mu;
- rolutq_offset = rolutq_dim1 + 1;
- rolutq -= rolutq_offset;
- rolut_dim1 = *mu;
- rolut_offset = rolut_dim1 + 1;
- rolut -= rolut_offset;
- filut_dim1 = *mu;
- filut_offset = filut_dim1 + 1;
- filut -= filut_offset;
- --nfilut;
- gb_offset = -(*mu);
- gb -= gb_offset;
- rm_offset = -(*mu);
- rm -= rm_offset;
- xlu_dim1 = *mu - (-(*mu)) + 1;
- xlu_offset = -(*mu) + xlu_dim1;
- xlu -= xlu_offset;
- xlq_dim1 = *mu - (-(*mu)) + 1;
- xlq_offset = -(*mu) + xlq_dim1;
- xlq -= xlq_offset;
- xli_dim1 = *mu - (-(*mu)) + 1;
- xli_offset = -(*mu) + xli_dim1;
- xli -= xli_offset;
- --rp;
- --xlphim;
-
- /* Function Body */
- snt = *nt;
-/*< hr=8.0 >*/
- hr = 8.;
-/*< ta=tamoy >*/
- ta = *tamoy;
-/*< tr=trmoy >*/
- tr = *trmoy;
-/*< trp=trmoy-trmoyp >*/
- trp = *trmoy - *trmoyp;
-/*< tap=tamoy-tamoyp >*/
- tap = *tamoy - *tamoyp;
-/*< piz=pizmoy >*/
- piz = *pizmoy;
-/*< iplane=0 >*/
- iplane = 0;
-/*< acu=1.e-20 >*/
- acu = 1e-20;
-/*< acu2=1.e-4 >*/
- acu2 = 1e-4;
-/*< mum1=mu-1 >*/
- mum1 = *mu - 1;
-/* if plane observations recompute scale height for aerosol knowing: */
-/* the aerosol optical depth as measure from the plane = tamoyp */
-/* the rayleigh scale height = = hr (8km) */
-/* the rayleigh optical depth at plane level = trmoyp */
-/* the altitude of the plane = palt */
-/* the rayleigh optical depth for total atmos = trmoy */
-/* the aerosol optical depth for total atmos = tamoy */
-/* if not plane observations then ha is equal to 2.0km */
-/* ntp local variable: if ntp=nt no plane observation selected */
-/* ntp=nt-1 plane observation selected */
-/* it's a mixing rayleigh+aerosol */
-/*< if(palt.le.900..and.palt.gt.0.0) then >*/
- if (*palt <= 900. && *palt > 0.) {
-/*< if (tap.gt.1.e-03) then >*/
- if (tap > .001) {
-/*< ha=-palt/log(tap/ta) >*/
- ha = -(*palt) / log(tap / ta);
-/*< else >*/
- } else {
-/*< ha=2. >*/
- ha = 2.;
-/*< endif >*/
- }
-/*< ntp=nt-1 >*/
- ntp = *nt - 1;
-/*< else >*/
- } else {
-/*< ha=2.0 >*/
- ha = 2.;
-/*< ntp=nt >*/
- ntp = *nt;
-/*< endif >*/
- }
-
-/*< xmus=-rm(0) >*/
- xmus = -rm[0];
-
-/* compute mixing rayleigh, aerosol */
-/* case 1: pure rayleigh */
-/* case 2: pure aerosol */
-/* case 3: mixing rayleigh-aerosol */
-
-/*< if((ta.le.acu2).and.(tr.gt.ta)) then >*/
- if (ta <= acu2 && tr > ta) {
-/*< do j=0,ntp >*/
- i__1 = ntp;
- for (j = 0; j <= i__1; ++j) {
-/*< h(j)=j*tr/ntp >*/
- h__[j] = j * tr / ntp;
-/*< ch(j)=exp(-h(j)/xmus)/2. >*/
- ch[j] = exp(-h__[j] / xmus) / 2.;
-/*< ydel(j)=1.0 >*/
- ydel[j] = 1.;
-/*< xdel(j)=0.0 >*/
- xdel[j] = 0.;
-/*< if (j.eq.0) then >*/
- if (j == 0) {
-/*< altc(j)=300. >*/
- altc[j] = 300.;
-/*< else >*/
- } else {
-/*< altc(j)=-log(h(j)/tr)*hr >*/
- altc[j] = -log(h__[j] / tr) * hr;
-/*< endif >*/
- }
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< if((tr.le.acu2).and.(ta.gt.tr)) then >*/
- if (tr <= acu2 && ta > tr) {
-/*< do j=0,ntp >*/
- i__1 = ntp;
- for (j = 0; j <= i__1; ++j) {
-/*< h(j)=j*ta/ntp >*/
- h__[j] = j * ta / ntp;
-/*< ch(j)=exp(-h(j)/xmus)/2. >*/
- ch[j] = exp(-h__[j] / xmus) / 2.;
-/*< ydel(j)=0.0 >*/
- ydel[j] = 0.;
-/*< xdel(j)=piz >*/
- xdel[j] = piz;
-/*< if (j.eq.0) then >*/
- if (j == 0) {
-/*< altc(j)=300. >*/
- altc[j] = 300.;
-/*< else >*/
- } else {
-/*< altc(j)=-log(h(j)/ta)*ha >*/
- altc[j] = -log(h__[j] / ta) * ha;
-/*< endif >*/
- }
-/* write(6,901) j,altc(j),h(j) */
-/*< enddo >*/
- }
-/*< endif >*/
- }
-
-/*< if(tr.gt.acu2.and.ta.gt.acu2.and.iaer_prof.eq.0)then >*/
- if (tr > acu2 && ta > acu2 && *iaer_prof__ == 0) {
-/*< ydel(0)=1.0 >*/
- ydel[0] = 1.;
-/*< xdel(0)=0.0 >*/
- xdel[0] = 0.;
-/*< h(0)=0. >*/
- h__[0] = 0.;
-/*< ch(0)=0.5 >*/
- ch[0] = .5;
-/*< altc(0)=300. >*/
- altc[0] = 300.;
-/*< zx=300. >*/
- zx = 300.;
-/*< iplane=0 >*/
- iplane = 0;
-/*< do 14 it=0,ntp >*/
- i__1 = ntp;
- for (it = 0; it <= i__1; ++it) {
-/*< if (it.eq.0) then >*/
- if (it == 0) {
-/*< yy=0. >*/
- yy = 0.;
-/*< dd=0. >*/
- dd = 0.;
-/*< goto 111 >*/
- goto L111;
-/*< endif >*/
- }
-/*< yy=h(it-1) >*/
- yy = h__[it - 1];
-/*< dd=ydel(it-1) >*/
- dd = ydel[it - 1];
-/*< 111 ppp2=300.0 >*/
-L111:
- ppp2 = 300.;
-/*< ppp1=0.0 >*/
- ppp1 = 0.;
-/*< itp=it >*/
- itp = it;
-/*< call discre(ta,ha,tr,hr,itp,ntp,yy,dd,ppp2,ppp1,zx) >*/
- discre_(&ta, &ha, &tr, &hr, &itp, &ntp, &yy, &dd, &ppp2, &ppp1, &
- zx);
-/*< if(ier)return >*/
- if (sixs_ier__1.ier) {
- return 0;
- }
-/*< xx=-zx/ha >*/
- xx = -zx / ha;
-/*< if (xx.le.-20) then >*/
- if (xx <= -20.) {
-/*< ca=0. >*/
- ca = 0.;
-/*< else >*/
- } else {
-/*< ca=ta*dexp(xx) >*/
- ca = ta * exp(xx);
-/*< endif >*/
- }
-/*< xx=-zx/hr >*/
- xx = -zx / hr;
-/*< cr=tr*dexp(xx) >*/
- cr = tr * exp(xx);
-/*< h(it)=cr+ca >*/
- h__[it] = cr + ca;
-/*< altc(it)=zx >*/
- altc[it] = zx;
-/*< ch(it)=exp(-h(it)/xmus)/2. >*/
- ch[it] = exp(-h__[it] / xmus) / 2.;
-/*< cr=cr/hr >*/
- cr /= hr;
-/*< ca=ca/ha >*/
- ca /= ha;
-/*< ratio=cr/(cr+ca) >*/
- ratio = cr / (cr + ca);
-/*< xdel(it)=(1.e+00-ratio)*piz >*/
- xdel[it] = (1. - ratio) * piz;
-/*< ydel(it)=ratio >*/
- ydel[it] = ratio;
-/*< 14 continue >*/
-/* L14: */
- }
-/*< endif >*/
- }
-/*< 901 Format(i2,f10.5,f10.5,f10.5) >*/
-/* L901: */
-/*< if(tr.gt.acu2.and.ta.gt.acu2.and.iaer_prof.eq.1)then >*/
- if (tr > acu2 && ta > acu2 && *iaer_prof__ == 1) {
-/*< >*/
- aero_prof__(&ta, &piz, &tr, &hr, &ntp, &xmus, h__, ch, ydel, xdel,
- altc);
-/*< endif >*/
- }
-/* update plane layer if necessary */
-/*< if (ntp.eq.(nt-1)) then >*/
- if (ntp == *nt - 1) {
-/* compute position of the plane layer */
-/*< taup=tap+trp >*/
- taup = tap + trp;
-/*< iplane=-1 >*/
- iplane = -1;
-/*< do i=0,ntp >*/
- i__1 = ntp;
- for (i__ = 0; i__ <= i__1; ++i__) {
-/*< if (taup.ge.h(i)) iplane=i >*/
- if (taup >= h__[i__]) {
- iplane = i__;
- }
-/*< enddo >*/
- }
-/* update the layer from the end to the position to update if necessar
-y */
-/*< th=0.0005 >*/
- th = 5e-4;
-/*< xt1=abs(h(iplane)-taup) >*/
- xt1 = (d__1 = h__[iplane] - taup, abs(d__1));
-/*< xt2=abs(h(iplane+1)-taup) >*/
- xt2 = (d__1 = h__[iplane + 1] - taup, abs(d__1));
-/*< if ((xt1.gt.th).and.(xt2.gt.th)) then >*/
- if (xt1 > th && xt2 > th) {
-/*< do i=nt,iplane+1,-1 >*/
- i__1 = iplane + 1;
- for (i__ = *nt; i__ >= i__1; --i__) {
-/*< xdel(i)=xdel(i-1) >*/
- xdel[i__] = xdel[i__ - 1];
-/*< ydel(i)=ydel(i-1) >*/
- ydel[i__] = ydel[i__ - 1];
-/*< h(i)=h(i-1) >*/
- h__[i__] = h__[i__ - 1];
-/*< altc(i)=altc(i-1) >*/
- altc[i__] = altc[i__ - 1];
-/*< ch(i)=ch(i-1) >*/
- ch[i__] = ch[i__ - 1];
-/*< enddo >*/
- }
-/*< else >*/
- } else {
-/*< nt=ntp >*/
- *nt = ntp;
-/*< if (xt2.lt.xt1) iplane=iplane+1 >*/
- if (xt2 < xt1) {
- ++iplane;
- }
-/*< endif >*/
- }
-/*< h(iplane)=taup >*/
- h__[iplane] = taup;
-/*< if ( tr.gt.acu2.and.ta.gt.acu2) then >*/
- if (tr > acu2 && ta > acu2) {
-/*< ca=ta*exp(-palt/ha) >*/
- ca = ta * exp(-(*palt) / ha);
-/*< cr=tr*exp(-palt/hr) >*/
- cr = tr * exp(-(*palt) / hr);
-/*< h(iplane)=ca+cr >*/
- h__[iplane] = ca + cr;
-/*< cr=cr/hr >*/
- cr /= hr;
-/*< ca=ca/ha >*/
- ca /= ha;
-/*< ratio=cr/(cr+ca) >*/
- ratio = cr / (cr + ca);
-/*< xdel(iplane)=(1.e+00-ratio)*piz >*/
- xdel[iplane] = (1. - ratio) * piz;
-/*< ydel(iplane)=ratio >*/
- ydel[iplane] = ratio;
-/*< altc(iplane)=palt >*/
- altc[iplane] = *palt;
-/*< ch(iplane)=exp(-h(iplane)/xmus)/2. >*/
- ch[iplane] = exp(-h__[iplane] / xmus) / 2.;
-/*< endif >*/
- }
-/*< if ( tr.gt.acu2.and.ta.le.acu2) then >*/
- if (tr > acu2 && ta <= acu2) {
-/*< ydel(iplane)=1. >*/
- ydel[iplane] = 1.;
-/*< xdel(iplane)=0. >*/
- xdel[iplane] = 0.;
-/*< altc(iplane)=palt >*/
- altc[iplane] = *palt;
-/*< endif >*/
- }
-/*< if ( tr.le.acu2.and.ta.gt.acu2) then >*/
- if (tr <= acu2 && ta > acu2) {
-/*< ydel(iplane)=0. >*/
- ydel[iplane] = 0.;
-/*< xdel(iplane)=1.*piz >*/
- xdel[iplane] = piz * 1.;
-/*< altc(iplane)=palt >*/
- altc[iplane] = *palt;
-/*< endif >*/
- }
-/*< endif >*/
- }
-
-
-/* print *,ha,hr,palt,ta,tr,tap,trp */
-/* do i=0,nt */
-/* print *,i,h(i),ch(i),xdel(i),ydel(i),altc(i) */
-/* enddo */
-
-/*< pi=acos(-1.) >*/
- pi = acos(-1.);
-/*< phi=phirad >*/
- phi = *phirad;
-/*< do 716 l=1,np >*/
- i__1 = *np;
- for (l = 1; l <= i__1; ++l) {
-/*< do 716 m=-mu,mu >*/
- i__2 = *mu;
- for (m = -(*mu); m <= i__2; ++m) {
-/*< xli(m,l)=0. >*/
- xli[m + l * xli_dim1] = 0.;
-/*< xlq(m,l)=0. >*/
- xlq[m + l * xlq_dim1] = 0.;
-/*< xlu(m,l)=0. >*/
- xlu[m + l * xlu_dim1] = 0.;
-/*< 716 continue >*/
-/* L716: */
- }
- }
-/*< do ifi=1,nfi >*/
- i__2 = *nfi;
- for (ifi = 1; ifi <= i__2; ++ifi) {
-/*< xlphim(ifi)=0. >*/
- xlphim[ifi] = 0.;
-/*< enddo >*/
- }
-/* CC initialization of look up table variable */
-/*< do i=1,mu >*/
- i__2 = *mu;
- for (i__ = 1; i__ <= i__2; ++i__) {
-/*< do j=1,41 >*/
- for (j = 1; j <= 41; ++j) {
-/*< rolut(i,j)=0. >*/
- rolut[i__ + j * rolut_dim1] = 0.;
-/*< rolutq(i,j)=0. >*/
- rolutq[i__ + j * rolutq_dim1] = 0.;
-/*< rolutu(i,j)=0. >*/
- rolutu[i__ + j * rolutu_dim1] = 0.;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-
-/* ************ incident angle mus ******* */
-
-
-/*< aaaa=delta/(2-delta) >*/
- aaaa = sixs_del__1.delta / (2 - sixs_del__1.delta);
-/*< ron=(1-aaaa)/(1+2*aaaa) >*/
- ron = (1 - aaaa) / (aaaa * 2 + 1);
-/* TEST FOR COMPARING TO SIMPLE APPROXIMATION */
-/* WRITE(6,*) "WARNING DEPOLARIZATION=0" */
-/* ron=1.0 */
-
-/* rayleigh phase function */
-
-/*< beta0=1. >*/
- beta0 = 1.;
-/*< beta2=0.5*ron >*/
- beta2 = ron * .5;
-/*< gamma2=-ron*sqrt(1.5) >*/
- gamma2 = -ron * sqrt(1.5);
-/*< alpha2=3.*ron >*/
- alpha2 = ron * 3.;
-
-/* fourier decomposition */
-
-/*< do 17 j=-mu,mu >*/
- i__2 = *mu;
- for (j = -(*mu); j <= i__2; ++j) {
-/*< i4(j)=0. >*/
- i4[j + 25] = 0.;
-/*< q4(j)=0. >*/
- q4[j + 25] = 0.;
-/*< u4(j)=0. >*/
- u4[j + 25] = 0.;
-/*< 17 continue >*/
-/* L17: */
- }
-/*< iborm=nquad >*/
- iborm = num_quad__1.nquad;
-/*< if (ta.le.acu2) iborm=2 >*/
- if (ta <= acu2) {
- iborm = 2;
- }
-/*< if( abs (xmus-1.000000) .lt.1.e-06)iborm=0 >*/
- if ((d__1 = xmus - 1., abs(d__1)) < 1e-6) {
- iborm = 0;
- }
-/*< do 24 is=0,iborm >*/
- i__2 = iborm;
- for (is = 0; is <= i__2; ++is) {
-
-/* primary scattering */
-
-/*< ig=1 >*/
- ig = 1;
-/*< do k=0,3 >*/
- for (k = 0; k <= 3; ++k) {
-/*< roIavion(k-1)=0. >*/
- roiavion[k] = 0.;
-/*< roQavion(k-1)=0. >*/
- roqavion[k] = 0.;
-/*< roUavion(k-1)=0. >*/
- rouavion[k] = 0.;
-/*< enddo >*/
- }
-/*< do 16 j=-mu,mu >*/
- i__1 = *mu;
- for (j = -(*mu); j <= i__1; ++j) {
-/*< i3(j)=0. >*/
- i3[j + 25] = 0.;
-/*< q3(j)=0. >*/
- q3[j + 25] = 0.;
-/*< u3(j)=0. >*/
- u3[j + 25] = 0.;
-/*< 16 continue >*/
-/* L16: */
- }
-
-/* kernel computations + mixture rayleigh(1)-aerosol(2) */
-
-/*< isp=is >*/
- isp = is;
-/*< call kernelpol(isp,mu,rm,xpl,xrl,xtl,bp,gr,gt,arr,art,att) >*/
- kernelpol_(&isp, mu, &rm[rm_offset], xpl, xrl, xtl, bp, gr, gt, arr,
- art, att);
-/*< if(is.gt.0)beta0=0. >*/
- if (is > 0) {
- beta0 = 0.;
- }
-/*< do 100 j=-mu,mu >*/
- i__1 = *mu;
- for (j = -(*mu); j <= i__1; ++j) {
-/*< if(is-2)200,200,201 >*/
- if (is - 2 <= 0) {
- goto L200;
- } else {
- goto L201;
- }
-/*< 200 spl=xpl(0) >*/
-L200:
- spl = xpl[25];
-/*< sa1=beta0+beta2*xpl(j)*spl >*/
- sa1 = beta0 + beta2 * xpl[j + 25] * spl;
-/*< sa2=bp(0,j) >*/
- sa2 = bp[j * 26 + 650];
-/*< sb1=gamma2*xrl(j)*spl >*/
- sb1 = gamma2 * xrl[j + 25] * spl;
-/*< sb2=gr(0,j) >*/
- sb2 = gr[j * 26 + 650];
-/*< sc1=gamma2*xtl(j)*spl >*/
- sc1 = gamma2 * xtl[j + 25] * spl;
-/*< sc2=gt(0,j) >*/
- sc2 = gt[j * 26 + 650];
-/*< goto 202 >*/
- goto L202;
-/*< 201 sa2=bp(0,j) >*/
-L201:
- sa2 = bp[j * 26 + 650];
-/*< sa1=0. >*/
- sa1 = 0.;
-/*< sb2=gr(0,j) >*/
- sb2 = gr[j * 26 + 650];
-/*< sb1=0. >*/
- sb1 = 0.;
-/*< sc2=gt(0,j) >*/
- sc2 = gt[j * 26 + 650];
-/*< sc1=0. >*/
- sc1 = 0.;
-
-/* primary scattering source function at every level within th
-e layer */
-
-/*< 202 do 101 k=0,nt >*/
-L202:
- i__3 = *nt;
- for (k = 0; k <= i__3; ++k) {
-/*< c=ch(k) >*/
- c__ = ch[k];
-/*< a=ydel(k) >*/
- a = ydel[k];
-/*< b=xdel(k) >*/
- b = xdel[k];
-/*< i2(k,j)=c*(sa2*b+sa1*a) >*/
- i2[k + j * 31 + 775] = c__ * (sa2 * b + sa1 * a);
-/*< q2(k,j)=c*(sb2*b+sb1*a) >*/
- q2[k + j * 31 + 775] = c__ * (sb2 * b + sb1 * a);
-/*< u2(k,j)=-c*(sc2*b+sc1*a) >*/
- u2[k + j * 31 + 775] = -c__ * (sc2 * b + sc1 * a);
-/*< 101 continue >*/
-/* L101: */
- }
-/*< 100 continue >*/
-/* L100: */
- }
-
-/* vertical integration, primary upward radiation */
-
-/*< do 108 k=1,mu >*/
- i__1 = *mu;
- for (k = 1; k <= i__1; ++k) {
-/*< i1(nt,k)=0. >*/
- i1[*nt + k * 31 + 775] = 0.;
-/*< q1(nt,k)=0. >*/
- q1[*nt + k * 31 + 775] = 0.;
-/*< u1(nt,k)=0. >*/
- u1[*nt + k * 31 + 775] = 0.;
-/*< zi1=i1(nt,k) >*/
- zi1 = i1[*nt + k * 31 + 775];
-/*< zq1=q1(nt,k) >*/
- zq1 = q1[*nt + k * 31 + 775];
-/*< zu1=u1(nt,k) >*/
- zu1 = u1[*nt + k * 31 + 775];
-/*< yy=rm(k) >*/
- yy = rm[k];
-/*< do 108 i=nt-1,0,-1 >*/
- for (i__ = *nt - 1; i__ >= 0; --i__) {
-/*< jj=i+1 >*/
- jj = i__ + 1;
-/*< f=h(jj)-h(i) >*/
- f = h__[jj] - h__[i__];
-/*< c=exp(-f/yy) >*/
- c__ = exp(-f / yy);
-/*< d=1.0e+00-c >*/
- d__ = 1. - c__;
-/*< xx=h(i)-h(jj)*c >*/
- xx = h__[i__] - h__[jj] * c__;
-/*< a=(i2(jj,k)-i2(i,k))/f >*/
- a = (i2[jj + k * 31 + 775] - i2[i__ + k * 31 + 775]) / f;
-/*< b=i2(i,k)-a*h(i) >*/
- b = i2[i__ + k * 31 + 775] - a * h__[i__];
-/*< zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zi1 = c__ * zi1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< i1(i,k)=zi1 >*/
- i1[i__ + k * 31 + 775] = zi1;
-/*< a=(q2(jj,k)-q2(i,k))/f >*/
- a = (q2[jj + k * 31 + 775] - q2[i__ + k * 31 + 775]) / f;
-/*< b=q2(i,k)-a*h(i) >*/
- b = q2[i__ + k * 31 + 775] - a * h__[i__];
-/*< zq1=c*zq1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zq1 = c__ * zq1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< q1(i,k)=zq1 >*/
- q1[i__ + k * 31 + 775] = zq1;
-/*< a=(u2(jj,k)-u2(i,k))/f >*/
- a = (u2[jj + k * 31 + 775] - u2[i__ + k * 31 + 775]) / f;
-/*< b=u2(i,k)-a*h(i) >*/
- b = u2[i__ + k * 31 + 775] - a * h__[i__];
-/*< zu1=c*zu1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zu1 = c__ * zu1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< u1(i,k)=zu1 >*/
- u1[i__ + k * 31 + 775] = zu1;
-/*< 108 continue >*/
-/* L108: */
- }
- }
-
-/* vertical integration, primary downward radiation */
-
-/*< do 109 k=-mu,-1 >*/
- for (k = -(*mu); k <= -1; ++k) {
-/*< i1(0,k)=0. >*/
- i1[k * 31 + 775] = 0.;
-/*< q1(0,k)=0. >*/
- q1[k * 31 + 775] = 0.;
-/*< u1(0,k)=0. >*/
- u1[k * 31 + 775] = 0.;
-/*< zi1=i1(0,k) >*/
- zi1 = i1[k * 31 + 775];
-/*< zq1=q1(0,k) >*/
- zq1 = q1[k * 31 + 775];
-/*< zu1=u1(0,k) >*/
- zu1 = u1[k * 31 + 775];
-/*< yy=rm(k) >*/
- yy = rm[k];
-/*< do 109 i=1,nt >*/
- i__1 = *nt;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< jj=i-1 >*/
- jj = i__ - 1;
-/*< f=h(i)-h(jj) >*/
- f = h__[i__] - h__[jj];
-/*< c=exp(f/yy) >*/
- c__ = exp(f / yy);
-/*< d=1.0e+00-c >*/
- d__ = 1. - c__;
-/*< xx=h(i)-h(jj)*c >*/
- xx = h__[i__] - h__[jj] * c__;
-/*< a=(i2(i,k)-i2(jj,k))/f >*/
- a = (i2[i__ + k * 31 + 775] - i2[jj + k * 31 + 775]) / f;
-/*< b=i2(i,k)-a*h(i) >*/
- b = i2[i__ + k * 31 + 775] - a * h__[i__];
-/*< zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zi1 = c__ * zi1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< i1(i,k)=zi1 >*/
- i1[i__ + k * 31 + 775] = zi1;
-/*< a=(q2(i,k)-q2(jj,k))/f >*/
- a = (q2[i__ + k * 31 + 775] - q2[jj + k * 31 + 775]) / f;
-/*< b=q2(i,k)-a*h(i) >*/
- b = q2[i__ + k * 31 + 775] - a * h__[i__];
-/*< zq1=c*zq1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zq1 = c__ * zq1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< q1(i,k)=zq1 >*/
- q1[i__ + k * 31 + 775] = zq1;
-/*< a=(u2(i,k)-u2(jj,k))/f >*/
- a = (u2[i__ + k * 31 + 775] - u2[jj + k * 31 + 775]) / f;
-/*< b=u2(i,k)-a*h(i) >*/
- b = u2[i__ + k * 31 + 775] - a * h__[i__];
-/*< zu1=c*zu1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zu1 = c__ * zu1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< u1(i,k)=zu1 >*/
- u1[i__ + k * 31 + 775] = zu1;
-/*< 109 continue >*/
-/* L109: */
- }
- }
-
-/* in(2,?) is inialized with scattering computed at n-2 */
-/* i3 is inialized with primary scattering */
-
-/*< do 20 k=-mu,mu >*/
- i__1 = *mu;
- for (k = -(*mu); k <= i__1; ++k) {
-/*< if(k) 21,20,23 >*/
- if (k < 0) {
- goto L21;
- } else if (k == 0) {
- goto L20;
- } else {
- goto L23;
- }
-/*< 21 index=nt >*/
-L21:
- index = *nt;
-/*< go to 25 >*/
- goto L25;
-/*< 23 index=0 >*/
-L23:
- index = 0;
-/*< 25 continue >*/
-L25:
-/*< in(1,k)=i1(index,k) >*/
- in[k * 3 + 76] = i1[index + k * 31 + 775];
-/*< in(2,k)=i1(index,k) >*/
- in[k * 3 + 77] = i1[index + k * 31 + 775];
-/*< i3(k)=i1(index,k) >*/
- i3[k + 25] = i1[index + k * 31 + 775];
-/*< qn(1,k)=q1(index,k) >*/
- qn[k * 3 + 76] = q1[index + k * 31 + 775];
-/*< qn(2,k)=q1(index,k) >*/
- qn[k * 3 + 77] = q1[index + k * 31 + 775];
-/*< q3(k)=q1(index,k) >*/
- q3[k + 25] = q1[index + k * 31 + 775];
-/*< un(1,k)=u1(index,k) >*/
- un[k * 3 + 76] = u1[index + k * 31 + 775];
-/*< un(2,k)=u1(index,k) >*/
- un[k * 3 + 77] = u1[index + k * 31 + 775];
-/*< u3(k)=u1(index,k) >*/
- u3[k + 25] = u1[index + k * 31 + 775];
-/*< 20 continue >*/
-L20:
- ;
- }
-/*< roIavion(2)=i1(iplane,mu) >*/
- roiavion[3] = i1[iplane + *mu * 31 + 775];
-/*< roIavion(-1)=i1(iplane,mu) >*/
- roiavion[0] = i1[iplane + *mu * 31 + 775];
-/*< roQavion(2)=q1(iplane,mu) >*/
- roqavion[3] = q1[iplane + *mu * 31 + 775];
-/*< roQavion(-1)=q1(iplane,mu) >*/
- roqavion[0] = q1[iplane + *mu * 31 + 775];
-/*< roUavion(2)=u1(iplane,mu) >*/
- rouavion[3] = u1[iplane + *mu * 31 + 775];
-/*< roUavion(-1)=u1(iplane,mu) >*/
- rouavion[0] = u1[iplane + *mu * 31 + 775];
-
-/* loop on successive order */
-
-/*< 503 ig=ig+1 >*/
-L503:
- ++ig;
-/* WRITE(6,*) "WARNING ONLY PRIMARY SCATTERING" */
-/* goto 505 */
-
-/* successive orders */
-
-/* multiple scattering source function at every level within the l
-aye */
-
-/* if is < ou = 2 kernels are a mixing of aerosols and molecules k
-ern */
-/* if is >2 aerosols kernels only */
-
-/*< if(is-2)210,210,211 >*/
- if (is - 2 <= 0) {
- goto L210;
- } else {
- goto L211;
- }
-/*< 210 do455 k=1,mu >*/
-L210:
- i__1 = *mu;
- for (k = 1; k <= i__1; ++k) {
-/*< xpk=xpl(k) >*/
- xpk = xpl[k + 25];
-/*< xrk=xrl(k) >*/
- xrk = xrl[k + 25];
-/*< xtk=xtl(k) >*/
- xtk = xtl[k + 25];
-/*< ypk=xpl(-k) >*/
- ypk = xpl[-k + 25];
-/*< yrk=xrl(-k) >*/
- yrk = xrl[-k + 25];
-/*< ytk=xtl(-k) >*/
- ytk = xtl[-k + 25];
-/*< do 455 i=0,nt >*/
- i__3 = *nt;
- for (i__ = 0; i__ <= i__3; ++i__) {
-/*< ii1=0. >*/
- ii1 = 0.;
-/*< ii2=0. >*/
- ii2 = 0.;
-/*< qq1=0. >*/
- qq1 = 0.;
-/*< qq2=0. >*/
- qq2 = 0.;
-/*< uu1=0. >*/
- uu1 = 0.;
-/*< uu2=0. >*/
- uu2 = 0.;
-/*< x=xdel(i) >*/
- x = xdel[i__];
-/*< y=ydel(i) >*/
- y = ydel[i__];
-/*< do477 j=1,mu >*/
- i__4 = *mu;
- for (j = 1; j <= i__4; ++j) {
-/*< z=gb(j) >*/
- z__ = gb[j];
-/*< xpj=xpl(j) >*/
- xpj = xpl[j + 25];
-/*< xrj=xrl(j) >*/
- xrj = xrl[j + 25];
-/*< xtj=xtl(j) >*/
- xtj = xtl[j + 25];
-/*< ypj=xpl(-j) >*/
- ypj = xpl[-j + 25];
-/*< yrj=xrl(-j) >*/
- yrj = xrl[-j + 25];
-/*< ytj=xtl(-j) >*/
- ytj = xtl[-j + 25];
-/*< xi1=i1(i,j) >*/
- xi1 = i1[i__ + j * 31 + 775];
-/*< xi2=i1(i,-j) >*/
- xi2 = i1[i__ + -j * 31 + 775];
-/*< xq1=q1(i,j) >*/
- xq1 = q1[i__ + j * 31 + 775];
-/*< xq2=q1(i,-j) >*/
- xq2 = q1[i__ + -j * 31 + 775];
-/*< xu1=u1(i,j) >*/
- xu1 = u1[i__ + j * 31 + 775];
-/*< xu2=u1(i,-j) >*/
- xu2 = u1[i__ + -j * 31 + 775];
-/*< bpjk=bp(j,k)*x+y*(beta0+beta2*xpj*xpk) >*/
- bpjk = bp[j + k * 26 + 650] * x + y * (beta0 + beta2 *
- xpj * xpk);
-/*< bpjmk=bp(j,-k)*x+y*(beta0+beta2*xpj*ypk) >*/
- bpjmk = bp[j + -k * 26 + 650] * x + y * (beta0 + beta2 *
- xpj * ypk);
-/*< gtjk=gt(j,k)*x+y*gamma2*xpj*xtk >*/
- gtjk = gt[j + k * 26 + 650] * x + y * gamma2 * xpj * xtk;
-/*< gtjmk=gt(j,-k)*x+y*gamma2*xpj*ytk >*/
- gtjmk = gt[j + -k * 26 + 650] * x + y * gamma2 * xpj *
- ytk;
-/*< gtkj=gt(k,j)*x+y*gamma2*xpk*xtj >*/
- gtkj = gt[k + j * 26 + 650] * x + y * gamma2 * xpk * xtj;
-/*< gtkmj=gt(k,-j)*x+y*gamma2*xpk*ytj >*/
- gtkmj = gt[k + -j * 26 + 650] * x + y * gamma2 * xpk *
- ytj;
-/*< grjk=gr(j,k)*x+y*gamma2*xpj*xrk >*/
- grjk = gr[j + k * 26 + 650] * x + y * gamma2 * xpj * xrk;
-/*< grjmk=gr(j,-k)*x+y*gamma2*xpj*yrk >*/
- grjmk = gr[j + -k * 26 + 650] * x + y * gamma2 * xpj *
- yrk;
-/*< grkj=gr(k,j)*x+y*gamma2*xpk*xrj >*/
- grkj = gr[k + j * 26 + 650] * x + y * gamma2 * xpk * xrj;
-/*< grkmj=gr(k,-j)*x+y*gamma2*xpk*yrj >*/
- grkmj = gr[k + -j * 26 + 650] * x + y * gamma2 * xpk *
- yrj;
-/*< arrjk=arr(j,k)*x+y*alpha2*xrj*xrk >*/
- arrjk = arr[j + k * 26 + 650] * x + y * alpha2 * xrj *
- xrk;
-/*< arrjmk=arr(j,-k)*x+y*alpha2*xrj*yrk >*/
- arrjmk = arr[j + -k * 26 + 650] * x + y * alpha2 * xrj *
- yrk;
-/*< artjk=art(j,k)*x+y*alpha2*xtj*xrk >*/
- artjk = art[j + k * 26 + 650] * x + y * alpha2 * xtj *
- xrk;
-/*< artjmk=art(j,-k)*x+y*alpha2*xtj*yrk >*/
- artjmk = art[j + -k * 26 + 650] * x + y * alpha2 * xtj *
- yrk;
-/*< artkj=art(k,j)*x+y*alpha2*xtk*xrj >*/
- artkj = art[k + j * 26 + 650] * x + y * alpha2 * xtk *
- xrj;
-/*< artkmj=art(k,-j)*x+y*alpha2*xtk*yrj >*/
- artkmj = art[k + -j * 26 + 650] * x + y * alpha2 * xtk *
- yrj;
-/*< attjk=att(j,k)*x+y*alpha2*xtj*xtk >*/
- attjk = att[j + k * 26 + 650] * x + y * alpha2 * xtj *
- xtk;
-/*< attjmk=att(j,-k)*x+y*alpha2*xtj*ytk >*/
- attjmk = att[j + -k * 26 + 650] * x + y * alpha2 * xtj *
- ytk;
-/*< xdb=xi1*bpjk+xi2*bpjmk+xq1*grkj+xq2*grkmj >*/
- xdb = xi1 * bpjk + xi2 * bpjmk + xq1 * grkj + xq2 * grkmj;
-/*< xdb=xdb-xu1*gtkj-xu2*gtkmj >*/
- xdb = xdb - xu1 * gtkj - xu2 * gtkmj;
-/*< ii2=ii2+xdb*z >*/
- ii2 += xdb * z__;
-/*< xdb=xi1*bpjmk+xi2*bpjk+xq1*grkmj+xq2*grkj >*/
- xdb = xi1 * bpjmk + xi2 * bpjk + xq1 * grkmj + xq2 * grkj;
-/*< xdb=xdb+xu1*gtkmj+xu2*gtkj >*/
- xdb = xdb + xu1 * gtkmj + xu2 * gtkj;
-/*< ii1=ii1+xdb*z >*/
- ii1 += xdb * z__;
-/*< xdb=xi1*grjk+xi2*grjmk+xq1*arrjk+xq2*arrjmk >*/
- xdb = xi1 * grjk + xi2 * grjmk + xq1 * arrjk + xq2 *
- arrjmk;
-/*< xdb=xdb-xu1*artjk+xu2*artjmk >*/
- xdb = xdb - xu1 * artjk + xu2 * artjmk;
-/*< qq2=qq2+xdb*z >*/
- qq2 += xdb * z__;
-/*< xdb=xi1*grjmk+xi2*grjk+xq1*arrjmk+xq2*arrjk >*/
- xdb = xi1 * grjmk + xi2 * grjk + xq1 * arrjmk + xq2 *
- arrjk;
-/*< xdb=xdb-xu1*artjmk+xu2*artjk >*/
- xdb = xdb - xu1 * artjmk + xu2 * artjk;
-/*< qq1=qq1+xdb*z >*/
- qq1 += xdb * z__;
-/*< xdb=xi1*gtjk-xi2*gtjmk+xq1*artkj+xq2*artkmj >*/
- xdb = xi1 * gtjk - xi2 * gtjmk + xq1 * artkj + xq2 *
- artkmj;
-/*< xdb=xdb-xu1*attjk-xu2*attjmk >*/
- xdb = xdb - xu1 * attjk - xu2 * attjmk;
-/*< uu2=uu2-xdb*z >*/
- uu2 -= xdb * z__;
-/*< xdb=xi1*gtjmk-xi2*gtjk-xq1*artkmj-xq2*artkj >*/
- xdb = xi1 * gtjmk - xi2 * gtjk - xq1 * artkmj - xq2 *
- artkj;
-/*< xdb=xdb-xu1*attjmk-xu2*attjk >*/
- xdb = xdb - xu1 * attjmk - xu2 * attjk;
-/*< uu1=uu1-xdb*z >*/
- uu1 -= xdb * z__;
-/*< 477 continue >*/
-/* L477: */
- }
-/*< if (abs(ii2).lt.1.E-30) ii2=0. >*/
- if (abs(ii2) < 1e-30) {
- ii2 = 0.;
- }
-/*< if (abs(ii1).lt.1.E-30) ii1=0. >*/
- if (abs(ii1) < 1e-30) {
- ii1 = 0.;
- }
-/*< if (abs(qq2).lt.1.E-30) qq2=0. >*/
- if (abs(qq2) < 1e-30) {
- qq2 = 0.;
- }
-/*< if (abs(qq1).lt.1.E-30) qq1=0. >*/
- if (abs(qq1) < 1e-30) {
- qq1 = 0.;
- }
-/*< if (abs(uu2).lt.1.E-30) uu2=0. >*/
- if (abs(uu2) < 1e-30) {
- uu2 = 0.;
- }
-/*< if (abs(uu1).lt.1.E-30) uu1=0. >*/
- if (abs(uu1) < 1e-30) {
- uu1 = 0.;
- }
-/*< i2(i,k)=ii2 >*/
- i2[i__ + k * 31 + 775] = ii2;
-/*< i2(i,-k)=ii1 >*/
- i2[i__ + -k * 31 + 775] = ii1;
-/*< q2(i,k)=qq2 >*/
- q2[i__ + k * 31 + 775] = qq2;
-/*< q2(i,-k)=qq1 >*/
- q2[i__ + -k * 31 + 775] = qq1;
-/*< u2(i,k)=uu2 >*/
- u2[i__ + k * 31 + 775] = uu2;
-/*< u2(i,-k)=uu1 >*/
- u2[i__ + -k * 31 + 775] = uu1;
-/*< 455 continue >*/
-/* L455: */
- }
- }
-/*< goto 213 >*/
- goto L213;
-/*< 211 do45 k=1,mu >*/
-L211:
- i__3 = *mu;
- for (k = 1; k <= i__3; ++k) {
-/*< do 45 i=0,nt >*/
- i__1 = *nt;
- for (i__ = 0; i__ <= i__1; ++i__) {
-/*< ii1=0. >*/
- ii1 = 0.;
-/*< ii2=0. >*/
- ii2 = 0.;
-/*< qq1=0. >*/
- qq1 = 0.;
-/*< qq2=0. >*/
- qq2 = 0.;
-/*< uu1=0. >*/
- uu1 = 0.;
-/*< uu2=0. >*/
- uu2 = 0.;
-/*< x=xdel(i) >*/
- x = xdel[i__];
-/*< do47 j=1,mu >*/
- i__4 = *mu;
- for (j = 1; j <= i__4; ++j) {
-/*< z=gb(j) >*/
- z__ = gb[j];
-/*< xi1=i1(i,j) >*/
- xi1 = i1[i__ + j * 31 + 775];
-/*< xi2=i1(i,-j) >*/
- xi2 = i1[i__ + -j * 31 + 775];
-/*< xq1=q1(i,j) >*/
- xq1 = q1[i__ + j * 31 + 775];
-/*< xq2=q1(i,-j) >*/
- xq2 = q1[i__ + -j * 31 + 775];
-/*< xu1=u1(i,j) >*/
- xu1 = u1[i__ + j * 31 + 775];
-/*< xu2=u1(i,-j) >*/
- xu2 = u1[i__ + -j * 31 + 775];
-/*< bpjk=bp(j,k)*x >*/
- bpjk = bp[j + k * 26 + 650] * x;
-/*< bpjmk=bp(j,-k)*x >*/
- bpjmk = bp[j + -k * 26 + 650] * x;
-/*< gtjk=gt(j,k)*x >*/
- gtjk = gt[j + k * 26 + 650] * x;
-/*< gtjmk=gt(j,-k)*x >*/
- gtjmk = gt[j + -k * 26 + 650] * x;
-/*< gtkj=gt(k,j)*x >*/
- gtkj = gt[k + j * 26 + 650] * x;
-/*< gtkmj=gt(k,-j)*x >*/
- gtkmj = gt[k + -j * 26 + 650] * x;
-/*< grjk=gr(j,k)*x >*/
- grjk = gr[j + k * 26 + 650] * x;
-/*< grjmk=gr(j,-k)*x >*/
- grjmk = gr[j + -k * 26 + 650] * x;
-/*< grkj=gr(k,j)*x >*/
- grkj = gr[k + j * 26 + 650] * x;
-/*< grkmj=gr(k,-j)*x >*/
- grkmj = gr[k + -j * 26 + 650] * x;
-/*< arrjk=arr(j,k)*x >*/
- arrjk = arr[j + k * 26 + 650] * x;
-/*< arrjmk=arr(j,-k)*x >*/
- arrjmk = arr[j + -k * 26 + 650] * x;
-/*< artjk=art(j,k)*x >*/
- artjk = art[j + k * 26 + 650] * x;
-/*< artjmk=art(j,-k)*x >*/
- artjmk = art[j + -k * 26 + 650] * x;
-/*< artkj=art(k,j)*x >*/
- artkj = art[k + j * 26 + 650] * x;
-/*< artkmj=art(k,-j)*x >*/
- artkmj = art[k + -j * 26 + 650] * x;
-/*< attjk=att(j,k)*x >*/
- attjk = att[j + k * 26 + 650] * x;
-/*< attjmk=att(j,-k)*x >*/
- attjmk = att[j + -k * 26 + 650] * x;
-/*< xdb=xi1*bpjk+xi2*bpjmk+xq1*grkj+xq2*grkmj >*/
- xdb = xi1 * bpjk + xi2 * bpjmk + xq1 * grkj + xq2 * grkmj;
-/*< xdb=xdb-xu1*gtkj-xu2*gtkmj >*/
- xdb = xdb - xu1 * gtkj - xu2 * gtkmj;
-/*< ii2=ii2+xdb*z >*/
- ii2 += xdb * z__;
-/*< xdb=xi1*bpjmk+xi2*bpjk+xq1*grkmj+xq2*grkj >*/
- xdb = xi1 * bpjmk + xi2 * bpjk + xq1 * grkmj + xq2 * grkj;
-/*< xdb=xdb+xu1*gtkmj+xu2*gtkj >*/
- xdb = xdb + xu1 * gtkmj + xu2 * gtkj;
-/*< ii1=ii1+xdb*z >*/
- ii1 += xdb * z__;
-/*< xdb=xi1*grjk+xi2*grjmk+xq1*arrjk+xq2*arrjmk >*/
- xdb = xi1 * grjk + xi2 * grjmk + xq1 * arrjk + xq2 *
- arrjmk;
-/*< xdb=xdb-xu1*artjk+xu2*artjmk >*/
- xdb = xdb - xu1 * artjk + xu2 * artjmk;
-/*< qq2=qq2+xdb*z >*/
- qq2 += xdb * z__;
-/*< xdb=xi1*grjmk+xi2*grjk+xq1*arrjmk+xq2*arrjk >*/
- xdb = xi1 * grjmk + xi2 * grjk + xq1 * arrjmk + xq2 *
- arrjk;
-/*< xdb=xdb-xu1*artjmk+xu2*artjk >*/
- xdb = xdb - xu1 * artjmk + xu2 * artjk;
-/*< qq1=qq1+xdb*z >*/
- qq1 += xdb * z__;
-/*< xdb=xi1*gtjk-xi2*gtjmk+xq1*artkj+xq2*artkmj >*/
- xdb = xi1 * gtjk - xi2 * gtjmk + xq1 * artkj + xq2 *
- artkmj;
-/*< xdb=xdb-xu1*attjk-xu2*attjmk >*/
- xdb = xdb - xu1 * attjk - xu2 * attjmk;
-/*< uu2=uu2-xdb*z >*/
- uu2 -= xdb * z__;
-/*< xdb=xi1*gtjmk-xi2*gtjk-xq1*artkmj-xq2*artkj >*/
- xdb = xi1 * gtjmk - xi2 * gtjk - xq1 * artkmj - xq2 *
- artkj;
-/*< xdb=xdb-xu1*attjmk-xu2*attjk >*/
- xdb = xdb - xu1 * attjmk - xu2 * attjk;
-/*< uu1=uu1-xdb*z >*/
- uu1 -= xdb * z__;
-/*< 47 continue >*/
-/* L47: */
- }
-/*< if (abs(ii2).lt.1.E-30) ii2=0. >*/
- if (abs(ii2) < 1e-30) {
- ii2 = 0.;
- }
-/*< if (abs(ii1).lt.1.E-30) ii1=0. >*/
- if (abs(ii1) < 1e-30) {
- ii1 = 0.;
- }
-/*< if (abs(qq2).lt.1.E-30) qq2=0. >*/
- if (abs(qq2) < 1e-30) {
- qq2 = 0.;
- }
-/*< if (abs(qq1).lt.1.E-30) qq1=0. >*/
- if (abs(qq1) < 1e-30) {
- qq1 = 0.;
- }
-/*< if (abs(uu2).lt.1.E-30) uu2=0. >*/
- if (abs(uu2) < 1e-30) {
- uu2 = 0.;
- }
-/*< if (abs(uu1).lt.1.E-30) uu1=0. >*/
- if (abs(uu1) < 1e-30) {
- uu1 = 0.;
- }
-/*< i2(i,k)=ii2 >*/
- i2[i__ + k * 31 + 775] = ii2;
-/*< i2(i,-k)=ii1 >*/
- i2[i__ + -k * 31 + 775] = ii1;
-/*< q2(i,k)=qq2 >*/
- q2[i__ + k * 31 + 775] = qq2;
-/*< q2(i,-k)=qq1 >*/
- q2[i__ + -k * 31 + 775] = qq1;
-/*< u2(i,k)=uu2 >*/
- u2[i__ + k * 31 + 775] = uu2;
-/*< u2(i,-k)=uu1 >*/
- u2[i__ + -k * 31 + 775] = uu1;
-/*< 45 continue >*/
-/* L45: */
- }
- }
-
-/* vertical integration, upward radiation */
-
-/*< 213 do 48 k=1,mu >*/
-L213:
- i__1 = *mu;
- for (k = 1; k <= i__1; ++k) {
-/*< i1(nt,k)=0. >*/
- i1[*nt + k * 31 + 775] = 0.;
-/*< q1(nt,k)=0. >*/
- q1[*nt + k * 31 + 775] = 0.;
-/*< u1(nt,k)=0. >*/
- u1[*nt + k * 31 + 775] = 0.;
-/*< zi1=i1(nt,k) >*/
- zi1 = i1[*nt + k * 31 + 775];
-/*< zq1=q1(nt,k) >*/
- zq1 = q1[*nt + k * 31 + 775];
-/*< zu1=u1(nt,k) >*/
- zu1 = u1[*nt + k * 31 + 775];
-/*< yy=rm(k) >*/
- yy = rm[k];
-/*< do 48 i=nt-1,0,-1 >*/
- for (i__ = *nt - 1; i__ >= 0; --i__) {
-/*< jj=i+1 >*/
- jj = i__ + 1;
-/*< f=h(jj)-h(i) >*/
- f = h__[jj] - h__[i__];
-/*< c=exp(-f/yy) >*/
- c__ = exp(-f / yy);
-/*< d=1.e+00-c >*/
- d__ = 1. - c__;
-/*< xx=h(i)-h(jj)*c >*/
- xx = h__[i__] - h__[jj] * c__;
-/*< a=(i2(jj,k)-i2(i,k))/f >*/
- a = (i2[jj + k * 31 + 775] - i2[i__ + k * 31 + 775]) / f;
-/*< b=i2(i,k)-a*h(i) >*/
- b = i2[i__ + k * 31 + 775] - a * h__[i__];
-/*< zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zi1 = c__ * zi1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< if (abs(zi1).le.1.E-20) zi1=0. >*/
- if (abs(zi1) <= 1e-20) {
- zi1 = 0.;
- }
-/*< i1(i,k)=zi1 >*/
- i1[i__ + k * 31 + 775] = zi1;
-/*< a=(q2(jj,k)-q2(i,k))/f >*/
- a = (q2[jj + k * 31 + 775] - q2[i__ + k * 31 + 775]) / f;
-/*< b=q2(i,k)-a*h(i) >*/
- b = q2[i__ + k * 31 + 775] - a * h__[i__];
-/*< zq1=c*zq1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zq1 = c__ * zq1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< if (abs(zq1).le.1.E-20) zq1=0. >*/
- if (abs(zq1) <= 1e-20) {
- zq1 = 0.;
- }
-/*< q1(i,k)=zq1 >*/
- q1[i__ + k * 31 + 775] = zq1;
-/*< a=(u2(jj,k)-u2(i,k))/f >*/
- a = (u2[jj + k * 31 + 775] - u2[i__ + k * 31 + 775]) / f;
-/*< b=u2(i,k)-a*h(i) >*/
- b = u2[i__ + k * 31 + 775] - a * h__[i__];
-/*< zu1=c*zu1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zu1 = c__ * zu1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< if (abs(zu1).le.1.E-20) zu1=0. >*/
- if (abs(zu1) <= 1e-20) {
- zu1 = 0.;
- }
-/*< u1(i,k)=zu1 >*/
- u1[i__ + k * 31 + 775] = zu1;
-/*< 48 continue >*/
-/* L48: */
- }
- }
-
-/* vertical integration, downward radiation */
-
-/*< do 50 k=-mu,-1 >*/
- for (k = -(*mu); k <= -1; ++k) {
-/*< i1(0,k)=0. >*/
- i1[k * 31 + 775] = 0.;
-/*< q1(0,k)=0. >*/
- q1[k * 31 + 775] = 0.;
-/*< u1(0,k)=0. >*/
- u1[k * 31 + 775] = 0.;
-/*< zi1=i1(0,k) >*/
- zi1 = i1[k * 31 + 775];
-/*< zq1=q1(0,k) >*/
- zq1 = q1[k * 31 + 775];
-/*< zu1=u1(0,k) >*/
- zu1 = u1[k * 31 + 775];
-/*< yy=rm(k) >*/
- yy = rm[k];
-/*< do 50 i=1,nt >*/
- i__1 = *nt;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< jj=i-1 >*/
- jj = i__ - 1;
-/*< f=h(i)-h(jj) >*/
- f = h__[i__] - h__[jj];
-/*< c=exp(f/yy) >*/
- c__ = exp(f / yy);
-/*< d=1.e+00-c >*/
- d__ = 1. - c__;
-/*< xx=h(i)-h(jj)*c >*/
- xx = h__[i__] - h__[jj] * c__;
-/*< a=(i2(i,k)-i2(jj,k))/f >*/
- a = (i2[i__ + k * 31 + 775] - i2[jj + k * 31 + 775]) / f;
-/*< b=i2(i,k)-a*h(i) >*/
- b = i2[i__ + k * 31 + 775] - a * h__[i__];
-/*< zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zi1 = c__ * zi1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< if (abs(zi1).le.1.E-20) zi1=0. >*/
- if (abs(zi1) <= 1e-20) {
- zi1 = 0.;
- }
-/*< i1(i,k)=zi1 >*/
- i1[i__ + k * 31 + 775] = zi1;
-/*< a=(q2(i,k)-q2(jj,k))/f >*/
- a = (q2[i__ + k * 31 + 775] - q2[jj + k * 31 + 775]) / f;
-/*< b=q2(i,k)-a*h(i) >*/
- b = q2[i__ + k * 31 + 775] - a * h__[i__];
-/*< zq1=c*zq1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zq1 = c__ * zq1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< if (abs(zq1).le.1.E-20) zq1=0. >*/
- if (abs(zq1) <= 1e-20) {
- zq1 = 0.;
- }
-/*< q1(i,k)=zq1 >*/
- q1[i__ + k * 31 + 775] = zq1;
-/*< a=(u2(i,k)-u2(jj,k))/f >*/
- a = (u2[i__ + k * 31 + 775] - u2[jj + k * 31 + 775]) / f;
-/*< b=u2(i,k)-a*h(i) >*/
- b = u2[i__ + k * 31 + 775] - a * h__[i__];
-/*< zu1=c*zu1+(d*(b+a*yy)+a*xx)*0.5e+00 >*/
- zu1 = c__ * zu1 + (d__ * (b + a * yy) + a * xx) * .5;
-/*< if (abs(zu1).le.1.E-20) zu1=0. >*/
- if (abs(zu1) <= 1e-20) {
- zu1 = 0.;
- }
-/*< u1(i,k)=zu1 >*/
- u1[i__ + k * 31 + 775] = zu1;
-/*< 50 continue >*/
-/* L50: */
- }
- }
-
-/* in(0,?) is the nieme scattering order */
-
-/*< do 30 k=-mu,mu >*/
- i__1 = *mu;
- for (k = -(*mu); k <= i__1; ++k) {
-/*< if(k) 31,30,33 >*/
- if (k < 0) {
- goto L31;
- } else if (k == 0) {
- goto L30;
- } else {
- goto L33;
- }
-/*< 31 index=nt >*/
-L31:
- index = *nt;
-/*< go to 34 >*/
- goto L34;
-/*< 33 index=0 >*/
-L33:
- index = 0;
-/*< 34 continue >*/
-L34:
-/*< in(0,k)=i1(index,k) >*/
- in[k * 3 + 75] = i1[index + k * 31 + 775];
-/*< qn(0,k)=q1(index,k) >*/
- qn[k * 3 + 75] = q1[index + k * 31 + 775];
-/*< un(0,k)=u1(index,k) >*/
- un[k * 3 + 75] = u1[index + k * 31 + 775];
-/*< 30 continue >*/
-L30:
- ;
- }
-/*< roIavion(0)=i1(iplane,mu) >*/
- roiavion[1] = i1[iplane + *mu * 31 + 775];
-/*< roQavion(0)=Q1(iplane,mu) >*/
- roqavion[1] = q1[iplane + *mu * 31 + 775];
-/*< roUavion(0)=U1(iplane,mu) >*/
- rouavion[1] = u1[iplane + *mu * 31 + 775];
-
-/* convergence test (geometrical serie) */
-
-/*< if(ig.gt.2) then >*/
- if (ig > 2) {
-/*< z=0. >*/
- z__ = 0.;
-/*< a1=abs(roIavion(2)) >*/
- a1 = abs(roiavion[3]);
-/*< d1=abs(roIavion(1)) >*/
- d1 = abs(roiavion[2]);
-/*< g1=abs(roIavion(0)) >*/
- g1 = abs(roiavion[1]);
-/*< r1=abs(roIavion(-1)) >*/
- r1 = abs(roiavion[0]);
-/*< if(a1.ge.acu.and.d1.ge.acu.and.r1.ge.acu) then >*/
- if (a1 >= acu && d1 >= acu && r1 >= acu) {
-/*< a1=roIavion(2) >*/
- a1 = roiavion[3];
-/*< d1=roIavion(1) >*/
- d1 = roiavion[2];
-/*< g1=roIavion(0) >*/
- g1 = roiavion[1];
-/*< r1=roIavion(-1) >*/
- r1 = roiavion[0];
-/*< y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/r1)) >*/
-/* Computing 2nd power */
- d__1 = 1 - g1 / d1;
- y = (g1 / d1 - d1 / a1) / (d__1 * d__1) * (g1 / r1);
-/*< y=abs(y) >*/
- y = abs(y);
-/*< z=dmax1(dble(y),z) >*/
- z__ = max(y,z__);
-/*< endif >*/
- }
-/*< a1=abs(roQavion(2)) >*/
- a1 = abs(roqavion[3]);
-/*< d1=abs(roQavion(1)) >*/
- d1 = abs(roqavion[2]);
-/*< g1=abs(roQavion(0)) >*/
- g1 = abs(roqavion[1]);
-/*< r1=abs(roQavion(-1)) >*/
- r1 = abs(roqavion[0]);
-/*< if(a1.ge.acu.and.d1.ge.acu.and.r1.ge.acu) then >*/
- if (a1 >= acu && d1 >= acu && r1 >= acu) {
-/*< a1=roQavion(2) >*/
- a1 = roqavion[3];
-/*< d1=roQavion(1) >*/
- d1 = roqavion[2];
-/*< g1=roQavion(0) >*/
- g1 = roqavion[1];
-/*< r1=roQavion(-1) >*/
- r1 = roqavion[0];
-/*< y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/r1)) >*/
-/* Computing 2nd power */
- d__1 = 1 - g1 / d1;
- y = (g1 / d1 - d1 / a1) / (d__1 * d__1) * (g1 / r1);
-/*< y=abs(y) >*/
- y = abs(y);
-/*< z=dmax1(dble(y),z) >*/
- z__ = max(y,z__);
-/*< endif >*/
- }
-/*< a1=abs(roUavion(2)) >*/
- a1 = abs(rouavion[3]);
-/*< d1=abs(roUavion(1)) >*/
- d1 = abs(rouavion[2]);
-/*< g1=abs(roUavion(0)) >*/
- g1 = abs(rouavion[1]);
-/*< r1=abs(roUavion(-1)) >*/
- r1 = abs(rouavion[0]);
-/*< if(a1.ge.acu.and.d1.ge.acu.and.r1.ge.acu) then >*/
- if (a1 >= acu && d1 >= acu && r1 >= acu) {
-/*< a1=roUavion(2) >*/
- a1 = rouavion[3];
-/*< d1=roUavion(1) >*/
- d1 = rouavion[2];
-/*< g1=roUavion(0) >*/
- g1 = rouavion[1];
-/*< r1=roUavion(-1) >*/
- r1 = rouavion[0];
-/*< y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/r1)) >*/
-/* Computing 2nd power */
- d__1 = 1 - g1 / d1;
- y = (g1 / d1 - d1 / a1) / (d__1 * d__1) * (g1 / r1);
-/*< y=abs(y) >*/
- y = abs(y);
-/*< z=dmax1(dble(y),z) >*/
- z__ = max(y,z__);
-/*< endif >*/
- }
-/*< do 99 l=-mu,mu >*/
- i__1 = *mu;
- for (l = -(*mu); l <= i__1; ++l) {
-/*< if (l.eq.0) goto 99 >*/
- if (l == 0) {
- goto L99;
- }
-/*< a1=in(2,l) >*/
- a1 = in[l * 3 + 77];
-/*< d1=in(1,l) >*/
- d1 = in[l * 3 + 76];
-/*< g1=in(0,l) >*/
- g1 = in[l * 3 + 75];
-/*< if(abs(a1).le.acu) go to 98 >*/
- if (abs(a1) <= acu) {
- goto L98;
- }
-/*< if(abs(d1).le.acu) go to 98 >*/
- if (abs(d1) <= acu) {
- goto L98;
- }
-/*< if(abs(i3(l)).le.acu) go to 98 >*/
- if ((d__1 = i3[l + 25], abs(d__1)) <= acu) {
- goto L98;
- }
-/*< y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/i3(l))) >*/
-/* Computing 2nd power */
- d__1 = 1 - g1 / d1;
- y = (g1 / d1 - d1 / a1) / (d__1 * d__1) * (g1 / i3[l + 25]);
-/*< y=abs(y) >*/
- y = abs(y);
-/*< z=dmax1(dble(y),z) >*/
- z__ = max(y,z__);
-/*< 98 a1=qn(2,l) >*/
-L98:
- a1 = qn[l * 3 + 77];
-/*< d1=qn(1,l) >*/
- d1 = qn[l * 3 + 76];
-/*< g1=qn(0,l) >*/
- g1 = qn[l * 3 + 75];
-/*< if(abs(a1).le.acu) go to 97 >*/
- if (abs(a1) <= acu) {
- goto L97;
- }
-/*< if(abs(d1).le.acu) go to 97 >*/
- if (abs(d1) <= acu) {
- goto L97;
- }
-/*< if(abs(q3(l)).le.acu) go to 97 >*/
- if ((d__1 = q3[l + 25], abs(d__1)) <= acu) {
- goto L97;
- }
-/*< y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/q3(l))) >*/
-/* Computing 2nd power */
- d__1 = 1 - g1 / d1;
- y = (g1 / d1 - d1 / a1) / (d__1 * d__1) * (g1 / q3[l + 25]);
-/*< y=abs(y) >*/
- y = abs(y);
-/*< z=dmax1(dble(y),z) >*/
- z__ = max(y,z__);
-/*< 97 a1=un(2,l) >*/
-L97:
- a1 = un[l * 3 + 77];
-/*< d1=un(1,l) >*/
- d1 = un[l * 3 + 76];
-/*< g1=un(0,l) >*/
- g1 = un[l * 3 + 75];
-/*< if(abs(a1).le.acu) go to 99 >*/
- if (abs(a1) <= acu) {
- goto L99;
- }
-/*< if(abs(d1).le.acu) go to 99 >*/
- if (abs(d1) <= acu) {
- goto L99;
- }
-/*< if(abs(u3(l)).le.acu) go to 99 >*/
- if ((d__1 = u3[l + 25], abs(d__1)) <= acu) {
- goto L99;
- }
-/*< y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/u3(l))) >*/
-/* Computing 2nd power */
- d__1 = 1 - g1 / d1;
- y = (g1 / d1 - d1 / a1) / (d__1 * d__1) * (g1 / u3[l + 25]);
-/*< y=abs(y) >*/
- y = abs(y);
-/*< z=dmax1(dble(y),z) >*/
- z__ = max(y,z__);
-/*< 99 continue >*/
-L99:
- ;
- }
-/*< if(z.lt.0.01) then >*/
- if (z__ < .01) {
-
-/* successful test (geometrical serie) */
-/*< do 606 l=-mu,mu >*/
- i__1 = *mu;
- for (l = -(*mu); l <= i__1; ++l) {
-/*< y1=1. >*/
- y1 = 1.;
-/*< d1=in(1,l) >*/
- d1 = in[l * 3 + 76];
-/*< if(abs(d1).le.acu) go to 605 >*/
- if (abs(d1) <= acu) {
- goto L605;
- }
-/*< g1=in(0,l) >*/
- g1 = in[l * 3 + 75];
-/*< if(abs(g1-d1).le.acu) go to 605 >*/
- if ((d__1 = g1 - d1, abs(d__1)) <= acu) {
- goto L605;
- }
-/*< y1=1-g1/d1 >*/
- y1 = 1 - g1 / d1;
-/*< g1=g1/y1 >*/
- g1 /= y1;
-/*< i3(l)=i3(l)+g1 >*/
- i3[l + 25] += g1;
-/*< 605 y1=1. >*/
-L605:
- y1 = 1.;
-/*< d1=qn(1,l) >*/
- d1 = qn[l * 3 + 76];
-/*< if(abs(d1).le.acu) go to 604 >*/
- if (abs(d1) <= acu) {
- goto L604;
- }
-/*< g1=qn(0,l) >*/
- g1 = qn[l * 3 + 75];
-/*< if(abs(g1-d1).le.acu) go to 604 >*/
- if ((d__1 = g1 - d1, abs(d__1)) <= acu) {
- goto L604;
- }
-/*< y1=1-g1/d1 >*/
- y1 = 1 - g1 / d1;
-/*< g1=g1/y1 >*/
- g1 /= y1;
-/*< q3(l)=q3(l)+g1 >*/
- q3[l + 25] += g1;
-/*< 604 y1=1. >*/
-L604:
- y1 = 1.;
-/*< d1=un(1,l) >*/
- d1 = un[l * 3 + 76];
-/*< if(abs(d1).le.acu) go to 606 >*/
- if (abs(d1) <= acu) {
- goto L606;
- }
-/*< g1=un(0,l) >*/
- g1 = un[l * 3 + 75];
-/*< if(abs(g1-d1).le.acu) go to 606 >*/
- if ((d__1 = g1 - d1, abs(d__1)) <= acu) {
- goto L606;
- }
-/*< y1=1-g1/d1 >*/
- y1 = 1 - g1 / d1;
-/*< g1=g1/y1 >*/
- g1 /= y1;
-/*< u3(l)=u3(l)+g1 >*/
- u3[l + 25] += g1;
-/*< 606 continue >*/
-L606:
- ;
- }
-/*< y1=1. >*/
- y1 = 1.;
-/*< d1=roIavion(1) >*/
- d1 = roiavion[2];
-/*< if(abs(d1).ge.acu) then >*/
- if (abs(d1) >= acu) {
-/*< g1=roIavion(0) >*/
- g1 = roiavion[1];
-/*< if(abs(g1-d1).ge.acu) then >*/
- if ((d__1 = g1 - d1, abs(d__1)) >= acu) {
-/*< y1=1-g1/d1 >*/
- y1 = 1 - g1 / d1;
-/*< g1=g1/y1 >*/
- g1 /= y1;
-/*< endif >*/
- }
-/*< roIavion(-1)=roIavion(-1)+g1 >*/
- roiavion[0] += g1;
-/*< endif >*/
- }
-/*< y1=1. >*/
- y1 = 1.;
-/*< d1=roQavion(1) >*/
- d1 = roqavion[2];
-/*< if(abs(d1).ge.acu) then >*/
- if (abs(d1) >= acu) {
-/*< g1=roQavion(0) >*/
- g1 = roqavion[1];
-/*< if(abs(g1-d1).ge.acu) then >*/
- if ((d__1 = g1 - d1, abs(d__1)) >= acu) {
-/*< y1=1-g1/d1 >*/
- y1 = 1 - g1 / d1;
-/*< g1=g1/y1 >*/
- g1 /= y1;
-/*< endif >*/
- }
-/*< roQavion(-1)=roQavion(-1)+g1 >*/
- roqavion[0] += g1;
-/*< endif >*/
- }
-/*< y1=1. >*/
- y1 = 1.;
-/*< d1=roUavion(1) >*/
- d1 = rouavion[2];
-/*< if(abs(d1).ge.acu) then >*/
- if (abs(d1) >= acu) {
-/*< g1=roUavion(0) >*/
- g1 = rouavion[1];
-/*< if(abs(g1-d1).ge.acu) then >*/
- if ((d__1 = g1 - d1, abs(d__1)) >= acu) {
-/*< y1=1-g1/d1 >*/
- y1 = 1 - g1 / d1;
-/*< g1=g1/y1 >*/
- g1 /= y1;
-/*< endif >*/
- }
-/*< roUavion(-1)=roUavion(-1)+g1 >*/
- rouavion[0] += g1;
-/*< endif >*/
- }
-/*< go to 505 >*/
- goto L505;
-/*< endif >*/
- }
-
-/* in(2,?) is the (n-2)ieme scattering order */
-
-/*< do 26 k=-mu,mu >*/
- i__1 = *mu;
- for (k = -(*mu); k <= i__1; ++k) {
-/*< in(2,k)=in(1,k) >*/
- in[k * 3 + 77] = in[k * 3 + 76];
-/*< qn(2,k)=qn(1,k) >*/
- qn[k * 3 + 77] = qn[k * 3 + 76];
-/*< un(2,k)=un(1,k) >*/
- un[k * 3 + 77] = un[k * 3 + 76];
-/*< 26 continue >*/
-/* L26: */
- }
-/*< roIavion(2)=roIavion(1) >*/
- roiavion[3] = roiavion[2];
-/*< roQavion(2)=roQavion(1) >*/
- roqavion[3] = roqavion[2];
-/*< roUavion(2)=roUavion(1) >*/
- rouavion[3] = rouavion[2];
-/*< endif >*/
- }
-
-/* in(1,?) is the (n-1)ieme scattering order */
-
-/*< do 27 k=-mu,mu >*/
- i__1 = *mu;
- for (k = -(*mu); k <= i__1; ++k) {
-/*< in(1,k)=in(0,k) >*/
- in[k * 3 + 76] = in[k * 3 + 75];
-/*< qn(1,k)=qn(0,k) >*/
- qn[k * 3 + 76] = qn[k * 3 + 75];
-/*< un(1,k)=un(0,k) >*/
- un[k * 3 + 76] = un[k * 3 + 75];
-/*< 27 continue >*/
-/* L27: */
- }
-/*< roIavion(1)=roIavion(0) >*/
- roiavion[2] = roiavion[1];
-/*< roQavion(1)=roQavion(0) >*/
- roqavion[2] = roqavion[1];
-/*< roUavion(1)=roUavion(0) >*/
- rouavion[2] = rouavion[1];
-
-/* sum of the n-1 orders */
-/*< do 610 l=-mu,mu >*/
- i__1 = *mu;
- for (l = -(*mu); l <= i__1; ++l) {
-/*< i3(l)=i3(l)+in(0,l) >*/
- i3[l + 25] += in[l * 3 + 75];
-/*< q3(l)=q3(l)+qn(0,l) >*/
- q3[l + 25] += qn[l * 3 + 75];
-/*< u3(l)=u3(l)+un(0,l) >*/
- u3[l + 25] += un[l * 3 + 75];
-/*< 610 continue >*/
-/* L610: */
- }
-/*< roIavion(-1)=roIavion(-1)+roIavion(0) >*/
- roiavion[0] += roiavion[1];
-/*< roQavion(-1)=roQavion(-1)+roQavion(0) >*/
- roqavion[0] += roqavion[1];
-/*< roUavion(-1)=roUavion(-1)+roUavion(0) >*/
- rouavion[0] += rouavion[1];
-
-/* stop if order n is less than 1% of the sum */
-/*< z=0. >*/
- z__ = 0.;
-/*< do 612 l=-mu,mu >*/
- i__1 = *mu;
- for (l = -(*mu); l <= i__1; ++l) {
-/*< if (abs(i3(l)).ge.acu) then >*/
- if ((d__1 = i3[l + 25], abs(d__1)) >= acu) {
-/*< y=abs(in(0,l)/i3(l)) >*/
- y = (d__1 = in[l * 3 + 75] / i3[l + 25], abs(d__1));
-/*< z=dmax1(z,dble(y)) >*/
- z__ = max(z__,y);
-/*< endif >*/
- }
-/*< if (abs(q3(l)).ge.acu) then >*/
- if ((d__1 = q3[l + 25], abs(d__1)) >= acu) {
-/*< y=abs(qn(0,l)/q3(l)) >*/
- y = (d__1 = qn[l * 3 + 75] / q3[l + 25], abs(d__1));
-/*< z=dmax1(z,dble(y)) >*/
- z__ = max(z__,y);
-/*< endif >*/
- }
-/*< if (abs(u3(l)).ge.acu) then >*/
- if ((d__1 = u3[l + 25], abs(d__1)) >= acu) {
-/*< y=abs(un(0,l)/u3(l)) >*/
- y = (d__1 = un[l * 3 + 75] / u3[l + 25], abs(d__1));
-/*< z=dmax1(z,dble(y)) >*/
- z__ = max(z__,y);
-/*< endif >*/
- }
-/*< 612 continue >*/
-/* L612: */
- }
-/* if(z.lt.0.00001) go to 505 ###originally */
-/* if(z.lt.0.001) go to 505 ###6sV4.0 choice */
-/* if(z.lt.0.01) go to 505 */
-/*< if(z.lt.0.00000001) go to 505 ! - like in a modified file >*/
- if (z__ < 1e-8) {
- goto L505;
- }
-
-/* stop if order n is greater than 20 in any case */
-/* WRITE(6,*) "WRITE WARNING PRIMARY SCATTERING" */
-/* goto 505 */
-/*< if(ig-igmax) 503,503,505 >*/
- if (ig - multorder_1.igmax <= 0) {
- goto L503;
- } else {
- goto L505;
- }
-/*< 505 continue >*/
-L505:
-
-/* sum of the fourier component s */
-
-/*< delta0s=1 >*/
- delta0s = 1.;
-/*< if(is.ne.0) delta0s=2 >*/
- if (is != 0) {
- delta0s = 2.;
- }
-/*< do 613 l=-mu,mu >*/
- i__1 = *mu;
- for (l = -(*mu); l <= i__1; ++l) {
-/*< i4(l)=i4(l)+abs(delta0s*i3(l)) >*/
- i4[l + 25] += (d__1 = delta0s * i3[l + 25], abs(d__1));
-/*< q4(l)=q4(l)+abs(q3(l)) >*/
- q4[l + 25] += (d__1 = q3[l + 25], abs(d__1));
-/*< u4(l)=u4(l)+abs(u3(l)) >*/
- u4[l + 25] += (d__1 = u3[l + 25], abs(d__1));
-/*< 613 continue >*/
-/* L613: */
- }
-
-/* stop of the fourier decomposition */
-
-/*< do 614 l=1,np >*/
- i__1 = *np;
- for (l = 1; l <= i__1; ++l) {
-/*< phi=rp(l) >*/
- phi = rp[l];
-/*< do 614 m=-mum1,mum1 >*/
- i__3 = mum1;
- for (m = -mum1; m <= i__3; ++m) {
-/*< if(m.gt.0) then >*/
- if (m > 0) {
-/*< xli(m,l)=xli(m,l)+delta0s*i3(m)*cos(is*(phi+pi)) >*/
- xli[m + l * xli_dim1] += delta0s * i3[m + 25] * cos(is * (
- phi + pi));
-/*< xlq(m,l)=xlq(m,l)+delta0s*q3(m)*cos(is*(phi+pi)) >*/
- xlq[m + l * xlq_dim1] += delta0s * q3[m + 25] * cos(is * (
- phi + pi));
-/*< xlu(m,l)=xlu(m,l)+delta0s*u3(m)*sin(is*(phi+pi)) >*/
- xlu[m + l * xlu_dim1] += delta0s * u3[m + 25] * sin(is * (
- phi + pi));
-/*< else >*/
- } else {
-/*< xli(m,l)=xli(m,l)+delta0s*i3(m)*cos(is*phi) >*/
- xli[m + l * xli_dim1] += delta0s * i3[m + 25] * cos(is *
- phi);
-/*< xlq(m,l)=xlq(m,l)+delta0s*q3(m)*cos(is*phi) >*/
- xlq[m + l * xlq_dim1] += delta0s * q3[m + 25] * cos(is *
- phi);
-/*< xlu(m,l)=xlu(m,l)+delta0s*u3(m)*sin(is*phi) >*/
- xlu[m + l * xlu_dim1] += delta0s * u3[m + 25] * sin(is *
- phi);
-/*< endif >*/
- }
-/*< 614 continue >*/
-/* L614: */
- }
- }
-/* Look up table generation */
-/*< do m=1,mu >*/
- i__3 = *mu;
- for (m = 1; m <= i__3; ++m) {
-/*< do l=1,nfilut(m) >*/
- i__1 = nfilut[m];
- for (l = 1; l <= i__1; ++l) {
-/*< phimul=filut(m,l)*pi/180. >*/
- phimul = filut[m + l * filut_dim1] * pi / 180.;
-/*< rolut(m,l)=rolut(m,l)+delta0s*i3(m)*cos(is*(phimul+pi)) >*/
- rolut[m + l * rolut_dim1] += delta0s * i3[m + 25] * cos(is * (
- phimul + pi));
-/*< rolutq(m,l)=rolutq(m,l)+delta0s*q3(m)*cos(is*(phimul+pi)) >*/
- rolutq[m + l * rolutq_dim1] += delta0s * q3[m + 25] * cos(is *
- (phimul + pi));
-/*< rolutu(m,l)=rolutu(m,l)+delta0s*u3(m)*sin(is*(phimul+pi)) >*/
- rolutu[m + l * rolutu_dim1] += delta0s * u3[m + 25] * sin(is *
- (phimul + pi));
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* end of look up table generation */
-/*< if(is.eq.0) then >*/
- if (is == 0) {
-/*< do k=1,mum1 >*/
- i__3 = mum1;
- for (k = 1; k <= i__3; ++k) {
-/*< xli(0,1)=xli(0,1)+rm(k)*gb(k)*i3(-k) >*/
- xli[xli_dim1] += rm[k] * gb[k] * i3[-k + 25];
-/*< xlq(0,1)=xlq(0,1)+rm(k)*gb(k)*q3(-k) >*/
- xlq[xlq_dim1] += rm[k] * gb[k] * q3[-k + 25];
-/*< xlu(0,1)=xlu(0,1)+rm(k)*gb(k)*u3(-k) >*/
- xlu[xlu_dim1] += rm[k] * gb[k] * u3[-k + 25];
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< xli(mu,1)=xli(mu,1)+delta0s*i3(mu)*cos(is*(phirad+pi)) >*/
- xli[*mu + xli_dim1] += delta0s * i3[*mu + 25] * cos(is * (*phirad +
- pi));
-/*< xlq(mu,1)=xlq(mu,1)+delta0s*q3(mu)*cos(is*(phirad+pi)) >*/
- xlq[*mu + xlq_dim1] += delta0s * q3[*mu + 25] * cos(is * (*phirad +
- pi));
-/*< xlu(mu,1)=xlu(mu,1)+delta0s*u3(mu)*sin(is*(phirad+pi)) >*/
- xlu[*mu + xlu_dim1] += delta0s * u3[*mu + 25] * sin(is * (*phirad +
- pi));
-/*< xli(-mu,1)=xli(-mu,1)+delta0s*roIavion(-1)*cos(is*(phirad+pi)) >*/
- xli[-(*mu) + xli_dim1] += delta0s * roiavion[0] * cos(is * (*phirad +
- pi));
-/*< xlq(-mu,1)=xlq(-mu,1)+delta0s*roQavion(-1)*cos(is*(phirad+pi)) >*/
- xlq[-(*mu) + xlq_dim1] += delta0s * roqavion[0] * cos(is * (*phirad +
- pi));
-/*< xlu(-mu,1)=xlu(-mu,1)+delta0s*roUavion(-1)*sin(is*(phirad+pi)) >*/
- xlu[-(*mu) + xlu_dim1] += delta0s * rouavion[0] * sin(is * (*phirad +
- pi));
-/*< do ifi=1,nfi >*/
- i__3 = *nfi;
- for (ifi = 1; ifi <= i__3; ++ifi) {
-/*< phimul=(ifi-1)*pi/(nfi-1) >*/
- phimul = (ifi - 1) * pi / (*nfi - 1);
-/*< xlphim(ifi)=xlphim(ifi)+delta0s*roIavion(-1)*cos(is*(phimul+pi)) >*/
- xlphim[ifi] += delta0s * roiavion[0] * cos(is * (phimul + pi));
-/*< enddo >*/
- }
-/*< z=0. >*/
- z__ = 0.;
-/*< do 616 l=-mu,mu >*/
- i__3 = *mu;
- for (l = -(*mu); l <= i__3; ++l) {
-/*< if (abs(i4(l)).lt.acu) goto 617 >*/
- if ((d__1 = i4[l + 25], abs(d__1)) < acu) {
- goto L617;
- }
-/*< x=abs(delta0s*i3(l)/i4(l)) >*/
- x = (d__1 = delta0s * i3[l + 25] / i4[l + 25], abs(d__1));
-/*< z=dmax1(z,x) >*/
- z__ = max(z__,x);
-/*< 617 if (abs(q4(l)).lt.acu) goto 618 >*/
-L617:
- if ((d__1 = q4[l + 25], abs(d__1)) < acu) {
- goto L618;
- }
-/*< x=abs(q3(l)/q4(l)) >*/
- x = (d__1 = q3[l + 25] / q4[l + 25], abs(d__1));
-/*< z=dmax1(z,x) >*/
- z__ = max(z__,x);
-/*< 618 if (abs(u4(l)).lt.acu) goto 616 >*/
-L618:
- if ((d__1 = u4[l + 25], abs(d__1)) < acu) {
- goto L616;
- }
-/*< x=abs(u3(l)/u4(l)) >*/
- x = (d__1 = u3[l + 25] / u4[l + 25], abs(d__1));
-/*< z=dmax1(z,x) >*/
- z__ = max(z__,x);
-/*< 616 continue >*/
-L616:
- ;
- }
-/* if(z.gt.0.0001) go to 24 #### originally */
-/* if(z.gt.0.001) go to 24 #### 6s choice */
-/*< if(z.gt.0.0005) go to 24 >*/
- if (z__ > 5e-4) {
- goto L24;
- }
-/*< goto 243 >*/
- goto L243;
-/*< 24 continue >*/
-L24:
- ;
- }
-/*< 243 continue >*/
-L243:
-/*< nt=snt >*/
- *nt = snt;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* ospol_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.f b/Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.f
deleted file mode 100644
index 47b1c81..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.f
+++ /dev/null
@@ -1,997 +0,0 @@
- subroutine ospol (iaer_prof,tamoy,trmoy,pizmoy,tamoyp,trmoyp,palt,
- s phirad,nt,mu,np,rm,gb,rp,
- s xli,xlq,xlu,xlphim,nfi,
- s nfilut,filut,rolut,rolutq,rolutu)
-
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real pha,qha,uha,alphal,betal,gammal,zetal
- common /sixs_polar/ pha(nqmax_p),qha(nqmax_p),uha(nqmax_p),
- &alphal(0:nqmax_p),betal(0:nqmax_p),gammal(0:nqmax_p),
- &zetal(0:nqmax_p)
-c - to vary the number of quadratures
-
-
-c dimension for gauss integration
- integer mu,np,nfi
- real rm(-mu:mu),gb(-mu:mu),rp(np),xlphim(nfi)
-c dimension for os computation
- real xli(-mu:mu,np),xlq(-mu:mu,np),xlu(-mu:mu,np)
-c array for sos computation
-c THOMAS
-c double precision xpl(-mu:mu),xrl(-mu:mu),xtl(-mu:mu)
-c double precision bp(0:mu,-mu:mu),gr(0:mu,-mu:mu),gt(0:mu,-mu:mu)
-c double precision arr(0:mu,-mu:mu),art(0:mu,-mu:mu)
-c double precision att(0:mu,-mu:mu),altc(0:nt)
-c double precision xdel(0:nt),ydel(0:nt),ch(0:nt),h(0:nt)
-c real i1(0:nt,-mu:mu),q1(0:nt,-mu:mu)
-c real u1(0:nt,-mu:mu),i2(0:nt,-mu:mu)
-c real q2(0:nt,-mu:mu),u2(0:nt,-mu:mu)
-c real i3(-mu:mu),q3(-mu:mu),u3(-mu:mu)
-c real i4(-mu:mu),q4(-mu:mu),u4(-mu:mu)
-c real in(0:2,-mu:mu),qn(0:2,-mu:mu),un(0:2,-mu:mu)
-
- double precision xpl(-25:25),xrl(-25:25),xtl(-25:25)
- double precision bp(0:25,-25:25),gr(0:25,-25:25),gt(0:25,-25:25)
- double precision arr(0:25,-25:25),art(0:25,-25:25)
- double precision att(0:25,-25:25),altc(0:30)
- double precision xdel(0:30),ydel(0:30),ch(0:30),h(0:30)
- real i1(0:30,-25:25),q1(0:30,-25:25)
- real u1(0:30,-25:25),i2(0:30,-25:25)
- real q2(0:30,-25:25),u2(0:30,-25:25)
- real i3(-25:25),q3(-25:25),u3(-25:25)
- real i4(-25:25),q4(-25:25),u4(-25:25)
- real in(0:2,-25:25),qn(0:2,-25:25),un(0:2,-25:25)
-
- real roIavion(-1:2),roQavion(-1:2),roUavion(-1:2)
-
-CCCC Begin Variable for Look up table generation
-C azimuth or scattering angle variable for LUT computation (rolut)
-C azimuth table for look up table computation (filut), nb of fi in each case (nfilut)
- real luttv,lutmuv,iscama,iscami,its,scaa
- integer nbisca
- real rolut(mu,41),rolutq(mu,41),rolutu(mu,41)
- real filut(mu,41)
- integer nfilut(mu)
-CCCC End Variable for Look up table generation
-
- real tamoy,trmoy,pizmoy
- real tamoyp,trmoyp,palt,phirad
- real delta,sigma
- double precision hr,ta,tr,trp
- double precision ppp2,ppp1,ca,cr,ratio
- double precision tap,piz,acu,acu2,ha,xmus,zx,yy,dd
- double precision taup,th,xt1,xt2,pi,phi,aaaa,ron,spl
- double precision sa1,sa2,sb1,sb2,sc1,sc2
- double precision beta0,beta2,gamma2,alpha2
- double precision zi1,zq1,zu1,c,f,d,y
- double precision a1,d1,g1,y1,r1,delta0s
- integer snt
- integer nt,iwr,iplane,mum1,ntp,j,it,itp,i,l,m,iborm
- integer is,isp,ig,k,jj,index
- logical ier
- double precision xx,xdb,z,x,a,b
- double precision bpjk,bpjmk,gtjk,gtjmk,gtkj,gtkmj,grjk,grjmk
- double precision grkj,grkmj,arrjk,arrjmk,artjk,artjmk,artkj
- double precision artkmj,attjk,attjmk
- double precision ii1,ii2,qq1,qq2,uu1,uu2,xi1,xi2,xq1,xq2,xu1,xu2
- double precision xpj,xrj,xtj,ypj,yrj,ytj,xpk,xrk,xtk,ypk,yrk,ytk
- integer igmax,iaer_prof
-
- common/sixs_del/delta,sigma
-
- common/sixs_ier/iwr,ier
-
- common /multorder/ igmax
-
-c the optical thickness above plane are recomputed to give o.t above pla
-
- snt=nt
- hr=8.0
- ta=tamoy
- tr=trmoy
- trp=trmoy-trmoyp
- tap=tamoy-tamoyp
- piz=pizmoy
-
- iplane=0
- acu=1.e-20
- acu2=1.e-4
- mum1=mu-1
-c if plane observations recompute scale height for aerosol knowing:
-c the aerosol optical depth as measure from the plane = tamoyp
-c the rayleigh scale height = = hr (8km)
-c the rayleigh optical depth at plane level = trmoyp
-c the altitude of the plane = palt
-c the rayleigh optical depth for total atmos = trmoy
-c the aerosol optical depth for total atmos = tamoy
-c if not plane observations then ha is equal to 2.0km
-c ntp local variable: if ntp=nt no plane observation selected
-c ntp=nt-1 plane observation selected
-c it's a mixing rayleigh+aerosol
- if(palt.le.900..and.palt.gt.0.0) then
- if (tap.gt.1.e-03) then
- ha=-palt/log(tap/ta)
- else
- ha=2.
- endif
- ntp=nt-1
- else
- ha=2.0
- ntp=nt
- endif
-c
- xmus=-rm(0)
-c
-c compute mixing rayleigh, aerosol
-c case 1: pure rayleigh
-c case 2: pure aerosol
-c case 3: mixing rayleigh-aerosol
-c
- if((ta.le.acu2).and.(tr.gt.ta)) then
- do j=0,ntp
- h(j)=j*tr/ntp
- ch(j)=exp(-h(j)/xmus)/2.
- ydel(j)=1.0
- xdel(j)=0.0
- if (j.eq.0) then
- altc(j)=300.
- else
- altc(j)=-log(h(j)/tr)*hr
- endif
- enddo
- endif
-
- if((tr.le.acu2).and.(ta.gt.tr)) then
- do j=0,ntp
- h(j)=j*ta/ntp
- ch(j)=exp(-h(j)/xmus)/2.
- ydel(j)=0.0
- xdel(j)=piz
- if (j.eq.0) then
- altc(j)=300.
- else
- altc(j)=-log(h(j)/ta)*ha
- endif
-c write(6,901) j,altc(j),h(j)
- enddo
- endif
-c
- if(tr.gt.acu2.and.ta.gt.acu2.and.iaer_prof.eq.0)then
- ydel(0)=1.0
- xdel(0)=0.0
- h(0)=0.
- ch(0)=0.5
- altc(0)=300.
- zx=300.
- iplane=0
- do 14 it=0,ntp
- if (it.eq.0) then
- yy=0.
- dd=0.
- goto 111
- endif
- yy=h(it-1)
- dd=ydel(it-1)
- 111 ppp2=300.0
- ppp1=0.0
- itp=it
- call discre(ta,ha,tr,hr,itp,ntp,yy,dd,ppp2,ppp1,zx)
- if(ier)return
- xx=-zx/ha
- if (xx.le.-20) then
- ca=0.
- else
- ca=ta*dexp(xx)
- endif
- xx=-zx/hr
- cr=tr*dexp(xx)
- h(it)=cr+ca
- altc(it)=zx
- ch(it)=exp(-h(it)/xmus)/2.
- cr=cr/hr
- ca=ca/ha
- ratio=cr/(cr+ca)
- xdel(it)=(1.e+00-ratio)*piz
- ydel(it)=ratio
- 14 continue
- endif
- 901 Format(i2,f10.5,f10.5,f10.5)
-
-
- if(tr.gt.acu2.and.ta.gt.acu2.and.iaer_prof.eq.1)then
- call aero_prof(ta,piz,tr,hr,ntp,xmus,
- s h,ch,ydel,xdel,altc)
- endif
-
-c update plane layer if necessary
- if (ntp.eq.(nt-1)) then
-c compute position of the plane layer
- taup=tap+trp
- iplane=-1
- do i=0,ntp
- if (taup.ge.h(i)) iplane=i
- enddo
-c update the layer from the end to the position to update if necessary
- th=0.0005
- xt1=abs(h(iplane)-taup)
- xt2=abs(h(iplane+1)-taup)
- if ((xt1.gt.th).and.(xt2.gt.th)) then
- do i=nt,iplane+1,-1
- xdel(i)=xdel(i-1)
- ydel(i)=ydel(i-1)
- h(i)=h(i-1)
- altc(i)=altc(i-1)
- ch(i)=ch(i-1)
- enddo
- else
- nt=ntp
- if (xt2.lt.xt1) iplane=iplane+1
- endif
- h(iplane)=taup
- if ( tr.gt.acu2.and.ta.gt.acu2) then
- ca=ta*exp(-palt/ha)
- cr=tr*exp(-palt/hr)
- h(iplane)=ca+cr
- cr=cr/hr
- ca=ca/ha
- ratio=cr/(cr+ca)
- xdel(iplane)=(1.e+00-ratio)*piz
- ydel(iplane)=ratio
- altc(iplane)=palt
- ch(iplane)=exp(-h(iplane)/xmus)/2.
- endif
- if ( tr.gt.acu2.and.ta.le.acu2) then
- ydel(iplane)=1.
- xdel(iplane)=0.
- altc(iplane)=palt
- endif
- if ( tr.le.acu2.and.ta.gt.acu2) then
- ydel(iplane)=0.
- xdel(iplane)=1.*piz
- altc(iplane)=palt
- endif
- endif
-c
-c
-c print *,ha,hr,palt,ta,tr,tap,trp
-c do i=0,nt
-c print *,i,h(i),ch(i),xdel(i),ydel(i),altc(i)
-c enddo
-c
- pi=acos(-1.)
- phi=phirad
- do 716 l=1,np
- do 716 m=-mu,mu
- xli(m,l)=0.
- xlq(m,l)=0.
- xlu(m,l)=0.
- 716 continue
- do ifi=1,nfi
- xlphim(ifi)=0.
- enddo
-
-CCC initialization of look up table variable
- do i=1,mu
- do j=1,41
- rolut(i,j)=0.
- rolutq(i,j)=0.
- rolutu(i,j)=0.
- enddo
- enddo
-
-c
-c ************ incident angle mus *******
-c
-c
- aaaa=delta/(2-delta)
- ron=(1-aaaa)/(1+2*aaaa)
-C TEST FOR COMPARING TO SIMPLE APPROXIMATION
-C WRITE(6,*) "WARNING DEPOLARIZATION=0"
-C ron=1.0
-c
-c rayleigh phase function
-c
- beta0=1.
- beta2=0.5*ron
- gamma2=-ron*sqrt(1.5)
- alpha2=3.*ron
-c
-c fourier decomposition
-c
- do 17 j=-mu,mu
- i4(j)=0.
- q4(j)=0.
- u4(j)=0.
- 17 continue
- iborm=nquad
- if (ta.le.acu2) iborm=2
- if( abs (xmus-1.000000) .lt.1.e-06)iborm=0
-
- do 24 is=0,iborm
-c
-c primary scattering
-c
- ig=1
- do k=0,3
- roIavion(k-1)=0.
- roQavion(k-1)=0.
- roUavion(k-1)=0.
- enddo
- do 16 j=-mu,mu
- i3(j)=0.
- q3(j)=0.
- u3(j)=0.
- 16 continue
-c
-c kernel computations + mixture rayleigh(1)-aerosol(2)
-c
- isp=is
- call kernelpol(isp,mu,rm,xpl,xrl,xtl,bp,gr,gt,arr,art,att)
- if(is.gt.0)beta0=0.
- do 100 j=-mu,mu
- if(is-2)200,200,201
- 200 spl=xpl(0)
- sa1=beta0+beta2*xpl(j)*spl
- sa2=bp(0,j)
- sb1=gamma2*xrl(j)*spl
- sb2=gr(0,j)
- sc1=gamma2*xtl(j)*spl
- sc2=gt(0,j)
- goto 202
- 201 sa2=bp(0,j)
- sa1=0.
- sb2=gr(0,j)
- sb1=0.
- sc2=gt(0,j)
- sc1=0.
-c
-c primary scattering source function at every level within the layer
-c
- 202 do 101 k=0,nt
- c=ch(k)
- a=ydel(k)
- b=xdel(k)
- i2(k,j)=c*(sa2*b+sa1*a)
- q2(k,j)=c*(sb2*b+sb1*a)
- u2(k,j)=-c*(sc2*b+sc1*a)
- 101 continue
- 100 continue
-c
-c vertical integration, primary upward radiation
-c
-
- do 108 k=1,mu
- i1(nt,k)=0.
- q1(nt,k)=0.
- u1(nt,k)=0.
- zi1=i1(nt,k)
- zq1=q1(nt,k)
- zu1=u1(nt,k)
- yy=rm(k)
- do 108 i=nt-1,0,-1
- jj=i+1
- f=h(jj)-h(i)
- c=exp(-f/yy)
- d=1.0e+00-c
- xx=h(i)-h(jj)*c
-
- a=(i2(jj,k)-i2(i,k))/f
- b=i2(i,k)-a*h(i)
- zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00
- i1(i,k)=zi1
-
- a=(q2(jj,k)-q2(i,k))/f
- b=q2(i,k)-a*h(i)
- zq1=c*zq1+(d*(b+a*yy)+a*xx)*0.5e+00
- q1(i,k)=zq1
-
- a=(u2(jj,k)-u2(i,k))/f
- b=u2(i,k)-a*h(i)
- zu1=c*zu1+(d*(b+a*yy)+a*xx)*0.5e+00
- u1(i,k)=zu1
- 108 continue
-c
-c vertical integration, primary downward radiation
-c
- do 109 k=-mu,-1
- i1(0,k)=0.
- q1(0,k)=0.
- u1(0,k)=0.
- zi1=i1(0,k)
- zq1=q1(0,k)
- zu1=u1(0,k)
- yy=rm(k)
- do 109 i=1,nt
- jj=i-1
- f=h(i)-h(jj)
- c=exp(f/yy)
- d=1.0e+00-c
- xx=h(i)-h(jj)*c
-
- a=(i2(i,k)-i2(jj,k))/f
- b=i2(i,k)-a*h(i)
- zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00
- i1(i,k)=zi1
-
- a=(q2(i,k)-q2(jj,k))/f
- b=q2(i,k)-a*h(i)
- zq1=c*zq1+(d*(b+a*yy)+a*xx)*0.5e+00
- q1(i,k)=zq1
-
- a=(u2(i,k)-u2(jj,k))/f
- b=u2(i,k)-a*h(i)
- zu1=c*zu1+(d*(b+a*yy)+a*xx)*0.5e+00
- u1(i,k)=zu1
- 109 continue
-c
-c in(2,?) is inialized with scattering computed at n-2
-c i3 is inialized with primary scattering
-c
- do 20 k=-mu,mu
- if(k) 21,20,23
- 21 index=nt
- go to 25
- 23 index=0
- 25 continue
- in(1,k)=i1(index,k)
- in(2,k)=i1(index,k)
- i3(k)=i1(index,k)
- qn(1,k)=q1(index,k)
- qn(2,k)=q1(index,k)
- q3(k)=q1(index,k)
- un(1,k)=u1(index,k)
- un(2,k)=u1(index,k)
- u3(k)=u1(index,k)
- 20 continue
- roIavion(2)=i1(iplane,mu)
- roIavion(-1)=i1(iplane,mu)
- roQavion(2)=q1(iplane,mu)
- roQavion(-1)=q1(iplane,mu)
- roUavion(2)=u1(iplane,mu)
- roUavion(-1)=u1(iplane,mu)
-c
-c loop on successive order
-c
- 503 ig=ig+1
-C WRITE(6,*) "WARNING ONLY PRIMARY SCATTERING"
-C goto 505
-c
-c successive orders
-c
-c multiple scattering source function at every level within the laye
-c
-c if is < ou = 2 kernels are a mixing of aerosols and molecules kern
-c if is >2 aerosols kernels only
-c
- if(is-2)210,210,211
- 210 do455 k=1,mu
- xpk=xpl(k)
- xrk=xrl(k)
- xtk=xtl(k)
- ypk=xpl(-k)
- yrk=xrl(-k)
- ytk=xtl(-k)
- do 455 i=0,nt
- ii1=0.
- ii2=0.
- qq1=0.
- qq2=0.
- uu1=0.
- uu2=0.
- x=xdel(i)
- y=ydel(i)
- do477 j=1,mu
- z=gb(j)
- xpj=xpl(j)
- xrj=xrl(j)
- xtj=xtl(j)
- ypj=xpl(-j)
- yrj=xrl(-j)
- ytj=xtl(-j)
- xi1=i1(i,j)
- xi2=i1(i,-j)
- xq1=q1(i,j)
- xq2=q1(i,-j)
- xu1=u1(i,j)
- xu2=u1(i,-j)
-
- bpjk=bp(j,k)*x+y*(beta0+beta2*xpj*xpk)
- bpjmk=bp(j,-k)*x+y*(beta0+beta2*xpj*ypk)
- gtjk=gt(j,k)*x+y*gamma2*xpj*xtk
- gtjmk=gt(j,-k)*x+y*gamma2*xpj*ytk
- gtkj=gt(k,j)*x+y*gamma2*xpk*xtj
- gtkmj=gt(k,-j)*x+y*gamma2*xpk*ytj
- grjk=gr(j,k)*x+y*gamma2*xpj*xrk
- grjmk=gr(j,-k)*x+y*gamma2*xpj*yrk
- grkj=gr(k,j)*x+y*gamma2*xpk*xrj
- grkmj=gr(k,-j)*x+y*gamma2*xpk*yrj
-
- arrjk=arr(j,k)*x+y*alpha2*xrj*xrk
- arrjmk=arr(j,-k)*x+y*alpha2*xrj*yrk
- artjk=art(j,k)*x+y*alpha2*xtj*xrk
- artjmk=art(j,-k)*x+y*alpha2*xtj*yrk
- artkj=art(k,j)*x+y*alpha2*xtk*xrj
- artkmj=art(k,-j)*x+y*alpha2*xtk*yrj
- attjk=att(j,k)*x+y*alpha2*xtj*xtk
- attjmk=att(j,-k)*x+y*alpha2*xtj*ytk
-
- xdb=xi1*bpjk+xi2*bpjmk+xq1*grkj+xq2*grkmj
- xdb=xdb-xu1*gtkj-xu2*gtkmj
- ii2=ii2+xdb*z
- xdb=xi1*bpjmk+xi2*bpjk+xq1*grkmj+xq2*grkj
- xdb=xdb+xu1*gtkmj+xu2*gtkj
- ii1=ii1+xdb*z
- xdb=xi1*grjk+xi2*grjmk+xq1*arrjk+xq2*arrjmk
- xdb=xdb-xu1*artjk+xu2*artjmk
- qq2=qq2+xdb*z
- xdb=xi1*grjmk+xi2*grjk+xq1*arrjmk+xq2*arrjk
- xdb=xdb-xu1*artjmk+xu2*artjk
- qq1=qq1+xdb*z
- xdb=xi1*gtjk-xi2*gtjmk+xq1*artkj+xq2*artkmj
- xdb=xdb-xu1*attjk-xu2*attjmk
- uu2=uu2-xdb*z
- xdb=xi1*gtjmk-xi2*gtjk-xq1*artkmj-xq2*artkj
- xdb=xdb-xu1*attjmk-xu2*attjk
- uu1=uu1-xdb*z
- 477 continue
- if (abs(ii2).lt.1.E-30) ii2=0.
- if (abs(ii1).lt.1.E-30) ii1=0.
- if (abs(qq2).lt.1.E-30) qq2=0.
- if (abs(qq1).lt.1.E-30) qq1=0.
- if (abs(uu2).lt.1.E-30) uu2=0.
- if (abs(uu1).lt.1.E-30) uu1=0.
- i2(i,k)=ii2
- i2(i,-k)=ii1
- q2(i,k)=qq2
- q2(i,-k)=qq1
- u2(i,k)=uu2
- u2(i,-k)=uu1
- 455 continue
- goto 213
-
-
- 211 do45 k=1,mu
- do 45 i=0,nt
- ii1=0.
- ii2=0.
- qq1=0.
- qq2=0.
- uu1=0.
- uu2=0.
- x=xdel(i)
- do47 j=1,mu
- z=gb(j)
- xi1=i1(i,j)
- xi2=i1(i,-j)
- xq1=q1(i,j)
- xq2=q1(i,-j)
- xu1=u1(i,j)
- xu2=u1(i,-j)
-
- bpjk=bp(j,k)*x
- bpjmk=bp(j,-k)*x
- gtjk=gt(j,k)*x
- gtjmk=gt(j,-k)*x
- gtkj=gt(k,j)*x
- gtkmj=gt(k,-j)*x
- grjk=gr(j,k)*x
- grjmk=gr(j,-k)*x
- grkj=gr(k,j)*x
- grkmj=gr(k,-j)*x
- arrjk=arr(j,k)*x
- arrjmk=arr(j,-k)*x
- artjk=art(j,k)*x
- artjmk=art(j,-k)*x
- artkj=art(k,j)*x
- artkmj=art(k,-j)*x
- attjk=att(j,k)*x
- attjmk=att(j,-k)*x
-
- xdb=xi1*bpjk+xi2*bpjmk+xq1*grkj+xq2*grkmj
- xdb=xdb-xu1*gtkj-xu2*gtkmj
- ii2=ii2+xdb*z
- xdb=xi1*bpjmk+xi2*bpjk+xq1*grkmj+xq2*grkj
- xdb=xdb+xu1*gtkmj+xu2*gtkj
- ii1=ii1+xdb*z
- xdb=xi1*grjk+xi2*grjmk+xq1*arrjk+xq2*arrjmk
- xdb=xdb-xu1*artjk+xu2*artjmk
- qq2=qq2+xdb*z
- xdb=xi1*grjmk+xi2*grjk+xq1*arrjmk+xq2*arrjk
- xdb=xdb-xu1*artjmk+xu2*artjk
- qq1=qq1+xdb*z
- xdb=xi1*gtjk-xi2*gtjmk+xq1*artkj+xq2*artkmj
- xdb=xdb-xu1*attjk-xu2*attjmk
- uu2=uu2-xdb*z
- xdb=xi1*gtjmk-xi2*gtjk-xq1*artkmj-xq2*artkj
- xdb=xdb-xu1*attjmk-xu2*attjk
- uu1=uu1-xdb*z
- 47 continue
- if (abs(ii2).lt.1.E-30) ii2=0.
- if (abs(ii1).lt.1.E-30) ii1=0.
- if (abs(qq2).lt.1.E-30) qq2=0.
- if (abs(qq1).lt.1.E-30) qq1=0.
- if (abs(uu2).lt.1.E-30) uu2=0.
- if (abs(uu1).lt.1.E-30) uu1=0.
- i2(i,k)=ii2
- i2(i,-k)=ii1
- q2(i,k)=qq2
- q2(i,-k)=qq1
- u2(i,k)=uu2
- u2(i,-k)=uu1
- 45 continue
-c
-c vertical integration, upward radiation
-c
- 213 do 48 k=1,mu
- i1(nt,k)=0.
- q1(nt,k)=0.
- u1(nt,k)=0.
- zi1=i1(nt,k)
- zq1=q1(nt,k)
- zu1=u1(nt,k)
- yy=rm(k)
- do 48 i=nt-1,0,-1
- jj=i+1
- f=h(jj)-h(i)
- c=exp(-f/yy)
- d=1.e+00-c
- xx=h(i)-h(jj)*c
-
- a=(i2(jj,k)-i2(i,k))/f
- b=i2(i,k)-a*h(i)
- zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00
- if (abs(zi1).le.1.E-20) zi1=0.
- i1(i,k)=zi1
-
- a=(q2(jj,k)-q2(i,k))/f
- b=q2(i,k)-a*h(i)
- zq1=c*zq1+(d*(b+a*yy)+a*xx)*0.5e+00
- if (abs(zq1).le.1.E-20) zq1=0.
- q1(i,k)=zq1
-
- a=(u2(jj,k)-u2(i,k))/f
- b=u2(i,k)-a*h(i)
- zu1=c*zu1+(d*(b+a*yy)+a*xx)*0.5e+00
- if (abs(zu1).le.1.E-20) zu1=0.
- u1(i,k)=zu1
- 48 continue
-c
-c vertical integration, downward radiation
-c
- do 50 k=-mu,-1
- i1(0,k)=0.
- q1(0,k)=0.
- u1(0,k)=0.
- zi1=i1(0,k)
- zq1=q1(0,k)
- zu1=u1(0,k)
- yy=rm(k)
- do 50 i=1,nt
- jj=i-1
- f=h(i)-h(jj)
- c=exp(f/yy)
- d=1.e+00-c
- xx=h(i)-h(jj)*c
-
- a=(i2(i,k)-i2(jj,k))/f
- b=i2(i,k)-a*h(i)
- zi1=c*zi1+(d*(b+a*yy)+a*xx)*0.5e+00
- if (abs(zi1).le.1.E-20) zi1=0.
- i1(i,k)=zi1
-
- a=(q2(i,k)-q2(jj,k))/f
- b=q2(i,k)-a*h(i)
- zq1=c*zq1+(d*(b+a*yy)+a*xx)*0.5e+00
- if (abs(zq1).le.1.E-20) zq1=0.
- q1(i,k)=zq1
-
- a=(u2(i,k)-u2(jj,k))/f
- b=u2(i,k)-a*h(i)
- zu1=c*zu1+(d*(b+a*yy)+a*xx)*0.5e+00
- if (abs(zu1).le.1.E-20) zu1=0.
- u1(i,k)=zu1
- 50 continue
-c
-c in(0,?) is the nieme scattering order
-c
- do 30 k=-mu,mu
- if(k) 31,30,33
- 31 index=nt
- go to 34
- 33 index=0
- 34 continue
- in(0,k)=i1(index,k)
- qn(0,k)=q1(index,k)
- un(0,k)=u1(index,k)
- 30 continue
- roIavion(0)=i1(iplane,mu)
- roQavion(0)=Q1(iplane,mu)
- roUavion(0)=U1(iplane,mu)
-c
-c convergence test (geometrical serie)
-c
- if(ig.gt.2) then
- z=0.
- a1=abs(roIavion(2))
- d1=abs(roIavion(1))
- g1=abs(roIavion(0))
- r1=abs(roIavion(-1))
- if(a1.ge.acu.and.d1.ge.acu.and.r1.ge.acu) then
- a1=roIavion(2)
- d1=roIavion(1)
- g1=roIavion(0)
- r1=roIavion(-1)
- y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/r1))
- y=abs(y)
- z=dmax1(dble(y),z)
- endif
- a1=abs(roQavion(2))
- d1=abs(roQavion(1))
- g1=abs(roQavion(0))
- r1=abs(roQavion(-1))
- if(a1.ge.acu.and.d1.ge.acu.and.r1.ge.acu) then
- a1=roQavion(2)
- d1=roQavion(1)
- g1=roQavion(0)
- r1=roQavion(-1)
- y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/r1))
- y=abs(y)
- z=dmax1(dble(y),z)
- endif
- a1=abs(roUavion(2))
- d1=abs(roUavion(1))
- g1=abs(roUavion(0))
- r1=abs(roUavion(-1))
- if(a1.ge.acu.and.d1.ge.acu.and.r1.ge.acu) then
- a1=roUavion(2)
- d1=roUavion(1)
- g1=roUavion(0)
- r1=roUavion(-1)
- y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/r1))
- y=abs(y)
- z=dmax1(dble(y),z)
- endif
- do 99 l=-mu,mu
- if (l.eq.0) goto 99
- a1=in(2,l)
- d1=in(1,l)
- g1=in(0,l)
- if(abs(a1).le.acu) go to 98
- if(abs(d1).le.acu) go to 98
- if(abs(i3(l)).le.acu) go to 98
- y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/i3(l)))
- y=abs(y)
- z=dmax1(dble(y),z)
- 98 a1=qn(2,l)
- d1=qn(1,l)
- g1=qn(0,l)
- if(abs(a1).le.acu) go to 97
- if(abs(d1).le.acu) go to 97
- if(abs(q3(l)).le.acu) go to 97
- y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/q3(l)))
- y=abs(y)
- z=dmax1(dble(y),z)
- 97 a1=un(2,l)
- d1=un(1,l)
- g1=un(0,l)
- if(abs(a1).le.acu) go to 99
- if(abs(d1).le.acu) go to 99
- if(abs(u3(l)).le.acu) go to 99
- y=((g1/d1-d1/a1)/((1-g1/d1)**2)*(g1/u3(l)))
- y=abs(y)
- z=dmax1(dble(y),z)
- 99 continue
-
- if(z.lt.0.01) then
-c
-c successful test (geometrical serie)
- do 606 l=-mu,mu
- y1=1.
- d1=in(1,l)
- if(abs(d1).le.acu) go to 605
- g1=in(0,l)
- if(abs(g1-d1).le.acu) go to 605
- y1=1-g1/d1
- g1=g1/y1
- i3(l)=i3(l)+g1
- 605 y1=1.
- d1=qn(1,l)
- if(abs(d1).le.acu) go to 604
- g1=qn(0,l)
- if(abs(g1-d1).le.acu) go to 604
- y1=1-g1/d1
- g1=g1/y1
- q3(l)=q3(l)+g1
- 604 y1=1.
- d1=un(1,l)
- if(abs(d1).le.acu) go to 606
- g1=un(0,l)
- if(abs(g1-d1).le.acu) go to 606
- y1=1-g1/d1
- g1=g1/y1
- u3(l)=u3(l)+g1
- 606 continue
- y1=1.
- d1=roIavion(1)
- if(abs(d1).ge.acu) then
- g1=roIavion(0)
- if(abs(g1-d1).ge.acu) then
- y1=1-g1/d1
- g1=g1/y1
- endif
- roIavion(-1)=roIavion(-1)+g1
- endif
- y1=1.
- d1=roQavion(1)
- if(abs(d1).ge.acu) then
- g1=roQavion(0)
- if(abs(g1-d1).ge.acu) then
- y1=1-g1/d1
- g1=g1/y1
- endif
- roQavion(-1)=roQavion(-1)+g1
- endif
- y1=1.
- d1=roUavion(1)
- if(abs(d1).ge.acu) then
- g1=roUavion(0)
- if(abs(g1-d1).ge.acu) then
- y1=1-g1/d1
- g1=g1/y1
- endif
- roUavion(-1)=roUavion(-1)+g1
- endif
- go to 505
- endif
-c
-c in(2,?) is the (n-2)ieme scattering order
-c
- do 26 k=-mu,mu
- in(2,k)=in(1,k)
- qn(2,k)=qn(1,k)
- un(2,k)=un(1,k)
- 26 continue
- roIavion(2)=roIavion(1)
- roQavion(2)=roQavion(1)
- roUavion(2)=roUavion(1)
- endif
-c
-c in(1,?) is the (n-1)ieme scattering order
-c
- do 27 k=-mu,mu
- in(1,k)=in(0,k)
- qn(1,k)=qn(0,k)
- un(1,k)=un(0,k)
- 27 continue
- roIavion(1)=roIavion(0)
- roQavion(1)=roQavion(0)
- roUavion(1)=roUavion(0)
-c
-c sum of the n-1 orders
- do 610 l=-mu,mu
- i3(l)=i3(l)+in(0,l)
- q3(l)=q3(l)+qn(0,l)
- u3(l)=u3(l)+un(0,l)
- 610 continue
- roIavion(-1)=roIavion(-1)+roIavion(0)
- roQavion(-1)=roQavion(-1)+roQavion(0)
- roUavion(-1)=roUavion(-1)+roUavion(0)
-c
-c stop if order n is less than 1% of the sum
- z=0.
- do 612 l=-mu,mu
- if (abs(i3(l)).ge.acu) then
- y=abs(in(0,l)/i3(l))
- z=dmax1(z,dble(y))
- endif
- if (abs(q3(l)).ge.acu) then
- y=abs(qn(0,l)/q3(l))
- z=dmax1(z,dble(y))
- endif
- if (abs(u3(l)).ge.acu) then
- y=abs(un(0,l)/u3(l))
- z=dmax1(z,dble(y))
- endif
- 612 continue
-c if(z.lt.0.00001) go to 505 ###originally
-c if(z.lt.0.001) go to 505 ###6sV4.0 choice
-c if(z.lt.0.01) go to 505
- if(z.lt.0.00000001) go to 505 ! - like in a modified file
-
-c
-c stop if order n is greater than 20 in any case
-c WRITE(6,*) "WRITE WARNING PRIMARY SCATTERING"
-c goto 505
- if(ig-igmax) 503,503,505
- 505 continue
-c
-c sum of the fourier component s
-c
- delta0s=1
- if(is.ne.0) delta0s=2
- do 613 l=-mu,mu
- i4(l)=i4(l)+abs(delta0s*i3(l))
- q4(l)=q4(l)+abs(q3(l))
- u4(l)=u4(l)+abs(u3(l))
- 613 continue
-c
-c stop of the fourier decomposition
-c
-
- do 614 l=1,np
- phi=rp(l)
- do 614 m=-mum1,mum1
- if(m.gt.0) then
- xli(m,l)=xli(m,l)+delta0s*i3(m)*cos(is*(phi+pi))
- xlq(m,l)=xlq(m,l)+delta0s*q3(m)*cos(is*(phi+pi))
- xlu(m,l)=xlu(m,l)+delta0s*u3(m)*sin(is*(phi+pi))
- else
- xli(m,l)=xli(m,l)+delta0s*i3(m)*cos(is*phi)
- xlq(m,l)=xlq(m,l)+delta0s*q3(m)*cos(is*phi)
- xlu(m,l)=xlu(m,l)+delta0s*u3(m)*sin(is*phi)
- endif
-
- 614 continue
-
-
-C Look up table generation
- do m=1,mu
- do l=1,nfilut(m)
- phimul=filut(m,l)*pi/180.
- rolut(m,l)=rolut(m,l)+delta0s*i3(m)*cos(is*(phimul+pi))
- rolutq(m,l)=rolutq(m,l)+delta0s*q3(m)*cos(is*(phimul+pi))
- rolutu(m,l)=rolutu(m,l)+delta0s*u3(m)*sin(is*(phimul+pi))
- enddo
- enddo
-C end of look up table generation
-
-
-
-
-
- if(is.eq.0) then
- do k=1,mum1
- xli(0,1)=xli(0,1)+rm(k)*gb(k)*i3(-k)
- xlq(0,1)=xlq(0,1)+rm(k)*gb(k)*q3(-k)
- xlu(0,1)=xlu(0,1)+rm(k)*gb(k)*u3(-k)
- enddo
- endif
- xli(mu,1)=xli(mu,1)+delta0s*i3(mu)*cos(is*(phirad+pi))
- xlq(mu,1)=xlq(mu,1)+delta0s*q3(mu)*cos(is*(phirad+pi))
- xlu(mu,1)=xlu(mu,1)+delta0s*u3(mu)*sin(is*(phirad+pi))
- xli(-mu,1)=xli(-mu,1)+delta0s*roIavion(-1)*cos(is*(phirad+pi))
- xlq(-mu,1)=xlq(-mu,1)+delta0s*roQavion(-1)*cos(is*(phirad+pi))
- xlu(-mu,1)=xlu(-mu,1)+delta0s*roUavion(-1)*sin(is*(phirad+pi))
- do ifi=1,nfi
- phimul=(ifi-1)*pi/(nfi-1)
- xlphim(ifi)=xlphim(ifi)+delta0s*roIavion(-1)*cos(is*(phimul+pi))
- enddo
-
- z=0.
- do 616 l=-mu,mu
- if (abs(i4(l)).lt.acu) goto 617
- x=abs(delta0s*i3(l)/i4(l))
- z=dmax1(z,x)
- 617 if (abs(q4(l)).lt.acu) goto 618
- x=abs(q3(l)/q4(l))
- z=dmax1(z,x)
- 618 if (abs(u4(l)).lt.acu) goto 616
- x=abs(u3(l)/u4(l))
- z=dmax1(z,x)
- 616 continue
-c if(z.gt.0.0001) go to 24 #### originally
-c if(z.gt.0.001) go to 24 #### 6s choice
-
- if(z.gt.0.0005) go to 24
- goto 243
-
- 24 continue
- 243 continue
-
- nt=snt
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.h b/Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.h
deleted file mode 100644
index 80870b3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OSPOL.h
+++ /dev/null
@@ -1,26 +0,0 @@
-extern int otb_6s_ospol_(
- otb_6s_integer *iaer_prof__,
- otb_6s_doublereal *tamoy,
- otb_6s_doublereal *trmoy,
- otb_6s_doublereal *pizmoy,
- otb_6s_doublereal *tamoyp,
- otb_6s_doublereal *trmoyp,
- otb_6s_doublereal *palt,
- otb_6s_doublereal *phirad,
- otb_6s_integer *nt,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *gb,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *xli,
- otb_6s_doublereal *xlq,
- otb_6s_doublereal *xlu,
- otb_6s_doublereal *xlphim,
- otb_6s_integer *nfi,
- otb_6s_integer *nfilut,
- otb_6s_doublereal *filut,
- otb_6s_doublereal *rolut,
- otb_6s_doublereal *rolutq,
- otb_6s_doublereal *rolutu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.P b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.P
deleted file mode 100644
index 742504b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int oxyg3_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.c b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.c
deleted file mode 100644
index aa6dab5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.c
+++ /dev/null
@@ -1,235 +0,0 @@
-/* OXYG3.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine oxyg3(a,inu) >*/
-/* Subroutine */ int oxyg3_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 7620.,7630.,0.,0.,0.,0.,0.,0.,7630.,7640.,0.,0.,0.,0.,0.,0.,7640.,
- 7650.,0.,0.,0.,0.,0.,0.,7650.,7660.,5.4851e-9,.018194,.043239,
- -1.7296e-4,.041212,-1.6888e-4,7660.,7670.,1.5945e-8,.018194,
- .03852,-1.5408e-4,.036492,-1.5e-4,7670.,7680.,0.,0.,0.,0.,0.,0.,
- 7680.,7690.,4.3251e-8,.018194,.034069,-1.3628e-4,.032042,
- -1.3219e-4,7690.,7700.,1.0929e-7,.018194,.029889,-1.1956e-4,
- .027862,-1.1547e-4,7700.,7710.,2.5722e-7,.018194,.02598,
- -1.0392e-4,.023953,-9.9839e-5,7710.,7720.,0.,0.,0.,0.,0.,0.,7720.,
- 7730.,5.6266e-7,.018194,.022343,-8.9371e-5,.020315,-8.5289e-5,
- 7730.,7740.,1.1425e-6,.01906,.018977,-7.591e-5,.01695,-7.1828e-5,
- 7740.,7750.,2.1596e-6,.022229,.016034,-6.2289e-5,.015554,
- -5.5716e-5,7750.,7760.,8.1892e-8,.052034,.039222,-1.5556e-4,
- .037572,-1.5339e-4,7760.,7770.,3.9209e-6,.032273,.014036,
- -4.6954e-5,.015654,-4.8384e-5,7770.,7780.,6.4421e-6,.036427,
- .011888,-3.5835e-5,.013496,-4.0675e-5,7780.,7790.,1.1047e-5,
- .055891,.011375,-2.6109e-5,.013172,-4.0967e-5,7790.,7800.,
- 1.7987e-5,.067558,.010748,-2.3562e-5,.01137,-3.8223e-5,7800.,
- 7810.,9.8092e-6,.038971,.015905,-6.3621e-5,.013877,-5.9532e-5,
- 7810.,7820.,4.4018e-5,.082997,.0095499,-3.1911e-5,.0077993,
- -3.2091e-5,7820.,7830.,7.0926e-5,.086557,.0076614,-2.7697e-5,
- .0055197,-2.4447e-5,7830.,7840.,1.0119e-4,.087824,.0052157,
- -1.9889e-5,.00297,-1.5277e-5,7840.,7850.,1.2386e-4,.090123,
- .0034834,-1.2896e-5,.0022642,-3.5587e-6,7850.,7860.,1.3558e-4,
- .14355,.0025455,7.5114e-7,.0043782,4.2838e-6,7860.,7870.,
- 3.6155e-4,.30611,.00774,-2.3164e-5,.0072019,-2.6289e-5,7870.,
- 7880.,7.4132e-4,.38505,.0019206,-6.4925e-6,1.9419e-5,-3.3562e-6,
- 7880.,7890.,2.6142e-4,.099139,5.6355e-4,-2.1878e-6,-.0015085,
- 2.0396e-6,7890.,7900.,3.3585e-4,.12035,.0017877,-6.7625e-6,
- -3.0147e-4,-2.6201e-6,7900.,7910.,2.1797e-4,.09124,.0044856,
- -1.7351e-5,.0025121,-1.3772e-5,7910.,7920.,1.8805e-4,.12809,
- .0061732,-1.8626e-5,.0047187,-2.0003e-5,7920.,7930.,8.7414e-5,
- .10246,.0071283,-9.5048e-6,.0079366,-2.5696e-5,7930.,7940.,
- 5.0284e-5,.070001,.0058651,-1.5881e-6,.0099197,-1.9259e-5,7940.,
- 7950.,3.4484e-5,.036136,.0050423,-1.3556e-5,.0083314,-2.9461e-6,
- 7950.,7960.,2.508e-5,.023597,.0062798,-2.4587e-5,.0054199,
- -1.4942e-5,7960.,7970.,1.7175e-5,.021672,.0082429,-3.2972e-5,
- .0062159,-2.8891e-5,7970.,7980.,1.0919e-5,.0208,.010514,
- -4.2054e-5,.0084864,-3.7973e-5,7980.,7990.,6.453e-6,.019927,
- .013058,-5.2234e-5,.011031,-4.8151e-5,7990.,8e3,3.5484e-6,.019493,
- .015877,-6.3508e-5,.01385,-5.9425e-5,8e3,8010.,1.8178e-6,.01906,
- .018969,-7.5874e-5,.016941,-7.1792e-5,8010.,8020.,8.6808e-7,
- .018194,.022333,-8.9332e-5,.020306,-8.525e-5,8020.,8030.,
- 5.4731e-7,.034766,.027088,-1.0685e-4,.025457,-1.0498e-4,8030.,
- 8040.,6.2423e-8,.018194,.034057,-1.3623e-4,.03203,-1.3215e-4,
- 8040.,8050.,2.2644e-8,.018194,.038506,-1.5403e-4,.036479,
- -1.4994e-4,8050.,8060.,7.6809e-9,.018194,.043225,-1.729e-4,
- .041198,-1.6882e-4,8060.,8070.,0.,0.,0.,0.,0.,0.,8070.,8080.,0.,
- 0.,0.,0.,0.,0.,8080.,8090.,0.,0.,0.,0.,0.,0.,8090.,8100.,0.,0.,0.,
- 0.,0.,0.,8100.,8110.,0.,0.,0.,0.,0.,0.,8110.,8120.,0.,0.,0.,0.,0.,
- 0.,8120.,8130.,0.,0.,0.,0.,0.,0.,8130.,8140.,0.,0.,0.,0.,0.,0.,
- 8140.,8150.,0.,0.,0.,0.,0.,0.,8150.,8160.,0.,0.,0.,0.,0.,0.,8160.,
- 8170.,0.,0.,0.,0.,0.,0.,8170.,8180.,0.,0.,0.,0.,0.,0.,8180.,8190.,
- 0.,0.,0.,0.,0.,0.,8190.,8200.,0.,0.,0.,0.,0.,0.,8200.,8210.,0.,0.,
- 0.,0.,0.,0.,8210.,8220.,0.,0.,0.,0.,0.,0.,8220.,8230.,0.,0.,0.,0.,
- 0.,0.,8230.,8240.,0.,0.,0.,0.,0.,0.,8240.,8250.,0.,0.,0.,0.,0.,0.,
- 8250.,8260.,0.,0.,0.,0.,0.,0.,8260.,8270.,0.,0.,0.,0.,0.,0.,8270.,
- 8280.,0.,0.,0.,0.,0.,0.,8280.,8290.,0.,0.,0.,0.,0.,0.,8290.,8300.,
- 0.,0.,0.,0.,0.,0.,8300.,8310.,0.,0.,0.,0.,0.,0.,8310.,8320.,0.,0.,
- 0.,0.,0.,0.,8320.,8330.,0.,0.,0.,0.,0.,0.,8330.,8340.,0.,0.,0.,0.,
- 0.,0.,8340.,8350.,0.,0.,0.,0.,0.,0.,8350.,8360.,0.,0.,0.,0.,0.,0.,
- 8360.,8370.,0.,0.,0.,0.,0.,0.,8370.,8380.,0.,0.,0.,0.,0.,0.,8380.,
- 8390.,0.,0.,0.,0.,0.,0.,8390.,8400.,0.,0.,0.,0.,0.,0.,8400.,8410.,
- 0.,0.,0.,0.,0.,0.,8410.,8420.,0.,0.,0.,0.,0.,0.,8420.,8430.,0.,0.,
- 0.,0.,0.,0.,8430.,8440.,0.,0.,0.,0.,0.,0.,8440.,8450.,0.,0.,0.,0.,
- 0.,0.,8450.,8460.,0.,0.,0.,0.,0.,0.,8460.,8470.,0.,0.,0.,0.,0.,0.,
- 8470.,8480.,0.,0.,0.,0.,0.,0.,8480.,8490.,0.,0.,0.,0.,0.,0.,8490.,
- 8500.,0.,0.,0.,0.,0.,0.,8500.,8510.,0.,0.,0.,0.,0.,0.,8510.,8520.,
- 0.,0.,0.,0.,0.,0.,8520.,8530.,0.,0.,0.,0.,0.,0.,8530.,8540.,0.,0.,
- 0.,0.,0.,0.,8540.,8550.,0.,0.,0.,0.,0.,0.,8550.,8560.,0.,0.,0.,0.,
- 0.,0.,8560.,8570.,0.,0.,0.,0.,0.,0.,8570.,8580.,0.,0.,0.,0.,0.,0.,
- 8580.,8590.,0.,0.,0.,0.,0.,0.,8590.,8600.,0.,0.,0.,0.,0.,0.,8600.,
- 8610.,0.,0.,0.,0.,0.,0.,8610.,8620.,0.,0.,0.,0.,0.,0.,8620.,8630.,
- 0.,0.,0.,0.,0.,0.,8630.,8640.,0.,0.,0.,0.,0.,0.,8640.,8650.,0.,0.,
- 0.,0.,0.,0.,8650.,8660.,0.,0.,0.,0.,0.,0.,8660.,8670.,0.,0.,0.,0.,
- 0.,0.,8670.,8680.,0.,0.,0.,0.,0.,0.,8680.,8690.,0.,0.,0.,0.,0.,0.,
- 8690.,8700.,0.,0.,0.,0.,0.,0.,8700.,8710.,0.,0.,0.,0.,0.,0.,8710.,
- 8720.,0.,0.,0.,0.,0.,0.,8720.,8730.,0.,0.,0.,0.,0.,0.,8730.,8740.,
- 0.,0.,0.,0.,0.,0.,8740.,8750.,0.,0.,0.,0.,0.,0.,8750.,8760.,0.,0.,
- 0.,0.,0.,0.,8760.,8770.,0.,0.,0.,0.,0.,0.,8770.,8780.,0.,0.,0.,0.,
- 0.,0.,8780.,8790.,0.,0.,0.,0.,0.,0.,8790.,8800.,0.,0.,0.,0.,0.,0.,
- 8800.,8810.,0.,0.,0.,0.,0.,0.,8810.,8820.,0.,0.,0.,0.,0.,0.,8820.,
- 8830.,0.,0.,0.,0.,0.,0.,8830.,8840.,0.,0.,0.,0.,0.,0.,8840.,8850.,
- 0.,0.,0.,0.,0.,0.,8850.,8860.,0.,0.,0.,0.,0.,0.,8860.,8870.,0.,0.,
- 0.,0.,0.,0.,8870.,8880.,0.,0.,0.,0.,0.,0.,8880.,8890.,0.,0.,0.,0.,
- 0.,0.,8890.,8900.,0.,0.,0.,0.,0.,0.,8900.,8910.,0.,0.,0.,0.,0.,0.,
- 8910.,8920.,0.,0.,0.,0.,0.,0.,8920.,8930.,0.,0.,0.,0.,0.,0.,8930.,
- 8940.,0.,0.,0.,0.,0.,0.,8940.,8950.,0.,0.,0.,0.,0.,0.,8950.,8960.,
- 0.,0.,0.,0.,0.,0.,8960.,8970.,0.,0.,0.,0.,0.,0.,8970.,8980.,0.,0.,
- 0.,0.,0.,0.,8980.,8990.,0.,0.,0.,0.,0.,0.,8990.,9e3,0.,0.,0.,0.,
- 0.,0.,9e3,9010.,0.,0.,0.,0.,0.,0.,9010.,9020.,0.,0.,0.,0.,0.,0.,
- 9020.,9030.,0.,0.,0.,0.,0.,0.,9030.,9040.,0.,0.,0.,0.,0.,0.,9040.,
- 9050.,0.,0.,0.,0.,0.,0.,9050.,9060.,0.,0.,0.,0.,0.,0.,9060.,9070.,
- 0.,0.,0.,0.,0.,0.,9070.,9080.,0.,0.,0.,0.,0.,0.,9080.,9090.,0.,0.,
- 0.,0.,0.,0.,9090.,9100.,0.,0.,0.,0.,0.,0.,9100.,9110.,0.,0.,0.,0.,
- 0.,0.,9110.,9120.,0.,0.,0.,0.,0.,0.,9120.,9130.,0.,0.,0.,0.,0.,0.,
- 9130.,9140.,0.,0.,0.,0.,0.,0.,9140.,9150.,0.,0.,0.,0.,0.,0.,9150.,
- 9160.,0.,0.,0.,0.,0.,0.,9160.,9170.,0.,0.,0.,0.,0.,0.,9170.,9180.,
- 0.,0.,0.,0.,0.,0.,9180.,9190.,0.,0.,0.,0.,0.,0.,9190.,9200.,0.,0.,
- 0.,0.,0.,0.,9200.,9210.,0.,0.,0.,0.,0.,0.,9210.,9220.,0.,0.,0.,0.,
- 0.,0.,9220.,9230.,0.,0.,0.,0.,0.,0.,9230.,9240.,0.,0.,0.,0.,0.,0.,
- 9240.,9250.,0.,0.,0.,0.,0.,0.,9250.,9260.,2.9327e-8,.020793,
- .01052,-4.2079e-5,.0084925,-3.7997e-5,9260.,9270.,4.284e-8,
- .021659,.0082482,-3.2993e-5,.0062209,-2.8911e-5,9270.,9280.,0.,0.,
- 0.,0.,0.,0.,9280.,9290.,1.4493e-7,.078959,.011173,-3.6086e-5,
- .0098558,-3.9242e-5,9290.,9300.,2.5005e-7,.083955,.0092831,
- -3.2526e-5,.0073578,-3.1073e-5,9300.,9310.,2.7511e-7,.065813,
- .0069254,-2.5251e-5,.0046721,-2.1357e-5,9310.,9320.,3.3929e-7,
- .065167,.0055165,-2.0774e-5,.0031412,-1.5731e-5,9320.,9330.,
- 7.3603e-7,.092398,.0037855,-1.4891e-5,.0017763,-1.1006e-5,9330.,
- 9340.,4.4813e-7,.07935,.0045127,-2.4202e-6,.0042176,-9.3426e-6,
- 9340.,9350.,1.4773e-6,.2629,.0066029,-1.8761e-5,.004739,
- -1.8284e-5,9350.,9360.,3.6258e-6,.35403,.0024719,-8.6417e-6,
- 5.0685e-4,-5.3198e-6,9360.,9370.,1.0885e-6,.098959,2.798e-4,
- -1.1056e-6,-.0017654,3.0416e-6,9370.,9380.,1.6901e-6,.12199,
- .0012891,-4.9557e-6,-7.9138e-4,-7.506e-7,9380.,9390.,1.6816e-6,
- .13899,.0035668,-1.2886e-5,.0015543,-9.4945e-6,9390.,9400.,
- 1.0341e-6,.16279,.0068719,-1.996e-5,.0057191,-2.3184e-5,9400.,
- 9410.,3.1773e-7,.06436,.0052558,-2.7296e-6,.0065364,-1.6975e-5,
- 9410.,9420.,2.0773e-7,.023392,.0030789,-1.2316e-5,.0010516,
- -8.2335e-6,9420.,9430.,1.6613e-7,.022959,.0045253,-1.8101e-5,
- .0024979,-1.4019e-5,9430.,9440.,1.2289e-7,.022092,.0062467,
- -2.4987e-5,.0042194,-2.0905e-5,9440.,9450.,8.4168e-8,.021659,
- .0082429,-3.2972e-5,.0062156,-2.8889e-5,9450.,9460.,8.5119e-8,
- .040142,.011444,-4.5054e-5,.0095711,-4.1931e-5,9460.,9470.,0.,0.,
- 0.,0.,0.,0.,9470.,9480.,0.,0.,0.,0.,0.,0.,9480.,9490.,0.,0.,0.,0.,
- 0.,0.,9490.,9500.,0.,0.,0.,0.,0.,0.,9500.,9510.,0.,0.,0.,0.,0.,0.,
- 9510.,9520.,0.,0.,0.,0.,0.,0.,9520.,9530.,0.,0.,0.,0.,0.,0.,9530.,
- 9540.,0.,0.,0.,0.,0.,0.,9540.,9550.,0.,0.,0.,0.,0.,0.,9550.,9560.,
- 0.,0.,0.,0.,0.,0.,9560.,9570.,0.,0.,0.,0.,0.,0.,9570.,9580.,0.,0.,
- 0.,0.,0.,0.,9580.,9590.,0.,0.,0.,0.,0.,0.,9590.,9600.,0.,0.,0.,0.,
- 0.,0.,9600.,9610.,0.,0.,0.,0.,0.,0.,9610.,9620.,0.,0.,0.,0.,0.,0.,
- 9620.,9630.,0.,0.,0.,0.,0.,0.,9630.,9640.,0.,0.,0.,0.,0.,0.,9640.,
- 9650.,0.,0.,0.,0.,0.,0.,9650.,9660.,0.,0.,0.,0.,0.,0.,9660.,9670.,
- 0.,0.,0.,0.,0.,0.,9670.,9680.,0.,0.,0.,0.,0.,0.,9680.,9690.,0.,0.,
- 0.,0.,0.,0.,9690.,9700.,0.,0.,0.,0.,0.,0.,9700.,9710.,0.,0.,0.,0.,
- 0.,0.,9710.,9720.,0.,0.,0.,0.,0.,0.,9720.,9730.,0.,0.,0.,0.,0.,0.,
- 9730.,9740.,0.,0.,0.,0.,0.,0.,9740.,9750.,0.,0.,0.,0.,0.,0.,9750.,
- 9760.,0.,0.,0.,0.,0.,0.,9760.,9770.,0.,0.,0.,0.,0.,0.,9770.,9780.,
- 0.,0.,0.,0.,0.,0.,9780.,9790.,0.,0.,0.,0.,0.,0.,9790.,9800.,0.,0.,
- 0.,0.,0.,0.,9800.,9810.,0.,0.,0.,0.,0.,0.,9810.,9820.,0.,0.,0.,0.,
- 0.,0.,9820.,9830.,0.,0.,0.,0.,0.,0.,9830.,9840.,0.,0.,0.,0.,0.,0.,
- 9840.,9850.,0.,0.,0.,0.,0.,0.,9850.,9860.,0.,0.,0.,0.,0.,0.,9860.,
- 9870.,0.,0.,0.,0.,0.,0.,9870.,9880.,0.,0.,0.,0.,0.,0.,9880.,9890.,
- 0.,0.,0.,0.,0.,0.,9890.,9900.,0.,0.,0.,0.,0.,0.,9900.,9910.,0.,0.,
- 0.,0.,0.,0.,9910.,9920.,0.,0.,0.,0.,0.,0.,9920.,9930.,0.,0.,0.,0.,
- 0.,0.,9930.,9940.,0.,0.,0.,0.,0.,0.,9940.,9950.,0.,0.,0.,0.,0.,0.,
- 9950.,9960.,0.,0.,0.,0.,0.,0.,9960.,9970.,0.,0.,0.,0.,0.,0.,9970.,
- 9980.,0.,0.,0.,0.,0.,0.,9980.,9990.,0.,0.,0.,0.,0.,0.,9990.,1e4,
- 0.,0.,0.,0.,0.,0.,1e4,10010.,0.,0.,0.,0.,0.,0.,10010.,10020.,0.,
- 0.,0.,0.,0.,0.,10020.,10030.,0.,0.,0.,0.,0.,0.,10030.,10040.,0.,
- 0.,0.,0.,0.,0.,10040.,10050.,0.,0.,0.,0.,0.,0.,10050.,10060.,0.,
- 0.,0.,0.,0.,0.,10060.,10070.,0.,0.,0.,0.,0.,0.,10070.,10080.,0.,
- 0.,0.,0.,0.,0.,10080.,10090.,0.,0.,0.,0.,0.,0.,10090.,10100.,0.,
- 0.,0.,0.,0.,0.,10100.,10110.,0.,0.,0.,0.,0.,0.,10110.,10120.,0.,
- 0.,0.,0.,0.,0.,10120.,10130.,0.,0.,0.,0.,0.,0.,10130.,10140.,0.,
- 0.,0.,0.,0.,0.,10140.,10150.,0.,0.,0.,0.,0.,0.,10150.,10160.,0.,
- 0.,0.,0.,0.,0.,10160.,10170.,0.,0.,0.,0.,0.,0.,10170.,10180. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* oxygen (7620 - 10170 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* oxyg3_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.f b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.f
deleted file mode 100644
index f5c5248..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine oxyg3(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c oxygen (7620 - 10170 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76200e+04, 0.76300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76300e+04, 0.76400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76400e+04, 0.76500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76500e+04, 0.76600e+04,
- a 0.54851e-08, 0.18194e-01, 0.43239e-01,-0.17296e-03, 0.41212e-01,
- a-0.16888e-03, 0.76600e+04, 0.76700e+04,
- a 0.15945e-07, 0.18194e-01, 0.38520e-01,-0.15408e-03, 0.36492e-01,
- a-0.15000e-03, 0.76700e+04, 0.76800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.76800e+04, 0.76900e+04,
- a 0.43251e-07, 0.18194e-01, 0.34069e-01,-0.13628e-03, 0.32042e-01,
- a-0.13219e-03, 0.76900e+04, 0.77000e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.10929e-06, 0.18194e-01, 0.29889e-01,-0.11956e-03, 0.27862e-01,
- a-0.11547e-03, 0.77000e+04, 0.77100e+04,
- a 0.25722e-06, 0.18194e-01, 0.25980e-01,-0.10392e-03, 0.23953e-01,
- a-0.99839e-04, 0.77100e+04, 0.77200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.77200e+04, 0.77300e+04,
- a 0.56266e-06, 0.18194e-01, 0.22343e-01,-0.89371e-04, 0.20315e-01,
- a-0.85289e-04, 0.77300e+04, 0.77400e+04,
- a 0.11425e-05, 0.19060e-01, 0.18977e-01,-0.75910e-04, 0.16950e-01,
- a-0.71828e-04, 0.77400e+04, 0.77500e+04,
- a 0.21596e-05, 0.22229e-01, 0.16034e-01,-0.62289e-04, 0.15554e-01,
- a-0.55716e-04, 0.77500e+04, 0.77600e+04,
- a 0.81892e-07, 0.52034e-01, 0.39222e-01,-0.15556e-03, 0.37572e-01,
- a-0.15339e-03, 0.77600e+04, 0.77700e+04,
- a 0.39209e-05, 0.32273e-01, 0.14036e-01,-0.46954e-04, 0.15654e-01,
- a-0.48384e-04, 0.77700e+04, 0.77800e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.64421e-05, 0.36427e-01, 0.11888e-01,-0.35835e-04, 0.13496e-01,
- a-0.40675e-04, 0.77800e+04, 0.77900e+04,
- a 0.11047e-04, 0.55891e-01, 0.11375e-01,-0.26109e-04, 0.13172e-01,
- a-0.40967e-04, 0.77900e+04, 0.78000e+04,
- a 0.17987e-04, 0.67558e-01, 0.10748e-01,-0.23562e-04, 0.11370e-01,
- a-0.38223e-04, 0.78000e+04, 0.78100e+04,
- a 0.98092e-05, 0.38971e-01, 0.15905e-01,-0.63621e-04, 0.13877e-01,
- a-0.59532e-04, 0.78100e+04, 0.78200e+04,
- a 0.44018e-04, 0.82997e-01, 0.95499e-02,-0.31911e-04, 0.77993e-02,
- a-0.32091e-04, 0.78200e+04, 0.78300e+04,
- a 0.70926e-04, 0.86557e-01, 0.76614e-02,-0.27697e-04, 0.55197e-02,
- a-0.24447e-04, 0.78300e+04, 0.78400e+04,
- a 0.10119e-03, 0.87824e-01, 0.52157e-02,-0.19889e-04, 0.29700e-02,
- a-0.15277e-04, 0.78400e+04, 0.78500e+04,
- a 0.12386e-03, 0.90123e-01, 0.34834e-02,-0.12896e-04, 0.22642e-02,
- a-0.35587e-05, 0.78500e+04, 0.78600e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.13558e-03, 0.14355e+00, 0.25455e-02, 0.75114e-06, 0.43782e-02,
- a 0.42838e-05, 0.78600e+04, 0.78700e+04,
- a 0.36155e-03, 0.30611e+00, 0.77400e-02,-0.23164e-04, 0.72019e-02,
- a-0.26289e-04, 0.78700e+04, 0.78800e+04,
- a 0.74132e-03, 0.38505e+00, 0.19206e-02,-0.64925e-05, 0.19419e-04,
- a-0.33562e-05, 0.78800e+04, 0.78900e+04,
- a 0.26142e-03, 0.99139e-01, 0.56355e-03,-0.21878e-05,-0.15085e-02,
- a 0.20396e-05, 0.78900e+04, 0.79000e+04,
- a 0.33585e-03, 0.12035e+00, 0.17877e-02,-0.67625e-05,-0.30147e-03,
- a-0.26201e-05, 0.79000e+04, 0.79100e+04,
- a 0.21797e-03, 0.91240e-01, 0.44856e-02,-0.17351e-04, 0.25121e-02,
- a-0.13772e-04, 0.79100e+04, 0.79200e+04,
- a 0.18805e-03, 0.12809e+00, 0.61732e-02,-0.18626e-04, 0.47187e-02,
- a-0.20003e-04, 0.79200e+04, 0.79300e+04,
- a 0.87414e-04, 0.10246e+00, 0.71283e-02,-0.95048e-05, 0.79366e-02,
- a-0.25696e-04, 0.79300e+04, 0.79400e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.50284e-04, 0.70001e-01, 0.58651e-02,-0.15881e-05, 0.99197e-02,
- a-0.19259e-04, 0.79400e+04, 0.79500e+04,
- a 0.34484e-04, 0.36136e-01, 0.50423e-02,-0.13556e-04, 0.83314e-02,
- a-0.29461e-05, 0.79500e+04, 0.79600e+04,
- a 0.25080e-04, 0.23597e-01, 0.62798e-02,-0.24587e-04, 0.54199e-02,
- a-0.14942e-04, 0.79600e+04, 0.79700e+04,
- a 0.17175e-04, 0.21672e-01, 0.82429e-02,-0.32972e-04, 0.62159e-02,
- a-0.28891e-04, 0.79700e+04, 0.79800e+04,
- a 0.10919e-04, 0.20800e-01, 0.10514e-01,-0.42054e-04, 0.84864e-02,
- a-0.37973e-04, 0.79800e+04, 0.79900e+04,
- a 0.64530e-05, 0.19927e-01, 0.13058e-01,-0.52234e-04, 0.11031e-01,
- a-0.48151e-04, 0.79900e+04, 0.80000e+04,
- a 0.35484e-05, 0.19493e-01, 0.15877e-01,-0.63508e-04, 0.13850e-01,
- a-0.59425e-04, 0.80000e+04, 0.80100e+04,
- a 0.18178e-05, 0.19060e-01, 0.18969e-01,-0.75874e-04, 0.16941e-01,
- a-0.71792e-04, 0.80100e+04, 0.80200e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.86808e-06, 0.18194e-01, 0.22333e-01,-0.89332e-04, 0.20306e-01,
- a-0.85250e-04, 0.80200e+04, 0.80300e+04,
- a 0.54731e-06, 0.34766e-01, 0.27088e-01,-0.10685e-03, 0.25457e-01,
- a-0.10498e-03, 0.80300e+04, 0.80400e+04,
- a 0.62423e-07, 0.18194e-01, 0.34057e-01,-0.13623e-03, 0.32030e-01,
- a-0.13215e-03, 0.80400e+04, 0.80500e+04,
- a 0.22644e-07, 0.18194e-01, 0.38506e-01,-0.15403e-03, 0.36479e-01,
- a-0.14994e-03, 0.80500e+04, 0.80600e+04,
- a 0.76809e-08, 0.18194e-01, 0.43225e-01,-0.17290e-03, 0.41198e-01,
- a-0.16882e-03, 0.80600e+04, 0.80700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80700e+04, 0.80800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80800e+04, 0.80900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.80900e+04, 0.81000e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81000e+04, 0.81100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81100e+04, 0.81200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81200e+04, 0.81300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81300e+04, 0.81400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81400e+04, 0.81500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81500e+04, 0.81600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81600e+04, 0.81700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81700e+04, 0.81800e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81800e+04, 0.81900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.81900e+04, 0.82000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82000e+04, 0.82100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82100e+04, 0.82200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82200e+04, 0.82300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82300e+04, 0.82400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82400e+04, 0.82500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82500e+04, 0.82600e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82600e+04, 0.82700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82700e+04, 0.82800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82800e+04, 0.82900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.82900e+04, 0.83000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83000e+04, 0.83100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83100e+04, 0.83200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83200e+04, 0.83300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83300e+04, 0.83400e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83400e+04, 0.83500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83500e+04, 0.83600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83600e+04, 0.83700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83700e+04, 0.83800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83800e+04, 0.83900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.83900e+04, 0.84000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84000e+04, 0.84100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84100e+04, 0.84200e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84200e+04, 0.84300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84300e+04, 0.84400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84400e+04, 0.84500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84500e+04, 0.84600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84600e+04, 0.84700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84700e+04, 0.84800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84800e+04, 0.84900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.84900e+04, 0.85000e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85000e+04, 0.85100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85100e+04, 0.85200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85200e+04, 0.85300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85300e+04, 0.85400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85400e+04, 0.85500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85500e+04, 0.85600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85600e+04, 0.85700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85700e+04, 0.85800e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85800e+04, 0.85900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.85900e+04, 0.86000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86000e+04, 0.86100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86100e+04, 0.86200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86200e+04, 0.86300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86300e+04, 0.86400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86400e+04, 0.86500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86500e+04, 0.86600e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86600e+04, 0.86700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86700e+04, 0.86800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86800e+04, 0.86900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.86900e+04, 0.87000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87000e+04, 0.87100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87100e+04, 0.87200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87200e+04, 0.87300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87300e+04, 0.87400e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87400e+04, 0.87500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87500e+04, 0.87600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87600e+04, 0.87700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87700e+04, 0.87800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87800e+04, 0.87900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.87900e+04, 0.88000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88000e+04, 0.88100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88100e+04, 0.88200e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88200e+04, 0.88300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88300e+04, 0.88400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88400e+04, 0.88500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88500e+04, 0.88600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88600e+04, 0.88700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88700e+04, 0.88800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88800e+04, 0.88900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.88900e+04, 0.89000e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89000e+04, 0.89100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89100e+04, 0.89200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89200e+04, 0.89300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89300e+04, 0.89400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89400e+04, 0.89500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89500e+04, 0.89600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89600e+04, 0.89700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89700e+04, 0.89800e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89800e+04, 0.89900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.89900e+04, 0.90000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90000e+04, 0.90100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90100e+04, 0.90200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90200e+04, 0.90300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90300e+04, 0.90400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90400e+04, 0.90500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90500e+04, 0.90600e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90600e+04, 0.90700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90700e+04, 0.90800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90800e+04, 0.90900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.90900e+04, 0.91000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91000e+04, 0.91100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91100e+04, 0.91200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91200e+04, 0.91300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91300e+04, 0.91400e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91400e+04, 0.91500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91500e+04, 0.91600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91600e+04, 0.91700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91700e+04, 0.91800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91800e+04, 0.91900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.91900e+04, 0.92000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92000e+04, 0.92100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92100e+04, 0.92200e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92200e+04, 0.92300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92300e+04, 0.92400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92400e+04, 0.92500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92500e+04, 0.92600e+04,
- a 0.29327e-07, 0.20793e-01, 0.10520e-01,-0.42079e-04, 0.84925e-02,
- a-0.37997e-04, 0.92600e+04, 0.92700e+04,
- a 0.42840e-07, 0.21659e-01, 0.82482e-02,-0.32993e-04, 0.62209e-02,
- a-0.28911e-04, 0.92700e+04, 0.92800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.92800e+04, 0.92900e+04,
- a 0.14493e-06, 0.78959e-01, 0.11173e-01,-0.36086e-04, 0.98558e-02,
- a-0.39242e-04, 0.92900e+04, 0.93000e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.25005e-06, 0.83955e-01, 0.92831e-02,-0.32526e-04, 0.73578e-02,
- a-0.31073e-04, 0.93000e+04, 0.93100e+04,
- a 0.27511e-06, 0.65813e-01, 0.69254e-02,-0.25251e-04, 0.46721e-02,
- a-0.21357e-04, 0.93100e+04, 0.93200e+04,
- a 0.33929e-06, 0.65167e-01, 0.55165e-02,-0.20774e-04, 0.31412e-02,
- a-0.15731e-04, 0.93200e+04, 0.93300e+04,
- a 0.73603e-06, 0.92398e-01, 0.37855e-02,-0.14891e-04, 0.17763e-02,
- a-0.11006e-04, 0.93300e+04, 0.93400e+04,
- a 0.44813e-06, 0.79350e-01, 0.45127e-02,-0.24202e-05, 0.42176e-02,
- a-0.93426e-05, 0.93400e+04, 0.93500e+04,
- a 0.14773e-05, 0.26290e+00, 0.66029e-02,-0.18761e-04, 0.47390e-02,
- a-0.18284e-04, 0.93500e+04, 0.93600e+04,
- a 0.36258e-05, 0.35403e+00, 0.24719e-02,-0.86417e-05, 0.50685e-03,
- a-0.53198e-05, 0.93600e+04, 0.93700e+04,
- a 0.10885e-05, 0.98959e-01, 0.27980e-03,-0.11056e-05,-0.17654e-02,
- a 0.30416e-05, 0.93700e+04, 0.93800e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.16901e-05, 0.12199e+00, 0.12891e-02,-0.49557e-05,-0.79138e-03,
- a-0.75060e-06, 0.93800e+04, 0.93900e+04,
- a 0.16816e-05, 0.13899e+00, 0.35668e-02,-0.12886e-04, 0.15543e-02,
- a-0.94945e-05, 0.93900e+04, 0.94000e+04,
- a 0.10341e-05, 0.16279e+00, 0.68719e-02,-0.19960e-04, 0.57191e-02,
- a-0.23184e-04, 0.94000e+04, 0.94100e+04,
- a 0.31773e-06, 0.64360e-01, 0.52558e-02,-0.27296e-05, 0.65364e-02,
- a-0.16975e-04, 0.94100e+04, 0.94200e+04,
- a 0.20773e-06, 0.23392e-01, 0.30789e-02,-0.12316e-04, 0.10516e-02,
- a-0.82335e-05, 0.94200e+04, 0.94300e+04,
- a 0.16613e-06, 0.22959e-01, 0.45253e-02,-0.18101e-04, 0.24979e-02,
- a-0.14019e-04, 0.94300e+04, 0.94400e+04,
- a 0.12289e-06, 0.22092e-01, 0.62467e-02,-0.24987e-04, 0.42194e-02,
- a-0.20905e-04, 0.94400e+04, 0.94500e+04,
- a 0.84168e-07, 0.21659e-01, 0.82429e-02,-0.32972e-04, 0.62156e-02,
- a-0.28889e-04, 0.94500e+04, 0.94600e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.85119e-07, 0.40142e-01, 0.11444e-01,-0.45054e-04, 0.95711e-02,
- a-0.41931e-04, 0.94600e+04, 0.94700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94700e+04, 0.94800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94800e+04, 0.94900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.94900e+04, 0.95000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95000e+04, 0.95100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95100e+04, 0.95200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95200e+04, 0.95300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95300e+04, 0.95400e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95400e+04, 0.95500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95500e+04, 0.95600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95600e+04, 0.95700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95700e+04, 0.95800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95800e+04, 0.95900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.95900e+04, 0.96000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96000e+04, 0.96100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96100e+04, 0.96200e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96200e+04, 0.96300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96300e+04, 0.96400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96400e+04, 0.96500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96500e+04, 0.96600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96600e+04, 0.96700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96700e+04, 0.96800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96800e+04, 0.96900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.96900e+04, 0.97000e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97000e+04, 0.97100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97100e+04, 0.97200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97200e+04, 0.97300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97300e+04, 0.97400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97400e+04, 0.97500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97500e+04, 0.97600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97600e+04, 0.97700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97700e+04, 0.97800e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97800e+04, 0.97900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.97900e+04, 0.98000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98000e+04, 0.98100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98100e+04, 0.98200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98200e+04, 0.98300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98300e+04, 0.98400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98400e+04, 0.98500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98500e+04, 0.98600e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98600e+04, 0.98700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98700e+04, 0.98800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98800e+04, 0.98900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.98900e+04, 0.99000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99000e+04, 0.99100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99100e+04, 0.99200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99200e+04, 0.99300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99300e+04, 0.99400e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99400e+04, 0.99500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99500e+04, 0.99600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99600e+04, 0.99700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99700e+04, 0.99800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99800e+04, 0.99900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.99900e+04, 0.10000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10000e+05, 0.10010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10010e+05, 0.10020e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10020e+05, 0.10030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10030e+05, 0.10040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10040e+05, 0.10050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10050e+05, 0.10060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10060e+05, 0.10070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10070e+05, 0.10080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10080e+05, 0.10090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10090e+05, 0.10100e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10100e+05, 0.10110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10110e+05, 0.10120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10120e+05, 0.10130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10130e+05, 0.10140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10140e+05, 0.10150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10150e+05, 0.10160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10160e+05, 0.10170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10170e+05, 0.10180e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.h b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.h
deleted file mode 100644
index 87c1b73..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG3.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_oxyg3_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.P b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.P
deleted file mode 100644
index 52a0304..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int oxyg4_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.c b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.c
deleted file mode 100644
index daf7d24..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.c
+++ /dev/null
@@ -1,214 +0,0 @@
-/* OXYG4.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine oxyg4(a,inu) >*/
-/* Subroutine */ int oxyg4_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 10180.,10190.,0.,0.,0.,0.,0.,0.,10190.,10200.,0.,0.,0.,0.,0.,0.,
- 10200.,10210.,0.,0.,0.,0.,0.,0.,10210.,10220.,0.,0.,0.,0.,0.,0.,
- 10220.,10230.,0.,0.,0.,0.,0.,0.,10230.,10240.,0.,0.,0.,0.,0.,0.,
- 10240.,10250.,0.,0.,0.,0.,0.,0.,10250.,10260.,0.,0.,0.,0.,0.,0.,
- 10260.,10270.,0.,0.,0.,0.,0.,0.,10270.,10280.,0.,0.,0.,0.,0.,0.,
- 10280.,10290.,0.,0.,0.,0.,0.,0.,10290.,10300.,0.,0.,0.,0.,0.,0.,
- 10300.,10310.,0.,0.,0.,0.,0.,0.,10310.,10320.,0.,0.,0.,0.,0.,0.,
- 10320.,10330.,0.,0.,0.,0.,0.,0.,10330.,10340.,0.,0.,0.,0.,0.,0.,
- 10340.,10350.,0.,0.,0.,0.,0.,0.,10350.,10360.,0.,0.,0.,0.,0.,0.,
- 10360.,10370.,0.,0.,0.,0.,0.,0.,10370.,10380.,0.,0.,0.,0.,0.,0.,
- 10380.,10390.,0.,0.,0.,0.,0.,0.,10390.,10400.,0.,0.,0.,0.,0.,0.,
- 10400.,10410.,0.,0.,0.,0.,0.,0.,10410.,10420.,0.,0.,0.,0.,0.,0.,
- 10420.,10430.,0.,0.,0.,0.,0.,0.,10430.,10440.,0.,0.,0.,0.,0.,0.,
- 10440.,10450.,0.,0.,0.,0.,0.,0.,10450.,10460.,0.,0.,0.,0.,0.,0.,
- 10460.,10470.,0.,0.,0.,0.,0.,0.,10470.,10480.,0.,0.,0.,0.,0.,0.,
- 10480.,10490.,0.,0.,0.,0.,0.,0.,10490.,10500.,0.,0.,0.,0.,0.,0.,
- 10500.,10510.,0.,0.,0.,0.,0.,0.,10510.,10520.,0.,0.,0.,0.,0.,0.,
- 10520.,10530.,0.,0.,0.,0.,0.,0.,10530.,10540.,0.,0.,0.,0.,0.,0.,
- 10540.,10550.,0.,0.,0.,0.,0.,0.,10550.,10560.,0.,0.,0.,0.,0.,0.,
- 10560.,10570.,0.,0.,0.,0.,0.,0.,10570.,10580.,0.,0.,0.,0.,0.,0.,
- 10580.,10590.,0.,0.,0.,0.,0.,0.,10590.,10600.,0.,0.,0.,0.,0.,0.,
- 10600.,10610.,0.,0.,0.,0.,0.,0.,10610.,10620.,0.,0.,0.,0.,0.,0.,
- 10620.,10630.,0.,0.,0.,0.,0.,0.,10630.,10640.,0.,0.,0.,0.,0.,0.,
- 10640.,10650.,0.,0.,0.,0.,0.,0.,10650.,10660.,0.,0.,0.,0.,0.,0.,
- 10660.,10670.,0.,0.,0.,0.,0.,0.,10670.,10680.,0.,0.,0.,0.,0.,0.,
- 10680.,10690.,0.,0.,0.,0.,0.,0.,10690.,10700.,0.,0.,0.,0.,0.,0.,
- 10700.,10710.,0.,0.,0.,0.,0.,0.,10710.,10720.,0.,0.,0.,0.,0.,0.,
- 10720.,10730.,0.,0.,0.,0.,0.,0.,10730.,10740.,0.,0.,0.,0.,0.,0.,
- 10740.,10750.,0.,0.,0.,0.,0.,0.,10750.,10760.,0.,0.,0.,0.,0.,0.,
- 10760.,10770.,0.,0.,0.,0.,0.,0.,10770.,10780.,0.,0.,0.,0.,0.,0.,
- 10780.,10790.,0.,0.,0.,0.,0.,0.,10790.,10800.,0.,0.,0.,0.,0.,0.,
- 10800.,10810.,0.,0.,0.,0.,0.,0.,10810.,10820.,0.,0.,0.,0.,0.,0.,
- 10820.,10830.,0.,0.,0.,0.,0.,0.,10830.,10840.,0.,0.,0.,0.,0.,0.,
- 10840.,10850.,0.,0.,0.,0.,0.,0.,10850.,10860.,0.,0.,0.,0.,0.,0.,
- 10860.,10870.,0.,0.,0.,0.,0.,0.,10870.,10880.,0.,0.,0.,0.,0.,0.,
- 10880.,10890.,0.,0.,0.,0.,0.,0.,10890.,10900.,0.,0.,0.,0.,0.,0.,
- 10900.,10910.,0.,0.,0.,0.,0.,0.,10910.,10920.,0.,0.,0.,0.,0.,0.,
- 10920.,10930.,0.,0.,0.,0.,0.,0.,10930.,10940.,0.,0.,0.,0.,0.,0.,
- 10940.,10950.,0.,0.,0.,0.,0.,0.,10950.,10960.,0.,0.,0.,0.,0.,0.,
- 10960.,10970.,0.,0.,0.,0.,0.,0.,10970.,10980.,0.,0.,0.,0.,0.,0.,
- 10980.,10990.,0.,0.,0.,0.,0.,0.,10990.,1.1e4,0.,0.,0.,0.,0.,0.,
- 1.1e4,11010.,0.,0.,0.,0.,0.,0.,11010.,11020.,0.,0.,0.,0.,0.,0.,
- 11020.,11030.,0.,0.,0.,0.,0.,0.,11030.,11040.,0.,0.,0.,0.,0.,0.,
- 11040.,11050.,0.,0.,0.,0.,0.,0.,11050.,11060.,0.,0.,0.,0.,0.,0.,
- 11060.,11070.,0.,0.,0.,0.,0.,0.,11070.,11080.,0.,0.,0.,0.,0.,0.,
- 11080.,11090.,0.,0.,0.,0.,0.,0.,11090.,11100.,0.,0.,0.,0.,0.,0.,
- 11100.,11110.,0.,0.,0.,0.,0.,0.,11110.,11120.,0.,0.,0.,0.,0.,0.,
- 11120.,11130.,0.,0.,0.,0.,0.,0.,11130.,11140.,0.,0.,0.,0.,0.,0.,
- 11140.,11150.,0.,0.,0.,0.,0.,0.,11150.,11160.,0.,0.,0.,0.,0.,0.,
- 11160.,11170.,0.,0.,0.,0.,0.,0.,11170.,11180.,0.,0.,0.,0.,0.,0.,
- 11180.,11190.,0.,0.,0.,0.,0.,0.,11190.,11200.,0.,0.,0.,0.,0.,0.,
- 11200.,11210.,0.,0.,0.,0.,0.,0.,11210.,11220.,0.,0.,0.,0.,0.,0.,
- 11220.,11230.,0.,0.,0.,0.,0.,0.,11230.,11240.,0.,0.,0.,0.,0.,0.,
- 11240.,11250.,0.,0.,0.,0.,0.,0.,11250.,11260.,0.,0.,0.,0.,0.,0.,
- 11260.,11270.,0.,0.,0.,0.,0.,0.,11270.,11280.,0.,0.,0.,0.,0.,0.,
- 11280.,11290.,0.,0.,0.,0.,0.,0.,11290.,11300.,0.,0.,0.,0.,0.,0.,
- 11300.,11310.,0.,0.,0.,0.,0.,0.,11310.,11320.,0.,0.,0.,0.,0.,0.,
- 11320.,11330.,0.,0.,0.,0.,0.,0.,11330.,11340.,0.,0.,0.,0.,0.,0.,
- 11340.,11350.,0.,0.,0.,0.,0.,0.,11350.,11360.,0.,0.,0.,0.,0.,0.,
- 11360.,11370.,0.,0.,0.,0.,0.,0.,11370.,11380.,0.,0.,0.,0.,0.,0.,
- 11380.,11390.,0.,0.,0.,0.,0.,0.,11390.,11400.,0.,0.,0.,0.,0.,0.,
- 11400.,11410.,0.,0.,0.,0.,0.,0.,11410.,11420.,0.,0.,0.,0.,0.,0.,
- 11420.,11430.,0.,0.,0.,0.,0.,0.,11430.,11440.,0.,0.,0.,0.,0.,0.,
- 11440.,11450.,0.,0.,0.,0.,0.,0.,11450.,11460.,0.,0.,0.,0.,0.,0.,
- 11460.,11470.,0.,0.,0.,0.,0.,0.,11470.,11480.,0.,0.,0.,0.,0.,0.,
- 11480.,11490.,2.485e-8,.039407,.053053,-2.1221e-4,.051025,
- -2.0813e-4,11490.,11500.,1.1624e-7,.079933,.048686,-1.9403e-4,
- .046806,-1.9088e-4,11500.,11510.,1.0964e-7,.043304,.045502,
- -1.8201e-4,.043474,-1.7792e-4,11510.,11520.,2.5643e-7,.066862,
- .042844,-1.7105e-4,.040871,-1.6735e-4,11520.,11530.,3.2105e-7,
- .068728,.040797,-1.6299e-4,.038797,-1.5911e-4,11530.,11540.,
- 3.5585e-7,.071858,.038944,-1.557e-4,.036916,-1.5165e-4,11540.,
- 11550.,2.4915e-7,.074592,.037957,-1.5179e-4,.035912,-1.4766e-4,
- 11550.,11560.,4.9923e-8,.026857,.037416,-1.4966e-4,.035388,
- -1.4558e-4,11560.,11570.,2.5239e-7,.096092,.037615,-1.5045e-4,
- .035561,-1.4627e-4,11570.,11580.,5.8358e-7,.11778,.039104,
- -1.5615e-4,.03708,-1.5221e-4,11580.,11590.,4.8767e-7,.11043,
- .041978,-1.6721e-4,.04006,-1.6392e-4,11590.,11600.,2.0866e-7,
- .10009,.046771,-1.859e-4,.045,-1.8335e-4,11600.,11610.,6.2339e-8,
- .091546,.052598,-2.0809e-4,.051104,-2.0723e-4,11610.,11620.,0.,0.,
- 0.,0.,0.,0.,11620.,11630.,0.,0.,0.,0.,0.,0.,11630.,11640.,0.,0.,
- 0.,0.,0.,0.,11640.,11650.,0.,0.,0.,0.,0.,0.,11650.,11660.,0.,0.,
- 0.,0.,0.,0.,11660.,11670.,0.,0.,0.,0.,0.,0.,11670.,11680.,0.,0.,
- 0.,0.,0.,0.,11680.,11690.,0.,0.,0.,0.,0.,0.,11690.,11700.,0.,0.,
- 0.,0.,0.,0.,11700.,11710.,0.,0.,0.,0.,0.,0.,11710.,11720.,0.,0.,
- 0.,0.,0.,0.,11720.,11730.,0.,0.,0.,0.,0.,0.,11730.,11740.,0.,0.,
- 0.,0.,0.,0.,11740.,11750.,0.,0.,0.,0.,0.,0.,11750.,11760.,0.,0.,
- 0.,0.,0.,0.,11760.,11770.,0.,0.,0.,0.,0.,0.,11770.,11780.,0.,0.,
- 0.,0.,0.,0.,11780.,11790.,0.,0.,0.,0.,0.,0.,11790.,11800.,0.,0.,
- 0.,0.,0.,0.,11800.,11810.,0.,0.,0.,0.,0.,0.,11810.,11820.,0.,0.,
- 0.,0.,0.,0.,11820.,11830.,0.,0.,0.,0.,0.,0.,11830.,11840.,0.,0.,
- 0.,0.,0.,0.,11840.,11850.,0.,0.,0.,0.,0.,0.,11850.,11860.,0.,0.,
- 0.,0.,0.,0.,11860.,11870.,0.,0.,0.,0.,0.,0.,11870.,11880.,0.,0.,
- 0.,0.,0.,0.,11880.,11890.,0.,0.,0.,0.,0.,0.,11890.,11900.,0.,0.,
- 0.,0.,0.,0.,11900.,11910.,0.,0.,0.,0.,0.,0.,11910.,11920.,0.,0.,
- 0.,0.,0.,0.,11920.,11930.,0.,0.,0.,0.,0.,0.,11930.,11940.,0.,0.,
- 0.,0.,0.,0.,11940.,11950.,0.,0.,0.,0.,0.,0.,11950.,11960.,0.,0.,
- 0.,0.,0.,0.,11960.,11970.,0.,0.,0.,0.,0.,0.,11970.,11980.,0.,0.,
- 0.,0.,0.,0.,11980.,11990.,0.,0.,0.,0.,0.,0.,11990.,1.2e4,0.,0.,0.,
- 0.,0.,0.,1.2e4,12010.,0.,0.,0.,0.,0.,0.,12010.,12020.,0.,0.,0.,0.,
- 0.,0.,12020.,12030.,0.,0.,0.,0.,0.,0.,12030.,12040.,0.,0.,0.,0.,
- 0.,0.,12040.,12050.,0.,0.,0.,0.,0.,0.,12050.,12060.,0.,0.,0.,0.,
- 0.,0.,12060.,12070.,0.,0.,0.,0.,0.,0.,12070.,12080.,0.,0.,0.,0.,
- 0.,0.,12080.,12090.,0.,0.,0.,0.,0.,0.,12090.,12100.,0.,0.,0.,0.,
- 0.,0.,12100.,12110.,0.,0.,0.,0.,0.,0.,12110.,12120.,0.,0.,0.,0.,
- 0.,0.,12120.,12130.,0.,0.,0.,0.,0.,0.,12130.,12140.,0.,0.,0.,0.,
- 0.,0.,12140.,12150.,0.,0.,0.,0.,0.,0.,12150.,12160.,0.,0.,0.,0.,
- 0.,0.,12160.,12170.,0.,0.,0.,0.,0.,0.,12170.,12180.,0.,0.,0.,0.,
- 0.,0.,12180.,12190.,0.,0.,0.,0.,0.,0.,12190.,12200.,0.,0.,0.,0.,
- 0.,0.,12200.,12210.,0.,0.,0.,0.,0.,0.,12210.,12220.,0.,0.,0.,0.,
- 0.,0.,12220.,12230.,0.,0.,0.,0.,0.,0.,12230.,12240.,0.,0.,0.,0.,
- 0.,0.,12240.,12250.,0.,0.,0.,0.,0.,0.,12250.,12260.,0.,0.,0.,0.,
- 0.,0.,12260.,12270.,0.,0.,0.,0.,0.,0.,12270.,12280.,0.,0.,0.,0.,
- 0.,0.,12280.,12290.,0.,0.,0.,0.,0.,0.,12290.,12300.,0.,0.,0.,0.,
- 0.,0.,12300.,12310.,0.,0.,0.,0.,0.,0.,12310.,12320.,0.,0.,0.,0.,
- 0.,0.,12320.,12330.,0.,0.,0.,0.,0.,0.,12330.,12340.,0.,0.,0.,0.,
- 0.,0.,12340.,12350.,0.,0.,0.,0.,0.,0.,12350.,12360.,0.,0.,0.,0.,
- 0.,0.,12360.,12370.,0.,0.,0.,0.,0.,0.,12370.,12380.,0.,0.,0.,0.,
- 0.,0.,12380.,12390.,0.,0.,0.,0.,0.,0.,12390.,12400.,0.,0.,0.,0.,
- 0.,0.,12400.,12410.,0.,0.,0.,0.,0.,0.,12410.,12420.,0.,0.,0.,0.,
- 0.,0.,12420.,12430.,0.,0.,0.,0.,0.,0.,12430.,12440.,0.,0.,0.,0.,
- 0.,0.,12440.,12450.,0.,0.,0.,0.,0.,0.,12450.,12460.,0.,0.,0.,0.,
- 0.,0.,12460.,12470.,0.,0.,0.,0.,0.,0.,12470.,12480.,0.,0.,0.,0.,
- 0.,0.,12480.,12490.,0.,0.,0.,0.,0.,0.,12490.,12500.,0.,0.,0.,0.,
- 0.,0.,12500.,12510.,0.,0.,0.,0.,0.,0.,12510.,12520.,0.,0.,0.,0.,
- 0.,0.,12520.,12530.,0.,0.,0.,0.,0.,0.,12530.,12540.,0.,0.,0.,0.,
- 0.,0.,12540.,12550.,0.,0.,0.,0.,0.,0.,12550.,12560.,0.,0.,0.,0.,
- 0.,0.,12560.,12570.,0.,0.,0.,0.,0.,0.,12570.,12580.,0.,0.,0.,0.,
- 0.,0.,12580.,12590.,0.,0.,0.,0.,0.,0.,12590.,12600.,0.,0.,0.,0.,
- 0.,0.,12600.,12610.,0.,0.,0.,0.,0.,0.,12610.,12620.,0.,0.,0.,0.,
- 0.,0.,12620.,12630.,0.,0.,0.,0.,0.,0.,12630.,12640.,0.,0.,0.,0.,
- 0.,0.,12640.,12650.,0.,0.,0.,0.,0.,0.,12650.,12660.,0.,0.,0.,0.,
- 0.,0.,12660.,12670.,0.,0.,0.,0.,0.,0.,12670.,12680.,0.,0.,0.,0.,
- 0.,0.,12680.,12690.,0.,0.,0.,0.,0.,0.,12690.,12700.,0.,0.,0.,0.,
- 0.,0.,12700.,12710.,0.,0.,0.,0.,0.,0.,12710.,12720.,0.,0.,0.,0.,
- 0.,0.,12720.,12730.,0.,0.,0.,0.,0.,0.,12730.,12740. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* oxygen (10180 - 12730 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* oxyg4_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.f b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.f
deleted file mode 100644
index fc844aa..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine oxyg4(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c oxygen (10180 - 12730 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10180e+05, 0.10190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10190e+05, 0.10200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10200e+05, 0.10210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10210e+05, 0.10220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10220e+05, 0.10230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10230e+05, 0.10240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10240e+05, 0.10250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10250e+05, 0.10260e+05/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10260e+05, 0.10270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10270e+05, 0.10280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10280e+05, 0.10290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10290e+05, 0.10300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10300e+05, 0.10310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10310e+05, 0.10320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10320e+05, 0.10330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10330e+05, 0.10340e+05/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10340e+05, 0.10350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10350e+05, 0.10360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10360e+05, 0.10370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10370e+05, 0.10380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10380e+05, 0.10390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10390e+05, 0.10400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10400e+05, 0.10410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10410e+05, 0.10420e+05/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10420e+05, 0.10430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10430e+05, 0.10440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10440e+05, 0.10450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10450e+05, 0.10460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10460e+05, 0.10470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10470e+05, 0.10480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10480e+05, 0.10490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10490e+05, 0.10500e+05/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10500e+05, 0.10510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10510e+05, 0.10520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10520e+05, 0.10530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10530e+05, 0.10540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10540e+05, 0.10550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10550e+05, 0.10560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10560e+05, 0.10570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10570e+05, 0.10580e+05/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10580e+05, 0.10590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10590e+05, 0.10600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10600e+05, 0.10610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10610e+05, 0.10620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10620e+05, 0.10630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10630e+05, 0.10640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10640e+05, 0.10650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10650e+05, 0.10660e+05/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10660e+05, 0.10670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10670e+05, 0.10680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10680e+05, 0.10690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10690e+05, 0.10700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10700e+05, 0.10710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10710e+05, 0.10720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10720e+05, 0.10730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10730e+05, 0.10740e+05/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10740e+05, 0.10750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10750e+05, 0.10760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10760e+05, 0.10770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10770e+05, 0.10780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10780e+05, 0.10790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10790e+05, 0.10800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10800e+05, 0.10810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10810e+05, 0.10820e+05/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10820e+05, 0.10830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10830e+05, 0.10840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10840e+05, 0.10850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10850e+05, 0.10860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10860e+05, 0.10870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10870e+05, 0.10880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10880e+05, 0.10890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10890e+05, 0.10900e+05/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10900e+05, 0.10910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10910e+05, 0.10920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10920e+05, 0.10930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10930e+05, 0.10940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10940e+05, 0.10950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10950e+05, 0.10960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10960e+05, 0.10970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10970e+05, 0.10980e+05/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10980e+05, 0.10990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.10990e+05, 0.11000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11000e+05, 0.11010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11010e+05, 0.11020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11020e+05, 0.11030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11030e+05, 0.11040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11040e+05, 0.11050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11050e+05, 0.11060e+05/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11060e+05, 0.11070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11070e+05, 0.11080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11080e+05, 0.11090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11090e+05, 0.11100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11100e+05, 0.11110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11110e+05, 0.11120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11120e+05, 0.11130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11130e+05, 0.11140e+05/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11140e+05, 0.11150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11150e+05, 0.11160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11160e+05, 0.11170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11170e+05, 0.11180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11180e+05, 0.11190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11190e+05, 0.11200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11200e+05, 0.11210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11210e+05, 0.11220e+05/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11220e+05, 0.11230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11230e+05, 0.11240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11240e+05, 0.11250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11250e+05, 0.11260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11260e+05, 0.11270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11270e+05, 0.11280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11280e+05, 0.11290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11290e+05, 0.11300e+05/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11300e+05, 0.11310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11310e+05, 0.11320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11320e+05, 0.11330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11330e+05, 0.11340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11340e+05, 0.11350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11350e+05, 0.11360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11360e+05, 0.11370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11370e+05, 0.11380e+05/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11380e+05, 0.11390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11390e+05, 0.11400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11400e+05, 0.11410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11410e+05, 0.11420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11420e+05, 0.11430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11430e+05, 0.11440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11440e+05, 0.11450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11450e+05, 0.11460e+05/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11460e+05, 0.11470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11470e+05, 0.11480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11480e+05, 0.11490e+05,
- a 0.24850e-07, 0.39407e-01, 0.53053e-01,-0.21221e-03, 0.51025e-01,
- a-0.20813e-03, 0.11490e+05, 0.11500e+05,
- a 0.11624e-06, 0.79933e-01, 0.48686e-01,-0.19403e-03, 0.46806e-01,
- a-0.19088e-03, 0.11500e+05, 0.11510e+05,
- a 0.10964e-06, 0.43304e-01, 0.45502e-01,-0.18201e-03, 0.43474e-01,
- a-0.17792e-03, 0.11510e+05, 0.11520e+05,
- a 0.25643e-06, 0.66862e-01, 0.42844e-01,-0.17105e-03, 0.40871e-01,
- a-0.16735e-03, 0.11520e+05, 0.11530e+05,
- a 0.32105e-06, 0.68728e-01, 0.40797e-01,-0.16299e-03, 0.38797e-01,
- a-0.15911e-03, 0.11530e+05, 0.11540e+05/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.35585e-06, 0.71858e-01, 0.38944e-01,-0.15570e-03, 0.36916e-01,
- a-0.15165e-03, 0.11540e+05, 0.11550e+05,
- a 0.24915e-06, 0.74592e-01, 0.37957e-01,-0.15179e-03, 0.35912e-01,
- a-0.14766e-03, 0.11550e+05, 0.11560e+05,
- a 0.49923e-07, 0.26857e-01, 0.37416e-01,-0.14966e-03, 0.35388e-01,
- a-0.14558e-03, 0.11560e+05, 0.11570e+05,
- a 0.25239e-06, 0.96092e-01, 0.37615e-01,-0.15045e-03, 0.35561e-01,
- a-0.14627e-03, 0.11570e+05, 0.11580e+05,
- a 0.58358e-06, 0.11778e+00, 0.39104e-01,-0.15615e-03, 0.37080e-01,
- a-0.15221e-03, 0.11580e+05, 0.11590e+05,
- a 0.48767e-06, 0.11043e+00, 0.41978e-01,-0.16721e-03, 0.40060e-01,
- a-0.16392e-03, 0.11590e+05, 0.11600e+05,
- a 0.20866e-06, 0.10009e+00, 0.46771e-01,-0.18590e-03, 0.45000e-01,
- a-0.18335e-03, 0.11600e+05, 0.11610e+05,
- a 0.62339e-07, 0.91546e-01, 0.52598e-01,-0.20809e-03, 0.51104e-01,
- a-0.20723e-03, 0.11610e+05, 0.11620e+05/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11620e+05, 0.11630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11630e+05, 0.11640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11640e+05, 0.11650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11650e+05, 0.11660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11660e+05, 0.11670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11670e+05, 0.11680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11680e+05, 0.11690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11690e+05, 0.11700e+05/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11700e+05, 0.11710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11710e+05, 0.11720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11720e+05, 0.11730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11730e+05, 0.11740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11740e+05, 0.11750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11750e+05, 0.11760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11760e+05, 0.11770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11770e+05, 0.11780e+05/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11780e+05, 0.11790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11790e+05, 0.11800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11800e+05, 0.11810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11810e+05, 0.11820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11820e+05, 0.11830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11830e+05, 0.11840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11840e+05, 0.11850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11850e+05, 0.11860e+05/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11860e+05, 0.11870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11870e+05, 0.11880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11880e+05, 0.11890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11890e+05, 0.11900e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11900e+05, 0.11910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11910e+05, 0.11920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11920e+05, 0.11930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11930e+05, 0.11940e+05/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11940e+05, 0.11950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11950e+05, 0.11960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11960e+05, 0.11970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11970e+05, 0.11980e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11980e+05, 0.11990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.11990e+05, 0.12000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12000e+05, 0.12010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12010e+05, 0.12020e+05/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12020e+05, 0.12030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12030e+05, 0.12040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12040e+05, 0.12050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12050e+05, 0.12060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12060e+05, 0.12070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12070e+05, 0.12080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12080e+05, 0.12090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12090e+05, 0.12100e+05/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12100e+05, 0.12110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12110e+05, 0.12120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12120e+05, 0.12130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12130e+05, 0.12140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12140e+05, 0.12150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12150e+05, 0.12160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12160e+05, 0.12170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12170e+05, 0.12180e+05/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12180e+05, 0.12190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12190e+05, 0.12200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12200e+05, 0.12210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12210e+05, 0.12220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12220e+05, 0.12230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12230e+05, 0.12240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12240e+05, 0.12250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12250e+05, 0.12260e+05/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12260e+05, 0.12270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12270e+05, 0.12280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12280e+05, 0.12290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12290e+05, 0.12300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12300e+05, 0.12310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12310e+05, 0.12320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12320e+05, 0.12330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12330e+05, 0.12340e+05/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12340e+05, 0.12350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12350e+05, 0.12360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12360e+05, 0.12370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12370e+05, 0.12380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12380e+05, 0.12390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12390e+05, 0.12400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12400e+05, 0.12410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12410e+05, 0.12420e+05/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12420e+05, 0.12430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12430e+05, 0.12440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12440e+05, 0.12450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12450e+05, 0.12460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12460e+05, 0.12470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12470e+05, 0.12480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12480e+05, 0.12490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12490e+05, 0.12500e+05/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12500e+05, 0.12510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12510e+05, 0.12520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12520e+05, 0.12530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12530e+05, 0.12540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12540e+05, 0.12550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12550e+05, 0.12560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12560e+05, 0.12570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12570e+05, 0.12580e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12580e+05, 0.12590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12590e+05, 0.12600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12600e+05, 0.12610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12610e+05, 0.12620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12620e+05, 0.12630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12630e+05, 0.12640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12640e+05, 0.12650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12650e+05, 0.12660e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12660e+05, 0.12670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12670e+05, 0.12680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12680e+05, 0.12690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12690e+05, 0.12700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12700e+05, 0.12710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12710e+05, 0.12720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12720e+05, 0.12730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12730e+05, 0.12740e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.h b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.h
deleted file mode 100644
index b76d72d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG4.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_oxyg4_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.P b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.P
deleted file mode 100644
index b5a13b8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int oxyg5_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.c b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.c
deleted file mode 100644
index a27108b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.c
+++ /dev/null
@@ -1,242 +0,0 @@
-/* OXYG5.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine oxyg5(a,inu) >*/
-/* Subroutine */ int oxyg5_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 12740.,12750.,0.,0.,0.,0.,0.,0.,12750.,12760.,0.,0.,0.,0.,0.,0.,
- 12760.,12770.,0.,0.,0.,0.,0.,0.,12770.,12780.,0.,0.,0.,0.,0.,0.,
- 12780.,12790.,0.,0.,0.,0.,0.,0.,12790.,12800.,0.,0.,0.,0.,0.,0.,
- 12800.,12810.,0.,0.,0.,0.,0.,0.,12810.,12820.,0.,0.,0.,0.,0.,0.,
- 12820.,12830.,0.,0.,0.,0.,0.,0.,12830.,12840.,1.4615e-8,.036385,
- .0669,-2.676e-4,.064873,-2.6352e-4,12840.,12850.,1.7551e-8,
- .018194,.063056,-2.5222e-4,.061029,-2.4814e-4,12850.,12860.,
- 5.5571e-8,.034936,.060516,-2.4079e-4,.058832,-2.3863e-4,12860.,
- 12870.,1.1652e-7,.036823,.057157,-2.2751e-4,.055426,-2.2511e-4,
- 12870.,12880.,2.2758e-7,.037524,.05406,-2.1528e-4,.052277,
- -2.1261e-4,12880.,12890.,4.1844e-7,.044301,.051439,-2.03e-4,
- .050656,-2.0073e-4,12890.,12900.,1.1196e-6,.064417,.048398,
- -1.9212e-4,.047119,-1.8843e-4,12900.,12910.,1.3443e-6,.056296,
- .046024,-1.7943e-4,.045942,-1.7773e-4,12910.,12920.,1.9719e-6,
- .064603,.044605,-1.7094e-4,.044515,-1.7298e-4,12920.,12930.,
- 2.6027e-6,.060089,.042943,-1.6604e-4,.04177,-1.6646e-4,12930.,
- 12940.,5.7954e-6,.10762,.040374,-1.577e-4,.038909,-1.5614e-4,
- 12940.,12950.,4.3014e-6,.084704,.042188,-1.5762e-4,.040357,
- -1.5977e-4,12950.,12960.,7.9614e-6,.097284,.041471,-1.6264e-4,
- .038436,-1.5588e-4,12960.,12970.,1.7998e-5,.071534,.03844,
- -1.5372e-4,.036186,-1.4871e-4,12970.,12980.,2.7733e-5,.06553,
- .0349,-1.3823e-4,.034326,-1.4018e-4,12980.,12990.,8.7111e-5,
- .082142,.031863,-1.2227e-4,.033009,-1.3017e-4,12990.,1.3e4,
- 5.9912e-5,.064608,.031064,-1.1475e-4,.036751,-1.2672e-4,1.3e4,
- 13010.,2.6987e-4,.037736,.026012,-1.039e-4,.024588,-9.7152e-5,
- 13010.,13020.,5.9914e-4,.037261,.022365,-8.9458e-5,.020337,
- -8.5375e-5,13020.,13030.,.0012384,.038141,.019,-7.5998e-5,.016972,
- -7.1916e-5,13030.,13040.,.0023802,.03944,.015907,-6.3629e-5,
- .01388,-5.9546e-5,13040.,13050.,.0078692,.059793,.01191,
- -4.6882e-5,.010043,-4.3832e-5,13050.,13060.,.014112,.0632,
- .0088039,-3.4775e-5,.0068655,-3.1246e-5,13060.,13070.,.01506,
- .044198,.0062748,-2.5099e-5,.0042475,-2.1017e-5,13070.,13080.,
- .019365,.045501,.0045529,-1.8211e-5,.0025253,-1.4128e-5,13080.,
- 13090.,.035332,.070599,.0026881,-1.0606e-5,6.7201e-4,-6.6426e-6,
- 13090.,13100.,.032021,.071785,.0013302,-5.2395e-6,-7.0181e-4,
- -1.1794e-6,13100.,13110.,.020424,.076507,3.4001e-4,-1.3505e-6,
- -.0017047,2.7972e-6,13110.,13120.,.0083211,.050488,6.3467e-5,
- -2.5366e-7,-.0019594,3.8105e-6,13120.,13130.,.039472,.095766,
- 7.6617e-4,-3.019e-6,-.0012832,1.1287e-6,13130.,13140.,.057473,
- .11569,.0028314,-1.0907e-5,8.5516e-4,-7.1029e-6,13140.,13150.,
- .046463,.16239,.0072656,-2.6424e-5,.0059616,-2.4138e-5,13150.,
- 13160.,.0070486,.18365,.016807,-5.8784e-5,.017894,-6.4531e-5,
- 13160.,13170.,0.,0.,0.,0.,0.,0.,13170.,13180.,0.,0.,0.,0.,0.,0.,
- 13180.,13190.,0.,0.,0.,0.,0.,0.,13190.,13200.,0.,0.,0.,0.,0.,0.,
- 13200.,13210.,0.,0.,0.,0.,0.,0.,13210.,13220.,0.,0.,0.,0.,0.,0.,
- 13220.,13230.,0.,0.,0.,0.,0.,0.,13230.,13240.,0.,0.,0.,0.,0.,0.,
- 13240.,13250.,0.,0.,0.,0.,0.,0.,13250.,13260.,0.,0.,0.,0.,0.,0.,
- 13260.,13270.,0.,0.,0.,0.,0.,0.,13270.,13280.,0.,0.,0.,0.,0.,0.,
- 13280.,13290.,0.,0.,0.,0.,0.,0.,13290.,13300.,0.,0.,0.,0.,0.,0.,
- 13300.,13310.,0.,0.,0.,0.,0.,0.,13310.,13320.,0.,0.,0.,0.,0.,0.,
- 13320.,13330.,0.,0.,0.,0.,0.,0.,13330.,13340.,0.,0.,0.,0.,0.,0.,
- 13340.,13350.,0.,0.,0.,0.,0.,0.,13350.,13360.,0.,0.,0.,0.,0.,0.,
- 13360.,13370.,0.,0.,0.,0.,0.,0.,13370.,13380.,0.,0.,0.,0.,0.,0.,
- 13380.,13390.,0.,0.,0.,0.,0.,0.,13390.,13400.,0.,0.,0.,0.,0.,0.,
- 13400.,13410.,0.,0.,0.,0.,0.,0.,13410.,13420.,0.,0.,0.,0.,0.,0.,
- 13420.,13430.,0.,0.,0.,0.,0.,0.,13430.,13440.,0.,0.,0.,0.,0.,0.,
- 13440.,13450.,0.,0.,0.,0.,0.,0.,13450.,13460.,0.,0.,0.,0.,0.,0.,
- 13460.,13470.,0.,0.,0.,0.,0.,0.,13470.,13480.,0.,0.,0.,0.,0.,0.,
- 13480.,13490.,0.,0.,0.,0.,0.,0.,13490.,13500.,0.,0.,0.,0.,0.,0.,
- 13500.,13510.,0.,0.,0.,0.,0.,0.,13510.,13520.,0.,0.,0.,0.,0.,0.,
- 13520.,13530.,0.,0.,0.,0.,0.,0.,13530.,13540.,0.,0.,0.,0.,0.,0.,
- 13540.,13550.,0.,0.,0.,0.,0.,0.,13550.,13560.,0.,0.,0.,0.,0.,0.,
- 13560.,13570.,0.,0.,0.,0.,0.,0.,13570.,13580.,0.,0.,0.,0.,0.,0.,
- 13580.,13590.,0.,0.,0.,0.,0.,0.,13590.,13600.,0.,0.,0.,0.,0.,0.,
- 13600.,13610.,0.,0.,0.,0.,0.,0.,13610.,13620.,0.,0.,0.,0.,0.,0.,
- 13620.,13630.,0.,0.,0.,0.,0.,0.,13630.,13640.,0.,0.,0.,0.,0.,0.,
- 13640.,13650.,0.,0.,0.,0.,0.,0.,13650.,13660.,0.,0.,0.,0.,0.,0.,
- 13660.,13670.,0.,0.,0.,0.,0.,0.,13670.,13680.,0.,0.,0.,0.,0.,0.,
- 13680.,13690.,0.,0.,0.,0.,0.,0.,13690.,13700.,0.,0.,0.,0.,0.,0.,
- 13700.,13710.,0.,0.,0.,0.,0.,0.,13710.,13720.,0.,0.,0.,0.,0.,0.,
- 13720.,13730.,0.,0.,0.,0.,0.,0.,13730.,13740.,0.,0.,0.,0.,0.,0.,
- 13740.,13750.,0.,0.,0.,0.,0.,0.,13750.,13760.,0.,0.,0.,0.,0.,0.,
- 13760.,13770.,0.,0.,0.,0.,0.,0.,13770.,13780.,0.,0.,0.,0.,0.,0.,
- 13780.,13790.,0.,0.,0.,0.,0.,0.,13790.,13800.,0.,0.,0.,0.,0.,0.,
- 13800.,13810.,0.,0.,0.,0.,0.,0.,13810.,13820.,0.,0.,0.,0.,0.,0.,
- 13820.,13830.,0.,0.,0.,0.,0.,0.,13830.,13840.,0.,0.,0.,0.,0.,0.,
- 13840.,13850.,0.,0.,0.,0.,0.,0.,13850.,13860.,0.,0.,0.,0.,0.,0.,
- 13860.,13870.,0.,0.,0.,0.,0.,0.,13870.,13880.,0.,0.,0.,0.,0.,0.,
- 13880.,13890.,0.,0.,0.,0.,0.,0.,13890.,13900.,0.,0.,0.,0.,0.,0.,
- 13900.,13910.,0.,0.,0.,0.,0.,0.,13910.,13920.,0.,0.,0.,0.,0.,0.,
- 13920.,13930.,0.,0.,0.,0.,0.,0.,13930.,13940.,0.,0.,0.,0.,0.,0.,
- 13940.,13950.,0.,0.,0.,0.,0.,0.,13950.,13960.,0.,0.,0.,0.,0.,0.,
- 13960.,13970.,0.,0.,0.,0.,0.,0.,13970.,13980.,0.,0.,0.,0.,0.,0.,
- 13980.,13990.,0.,0.,0.,0.,0.,0.,13990.,1.4e4,0.,0.,0.,0.,0.,0.,
- 1.4e4,14010.,0.,0.,0.,0.,0.,0.,14010.,14020.,0.,0.,0.,0.,0.,0.,
- 14020.,14030.,0.,0.,0.,0.,0.,0.,14030.,14040.,0.,0.,0.,0.,0.,0.,
- 14040.,14050.,0.,0.,0.,0.,0.,0.,14050.,14060.,0.,0.,0.,0.,0.,0.,
- 14060.,14070.,0.,0.,0.,0.,0.,0.,14070.,14080.,0.,0.,0.,0.,0.,0.,
- 14080.,14090.,0.,0.,0.,0.,0.,0.,14090.,14100.,0.,0.,0.,0.,0.,0.,
- 14100.,14110.,0.,0.,0.,0.,0.,0.,14110.,14120.,0.,0.,0.,0.,0.,0.,
- 14120.,14130.,0.,0.,0.,0.,0.,0.,14130.,14140.,0.,0.,0.,0.,0.,0.,
- 14140.,14150.,0.,0.,0.,0.,0.,0.,14150.,14160.,0.,0.,0.,0.,0.,0.,
- 14160.,14170.,0.,0.,0.,0.,0.,0.,14170.,14180.,0.,0.,0.,0.,0.,0.,
- 14180.,14190.,0.,0.,0.,0.,0.,0.,14190.,14200.,0.,0.,0.,0.,0.,0.,
- 14200.,14210.,0.,0.,0.,0.,0.,0.,14210.,14220.,0.,0.,0.,0.,0.,0.,
- 14220.,14230.,0.,0.,0.,0.,0.,0.,14230.,14240.,0.,0.,0.,0.,0.,0.,
- 14240.,14250.,0.,0.,0.,0.,0.,0.,14250.,14260.,0.,0.,0.,0.,0.,0.,
- 14260.,14270.,0.,0.,0.,0.,0.,0.,14270.,14280.,0.,0.,0.,0.,0.,0.,
- 14280.,14290.,0.,0.,0.,0.,0.,0.,14290.,14300.,0.,0.,0.,0.,0.,0.,
- 14300.,14310.,3.2848e-8,.036386,.053505,-2.1402e-4,.051477,
- -2.0994e-4,14310.,14320.,0.,0.,0.,0.,0.,0.,14320.,14330.,
- 1.1021e-7,.036386,.048248,-1.9299e-4,.046221,-1.8891e-4,14330.,
- 14340.,3.4571e-7,.036386,.04326,-1.7304e-4,.041233,-1.6896e-4,
- 14340.,14350.,0.,0.,0.,0.,0.,0.,14350.,14360.,1.0131e-6,.036386,
- .03854,-1.5416e-4,.036513,-1.5008e-4,14360.,14370.,2.7746e-6,
- .036442,.034089,-1.3635e-4,.032054,-1.3222e-4,14370.,14380.,
- 3.6059e-6,.01824,.02993,-1.1971e-4,.027892,-1.1557e-4,14380.,
- 14390.,3.4852e-6,.018279,.029884,-1.1951e-4,.027832,-1.1527e-4,
- 14390.,14400.,1.6898e-5,.036461,.026,-1.0399e-4,.023962,
- -9.9845e-5,14400.,14410.,3.7525e-5,.037306,.022363,-8.9448e-5,
- .020327,-8.5313e-5,14410.,14420.,7.7568e-5,.038179,.018999,
- -7.5991e-5,.016964,-7.1868e-5,14420.,14430.,7.644e-5,.019568,
- .015927,-6.3702e-5,.013885,-5.9534e-5,14430.,14440.,2.0947e-4,
- .038957,.014055,-5.5384e-5,.012236,-5.2506e-5,14440.,14450.,
- 3.5608e-4,.040125,.011458,-4.5137e-5,.0095851,-4.1989e-5,14450.,
- 14460.,5.6079e-4,.041622,.0091259,-3.5944e-5,.0072131,-3.2578e-5,
- 14460.,14470.,8.1523e-4,.043384,.0070608,-2.7807e-5,.0051286,
- -2.4309e-5,14470.,14480.,.0016639,.067344,.0050076,-1.9758e-5,
- .0030273,-1.599e-5,14480.,14490.,.0014146,.046358,.003106,
- -1.2424e-5,.0010767,-8.3329e-6,14490.,14500.,.0022165,.071957,
- .0016398,-6.477e-6,-3.8835e-4,-2.4326e-6,14500.,14510.,.0015542,
- .07478,6.4291e-4,-2.5306e-6,-.0013922,1.5886e-6,14510.,14520.,
- 3.1245e-4,.026878,9.5018e-5,-3.8003e-7,-.0019316,3.6996e-6,14520.,
- 14530.,.0015805,.097644,3.0344e-4,-1.0773e-6,-.0013616,5.954e-6,
- 14530.,14540.,.0044256,.14544,.0020504,-7.4913e-6,6.2397e-4,
- -9.5059e-7,14540.,14550.,.0039335,.29035,.0078502,-2.3749e-5,
- .0080984,-2.7655e-5,14550.,14560.,0.,0.,0.,0.,0.,0.,14560.,14570.,
- 0.,0.,0.,0.,0.,0.,14570.,14580.,0.,0.,0.,0.,0.,0.,14580.,14590.,
- 0.,0.,0.,0.,0.,0.,14590.,14600.,0.,0.,0.,0.,0.,0.,14600.,14610.,
- 0.,0.,0.,0.,0.,0.,14610.,14620.,0.,0.,0.,0.,0.,0.,14620.,14630.,
- 0.,0.,0.,0.,0.,0.,14630.,14640.,0.,0.,0.,0.,0.,0.,14640.,14650.,
- 0.,0.,0.,0.,0.,0.,14650.,14660.,0.,0.,0.,0.,0.,0.,14660.,14670.,
- 0.,0.,0.,0.,0.,0.,14670.,14680.,0.,0.,0.,0.,0.,0.,14680.,14690.,
- 0.,0.,0.,0.,0.,0.,14690.,14700.,0.,0.,0.,0.,0.,0.,14700.,14710.,
- 0.,0.,0.,0.,0.,0.,14710.,14720.,0.,0.,0.,0.,0.,0.,14720.,14730.,
- 0.,0.,0.,0.,0.,0.,14730.,14740.,0.,0.,0.,0.,0.,0.,14740.,14750.,
- 0.,0.,0.,0.,0.,0.,14750.,14760.,0.,0.,0.,0.,0.,0.,14760.,14770.,
- 0.,0.,0.,0.,0.,0.,14770.,14780.,0.,0.,0.,0.,0.,0.,14780.,14790.,
- 0.,0.,0.,0.,0.,0.,14790.,14800.,0.,0.,0.,0.,0.,0.,14800.,14810.,
- 0.,0.,0.,0.,0.,0.,14810.,14820.,0.,0.,0.,0.,0.,0.,14820.,14830.,
- 0.,0.,0.,0.,0.,0.,14830.,14840.,0.,0.,0.,0.,0.,0.,14840.,14850.,
- 0.,0.,0.,0.,0.,0.,14850.,14860.,0.,0.,0.,0.,0.,0.,14860.,14870.,
- 0.,0.,0.,0.,0.,0.,14870.,14880.,0.,0.,0.,0.,0.,0.,14880.,14890.,
- 0.,0.,0.,0.,0.,0.,14890.,14900.,0.,0.,0.,0.,0.,0.,14900.,14910.,
- 0.,0.,0.,0.,0.,0.,14910.,14920.,0.,0.,0.,0.,0.,0.,14920.,14930.,
- 0.,0.,0.,0.,0.,0.,14930.,14940.,0.,0.,0.,0.,0.,0.,14940.,14950.,
- 0.,0.,0.,0.,0.,0.,14950.,14960.,0.,0.,0.,0.,0.,0.,14960.,14970.,
- 0.,0.,0.,0.,0.,0.,14970.,14980.,0.,0.,0.,0.,0.,0.,14980.,14990.,
- 0.,0.,0.,0.,0.,0.,14990.,1.5e4,0.,0.,0.,0.,0.,0.,1.5e4,15010.,0.,
- 0.,0.,0.,0.,0.,15010.,15020.,0.,0.,0.,0.,0.,0.,15020.,15030.,0.,
- 0.,0.,0.,0.,0.,15030.,15040.,0.,0.,0.,0.,0.,0.,15040.,15050.,0.,
- 0.,0.,0.,0.,0.,15050.,15060.,0.,0.,0.,0.,0.,0.,15060.,15070.,0.,
- 0.,0.,0.,0.,0.,15070.,15080.,0.,0.,0.,0.,0.,0.,15080.,15090.,0.,
- 0.,0.,0.,0.,0.,15090.,15100.,0.,0.,0.,0.,0.,0.,15100.,15110.,0.,
- 0.,0.,0.,0.,0.,15110.,15120.,0.,0.,0.,0.,0.,0.,15120.,15130.,0.,
- 0.,0.,0.,0.,0.,15130.,15140.,0.,0.,0.,0.,0.,0.,15140.,15150.,0.,
- 0.,0.,0.,0.,0.,15150.,15160.,0.,0.,0.,0.,0.,0.,15160.,15170.,0.,
- 0.,0.,0.,0.,0.,15170.,15180.,0.,0.,0.,0.,0.,0.,15180.,15190.,0.,
- 0.,0.,0.,0.,0.,15190.,15200.,0.,0.,0.,0.,0.,0.,15200.,15210.,0.,
- 0.,0.,0.,0.,0.,15210.,15220.,0.,0.,0.,0.,0.,0.,15220.,15230.,0.,
- 0.,0.,0.,0.,0.,15230.,15240.,0.,0.,0.,0.,0.,0.,15240.,15250.,0.,
- 0.,0.,0.,0.,0.,15250.,15260.,0.,0.,0.,0.,0.,0.,15260.,15270.,0.,
- 0.,0.,0.,0.,0.,15270.,15280.,0.,0.,0.,0.,0.,0.,15280.,15290.,0.,
- 0.,0.,0.,0.,0.,15290.,15300. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* oxygen (12740 - 15290 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* oxyg5_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.f b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.f
deleted file mode 100644
index e7e0c05..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine oxyg5(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c oxygen (12740 - 15290 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12740e+05, 0.12750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12750e+05, 0.12760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12760e+05, 0.12770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12770e+05, 0.12780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12780e+05, 0.12790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12790e+05, 0.12800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12800e+05, 0.12810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12810e+05, 0.12820e+05/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12820e+05, 0.12830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.12830e+05, 0.12840e+05,
- a 0.14615e-07, 0.36385e-01, 0.66900e-01,-0.26760e-03, 0.64873e-01,
- a-0.26352e-03, 0.12840e+05, 0.12850e+05,
- a 0.17551e-07, 0.18194e-01, 0.63056e-01,-0.25222e-03, 0.61029e-01,
- a-0.24814e-03, 0.12850e+05, 0.12860e+05,
- a 0.55571e-07, 0.34936e-01, 0.60516e-01,-0.24079e-03, 0.58832e-01,
- a-0.23863e-03, 0.12860e+05, 0.12870e+05,
- a 0.11652e-06, 0.36823e-01, 0.57157e-01,-0.22751e-03, 0.55426e-01,
- a-0.22511e-03, 0.12870e+05, 0.12880e+05,
- a 0.22758e-06, 0.37524e-01, 0.54060e-01,-0.21528e-03, 0.52277e-01,
- a-0.21261e-03, 0.12880e+05, 0.12890e+05,
- a 0.41844e-06, 0.44301e-01, 0.51439e-01,-0.20300e-03, 0.50656e-01,
- a-0.20073e-03, 0.12890e+05, 0.12900e+05/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.11196e-05, 0.64417e-01, 0.48398e-01,-0.19212e-03, 0.47119e-01,
- a-0.18843e-03, 0.12900e+05, 0.12910e+05,
- a 0.13443e-05, 0.56296e-01, 0.46024e-01,-0.17943e-03, 0.45942e-01,
- a-0.17773e-03, 0.12910e+05, 0.12920e+05,
- a 0.19719e-05, 0.64603e-01, 0.44605e-01,-0.17094e-03, 0.44515e-01,
- a-0.17298e-03, 0.12920e+05, 0.12930e+05,
- a 0.26027e-05, 0.60089e-01, 0.42943e-01,-0.16604e-03, 0.41770e-01,
- a-0.16646e-03, 0.12930e+05, 0.12940e+05,
- a 0.57954e-05, 0.10762e+00, 0.40374e-01,-0.15770e-03, 0.38909e-01,
- a-0.15614e-03, 0.12940e+05, 0.12950e+05,
- a 0.43014e-05, 0.84704e-01, 0.42188e-01,-0.15762e-03, 0.40357e-01,
- a-0.15977e-03, 0.12950e+05, 0.12960e+05,
- a 0.79614e-05, 0.97284e-01, 0.41471e-01,-0.16264e-03, 0.38436e-01,
- a-0.15588e-03, 0.12960e+05, 0.12970e+05,
- a 0.17998e-04, 0.71534e-01, 0.38440e-01,-0.15372e-03, 0.36186e-01,
- a-0.14871e-03, 0.12970e+05, 0.12980e+05/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.27733e-04, 0.65530e-01, 0.34900e-01,-0.13823e-03, 0.34326e-01,
- a-0.14018e-03, 0.12980e+05, 0.12990e+05,
- a 0.87111e-04, 0.82142e-01, 0.31863e-01,-0.12227e-03, 0.33009e-01,
- a-0.13017e-03, 0.12990e+05, 0.13000e+05,
- a 0.59912e-04, 0.64608e-01, 0.31064e-01,-0.11475e-03, 0.36751e-01,
- a-0.12672e-03, 0.13000e+05, 0.13010e+05,
- a 0.26987e-03, 0.37736e-01, 0.26012e-01,-0.10390e-03, 0.24588e-01,
- a-0.97152e-04, 0.13010e+05, 0.13020e+05,
- a 0.59914e-03, 0.37261e-01, 0.22365e-01,-0.89458e-04, 0.20337e-01,
- a-0.85375e-04, 0.13020e+05, 0.13030e+05,
- a 0.12384e-02, 0.38141e-01, 0.19000e-01,-0.75998e-04, 0.16972e-01,
- a-0.71916e-04, 0.13030e+05, 0.13040e+05,
- a 0.23802e-02, 0.39440e-01, 0.15907e-01,-0.63629e-04, 0.13880e-01,
- a-0.59546e-04, 0.13040e+05, 0.13050e+05,
- a 0.78692e-02, 0.59793e-01, 0.11910e-01,-0.46882e-04, 0.10043e-01,
- a-0.43832e-04, 0.13050e+05, 0.13060e+05/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.14112e-01, 0.63200e-01, 0.88039e-02,-0.34775e-04, 0.68655e-02,
- a-0.31246e-04, 0.13060e+05, 0.13070e+05,
- a 0.15060e-01, 0.44198e-01, 0.62748e-02,-0.25099e-04, 0.42475e-02,
- a-0.21017e-04, 0.13070e+05, 0.13080e+05,
- a 0.19365e-01, 0.45501e-01, 0.45529e-02,-0.18211e-04, 0.25253e-02,
- a-0.14128e-04, 0.13080e+05, 0.13090e+05,
- a 0.35332e-01, 0.70599e-01, 0.26881e-02,-0.10606e-04, 0.67201e-03,
- a-0.66426e-05, 0.13090e+05, 0.13100e+05,
- a 0.32021e-01, 0.71785e-01, 0.13302e-02,-0.52395e-05,-0.70181e-03,
- a-0.11794e-05, 0.13100e+05, 0.13110e+05,
- a 0.20424e-01, 0.76507e-01, 0.34001e-03,-0.13505e-05,-0.17047e-02,
- a 0.27972e-05, 0.13110e+05, 0.13120e+05,
- a 0.83211e-02, 0.50488e-01, 0.63467e-04,-0.25366e-06,-0.19594e-02,
- a 0.38105e-05, 0.13120e+05, 0.13130e+05,
- a 0.39472e-01, 0.95766e-01, 0.76617e-03,-0.30190e-05,-0.12832e-02,
- a 0.11287e-05, 0.13130e+05, 0.13140e+05/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.57473e-01, 0.11569e+00, 0.28314e-02,-0.10907e-04, 0.85516e-03,
- a-0.71029e-05, 0.13140e+05, 0.13150e+05,
- a 0.46463e-01, 0.16239e+00, 0.72656e-02,-0.26424e-04, 0.59616e-02,
- a-0.24138e-04, 0.13150e+05, 0.13160e+05,
- a 0.70486e-02, 0.18365e+00, 0.16807e-01,-0.58784e-04, 0.17894e-01,
- a-0.64531e-04, 0.13160e+05, 0.13170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13170e+05, 0.13180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13180e+05, 0.13190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13190e+05, 0.13200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13200e+05, 0.13210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13210e+05, 0.13220e+05/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13220e+05, 0.13230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13230e+05, 0.13240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13240e+05, 0.13250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13250e+05, 0.13260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13260e+05, 0.13270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13270e+05, 0.13280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13280e+05, 0.13290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13290e+05, 0.13300e+05/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13300e+05, 0.13310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13310e+05, 0.13320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13320e+05, 0.13330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13330e+05, 0.13340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13340e+05, 0.13350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13350e+05, 0.13360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13360e+05, 0.13370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13370e+05, 0.13380e+05/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13380e+05, 0.13390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13390e+05, 0.13400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13400e+05, 0.13410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13410e+05, 0.13420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13420e+05, 0.13430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13430e+05, 0.13440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13440e+05, 0.13450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13450e+05, 0.13460e+05/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13460e+05, 0.13470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13470e+05, 0.13480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13480e+05, 0.13490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13490e+05, 0.13500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13500e+05, 0.13510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13510e+05, 0.13520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13520e+05, 0.13530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13530e+05, 0.13540e+05/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13540e+05, 0.13550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13550e+05, 0.13560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13560e+05, 0.13570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13570e+05, 0.13580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13580e+05, 0.13590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13590e+05, 0.13600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13600e+05, 0.13610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13610e+05, 0.13620e+05/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13620e+05, 0.13630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13630e+05, 0.13640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13640e+05, 0.13650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13650e+05, 0.13660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13660e+05, 0.13670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13670e+05, 0.13680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13680e+05, 0.13690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13690e+05, 0.13700e+05/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13700e+05, 0.13710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13710e+05, 0.13720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13720e+05, 0.13730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13730e+05, 0.13740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13740e+05, 0.13750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13750e+05, 0.13760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13760e+05, 0.13770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13770e+05, 0.13780e+05/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13780e+05, 0.13790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13790e+05, 0.13800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13800e+05, 0.13810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13810e+05, 0.13820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13820e+05, 0.13830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13830e+05, 0.13840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13840e+05, 0.13850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13850e+05, 0.13860e+05/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13860e+05, 0.13870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13870e+05, 0.13880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13880e+05, 0.13890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13890e+05, 0.13900e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13900e+05, 0.13910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13910e+05, 0.13920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13920e+05, 0.13930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13930e+05, 0.13940e+05/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13940e+05, 0.13950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13950e+05, 0.13960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13960e+05, 0.13970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13970e+05, 0.13980e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13980e+05, 0.13990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.13990e+05, 0.14000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14000e+05, 0.14010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14010e+05, 0.14020e+05/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14020e+05, 0.14030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14030e+05, 0.14040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14040e+05, 0.14050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14050e+05, 0.14060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14060e+05, 0.14070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14070e+05, 0.14080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14080e+05, 0.14090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14090e+05, 0.14100e+05/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14100e+05, 0.14110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14110e+05, 0.14120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14120e+05, 0.14130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14130e+05, 0.14140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14140e+05, 0.14150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14150e+05, 0.14160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14160e+05, 0.14170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14170e+05, 0.14180e+05/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14180e+05, 0.14190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14190e+05, 0.14200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14200e+05, 0.14210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14210e+05, 0.14220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14220e+05, 0.14230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14230e+05, 0.14240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14240e+05, 0.14250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14250e+05, 0.14260e+05/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14260e+05, 0.14270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14270e+05, 0.14280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14280e+05, 0.14290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14290e+05, 0.14300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14300e+05, 0.14310e+05,
- a 0.32848e-07, 0.36386e-01, 0.53505e-01,-0.21402e-03, 0.51477e-01,
- a-0.20994e-03, 0.14310e+05, 0.14320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14320e+05, 0.14330e+05,
- a 0.11021e-06, 0.36386e-01, 0.48248e-01,-0.19299e-03, 0.46221e-01,
- a-0.18891e-03, 0.14330e+05, 0.14340e+05/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.34571e-06, 0.36386e-01, 0.43260e-01,-0.17304e-03, 0.41233e-01,
- a-0.16896e-03, 0.14340e+05, 0.14350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14350e+05, 0.14360e+05,
- a 0.10131e-05, 0.36386e-01, 0.38540e-01,-0.15416e-03, 0.36513e-01,
- a-0.15008e-03, 0.14360e+05, 0.14370e+05,
- a 0.27746e-05, 0.36442e-01, 0.34089e-01,-0.13635e-03, 0.32054e-01,
- a-0.13222e-03, 0.14370e+05, 0.14380e+05,
- a 0.36059e-05, 0.18240e-01, 0.29930e-01,-0.11971e-03, 0.27892e-01,
- a-0.11557e-03, 0.14380e+05, 0.14390e+05,
- a 0.34852e-05, 0.18279e-01, 0.29884e-01,-0.11951e-03, 0.27832e-01,
- a-0.11527e-03, 0.14390e+05, 0.14400e+05,
- a 0.16898e-04, 0.36461e-01, 0.26000e-01,-0.10399e-03, 0.23962e-01,
- a-0.99845e-04, 0.14400e+05, 0.14410e+05,
- a 0.37525e-04, 0.37306e-01, 0.22363e-01,-0.89448e-04, 0.20327e-01,
- a-0.85313e-04, 0.14410e+05, 0.14420e+05/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.77568e-04, 0.38179e-01, 0.18999e-01,-0.75991e-04, 0.16964e-01,
- a-0.71868e-04, 0.14420e+05, 0.14430e+05,
- a 0.76440e-04, 0.19568e-01, 0.15927e-01,-0.63702e-04, 0.13885e-01,
- a-0.59534e-04, 0.14430e+05, 0.14440e+05,
- a 0.20947e-03, 0.38957e-01, 0.14055e-01,-0.55384e-04, 0.12236e-01,
- a-0.52506e-04, 0.14440e+05, 0.14450e+05,
- a 0.35608e-03, 0.40125e-01, 0.11458e-01,-0.45137e-04, 0.95851e-02,
- a-0.41989e-04, 0.14450e+05, 0.14460e+05,
- a 0.56079e-03, 0.41622e-01, 0.91259e-02,-0.35944e-04, 0.72131e-02,
- a-0.32578e-04, 0.14460e+05, 0.14470e+05,
- a 0.81523e-03, 0.43384e-01, 0.70608e-02,-0.27807e-04, 0.51286e-02,
- a-0.24309e-04, 0.14470e+05, 0.14480e+05,
- a 0.16639e-02, 0.67344e-01, 0.50076e-02,-0.19758e-04, 0.30273e-02,
- a-0.15990e-04, 0.14480e+05, 0.14490e+05,
- a 0.14146e-02, 0.46358e-01, 0.31060e-02,-0.12424e-04, 0.10767e-02,
- a-0.83329e-05, 0.14490e+05, 0.14500e+05/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.22165e-02, 0.71957e-01, 0.16398e-02,-0.64770e-05,-0.38835e-03,
- a-0.24326e-05, 0.14500e+05, 0.14510e+05,
- a 0.15542e-02, 0.74780e-01, 0.64291e-03,-0.25306e-05,-0.13922e-02,
- a 0.15886e-05, 0.14510e+05, 0.14520e+05,
- a 0.31245e-03, 0.26878e-01, 0.95018e-04,-0.38003e-06,-0.19316e-02,
- a 0.36996e-05, 0.14520e+05, 0.14530e+05,
- a 0.15805e-02, 0.97644e-01, 0.30344e-03,-0.10773e-05,-0.13616e-02,
- a 0.59540e-05, 0.14530e+05, 0.14540e+05,
- a 0.44256e-02, 0.14544e+00, 0.20504e-02,-0.74913e-05, 0.62397e-03,
- a-0.95059e-06, 0.14540e+05, 0.14550e+05,
- a 0.39335e-02, 0.29035e+00, 0.78502e-02,-0.23749e-04, 0.80984e-02,
- a-0.27655e-04, 0.14550e+05, 0.14560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14560e+05, 0.14570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14570e+05, 0.14580e+05/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14580e+05, 0.14590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14590e+05, 0.14600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14600e+05, 0.14610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14610e+05, 0.14620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14620e+05, 0.14630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14630e+05, 0.14640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14640e+05, 0.14650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14650e+05, 0.14660e+05/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14660e+05, 0.14670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14670e+05, 0.14680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14680e+05, 0.14690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14690e+05, 0.14700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14700e+05, 0.14710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14710e+05, 0.14720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14720e+05, 0.14730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14730e+05, 0.14740e+05/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14740e+05, 0.14750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14750e+05, 0.14760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14760e+05, 0.14770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14770e+05, 0.14780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14780e+05, 0.14790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14790e+05, 0.14800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14800e+05, 0.14810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14810e+05, 0.14820e+05/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14820e+05, 0.14830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14830e+05, 0.14840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14840e+05, 0.14850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14850e+05, 0.14860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14860e+05, 0.14870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14870e+05, 0.14880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14880e+05, 0.14890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14890e+05, 0.14900e+05/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14900e+05, 0.14910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14910e+05, 0.14920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14920e+05, 0.14930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14930e+05, 0.14940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14940e+05, 0.14950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14950e+05, 0.14960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14960e+05, 0.14970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14970e+05, 0.14980e+05/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14980e+05, 0.14990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.14990e+05, 0.15000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15000e+05, 0.15010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15010e+05, 0.15020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15020e+05, 0.15030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15030e+05, 0.15040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15040e+05, 0.15050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15050e+05, 0.15060e+05/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15060e+05, 0.15070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15070e+05, 0.15080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15080e+05, 0.15090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15090e+05, 0.15100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15100e+05, 0.15110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15110e+05, 0.15120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15120e+05, 0.15130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15130e+05, 0.15140e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15140e+05, 0.15150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15150e+05, 0.15160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15160e+05, 0.15170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15170e+05, 0.15180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15180e+05, 0.15190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15190e+05, 0.15200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15200e+05, 0.15210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15210e+05, 0.15220e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15220e+05, 0.15230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15230e+05, 0.15240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15240e+05, 0.15250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15250e+05, 0.15260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15260e+05, 0.15270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15270e+05, 0.15280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15280e+05, 0.15290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15290e+05, 0.15300e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.h b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.h
deleted file mode 100644
index d67f0fa..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG5.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_oxyg5_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.P b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.P
deleted file mode 100644
index e41af05..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int oxyg6_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.c b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.c
deleted file mode 100644
index 1757e8d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.c
+++ /dev/null
@@ -1,219 +0,0 @@
-/* OXYG6.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine oxyg6(a,inu) >*/
-/* Subroutine */ int oxyg6_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 0.,0.,0.,0.,0.,0.,
- 15300.,15310.,0.,0.,0.,0.,0.,0.,15310.,15320.,0.,0.,0.,0.,0.,0.,
- 15320.,15330.,0.,0.,0.,0.,0.,0.,15330.,15340.,0.,0.,0.,0.,0.,0.,
- 15340.,15350.,0.,0.,0.,0.,0.,0.,15350.,15360.,0.,0.,0.,0.,0.,0.,
- 15360.,15370.,0.,0.,0.,0.,0.,0.,15370.,15380.,0.,0.,0.,0.,0.,0.,
- 15380.,15390.,0.,0.,0.,0.,0.,0.,15390.,15400.,0.,0.,0.,0.,0.,0.,
- 15400.,15410.,0.,0.,0.,0.,0.,0.,15410.,15420.,0.,0.,0.,0.,0.,0.,
- 15420.,15430.,0.,0.,0.,0.,0.,0.,15430.,15440.,0.,0.,0.,0.,0.,0.,
- 15440.,15450.,0.,0.,0.,0.,0.,0.,15450.,15460.,0.,0.,0.,0.,0.,0.,
- 15460.,15470.,0.,0.,0.,0.,0.,0.,15470.,15480.,0.,0.,0.,0.,0.,0.,
- 15480.,15490.,0.,0.,0.,0.,0.,0.,15490.,15500.,0.,0.,0.,0.,0.,0.,
- 15500.,15510.,0.,0.,0.,0.,0.,0.,15510.,15520.,0.,0.,0.,0.,0.,0.,
- 15520.,15530.,0.,0.,0.,0.,0.,0.,15530.,15540.,0.,0.,0.,0.,0.,0.,
- 15540.,15550.,0.,0.,0.,0.,0.,0.,15550.,15560.,0.,0.,0.,0.,0.,0.,
- 15560.,15570.,0.,0.,0.,0.,0.,0.,15570.,15580.,0.,0.,0.,0.,0.,0.,
- 15580.,15590.,0.,0.,0.,0.,0.,0.,15590.,15600.,0.,0.,0.,0.,0.,0.,
- 15600.,15610.,0.,0.,0.,0.,0.,0.,15610.,15620.,0.,0.,0.,0.,0.,0.,
- 15620.,15630.,0.,0.,0.,0.,0.,0.,15630.,15640.,0.,0.,0.,0.,0.,0.,
- 15640.,15650.,0.,0.,0.,0.,0.,0.,15650.,15660.,0.,0.,0.,0.,0.,0.,
- 15660.,15670.,0.,0.,0.,0.,0.,0.,15670.,15680.,0.,0.,0.,0.,0.,0.,
- 15680.,15690.,0.,0.,0.,0.,0.,0.,15690.,15700.,0.,0.,0.,0.,0.,0.,
- 15700.,15710.,1.596e-8,.018194,.038561,-1.5424e-4,.036533,
- -1.5016e-4,15710.,15720.,1.5504e-8,.018194,.03852,-1.5408e-4,
- .036492,-1.5e-4,15720.,15730.,8.6149e-8,.036385,.03409,-1.3636e-4,
- .032063,-1.3228e-4,15730.,15740.,0.,0.,0.,0.,0.,0.,15740.,15750.,
- 2.2012e-7,.036385,.029911,-1.1964e-4,.027883,-1.1556e-4,15750.,
- 15760.,5.2469e-7,.036384,.026002,-1.0401e-4,.023974,-9.9924e-5,
- 15760.,15770.,0.,0.,0.,0.,0.,0.,15770.,15780.,1.1652e-6,.037236,
- .022365,-8.9458e-5,.020337,-8.5374e-5,15780.,15790.,2.4086e-6,
- .038115,.019,-7.5998e-5,.016972,-7.1915e-5,15790.,15800.,4.63e-6,
- .039407,.015907,-6.3629e-5,.01388,-5.9545e-5,15800.,15810.,
- 4.2478e-6,.019927,.01311,-5.2439e-5,.011082,-4.8357e-5,15810.,
- 15820.,4.0121e-6,.019927,.013066,-5.2262e-5,.011038,-4.818e-5,
- 15820.,15830.,1.3653e-5,.041148,.010543,-4.2171e-5,.0085153,
- -3.8088e-5,15830.,15840.,2.0849e-5,.04334,.0082714,-3.3085e-5,
- .0062412,-2.8988e-5,15840.,15850.,2.9295e-5,.044164,.0062748,
- -2.5099e-5,.004247,-2.1015e-5,15850.,15860.,3.768e-5,.045464,
- .0045528,-1.8211e-5,.002525,-1.4127e-5,15860.,15870.,6.8735e-5,
- .070552,.0026882,-1.0606e-5,6.7182e-4,-6.6419e-6,15870.,15880.,
- 6.2284e-5,.071735,.0013301,-5.2392e-6,-7.0196e-4,-1.1788e-6,
- 15880.,15890.,3.9741e-5,.0779,3.5779e-4,-1.1367e-6,-.0013542,
- 4.5537e-6,15890.,15900.,1.6287e-5,.058682,3.1178e-4,2.4589e-6,
- 5.313e-4,1.3293e-5,15900.,15910.,9.9855e-5,.14228,.0013456,
- -1.6726e-6,.0010356,3.4749e-6,15910.,15920.,1.9246e-4,.31716,
- .005754,-1.6318e-5,.0052332,-1.9378e-5,15920.,15930.,0.,0.,0.,0.,
- 0.,0.,15930.,15940.,0.,0.,0.,0.,0.,0.,15940.,15950.,0.,0.,0.,0.,
- 0.,0.,15950.,15960.,0.,0.,0.,0.,0.,0.,15960.,15970.,0.,0.,0.,0.,
- 0.,0.,15970.,15980.,0.,0.,0.,0.,0.,0.,15980.,15990.,0.,0.,0.,0.,
- 0.,0.,15990.,1.6e4,0.,0.,0.,0.,0.,0.,1.6e4,16010.,0.,0.,0.,0.,0.,
- 0.,16010.,16020.,0.,0.,0.,0.,0.,0.,16020.,16030.,0.,0.,0.,0.,0.,
- 0.,16030.,16040.,0.,0.,0.,0.,0.,0.,16040.,16050.,0.,0.,0.,0.,0.,
- 0.,16050.,16060.,0.,0.,0.,0.,0.,0.,16060.,16070.,0.,0.,0.,0.,0.,
- 0.,16070.,16080.,0.,0.,0.,0.,0.,0.,16080.,16090.,0.,0.,0.,0.,0.,
- 0.,16090.,16100.,0.,0.,0.,0.,0.,0.,16100.,16110.,0.,0.,0.,0.,0.,
- 0.,16110.,16120.,0.,0.,0.,0.,0.,0.,16120.,16130.,0.,0.,0.,0.,0.,
- 0.,16130.,16140.,0.,0.,0.,0.,0.,0.,16140.,16150.,0.,0.,0.,0.,0.,
- 0.,16150.,16160.,0.,0.,0.,0.,0.,0.,16160.,16170.,0.,0.,0.,0.,0.,
- 0.,16170.,16180.,0.,0.,0.,0.,0.,0.,16180.,16190.,0.,0.,0.,0.,0.,
- 0.,16190.,16200.,0.,0.,0.,0.,0.,0.,16200.,16210.,0.,0.,0.,0.,0.,
- 0.,16210.,16220.,0.,0.,0.,0.,0.,0.,16220.,16230.,0.,0.,0.,0.,0.,
- 0.,16230.,16240.,0.,0.,0.,0.,0.,0.,16240.,16250.,0.,0.,0.,0.,0.,
- 0.,16250.,16260.,0.,0.,0.,0.,0.,0.,16260.,16270.,0.,0.,0.,0.,0.,
- 0.,16270.,16280.,0.,0.,0.,0.,0.,0.,16280.,16290.,0.,0.,0.,0.,0.,
- 0.,16290.,16300.,0.,0.,0.,0.,0.,0.,16300.,16310.,0.,0.,0.,0.,0.,
- 0.,16310.,16320.,0.,0.,0.,0.,0.,0.,16320.,16330.,0.,0.,0.,0.,0.,
- 0.,16330.,16340.,0.,0.,0.,0.,0.,0.,16340.,16350.,0.,0.,0.,0.,0.,
- 0.,16350.,16360.,0.,0.,0.,0.,0.,0.,16360.,16370.,0.,0.,0.,0.,0.,
- 0.,16370.,16380.,0.,0.,0.,0.,0.,0.,16380.,16390.,0.,0.,0.,0.,0.,
- 0.,16390.,16400.,0.,0.,0.,0.,0.,0.,16400.,16410.,0.,0.,0.,0.,0.,
- 0.,16410.,16420.,0.,0.,0.,0.,0.,0.,16420.,16430.,0.,0.,0.,0.,0.,
- 0.,16430.,16440.,0.,0.,0.,0.,0.,0.,16440.,16450.,0.,0.,0.,0.,0.,
- 0.,16450.,16460.,0.,0.,0.,0.,0.,0.,16460.,16470.,0.,0.,0.,0.,0.,
- 0.,16470.,16480.,0.,0.,0.,0.,0.,0.,16480.,16490.,0.,0.,0.,0.,0.,
- 0.,16490.,16500.,0.,0.,0.,0.,0.,0.,16500.,16510.,0.,0.,0.,0.,0.,
- 0.,16510.,16520.,0.,0.,0.,0.,0.,0.,16520.,16530.,0.,0.,0.,0.,0.,
- 0.,16530.,16540.,0.,0.,0.,0.,0.,0.,16540.,16550.,0.,0.,0.,0.,0.,
- 0.,16550.,16560.,0.,0.,0.,0.,0.,0.,16560.,16570.,0.,0.,0.,0.,0.,
- 0.,16570.,16580.,0.,0.,0.,0.,0.,0.,16580.,16590.,0.,0.,0.,0.,0.,
- 0.,16590.,16600.,0.,0.,0.,0.,0.,0.,16600.,16610.,0.,0.,0.,0.,0.,
- 0.,16610.,16620.,0.,0.,0.,0.,0.,0.,16620.,16630.,0.,0.,0.,0.,0.,
- 0.,16630.,16640.,0.,0.,0.,0.,0.,0.,16640.,16650.,0.,0.,0.,0.,0.,
- 0.,16650.,16660.,0.,0.,0.,0.,0.,0.,16660.,16670.,0.,0.,0.,0.,0.,
- 0.,16670.,16680.,0.,0.,0.,0.,0.,0.,16680.,16690.,0.,0.,0.,0.,0.,
- 0.,16690.,16700.,0.,0.,0.,0.,0.,0.,16700.,16710.,0.,0.,0.,0.,0.,
- 0.,16710.,16720.,0.,0.,0.,0.,0.,0.,16720.,16730.,0.,0.,0.,0.,0.,
- 0.,16730.,16740.,0.,0.,0.,0.,0.,0.,16740.,16750.,0.,0.,0.,0.,0.,
- 0.,16750.,16760.,0.,0.,0.,0.,0.,0.,16760.,16770.,0.,0.,0.,0.,0.,
- 0.,16770.,16780.,0.,0.,0.,0.,0.,0.,16780.,16790.,0.,0.,0.,0.,0.,
- 0.,16790.,16800.,0.,0.,0.,0.,0.,0.,16800.,16810.,0.,0.,0.,0.,0.,
- 0.,16810.,16820.,0.,0.,0.,0.,0.,0.,16820.,16830.,0.,0.,0.,0.,0.,
- 0.,16830.,16840.,0.,0.,0.,0.,0.,0.,16840.,16850.,0.,0.,0.,0.,0.,
- 0.,16850.,16860.,0.,0.,0.,0.,0.,0.,16860.,16870.,0.,0.,0.,0.,0.,
- 0.,16870.,16880.,0.,0.,0.,0.,0.,0.,16880.,16890.,0.,0.,0.,0.,0.,
- 0.,16890.,16900.,0.,0.,0.,0.,0.,0.,16900.,16910.,0.,0.,0.,0.,0.,
- 0.,16910.,16920.,0.,0.,0.,0.,0.,0.,16920.,16930.,0.,0.,0.,0.,0.,
- 0.,16930.,16940.,0.,0.,0.,0.,0.,0.,16940.,16950.,0.,0.,0.,0.,0.,
- 0.,16950.,16960.,0.,0.,0.,0.,0.,0.,16960.,16970.,0.,0.,0.,0.,0.,
- 0.,16970.,16980.,0.,0.,0.,0.,0.,0.,16980.,16990.,0.,0.,0.,0.,0.,
- 0.,16990.,1.7e4,0.,0.,0.,0.,0.,0.,1.7e4,17010.,0.,0.,0.,0.,0.,0.,
- 17010.,17020.,0.,0.,0.,0.,0.,0.,17020.,17030.,0.,0.,0.,0.,0.,0.,
- 17030.,17040.,0.,0.,0.,0.,0.,0.,17040.,17050.,0.,0.,0.,0.,0.,0.,
- 17050.,17060.,0.,0.,0.,0.,0.,0.,17060.,17070.,0.,0.,0.,0.,0.,0.,
- 17070.,17080.,0.,0.,0.,0.,0.,0.,17080.,17090.,0.,0.,0.,0.,0.,0.,
- 17090.,17100.,0.,0.,0.,0.,0.,0.,17100.,17110.,0.,0.,0.,0.,0.,0.,
- 17110.,17120.,0.,0.,0.,0.,0.,0.,17120.,17130.,0.,0.,0.,0.,0.,0.,
- 17130.,17140.,0.,0.,0.,0.,0.,0.,17140.,17150.,0.,0.,0.,0.,0.,0.,
- 17150.,17160.,0.,0.,0.,0.,0.,0.,17160.,17170.,0.,0.,0.,0.,0.,0.,
- 17170.,17180.,0.,0.,0.,0.,0.,0.,17180.,17190.,0.,0.,0.,0.,0.,0.,
- 17190.,17200.,0.,0.,0.,0.,0.,0.,17200.,17210.,0.,0.,0.,0.,0.,0.,
- 17210.,17220.,0.,0.,0.,0.,0.,0.,17220.,17230.,0.,0.,0.,0.,0.,0.,
- 17230.,17240.,0.,0.,0.,0.,0.,0.,17240.,17250.,0.,0.,0.,0.,0.,0.,
- 17250.,17260.,0.,0.,0.,0.,0.,0.,17260.,17270.,0.,0.,0.,0.,0.,0.,
- 17270.,17280.,0.,0.,0.,0.,0.,0.,17280.,17290.,0.,0.,0.,0.,0.,0.,
- 17290.,17300.,0.,0.,0.,0.,0.,0.,17300.,17310.,0.,0.,0.,0.,0.,0.,
- 17310.,17320.,0.,0.,0.,0.,0.,0.,17320.,17330.,0.,0.,0.,0.,0.,0.,
- 17330.,17340.,0.,0.,0.,0.,0.,0.,17340.,17350.,0.,0.,0.,0.,0.,0.,
- 17350.,17360.,0.,0.,0.,0.,0.,0.,17360.,17370.,0.,0.,0.,0.,0.,0.,
- 17370.,17380.,0.,0.,0.,0.,0.,0.,17380.,17390.,0.,0.,0.,0.,0.,0.,
- 17390.,17400.,0.,0.,0.,0.,0.,0.,17400.,17410.,0.,0.,0.,0.,0.,0.,
- 17410.,17420.,0.,0.,0.,0.,0.,0.,17420.,17430.,0.,0.,0.,0.,0.,0.,
- 17430.,17440.,0.,0.,0.,0.,0.,0.,17440.,17450.,0.,0.,0.,0.,0.,0.,
- 17450.,17460.,0.,0.,0.,0.,0.,0.,17460.,17470.,0.,0.,0.,0.,0.,0.,
- 17470.,17480.,0.,0.,0.,0.,0.,0.,17480.,17490.,0.,0.,0.,0.,0.,0.,
- 17490.,17500.,0.,0.,0.,0.,0.,0.,17500.,17510.,0.,0.,0.,0.,0.,0.,
- 17510.,17520.,0.,0.,0.,0.,0.,0.,17520.,17530.,0.,0.,0.,0.,0.,0.,
- 17530.,17540.,0.,0.,0.,0.,0.,0.,17540.,17550.,0.,0.,0.,0.,0.,0.,
- 17550.,17560.,0.,0.,0.,0.,0.,0.,17560.,17570.,0.,0.,0.,0.,0.,0.,
- 17570.,17580.,0.,0.,0.,0.,0.,0.,17580.,17590.,0.,0.,0.,0.,0.,0.,
- 17590.,17600.,0.,0.,0.,0.,0.,0.,17600.,17610.,0.,0.,0.,0.,0.,0.,
- 17610.,17620.,0.,0.,0.,0.,0.,0.,17620.,17630.,0.,0.,0.,0.,0.,0.,
- 17630.,17640.,0.,0.,0.,0.,0.,0.,17640.,17650.,0.,0.,0.,0.,0.,0.,
- 17650.,17660.,0.,0.,0.,0.,0.,0.,17660.,17670.,0.,0.,0.,0.,0.,0.,
- 17670.,17680.,0.,0.,0.,0.,0.,0.,17680.,17690.,0.,0.,0.,0.,0.,0.,
- 17690.,17700.,0.,0.,0.,0.,0.,0.,17700.,17710.,0.,0.,0.,0.,0.,0.,
- 17710.,17720.,0.,0.,0.,0.,0.,0.,17720.,17730.,0.,0.,0.,0.,0.,0.,
- 17730.,17740.,0.,0.,0.,0.,0.,0.,17740.,17750.,0.,0.,0.,0.,0.,0.,
- 17750.,17760.,0.,0.,0.,0.,0.,0.,17760.,17770.,0.,0.,0.,0.,0.,0.,
- 17770.,17780.,0.,0.,0.,0.,0.,0.,17780.,17790.,0.,0.,0.,0.,0.,0.,
- 17790.,17800.,0.,0.,0.,0.,0.,0.,17800.,17810.,0.,0.,0.,0.,0.,0.,
- 17810.,17820.,0.,0.,0.,0.,0.,0.,17820.,17830.,0.,0.,0.,0.,0.,0.,
- 17830.,17840.,0.,0.,0.,0.,0.,0.,17840.,17850.,0.,0.,0.,0.,0.,0.,
- 17850.,17860. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* oxygen (15300 - 17870 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* oxyg6_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.f b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.f
deleted file mode 100644
index a7a6522..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine oxyg6(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c oxygen (15300 - 17870 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15300e+05, 0.15310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15310e+05, 0.15320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15320e+05, 0.15330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15330e+05, 0.15340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15340e+05, 0.15350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15350e+05, 0.15360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15360e+05, 0.15370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15370e+05, 0.15380e+05/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15380e+05, 0.15390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15390e+05, 0.15400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15400e+05, 0.15410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15410e+05, 0.15420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15420e+05, 0.15430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15430e+05, 0.15440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15440e+05, 0.15450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15450e+05, 0.15460e+05/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15460e+05, 0.15470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15470e+05, 0.15480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15480e+05, 0.15490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15490e+05, 0.15500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15500e+05, 0.15510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15510e+05, 0.15520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15520e+05, 0.15530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15530e+05, 0.15540e+05/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15540e+05, 0.15550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15550e+05, 0.15560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15560e+05, 0.15570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15570e+05, 0.15580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15580e+05, 0.15590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15590e+05, 0.15600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15600e+05, 0.15610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15610e+05, 0.15620e+05/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15620e+05, 0.15630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15630e+05, 0.15640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15640e+05, 0.15650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15650e+05, 0.15660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15660e+05, 0.15670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15670e+05, 0.15680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15680e+05, 0.15690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15690e+05, 0.15700e+05/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15700e+05, 0.15710e+05,
- a 0.15960e-07, 0.18194e-01, 0.38561e-01,-0.15424e-03, 0.36533e-01,
- a-0.15016e-03, 0.15710e+05, 0.15720e+05,
- a 0.15504e-07, 0.18194e-01, 0.38520e-01,-0.15408e-03, 0.36492e-01,
- a-0.15000e-03, 0.15720e+05, 0.15730e+05,
- a 0.86149e-07, 0.36385e-01, 0.34090e-01,-0.13636e-03, 0.32063e-01,
- a-0.13228e-03, 0.15730e+05, 0.15740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15740e+05, 0.15750e+05,
- a 0.22012e-06, 0.36385e-01, 0.29911e-01,-0.11964e-03, 0.27883e-01,
- a-0.11556e-03, 0.15750e+05, 0.15760e+05,
- a 0.52469e-06, 0.36384e-01, 0.26002e-01,-0.10401e-03, 0.23974e-01,
- a-0.99924e-04, 0.15760e+05, 0.15770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15770e+05, 0.15780e+05/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.11652e-05, 0.37236e-01, 0.22365e-01,-0.89458e-04, 0.20337e-01,
- a-0.85374e-04, 0.15780e+05, 0.15790e+05,
- a 0.24086e-05, 0.38115e-01, 0.19000e-01,-0.75998e-04, 0.16972e-01,
- a-0.71915e-04, 0.15790e+05, 0.15800e+05,
- a 0.46300e-05, 0.39407e-01, 0.15907e-01,-0.63629e-04, 0.13880e-01,
- a-0.59545e-04, 0.15800e+05, 0.15810e+05,
- a 0.42478e-05, 0.19927e-01, 0.13110e-01,-0.52439e-04, 0.11082e-01,
- a-0.48357e-04, 0.15810e+05, 0.15820e+05,
- a 0.40121e-05, 0.19927e-01, 0.13066e-01,-0.52262e-04, 0.11038e-01,
- a-0.48180e-04, 0.15820e+05, 0.15830e+05,
- a 0.13653e-04, 0.41148e-01, 0.10543e-01,-0.42171e-04, 0.85153e-02,
- a-0.38088e-04, 0.15830e+05, 0.15840e+05,
- a 0.20849e-04, 0.43340e-01, 0.82714e-02,-0.33085e-04, 0.62412e-02,
- a-0.28988e-04, 0.15840e+05, 0.15850e+05,
- a 0.29295e-04, 0.44164e-01, 0.62748e-02,-0.25099e-04, 0.42470e-02,
- a-0.21015e-04, 0.15850e+05, 0.15860e+05/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.37680e-04, 0.45464e-01, 0.45528e-02,-0.18211e-04, 0.25250e-02,
- a-0.14127e-04, 0.15860e+05, 0.15870e+05,
- a 0.68735e-04, 0.70552e-01, 0.26882e-02,-0.10606e-04, 0.67182e-03,
- a-0.66419e-05, 0.15870e+05, 0.15880e+05,
- a 0.62284e-04, 0.71735e-01, 0.13301e-02,-0.52392e-05,-0.70196e-03,
- a-0.11788e-05, 0.15880e+05, 0.15890e+05,
- a 0.39741e-04, 0.77900e-01, 0.35779e-03,-0.11367e-05,-0.13542e-02,
- a 0.45537e-05, 0.15890e+05, 0.15900e+05,
- a 0.16287e-04, 0.58682e-01, 0.31178e-03, 0.24589e-05, 0.53130e-03,
- a 0.13293e-04, 0.15900e+05, 0.15910e+05,
- a 0.99855e-04, 0.14228e+00, 0.13456e-02,-0.16726e-05, 0.10356e-02,
- a 0.34749e-05, 0.15910e+05, 0.15920e+05,
- a 0.19246e-03, 0.31716e+00, 0.57540e-02,-0.16318e-04, 0.52332e-02,
- a-0.19378e-04, 0.15920e+05, 0.15930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15930e+05, 0.15940e+05/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15940e+05, 0.15950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15950e+05, 0.15960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15960e+05, 0.15970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15970e+05, 0.15980e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15980e+05, 0.15990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.15990e+05, 0.16000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16000e+05, 0.16010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16010e+05, 0.16020e+05/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16020e+05, 0.16030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16030e+05, 0.16040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16040e+05, 0.16050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16050e+05, 0.16060e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16060e+05, 0.16070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16070e+05, 0.16080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16080e+05, 0.16090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16090e+05, 0.16100e+05/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16100e+05, 0.16110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16110e+05, 0.16120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16120e+05, 0.16130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16130e+05, 0.16140e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16140e+05, 0.16150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16150e+05, 0.16160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16160e+05, 0.16170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16170e+05, 0.16180e+05/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16180e+05, 0.16190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16190e+05, 0.16200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16200e+05, 0.16210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16210e+05, 0.16220e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16220e+05, 0.16230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16230e+05, 0.16240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16240e+05, 0.16250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16250e+05, 0.16260e+05/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16260e+05, 0.16270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16270e+05, 0.16280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16280e+05, 0.16290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16290e+05, 0.16300e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16300e+05, 0.16310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16310e+05, 0.16320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16320e+05, 0.16330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16330e+05, 0.16340e+05/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16340e+05, 0.16350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16350e+05, 0.16360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16360e+05, 0.16370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16370e+05, 0.16380e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16380e+05, 0.16390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16390e+05, 0.16400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16400e+05, 0.16410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16410e+05, 0.16420e+05/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16420e+05, 0.16430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16430e+05, 0.16440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16440e+05, 0.16450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16450e+05, 0.16460e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16460e+05, 0.16470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16470e+05, 0.16480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16480e+05, 0.16490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16490e+05, 0.16500e+05/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16500e+05, 0.16510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16510e+05, 0.16520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16520e+05, 0.16530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16530e+05, 0.16540e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16540e+05, 0.16550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16550e+05, 0.16560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16560e+05, 0.16570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16570e+05, 0.16580e+05/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16580e+05, 0.16590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16590e+05, 0.16600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16600e+05, 0.16610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16610e+05, 0.16620e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16620e+05, 0.16630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16630e+05, 0.16640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16640e+05, 0.16650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16650e+05, 0.16660e+05/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16660e+05, 0.16670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16670e+05, 0.16680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16680e+05, 0.16690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16690e+05, 0.16700e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16700e+05, 0.16710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16710e+05, 0.16720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16720e+05, 0.16730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16730e+05, 0.16740e+05/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16740e+05, 0.16750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16750e+05, 0.16760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16760e+05, 0.16770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16770e+05, 0.16780e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16780e+05, 0.16790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16790e+05, 0.16800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16800e+05, 0.16810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16810e+05, 0.16820e+05/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16820e+05, 0.16830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16830e+05, 0.16840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16840e+05, 0.16850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16850e+05, 0.16860e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16860e+05, 0.16870e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16870e+05, 0.16880e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16880e+05, 0.16890e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16890e+05, 0.16900e+05/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16900e+05, 0.16910e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16910e+05, 0.16920e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16920e+05, 0.16930e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16930e+05, 0.16940e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16940e+05, 0.16950e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16950e+05, 0.16960e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16960e+05, 0.16970e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16970e+05, 0.16980e+05/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16980e+05, 0.16990e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.16990e+05, 0.17000e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17000e+05, 0.17010e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17010e+05, 0.17020e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17020e+05, 0.17030e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17030e+05, 0.17040e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17040e+05, 0.17050e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17050e+05, 0.17060e+05/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17060e+05, 0.17070e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17070e+05, 0.17080e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17080e+05, 0.17090e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17090e+05, 0.17100e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17100e+05, 0.17110e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17110e+05, 0.17120e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17120e+05, 0.17130e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17130e+05, 0.17140e+05/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17140e+05, 0.17150e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17150e+05, 0.17160e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17160e+05, 0.17170e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17170e+05, 0.17180e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17180e+05, 0.17190e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17190e+05, 0.17200e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17200e+05, 0.17210e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17210e+05, 0.17220e+05/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17220e+05, 0.17230e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17230e+05, 0.17240e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17240e+05, 0.17250e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17250e+05, 0.17260e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17260e+05, 0.17270e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17270e+05, 0.17280e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17280e+05, 0.17290e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17290e+05, 0.17300e+05/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17300e+05, 0.17310e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17310e+05, 0.17320e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17320e+05, 0.17330e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17330e+05, 0.17340e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17340e+05, 0.17350e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17350e+05, 0.17360e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17360e+05, 0.17370e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17370e+05, 0.17380e+05/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17380e+05, 0.17390e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17390e+05, 0.17400e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17400e+05, 0.17410e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17410e+05, 0.17420e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17420e+05, 0.17430e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17430e+05, 0.17440e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17440e+05, 0.17450e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17450e+05, 0.17460e+05/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17460e+05, 0.17470e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17470e+05, 0.17480e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17480e+05, 0.17490e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17490e+05, 0.17500e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17500e+05, 0.17510e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17510e+05, 0.17520e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17520e+05, 0.17530e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17530e+05, 0.17540e+05/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17540e+05, 0.17550e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17550e+05, 0.17560e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17560e+05, 0.17570e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17570e+05, 0.17580e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17580e+05, 0.17590e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17590e+05, 0.17600e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17600e+05, 0.17610e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17610e+05, 0.17620e+05/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17620e+05, 0.17630e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17630e+05, 0.17640e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17640e+05, 0.17650e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17650e+05, 0.17660e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17660e+05, 0.17670e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17670e+05, 0.17680e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17680e+05, 0.17690e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17690e+05, 0.17700e+05/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17700e+05, 0.17710e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17710e+05, 0.17720e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17720e+05, 0.17730e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17730e+05, 0.17740e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17740e+05, 0.17750e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17750e+05, 0.17760e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17760e+05, 0.17770e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17770e+05, 0.17780e+05/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17780e+05, 0.17790e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17790e+05, 0.17800e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17800e+05, 0.17810e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17810e+05, 0.17820e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17820e+05, 0.17830e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17830e+05, 0.17840e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17840e+05, 0.17850e+05,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.17850e+05, 0.17860e+05/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.h b/Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.h
deleted file mode 100644
index 732de27..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OXYG6.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_oxyg6_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OZON1.P b/Modules/ThirdParty/6S/src/6SV1.0B/OZON1.P
deleted file mode 100644
index 9f9d121..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OZON1.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int ozon1_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OZON1.c b/Modules/ThirdParty/6S/src/6SV1.0B/OZON1.c
deleted file mode 100644
index 738dcd4..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OZON1.c
+++ /dev/null
@@ -1,235 +0,0 @@
-/* OZON1.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine ozon1(a,inu) >*/
-/* Subroutine */ int ozon1_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { .062007,2.4365,
- -5.9503e-4,-8.1198e-6,-.0039418,-2.4624e-6,2500.,2510.,.023839,
- 2.3534,.0037377,-6.15e-6,.0015592,-1.2727e-5,2510.,2520.,.0090127,
- 1.2172,-.0014733,-4.7053e-6,-.0042092,-1.5909e-6,2520.,2530.,
- .0058863,1.1,3.3397e-4,-1.3388e-5,-.0024956,-9.7955e-6,2530.,
- 2540.,.0021326,.57054,.0025704,-2.3597e-5,-2.6961e-4,-1.9566e-5,
- 2540.,2550.,2.6378e-4,.095762,.0021816,-2.4506e-5,-8.9441e-4,
- -1.8362e-5,2550.,2560.,0.,0.,0.,0.,0.,0.,2560.,2570.,0.,0.,0.,0.,
- 0.,0.,2570.,2580.,0.,0.,0.,0.,0.,0.,2580.,2590.,0.,0.,0.,0.,0.,0.,
- 2590.,2600.,0.,0.,0.,0.,0.,0.,2600.,2610.,1.2538e-4,.06037,
- .017057,-8.3526e-5,.013989,-7.7656e-5,2610.,2620.,.0033172,1.2606,
- .015787,-6.9353e-5,.013123,-6.8937e-5,2620.,2630.,.008713,2.2667,
- .014103,-5.7967e-5,.011482,-5.9919e-5,2630.,2640.,.0172,3.144,
- .011768,-4.8179e-5,.0088246,-4.9702e-5,2640.,2650.,.034158,3.5816,
- .0099884,-4.184e-5,.0074214,-4.4219e-5,2650.,2660.,.058424,3.8732,
- .0072077,-3.3325e-5,.004529,-3.3709e-5,2660.,2670.,.091154,4.3262,
- .0058558,-2.8338e-5,.0036931,-2.8993e-5,2670.,2680.,.14108,4.4142,
- .0030363,-1.8897e-5,8.3735e-4,-1.8016e-5,2680.,2690.,.19337,
- 5.4007,.0022914,-1.3229e-5,5.9045e-4,-1.4091e-5,2690.,2700.,
- .22397,5.654,4.0913e-4,-5.5214e-8,-4.337e-4,-1.0921e-6,2700.,
- 2710.,.25652,5.9001,.0016172,5.8755e-6,.0013629,-1.6939e-6,2710.,
- 2720.,.26204,6.3198,.0046886,1.25e-5,.0044002,-9.3401e-6,2720.,
- 2730.,1.1785,7.1393,.0037596,-7.5943e-6,.0028497,-1.6442e-5,2730.,
- 2740.,1.2094,5.2539,.0056671,-2.7298e-5,.0028397,-2.2464e-5,2740.,
- 2750.,2.6976,4.6649,.0025634,-2.0935e-5,3.1356e-4,-1.7037e-5,
- 2750.,2760.,5.2789,4.5914,-7.3997e-4,-9.2529e-6,-.0021265,
- -8.3858e-6,2760.,2770.,5.611,6.1724,-.0032253,2.5797e-6,-.0028278,
- 8.7898e-8,2770.,2780.,4.928,9.4156,-.0020334,1.9294e-6,-.0030249,
- -1.069e-6,2780.,2790.,9.8978,7.256,-.0024986,-1.5096e-6,-.0036608,
- -5.8064e-7,2790.,2800.,3.3206,9.3181,.0047633,-2.5074e-5,.0053638,
- -3.2113e-5,2800.,2810.,.02474,2.6388,.0070889,-3.2967e-5,.0046677,
- -3.4491e-5,2810.,2820.,.034545,2.9892,.0049198,-2.638e-5,.0026057,
- -2.5038e-5,2820.,2830.,.04698,4.234,.0050308,-1.5985e-5,.0030829,
- -2.1189e-5,2830.,2840.,.07243,5.0065,.0059166,-2.0703e-5,.0028776,
- -2.3414e-5,2840.,2850.,.11034,4.0562,.0040989,-2.3368e-5,8.42e-4,
- -1.8356e-5,2850.,2860.,.12579,3.6106,.0011211,-1.2332e-5,
- -8.604e-4,-1.0593e-5,2860.,2870.,.095405,4.2611,.0010479,
- -5.3844e-6,-6.5774e-4,-8.3477e-6,2870.,2880.,.092029,4.3877,
- .0013349,-8.8914e-6,-8.978e-4,-9.601e-6,2880.,2890.,.085314,
- 2.2957,-.0010376,-3.9555e-7,-.0023459,-3.1759e-6,2890.,2900.,
- .1913,2.1329,9.3145e-5,-1.0935e-5,-.0023306,-7.0411e-6,2900.,
- 2910.,.14327,3.0363,.0049245,-1.9969e-5,.0019913,-1.9177e-5,2910.,
- 2920.,.062081,2.9232,.0028349,4.5083e-6,.0026887,-6.9673e-6,2920.,
- 2930.,.054536,2.5833,.003389,5.9711e-6,.0039633,1.706e-6,2930.,
- 2940.,.067558,4.1622,.012948,1.8636e-5,.013881,-2.7246e-5,2940.,
- 2950.,.10694,4.2481,.019447,-4.2948e-5,.016908,-6.0648e-5,2950.,
- 2960.,.23821,4.1323,.020561,-8.5072e-5,.016888,-7.7856e-5,2960.,
- 2970.,.64222,3.762,.01732,-8.1718e-5,.014625,-7.652e-5,2970.,
- 2980.,1.63,3.7899,.013216,-6.5623e-5,.011621,-6.3803e-5,2980.,
- 2990.,3.8611,4.0234,.0091789,-4.9247e-5,.0082148,-4.8334e-5,2990.,
- 3e3,8.4985,4.366,.0053518,-3.3739e-5,.0046322,-3.3282e-5,3e3,
- 3010.,16.437,4.6428,.0018372,-1.9254e-5,.0014965,-1.9554e-5,3010.,
- 3020.,26.227,5.2685,-.0010368,-6.92e-6,-.0010546,-7.8474e-6,3020.,
- 3030.,29.674,6.9683,-.0027894,1.5655e-6,-.0027673,3.4286e-7,3030.,
- 3040.,24.306,9.5097,-.002074,6.2838e-6,-.0020776,2.179e-6,3040.,
- 3050.,63.521,9.8031,-.0012075,-2.994e-6,-.0022793,-5.3779e-6,
- 3050.,3060.,1.1941,5.4609,.0015524,-9.5161e-6,-9.6618e-4,
- -7.6711e-6,3060.,3070.,.92867,5.355,-6.2368e-4,-3.643e-6,
- -.0029524,-1.6001e-6,3070.,3080.,.67841,5.2135,5.235e-4,6.0726e-6,
- -3.7339e-4,-2.3662e-6,3080.,3090.,3.1429,5.2297,.0017001,
- -8.0369e-6,-2.527e-4,-9.2399e-6,3090.,3100.,.55537,4.0641,
- -8.4176e-4,3.74e-7,-.0020788,-8.3774e-7,3100.,3110.,.62683,4.1264,
- -6.4674e-4,-8.4882e-7,-5.9275e-4,-1.4998e-6,3110.,3120.,.75072,
- 5.6505,.0024151,-8.8833e-6,.0024005,-1.4915e-5,3120.,3130.,.63692,
- 5.2929,.0052702,-2.0599e-5,.0049282,-2.9353e-5,3130.,3140.,.6931,
- 5.7878,.0069797,-3.6776e-5,.0052917,-3.67e-5,3140.,3150.,1.0593,
- 5.0675,.0040985,-2.5996e-5,.0032401,-2.8071e-5,3150.,3160.,1.7493,
- 4.5943,-1.8037e-4,-8.6286e-6,2.5807e-4,-1.0009e-5,3160.,3170.,
- 2.0855,5.9045,-.0022784,1.4682e-6,-.0024776,-2.9964e-6,3170.,
- 3180.,1.3759,5.4986,-.0034094,2.6712e-6,-.0053592,5.6885e-6,3180.,
- 3190.,3.923,8.3024,-.0018506,-3.5742e-7,-.0024786,-1.1732e-6,
- 3190.,3200.,1.1841,5.1604,.0039237,-2.2108e-5,.0038274,-2.7628e-5,
- 3200.,3210.,0.,0.,0.,0.,0.,0.,3210.,3220.,5.5594e-4,.13449,
- 1.458e-4,-1.5828e-5,-.0029023,-1.0057e-5,3220.,3230.,0.,0.,0.,0.,
- 0.,0.,3230.,3240.,0.,0.,0.,0.,0.,0.,3240.,3250.,0.,0.,0.,0.,0.,0.,
- 3250.,3260.,0.,0.,0.,0.,0.,0.,3260.,3270.,0.,0.,0.,0.,0.,0.,3270.,
- 3280.,0.,0.,0.,0.,0.,0.,3280.,3290.,0.,0.,0.,0.,0.,0.,3290.,3300.,
- 0.,0.,0.,0.,0.,0.,3300.,3310.,0.,0.,0.,0.,0.,0.,3310.,3320.,0.,0.,
- 0.,0.,0.,0.,3320.,3330.,0.,0.,0.,0.,0.,0.,3330.,3340.,0.,0.,0.,0.,
- 0.,0.,3340.,3350.,0.,0.,0.,0.,0.,0.,3350.,3360.,0.,0.,0.,0.,0.,0.,
- 3360.,3370.,0.,0.,0.,0.,0.,0.,3370.,3380.,0.,0.,0.,0.,0.,0.,3380.,
- 3390.,0.,0.,0.,0.,0.,0.,3390.,3400.,0.,0.,0.,0.,0.,0.,3400.,3410.,
- 0.,0.,0.,0.,0.,0.,3410.,3420.,0.,0.,0.,0.,0.,0.,3420.,3430.,0.,0.,
- 0.,0.,0.,0.,3430.,3440.,0.,0.,0.,0.,0.,0.,3440.,3450.,0.,0.,0.,0.,
- 0.,0.,3450.,3460.,0.,0.,0.,0.,0.,0.,3460.,3470.,0.,0.,0.,0.,0.,0.,
- 3470.,3480.,0.,0.,0.,0.,0.,0.,3480.,3490.,0.,0.,0.,0.,0.,0.,3490.,
- 3500.,0.,0.,0.,0.,0.,0.,3500.,3510.,0.,0.,0.,0.,0.,0.,3510.,3520.,
- 0.,0.,0.,0.,0.,0.,3520.,3530.,0.,0.,0.,0.,0.,0.,3530.,3540.,0.,0.,
- 0.,0.,0.,0.,3540.,3550.,0.,0.,0.,0.,0.,0.,3550.,3560.,0.,0.,0.,0.,
- 0.,0.,3560.,3570.,0.,0.,0.,0.,0.,0.,3570.,3580.,0.,0.,0.,0.,0.,0.,
- 3580.,3590.,0.,0.,0.,0.,0.,0.,3590.,3600.,0.,0.,0.,0.,0.,0.,3600.,
- 3610.,0.,0.,0.,0.,0.,0.,3610.,3620.,0.,0.,0.,0.,0.,0.,3620.,3630.,
- 0.,0.,0.,0.,0.,0.,3630.,3640.,0.,0.,0.,0.,0.,0.,3640.,3650.,0.,0.,
- 0.,0.,0.,0.,3650.,3660.,0.,0.,0.,0.,0.,0.,3660.,3670.,0.,0.,0.,0.,
- 0.,0.,3670.,3680.,0.,0.,0.,0.,0.,0.,3680.,3690.,0.,0.,0.,0.,0.,0.,
- 3690.,3700.,0.,0.,0.,0.,0.,0.,3700.,3710.,0.,0.,0.,0.,0.,0.,3710.,
- 3720.,0.,0.,0.,0.,0.,0.,3720.,3730.,0.,0.,0.,0.,0.,0.,3730.,3740.,
- 0.,0.,0.,0.,0.,0.,3740.,3750.,0.,0.,0.,0.,0.,0.,3750.,3760.,0.,0.,
- 0.,0.,0.,0.,3760.,3770.,0.,0.,0.,0.,0.,0.,3770.,3780.,0.,0.,0.,0.,
- 0.,0.,3780.,3790.,0.,0.,0.,0.,0.,0.,3790.,3800.,0.,0.,0.,0.,0.,0.,
- 3800.,3810.,0.,0.,0.,0.,0.,0.,3810.,3820.,0.,0.,0.,0.,0.,0.,3820.,
- 3830.,0.,0.,0.,0.,0.,0.,3830.,3840.,0.,0.,0.,0.,0.,0.,3840.,3850.,
- 0.,0.,0.,0.,0.,0.,3850.,3860.,0.,0.,0.,0.,0.,0.,3860.,3870.,0.,0.,
- 0.,0.,0.,0.,3870.,3880.,0.,0.,0.,0.,0.,0.,3880.,3890.,0.,0.,0.,0.,
- 0.,0.,3890.,3900.,0.,0.,0.,0.,0.,0.,3900.,3910.,0.,0.,0.,0.,0.,0.,
- 3910.,3920.,0.,0.,0.,0.,0.,0.,3920.,3930.,0.,0.,0.,0.,0.,0.,3930.,
- 3940.,0.,0.,0.,0.,0.,0.,3940.,3950.,0.,0.,0.,0.,0.,0.,3950.,3960.,
- 0.,0.,0.,0.,0.,0.,3960.,3970.,0.,0.,0.,0.,0.,0.,3970.,3980.,0.,0.,
- 0.,0.,0.,0.,3980.,3990.,0.,0.,0.,0.,0.,0.,3990.,4e3,0.,0.,0.,0.,
- 0.,0.,4e3,4010.,0.,0.,0.,0.,0.,0.,4010.,4020.,0.,0.,0.,0.,0.,0.,
- 4020.,4030.,0.,0.,0.,0.,0.,0.,4030.,4040.,0.,0.,0.,0.,0.,0.,4040.,
- 4050.,0.,0.,0.,0.,0.,0.,4050.,4060.,0.,0.,0.,0.,0.,0.,4060.,4070.,
- 0.,0.,0.,0.,0.,0.,4070.,4080.,0.,0.,0.,0.,0.,0.,4080.,4090.,0.,0.,
- 0.,0.,0.,0.,4090.,4100.,0.,0.,0.,0.,0.,0.,4100.,4110.,0.,0.,0.,0.,
- 0.,0.,4110.,4120.,0.,0.,0.,0.,0.,0.,4120.,4130.,0.,0.,0.,0.,0.,0.,
- 4130.,4140.,0.,0.,0.,0.,0.,0.,4140.,4150.,0.,0.,0.,0.,0.,0.,4150.,
- 4160.,0.,0.,0.,0.,0.,0.,4160.,4170.,0.,0.,0.,0.,0.,0.,4170.,4180.,
- 0.,0.,0.,0.,0.,0.,4180.,4190.,0.,0.,0.,0.,0.,0.,4190.,4200.,0.,0.,
- 0.,0.,0.,0.,4200.,4210.,0.,0.,0.,0.,0.,0.,4210.,4220.,0.,0.,0.,0.,
- 0.,0.,4220.,4230.,0.,0.,0.,0.,0.,0.,4230.,4240.,0.,0.,0.,0.,0.,0.,
- 4240.,4250.,0.,0.,0.,0.,0.,0.,4250.,4260.,0.,0.,0.,0.,0.,0.,4260.,
- 4270.,0.,0.,0.,0.,0.,0.,4270.,4280.,0.,0.,0.,0.,0.,0.,4280.,4290.,
- 0.,0.,0.,0.,0.,0.,4290.,4300.,0.,0.,0.,0.,0.,0.,4300.,4310.,0.,0.,
- 0.,0.,0.,0.,4310.,4320.,0.,0.,0.,0.,0.,0.,4320.,4330.,0.,0.,0.,0.,
- 0.,0.,4330.,4340.,0.,0.,0.,0.,0.,0.,4340.,4350.,0.,0.,0.,0.,0.,0.,
- 4350.,4360.,0.,0.,0.,0.,0.,0.,4360.,4370.,0.,0.,0.,0.,0.,0.,4370.,
- 4380.,0.,0.,0.,0.,0.,0.,4380.,4390.,0.,0.,0.,0.,0.,0.,4390.,4400.,
- 0.,0.,0.,0.,0.,0.,4400.,4410.,0.,0.,0.,0.,0.,0.,4410.,4420.,0.,0.,
- 0.,0.,0.,0.,4420.,4430.,0.,0.,0.,0.,0.,0.,4430.,4440.,0.,0.,0.,0.,
- 0.,0.,4440.,4450.,0.,0.,0.,0.,0.,0.,4450.,4460.,0.,0.,0.,0.,0.,0.,
- 4460.,4470.,0.,0.,0.,0.,0.,0.,4470.,4480.,0.,0.,0.,0.,0.,0.,4480.,
- 4490.,0.,0.,0.,0.,0.,0.,4490.,4500.,0.,0.,0.,0.,0.,0.,4500.,4510.,
- 0.,0.,0.,0.,0.,0.,4510.,4520.,0.,0.,0.,0.,0.,0.,4520.,4530.,0.,0.,
- 0.,0.,0.,0.,4530.,4540.,0.,0.,0.,0.,0.,0.,4540.,4550.,0.,0.,0.,0.,
- 0.,0.,4550.,4560.,0.,0.,0.,0.,0.,0.,4560.,4570.,0.,0.,0.,0.,0.,0.,
- 4570.,4580.,0.,0.,0.,0.,0.,0.,4580.,4590.,0.,0.,0.,0.,0.,0.,4590.,
- 4600.,0.,0.,0.,0.,0.,0.,4600.,4610.,0.,0.,0.,0.,0.,0.,4610.,4620.,
- 0.,0.,0.,0.,0.,0.,4620.,4630.,0.,0.,0.,0.,0.,0.,4630.,4640.,0.,0.,
- 0.,0.,0.,0.,4640.,4650.,0.,0.,0.,0.,0.,0.,4650.,4660.,0.,0.,0.,0.,
- 0.,0.,4660.,4670.,0.,0.,0.,0.,0.,0.,4670.,4680.,0.,0.,0.,0.,0.,0.,
- 4680.,4690.,0.,0.,0.,0.,0.,0.,4690.,4700.,0.,0.,0.,0.,0.,0.,4700.,
- 4710.,0.,0.,0.,0.,0.,0.,4710.,4720.,0.,0.,0.,0.,0.,0.,4720.,4730.,
- 0.,0.,0.,0.,0.,0.,4730.,4740.,0.,0.,0.,0.,0.,0.,4740.,4750.,0.,0.,
- 0.,0.,0.,0.,4750.,4760.,0.,0.,0.,0.,0.,0.,4760.,4770.,0.,0.,0.,0.,
- 0.,0.,4770.,4780.,0.,0.,0.,0.,0.,0.,4780.,4790.,0.,0.,0.,0.,0.,0.,
- 4790.,4800.,0.,0.,0.,0.,0.,0.,4800.,4810.,0.,0.,0.,0.,0.,0.,4810.,
- 4820.,0.,0.,0.,0.,0.,0.,4820.,4830.,0.,0.,0.,0.,0.,0.,4830.,4840.,
- 0.,0.,0.,0.,0.,0.,4840.,4850.,0.,0.,0.,0.,0.,0.,4850.,4860.,0.,0.,
- 0.,0.,0.,0.,4860.,4870.,0.,0.,0.,0.,0.,0.,4870.,4880.,0.,0.,0.,0.,
- 0.,0.,4880.,4890.,0.,0.,0.,0.,0.,0.,4890.,4900.,0.,0.,0.,0.,0.,0.,
- 4900.,4910.,0.,0.,0.,0.,0.,0.,4910.,4920.,0.,0.,0.,0.,0.,0.,4920.,
- 4930.,0.,0.,0.,0.,0.,0.,4930.,4940.,0.,0.,0.,0.,0.,0.,4940.,4950.,
- 0.,0.,0.,0.,0.,0.,4950.,4960.,0.,0.,0.,0.,0.,0.,4960.,4970.,0.,0.,
- 0.,0.,0.,0.,4970.,4980.,0.,0.,0.,0.,0.,0.,4980.,4990.,0.,0.,0.,0.,
- 0.,0.,4990.,5e3,0.,0.,0.,0.,0.,0.,5e3,5010.,0.,0.,0.,0.,0.,0.,
- 5010.,5020.,0.,0.,0.,0.,0.,0.,5020.,5030.,0.,0.,0.,0.,0.,0.,5030.,
- 5040.,0.,0.,0.,0.,0.,0.,5040.,5050.,0.,0.,0.,0.,0.,0.,5050.,5060.
- };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-/* ozone (2500 - 5040 cm-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* ozon1_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OZON1.f b/Modules/ThirdParty/6S/src/6SV1.0B/OZON1.f
deleted file mode 100644
index c651795..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OZON1.f
+++ /dev/null
@@ -1,557 +0,0 @@
- subroutine ozon1(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-c ozone (2500 - 5040 cm-1)
-c
- data ((acr(k,j),k=1,8),j= 1, 8) /
- a 0.62007e-01, 0.24365e+01,-0.59503e-03,-0.81198e-05,-0.39418e-02,
- a-0.24624e-05, 0.25000e+04, 0.25100e+04,
- a 0.23839e-01, 0.23534e+01, 0.37377e-02,-0.61500e-05, 0.15592e-02,
- a-0.12727e-04, 0.25100e+04, 0.25200e+04,
- a 0.90127e-02, 0.12172e+01,-0.14733e-02,-0.47053e-05,-0.42092e-02,
- a-0.15909e-05, 0.25200e+04, 0.25300e+04,
- a 0.58863e-02, 0.11000e+01, 0.33397e-03,-0.13388e-04,-0.24956e-02,
- a-0.97955e-05, 0.25300e+04, 0.25400e+04,
- a 0.21326e-02, 0.57054e+00, 0.25704e-02,-0.23597e-04,-0.26961e-03,
- a-0.19566e-04, 0.25400e+04, 0.25500e+04,
- a 0.26378e-03, 0.95762e-01, 0.21816e-02,-0.24506e-04,-0.89441e-03,
- a-0.18362e-04, 0.25500e+04, 0.25600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25600e+04, 0.25700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25700e+04, 0.25800e+04/
- data ((acr(k,j),k=1,8),j= 9, 16) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25800e+04, 0.25900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.25900e+04, 0.26000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.26000e+04, 0.26100e+04,
- a 0.12538e-03, 0.60370e-01, 0.17057e-01,-0.83526e-04, 0.13989e-01,
- a-0.77656e-04, 0.26100e+04, 0.26200e+04,
- a 0.33172e-02, 0.12606e+01, 0.15787e-01,-0.69353e-04, 0.13123e-01,
- a-0.68937e-04, 0.26200e+04, 0.26300e+04,
- a 0.87130e-02, 0.22667e+01, 0.14103e-01,-0.57967e-04, 0.11482e-01,
- a-0.59919e-04, 0.26300e+04, 0.26400e+04,
- a 0.17200e-01, 0.31440e+01, 0.11768e-01,-0.48179e-04, 0.88246e-02,
- a-0.49702e-04, 0.26400e+04, 0.26500e+04,
- a 0.34158e-01, 0.35816e+01, 0.99884e-02,-0.41840e-04, 0.74214e-02,
- a-0.44219e-04, 0.26500e+04, 0.26600e+04/
- data ((acr(k,j),k=1,8),j= 17, 24) /
- a 0.58424e-01, 0.38732e+01, 0.72077e-02,-0.33325e-04, 0.45290e-02,
- a-0.33709e-04, 0.26600e+04, 0.26700e+04,
- a 0.91154e-01, 0.43262e+01, 0.58558e-02,-0.28338e-04, 0.36931e-02,
- a-0.28993e-04, 0.26700e+04, 0.26800e+04,
- a 0.14108e+00, 0.44142e+01, 0.30363e-02,-0.18897e-04, 0.83735e-03,
- a-0.18016e-04, 0.26800e+04, 0.26900e+04,
- a 0.19337e+00, 0.54007e+01, 0.22914e-02,-0.13229e-04, 0.59045e-03,
- a-0.14091e-04, 0.26900e+04, 0.27000e+04,
- a 0.22397e+00, 0.56540e+01, 0.40913e-03,-0.55214e-07,-0.43370e-03,
- a-0.10921e-05, 0.27000e+04, 0.27100e+04,
- a 0.25652e+00, 0.59001e+01, 0.16172e-02, 0.58755e-05, 0.13629e-02,
- a-0.16939e-05, 0.27100e+04, 0.27200e+04,
- a 0.26204e+00, 0.63198e+01, 0.46886e-02, 0.12500e-04, 0.44002e-02,
- a-0.93401e-05, 0.27200e+04, 0.27300e+04,
- a 0.11785e+01, 0.71393e+01, 0.37596e-02,-0.75943e-05, 0.28497e-02,
- a-0.16442e-04, 0.27300e+04, 0.27400e+04/
- data ((acr(k,j),k=1,8),j= 25, 32) /
- a 0.12094e+01, 0.52539e+01, 0.56671e-02,-0.27298e-04, 0.28397e-02,
- a-0.22464e-04, 0.27400e+04, 0.27500e+04,
- a 0.26976e+01, 0.46649e+01, 0.25634e-02,-0.20935e-04, 0.31356e-03,
- a-0.17037e-04, 0.27500e+04, 0.27600e+04,
- a 0.52789e+01, 0.45914e+01,-0.73997e-03,-0.92529e-05,-0.21265e-02,
- a-0.83858e-05, 0.27600e+04, 0.27700e+04,
- a 0.56110e+01, 0.61724e+01,-0.32253e-02, 0.25797e-05,-0.28278e-02,
- a 0.87898e-07, 0.27700e+04, 0.27800e+04,
- a 0.49280e+01, 0.94156e+01,-0.20334e-02, 0.19294e-05,-0.30249e-02,
- a-0.10690e-05, 0.27800e+04, 0.27900e+04,
- a 0.98978e+01, 0.72560e+01,-0.24986e-02,-0.15096e-05,-0.36608e-02,
- a-0.58064e-06, 0.27900e+04, 0.28000e+04,
- a 0.33206e+01, 0.93181e+01, 0.47633e-02,-0.25074e-04, 0.53638e-02,
- a-0.32113e-04, 0.28000e+04, 0.28100e+04,
- a 0.24740e-01, 0.26388e+01, 0.70889e-02,-0.32967e-04, 0.46677e-02,
- a-0.34491e-04, 0.28100e+04, 0.28200e+04/
- data ((acr(k,j),k=1,8),j= 33, 40) /
- a 0.34545e-01, 0.29892e+01, 0.49198e-02,-0.26380e-04, 0.26057e-02,
- a-0.25038e-04, 0.28200e+04, 0.28300e+04,
- a 0.46980e-01, 0.42340e+01, 0.50308e-02,-0.15985e-04, 0.30829e-02,
- a-0.21189e-04, 0.28300e+04, 0.28400e+04,
- a 0.72430e-01, 0.50065e+01, 0.59166e-02,-0.20703e-04, 0.28776e-02,
- a-0.23414e-04, 0.28400e+04, 0.28500e+04,
- a 0.11034e+00, 0.40562e+01, 0.40989e-02,-0.23368e-04, 0.84200e-03,
- a-0.18356e-04, 0.28500e+04, 0.28600e+04,
- a 0.12579e+00, 0.36106e+01, 0.11211e-02,-0.12332e-04,-0.86040e-03,
- a-0.10593e-04, 0.28600e+04, 0.28700e+04,
- a 0.95405e-01, 0.42611e+01, 0.10479e-02,-0.53844e-05,-0.65774e-03,
- a-0.83477e-05, 0.28700e+04, 0.28800e+04,
- a 0.92029e-01, 0.43877e+01, 0.13349e-02,-0.88914e-05,-0.89780e-03,
- a-0.96010e-05, 0.28800e+04, 0.28900e+04,
- a 0.85314e-01, 0.22957e+01,-0.10376e-02,-0.39555e-06,-0.23459e-02,
- a-0.31759e-05, 0.28900e+04, 0.29000e+04/
- data ((acr(k,j),k=1,8),j= 41, 48) /
- a 0.19130e+00, 0.21329e+01, 0.93145e-04,-0.10935e-04,-0.23306e-02,
- a-0.70411e-05, 0.29000e+04, 0.29100e+04,
- a 0.14327e+00, 0.30363e+01, 0.49245e-02,-0.19969e-04, 0.19913e-02,
- a-0.19177e-04, 0.29100e+04, 0.29200e+04,
- a 0.62081e-01, 0.29232e+01, 0.28349e-02, 0.45083e-05, 0.26887e-02,
- a-0.69673e-05, 0.29200e+04, 0.29300e+04,
- a 0.54536e-01, 0.25833e+01, 0.33890e-02, 0.59711e-05, 0.39633e-02,
- a 0.17060e-05, 0.29300e+04, 0.29400e+04,
- a 0.67558e-01, 0.41622e+01, 0.12948e-01, 0.18636e-04, 0.13881e-01,
- a-0.27246e-04, 0.29400e+04, 0.29500e+04,
- a 0.10694e+00, 0.42481e+01, 0.19447e-01,-0.42948e-04, 0.16908e-01,
- a-0.60648e-04, 0.29500e+04, 0.29600e+04,
- a 0.23821e+00, 0.41323e+01, 0.20561e-01,-0.85072e-04, 0.16888e-01,
- a-0.77856e-04, 0.29600e+04, 0.29700e+04,
- a 0.64222e+00, 0.37620e+01, 0.17320e-01,-0.81718e-04, 0.14625e-01,
- a-0.76520e-04, 0.29700e+04, 0.29800e+04/
- data ((acr(k,j),k=1,8),j= 49, 56) /
- a 0.16300e+01, 0.37899e+01, 0.13216e-01,-0.65623e-04, 0.11621e-01,
- a-0.63803e-04, 0.29800e+04, 0.29900e+04,
- a 0.38611e+01, 0.40234e+01, 0.91789e-02,-0.49247e-04, 0.82148e-02,
- a-0.48334e-04, 0.29900e+04, 0.30000e+04,
- a 0.84985e+01, 0.43660e+01, 0.53518e-02,-0.33739e-04, 0.46322e-02,
- a-0.33282e-04, 0.30000e+04, 0.30100e+04,
- a 0.16437e+02, 0.46428e+01, 0.18372e-02,-0.19254e-04, 0.14965e-02,
- a-0.19554e-04, 0.30100e+04, 0.30200e+04,
- a 0.26227e+02, 0.52685e+01,-0.10368e-02,-0.69200e-05,-0.10546e-02,
- a-0.78474e-05, 0.30200e+04, 0.30300e+04,
- a 0.29674e+02, 0.69683e+01,-0.27894e-02, 0.15655e-05,-0.27673e-02,
- a 0.34286e-06, 0.30300e+04, 0.30400e+04,
- a 0.24306e+02, 0.95097e+01,-0.20740e-02, 0.62838e-05,-0.20776e-02,
- a 0.21790e-05, 0.30400e+04, 0.30500e+04,
- a 0.63521e+02, 0.98031e+01,-0.12075e-02,-0.29940e-05,-0.22793e-02,
- a-0.53779e-05, 0.30500e+04, 0.30600e+04/
- data ((acr(k,j),k=1,8),j= 57, 64) /
- a 0.11941e+01, 0.54609e+01, 0.15524e-02,-0.95161e-05,-0.96618e-03,
- a-0.76711e-05, 0.30600e+04, 0.30700e+04,
- a 0.92867e+00, 0.53550e+01,-0.62368e-03,-0.36430e-05,-0.29524e-02,
- a-0.16001e-05, 0.30700e+04, 0.30800e+04,
- a 0.67841e+00, 0.52135e+01, 0.52350e-03, 0.60726e-05,-0.37339e-03,
- a-0.23662e-05, 0.30800e+04, 0.30900e+04,
- a 0.31429e+01, 0.52297e+01, 0.17001e-02,-0.80369e-05,-0.25270e-03,
- a-0.92399e-05, 0.30900e+04, 0.31000e+04,
- a 0.55537e+00, 0.40641e+01,-0.84176e-03, 0.37400e-06,-0.20788e-02,
- a-0.83774e-06, 0.31000e+04, 0.31100e+04,
- a 0.62683e+00, 0.41264e+01,-0.64674e-03,-0.84882e-06,-0.59275e-03,
- a-0.14998e-05, 0.31100e+04, 0.31200e+04,
- a 0.75072e+00, 0.56505e+01, 0.24151e-02,-0.88833e-05, 0.24005e-02,
- a-0.14915e-04, 0.31200e+04, 0.31300e+04,
- a 0.63692e+00, 0.52929e+01, 0.52702e-02,-0.20599e-04, 0.49282e-02,
- a-0.29353e-04, 0.31300e+04, 0.31400e+04/
- data ((acr(k,j),k=1,8),j= 65, 72) /
- a 0.69310e+00, 0.57878e+01, 0.69797e-02,-0.36776e-04, 0.52917e-02,
- a-0.36700e-04, 0.31400e+04, 0.31500e+04,
- a 0.10593e+01, 0.50675e+01, 0.40985e-02,-0.25996e-04, 0.32401e-02,
- a-0.28071e-04, 0.31500e+04, 0.31600e+04,
- a 0.17493e+01, 0.45943e+01,-0.18037e-03,-0.86286e-05, 0.25807e-03,
- a-0.10009e-04, 0.31600e+04, 0.31700e+04,
- a 0.20855e+01, 0.59045e+01,-0.22784e-02, 0.14682e-05,-0.24776e-02,
- a-0.29964e-05, 0.31700e+04, 0.31800e+04,
- a 0.13759e+01, 0.54986e+01,-0.34094e-02, 0.26712e-05,-0.53592e-02,
- a 0.56885e-05, 0.31800e+04, 0.31900e+04,
- a 0.39230e+01, 0.83024e+01,-0.18506e-02,-0.35742e-06,-0.24786e-02,
- a-0.11732e-05, 0.31900e+04, 0.32000e+04,
- a 0.11841e+01, 0.51604e+01, 0.39237e-02,-0.22108e-04, 0.38274e-02,
- a-0.27628e-04, 0.32000e+04, 0.32100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32100e+04, 0.32200e+04/
- data ((acr(k,j),k=1,8),j= 73, 80) /
- a 0.55594e-03, 0.13449e+00, 0.14580e-03,-0.15828e-04,-0.29023e-02,
- a-0.10057e-04, 0.32200e+04, 0.32300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32300e+04, 0.32400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32400e+04, 0.32500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32500e+04, 0.32600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32600e+04, 0.32700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32700e+04, 0.32800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32800e+04, 0.32900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.32900e+04, 0.33000e+04/
- data ((acr(k,j),k=1,8),j= 81, 88) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33000e+04, 0.33100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33100e+04, 0.33200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33200e+04, 0.33300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33300e+04, 0.33400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33400e+04, 0.33500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33500e+04, 0.33600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33600e+04, 0.33700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33700e+04, 0.33800e+04/
- data ((acr(k,j),k=1,8),j= 89, 96) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33800e+04, 0.33900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.33900e+04, 0.34000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34000e+04, 0.34100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34100e+04, 0.34200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34200e+04, 0.34300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34300e+04, 0.34400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34400e+04, 0.34500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34500e+04, 0.34600e+04/
- data ((acr(k,j),k=1,8),j= 97,104) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34600e+04, 0.34700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34700e+04, 0.34800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34800e+04, 0.34900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.34900e+04, 0.35000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35000e+04, 0.35100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35100e+04, 0.35200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35200e+04, 0.35300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35300e+04, 0.35400e+04/
- data ((acr(k,j),k=1,8),j=105,112) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35400e+04, 0.35500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35500e+04, 0.35600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35600e+04, 0.35700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35700e+04, 0.35800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35800e+04, 0.35900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.35900e+04, 0.36000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36000e+04, 0.36100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36100e+04, 0.36200e+04/
- data ((acr(k,j),k=1,8),j=113,120) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36200e+04, 0.36300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36300e+04, 0.36400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36400e+04, 0.36500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36500e+04, 0.36600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36600e+04, 0.36700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36700e+04, 0.36800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36800e+04, 0.36900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.36900e+04, 0.37000e+04/
- data ((acr(k,j),k=1,8),j=121,128) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37000e+04, 0.37100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37100e+04, 0.37200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37200e+04, 0.37300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37300e+04, 0.37400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37400e+04, 0.37500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37500e+04, 0.37600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37600e+04, 0.37700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37700e+04, 0.37800e+04/
- data ((acr(k,j),k=1,8),j=129,136) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37800e+04, 0.37900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.37900e+04, 0.38000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.38000e+04, 0.38100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.38100e+04, 0.38200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.38200e+04, 0.38300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.38300e+04, 0.38400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.38400e+04, 0.38500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.38500e+04, 0.38600e+04/
- data ((acr(k,j),k=1,8),j=137,144) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.38600e+04, 0.38700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.38700e+04, 0.38800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.38800e+04, 0.38900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.38900e+04, 0.39000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39000e+04, 0.39100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39100e+04, 0.39200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39200e+04, 0.39300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39300e+04, 0.39400e+04/
- data ((acr(k,j),k=1,8),j=145,152) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39400e+04, 0.39500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39500e+04, 0.39600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39600e+04, 0.39700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39700e+04, 0.39800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39800e+04, 0.39900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.39900e+04, 0.40000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40000e+04, 0.40100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40100e+04, 0.40200e+04/
- data ((acr(k,j),k=1,8),j=153,160) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40200e+04, 0.40300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40300e+04, 0.40400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40400e+04, 0.40500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40500e+04, 0.40600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40600e+04, 0.40700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40700e+04, 0.40800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40800e+04, 0.40900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.40900e+04, 0.41000e+04/
- data ((acr(k,j),k=1,8),j=161,168) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41000e+04, 0.41100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41100e+04, 0.41200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41200e+04, 0.41300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41300e+04, 0.41400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41400e+04, 0.41500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41500e+04, 0.41600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41600e+04, 0.41700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41700e+04, 0.41800e+04/
- data ((acr(k,j),k=1,8),j=169,176) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41800e+04, 0.41900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.41900e+04, 0.42000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42000e+04, 0.42100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42100e+04, 0.42200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42200e+04, 0.42300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42300e+04, 0.42400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42400e+04, 0.42500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42500e+04, 0.42600e+04/
- data ((acr(k,j),k=1,8),j=177,184) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42600e+04, 0.42700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42700e+04, 0.42800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42800e+04, 0.42900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.42900e+04, 0.43000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43000e+04, 0.43100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43100e+04, 0.43200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43200e+04, 0.43300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43300e+04, 0.43400e+04/
- data ((acr(k,j),k=1,8),j=185,192) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43400e+04, 0.43500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43500e+04, 0.43600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43600e+04, 0.43700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43700e+04, 0.43800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43800e+04, 0.43900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.43900e+04, 0.44000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44000e+04, 0.44100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44100e+04, 0.44200e+04/
- data ((acr(k,j),k=1,8),j=193,200) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44200e+04, 0.44300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44300e+04, 0.44400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44400e+04, 0.44500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44500e+04, 0.44600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44600e+04, 0.44700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44700e+04, 0.44800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44800e+04, 0.44900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.44900e+04, 0.45000e+04/
- data ((acr(k,j),k=1,8),j=201,208) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45000e+04, 0.45100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45100e+04, 0.45200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45200e+04, 0.45300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45300e+04, 0.45400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45400e+04, 0.45500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45500e+04, 0.45600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45600e+04, 0.45700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45700e+04, 0.45800e+04/
- data ((acr(k,j),k=1,8),j=209,216) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45800e+04, 0.45900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.45900e+04, 0.46000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46000e+04, 0.46100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46100e+04, 0.46200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46200e+04, 0.46300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46300e+04, 0.46400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46400e+04, 0.46500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46500e+04, 0.46600e+04/
- data ((acr(k,j),k=1,8),j=217,224) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46600e+04, 0.46700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46700e+04, 0.46800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46800e+04, 0.46900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.46900e+04, 0.47000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47000e+04, 0.47100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47100e+04, 0.47200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47200e+04, 0.47300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47300e+04, 0.47400e+04/
- data ((acr(k,j),k=1,8),j=225,232) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47400e+04, 0.47500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47500e+04, 0.47600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47600e+04, 0.47700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47700e+04, 0.47800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47800e+04, 0.47900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.47900e+04, 0.48000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48000e+04, 0.48100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48100e+04, 0.48200e+04/
- data ((acr(k,j),k=1,8),j=233,240) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48200e+04, 0.48300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48300e+04, 0.48400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48400e+04, 0.48500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48500e+04, 0.48600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48600e+04, 0.48700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48700e+04, 0.48800e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48800e+04, 0.48900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.48900e+04, 0.49000e+04/
- data ((acr(k,j),k=1,8),j=241,248) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49000e+04, 0.49100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49100e+04, 0.49200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49200e+04, 0.49300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49300e+04, 0.49400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49400e+04, 0.49500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49500e+04, 0.49600e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49600e+04, 0.49700e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49700e+04, 0.49800e+04/
- data ((acr(k,j),k=1,8),j=249,256) /
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49800e+04, 0.49900e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.49900e+04, 0.50000e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50000e+04, 0.50100e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50100e+04, 0.50200e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50200e+04, 0.50300e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50300e+04, 0.50400e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50400e+04, 0.50500e+04,
- a 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00, 0.00000e+00,
- a 0.00000e+00, 0.50500e+04, 0.50600e+04/
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/OZON1.h b/Modules/ThirdParty/6S/src/6SV1.0B/OZON1.h
deleted file mode 100644
index 79f9781..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/OZON1.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_ozon1_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.P b/Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.P
deleted file mode 100644
index ba0062d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int dirpopol_(doublereal *xq, doublereal *xu, doublereal *dirpol);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.c b/Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.c
deleted file mode 100644
index 06394d8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.c
+++ /dev/null
@@ -1,85 +0,0 @@
-/* PLANPOL.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< Subroutine dirpopol(xq,xu,dirpol) >*/
-/* Subroutine */ int dirpopol_(doublereal *xq, doublereal *xu, doublereal *
- dirpol)
-{
- /* Builtin functions */
- double acos(doublereal), atan(doublereal);
-
- /* Local variables */
- doublereal pi;
-
-
-/* This subroutine computes the plane of polarization */
-/*< real xu,xq,dirpol,pi >*/
-/*< pi=acos(-1.) >*/
- pi = acos(-1.);
-/*< if (abs(xq).lt.0.00001)then >*/
- if (abs(*xq) < 1e-5) {
-/*< if (xu.gt.0.)then >*/
- if (*xu > 0.) {
-/*< dirpol=45.0 >*/
- *dirpol = 45.;
-/*< else >*/
- } else {
-/*< dirpol=-45.0 >*/
- *dirpol = -45.;
-/*< endif >*/
- }
-/*< return >*/
- return 0;
-/*< endif >*/
- }
-/*< if (abs(xu).lt.0.00001)then >*/
- if (abs(*xu) < 1e-5) {
-/*< if (xq.gt.0.)then >*/
- if (*xq > 0.) {
-/*< dirpol=0.0 >*/
- *dirpol = 0.;
-/*< else >*/
- } else {
-/*< dirpol=90.0 >*/
- *dirpol = 90.;
-/*< endif >*/
- }
-/*< return >*/
- return 0;
-/*< endif >*/
- }
-/*< if (xq.gt.0.)then >*/
- if (*xq > 0.) {
-/*< dirpol=90./pi*atan(xu/xq) >*/
- *dirpol = 90. / pi * atan(*xu / *xq);
-/*< return >*/
- return 0;
-/*< endif >*/
- }
-/*< if (xu.gt.0.)then >*/
- if (*xu > 0.) {
-/*< dirpol=90.+90./pi*atan(xu/xq) >*/
- *dirpol = 90. / pi * atan(*xu / *xq) + 90.;
-/*< else >*/
- } else {
-/*< dirpol=-90.+90./pi*atan(xu/xq) >*/
- *dirpol = 90. / pi * atan(*xu / *xq) - 90.;
-/*< endif >*/
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* dirpopol_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.f b/Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.f
deleted file mode 100644
index 7b22e19..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.f
+++ /dev/null
@@ -1,39 +0,0 @@
- Subroutine dirpopol(xq,xu,dirpol)
-c
-c This subroutine computes the plane of polarization
-
- real xu,xq,dirpol,pi
-
- pi=acos(-1.)
-
- if (abs(xq).lt.0.00001)then
- if (xu.gt.0.)then
- dirpol=45.0
- else
- dirpol=-45.0
- endif
- return
- endif
-
- if (abs(xu).lt.0.00001)then
- if (xq.gt.0.)then
- dirpol=0.0
- else
- dirpol=90.0
- endif
- return
- endif
-
- if (xq.gt.0.)then
- dirpol=90./pi*atan(xu/xq)
- return
- endif
-
- if (xu.gt.0.)then
- dirpol=90.+90./pi*atan(xu/xq)
- else
- dirpol=-90.+90./pi*atan(xu/xq)
- endif
-
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.h b/Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.h
deleted file mode 100644
index 3ced150..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PLANPOL.h
+++ /dev/null
@@ -1,5 +0,0 @@
-extern int otb_6s_dirpopol_(
- otb_6s_doublereal *xq,
- otb_6s_doublereal *xu,
- otb_6s_doublereal *dirpol
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POLDER.P b/Modules/ThirdParty/6S/src/6SV1.0B/POLDER.P
deleted file mode 100644
index d8a3b89..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POLDER.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int polder_(integer *iwa);
-/* comlen sixs_ffu__ 12024 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POLDER.c b/Modules/ThirdParty/6S/src/6SV1.0B/POLDER.c
deleted file mode 100644
index a6555bc..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POLDER.c
+++ /dev/null
@@ -1,657 +0,0 @@
-/* POLDER.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine polder(iwa) >*/
-/* Subroutine */ int polder_(integer *iwa)
-{
- /* Initialized data */
-
- static doublereal sr[12008] /* was [8][1501] */ = { 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,3e-4,0.,0.,0.,0.,0.,0.,0.,.0042,0.,0.,0.,0.,
- 0.,0.,0.,.0028,0.,0.,0.,0.,0.,0.,0.,.0036,0.,0.,0.,0.,0.,0.,0.,
- .006,0.,0.,0.,0.,0.,0.,0.,.0134,0.,0.,0.,0.,0.,0.,0.,.043,0.,0.,
- 0.,0.,0.,0.,0.,.1284,0.,0.,0.,0.,0.,0.,0.,.3394,0.,0.,0.,0.,0.,0.,
- 0.,.6162,0.,0.,0.,0.,0.,0.,0.,.8056,0.,0.,0.,0.,0.,0.,0.,.906,0.,
- 0.,0.,0.,0.,0.,0.,.9656,0.,0.,0.,0.,0.,0.,0.,.9968,0.,0.,0.,0.,0.,
- 0.,0.,.988,0.,0.,0.,0.,0.,0.,0.,.8944,0.,0.,0.,0.,0.,0.,0.,.6612,
- 0.,0.,0.,0.,0.,0.,0.,.388,0.,0.,0.,0.,0.,0.,0.,.195,0.,0.,0.,0.,
- 0.,0.,0.,.0966,.0012,0.,0.,0.,0.,0.,0.,.0512,.0014,0.,0.,0.,0.,0.,
- 0.,.0292,.0022,0.,0.,0.,0.,0.,0.,.018,.0032,0.,0.,0.,0.,0.,0.,
- .0122,.006,0.,0.,0.,0.,0.,0.,.004,.0116,0.,0.,0.,0.,0.,0.,0.,
- .0252,0.,0.,0.,0.,0.,0.,0.,.0666,0.,0.,0.,0.,0.,0.,0.,.1932,0.,0.,
- 0.,0.,0.,0.,0.,.4896,0.,0.,0.,0.,0.,0.,0.,.8104,0.,0.,0.,0.,0.,0.,
- 0.,.9414,0.,0.,0.,0.,0.,0.,0.,.9544,0.,0.,0.,0.,0.,0.,0.,.971,0.,
- 0.,0.,0.,0.,0.,0.,.9898,0.,0.,0.,0.,0.,0.,0.,.9544,0.,0.,0.,0.,0.,
- 0.,0.,.692,0.,0.,0.,0.,0.,0.,0.,.3438,0.,0.,0.,0.,0.,0.,0.,.1466,
- 0.,0.,0.,0.,0.,0.,0.,.063,0.,0.,0.,0.,0.,0.,0.,.0304,0.,0.,0.,0.,
- 0.,0.,0.,.017,0.,0.,0.,0.,0.,0.,0.,.0102,0.,0.,0.,0.,0.,0.,0.,
- .007,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.,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.,0.,0.,0.,0.,0.,0.,.0016,0.,0.,0.,0.,0.,0.,
- 0.,.0048,0.,0.,0.,0.,0.,0.,0.,.0074,0.,0.,0.,0.,0.,0.,0.,.013,0.,
- 0.,0.,0.,0.,0.,0.,.0258,0.,0.,0.,0.,0.,0.,0.,.0566,0.,0.,0.,0.,0.,
- 0.,0.,.1368,0.,0.,0.,0.,0.,0.,0.,.3294,0.,0.,0.,0.,0.,0.,0.,.6592,
- 0.,0.,0.,0.,0.,0.,0.,.927,0.,0.,0.,0.,0.,0.,0.,.9946,0.,0.,0.,0.,
- 0.,0.,0.,.9798,0.,0.,0.,0.,0.,0.,0.,.9544,0.,0.,0.,0.,0.,0.,0.,
- .9262,0.,0.,0.,0.,0.,0.,0.,.8814,0.,0.,0.,0.,0.,0.,0.,.7692,0.,0.,
- 0.,0.,0.,0.,0.,.542,0.,0.,0.,0.,0.,0.,0.,.2814,0.,0.,0.,0.,0.,0.,
- 0.,.1218,0.,0.,0.,0.,0.,0.,0.,.0518,0.,0.,0.,0.,0.,0.,0.,.0244,0.,
- 0.,0.,0.,0.,0.,0.,.0118,0.,0.,0.,0.,0.,0.,0.,.0066,0.,0.,0.,0.,0.,
- 0.,0.,.0038,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.,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.,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.,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.,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.,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.,
- 0.,0.,.001,0.,0.,0.,0.,0.,0.,0.,.0044,0.,0.,0.,0.,0.,0.,0.,.0022,
- 0.,0.,0.,0.,0.,0.,0.,.014,0.,0.,0.,0.,0.,0.,0.,.0176,0.,0.,0.,0.,
- 0.,0.,0.,.0394,0.,0.,0.,0.,0.,0.,0.,.1004,0.,0.,0.,0.,0.,0.,0.,
- .2476,0.,0.,0.,0.,0.,0.,0.,.5462,0.,0.,0.,0.,0.,0.,0.,.8672,0.,0.,
- 0.,0.,0.,0.,0.,.9902,0.,0.,0.,0.,0.,0.,0.,.9874,0.,0.,0.,0.,0.,0.,
- 0.,.9572,0.,0.,0.,0.,0.,0.,0.,.9484,0.,0.,0.,0.,0.,0.,0.,.9264,0.,
- 0.,0.,0.,0.,0.,0.,.8274,0.,0.,0.,0.,0.,0.,0.,.5688,0.,0.,0.,0.,0.,
- 0.,0.,.2828,0.,0.,0.,0.,0.,0.,0.,.1154,0.,0.,0.,0.,0.,0.,0.,.05,
- 0.,0.,0.,0.,0.,0.,0.,.0224,0.,0.,0.,0.,0.,0.,0.,.0186,0.,0.,0.,0.,
- 0.,0.,0.,.016,0.,0.,0.,0.,0.,0.,0.,.0072,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.,.001,0.,0.,0.,
- 0.,0.,0.,0.,.0018,0.,0.,0.,0.,0.,0.,0.,.001,0.,0.,0.,0.,0.,0.,0.,
- .003,0.,0.,0.,0.,0.,0.,0.,.0046,0.,0.,0.,0.,0.,0.,0.,.008,0.,0.,
- 0.,0.,0.,0.,0.,.0096,0.,0.,0.,0.,0.,0.,0.,.014,0.,0.,0.,0.,0.,0.,
- 0.,.0202,0.,0.,0.,0.,0.,0.,0.,.03,0.,0.,0.,0.,0.,0.,0.,.041,0.,0.,
- 0.,0.,0.,0.,0.,.0622,0.,0.,0.,0.,0.,0.,0.,.0958,0.,0.,0.,0.,0.,0.,
- 0.,.1516,0.,0.,0.,0.,0.,0.,0.,.24,0.,0.,0.,0.,0.,0.,0.,.3648,0.,
- 0.,0.,0.,0.,0.,0.,.5174,0.,0.,0.,0.,0.,0.,4e-4,.664,0.,0.,0.,0.,
- 0.,0.,.0046,.7798,0.,0.,0.,0.,0.,0.,.0134,.8494,0.,0.,0.,0.,0.,0.,
- .0834,.8858,0.,0.,0.,0.,0.,0.,.4148,.9066,0.,0.,0.,0.,0.,0.,.8056,
- .9202,0.,0.,0.,0.,0.,0.,.9274,.9374,0.,0.,0.,0.,0.,0.,.988,.9516,
- 0.,0.,0.,0.,0.,0.,.7488,.9692,0.,0.,0.,0.,0.,0.,.2416,.9886,0.,0.,
- 0.,0.,0.,0.,.0416,.9932,0.,0.,0.,0.,0.,0.,.0094,.965,0.,0.,0.,0.,
- 0.,0.,8e-4,.8684,0.,0.,0.,0.,0.,0.,0.,.6836,0.,0.,0.,0.,0.,0.,0.,
- .4686,0.,0.,0.,0.,0.,0.,0.,.2922,0.,0.,0.,0.,0.,0.,0.,.1724,0.,0.,
- 0.,0.,0.,0.,0.,.1012,0.,0.,0.,0.,0.,0.,0.,.0594,0.,0.,0.,0.,0.,0.,
- 0.,.036,0.,0.,0.,0.,0.,0.,0.,.0238,0.,0.,0.,0.,0.,0.,0.,.0144,0.,
- 0.,0.,0.,0.,0.,0.,.0104,0.,0.,0.,0.,0.,0.,0.,.0088,0.,0.,0.,0.,0.,
- 0.,0.,.006,0.,0.,0.,0.,0.,0.,0.,.0052,0.,0.,0.,0.,0.,0.,0.,.0046,
- 4e-4,0.,0.,0.,0.,0.,0.,.0038,8e-4,0.,0.,0.,0.,0.,0.,.0052,.0024,
- 0.,0.,0.,0.,0.,0.,.0028,.003,0.,0.,0.,0.,0.,0.,.0022,.0056,0.,0.,
- 0.,0.,0.,0.,0.,.0102,0.,0.,0.,0.,0.,0.,0.,.0186,0.,0.,0.,0.,0.,0.,
- 0.,.0338,0.,0.,0.,0.,0.,0.,0.,.0622,0.,0.,0.,0.,0.,0.,0.,.111,0.,
- 0.,0.,0.,0.,0.,0.,.1974,0.,0.,0.,0.,0.,0.,0.,.341,0.,0.,0.,0.,0.,
- 0.,0.,.5432,0.,0.,0.,0.,0.,0.,0.,.761,0.,0.,0.,0.,0.,0.,0.,.9218,
- 0.,0.,0.,0.,0.,0.,0.,.9896,0.,0.,0.,0.,0.,0.,0.,.9936,0.,0.,0.,0.,
- 0.,0.,0.,.9744,0.,0.,0.,0.,0.,0.,0.,.9514,0.,0.,0.,0.,0.,0.,0.,
- .9352,0.,0.,0.,0.,0.,0.,0.,.9222,0.,0.,0.,0.,0.,0.,0.,.915,0.,0.,
- 0.,0.,0.,0.,0.,.9094,0.,0.,0.,0.,0.,0.,0.,.8954,0.,0.,0.,0.,0.,0.,
- 0.,.8592,.0012,0.,0.,0.,0.,0.,0.,.7766,.0016,0.,0.,0.,0.,0.,0.,
- .6354,.0018,0.,0.,0.,0.,0.,0.,.4604,.0032,0.,0.,0.,0.,0.,0.,.3006,
- .0046,0.,0.,0.,0.,0.,0.,.1838,.0082,0.,0.,0.,0.,0.,0.,.1082,.0158,
- 0.,0.,0.,0.,0.,0.,.0626,.0354,0.,0.,0.,0.,0.,0.,.0346,.0876,0.,0.,
- 0.,0.,0.,0.,.0198,.2242,0.,0.,0.,0.,0.,0.,.0112,.5142,0.,0.,0.,0.,
- 0.,0.,.0064,.8436,0.,0.,0.,0.,0.,0.,.0038,.9848,0.,0.,0.,0.,0.,0.,
- .0028,.9838,0.,0.,0.,0.,0.,0.,.0016,.9534,0.,0.,0.,0.,0.,0.,.0014,
- .9254,0.,0.,0.,0.,0.,0.,6e-4,.9084,0.,0.,0.,0.,0.,0.,0.,.856,0.,
- 0.,0.,0.,0.,0.,0.,.6444,0.,0.,0.,0.,0.,0.,0.,.3388,0.,0.,0.,0.,0.,
- 0.,0.,.1424,0.,0.,0.,0.,0.,0.,0.,.0566,0.,0.,0.,0.,0.,0.,0.,.0238,
- 0.,0.,0.,0.,0.,0.,0.,.0098,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0. };
-
- integer i__;
- doublereal wli[8], wls[8];
-
-/*< real s,wlinf,wlsup >*/
-/*< common /sixs_ffu/ s(1501),wlinf,wlsup >*/
-/*< real sr(8,1501),wli(8),wls(8) >*/
-/*< integer iwa,l,i >*/
-/* band 1 of POLDER (443 mic, polarized channel) */
-/*< >*/
-/* band 2 of POLDER (490 mic) */
-/*< >*/
-/* band 3 of POLDER (565 mic) */
-/*< >*/
-/* band 4 of POLDER (670 P1, polarized channel) */
-/*< >*/
-/* band 5 of POLDER (763 mic, oxygen absorption channel) */
-/*< >*/
-/* band 6 of POLDER (765 mic, oxygen absorption channel) */
-/*< >*/
-/* band 7 of POLDER (865 P1, polarized channel) */
-/*< >*/
-/* band 8 of POLDER (910 mic, water vapor absorption channel) */
-/*< >*/
-/*< wli(1)=0.4125 >*/
- wli[0] = .4125;
-/*< wls(1)=0.4775 >*/
- wls[0] = .4775;
-/*< wli(2)=0.410 >*/
- wli[1] = .41;
-/*< wls(2)=0.5225 >*/
- wls[1] = .5225;
-/*< wli(3)=0.5325 >*/
- wli[2] = .5325;
-/*< wls(3)=0.595 >*/
- wls[2] = .595;
-/*< wli(4)=0.63 >*/
- wli[3] = .63;
-/*< wls(4)=0.7025 >*/
- wls[3] = .7025;
-/*< wli(5)=0.745 >*/
- wli[4] = .745;
-/*< wls(5)=0.780 >*/
- wls[4] = .78;
-/*< wli(6)=0.700 >*/
- wli[5] = .7;
-/*< wls(6)=0.830 >*/
- wls[5] = .83;
-/*< wli(7)=0.810 >*/
- wli[6] = .81;
-/*< wls(7)=0.920 >*/
- wls[6] = .92;
-/*< wli(8)=0.865 >*/
- wli[7] = .865;
-/*< wls(8)=0.940 >*/
- wls[7] = .94;
-/*< do 1 i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< s(i)=sr(iwa,i) >*/
- sixs_ffu__1.s[i__ - 1] = sr[*iwa + (i__ << 3) - 9];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< wlinf=wli(iwa) >*/
- sixs_ffu__1.wlinf = wli[*iwa - 1];
-/*< wlsup=wls(iwa) >*/
- sixs_ffu__1.wlsup = wls[*iwa - 1];
-/*< return >*/
- return 0;
-/*< end >*/
-} /* polder_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POLDER.f b/Modules/ThirdParty/6S/src/6SV1.0B/POLDER.f
deleted file mode 100644
index f711f87..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POLDER.f
+++ /dev/null
@@ -1,89 +0,0 @@
- subroutine polder(iwa)
- real s,wlinf,wlsup
- common /sixs_ffu/ s(1501),wlinf,wlsup
- real sr(8,1501),wli(8),wls(8)
- integer iwa,l,i
-c band 1 of POLDER (443 mic, polarized channel)
- DATA (SR(1,L),L=1,1501)/ 65*0.,
- A .0003, .0042, .0028, .0036, .0060, .0134, .0430, .1284,
- A .3394, .6162, .8056, .9060, .9656, .9968, .9880, .8944,
- A .6612, .3880, .1950, .0966, .0512, .0292, .0180, .0122,
- A .0040, .0000, .0000,
- A1409*0./
-c band 2 of POLDER (490 mic)
- DATA (SR(2,L),L=1,1501)/ 64*0.,
- A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- A .0000, .0000, .0000, .0000, .0000, .0000, .0000, .0000,
- A .0000, .0000, .0000, .0000, .0012, .0014, .0022, .0032,
- A .0060, .0116, .0252, .0666, .1932, .4896, .8104, .9414,
- A .9544, .9710, .9898, .9544, .6920, .3438, .1466, .0630,
- A .0304, .0170, .0102, .0070, .0000, .0000,
- A1391*0./
-c band 3 of POLDER (565 mic)
- DATA (SR(3,L),L=1,1501)/ 113*0.,
- A .0000, .0016, .0048, .0074, .0130, .0258, .0566, .1368,
- A .3294, .6592, .9270, .9946, .9798, .9544, .9262, .8814,
- A .7692, .5420, .2814, .1218, .0518, .0244, .0118, .0066,
- A .0038, .0000,
- A1362*0./
-c band 4 of POLDER (670 P1, polarized channel)
- DATA (SR(4,L),L=1,1501)/ 152*0.,
- A .0000, .0000, .0000, .0000, .0010, .0044, .0022, .0140,
- A .0176, .0394, .1004, .2476, .5462, .8672, .9902, .9874,
- A .9572, .9484, .9264, .8274, .5688, .2828, .1154, .0500,
- A .0224, .0186, .0160, .0072, .0000, .0000,
- A1319*0./
-c band 5 of POLDER (763 mic, oxygen absorption channel)
- DATA (SR(5,L),L=1,1501)/ 198*0.,
- A .0000, .0004, .0046, .0134, .0834, .4148, .8056, .9274,
- A .9880, .7488, .2416, .0416, .0094, .0008, .0000,
- A1288*0./
-c band 6 of POLDER (765 mic, oxygen absorption channel)
- DATA (SR(6,L),L=1,1501)/ 180*0.,
- A .0000, .0000, .0010, .0018, .0010, .0030, .0046, .0080,
- A .0096, .0140, .0202, .0300, .0410, .0622, .0958, .1516,
- A .2400, .3648, .5174, .6640, .7798, .8494, .8858, .9066,
- A .9202, .9374, .9516, .9692, .9886, .9932, .9650, .8684,
- A .6836, .4686, .2922, .1724, .1012, .0594, .0360, .0238,
- A .0144, .0104, .0088, .0060, .0052, .0046, .0038, .0052,
- A .0028, .0022, .0000, .0000, .0000,
- A1268*0./
-c band 7 of POLDER (865 P1, polarized channel)
- DATA (SR(7,L),L=1,1501)/ 224*0.,
- A .0000, .0004, .0008, .0024, .0030, .0056, .0102, .0186,
- A .0338, .0622, .1110, .1974, .3410, .5432, .7610, .9218,
- A .9896, .9936, .9744, .9514, .9352, .9222, .9150, .9094,
- A .8954, .8592, .7766, .6354, .4604, .3006, .1838, .1082,
- A .0626, .0346, .0198, .0112, .0064, .0038, .0028, .0016,
- A .0014, .0006, .0000, .0000, .0000,
- A1232*0./
-c band 8 of POLDER (910 mic, water vapor absorption channel)
- DATA (SR(8,L),L=1,1501)/ 246*0.,
- A .0000, .0000, .0000, .0012, .0016, .0018, .0032, .0046,
- A .0082, .0158, .0354, .0876, .2242, .5142, .8436, .9848,
- A .9838, .9534, .9254, .9084, .8560, .6444, .3388, .1424,
- A .0566, .0238, .0098, .0000, .0000, .0000, .0000,
- A1224*0./
- wli(1)=0.4125
- wls(1)=0.4775
- wli(2)=0.410
- wls(2)=0.5225
- wli(3)=0.5325
- wls(3)=0.595
- wli(4)=0.63
- wls(4)=0.7025
- wli(5)=0.745
- wls(5)=0.780
- wli(6)=0.700
- wls(6)=0.830
- wli(7)=0.810
- wls(7)=0.920
- wli(8)=0.865
- wls(8)=0.940
- do 1 i=1,1501
- s(i)=sr(iwa,i)
- 1 continue
- wlinf=wli(iwa)
- wlsup=wls(iwa)
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POLDER.h b/Modules/ThirdParty/6S/src/6SV1.0B/POLDER.h
deleted file mode 100644
index bed5d1d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POLDER.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_polder_(
- otb_6s_integer *iwa
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.P b/Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.P
deleted file mode 100644
index 8b1e261..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int polglit_(doublereal *xts, doublereal *xtv, doublereal *phi, doublereal *wspd, doublereal *azw, doublereal *ropq, doublereal *ropu);
-extern int pfresnel_(doublereal *nr, doublereal *ni, doublereal *coschi, doublereal *sinchi, doublereal *r1, doublereal *r2);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.c b/Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.c
deleted file mode 100644
index c2e81c2..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.c
+++ /dev/null
@@ -1,286 +0,0 @@
-/* POLGLIT.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static doublereal c_b3 = 2.;
-
-/*< Subroutine POLGLIT(xts,xtv,phi,wspd,azw,ropq,ropu) >*/
-/* Subroutine */ int polglit_(doublereal *xts, doublereal *xtv, doublereal *
- phi, doublereal *wspd, doublereal *azw, doublereal *ropq, doublereal *
- ropu)
-{
- /* System generated locals */
- doublereal d__1;
-
- /* Builtin functions */
- double acos(doublereal), cos(doublereal), sin(doublereal), sqrt(
- doublereal), atan(doublereal), exp(doublereal);
-
- /* Local variables */
- doublereal m, r1, r2, r3, c21, c03, c40, c04, c22, cs, ni, pi, cv, xe, rl,
- nr, rr, ss, xn, sv, zx, zy, xe2, xn2, sca, ksi, dtr, phw, mus,
- muv, csca, coef, cksi, tilt, sinv, alpha, proba, sigmac, factor,
- sigmau, tantilt;
-
-/*< real xts,xtv,phi,azw,wspd,ropq,ropu >*/
-/* compute the polarized components of the surface */
-/* to an agitated surface model */
-/* xts is the sun zenith angle in degrees */
-/* xtv is the view zenith angle in degrees */
-/* phi is the relative azimuth between sun and view in degrees */
-/* wspd is the wind speed for use in ponderating */
-/* azw=azim. of the sun - azim. of the wind (in deg.) */
-/* the polarization by the actual glint reflectance */
-/* ropq and ropu and the stokes parameter (Q,U) of the polarized */
-/* surface reflectance */
-/*< real pi,dtr,csca,sca,alpha,m,rl,rr,factor >*/
-/* csca is the cosine of the scattering angle (sca) */
-/* alpha is the incidence angle used for specular reflection */
-/* alphap is the refraction angle after specular reflection */
-/* m is the refractive index of water (fixed to 1.33) */
-/* rr and rl and parameters used in the reflection mattrix */
-/* computation. */
-/* factor is a multiplicative factor to account for agitated surface */
-/* following is a set of intermediate variable used in the computation */
-/* of factor */
-/*< real phw >*/
-/*< real cs,cv,ss,sv,zx,zy,tantilt,tilt,proba,xe,xn,xe2,xn2 >*/
-/*< real coef,cos2chi,coschi,sinchi >*/
-/*< real sigmaC,sigmaU,C21,C03,C40,C04,C22 >*/
-/*< real mus,muv,sinv,cksi,ksi,r1f >*/
-/*< real nr,ni >*/
-/*< m=1.33 >*/
- m = 1.33;
-/*< nr=1.33 >*/
- nr = 1.33;
-/*< ni=0.0 >*/
- ni = 0.;
-/*< pi=acos(0.0)*2.0 >*/
- pi = acos(0.) * 2.;
-/*< dtr=pi/180.0 >*/
- dtr = pi / 180.;
-/*< c >*/
- csca = -cos(*xts * dtr) * cos(*xtv * dtr) - sin(*xts * dtr) * sin(*xtv *
- dtr) * cos(*phi * dtr);
-/*< sca=acos(csca) >*/
- sca = acos(csca);
-/*< alpha=(pi-sca)/2.0 >*/
- alpha = (pi - sca) / 2.;
-/* Originally from Deuze et al cannot mak it work to be investigated */
-/*< >*/
- rl = (sqrt(m * m - sin(alpha) * sin(alpha)) - m * m * cos(alpha)) / (sqrt(
- m * m - sin(alpha) * sin(alpha)) + m * m * cos(alpha));
-
-/*< >*/
- rr = (cos(alpha) - sqrt(m * m - sin(alpha) * sin(alpha))) / (cos(alpha) +
- sqrt(m * m - sin(alpha) * sin(alpha)));
-
-/*< r1=(rl*rl+rr*rr)/2. >*/
- r1 = (rl * rl + rr * rr) / 2.;
-/*< r2=(rl*rl-rr*rr)/2. >*/
- r2 = (rl * rl - rr * rr) / 2.;
-/*< r3=rl*rr >*/
- r3 = rl * rr;
-/*< r3=0.0 >*/
- r3 = 0.;
-/* rpsur=sqrt(r2*r2+r3*r3) */
-/* chi=atan2(r3,r2) */
-/* adjust with agitated surface */
-/*< phw=azw*dtr >*/
- phw = *azw * dtr;
-/*< cs=cos(xts*dtr) >*/
- cs = cos(*xts * dtr);
-/*< cv=cos(xtv*dtr) >*/
- cv = cos(*xtv * dtr);
-/*< ss=sin(xts*dtr) >*/
- ss = sin(*xts * dtr);
-/*< sv=sin(xtv*dtr) >*/
- sv = sin(*xtv * dtr);
-/*< Zx=-sv*sin(phi*dtr)/(cs+cv) >*/
- zx = -sv * sin(*phi * dtr) / (cs + cv);
-/*< Zy=(ss+sv*cos(phi*dtr))/(cs+cv) >*/
- zy = (ss + sv * cos(*phi * dtr)) / (cs + cv);
-/*< tantilt=sqrt(zx*zx+zy*zy) >*/
- tantilt = sqrt(zx * zx + zy * zy);
-/*< tilt=atan(tantilt) >*/
- tilt = atan(tantilt);
-/* Anisotropic Gaussian distribution */
-/* phw=phi_sun-phi_wind */
-/*< sigmaC=0.003+0.00192*wspd >*/
- sigmac = *wspd * .00192 + .003;
-/*< sigmaU=0.00316*wspd >*/
- sigmau = *wspd * .00316;
-/*< C21=0.01-0.0086*wspd >*/
- c21 = .01 - *wspd * .0086;
-/*< C03=0.04-0.033*wspd >*/
- c03 = .04 - *wspd * .033;
-/*< C40=0.40 >*/
- c40 = .4;
-/*< C22=0.12 >*/
- c22 = .12;
-/*< C04=0.23 >*/
- c04 = .23;
-/*< xe=(cos(phw)*Zx+sin(phw)*Zy)/sqrt(SigmaC) >*/
- xe = (cos(phw) * zx + sin(phw) * zy) / sqrt(sigmac);
-/*< xn=(-sin(phw)*Zx+cos(phw)*Zy)/sqrt(SigmaU) >*/
- xn = (-sin(phw) * zx + cos(phw) * zy) / sqrt(sigmau);
-/*< xe2=xe*xe >*/
- xe2 = xe * xe;
-/*< xn2=xn*xn >*/
- xn2 = xn * xn;
-/*< coef=1-C21/2.*(xe2-1)*xn-C03/6.*(xn2-3)*xn >*/
- coef = 1 - c21 / 2. * (xe2 - 1) * xn - c03 / 6. * (xn2 - 3) * xn;
-/*< coef=coef+c40/24.*(xe2*xe2-6*xe2+3) >*/
- coef += c40 / 24. * (xe2 * xe2 - xe2 * 6 + 3);
-/*< coef=coef+C04/24.*(xn2*xn2-6*xn2+3) >*/
- coef += c04 / 24. * (xn2 * xn2 - xn2 * 6 + 3);
-/*< coef=coef+C22/4.*(xe2-1)*(xn2-1) >*/
- coef += c22 / 4. * (xe2 - 1) * (xn2 - 1);
-/*< proba=coef/2./pi/sqrt(sigmaU)/sqrt(sigmaC)*exp(-(xe2+xn2)/2.) >*/
- proba = coef / 2. / pi / sqrt(sigmau) / sqrt(sigmac) * exp(-(xe2 + xn2) /
- 2.);
-/* write(6,*) "probapol:",proba */
-/* write(6,*) "coefpol:",coef */
-/* write(6,*) "tiltpol:",tilt */
-/* write(6,*) "phiw pol:",phw */
-/* Compute Fresnel's coefficient R1 */
-/* cos2chi=cv*cs+sv*ss*cos(phi*dtr) */
-/* if (cos2chi.gt.1.0)cos2chi=0.99999999999 */
-/* if (cos2chi.lt.-1.0)cos2chi=-0.99999999999 */
-/* coschi=sqrt(0.5*(1+cos2chi)) */
-/* sinchi=sqrt(0.5*(1-cos2chi)) */
-/* Call Fresnel(nr,ni,coschi,sinchi,R1f) */
-/* Call pfresnel(nr,ni,coschi,sinchi,r1f,r2f) */
-/* write(6,*) "R1 fresnel:",R1f," r1 actual:",r1 */
-/* write(6,*) "R2 fresnel:",R2f," r2 actual:",r2 */
-/* Compute Reflectance of the sun glint */
-/* Rog=pi*R1*proba/4./cs/cv/(cos(tilt)**4) */
-/*< factor=pi*proba/4./cs/cv/(cos(tilt)**4) >*/
-/* Computing 4th power */
- d__1 = cos(tilt), d__1 *= d__1;
- factor = pi * proba / 4. / cs / cv / (d__1 * d__1);
-/* compute rotation angle for Q and U */
-/*< muv=cos(xtv*dtr) >*/
- muv = cos(*xtv * dtr);
-/*< mus=cos(xts*dtr) >*/
- mus = cos(*xts * dtr);
-/*< sinv=sin(xtv*dtr) >*/
- sinv = sin(*xtv * dtr);
-/*< if (xtv.gt.0.5) then >*/
- if (*xtv > .5) {
-/*< if (sin(phi*dtr).lt.0) then >*/
- if (sin(*phi * dtr) < 0.) {
-/*< cksi=(muv*csca+mus)/sqrt(1.-csca*csca)/sinv >*/
- cksi = (muv * csca + mus) / sqrt(1. - csca * csca) / sinv;
-/*< else >*/
- } else {
-/*< cksi=-(muv*csca+mus)/sqrt(1.-csca*csca)/sinv >*/
- cksi = -(muv * csca + mus) / sqrt(1. - csca * csca) / sinv;
-/*< endif >*/
- }
-/*< else >*/
- } else {
-/*< cksi=1.0 >*/
- cksi = 1.;
-/*< endif >*/
- }
-/*< if (cksi.gt.1.) cksi=1. >*/
- if (cksi > 1.) {
- cksi = 1.;
- }
-/*< if (cksi.lt.-1.) cksi=-1. >*/
- if (cksi < -1.) {
- cksi = -1.;
- }
-/*< ksi=acos(cksi)/dtr >*/
- ksi = acos(cksi) / dtr;
-/* write(6,*) "KSI=",ksi */
-/* apply rotation mattrix */
-/*< ropq=r2*(2.*cksi*cksi-1.)*factor >*/
- *ropq = r2 * (cksi * 2. * cksi - 1.) * factor;
-/*< ropu=-r2*2.*cksi*sqrt(1.-cksi*cksi)*factor >*/
- *ropu = -r2 * 2. * cksi * sqrt(1. - cksi * cksi) * factor;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* polglit_ */
-
-/*< Subroutine pfresnel(nr,ni,coschi,sinchi,r1,r2) >*/
-/* Subroutine */ int pfresnel_(doublereal *nr, doublereal *ni, doublereal *
- coschi, doublereal *sinchi, doublereal *r1, doublereal *r2)
-{
- /* System generated locals */
- doublereal d__1, d__2, d__3, d__4;
-
- /* Builtin functions */
- double pow_dd(doublereal *, doublereal *), sqrt(doublereal);
-
- /* Local variables */
- doublereal u, v, a1, a2, b1, b2, rl2, rr2;
-
-
-/* to compute the Fresnel's coefficient of reflection (see for */
-/*example M. Born and E. Wolf, Principles of Optics, Pergamon Press, fifth
-*/
-/* edition, 1975, pp 628 */
-/* input parameters: nr=index of refraction of the sea water */
-/* ni=extinction coefficient of the sea water */
-/* coschi & sinchi=cosine and sine of the incident radiat
-ion*/
-/* with respect of the wave facet normal.
-*/
-/* output parameter: R1=Fresnel's coefficient for reflection */
-
-/*< real nr,ni,a1,a2,u,v,Rr2,Rl2,b1,b2,R1,coschi,sinchi >*/
-/* absolute value for a1 to get v=0 when ni=0 */
-/*< a1=abs(nr*nr-ni*ni-sinchi*sinchi) >*/
- a1 = (d__1 = *nr * *nr - *ni * *ni - *sinchi * *sinchi, abs(d__1));
-/*< a2=sqrt((nr*nr-ni*ni-sinchi*sinchi)**2.+4*nr*nr*ni*ni) >*/
- d__1 = *nr * *nr - *ni * *ni - *sinchi * *sinchi;
- a2 = sqrt(pow_dd(&d__1, &c_b3) + *nr * 4 * *nr * *ni * *ni);
-/*< u=sqrt(0.5*(a1+a2)) >*/
- u = sqrt((a1 + a2) * .5);
-/*< v=sqrt(0.5*(-a1+a2)) >*/
- v = sqrt((-a1 + a2) * .5);
-/*< Rr2=((coschi-u)**2+v*v)/((coschi+u)**2+v*v) >*/
-/* Computing 2nd power */
- d__1 = *coschi - u;
-/* Computing 2nd power */
- d__2 = *coschi + u;
- rr2 = (d__1 * d__1 + v * v) / (d__2 * d__2 + v * v);
-/*< b1=(nr*nr-ni*ni)*coschi >*/
- b1 = (*nr * *nr - *ni * *ni) * *coschi;
-/*< b2=2*nr*ni*coschi >*/
- b2 = *nr * 2 * *ni * *coschi;
-/*< Rl2=((b1-u)**2+(b2+v)**2)/((b1+u)**2+(b2-v)**2) >*/
-/* Computing 2nd power */
- d__1 = b1 - u;
-/* Computing 2nd power */
- d__2 = b2 + v;
-/* Computing 2nd power */
- d__3 = b1 + u;
-/* Computing 2nd power */
- d__4 = b2 - v;
- rl2 = (d__1 * d__1 + d__2 * d__2) / (d__3 * d__3 + d__4 * d__4);
-/*< R1=(Rr2+Rl2)/2. >*/
- *r1 = (rr2 + rl2) / 2.;
-/*< R2=(Rl2-Rr2)/2. >*/
- *r2 = (rl2 - rr2) / 2.;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* pfresnel_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.f b/Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.f
deleted file mode 100644
index 9077f8b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.f
+++ /dev/null
@@ -1,158 +0,0 @@
- Subroutine POLGLIT(xts,xtv,phi,wspd,azw,ropq,ropu)
- real xts,xtv,phi,azw,wspd,ropq,ropu
-
-C compute the polarized components of the surface
-C to an agitated surface model
-
-C xts is the sun zenith angle in degrees
-C xtv is the view zenith angle in degrees
-C phi is the relative azimuth between sun and view in degrees
-C wspd is the wind speed for use in ponderating
-c azw=azim. of the sun - azim. of the wind (in deg.)
-
-C the polarization by the actual glint reflectance
-C ropq and ropu and the stokes parameter (Q,U) of the polarized
-C surface reflectance
- real pi,dtr,csca,sca,alpha,m,rl,rr,factor
-C csca is the cosine of the scattering angle (sca)
-C alpha is the incidence angle used for specular reflection
-C alphap is the refraction angle after specular reflection
-C m is the refractive index of water (fixed to 1.33)
-C rr and rl and parameters used in the reflection mattrix
-C computation.
-C factor is a multiplicative factor to account for agitated surface
-
-C following is a set of intermediate variable used in the computation
-c of factor
- real phw
- real cs,cv,ss,sv,zx,zy,tantilt,tilt,proba,xe,xn,xe2,xn2
- real coef,cos2chi,coschi,sinchi
- real sigmaC,sigmaU,C21,C03,C40,C04,C22
- real mus,muv,sinv,cksi,ksi,r1f
- real nr,ni
-
- m=1.33
- nr=1.33
- ni=0.0
- pi=acos(0.0)*2.0
- dtr=pi/180.0
- csca=-cos(xts*dtr)*cos(xtv*dtr)-sin(xts*dtr)
- s *sin(xtv*dtr)*cos(phi*dtr)
- sca=acos(csca)
- alpha=(pi-sca)/2.0
-C Originally from Deuze et al cannot mak it work to be investigated
- rl=(sqrt(m*m-sin(alpha)*sin(alpha))-m*m*cos(alpha))/
- s (sqrt(m*m-sin(alpha)*sin(alpha))+m*m*cos(alpha))
-C
- rr=(cos(alpha)-sqrt(m*m-sin(alpha)*sin(alpha)))/
- s (cos(alpha)+sqrt(m*m-sin(alpha)*sin(alpha)))
-C
- r1=(rl*rl+rr*rr)/2.
- r2=(rl*rl-rr*rr)/2.
- r3=rl*rr
- r3=0.0
-
-
-C rpsur=sqrt(r2*r2+r3*r3)
-C chi=atan2(r3,r2)
-
-C adjust with agitated surface
- phw=azw*dtr
- cs=cos(xts*dtr)
- cv=cos(xtv*dtr)
- ss=sin(xts*dtr)
- sv=sin(xtv*dtr)
- Zx=-sv*sin(phi*dtr)/(cs+cv)
- Zy=(ss+sv*cos(phi*dtr))/(cs+cv)
- tantilt=sqrt(zx*zx+zy*zy)
- tilt=atan(tantilt)
-c Anisotropic Gaussian distribution
-c phw=phi_sun-phi_wind
- sigmaC=0.003+0.00192*wspd
- sigmaU=0.00316*wspd
- C21=0.01-0.0086*wspd
- C03=0.04-0.033*wspd
- C40=0.40
- C22=0.12
- C04=0.23
- xe=(cos(phw)*Zx+sin(phw)*Zy)/sqrt(SigmaC)
- xn=(-sin(phw)*Zx+cos(phw)*Zy)/sqrt(SigmaU)
- xe2=xe*xe
- xn2=xn*xn
- coef=1-C21/2.*(xe2-1)*xn-C03/6.*(xn2-3)*xn
- coef=coef+c40/24.*(xe2*xe2-6*xe2+3)
- coef=coef+C04/24.*(xn2*xn2-6*xn2+3)
- coef=coef+C22/4.*(xe2-1)*(xn2-1)
- proba=coef/2./pi/sqrt(sigmaU)/sqrt(sigmaC)*exp(-(xe2+xn2)/2.)
-C write(6,*) "probapol:",proba
-C write(6,*) "coefpol:",coef
-C write(6,*) "tiltpol:",tilt
-C write(6,*) "phiw pol:",phw
-c Compute Fresnel's coefficient R1
-C cos2chi=cv*cs+sv*ss*cos(phi*dtr)
-C if (cos2chi.gt.1.0)cos2chi=0.99999999999
-C if (cos2chi.lt.-1.0)cos2chi=-0.99999999999
-C coschi=sqrt(0.5*(1+cos2chi))
-C sinchi=sqrt(0.5*(1-cos2chi))
-C Call Fresnel(nr,ni,coschi,sinchi,R1f)
-C Call pfresnel(nr,ni,coschi,sinchi,r1f,r2f)
-C write(6,*) "R1 fresnel:",R1f," r1 actual:",r1
-C write(6,*) "R2 fresnel:",R2f," r2 actual:",r2
-C Compute Reflectance of the sun glint
-C Rog=pi*R1*proba/4./cs/cv/(cos(tilt)**4)
- factor=pi*proba/4./cs/cv/(cos(tilt)**4)
-
-C compute rotation angle for Q and U
- muv=cos(xtv*dtr)
- mus=cos(xts*dtr)
- sinv=sin(xtv*dtr)
- if (xtv.gt.0.5) then
- if (sin(phi*dtr).lt.0) then
- cksi=(muv*csca+mus)/sqrt(1.-csca*csca)/sinv
- else
- cksi=-(muv*csca+mus)/sqrt(1.-csca*csca)/sinv
- endif
- else
- cksi=1.0
- endif
- if (cksi.gt.1.) cksi=1.
- if (cksi.lt.-1.) cksi=-1.
- ksi=acos(cksi)/dtr
-C write(6,*) "KSI=",ksi
-
-C apply rotation mattrix
- ropq=r2*(2.*cksi*cksi-1.)*factor
- ropu=-r2*2.*cksi*sqrt(1.-cksi*cksi)*factor
- return
- end
-
- Subroutine pfresnel(nr,ni,coschi,sinchi,r1,r2)
-C
-C to compute the Fresnel's coefficient of reflection (see for
-C example M. Born and E. Wolf, Principles of Optics, Pergamon Press, fifth
-C edition, 1975, pp 628
-C input parameters: nr=index of refraction of the sea water
-C ni=extinction coefficient of the sea water
-C coschi & sinchi=cosine and sine of the incident radiation
-C with respect of the wave facet normal.
-C output parameter: R1=Fresnel's coefficient for reflection
-C
- real nr,ni,a1,a2,u,v,Rr2,Rl2,b1,b2,R1,coschi,sinchi
-c absolute value for a1 to get v=0 when ni=0
- a1=abs(nr*nr-ni*ni-sinchi*sinchi)
- a2=sqrt((nr*nr-ni*ni-sinchi*sinchi)**2.+4*nr*nr*ni*ni)
- u=sqrt(0.5*(a1+a2))
- v=sqrt(0.5*(-a1+a2))
- Rr2=((coschi-u)**2+v*v)/((coschi+u)**2+v*v)
- b1=(nr*nr-ni*ni)*coschi
- b2=2*nr*ni*coschi
- Rl2=((b1-u)**2+(b2+v)**2)/((b1+u)**2+(b2-v)**2)
- R1=(Rr2+Rl2)/2.
- R2=(Rl2-Rr2)/2.
- return
- end
-
-
-
-
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.h b/Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.h
deleted file mode 100644
index 96aed39..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POLGLIT.h
+++ /dev/null
@@ -1,17 +0,0 @@
-extern int otb_6s_polglit_(
- otb_6s_doublereal *xts,
- otb_6s_doublereal *xtv,
- otb_6s_doublereal *phi,
- otb_6s_doublereal *wspd,
- otb_6s_doublereal *azw,
- otb_6s_doublereal *ropq,
- otb_6s_doublereal *ropu
- );
-extern int otb_6s_pfresnel_(
- otb_6s_doublereal *nr,
- otb_6s_doublereal *ni,
- otb_6s_doublereal *coschi,
- otb_6s_doublereal *sinchi,
- otb_6s_doublereal *r1,
- otb_6s_doublereal *r2
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.P b/Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.P
deleted file mode 100644
index 8679f83..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int polnad_(doublereal *xts, doublereal *xtv, doublereal *phi, doublereal *pveg, doublereal *ropq, doublereal *ropu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.c b/Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.c
deleted file mode 100644
index a9a1cc4..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.c
+++ /dev/null
@@ -1,121 +0,0 @@
-/* POLNAD.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< Subroutine POLNAD(xts,xtv,phi,pveg,ropq,ropu) >*/
-/* Subroutine */ int polnad_(doublereal *xts, doublereal *xtv, doublereal *
- phi, doublereal *pveg, doublereal *ropq, doublereal *ropu)
-{
- /* Builtin functions */
- double acos(doublereal), cos(doublereal), sin(doublereal), asin(
- doublereal), sqrt(doublereal);
-
- /* Local variables */
- doublereal n, pi, xf1, xf2, sca, ksi, dtr, mui, mus, mut, muv, csca, cksi,
- sinv, alpha, rpveg, rpsur, alphap, rpsoil, fpalpha;
-
-/*< real xts,xtv,phi,pveg,ropq,ropu >*/
-/* compute the polarized components of the surface */
-/* according to the Nadal and Breon model */
-/* xts is the sun zenith angle in degrees */
-/* xtv is the view zenith angle in degrees */
-/* phi is the relative azimuth between sun and view in degrees */
-/* pveg is the "percentage of vegetation" for use in ponderating */
-/* the polarization of bare soil and vegetation */
-/* ropq and ropu and the stokes parameter (Q,U) of the polarized */
-/* surface reflectance */
-/*< real pi,dtr,csca,sca,alpha,alphap,N,mui,mut >*/
-/* csca is the cosine of the scattering angle (sca) */
-/* alpha is the incidence angle used for specular reflection */
-/* alphap is the refraction angle after specular reflection */
-/* N is the refractive index of vegetation (assumed 1.5) */
-/* intermediate variable to compute direction of polarization */
-/* according to fresnel law */
-/*< real mus,muv,sinv,cksi,ksi,xf1,xf2 >*/
-/*< N=1.5 >*/
- n = 1.5;
-/*< pi=acos(0.0)*2.0 >*/
- pi = acos(0.) * 2.;
-/*< dtr=pi/180.0 >*/
- dtr = pi / 180.;
-/*< c >*/
- csca = -cos(*xts * dtr) * cos(*xtv * dtr) - sin(*xts * dtr) * sin(*xtv *
- dtr) * cos(*phi * dtr);
-/*< sca=acos(csca) >*/
- sca = acos(csca);
-/*< alpha=(pi-sca)/2.0 >*/
- alpha = (pi - sca) / 2.;
-/*< alphap=asin(sin(alpha)/N) >*/
- alphap = asin(sin(alpha) / n);
-/*< mui=cos(alpha) >*/
- mui = cos(alpha);
-/*< mut=cos(alphap) >*/
- mut = cos(alphap);
-/*< xf1=(N*mut-mui)/(N*mut+mui) >*/
- xf1 = (n * mut - mui) / (n * mut + mui);
-/*< xf2=(N*mui-mut)/(N*mui+mut) >*/
- xf2 = (n * mui - mut) / (n * mui + mut);
-/*< fpalpha=0.5*(xf1*xf1-xf2*xf2) >*/
- fpalpha = (xf1 * xf1 - xf2 * xf2) * .5;
-/*< rpveg=fpalpha/4./(cos(xts*dtr)+cos(xtv*dtr)) >*/
- rpveg = fpalpha / 4. / (cos(*xts * dtr) + cos(*xtv * dtr));
-/*< rpsoil=fpalpha/4./cos(xts*dtr)/cos(xtv*dtr) >*/
- rpsoil = fpalpha / 4. / cos(*xts * dtr) / cos(*xtv * dtr);
-/*< rpsur=rpveg*pveg+rpsoil*(1.-pveg) >*/
- rpsur = rpveg * *pveg + rpsoil * (1. - *pveg);
-/* compute rotation angle for Q and U */
-/*< muv=cos(xtv*dtr) >*/
- muv = cos(*xtv * dtr);
-/*< mus=cos(xts*dtr) >*/
- mus = cos(*xts * dtr);
-/*< sinv=sin(xtv*dtr) >*/
- sinv = sin(*xtv * dtr);
-/*< if (xtv.gt.0.5) then >*/
- if (*xtv > .5) {
-/*< if (sin(phi*dtr).lt.0) then >*/
- if (sin(*phi * dtr) < 0.) {
-/*< cksi=(muv*csca+mus)/sqrt(1.-csca*csca)/sinv >*/
- cksi = (muv * csca + mus) / sqrt(1. - csca * csca) / sinv;
-/*< else >*/
- } else {
-/*< cksi=-(muv*csca+mus)/sqrt(1.-csca*csca)/sinv >*/
- cksi = -(muv * csca + mus) / sqrt(1. - csca * csca) / sinv;
-/*< endif >*/
- }
-/*< else >*/
- } else {
-/*< cksi=0.0 >*/
- cksi = 0.;
-/*< endif >*/
- }
-/*< if (cksi.gt.1.) cksi=1. >*/
- if (cksi > 1.) {
- cksi = 1.;
- }
-/*< if (cksi.lt.-1.) cksi=-1. >*/
- if (cksi < -1.) {
- cksi = -1.;
- }
-/*< ksi=acos(cksi)/dtr >*/
- ksi = acos(cksi) / dtr;
-/* write(6,*) "KSI=",ksi */
-/*< ropq=rpsur*(2.*cksi*cksi-1.) >*/
- *ropq = rpsur * (cksi * 2. * cksi - 1.);
-/*< ropu=-rpsur*2.*cksi*sqrt(1.-cksi*cksi) >*/
- *ropu = -rpsur * 2. * cksi * sqrt(1. - cksi * cksi);
-/*< return >*/
- return 0;
-/*< end >*/
-} /* polnad_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.f b/Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.f
deleted file mode 100644
index 0112433..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.f
+++ /dev/null
@@ -1,63 +0,0 @@
- Subroutine POLNAD(xts,xtv,phi,pveg,ropq,ropu)
- real xts,xtv,phi,pveg,ropq,ropu
-
-C compute the polarized components of the surface
-C according to the Nadal and Breon model
-
-C xts is the sun zenith angle in degrees
-C xtv is the view zenith angle in degrees
-C phi is the relative azimuth between sun and view in degrees
-C pveg is the "percentage of vegetation" for use in ponderating
-C the polarization of bare soil and vegetation
-C ropq and ropu and the stokes parameter (Q,U) of the polarized
-C surface reflectance
- real pi,dtr,csca,sca,alpha,alphap,N,mui,mut
-C csca is the cosine of the scattering angle (sca)
-C alpha is the incidence angle used for specular reflection
-C alphap is the refraction angle after specular reflection
-C N is the refractive index of vegetation (assumed 1.5)
-
-C intermediate variable to compute direction of polarization
-C according to fresnel law
- real mus,muv,sinv,cksi,ksi,xf1,xf2
- N=1.5
- pi=acos(0.0)*2.0
- dtr=pi/180.0
- csca=-cos(xts*dtr)*cos(xtv*dtr)-sin(xts*dtr)
- s *sin(xtv*dtr)*cos(phi*dtr)
- sca=acos(csca)
- alpha=(pi-sca)/2.0
- alphap=asin(sin(alpha)/N)
- mui=cos(alpha)
- mut=cos(alphap)
-
- xf1=(N*mut-mui)/(N*mut+mui)
- xf2=(N*mui-mut)/(N*mui+mut)
- fpalpha=0.5*(xf1*xf1-xf2*xf2)
- rpveg=fpalpha/4./(cos(xts*dtr)+cos(xtv*dtr))
- rpsoil=fpalpha/4./cos(xts*dtr)/cos(xtv*dtr)
- rpsur=rpveg*pveg+rpsoil*(1.-pveg)
-
-C compute rotation angle for Q and U
- muv=cos(xtv*dtr)
- mus=cos(xts*dtr)
- sinv=sin(xtv*dtr)
- if (xtv.gt.0.5) then
- if (sin(phi*dtr).lt.0) then
- cksi=(muv*csca+mus)/sqrt(1.-csca*csca)/sinv
- else
- cksi=-(muv*csca+mus)/sqrt(1.-csca*csca)/sinv
- endif
- else
- cksi=0.0
- endif
-
- if (cksi.gt.1.) cksi=1.
- if (cksi.lt.-1.) cksi=-1.
- ksi=acos(cksi)/dtr
-C write(6,*) "KSI=",ksi
- ropq=rpsur*(2.*cksi*cksi-1.)
- ropu=-rpsur*2.*cksi*sqrt(1.-cksi*cksi)
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.h b/Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.h
deleted file mode 100644
index 7b60495..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POLNAD.h
+++ /dev/null
@@ -1,8 +0,0 @@
-extern int otb_6s_polnad_(
- otb_6s_doublereal *xts,
- otb_6s_doublereal *xtv,
- otb_6s_doublereal *phi,
- otb_6s_doublereal *pveg,
- otb_6s_doublereal *ropq,
- otb_6s_doublereal *ropu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSGE.P b/Modules/ThirdParty/6S/src/6SV1.0B/POSGE.P
deleted file mode 100644
index c078de3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSGE.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int posge_(integer *month, integer *jday, doublereal *tu, integer *nc, integer *nl, doublereal *asol, doublereal *phi0, doublereal *avis, doublereal *phiv, doublereal *xlon, doublereal *xlat);
-/* comlen sixs_ier__ 8 */
-/*:ref: print_error__ 14 2 13 124 */
-/*:ref: possol_ 14 7 4 4 7 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSGE.c b/Modules/ThirdParty/6S/src/6SV1.0B/POSGE.c
deleted file mode 100644
index 2cc0938..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSGE.c
+++ /dev/null
@@ -1,162 +0,0 @@
-/* POSGE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-/*< >*/
-/* Subroutine */ int posge_(integer *month, integer *jday, doublereal *tu,
- integer *nc, integer *nl, doublereal *asol, doublereal *phi0,
- doublereal *avis, doublereal *phiv, doublereal *xlon, doublereal *
- xlat)
-{
- /* System generated locals */
- doublereal d__1, d__2;
-
- /* Builtin functions */
- double tan(doublereal), sqrt(doublereal), cos(doublereal), asin(
- doublereal), atan(doublereal), sin(doublereal), atan2(doublereal,
- doublereal);
-
- /* Local variables */
- doublereal x, y, re, pi, sn, rp, yk, rs, xr, yr, xt, yt, zt, aaa, gam,
- cdr, crd, val1, val2;
- extern /* Subroutine */ int print_error__(char *, ftnlen);
- doublereal alti, teta, ylat, tanx, tany, ylon, cosx2, deltax, deltay;
- extern /* Subroutine */ int possol_(integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *);
-
-/*< logical ier >*/
-/*< real tu,asol,phi0,avis,phiv,xlon,xlat,yr,xr,alti >*/
-/*< real re,aaa,rp,pi,cdr,crd,deltax,deltay,x,y,rs >*/
-/*< real tanx,tany,val1,val2,yk,cosx2,sn,zt,xt,yt >*/
-/*< real teta,ylat,ylon,gam >*/
-/*< integer month,jday,nc,nl,iwr >*/
-/*< common/sixs_ier/iwr,ier >*/
-/* goes east definition */
-/*< yr=float(nl)-8665.5 >*/
- yr = (doublereal) (*nl) - 8665.5;
-/*< xr=float(nc)-6498.5 >*/
- xr = (doublereal) (*nc) - 6498.5;
-/*< alti=42107.0-6378.155 >*/
- alti = 35728.845000000001;
-/*< re=6378.155 >*/
- re = 6378.155;
-/*< aaa=1./297. >*/
- aaa = .0033670033670033669;
-/*< rp=re/(1.+aaa) >*/
- rp = re / (aaa + 1.);
-/*< pi=3.1415926 >*/
- pi = 3.1415926;
-/*< cdr=pi/180. >*/
- cdr = pi / 180.;
-/*< crd=180./pi >*/
- crd = 180. / pi;
-/*< deltax=18.0/12997.0 >*/
- deltax = .0013849349849965377;
-/*< deltay=20.0/17331.0 >*/
- deltay = .0011540015002019502;
-/*< x=xr*deltax*cdr >*/
- x = xr * deltax * cdr;
-/*< y=yr*deltay*cdr >*/
- y = yr * deltay * cdr;
-/*< rs=re+alti >*/
- rs = re + alti;
-/*< tanx=tan(x) >*/
- tanx = tan(x);
-/*< tany=tan(y) >*/
- tany = tan(y);
-/*< val1=1.0+(tanx**2) >*/
-/* Computing 2nd power */
- d__1 = tanx;
- val1 = d__1 * d__1 + 1.;
-/*< val2=1.0+(tany*(1.0+aaa))**2 >*/
-/* Computing 2nd power */
- d__1 = tany * (aaa + 1.);
- val2 = d__1 * d__1 + 1.;
-/*< yk=rs/re >*/
- yk = rs / re;
-/*< cosx2=1./(val1*val2) >*/
- cosx2 = 1. / (val1 * val2);
-/*< if((1./cosx2).gt.((yk**2)/(yk**2-1.))) goto 1000 >*/
-/* Computing 2nd power */
- d__1 = yk;
-/* Computing 2nd power */
- d__2 = yk;
- if (1. / cosx2 > d__1 * d__1 / (d__2 * d__2 - 1.)) {
- goto L1000;
- }
-/*< sn=(rs-(re*(sqrt((yk**2)-(yk**2-1.)*(1./cosx2)))))/(1./cosx2) >*/
-/* Computing 2nd power */
- d__1 = yk;
-/* Computing 2nd power */
- d__2 = yk;
- sn = (rs - re * sqrt(d__1 * d__1 - (d__2 * d__2 - 1.) * (1. / cosx2))) / (
- 1. / cosx2);
-/*< zt=rs-sn >*/
- zt = rs - sn;
-/*< xt=-(sn*tanx) >*/
- xt = -(sn * tanx);
-/*< yt=sn*tany/cos(x) >*/
- yt = sn * tany / cos(x);
-/*< teta=asin(yt/rp) >*/
- teta = asin(yt / rp);
-/*< ylat=(atan(((tan(teta))*rp)/re)) >*/
- ylat = atan(tan(teta) * rp / re);
-/*< ylon=atan(xt/zt) >*/
- ylon = atan(xt / zt);
-/*< goto 1001 >*/
- goto L1001;
-/*< 1 >*/
-L1000:
- print_error__("no possibility to compute lat. and long.", 40L);
-/*< return >*/
- return 0;
-/*< 1001 xlat=ylat*crd >*/
-L1001:
- *xlat = ylat * crd;
-/*< xlon=ylon*crd-75. >*/
- *xlon = ylon * crd - 75.;
-/*< >*/
- possol_(month, jday, tu, xlon, xlat, asol, phi0);
-/*< if(ier)return >*/
- if (sixs_ier__1.ier) {
- return 0;
- }
-/*< ylon=xlon*pi/180.+75.*cdr >*/
- ylon = *xlon * pi / 180. + cdr * 75.;
-/*< ylat=xlat*pi/180. >*/
- ylat = *xlat * pi / 180.;
-/*< gam=sqrt(((1./cosx2)-1.)*cosx2) >*/
- gam = sqrt((1. / cosx2 - 1.) * cosx2);
-/*< avis=asin((1.+alti/re)*(gam)) >*/
- *avis = asin((alti / re + 1.) * gam);
-/*< avis=avis*180./pi >*/
- *avis = *avis * 180. / pi;
-/*< phiv=atan2(tan(ylon),sin(ylat))+pi >*/
- *phiv = atan2(tan(ylon), sin(ylat)) + pi;
-/*< phiv=phiv*180./pi >*/
- *phiv = *phiv * 180. / pi;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* posge_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSGE.f b/Modules/ThirdParty/6S/src/6SV1.0B/POSGE.f
deleted file mode 100644
index 6364af2..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSGE.f
+++ /dev/null
@@ -1,61 +0,0 @@
- subroutine posge (month,jday,tu,nc,nl,
- a asol,phi0,avis,phiv,xlon,xlat)
- logical ier
- real tu,asol,phi0,avis,phiv,xlon,xlat,yr,xr,alti
- real re,aaa,rp,pi,cdr,crd,deltax,deltay,x,y,rs
- real tanx,tany,val1,val2,yk,cosx2,sn,zt,xt,yt
- real teta,ylat,ylon,gam
- integer month,jday,nc,nl,iwr
-
- common/sixs_ier/iwr,ier
-
-c goes east definition
-
- yr=float(nl)-8665.5
- xr=float(nc)-6498.5
- alti=42107.0-6378.155
- re=6378.155
- aaa=1./297.
- rp=re/(1.+aaa)
- pi=3.1415926
- cdr=pi/180.
- crd=180./pi
- deltax=18.0/12997.0
- deltay=20.0/17331.0
- x=xr*deltax*cdr
- y=yr*deltay*cdr
- rs=re+alti
- tanx=tan(x)
- tany=tan(y)
- val1=1.0+(tanx**2)
- val2=1.0+(tany*(1.0+aaa))**2
- yk=rs/re
- cosx2=1./(val1*val2)
- if((1./cosx2).gt.((yk**2)/(yk**2-1.))) goto 1000
- sn=(rs-(re*(sqrt((yk**2)-(yk**2-1.)*(1./cosx2)))))/(1./cosx2)
- zt=rs-sn
- xt=-(sn*tanx)
- yt=sn*tany/cos(x)
- teta=asin(yt/rp)
- ylat=(atan(((tan(teta))*rp)/re))
- ylon=atan(xt/zt)
- goto 1001
- 1000 call print_error(
- s 'no possibility to compute lat. and long.')
- return
- 1001 xlat=ylat*crd
- xlon=ylon*crd-75.
-
- call possol(month,jday,tu,xlon,xlat,
- a asol,phi0)
- if(ier)return
-
- ylon=xlon*pi/180.+75.*cdr
- ylat=xlat*pi/180.
- gam=sqrt(((1./cosx2)-1.)*cosx2)
- avis=asin((1.+alti/re)*(gam))
- avis=avis*180./pi
- phiv=atan2(tan(ylon),sin(ylat))+pi
- phiv=phiv*180./pi
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSGE.h b/Modules/ThirdParty/6S/src/6SV1.0B/POSGE.h
deleted file mode 100644
index 3a8b05f..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSGE.h
+++ /dev/null
@@ -1,13 +0,0 @@
-extern int otb_6s_posge_(
- otb_6s_integer *month,
- otb_6s_integer *jday,
- otb_6s_doublereal *tu,
- otb_6s_integer *nc,
- otb_6s_integer *nl,
- otb_6s_doublereal *asol,
- otb_6s_doublereal *phi0,
- otb_6s_doublereal *avis,
- otb_6s_doublereal *phiv,
- otb_6s_doublereal *xlon,
- otb_6s_doublereal *xlat
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSGW.P b/Modules/ThirdParty/6S/src/6SV1.0B/POSGW.P
deleted file mode 100644
index 0251615..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSGW.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int posgw_(integer *month, integer *jday, doublereal *tu, integer *nc, integer *nl, doublereal *asol, doublereal *phi0, doublereal *avis, doublereal *phiv, doublereal *xlon, doublereal *xlat);
-/* comlen sixs_ier__ 8 */
-/*:ref: print_error__ 14 2 13 124 */
-/*:ref: possol_ 14 7 4 4 7 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSGW.c b/Modules/ThirdParty/6S/src/6SV1.0B/POSGW.c
deleted file mode 100644
index 09c899e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSGW.c
+++ /dev/null
@@ -1,162 +0,0 @@
-/* POSGW.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-/*< >*/
-/* Subroutine */ int posgw_(integer *month, integer *jday, doublereal *tu,
- integer *nc, integer *nl, doublereal *asol, doublereal *phi0,
- doublereal *avis, doublereal *phiv, doublereal *xlon, doublereal *
- xlat)
-{
- /* System generated locals */
- doublereal d__1, d__2;
-
- /* Builtin functions */
- double tan(doublereal), sqrt(doublereal), cos(doublereal), asin(
- doublereal), atan(doublereal), sin(doublereal), atan2(doublereal,
- doublereal);
-
- /* Local variables */
- doublereal x, y, re, pi, sn, rp, yk, rs, xr, yr, xt, yt, zt, aaa, gam,
- cdr, crd, val1, val2;
- extern /* Subroutine */ int print_error__(char *, ftnlen);
- doublereal alti, teta, ylat, tanx, tany, ylon, cosx2, deltax, deltay;
- extern /* Subroutine */ int possol_(integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *);
-
-/*< logical ier >*/
-/*< real tu,asol,phi0,avis,phiv,xlon,xlat,yr,xr >*/
-/*< real alti,re,aaa,rp,pi,cdr,crd,deltax,deltay >*/
-/*< real x,y,rs,tanx,tany,val1,val2,yk,cosx2,sn >*/
-/*< real zt,xt,yt,teta,ylat,ylon,gam >*/
-/*< integer month,jday,nc,nl,iwr >*/
-/*< common/sixs_ier/iwr,ier >*/
-/* goes west definition */
-/*< yr=float(nl)-8665.5 >*/
- yr = (doublereal) (*nl) - 8665.5;
-/*< xr=float(nc)-6498.5 >*/
- xr = (doublereal) (*nc) - 6498.5;
-/*< alti=42147.0-6378.155 >*/
- alti = 35768.845000000001;
-/*< re=6378.155 >*/
- re = 6378.155;
-/*< aaa=1./297. >*/
- aaa = .0033670033670033669;
-/*< rp=re/(1.+aaa) >*/
- rp = re / (aaa + 1.);
-/*< pi=3.1415926 >*/
- pi = 3.1415926;
-/*< cdr=pi/180. >*/
- cdr = pi / 180.;
-/*< crd=180./pi >*/
- crd = 180. / pi;
-/*< deltax=18.0/12997.0 >*/
- deltax = .0013849349849965377;
-/*< deltay=20.0/17331.0 >*/
- deltay = .0011540015002019502;
-/*< x=xr*deltax*cdr >*/
- x = xr * deltax * cdr;
-/*< y=yr*deltay*cdr >*/
- y = yr * deltay * cdr;
-/*< rs=re+alti >*/
- rs = re + alti;
-/*< tanx=tan(x) >*/
- tanx = tan(x);
-/*< tany=tan(y) >*/
- tany = tan(y);
-/*< val1=1.0+(tanx**2) >*/
-/* Computing 2nd power */
- d__1 = tanx;
- val1 = d__1 * d__1 + 1.;
-/*< val2=1.0+(tany*(1.0+aaa))**2 >*/
-/* Computing 2nd power */
- d__1 = tany * (aaa + 1.);
- val2 = d__1 * d__1 + 1.;
-/*< yk=rs/re >*/
- yk = rs / re;
-/*< cosx2=1./(val1*val2) >*/
- cosx2 = 1. / (val1 * val2);
-/*< if((1./cosx2).gt.((yk**2)/(yk**2-1.))) goto 1000 >*/
-/* Computing 2nd power */
- d__1 = yk;
-/* Computing 2nd power */
- d__2 = yk;
- if (1. / cosx2 > d__1 * d__1 / (d__2 * d__2 - 1.)) {
- goto L1000;
- }
-/*< sn=(rs-(re*(sqrt((yk**2)-(yk**2-1.)*(1./cosx2)))))/(1./cosx2) >*/
-/* Computing 2nd power */
- d__1 = yk;
-/* Computing 2nd power */
- d__2 = yk;
- sn = (rs - re * sqrt(d__1 * d__1 - (d__2 * d__2 - 1.) * (1. / cosx2))) / (
- 1. / cosx2);
-/*< zt=rs-sn >*/
- zt = rs - sn;
-/*< xt=-(sn*tanx) >*/
- xt = -(sn * tanx);
-/*< yt=sn*tany/cos(x) >*/
- yt = sn * tany / cos(x);
-/*< teta=asin(yt/rp) >*/
- teta = asin(yt / rp);
-/*< ylat=(atan(((tan(teta))*rp)/re)) >*/
- ylat = atan(tan(teta) * rp / re);
-/*< ylon=atan(xt/zt) >*/
- ylon = atan(xt / zt);
-/*< goto 1001 >*/
- goto L1001;
-/*< 1 >*/
-L1000:
- print_error__("no possibility to compute lat. and long.", 40L);
-/*< return >*/
- return 0;
-/*< 1001 xlat=ylat*crd >*/
-L1001:
- *xlat = ylat * crd;
-/*< xlon=ylon*crd-135. >*/
- *xlon = ylon * crd - 135.;
-/*< >*/
- possol_(month, jday, tu, xlon, xlat, asol, phi0);
-/*< if(ier)return >*/
- if (sixs_ier__1.ier) {
- return 0;
- }
-/*< ylon=xlon*pi/180.+135.*cdr >*/
- ylon = *xlon * pi / 180. + cdr * 135.;
-/*< ylat=xlat*pi/180. >*/
- ylat = *xlat * pi / 180.;
-/*< gam=sqrt(((1./cosx2)-1.)*cosx2) >*/
- gam = sqrt((1. / cosx2 - 1.) * cosx2);
-/*< avis=asin((1.+alti/re)*(gam)) >*/
- *avis = asin((alti / re + 1.) * gam);
-/*< avis=avis*180./pi >*/
- *avis = *avis * 180. / pi;
-/*< phiv=atan2(tan(ylon),sin(ylat))+pi >*/
- *phiv = atan2(tan(ylon), sin(ylat)) + pi;
-/*< phiv=phiv*180./pi >*/
- *phiv = *phiv * 180. / pi;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* posgw_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSGW.f b/Modules/ThirdParty/6S/src/6SV1.0B/POSGW.f
deleted file mode 100644
index 763c8cc..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSGW.f
+++ /dev/null
@@ -1,61 +0,0 @@
- subroutine posgw (month,jday,tu,nc,nl,
- a asol,phi0,avis,phiv,xlon,xlat)
- logical ier
- real tu,asol,phi0,avis,phiv,xlon,xlat,yr,xr
- real alti,re,aaa,rp,pi,cdr,crd,deltax,deltay
- real x,y,rs,tanx,tany,val1,val2,yk,cosx2,sn
- real zt,xt,yt,teta,ylat,ylon,gam
- integer month,jday,nc,nl,iwr
-
- common/sixs_ier/iwr,ier
-
-c goes west definition
-
- yr=float(nl)-8665.5
- xr=float(nc)-6498.5
- alti=42147.0-6378.155
- re=6378.155
- aaa=1./297.
- rp=re/(1.+aaa)
- pi=3.1415926
- cdr=pi/180.
- crd=180./pi
- deltax=18.0/12997.0
- deltay=20.0/17331.0
- x=xr*deltax*cdr
- y=yr*deltay*cdr
- rs=re+alti
- tanx=tan(x)
- tany=tan(y)
- val1=1.0+(tanx**2)
- val2=1.0+(tany*(1.0+aaa))**2
- yk=rs/re
- cosx2=1./(val1*val2)
- if((1./cosx2).gt.((yk**2)/(yk**2-1.))) goto 1000
- sn=(rs-(re*(sqrt((yk**2)-(yk**2-1.)*(1./cosx2)))))/(1./cosx2)
- zt=rs-sn
- xt=-(sn*tanx)
- yt=sn*tany/cos(x)
- teta=asin(yt/rp)
- ylat=(atan(((tan(teta))*rp)/re))
- ylon=atan(xt/zt)
- goto 1001
- 1000 call print_error(
- s 'no possibility to compute lat. and long.')
- return
- 1001 xlat=ylat*crd
- xlon=ylon*crd-135.
-
- call possol(month,jday,tu,xlon,xlat,
- a asol,phi0)
- if(ier)return
-
- ylon=xlon*pi/180.+135.*cdr
- ylat=xlat*pi/180.
- gam=sqrt(((1./cosx2)-1.)*cosx2)
- avis=asin((1.+alti/re)*(gam))
- avis=avis*180./pi
- phiv=atan2(tan(ylon),sin(ylat))+pi
- phiv=phiv*180./pi
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSGW.h b/Modules/ThirdParty/6S/src/6SV1.0B/POSGW.h
deleted file mode 100644
index cfa8f35..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSGW.h
+++ /dev/null
@@ -1,13 +0,0 @@
-extern int otb_6s_posgw_(
- otb_6s_integer *month,
- otb_6s_integer *jday,
- otb_6s_doublereal *tu,
- otb_6s_integer *nc,
- otb_6s_integer *nl,
- otb_6s_doublereal *asol,
- otb_6s_doublereal *phi0,
- otb_6s_doublereal *avis,
- otb_6s_doublereal *phiv,
- otb_6s_doublereal *xlon,
- otb_6s_doublereal *xlat
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.P b/Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.P
deleted file mode 100644
index 5957bf8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int poslan_(integer *month, integer *jday, doublereal *tu, doublereal *xlon, doublereal *xlat, doublereal *asol, doublereal *phi0, doublereal *avis, doublereal *phiv);
-/* comlen sixs_ier__ 8 */
-/*:ref: possol_ 14 7 4 4 7 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.c b/Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.c
deleted file mode 100644
index cf83caf..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.c
+++ /dev/null
@@ -1,54 +0,0 @@
-/* POSLAN.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-/*< >*/
-/* Subroutine */ int poslan_(integer *month, integer *jday, doublereal *tu,
- doublereal *xlon, doublereal *xlat, doublereal *asol, doublereal *
- phi0, doublereal *avis, doublereal *phiv)
-{
- extern /* Subroutine */ int possol_(integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *);
-
-/*< logical ier >*/
-/*< real tu,xlon,xlat,asol,phi0,avis,phiv >*/
-/*< integer month,jday,iwr >*/
-/*< common/sixs_ier/iwr,ier >*/
-/* landsat5 definition */
-/* warning !!! */
-/* xlon and xlat are the coordinates of the scene center. */
-/*< avis=0. >*/
- *avis = 0.;
-/*< phiv=0. >*/
- *phiv = 0.;
-/*< >*/
- possol_(month, jday, tu, xlon, xlat, asol, phi0);
-/*< if(ier)return >*/
- if (sixs_ier__1.ier) {
- return 0;
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* poslan_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.f b/Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.f
deleted file mode 100644
index ec8395a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.f
+++ /dev/null
@@ -1,20 +0,0 @@
- subroutine poslan (month,jday,tu,xlon,xlat,
- a asol,phi0,avis,phiv)
- logical ier
- real tu,xlon,xlat,asol,phi0,avis,phiv
- integer month,jday,iwr
- common/sixs_ier/iwr,ier
-
-c landsat5 definition
-c warning !!!
-c xlon and xlat are the coordinates of the scene center.
-
- avis=0.
- phiv=0.
-
- call possol(month,jday,tu,xlon,xlat,
- a asol,phi0)
- if(ier)return
-
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.h b/Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.h
deleted file mode 100644
index ebd100f..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSLAN.h
+++ /dev/null
@@ -1,11 +0,0 @@
-extern int otb_6s_poslan_(
- otb_6s_integer *month,
- otb_6s_integer *jday,
- otb_6s_doublereal *tu,
- otb_6s_doublereal *xlon,
- otb_6s_doublereal *xlat,
- otb_6s_doublereal *asol,
- otb_6s_doublereal *phi0,
- otb_6s_doublereal *avis,
- otb_6s_doublereal *phiv
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.P b/Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.P
deleted file mode 100644
index ce05b70..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int posmto_(integer *month, integer *jday, doublereal *tu, integer *nc, integer *nl, doublereal *asol, doublereal *phi0, doublereal *avis, doublereal *phiv, doublereal *xlon, doublereal *xlat);
-/* comlen sixs_ier__ 8 */
-/*:ref: print_error__ 14 2 13 124 */
-/*:ref: possol_ 14 7 4 4 7 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.c b/Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.c
deleted file mode 100644
index ba3cf8b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.c
+++ /dev/null
@@ -1,162 +0,0 @@
-/* POSMTO.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-/*< >*/
-/* Subroutine */ int posmto_(integer *month, integer *jday, doublereal *tu,
- integer *nc, integer *nl, doublereal *asol, doublereal *phi0,
- doublereal *avis, doublereal *phiv, doublereal *xlon, doublereal *
- xlat)
-{
- /* System generated locals */
- doublereal d__1, d__2;
-
- /* Builtin functions */
- double tan(doublereal), sqrt(doublereal), cos(doublereal), asin(
- doublereal), atan(doublereal), sin(doublereal), atan2(doublereal,
- doublereal);
-
- /* Local variables */
- doublereal x, y, re, pi, sn, rp, yk, rs, xr, yr, xt, yt, zt, aaa, gam,
- cdr, crd, val1, val2;
- extern /* Subroutine */ int print_error__(char *, ftnlen);
- doublereal alti, teta, ylat, tanx, tany, ylon, cosx2, deltax, deltay;
- extern /* Subroutine */ int possol_(integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *);
-
-/*< logical ier >*/
-/*< real tu,asol,phi0,avis,phiv,xlon,xlat,yr,xr,alti >*/
-/*< real re,aaa,rp,pi,cdr,crd,deltax,deltay,x,y,rs >*/
-/*< real tanx,tany,val1,val2,yk,cosx2,sn,zt,xt,yt >*/
-/*< real teta,ylat,ylon,gam >*/
-/*< integer month,jday,nc,nl,iwr >*/
-/*< common/sixs_ier/iwr,ier >*/
-/* meteosat definition */
-/*< yr=float(nl)-1250.5 >*/
- yr = (doublereal) (*nl) - 1250.5;
-/*< xr=float(nc)-2500.5 >*/
- xr = (doublereal) (*nc) - 2500.5;
-/*< alti=42164.0-6378.155 >*/
- alti = 35785.845000000001;
-/*< re=6378.155 >*/
- re = 6378.155;
-/*< aaa=1./297. >*/
- aaa = .0033670033670033669;
-/*< rp=re/(1.+aaa) >*/
- rp = re / (aaa + 1.);
-/*< pi=3.1415926 >*/
- pi = 3.1415926;
-/*< cdr=pi/180. >*/
- cdr = pi / 180.;
-/*< crd=180./pi >*/
- crd = 180. / pi;
-/*< deltax=18.0/5000.0 >*/
- deltax = .0035999999999999999;
-/*< deltay=18.0/2500.0 >*/
- deltay = .0071999999999999998;
-/*< x=xr*deltax*cdr >*/
- x = xr * deltax * cdr;
-/*< y=yr*deltay*cdr >*/
- y = yr * deltay * cdr;
-/*< rs=re+alti >*/
- rs = re + alti;
-/*< tanx=tan(x) >*/
- tanx = tan(x);
-/*< tany=tan(y) >*/
- tany = tan(y);
-/*< val1=1.0+(tanx**2) >*/
-/* Computing 2nd power */
- d__1 = tanx;
- val1 = d__1 * d__1 + 1.;
-/*< val2=1.0+(tany*(1.0+aaa))**2 >*/
-/* Computing 2nd power */
- d__1 = tany * (aaa + 1.);
- val2 = d__1 * d__1 + 1.;
-/*< yk=rs/re >*/
- yk = rs / re;
-/*< cosx2=1./(val1*val2) >*/
- cosx2 = 1. / (val1 * val2);
-/*< if((1./cosx2).gt.((yk**2)/(yk**2-1.))) goto 1000 >*/
-/* Computing 2nd power */
- d__1 = yk;
-/* Computing 2nd power */
- d__2 = yk;
- if (1. / cosx2 > d__1 * d__1 / (d__2 * d__2 - 1.)) {
- goto L1000;
- }
-/*< sn=(rs-(re*(sqrt((yk**2)-(yk**2-1.)*(1./cosx2)))))/(1./cosx2) >*/
-/* Computing 2nd power */
- d__1 = yk;
-/* Computing 2nd power */
- d__2 = yk;
- sn = (rs - re * sqrt(d__1 * d__1 - (d__2 * d__2 - 1.) * (1. / cosx2))) / (
- 1. / cosx2);
-/*< zt=rs-sn >*/
- zt = rs - sn;
-/*< xt=-(sn*tanx) >*/
- xt = -(sn * tanx);
-/*< yt=sn*tany/cos(x) >*/
- yt = sn * tany / cos(x);
-/*< teta=asin(yt/rp) >*/
- teta = asin(yt / rp);
-/*< ylat=(atan(((tan(teta))*rp)/re)) >*/
- ylat = atan(tan(teta) * rp / re);
-/*< ylon=atan(xt/zt) >*/
- ylon = atan(xt / zt);
-/*< goto 1001 >*/
- goto L1001;
-/*< 1 >*/
-L1000:
- print_error__("no possibility to compute lat. and long.", 40L);
-/*< return >*/
- return 0;
-/*< 1001 xlat=ylat*crd >*/
-L1001:
- *xlat = ylat * crd;
-/*< xlon=ylon*crd >*/
- *xlon = ylon * crd;
-/*< >*/
- possol_(month, jday, tu, xlon, xlat, asol, phi0);
-/*< if(ier)return >*/
- if (sixs_ier__1.ier) {
- return 0;
- }
-/*< ylon=xlon*pi/180. >*/
- ylon = *xlon * pi / 180.;
-/*< ylat=xlat*pi/180. >*/
- ylat = *xlat * pi / 180.;
-/*< gam=sqrt(((1./cosx2)-1.)*cosx2) >*/
- gam = sqrt((1. / cosx2 - 1.) * cosx2);
-/*< avis=asin((1.+alti/re)*(gam)) >*/
- *avis = asin((alti / re + 1.) * gam);
-/*< avis=avis*180./pi >*/
- *avis = *avis * 180. / pi;
-/*< phiv=atan2(tan(ylon),sin(ylat))+pi >*/
- *phiv = atan2(tan(ylon), sin(ylat)) + pi;
-/*< phiv=phiv*180./pi >*/
- *phiv = *phiv * 180. / pi;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* posmto_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.f b/Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.f
deleted file mode 100644
index 0712c7a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.f
+++ /dev/null
@@ -1,60 +0,0 @@
- subroutine posmto (month,jday,tu,nc,nl,
- a asol,phi0,avis,phiv,xlon,xlat)
- logical ier
- real tu,asol,phi0,avis,phiv,xlon,xlat,yr,xr,alti
- real re,aaa,rp,pi,cdr,crd,deltax,deltay,x,y,rs
- real tanx,tany,val1,val2,yk,cosx2,sn,zt,xt,yt
- real teta,ylat,ylon,gam
- integer month,jday,nc,nl,iwr
- common/sixs_ier/iwr,ier
-
-c meteosat definition
-
- yr=float(nl)-1250.5
- xr=float(nc)-2500.5
- alti=42164.0-6378.155
- re=6378.155
- aaa=1./297.
- rp=re/(1.+aaa)
- pi=3.1415926
- cdr=pi/180.
- crd=180./pi
- deltax=18.0/5000.0
- deltay=18.0/2500.0
- x=xr*deltax*cdr
- y=yr*deltay*cdr
- rs=re+alti
- tanx=tan(x)
- tany=tan(y)
- val1=1.0+(tanx**2)
- val2=1.0+(tany*(1.0+aaa))**2
- yk=rs/re
- cosx2=1./(val1*val2)
- if((1./cosx2).gt.((yk**2)/(yk**2-1.))) goto 1000
- sn=(rs-(re*(sqrt((yk**2)-(yk**2-1.)*(1./cosx2)))))/(1./cosx2)
- zt=rs-sn
- xt=-(sn*tanx)
- yt=sn*tany/cos(x)
- teta=asin(yt/rp)
- ylat=(atan(((tan(teta))*rp)/re))
- ylon=atan(xt/zt)
- goto 1001
- 1000 call print_error(
- s 'no possibility to compute lat. and long.')
- return
- 1001 xlat=ylat*crd
- xlon=ylon*crd
-
- call possol(month,jday,tu,xlon,xlat,
- a asol,phi0)
- if(ier)return
-
- ylon=xlon*pi/180.
- ylat=xlat*pi/180.
- gam=sqrt(((1./cosx2)-1.)*cosx2)
- avis=asin((1.+alti/re)*(gam))
- avis=avis*180./pi
- phiv=atan2(tan(ylon),sin(ylat))+pi
- phiv=phiv*180./pi
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.h b/Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.h
deleted file mode 100644
index 2490fb9..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSMTO.h
+++ /dev/null
@@ -1,13 +0,0 @@
-extern int otb_6s_posmto_(
- otb_6s_integer *month,
- otb_6s_integer *jday,
- otb_6s_doublereal *tu,
- otb_6s_integer *nc,
- otb_6s_integer *nl,
- otb_6s_doublereal *asol,
- otb_6s_doublereal *phi0,
- otb_6s_doublereal *avis,
- otb_6s_doublereal *phiv,
- otb_6s_doublereal *xlon,
- otb_6s_doublereal *xlat
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.P b/Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.P
deleted file mode 100644
index 63e2847..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int posnoa_(integer *month, integer *jday, doublereal *tu, integer *nc, doublereal *xlonan, doublereal *hna, doublereal *campm, doublereal *asol, doublereal *phi0, doublereal *avis, doublereal *phiv, doublereal *xlon, doublereal *xlat);
-/* comlen sixs_ier__ 8 */
-/*:ref: possol_ 14 7 4 4 7 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.c b/Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.c
deleted file mode 100644
index 9d8de0e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.c
+++ /dev/null
@@ -1,146 +0,0 @@
-/* POSNOA.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-/*< >*/
-/* Subroutine */ int posnoa_(integer *month, integer *jday, doublereal *tu,
- integer *nc, doublereal *xlonan, doublereal *hna, doublereal *campm,
- doublereal *asol, doublereal *phi0, doublereal *avis, doublereal *
- phiv, doublereal *xlon, doublereal *xlat)
-{
- /* Builtin functions */
- double sin(doublereal), asin(doublereal), cos(doublereal), atan2(
- doublereal, doublereal);
-
- /* Local variables */
- doublereal d__, r__, t, u, y, z__, ai, an, pi, ylo1, hnam, delt, xden,
- ylat, zlat, cosy, ylon, siny, zlon, xnum, ylonan;
- extern /* Subroutine */ int possol_(integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *);
-
-/*< logical ier >*/
-/*< real tu,xlonan,hna,asol,phi0,avis,phiv,xlon,xlat,campm >*/
-/*< real pi,r,ai,an,ylonan,t,hnam,u,delt,d,y,z >*/
-/*< real ylat,cosy,siny,ylon,ylo1,zlat,zlon,xnum,xden >*/
-/*< integer month,jday,nc,iwr >*/
-/*< common/sixs_ier/iwr,ier >*/
-/* noaa 6 definition */
-/* orbite inclination ai in radians */
-/* hor mouv in rad/s an */
-/* h/r=860/6378 */
-/* campm allows the user to switch to pm platforms */
-/*< pi=3.1415926 >*/
- pi = 3.1415926;
-/*< r=860./6378.155 >*/
- r__ = .13483523056432464;
-/*< ai=98.96*pi/180. >*/
- ai = pi * 98.96 / 180.;
-/*< an=360.*pi/(6119.*180.) >*/
- an = pi * 360. / 1101420.;
-/*< ylonan=xlonan*pi/180. >*/
- ylonan = *xlonan * pi / 180.;
-/*< t=tu*3600 >*/
- t = *tu * 3600;
-/*< hnam=hna >*/
- hnam = *hna;
-/*< hnam=hnam*3600 >*/
- hnam *= 3600;
-/*< u=t-hnam >*/
- u = t - hnam;
-/*< u=campm*u*an >*/
- u = *campm * u * an;
-/*< delt=((nc-(2048+1)/2.)*55.385/((2048.-1)/2.)) >*/
- delt = (*nc - 1024.5) * 55.385 / 1023.5;
-/*< delt=campm*delt*pi/180. >*/
- delt = *campm * delt * pi / 180.;
-/*< avis=asin((1+r)*sin(delt)) >*/
- *avis = asin((r__ + 1) * sin(delt));
-/*< d=avis-delt >*/
- d__ = *avis - delt;
-/*< y=cos(d)*cos(ai)*sin(u)-sin(ai)*sin(d) >*/
- y = cos(d__) * cos(ai) * sin(u) - sin(ai) * sin(d__);
-/*< z=cos(d)*sin(ai)*sin(u)+cos(ai)*sin(d) >*/
- z__ = cos(d__) * sin(ai) * sin(u) + cos(ai) * sin(d__);
-/*< ylat=asin(z) >*/
- ylat = asin(z__);
-/*< cosy=cos(d)*cos(u)/cos(ylat) >*/
- cosy = cos(d__) * cos(u) / cos(ylat);
-/*< siny=y/cos(ylat) >*/
- siny = y / cos(ylat);
-/*< ylon=asin(siny) >*/
- ylon = asin(siny);
-/*< if(cosy.gt.0.)goto 10 >*/
- if (cosy > 0.) {
- goto L10;
- }
-/*< if(siny.gt.0) ylon=pi-ylon >*/
- if (siny > 0.) {
- ylon = pi - ylon;
- }
-/*< if(siny.le.0) ylon=-(pi+ylon) >*/
- if (siny <= 0.) {
- ylon = -(pi + ylon);
- }
-/*< 10 ylo1=ylon+ylonan-(t-hnam)*2.*pi/86400. >*/
-L10:
- ylo1 = ylon + ylonan - (t - hnam) * 2. * pi / 86400.;
-/*< xlat=ylat*180./pi >*/
- *xlat = ylat * 180. / pi;
-/*< xlon=ylo1*180./pi >*/
- *xlon = ylo1 * 180. / pi;
-/*< >*/
- possol_(month, jday, tu, xlon, xlat, asol, phi0);
-/*< if(ier)return >*/
- if (sixs_ier__1.ier) {
- return 0;
- }
-/*< zlat=asin(sin(ai)*sin(u)) >*/
- zlat = asin(sin(ai) * sin(u));
-/*< zlon=atan2(cos(ai)*sin(u),cos(u)) >*/
- zlon = atan2(cos(ai) * sin(u), cos(u));
-/*< if(nc.ne.1024)then >*/
- if (*nc != 1024) {
-/*< xnum=sin(zlon-ylon)*cos(zlat)/sin(abs(d)) >*/
- xnum = sin(zlon - ylon) * cos(zlat) / sin((abs(d__)));
-/*< xden=(sin(zlat)-sin(ylat)*cos(d))/cos(ylat)/sin(abs(d)) >*/
- xden = (sin(zlat) - sin(ylat) * cos(d__)) / cos(ylat) / sin((abs(d__))
- );
-/*< phiv=atan2(xnum,xden) >*/
- *phiv = atan2(xnum, xden);
-/*< else >*/
- } else {
-/*< phiv=0. >*/
- *phiv = 0.;
-/*< endif >*/
- }
-/*< phiv=phiv*180./pi >*/
- *phiv = *phiv * 180. / pi;
-/*< avis=abs(avis) >*/
- *avis = abs(*avis);
-/*< avis=avis*180./pi >*/
- *avis = *avis * 180. / pi;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* posnoa_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.f b/Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.f
deleted file mode 100644
index 0f70864..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.f
+++ /dev/null
@@ -1,60 +0,0 @@
- subroutine posnoa (month,jday,tu,nc,xlonan,hna,campm,
- a asol,phi0,avis,phiv,xlon,xlat)
- logical ier
- real tu,xlonan,hna,asol,phi0,avis,phiv,xlon,xlat,campm
- real pi,r,ai,an,ylonan,t,hnam,u,delt,d,y,z
- real ylat,cosy,siny,ylon,ylo1,zlat,zlon,xnum,xden
- integer month,jday,nc,iwr
- common/sixs_ier/iwr,ier
-
-c noaa 6 definition
-c orbite inclination ai in radians
-c hor mouv in rad/s an
-c h/r=860/6378
-c campm allows the user to switch to pm platforms
-
- pi=3.1415926
- r=860./6378.155
- ai=98.96*pi/180.
- an=360.*pi/(6119.*180.)
- ylonan=xlonan*pi/180.
- t=tu*3600
- hnam=hna
- hnam=hnam*3600
- u=t-hnam
- u=campm*u*an
- delt=((nc-(2048+1)/2.)*55.385/((2048.-1)/2.))
- delt=campm*delt*pi/180.
- avis=asin((1+r)*sin(delt))
- d=avis-delt
- y=cos(d)*cos(ai)*sin(u)-sin(ai)*sin(d)
- z=cos(d)*sin(ai)*sin(u)+cos(ai)*sin(d)
- ylat=asin(z)
- cosy=cos(d)*cos(u)/cos(ylat)
- siny=y/cos(ylat)
- ylon=asin(siny)
- if(cosy.gt.0.)goto 10
- if(siny.gt.0) ylon=pi-ylon
- if(siny.le.0) ylon=-(pi+ylon)
- 10 ylo1=ylon+ylonan-(t-hnam)*2.*pi/86400.
- xlat=ylat*180./pi
- xlon=ylo1*180./pi
-
- call possol(month,jday,tu,xlon,xlat,
- a asol,phi0)
- if(ier)return
-
- zlat=asin(sin(ai)*sin(u))
- zlon=atan2(cos(ai)*sin(u),cos(u))
- if(nc.ne.1024)then
- xnum=sin(zlon-ylon)*cos(zlat)/sin(abs(d))
- xden=(sin(zlat)-sin(ylat)*cos(d))/cos(ylat)/sin(abs(d))
- phiv=atan2(xnum,xden)
- else
- phiv=0.
- endif
- phiv=phiv*180./pi
- avis=abs(avis)
- avis=avis*180./pi
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.h b/Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.h
deleted file mode 100644
index 18247be..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSNOA.h
+++ /dev/null
@@ -1,15 +0,0 @@
-extern int otb_6s_posnoa_(
- otb_6s_integer *month,
- otb_6s_integer *jday,
- otb_6s_doublereal *tu,
- otb_6s_integer *nc,
- otb_6s_doublereal *xlonan,
- otb_6s_doublereal *hna,
- otb_6s_doublereal *campm,
- otb_6s_doublereal *asol,
- otb_6s_doublereal *phi0,
- otb_6s_doublereal *avis,
- otb_6s_doublereal *phiv,
- otb_6s_doublereal *xlon,
- otb_6s_doublereal *xlat
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.P b/Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.P
deleted file mode 100644
index a67dc44..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int possol_(integer *month, integer *jday, doublereal *tu, doublereal *xlon, doublereal *xlat, doublereal *asol, doublereal *phi0);
-extern int day_number__(integer *jday, integer *month, integer *ia, integer *j);
-extern int pos_fft__(integer *j, doublereal *tu, doublereal *xlon, doublereal *xlat, doublereal *asol, doublereal *phi0);
-/*:ref: print_error__ 14 2 13 124 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.c b/Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.c
deleted file mode 100644
index 363111d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.c
+++ /dev/null
@@ -1,197 +0,0 @@
-/* POSSOL.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static doublereal c_b5 = 1.;
-
-/*< >*/
-/* Subroutine */ int possol_(integer *month, integer *jday, doublereal *tu,
- doublereal *xlon, doublereal *xlat, doublereal *asol, doublereal *
- phi0)
-{
- integer ia;
- extern /* Subroutine */ int day_number__(integer *, integer *, integer *,
- integer *), print_error__(char *, ftnlen);
- integer nojour;
- extern /* Subroutine */ int pos_fft__(integer *, doublereal *, doublereal
- *, doublereal *, doublereal *, doublereal *);
-
-/*< real tu,xlon,xlat,asol,phi0 >*/
-/*< integer month,jday,ia,nojour >*/
-/* solar position (zenithal angle asol,azimuthal angle phi0 */
-/* in degrees) */
-/* jday is the number of the day in the month */
-/*< ia = 0 >*/
- ia = 0;
-/*< call day_number(jday,month,ia,nojour) >*/
- day_number__(jday, month, &ia, &nojour);
-/*< call pos_fft (nojour, tu, xlon, xlat, asol, phi0) >*/
- pos_fft__(&nojour, tu, xlon, xlat, asol, phi0);
-/*< >*/
- if (*asol > 90.) {
- print_error__("The sun is not raised", 21L);
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* possol_ */
-
-/*< subroutine day_number(jday,month,ia,j) >*/
-/* Subroutine */ int day_number__(integer *jday, integer *month, integer *ia,
- integer *j)
-{
-/*< integer jday, month, ia, j >*/
-/*< if (month.le.2) then >*/
- if (*month <= 2) {
-/*< j=31*(month-1)+jday >*/
- *j = (*month - 1) * 31 + *jday;
-/*< return >*/
- return 0;
-/*< endif >*/
- }
-/*< if (month.gt.8) then >*/
- if (*month > 8) {
-/*< j=31*(month-1)-((month-2)/2)-2+jday >*/
- *j = (*month - 1) * 31 - (*month - 2) / 2 - 2 + *jday;
-/*< else >*/
- } else {
-/*< j=31*(month-1)-((month-1)/2)-2+jday >*/
- *j = (*month - 1) * 31 - (*month - 1) / 2 - 2 + *jday;
-/*< endif >*/
- }
-/*< if(ia.ne.0 .and. mod(ia,4).eq.0) j=j+1 >*/
- if (*ia != 0 && *ia % 4 == 0) {
- ++(*j);
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* day_number__ */
-
-/*< subroutine pos_fft (j,tu,xlon,xlat,asol,phi0) >*/
-/* Subroutine */ int pos_fft__(integer *j, doublereal *tu, doublereal *xlon,
- doublereal *xlat, doublereal *asol, doublereal *phi0)
-{
- /* Builtin functions */
- double cos(doublereal), sin(doublereal), asin(doublereal), d_sign(
- doublereal *, doublereal *);
-
- /* Local variables */
- doublereal a1, a2, a3, a4, a5, b1, b2, b3, b4, b5, b6, b7, ah, et, az, xj,
- pi2, caz, xla, tet, tsm, tsv, elev, azim, delta, amuzero;
-
-/*< >*/
-/*< integer j >*/
-/*< parameter (pi=3.14159265,fac=pi/180.) >*/
-/* solar position (zenithal angle asol,azimuthal angle phi0 */
-/* in degrees) */
-/* j is the day number in the year */
-
-/* mean solar time (heure decimale) */
-/*< tsm=tu+xlon/15. >*/
- tsm = *tu + *xlon / 15.;
-/*< xla=xlat*fac >*/
- xla = *xlat * .017453292500000002;
-/*< xj=float(j) >*/
- xj = (doublereal) (*j);
-/*< tet=2.*pi*xj/365. >*/
- tet = xj * 6.2831853000000004 / 365.;
-/* time equation (in mn.dec) */
-/*< a1=.000075 >*/
- a1 = 7.5e-5;
-/*< a2=.001868 >*/
- a2 = .001868;
-/*< a3=.032077 >*/
- a3 = .032077;
-/*< a4=.014615 >*/
- a4 = .014615;
-/*< a5=.040849 >*/
- a5 = .040849;
-/*< et=a1+a2*cos(tet)-a3*sin(tet)-a4*cos(2.*tet)-a5*sin(2.*tet) >*/
- et = a1 + a2 * cos(tet) - a3 * sin(tet) - a4 * cos(tet * 2.) - a5 * sin(
- tet * 2.);
-/*< et=et*12.*60./pi >*/
- et = et * 12. * 60. / 3.14159265;
-/* true solar time */
-/*< tsv=tsm+et/60. >*/
- tsv = tsm + et / 60.;
-/*< tsv=(tsv-12.) >*/
- tsv += -12.;
-/* hour angle */
-/*< ah=tsv*15.*fac >*/
- ah = tsv * 15. * .017453292500000002;
-/* solar declination (in radian) */
-/*< b1=.006918 >*/
- b1 = .006918;
-/*< b2=.399912 >*/
- b2 = .399912;
-/*< b3=.070257 >*/
- b3 = .070257;
-/*< b4=.006758 >*/
- b4 = .006758;
-/*< b5=.000907 >*/
- b5 = 9.07e-4;
-/*< b6=.002697 >*/
- b6 = .002697;
-/*< b7=.001480 >*/
- b7 = .00148;
-/*< >*/
- delta = b1 - b2 * cos(tet) + b3 * sin(tet) - b4 * cos(tet * 2.) + b5 *
- sin(tet * 2.) - b6 * cos(tet * 3.) + b7 * sin(tet * 3.);
-/* elevation,azimuth */
-/*< amuzero=sin(xla)*sin(delta)+cos(xla)*cos(delta)*cos(ah) >*/
- amuzero = sin(xla) * sin(delta) + cos(xla) * cos(delta) * cos(ah);
-/*< elev=asin(amuzero) >*/
- elev = asin(amuzero);
-/*< az=cos(delta)*sin(ah)/cos(elev) >*/
- az = cos(delta) * sin(ah) / cos(elev);
-/*< if ( (abs(az)-1.000).gt.0.00000) az = sign(1.,az) >*/
- if (abs(az) - 1. > 0.) {
- az = d_sign(&c_b5, &az);
- }
-/*< caz=(-cos(xla)*sin(delta)+sin(xla)*cos(delta)*cos(ah))/cos(elev) >*/
- caz = (-cos(xla) * sin(delta) + sin(xla) * cos(delta) * cos(ah)) / cos(
- elev);
-/*< azim=asin(az) >*/
- azim = asin(az);
-/*< if(caz.le.0.) azim=pi-azim >*/
- if (caz <= 0.) {
- azim = 3.14159265 - azim;
- }
-/*< if(caz.gt.0.and.az.le.0) azim=2*pi+azim >*/
- if (caz > 0. && az <= 0.) {
- azim += 6.2831853000000004;
- }
-/*< azim=azim+pi >*/
- azim += 3.14159265;
-/*< pi2=2*pi >*/
- pi2 = 6.2831853000000004;
-/*< if(azim.gt.pi2) azim=azim-pi2 >*/
- if (azim > pi2) {
- azim -= pi2;
- }
-/*< elev=elev*180./pi >*/
- elev = elev * 180. / 3.14159265;
-/* conversion in degrees */
-/*< asol=90.-elev >*/
- *asol = 90. - elev;
-/*< phi0=azim/fac >*/
- *phi0 = azim / .017453292500000002;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* pos_fft__ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.f b/Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.f
deleted file mode 100644
index c2f5a48..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.f
+++ /dev/null
@@ -1,104 +0,0 @@
- subroutine possol (month,jday,tu,xlon,xlat,
- a asol,phi0)
-
- real tu,xlon,xlat,asol,phi0
- integer month,jday,ia,nojour
-
-c solar position (zenithal angle asol,azimuthal angle phi0
-c in degrees)
-c jday is the number of the day in the month
-
- ia = 0
- call day_number(jday,month,ia,nojour)
-
- call pos_fft (nojour, tu, xlon, xlat, asol, phi0)
-
- if(asol.gt.90) call print_error(
- s 'The sun is not raised')
- return
- end
-
- subroutine day_number(jday,month,ia,j)
- integer jday, month, ia, j
-
- if (month.le.2) then
- j=31*(month-1)+jday
- return
- endif
- if (month.gt.8) then
- j=31*(month-1)-((month-2)/2)-2+jday
- else
- j=31*(month-1)-((month-1)/2)-2+jday
- endif
- if(ia.ne.0 .and. mod(ia,4).eq.0) j=j+1
- return
- end
-
- subroutine pos_fft (j,tu,xlon,xlat,asol,phi0)
- real tu, xlat, asol,phi0, tsm, xlon,xla, xj, tet,
- a a1, a2, a3, a4, a5, et, tsv, ah, b1, b2, b3, b4,
- a b5, b6, b7, delta, amuzero, elev, az, caz, azim, pi2
- integer j
- parameter (pi=3.14159265,fac=pi/180.)
-c solar position (zenithal angle asol,azimuthal angle phi0
-c in degrees)
-c j is the day number in the year
-c
-c mean solar time (heure decimale)
-
- tsm=tu+xlon/15.
- xla=xlat*fac
- xj=float(j)
- tet=2.*pi*xj/365.
-
-c time equation (in mn.dec)
- a1=.000075
- a2=.001868
- a3=.032077
- a4=.014615
- a5=.040849
- et=a1+a2*cos(tet)-a3*sin(tet)-a4*cos(2.*tet)-a5*sin(2.*tet)
- et=et*12.*60./pi
-
-c true solar time
-
- tsv=tsm+et/60.
- tsv=(tsv-12.)
-
-c hour angle
-
- ah=tsv*15.*fac
-
-c solar declination (in radian)
-
- b1=.006918
- b2=.399912
- b3=.070257
- b4=.006758
- b5=.000907
- b6=.002697
- b7=.001480
- delta=b1-b2*cos(tet)+b3*sin(tet)-b4*cos(2.*tet)+b5*sin(2.*tet)-
- &b6*cos(3.*tet)+b7*sin(3.*tet)
-
-c elevation,azimuth
-
- amuzero=sin(xla)*sin(delta)+cos(xla)*cos(delta)*cos(ah)
- elev=asin(amuzero)
- az=cos(delta)*sin(ah)/cos(elev)
- if ( (abs(az)-1.000).gt.0.00000) az = sign(1.,az)
- caz=(-cos(xla)*sin(delta)+sin(xla)*cos(delta)*cos(ah))/cos(elev)
- azim=asin(az)
- if(caz.le.0.) azim=pi-azim
- if(caz.gt.0.and.az.le.0) azim=2*pi+azim
- azim=azim+pi
- pi2=2*pi
- if(azim.gt.pi2) azim=azim-pi2
- elev=elev*180./pi
-
-c conversion in degrees
-
- asol=90.-elev
- phi0=azim/fac
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.h b/Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.h
deleted file mode 100644
index 08b5435..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSSOL.h
+++ /dev/null
@@ -1,23 +0,0 @@
-extern int otb_6s_possol_(
- otb_6s_integer *month,
- otb_6s_integer *jday,
- otb_6s_doublereal *tu,
- otb_6s_doublereal *xlon,
- otb_6s_doublereal *xlat,
- otb_6s_doublereal *asol,
- otb_6s_doublereal *phi0
- );
-extern int day_number_otb_6s__(
- otb_6s_integer *jday,
- otb_6s_integer *month,
- otb_6s_integer *ia,
- otb_6s_integer *j
- );
-extern int pos_fft_otb_6s__(
- otb_6s_integer *j,
- otb_6s_doublereal *tu,
- otb_6s_doublereal *xlon,
- otb_6s_doublereal *xlat,
- otb_6s_doublereal *asol,
- otb_6s_doublereal *phi0
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.P b/Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.P
deleted file mode 100644
index 1f743cd..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int posspo_(integer *month, integer *jday, doublereal *tu, doublereal *xlon, doublereal *xlat, doublereal *asol, doublereal *phi0, doublereal *avis, doublereal *phiv);
-/* comlen sixs_ier__ 8 */
-/*:ref: possol_ 14 7 4 4 7 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.c b/Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.c
deleted file mode 100644
index 67ce9ba..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.c
+++ /dev/null
@@ -1,54 +0,0 @@
-/* POSSPO.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-/*< >*/
-/* Subroutine */ int posspo_(integer *month, integer *jday, doublereal *tu,
- doublereal *xlon, doublereal *xlat, doublereal *asol, doublereal *
- phi0, doublereal *avis, doublereal *phiv)
-{
- extern /* Subroutine */ int possol_(integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *);
-
-/*< logical ier >*/
-/*< real tu,xlon,xlat,asol,phi0,avis,phiv >*/
-/*< integer month,jday,iwr >*/
-/*< common/sixs_ier/iwr,ier >*/
-/* spot definition */
-/* warning !!! */
-/* xlon and xlat are the coordinates of the scene center. */
-/*< avis=0. >*/
- *avis = 0.;
-/*< phiv=0. >*/
- *phiv = 0.;
-/*< >*/
- possol_(month, jday, tu, xlon, xlat, asol, phi0);
-/*< if(ier)return >*/
- if (sixs_ier__1.ier) {
- return 0;
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* posspo_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.f b/Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.f
deleted file mode 100644
index c6e7bc1..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.f
+++ /dev/null
@@ -1,21 +0,0 @@
- subroutine posspo (month,jday,tu,xlon,xlat,
- a asol,phi0,avis,phiv)
- logical ier
- real tu,xlon,xlat,asol,phi0,avis,phiv
- integer month,jday,iwr
-
- common/sixs_ier/iwr,ier
-
-c spot definition
-c warning !!!
-c xlon and xlat are the coordinates of the scene center.
-
- avis=0.
- phiv=0.
-
- call possol(month,jday,tu,xlon,xlat,
- a asol,phi0)
- if(ier)return
-
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.h b/Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.h
deleted file mode 100644
index 0eb3c50..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/POSSPO.h
+++ /dev/null
@@ -1,11 +0,0 @@
-extern int otb_6s_posspo_(
- otb_6s_integer *month,
- otb_6s_integer *jday,
- otb_6s_doublereal *tu,
- otb_6s_doublereal *xlon,
- otb_6s_doublereal *xlat,
- otb_6s_doublereal *asol,
- otb_6s_doublereal *phi0,
- otb_6s_doublereal *avis,
- otb_6s_doublereal *phiv
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.P b/Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.P
deleted file mode 100644
index 82bbf12..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int presplane_(doublereal *uw, doublereal *uo3, doublereal *xpp, doublereal *ftray);
-/* comlen sixs_atm__ 1360 */
-/* comlen sixs_planesim__ 1360 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.c b/Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.c
deleted file mode 100644
index 954ed93..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.c
+++ /dev/null
@@ -1,204 +0,0 @@
-/* PRESPLANE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#define sixs_atm__1 sixs_atm__
-
-Extern struct {
- doublereal zpl[34], ppl[34], tpl[34], whpl[34], wopl[34];
-} sixs_planesim__;
-
-#define sixs_planesim__1 sixs_planesim__
-
-/*< subroutine presplane(uw,uo3,xpp,ftray) >*/
-/* Subroutine */ int presplane_(doublereal *uw, doublereal *uo3, doublereal *
- xpp, doublereal *ftray)
-{
- /* System generated locals */
- integer i__1;
-
- /* Builtin functions */
- double log(doublereal), exp(doublereal);
-
- /* Local variables */
- doublereal g;
- integer i__, k;
- doublereal ds, xa, xb, rp, ps, rt, ro3, air, xwh, xwo, rmo3[34];
- integer iinf;
- doublereal xalt, rmwh[34];
- integer isup;
- doublereal roair, xtemp;
-
-/*< real z,p,t,wh,wo,zpl,ppl,tpl,whpl,wopl,xa,xb,xalt >*/
-/*< real xtemp,xwo,xwh,g,air,ro3,rt,rp,roair,ds >*/
-/*< integer i,isup,iinf,k >*/
-/*< real rmo3(34),rmwh(34) >*/
-/*< real ps,xpp,uo3,uw,ftray >*/
-/*< common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34) >*/
-/*< common /sixs_planesim/zpl(34),ppl(34),tpl(34),whpl(34),wopl(34) >*/
-/* log linear interpolation */
-/*< xpp=xpp+z(1) >*/
- *xpp += sixs_atm__1.z__[0];
-/*< if (xpp.ge.100.) xpp=1000. >*/
- if (*xpp >= 100.) {
- *xpp = 1e3;
- }
-/*< i=0 >*/
- i__ = 0;
-/*< 10 i=i+1 >*/
-L10:
- ++i__;
-/*< if (z(i).le.xpp) goto 10 >*/
- if (sixs_atm__1.z__[i__ - 1] <= *xpp) {
- goto L10;
- }
-/*< isup=i >*/
- isup = i__;
-/*< iinf=i-1 >*/
- iinf = i__ - 1;
-/*< xa=(z(isup)-z(iinf))/alog(p(isup)/p(iinf)) >*/
- xa = (sixs_atm__1.z__[isup - 1] - sixs_atm__1.z__[iinf - 1]) / log(
- sixs_atm__1.p[isup - 1] / sixs_atm__1.p[iinf - 1]);
-/*< xb=z(isup)-xa*alog(p(isup)) >*/
- xb = sixs_atm__1.z__[isup - 1] - xa * log(sixs_atm__1.p[isup - 1]);
-/*< ps=exp((xpp-xb)/xa) >*/
- ps = exp((*xpp - xb) / xa);
-/* interpolating temperature wator vapor and ozone profile versus altitud
-*/
-/*< xalt=xpp >*/
- xalt = *xpp;
-/*< xtemp=(t(isup)-t(iinf))/(z(isup)-z(iinf)) >*/
- xtemp = (sixs_atm__1.t[isup - 1] - sixs_atm__1.t[iinf - 1]) / (
- sixs_atm__1.z__[isup - 1] - sixs_atm__1.z__[iinf - 1]);
-/*< xtemp=xtemp*(xalt-z(iinf))+t(iinf) >*/
- xtemp = xtemp * (xalt - sixs_atm__1.z__[iinf - 1]) + sixs_atm__1.t[iinf -
- 1];
-/*< xwo=(wo(isup)-wo(iinf))/(z(isup)-z(iinf)) >*/
- xwo = (sixs_atm__1.wo[isup - 1] - sixs_atm__1.wo[iinf - 1]) / (
- sixs_atm__1.z__[isup - 1] - sixs_atm__1.z__[iinf - 1]);
-/*< xwo=xwo*(xalt-z(iinf))+wo(iinf) >*/
- xwo = xwo * (xalt - sixs_atm__1.z__[iinf - 1]) + sixs_atm__1.wo[iinf - 1];
-/*< xwh=(wh(isup)-wh(iinf))/(z(isup)-z(iinf)) >*/
- xwh = (sixs_atm__1.wh[isup - 1] - sixs_atm__1.wh[iinf - 1]) / (
- sixs_atm__1.z__[isup - 1] - sixs_atm__1.z__[iinf - 1]);
-/*< xwh=xwh*(xalt-z(iinf))+wh(iinf) >*/
- xwh = xwh * (xalt - sixs_atm__1.z__[iinf - 1]) + sixs_atm__1.wh[iinf - 1];
-/* uptading atmospheric profile */
-/* last level: plane , complete to 34 */
-/* with interpolated layers */
-/*< do i=1,iinf >*/
- i__1 = iinf;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< zpl(i)=z(i) >*/
- sixs_planesim__1.zpl[i__ - 1] = sixs_atm__1.z__[i__ - 1];
-/*< ppl(i)=p(i) >*/
- sixs_planesim__1.ppl[i__ - 1] = sixs_atm__1.p[i__ - 1];
-/*< tpl(i)=t(i) >*/
- sixs_planesim__1.tpl[i__ - 1] = sixs_atm__1.t[i__ - 1];
-/*< whpl(i)=wh(i) >*/
- sixs_planesim__1.whpl[i__ - 1] = sixs_atm__1.wh[i__ - 1];
-/*< wopl(i)=wo(i) >*/
- sixs_planesim__1.wopl[i__ - 1] = sixs_atm__1.wo[i__ - 1];
-/*< enddo >*/
- }
-/*< zpl(iinf+1)=xalt >*/
- sixs_planesim__1.zpl[iinf] = xalt;
-/*< ppl(iinf+1)=ps >*/
- sixs_planesim__1.ppl[iinf] = ps;
-/*< tpl(iinf+1)=xtemp >*/
- sixs_planesim__1.tpl[iinf] = xtemp;
-/*< whpl(iinf+1)=xwh >*/
- sixs_planesim__1.whpl[iinf] = xwh;
-/*< wopl(iinf+1)=xwo >*/
- sixs_planesim__1.wopl[iinf] = xwo;
-/*< do i=iinf+2,34 >*/
- for (i__ = iinf + 2; i__ <= 34; ++i__) {
-/*< zpl(i)=zpl(iinf+1) >*/
- sixs_planesim__1.zpl[i__ - 1] = sixs_planesim__1.zpl[iinf];
-/*< ppl(i)=ppl(iinf+1) >*/
- sixs_planesim__1.ppl[i__ - 1] = sixs_planesim__1.ppl[iinf];
-/*< tpl(i)=tpl(iinf+1) >*/
- sixs_planesim__1.tpl[i__ - 1] = sixs_planesim__1.tpl[iinf];
-/*< whpl(i)=whpl(iinf+1) >*/
- sixs_planesim__1.whpl[i__ - 1] = sixs_planesim__1.whpl[iinf];
-/*< wopl(i)=wopl(iinf+1) >*/
- sixs_planesim__1.wopl[i__ - 1] = sixs_planesim__1.wopl[iinf];
-/*< enddo >*/
- }
-/* compute modified h2o and o3 integrated content */
-/* compute conversion factor for rayleigh optical thickness computation */
-/* ftray=rp/rt */
-/*< uw=0. >*/
- *uw = 0.;
-/*< uo3=0. >*/
- *uo3 = 0.;
-/*< g=98.1 >*/
- g = 98.1;
-/*< air=0.028964/0.0224 >*/
- air = 1.2930357142857143;
-/*< ro3=0.048/0.0224 >*/
- ro3 = 2.1428571428571428;
-/*< rt=0. >*/
- rt = 0.;
-/*< rp=0. >*/
- rp = 0.;
-/*< do k=1,33 >*/
- for (k = 1; k <= 33; ++k) {
-/*< roair=air*273.16*ppl(k)/(1013.25*tpl(k)) >*/
- roair = air * 273.16 * sixs_planesim__1.ppl[k - 1] / (
- sixs_planesim__1.tpl[k - 1] * 1013.25);
-/*< rmwh(k)=wh(k)/(roair*1000.) >*/
- rmwh[k - 1] = sixs_atm__1.wh[k - 1] / (roair * 1e3);
-/*< rmo3(k)=wo(k)/(roair*1000.) >*/
- rmo3[k - 1] = sixs_atm__1.wo[k - 1] / (roair * 1e3);
-/*< rt=rt+(p(k+1)/t(k+1)+p(k)/t(k))*(z(k+1)-z(k)) >*/
- rt += (sixs_atm__1.p[k] / sixs_atm__1.t[k] + sixs_atm__1.p[k - 1] /
- sixs_atm__1.t[k - 1]) * (sixs_atm__1.z__[k] - sixs_atm__1.z__[
- k - 1]);
-/*< rp=rp+(ppl(k+1)/tpl(k+1)+ppl(k)/tpl(k))*(zpl(k+1)-zpl(k)) >*/
- rp += (sixs_planesim__1.ppl[k] / sixs_planesim__1.tpl[k] +
- sixs_planesim__1.ppl[k - 1] / sixs_planesim__1.tpl[k - 1]) * (
- sixs_planesim__1.zpl[k] - sixs_planesim__1.zpl[k - 1]);
-/*< enddo >*/
- }
-/*< ftray=rp/rt >*/
- *ftray = rp / rt;
-/*< do k=2,33 >*/
- for (k = 2; k <= 33; ++k) {
-/*< ds=(ppl(k-1)-ppl(k))/ppl(1) >*/
- ds = (sixs_planesim__1.ppl[k - 2] - sixs_planesim__1.ppl[k - 1]) /
- sixs_planesim__1.ppl[0];
-/*< uw=uw+((rmwh(k)+rmwh(k-1))/2.)*ds >*/
- *uw += (rmwh[k - 1] + rmwh[k - 2]) / 2. * ds;
-/*< uo3=uo3+((rmo3(k)+rmo3(k-1))/2.)*ds >*/
- *uo3 += (rmo3[k - 1] + rmo3[k - 2]) / 2. * ds;
-/*< enddo >*/
- }
-/*< uw=uw*ppl(1)*100./g >*/
- *uw = *uw * sixs_planesim__1.ppl[0] * 100. / g;
-/*< uo3=uo3*ppl(1)*100./g >*/
- *uo3 = *uo3 * sixs_planesim__1.ppl[0] * 100. / g;
-/*< uo3=1000.*uo3/ro3 >*/
- *uo3 = *uo3 * 1e3 / ro3;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* presplane_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.f b/Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.f
deleted file mode 100644
index 84a1413..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.f
+++ /dev/null
@@ -1,80 +0,0 @@
- subroutine presplane(uw,uo3,xpp,ftray)
-
- real z,p,t,wh,wo,zpl,ppl,tpl,whpl,wopl,xa,xb,xalt
- real xtemp,xwo,xwh,g,air,ro3,rt,rp,roair,ds
- integer i,isup,iinf,k
- real rmo3(34),rmwh(34)
- real ps,xpp,uo3,uw,ftray
-
- common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34)
- common /sixs_planesim/zpl(34),ppl(34),tpl(34),whpl(34),wopl(34)
-
-c log linear interpolation
- xpp=xpp+z(1)
- if (xpp.ge.100.) xpp=1000.
- i=0
- 10 i=i+1
- if (z(i).le.xpp) goto 10
- isup=i
- iinf=i-1
- xa=(z(isup)-z(iinf))/alog(p(isup)/p(iinf))
- xb=z(isup)-xa*alog(p(isup))
- ps=exp((xpp-xb)/xa)
-c interpolating temperature wator vapor and ozone profile versus altitud
- xalt=xpp
- xtemp=(t(isup)-t(iinf))/(z(isup)-z(iinf))
- xtemp=xtemp*(xalt-z(iinf))+t(iinf)
- xwo=(wo(isup)-wo(iinf))/(z(isup)-z(iinf))
- xwo=xwo*(xalt-z(iinf))+wo(iinf)
- xwh=(wh(isup)-wh(iinf))/(z(isup)-z(iinf))
- xwh=xwh*(xalt-z(iinf))+wh(iinf)
-c uptading atmospheric profile
-c last level: plane , complete to 34
-c with interpolated layers
- do i=1,iinf
- zpl(i)=z(i)
- ppl(i)=p(i)
- tpl(i)=t(i)
- whpl(i)=wh(i)
- wopl(i)=wo(i)
- enddo
- zpl(iinf+1)=xalt
- ppl(iinf+1)=ps
- tpl(iinf+1)=xtemp
- whpl(iinf+1)=xwh
- wopl(iinf+1)=xwo
- do i=iinf+2,34
- zpl(i)=zpl(iinf+1)
- ppl(i)=ppl(iinf+1)
- tpl(i)=tpl(iinf+1)
- whpl(i)=whpl(iinf+1)
- wopl(i)=wopl(iinf+1)
- enddo
-c compute modified h2o and o3 integrated content
-c compute conversion factor for rayleigh optical thickness computation
-c ftray=rp/rt
- uw=0.
- uo3=0.
- g=98.1
- air=0.028964/0.0224
- ro3=0.048/0.0224
- rt=0.
- rp=0.
- do k=1,33
- roair=air*273.16*ppl(k)/(1013.25*tpl(k))
- rmwh(k)=wh(k)/(roair*1000.)
- rmo3(k)=wo(k)/(roair*1000.)
- rt=rt+(p(k+1)/t(k+1)+p(k)/t(k))*(z(k+1)-z(k))
- rp=rp+(ppl(k+1)/tpl(k+1)+ppl(k)/tpl(k))*(zpl(k+1)-zpl(k))
- enddo
- ftray=rp/rt
- do k=2,33
- ds=(ppl(k-1)-ppl(k))/ppl(1)
- uw=uw+((rmwh(k)+rmwh(k-1))/2.)*ds
- uo3=uo3+((rmo3(k)+rmo3(k-1))/2.)*ds
- enddo
- uw=uw*ppl(1)*100./g
- uo3=uo3*ppl(1)*100./g
- uo3=1000.*uo3/ro3
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.h b/Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.h
deleted file mode 100644
index 86f27d2..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PRESPLANE.h
+++ /dev/null
@@ -1,6 +0,0 @@
-extern int otb_6s_presplane_(
- otb_6s_doublereal *uw,
- otb_6s_doublereal *uo3,
- otb_6s_doublereal *xpp,
- otb_6s_doublereal *ftray
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.P b/Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.P
deleted file mode 100644
index b4e61b9..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int pressure_(doublereal *uw, doublereal *uo3, doublereal *xps);
-/* comlen sixs_atm__ 1360 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.c b/Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.c
deleted file mode 100644
index 90b1231..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.c
+++ /dev/null
@@ -1,187 +0,0 @@
-/* PRESSURE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#define sixs_atm__1 sixs_atm__
-
-/*< subroutine pressure(uw,uo3,xps) >*/
-/* Subroutine */ int pressure_(doublereal *uw, doublereal *uo3, doublereal *
- xps)
-{
- /* System generated locals */
- integer i__1;
-
- /* Builtin functions */
- double log(doublereal), exp(doublereal);
-
- /* Local variables */
- doublereal g;
- integer i__, k, l;
- doublereal ds, xa, xb, ps, ro3, air, xwh, xwo, rmo3[34];
- integer iinf;
- doublereal xalt, rmwh[34];
- integer isup;
- doublereal roair, xtemp;
-
-/*< common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34) >*/
-/*< real z,p,t,wh,wo,xa,xb,xalt,xtemp,xwo,xwh,g >*/
-/*< real air,ro3,roair,ds >*/
-/*< integer i,isup,iinf,l,k >*/
-/*< real rmo3(34),rmwh(34) >*/
-/*< real ps,xps,uo3,uw >*/
-/* log linear interpolation */
-/*< xps=-xps >*/
- *xps = -(*xps);
-/*< if (xps.ge.100.) xps=99.99 >*/
- if (*xps >= 100.) {
- *xps = 99.99;
- }
-/*< i=0 >*/
- i__ = 0;
-/*< 10 i=i+1 >*/
-L10:
- ++i__;
-/*< if (z(i).le.xps) goto 10 >*/
- if (sixs_atm__1.z__[i__ - 1] <= *xps) {
- goto L10;
- }
-/*< isup=i >*/
- isup = i__;
-/*< iinf=i-1 >*/
- iinf = i__ - 1;
-/*< xa=(z(isup)-z(iinf))/alog(p(isup)/p(iinf)) >*/
- xa = (sixs_atm__1.z__[isup - 1] - sixs_atm__1.z__[iinf - 1]) / log(
- sixs_atm__1.p[isup - 1] / sixs_atm__1.p[iinf - 1]);
-/*< xb=z(isup)-xa*alog(p(isup)) >*/
- xb = sixs_atm__1.z__[isup - 1] - xa * log(sixs_atm__1.p[isup - 1]);
-/*< ps=exp((xps-xb)/xa) >*/
- ps = exp((*xps - xb) / xa);
-/* interpolating temperature wator vapor and ozone profile versus altitud
-*/
-/*< xalt=xps >*/
- xalt = *xps;
-/*< xtemp=(t(isup)-t(iinf))/(z(isup)-z(iinf)) >*/
- xtemp = (sixs_atm__1.t[isup - 1] - sixs_atm__1.t[iinf - 1]) / (
- sixs_atm__1.z__[isup - 1] - sixs_atm__1.z__[iinf - 1]);
-/*< xtemp=xtemp*(xalt-z(iinf))+t(iinf) >*/
- xtemp = xtemp * (xalt - sixs_atm__1.z__[iinf - 1]) + sixs_atm__1.t[iinf -
- 1];
-/*< xwo=(wo(isup)-wo(iinf))/(z(isup)-z(iinf)) >*/
- xwo = (sixs_atm__1.wo[isup - 1] - sixs_atm__1.wo[iinf - 1]) / (
- sixs_atm__1.z__[isup - 1] - sixs_atm__1.z__[iinf - 1]);
-/*< xwo=xwo*(xalt-z(iinf))+wo(iinf) >*/
- xwo = xwo * (xalt - sixs_atm__1.z__[iinf - 1]) + sixs_atm__1.wo[iinf - 1];
-/*< xwh=(wh(isup)-wh(iinf))/(z(isup)-z(iinf)) >*/
- xwh = (sixs_atm__1.wh[isup - 1] - sixs_atm__1.wh[iinf - 1]) / (
- sixs_atm__1.z__[isup - 1] - sixs_atm__1.z__[iinf - 1]);
-/*< xwh=xwh*(xalt-z(iinf))+wh(iinf) >*/
- xwh = xwh * (xalt - sixs_atm__1.z__[iinf - 1]) + sixs_atm__1.wh[iinf - 1];
-/* uptading atmospheric profile */
-/* 1rst level: target , complete to 34 */
-/* with interpolated layers */
-/*< z(1)=xalt >*/
- sixs_atm__1.z__[0] = xalt;
-/*< p(1)=ps >*/
- sixs_atm__1.p[0] = ps;
-/*< t(1)=xtemp >*/
- sixs_atm__1.t[0] = xtemp;
-/*< wh(1)=xwh >*/
- sixs_atm__1.wh[0] = xwh;
-/*< wo(1)=xwo >*/
- sixs_atm__1.wo[0] = xwo;
-/*< do i=2,33-iinf+1 >*/
- i__1 = 33 - iinf + 1;
- for (i__ = 2; i__ <= i__1; ++i__) {
-/*< z(i)=z(i+iinf-1) >*/
- sixs_atm__1.z__[i__ - 1] = sixs_atm__1.z__[i__ + iinf - 2];
-/*< p(i)=p(i+iinf-1) >*/
- sixs_atm__1.p[i__ - 1] = sixs_atm__1.p[i__ + iinf - 2];
-/*< t(i)=t(i+iinf-1) >*/
- sixs_atm__1.t[i__ - 1] = sixs_atm__1.t[i__ + iinf - 2];
-/*< wh(i)=wh(i+iinf-1) >*/
- sixs_atm__1.wh[i__ - 1] = sixs_atm__1.wh[i__ + iinf - 2];
-/*< wo(i)=wo(i+iinf-1) >*/
- sixs_atm__1.wo[i__ - 1] = sixs_atm__1.wo[i__ + iinf - 2];
-/*< enddo >*/
- }
-/*< l=33-iinf+1 >*/
- l = 33 - iinf + 1;
-/*< do i=l+1,34 >*/
- for (i__ = l + 1; i__ <= 34; ++i__) {
-/*< z(i)=(z(34)-z(l))*(i-l)/(34-l)+z(l) >*/
- sixs_atm__1.z__[i__ - 1] = (sixs_atm__1.z__[33] - sixs_atm__1.z__[l -
- 1]) * (i__ - l) / (34 - l) + sixs_atm__1.z__[l - 1];
-/*< p(i)=(p(34)-p(l))*(i-l)/(34-l)+p(l) >*/
- sixs_atm__1.p[i__ - 1] = (sixs_atm__1.p[33] - sixs_atm__1.p[l - 1]) *
- (i__ - l) / (34 - l) + sixs_atm__1.p[l - 1];
-/*< t(i)=(t(34)-t(l))*(i-l)/(34-l)+t(l) >*/
- sixs_atm__1.t[i__ - 1] = (sixs_atm__1.t[33] - sixs_atm__1.t[l - 1]) *
- (i__ - l) / (34 - l) + sixs_atm__1.t[l - 1];
-/*< wh(i)=(wh(34)-wh(l))*(i-l)/(34-l)+wh(l) >*/
- sixs_atm__1.wh[i__ - 1] = (sixs_atm__1.wh[33] - sixs_atm__1.wh[l - 1])
- * (i__ - l) / (34 - l) + sixs_atm__1.wh[l - 1];
-/*< wo(i)=(wo(34)-wo(l))*(i-l)/(34-l)+wo(l) >*/
- sixs_atm__1.wo[i__ - 1] = (sixs_atm__1.wo[33] - sixs_atm__1.wo[l - 1])
- * (i__ - l) / (34 - l) + sixs_atm__1.wo[l - 1];
-/*< enddo >*/
- }
-/* compute modified h2o and o3 integrated content */
-/*< uw=0. >*/
- *uw = 0.;
-/*< uo3=0. >*/
- *uo3 = 0.;
-/*< g=98.1 >*/
- g = 98.1;
-/*< air=0.028964/0.0224 >*/
- air = 1.2930357142857143;
-/*< ro3=0.048/0.0224 >*/
- ro3 = 2.1428571428571428;
-/*< do k=1,33 >*/
- for (k = 1; k <= 33; ++k) {
-/*< roair=air*273.16*p(k)/(1013.25*t(k)) >*/
- roair = air * 273.16 * sixs_atm__1.p[k - 1] / (sixs_atm__1.t[k - 1] *
- 1013.25);
-/*< rmwh(k)=wh(k)/(roair*1000.) >*/
- rmwh[k - 1] = sixs_atm__1.wh[k - 1] / (roair * 1e3);
-/*< rmo3(k)=wo(k)/(roair*1000.) >*/
- rmo3[k - 1] = sixs_atm__1.wo[k - 1] / (roair * 1e3);
-/*< enddo >*/
- }
-/*< do k=2,33 >*/
- for (k = 2; k <= 33; ++k) {
-/*< ds=(p(k-1)-p(k))/p(1) >*/
- ds = (sixs_atm__1.p[k - 2] - sixs_atm__1.p[k - 1]) / sixs_atm__1.p[0];
-/*< uw=uw+((rmwh(k)+rmwh(k-1))/2.)*ds >*/
- *uw += (rmwh[k - 1] + rmwh[k - 2]) / 2. * ds;
-/*< uo3=uo3+((rmo3(k)+rmo3(k-1))/2.)*ds >*/
- *uo3 += (rmo3[k - 1] + rmo3[k - 2]) / 2. * ds;
-/*< enddo >*/
- }
-/*< uw=uw*p(1)*100./g >*/
- *uw = *uw * sixs_atm__1.p[0] * 100. / g;
-/*< uo3=uo3*p(1)*100./g >*/
- *uo3 = *uo3 * sixs_atm__1.p[0] * 100. / g;
-/*< uo3=1000.*uo3/ro3 >*/
- *uo3 = *uo3 * 1e3 / ro3;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* pressure_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.f b/Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.f
deleted file mode 100644
index aeaeeae..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.f
+++ /dev/null
@@ -1,70 +0,0 @@
- subroutine pressure(uw,uo3,xps)
- common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34)
- real z,p,t,wh,wo,xa,xb,xalt,xtemp,xwo,xwh,g
- real air,ro3,roair,ds
- integer i,isup,iinf,l,k
- real rmo3(34),rmwh(34)
- real ps,xps,uo3,uw
-c log linear interpolation
- xps=-xps
- if (xps.ge.100.) xps=99.99
- i=0
- 10 i=i+1
- if (z(i).le.xps) goto 10
- isup=i
- iinf=i-1
- xa=(z(isup)-z(iinf))/alog(p(isup)/p(iinf))
- xb=z(isup)-xa*alog(p(isup))
- ps=exp((xps-xb)/xa)
-c interpolating temperature wator vapor and ozone profile versus altitud
- xalt=xps
- xtemp=(t(isup)-t(iinf))/(z(isup)-z(iinf))
- xtemp=xtemp*(xalt-z(iinf))+t(iinf)
- xwo=(wo(isup)-wo(iinf))/(z(isup)-z(iinf))
- xwo=xwo*(xalt-z(iinf))+wo(iinf)
- xwh=(wh(isup)-wh(iinf))/(z(isup)-z(iinf))
- xwh=xwh*(xalt-z(iinf))+wh(iinf)
-c uptading atmospheric profile
-c 1rst level: target , complete to 34
-c with interpolated layers
- z(1)=xalt
- p(1)=ps
- t(1)=xtemp
- wh(1)=xwh
- wo(1)=xwo
- do i=2,33-iinf+1
- z(i)=z(i+iinf-1)
- p(i)=p(i+iinf-1)
- t(i)=t(i+iinf-1)
- wh(i)=wh(i+iinf-1)
- wo(i)=wo(i+iinf-1)
- enddo
- l=33-iinf+1
- do i=l+1,34
- z(i)=(z(34)-z(l))*(i-l)/(34-l)+z(l)
- p(i)=(p(34)-p(l))*(i-l)/(34-l)+p(l)
- t(i)=(t(34)-t(l))*(i-l)/(34-l)+t(l)
- wh(i)=(wh(34)-wh(l))*(i-l)/(34-l)+wh(l)
- wo(i)=(wo(34)-wo(l))*(i-l)/(34-l)+wo(l)
- enddo
-c compute modified h2o and o3 integrated content
- uw=0.
- uo3=0.
- g=98.1
- air=0.028964/0.0224
- ro3=0.048/0.0224
- do k=1,33
- roair=air*273.16*p(k)/(1013.25*t(k))
- rmwh(k)=wh(k)/(roair*1000.)
- rmo3(k)=wo(k)/(roair*1000.)
- enddo
- do k=2,33
- ds=(p(k-1)-p(k))/p(1)
- uw=uw+((rmwh(k)+rmwh(k-1))/2.)*ds
- uo3=uo3+((rmo3(k)+rmo3(k-1))/2.)*ds
- enddo
- uw=uw*p(1)*100./g
- uo3=uo3*p(1)*100./g
- uo3=1000.*uo3/ro3
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.h b/Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.h
deleted file mode 100644
index 87c626c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PRESSURE.h
+++ /dev/null
@@ -1,5 +0,0 @@
-extern int otb_6s_pressure_(
- otb_6s_doublereal *uw,
- otb_6s_doublereal *uo3,
- otb_6s_doublereal *xps
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.P b/Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.P
deleted file mode 100644
index 32771ee..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int print_error__(char *tex, ftnlen tex_len);
-/* comlen sixs_ier__ 8 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.c b/Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.c
deleted file mode 100644
index bd5706c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.c
+++ /dev/null
@@ -1,55 +0,0 @@
-/* PRINT_ERROR.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-/* Table of constant values */
-
-static integer c__1 = 1;
-
-/*< subroutine print_error(tex) >*/
-/* Subroutine */ int print_error__(char *tex, ftnlen tex_len)
-{
- /* System generated locals */
- cilist ci__1;
-
- /* Builtin functions */
- integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe();
-
-/*< character *(*) tex >*/
-/*< logical ier >*/
-/*< integer iwr >*/
-/*< common/sixs_ier/iwr,ier >*/
-/*< ier = .TRUE. >*/
- sixs_ier__1.ier = TRUE_;
-/*< write(iwr,'(a)')tex >*/
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = "(a)";
- s_wsfe(&ci__1);
- do_fio(&c__1, tex, tex_len);
- e_wsfe();
-/*< return >*/
- return 0;
-/*< end >*/
-} /* print_error__ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.f b/Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.f
deleted file mode 100644
index b6cbafa..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.f
+++ /dev/null
@@ -1,9 +0,0 @@
- subroutine print_error(tex)
- character *(*) tex
- logical ier
- integer iwr
- common/sixs_ier/iwr,ier
- ier = .TRUE.
- write(iwr,'(a)')tex
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.h b/Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.h
deleted file mode 100644
index 699cb58..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/PRINT_ERROR.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int print_error_otb_6s__(
- char *tex,
- otb_6s_ftnlen tex_len
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.P b/Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.P
deleted file mode 100644
index 8f08846..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int rahmalbe_(doublereal *rho0, doublereal *af, doublereal *xk, doublereal *brdfalb);
-/*:ref: gauss_ 14 5 7 7 7 7 4 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.c b/Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.c
deleted file mode 100644
index 5e01c43..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.c
+++ /dev/null
@@ -1,137 +0,0 @@
-/* RAHMALBE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static integer c__24 = 24;
-static integer c__48 = 48;
-static doublereal c_b7 = 1.5;
-
-/*< Subroutine RAHMALBE (rho0,af,xk,brdfalb) >*/
-/* Subroutine */ int rahmalbe_(doublereal *rho0, doublereal *af, doublereal *
- xk, doublereal *brdfalb)
-{
- /* System generated locals */
- doublereal d__1, d__2, d__3, d__4;
-
- /* Builtin functions */
- double acos(doublereal), cos(doublereal), sin(doublereal), sqrt(
- doublereal), pow_dd(doublereal *, doublereal *);
-
- /* Local variables */
- integer j, k, l;
- doublereal fa[48], fi, ta[24], pi, si1, si2, mu1, mu2, wfa[48], wta[24],
- phi1, phi2, pond, summ, coef1, coef2, teta1, teta2;
- extern /* Subroutine */ int gauss_(doublereal *, doublereal *, doublereal
- *, doublereal *, integer *);
- doublereal tante1, tante2, geofac, phaang, cospha, phafun;
-
-/*< parameter (nta=24,nfa=48) >*/
-
-/* see RAHMBRDF.f for description */
-
-/*< integer j,k,l >*/
-/*< real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa) >*/
-/*< real xk,af,rho0 >*/
-/*< real brdfalb,summ,si1,si2,pond >*/
-/*< real coef1,coef2,cospha,geofac >*/
-/*< real fi,mu1,mu2,phaang,phafun,pi,tante1,tante2 >*/
-
-/*< pi =acos(-1.0) >*/
- pi = acos(-1.);
-/*< teta1=0. >*/
- teta1 = 0.;
-/*< teta2=pi/2. >*/
- teta2 = pi / 2.;
-/*< call gauss(teta1,teta2,ta,wta,nta) >*/
- gauss_(&teta1, &teta2, ta, wta, &c__24);
-/*< phi1=0. >*/
- phi1 = 0.;
-/*< phi2=2.*pi >*/
- phi2 = pi * 2.;
-/*< call gauss(phi1,phi2,fa,wfa,nfa) >*/
- gauss_(&phi1, &phi2, fa, wfa, &c__48);
-/*< brdfalb=0. >*/
- *brdfalb = 0.;
-/*< summ=0. >*/
- summ = 0.;
-/*< do 1 k=1,nfa >*/
- for (k = 1; k <= 48; ++k) {
-/*< do 2 j=1,nta >*/
- for (j = 1; j <= 24; ++j) {
-/*< do 3 l=1,nta >*/
- for (l = 1; l <= 24; ++l) {
-/*< mu2=cos(ta(j)) >*/
- mu2 = cos(ta[j - 1]);
-/*< mu1=cos(ta(l)) >*/
- mu1 = cos(ta[l - 1]);
-/*< si2=sin(ta(j)) >*/
- si2 = sin(ta[j - 1]);
-/*< si1=sin(ta(l)) >*/
- si1 = sin(ta[l - 1]);
-/*< fi=fa(k) >*/
- fi = fa[k - 1];
-/* Compute various trigonometric expressions: */
-/*< cospha=mu1*mu2+sqrt(1.-mu1*mu1)*sqrt(1.-mu2*mu2)*cos(fi) >*/
- cospha = mu1 * mu2 + sqrt(1. - mu1 * mu1) * sqrt(1. - mu2 *
- mu2) * cos(fi);
-/*< phaang=acos(cospha) >*/
- phaang = acos(cospha);
-/*< tante1=sqrt(1.-mu1*mu1)/mu1 >*/
- tante1 = sqrt(1. - mu1 * mu1) / mu1;
-/*< tante2=sqrt(1.-mu2*mu2)/mu2 >*/
- tante2 = sqrt(1. - mu2 * mu2) / mu2;
-/*< geofac=sqrt(tante1*tante1+tante2*tante2-2.0*tante1*tante2*cos(fi)) >*/
- geofac = sqrt(tante1 * tante1 + tante2 * tante2 - tante1 * 2.
- * tante2 * cos(fi));
-/* Compute the first term */
-/*< coef1=(mu1**(xk-1.))*(mu2**(xk-1.))/((mu1+mu2)**(1.-xk)) >*/
- d__1 = *xk - 1.;
- d__2 = *xk - 1.;
- d__3 = mu1 + mu2;
- d__4 = 1. - *xk;
- coef1 = pow_dd(&mu1, &d__1) * pow_dd(&mu2, &d__2) / pow_dd(&
- d__3, &d__4);
-/* Compute the phase function: */
-/*< phafun=(1.0-af*af)/((1.0+af*af-2.0*af*cos(pi-phaang))**1.5) >*/
- d__1 = *af * *af + 1. - *af * 2. * cos(pi - phaang);
- phafun = (1. - *af * *af) / pow_dd(&d__1, &c_b7);
-/* Compute the opposition (hot spot) function: */
-/*< coef2=1.+(1.-rho0)/(1.+geofac) >*/
- coef2 = (1. - *rho0) / (geofac + 1.) + 1.;
-/* Compute the bidirectional reflectance factor: */
-/*< pond=mu1*mu2*si1*si2*wfa(k)*wta(j)*wta(l) >*/
- pond = mu1 * mu2 * si1 * si2 * wfa[k - 1] * wta[j - 1] * wta[
- l - 1];
-/*< brdfalb=brdfalb+rho0*coef1*phafun*coef2*pond >*/
- *brdfalb += *rho0 * coef1 * phafun * coef2 * pond;
-/*< summ=summ+pond >*/
- summ += pond;
-/*< 3 continue >*/
-/* L3: */
- }
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< brdfalb=brdfalb/summ >*/
- *brdfalb /= summ;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* rahmalbe_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.f b/Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.f
deleted file mode 100644
index 41f705a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.f
+++ /dev/null
@@ -1,52 +0,0 @@
- Subroutine RAHMALBE (rho0,af,xk,brdfalb)
- parameter (nta=24,nfa=48)
-C
-C see RAHMBRDF.f for description
-C
- integer j,k,l
- real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa)
- real xk,af,rho0
- real brdfalb,summ,si1,si2,pond
- real coef1,coef2,cospha,geofac
- real fi,mu1,mu2,phaang,phafun,pi,tante1,tante2
-C
- pi =acos(-1.0)
- teta1=0.
- teta2=pi/2.
- call gauss(teta1,teta2,ta,wta,nta)
- phi1=0.
- phi2=2.*pi
- call gauss(phi1,phi2,fa,wfa,nfa)
- brdfalb=0.
- summ=0.
- do 1 k=1,nfa
- do 2 j=1,nta
- do 3 l=1,nta
- mu2=cos(ta(j))
- mu1=cos(ta(l))
- si2=sin(ta(j))
- si1=sin(ta(l))
- fi=fa(k)
-C Compute various trigonometric expressions:
- cospha=mu1*mu2+sqrt(1.-mu1*mu1)*sqrt(1.-mu2*mu2)*cos(fi)
- phaang=acos(cospha)
- tante1=sqrt(1.-mu1*mu1)/mu1
- tante2=sqrt(1.-mu2*mu2)/mu2
- geofac=sqrt(tante1*tante1+tante2*tante2-2.0*tante1*tante2*cos(fi))
-C Compute the first term
- coef1=(mu1**(xk-1.))*(mu2**(xk-1.))/((mu1+mu2)**(1.-xk))
-C Compute the phase function:
- phafun=(1.0-af*af)/((1.0+af*af-2.0*af*cos(pi-phaang))**1.5)
-C Compute the opposition (hot spot) function:
- coef2=1.+(1.-rho0)/(1.+geofac)
-C Compute the bidirectional reflectance factor:
- pond=mu1*mu2*si1*si2*wfa(k)*wta(j)*wta(l)
- brdfalb=brdfalb+rho0*coef1*phafun*coef2*pond
- summ=summ+pond
- 3 continue
- 2 continue
- 1 continue
- brdfalb=brdfalb/summ
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.h b/Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.h
deleted file mode 100644
index 3aebfc7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMALBE.h
+++ /dev/null
@@ -1,6 +0,0 @@
-extern int otb_6s_rahmalbe_(
- otb_6s_doublereal *rho0,
- otb_6s_doublereal *af,
- otb_6s_doublereal *xk,
- otb_6s_doublereal *brdfalb
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.P b/Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.P
deleted file mode 100644
index 377e95e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int rahmbrdf_(doublereal *rho0, doublereal *af, doublereal *xk, integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal *brdfint);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.c b/Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.c
deleted file mode 100644
index f8ad815..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.c
+++ /dev/null
@@ -1,157 +0,0 @@
-/* RAHMBRDF.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static doublereal c_b4 = 1.5;
-
-/*< Subroutine RAHMBRDF (rho0,af,xk,mu,np,rm,rp,brdfint) >*/
-/* Subroutine */ int rahmbrdf_(doublereal *rho0, doublereal *af, doublereal *
- xk, integer *mu, integer *np, doublereal *rm, doublereal *rp,
- doublereal *brdfint)
-{
- /* System generated locals */
- integer rm_offset, brdfint_dim1, brdfint_offset, i__1, i__2;
- doublereal d__1, d__2, d__3, d__4;
-
- /* Builtin functions */
- double acos(doublereal), sqrt(doublereal), cos(doublereal), pow_dd(
- doublereal *, doublereal *);
-
- /* Local variables */
- integer j, k;
- doublereal fi, pi, mu1, mu2, coef1, coef2, tante1, tante2, geofac, phaang,
- cospha, phafun;
-
-/* ***********************************************************************
- */
-
-/* A semi-empirical bidirectional reflectance model */
-
-/* Purpose: */
-
-/* To generate a single bidirectional reflectance factor value for a */
-/* semi-infinite medium, given the illumination and viewing geometry, */
-/* the optical and the structural properties of the scatterers. */
-
-/* Definitions: */
-/* geometrical conditions */
-/* mu1 : Illumination zenith angle, in radians */
-/* mu2 : Observation zenith angle, in radians */
-/* fi : Relative azimuth angle, in radians */
-/* optical characteristics of the scatterers: */
-/* Rho0 : Intensity of the reflectance of the surface cover.
-*/
-/* N/D value greater or equal to 0.0 (Rho_0) */
-/* af : Phase function parameter: */
-/* Asymmetry factor, N/D value between -1.0 and 1.0 */
-/* xk : Structural parameter of the medium */
-
-/* References: */
-
-/* [1] R. Rahman, Verstraete M., and Pinty B., 1993, `A coupled */
-/* surface-atmosphere reflectance (CSAR) model. Part 1: Model
-*/
-/* Description and Inversion on Synthetic Data', submitted to
-*/
-/* JGR. */
-/* [2] R. Rahman, Pinty B., and Verstraete M., 1993, `A coupled */
-/* surface-atmosphere reflectance (CSAR) model. Part 2: a */
-/* semi-empirical model usable with NOAA/AVHRR data', */
-/* submitted to JGR. */
-
-/* ***********************************************************************
- */
-
-/*< integer mu,np,j,k >*/
-/*< real xk,af,rho0 >*/
-/*< real rm(-mu:mu),rp(np),brdfint(-mu:mu,np) >*/
-/*< real coef1,coef2,cospha,geofac >*/
-/*< real fi,mu1,mu2,phaang,phafun,pi,tante1,tante2 >*/
-
-/*< pi =acos(-1.0) >*/
- /* Parameter adjustments */
- rm_offset = -(*mu);
- rm -= rm_offset;
- brdfint_dim1 = *mu - (-(*mu)) + 1;
- brdfint_offset = -(*mu) + brdfint_dim1;
- brdfint -= brdfint_offset;
- --rp;
-
- /* Function Body */
- pi = acos(-1.);
-/*< mu1=rm(0) >*/
- mu1 = rm[0];
-/*< do 1 k=1,np >*/
- i__1 = *np;
- for (k = 1; k <= i__1; ++k) {
-/*< do 2 j=1,mu >*/
- i__2 = *mu;
- for (j = 1; j <= i__2; ++j) {
-/*< mu2=rm(j) >*/
- mu2 = rm[j];
-/*< if (j.eq.mu)then >*/
- if (j == *mu) {
-/*< fi=rm(-mu) >*/
- fi = rm[-(*mu)];
-/*< else >*/
- } else {
-/*< fi=rp(k)+rm(-mu) >*/
- fi = rp[k] + rm[-(*mu)];
-/*< endif >*/
- }
-/* Compute various trigonometric expressions: */
-/*< cospha=mu1*mu2+sqrt(1.-mu1*mu1)*sqrt(1.-mu2*mu2)*cos(fi) >*/
- cospha = mu1 * mu2 + sqrt(1. - mu1 * mu1) * sqrt(1. - mu2 * mu2) *
- cos(fi);
-/*< phaang=acos(cospha) >*/
- phaang = acos(cospha);
-/*< tante1=sqrt(1.-mu1*mu1)/mu1 >*/
- tante1 = sqrt(1. - mu1 * mu1) / mu1;
-/*< tante2=sqrt(1.-mu2*mu2)/mu2 >*/
- tante2 = sqrt(1. - mu2 * mu2) / mu2;
-/*< geofac=sqrt(tante1*tante1+tante2*tante2-2.0*tante1*tante2*cos(fi)) >*/
- geofac = sqrt(tante1 * tante1 + tante2 * tante2 - tante1 * 2. *
- tante2 * cos(fi));
-/* Compute the first term */
-/*< coef1=(mu1**(xk-1.))*(mu2**(xk-1.))/((mu1+mu2)**(1.-xk)) >*/
- d__1 = *xk - 1.;
- d__2 = *xk - 1.;
- d__3 = mu1 + mu2;
- d__4 = 1. - *xk;
- coef1 = pow_dd(&mu1, &d__1) * pow_dd(&mu2, &d__2) / pow_dd(&d__3,
- &d__4);
-/* Compute the phase function: */
-/*< phafun=(1.0-af*af)/((1.0+af*af-2.0*af*cos(pi-phaang))**1.5) >*/
- d__1 = *af * *af + 1. - *af * 2. * cos(pi - phaang);
- phafun = (1. - *af * *af) / pow_dd(&d__1, &c_b4);
-/* Compute the opposition (hot spot) function: */
-/*< coef2=1.+(1.-rho0)/(1.+geofac) >*/
- coef2 = (1. - *rho0) / (geofac + 1.) + 1.;
-/* Compute the bidirectional reflectance factor: */
-/*< brdfint(j,k)=rho0*coef1*phafun*coef2 >*/
- brdfint[j + k * brdfint_dim1] = *rho0 * coef1 * phafun * coef2;
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* rahmbrdf_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.f b/Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.f
deleted file mode 100644
index 6024cf5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.f
+++ /dev/null
@@ -1,72 +0,0 @@
- Subroutine RAHMBRDF (rho0,af,xk,mu,np,rm,rp,brdfint)
-C***********************************************************************
-C
-C A semi-empirical bidirectional reflectance model
-C
-C Purpose:
-C
-C To generate a single bidirectional reflectance factor value for a
-C semi-infinite medium, given the illumination and viewing geometry,
-C the optical and the structural properties of the scatterers.
-C
-C Definitions:
-c geometrical conditions
-C mu1 : Illumination zenith angle, in radians
-C mu2 : Observation zenith angle, in radians
-C fi : Relative azimuth angle, in radians
-C optical characteristics of the scatterers:
-C Rho0 : Intensity of the reflectance of the surface cover.
-C N/D value greater or equal to 0.0 (Rho_0)
-C af : Phase function parameter:
-C Asymmetry factor, N/D value between -1.0 and 1.0
-C xk : Structural parameter of the medium
-C
-C References:
-C
-C [1] R. Rahman, Verstraete M., and Pinty B., 1993, `A coupled
-C surface-atmosphere reflectance (CSAR) model. Part 1: Model
-C Description and Inversion on Synthetic Data', submitted to
-C JGR.
-C [2] R. Rahman, Pinty B., and Verstraete M., 1993, `A coupled
-C surface-atmosphere reflectance (CSAR) model. Part 2: a
-C semi-empirical model usable with NOAA/AVHRR data',
-C submitted to JGR.
-C
-C***********************************************************************
-C
- integer mu,np,j,k
- real xk,af,rho0
- real rm(-mu:mu),rp(np),brdfint(-mu:mu,np)
- real coef1,coef2,cospha,geofac
- real fi,mu1,mu2,phaang,phafun,pi,tante1,tante2
-C
- pi =acos(-1.0)
- mu1=rm(0)
- do 1 k=1,np
- do 2 j=1,mu
- mu2=rm(j)
- if (j.eq.mu)then
- fi=rm(-mu)
- else
- fi=rp(k)+rm(-mu)
- endif
-C Compute various trigonometric expressions:
- cospha=mu1*mu2+sqrt(1.-mu1*mu1)*sqrt(1.-mu2*mu2)*cos(fi)
- phaang=acos(cospha)
- tante1=sqrt(1.-mu1*mu1)/mu1
- tante2=sqrt(1.-mu2*mu2)/mu2
- geofac=sqrt(tante1*tante1+tante2*tante2-2.0*tante1*tante2*cos(fi))
-C Compute the first term
- coef1=(mu1**(xk-1.))*(mu2**(xk-1.))/((mu1+mu2)**(1.-xk))
-C Compute the phase function:
- phafun=(1.0-af*af)/((1.0+af*af-2.0*af*cos(pi-phaang))**1.5)
-C Compute the opposition (hot spot) function:
- coef2=1.+(1.-rho0)/(1.+geofac)
-C Compute the bidirectional reflectance factor:
- brdfint(j,k)=rho0*coef1*phafun*coef2
- 2 continue
- 1 continue
-C
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.h b/Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.h
deleted file mode 100644
index 4fa30c4..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/RAHMBRDF.h
+++ /dev/null
@@ -1,10 +0,0 @@
-extern int otb_6s_rahmbrdf_(
- otb_6s_doublereal *rho0,
- otb_6s_doublereal *af,
- otb_6s_doublereal *xk,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *brdfint
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.P b/Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.P
deleted file mode 100644
index fb2db4b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int roujalbe_(doublereal *k0, doublereal *k1, doublereal *k2, doublereal *brdfalb);
-/*:ref: gauss_ 14 5 7 7 7 7 4 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.c b/Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.c
deleted file mode 100644
index 4e663d7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.c
+++ /dev/null
@@ -1,133 +0,0 @@
-/* ROUJALBE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static integer c__24 = 24;
-static integer c__48 = 48;
-
-/*< >*/
-/* Subroutine */ int roujalbe_(doublereal *k0, doublereal *k1, doublereal *k2,
- doublereal *brdfalb)
-{
- /* Builtin functions */
- double atan(doublereal), sin(doublereal), cos(doublereal), acos(
- doublereal), tan(doublereal), sqrt(doublereal);
-
- /* Local variables */
- integer j, k, l;
- doublereal f1, f2, fa[48], ta[24], fr, pi, ft, ts, tv, si1, si2, mu1, mu2,
- wfa[48], wta[24], psi, tts, ttv, phi1, phi2, cpsi, pond, summ,
- xmus, xmuv, teta1, teta2;
- extern /* Subroutine */ int gauss_(doublereal *, doublereal *, doublereal
- *, doublereal *, integer *);
-
-/*< parameter (nta=24,nfa=48) >*/
-/*< real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa) >*/
-/*< real k0,k1,k2,brdfalb,psi,cpsi,mu1,mu2,si1,si2,ft >*/
-/*< real pi >*/
-/*< real summ,ts,tv,fr,pond,tts,ttv,xmus,xmuv,f2,f1 >*/
-/*< integer k,j,l >*/
-/*< pi=atan(1.)*4. >*/
- pi = atan(1.) * 4.;
-/*< teta1=0. >*/
- teta1 = 0.;
-/*< teta2=pi/2. >*/
- teta2 = pi / 2.;
-/*< call gauss(teta1,teta2,ta,wta,nta) >*/
- gauss_(&teta1, &teta2, ta, wta, &c__24);
-/*< phi1=0. >*/
- phi1 = 0.;
-/*< phi2=2.*pi >*/
- phi2 = pi * 2.;
-/*< call gauss(phi1,phi2,fa,wfa,nfa) >*/
- gauss_(&phi1, &phi2, fa, wfa, &c__48);
-/*< brdfalb=0. >*/
- *brdfalb = 0.;
-/*< summ=0. >*/
- summ = 0.;
-/*< do 1 k=1,nfa >*/
- for (k = 1; k <= 48; ++k) {
-/*< do 2 j=1,nta >*/
- for (j = 1; j <= 24; ++j) {
-/*< do 3 l=1,nta >*/
- for (l = 1; l <= 24; ++l) {
-/*< si2=sin(ta(j)) >*/
- si2 = sin(ta[j - 1]);
-/*< si1=sin(ta(l)) >*/
- si1 = sin(ta[l - 1]);
-/*< mu2=cos(ta(j)) >*/
- mu2 = cos(ta[j - 1]);
-/*< mu1=cos(ta(l)) >*/
- mu1 = cos(ta[l - 1]);
-/*< ts=ta(j) >*/
- ts = ta[j - 1];
-/*< tv=ta(l) >*/
- tv = ta[l - 1];
-/*< fr=acos(cos(fa(k))) >*/
- fr = acos(cos(fa[k - 1]));
-/*< pond=mu1*mu2*si1*si2*wfa(k)*wta(j)*wta(l) >*/
- pond = mu1 * mu2 * si1 * si2 * wfa[k - 1] * wta[j - 1] * wta[
- l - 1];
-/*< tts=tan(ts) >*/
- tts = tan(ts);
-/*< ttv=tan(tv) >*/
- ttv = tan(tv);
-/*< xmus=cos(ts) >*/
- xmus = cos(ts);
-/*< xmuv=cos(tv) >*/
- xmuv = cos(tv);
-/*< cpsi=xmus*xmuv+sin(ts)*sin(tv)*cos(fr) >*/
- cpsi = xmus * xmuv + sin(ts) * sin(tv) * cos(fr);
-/*< if (cpsi.lt.1.) then >*/
- if (cpsi < 1.) {
-/*< psi=acos(cpsi) >*/
- psi = acos(cpsi);
-/*< else >*/
- } else {
-/*< psi=0. >*/
- psi = 0.;
-/*< endif >*/
- }
-/*< f2=4./(3.*pi*(xmus+xmuv))*((pi/2-psi)*cpsi+sin(psi))-1./3. >*/
- f2 = 4. / (pi * 3. * (xmus + xmuv)) * ((pi / 2 - psi) * cpsi
- + sin(psi)) - .33333333333333331;
-/*< ft=tts*tts+ttv*ttv-2*tts*ttv*cos(fr) >*/
- ft = tts * tts + ttv * ttv - tts * 2 * ttv * cos(fr);
-/*< f1=0.5*((pi-fr)*cos(fr)+sin(fr))*tts*ttv-tts-ttv-sqrt(ft) >*/
- f1 = ((pi - fr) * cos(fr) + sin(fr)) * .5 * tts * ttv - tts -
- ttv - sqrt(ft);
-/*< f1=f1/pi >*/
- f1 /= pi;
-/*< brdfalb=brdfalb+(k0+k1*f1+k2*f2)*pond >*/
- *brdfalb += (*k0 + *k1 * f1 + *k2 * f2) * pond;
-/*< summ=summ+pond >*/
- summ += pond;
-/*< 3 continue >*/
-/* L3: */
- }
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< brdfalb=brdfalb/summ >*/
- *brdfalb /= summ;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* roujalbe_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.f b/Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.f
deleted file mode 100644
index a2e22c2..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.f
+++ /dev/null
@@ -1,53 +0,0 @@
- subroutine roujalbe(k0,k1,k2,
- s brdfalb)
- parameter (nta=24,nfa=48)
- real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa)
- real k0,k1,k2,brdfalb,psi,cpsi,mu1,mu2,si1,si2,ft
- real pi
- real summ,ts,tv,fr,pond,tts,ttv,xmus,xmuv,f2,f1
- integer k,j,l
-
- pi=atan(1.)*4.
- teta1=0.
- teta2=pi/2.
- call gauss(teta1,teta2,ta,wta,nta)
- phi1=0.
- phi2=2.*pi
- call gauss(phi1,phi2,fa,wfa,nfa)
- brdfalb=0.
- summ=0.
- do 1 k=1,nfa
- do 2 j=1,nta
- do 3 l=1,nta
- si2=sin(ta(j))
- si1=sin(ta(l))
- mu2=cos(ta(j))
- mu1=cos(ta(l))
- ts=ta(j)
- tv=ta(l)
- fr=acos(cos(fa(k)))
- pond=mu1*mu2*si1*si2*wfa(k)*wta(j)*wta(l)
- tts=tan(ts)
- ttv=tan(tv)
- xmus=cos(ts)
- xmuv=cos(tv)
- cpsi=xmus*xmuv+sin(ts)*sin(tv)*cos(fr)
- if (cpsi.lt.1.) then
- psi=acos(cpsi)
- else
- psi=0.
- endif
- f2=4./(3.*pi*(xmus+xmuv))*((pi/2-psi)*cpsi+sin(psi))-1./3.
- ft=tts*tts+ttv*ttv-2*tts*ttv*cos(fr)
- f1=0.5*((pi-fr)*cos(fr)+sin(fr))*tts*ttv-tts-ttv-sqrt(ft)
- f1=f1/pi
- brdfalb=brdfalb+(k0+k1*f1+k2*f2)*pond
- summ=summ+pond
- 3 continue
- 2 continue
- 1 continue
- brdfalb=brdfalb/summ
- return
- end
-
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.h b/Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.h
deleted file mode 100644
index 41a6aa2..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJALBE.h
+++ /dev/null
@@ -1,6 +0,0 @@
-extern int otb_6s_roujalbe_(
- otb_6s_doublereal *k0,
- otb_6s_doublereal *k1,
- otb_6s_doublereal *k2,
- otb_6s_doublereal *brdfalb
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.P b/Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.P
deleted file mode 100644
index 38b325f..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int roujbrdf_(doublereal *k0, doublereal *k1, doublereal *k2, integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal *brdfint);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.c b/Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.c
deleted file mode 100644
index bc6b1a3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.c
+++ /dev/null
@@ -1,108 +0,0 @@
-/* ROUJBRDF.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine roujbrdf(k0,k1,k2,mu,np,rm,rp,brdfint) >*/
-/* Subroutine */ int roujbrdf_(doublereal *k0, doublereal *k1, doublereal *k2,
- integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal
- *brdfint)
-{
- /* System generated locals */
- integer rm_offset, brdfint_dim1, brdfint_offset, i__1, i__2;
-
- /* Builtin functions */
- double atan(doublereal), cos(doublereal), acos(doublereal), tan(
- doublereal), sin(doublereal), sqrt(doublereal);
-
- /* Local variables */
- integer j, k;
- doublereal f1, f2, fi, fr, pi, psi, tts, ttv, cpsi, xmus, xmuv;
-
-/* model can be found in JGR 1992 paper, Vol. 97,No D18, Page20,445-20,468
- */
-/*< integer mu,np >*/
-/*< dimension rm(-mu:mu),rp(np),brdfint(-mu:mu,np) >*/
-/*< real k0,k1,k2,pi,psi,cpsi >*/
-/*< real rm,rp,brdfint,xmus,xmuv,fi,fr,tts,ttv,f2,f1 >*/
-/*< integer k,j >*/
-/*< xmus=rm(0) >*/
- /* Parameter adjustments */
- rm_offset = -(*mu);
- rm -= rm_offset;
- brdfint_dim1 = *mu - (-(*mu)) + 1;
- brdfint_offset = -(*mu) + brdfint_dim1;
- brdfint -= brdfint_offset;
- --rp;
-
- /* Function Body */
- xmus = rm[0];
-/*< pi=atan(1.)*4. >*/
- pi = atan(1.) * 4.;
-/*< do 1 k=1,np >*/
- i__1 = *np;
- for (k = 1; k <= i__1; ++k) {
-/*< do 2 j=1,mu >*/
- i__2 = *mu;
- for (j = 1; j <= i__2; ++j) {
-/*< xmuv=rm(j) >*/
- xmuv = rm[j];
-/*< if (j.eq.mu) then >*/
- if (j == *mu) {
-/*< fi=rm(-mu) >*/
- fi = rm[-(*mu)];
-/*< else >*/
- } else {
-/*< fi=rp(k)+rm(-mu) >*/
- fi = rp[k] + rm[-(*mu)];
-/*< endif >*/
- }
-/*< fr=acos(cos(fi)) >*/
- fr = acos(cos(fi));
-/*< tts=tan(acos(xmus)) >*/
- tts = tan(acos(xmus));
-/*< ttv=tan(acos(xmuv)) >*/
- ttv = tan(acos(xmuv));
-/*< cpsi=xmus*xmuv+sin(acos(xmus))*sin(acos(xmuv))*cos(fi) >*/
- cpsi = xmus * xmuv + sin(acos(xmus)) * sin(acos(xmuv)) * cos(fi);
-/*< if (cpsi.lt.1.) then >*/
- if (cpsi < 1.) {
-/*< psi=acos(cpsi) >*/
- psi = acos(cpsi);
-/*< else >*/
- } else {
-/*< psi=0. >*/
- psi = 0.;
-/*< endif >*/
- }
-/*< f2=4./(3.*pi*(xmus+xmuv))*((pi/2-psi)*cpsi+sin(psi))-1./3. >*/
- f2 = 4. / (pi * 3. * (xmus + xmuv)) * ((pi / 2 - psi) * cpsi +
- sin(psi)) - .33333333333333331;
-/*< >*/
- f1 = ((pi - fr) * cos(fr) + sin(fr)) * .5 * tts * ttv - tts - ttv
- - sqrt(tts * tts + ttv * ttv - tts * 2 * ttv * cos(fr));
-/*< f1=f1/pi >*/
- f1 /= pi;
-/*< brdfint(j,k)=k0+k1*f1+k2*f2 >*/
- brdfint[j + k * brdfint_dim1] = *k0 + *k1 * f1 + *k2 * f2;
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* roujbrdf_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.f b/Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.f
deleted file mode 100644
index 25f6961..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.f
+++ /dev/null
@@ -1,35 +0,0 @@
- subroutine roujbrdf(k0,k1,k2,mu,np,rm,rp,brdfint)
-c model can be found in JGR 1992 paper, Vol. 97,No D18, Page20,445-20,468
- integer mu,np
- dimension rm(-mu:mu),rp(np),brdfint(-mu:mu,np)
- real k0,k1,k2,pi,psi,cpsi
- real rm,rp,brdfint,xmus,xmuv,fi,fr,tts,ttv,f2,f1
- integer k,j
- xmus=rm(0)
- pi=atan(1.)*4.
- do 1 k=1,np
- do 2 j=1,mu
- xmuv=rm(j)
- if (j.eq.mu) then
- fi=rm(-mu)
- else
- fi=rp(k)+rm(-mu)
- endif
- fr=acos(cos(fi))
- tts=tan(acos(xmus))
- ttv=tan(acos(xmuv))
- cpsi=xmus*xmuv+sin(acos(xmus))*sin(acos(xmuv))*cos(fi)
- if (cpsi.lt.1.) then
- psi=acos(cpsi)
- else
- psi=0.
- endif
- f2=4./(3.*pi*(xmus+xmuv))*((pi/2-psi)*cpsi+sin(psi))-1./3.
- f1=0.5*((pi-fr)*cos(fr)+sin(fr))*tts*ttv-tts-ttv-sqrt(
- s tts*tts+ttv*ttv-2*tts*ttv*cos(fr))
- f1=f1/pi
- brdfint(j,k)=k0+k1*f1+k2*f2
- 2 continue
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.h b/Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.h
deleted file mode 100644
index ac0bbc0..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ROUJBRDF.h
+++ /dev/null
@@ -1,10 +0,0 @@
-extern int otb_6s_roujbrdf_(
- otb_6s_doublereal *k0,
- otb_6s_doublereal *k1,
- otb_6s_doublereal *k2,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *brdfint
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SAND.P b/Modules/ThirdParty/6S/src/6SV1.0B/SAND.P
deleted file mode 100644
index 4f763f8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SAND.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int sand_(doublereal *r__);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SAND.c b/Modules/ThirdParty/6S/src/6SV1.0B/SAND.c
deleted file mode 100644
index 5091b62..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SAND.c
+++ /dev/null
@@ -1,153 +0,0 @@
-/* SAND.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine sand(r) >*/
-/* Subroutine */ int sand_(doublereal *r__)
-{
- /* Initialized data */
-
- static doublereal sr[1501] = { 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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.0455,.091,.091,.091,.091,.091,.091,.091,.091,.091,.091,.091,
- .093,.095,.095,.095,.095,.095,.095,.095,.095,.095,.095,.095,.095,
- .095,.096,.097,.097,.097,.0985,.1,.1015,.103,.103,.103,.105,.107,
- .107,.107,.107,.107,.107,.107,.1085,.11,.112,.114,.1155,.117,.119,
- .121,.121,.121,.123,.125,.125,.125,.125,.125,.1265,.128,.127,.126,
- .1285,.131,.1325,.134,.134,.134,.134,.134,.134,.134,.134,.134,
- .134,.134,.1375,.141,.143,.145,.147,.149,.149,.149,.1515,.154,
- .1555,.157,.1585,.16,.1615,.163,.163,.163,.1645,.166,.1675,.169,
- .171,.173,.175,.177,.179,.181,.183,.185,.187,.189,.192,.195,.197,
- .199,.2015,.204,.204,.204,.206,.208,.211,.214,.217,.22,.222,.224,
- .226,.228,.2305,.233,.234,.235,.237,.239,.2405,.242,.244,.246,
- .246,.246,.247,.248,.2495,.251,.2525,.254,.255,.256,.258,.26,
- .2615,.263,.263,.263,.263,.263,.2645,.266,.268,.27,.2715,.273,
- .2745,.276,.2775,.279,.279,.279,.2805,.282,.283,.284,.284,.284,
- .284,.284,.285,.286,.286,.286,.286,.286,.288,.29,.291,.292,.292,
- .292,.292,.292,.292,.292,.292,.292,.292,.292,.292,.292,.2935,.295,
- .295,.295,.2965,.298,.298,.298,.2995,.301,.301,.301,.3035,.306,
- .306,.306,.308,.31,.31,.31,.312,.314,.314,.314,.314,.314,.315,
- .316,.316,.316,.316,.316,.316,.316,.316,.316,.3175,.319,.32,.321,
- .321,.321,.321,.321,.321,.321,.3225,.324,.324,.324,.324,.324,.324,
- .324,.323,.322,.322,.322,.322,.322,.321,.32,.32,.32,.3185,.317,
- .317,.317,.317,.317,.3185,.32,.32,.32,.32,.32,.3215,.323,.323,
- .323,.325,.327,.327,.327,.327,.327,.328,.329,.329,.329,.3305,.332,
- .332,.332,.332,.332,.332,.332,.3325,.333,.334,.335,.3365,.338,
- .3395,.341,.343,.345,.3465,.348,.3505,.353,.353,.353,.353,.353,
- .353,.353,.354,.355,.355,.355,.355,.355,.355,.355,.354,.353,.353,
- .353,.353,.353,.353,.353,.353,.353,.353,.353,.3545,.356,.356,.356,
- .356,.356,.356,.356,.358,.36,.36,.36,.36,.36,.3615,.363,.363,.363,
- .363,.363,.365,.367,.367,.367,.367,.367,.3685,.37,.37,.37,.37,.37,
- .37,.37,.37,.37,.37,.37,.3685,.367,.367,.367,.3655,.364,.363,.362,
- .362,.362,.362,.362,.3605,.359,.359,.359,.359,.359,.359,.359,.359,
- .359,.361,.363,.363,.363,.363,.363,.363,.363,.363,.363,.364,.365,
- .367,.369,.369,.369,.369,.369,.369,.369,.369,.369,.3705,.372,.372,
- .372,.372,.372,.372,.372,.3735,.375,.375,.375,.375,.375,.375,.375,
- .375,.375,.375,.375,.375,.375,.375,.375,.375,.375,.375,.375,.375,
- .375,.375,.375,.375,.375,.375,.375,.375,.375,.376,.377,.377,.377,
- .377,.377,.377,.377,.377,.377,.377,.377,.377,.377,.377,.377,.377,
- .377,.377,.377,.377,.377,.377,.377,.378,.379,.379,.379,.379,.379,
- .379,.379,.3805,.382,.382,.382,.382,.382,.382,.382,.3835,.385,
- .385,.385,.385,.385,.385,.385,.385,.385,.385,.385,.3865,.388,.388,
- .388,.388,.388,.388,.388,.388,.388,.388,.388,.388,.388,.3895,.391,
- .391,.391,.391,.391,.391,.391,.391,.391,.391,.391,.391,.391,.391,
- .391,.391,.391,.391,.391,.391,.391,.3925,.394,.394,.394,.394,.394,
- .394,.394,.394,.394,.394,.394,.394,.394,.395,.396,.396,.396,.396,
- .396,.396,.396,.396,.396,.396,.396,.3945,.393,.393,.393,.393,.393,
- .393,.393,.391,.389,.3875,.386,.386,.386,.384,.382,.382,.382,.38,
- .378,.378,.378,.376,.374,.3715,.369,.369,.369,.369,.369,.37,.371,
- .371,.371,.371,.371,.371,.371,.371,.371,.371,.371,.371,.371,.371,
- .371,.371,.371,.371,.371,.3725,.374,.374,.374,.3755,.377,.377,
- .377,.377,.377,.377,.377,.378,.379,.379,.379,.379,.379,.379,.379,
- .381,.383,.384,.385,.3865,.388,.388,.388,.388,.388,.39,.392,.392,
- .392,.392,.392,.3935,.395,.395,.395,.395,.395,.395,.395,.395,.395,
- .394,.393,.393,.393,.393,.393,.3905,.388,.388,.388,.388,.388,.388,
- .388,.388,.388,.3865,.385,.385,.385,.385,.385,.383,.381,.381,.381,
- .381,.381,.381,.381,.381,.381,.381,.381,.381,.381,.381,.381,.3775,
- .374,.374,.374,.374,.374,.374,.374,.374,.374,.374,.374,.374,.374,
- .374,.374,.373,.372,.3705,.369,.369,.369,.369,.369,.369,.369,.369,
- .369,.369,.369,.369,.369,.369,.369,.369,.369,.369,.369,.369,.369,
- .369,.369,.369,.369,.369,.369,.369,.369,.369,.369,.369,.369,.369,
- .369,.369,.369,.369,.369,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0. };
-
- integer i__;
-
-/*< real r,sr >*/
-/*< integer l,i >*/
-/*< dimension sr(1501),r(1501) >*/
-
-/* sand average reflectance */
-/* warning : values of dry sand ground reflectance are given */
-/* between 0.4 and 2.2 microns. outside this interval the */
-/* values are set to 0. */
-
-/*< >*/
- /* Parameter adjustments */
- --r__;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< do 1 i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< r(i)=sr(i) >*/
- r__[i__] = sr[i__ - 1];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* sand_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SAND.f b/Modules/ThirdParty/6S/src/6SV1.0B/SAND.f
deleted file mode 100644
index 20ebb3e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SAND.f
+++ /dev/null
@@ -1,138 +0,0 @@
- subroutine sand(r)
- real r,sr
- integer l,i
- dimension sr(1501),r(1501)
-c
-c sand average reflectance
-c warning : values of dry sand ground reflectance are given
-c between 0.4 and 2.2 microns. outside this interval the
-c values are set to 0.
-c
-
- data (sr(l),l=1,128)/ 58*0.,
- a .00000, .04550, .09100, .09100, .09100, .09100, .09100,
- a .09100, .09100, .09100, .09100, .09100, .09100, .09300,
- a .09500, .09500, .09500, .09500, .09500, .09500, .09500,
- a .09500, .09500, .09500, .09500, .09500, .09500, .09600,
- a .09700, .09700, .09700, .09850, .10000, .10150, .10300,
- a .10300, .10300, .10500, .10700, .10700, .10700, .10700,
- a .10700, .10700, .10700, .10850, .11000, .11200, .11400,
- a .11550, .11700, .11900, .12100, .12100, .12100, .12300,
- a .12500, .12500, .12500, .12500, .12500, .12650, .12800,
- a .12700, .12600, .12850, .13100, .13250, .13400, .13400/
- data (sr(l),l=129,198)/
- a .13400, .13400, .13400, .13400, .13400, .13400, .13400,
- a .13400, .13400, .13750, .14100, .14300, .14500, .14700,
- a .14900, .14900, .14900, .15150, .15400, .15550, .15700,
- a .15850, .16000, .16150, .16300, .16300, .16300, .16450,
- a .16600, .16750, .16900, .17100, .17300, .17500, .17700,
- a .17900, .18100, .18300, .18500, .18700, .18900, .19200,
- a .19500, .19700, .19900, .20150, .20400, .20400, .20400,
- a .20600, .20800, .21100, .21400, .21700, .22000, .22200,
- a .22400, .22600, .22800, .23050, .23300, .23400, .23500,
- a .23700, .23900, .24050, .24200, .24400, .24600, .24600/
- data (sr(l),l=199,268)/
- a .24600, .24700, .24800, .24950, .25100, .25250, .25400,
- a .25500, .25600, .25800, .26000, .26150, .26300, .26300,
- a .26300, .26300, .26300, .26450, .26600, .26800, .27000,
- a .27150, .27300, .27450, .27600, .27750, .27900, .27900,
- a .27900, .28050, .28200, .28300, .28400, .28400, .28400,
- a .28400, .28400, .28500, .28600, .28600, .28600, .28600,
- a .28600, .28800, .29000, .29100, .29200, .29200, .29200,
- a .29200, .29200, .29200, .29200, .29200, .29200, .29200,
- a .29200, .29200, .29200, .29350, .29500, .29500, .29500,
- a .29650, .29800, .29800, .29800, .29950, .30100, .30100/
- data (sr(l),l=269,338)/
- a .30100, .30350, .30600, .30600, .30600, .30800, .31000,
- a .31000, .31000, .31200, .31400, .31400, .31400, .31400,
- a .31400, .31500, .31600, .31600, .31600, .31600, .31600,
- a .31600, .31600, .31600, .31600, .31750, .31900, .32000,
- a .32100, .32100, .32100, .32100, .32100, .32100, .32100,
- a .32250, .32400, .32400, .32400, .32400, .32400, .32400,
- a .32400, .32300, .32200, .32200, .32200, .32200, .32200,
- a .32100, .32000, .32000, .32000, .31850, .31700, .31700,
- a .31700, .31700, .31700, .31850, .32000, .32000, .32000,
- a .32000, .32000, .32150, .32300, .32300, .32300, .32500/
- data (sr(l),l=339,408)/
- a .32700, .32700, .32700, .32700, .32700, .32800, .32900,
- a .32900, .32900, .33050, .33200, .33200, .33200, .33200,
- a .33200, .33200, .33200, .33250, .33300, .33400, .33500,
- a .33650, .33800, .33950, .34100, .34300, .34500, .34650,
- a .34800, .35050, .35300, .35300, .35300, .35300, .35300,
- a .35300, .35300, .35400, .35500, .35500, .35500, .35500,
- a .35500, .35500, .35500, .35400, .35300, .35300, .35300,
- a .35300, .35300, .35300, .35300, .35300, .35300, .35300,
- a .35300, .35450, .35600, .35600, .35600, .35600, .35600,
- a .35600, .35600, .35800, .36000, .36000, .36000, .36000/
- data (sr(l),l=409,464)/
- a .36000, .36150, .36300, .36300, .36300, .36300, .36300,
- a .36500, .36700, .36700, .36700, .36700, .36700, .36850,
- a .37000, .37000, .37000, .37000, .37000, .37000, .37000,
- a .37000, .37000, .37000, .37000, .36850, .36700, .36700,
- a .36700, .36550, .36400, .36300, .36200, .36200, .36200,
- a .36200, .36200, .36050, .35900, .35900, .35900, .35900,
- a .35900, .35900, .35900, .35900, .35900, .36100, .36300,
- a .36300, .36300, .36300, .36300, .36300, .36300, .36300/
- data (sr(l),l=465,534)/
- a .36300, .36400, .36500, .36700, .36900, .36900, .36900,
- a .36900, .36900, .36900, .36900, .36900, .36900, .37050,
- a .37200, .37200, .37200, .37200, .37200, .37200, .37200,
- a .37350, .37500, .37500, .37500, .37500, .37500, .37500,
- a .37500, .37500, .37500, .37500, .37500, .37500, .37500,
- a .37500, .37500, .37500, .37500, .37500, .37500, .37500,
- a .37500, .37500, .37500, .37500, .37500, .37500, .37500,
- a .37500, .37500, .37600, .37700, .37700, .37700, .37700,
- a .37700, .37700, .37700, .37700, .37700, .37700, .37700,
- a .37700, .37700, .37700, .37700, .37700, .37700, .37700/
- data (sr(l),l=535,604)/
- a .37700, .37700, .37700, .37700, .37700, .37800, .37900,
- a .37900, .37900, .37900, .37900, .37900, .37900, .38050,
- a .38200, .38200, .38200, .38200, .38200, .38200, .38200,
- a .38350, .38500, .38500, .38500, .38500, .38500, .38500,
- a .38500, .38500, .38500, .38500, .38500, .38650, .38800,
- a .38800, .38800, .38800, .38800, .38800, .38800, .38800,
- a .38800, .38800, .38800, .38800, .38800, .38950, .39100,
- a .39100, .39100, .39100, .39100, .39100, .39100, .39100,
- a .39100, .39100, .39100, .39100, .39100, .39100, .39100,
- a .39100, .39100, .39100, .39100, .39100, .39100, .39250/
- data (sr(l),l=605,674)/
- a .39400, .39400, .39400, .39400, .39400, .39400, .39400,
- a .39400, .39400, .39400, .39400, .39400, .39400, .39500,
- a .39600, .39600, .39600, .39600, .39600, .39600, .39600,
- a .39600, .39600, .39600, .39600, .39450, .39300, .39300,
- a .39300, .39300, .39300, .39300, .39300, .39100, .38900,
- a .38750, .38600, .38600, .38600, .38400, .38200, .38200,
- a .38200, .38000, .37800, .37800, .37800, .37600, .37400,
- a .37150, .36900, .36900, .36900, .36900, .36900, .37000,
- a .37100, .37100, .37100, .37100, .37100, .37100, .37100,
- a .37100, .37100, .37100, .37100, .37100, .37100, .37100/
- data (sr(l),l=675,744)/
- a .37100, .37100, .37100, .37100, .37100, .37250, .37400,
- a .37400, .37400, .37550, .37700, .37700, .37700, .37700,
- a .37700, .37700, .37700, .37800, .37900, .37900, .37900,
- a .37900, .37900, .37900, .37900, .38100, .38300, .38400,
- a .38500, .38650, .38800, .38800, .38800, .38800, .38800,
- a .39000, .39200, .39200, .39200, .39200, .39200, .39350,
- a .39500, .39500, .39500, .39500, .39500, .39500, .39500,
- a .39500, .39500, .39400, .39300, .39300, .39300, .39300,
- a .39300, .39050, .38800, .38800, .38800, .38800, .38800,
- a .38800, .38800, .38800, .38800, .38650, .38500, .38500/
- data (sr(l),l=745,1501)/
- a .38500, .38500, .38500, .38300, .38100, .38100, .38100,
- a .38100, .38100, .38100, .38100, .38100, .38100, .38100,
- a .38100, .38100, .38100, .38100, .38100, .37750, .37400,
- a .37400, .37400, .37400, .37400, .37400, .37400, .37400,
- a .37400, .37400, .37400, .37400, .37400, .37400, .37400,
- a .37300, .37200, .37050, .36900, .36900, .36900, .36900,
- a .36900, .36900, .36900, .36900, .36900, .36900, .36900,
- a .36900, .36900, .36900, .36900, .36900, .36900, .36900,
- a .36900, .36900, .36900, .36900, .36900, .36900, .36900,
- a .36900, .36900, .36900, .36900, .36900, .36900, .36900,
- a .36900, .36900, .36900, .36900, .36900, .36900, .36900,
- a 680*0./
- do 1 i=1,1501
- r(i)=sr(i)
- 1 continue
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SAND.h b/Modules/ThirdParty/6S/src/6SV1.0B/SAND.h
deleted file mode 100644
index b69d212..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SAND.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_sand_(
- otb_6s_doublereal *r__
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.P b/Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.P
deleted file mode 100644
index cb81c61..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int scatra_(integer *iaer_prof__, doublereal *taer, doublereal *taerp, doublereal *tray, doublereal *trayp, doublereal *piza, doublereal *palt, integer *nt, integer *mu, doublereal *rm, doublereal *gb, doublereal *xmus, doublereal *xmuv, doublereal *ddirtt, doublereal *ddiftt, doublereal *udirtt, doublereal *udiftt, doublereal *sphalbt, doublereal *ddirtr, doublereal *ddiftr, doublereal *udirtr, doublereal *udiftr, doublereal *sphalbr, doublereal *ddirta, doublereal *ddifta, doubl [...]
-/*:ref: csalbr_ 14 2 7 7 */
-/*:ref: iso_ 14 12 4 7 7 7 7 7 7 4 4 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.c b/Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.c
deleted file mode 100644
index d51e91b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.c
+++ /dev/null
@@ -1,300 +0,0 @@
-/* SCATRA.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static doublereal c_b3 = 999.;
-
-/*< >*/
-/* Subroutine */ int scatra_(integer *iaer_prof__, doublereal *taer,
- doublereal *taerp, doublereal *tray, doublereal *trayp, doublereal *
- piza, doublereal *palt, integer *nt, integer *mu, doublereal *rm,
- doublereal *gb, doublereal *xmus, doublereal *xmuv, doublereal *
- ddirtt, doublereal *ddiftt, doublereal *udirtt, doublereal *udiftt,
- doublereal *sphalbt, doublereal *ddirtr, doublereal *ddiftr,
- doublereal *udirtr, doublereal *udiftr, doublereal *sphalbr,
- doublereal *ddirta, doublereal *ddifta, doublereal *udirta,
- doublereal *udifta, doublereal *sphalba)
-{
- /* System generated locals */
- integer rm_offset, gb_offset;
-
- /* Builtin functions */
- double exp(doublereal);
-
- /* Local variables */
- integer it;
- extern /* Subroutine */ int iso_(integer *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *, integer *,
- integer *, doublereal *, doublereal *, doublereal *);
- doublereal tamol;
- extern /* Subroutine */ int csalbr_(doublereal *, doublereal *);
- doublereal tamolp, xtrans[3];
-
-/*< integer mu >*/
-/*< real rm(-mu:mu),gb(-mu:mu) >*/
-/* computations of the direct and diffuse transmittances */
-/* for downward and upward paths , and spherical albedo */
-/*< real xtrans(-1:1) >*/
-/*< real taer,taerp,tray,trayp,piza,palt,xmus,xmuv >*/
-/*< real udiftt,sphalbt,ddirtr,ddiftr,udirtr,udiftr,sphalbr >*/
-/*< real ddirtt,ddiftt,udirtt,ddirta,ddifta,udirta,udifta >*/
-/*< real sphalba,tamol,tamolp >*/
-/*< integer nt,it,iaer_prof >*/
-
-/*< ddirtt=1. >*/
- /* Parameter adjustments */
- gb_offset = -(*mu);
- gb -= gb_offset;
- rm_offset = -(*mu);
- rm -= rm_offset;
-
- /* Function Body */
- *ddirtt = 1.;
-/*< ddiftt=0. >*/
- *ddiftt = 0.;
-/*< udirtt=1. >*/
- *udirtt = 1.;
-/*< udiftt=0. >*/
- *udiftt = 0.;
-/*< sphalbt=0. >*/
- *sphalbt = 0.;
-/*< ddirtr=1. >*/
- *ddirtr = 1.;
-/*< ddiftr=0. >*/
- *ddiftr = 0.;
-/*< udirtr=1. >*/
- *udirtr = 1.;
-/*< udiftr=0. >*/
- *udiftr = 0.;
-/*< sphalbr=0. >*/
- *sphalbr = 0.;
-/*< ddirta=1. >*/
- *ddirta = 1.;
-/*< ddifta=0. >*/
- *ddifta = 0.;
-/*< udirta=1. >*/
- *udirta = 1.;
-/*< udifta=0. >*/
- *udifta = 0.;
-/*< sphalba=0. >*/
- *sphalba = 0.;
-/*< do 1 it=1,3 >*/
- for (it = 1; it <= 3; ++it) {
-/* it=1 rayleigh only, it=2 aerosol only, it=3 rayleigh+aerosol */
-/*< if (it.eq.2.and.taer.le.0.) goto 1 >*/
- if (it == 2 && *taer <= 0.) {
- goto L1;
- }
-/* compute upward,downward diffuse transmittance for rayleigh,aero
-sol */
-/*< if (it.eq.1) then >*/
- if (it == 1) {
-/*< if (palt.gt.900) then >*/
- if (*palt > 900.) {
-/*< udiftt=(2./3.+xmuv)+(2./3.-xmuv)*exp(-tray/xmuv) >*/
- *udiftt = *xmuv + .66666666666666663 + (.66666666666666663 - *
- xmuv) * exp(-(*tray) / *xmuv);
-/*< udiftt=udiftt/((4./3.)+tray)-exp(-tray/xmuv) >*/
- *udiftt = *udiftt / (*tray + 1.3333333333333333) - exp(-(*
- tray) / *xmuv);
-/*< ddiftt=(2./3.+xmus)+(2./3.-xmus)*exp(-tray/xmus) >*/
- *ddiftt = *xmus + .66666666666666663 + (.66666666666666663 - *
- xmus) * exp(-(*tray) / *xmus);
-/*< ddiftt=ddiftt/((4./3.)+tray)-exp(-tray/xmus) >*/
- *ddiftt = *ddiftt / (*tray + 1.3333333333333333) - exp(-(*
- tray) / *xmus);
-/*< ddirtt=exp(-tray/xmus) >*/
- *ddirtt = exp(-(*tray) / *xmus);
-/*< udirtt=exp(-tray/xmuv) >*/
- *udirtt = exp(-(*tray) / *xmuv);
-/*< call csalbr(tray,sphalbt) >*/
- csalbr_(tray, sphalbt);
-/*< endif >*/
- }
-/*< if (palt.lt.900) then >*/
- if (*palt < 900.) {
-/*< tamol=0. >*/
- tamol = 0.;
-/*< tamolp=0. >*/
- tamolp = 0.;
-/*< rm(-mu)=-xmuv >*/
- rm[-(*mu)] = -(*xmuv);
-/*< rm(mu)=xmuv >*/
- rm[*mu] = *xmuv;
-/*< rm(0)=xmus >*/
- rm[0] = *xmus;
-/*< >*/
- iso_(iaer_prof__, &tamol, tray, piza, &tamolp, trayp, palt,
- nt, mu, &rm[rm_offset], &gb[gb_offset], xtrans);
-/*< udiftt=xtrans(-1)-exp(-trayp/xmuv) >*/
- *udiftt = xtrans[0] - exp(-(*trayp) / *xmuv);
-/*< udirtt=exp(-trayp/xmuv) >*/
- *udirtt = exp(-(*trayp) / *xmuv);
-/*< rm(-mu)=-xmus >*/
- rm[-(*mu)] = -(*xmus);
-/*< rm(mu)=xmus >*/
- rm[*mu] = *xmus;
-/*< rm(0)=xmus >*/
- rm[0] = *xmus;
-/*< ddiftt=(2./3.+xmus)+(2./3.-xmus)*exp(-tray/xmus) >*/
- *ddiftt = *xmus + .66666666666666663 + (.66666666666666663 - *
- xmus) * exp(-(*tray) / *xmus);
-/*< ddiftt=ddiftt/((4./3.)+tray)-exp(-tray/xmus) >*/
- *ddiftt = *ddiftt / (*tray + 1.3333333333333333) - exp(-(*
- tray) / *xmus);
-/*< ddirtt=exp(-tray/xmus) >*/
- *ddirtt = exp(-(*tray) / *xmus);
-/*< udirtt=exp(-tray/xmuv) >*/
- *udirtt = exp(-(*tray) / *xmuv);
-/*< call csalbr(tray,sphalbt) >*/
- csalbr_(tray, sphalbt);
-/*< endif >*/
- }
-/*< if (palt.le.0.) then >*/
- if (*palt <= 0.) {
-/*< udiftt=0. >*/
- *udiftt = 0.;
-/*< udirtt=1. >*/
- *udirtt = 1.;
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< if (it.eq.2) then >*/
- if (it == 2) {
-/*< tamol=0. >*/
- tamol = 0.;
-/*< tamolp=0. >*/
- tamolp = 0.;
-/*< rm(-mu)=-xmuv >*/
- rm[-(*mu)] = -(*xmuv);
-/*< rm(mu)=xmuv >*/
- rm[*mu] = *xmuv;
-/*< rm(0)=xmus >*/
- rm[0] = *xmus;
-/*< >*/
- iso_(iaer_prof__, taer, &tamol, piza, taerp, &tamolp, palt, nt,
- mu, &rm[rm_offset], &gb[gb_offset], xtrans);
-/*< udiftt=xtrans(-1)-exp(-taerp/xmuv) >*/
- *udiftt = xtrans[0] - exp(-(*taerp) / *xmuv);
-/*< udirtt=exp(-taerp/xmuv) >*/
- *udirtt = exp(-(*taerp) / *xmuv);
-/*< rm(-mu)=-xmus >*/
- rm[-(*mu)] = -(*xmus);
-/*< rm(mu)=xmus >*/
- rm[*mu] = *xmus;
-/*< rm(0)=xmus >*/
- rm[0] = *xmus;
-/*< >*/
- iso_(iaer_prof__, taer, &tamol, piza, taerp, &tamolp, &c_b3, nt,
- mu, &rm[rm_offset], &gb[gb_offset], xtrans);
-/*< ddirtt=exp(-taer/xmus) >*/
- *ddirtt = exp(-(*taer) / *xmus);
-/*< ddiftt=xtrans(1)-exp(-taer/xmus) >*/
- *ddiftt = xtrans[2] - exp(-(*taer) / *xmus);
-/*< sphalbt=xtrans(0)*2. >*/
- *sphalbt = xtrans[1] * 2.;
-/*< if (palt.le.0.) then >*/
- if (*palt <= 0.) {
-/*< udiftt=0. >*/
- *udiftt = 0.;
-/*< udirtt=1. >*/
- *udirtt = 1.;
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< if (it.eq.3) then >*/
- if (it == 3) {
-/*< rm(-mu)=-xmuv >*/
- rm[-(*mu)] = -(*xmuv);
-/*< rm(mu)=xmuv >*/
- rm[*mu] = *xmuv;
-/*< rm(0)=xmus >*/
- rm[0] = *xmus;
-/*< >*/
- iso_(iaer_prof__, taer, tray, piza, taerp, trayp, palt, nt, mu, &
- rm[rm_offset], &gb[gb_offset], xtrans);
-/*< udirtt=exp(-(taerp+trayp)/xmuv) >*/
- *udirtt = exp(-(*taerp + *trayp) / *xmuv);
-/*< udiftt=xtrans(-1)-exp(-(taerp+trayp)/xmuv) >*/
- *udiftt = xtrans[0] - exp(-(*taerp + *trayp) / *xmuv);
-/*< rm(-mu)=-xmus >*/
- rm[-(*mu)] = -(*xmus);
-/*< rm(mu)=xmus >*/
- rm[*mu] = *xmus;
-/*< rm(0)=xmus >*/
- rm[0] = *xmus;
-/*< >*/
- iso_(iaer_prof__, taer, tray, piza, taerp, trayp, &c_b3, nt, mu, &
- rm[rm_offset], &gb[gb_offset], xtrans);
-/*< ddiftt=xtrans(1)-exp(-(taer+tray)/xmus) >*/
- *ddiftt = xtrans[2] - exp(-(*taer + *tray) / *xmus);
-/*< ddirtt=exp(-(taer+tray)/xmus) >*/
- *ddirtt = exp(-(*taer + *tray) / *xmus);
-/*< sphalbt=xtrans(0)*2. >*/
- *sphalbt = xtrans[1] * 2.;
-/*< if (palt.le.0.) then >*/
- if (*palt <= 0.) {
-/*< udiftt=0. >*/
- *udiftt = 0.;
-/*< udirtt=1. >*/
- *udirtt = 1.;
-/*< endif >*/
- }
-/*< endif >*/
- }
-/* write(6,*) ddirtt,ddiftt,it,tray,taer,trayp,taerp */
-/*< if (it.eq.2) goto 2 >*/
- if (it == 2) {
- goto L2;
- }
-/*< if (it.eq.3) goto 1 >*/
- if (it == 3) {
- goto L1;
- }
-/*< ddirtr=ddirtt >*/
- *ddirtr = *ddirtt;
-/*< ddiftr=ddiftt >*/
- *ddiftr = *ddiftt;
-/*< udirtr=udirtt >*/
- *udirtr = *udirtt;
-/*< udiftr=udiftt >*/
- *udiftr = *udiftt;
-/*< sphalbr=sphalbt >*/
- *sphalbr = *sphalbt;
-/*< goto 1 >*/
- goto L1;
-/*< 2 ddirta=ddirtt >*/
-L2:
- *ddirta = *ddirtt;
-/*< ddifta=ddiftt >*/
- *ddifta = *ddiftt;
-/*< udirta=udirtt >*/
- *udirta = *udirtt;
-/*< udifta=udiftt >*/
- *udifta = *udiftt;
-/*< sphalba=sphalbt >*/
- *sphalba = *sphalbt;
-/*< 1 continue >*/
-L1:
- ;
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* scatra_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.f b/Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.f
deleted file mode 100644
index 51b775d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.f
+++ /dev/null
@@ -1,133 +0,0 @@
- subroutine scatra (iaer_prof,taer,taerp,tray,trayp,
- a piza,palt,nt,mu,rm,gb,xmus,xmuv,
- a ddirtt,ddiftt,udirtt,udiftt,sphalbt,
- a ddirtr,ddiftr,udirtr,udiftr,sphalbr,
- a ddirta,ddifta,udirta,udifta,sphalba)
-
- integer mu
- real rm(-mu:mu),gb(-mu:mu)
-c computations of the direct and diffuse transmittances
-c for downward and upward paths , and spherical albedo
- real xtrans(-1:1)
- real taer,taerp,tray,trayp,piza,palt,xmus,xmuv
- real udiftt,sphalbt,ddirtr,ddiftr,udirtr,udiftr,sphalbr
- real ddirtt,ddiftt,udirtt,ddirta,ddifta,udirta,udifta
- real sphalba,tamol,tamolp
- integer nt,it,iaer_prof
-c
- ddirtt=1.
- ddiftt=0.
- udirtt=1.
- udiftt=0.
- sphalbt=0.
- ddirtr=1.
- ddiftr=0.
- udirtr=1.
- udiftr=0.
- sphalbr=0.
- ddirta=1.
- ddifta=0.
- udirta=1.
- udifta=0.
- sphalba=0.
-
- do 1 it=1,3
-c it=1 rayleigh only, it=2 aerosol only, it=3 rayleigh+aerosol
- if (it.eq.2.and.taer.le.0.) goto 1
-c compute upward,downward diffuse transmittance for rayleigh,aerosol
- if (it.eq.1) then
- if (palt.gt.900) then
- udiftt=(2./3.+xmuv)+(2./3.-xmuv)*exp(-tray/xmuv)
- udiftt=udiftt/((4./3.)+tray)-exp(-tray/xmuv)
- ddiftt=(2./3.+xmus)+(2./3.-xmus)*exp(-tray/xmus)
- ddiftt=ddiftt/((4./3.)+tray)-exp(-tray/xmus)
- ddirtt=exp(-tray/xmus)
- udirtt=exp(-tray/xmuv)
- call csalbr(tray,sphalbt)
- endif
- if (palt.lt.900) then
- tamol=0.
- tamolp=0.
- rm(-mu)=-xmuv
- rm(mu)=xmuv
- rm(0)=xmus
- call iso(iaer_prof,tamol,tray,piza,tamolp,trayp,
- a palt,nt,mu,rm,gb,xtrans)
- udiftt=xtrans(-1)-exp(-trayp/xmuv)
- udirtt=exp(-trayp/xmuv)
- rm(-mu)=-xmus
- rm(mu)=xmus
- rm(0)=xmus
- ddiftt=(2./3.+xmus)+(2./3.-xmus)*exp(-tray/xmus)
- ddiftt=ddiftt/((4./3.)+tray)-exp(-tray/xmus)
- ddirtt=exp(-tray/xmus)
- udirtt=exp(-tray/xmuv)
- call csalbr(tray,sphalbt)
- endif
- if (palt.le.0.) then
- udiftt=0.
- udirtt=1.
- endif
- endif
- if (it.eq.2) then
- tamol=0.
- tamolp=0.
- rm(-mu)=-xmuv
- rm(mu)=xmuv
- rm(0)=xmus
- call iso(iaer_prof,taer,tamol,piza,taerp,tamolp,
- a palt,nt,mu,rm,gb,xtrans)
- udiftt=xtrans(-1)-exp(-taerp/xmuv)
- udirtt=exp(-taerp/xmuv)
- rm(-mu)=-xmus
- rm(mu)=xmus
- rm(0)=xmus
- call iso(iaer_prof,taer,tamol,piza,taerp,tamolp,
- a 999.,nt,mu,rm,gb,xtrans)
- ddirtt=exp(-taer/xmus)
- ddiftt=xtrans(1)-exp(-taer/xmus)
- sphalbt=xtrans(0)*2.
- if (palt.le.0.) then
- udiftt=0.
- udirtt=1.
- endif
- endif
- if (it.eq.3) then
- rm(-mu)=-xmuv
- rm(mu)=xmuv
- rm(0)=xmus
- call iso(iaer_prof,taer,tray,piza,taerp,trayp,
- a palt,nt,mu,rm,gb,xtrans)
- udirtt=exp(-(taerp+trayp)/xmuv)
- udiftt=xtrans(-1)-exp(-(taerp+trayp)/xmuv)
- rm(-mu)=-xmus
- rm(mu)=xmus
- rm(0)=xmus
- call iso(iaer_prof,taer,tray,piza,taerp,trayp,
- a 999.,nt,mu,rm,gb,xtrans)
- ddiftt=xtrans(1)-exp(-(taer+tray)/xmus)
- ddirtt=exp(-(taer+tray)/xmus)
- sphalbt=xtrans(0)*2.
- if (palt.le.0.) then
- udiftt=0.
- udirtt=1.
- endif
- endif
-c write(6,*) ddirtt,ddiftt,it,tray,taer,trayp,taerp
-
- if (it.eq.2) goto 2
- if (it.eq.3) goto 1
- ddirtr=ddirtt
- ddiftr=ddiftt
- udirtr=udirtt
- udiftr=udiftt
- sphalbr=sphalbt
- goto 1
- 2 ddirta=ddirtt
- ddifta=ddiftt
- udirta=udirtt
- udifta=udiftt
- sphalba=sphalbt
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.h b/Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.h
deleted file mode 100644
index ad2f186..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SCATRA.h
+++ /dev/null
@@ -1,30 +0,0 @@
-extern int otb_6s_scatra_(
- otb_6s_integer *iaer_prof__,
- otb_6s_doublereal *taer,
- otb_6s_doublereal *taerp,
- otb_6s_doublereal *tray,
- otb_6s_doublereal *trayp,
- otb_6s_doublereal *piza,
- otb_6s_doublereal *palt,
- otb_6s_integer *nt,
- otb_6s_integer *mu,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *gb,
- otb_6s_doublereal *xmus,
- otb_6s_doublereal *xmuv,
- otb_6s_doublereal *ddirtt,
- otb_6s_doublereal *ddiftt,
- otb_6s_doublereal *udirtt,
- otb_6s_doublereal *udiftt,
- otb_6s_doublereal *sphalbt,
- otb_6s_doublereal *ddirtr,
- otb_6s_doublereal *ddiftr,
- otb_6s_doublereal *udirtr,
- otb_6s_doublereal *udiftr,
- otb_6s_doublereal *sphalbr,
- otb_6s_doublereal *ddirta,
- otb_6s_doublereal *ddifta,
- otb_6s_doublereal *udirta,
- otb_6s_doublereal *udifta,
- otb_6s_doublereal *sphalba
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.P b/Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.P
deleted file mode 100644
index b62f13a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int seawifs_(integer *iwa);
-/* comlen sixs_ffu__ 12024 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.c b/Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.c
deleted file mode 100644
index 85c489b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.c
+++ /dev/null
@@ -1,708 +0,0 @@
-/* SEAWIFS.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine seawifs(iwa) >*/
-/* Subroutine */ int seawifs_(integer *iwa)
-{
- /* Initialized data */
-
- static doublereal sr[12008] /* was [8][1501] */ = { 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,.002,6e-4,4e-4,0.,0.,
- 3e-4,0.,0.,.003,5e-4,3e-4,1e-4,0.,1e-4,0.,0.,.0011,3e-4,4e-4,2e-4,
- 1e-4,0.,0.,9e-4,1e-4,3e-4,4e-4,3e-4,1e-4,0.,0.,.0019,0.,4e-4,3e-4,
- 2e-4,1e-4,0.,0.,.0038,1e-4,1e-4,3e-4,6e-4,2e-4,0.,0.,.0105,4e-4,
- 0.,3e-4,8e-4,2e-4,0.,0.,.0301,2e-4,0.,1e-4,4e-4,2e-4,0.,0.,.1429,
- 5e-4,0.,1e-4,8e-4,2e-4,0.,0.,.4118,8e-4,0.,2e-4,.0012,1e-4,0.,
- 2e-4,.6546,1e-4,3e-4,1e-4,.001,1e-4,0.,8e-4,.8044,0.,3e-4,0.,7e-4,
- 1e-4,1e-4,.001,.8504,1e-4,2e-4,0.,6e-4,1e-4,1e-4,.001,.9117,2e-4,
- 8e-4,0.,.0012,1e-4,2e-4,.0012,.9738,7e-4,.001,1e-4,.0016,1e-4,
- 4e-4,.001,.9964,.0021,4e-4,2e-4,.0012,1e-4,5e-4,6e-4,.9076,.0032,
- 4e-4,7e-4,.0015,2e-4,6e-4,6e-4,.6166,.0059,5e-4,.0011,.0021,3e-4,
- 5e-4,6e-4,.3124,.0157,2e-4,5e-4,.0028,3e-4,3e-4,5e-4,.1076,.0438,
- 0.,6e-4,.0032,3e-4,3e-4,4e-4,.0321,.1324,0.,.001,.0033,2e-4,2e-4,
- 3e-4,.0128,.3255,0.,6e-4,.0034,2e-4,2e-4,2e-4,.0076,.5775,0.,3e-4,
- .0035,3e-4,1e-4,2e-4,.0048,.7513,0.,7e-4,.0035,5e-4,1e-4,1e-4,
- .0027,.8901,0.,.0031,.003,6e-4,1e-4,1e-4,.0014,.9444,0.,4e-4,
- .0024,6e-4,1e-4,0.,.0013,.9849,0.,2e-4,.0023,4e-4,0.,0.,.001,
- .9801,0.,1e-4,.0024,2e-4,0.,0.,6e-4,.8595,0.,1e-4,.0025,2e-4,0.,
- 0.,5e-4,.655,0.,1e-4,.0017,2e-4,0.,0.,4e-4,.3439,0.,0.,.0012,3e-4,
- 0.,0.,2e-4,.12,0.,1e-4,.0016,5e-4,0.,0.,1e-4,.0435,0.,1e-4,.0027,
- 5e-4,0.,0.,1e-4,.016,2e-4,2e-4,.0034,6e-4,0.,0.,1e-4,.0062,7e-4,
- 4e-4,.0024,8e-4,0.,0.,0.,.0025,.0021,6e-4,.0017,9e-4,0.,0.,0.,
- 6e-4,.0075,9e-4,.0013,9e-4,0.,0.,0.,2e-4,.0214,.0011,.0022,.0011,
- 0.,0.,0.,2e-4,.062,.0012,.0022,.0012,0.,0.,0.,1e-4,.1682,.0013,
- 6e-4,.0011,0.,0.,0.,0.,.4015,.0017,2e-4,.0011,0.,0.,0.,0.,.7129,
- .0024,0.,.0011,0.,0.,0.,0.,.9347,.0048,0.,.0014,0.,0.,0.,0.,.9984,
- .0084,0.,.0015,0.,0.,1e-4,0.,.976,.0187,0.,.0013,0.,0.,4e-4,0.,
- .9615,.0446,0.,6e-4,0.,0.,.0016,0.,.9843,.1264,0.,1e-4,0.,0.,
- .0035,0.,.9579,.3214,0.,0.,0.,0.,.002,0.,.7082,.6542,0.,1e-4,0.,
- 1e-4,2e-4,0.,.3494,.9315,0.,1e-4,0.,1e-4,3e-4,0.,.1304,.9909,0.,
- 3e-4,0.,2e-4,.0013,0.,.0438,.9685,0.,3e-4,0.,2e-4,.0018,0.,.018,
- .9747,0.,1e-4,0.,2e-4,.0016,0.,.008,.9953,0.,0.,0.,3e-4,5e-4,0.,
- .0044,.9943,0.,0.,0.,3e-4,4e-4,0.,.0026,.9131,0.,0.,0.,4e-4,.001,
- 0.,.0019,.6639,0.,0.,0.,5e-4,.0015,1e-4,.0013,.3417,1e-4,0.,0.,
- 8e-4,7e-4,6e-4,9e-4,.1349,1e-4,0.,0.,.0015,2e-4,5e-4,6e-4,.0442,
- 3e-4,0.,0.,.0025,0.,1e-4,3e-4,.0147,.0011,1e-4,0.,.0035,0.,0.,
- 2e-4,.0052,.0032,4e-4,0.,.0044,0.,0.,1e-4,.0021,.0065,4e-4,0.,
- .0059,0.,0.,0.,5e-4,.0148,1e-4,0.,.0097,0.,1e-4,1e-4,3e-4,.0438,
- 1e-4,0.,.0085,0.,3e-4,1e-4,2e-4,.1398,2e-4,0.,.0067,0.,8e-4,1e-4,
- 2e-4,.4291,1e-4,0.,.0072,0.,7e-4,1e-4,1e-4,.7892,3e-4,0.,.0066,0.,
- 2e-4,1e-4,1e-4,.9311,7e-4,0.,.0052,0.,1e-4,1e-4,1e-4,.9446,7e-4,
- 0.,.0041,0.,1e-4,1e-4,1e-4,.9682,6e-4,0.,.0035,0.,1e-4,1e-4,1e-4,
- .9986,4e-4,0.,.0037,0.,0.,2e-4,1e-4,.92,5e-4,0.,.0033,0.,0.,2e-4,
- 1e-4,.6663,5e-4,0.,.0029,0.,0.,4e-4,1e-4,.3553,2e-4,0.,.0037,0.,
- 0.,.0012,1e-4,.1425,3e-4,0.,.0035,0.,0.,.0027,1e-4,.0592,5e-4,0.,
- .0027,0.,0.,.005,1e-4,.027,4e-4,0.,.0017,0.,0.,.0057,1e-4,.0151,
- 4e-4,0.,.0011,0.,0.,.0041,1e-4,.0095,5e-4,0.,.0011,0.,0.,.0028,
- 1e-4,.0054,5e-4,0.,.0016,0.,0.,.0019,1e-4,.0029,3e-4,0.,.0022,0.,
- 0.,.0017,1e-4,.0018,1e-4,0.,.0028,0.,0.,.0016,2e-4,.0013,1e-4,0.,
- .003,0.,0.,.0015,3e-4,.0013,1e-4,0.,.0026,0.,0.,.0015,6e-4,.001,
- 1e-4,0.,.0014,0.,0.,.0014,7e-4,7e-4,1e-4,0.,7e-4,0.,0.,.0011,7e-4,
- 5e-4,1e-4,0.,5e-4,0.,0.,8e-4,5e-4,3e-4,1e-4,0.,4e-4,0.,0.,5e-4,
- 3e-4,2e-4,2e-4,0.,2e-4,0.,0.,3e-4,1e-4,3e-4,3e-4,0.,2e-4,0.,0.,
- 2e-4,1e-4,4e-4,4e-4,0.,1e-4,0.,0.,1e-4,1e-4,4e-4,2e-4,2e-4,1e-4,
- 0.,0.,1e-4,1e-4,2e-4,1e-4,8e-4,0.,0.,0.,1e-4,1e-4,2e-4,1e-4,.0013,
- 0.,0.,0.,1e-4,2e-4,3e-4,1e-4,.0019,0.,0.,0.,2e-4,2e-4,2e-4,1e-4,
- .002,0.,0.,0.,1e-4,1e-4,1e-4,1e-4,.0021,0.,0.,0.,1e-4,1e-4,2e-4,
- 3e-4,.0024,0.,0.,0.,1e-4,1e-4,2e-4,6e-4,.002,0.,0.,0.,0.,0.,2e-4,
- 7e-4,.0012,0.,0.,0.,0.,0.,2e-4,5e-4,8e-4,0.,0.,0.,0.,0.,2e-4,3e-4,
- 8e-4,0.,0.,0.,0.,0.,4e-4,3e-4,.0011,0.,1e-4,0.,0.,0.,6e-4,.001,
- .0018,0.,1e-4,0.,0.,0.,8e-4,.002,.0024,0.,2e-4,0.,0.,0.,9e-4,.004,
- .0018,0.,1e-4,0.,0.,0.,8e-4,.0122,.0012,0.,0.,0.,0.,0.,6e-4,.0174,
- 5e-4,0.,0.,0.,0.,0.,8e-4,.0349,3e-4,0.,0.,0.,0.,0.,.0013,.1116,
- 1e-4,0.,0.,0.,0.,0.,.002,.364,1e-4,0.,0.,0.,0.,0.,.0033,.7775,0.,
- 0.,0.,0.,0.,0.,.0044,.9903,0.,0.,0.,0.,0.,0.,.0042,.9545,0.,0.,0.,
- 0.,0.,0.,.0035,.9641,0.,0.,0.,0.,0.,0.,.0027,.9947,0.,0.,0.,0.,0.,
- 0.,.0022,.9807,0.,0.,0.,0.,0.,0.,.0019,.8514,0.,0.,0.,0.,0.,0.,
- .0016,.5827,0.,0.,0.,0.,0.,0.,.002,.3029,0.,0.,0.,0.,0.,0.,.0027,
- .1355,0.,0.,0.,0.,0.,0.,.004,.0653,0.,0.,0.,0.,0.,0.,.0057,.033,
- 0.,0.,0.,0.,0.,0.,.0073,.0183,0.,0.,0.,0.,0.,0.,.0069,.0105,0.,0.,
- 0.,0.,0.,0.,.0059,.0072,0.,0.,0.,0.,0.,0.,.0046,.0047,0.,0.,0.,0.,
- 0.,0.,.0037,.0035,0.,0.,0.,0.,0.,0.,.003,.0024,1e-4,0.,0.,0.,0.,
- 0.,.0024,.0015,1e-4,0.,0.,0.,0.,0.,.0018,.001,1e-4,1e-4,0.,0.,0.,
- 0.,.0012,7e-4,2e-4,3e-4,0.,0.,0.,0.,9e-4,7e-4,3e-4,8e-4,0.,0.,0.,
- 0.,7e-4,6e-4,5e-4,.0013,0.,0.,0.,0.,3e-4,5e-4,.0011,.0015,0.,0.,
- 0.,0.,2e-4,4e-4,.0019,.0017,0.,0.,0.,0.,2e-4,4e-4,.0033,.0018,0.,
- 0.,0.,0.,2e-4,2e-4,.0056,.0028,0.,0.,0.,0.,1e-4,1e-4,.0093,.0075,
- 0.,0.,0.,0.,1e-4,1e-4,.0169,.0158,0.,0.,0.,0.,1e-4,1e-4,.0306,
- .0233,0.,0.,0.,0.,0.,0.,.0572,.0231,0.,0.,0.,0.,0.,0.,.1043,.0107,
- 0.,0.,0.,0.,0.,0.,.1895,.0056,0.,0.,0.,0.,0.,1e-4,.3276,.003,0.,
- 0.,0.,0.,0.,0.,.522,.0026,0.,0.,0.,0.,0.,1e-4,.7086,.0027,0.,0.,
- 0.,0.,0.,1e-4,.8383,.0035,0.,0.,0.,0.,0.,0.,.912,.0064,0.,0.,0.,
- 0.,0.,0.,.9363,.0103,0.,0.,0.,0.,0.,0.,.9353,.0152,0.,0.,0.,0.,0.,
- 0.,.938,.0132,0.,0.,0.,0.,0.,0.,.9356,.0092,0.,0.,0.,0.,0.,0.,
- .9262,.0043,0.,0.,0.,0.,0.,0.,.921,.0018,0.,0.,0.,0.,0.,0.,.9387,
- .0012,0.,0.,0.,0.,0.,1e-4,.9655,8e-4,0.,0.,0.,0.,0.,1e-4,.9922,
- 7e-4,0.,0.,0.,0.,0.,1e-4,.9609,9e-4,0.,0.,0.,0.,0.,1e-4,.8382,
- 8e-4,0.,0.,0.,0.,0.,1e-4,.6797,6e-4,0.,0.,0.,0.,0.,1e-4,.4984,
- 8e-4,0.,0.,0.,0.,0.,1e-4,.3299,7e-4,0.,0.,0.,0.,0.,1e-4,.2107,
- 6e-4,0.,0.,0.,0.,0.,0.,.131,7e-4,0.,0.,0.,0.,0.,0.,.0838,9e-4,0.,
- 0.,0.,0.,0.,0.,.0556,8e-4,0.,0.,0.,0.,0.,1e-4,.0393,9e-4,0.,0.,0.,
- 0.,0.,1e-4,.0278,.0011,0.,0.,0.,0.,0.,1e-4,.02,.0012,0.,0.,0.,0.,
- 0.,2e-4,.0164,.0027,0.,0.,0.,0.,0.,2e-4,.0143,.0021,0.,0.,0.,0.,
- 0.,2e-4,.0118,.0025,0.,0.,0.,0.,0.,1e-4,.0097,.0039,0.,0.,0.,0.,
- 0.,1e-4,.0081,.0037,0.,0.,0.,0.,0.,1e-4,.0071,.0043,0.,0.,0.,0.,
- 0.,1e-4,.0063,.0057,0.,0.,0.,0.,0.,0.,.0054,.0079,0.,0.,0.,0.,0.,
- 0.,.0048,.0102,0.,0.,0.,0.,0.,0.,.0043,.0157,0.,0.,0.,0.,0.,0.,
- .004,.0245,0.,0.,0.,0.,0.,0.,.0036,.0422,0.,0.,0.,0.,0.,0.,.0032,
- .0739,0.,0.,0.,0.,0.,0.,.0028,.1388,0.,0.,0.,0.,0.,0.,.0026,.2544,
- 0.,0.,0.,0.,0.,1e-4,.0025,.443,0.,0.,0.,1e-4,0.,1e-4,.0024,.6626,
- 0.,0.,1e-4,1e-4,0.,1e-4,.002,.8436,0.,0.,1e-4,1e-4,0.,1e-4,.0019,
- .9476,0.,0.,1e-4,1e-4,0.,1e-4,.0019,.9851,0.,0.,1e-4,1e-4,0.,0.,
- .002,.9964,0.,0.,1e-4,1e-4,0.,0.,.0019,.9962,0.,0.,1e-4,1e-4,0.,
- 0.,.0019,.9827,0.,0.,1e-4,1e-4,0.,0.,.0018,.9602,0.,0.,1e-4,1e-4,
- 0.,0.,.0019,.9206,0.,0.,1e-4,1e-4,0.,0.,.002,.8634,0.,0.,0.,0.,0.,
- 0.,.002,.8359,0.,0.,0.,0.,0.,0.,.0019,.8598,0.,0.,0.,0.,0.,0.,
- .0018,.9266,0.,0.,0.,0.,0.,0.,.0019,.9736,0.,0.,0.,0.,0.,0.,.0019,
- .9164,0.,0.,0.,0.,0.,0.,.002,.7136,0.,0.,0.,0.,0.,1e-4,.0021,
- .4528,0.,0.,0.,0.,0.,1e-4,.0021,.2495,0.,0.,0.,0.,0.,1e-4,.0021,
- .1301,0.,0.,0.,0.,0.,1e-4,.002,.0733,0.,0.,0.,0.,0.,0.,.0018,
- .0435,0.,0.,0.,0.,0.,0.,.0018,.0289,0.,0.,0.,0.,0.,0.,.0019,.0199,
- 0.,0.,0.,0.,0.,0.,.0019,.015,0.,0.,0.,0.,0.,0.,.0019,.0112,0.,0.,
- 0.,0.,0.,0.,.002,.0073,0.,0.,0.,0.,0.,0.,.0021,.0057,0.,0.,0.,0.,
- 0.,0.,.0022,.0046,0.,0.,0.,0.,0.,1e-4,.0022,.0041,0.,0.,0.,0.,0.,
- 1e-4,.0024,.0035,0.,0.,0.,0.,0.,1e-4,.0026,.0029,0.,0.,0.,0.,0.,
- 1e-4,.0029,.0028,0.,0.,0.,0.,0.,0.,.0035,.0025,0.,0.,0.,0.,0.,0.,
- .0042,.0023,0.,0.,0.,0.,1e-4,0.,.0049,.002,0.,0.,0.,0.,2e-4,0.,
- .0055,.0018,0.,0.,0.,0.,2e-4,0.,.0059,.0017,0.,0.,0.,0.,2e-4,0.,
- .0057,.0017,0.,0.,1e-4,1e-4,1e-4,0.,.0054,.0018,0.,0.,2e-4,1e-4,
- 1e-4,0.,.005,.0017,0.,0.,2e-4,1e-4,0.,0.,.0045,.0017,0.,0.,2e-4,
- 1e-4,0.,0.,.0039,.0017,0.,0.,1e-4,1e-4,0.,0.,.0033,.0016,0.,0.,0.,
- 0.,0.,0.,.0029,.0015,0.,0.,0.,0.,0.,0.,.0024,.0016,0.,0.,0.,0.,0.,
- 0.,.0021,.0016,0.,0.,0.,0.,0.,0.,.0018,.0016,0.,0.,0.,0.,0.,1e-4,
- .0017,.0015,0.,0.,0.,0.,0.,1e-4,.0016,.0016,0.,0.,0.,0.,0.,1e-4,
- .0015,.0018,0.,0.,0.,0.,1e-4,1e-4,.0015,.0017,0.,0.,0.,0.,1e-4,
- 1e-4,.0015,.0017,0.,0.,0.,0.,1e-4,0.,.0016,.0019,0.,0.,0.,1e-4,
- 1e-4,0.,.0016,.002,0.,0.,1e-4,1e-4,1e-4,0.,.0016,.0021,0.,0.,1e-4,
- 2e-4,0.,0.,.0018,.0021,0.,0.,2e-4,2e-4,0.,0.,.0019,.0022,0.,0.,
- 2e-4,2e-4,0.,0.,.002,.0023,0.,0.,1e-4,1e-4,0.,0.,.0022,.0025,0.,
- 0.,0.,1e-4,0.,0.,.0022,.0027,0.,0.,0.,0.,0.,0.,.002,.0027,0.,0.,
- 0.,0.,0.,0.,.0016,.0028,0.,0.,0.,0.,0.,1e-4,.0012,.0028,0.,0.,0.,
- 0.,0.,1e-4,.001,.0027,0.,0.,0.,0.,0.,1e-4,7e-4,.0026,0.,0.,0.,0.,
- 0.,1e-4,5e-4,.0025,0.,0.,0.,0.,0.,1e-4,4e-4,.0024,0.,0.,0.,0.,0.,
- 1e-4,3e-4,.0023,0.,0.,0.,0.,0.,1e-4,3e-4,.0021,0.,0.,0.,0.,1e-4,
- 1e-4,2e-4,.0021,0.,0.,0.,0.,1e-4,1e-4,2e-4,.0021,0.,0.,0.,0.,1e-4,
- 1e-4,1e-4,.0022,0.,0.,0.,0.,1e-4,1e-4,1e-4,.0022,0.,0.,0.,0.,1e-4,
- 1e-4,1e-4,.0023,0.,0.,0.,0.,1e-4,1e-4,1e-4,.0025,0.,0.,0.,0.,1e-4,
- 1e-4,1e-4,.0025,0.,0.,0.,0.,1e-4,1e-4,0.,.0025,0.,0.,0.,0.,1e-4,
- 0.,0.,.0023,0.,0.,0.,0.,1e-4,0.,0.,.002,0.,0.,0.,0.,1e-4,0.,1e-4,
- .0019,0.,0.,0.,0.,1e-4,0.,1e-4,.0015,0.,0.,0.,0.,1e-4,0.,0.,.0011,
- 0.,0.,0.,0.,1e-4,0.,0.,9e-4,0.,0.,0.,0.,1e-4,0.,0.,8e-4,0.,0.,0.,
- 0.,1e-4,0.,0.,9e-4,0.,0.,0.,0.,1e-4,0.,0.,8e-4,0.,0.,0.,0.,1e-4,
- 0.,0.,6e-4,0.,0.,0.,0.,1e-4,0.,1e-4,5e-4,0.,0.,0.,0.,1e-4,0.,1e-4,
- 5e-4,0.,0.,0.,0.,0.,0.,1e-4,4e-4,0.,0.,0.,0.,0.,0.,1e-4,5e-4,0.,
- 0.,0.,0.,0.,0.,2e-4,4e-4,0.,0.,0.,0.,0.,0.,2e-4,3e-4,0.,0.,0.,0.,
- 1e-4,0.,1e-4,3e-4,0.,0.,0.,0.,1e-4,0.,0.,3e-4,0.,0.,0.,0.,1e-4,0.,
- 0.,2e-4,0.,0.,0.,0.,1e-4,0.,0.,1e-4,0.,0.,0.,0.,1e-4,0.,0.,1e-4,
- 0.,0.,0.,0.,1e-4,0.,0.,1e-4,0.,0.,0.,0.,1e-4,0.,0.,1e-4,0.,0.,0.,
- 0.,1e-4,0.,0.,2e-4,0.,0.,0.,0.,1e-4,0.,0.,2e-4,0.,0.,0.,0.,0.,0.,
- 1e-4,1e-4,0.,0.,0.,0.,0.,0.,2e-4,1e-4,0.,0.,0.,0.,0.,0.,2e-4,1e-4,
- 0.,0.,0.,0.,1e-4,0.,1e-4,0.,0.,0.,0.,0.,0.,0.,1e-4,0.,0.,0.,0.,0.,
- 0.,0.,1e-4,0.,0.,0.,0.,0.,0.,0.,2e-4,2e-4,0.,0.,0.,0.,0.,0.,1e-4,
- 2e-4,0.,0.,0.,0.,0.,0.,2e-4,2e-4,0.,0.,0.,0.,0.,0.,5e-4,1e-4,0.,
- 0.,0.,0.,0.,0.,6e-4,1e-4,0.,0.,0.,0.,0.,0.,6e-4,1e-4,0.,0.,0.,0.,
- 0.,0.,6e-4,1e-4,0.,0.,0.,0.,0.,0.,6e-4,1e-4,0.,0.,0.,0.,0.,0.,
- 3e-4,1e-4,0.,0.,0.,0.,0.,0.,1e-4,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,1e-4,0.,0.,0.,0.,0.,0.,0.,1e-4,0.,0.,0.,0.,0.,0.,
- 1e-4,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0. };
-
- integer i__;
- doublereal wli[8], wls[8];
-
-/*< common /sixs_ffu/ s(1501),wlinf,wlsup >*/
-/*< real sr(8,1501),wli(8),wls(8) >*/
-/*< real wlinf,wlsup,s >*/
-/*< integer iwa,l,i >*/
-
-/* 1st spectral band of SeaWiFS */
-
-/*< >*/
-
-/* 2nd spectral band of SeaWiFS */
-
-/*< >*/
-
-/* 3rd spectral band of SeaWiFS */
-
-/*< >*/
-
-/* 4th spectral band of SeaWiFS */
-
-/*< >*/
-
-/* 5th spectral band of SeaWiFS */
-
-/*< >*/
-
-/* 6th spectral band of SeaWiFS */
-
-/*< >*/
-
-/* 7th spectral band of SeaWiFS */
-
-/*< >*/
-
-/* 8th spectral band of SeaWiFS */
-
-/*< >*/
-
-/*< wli(1)=0.3825 >*/
- wli[0] = .3825;
-/*< wls(1)=0.7 >*/
- wls[0] = .7;
-/*< wli(2)=0.38 >*/
- wli[1] = .38;
-/*< wls(2)=0.58 >*/
- wls[1] = .58;
-/*< wli(3)=0.38 >*/
- wli[2] = .38;
-/*< wls(3)=1.02 >*/
- wls[2] = 1.02;
-/*< wli(4)=0.38 >*/
- wli[3] = .38;
-/*< wls(4)=1.02 >*/
- wls[3] = 1.02;
-/*< wli(5)=0.3825 >*/
- wli[4] = .3825;
-/*< wls(5)=1.15 >*/
- wls[4] = 1.15;
-/*< wli(6)=0.3825 >*/
- wli[5] = .3825;
-/*< wls(6)=1.05 >*/
- wls[5] = 1.05;
-/*< wli(7)=0.38 >*/
- wli[6] = .38;
-/*< wls(7)=1.15 >*/
- wls[6] = 1.15;
-/*< wli(8)=0.38 >*/
- wli[7] = .38;
-/*< wls(8)=1.15 >*/
- wls[7] = 1.15;
-/*< do 1 i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< s(i)=sr(iwa,i) >*/
- sixs_ffu__1.s[i__ - 1] = sr[*iwa + (i__ << 3) - 9];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< wlinf=wli(iwa) >*/
- sixs_ffu__1.wlinf = wli[*iwa - 1];
-/*< wlsup=wls(iwa) >*/
- sixs_ffu__1.wlsup = wls[*iwa - 1];
-/*< return >*/
- return 0;
-/*< end >*/
-} /* seawifs_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.f b/Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.f
deleted file mode 100644
index 44762ef..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.f
+++ /dev/null
@@ -1,315 +0,0 @@
- subroutine seawifs(iwa)
- common /sixs_ffu/ s(1501),wlinf,wlsup
- real sr(8,1501),wli(8),wls(8)
- real wlinf,wlsup,s
- integer iwa,l,i
-
-c
-c 1st spectral band of SeaWiFS
-c
- data (sr(1,l),l=1,1501) / 53*0.,
- A0.0000,0.0000,0.0009,0.0019,0.0038,0.0105,0.0301,0.1429,
- A0.4118,0.6546,0.8044,0.8504,0.9117,0.9738,0.9964,0.9076,
- A0.6166,0.3124,0.1076,0.0321,0.0128,0.0076,0.0048,0.0027,
- A0.0014,0.0013,0.0010,0.0006,0.0005,0.0004,0.0002,0.0001,
- A0.0001,0.0001,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0001,0.0004,0.0016,0.0035,0.0020,
- A0.0002,0.0003,0.0013,0.0018,0.0016,0.0005,0.0004,0.0010,
- A0.0015,0.0007,0.0002,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0001,
- A0.0001,0.0002,0.0001,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A1320*0./
-c
-c 2nd spectral band of SeaWiFS
-c
- data (sr(2,l),l=1,1501)/ 52*0.,
- A0.0020,0.0030,0.0011,0.0001,0.0000,0.0001,0.0004,0.0002,
- A0.0005,0.0008,0.0001,0.0000,0.0001,0.0002,0.0007,0.0021,
- A0.0032,0.0059,0.0157,0.0438,0.1324,0.3255,0.5775,0.7513,
- A0.8901,0.9444,0.9849,0.9801,0.8595,0.6550,0.3439,0.1200,
- A0.0435,0.0160,0.0062,0.0025,0.0006,0.0002,0.0002,0.0001,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0001,0.0006,0.0005,0.0001,0.0000,0.0000,0.0000,
- A0.0001,0.0003,0.0008,0.0007,0.0002,0.0001,0.0001,0.0001,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,
- A1368*0./
-c
-c 3rd spectral band of SeaWiFS
-c
- data (sr(3,l),l=1,1501)/ 52*0.,
- A0.0006,0.0005,0.0003,0.0003,0.0004,0.0001,0.0000,0.0000,
- A0.0000,0.0000,0.0003,0.0003,0.0002,0.0008,0.0010,0.0004,
- A0.0004,0.0005,0.0002,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0002,0.0007,0.0021,0.0075,0.0214,0.0620,0.1682,
- A0.4015,0.7129,0.9347,0.9984,0.9760,0.9615,0.9843,0.9579,
- A0.7082,0.3494,0.1304,0.0438,0.0180,0.0080,0.0044,0.0026,
- A0.0019,0.0013,0.0009,0.0006,0.0003,0.0002,0.0001,0.0000,
- A0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,
- A0.0002,0.0002,0.0004,0.0012,0.0027,0.0050,0.0057,0.0041,
- A0.0028,0.0019,0.0017,0.0016,0.0015,0.0015,0.0014,0.0011,
- A0.0008,0.0005,0.0003,0.0002,0.0001,0.0001,0.0001,0.0001,
- A0.0002,0.0001,0.0001,0.0001,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0001,0.0001,0.0001,0.0001,
- A0.0001,0.0001,0.0001,0.0001,0.0001,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0001,0.0002,0.0002,0.0002,0.0001,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0001,0.0001,0.0002,0.0002,0.0001,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,
- A1192*0./
-c
-c 4th spectral band of SeaWiFS
-c
- data (sr(4,l),l=1,1501)/ 52*0.,
- A0.0004,0.0003,0.0004,0.0004,0.0003,0.0003,0.0003,0.0001,
- A0.0001,0.0002,0.0001,0.0000,0.0000,0.0000,0.0001,0.0002,
- A0.0007,0.0011,0.0005,0.0006,0.0010,0.0006,0.0003,0.0007,
- A0.0031,0.0004,0.0002,0.0001,0.0001,0.0001,0.0000,0.0001,
- A0.0001,0.0002,0.0004,0.0006,0.0009,0.0011,0.0012,0.0013,
- A0.0017,0.0024,0.0048,0.0084,0.0187,0.0446,0.1264,0.3214,
- A0.6542,0.9315,0.9909,0.9685,0.9747,0.9953,0.9943,0.9131,
- A0.6639,0.3417,0.1349,0.0442,0.0147,0.0052,0.0021,0.0005,
- A0.0003,0.0002,0.0002,0.0001,0.0001,0.0001,0.0001,0.0001,
- A0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,
- A0.0001,0.0001,0.0001,0.0002,0.0003,0.0006,0.0007,0.0007,
- A0.0005,0.0003,0.0001,0.0001,0.0001,0.0001,0.0001,0.0002,
- A0.0002,0.0001,0.0001,0.0001,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0001,0.0001,0.0001,0.0001,0.0001,
- A0.0001,0.0001,0.0001,0.0001,0.0001,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0001,0.0001,0.0001,0.0001,0.0001,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0001,0.0001,0.0002,0.0002,0.0002,0.0001,0.0001,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,
- A1192*0./
-c
-c 5th spectral band of SeaWiFS
-c
- data (sr(5,l),l=1,1501)/ 53*0.,
- A0.0001,0.0002,0.0003,0.0002,0.0006,0.0008,0.0004,0.0008,
- A0.0012,0.0010,0.0007,0.0006,0.0012,0.0016,0.0012,0.0015,
- A0.0021,0.0028,0.0032,0.0033,0.0034,0.0035,0.0035,0.0030,
- A0.0024,0.0023,0.0024,0.0025,0.0017,0.0012,0.0016,0.0027,
- A0.0034,0.0024,0.0017,0.0013,0.0022,0.0022,0.0006,0.0002,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0001,0.0001,0.0003,0.0011,0.0032,0.0065,0.0148,0.0438,
- A0.1398,0.4291,0.7892,0.9311,0.9446,0.9682,0.9986,0.9200,
- A0.6663,0.3553,0.1425,0.0592,0.0270,0.0151,0.0095,0.0054,
- A0.0029,0.0018,0.0013,0.0013,0.0010,0.0007,0.0005,0.0003,
- A0.0002,0.0003,0.0004,0.0004,0.0002,0.0002,0.0003,0.0002,
- A0.0001,0.0002,0.0002,0.0002,0.0002,0.0002,0.0004,0.0006,
- A0.0008,0.0009,0.0008,0.0006,0.0008,0.0013,0.0020,0.0033,
- A0.0044,0.0042,0.0035,0.0027,0.0022,0.0019,0.0016,0.0020,
- A0.0027,0.0040,0.0057,0.0073,0.0069,0.0059,0.0046,0.0037,
- A0.0030,0.0024,0.0018,0.0012,0.0009,0.0007,0.0003,0.0002,
- A0.0002,0.0002,0.0001,0.0001,0.0001,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0001,0.0002,0.0002,0.0002,
- A0.0001,0.0001,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0001,0.0001,0.0001,0.0001,
- A0.0001,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0001,
- A0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,
- A0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,
- A0.0001,0.0001,0.0001,0.0000,0.0000,0.0000,0.0000,0.0001,
- A0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,
- A0.0000,0.0000,0.0000,0.0001,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,
- A1140*0./
-c
-c 6th spectral band of SeaWiFS
-c
- data (sr(6,l),l=1,1501)/ 53*0.,
- A0.0000,0.0001,0.0001,0.0001,0.0002,0.0002,0.0002,0.0002,
- A0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0002,
- A0.0003,0.0003,0.0003,0.0002,0.0002,0.0003,0.0005,0.0006,
- A0.0006,0.0004,0.0002,0.0002,0.0002,0.0003,0.0005,0.0005,
- A0.0006,0.0008,0.0009,0.0009,0.0011,0.0012,0.0011,0.0011,
- A0.0011,0.0014,0.0015,0.0013,0.0006,0.0001,0.0000,0.0001,
- A0.0001,0.0003,0.0003,0.0001,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0001,0.0004,0.0004,0.0001,0.0001,
- A0.0002,0.0001,0.0003,0.0007,0.0007,0.0006,0.0004,0.0005,
- A0.0005,0.0002,0.0003,0.0005,0.0004,0.0004,0.0005,0.0005,
- A0.0003,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,
- A0.0002,0.0003,0.0004,0.0002,0.0001,0.0001,0.0001,0.0001,
- A0.0001,0.0003,0.0006,0.0007,0.0005,0.0003,0.0003,0.0010,
- A0.0020,0.0040,0.0122,0.0174,0.0349,0.1116,0.3640,0.7775,
- A0.9903,0.9545,0.9641,0.9947,0.9807,0.8514,0.5827,0.3029,
- A0.1355,0.0653,0.0330,0.0183,0.0105,0.0072,0.0047,0.0035,
- A0.0024,0.0015,0.0010,0.0007,0.0007,0.0006,0.0005,0.0004,
- A0.0004,0.0002,0.0001,0.0001,0.0001,0.0000,0.0000,0.0000,
- A0.0001,0.0000,0.0001,0.0001,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0001,0.0001,0.0001,0.0001,
- A0.0001,0.0001,0.0001,0.0001,0.0000,0.0000,0.0000,0.0001,
- A0.0001,0.0001,0.0002,0.0002,0.0002,0.0001,0.0001,0.0001,
- A0.0001,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0001,0.0001,0.0001,0.0001,0.0001,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0001,0.0001,0.0001,0.0001,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0001,0.0001,
- A0.0001,0.0001,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0001,0.0001,0.0001,0.0001,0.0001,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,
- A0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,0.0000,
- A0.0000,0.0000,0.0000,0.0000,
- A1180*0./
-c
-c 7th spectral band of SeaWiFS
-c
- data (sr(7,l),l=1,1501)/ 52*0.,
- A0.0003,0.0001,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0001,0.0001,0.0002,0.0004,0.0005,
- A0.0006,0.0005,0.0003,0.0003,0.0002,0.0002,0.0001,0.0001,
- A0.0001,0.0001,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0002,0.0008,0.0013,0.0019,
- A0.0020,0.0021,0.0024,0.0020,0.0012,0.0008,0.0008,0.0011,
- A0.0018,0.0024,0.0018,0.0012,0.0005,0.0003,0.0001,0.0001,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0001,0.0001,0.0001,0.0002,0.0003,0.0005,0.0011,
- A0.0019,0.0033,0.0056,0.0093,0.0169,0.0306,0.0572,0.1043,
- A0.1895,0.3276,0.5220,0.7086,0.8383,0.9120,0.9363,0.9353,
- A0.9380,0.9356,0.9262,0.9210,0.9387,0.9655,0.9922,0.9609,
- A0.8382,0.6797,0.4984,0.3299,0.2107,0.1310,0.0838,0.0556,
- A0.0393,0.0278,0.0200,0.0164,0.0143,0.0118,0.0097,0.0081,
- A0.0071,0.0063,0.0054,0.0048,0.0043,0.0040,0.0036,0.0032,
- A0.0028,0.0026,0.0025,0.0024,0.0020,0.0019,0.0019,0.0020,
- A0.0019,0.0019,0.0018,0.0019,0.0020,0.0020,0.0019,0.0018,
- A0.0019,0.0019,0.0020,0.0021,0.0021,0.0021,0.0020,0.0018,
- A0.0018,0.0019,0.0019,0.0019,0.0020,0.0021,0.0022,0.0022,
- A0.0024,0.0026,0.0029,0.0035,0.0042,0.0049,0.0055,0.0059,
- A0.0057,0.0054,0.0050,0.0045,0.0039,0.0033,0.0029,0.0024,
- A0.0021,0.0018,0.0017,0.0016,0.0015,0.0015,0.0015,0.0016,
- A0.0016,0.0016,0.0018,0.0019,0.0020,0.0022,0.0022,0.0020,
- A0.0016,0.0012,0.0010,0.0007,0.0005,0.0004,0.0003,0.0003,
- A0.0002,0.0002,0.0001,0.0001,0.0001,0.0001,0.0001,0.0000,
- A0.0000,0.0000,0.0001,0.0001,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0001,0.0001,0.0001,0.0001,0.0002,0.0002,
- A0.0001,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0001,0.0002,0.0002,0.0001,0.0001,0.0001,0.0002,
- A0.0001,0.0002,0.0005,0.0006,0.0006,0.0006,0.0006,0.0003,
- A0.0001,0.0000,0.0000,0.0000,0.0001,
- A1140*0./
-c
-c 8th spectral band of SeaWiFS
-c
- data (sr(8,l),l=1,1501)/ 52*0.,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0002,0.0008,0.0010,0.0010,0.0012,0.0010,0.0006,
- A0.0006,0.0006,0.0005,0.0004,0.0003,0.0002,0.0002,0.0001,
- A0.0001,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0001,0.0001,0.0002,0.0002,0.0002,0.0003,0.0003,0.0004,
- A0.0005,0.0008,0.0015,0.0025,0.0035,0.0044,0.0059,0.0097,
- A0.0085,0.0067,0.0072,0.0066,0.0052,0.0041,0.0035,0.0037,
- A0.0033,0.0029,0.0037,0.0035,0.0027,0.0017,0.0011,0.0011,
- A0.0016,0.0022,0.0028,0.0030,0.0026,0.0014,0.0007,0.0005,
- A0.0004,0.0002,0.0002,0.0001,0.0001,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,0.0000,
- A0.0000,0.0000,0.0000,0.0001,0.0003,0.0008,0.0013,0.0015,
- A0.0017,0.0018,0.0028,0.0075,0.0158,0.0233,0.0231,0.0107,
- A0.0056,0.0030,0.0026,0.0027,0.0035,0.0064,0.0103,0.0152,
- A0.0132,0.0092,0.0043,0.0018,0.0012,0.0008,0.0007,0.0009,
- A0.0008,0.0006,0.0008,0.0007,0.0006,0.0007,0.0009,0.0008,
- A0.0009,0.0011,0.0012,0.0027,0.0021,0.0025,0.0039,0.0037,
- A0.0043,0.0057,0.0079,0.0102,0.0157,0.0245,0.0422,0.0739,
- A0.1388,0.2544,0.4430,0.6626,0.8436,0.9476,0.9851,0.9964,
- A0.9962,0.9827,0.9602,0.9206,0.8634,0.8359,0.8598,0.9266,
- A0.9736,0.9164,0.7136,0.4528,0.2495,0.1301,0.0733,0.0435,
- A0.0289,0.0199,0.0150,0.0112,0.0073,0.0057,0.0046,0.0041,
- A0.0035,0.0029,0.0028,0.0025,0.0023,0.0020,0.0018,0.0017,
- A0.0017,0.0018,0.0017,0.0017,0.0017,0.0016,0.0015,0.0016,
- A0.0016,0.0016,0.0015,0.0016,0.0018,0.0017,0.0017,0.0019,
- A0.0020,0.0021,0.0021,0.0022,0.0023,0.0025,0.0027,0.0027,
- A0.0028,0.0028,0.0027,0.0026,0.0025,0.0024,0.0023,0.0021,
- A0.0021,0.0021,0.0022,0.0022,0.0023,0.0025,0.0025,0.0025,
- A0.0023,0.0020,0.0019,0.0015,0.0011,0.0009,0.0008,0.0009,
- A0.0008,0.0006,0.0005,0.0005,0.0004,0.0005,0.0004,0.0003,
- A0.0003,0.0003,0.0002,0.0001,0.0001,0.0001,0.0001,0.0002,
- A0.0002,0.0001,0.0001,0.0001,0.0000,0.0000,0.0000,0.0002,
- A0.0002,0.0002,0.0001,0.0001,0.0001,0.0001,0.0001,0.0001,
- A0.0000,0.0000,0.0001,0.0001,0.0000,
- A1140*0./
-c
- wli(1)=0.3825
- wls(1)=0.7
- wli(2)=0.38
- wls(2)=0.58
- wli(3)=0.38
- wls(3)=1.02
- wli(4)=0.38
- wls(4)=1.02
- wli(5)=0.3825
- wls(5)=1.15
- wli(6)=0.3825
- wls(6)=1.05
- wli(7)=0.38
- wls(7)=1.15
- wli(8)=0.38
- wls(8)=1.15
- do 1 i=1,1501
- s(i)=sr(iwa,i)
- 1 continue
- wlinf=wli(iwa)
- wlsup=wls(iwa)
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.h b/Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.h
deleted file mode 100644
index 2098cbd..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SEAWIFS.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_seawifs_(
- otb_6s_integer *iwa
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.P b/Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.P
deleted file mode 100644
index 73b4795..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int solirr_(doublereal *wl, doublereal *swl);
-/* comlen sixs_ier__ 8 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.c b/Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.c
deleted file mode 100644
index 8585d03..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.c
+++ /dev/null
@@ -1,247 +0,0 @@
-/* SOLIRR.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-/*< subroutine solirr (wl,swl) >*/
-/* Subroutine */ int solirr_(doublereal *wl, doublereal *swl)
-{
- /* Initialized data */
-
- static doublereal si[1501] = { 69.3,77.65,86.,100.06,114.12,137.06,160.,
- 169.52,179.04,178.02,177.,193.69,210.38,241.69,273.,318.42,363.84,
- 434.42,505.,531.5,558.,547.5,537.,559.02,581.03,619.52,658.,
- 694.39,730.78,774.39,817.99,871.99,925.99,912.04,898.09,920.69,
- 943.29,925.99,908.69,936.09,963.49,994.94,1026.39,980.74,935.09,
- 1036.29,1137.49,1163.74,1189.99,1109.34,1028.69,1088.99,1149.29,
- 1033.69,918.09,1031.89,1145.69,1035.09,924.49,1269.29,1614.09,
- 1631.09,1648.09,1677.19,1706.29,1744.89,1783.49,1750.19,1716.89,
- 1705.19,1693.49,1597.69,1501.89,1630.99,1760.09,1775.24,1790.39,
- 1859.94,1929.49,1993.44,2057.39,2039.23,2021.08,2030.73,2040.38,
- 2026.53,2012.68,1999.53,1986.38,2002.88,2019.38,2038.09,2056.79,
- 1967.74,1878.68,1905.83,1932.98,1953.58,1974.18,1935.68,1897.19,
- 1916.78,1936.38,1937.23,1938.09,1881.44,1824.79,1814.09,1803.39,
- 1832.24,1861.09,1885.93,1910.78,1904.68,1898.58,1875.73,1852.88,
- 1865.64,1878.39,1874.74,1871.09,1872.44,1873.79,1850.39,1826.99,
- 1837.04,1847.09,1841.18,1835.28,1849.48,1863.69,1851.03,1838.38,
- 1840.73,1843.08,1802.83,1762.58,1778.78,1794.99,1777.48,1759.98,
- 1764.73,1769.49,1753.48,1737.48,1713.14,1688.8,1702.88,1716.97,
- 1696.07,1675.17,1672.03,1668.89,1663.56,1658.23,1647.75,1637.27,
- 1630.02,1622.77,1606.06,1589.36,1552.29,1515.22,1528.91,1542.6,
- 1548.9,1555.21,1544.41,1533.62,1525.24,1516.86,1507.92,1498.98,
- 1484.07,1469.17,1464.28,1459.39,1448.73,1438.08,1423.16,1408.24,
- 1407.53,1406.82,1397.82,1388.82,1378.51,1368.21,1352.13,1336.05,
- 1343.88,1351.71,1339.6,1327.5,1320.72,1313.94,1294.94,1275.94,
- 1280.92,1285.9,1278.04,1270.19,1263.68,1257.18,1249.8,1242.41,
- 1231.3,1220.19,1212.14,1204.1,1201.69,1199.29,1194.78,1190.27,
- 1185.47,1180.68,1174.38,1168.09,1156.17,1144.26,1143.46,1142.67,
- 1132.95,1123.23,1116.71,1110.19,1110.89,1111.59,1094.8,1078.01,
- 1077.75,1077.49,1073.89,1070.29,1058.71,1047.13,1045.66,1044.2,
- 1037.03,1029.86,1010.4,990.94,966.91,942.89,972.87,1002.86,978.93,
- 955.,960.95,966.91,983.31,999.71,991.91,984.11,979.05,973.99,
- 968.79,963.6,958.23,952.87,947.93,942.99,937.99,933.,928.,923.,
- 918.18,913.37,908.74,904.11,899.05,893.99,889.18,884.37,879.74,
- 875.12,870.24,865.36,860.94,856.53,852.02,847.5,843.,838.5,833.99,
- 829.49,824.98,820.48,815.99,811.5,806.99,802.49,798.17,793.86,
- 789.74,785.63,781.25,776.87,772.92,768.98,764.8,760.63,756.06,
- 751.49,746.99,742.49,738.18,733.88,729.76,725.63,721.24,716.86,
- 712.92,708.99,704.81,700.63,696.25,691.87,687.94,684.01,680.01,
- 676.,671.8,667.61,663.23,658.86,655.32,651.77,649.07,646.37,
- 643.74,641.11,638.05,634.99,632.18,629.37,626.74,624.12,621.06,
- 618.,615.18,612.37,609.92,607.48,604.79,602.11,599.24,596.38,
- 593.93,591.48,588.79,586.11,583.25,580.4,577.94,575.48,572.99,
- 570.51,568.,565.49,562.98,560.47,557.98,555.5,553.01,550.51,548.,
- 545.49,542.98,540.48,537.98,535.49,533.19,530.9,528.94,526.99,
- 524.8,522.62,520.24,517.87,515.44,513.01,509.59,506.17,502.89,
- 499.62,496.35,493.09,489.81,486.54,483.27,480.01,476.73,473.46,
- 470.19,466.92,463.64,460.37,457.1,453.84,450.57,447.3,444.03,
- 440.76,437.48,434.21,430.94,427.67,424.4,421.13,417.86,414.59,
- 411.32,408.05,404.78,401.51,398.24,394.97,391.7,388.43,392.57,
- 396.71,401.92,407.14,405.32,403.5,401.67,399.84,398.02,396.21,
- 394.37,392.54,390.72,388.9,387.06,385.23,383.42,381.6,379.77,
- 377.95,376.12,374.3,372.48,370.66,368.82,366.99,365.17,363.35,
- 361.52,359.69,357.87,356.05,354.22,352.39,350.57,348.75,346.92,
- 345.1,343.27,341.45,341.84,342.24,342.95,343.66,342.27,340.89,
- 339.49,338.09,336.69,335.3,333.91,332.53,331.13,329.73,328.34,
- 326.96,325.56,324.16,322.77,321.39,319.99,318.59,317.2,315.82,
- 314.42,313.03,311.63,310.24,308.85,307.46,306.06,304.66,303.28,
- 301.9,300.5,299.1,297.71,296.32,294.93,293.54,293.41,293.28,
- 293.35,293.42,292.26,291.1,289.97,288.84,287.69,286.54,285.39,
- 284.25,283.1,281.96,280.81,279.67,278.52,277.38,276.23,275.08,
- 273.94,272.8,271.65,270.51,269.36,268.22,267.07,265.93,264.78,
- 263.64,262.49,261.34,260.2,259.06,257.91,256.77,255.62,254.47,
- 253.33,252.2,251.16,250.13,249.11,248.09,246.97,245.86,244.74,
- 243.61,242.49,241.37,240.24,239.12,238.,236.89,235.76,234.64,
- 233.51,232.38,231.26,230.13,229.01,227.9,226.77,225.65,224.53,
- 223.42,222.29,221.16,220.04,218.92,217.8,216.68,215.55,214.43,
- 213.3,212.18,211.06,209.94,208.82,207.69,206.99,206.29,205.65,
- 205.02,203.98,202.95,201.9,200.85,199.81,198.78,197.74,196.7,
- 195.65,194.61,193.57,192.54,191.5,190.47,189.42,188.37,187.33,
- 186.3,185.26,184.22,183.18,182.14,181.1,180.06,179.02,177.98,
- 176.93,175.89,174.86,173.83,172.78,171.73,170.7,169.67,168.62,
- 167.57,167.59,167.6,167.76,167.93,167.09,166.26,165.42,164.58,
- 163.75,162.92,162.08,161.25,160.41,159.58,158.74,157.91,157.07,
- 156.24,155.4,154.57,153.73,152.9,152.06,151.23,150.39,149.56,
- 148.72,147.89,147.06,146.23,145.39,144.55,143.71,142.88,142.05,
- 141.22,140.38,139.54,138.7,137.86,137.99,138.11,138.36,138.6,
- 137.94,137.29,136.64,136.,135.35,134.71,134.05,133.39,132.74,
- 132.09,131.45,130.81,130.15,129.49,128.84,128.2,127.55,126.9,
- 126.25,125.6,124.94,124.29,123.64,123.,122.35,121.7,121.05,120.4,
- 119.74,119.09,118.45,117.81,117.15,116.5,115.85,115.19,115.25,
- 115.31,115.46,115.62,115.11,114.6,114.09,113.58,113.06,112.54,
- 112.03,111.53,111.01,110.5,109.99,109.47,108.95,108.44,107.93,
- 107.42,106.92,106.42,105.89,105.37,104.85,104.34,103.83,103.33,
- 102.81,102.29,101.79,101.29,100.77,100.25,99.74,99.22,98.71,98.2,
- 97.69,97.18,97.12,97.07,97.09,97.11,96.68,96.26,95.84,95.42,94.99,
- 94.56,94.14,93.72,93.31,92.89,92.46,92.03,91.61,91.19,90.76,90.34,
- 89.92,89.49,89.07,88.66,88.24,87.81,87.39,86.97,86.55,86.12,85.69,
- 85.26,84.85,84.43,84.01,83.59,83.17,82.75,82.32,81.89,81.89,81.89,
- 81.95,82.02,81.68,81.35,81.,80.65,80.32,79.99,79.64,79.3,78.96,
- 78.61,78.27,77.94,77.6,77.26,76.91,76.57,76.24,75.9,75.56,75.22,
- 74.88,74.54,74.2,73.86,73.52,73.18,72.84,72.5,72.16,71.82,71.48,
- 71.14,70.8,70.47,70.13,69.79,69.76,69.73,69.76,69.8,69.52,69.24,
- 68.96,68.68,68.41,68.14,67.85,67.57,67.29,67.02,66.75,66.48,66.19,
- 65.9,65.63,65.36,65.08,64.8,64.53,64.25,63.97,63.69,63.41,63.14,
- 62.85,62.57,62.3,62.03,61.75,61.47,61.19,60.92,60.64,60.36,60.08,
- 59.81,59.8,59.8,59.82,59.85,59.63,59.4,59.17,58.95,58.73,58.5,
- 58.28,58.06,57.83,57.6,57.37,57.15,56.93,56.7,56.48,56.26,56.03,
- 55.79,55.57,55.36,55.13,54.9,54.66,54.43,54.22,54.,53.77,53.55,
- 53.32,53.09,52.87,52.65,52.43,52.2,51.97,51.75,51.72,51.68,51.67,
- 51.67,51.48,51.3,51.11,50.92,50.73,50.55,50.37,50.18,49.98,49.79,
- 49.61,49.43,49.23,49.04,48.85,48.67,48.48,48.3,48.12,47.93,47.73,
- 47.54,47.36,47.18,46.98,46.79,46.6,46.42,46.24,46.06,45.87,45.67,
- 45.48,45.3,45.12,44.93,44.87,44.82,44.8,44.79,44.62,44.45,44.29,
- 44.14,43.98,43.83,43.66,43.49,43.34,43.18,43.02,42.86,42.7,42.55,
- 42.38,42.21,42.06,41.9,41.74,41.58,41.42,41.26,41.1,40.94,40.78,
- 40.62,40.46,40.31,40.14,39.97,39.81,39.66,39.5,39.34,39.18,39.03,
- 38.99,38.96,38.94,38.92,38.79,38.66,38.52,38.38,38.25,38.12,37.99,
- 37.86,37.72,37.58,37.44,37.3,37.17,37.05,36.91,36.77,36.64,36.5,
- 36.36,36.23,36.09,35.96,35.82,35.69,35.55,35.42,35.28,35.15,35.01,
- 34.88,34.75,34.61,34.47,34.34,34.2,34.07,34.05,34.03,34.03,34.03,
- 33.91,33.79,33.68,33.57,33.46,33.35,33.23,33.12,33.01,32.9,32.78,
- 32.67,32.55,32.44,32.33,32.23,32.11,32.,31.89,31.77,31.66,31.55,
- 31.43,31.31,31.2,31.1,30.99,30.87,30.76,30.66,30.54,30.42,30.31,
- 30.2,30.08,29.97,29.93,29.9,29.88,29.87,29.76,29.66,29.56,29.46,
- 29.36,29.27,29.17,29.08,28.98,28.88,28.77,28.67,28.58,28.49,28.39,
- 28.3,28.2,28.1,28.,27.91,27.81,27.71,27.61,27.52,27.41,27.31,
- 27.21,27.12,27.03,26.93,26.83,26.74,26.64,26.54,26.44,26.35,26.33,
- 26.31,26.29,26.28,26.2,26.12,26.04,25.95,25.87,25.79,25.71,25.64,
- 25.54,25.45,25.37,25.3,25.21,25.12,25.05,24.98,24.89,24.8,24.71,
- 24.63,24.55,24.47,24.39,24.31,24.22,24.14,24.05,23.97,23.89,23.81,
- 23.73,23.66,23.56,23.47,23.39,23.31,23.28,23.26,23.23,23.21,23.13,
- 23.06,22.99,22.92,22.84,22.76,22.69,22.63,22.55,22.47,22.41,22.35,
- 22.27,22.19,22.11,22.04,21.97,21.9,21.83,21.76,21.68,21.6,21.53,
- 21.47,21.39,21.31,21.24,21.18,21.11,21.03,20.96,20.89,20.81,20.73,
- 20.66,20.6,20.57,20.55,20.54,20.53,20.46,20.4,20.34,20.28,20.21,
- 20.14,20.08,20.03,19.96,19.9,19.83,19.77,19.71,19.65,19.59,19.53,
- 19.46,19.39,19.33,19.27,19.21,19.15,19.08,19.02,18.96,18.9,18.84,
- 18.78,18.71,18.64,18.58,18.53,18.46,18.4,18.33,18.27,18.26,18.25,
- 18.24,18.24,18.19,18.14,18.08,18.03,17.98,17.93,17.88,17.83,17.77,
- 17.71,17.66,17.62,17.56,17.5,17.45,17.41,17.35,17.29,17.25,17.21,
- 17.14,17.08,17.04,17.,16.93,16.87,16.83,16.79,16.72,16.66,16.61,
- 16.57,16.51,16.46,16.41,16.36,16.34,16.33,16.31,16.3,16.26,16.22,
- 16.17,16.13,16.08,16.04,16.,15.96,15.9,15.84,15.81,15.78,15.73,
- 15.68,15.63,15.59,15.55,15.5,15.45,15.4,15.36,15.32,15.28,15.24,
- 15.18,15.13,15.09,15.05,15.01,14.96,14.91,14.87,14.82,14.78,14.73,
- 14.69,14.66,14.64,14.64,14.63,14.59,14.55,14.5,14.45,14.41,14.38,
- 14.35,14.32,14.26,14.21,14.18,14.15,14.1,14.05,14.01,13.98,13.94,
- 13.91,13.86,13.82,13.78,13.74,13.7,13.67,13.62,13.58,13.54,13.5,
- 13.46,13.43,13.39,13.35,13.3,13.25,13.22,13.18,13.17,13.16,13.14,
- 13.12,13.09,13.06,13.03,13.,12.96,12.92,12.89,12.85,12.81,12.78,
- 12.74,12.7,12.67,12.65,12.61,12.57,12.53,12.5,12.46,12.43,12.39,
- 12.36,12.32,12.28,12.25,12.22,12.18,12.15,12.11,12.07,12.04,12.01,
- 11.97,11.94,11.9,11.86,11.85,11.85,11.85,11.84,11.81,11.78,11.75,
- 11.72,11.69,11.66,11.63,11.6,11.58,11.55,11.51,11.47,11.45,11.42,
- 11.39,11.36,11.33,11.3,11.27,11.24,11.21,11.18,11.15,11.12,11.09,
- 11.06,11.03,11.,10.97,10.94,10.91,10.89,10.85,10.82,10.78,10.75,
- 10.73,10.72,10.71,10.7,10.67,10.64,10.62,10.59,10.55,10.52,10.5,
- 10.47,10.44,10.42,10.39,10.37,10.34,10.31,10.28,10.25,10.22,10.2,
- 10.17,10.15,10.12,10.1,10.06,10.03,10.,9.98,9.95,9.92,9.89,9.86,
- 9.84,9.82,9.79,9.75,9.73,9.71,9.7,9.7,9.7,9.7,9.67,9.63,9.61,9.59,
- 9.58,9.56,9.53,9.5,9.48,9.45,9.43,9.41,9.39,9.36,9.34,9.32,9.3,
- 9.27,9.24,9.22,9.2,9.18,9.15,9.13,9.11,9.08,9.06,9.05,9.02,8.99,
- 8.96,8.94,8.92,8.9,8.87,8.85,8.83,8.81 };
-
- /* Format strings */
- static char fmt_20[] = "(\002 wavelength less than 0.25 micron \
- :\002,/,\002let's take s(l)=s(0.25)\002)";
-
- /* Builtin functions */
- integer s_wsfe(cilist *), e_wsfe();
-
- /* Local variables */
- doublereal pas;
- integer iwl;
-
- /* Fortran I/O blocks */
- static cilist io___4 = { 0, 0, 0, fmt_20, 0 };
-
-
-/* si (in w/m2/micron) contains the values of the solar */
-/* irradiance between 0.25 and 4.0 microns, by step of 0.0025 m. */
-/* the value of the total irradiance is 1372 w/m2 on the whole */
-/* spectrum (1358 w/m2 between 0.25 and 4.0 microns) */
-
-/*< dimension si(1501) >*/
-/*< logical ier >*/
-/*< real wl,swl,si,pas >*/
-/*< integer iwr,i,iwl >*/
-/*< common/sixs_ier/iwr,ier >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< pas=0.0025 >*/
- pas = .0025;
-/*< iwl=(wl-0.250)/pas+1.5 >*/
- iwl = (integer) ((*wl - .25) / pas + 1.5);
-/*< if(iwl.lt.0) goto 10 >*/
- if (iwl < 0) {
- goto L10;
- }
-/*< swl=si(iwl) >*/
- *swl = si[iwl - 1];
-/*< return >*/
- return 0;
-/*< 10 write(iwr, 20) >*/
-L10:
- io___4.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___4);
- e_wsfe();
-/*< swl=si(1) >*/
- *swl = si[0];
-/*< 20 >*/
-/*< return >*/
- return 0;
-/*< end >*/
-} /* solirr_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.f b/Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.f
deleted file mode 100644
index 240badc..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.f
+++ /dev/null
@@ -1,253 +0,0 @@
- subroutine solirr (wl,swl)
-
-c si (in w/m2/micron) contains the values of the solar
-c irradiance between 0.25 and 4.0 microns, by step of 0.0025 m.
-c the value of the total irradiance is 1372 w/m2 on the whole
-c spectrum (1358 w/m2 between 0.25 and 4.0 microns)
-c
- dimension si(1501)
- logical ier
- real wl,swl,si,pas
- integer iwr,i,iwl
- common/sixs_ier/iwr,ier
-
- data (si(i),i=1,112) /
- a 69.30, 77.65, 86.00, 100.06, 114.12, 137.06, 160.00,
- a 169.52, 179.04, 178.02, 177.00, 193.69, 210.38, 241.69,
- a 273.00, 318.42, 363.84, 434.42, 505.00, 531.50, 558.00,
- a 547.50, 537.00, 559.02, 581.03, 619.52, 658.00, 694.39,
- a 730.78, 774.39, 817.99, 871.99, 925.99, 912.04, 898.09,
- a 920.69, 943.29, 925.99, 908.69, 936.09, 963.49, 994.94,
- a1026.39, 980.74, 935.09,1036.29,1137.49,1163.74,1189.99,
- a1109.34,1028.69,1088.99,1149.29,1033.69, 918.09,1031.89,
- a1145.69,1035.09, 924.49,1269.29,1614.09,1631.09,1648.09,
- a1677.19,1706.29,1744.89,1783.49,1750.19,1716.89,1705.19,
- a1693.49,1597.69,1501.89,1630.99,1760.09,1775.24,1790.39,
- a1859.94,1929.49,1993.44,2057.39,2039.23,2021.08,2030.73,
- a2040.38,2026.53,2012.68,1999.53,1986.38,2002.88,2019.38,
- a2038.09,2056.79,1967.74,1878.68,1905.83,1932.98,1953.58,
- a1974.18,1935.68,1897.19,1916.78,1936.38,1937.23,1938.09,
- a1881.44,1824.79,1814.09,1803.39,1832.24,1861.09,1885.93/
- data (si(i),i=113,224) /
- a1910.78,1904.68,1898.58,1875.73,1852.88,1865.64,1878.39,
- a1874.74,1871.09,1872.44,1873.79,1850.39,1826.99,1837.04,
- a1847.09,1841.18,1835.28,1849.48,1863.69,1851.03,1838.38,
- a1840.73,1843.08,1802.83,1762.58,1778.78,1794.99,1777.48,
- a1759.98,1764.73,1769.49,1753.48,1737.48,1713.14,1688.80,
- a1702.88,1716.97,1696.07,1675.17,1672.03,1668.89,1663.56,
- a1658.23,1647.75,1637.27,1630.02,1622.77,1606.06,1589.36,
- a1552.29,1515.22,1528.91,1542.60,1548.90,1555.21,1544.41,
- a1533.62,1525.24,1516.86,1507.92,1498.98,1484.07,1469.17,
- a1464.28,1459.39,1448.73,1438.08,1423.16,1408.24,1407.53,
- a1406.82,1397.82,1388.82,1378.51,1368.21,1352.13,1336.05,
- a1343.88,1351.71,1339.60,1327.50,1320.72,1313.94,1294.94,
- a1275.94,1280.92,1285.90,1278.04,1270.19,1263.68,1257.18,
- a1249.80,1242.41,1231.30,1220.19,1212.14,1204.10,1201.69,
- a1199.29,1194.78,1190.27,1185.47,1180.68,1174.38,1168.09,
- a1156.17,1144.26,1143.46,1142.67,1132.95,1123.23,1116.71/
- data (si(i),i=225,336) /
- a1110.19,1110.89,1111.59,1094.80,1078.01,1077.75,1077.49,
- a1073.89,1070.29,1058.71,1047.13,1045.66,1044.20,1037.03,
- a1029.86,1010.40, 990.94, 966.91, 942.89, 972.87,1002.86,
- a 978.93, 955.00, 960.95, 966.91, 983.31, 999.71, 991.91,
- a 984.11, 979.05, 973.99, 968.79, 963.60, 958.23, 952.87,
- a 947.93, 942.99, 937.99, 933.00, 928.00, 923.00, 918.18,
- a 913.37, 908.74, 904.11, 899.05, 893.99, 889.18, 884.37,
- a 879.74, 875.12, 870.24, 865.36, 860.94, 856.53, 852.02,
- a 847.50, 843.00, 838.50, 833.99, 829.49, 824.98, 820.48,
- a 815.99, 811.50, 806.99, 802.49, 798.17, 793.86, 789.74,
- a 785.63, 781.25, 776.87, 772.92, 768.98, 764.80, 760.63,
- a 756.06, 751.49, 746.99, 742.49, 738.18, 733.88, 729.76,
- a 725.63, 721.24, 716.86, 712.92, 708.99, 704.81, 700.63,
- a 696.25, 691.87, 687.94, 684.01, 680.01, 676.00, 671.80,
- a 667.61, 663.23, 658.86, 655.32, 651.77, 649.07, 646.37,
- a 643.74, 641.11, 638.05, 634.99, 632.18, 629.37, 626.74/
- data (si(i),i=337,448) /
- a 624.12, 621.06, 618.00, 615.18, 612.37, 609.92, 607.48,
- a 604.79, 602.11, 599.24, 596.38, 593.93, 591.48, 588.79,
- a 586.11, 583.25, 580.40, 577.94, 575.48, 572.99, 570.51,
- a 568.00, 565.49, 562.98, 560.47, 557.98, 555.50, 553.01,
- a 550.51, 548.00, 545.49, 542.98, 540.48, 537.98, 535.49,
- a 533.19, 530.90, 528.94, 526.99, 524.80, 522.62, 520.24,
- a 517.87, 515.44, 513.01, 509.59, 506.17, 502.89, 499.62,
- a 496.35, 493.09, 489.81, 486.54, 483.27, 480.01, 476.73,
- a 473.46, 470.19, 466.92, 463.64, 460.37, 457.10, 453.84,
- a 450.57, 447.30, 444.03, 440.76, 437.48, 434.21, 430.94,
- a 427.67, 424.40, 421.13, 417.86, 414.59, 411.32, 408.05,
- a 404.78, 401.51, 398.24, 394.97, 391.70, 388.43, 392.57,
- a 396.71, 401.92, 407.14, 405.32, 403.50, 401.67, 399.84,
- a 398.02, 396.21, 394.37, 392.54, 390.72, 388.90, 387.06,
- a 385.23, 383.42, 381.60, 379.77, 377.95, 376.12, 374.30,
- a 372.48, 370.66, 368.82, 366.99, 365.17, 363.35, 361.52/
- data (si(i),i=449,560) /
- a 359.69, 357.87, 356.05, 354.22, 352.39, 350.57, 348.75,
- a 346.92, 345.10, 343.27, 341.45, 341.84, 342.24, 342.95,
- a 343.66, 342.27, 340.89, 339.49, 338.09, 336.69, 335.30,
- a 333.91, 332.53, 331.13, 329.73, 328.34, 326.96, 325.56,
- a 324.16, 322.77, 321.39, 319.99, 318.59, 317.20, 315.82,
- a 314.42, 313.03, 311.63, 310.24, 308.85, 307.46, 306.06,
- a 304.66, 303.28, 301.90, 300.50, 299.10, 297.71, 296.32,
- a 294.93, 293.54, 293.41, 293.28, 293.35, 293.42, 292.26,
- a 291.10, 289.97, 288.84, 287.69, 286.54, 285.39, 284.25,
- a 283.10, 281.96, 280.81, 279.67, 278.52, 277.38, 276.23,
- a 275.08, 273.94, 272.80, 271.65, 270.51, 269.36, 268.22,
- a 267.07, 265.93, 264.78, 263.64, 262.49, 261.34, 260.20,
- a 259.06, 257.91, 256.77, 255.62, 254.47, 253.33, 252.20,
- a 251.16, 250.13, 249.11, 248.09, 246.97, 245.86, 244.74,
- a 243.61, 242.49, 241.37, 240.24, 239.12, 238.00, 236.89,
- a 235.76, 234.64, 233.51, 232.38, 231.26, 230.13, 229.01/
- data (si(i),i=561,672) /
- a 227.90, 226.77, 225.65, 224.53, 223.42, 222.29, 221.16,
- a 220.04, 218.92, 217.80, 216.68, 215.55, 214.43, 213.30,
- a 212.18, 211.06, 209.94, 208.82, 207.69, 206.99, 206.29,
- a 205.65, 205.02, 203.98, 202.95, 201.90, 200.85, 199.81,
- a 198.78, 197.74, 196.70, 195.65, 194.61, 193.57, 192.54,
- a 191.50, 190.47, 189.42, 188.37, 187.33, 186.30, 185.26,
- a 184.22, 183.18, 182.14, 181.10, 180.06, 179.02, 177.98,
- a 176.93, 175.89, 174.86, 173.83, 172.78, 171.73, 170.70,
- a 169.67, 168.62, 167.57, 167.59, 167.60, 167.76, 167.93,
- a 167.09, 166.26, 165.42, 164.58, 163.75, 162.92, 162.08,
- a 161.25, 160.41, 159.58, 158.74, 157.91, 157.07, 156.24,
- a 155.40, 154.57, 153.73, 152.90, 152.06, 151.23, 150.39,
- a 149.56, 148.72, 147.89, 147.06, 146.23, 145.39, 144.55,
- a 143.71, 142.88, 142.05, 141.22, 140.38, 139.54, 138.70,
- a 137.86, 137.99, 138.11, 138.36, 138.60, 137.94, 137.29,
- a 136.64, 136.00, 135.35, 134.71, 134.05, 133.39, 132.74/
- data (si(i),i=673,784) /
- a 132.09, 131.45, 130.81, 130.15, 129.49, 128.84, 128.20,
- a 127.55, 126.90, 126.25, 125.60, 124.94, 124.29, 123.64,
- a 123.00, 122.35, 121.70, 121.05, 120.40, 119.74, 119.09,
- a 118.45, 117.81, 117.15, 116.50, 115.85, 115.19, 115.25,
- a 115.31, 115.46, 115.62, 115.11, 114.60, 114.09, 113.58,
- a 113.06, 112.54, 112.03, 111.53, 111.01, 110.50, 109.99,
- a 109.47, 108.95, 108.44, 107.93, 107.42, 106.92, 106.42,
- a 105.89, 105.37, 104.85, 104.34, 103.83, 103.33, 102.81,
- a 102.29, 101.79, 101.29, 100.77, 100.25, 99.74, 99.22,
- a 98.71, 98.20, 97.69, 97.18, 97.12, 97.07, 97.09,
- a 97.11, 96.68, 96.26, 95.84, 95.42, 94.99, 94.56,
- a 94.14, 93.72, 93.31, 92.89, 92.46, 92.03, 91.61,
- a 91.19, 90.76, 90.34, 89.92, 89.49, 89.07, 88.66,
- a 88.24, 87.81, 87.39, 86.97, 86.55, 86.12, 85.69,
- a 85.26, 84.85, 84.43, 84.01, 83.59, 83.17, 82.75,
- a 82.32, 81.89, 81.89, 81.89, 81.95, 82.02, 81.68/
- data (si(i),i=785,896) /
- a 81.35, 81.00, 80.65, 80.32, 79.99, 79.64, 79.30,
- a 78.96, 78.61, 78.27, 77.94, 77.60, 77.26, 76.91,
- a 76.57, 76.24, 75.90, 75.56, 75.22, 74.88, 74.54,
- a 74.20, 73.86, 73.52, 73.18, 72.84, 72.50, 72.16,
- a 71.82, 71.48, 71.14, 70.80, 70.47, 70.13, 69.79,
- a 69.76, 69.73, 69.76, 69.80, 69.52, 69.24, 68.96,
- a 68.68, 68.41, 68.14, 67.85, 67.57, 67.29, 67.02,
- a 66.75, 66.48, 66.19, 65.90, 65.63, 65.36, 65.08,
- a 64.80, 64.53, 64.25, 63.97, 63.69, 63.41, 63.14,
- a 62.85, 62.57, 62.30, 62.03, 61.75, 61.47, 61.19,
- a 60.92, 60.64, 60.36, 60.08, 59.81, 59.80, 59.80,
- a 59.82, 59.85, 59.63, 59.40, 59.17, 58.95, 58.73,
- a 58.50, 58.28, 58.06, 57.83, 57.60, 57.37, 57.15,
- a 56.93, 56.70, 56.48, 56.26, 56.03, 55.79, 55.57,
- a 55.36, 55.13, 54.90, 54.66, 54.43, 54.22, 54.00,
- a 53.77, 53.55, 53.32, 53.09, 52.87, 52.65, 52.43/
- data (si(i),i=897,1008) /
- a 52.20, 51.97, 51.75, 51.72, 51.68, 51.67, 51.67,
- a 51.48, 51.30, 51.11, 50.92, 50.73, 50.55, 50.37,
- a 50.18, 49.98, 49.79, 49.61, 49.43, 49.23, 49.04,
- a 48.85, 48.67, 48.48, 48.30, 48.12, 47.93, 47.73,
- a 47.54, 47.36, 47.18, 46.98, 46.79, 46.60, 46.42,
- a 46.24, 46.06, 45.87, 45.67, 45.48, 45.30, 45.12,
- a 44.93, 44.87, 44.82, 44.80, 44.79, 44.62, 44.45,
- a 44.29, 44.14, 43.98, 43.83, 43.66, 43.49, 43.34,
- a 43.18, 43.02, 42.86, 42.70, 42.55, 42.38, 42.21,
- a 42.06, 41.90, 41.74, 41.58, 41.42, 41.26, 41.10,
- a 40.94, 40.78, 40.62, 40.46, 40.31, 40.14, 39.97,
- a 39.81, 39.66, 39.50, 39.34, 39.18, 39.03, 38.99,
- a 38.96, 38.94, 38.92, 38.79, 38.66, 38.52, 38.38,
- a 38.25, 38.12, 37.99, 37.86, 37.72, 37.58, 37.44,
- a 37.30, 37.17, 37.05, 36.91, 36.77, 36.64, 36.50,
- a 36.36, 36.23, 36.09, 35.96, 35.82, 35.69, 35.55/
- data (si(i),i=1009,1120) /
- a 35.42, 35.28, 35.15, 35.01, 34.88, 34.75, 34.61,
- a 34.47, 34.34, 34.20, 34.07, 34.05, 34.03, 34.03,
- a 34.03, 33.91, 33.79, 33.68, 33.57, 33.46, 33.35,
- a 33.23, 33.12, 33.01, 32.90, 32.78, 32.67, 32.55,
- a 32.44, 32.33, 32.23, 32.11, 32.00, 31.89, 31.77,
- a 31.66, 31.55, 31.43, 31.31, 31.20, 31.10, 30.99,
- a 30.87, 30.76, 30.66, 30.54, 30.42, 30.31, 30.20,
- a 30.08, 29.97, 29.93, 29.90, 29.88, 29.87, 29.76,
- a 29.66, 29.56, 29.46, 29.36, 29.27, 29.17, 29.08,
- a 28.98, 28.88, 28.77, 28.67, 28.58, 28.49, 28.39,
- a 28.30, 28.20, 28.10, 28.00, 27.91, 27.81, 27.71,
- a 27.61, 27.52, 27.41, 27.31, 27.21, 27.12, 27.03,
- a 26.93, 26.83, 26.74, 26.64, 26.54, 26.44, 26.35,
- a 26.33, 26.31, 26.29, 26.28, 26.20, 26.12, 26.04,
- a 25.95, 25.87, 25.79, 25.71, 25.64, 25.54, 25.45,
- a 25.37, 25.30, 25.21, 25.12, 25.05, 24.98, 24.89/
- data (si(i),i=1121,1232) /
- a 24.80, 24.71, 24.63, 24.55, 24.47, 24.39, 24.31,
- a 24.22, 24.14, 24.05, 23.97, 23.89, 23.81, 23.73,
- a 23.66, 23.56, 23.47, 23.39, 23.31, 23.28, 23.26,
- a 23.23, 23.21, 23.13, 23.06, 22.99, 22.92, 22.84,
- a 22.76, 22.69, 22.63, 22.55, 22.47, 22.41, 22.35,
- a 22.27, 22.19, 22.11, 22.04, 21.97, 21.90, 21.83,
- a 21.76, 21.68, 21.60, 21.53, 21.47, 21.39, 21.31,
- a 21.24, 21.18, 21.11, 21.03, 20.96, 20.89, 20.81,
- a 20.73, 20.66, 20.60, 20.57, 20.55, 20.54, 20.53,
- a 20.46, 20.40, 20.34, 20.28, 20.21, 20.14, 20.08,
- a 20.03, 19.96, 19.90, 19.83, 19.77, 19.71, 19.65,
- a 19.59, 19.53, 19.46, 19.39, 19.33, 19.27, 19.21,
- a 19.15, 19.08, 19.02, 18.96, 18.90, 18.84, 18.78,
- a 18.71, 18.64, 18.58, 18.53, 18.46, 18.40, 18.33,
- a 18.27, 18.26, 18.25, 18.24, 18.24, 18.19, 18.14,
- a 18.08, 18.03, 17.98, 17.93, 17.88, 17.83, 17.77/
- data (si(i),i=1233,1344) /
- a 17.71, 17.66, 17.62, 17.56, 17.50, 17.45, 17.41,
- a 17.35, 17.29, 17.25, 17.21, 17.14, 17.08, 17.04,
- a 17.00, 16.93, 16.87, 16.83, 16.79, 16.72, 16.66,
- a 16.61, 16.57, 16.51, 16.46, 16.41, 16.36, 16.34,
- a 16.33, 16.31, 16.30, 16.26, 16.22, 16.17, 16.13,
- a 16.08, 16.04, 16.00, 15.96, 15.90, 15.84, 15.81,
- a 15.78, 15.73, 15.68, 15.63, 15.59, 15.55, 15.50,
- a 15.45, 15.40, 15.36, 15.32, 15.28, 15.24, 15.18,
- a 15.13, 15.09, 15.05, 15.01, 14.96, 14.91, 14.87,
- a 14.82, 14.78, 14.73, 14.69, 14.66, 14.64, 14.64,
- a 14.63, 14.59, 14.55, 14.50, 14.45, 14.41, 14.38,
- a 14.35, 14.32, 14.26, 14.21, 14.18, 14.15, 14.10,
- a 14.05, 14.01, 13.98, 13.94, 13.91, 13.86, 13.82,
- a 13.78, 13.74, 13.70, 13.67, 13.62, 13.58, 13.54,
- a 13.50, 13.46, 13.43, 13.39, 13.35, 13.30, 13.25,
- a 13.22, 13.18, 13.17, 13.16, 13.14, 13.12, 13.09/
- data (si(i),i=1345,1456) /
- a 13.06, 13.03, 13.00, 12.96, 12.92, 12.89, 12.85,
- a 12.81, 12.78, 12.74, 12.70, 12.67, 12.65, 12.61,
- a 12.57, 12.53, 12.50, 12.46, 12.43, 12.39, 12.36,
- a 12.32, 12.28, 12.25, 12.22, 12.18, 12.15, 12.11,
- a 12.07, 12.04, 12.01, 11.97, 11.94, 11.90, 11.86,
- a 11.85, 11.85, 11.85, 11.84, 11.81, 11.78, 11.75,
- a 11.72, 11.69, 11.66, 11.63, 11.60, 11.58, 11.55,
- a 11.51, 11.47, 11.45, 11.42, 11.39, 11.36, 11.33,
- a 11.30, 11.27, 11.24, 11.21, 11.18, 11.15, 11.12,
- a 11.09, 11.06, 11.03, 11.00, 10.97, 10.94, 10.91,
- a 10.89, 10.85, 10.82, 10.78, 10.75, 10.73, 10.72,
- a 10.71, 10.70, 10.67, 10.64, 10.62, 10.59, 10.55,
- a 10.52, 10.50, 10.47, 10.44, 10.42, 10.39, 10.37,
- a 10.34, 10.31, 10.28, 10.25, 10.22, 10.20, 10.17,
- a 10.15, 10.12, 10.10, 10.06, 10.03, 10.00, 9.98,
- a 9.95, 9.92, 9.89, 9.86, 9.84, 9.82, 9.79/
- data (si(i),i=1457,1501) /
- a 9.75, 9.73, 9.71, 9.70, 9.70, 9.70, 9.70,
- a 9.67, 9.63, 9.61, 9.59, 9.58, 9.56, 9.53,
- a 9.50, 9.48, 9.45, 9.43, 9.41, 9.39, 9.36,
- a 9.34, 9.32, 9.30, 9.27, 9.24, 9.22, 9.20,
- a 9.18, 9.15, 9.13, 9.11, 9.08, 9.06, 9.05,
- a 9.02, 8.99, 8.96, 8.94, 8.92, 8.90, 8.87,
- a 8.85, 8.83, 8.81/
- pas=0.0025
- iwl=(wl-0.250)/pas+1.5
- if(iwl.lt.0) goto 10
- swl=si(iwl)
- return
-10 write(iwr, 20)
- swl=si(1)
-20 format(45h wavelength less than 0.25 micron :,/,
- a23hlet's take s(l)=s(0.25))
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.h b/Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.h
deleted file mode 100644
index 8a71cff..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SOLIRR.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_solirr_(
- otb_6s_doublereal *wl,
- otb_6s_doublereal *swl
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SOOT.P b/Modules/ThirdParty/6S/src/6SV1.0B/SOOT.P
deleted file mode 100644
index 3db9011..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SOOT.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int soot_();
-/* comlen num_quad__ 4 */
-/* comlen sixs_aerbas__ 480000 */
-/* comlen sixs_coef__ 1952 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SOOT.c b/Modules/ThirdParty/6S/src/6SV1.0B/SOOT.c
deleted file mode 100644
index 09b46d3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SOOT.c
+++ /dev/null
@@ -1,696 +0,0 @@
-/* SOOT.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal ph[20000] /* was [20][1000] */, qh[20000] /* was [20][
- 1000] */, uh[20000] /* was [20][1000] */;
-} sixs_aerbas__;
-
-#define sixs_aerbas__1 sixs_aerbas__
-
-Extern struct {
- doublereal ex[80] /* was [4][20] */, sc[80] /* was [4][20] */,
- asy[80] /* was [4][20] */, vi[4];
-} sixs_coef__;
-
-#define sixs_coef__1 sixs_coef__
-
-/*< subroutine soot >*/
-/* Subroutine */ int soot_()
-{
- /* Initialized data */
-
- static doublereal asy_m__[20] = { .423,.397,.391,.377,.365,.358,.348,.337,
- .324,.31,.299,.293,.276,.253,.188,.155,.144,.121,.103,.055 };
- static doublereal ex_m__[20] = { .001017724,8.614733e-4,8.291564e-4,
- 7.534558e-4,6.955619e-4,6.605808e-4,6.115299e-4,5.541574e-4,
- 5.00754e-4,4.542466e-4,4.189021e-4,3.975466e-4,3.507939e-4,
- 2.984524e-4,1.898267e-4,1.479603e-4,1.378559e-4,1.161122e-4,
- 1.005532e-4,6.124496e-5 };
- static doublereal sc_m__[20] = { 2.956808e-4,2.301183e-4,2.170554e-4,
- 1.871983e-4,1.651221e-4,1.521293e-4,1.348011e-4,1.156599e-4,
- 9.774679e-5,8.21856e-5,7.11141e-5,6.486094e-5,5.093826e-5,
- 3.621259e-5,1.251277e-5,6.450522e-6,5.127908e-6,2.946072e-6,
- 1.794028e-6,3.05519e-7 };
- static doublereal phr[1660] /* was [20][83] */ = { .4446,.4907,.5012,
- .5274,.5491,.5632,.5829,.6066,.6338,.6626,.6857,.6997,.7383,.7925,
- .9497,1.036,1.065,1.129,1.18,1.325,.4445,.4905,.501,.5272,.549,
- .563,.5827,.6064,.6336,.6624,.6855,.6995,.738,.7922,.9494,1.036,
- 1.065,1.129,1.18,1.324,.444,.49,.5005,.5266,.5483,.5623,.582,
- .6057,.6328,.6616,.6846,.6986,.737,.7911,.9479,1.034,1.063,1.127,
- 1.178,1.322,.4431,.489,.4995,.5255,.5472,.5611,.5807,.6043,.6314,
- .6601,.683,.6969,.7352,.7892,.9454,1.031,1.06,1.124,1.174,1.318,
- .4419,.4876,.498,.524,.5455,.5594,.5789,.6024,.6293,.6579,.6808,
- .6946,.7327,.7863,.9417,1.027,1.056,1.119,1.169,1.311,.4403,.4858,
- .4961,.522,.5434,.5572,.5766,.6,.6267,.6551,.6778,.6915,.7294,
- .7827,.9369,1.022,1.05,1.113,1.163,1.304,.4384,.4836,.4939,.5195,
- .5408,.5545,.5738,.597,.6235,.6517,.6742,.6878,.7254,.7782,.9311,
- 1.015,1.043,1.105,1.155,1.294,.4363,.4811,.4913,.5167,.5378,.5514,
- .5705,.5935,.6198,.6476,.67,.6835,.7207,.773,.9242,1.007,1.035,
- 1.096,1.145,1.283,.4339,.4783,.4884,.5135,.5345,.5479,.5668,.5895,
- .6155,.6431,.6652,.6785,.7153,.767,.9164,.9983,1.026,1.086,1.134,
- 1.27,.4312,.4752,.4852,.5101,.5307,.544,.5627,.5851,.6108,.6381,
- .6599,.673,.7093,.7604,.9076,.9883,1.015,1.075,1.122,1.255,.4284,
- .4719,.4817,.5063,.5267,.5398,.5582,.5803,.6057,.6326,.654,.667,
- .7028,.7531,.898,.9773,1.004,1.062,1.109,1.239,.4255,.4684,.4781,
- .5023,.5224,.5353,.5535,.5753,.6002,.6267,.6478,.6606,.6958,.7452,
- .8876,.9654,.9916,1.049,1.094,1.222,.4225,.4647,.4743,.4981,.5179,
- .5306,.5485,.5699,.5944,.6204,.6412,.6537,.6883,.7369,.8765,.9527,
- .9784,1.034,1.079,1.203,.4195,.461,.4704,.4938,.5133,.5258,.5433,
- .5643,.5883,.6139,.6342,.6465,.6804,.728,.8647,.9392,.9643,1.019,
- 1.062,1.184,.4165,.4572,.4665,.4895,.5085,.5208,.5379,.5585,.5821,
- .6071,.627,.6391,.6723,.7188,.8524,.9251,.9495,1.003,1.045,1.163,
- .4135,.4535,.4625,.4851,.5037,.5157,.5325,.5527,.5757,.6002,.6197,
- .6314,.6638,.7093,.8396,.9103,.9341,.9858,1.027,1.141,.4106,.4498,
- .4586,.4807,.499,.5107,.5271,.5467,.5693,.5931,.6122,.6236,.6553,
- .6996,.8264,.8952,.9183,.9684,1.008,1.119,.4079,.4462,.4548,.4764,
- .4942,.5057,.5217,.5409,.5628,.5861,.6046,.6158,.6466,.6898,.813,
- .8796,.902,.9505,.9891,1.096,.4053,.4428,.4512,.4723,.4897,.5008,
- .5164,.5351,.5564,.5791,.5971,.608,.6379,.6798,.7994,.8639,.8855,
- .9324,.9696,1.073,.4031,.4396,.4478,.4683,.4853,.4961,.5113,.5294,
- .5502,.5722,.5897,.6002,.6293,.67,.7857,.848,.8689,.9141,.9499,
- 1.049,.4011,.4367,.4447,.4647,.4811,.4917,.5064,.524,.5442,.5655,
- .5825,.5927,.6209,.6602,.7721,.8321,.8522,.8957,.9301,1.025,.3995,
- .4341,.4419,.4613,.4773,.4876,.5019,.5189,.5385,.5592,.5756,.5855,
- .6127,.6507,.7586,.8163,.8357,.8774,.9104,1.001,.3983,.432,.4396,
- .4584,.474,.4839,.4977,.5143,.5332,.5532,.569,.5786,.6049,.6416,
- .7454,.8008,.8193,.8593,.8908,.9774,.3975,.4303,.4377,.456,.471,
- .4807,.4941,.51,.5283,.5476,.563,.5721,.5975,.6329,.7326,.7856,
- .8034,.8416,.8716,.9539,.3974,.4292,.4364,.4541,.4687,.478,.491,
- .5064,.524,.5427,.5574,.5663,.5907,.6247,.7203,.771,.788,.8243,
- .8529,.931,.3978,.4288,.4357,.4529,.467,.476,.4885,.5034,.5204,
- .5383,.5526,.5611,.5845,.6171,.7087,.757,.7731,.8077,.8349,.9086,
- .3989,.429,.4357,.4523,.466,.4747,.4868,.5011,.5175,.5348,.5484,
- .5566,.5791,.6104,.6978,.7438,.7591,.7919,.8175,.8871,.4008,.43,
- .4365,.4526,.4658,.4742,.4859,.4997,.5155,.5321,.5452,.553,.5746,
- .6045,.6878,.7315,.746,.7769,.8012,.8664,.4035,.4319,.4382,.4538,
- .4666,.4747,.4859,.4992,.5144,.5303,.5429,.5504,.571,.5996,.6789,
- .7202,.7339,.7631,.7858,.8469,.4071,.4347,.4408,.456,.4683,.4761,
- .487,.4998,.5143,.5296,.5417,.5489,.5686,.5958,.6711,.7101,.723,
- .7504,.7717,.8286,.4117,.4386,.4446,.4592,.4711,.4787,.4891,.5015,
- .5155,.5301,.5417,.5485,.5673,.5933,.6646,.7013,.7134,.739,.7589,
- .8117,.4174,.4436,.4494,.4636,.4752,.4825,.4926,.5044,.5179,.5319,
- .5429,.5495,.5674,.5921,.6595,.6939,.7052,.7291,.7475,.7962,.4244,
- .45,.4556,.4694,.4805,.4876,.4973,.5088,.5217,.5351,.5457,.5519,
- .569,.5924,.6559,.6881,.6986,.7207,.7378,.7824,.4327,.4576,.4631,
- .4765,.4873,.4942,.5036,.5146,.527,.5398,.5499,.5559,.5721,.5942,
- .654,.6839,.6937,.7141,.7297,.7703,.4424,.4668,.4722,.4852,.4957,
- .5023,.5114,.522,.5339,.5462,.5558,.5615,.5769,.5978,.6538,.6816,
- .6905,.7092,.7234,.7601,.4537,.4776,.4829,.4955,.5057,.5121,.5209,
- .5311,.5426,.5543,.5635,.5689,.5835,.6032,.6555,.6811,.6893,.7063,
- .7191,.7518,.4666,.4902,.4953,.5077,.5176,.5238,.5323,.5422,.5531,
- .5644,.5731,.5782,.592,.6106,.6592,.6826,.69,.7054,.7168,.7456,
- .4814,.5046,.5096,.5217,.5314,.5374,.5456,.5552,.5657,.5764,.5847,
- .5896,.6026,.62,.6649,.6862,.6929,.7065,.7166,.7415,.4982,.5211,
- .526,.5378,.5472,.5531,.5611,.5703,.5804,.5907,.5985,.6032,.6154,
- .6316,.6729,.6921,.6979,.7099,.7186,.7395,.5172,.5398,.5446,.5562,
- .5654,.571,.5788,.5877,.5974,.6072,.6146,.619,.6305,.6455,.6832,
- .7001,.7053,.7155,.7228,.7398,.5384,.5608,.5656,.5769,.5858,.5914,
- .5989,.6075,.6168,.6261,.6331,.6372,.648,.6618,.6958,.7106,.7149,
- .7234,.7293,.7424,.55,.5723,.577,.5882,.597,.6025,.6099,.6184,
- .6275,.6365,.6433,.6473,.6577,.6709,.703,.7167,.7206,.7283,.7335,
- .7446,.5622,.5843,.589,.6002,.6089,.6143,.6215,.6299,.6388,.6475,
- .6542,.658,.668,.6807,.7109,.7234,.727,.7337,.7382,.7473,.5886,
- .6106,.6152,.6261,.6346,.6398,.6469,.655,.6634,.6717,.6779,.6815,
- .6907,.7021,.7284,.7387,.7414,.7464,.7495,.7545,.6179,.6397,.6443,
- .655,.6632,.6683,.6751,.6829,.6909,.6986,.7044,.7077,.7161,.7263,
- .7486,.7565,.7584,.7616,.7631,.764,.6503,.6719,.6764,.6869,.6949,
- .6998,.7063,.7138,.7214,.7285,.7338,.7369,.7444,.7532,.7714,.7768,
- .7779,.7792,.7792,.7758,.6861,.7074,.7118,.722,.7298,.7344,.7407,
- .7478,.7549,.7615,.7663,.769,.7756,.783,.7968,.7997,.7999,.7992,
- .7977,.79,.7254,.7464,.7506,.7605,.768,.7725,.7784,.7851,.7917,
- .7976,.8019,.8043,.8099,.8158,.8249,.8252,.8244,.8217,.8185,.8063,
- .7685,.789,.7932,.8027,.8098,.814,.8196,.8259,.8318,.837,.8407,
- .8428,.8473,.8516,.8557,.8532,.8514,.8466,.8417,.8249,.8156,.8356,
- .8396,.8487,.8554,.8593,.8645,.8702,.8754,.8799,.8829,.8845,.8879,
- .8904,.8892,.8836,.8809,.8738,.8672,.8455,.867,.8864,.8901,.8987,
- .9048,.9084,.9131,.9182,.9227,.9262,.9285,.9297,.9317,.9324,.9254,
- .9166,.9127,.9034,.8949,.8682,.9231,.9415,.945,.9528,.9584,.9616,
- .9657,.9701,.9736,.9761,.9776,.9783,.9788,.9774,.9642,.952,.947,
- .9352,.9248,.8928,.984,1.001,1.004,1.011,1.016,1.019,1.022,1.026,
- 1.028,1.03,1.03,1.03,1.029,1.026,1.006,.9897,.9835,.9691,.9567,
- .9193,1.05,1.066,1.069,1.075,1.078,1.081,1.083,1.086,1.087,1.087,
- 1.087,1.086,1.083,1.077,1.049,1.03,1.022,1.005,.9905,.9475,1.122,
- 1.135,1.138,1.142,1.145,1.147,1.148,1.15,1.15,1.148,1.146,1.145,
- 1.14,1.131,1.096,1.072,1.063,1.043,1.026,.9772,1.199,1.21,1.212,
- 1.215,1.217,1.217,1.218,1.218,1.216,1.213,1.21,1.208,1.201,1.188,
- 1.144,1.116,1.106,1.082,1.063,1.008,1.282,1.29,1.291,1.293,1.293,
- 1.293,1.292,1.29,1.287,1.282,1.277,1.274,1.265,1.249,1.195,1.162,
- 1.15,1.124,1.102,1.041,1.372,1.376,1.377,1.376,1.375,1.373,1.371,
- 1.367,1.362,1.354,1.348,1.344,1.331,1.312,1.248,1.21,1.196,1.166,
- 1.142,1.074,1.468,1.468,1.467,1.464,1.461,1.458,1.454,1.448,1.44,
- 1.43,1.422,1.417,1.401,1.378,1.303,1.259,1.244,1.21,1.184,1.109,
- 1.571,1.566,1.564,1.558,1.552,1.548,1.542,1.534,1.523,1.51,1.5,
- 1.493,1.474,1.446,1.359,1.309,1.292,1.255,1.226,1.144,1.681,1.67,
- 1.667,1.657,1.649,1.643,1.634,1.623,1.609,1.594,1.581,1.573,1.55,
- 1.517,1.417,1.361,1.342,1.301,1.269,1.18,1.799,1.78,1.775,1.762,
- 1.75,1.742,1.731,1.717,1.699,1.68,1.665,1.655,1.628,1.59,1.476,
- 1.413,1.393,1.348,1.312,1.216,1.923,1.896,1.889,1.871,1.856,1.846,
- 1.832,1.814,1.793,1.77,1.751,1.74,1.709,1.664,1.535,1.466,1.444,
- 1.394,1.356,1.252,2.055,2.018,2.009,1.986,1.967,1.954,1.937,1.915,
- 1.89,1.862,1.841,1.828,1.791,1.74,1.596,1.52,1.495,1.441,1.4,
- 1.288,2.195,2.146,2.135,2.106,2.082,2.067,2.045,2.019,1.989,1.957,
- 1.932,1.917,1.875,1.818,1.657,1.573,1.546,1.488,1.443,1.324,2.341,
- 2.28,2.266,2.231,2.202,2.183,2.157,2.126,2.091,2.055,2.025,2.008,
- 1.961,1.896,1.717,1.626,1.597,1.535,1.487,1.359,2.495,2.419,2.402,
- 2.36,2.325,2.303,2.272,2.236,2.195,2.153,2.12,2.1,2.047,1.974,
- 1.778,1.679,1.647,1.58,1.529,1.394,2.655,2.563,2.542,2.492,2.451,
- 2.426,2.39,2.348,2.301,2.253,2.215,2.193,2.133,2.053,1.837,1.731,
- 1.696,1.625,1.57,1.428,2.822,2.711,2.687,2.627,2.58,2.55,2.509,
- 2.46,2.407,2.353,2.311,2.286,2.219,2.13,1.896,1.781,1.745,1.668,
- 1.611,1.46,2.993,2.862,2.834,2.765,2.71,2.676,2.629,2.574,2.513,
- 2.453,2.406,2.378,2.304,2.207,1.953,1.83,1.791,1.71,1.65,1.491,
- 3.168,3.015,2.983,2.904,2.841,2.802,2.748,2.686,2.619,2.551,2.499,
- 2.469,2.388,2.281,2.008,1.877,1.836,1.751,1.687,1.521,3.346,3.17,
- 3.132,3.042,2.971,2.927,2.867,2.797,2.723,2.648,2.591,2.557,2.469,
- 2.354,2.06,1.921,1.878,1.789,1.722,1.549,3.525,3.323,3.28,3.179,
- 3.099,3.05,2.983,2.906,2.823,2.742,2.679,2.642,2.547,2.423,2.11,
- 1.963,1.918,1.824,1.754,1.576,3.703,3.474,3.426,3.313,3.224,3.17,
- 3.096,3.01,2.92,2.831,2.764,2.724,2.621,2.488,2.156,2.002,1.955,
- 1.857,1.785,1.6,3.877,3.62,3.567,3.441,3.344,3.284,3.203,3.11,
- 3.012,2.916,2.843,2.8,2.69,2.549,2.199,2.038,1.989,1.888,1.813,
- 1.622,4.044,3.759,3.701,3.563,3.456,3.391,3.303,3.202,3.097,2.994,
- 2.916,2.87,2.753,2.604,2.237,2.071,2.019,1.915,1.837,1.642,4.201,
- 3.889,3.824,3.674,3.559,3.489,3.394,3.286,3.174,3.064,2.982,2.934,
- 2.81,2.654,2.271,2.099,2.046,1.939,1.859,1.659,4.343,4.005,3.936,
- 3.774,3.651,3.576,3.475,3.36,3.241,3.126,3.039,2.989,2.86,2.696,
- 2.301,2.123,2.069,1.959,1.878,1.673,4.468,4.105,4.031,3.86,3.729,
- 3.65,3.544,3.423,3.298,3.178,3.088,3.035,2.901,2.732,2.325,2.143,
- 2.088,1.976,1.893,1.685,4.569,4.185,4.108,3.928,3.792,3.709,3.598,
- 3.473,3.343,3.219,3.126,3.071,2.934,2.76,2.344,2.159,2.103,1.989,
- 1.905,1.695,4.642,4.244,4.163,3.977,3.836,3.751,3.637,3.508,3.375,
- 3.248,3.153,3.097,2.956,2.78,2.357,2.17,2.113,1.998,1.913,1.701,
- 4.685,4.277,4.195,4.005,3.862,3.775,3.659,3.528,3.393,3.264,3.168,
- 3.111,2.969,2.791,2.364,2.176,2.119,2.003,1.918,1.705,4.695,4.285,
- 4.203,4.012,3.868,3.781,3.664,3.533,3.398,3.268,3.171,3.115,2.972,
- 2.793,2.366,2.177,2.12,2.004,1.919,1.706 };
- static doublereal qhr[1660] /* was [20][83] */ = { -6.313e-22,-1.599e-21,
- -1.77e-23,5.94e-23,1.282e-21,1.097e-21,-6.691e-22,1.88e-21,
- 7.396e-22,-6.344e-22,-1.154e-21,2.554e-22,4.116e-23,2.315e-21,
- 1.785e-21,-1.552e-22,5.632e-22,7.582e-22,-3.864e-22,-3.946e-22,
- -2.429e-4,-2.648e-4,-2.698e-4,-2.822e-4,-2.925e-4,-2.99e-4,
- -3.084e-4,-3.196e-4,-3.322e-4,-3.452e-4,-3.557e-4,-3.62e-4,
- -3.79e-4,-4.024e-4,-4.69e-4,-5.045e-4,-5.159e-4,-5.405e-4,
- -5.597e-4,-6.127e-4,-.001278,-.001394,-.00142,-.001485,-.001539,
- -.001574,-.001623,-.001682,-.001749,-.001817,-.001872,-.001906,
- -.001995,-.002118,-.002469,-.002655,-.002715,-.002845,-.002946,
- -.003225,-.003133,-.003418,-.003482,-.003643,-.003775,-.003861,
- -.003981,-.004127,-.00429,-.004459,-.004593,-.004675,-.004895,
- -.005198,-.006057,-.006514,-.006661,-.006979,-.007226,-.007908,
- -.005796,-.006325,-.006445,-.006744,-.00699,-.007148,-.007372,
- -.007643,-.007945,-.008258,-.008508,-.00866,-.009068,-.009628,
- -.01122,-.01206,-.01234,-.01292,-.01338,-.01464,-.00925,-.0101,
- -.01029,-.01077,-.01117,-.01142,-.01178,-.01221,-.0127,-.0132,
- -.0136,-.01384,-.01449,-.01539,-.01793,-.01928,-.01971,-.02065,
- -.02138,-.02338,-.01347,-.01472,-.01501,-.01571,-.01629,-.01666,
- -.01718,-.01782,-.01853,-.01926,-.01984,-.0202,-.02115,-.02246,
- -.02616,-.02813,-.02876,-.03012,-.03118,-.03409,-.01844,-.02017,
- -.02056,-.02153,-.02232,-.02284,-.02356,-.02443,-.02541,-.02641,
- -.02722,-.02771,-.02901,-.03081,-.03588,-.03856,-.03943,-.04128,
- -.04273,-.04669,-.02413,-.02641,-.02692,-.0282,-.02925,-.02993,
- -.03088,-.03203,-.03331,-.03463,-.03569,-.03633,-.03804,-.0404,
- -.04703,-.05054,-.05167,-.05409,-.05597,-.06114,-.03051,-.03341,
- -.03407,-.0357,-.03704,-.0379,-.03911,-.04057,-.0422,-.04388,
- -.04522,-.04603,-.04821,-.05119,-.05958,-.064,-.06542,-.06848,
- -.07085,-.07733,-.03754,-.04116,-.04197,-.04399,-.04565,-.04672,
- -.04822,-.05003,-.05204,-.05412,-.05577,-.05678,-.05946,-.06314,
- -.07346,-.07889,-.08063,-.08438,-.08727,-.0952,-.04521,-.0496,
- -.05059,-.05304,-.05506,-.05635,-.05817,-.06036,-.06279,-.0653,
- -.06731,-.06852,-.07176,-.0762,-.08861,-.09513,-.09722,-.1017,
- -.1052,-.1146,-.05347,-.05871,-.05989,-.06281,-.06522,-.06675,
- -.06892,-.07153,-.07442,-.0774,-.07977,-.08121,-.08506,-.09031,
- -.105,-.1126,-.1151,-.1204,-.1244,-.1355,-.06229,-.06846,-.06984,
- -.07327,-.07609,-.07789,-.08043,-.08348,-.08687,-.09035,-.09313,
- -.09481,-.09929,-.1054,-.1225,-.1313,-.1342,-.1403,-.145,-.1577,
- -.07165,-.0788,-.08041,-.08438,-.08765,-.08973,-.09266,-.09619,
- -.1001,-.1041,-.1073,-.1093,-.1144,-.1215,-.141,-.1512,-.1544,
- -.1614,-.1667,-.1812,-.08151,-.08972,-.09156,-.0961,-.09984,
- -.1022,-.1056,-.1096,-.1141,-.1186,-.1223,-.1245,-.1304,-.1384,
- -.1605,-.172,-.1756,-.1835,-.1895,-.2057,-.09185,-.1012,-.1032,
- -.1084,-.1126,-.1153,-.1191,-.1237,-.1287,-.1339,-.138,-.1405,
- -.1471,-.1561,-.1809,-.1937,-.1978,-.2065,-.2132,-.2312,-.1026,
- -.1131,-.1154,-.1212,-.126,-.129,-.1332,-.1383,-.144,-.1497,
- -.1543,-.1571,-.1645,-.1745,-.2021,-.2162,-.2208,-.2304,-.2378,
- -.2575,-.1138,-.1255,-.1281,-.1345,-.1398,-.1432,-.1479,-.1535,
- -.1598,-.1662,-.1713,-.1744,-.1825,-.1936,-.2239,-.2395,-.2444,
- -.255,-.263,-.2845,-.1254,-.1383,-.1412,-.1483,-.1541,-.1578,
- -.163,-.1693,-.1761,-.1832,-.1888,-.1922,-.2011,-.2132,-.2464,
- -.2633,-.2687,-.2801,-.2888,-.312,-.1374,-.1515,-.1547,-.1625,
- -.1689,-.1729,-.1786,-.1854,-.193,-.2007,-.2068,-.2104,-.2202,
- -.2334,-.2693,-.2876,-.2934,-.3057,-.315,-.3398,-.1497,-.1651,
- -.1686,-.1771,-.184,-.1884,-.1946,-.202,-.2102,-.2185,-.2251,
- -.2291,-.2397,-.254,-.2926,-.3122,-.3184,-.3316,-.3416,-.3678,
- -.1623,-.179,-.1828,-.192,-.1995,-.2042,-.2109,-.2189,-.2277,
- -.2367,-.2439,-.2481,-.2595,-.2748,-.3162,-.3371,-.3437,-.3576,
- -.3682,-.3959,-.1751,-.1932,-.1972,-.2071,-.2152,-.2203,-.2275,
- -.2361,-.2456,-.2552,-.2628,-.2674,-.2796,-.296,-.34,-.3621,-.369,
- -.3837,-.3949,-.4238,-.1882,-.2076,-.2119,-.2225,-.2312,-.2367,
- -.2444,-.2535,-.2636,-.2739,-.282,-.2869,-.2998,-.3172,-.3638,
- -.387,-.3943,-.4097,-.4214,-.4514,-.2016,-.2223,-.2269,-.2382,
- -.2474,-.2532,-.2614,-.2711,-.2818,-.2927,-.3013,-.3065,-.3202,
- -.3386,-.3875,-.4118,-.4194,-.4355,-.4476,-.4786,-.2151,-.2371,
- -.2419,-.2539,-.2637,-.2698,-.2785,-.2888,-.3001,-.3116,-.3207,
- -.3261,-.3405,-.3598,-.411,-.4363,-.4442,-.4609,-.4734,-.5052,
- -.2288,-.252,-.2571,-.2698,-.2801,-.2866,-.2957,-.3065,-.3184,
- -.3305,-.34,-.3457,-.3608,-.381,-.4342,-.4604,-.4686,-.4857,
- -.4986,-.5311,-.2426,-.267,-.2724,-.2857,-.2965,-.3033,-.3129,
- -.3242,-.3366,-.3493,-.3592,-.3652,-.3809,-.4019,-.4571,-.484,
- -.4924,-.5099,-.523,-.556,-.2565,-.2821,-.2877,-.3016,-.3129,-.32,
- -.33,-.3418,-.3547,-.3679,-.3782,-.3844,-.4007,-.4225,-.4793,
- -.5069,-.5155,-.5333,-.5466,-.5798,-.2704,-.2971,-.303,-.3175,
- -.3292,-.3366,-.347,-.3592,-.3727,-.3863,-.397,-.4034,-.4202,
- -.4427,-.5009,-.529,-.5377,-.5558,-.5693,-.6025,-.2844,-.3121,
- -.3183,-.3333,-.3454,-.3531,-.3638,-.3765,-.3903,-.4044,-.4154,
- -.422,-.4393,-.4623,-.5217,-.5502,-.559,-.5773,-.5907,-.6238,
- -.2983,-.327,-.3334,-.3489,-.3614,-.3693,-.3803,-.3934,-.4076,
- -.422,-.4333,-.4401,-.4578,-.4813,-.5417,-.5703,-.5792,-.5975,
- -.611,-.6436,-.3122,-.3418,-.3483,-.3643,-.3772,-.3853,-.3966,
- -.4099,-.4245,-.4393,-.4508,-.4576,-.4757,-.4996,-.5606,-.5893,
- -.5982,-.6165,-.6298,-.6619,-.3259,-.3564,-.3631,-.3794,-.3926,
- -.4009,-.4124,-.426,-.4409,-.4559,-.4676,-.4746,-.4929,-.5171,
- -.5784,-.6071,-.6159,-.634,-.6472,-.6784,-.3395,-.3707,-.3775,
- -.3942,-.4076,-.4161,-.4278,-.4416,-.4567,-.4719,-.4837,-.4908,
- -.5093,-.5337,-.595,-.6234,-.6322,-.65,-.6629,-.6932,-.353,-.3847,
- -.3917,-.4086,-.4222,-.4308,-.4427,-.4566,-.4718,-.4872,-.4991,
- -.5062,-.5248,-.5493,-.6103,-.6383,-.6469,-.6644,-.677,-.706,
- -.3661,-.3984,-.4054,-.4225,-.4363,-.4449,-.4569,-.4709,-.4862,
- -.5017,-.5136,-.5207,-.5393,-.5638,-.6242,-.6516,-.66,-.677,
- -.6892,-.7168,-.379,-.4116,-.4187,-.4359,-.4498,-.4585,-.4705,
- -.4845,-.4998,-.5152,-.5272,-.5342,-.5528,-.577,-.6365,-.6633,
- -.6714,-.6878,-.6995,-.7256,-.3915,-.4243,-.4314,-.4487,-.4626,
- -.4713,-.4833,-.4973,-.5125,-.5278,-.5397,-.5467,-.5651,-.589,
- -.6473,-.6732,-.681,-.6968,-.7079,-.7322,-.4036,-.4365,-.4436,
- -.4609,-.4747,-.4834,-.4952,-.5091,-.5242,-.5394,-.5511,-.558,
- -.5761,-.5997,-.6564,-.6812,-.6888,-.7037,-.7143,-.7367,-.4095,
- -.4423,-.4494,-.4667,-.4805,-.4891,-.5009,-.5147,-.5297,-.5448,
- -.5564,-.5632,-.5811,-.6045,-.6602,-.6845,-.6919,-.7064,-.7167,
- -.7381,-.4152,-.448,-.4551,-.4723,-.486,-.4945,-.5063,-.52,-.5348,
- -.5498,-.5613,-.5681,-.5858,-.6089,-.6637,-.6874,-.6946,-.7087,
- -.7185,-.739,-.4263,-.4588,-.4659,-.4829,-.4964,-.5048,-.5164,
- -.5298,-.5444,-.559,-.5703,-.5768,-.5941,-.6165,-.6692,-.6916,
- -.6983,-.7115,-.7207,-.739,-.4368,-.4689,-.4758,-.4925,-.5058,
- -.5141,-.5254,-.5384,-.5526,-.5669,-.5778,-.5842,-.601,-.6226,
- -.6728,-.6938,-.7001,-.7123,-.7207,-.7368,-.4466,-.4781,-.4849,
- -.5012,-.5142,-.5223,-.5332,-.5459,-.5596,-.5735,-.584,-.5901,
- -.6062,-.627,-.6744,-.6939,-.6998,-.7109,-.7185,-.7324,-.4556,
- -.4864,-.493,-.5089,-.5215,-.5293,-.5398,-.552,-.5652,-.5785,
- -.5886,-.5945,-.6099,-.6296,-.6741,-.692,-.6973,-.7074,-.7141,
- -.7257,-.4638,-.4937,-.5001,-.5154,-.5275,-.535,-.5452,-.5568,
- -.5694,-.5821,-.5917,-.5972,-.6118,-.6305,-.6718,-.688,-.6928,
- -.7017,-.7076,-.7168,-.471,-.4999,-.506,-.5207,-.5323,-.5395,
- -.5491,-.5601,-.5721,-.5841,-.5931,-.5983,-.612,-.6295,-.6674,
- -.6819,-.6861,-.6939,-.6989,-.7058,-.4773,-.5049,-.5108,-.5248,
- -.5357,-.5425,-.5516,-.5619,-.5731,-.5844,-.5929,-.5977,-.6105,
- -.6267,-.661,-.6737,-.6774,-.684,-.6881,-.6927,-.4824,-.5087,
- -.5142,-.5274,-.5377,-.5441,-.5526,-.5621,-.5725,-.583,-.5908,
- -.5953,-.6071,-.6219,-.6526,-.6634,-.6665,-.672,-.6752,-.6776,
- -.4864,-.5111,-.5163,-.5286,-.5382,-.5441,-.5519,-.5607,-.5703,
- -.5799,-.587,-.5911,-.6018,-.6152,-.6421,-.6511,-.6537,-.658,
- -.6603,-.6605,-.4892,-.5121,-.5169,-.5283,-.5371,-.5425,-.5496,
- -.5575,-.5662,-.575,-.5814,-.585,-.5946,-.6066,-.6297,-.6368,
- -.6388,-.642,-.6435,-.6416,-.4905,-.5116,-.516,-.5264,-.5344,
- -.5393,-.5456,-.5526,-.5604,-.5682,-.5739,-.5771,-.5855,-.5961,
- -.6153,-.6206,-.6221,-.6241,-.6248,-.621,-.4904,-.5096,-.5135,
- -.5228,-.53,-.5343,-.5399,-.5459,-.5527,-.5596,-.5645,-.5672,
- -.5746,-.5836,-.599,-.6025,-.6035,-.6044,-.6044,-.5988,-.4888,
- -.5058,-.5093,-.5175,-.5237,-.5275,-.5323,-.5374,-.5432,-.5491,
- -.5533,-.5555,-.5617,-.5692,-.5808,-.5827,-.5831,-.5831,-.5823,
- -.5751,-.4855,-.5004,-.5034,-.5104,-.5157,-.5189,-.5229,-.5271,
- -.5318,-.5367,-.5402,-.5419,-.5469,-.553,-.5609,-.5612,-.5612,
- -.5602,-.5588,-.55,-.4806,-.4932,-.4957,-.5015,-.5059,-.5085,
- -.5116,-.5148,-.5186,-.5225,-.5252,-.5265,-.5304,-.5349,-.5394,
- -.5381,-.5377,-.5358,-.5338,-.5238,-.4738,-.4841,-.4861,-.4908,
- -.4942,-.4962,-.4985,-.5007,-.5035,-.5065,-.5084,-.5093,-.512,
- -.5152,-.5163,-.5137,-.5128,-.5102,-.5077,-.4966,-.4652,-.4732,
- -.4747,-.4781,-.4806,-.482,-.4835,-.4848,-.4866,-.4886,-.4898,
- -.4903,-.492,-.4938,-.4919,-.488,-.4868,-.4834,-.4804,-.4685,
- -.4547,-.4603,-.4613,-.4636,-.4651,-.4659,-.4667,-.4671,-.468,
- -.4691,-.4696,-.4697,-.4703,-.4709,-.4662,-.4611,-.4596,-.4557,
- -.4523,-.4397,-.4423,-.4455,-.4461,-.4471,-.4478,-.4481,-.4481,
- -.4476,-.4476,-.4479,-.4477,-.4474,-.4472,-.4466,-.4393,-.4334,
- -.4316,-.4272,-.4235,-.4105,-.4278,-.4288,-.4289,-.4289,-.4287,
- -.4284,-.4277,-.4265,-.4257,-.4251,-.4244,-.4238,-.4226,-.421,
- -.4116,-.4049,-.4029,-.3981,-.3942,-.3809,-.4114,-.4103,-.4099,
- -.4088,-.4078,-.4071,-.4058,-.4038,-.4022,-.401,-.3997,-.3988,
- -.3969,-.3943,-.3831,-.3758,-.3737,-.3686,-.3646,-.3512,-.393,
- -.3898,-.3891,-.3871,-.3853,-.3842,-.3823,-.3796,-.3774,-.3755,
- -.3738,-.3726,-.3701,-.3668,-.3541,-.3463,-.3441,-.3389,-.3348,
- -.3216,-.3727,-.3677,-.3665,-.3637,-.3613,-.3598,-.3574,-.3542,
- -.3514,-.349,-.3469,-.3455,-.3424,-.3385,-.3247,-.3168,-.3145,
- -.3092,-.3051,-.2923,-.3505,-.3439,-.3424,-.3388,-.3359,-.3341,
- -.3313,-.3277,-.3244,-.3216,-.3192,-.3176,-.3141,-.3097,-.2952,
- -.2872,-.285,-.2798,-.2758,-.2635,-.3266,-.3186,-.3169,-.3127,
- -.3094,-.3073,-.3041,-.3002,-.2966,-.2935,-.2908,-.2892,-.2854,
- -.2806,-.2659,-.258,-.2558,-.2507,-.2469,-.2353,-.3011,-.2921,
- -.2902,-.2855,-.2819,-.2796,-.2762,-.2721,-.2683,-.2649,-.2622,
- -.2604,-.2565,-.2516,-.237,-.2293,-.2272,-.2224,-.2187,-.2079,
- -.2743,-.2645,-.2624,-.2575,-.2537,-.2513,-.2478,-.2436,-.2397,
- -.2362,-.2335,-.2317,-.2277,-.2228,-.2086,-.2014,-.1993,-.1949,
- -.1915,-.1816,-.2464,-.2362,-.234,-.229,-.2251,-.2227,-.2192,
- -.215,-.2111,-.2077,-.2049,-.2032,-.1993,-.1945,-.1811,-.1744,
- -.1725,-.1684,-.1654,-.1565,-.2177,-.2074,-.2053,-.2003,-.1964,
- -.1941,-.1907,-.1867,-.1829,-.1796,-.177,-.1754,-.1717,-.1671,
- -.1547,-.1487,-.147,-.1433,-.1405,-.1327,-.1886,-.1786,-.1766,
- -.1718,-.1681,-.1659,-.1627,-.1589,-.1554,-.1523,-.1499,-.1484,
- -.145,-.1408,-.1297,-.1244,-.1229,-.1196,-.1172,-.1105,-.1596,
- -.1502,-.1483,-.1439,-.1405,-.1385,-.1356,-.1322,-.129,-.1262,
- -.124,-.1227,-.1197,-.116,-.1063,-.1017,-.1004,-.09766,-.09564,
- -.08997,-.1312,-.1227,-.121,-.1171,-.1141,-.1123,-.1098,-.1068,
- -.1041,-.1016,-.09976,-.09861,-.09599,-.09283,-.08467,-.08086,
- -.07981,-.07755,-.07589,-.07127,-.1039,-.09665,-.0952,-.09186,
- -.08934,-.08783,-.08571,-.08324,-.08096,-.07894,-.07738,-.07644,
- -.07429,-.07171,-.06512,-.06209,-.06125,-.05946,-.05815,-.05453,
- -.07844,-.07256,-.07139,-.06871,-.0667,-.06549,-.06382,-.06187,
- -.06008,-.05849,-.05728,-.05654,-.05487,-.05287,-.04783,-.04553,
- -.0449,-.04355,-.04257,-.03987,-.05546,-.05103,-.05016,-.04816,
- -.04667,-.04578,-.04454,-.04312,-.04181,-.04065,-.03977,-.03923,
- -.03802,-.03658,-.03298,-.03136,-.03091,-.02996,-.02927,-.02739,
- -.03565,-.03264,-.03205,-.03071,-.02971,-.02912,-.0283,-.02736,
- -.02649,-.02573,-.02515,-.0248,-.02401,-.02307,-.02074,-.0197,
- -.01941,-.0188,-.01836,-.01717,-.01967,-.01794,-.0176,-.01684,
- -.01627,-.01593,-.01547,-.01494,-.01445,-.01402,-.01369,-.0135,
- -.01305,-.01253,-.01124,-.01067,-.01051,-.01018,-.009935,-.009281,
- -.008147,-.007407,-.007263,-.006937,-.006697,-.006555,-.006359,
- -.006136,-.00593,-.005751,-.005614,-.005533,-.005347,-.005129,
- -.004594,-.004357,-.004292,-.004155,-.004055,-.003786,-.001562,
- -.001417,-.00139,-.001326,-.001279,-.001252,-.001214,-.001171,
- -.001131,-.001096,-.00107,-.001054,-.001019,-9.767e-4,-8.741e-4,
- -8.287e-4,-8.162e-4,-7.9e-4,-7.71e-4,-7.197e-4,-1.106e-21,
- 2.048e-21,8.561e-21,1.225e-20,-7.24e-21,-3.342e-21,3.529e-21,
- 4.275e-21,-1.693e-21,-4.113e-21,-6.524e-21,1.626e-21,8.105e-22,
- 1.071e-21,-2.349e-21,2.536e-21,1.507e-22,-5.265e-21,2.937e-21,
- -1.517e-21 };
- static doublereal uhr[1660] /* was [20][83] */ = { -.4446,-.4907,-.5012,
- -.5274,-.5491,-.5632,-.5829,-.6066,-.6338,-.6626,-.6857,-.6997,
- -.7383,-.7925,-.9497,-1.036,-1.065,-1.129,-1.18,-1.325,-.4445,
- -.4905,-.501,-.5272,-.549,-.563,-.5827,-.6064,-.6336,-.6624,
- -.6855,-.6995,-.738,-.7922,-.9494,-1.036,-1.065,-1.129,-1.18,
- -1.324,-.444,-.49,-.5005,-.5266,-.5483,-.5623,-.582,-.6057,-.6328,
- -.6616,-.6846,-.6986,-.737,-.7911,-.9479,-1.034,-1.063,-1.127,
- -1.178,-1.322,-.4431,-.489,-.4994,-.5255,-.5472,-.5611,-.5807,
- -.6043,-.6314,-.66,-.683,-.6969,-.7352,-.7891,-.9453,-1.031,-1.06,
- -1.124,-1.174,-1.317,-.4418,-.4875,-.4979,-.5239,-.5455,-.5593,
- -.5789,-.6024,-.6293,-.6578,-.6807,-.6945,-.7326,-.7863,-.9416,
- -1.027,-1.056,-1.119,-1.169,-1.311,-.4401,-.4856,-.496,-.5218,
- -.5432,-.557,-.5764,-.5998,-.6265,-.6549,-.6776,-.6913,-.7292,
- -.7825,-.9367,-1.021,-1.05,-1.112,-1.162,-1.303,-.438,-.4832,
- -.4935,-.5191,-.5404,-.5541,-.5734,-.5966,-.6231,-.6513,-.6738,
- -.6874,-.725,-.7778,-.9307,-1.015,-1.043,-1.105,-1.154,-1.294,
- -.4355,-.4803,-.4905,-.516,-.5371,-.5507,-.5697,-.5927,-.619,
- -.6469,-.6692,-.6827,-.7199,-.7722,-.9234,-1.006,-1.034,-1.095,
- -1.144,-1.282,-.4325,-.477,-.4871,-.5123,-.5332,-.5466,-.5655,
- -.5882,-.6142,-.6418,-.6639,-.6772,-.714,-.7657,-.915,-.9969,
- -1.025,-1.085,-1.133,-1.268,-.4291,-.4731,-.4831,-.508,-.5287,
- -.5419,-.5606,-.583,-.6087,-.636,-.6578,-.6709,-.7072,-.7583,
- -.9055,-.9861,-1.013,-1.072,-1.12,-1.253,-.4253,-.4687,-.4786,
- -.5031,-.5235,-.5366,-.555,-.5772,-.6025,-.6294,-.6508,-.6638,
- -.6996,-.7498,-.8947,-.9739,-1.001,-1.059,-1.105,-1.236,-.4209,
- -.4637,-.4735,-.4977,-.5178,-.5307,-.5488,-.5706,-.5955,-.622,
- -.6431,-.6559,-.691,-.7405,-.8827,-.9604,-.9865,-1.043,-1.089,
- -1.217,-.416,-.4582,-.4678,-.4916,-.5114,-.5241,-.5419,-.5633,
- -.5878,-.6138,-.6345,-.647,-.6816,-.7301,-.8695,-.9455,-.9711,
- -1.027,-1.071,-1.196,-.4106,-.4521,-.4615,-.4849,-.5043,-.5168,
- -.5343,-.5552,-.5792,-.6047,-.6251,-.6373,-.6712,-.7187,-.855,
- -.9292,-.9542,-1.009,-1.052,-1.173,-.4047,-.4454,-.4546,-.4776,
- -.4966,-.5088,-.5259,-.5464,-.5699,-.5948,-.6147,-.6267,-.6598,
- -.7063,-.8393,-.9116,-.936,-.9889,-1.031,-1.149,-.3982,-.438,
- -.447,-.4695,-.4881,-.5,-.5167,-.5367,-.5597,-.5841,-.6035,-.6152,
- -.6475,-.6928,-.8223,-.8926,-.9163,-.9676,-1.009,-1.122,-.391,
- -.43,-.4388,-.4607,-.4789,-.4905,-.5068,-.5263,-.5486,-.5724,
- -.5913,-.6027,-.6341,-.6782,-.8041,-.8722,-.8952,-.9449,-.9845,
- -1.095,-.3833,-.4212,-.4298,-.4512,-.4688,-.4802,-.496,-.5149,
- -.5367,-.5597,-.5781,-.5892,-.6197,-.6625,-.7845,-.8505,-.8727,
- -.9207,-.9589,-1.065,-.3749,-.4118,-.4201,-.4409,-.458,-.469,
- -.4844,-.5027,-.5237,-.5461,-.5639,-.5746,-.6042,-.6457,-.7637,
- -.8273,-.8487,-.895,-.9318,-1.034,-.3658,-.4016,-.4097,-.4297,
- -.4463,-.457,-.4718,-.4895,-.5099,-.5315,-.5487,-.5591,-.5877,
- -.6278,-.7415,-.8027,-.8233,-.8678,-.9032,-1.001,-.356,-.3906,
- -.3984,-.4178,-.4338,-.444,-.4583,-.4754,-.495,-.5159,-.5324,
- -.5424,-.57,-.6086,-.7179,-.7766,-.7964,-.8391,-.873,-.9662,
- -.3455,-.3787,-.3863,-.4049,-.4203,-.4302,-.4439,-.4602,-.4791,
- -.4991,-.5151,-.5246,-.5511,-.5882,-.693,-.7492,-.7681,-.8089,
- -.8413,-.9301,-.3341,-.366,-.3732,-.3911,-.4058,-.4153,-.4284,
- -.444,-.462,-.4813,-.4965,-.5056,-.531,-.5666,-.6667,-.7202,
- -.7383,-.7772,-.808,-.8924,-.3219,-.3524,-.3593,-.3763,-.3904,
- -.3994,-.4119,-.4267,-.4439,-.4623,-.4768,-.4855,-.5097,-.5436,
- -.639,-.6899,-.7071,-.744,-.7733,-.8531,-.3088,-.3378,-.3443,
- -.3605,-.3739,-.3824,-.3943,-.4083,-.4246,-.4421,-.4559,-.4641,
- -.4871,-.5194,-.6099,-.658,-.6743,-.7093,-.737,-.8124,-.2948,
- -.3222,-.3283,-.3436,-.3562,-.3643,-.3755,-.3887,-.4041,-.4206,
- -.4336,-.4414,-.4632,-.4938,-.5793,-.6247,-.6401,-.6732,-.6993,
- -.7702,-.2798,-.3054,-.3112,-.3256,-.3374,-.345,-.3555,-.3678,
- -.3823,-.3978,-.4101,-.4174,-.4379,-.4668,-.5473,-.59,-.6045,
- -.6356,-.6601,-.7266,-.2637,-.2876,-.293,-.3064,-.3174,-.3245,
- -.3342,-.3457,-.3591,-.3737,-.3852,-.392,-.4112,-.4383,-.5138,
- -.5537,-.5673,-.5965,-.6195,-.6817,-.2465,-.2686,-.2735,-.2859,
- -.2961,-.3027,-.3116,-.3222,-.3346,-.3482,-.3589,-.3652,-.3831,
- -.4084,-.4788,-.516,-.5287,-.5559,-.5775,-.6354,-.2281,-.2482,
- -.2528,-.2641,-.2735,-.2795,-.2876,-.2972,-.3087,-.3212,-.3311,
- -.3369,-.3535,-.377,-.4423,-.4768,-.4886,-.514,-.534,-.5878,
- -.2084,-.2266,-.2307,-.2409,-.2494,-.2548,-.2622,-.2708,-.2813,
- -.2927,-.3018,-.3071,-.3223,-.344,-.4042,-.4361,-.4471,-.4706,
- -.4892,-.539,-.1873,-.2035,-.2071,-.2163,-.2238,-.2287,-.2353,
- -.2429,-.2523,-.2627,-.2709,-.2756,-.2896,-.3095,-.3647,-.3939,
- -.4041,-.4258,-.443,-.489,-.1648,-.1789,-.1821,-.1901,-.1967,
- -.2009,-.2067,-.2134,-.2217,-.231,-.2383,-.2426,-.2552,-.2733,
- -.3235,-.3503,-.3596,-.3796,-.3955,-.438,-.1408,-.1527,-.1554,
- -.1622,-.1679,-.1715,-.1765,-.1821,-.1893,-.1976,-.2041,-.2078,
- -.2191,-.2354,-.2809,-.3051,-.3137,-.3321,-.3468,-.3858,-.1151,
- -.1247,-.127,-.1326,-.1373,-.1404,-.1445,-.1491,-.1553,-.1624,
- -.1681,-.1713,-.1812,-.1958,-.2366,-.2585,-.2664,-.2832,-.2967,
- -.3327,-.08759,-.09501,-.09675,-.1012,-.1049,-.1074,-.1106,-.1142,
- -.1193,-.1254,-.1302,-.133,-.1416,-.1545,-.1908,-.2105,-.2177,
- -.2331,-.2455,-.2786,-.05824,-.06336,-.0646,-.06781,-.07061,
- -.07246,-.07482,-.07744,-.08147,-.08653,-.09049,-.09274,-.1001,
- -.1113,-.1433,-.161,-.1676,-.1816,-.1931,-.2236,-.02689,-.02968,
- -.03042,-.03241,-.03424,-.03549,-.037,-.03862,-.0416,-.04564,
- -.0488,-.05057,-.05672,-.06637,-.09431,-.1101,-.1161,-.129,-.1395,
- -.1679,.006618,.006164,.005929,.005143,.004279,.003626,.002946,
- .002302,3.445e-4,-.002696,-.00508,-.006389,-.01137,-.01952,
- -.04372,-.05777,-.06327,-.07509,-.08491,-.1114,.04241,.0443,
- .04456,.04498,.04506,.04499,.04512,.04543,.04446,.04238,.04074,
- .03987,.03599,.02924,.008459,-.00408,-.009138,-.02007,-.02925,
- -.05422,.08066,.08486,.08562,.08721,.08821,.08871,.08964,.09086,
- .09084,.08967,.08872,.08826,.08541,.07994,.06221,.05096,.04626,
- .03605,.02737,.003521,.1007,.1061,.1071,.1093,.1107,.1115,.1128,
- .1145,.1149,.1142,.1135,.1133,.1109,.106,.08967,.07897,.07443,
- .06451,.05603,.03259,.1215,.128,.1292,.132,.1339,.1349,.1366,
- .1387,.1396,.1392,.1389,.1389,.1369,.1326,.1175,.1073,.1029,
- .09323,.08491,.06177,.1652,.1739,.1756,.1794,.1821,.1837,.1861,
- .189,.1907,.1912,.1914,.1917,.1906,.1873,.1744,.1649,.1607,.1514,
- .1433,.1204,.2118,.2226,.2248,.2296,.2332,.2352,.2383,.2419,.2444,
- .2455,.2463,.2469,.2465,.244,.2327,.2238,.2197,.2105,.2025,.1794,
- .2615,.2744,.277,.2828,.2871,.2896,.2932,.2976,.3007,.3024,.3036,
- .3044,.3047,.3028,.2926,.2838,.2797,.2705,.2623,.2387,.3147,.3294,
- .3324,.3391,.344,.3469,.3511,.356,.3596,.3619,.3634,.3644,.3651,
- .3637,.3539,.345,.3408,.3313,.3228,.2981,.3714,.3879,.3912,.3986,
- .4041,.4073,.4119,.4173,.4214,.424,.4258,.4269,.4278,.4266,.4166,
- .4072,.4028,.3928,.3839,.3577,.4319,.4499,.4535,.4616,.4675,.471,
- .4759,.4816,.486,.4888,.4907,.4919,.4929,.4916,.4807,.4705,.4658,
- .455,.4454,.4171,.4964,.5157,.5195,.5281,.5343,.538,.5431,.549,
- .5535,.5563,.5583,.5594,.5603,.5586,.5461,.5346,.5295,.5177,.5073,
- .4765,.5652,.5854,.5894,.5983,.6047,.6084,.6136,.6196,.624,.6267,
- .6285,.6296,.63,.6278,.6127,.5996,.5939,.5808,.5694,.5357,.6386,
- .6593,.6633,.6723,.6788,.6825,.6876,.6934,.6976,.7,.7015,.7023,
- .7022,.6989,.6805,.6654,.6589,.6444,.6317,.5945,.7166,.7375,.7415,
- .7504,.7567,.7602,.7651,.7706,.7743,.7761,.7771,.7777,.7767,.7721,
- .7494,.7318,.7245,.7082,.6941,.653,.7998,.8203,.8242,.8327,.8385,
- .8418,.8462,.8512,.8542,.8552,.8555,.8557,.8534,.8472,.8192,.7987,
- .7905,.7721,.7564,.7109,.8881,.9078,.9114,.9192,.9244,.9272,.9311,
- .9352,.9372,.9372,.9366,.9362,.9325,.9241,.8899,.866,.8568,.836,
- .8186,.7682,.9821,1.,1.003,1.01,1.014,1.017,1.02,1.023,1.023,
- 1.022,1.02,1.019,1.014,1.003,.9614,.9337,.9232,.8999,.8804,.8248,
- 1.082,1.098,1.1,1.106,1.109,1.11,1.112,1.114,1.113,1.11,1.107,
- 1.105,1.097,1.083,1.033,1.001,.9896,.9635,.9419,.8805,1.187,1.2,
- 1.202,1.206,1.207,1.208,1.208,1.208,1.205,1.2,1.196,1.193,1.183,
- 1.165,1.106,1.069,1.056,1.027,1.003,.9353,1.299,1.308,1.309,1.31,
- 1.31,1.309,1.308,1.306,1.301,1.293,1.287,1.283,1.27,1.249,1.179,
- 1.137,1.122,1.089,1.063,.989,1.418,1.422,1.421,1.42,1.417,1.415,
- 1.412,1.407,1.399,1.389,1.381,1.376,1.359,1.333,1.252,1.204,1.188,
- 1.151,1.122,1.042,1.543,1.54,1.539,1.534,1.529,1.525,1.519,1.511,
- 1.501,1.488,1.477,1.47,1.45,1.419,1.325,1.271,1.253,1.213,1.181,
- 1.093,1.674,1.665,1.662,1.653,1.644,1.638,1.63,1.619,1.605,1.588,
- 1.574,1.566,1.542,1.506,1.397,1.337,1.317,1.273,1.238,1.143,1.813,
- 1.794,1.789,1.776,1.764,1.756,1.744,1.729,1.711,1.691,1.674,1.664,
- 1.635,1.593,1.47,1.403,1.38,1.332,1.294,1.191,1.958,1.929,1.922,
- 1.904,1.887,1.876,1.861,1.842,1.82,1.795,1.775,1.763,1.729,1.68,
- 1.541,1.467,1.442,1.39,1.349,1.238,2.11,2.07,2.06,2.035,2.014,2.,
- 1.981,1.958,1.93,1.901,1.877,1.863,1.823,1.768,1.612,1.53,1.503,
- 1.446,1.402,1.283,2.268,2.215,2.202,2.171,2.144,2.127,2.103,2.075,
- 2.042,2.007,1.98,1.963,1.918,1.855,1.681,1.591,1.562,1.501,1.453,
- 1.327,2.433,2.364,2.348,2.309,2.277,2.256,2.228,2.194,2.155,2.114,
- 2.083,2.064,2.012,1.941,1.748,1.651,1.62,1.553,1.502,1.368,2.603,
- 2.517,2.498,2.451,2.412,2.387,2.353,2.313,2.268,2.222,2.185,2.164,
- 2.105,2.026,1.814,1.709,1.675,1.604,1.55,1.408,2.779,2.674,2.65,
- 2.594,2.548,2.519,2.48,2.433,2.381,2.328,2.287,2.263,2.197,2.11,
- 1.878,1.764,1.728,1.652,1.595,1.445,2.958,2.832,2.805,2.738,2.685,
- 2.652,2.606,2.552,2.493,2.434,2.387,2.36,2.287,2.191,1.939,1.817,
- 1.779,1.698,1.638,1.48,3.141,2.992,2.96,2.883,2.822,2.783,2.731,
- 2.67,2.604,2.537,2.486,2.455,2.375,2.27,1.998,1.867,1.827,1.742,
- 1.678,1.513,3.326,3.152,3.115,3.027,2.957,2.913,2.854,2.785,2.711,
- 2.637,2.581,2.547,2.46,2.345,2.053,1.915,1.872,1.782,1.716,1.544,
- 3.51,3.31,3.268,3.168,3.089,3.04,2.974,2.897,2.815,2.734,2.672,
- 2.636,2.54,2.417,2.105,1.959,1.914,1.82,1.75,1.572,3.692,3.465,
- 3.418,3.305,3.217,3.163,3.089,3.005,2.915,2.826,2.759,2.719,2.617,
- 2.484,2.153,1.999,1.952,1.855,1.782,1.597,3.87,3.615,3.561,3.436,
- 3.339,3.279,3.199,3.106,3.008,2.913,2.84,2.797,2.687,2.546,2.197,
- 2.036,1.987,1.886,1.811,1.62,4.039,3.756,3.697,3.559,3.453,3.388,
- 3.3,3.2,3.095,2.992,2.914,2.869,2.752,2.603,2.236,2.069,2.018,
- 1.914,1.836,1.641,4.198,3.887,3.823,3.673,3.558,3.488,3.393,3.285,
- 3.173,3.063,2.981,2.933,2.81,2.653,2.271,2.098,2.046,1.938,1.859,
- 1.658,4.342,4.004,3.935,3.773,3.65,3.575,3.474,3.36,3.241,3.126,
- 3.039,2.988,2.859,2.696,2.301,2.123,2.069,1.959,1.878,1.673,4.467,
- 4.104,4.031,3.859,3.729,3.65,3.543,3.423,3.298,3.178,3.088,3.035,
- 2.901,2.732,2.325,2.143,2.088,1.976,1.893,1.685,4.568,4.185,4.108,
- 3.928,3.791,3.709,3.598,3.473,3.343,3.219,3.126,3.071,2.933,2.76,
- 2.344,2.159,2.103,1.989,1.905,1.695,4.642,4.244,4.163,3.977,3.836,
- 3.751,3.637,3.508,3.375,3.248,3.152,3.097,2.956,2.78,2.357,2.17,
- 2.113,1.998,1.913,1.701,4.685,4.277,4.195,4.005,3.862,3.775,3.659,
- 3.528,3.393,3.264,3.168,3.111,2.969,2.791,2.364,2.176,2.119,2.003,
- 1.918,1.705,4.695,4.285,4.203,4.012,3.868,3.781,3.664,3.533,3.398,
- 3.268,3.171,3.115,2.972,2.793,2.366,2.177,2.12,2.004,1.919,1.706 }
- ;
-
- /* System generated locals */
- integer i__1;
-
- /* Local variables */
- integer i__, j;
- doublereal vi_m__;
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real ph,qh,uh >*/
-/*< common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p) >*/
-/*< real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p) >*/
-/* - to vary the number of quadratures */
-/*< real ex,sc,asy,vi >*/
-/*< common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4) >*/
-/*< real ex_m(20),sc_m(20),asy_m(20),vi_m >*/
-/*< integer i,j >*/
-/* Soot model */
-/* Parameters and refractive indices - G.A. d'Almeida, 'Atmospheric */
-/* aerosols. Global climatology and radiative characteristics', 1991. */
-/* Extinction coefficients are calculated in km-1 */
-/* *************** MIE (asy) ****************** */
-/*< >*/
-/* *************** MIE (ext&sca) ****************** */
-/*< >*/
-/* ************** MIE (phase fun ph) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun qh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun uh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< vi_m=6.05630412E-05 >*/
- vi_m__ = 6.05630412e-5;
-/*< vi(4)=vi_m >*/
- sixs_coef__1.vi[3] = vi_m__;
-/*< do 1 i=1,20 >*/
- for (i__ = 1; i__ <= 20; ++i__) {
-/*< asy(4,i)=asy_m(i) >*/
- sixs_coef__1.asy[(i__ << 2) - 1] = asy_m__[i__ - 1];
-/*< ex(4,i)=ex_m(i) >*/
- sixs_coef__1.ex[(i__ << 2) - 1] = ex_m__[i__ - 1];
-/*< sc(4,i)=sc_m(i) >*/
- sixs_coef__1.sc[(i__ << 2) - 1] = sc_m__[i__ - 1];
-/*< do 1 j=1,nquad >*/
- i__1 = num_quad__1.nquad;
- for (j = 1; j <= i__1; ++j) {
-/*< ph(i,j)=phr(i,j) >*/
- sixs_aerbas__1.ph[i__ + j * 20 - 21] = phr[i__ + j * 20 - 21];
-/*< qh(i,j)=qhr(i,j) >*/
- sixs_aerbas__1.qh[i__ + j * 20 - 21] = qhr[i__ + j * 20 - 21];
-/*< uh(i,j)=uhr(i,j) >*/
- sixs_aerbas__1.uh[i__ + j * 20 - 21] = uhr[i__ + j * 20 - 21];
-/*< 1 continue >*/
-/* L1: */
- }
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* soot_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SOOT.f b/Modules/ThirdParty/6S/src/6SV1.0B/SOOT.f
deleted file mode 100644
index a3204ea..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SOOT.f
+++ /dev/null
@@ -1,1134 +0,0 @@
- subroutine soot
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real ph,qh,uh
- common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p)
- real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p)
-c - to vary the number of quadratures
- real ex,sc,asy,vi
- common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4)
- real ex_m(20),sc_m(20),asy_m(20),vi_m
- integer i,j
-
-c Soot model
-c Parameters and refractive indices - G.A. d'Almeida, 'Atmospheric
-c aerosols. Global climatology and radiative characteristics', 1991.
-c Extinction coefficients are calculated in km-1
-
-c*************** MIE (asy) ******************
- data (asy_m(j),j=1,20)/
- a 0.423,0.397,0.391,0.377,0.365,0.358,0.348,0.337,0.324,0.310,
- a 0.299,0.293,0.276,0.253,0.188,0.155,0.144,0.121,0.103,0.055/
-c*************** MIE (ext&sca) ******************
- data (ex_m(j),sc_m(j),j=1,20) /
- a 0.1017724E-02,0.2956808E-03,0.8614733E-03,0.2301183E-03,
- a 0.8291564E-03,0.2170554E-03,0.7534558E-03,0.1871983E-03,
- a 0.6955619E-03,0.1651221E-03,0.6605808E-03,0.1521293E-03,
- a 0.6115299E-03,0.1348011E-03,0.5541574E-03,0.1156599E-03,
- a 0.5007540E-03,0.9774679E-04,0.4542466E-03,0.8218560E-04,
- a 0.4189021E-03,0.7111410E-04,0.3975466E-03,0.6486094E-04,
- a 0.3507939E-03,0.5093826E-04,0.2984524E-03,0.3621259E-04,
- a 0.1898267E-03,0.1251277E-04,0.1479603E-03,0.6450522E-05,
- a 0.1378559E-03,0.5127908E-05,0.1161122E-03,0.2946072E-05,
- a 0.1005532E-03,0.1794028E-05,0.6124496E-04,0.3055190E-06 /
-c************** MIE (phase fun ph) ***************
- DATA ((PHR(i,j),j=1,83),i= 1, 1)/
- *0.4446E+00,0.4445E+00,0.4440E+00,0.4431E+00,0.4419E+00,
- *0.4403E+00,0.4384E+00,0.4363E+00,0.4339E+00,0.4312E+00,
- *0.4284E+00,0.4255E+00,0.4225E+00,0.4195E+00,0.4165E+00,
- *0.4135E+00,0.4106E+00,0.4079E+00,0.4053E+00,0.4031E+00,
- *0.4011E+00,0.3995E+00,0.3983E+00,0.3975E+00,0.3974E+00,
- *0.3978E+00,0.3989E+00,0.4008E+00,0.4035E+00,0.4071E+00,
- *0.4117E+00,0.4174E+00,0.4244E+00,0.4327E+00,0.4424E+00,
- *0.4537E+00,0.4666E+00,0.4814E+00,0.4982E+00,0.5172E+00,
- *0.5384E+00,0.5500E+00,0.5622E+00,0.5886E+00,0.6179E+00,
- *0.6503E+00,0.6861E+00,0.7254E+00,0.7685E+00,0.8156E+00,
- *0.8670E+00,0.9231E+00,0.9840E+00,0.1050E+01,0.1122E+01,
- *0.1199E+01,0.1282E+01,0.1372E+01,0.1468E+01,0.1571E+01,
- *0.1681E+01,0.1799E+01,0.1923E+01,0.2055E+01,0.2195E+01,
- *0.2341E+01,0.2495E+01,0.2655E+01,0.2822E+01,0.2993E+01,
- *0.3168E+01,0.3346E+01,0.3525E+01,0.3703E+01,0.3877E+01,
- *0.4044E+01,0.4201E+01,0.4343E+01,0.4468E+01,0.4569E+01,
- *0.4642E+01,0.4685E+01,0.4695E+01 /
- DATA ((PHR(i,j),j=1,83),i= 2, 2)/
- *0.4907E+00,0.4905E+00,0.4900E+00,0.4890E+00,0.4876E+00,
- *0.4858E+00,0.4836E+00,0.4811E+00,0.4783E+00,0.4752E+00,
- *0.4719E+00,0.4684E+00,0.4647E+00,0.4610E+00,0.4572E+00,
- *0.4535E+00,0.4498E+00,0.4462E+00,0.4428E+00,0.4396E+00,
- *0.4367E+00,0.4341E+00,0.4320E+00,0.4303E+00,0.4292E+00,
- *0.4288E+00,0.4290E+00,0.4300E+00,0.4319E+00,0.4347E+00,
- *0.4386E+00,0.4436E+00,0.4500E+00,0.4576E+00,0.4668E+00,
- *0.4776E+00,0.4902E+00,0.5046E+00,0.5211E+00,0.5398E+00,
- *0.5608E+00,0.5723E+00,0.5843E+00,0.6106E+00,0.6397E+00,
- *0.6719E+00,0.7074E+00,0.7464E+00,0.7890E+00,0.8356E+00,
- *0.8864E+00,0.9415E+00,0.1001E+01,0.1066E+01,0.1135E+01,
- *0.1210E+01,0.1290E+01,0.1376E+01,0.1468E+01,0.1566E+01,
- *0.1670E+01,0.1780E+01,0.1896E+01,0.2018E+01,0.2146E+01,
- *0.2280E+01,0.2419E+01,0.2563E+01,0.2711E+01,0.2862E+01,
- *0.3015E+01,0.3170E+01,0.3323E+01,0.3474E+01,0.3620E+01,
- *0.3759E+01,0.3889E+01,0.4005E+01,0.4105E+01,0.4185E+01,
- *0.4244E+01,0.4277E+01,0.4285E+01 /
- DATA ((PHR(i,j),j=1,83),i= 3, 3)/
- *0.5012E+00,0.5010E+00,0.5005E+00,0.4995E+00,0.4980E+00,
- *0.4961E+00,0.4939E+00,0.4913E+00,0.4884E+00,0.4852E+00,
- *0.4817E+00,0.4781E+00,0.4743E+00,0.4704E+00,0.4665E+00,
- *0.4625E+00,0.4586E+00,0.4548E+00,0.4512E+00,0.4478E+00,
- *0.4447E+00,0.4419E+00,0.4396E+00,0.4377E+00,0.4364E+00,
- *0.4357E+00,0.4357E+00,0.4365E+00,0.4382E+00,0.4408E+00,
- *0.4446E+00,0.4494E+00,0.4556E+00,0.4631E+00,0.4722E+00,
- *0.4829E+00,0.4953E+00,0.5096E+00,0.5260E+00,0.5446E+00,
- *0.5656E+00,0.5770E+00,0.5890E+00,0.6152E+00,0.6443E+00,
- *0.6764E+00,0.7118E+00,0.7506E+00,0.7932E+00,0.8396E+00,
- *0.8901E+00,0.9450E+00,0.1004E+01,0.1069E+01,0.1138E+01,
- *0.1212E+01,0.1291E+01,0.1377E+01,0.1467E+01,0.1564E+01,
- *0.1667E+01,0.1775E+01,0.1889E+01,0.2009E+01,0.2135E+01,
- *0.2266E+01,0.2402E+01,0.2542E+01,0.2687E+01,0.2834E+01,
- *0.2983E+01,0.3132E+01,0.3280E+01,0.3426E+01,0.3567E+01,
- *0.3701E+01,0.3824E+01,0.3936E+01,0.4031E+01,0.4108E+01,
- *0.4163E+01,0.4195E+01,0.4203E+01 /
- DATA ((PHR(i,j),j=1,83),i= 4, 4)/
- *0.5274E+00,0.5272E+00,0.5266E+00,0.5255E+00,0.5240E+00,
- *0.5220E+00,0.5195E+00,0.5167E+00,0.5135E+00,0.5101E+00,
- *0.5063E+00,0.5023E+00,0.4981E+00,0.4938E+00,0.4895E+00,
- *0.4851E+00,0.4807E+00,0.4764E+00,0.4723E+00,0.4683E+00,
- *0.4647E+00,0.4613E+00,0.4584E+00,0.4560E+00,0.4541E+00,
- *0.4529E+00,0.4523E+00,0.4526E+00,0.4538E+00,0.4560E+00,
- *0.4592E+00,0.4636E+00,0.4694E+00,0.4765E+00,0.4852E+00,
- *0.4955E+00,0.5077E+00,0.5217E+00,0.5378E+00,0.5562E+00,
- *0.5769E+00,0.5882E+00,0.6002E+00,0.6261E+00,0.6550E+00,
- *0.6869E+00,0.7220E+00,0.7605E+00,0.8027E+00,0.8487E+00,
- *0.8987E+00,0.9528E+00,0.1011E+01,0.1075E+01,0.1142E+01,
- *0.1215E+01,0.1293E+01,0.1376E+01,0.1464E+01,0.1558E+01,
- *0.1657E+01,0.1762E+01,0.1871E+01,0.1986E+01,0.2106E+01,
- *0.2231E+01,0.2360E+01,0.2492E+01,0.2627E+01,0.2765E+01,
- *0.2904E+01,0.3042E+01,0.3179E+01,0.3313E+01,0.3441E+01,
- *0.3563E+01,0.3674E+01,0.3774E+01,0.3860E+01,0.3928E+01,
- *0.3977E+01,0.4005E+01,0.4012E+01 /
- DATA ((PHR(i,j),j=1,83),i= 5, 5)/
- *0.5491E+00,0.5490E+00,0.5483E+00,0.5472E+00,0.5455E+00,
- *0.5434E+00,0.5408E+00,0.5378E+00,0.5345E+00,0.5307E+00,
- *0.5267E+00,0.5224E+00,0.5179E+00,0.5133E+00,0.5085E+00,
- *0.5037E+00,0.4990E+00,0.4942E+00,0.4897E+00,0.4853E+00,
- *0.4811E+00,0.4773E+00,0.4740E+00,0.4710E+00,0.4687E+00,
- *0.4670E+00,0.4660E+00,0.4658E+00,0.4666E+00,0.4683E+00,
- *0.4711E+00,0.4752E+00,0.4805E+00,0.4873E+00,0.4957E+00,
- *0.5057E+00,0.5176E+00,0.5314E+00,0.5472E+00,0.5654E+00,
- *0.5858E+00,0.5970E+00,0.6089E+00,0.6346E+00,0.6632E+00,
- *0.6949E+00,0.7298E+00,0.7680E+00,0.8098E+00,0.8554E+00,
- *0.9048E+00,0.9584E+00,0.1016E+01,0.1078E+01,0.1145E+01,
- *0.1217E+01,0.1293E+01,0.1375E+01,0.1461E+01,0.1552E+01,
- *0.1649E+01,0.1750E+01,0.1856E+01,0.1967E+01,0.2082E+01,
- *0.2202E+01,0.2325E+01,0.2451E+01,0.2580E+01,0.2710E+01,
- *0.2841E+01,0.2971E+01,0.3099E+01,0.3224E+01,0.3344E+01,
- *0.3456E+01,0.3559E+01,0.3651E+01,0.3729E+01,0.3792E+01,
- *0.3836E+01,0.3862E+01,0.3868E+01 /
- DATA ((PHR(i,j),j=1,83),i= 6, 6)/
- *0.5632E+00,0.5630E+00,0.5623E+00,0.5611E+00,0.5594E+00,
- *0.5572E+00,0.5545E+00,0.5514E+00,0.5479E+00,0.5440E+00,
- *0.5398E+00,0.5353E+00,0.5306E+00,0.5258E+00,0.5208E+00,
- *0.5157E+00,0.5107E+00,0.5057E+00,0.5008E+00,0.4961E+00,
- *0.4917E+00,0.4876E+00,0.4839E+00,0.4807E+00,0.4780E+00,
- *0.4760E+00,0.4747E+00,0.4742E+00,0.4747E+00,0.4761E+00,
- *0.4787E+00,0.4825E+00,0.4876E+00,0.4942E+00,0.5023E+00,
- *0.5121E+00,0.5238E+00,0.5374E+00,0.5531E+00,0.5710E+00,
- *0.5914E+00,0.6025E+00,0.6143E+00,0.6398E+00,0.6683E+00,
- *0.6998E+00,0.7344E+00,0.7725E+00,0.8140E+00,0.8593E+00,
- *0.9084E+00,0.9616E+00,0.1019E+01,0.1081E+01,0.1147E+01,
- *0.1217E+01,0.1293E+01,0.1373E+01,0.1458E+01,0.1548E+01,
- *0.1643E+01,0.1742E+01,0.1846E+01,0.1954E+01,0.2067E+01,
- *0.2183E+01,0.2303E+01,0.2426E+01,0.2550E+01,0.2676E+01,
- *0.2802E+01,0.2927E+01,0.3050E+01,0.3170E+01,0.3284E+01,
- *0.3391E+01,0.3489E+01,0.3576E+01,0.3650E+01,0.3709E+01,
- *0.3751E+01,0.3775E+01,0.3781E+01 /
- DATA ((PHR(i,j),j=1,83),i= 7, 7)/
- *0.5829E+00,0.5827E+00,0.5820E+00,0.5807E+00,0.5789E+00,
- *0.5766E+00,0.5738E+00,0.5705E+00,0.5668E+00,0.5627E+00,
- *0.5582E+00,0.5535E+00,0.5485E+00,0.5433E+00,0.5379E+00,
- *0.5325E+00,0.5271E+00,0.5217E+00,0.5164E+00,0.5113E+00,
- *0.5064E+00,0.5019E+00,0.4977E+00,0.4941E+00,0.4910E+00,
- *0.4885E+00,0.4868E+00,0.4859E+00,0.4859E+00,0.4870E+00,
- *0.4891E+00,0.4926E+00,0.4973E+00,0.5036E+00,0.5114E+00,
- *0.5209E+00,0.5323E+00,0.5456E+00,0.5611E+00,0.5788E+00,
- *0.5989E+00,0.6099E+00,0.6215E+00,0.6469E+00,0.6751E+00,
- *0.7063E+00,0.7407E+00,0.7784E+00,0.8196E+00,0.8645E+00,
- *0.9131E+00,0.9657E+00,0.1022E+01,0.1083E+01,0.1148E+01,
- *0.1218E+01,0.1292E+01,0.1371E+01,0.1454E+01,0.1542E+01,
- *0.1634E+01,0.1731E+01,0.1832E+01,0.1937E+01,0.2045E+01,
- *0.2157E+01,0.2272E+01,0.2390E+01,0.2509E+01,0.2629E+01,
- *0.2748E+01,0.2867E+01,0.2983E+01,0.3096E+01,0.3203E+01,
- *0.3303E+01,0.3394E+01,0.3475E+01,0.3544E+01,0.3598E+01,
- *0.3637E+01,0.3659E+01,0.3664E+01 /
- DATA ((PHR(i,j),j=1,83),i= 8, 8)/
- *0.6066E+00,0.6064E+00,0.6057E+00,0.6043E+00,0.6024E+00,
- *0.6000E+00,0.5970E+00,0.5935E+00,0.5895E+00,0.5851E+00,
- *0.5803E+00,0.5753E+00,0.5699E+00,0.5643E+00,0.5585E+00,
- *0.5527E+00,0.5467E+00,0.5409E+00,0.5351E+00,0.5294E+00,
- *0.5240E+00,0.5189E+00,0.5143E+00,0.5100E+00,0.5064E+00,
- *0.5034E+00,0.5011E+00,0.4997E+00,0.4992E+00,0.4998E+00,
- *0.5015E+00,0.5044E+00,0.5088E+00,0.5146E+00,0.5220E+00,
- *0.5311E+00,0.5422E+00,0.5552E+00,0.5703E+00,0.5877E+00,
- *0.6075E+00,0.6184E+00,0.6299E+00,0.6550E+00,0.6829E+00,
- *0.7138E+00,0.7478E+00,0.7851E+00,0.8259E+00,0.8702E+00,
- *0.9182E+00,0.9701E+00,0.1026E+01,0.1086E+01,0.1150E+01,
- *0.1218E+01,0.1290E+01,0.1367E+01,0.1448E+01,0.1534E+01,
- *0.1623E+01,0.1717E+01,0.1814E+01,0.1915E+01,0.2019E+01,
- *0.2126E+01,0.2236E+01,0.2348E+01,0.2460E+01,0.2574E+01,
- *0.2686E+01,0.2797E+01,0.2906E+01,0.3010E+01,0.3110E+01,
- *0.3202E+01,0.3286E+01,0.3360E+01,0.3423E+01,0.3473E+01,
- *0.3508E+01,0.3528E+01,0.3533E+01 /
- DATA ((PHR(i,j),j=1,83),i= 9, 9)/
- *0.6338E+00,0.6336E+00,0.6328E+00,0.6314E+00,0.6293E+00,
- *0.6267E+00,0.6235E+00,0.6198E+00,0.6155E+00,0.6108E+00,
- *0.6057E+00,0.6002E+00,0.5944E+00,0.5883E+00,0.5821E+00,
- *0.5757E+00,0.5693E+00,0.5628E+00,0.5564E+00,0.5502E+00,
- *0.5442E+00,0.5385E+00,0.5332E+00,0.5283E+00,0.5240E+00,
- *0.5204E+00,0.5175E+00,0.5155E+00,0.5144E+00,0.5143E+00,
- *0.5155E+00,0.5179E+00,0.5217E+00,0.5270E+00,0.5339E+00,
- *0.5426E+00,0.5531E+00,0.5657E+00,0.5804E+00,0.5974E+00,
- *0.6168E+00,0.6275E+00,0.6388E+00,0.6634E+00,0.6909E+00,
- *0.7214E+00,0.7549E+00,0.7917E+00,0.8318E+00,0.8754E+00,
- *0.9227E+00,0.9736E+00,0.1028E+01,0.1087E+01,0.1150E+01,
- *0.1216E+01,0.1287E+01,0.1362E+01,0.1440E+01,0.1523E+01,
- *0.1609E+01,0.1699E+01,0.1793E+01,0.1890E+01,0.1989E+01,
- *0.2091E+01,0.2195E+01,0.2301E+01,0.2407E+01,0.2513E+01,
- *0.2619E+01,0.2723E+01,0.2823E+01,0.2920E+01,0.3012E+01,
- *0.3097E+01,0.3174E+01,0.3241E+01,0.3298E+01,0.3343E+01,
- *0.3375E+01,0.3393E+01,0.3398E+01 /
- DATA ((PHR(i,j),j=1,83),i=10,10)/
- *0.6626E+00,0.6624E+00,0.6616E+00,0.6601E+00,0.6579E+00,
- *0.6551E+00,0.6517E+00,0.6476E+00,0.6431E+00,0.6381E+00,
- *0.6326E+00,0.6267E+00,0.6204E+00,0.6139E+00,0.6071E+00,
- *0.6002E+00,0.5931E+00,0.5861E+00,0.5791E+00,0.5722E+00,
- *0.5655E+00,0.5592E+00,0.5532E+00,0.5476E+00,0.5427E+00,
- *0.5383E+00,0.5348E+00,0.5321E+00,0.5303E+00,0.5296E+00,
- *0.5301E+00,0.5319E+00,0.5351E+00,0.5398E+00,0.5462E+00,
- *0.5543E+00,0.5644E+00,0.5764E+00,0.5907E+00,0.6072E+00,
- *0.6261E+00,0.6365E+00,0.6475E+00,0.6717E+00,0.6986E+00,
- *0.7285E+00,0.7615E+00,0.7976E+00,0.8370E+00,0.8799E+00,
- *0.9262E+00,0.9761E+00,0.1030E+01,0.1087E+01,0.1148E+01,
- *0.1213E+01,0.1282E+01,0.1354E+01,0.1430E+01,0.1510E+01,
- *0.1594E+01,0.1680E+01,0.1770E+01,0.1862E+01,0.1957E+01,
- *0.2055E+01,0.2153E+01,0.2253E+01,0.2353E+01,0.2453E+01,
- *0.2551E+01,0.2648E+01,0.2742E+01,0.2831E+01,0.2916E+01,
- *0.2994E+01,0.3064E+01,0.3126E+01,0.3178E+01,0.3219E+01,
- *0.3248E+01,0.3264E+01,0.3268E+01 /
- DATA ((PHR(i,j),j=1,83),i=11,11)/
- *0.6857E+00,0.6855E+00,0.6846E+00,0.6830E+00,0.6808E+00,
- *0.6778E+00,0.6742E+00,0.6700E+00,0.6652E+00,0.6599E+00,
- *0.6540E+00,0.6478E+00,0.6412E+00,0.6342E+00,0.6270E+00,
- *0.6197E+00,0.6122E+00,0.6046E+00,0.5971E+00,0.5897E+00,
- *0.5825E+00,0.5756E+00,0.5690E+00,0.5630E+00,0.5574E+00,
- *0.5526E+00,0.5484E+00,0.5452E+00,0.5429E+00,0.5417E+00,
- *0.5417E+00,0.5429E+00,0.5457E+00,0.5499E+00,0.5558E+00,
- *0.5635E+00,0.5731E+00,0.5847E+00,0.5985E+00,0.6146E+00,
- *0.6331E+00,0.6433E+00,0.6542E+00,0.6779E+00,0.7044E+00,
- *0.7338E+00,0.7663E+00,0.8019E+00,0.8407E+00,0.8829E+00,
- *0.9285E+00,0.9776E+00,0.1030E+01,0.1087E+01,0.1146E+01,
- *0.1210E+01,0.1277E+01,0.1348E+01,0.1422E+01,0.1500E+01,
- *0.1581E+01,0.1665E+01,0.1751E+01,0.1841E+01,0.1932E+01,
- *0.2025E+01,0.2120E+01,0.2215E+01,0.2311E+01,0.2406E+01,
- *0.2499E+01,0.2591E+01,0.2679E+01,0.2764E+01,0.2843E+01,
- *0.2916E+01,0.2982E+01,0.3039E+01,0.3088E+01,0.3126E+01,
- *0.3153E+01,0.3168E+01,0.3171E+01 /
- DATA ((PHR(i,j),j=1,83),i=12,12)/
- *0.6997E+00,0.6995E+00,0.6986E+00,0.6969E+00,0.6946E+00,
- *0.6915E+00,0.6878E+00,0.6835E+00,0.6785E+00,0.6730E+00,
- *0.6670E+00,0.6606E+00,0.6537E+00,0.6465E+00,0.6391E+00,
- *0.6314E+00,0.6236E+00,0.6158E+00,0.6080E+00,0.6002E+00,
- *0.5927E+00,0.5855E+00,0.5786E+00,0.5721E+00,0.5663E+00,
- *0.5611E+00,0.5566E+00,0.5530E+00,0.5504E+00,0.5489E+00,
- *0.5485E+00,0.5495E+00,0.5519E+00,0.5559E+00,0.5615E+00,
- *0.5689E+00,0.5782E+00,0.5896E+00,0.6032E+00,0.6190E+00,
- *0.6372E+00,0.6473E+00,0.6580E+00,0.6815E+00,0.7077E+00,
- *0.7369E+00,0.7690E+00,0.8043E+00,0.8428E+00,0.8845E+00,
- *0.9297E+00,0.9783E+00,0.1030E+01,0.1086E+01,0.1145E+01,
- *0.1208E+01,0.1274E+01,0.1344E+01,0.1417E+01,0.1493E+01,
- *0.1573E+01,0.1655E+01,0.1740E+01,0.1828E+01,0.1917E+01,
- *0.2008E+01,0.2100E+01,0.2193E+01,0.2286E+01,0.2378E+01,
- *0.2469E+01,0.2557E+01,0.2642E+01,0.2724E+01,0.2800E+01,
- *0.2870E+01,0.2934E+01,0.2989E+01,0.3035E+01,0.3071E+01,
- *0.3097E+01,0.3111E+01,0.3115E+01 /
- DATA ((PHR(i,j),j=1,83),i=13,13)/
- *0.7383E+00,0.7380E+00,0.7370E+00,0.7352E+00,0.7327E+00,
- *0.7294E+00,0.7254E+00,0.7207E+00,0.7153E+00,0.7093E+00,
- *0.7028E+00,0.6958E+00,0.6883E+00,0.6804E+00,0.6723E+00,
- *0.6638E+00,0.6553E+00,0.6466E+00,0.6379E+00,0.6293E+00,
- *0.6209E+00,0.6127E+00,0.6049E+00,0.5975E+00,0.5907E+00,
- *0.5845E+00,0.5791E+00,0.5746E+00,0.5710E+00,0.5686E+00,
- *0.5673E+00,0.5674E+00,0.5690E+00,0.5721E+00,0.5769E+00,
- *0.5835E+00,0.5920E+00,0.6026E+00,0.6154E+00,0.6305E+00,
- *0.6480E+00,0.6577E+00,0.6680E+00,0.6907E+00,0.7161E+00,
- *0.7444E+00,0.7756E+00,0.8099E+00,0.8473E+00,0.8879E+00,
- *0.9317E+00,0.9788E+00,0.1029E+01,0.1083E+01,0.1140E+01,
- *0.1201E+01,0.1265E+01,0.1331E+01,0.1401E+01,0.1474E+01,
- *0.1550E+01,0.1628E+01,0.1709E+01,0.1791E+01,0.1875E+01,
- *0.1961E+01,0.2047E+01,0.2133E+01,0.2219E+01,0.2304E+01,
- *0.2388E+01,0.2469E+01,0.2547E+01,0.2621E+01,0.2690E+01,
- *0.2753E+01,0.2810E+01,0.2860E+01,0.2901E+01,0.2934E+01,
- *0.2956E+01,0.2969E+01,0.2972E+01 /
- DATA ((PHR(i,j),j=1,83),i=14,14)/
- *0.7925E+00,0.7922E+00,0.7911E+00,0.7892E+00,0.7863E+00,
- *0.7827E+00,0.7782E+00,0.7730E+00,0.7670E+00,0.7604E+00,
- *0.7531E+00,0.7452E+00,0.7369E+00,0.7280E+00,0.7188E+00,
- *0.7093E+00,0.6996E+00,0.6898E+00,0.6798E+00,0.6700E+00,
- *0.6602E+00,0.6507E+00,0.6416E+00,0.6329E+00,0.6247E+00,
- *0.6171E+00,0.6104E+00,0.6045E+00,0.5996E+00,0.5958E+00,
- *0.5933E+00,0.5921E+00,0.5924E+00,0.5942E+00,0.5978E+00,
- *0.6032E+00,0.6106E+00,0.6200E+00,0.6316E+00,0.6455E+00,
- *0.6618E+00,0.6709E+00,0.6807E+00,0.7021E+00,0.7263E+00,
- *0.7532E+00,0.7830E+00,0.8158E+00,0.8516E+00,0.8904E+00,
- *0.9324E+00,0.9774E+00,0.1026E+01,0.1077E+01,0.1131E+01,
- *0.1188E+01,0.1249E+01,0.1312E+01,0.1378E+01,0.1446E+01,
- *0.1517E+01,0.1590E+01,0.1664E+01,0.1740E+01,0.1818E+01,
- *0.1896E+01,0.1974E+01,0.2053E+01,0.2130E+01,0.2207E+01,
- *0.2281E+01,0.2354E+01,0.2423E+01,0.2488E+01,0.2549E+01,
- *0.2604E+01,0.2654E+01,0.2696E+01,0.2732E+01,0.2760E+01,
- *0.2780E+01,0.2791E+01,0.2793E+01 /
- DATA ((PHR(i,j),j=1,83),i=15,15)/
- *0.9497E+00,0.9494E+00,0.9479E+00,0.9454E+00,0.9417E+00,
- *0.9369E+00,0.9311E+00,0.9242E+00,0.9164E+00,0.9076E+00,
- *0.8980E+00,0.8876E+00,0.8765E+00,0.8647E+00,0.8524E+00,
- *0.8396E+00,0.8264E+00,0.8130E+00,0.7994E+00,0.7857E+00,
- *0.7721E+00,0.7586E+00,0.7454E+00,0.7326E+00,0.7203E+00,
- *0.7087E+00,0.6978E+00,0.6878E+00,0.6789E+00,0.6711E+00,
- *0.6646E+00,0.6595E+00,0.6559E+00,0.6540E+00,0.6538E+00,
- *0.6555E+00,0.6592E+00,0.6649E+00,0.6729E+00,0.6832E+00,
- *0.6958E+00,0.7030E+00,0.7109E+00,0.7284E+00,0.7486E+00,
- *0.7714E+00,0.7968E+00,0.8249E+00,0.8557E+00,0.8892E+00,
- *0.9254E+00,0.9642E+00,0.1006E+01,0.1049E+01,0.1096E+01,
- *0.1144E+01,0.1195E+01,0.1248E+01,0.1303E+01,0.1359E+01,
- *0.1417E+01,0.1476E+01,0.1535E+01,0.1596E+01,0.1657E+01,
- *0.1717E+01,0.1778E+01,0.1837E+01,0.1896E+01,0.1953E+01,
- *0.2008E+01,0.2060E+01,0.2110E+01,0.2156E+01,0.2199E+01,
- *0.2237E+01,0.2271E+01,0.2301E+01,0.2325E+01,0.2344E+01,
- *0.2357E+01,0.2364E+01,0.2366E+01 /
- DATA ((PHR(i,j),j=1,83),i=16,16)/
- *0.1036E+01,0.1036E+01,0.1034E+01,0.1031E+01,0.1027E+01,
- *0.1022E+01,0.1015E+01,0.1007E+01,0.9983E+00,0.9883E+00,
- *0.9773E+00,0.9654E+00,0.9527E+00,0.9392E+00,0.9251E+00,
- *0.9103E+00,0.8952E+00,0.8796E+00,0.8639E+00,0.8480E+00,
- *0.8321E+00,0.8163E+00,0.8008E+00,0.7856E+00,0.7710E+00,
- *0.7570E+00,0.7438E+00,0.7315E+00,0.7202E+00,0.7101E+00,
- *0.7013E+00,0.6939E+00,0.6881E+00,0.6839E+00,0.6816E+00,
- *0.6811E+00,0.6826E+00,0.6862E+00,0.6921E+00,0.7001E+00,
- *0.7106E+00,0.7167E+00,0.7234E+00,0.7387E+00,0.7565E+00,
- *0.7768E+00,0.7997E+00,0.8252E+00,0.8532E+00,0.8836E+00,
- *0.9166E+00,0.9520E+00,0.9897E+00,0.1030E+01,0.1072E+01,
- *0.1116E+01,0.1162E+01,0.1210E+01,0.1259E+01,0.1309E+01,
- *0.1361E+01,0.1413E+01,0.1466E+01,0.1520E+01,0.1573E+01,
- *0.1626E+01,0.1679E+01,0.1731E+01,0.1781E+01,0.1830E+01,
- *0.1877E+01,0.1921E+01,0.1963E+01,0.2002E+01,0.2038E+01,
- *0.2071E+01,0.2099E+01,0.2123E+01,0.2143E+01,0.2159E+01,
- *0.2170E+01,0.2176E+01,0.2177E+01 /
- DATA ((PHR(i,j),j=1,83),i=17,17)/
- *0.1065E+01,0.1065E+01,0.1063E+01,0.1060E+01,0.1056E+01,
- *0.1050E+01,0.1043E+01,0.1035E+01,0.1026E+01,0.1015E+01,
- *0.1004E+01,0.9916E+00,0.9784E+00,0.9643E+00,0.9495E+00,
- *0.9341E+00,0.9183E+00,0.9020E+00,0.8855E+00,0.8689E+00,
- *0.8522E+00,0.8357E+00,0.8193E+00,0.8034E+00,0.7880E+00,
- *0.7731E+00,0.7591E+00,0.7460E+00,0.7339E+00,0.7230E+00,
- *0.7134E+00,0.7052E+00,0.6986E+00,0.6937E+00,0.6905E+00,
- *0.6893E+00,0.6900E+00,0.6929E+00,0.6979E+00,0.7053E+00,
- *0.7149E+00,0.7206E+00,0.7270E+00,0.7414E+00,0.7584E+00,
- *0.7779E+00,0.7999E+00,0.8244E+00,0.8514E+00,0.8809E+00,
- *0.9127E+00,0.9470E+00,0.9835E+00,0.1022E+01,0.1063E+01,
- *0.1106E+01,0.1150E+01,0.1196E+01,0.1244E+01,0.1292E+01,
- *0.1342E+01,0.1393E+01,0.1444E+01,0.1495E+01,0.1546E+01,
- *0.1597E+01,0.1647E+01,0.1696E+01,0.1745E+01,0.1791E+01,
- *0.1836E+01,0.1878E+01,0.1918E+01,0.1955E+01,0.1989E+01,
- *0.2019E+01,0.2046E+01,0.2069E+01,0.2088E+01,0.2103E+01,
- *0.2113E+01,0.2119E+01,0.2120E+01 /
- DATA ((PHR(i,j),j=1,83),i=18,18)/
- *0.1129E+01,0.1129E+01,0.1127E+01,0.1124E+01,0.1119E+01,
- *0.1113E+01,0.1105E+01,0.1096E+01,0.1086E+01,0.1075E+01,
- *0.1062E+01,0.1049E+01,0.1034E+01,0.1019E+01,0.1003E+01,
- *0.9858E+00,0.9684E+00,0.9505E+00,0.9324E+00,0.9141E+00,
- *0.8957E+00,0.8774E+00,0.8593E+00,0.8416E+00,0.8243E+00,
- *0.8077E+00,0.7919E+00,0.7769E+00,0.7631E+00,0.7504E+00,
- *0.7390E+00,0.7291E+00,0.7207E+00,0.7141E+00,0.7092E+00,
- *0.7063E+00,0.7054E+00,0.7065E+00,0.7099E+00,0.7155E+00,
- *0.7234E+00,0.7283E+00,0.7337E+00,0.7464E+00,0.7616E+00,
- *0.7792E+00,0.7992E+00,0.8217E+00,0.8466E+00,0.8738E+00,
- *0.9034E+00,0.9352E+00,0.9691E+00,0.1005E+01,0.1043E+01,
- *0.1082E+01,0.1124E+01,0.1166E+01,0.1210E+01,0.1255E+01,
- *0.1301E+01,0.1348E+01,0.1394E+01,0.1441E+01,0.1488E+01,
- *0.1535E+01,0.1580E+01,0.1625E+01,0.1668E+01,0.1710E+01,
- *0.1751E+01,0.1789E+01,0.1824E+01,0.1857E+01,0.1888E+01,
- *0.1915E+01,0.1939E+01,0.1959E+01,0.1976E+01,0.1989E+01,
- *0.1998E+01,0.2003E+01,0.2004E+01 /
- DATA ((PHR(i,j),j=1,83),i=19,19)/
- *0.1180E+01,0.1180E+01,0.1178E+01,0.1174E+01,0.1169E+01,
- *0.1163E+01,0.1155E+01,0.1145E+01,0.1134E+01,0.1122E+01,
- *0.1109E+01,0.1094E+01,0.1079E+01,0.1062E+01,0.1045E+01,
- *0.1027E+01,0.1008E+01,0.9891E+00,0.9696E+00,0.9499E+00,
- *0.9301E+00,0.9104E+00,0.8908E+00,0.8716E+00,0.8529E+00,
- *0.8349E+00,0.8175E+00,0.8012E+00,0.7858E+00,0.7717E+00,
- *0.7589E+00,0.7475E+00,0.7378E+00,0.7297E+00,0.7234E+00,
- *0.7191E+00,0.7168E+00,0.7166E+00,0.7186E+00,0.7228E+00,
- *0.7293E+00,0.7335E+00,0.7382E+00,0.7495E+00,0.7631E+00,
- *0.7792E+00,0.7977E+00,0.8185E+00,0.8417E+00,0.8672E+00,
- *0.8949E+00,0.9248E+00,0.9567E+00,0.9905E+00,0.1026E+01,
- *0.1063E+01,0.1102E+01,0.1142E+01,0.1184E+01,0.1226E+01,
- *0.1269E+01,0.1312E+01,0.1356E+01,0.1400E+01,0.1443E+01,
- *0.1487E+01,0.1529E+01,0.1570E+01,0.1611E+01,0.1650E+01,
- *0.1687E+01,0.1722E+01,0.1754E+01,0.1785E+01,0.1813E+01,
- *0.1837E+01,0.1859E+01,0.1878E+01,0.1893E+01,0.1905E+01,
- *0.1913E+01,0.1918E+01,0.1919E+01 /
- DATA ((PHR(i,j),j=1,83),i=20,20)/
- *0.1325E+01,0.1324E+01,0.1322E+01,0.1318E+01,0.1311E+01,
- *0.1304E+01,0.1294E+01,0.1283E+01,0.1270E+01,0.1255E+01,
- *0.1239E+01,0.1222E+01,0.1203E+01,0.1184E+01,0.1163E+01,
- *0.1141E+01,0.1119E+01,0.1096E+01,0.1073E+01,0.1049E+01,
- *0.1025E+01,0.1001E+01,0.9774E+00,0.9539E+00,0.9310E+00,
- *0.9086E+00,0.8871E+00,0.8664E+00,0.8469E+00,0.8286E+00,
- *0.8117E+00,0.7962E+00,0.7824E+00,0.7703E+00,0.7601E+00,
- *0.7518E+00,0.7456E+00,0.7415E+00,0.7395E+00,0.7398E+00,
- *0.7424E+00,0.7446E+00,0.7473E+00,0.7545E+00,0.7640E+00,
- *0.7758E+00,0.7900E+00,0.8063E+00,0.8249E+00,0.8455E+00,
- *0.8682E+00,0.8928E+00,0.9193E+00,0.9475E+00,0.9772E+00,
- *0.1008E+01,0.1041E+01,0.1074E+01,0.1109E+01,0.1144E+01,
- *0.1180E+01,0.1216E+01,0.1252E+01,0.1288E+01,0.1324E+01,
- *0.1359E+01,0.1394E+01,0.1428E+01,0.1460E+01,0.1491E+01,
- *0.1521E+01,0.1549E+01,0.1576E+01,0.1600E+01,0.1622E+01,
- *0.1642E+01,0.1659E+01,0.1673E+01,0.1685E+01,0.1695E+01,
- *0.1701E+01,0.1705E+01,0.1706E+01 /
-c************** MIE (phase fun qh) ***************
- DATA ((QHR(i,j),j=1,83),i= 1, 1)/
- *-0.6313E-21,-0.2429E-03,-0.1278E-02,-0.3133E-02,-0.5796E-02,
- *-0.9250E-02,-0.1347E-01,-0.1844E-01,-0.2413E-01,-0.3051E-01,
- *-0.3754E-01,-0.4521E-01,-0.5347E-01,-0.6229E-01,-0.7165E-01,
- *-0.8151E-01,-0.9185E-01,-0.1026E+00,-0.1138E+00,-0.1254E+00,
- *-0.1374E+00,-0.1497E+00,-0.1623E+00,-0.1751E+00,-0.1882E+00,
- *-0.2016E+00,-0.2151E+00,-0.2288E+00,-0.2426E+00,-0.2565E+00,
- *-0.2704E+00,-0.2844E+00,-0.2983E+00,-0.3122E+00,-0.3259E+00,
- *-0.3395E+00,-0.3530E+00,-0.3661E+00,-0.3790E+00,-0.3915E+00,
- *-0.4036E+00,-0.4095E+00,-0.4152E+00,-0.4263E+00,-0.4368E+00,
- *-0.4466E+00,-0.4556E+00,-0.4638E+00,-0.4710E+00,-0.4773E+00,
- *-0.4824E+00,-0.4864E+00,-0.4892E+00,-0.4905E+00,-0.4904E+00,
- *-0.4888E+00,-0.4855E+00,-0.4806E+00,-0.4738E+00,-0.4652E+00,
- *-0.4547E+00,-0.4423E+00,-0.4278E+00,-0.4114E+00,-0.3930E+00,
- *-0.3727E+00,-0.3505E+00,-0.3266E+00,-0.3011E+00,-0.2743E+00,
- *-0.2464E+00,-0.2177E+00,-0.1886E+00,-0.1596E+00,-0.1312E+00,
- *-0.1039E+00,-0.7844E-01,-0.5546E-01,-0.3565E-01,-0.1967E-01,
- *-0.8147E-02,-0.1562E-02,-0.1106E-20 /
- DATA ((QHR(i,j),j=1,83),i= 2, 2)/
- *-0.1599E-20,-0.2648E-03,-0.1394E-02,-0.3418E-02,-0.6325E-02,
- *-0.1010E-01,-0.1472E-01,-0.2017E-01,-0.2641E-01,-0.3341E-01,
- *-0.4116E-01,-0.4960E-01,-0.5871E-01,-0.6846E-01,-0.7880E-01,
- *-0.8972E-01,-0.1012E+00,-0.1131E+00,-0.1255E+00,-0.1383E+00,
- *-0.1515E+00,-0.1651E+00,-0.1790E+00,-0.1932E+00,-0.2076E+00,
- *-0.2223E+00,-0.2371E+00,-0.2520E+00,-0.2670E+00,-0.2821E+00,
- *-0.2971E+00,-0.3121E+00,-0.3270E+00,-0.3418E+00,-0.3564E+00,
- *-0.3707E+00,-0.3847E+00,-0.3984E+00,-0.4116E+00,-0.4243E+00,
- *-0.4365E+00,-0.4423E+00,-0.4480E+00,-0.4588E+00,-0.4689E+00,
- *-0.4781E+00,-0.4864E+00,-0.4937E+00,-0.4999E+00,-0.5049E+00,
- *-0.5087E+00,-0.5111E+00,-0.5121E+00,-0.5116E+00,-0.5096E+00,
- *-0.5058E+00,-0.5004E+00,-0.4932E+00,-0.4841E+00,-0.4732E+00,
- *-0.4603E+00,-0.4455E+00,-0.4288E+00,-0.4103E+00,-0.3898E+00,
- *-0.3677E+00,-0.3439E+00,-0.3186E+00,-0.2921E+00,-0.2645E+00,
- *-0.2362E+00,-0.2074E+00,-0.1786E+00,-0.1502E+00,-0.1227E+00,
- *-0.9665E-01,-0.7256E-01,-0.5103E-01,-0.3264E-01,-0.1794E-01,
- *-0.7407E-02,-0.1417E-02, 0.2048E-20 /
- DATA ((QHR(i,j),j=1,83),i= 3, 3)/
- *-0.1770E-22,-0.2698E-03,-0.1420E-02,-0.3482E-02,-0.6445E-02,
- *-0.1029E-01,-0.1501E-01,-0.2056E-01,-0.2692E-01,-0.3407E-01,
- *-0.4197E-01,-0.5059E-01,-0.5989E-01,-0.6984E-01,-0.8041E-01,
- *-0.9156E-01,-0.1032E+00,-0.1154E+00,-0.1281E+00,-0.1412E+00,
- *-0.1547E+00,-0.1686E+00,-0.1828E+00,-0.1972E+00,-0.2119E+00,
- *-0.2269E+00,-0.2419E+00,-0.2571E+00,-0.2724E+00,-0.2877E+00,
- *-0.3030E+00,-0.3183E+00,-0.3334E+00,-0.3483E+00,-0.3631E+00,
- *-0.3775E+00,-0.3917E+00,-0.4054E+00,-0.4187E+00,-0.4314E+00,
- *-0.4436E+00,-0.4494E+00,-0.4551E+00,-0.4659E+00,-0.4758E+00,
- *-0.4849E+00,-0.4930E+00,-0.5001E+00,-0.5060E+00,-0.5108E+00,
- *-0.5142E+00,-0.5163E+00,-0.5169E+00,-0.5160E+00,-0.5135E+00,
- *-0.5093E+00,-0.5034E+00,-0.4957E+00,-0.4861E+00,-0.4747E+00,
- *-0.4613E+00,-0.4461E+00,-0.4289E+00,-0.4099E+00,-0.3891E+00,
- *-0.3665E+00,-0.3424E+00,-0.3169E+00,-0.2902E+00,-0.2624E+00,
- *-0.2340E+00,-0.2053E+00,-0.1766E+00,-0.1483E+00,-0.1210E+00,
- *-0.9520E-01,-0.7139E-01,-0.5016E-01,-0.3205E-01,-0.1760E-01,
- *-0.7263E-02,-0.1390E-02, 0.8561E-20 /
- DATA ((QHR(i,j),j=1,83),i= 4, 4)/
- * 0.5940E-22,-0.2822E-03,-0.1485E-02,-0.3643E-02,-0.6744E-02,
- *-0.1077E-01,-0.1571E-01,-0.2153E-01,-0.2820E-01,-0.3570E-01,
- *-0.4399E-01,-0.5304E-01,-0.6281E-01,-0.7327E-01,-0.8438E-01,
- *-0.9610E-01,-0.1084E+00,-0.1212E+00,-0.1345E+00,-0.1483E+00,
- *-0.1625E+00,-0.1771E+00,-0.1920E+00,-0.2071E+00,-0.2225E+00,
- *-0.2382E+00,-0.2539E+00,-0.2698E+00,-0.2857E+00,-0.3016E+00,
- *-0.3175E+00,-0.3333E+00,-0.3489E+00,-0.3643E+00,-0.3794E+00,
- *-0.3942E+00,-0.4086E+00,-0.4225E+00,-0.4359E+00,-0.4487E+00,
- *-0.4609E+00,-0.4667E+00,-0.4723E+00,-0.4829E+00,-0.4925E+00,
- *-0.5012E+00,-0.5089E+00,-0.5154E+00,-0.5207E+00,-0.5248E+00,
- *-0.5274E+00,-0.5286E+00,-0.5283E+00,-0.5264E+00,-0.5228E+00,
- *-0.5175E+00,-0.5104E+00,-0.5015E+00,-0.4908E+00,-0.4781E+00,
- *-0.4636E+00,-0.4471E+00,-0.4289E+00,-0.4088E+00,-0.3871E+00,
- *-0.3637E+00,-0.3388E+00,-0.3127E+00,-0.2855E+00,-0.2575E+00,
- *-0.2290E+00,-0.2003E+00,-0.1718E+00,-0.1439E+00,-0.1171E+00,
- *-0.9186E-01,-0.6871E-01,-0.4816E-01,-0.3071E-01,-0.1684E-01,
- *-0.6937E-02,-0.1326E-02, 0.1225E-19 /
- DATA ((QHR(i,j),j=1,83),i= 5, 5)/
- * 0.1282E-20,-0.2925E-03,-0.1539E-02,-0.3775E-02,-0.6990E-02,
- *-0.1117E-01,-0.1629E-01,-0.2232E-01,-0.2925E-01,-0.3704E-01,
- *-0.4565E-01,-0.5506E-01,-0.6522E-01,-0.7609E-01,-0.8765E-01,
- *-0.9984E-01,-0.1126E+00,-0.1260E+00,-0.1398E+00,-0.1541E+00,
- *-0.1689E+00,-0.1840E+00,-0.1995E+00,-0.2152E+00,-0.2312E+00,
- *-0.2474E+00,-0.2637E+00,-0.2801E+00,-0.2965E+00,-0.3129E+00,
- *-0.3292E+00,-0.3454E+00,-0.3614E+00,-0.3772E+00,-0.3926E+00,
- *-0.4076E+00,-0.4222E+00,-0.4363E+00,-0.4498E+00,-0.4626E+00,
- *-0.4747E+00,-0.4805E+00,-0.4860E+00,-0.4964E+00,-0.5058E+00,
- *-0.5142E+00,-0.5215E+00,-0.5275E+00,-0.5323E+00,-0.5357E+00,
- *-0.5377E+00,-0.5382E+00,-0.5371E+00,-0.5344E+00,-0.5300E+00,
- *-0.5237E+00,-0.5157E+00,-0.5059E+00,-0.4942E+00,-0.4806E+00,
- *-0.4651E+00,-0.4478E+00,-0.4287E+00,-0.4078E+00,-0.3853E+00,
- *-0.3613E+00,-0.3359E+00,-0.3094E+00,-0.2819E+00,-0.2537E+00,
- *-0.2251E+00,-0.1964E+00,-0.1681E+00,-0.1405E+00,-0.1141E+00,
- *-0.8934E-01,-0.6670E-01,-0.4667E-01,-0.2971E-01,-0.1627E-01,
- *-0.6697E-02,-0.1279E-02,-0.7240E-20 /
- DATA ((QHR(i,j),j=1,83),i= 6, 6)/
- * 0.1097E-20,-0.2990E-03,-0.1574E-02,-0.3861E-02,-0.7148E-02,
- *-0.1142E-01,-0.1666E-01,-0.2284E-01,-0.2993E-01,-0.3790E-01,
- *-0.4672E-01,-0.5635E-01,-0.6675E-01,-0.7789E-01,-0.8973E-01,
- *-0.1022E+00,-0.1153E+00,-0.1290E+00,-0.1432E+00,-0.1578E+00,
- *-0.1729E+00,-0.1884E+00,-0.2042E+00,-0.2203E+00,-0.2367E+00,
- *-0.2532E+00,-0.2698E+00,-0.2866E+00,-0.3033E+00,-0.3200E+00,
- *-0.3366E+00,-0.3531E+00,-0.3693E+00,-0.3853E+00,-0.4009E+00,
- *-0.4161E+00,-0.4308E+00,-0.4449E+00,-0.4585E+00,-0.4713E+00,
- *-0.4834E+00,-0.4891E+00,-0.4945E+00,-0.5048E+00,-0.5141E+00,
- *-0.5223E+00,-0.5293E+00,-0.5350E+00,-0.5395E+00,-0.5425E+00,
- *-0.5441E+00,-0.5441E+00,-0.5425E+00,-0.5393E+00,-0.5343E+00,
- *-0.5275E+00,-0.5189E+00,-0.5085E+00,-0.4962E+00,-0.4820E+00,
- *-0.4659E+00,-0.4481E+00,-0.4284E+00,-0.4071E+00,-0.3842E+00,
- *-0.3598E+00,-0.3341E+00,-0.3073E+00,-0.2796E+00,-0.2513E+00,
- *-0.2227E+00,-0.1941E+00,-0.1659E+00,-0.1385E+00,-0.1123E+00,
- *-0.8783E-01,-0.6549E-01,-0.4578E-01,-0.2912E-01,-0.1593E-01,
- *-0.6555E-02,-0.1252E-02,-0.3342E-20 /
- DATA ((QHR(i,j),j=1,83),i= 7, 7)/
- *-0.6691E-21,-0.3084E-03,-0.1623E-02,-0.3981E-02,-0.7372E-02,
- *-0.1178E-01,-0.1718E-01,-0.2356E-01,-0.3088E-01,-0.3911E-01,
- *-0.4822E-01,-0.5817E-01,-0.6892E-01,-0.8043E-01,-0.9266E-01,
- *-0.1056E+00,-0.1191E+00,-0.1332E+00,-0.1479E+00,-0.1630E+00,
- *-0.1786E+00,-0.1946E+00,-0.2109E+00,-0.2275E+00,-0.2444E+00,
- *-0.2614E+00,-0.2785E+00,-0.2957E+00,-0.3129E+00,-0.3300E+00,
- *-0.3470E+00,-0.3638E+00,-0.3803E+00,-0.3966E+00,-0.4124E+00,
- *-0.4278E+00,-0.4427E+00,-0.4569E+00,-0.4705E+00,-0.4833E+00,
- *-0.4952E+00,-0.5009E+00,-0.5063E+00,-0.5164E+00,-0.5254E+00,
- *-0.5332E+00,-0.5398E+00,-0.5452E+00,-0.5491E+00,-0.5516E+00,
- *-0.5526E+00,-0.5519E+00,-0.5496E+00,-0.5456E+00,-0.5399E+00,
- *-0.5323E+00,-0.5229E+00,-0.5116E+00,-0.4985E+00,-0.4835E+00,
- *-0.4667E+00,-0.4481E+00,-0.4277E+00,-0.4058E+00,-0.3823E+00,
- *-0.3574E+00,-0.3313E+00,-0.3041E+00,-0.2762E+00,-0.2478E+00,
- *-0.2192E+00,-0.1907E+00,-0.1627E+00,-0.1356E+00,-0.1098E+00,
- *-0.8571E-01,-0.6382E-01,-0.4454E-01,-0.2830E-01,-0.1547E-01,
- *-0.6359E-02,-0.1214E-02, 0.3529E-20 /
- DATA ((QHR(i,j),j=1,83),i= 8, 8)/
- * 0.1880E-20,-0.3196E-03,-0.1682E-02,-0.4127E-02,-0.7643E-02,
- *-0.1221E-01,-0.1782E-01,-0.2443E-01,-0.3203E-01,-0.4057E-01,
- *-0.5003E-01,-0.6036E-01,-0.7153E-01,-0.8348E-01,-0.9619E-01,
- *-0.1096E+00,-0.1237E+00,-0.1383E+00,-0.1535E+00,-0.1693E+00,
- *-0.1854E+00,-0.2020E+00,-0.2189E+00,-0.2361E+00,-0.2535E+00,
- *-0.2711E+00,-0.2888E+00,-0.3065E+00,-0.3242E+00,-0.3418E+00,
- *-0.3592E+00,-0.3765E+00,-0.3934E+00,-0.4099E+00,-0.4260E+00,
- *-0.4416E+00,-0.4566E+00,-0.4709E+00,-0.4845E+00,-0.4973E+00,
- *-0.5091E+00,-0.5147E+00,-0.5200E+00,-0.5298E+00,-0.5384E+00,
- *-0.5459E+00,-0.5520E+00,-0.5568E+00,-0.5601E+00,-0.5619E+00,
- *-0.5621E+00,-0.5607E+00,-0.5575E+00,-0.5526E+00,-0.5459E+00,
- *-0.5374E+00,-0.5271E+00,-0.5148E+00,-0.5007E+00,-0.4848E+00,
- *-0.4671E+00,-0.4476E+00,-0.4265E+00,-0.4038E+00,-0.3796E+00,
- *-0.3542E+00,-0.3277E+00,-0.3002E+00,-0.2721E+00,-0.2436E+00,
- *-0.2150E+00,-0.1867E+00,-0.1589E+00,-0.1322E+00,-0.1068E+00,
- *-0.8324E-01,-0.6187E-01,-0.4312E-01,-0.2736E-01,-0.1494E-01,
- *-0.6136E-02,-0.1171E-02, 0.4275E-20 /
- DATA ((QHR(i,j),j=1,83),i= 9, 9)/
- * 0.7396E-21,-0.3322E-03,-0.1749E-02,-0.4290E-02,-0.7945E-02,
- *-0.1270E-01,-0.1853E-01,-0.2541E-01,-0.3331E-01,-0.4220E-01,
- *-0.5204E-01,-0.6279E-01,-0.7442E-01,-0.8687E-01,-0.1001E+00,
- *-0.1141E+00,-0.1287E+00,-0.1440E+00,-0.1598E+00,-0.1761E+00,
- *-0.1930E+00,-0.2102E+00,-0.2277E+00,-0.2456E+00,-0.2636E+00,
- *-0.2818E+00,-0.3001E+00,-0.3184E+00,-0.3366E+00,-0.3547E+00,
- *-0.3727E+00,-0.3903E+00,-0.4076E+00,-0.4245E+00,-0.4409E+00,
- *-0.4567E+00,-0.4718E+00,-0.4862E+00,-0.4998E+00,-0.5125E+00,
- *-0.5242E+00,-0.5297E+00,-0.5348E+00,-0.5444E+00,-0.5526E+00,
- *-0.5596E+00,-0.5652E+00,-0.5694E+00,-0.5721E+00,-0.5731E+00,
- *-0.5725E+00,-0.5703E+00,-0.5662E+00,-0.5604E+00,-0.5527E+00,
- *-0.5432E+00,-0.5318E+00,-0.5186E+00,-0.5035E+00,-0.4866E+00,
- *-0.4680E+00,-0.4476E+00,-0.4257E+00,-0.4022E+00,-0.3774E+00,
- *-0.3514E+00,-0.3244E+00,-0.2966E+00,-0.2683E+00,-0.2397E+00,
- *-0.2111E+00,-0.1829E+00,-0.1554E+00,-0.1290E+00,-0.1041E+00,
- *-0.8096E-01,-0.6008E-01,-0.4181E-01,-0.2649E-01,-0.1445E-01,
- *-0.5930E-02,-0.1131E-02,-0.1693E-20 /
- DATA ((QHR(i,j),j=1,83),i=10,10)/
- *-0.6344E-21,-0.3452E-03,-0.1817E-02,-0.4459E-02,-0.8258E-02,
- *-0.1320E-01,-0.1926E-01,-0.2641E-01,-0.3463E-01,-0.4388E-01,
- *-0.5412E-01,-0.6530E-01,-0.7740E-01,-0.9035E-01,-0.1041E+00,
- *-0.1186E+00,-0.1339E+00,-0.1497E+00,-0.1662E+00,-0.1832E+00,
- *-0.2007E+00,-0.2185E+00,-0.2367E+00,-0.2552E+00,-0.2739E+00,
- *-0.2927E+00,-0.3116E+00,-0.3305E+00,-0.3493E+00,-0.3679E+00,
- *-0.3863E+00,-0.4044E+00,-0.4220E+00,-0.4393E+00,-0.4559E+00,
- *-0.4719E+00,-0.4872E+00,-0.5017E+00,-0.5152E+00,-0.5278E+00,
- *-0.5394E+00,-0.5448E+00,-0.5498E+00,-0.5590E+00,-0.5669E+00,
- *-0.5735E+00,-0.5785E+00,-0.5821E+00,-0.5841E+00,-0.5844E+00,
- *-0.5830E+00,-0.5799E+00,-0.5750E+00,-0.5682E+00,-0.5596E+00,
- *-0.5491E+00,-0.5367E+00,-0.5225E+00,-0.5065E+00,-0.4886E+00,
- *-0.4691E+00,-0.4479E+00,-0.4251E+00,-0.4010E+00,-0.3755E+00,
- *-0.3490E+00,-0.3216E+00,-0.2935E+00,-0.2649E+00,-0.2362E+00,
- *-0.2077E+00,-0.1796E+00,-0.1523E+00,-0.1262E+00,-0.1016E+00,
- *-0.7894E-01,-0.5849E-01,-0.4065E-01,-0.2573E-01,-0.1402E-01,
- *-0.5751E-02,-0.1096E-02,-0.4113E-20 /
- DATA ((QHR(i,j),j=1,83),i=11,11)/
- *-0.1154E-20,-0.3557E-03,-0.1872E-02,-0.4593E-02,-0.8508E-02,
- *-0.1360E-01,-0.1984E-01,-0.2722E-01,-0.3569E-01,-0.4522E-01,
- *-0.5577E-01,-0.6731E-01,-0.7977E-01,-0.9313E-01,-0.1073E+00,
- *-0.1223E+00,-0.1380E+00,-0.1543E+00,-0.1713E+00,-0.1888E+00,
- *-0.2068E+00,-0.2251E+00,-0.2439E+00,-0.2628E+00,-0.2820E+00,
- *-0.3013E+00,-0.3207E+00,-0.3400E+00,-0.3592E+00,-0.3782E+00,
- *-0.3970E+00,-0.4154E+00,-0.4333E+00,-0.4508E+00,-0.4676E+00,
- *-0.4837E+00,-0.4991E+00,-0.5136E+00,-0.5272E+00,-0.5397E+00,
- *-0.5511E+00,-0.5564E+00,-0.5613E+00,-0.5703E+00,-0.5778E+00,
- *-0.5840E+00,-0.5886E+00,-0.5917E+00,-0.5931E+00,-0.5929E+00,
- *-0.5908E+00,-0.5870E+00,-0.5814E+00,-0.5739E+00,-0.5645E+00,
- *-0.5533E+00,-0.5402E+00,-0.5252E+00,-0.5084E+00,-0.4898E+00,
- *-0.4696E+00,-0.4477E+00,-0.4244E+00,-0.3997E+00,-0.3738E+00,
- *-0.3469E+00,-0.3192E+00,-0.2908E+00,-0.2622E+00,-0.2335E+00,
- *-0.2049E+00,-0.1770E+00,-0.1499E+00,-0.1240E+00,-0.9976E-01,
- *-0.7738E-01,-0.5728E-01,-0.3977E-01,-0.2515E-01,-0.1369E-01,
- *-0.5614E-02,-0.1070E-02,-0.6524E-20 /
- DATA ((QHR(i,j),j=1,83),i=12,12)/
- * 0.2554E-21,-0.3620E-03,-0.1906E-02,-0.4675E-02,-0.8660E-02,
- *-0.1384E-01,-0.2020E-01,-0.2771E-01,-0.3633E-01,-0.4603E-01,
- *-0.5678E-01,-0.6852E-01,-0.8121E-01,-0.9481E-01,-0.1093E+00,
- *-0.1245E+00,-0.1405E+00,-0.1571E+00,-0.1744E+00,-0.1922E+00,
- *-0.2104E+00,-0.2291E+00,-0.2481E+00,-0.2674E+00,-0.2869E+00,
- *-0.3065E+00,-0.3261E+00,-0.3457E+00,-0.3652E+00,-0.3844E+00,
- *-0.4034E+00,-0.4220E+00,-0.4401E+00,-0.4576E+00,-0.4746E+00,
- *-0.4908E+00,-0.5062E+00,-0.5207E+00,-0.5342E+00,-0.5467E+00,
- *-0.5580E+00,-0.5632E+00,-0.5681E+00,-0.5768E+00,-0.5842E+00,
- *-0.5901E+00,-0.5945E+00,-0.5972E+00,-0.5983E+00,-0.5977E+00,
- *-0.5953E+00,-0.5911E+00,-0.5850E+00,-0.5771E+00,-0.5672E+00,
- *-0.5555E+00,-0.5419E+00,-0.5265E+00,-0.5093E+00,-0.4903E+00,
- *-0.4697E+00,-0.4474E+00,-0.4238E+00,-0.3988E+00,-0.3726E+00,
- *-0.3455E+00,-0.3176E+00,-0.2892E+00,-0.2604E+00,-0.2317E+00,
- *-0.2032E+00,-0.1754E+00,-0.1484E+00,-0.1227E+00,-0.9861E-01,
- *-0.7644E-01,-0.5654E-01,-0.3923E-01,-0.2480E-01,-0.1350E-01,
- *-0.5533E-02,-0.1054E-02, 0.1626E-20 /
- DATA ((QHR(i,j),j=1,83),i=13,13)/
- * 0.4116E-22,-0.3790E-03,-0.1995E-02,-0.4895E-02,-0.9068E-02,
- *-0.1449E-01,-0.2115E-01,-0.2901E-01,-0.3804E-01,-0.4821E-01,
- *-0.5946E-01,-0.7176E-01,-0.8506E-01,-0.9929E-01,-0.1144E+00,
- *-0.1304E+00,-0.1471E+00,-0.1645E+00,-0.1825E+00,-0.2011E+00,
- *-0.2202E+00,-0.2397E+00,-0.2595E+00,-0.2796E+00,-0.2998E+00,
- *-0.3202E+00,-0.3405E+00,-0.3608E+00,-0.3809E+00,-0.4007E+00,
- *-0.4202E+00,-0.4393E+00,-0.4578E+00,-0.4757E+00,-0.4929E+00,
- *-0.5093E+00,-0.5248E+00,-0.5393E+00,-0.5528E+00,-0.5651E+00,
- *-0.5761E+00,-0.5811E+00,-0.5858E+00,-0.5941E+00,-0.6010E+00,
- *-0.6062E+00,-0.6099E+00,-0.6118E+00,-0.6120E+00,-0.6105E+00,
- *-0.6071E+00,-0.6018E+00,-0.5946E+00,-0.5855E+00,-0.5746E+00,
- *-0.5617E+00,-0.5469E+00,-0.5304E+00,-0.5120E+00,-0.4920E+00,
- *-0.4703E+00,-0.4472E+00,-0.4226E+00,-0.3969E+00,-0.3701E+00,
- *-0.3424E+00,-0.3141E+00,-0.2854E+00,-0.2565E+00,-0.2277E+00,
- *-0.1993E+00,-0.1717E+00,-0.1450E+00,-0.1197E+00,-0.9599E-01,
- *-0.7429E-01,-0.5487E-01,-0.3802E-01,-0.2401E-01,-0.1305E-01,
- *-0.5347E-02,-0.1019E-02, 0.8105E-21 /
- DATA ((QHR(i,j),j=1,83),i=14,14)/
- * 0.2315E-20,-0.4024E-03,-0.2118E-02,-0.5198E-02,-0.9628E-02,
- *-0.1539E-01,-0.2246E-01,-0.3081E-01,-0.4040E-01,-0.5119E-01,
- *-0.6314E-01,-0.7620E-01,-0.9031E-01,-0.1054E+00,-0.1215E+00,
- *-0.1384E+00,-0.1561E+00,-0.1745E+00,-0.1936E+00,-0.2132E+00,
- *-0.2334E+00,-0.2540E+00,-0.2748E+00,-0.2960E+00,-0.3172E+00,
- *-0.3386E+00,-0.3598E+00,-0.3810E+00,-0.4019E+00,-0.4225E+00,
- *-0.4427E+00,-0.4623E+00,-0.4813E+00,-0.4996E+00,-0.5171E+00,
- *-0.5337E+00,-0.5493E+00,-0.5638E+00,-0.5770E+00,-0.5890E+00,
- *-0.5997E+00,-0.6045E+00,-0.6089E+00,-0.6165E+00,-0.6226E+00,
- *-0.6270E+00,-0.6296E+00,-0.6305E+00,-0.6295E+00,-0.6267E+00,
- *-0.6219E+00,-0.6152E+00,-0.6066E+00,-0.5961E+00,-0.5836E+00,
- *-0.5692E+00,-0.5530E+00,-0.5349E+00,-0.5152E+00,-0.4938E+00,
- *-0.4709E+00,-0.4466E+00,-0.4210E+00,-0.3943E+00,-0.3668E+00,
- *-0.3385E+00,-0.3097E+00,-0.2806E+00,-0.2516E+00,-0.2228E+00,
- *-0.1945E+00,-0.1671E+00,-0.1408E+00,-0.1160E+00,-0.9283E-01,
- *-0.7171E-01,-0.5287E-01,-0.3658E-01,-0.2307E-01,-0.1253E-01,
- *-0.5129E-02,-0.9767E-03, 0.1071E-20 /
- DATA ((QHR(i,j),j=1,83),i=15,15)/
- * 0.1785E-20,-0.4690E-03,-0.2469E-02,-0.6057E-02,-0.1122E-01,
- *-0.1793E-01,-0.2616E-01,-0.3588E-01,-0.4703E-01,-0.5958E-01,
- *-0.7346E-01,-0.8861E-01,-0.1050E+00,-0.1225E+00,-0.1410E+00,
- *-0.1605E+00,-0.1809E+00,-0.2021E+00,-0.2239E+00,-0.2464E+00,
- *-0.2693E+00,-0.2926E+00,-0.3162E+00,-0.3400E+00,-0.3638E+00,
- *-0.3875E+00,-0.4110E+00,-0.4342E+00,-0.4571E+00,-0.4793E+00,
- *-0.5009E+00,-0.5217E+00,-0.5417E+00,-0.5606E+00,-0.5784E+00,
- *-0.5950E+00,-0.6103E+00,-0.6242E+00,-0.6365E+00,-0.6473E+00,
- *-0.6564E+00,-0.6602E+00,-0.6637E+00,-0.6692E+00,-0.6728E+00,
- *-0.6744E+00,-0.6741E+00,-0.6718E+00,-0.6674E+00,-0.6610E+00,
- *-0.6526E+00,-0.6421E+00,-0.6297E+00,-0.6153E+00,-0.5990E+00,
- *-0.5808E+00,-0.5609E+00,-0.5394E+00,-0.5163E+00,-0.4919E+00,
- *-0.4662E+00,-0.4393E+00,-0.4116E+00,-0.3831E+00,-0.3541E+00,
- *-0.3247E+00,-0.2952E+00,-0.2659E+00,-0.2370E+00,-0.2086E+00,
- *-0.1811E+00,-0.1547E+00,-0.1297E+00,-0.1063E+00,-0.8467E-01,
- *-0.6512E-01,-0.4783E-01,-0.3298E-01,-0.2074E-01,-0.1124E-01,
- *-0.4594E-02,-0.8741E-03,-0.2349E-20 /
- DATA ((QHR(i,j),j=1,83),i=16,16)/
- *-0.1552E-21,-0.5045E-03,-0.2655E-02,-0.6514E-02,-0.1206E-01,
- *-0.1928E-01,-0.2813E-01,-0.3856E-01,-0.5054E-01,-0.6400E-01,
- *-0.7889E-01,-0.9513E-01,-0.1126E+00,-0.1313E+00,-0.1512E+00,
- *-0.1720E+00,-0.1937E+00,-0.2162E+00,-0.2395E+00,-0.2633E+00,
- *-0.2876E+00,-0.3122E+00,-0.3371E+00,-0.3621E+00,-0.3870E+00,
- *-0.4118E+00,-0.4363E+00,-0.4604E+00,-0.4840E+00,-0.5069E+00,
- *-0.5290E+00,-0.5502E+00,-0.5703E+00,-0.5893E+00,-0.6071E+00,
- *-0.6234E+00,-0.6383E+00,-0.6516E+00,-0.6633E+00,-0.6732E+00,
- *-0.6812E+00,-0.6845E+00,-0.6874E+00,-0.6916E+00,-0.6938E+00,
- *-0.6939E+00,-0.6920E+00,-0.6880E+00,-0.6819E+00,-0.6737E+00,
- *-0.6634E+00,-0.6511E+00,-0.6368E+00,-0.6206E+00,-0.6025E+00,
- *-0.5827E+00,-0.5612E+00,-0.5381E+00,-0.5137E+00,-0.4880E+00,
- *-0.4611E+00,-0.4334E+00,-0.4049E+00,-0.3758E+00,-0.3463E+00,
- *-0.3168E+00,-0.2872E+00,-0.2580E+00,-0.2293E+00,-0.2014E+00,
- *-0.1744E+00,-0.1487E+00,-0.1244E+00,-0.1017E+00,-0.8086E-01,
- *-0.6209E-01,-0.4553E-01,-0.3136E-01,-0.1970E-01,-0.1067E-01,
- *-0.4357E-02,-0.8287E-03, 0.2536E-20 /
- DATA ((QHR(i,j),j=1,83),i=17,17)/
- * 0.5632E-21,-0.5159E-03,-0.2715E-02,-0.6661E-02,-0.1234E-01,
- *-0.1971E-01,-0.2876E-01,-0.3943E-01,-0.5167E-01,-0.6542E-01,
- *-0.8063E-01,-0.9722E-01,-0.1151E+00,-0.1342E+00,-0.1544E+00,
- *-0.1756E+00,-0.1978E+00,-0.2208E+00,-0.2444E+00,-0.2687E+00,
- *-0.2934E+00,-0.3184E+00,-0.3437E+00,-0.3690E+00,-0.3943E+00,
- *-0.4194E+00,-0.4442E+00,-0.4686E+00,-0.4924E+00,-0.5155E+00,
- *-0.5377E+00,-0.5590E+00,-0.5792E+00,-0.5982E+00,-0.6159E+00,
- *-0.6322E+00,-0.6469E+00,-0.6600E+00,-0.6714E+00,-0.6810E+00,
- *-0.6888E+00,-0.6919E+00,-0.6946E+00,-0.6983E+00,-0.7001E+00,
- *-0.6998E+00,-0.6973E+00,-0.6928E+00,-0.6861E+00,-0.6774E+00,
- *-0.6665E+00,-0.6537E+00,-0.6388E+00,-0.6221E+00,-0.6035E+00,
- *-0.5831E+00,-0.5612E+00,-0.5377E+00,-0.5128E+00,-0.4868E+00,
- *-0.4596E+00,-0.4316E+00,-0.4029E+00,-0.3737E+00,-0.3441E+00,
- *-0.3145E+00,-0.2850E+00,-0.2558E+00,-0.2272E+00,-0.1993E+00,
- *-0.1725E+00,-0.1470E+00,-0.1229E+00,-0.1004E+00,-0.7981E-01,
- *-0.6125E-01,-0.4490E-01,-0.3091E-01,-0.1941E-01,-0.1051E-01,
- *-0.4292E-02,-0.8162E-03, 0.1507E-21 /
- DATA ((QHR(i,j),j=1,83),i=18,18)/
- * 0.7582E-21,-0.5405E-03,-0.2845E-02,-0.6979E-02,-0.1292E-01,
- *-0.2065E-01,-0.3012E-01,-0.4128E-01,-0.5409E-01,-0.6848E-01,
- *-0.8438E-01,-0.1017E+00,-0.1204E+00,-0.1403E+00,-0.1614E+00,
- *-0.1835E+00,-0.2065E+00,-0.2304E+00,-0.2550E+00,-0.2801E+00,
- *-0.3057E+00,-0.3316E+00,-0.3576E+00,-0.3837E+00,-0.4097E+00,
- *-0.4355E+00,-0.4609E+00,-0.4857E+00,-0.5099E+00,-0.5333E+00,
- *-0.5558E+00,-0.5773E+00,-0.5975E+00,-0.6165E+00,-0.6340E+00,
- *-0.6500E+00,-0.6644E+00,-0.6770E+00,-0.6878E+00,-0.6968E+00,
- *-0.7037E+00,-0.7064E+00,-0.7087E+00,-0.7115E+00,-0.7123E+00,
- *-0.7109E+00,-0.7074E+00,-0.7017E+00,-0.6939E+00,-0.6840E+00,
- *-0.6720E+00,-0.6580E+00,-0.6420E+00,-0.6241E+00,-0.6044E+00,
- *-0.5831E+00,-0.5602E+00,-0.5358E+00,-0.5102E+00,-0.4834E+00,
- *-0.4557E+00,-0.4272E+00,-0.3981E+00,-0.3686E+00,-0.3389E+00,
- *-0.3092E+00,-0.2798E+00,-0.2507E+00,-0.2224E+00,-0.1949E+00,
- *-0.1684E+00,-0.1433E+00,-0.1196E+00,-0.9766E-01,-0.7755E-01,
- *-0.5946E-01,-0.4355E-01,-0.2996E-01,-0.1880E-01,-0.1018E-01,
- *-0.4155E-02,-0.7900E-03,-0.5265E-20 /
- DATA ((QHR(i,j),j=1,83),i=19,19)/
- *-0.3864E-21,-0.5597E-03,-0.2946E-02,-0.7226E-02,-0.1338E-01,
- *-0.2138E-01,-0.3118E-01,-0.4273E-01,-0.5597E-01,-0.7085E-01,
- *-0.8727E-01,-0.1052E+00,-0.1244E+00,-0.1450E+00,-0.1667E+00,
- *-0.1895E+00,-0.2132E+00,-0.2378E+00,-0.2630E+00,-0.2888E+00,
- *-0.3150E+00,-0.3416E+00,-0.3682E+00,-0.3949E+00,-0.4214E+00,
- *-0.4476E+00,-0.4734E+00,-0.4986E+00,-0.5230E+00,-0.5466E+00,
- *-0.5693E+00,-0.5907E+00,-0.6110E+00,-0.6298E+00,-0.6472E+00,
- *-0.6629E+00,-0.6770E+00,-0.6892E+00,-0.6995E+00,-0.7079E+00,
- *-0.7143E+00,-0.7167E+00,-0.7185E+00,-0.7207E+00,-0.7207E+00,
- *-0.7185E+00,-0.7141E+00,-0.7076E+00,-0.6989E+00,-0.6881E+00,
- *-0.6752E+00,-0.6603E+00,-0.6435E+00,-0.6248E+00,-0.6044E+00,
- *-0.5823E+00,-0.5588E+00,-0.5338E+00,-0.5077E+00,-0.4804E+00,
- *-0.4523E+00,-0.4235E+00,-0.3942E+00,-0.3646E+00,-0.3348E+00,
- *-0.3051E+00,-0.2758E+00,-0.2469E+00,-0.2187E+00,-0.1915E+00,
- *-0.1654E+00,-0.1405E+00,-0.1172E+00,-0.9564E-01,-0.7589E-01,
- *-0.5815E-01,-0.4257E-01,-0.2927E-01,-0.1836E-01,-0.9935E-02,
- *-0.4055E-02,-0.7710E-03, 0.2937E-20 /
- DATA ((QHR(i,j),j=1,83),i=20,20)/
- *-0.3946E-21,-0.6127E-03,-0.3225E-02,-0.7908E-02,-0.1464E-01,
- *-0.2338E-01,-0.3409E-01,-0.4669E-01,-0.6114E-01,-0.7733E-01,
- *-0.9520E-01,-0.1146E+00,-0.1355E+00,-0.1577E+00,-0.1812E+00,
- *-0.2057E+00,-0.2312E+00,-0.2575E+00,-0.2845E+00,-0.3120E+00,
- *-0.3398E+00,-0.3678E+00,-0.3959E+00,-0.4238E+00,-0.4514E+00,
- *-0.4786E+00,-0.5052E+00,-0.5311E+00,-0.5560E+00,-0.5798E+00,
- *-0.6025E+00,-0.6238E+00,-0.6436E+00,-0.6619E+00,-0.6784E+00,
- *-0.6932E+00,-0.7060E+00,-0.7168E+00,-0.7256E+00,-0.7322E+00,
- *-0.7367E+00,-0.7381E+00,-0.7390E+00,-0.7390E+00,-0.7368E+00,
- *-0.7324E+00,-0.7257E+00,-0.7168E+00,-0.7058E+00,-0.6927E+00,
- *-0.6776E+00,-0.6605E+00,-0.6416E+00,-0.6210E+00,-0.5988E+00,
- *-0.5751E+00,-0.5500E+00,-0.5238E+00,-0.4966E+00,-0.4685E+00,
- *-0.4397E+00,-0.4105E+00,-0.3809E+00,-0.3512E+00,-0.3216E+00,
- *-0.2923E+00,-0.2635E+00,-0.2353E+00,-0.2079E+00,-0.1816E+00,
- *-0.1565E+00,-0.1327E+00,-0.1105E+00,-0.8997E-01,-0.7127E-01,
- *-0.5453E-01,-0.3987E-01,-0.2739E-01,-0.1717E-01,-0.9281E-02,
- *-0.3786E-02,-0.7197E-03,-0.1517E-20 /
-c************** MIE (phase fun uh) ***************
- DATA ((UHR(i,j),j=1,83),i= 1, 1)/
- *-0.4446E+00,-0.4445E+00,-0.4440E+00,-0.4431E+00,-0.4418E+00,
- *-0.4401E+00,-0.4380E+00,-0.4355E+00,-0.4325E+00,-0.4291E+00,
- *-0.4253E+00,-0.4209E+00,-0.4160E+00,-0.4106E+00,-0.4047E+00,
- *-0.3982E+00,-0.3910E+00,-0.3833E+00,-0.3749E+00,-0.3658E+00,
- *-0.3560E+00,-0.3455E+00,-0.3341E+00,-0.3219E+00,-0.3088E+00,
- *-0.2948E+00,-0.2798E+00,-0.2637E+00,-0.2465E+00,-0.2281E+00,
- *-0.2084E+00,-0.1873E+00,-0.1648E+00,-0.1408E+00,-0.1151E+00,
- *-0.8759E-01,-0.5824E-01,-0.2689E-01, 0.6618E-02, 0.4241E-01,
- * 0.8066E-01, 0.1007E+00, 0.1215E+00, 0.1652E+00, 0.2118E+00,
- * 0.2615E+00, 0.3147E+00, 0.3714E+00, 0.4319E+00, 0.4964E+00,
- * 0.5652E+00, 0.6386E+00, 0.7166E+00, 0.7998E+00, 0.8881E+00,
- * 0.9821E+00, 0.1082E+01, 0.1187E+01, 0.1299E+01, 0.1418E+01,
- * 0.1543E+01, 0.1674E+01, 0.1813E+01, 0.1958E+01, 0.2110E+01,
- * 0.2268E+01, 0.2433E+01, 0.2603E+01, 0.2779E+01, 0.2958E+01,
- * 0.3141E+01, 0.3326E+01, 0.3510E+01, 0.3692E+01, 0.3870E+01,
- * 0.4039E+01, 0.4198E+01, 0.4342E+01, 0.4467E+01, 0.4568E+01,
- * 0.4642E+01, 0.4685E+01, 0.4695E+01 /
- DATA ((UHR(i,j),j=1,83),i= 2, 2)/
- *-0.4907E+00,-0.4905E+00,-0.4900E+00,-0.4890E+00,-0.4875E+00,
- *-0.4856E+00,-0.4832E+00,-0.4803E+00,-0.4770E+00,-0.4731E+00,
- *-0.4687E+00,-0.4637E+00,-0.4582E+00,-0.4521E+00,-0.4454E+00,
- *-0.4380E+00,-0.4300E+00,-0.4212E+00,-0.4118E+00,-0.4016E+00,
- *-0.3906E+00,-0.3787E+00,-0.3660E+00,-0.3524E+00,-0.3378E+00,
- *-0.3222E+00,-0.3054E+00,-0.2876E+00,-0.2686E+00,-0.2482E+00,
- *-0.2266E+00,-0.2035E+00,-0.1789E+00,-0.1527E+00,-0.1247E+00,
- *-0.9501E-01,-0.6336E-01,-0.2968E-01, 0.6164E-02, 0.4430E-01,
- * 0.8486E-01, 0.1061E+00, 0.1280E+00, 0.1739E+00, 0.2226E+00,
- * 0.2744E+00, 0.3294E+00, 0.3879E+00, 0.4499E+00, 0.5157E+00,
- * 0.5854E+00, 0.6593E+00, 0.7375E+00, 0.8203E+00, 0.9078E+00,
- * 0.1000E+01, 0.1098E+01, 0.1200E+01, 0.1308E+01, 0.1422E+01,
- * 0.1540E+01, 0.1665E+01, 0.1794E+01, 0.1929E+01, 0.2070E+01,
- * 0.2215E+01, 0.2364E+01, 0.2517E+01, 0.2674E+01, 0.2832E+01,
- * 0.2992E+01, 0.3152E+01, 0.3310E+01, 0.3465E+01, 0.3615E+01,
- * 0.3756E+01, 0.3887E+01, 0.4004E+01, 0.4104E+01, 0.4185E+01,
- * 0.4244E+01, 0.4277E+01, 0.4285E+01 /
- DATA ((UHR(i,j),j=1,83),i= 3, 3)/
- *-0.5012E+00,-0.5010E+00,-0.5005E+00,-0.4994E+00,-0.4979E+00,
- *-0.4960E+00,-0.4935E+00,-0.4905E+00,-0.4871E+00,-0.4831E+00,
- *-0.4786E+00,-0.4735E+00,-0.4678E+00,-0.4615E+00,-0.4546E+00,
- *-0.4470E+00,-0.4388E+00,-0.4298E+00,-0.4201E+00,-0.4097E+00,
- *-0.3984E+00,-0.3863E+00,-0.3732E+00,-0.3593E+00,-0.3443E+00,
- *-0.3283E+00,-0.3112E+00,-0.2930E+00,-0.2735E+00,-0.2528E+00,
- *-0.2307E+00,-0.2071E+00,-0.1821E+00,-0.1554E+00,-0.1270E+00,
- *-0.9675E-01,-0.6460E-01,-0.3042E-01, 0.5929E-02, 0.4456E-01,
- * 0.8562E-01, 0.1071E+00, 0.1292E+00, 0.1756E+00, 0.2248E+00,
- * 0.2770E+00, 0.3324E+00, 0.3912E+00, 0.4535E+00, 0.5195E+00,
- * 0.5894E+00, 0.6633E+00, 0.7415E+00, 0.8242E+00, 0.9114E+00,
- * 0.1003E+01, 0.1100E+01, 0.1202E+01, 0.1309E+01, 0.1421E+01,
- * 0.1539E+01, 0.1662E+01, 0.1789E+01, 0.1922E+01, 0.2060E+01,
- * 0.2202E+01, 0.2348E+01, 0.2498E+01, 0.2650E+01, 0.2805E+01,
- * 0.2960E+01, 0.3115E+01, 0.3268E+01, 0.3418E+01, 0.3561E+01,
- * 0.3697E+01, 0.3823E+01, 0.3935E+01, 0.4031E+01, 0.4108E+01,
- * 0.4163E+01, 0.4195E+01, 0.4203E+01 /
- DATA ((UHR(i,j),j=1,83),i= 4, 4)/
- *-0.5274E+00,-0.5272E+00,-0.5266E+00,-0.5255E+00,-0.5239E+00,
- *-0.5218E+00,-0.5191E+00,-0.5160E+00,-0.5123E+00,-0.5080E+00,
- *-0.5031E+00,-0.4977E+00,-0.4916E+00,-0.4849E+00,-0.4776E+00,
- *-0.4695E+00,-0.4607E+00,-0.4512E+00,-0.4409E+00,-0.4297E+00,
- *-0.4178E+00,-0.4049E+00,-0.3911E+00,-0.3763E+00,-0.3605E+00,
- *-0.3436E+00,-0.3256E+00,-0.3064E+00,-0.2859E+00,-0.2641E+00,
- *-0.2409E+00,-0.2163E+00,-0.1901E+00,-0.1622E+00,-0.1326E+00,
- *-0.1012E+00,-0.6781E-01,-0.3241E-01, 0.5143E-02, 0.4498E-01,
- * 0.8721E-01, 0.1093E+00, 0.1320E+00, 0.1794E+00, 0.2296E+00,
- * 0.2828E+00, 0.3391E+00, 0.3986E+00, 0.4616E+00, 0.5281E+00,
- * 0.5983E+00, 0.6723E+00, 0.7504E+00, 0.8327E+00, 0.9192E+00,
- * 0.1010E+01, 0.1106E+01, 0.1206E+01, 0.1310E+01, 0.1420E+01,
- * 0.1534E+01, 0.1653E+01, 0.1776E+01, 0.1904E+01, 0.2035E+01,
- * 0.2171E+01, 0.2309E+01, 0.2451E+01, 0.2594E+01, 0.2738E+01,
- * 0.2883E+01, 0.3027E+01, 0.3168E+01, 0.3305E+01, 0.3436E+01,
- * 0.3559E+01, 0.3673E+01, 0.3773E+01, 0.3859E+01, 0.3928E+01,
- * 0.3977E+01, 0.4005E+01, 0.4012E+01 /
- DATA ((UHR(i,j),j=1,83),i= 5, 5)/
- *-0.5491E+00,-0.5490E+00,-0.5483E+00,-0.5472E+00,-0.5455E+00,
- *-0.5432E+00,-0.5404E+00,-0.5371E+00,-0.5332E+00,-0.5287E+00,
- *-0.5235E+00,-0.5178E+00,-0.5114E+00,-0.5043E+00,-0.4966E+00,
- *-0.4881E+00,-0.4789E+00,-0.4688E+00,-0.4580E+00,-0.4463E+00,
- *-0.4338E+00,-0.4203E+00,-0.4058E+00,-0.3904E+00,-0.3739E+00,
- *-0.3562E+00,-0.3374E+00,-0.3174E+00,-0.2961E+00,-0.2735E+00,
- *-0.2494E+00,-0.2238E+00,-0.1967E+00,-0.1679E+00,-0.1373E+00,
- *-0.1049E+00,-0.7061E-01,-0.3424E-01, 0.4279E-02, 0.4506E-01,
- * 0.8821E-01, 0.1107E+00, 0.1339E+00, 0.1821E+00, 0.2332E+00,
- * 0.2871E+00, 0.3440E+00, 0.4041E+00, 0.4675E+00, 0.5343E+00,
- * 0.6047E+00, 0.6788E+00, 0.7567E+00, 0.8385E+00, 0.9244E+00,
- * 0.1014E+01, 0.1109E+01, 0.1207E+01, 0.1310E+01, 0.1417E+01,
- * 0.1529E+01, 0.1644E+01, 0.1764E+01, 0.1887E+01, 0.2014E+01,
- * 0.2144E+01, 0.2277E+01, 0.2412E+01, 0.2548E+01, 0.2685E+01,
- * 0.2822E+01, 0.2957E+01, 0.3089E+01, 0.3217E+01, 0.3339E+01,
- * 0.3453E+01, 0.3558E+01, 0.3650E+01, 0.3729E+01, 0.3791E+01,
- * 0.3836E+01, 0.3862E+01, 0.3868E+01 /
- DATA ((UHR(i,j),j=1,83),i= 6, 6)/
- *-0.5632E+00,-0.5630E+00,-0.5623E+00,-0.5611E+00,-0.5593E+00,
- *-0.5570E+00,-0.5541E+00,-0.5507E+00,-0.5466E+00,-0.5419E+00,
- *-0.5366E+00,-0.5307E+00,-0.5241E+00,-0.5168E+00,-0.5088E+00,
- *-0.5000E+00,-0.4905E+00,-0.4802E+00,-0.4690E+00,-0.4570E+00,
- *-0.4440E+00,-0.4302E+00,-0.4153E+00,-0.3994E+00,-0.3824E+00,
- *-0.3643E+00,-0.3450E+00,-0.3245E+00,-0.3027E+00,-0.2795E+00,
- *-0.2548E+00,-0.2287E+00,-0.2009E+00,-0.1715E+00,-0.1404E+00,
- *-0.1074E+00,-0.7246E-01,-0.3549E-01, 0.3626E-02, 0.4499E-01,
- * 0.8871E-01, 0.1115E+00, 0.1349E+00, 0.1837E+00, 0.2352E+00,
- * 0.2896E+00, 0.3469E+00, 0.4073E+00, 0.4710E+00, 0.5380E+00,
- * 0.6084E+00, 0.6825E+00, 0.7602E+00, 0.8418E+00, 0.9272E+00,
- * 0.1017E+01, 0.1110E+01, 0.1208E+01, 0.1309E+01, 0.1415E+01,
- * 0.1525E+01, 0.1638E+01, 0.1756E+01, 0.1876E+01, 0.2000E+01,
- * 0.2127E+01, 0.2256E+01, 0.2387E+01, 0.2519E+01, 0.2652E+01,
- * 0.2783E+01, 0.2913E+01, 0.3040E+01, 0.3163E+01, 0.3279E+01,
- * 0.3388E+01, 0.3488E+01, 0.3575E+01, 0.3650E+01, 0.3709E+01,
- * 0.3751E+01, 0.3775E+01, 0.3781E+01 /
- DATA ((UHR(i,j),j=1,83),i= 7, 7)/
- *-0.5829E+00,-0.5827E+00,-0.5820E+00,-0.5807E+00,-0.5789E+00,
- *-0.5764E+00,-0.5734E+00,-0.5697E+00,-0.5655E+00,-0.5606E+00,
- *-0.5550E+00,-0.5488E+00,-0.5419E+00,-0.5343E+00,-0.5259E+00,
- *-0.5167E+00,-0.5068E+00,-0.4960E+00,-0.4844E+00,-0.4718E+00,
- *-0.4583E+00,-0.4439E+00,-0.4284E+00,-0.4119E+00,-0.3943E+00,
- *-0.3755E+00,-0.3555E+00,-0.3342E+00,-0.3116E+00,-0.2876E+00,
- *-0.2622E+00,-0.2353E+00,-0.2067E+00,-0.1765E+00,-0.1445E+00,
- *-0.1106E+00,-0.7482E-01,-0.3700E-01, 0.2946E-02, 0.4512E-01,
- * 0.8964E-01, 0.1128E+00, 0.1366E+00, 0.1861E+00, 0.2383E+00,
- * 0.2932E+00, 0.3511E+00, 0.4119E+00, 0.4759E+00, 0.5431E+00,
- * 0.6136E+00, 0.6876E+00, 0.7651E+00, 0.8462E+00, 0.9311E+00,
- * 0.1020E+01, 0.1112E+01, 0.1208E+01, 0.1308E+01, 0.1412E+01,
- * 0.1519E+01, 0.1630E+01, 0.1744E+01, 0.1861E+01, 0.1981E+01,
- * 0.2103E+01, 0.2228E+01, 0.2353E+01, 0.2480E+01, 0.2606E+01,
- * 0.2731E+01, 0.2854E+01, 0.2974E+01, 0.3089E+01, 0.3199E+01,
- * 0.3300E+01, 0.3393E+01, 0.3474E+01, 0.3543E+01, 0.3598E+01,
- * 0.3637E+01, 0.3659E+01, 0.3664E+01 /
- DATA ((UHR(i,j),j=1,83),i= 8, 8)/
- *-0.6066E+00,-0.6064E+00,-0.6057E+00,-0.6043E+00,-0.6024E+00,
- *-0.5998E+00,-0.5966E+00,-0.5927E+00,-0.5882E+00,-0.5830E+00,
- *-0.5772E+00,-0.5706E+00,-0.5633E+00,-0.5552E+00,-0.5464E+00,
- *-0.5367E+00,-0.5263E+00,-0.5149E+00,-0.5027E+00,-0.4895E+00,
- *-0.4754E+00,-0.4602E+00,-0.4440E+00,-0.4267E+00,-0.4083E+00,
- *-0.3887E+00,-0.3678E+00,-0.3457E+00,-0.3222E+00,-0.2972E+00,
- *-0.2708E+00,-0.2429E+00,-0.2134E+00,-0.1821E+00,-0.1491E+00,
- *-0.1142E+00,-0.7744E-01,-0.3862E-01, 0.2302E-02, 0.4543E-01,
- * 0.9086E-01, 0.1145E+00, 0.1387E+00, 0.1890E+00, 0.2419E+00,
- * 0.2976E+00, 0.3560E+00, 0.4173E+00, 0.4816E+00, 0.5490E+00,
- * 0.6196E+00, 0.6934E+00, 0.7706E+00, 0.8512E+00, 0.9352E+00,
- * 0.1023E+01, 0.1114E+01, 0.1208E+01, 0.1306E+01, 0.1407E+01,
- * 0.1511E+01, 0.1619E+01, 0.1729E+01, 0.1842E+01, 0.1958E+01,
- * 0.2075E+01, 0.2194E+01, 0.2313E+01, 0.2433E+01, 0.2552E+01,
- * 0.2670E+01, 0.2785E+01, 0.2897E+01, 0.3005E+01, 0.3106E+01,
- * 0.3200E+01, 0.3285E+01, 0.3360E+01, 0.3423E+01, 0.3473E+01,
- * 0.3508E+01, 0.3528E+01, 0.3533E+01 /
- DATA ((UHR(i,j),j=1,83),i= 9, 9)/
- *-0.6338E+00,-0.6336E+00,-0.6328E+00,-0.6314E+00,-0.6293E+00,
- *-0.6265E+00,-0.6231E+00,-0.6190E+00,-0.6142E+00,-0.6087E+00,
- *-0.6025E+00,-0.5955E+00,-0.5878E+00,-0.5792E+00,-0.5699E+00,
- *-0.5597E+00,-0.5486E+00,-0.5367E+00,-0.5237E+00,-0.5099E+00,
- *-0.4950E+00,-0.4791E+00,-0.4620E+00,-0.4439E+00,-0.4246E+00,
- *-0.4041E+00,-0.3823E+00,-0.3591E+00,-0.3346E+00,-0.3087E+00,
- *-0.2813E+00,-0.2523E+00,-0.2217E+00,-0.1893E+00,-0.1553E+00,
- *-0.1193E+00,-0.8147E-01,-0.4160E-01, 0.3445E-03, 0.4446E-01,
- * 0.9084E-01, 0.1149E+00, 0.1396E+00, 0.1907E+00, 0.2444E+00,
- * 0.3007E+00, 0.3596E+00, 0.4214E+00, 0.4860E+00, 0.5535E+00,
- * 0.6240E+00, 0.6976E+00, 0.7743E+00, 0.8542E+00, 0.9372E+00,
- * 0.1023E+01, 0.1113E+01, 0.1205E+01, 0.1301E+01, 0.1399E+01,
- * 0.1501E+01, 0.1605E+01, 0.1711E+01, 0.1820E+01, 0.1930E+01,
- * 0.2042E+01, 0.2155E+01, 0.2268E+01, 0.2381E+01, 0.2493E+01,
- * 0.2604E+01, 0.2711E+01, 0.2815E+01, 0.2915E+01, 0.3008E+01,
- * 0.3095E+01, 0.3173E+01, 0.3241E+01, 0.3298E+01, 0.3343E+01,
- * 0.3375E+01, 0.3393E+01, 0.3398E+01 /
- DATA ((UHR(i,j),j=1,83),i=10,10)/
- *-0.6626E+00,-0.6624E+00,-0.6616E+00,-0.6600E+00,-0.6578E+00,
- *-0.6549E+00,-0.6513E+00,-0.6469E+00,-0.6418E+00,-0.6360E+00,
- *-0.6294E+00,-0.6220E+00,-0.6138E+00,-0.6047E+00,-0.5948E+00,
- *-0.5841E+00,-0.5724E+00,-0.5597E+00,-0.5461E+00,-0.5315E+00,
- *-0.5159E+00,-0.4991E+00,-0.4813E+00,-0.4623E+00,-0.4421E+00,
- *-0.4206E+00,-0.3978E+00,-0.3737E+00,-0.3482E+00,-0.3212E+00,
- *-0.2927E+00,-0.2627E+00,-0.2310E+00,-0.1976E+00,-0.1624E+00,
- *-0.1254E+00,-0.8653E-01,-0.4564E-01,-0.2696E-02, 0.4238E-01,
- * 0.8967E-01, 0.1142E+00, 0.1392E+00, 0.1912E+00, 0.2455E+00,
- * 0.3024E+00, 0.3619E+00, 0.4240E+00, 0.4888E+00, 0.5563E+00,
- * 0.6267E+00, 0.7000E+00, 0.7761E+00, 0.8552E+00, 0.9372E+00,
- * 0.1022E+01, 0.1110E+01, 0.1200E+01, 0.1293E+01, 0.1389E+01,
- * 0.1488E+01, 0.1588E+01, 0.1691E+01, 0.1795E+01, 0.1901E+01,
- * 0.2007E+01, 0.2114E+01, 0.2222E+01, 0.2328E+01, 0.2434E+01,
- * 0.2537E+01, 0.2637E+01, 0.2734E+01, 0.2826E+01, 0.2913E+01,
- * 0.2992E+01, 0.3063E+01, 0.3126E+01, 0.3178E+01, 0.3219E+01,
- * 0.3248E+01, 0.3264E+01, 0.3268E+01 /
- DATA ((UHR(i,j),j=1,83),i=11,11)/
- *-0.6857E+00,-0.6855E+00,-0.6846E+00,-0.6830E+00,-0.6807E+00,
- *-0.6776E+00,-0.6738E+00,-0.6692E+00,-0.6639E+00,-0.6578E+00,
- *-0.6508E+00,-0.6431E+00,-0.6345E+00,-0.6251E+00,-0.6147E+00,
- *-0.6035E+00,-0.5913E+00,-0.5781E+00,-0.5639E+00,-0.5487E+00,
- *-0.5324E+00,-0.5151E+00,-0.4965E+00,-0.4768E+00,-0.4559E+00,
- *-0.4336E+00,-0.4101E+00,-0.3852E+00,-0.3589E+00,-0.3311E+00,
- *-0.3018E+00,-0.2709E+00,-0.2383E+00,-0.2041E+00,-0.1681E+00,
- *-0.1302E+00,-0.9049E-01,-0.4880E-01,-0.5080E-02, 0.4074E-01,
- * 0.8872E-01, 0.1135E+00, 0.1389E+00, 0.1914E+00, 0.2463E+00,
- * 0.3036E+00, 0.3634E+00, 0.4258E+00, 0.4907E+00, 0.5583E+00,
- * 0.6285E+00, 0.7015E+00, 0.7771E+00, 0.8555E+00, 0.9366E+00,
- * 0.1020E+01, 0.1107E+01, 0.1196E+01, 0.1287E+01, 0.1381E+01,
- * 0.1477E+01, 0.1574E+01, 0.1674E+01, 0.1775E+01, 0.1877E+01,
- * 0.1980E+01, 0.2083E+01, 0.2185E+01, 0.2287E+01, 0.2387E+01,
- * 0.2486E+01, 0.2581E+01, 0.2672E+01, 0.2759E+01, 0.2840E+01,
- * 0.2914E+01, 0.2981E+01, 0.3039E+01, 0.3088E+01, 0.3126E+01,
- * 0.3152E+01, 0.3168E+01, 0.3171E+01 /
- DATA ((UHR(i,j),j=1,83),i=12,12)/
- *-0.6997E+00,-0.6995E+00,-0.6986E+00,-0.6969E+00,-0.6945E+00,
- *-0.6913E+00,-0.6874E+00,-0.6827E+00,-0.6772E+00,-0.6709E+00,
- *-0.6638E+00,-0.6559E+00,-0.6470E+00,-0.6373E+00,-0.6267E+00,
- *-0.6152E+00,-0.6027E+00,-0.5892E+00,-0.5746E+00,-0.5591E+00,
- *-0.5424E+00,-0.5246E+00,-0.5056E+00,-0.4855E+00,-0.4641E+00,
- *-0.4414E+00,-0.4174E+00,-0.3920E+00,-0.3652E+00,-0.3369E+00,
- *-0.3071E+00,-0.2756E+00,-0.2426E+00,-0.2078E+00,-0.1713E+00,
- *-0.1330E+00,-0.9274E-01,-0.5057E-01,-0.6389E-02, 0.3987E-01,
- * 0.8826E-01, 0.1133E+00, 0.1389E+00, 0.1917E+00, 0.2469E+00,
- * 0.3044E+00, 0.3644E+00, 0.4269E+00, 0.4919E+00, 0.5594E+00,
- * 0.6296E+00, 0.7023E+00, 0.7777E+00, 0.8557E+00, 0.9362E+00,
- * 0.1019E+01, 0.1105E+01, 0.1193E+01, 0.1283E+01, 0.1376E+01,
- * 0.1470E+01, 0.1566E+01, 0.1664E+01, 0.1763E+01, 0.1863E+01,
- * 0.1963E+01, 0.2064E+01, 0.2164E+01, 0.2263E+01, 0.2360E+01,
- * 0.2455E+01, 0.2547E+01, 0.2636E+01, 0.2719E+01, 0.2797E+01,
- * 0.2869E+01, 0.2933E+01, 0.2988E+01, 0.3035E+01, 0.3071E+01,
- * 0.3097E+01, 0.3111E+01, 0.3115E+01 /
- DATA ((UHR(i,j),j=1,83),i=13,13)/
- *-0.7383E+00,-0.7380E+00,-0.7370E+00,-0.7352E+00,-0.7326E+00,
- *-0.7292E+00,-0.7250E+00,-0.7199E+00,-0.7140E+00,-0.7072E+00,
- *-0.6996E+00,-0.6910E+00,-0.6816E+00,-0.6712E+00,-0.6598E+00,
- *-0.6475E+00,-0.6341E+00,-0.6197E+00,-0.6042E+00,-0.5877E+00,
- *-0.5700E+00,-0.5511E+00,-0.5310E+00,-0.5097E+00,-0.4871E+00,
- *-0.4632E+00,-0.4379E+00,-0.4112E+00,-0.3831E+00,-0.3535E+00,
- *-0.3223E+00,-0.2896E+00,-0.2552E+00,-0.2191E+00,-0.1812E+00,
- *-0.1416E+00,-0.1001E+00,-0.5672E-01,-0.1137E-01, 0.3599E-01,
- * 0.8541E-01, 0.1109E+00, 0.1369E+00, 0.1906E+00, 0.2465E+00,
- * 0.3047E+00, 0.3651E+00, 0.4278E+00, 0.4929E+00, 0.5603E+00,
- * 0.6300E+00, 0.7022E+00, 0.7767E+00, 0.8534E+00, 0.9325E+00,
- * 0.1014E+01, 0.1097E+01, 0.1183E+01, 0.1270E+01, 0.1359E+01,
- * 0.1450E+01, 0.1542E+01, 0.1635E+01, 0.1729E+01, 0.1823E+01,
- * 0.1918E+01, 0.2012E+01, 0.2105E+01, 0.2197E+01, 0.2287E+01,
- * 0.2375E+01, 0.2460E+01, 0.2540E+01, 0.2617E+01, 0.2687E+01,
- * 0.2752E+01, 0.2810E+01, 0.2859E+01, 0.2901E+01, 0.2933E+01,
- * 0.2956E+01, 0.2969E+01, 0.2972E+01 /
- DATA ((UHR(i,j),j=1,83),i=14,14)/
- *-0.7925E+00,-0.7922E+00,-0.7911E+00,-0.7891E+00,-0.7863E+00,
- *-0.7825E+00,-0.7778E+00,-0.7722E+00,-0.7657E+00,-0.7583E+00,
- *-0.7498E+00,-0.7405E+00,-0.7301E+00,-0.7187E+00,-0.7063E+00,
- *-0.6928E+00,-0.6782E+00,-0.6625E+00,-0.6457E+00,-0.6278E+00,
- *-0.6086E+00,-0.5882E+00,-0.5666E+00,-0.5436E+00,-0.5194E+00,
- *-0.4938E+00,-0.4668E+00,-0.4383E+00,-0.4084E+00,-0.3770E+00,
- *-0.3440E+00,-0.3095E+00,-0.2733E+00,-0.2354E+00,-0.1958E+00,
- *-0.1545E+00,-0.1113E+00,-0.6637E-01,-0.1952E-01, 0.2924E-01,
- * 0.7994E-01, 0.1060E+00, 0.1326E+00, 0.1873E+00, 0.2440E+00,
- * 0.3028E+00, 0.3637E+00, 0.4266E+00, 0.4916E+00, 0.5586E+00,
- * 0.6278E+00, 0.6989E+00, 0.7721E+00, 0.8472E+00, 0.9241E+00,
- * 0.1003E+01, 0.1083E+01, 0.1165E+01, 0.1249E+01, 0.1333E+01,
- * 0.1419E+01, 0.1506E+01, 0.1593E+01, 0.1680E+01, 0.1768E+01,
- * 0.1855E+01, 0.1941E+01, 0.2026E+01, 0.2110E+01, 0.2191E+01,
- * 0.2270E+01, 0.2345E+01, 0.2417E+01, 0.2484E+01, 0.2546E+01,
- * 0.2603E+01, 0.2653E+01, 0.2696E+01, 0.2732E+01, 0.2760E+01,
- * 0.2780E+01, 0.2791E+01, 0.2793E+01 /
- DATA ((UHR(i,j),j=1,83),i=15,15)/
- *-0.9497E+00,-0.9494E+00,-0.9479E+00,-0.9453E+00,-0.9416E+00,
- *-0.9367E+00,-0.9307E+00,-0.9234E+00,-0.9150E+00,-0.9055E+00,
- *-0.8947E+00,-0.8827E+00,-0.8695E+00,-0.8550E+00,-0.8393E+00,
- *-0.8223E+00,-0.8041E+00,-0.7845E+00,-0.7637E+00,-0.7415E+00,
- *-0.7179E+00,-0.6930E+00,-0.6667E+00,-0.6390E+00,-0.6099E+00,
- *-0.5793E+00,-0.5473E+00,-0.5138E+00,-0.4788E+00,-0.4423E+00,
- *-0.4042E+00,-0.3647E+00,-0.3235E+00,-0.2809E+00,-0.2366E+00,
- *-0.1908E+00,-0.1433E+00,-0.9431E-01,-0.4372E-01, 0.8459E-02,
- * 0.6221E-01, 0.8967E-01, 0.1175E+00, 0.1744E+00, 0.2327E+00,
- * 0.2926E+00, 0.3539E+00, 0.4166E+00, 0.4807E+00, 0.5461E+00,
- * 0.6127E+00, 0.6805E+00, 0.7494E+00, 0.8192E+00, 0.8899E+00,
- * 0.9614E+00, 0.1033E+01, 0.1106E+01, 0.1179E+01, 0.1252E+01,
- * 0.1325E+01, 0.1397E+01, 0.1470E+01, 0.1541E+01, 0.1612E+01,
- * 0.1681E+01, 0.1748E+01, 0.1814E+01, 0.1878E+01, 0.1939E+01,
- * 0.1998E+01, 0.2053E+01, 0.2105E+01, 0.2153E+01, 0.2197E+01,
- * 0.2236E+01, 0.2271E+01, 0.2301E+01, 0.2325E+01, 0.2344E+01,
- * 0.2357E+01, 0.2364E+01, 0.2366E+01 /
- DATA ((UHR(i,j),j=1,83),i=16,16)/
- *-0.1036E+01,-0.1036E+01,-0.1034E+01,-0.1031E+01,-0.1027E+01,
- *-0.1021E+01,-0.1015E+01,-0.1006E+01,-0.9969E+00,-0.9861E+00,
- *-0.9739E+00,-0.9604E+00,-0.9455E+00,-0.9292E+00,-0.9116E+00,
- *-0.8926E+00,-0.8722E+00,-0.8505E+00,-0.8273E+00,-0.8027E+00,
- *-0.7766E+00,-0.7492E+00,-0.7202E+00,-0.6899E+00,-0.6580E+00,
- *-0.6247E+00,-0.5900E+00,-0.5537E+00,-0.5160E+00,-0.4768E+00,
- *-0.4361E+00,-0.3939E+00,-0.3503E+00,-0.3051E+00,-0.2585E+00,
- *-0.2105E+00,-0.1610E+00,-0.1101E+00,-0.5777E-01,-0.4080E-02,
- * 0.5096E-01, 0.7897E-01, 0.1073E+00, 0.1649E+00, 0.2238E+00,
- * 0.2838E+00, 0.3450E+00, 0.4072E+00, 0.4705E+00, 0.5346E+00,
- * 0.5996E+00, 0.6654E+00, 0.7318E+00, 0.7987E+00, 0.8660E+00,
- * 0.9337E+00, 0.1001E+01, 0.1069E+01, 0.1137E+01, 0.1204E+01,
- * 0.1271E+01, 0.1337E+01, 0.1403E+01, 0.1467E+01, 0.1530E+01,
- * 0.1591E+01, 0.1651E+01, 0.1709E+01, 0.1764E+01, 0.1817E+01,
- * 0.1867E+01, 0.1915E+01, 0.1959E+01, 0.1999E+01, 0.2036E+01,
- * 0.2069E+01, 0.2098E+01, 0.2123E+01, 0.2143E+01, 0.2159E+01,
- * 0.2170E+01, 0.2176E+01, 0.2177E+01 /
- DATA ((UHR(i,j),j=1,83),i=17,17)/
- *-0.1065E+01,-0.1065E+01,-0.1063E+01,-0.1060E+01,-0.1056E+01,
- *-0.1050E+01,-0.1043E+01,-0.1034E+01,-0.1025E+01,-0.1013E+01,
- *-0.1001E+01,-0.9865E+00,-0.9711E+00,-0.9542E+00,-0.9360E+00,
- *-0.9163E+00,-0.8952E+00,-0.8727E+00,-0.8487E+00,-0.8233E+00,
- *-0.7964E+00,-0.7681E+00,-0.7383E+00,-0.7071E+00,-0.6743E+00,
- *-0.6401E+00,-0.6045E+00,-0.5673E+00,-0.5287E+00,-0.4886E+00,
- *-0.4471E+00,-0.4041E+00,-0.3596E+00,-0.3137E+00,-0.2664E+00,
- *-0.2177E+00,-0.1676E+00,-0.1161E+00,-0.6327E-01,-0.9138E-02,
- * 0.4626E-01, 0.7443E-01, 0.1029E+00, 0.1607E+00, 0.2197E+00,
- * 0.2797E+00, 0.3408E+00, 0.4028E+00, 0.4658E+00, 0.5295E+00,
- * 0.5939E+00, 0.6589E+00, 0.7245E+00, 0.7905E+00, 0.8568E+00,
- * 0.9232E+00, 0.9896E+00, 0.1056E+01, 0.1122E+01, 0.1188E+01,
- * 0.1253E+01, 0.1317E+01, 0.1380E+01, 0.1442E+01, 0.1503E+01,
- * 0.1562E+01, 0.1620E+01, 0.1675E+01, 0.1728E+01, 0.1779E+01,
- * 0.1827E+01, 0.1872E+01, 0.1914E+01, 0.1952E+01, 0.1987E+01,
- * 0.2018E+01, 0.2046E+01, 0.2069E+01, 0.2088E+01, 0.2103E+01,
- * 0.2113E+01, 0.2119E+01, 0.2120E+01 /
- DATA ((UHR(i,j),j=1,83),i=18,18)/
- *-0.1129E+01,-0.1129E+01,-0.1127E+01,-0.1124E+01,-0.1119E+01,
- *-0.1112E+01,-0.1105E+01,-0.1095E+01,-0.1085E+01,-0.1072E+01,
- *-0.1059E+01,-0.1043E+01,-0.1027E+01,-0.1009E+01,-0.9889E+00,
- *-0.9676E+00,-0.9449E+00,-0.9207E+00,-0.8950E+00,-0.8678E+00,
- *-0.8391E+00,-0.8089E+00,-0.7772E+00,-0.7440E+00,-0.7093E+00,
- *-0.6732E+00,-0.6356E+00,-0.5965E+00,-0.5559E+00,-0.5140E+00,
- *-0.4706E+00,-0.4258E+00,-0.3796E+00,-0.3321E+00,-0.2832E+00,
- *-0.2331E+00,-0.1816E+00,-0.1290E+00,-0.7509E-01,-0.2007E-01,
- * 0.3605E-01, 0.6451E-01, 0.9323E-01, 0.1514E+00, 0.2105E+00,
- * 0.2705E+00, 0.3313E+00, 0.3928E+00, 0.4550E+00, 0.5177E+00,
- * 0.5808E+00, 0.6444E+00, 0.7082E+00, 0.7721E+00, 0.8360E+00,
- * 0.8999E+00, 0.9635E+00, 0.1027E+01, 0.1089E+01, 0.1151E+01,
- * 0.1213E+01, 0.1273E+01, 0.1332E+01, 0.1390E+01, 0.1446E+01,
- * 0.1501E+01, 0.1553E+01, 0.1604E+01, 0.1652E+01, 0.1698E+01,
- * 0.1742E+01, 0.1782E+01, 0.1820E+01, 0.1855E+01, 0.1886E+01,
- * 0.1914E+01, 0.1938E+01, 0.1959E+01, 0.1976E+01, 0.1989E+01,
- * 0.1998E+01, 0.2003E+01, 0.2004E+01 /
- DATA ((UHR(i,j),j=1,83),i=19,19)/
- *-0.1180E+01,-0.1180E+01,-0.1178E+01,-0.1174E+01,-0.1169E+01,
- *-0.1162E+01,-0.1154E+01,-0.1144E+01,-0.1133E+01,-0.1120E+01,
- *-0.1105E+01,-0.1089E+01,-0.1071E+01,-0.1052E+01,-0.1031E+01,
- *-0.1009E+01,-0.9845E+00,-0.9589E+00,-0.9318E+00,-0.9032E+00,
- *-0.8730E+00,-0.8413E+00,-0.8080E+00,-0.7733E+00,-0.7370E+00,
- *-0.6993E+00,-0.6601E+00,-0.6195E+00,-0.5775E+00,-0.5340E+00,
- *-0.4892E+00,-0.4430E+00,-0.3955E+00,-0.3468E+00,-0.2967E+00,
- *-0.2455E+00,-0.1931E+00,-0.1395E+00,-0.8491E-01,-0.2925E-01,
- * 0.2737E-01, 0.5603E-01, 0.8491E-01, 0.1433E+00, 0.2025E+00,
- * 0.2623E+00, 0.3228E+00, 0.3839E+00, 0.4454E+00, 0.5073E+00,
- * 0.5694E+00, 0.6317E+00, 0.6941E+00, 0.7564E+00, 0.8186E+00,
- * 0.8804E+00, 0.9419E+00, 0.1003E+01, 0.1063E+01, 0.1122E+01,
- * 0.1181E+01, 0.1238E+01, 0.1294E+01, 0.1349E+01, 0.1402E+01,
- * 0.1453E+01, 0.1502E+01, 0.1550E+01, 0.1595E+01, 0.1638E+01,
- * 0.1678E+01, 0.1716E+01, 0.1750E+01, 0.1782E+01, 0.1811E+01,
- * 0.1836E+01, 0.1859E+01, 0.1878E+01, 0.1893E+01, 0.1905E+01,
- * 0.1913E+01, 0.1918E+01, 0.1919E+01 /
- DATA ((UHR(i,j),j=1,83),i=20,20)/
- *-0.1325E+01,-0.1324E+01,-0.1322E+01,-0.1317E+01,-0.1311E+01,
- *-0.1303E+01,-0.1294E+01,-0.1282E+01,-0.1268E+01,-0.1253E+01,
- *-0.1236E+01,-0.1217E+01,-0.1196E+01,-0.1173E+01,-0.1149E+01,
- *-0.1122E+01,-0.1095E+01,-0.1065E+01,-0.1034E+01,-0.1001E+01,
- *-0.9662E+00,-0.9301E+00,-0.8924E+00,-0.8531E+00,-0.8124E+00,
- *-0.7702E+00,-0.7266E+00,-0.6817E+00,-0.6354E+00,-0.5878E+00,
- *-0.5390E+00,-0.4890E+00,-0.4380E+00,-0.3858E+00,-0.3327E+00,
- *-0.2786E+00,-0.2236E+00,-0.1679E+00,-0.1114E+00,-0.5422E-01,
- * 0.3521E-02, 0.3259E-01, 0.6177E-01, 0.1204E+00, 0.1794E+00,
- * 0.2387E+00, 0.2981E+00, 0.3577E+00, 0.4171E+00, 0.4765E+00,
- * 0.5357E+00, 0.5945E+00, 0.6530E+00, 0.7109E+00, 0.7682E+00,
- * 0.8248E+00, 0.8805E+00, 0.9353E+00, 0.9890E+00, 0.1042E+01,
- * 0.1093E+01, 0.1143E+01, 0.1191E+01, 0.1238E+01, 0.1283E+01,
- * 0.1327E+01, 0.1368E+01, 0.1408E+01, 0.1445E+01, 0.1480E+01,
- * 0.1513E+01, 0.1544E+01, 0.1572E+01, 0.1597E+01, 0.1620E+01,
- * 0.1641E+01, 0.1658E+01, 0.1673E+01, 0.1685E+01, 0.1695E+01,
- * 0.1701E+01, 0.1705E+01, 0.1706E+01 /
-
-
- vi_m=6.05630412E-05
- vi(4)=vi_m
- do 1 i=1,20
- asy(4,i)=asy_m(i)
- ex(4,i)=ex_m(i)
- sc(4,i)=sc_m(i)
- do 1 j=1,nquad
- ph(i,j)=phr(i,j)
- qh(i,j)=qhr(i,j)
- uh(i,j)=uhr(i,j)
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SOOT.h b/Modules/ThirdParty/6S/src/6SV1.0B/SOOT.h
deleted file mode 100644
index d9d7560..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SOOT.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_soot_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.P b/Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.P
deleted file mode 100644
index 0778e9b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.P
+++ /dev/null
@@ -1,7 +0,0 @@
-extern int specinterp_(doublereal *wl, doublereal *taer55, doublereal *taer55p, doublereal *tamoy, doublereal *tamoyp, doublereal *pizmoy, doublereal *pizmoyp, integer *ipol);
-/* comlen num_quad__ 4 */
-/* comlen sixs_phase__ 480000 */
-/* comlen sixs_polar__ 56032 */
-/* comlen sixs_disc__ 4320 */
-/* comlen sixs_aer__ 960 */
-/*:ref: trunca_ 14 2 7 4 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.c b/Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.c
deleted file mode 100644
index b75548b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.c
+++ /dev/null
@@ -1,227 +0,0 @@
-/* SPECINTERP.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal phasel[20000] /* was [20][1000] */, qhasel[20000] /*
- was [20][1000] */, uhasel[20000] /* was [20][1000] */;
-} sixs_phase__;
-
-#define sixs_phase__1 sixs_phase__
-
-Extern struct {
- doublereal pha[1000], qha[1000], uha[1000], alphal[1001], betal[1001],
- gammal[1001], zetal[1001];
-} sixs_polar__;
-
-#define sixs_polar__1 sixs_polar__
-
-Extern struct {
- doublereal roatm[60] /* was [3][20] */, dtdir[60] /* was [3][20]
- */, dtdif[60] /* was [3][20] */, utdir[60] /* was [3][20]
- */, utdif[60] /* was [3][20] */, sphal[60] /* was [3][20]
- */, wldis[20], trayl[20], traypl[20], rpatm[60] /* was [3][20]
- */, dpatm[60] /* was [3][20] */;
-} sixs_disc__;
-
-#define sixs_disc__1 sixs_disc__
-
-Extern struct {
- doublereal ext[20], ome[20], gasym[20], phase[20], qhase[20], uhase[20];
-} sixs_aer__;
-
-#define sixs_aer__1 sixs_aer__
-
-/*< >*/
-/* Subroutine */ int specinterp_(doublereal *wl, doublereal *taer55,
- doublereal *taer55p, doublereal *tamoy, doublereal *tamoyp,
- doublereal *pizmoy, doublereal *pizmoyp, integer *ipol)
-{
- /* System generated locals */
- integer i__1;
-
- /* Builtin functions */
- double log(doublereal), pow_dd(doublereal *, doublereal *);
-
- /* Local variables */
- integer k, ll;
- doublereal coef;
- integer linf;
- doublereal tsca;
- integer nbmu, lsup, ipol0;
- doublereal test1, test2, test3, betaa, coeff, coefl, wlinf, alphaa;
- extern /* Subroutine */ int trunca_(doublereal *, integer *);
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real phasel,qhasel,uhasel >*/
-/*< >*/
-/*< real pha,qha,uha,alphal,betal,gammal,zetal >*/
-/*< >*/
-/*< integer nbmu >*/
-/* - to vary the number of quadratures */
-/*< real wl,taer55,taer55p,tamoy,tamoyp,pizmoy,pizmoyp,roatm >*/
-/*< real dtdir,dtdif,utdir,utdif,sphal,wldis,trayl,traypl >*/
-/*< real ext,ome,gasym,phase,coef,rpatm,dpatm >*/
-/*< real qhase,uhase >*/
-/*< real wlinf,alphaa,betaa,tsca,coeff >*/
-/*< integer linf,ll,lsup,k,ipol,ipol0 >*/
-/*< >*/
-/*< >*/
-/*< real test1,test2,test3 >*/
-/*< nbmu=nquad >*/
- nbmu = num_quad__1.nquad;
-/*< linf=1 >*/
- linf = 1;
-/*< do 80 ll=1,19 >*/
- for (ll = 1; ll <= 19; ++ll) {
-/*< if(wl.ge.wldis(ll).and.wl.le.wldis(ll+1)) linf=ll >*/
- if (*wl >= sixs_disc__1.wldis[ll - 1] && *wl <= sixs_disc__1.wldis[ll]
- ) {
- linf = ll;
- }
-/*< 80 continue >*/
-/* L80: */
- }
-/*< if(wl.gt.wldis(20)) linf=19 >*/
- if (*wl > sixs_disc__1.wldis[19]) {
- linf = 19;
- }
-/*< lsup=linf+1 >*/
- lsup = linf + 1;
-/*< coef=alog(wldis(lsup)/wldis(linf)) >*/
- coef = log(sixs_disc__1.wldis[lsup - 1] / sixs_disc__1.wldis[linf - 1]);
-/*< coefl=(wl-wldis(linf))/(wldis(lsup)-wldis(linf)) >*/
- coefl = (*wl - sixs_disc__1.wldis[linf - 1]) / (sixs_disc__1.wldis[lsup -
- 1] - sixs_disc__1.wldis[linf - 1]);
-/*< wlinf=wldis(linf) >*/
- wlinf = sixs_disc__1.wldis[linf - 1];
-/*< alphaa=alog(ext(lsup)*ome(lsup)/(ext(linf)*ome(linf)))/coef >*/
- alphaa = log(sixs_aer__1.ext[lsup - 1] * sixs_aer__1.ome[lsup - 1] / (
- sixs_aer__1.ext[linf - 1] * sixs_aer__1.ome[linf - 1])) / coef;
-/*< betaa=ext(linf)*ome(linf)/(wlinf**(alphaa)) >*/
- betaa = sixs_aer__1.ext[linf - 1] * sixs_aer__1.ome[linf - 1] / pow_dd(&
- wlinf, &alphaa);
-/*< tsca=taer55*betaa*(wl**alphaa)/ext(4) >*/
- tsca = *taer55 * betaa * pow_dd(wl, &alphaa) / sixs_aer__1.ext[3];
-/*< alphaa=alog(ext(lsup)/(ext(linf)))/coef >*/
- alphaa = log(sixs_aer__1.ext[lsup - 1] / sixs_aer__1.ext[linf - 1]) /
- coef;
-/*< betaa=ext(linf)/(wlinf**(alphaa)) >*/
- betaa = sixs_aer__1.ext[linf - 1] / pow_dd(&wlinf, &alphaa);
-/*< tamoy=taer55*betaa*(wl**alphaa)/ext(4) >*/
- *tamoy = *taer55 * betaa * pow_dd(wl, &alphaa) / sixs_aer__1.ext[3];
-/*< tamoyp=taer55p*betaa*(wl**alphaa)/ext(4) >*/
- *tamoyp = *taer55p * betaa * pow_dd(wl, &alphaa) / sixs_aer__1.ext[3];
-/*< pizmoy=tsca/tamoy >*/
- *pizmoy = tsca / *tamoy;
-/*< pizmoyp=pizmoy >*/
- *pizmoyp = *pizmoy;
-/*< do 81 k=1,nbmu >*/
- i__1 = nbmu;
- for (k = 1; k <= i__1; ++k) {
-/*< alphaa=alog(phasel(lsup,k)/phasel(linf,k))/coef >*/
- alphaa = log(sixs_phase__1.phasel[lsup + k * 20 - 21] /
- sixs_phase__1.phasel[linf + k * 20 - 21]) / coef;
-/*< betaa=phasel(linf,k)/(wlinf**(alphaa)) >*/
- betaa = sixs_phase__1.phasel[linf + k * 20 - 21] / pow_dd(&wlinf, &
- alphaa);
-/*< pha(k)=betaa*(wl**alphaa) >*/
- sixs_polar__1.pha[k - 1] = betaa * pow_dd(wl, &alphaa);
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< test1=qhasel(linf,k) >*/
- test1 = sixs_phase__1.qhasel[linf + k * 20 - 21];
-/*< test2=qhasel(lsup,k) >*/
- test2 = sixs_phase__1.qhasel[lsup + k * 20 - 21];
-/*< test3=qhasel(lsup,k)*qhasel(linf,k) >*/
- test3 = sixs_phase__1.qhasel[lsup + k * 20 - 21] *
- sixs_phase__1.qhasel[linf + k * 20 - 21];
-/*< >*/
- if (test1 < .001 || test2 < .001 || test3 < 0.) {
-/*< qha(k)=qhasel(linf,k)+(qhasel(lsup,k)-qhasel(linf,k))*coefl >*/
- sixs_polar__1.qha[k - 1] = sixs_phase__1.qhasel[linf + k * 20
- - 21] + (sixs_phase__1.qhasel[lsup + k * 20 - 21] -
- sixs_phase__1.qhasel[linf + k * 20 - 21]) * coefl;
-/*< else >*/
- } else {
-/*< alphaa=alog(qhasel(lsup,k)/qhasel(linf,k))/coef >*/
- alphaa = log(sixs_phase__1.qhasel[lsup + k * 20 - 21] /
- sixs_phase__1.qhasel[linf + k * 20 - 21]) / coef;
-/*< betaa=qhasel(linf,k)/(wlinf**(alphaa)) >*/
- betaa = sixs_phase__1.qhasel[linf + k * 20 - 21] / pow_dd(&
- wlinf, &alphaa);
-/*< qha(k)=betaa*(wl**alphaa) >*/
- sixs_polar__1.qha[k - 1] = betaa * pow_dd(wl, &alphaa);
-/*< endif >*/
- }
-/*< test1=uhasel(linf,k) >*/
- test1 = sixs_phase__1.uhasel[linf + k * 20 - 21];
-/*< test2=uhasel(lsup,k) >*/
- test2 = sixs_phase__1.uhasel[lsup + k * 20 - 21];
-/*< test3=uhasel(lsup,k)*qhasel(linf,k) >*/
- test3 = sixs_phase__1.uhasel[lsup + k * 20 - 21] *
- sixs_phase__1.qhasel[linf + k * 20 - 21];
-/*< >*/
- if (test1 < .001 || test2 < .001 || test3 < 0.) {
-/*< uha(k)=uhasel(linf,k)+(uhasel(lsup,k)-uhasel(linf,k))*coefl >*/
- sixs_polar__1.uha[k - 1] = sixs_phase__1.uhasel[linf + k * 20
- - 21] + (sixs_phase__1.uhasel[lsup + k * 20 - 21] -
- sixs_phase__1.uhasel[linf + k * 20 - 21]) * coefl;
-/*< else >*/
- } else {
-/*< alphaa=alog(uhasel(lsup,k)/uhasel(linf,k))/coef >*/
- alphaa = log(sixs_phase__1.uhasel[lsup + k * 20 - 21] /
- sixs_phase__1.uhasel[linf + k * 20 - 21]) / coef;
-/*< betaa=uhasel(linf,k)/(wlinf**(alphaa)) >*/
- betaa = sixs_phase__1.uhasel[linf + k * 20 - 21] / pow_dd(&
- wlinf, &alphaa);
-/*< uha(k)=betaa*(wl**alphaa) >*/
- sixs_polar__1.uha[k - 1] = betaa * pow_dd(wl, &alphaa);
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< 81 continue >*/
-/* L81: */
- }
-/* here we don't need coefficients for computation of the polarization */
-/*< ipol0=0 >*/
- ipol0 = 0;
-/*< call trunca(coeff,ipol0) >*/
- trunca_(&coeff, &ipol0);
-/*< tamoy=tamoy*(1.-pizmoy*coeff) >*/
- *tamoy *= 1. - *pizmoy * coeff;
-/*< tamoyp=tamoyp*(1.-pizmoyp*coeff) >*/
- *tamoyp *= 1. - *pizmoyp * coeff;
-/*< pizmoy=pizmoy*(1.-coeff)/(1.-pizmoy*coeff) >*/
- *pizmoy = *pizmoy * (1. - coeff) / (1. - *pizmoy * coeff);
-/*< return >*/
- return 0;
-/*< end >*/
-} /* specinterp_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.f b/Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.f
deleted file mode 100644
index 97db6f1..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.f
+++ /dev/null
@@ -1,92 +0,0 @@
- subroutine specinterp(wl,taer55,taer55p,
- s tamoy,tamoyp,pizmoy,pizmoyp,ipol)
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real phasel,qhasel,uhasel
- common /sixs_phase/ phasel(20,nqmax_p),qhasel(20,nqmax_p),
- &uhasel(20,nqmax_p)
- real pha,qha,uha,alphal,betal,gammal,zetal
- common /sixs_polar/ pha(nqmax_p),qha(nqmax_p),uha(nqmax_p),
- &alphal(0:nqmax_p),betal(0:nqmax_p),gammal(0:nqmax_p),
- &zetal(0:nqmax_p)
- integer nbmu
-c - to vary the number of quadratures
-
- real wl,taer55,taer55p,tamoy,tamoyp,pizmoy,pizmoyp,roatm
- real dtdir,dtdif,utdir,utdif,sphal,wldis,trayl,traypl
- real ext,ome,gasym,phase,coef,rpatm,dpatm
- real qhase,uhase
- real wlinf,alphaa,betaa,tsca,coeff
- integer linf,ll,lsup,k,ipol,ipol0
-
- common /sixs_disc/ roatm(3,20),dtdir(3,20),dtdif(3,20),
- s utdir(3,20),utdif(3,20),sphal(3,20),wldis(20),trayl(20),
- s traypl(20),rpatm(3,20),dpatm(3,20)
- common /sixs_aer/ext(20),ome(20),gasym(20),phase(20),qhase(20),
- &uhase(20)
-
-
- real test1,test2,test3
-
- nbmu=nquad
- linf=1
- do 80 ll=1,19
- if(wl.ge.wldis(ll).and.wl.le.wldis(ll+1)) linf=ll
- 80 continue
- if(wl.gt.wldis(20)) linf=19
- lsup=linf+1
- coef=alog(wldis(lsup)/wldis(linf))
- coefl=(wl-wldis(linf))/(wldis(lsup)-wldis(linf))
- wlinf=wldis(linf)
- alphaa=alog(ext(lsup)*ome(lsup)/(ext(linf)*ome(linf)))/coef
- betaa=ext(linf)*ome(linf)/(wlinf**(alphaa))
- tsca=taer55*betaa*(wl**alphaa)/ext(4)
- alphaa=alog(ext(lsup)/(ext(linf)))/coef
- betaa=ext(linf)/(wlinf**(alphaa))
- tamoy=taer55*betaa*(wl**alphaa)/ext(4)
- tamoyp=taer55p*betaa*(wl**alphaa)/ext(4)
- pizmoy=tsca/tamoy
- pizmoyp=pizmoy
- do 81 k=1,nbmu
- alphaa=alog(phasel(lsup,k)/phasel(linf,k))/coef
- betaa=phasel(linf,k)/(wlinf**(alphaa))
- pha(k)=betaa*(wl**alphaa)
- if (ipol.ne.0)then
-
- test1=qhasel(linf,k)
- test2=qhasel(lsup,k)
- test3=qhasel(lsup,k)*qhasel(linf,k)
- if((test1.lt.0.001).or.(test2.lt.0.001)
- s .or.(test3.lt.0.0)) then
- qha(k)=qhasel(linf,k)+(qhasel(lsup,k)-qhasel(linf,k))*coefl
- else
- alphaa=alog(qhasel(lsup,k)/qhasel(linf,k))/coef
- betaa=qhasel(linf,k)/(wlinf**(alphaa))
- qha(k)=betaa*(wl**alphaa)
- endif
-
- test1=uhasel(linf,k)
- test2=uhasel(lsup,k)
- test3=uhasel(lsup,k)*qhasel(linf,k)
- if((test1.lt.0.001).or.(test2.lt.0.001)
- s .or.(test3.lt.0.0)) then
- uha(k)=uhasel(linf,k)+(uhasel(lsup,k)-uhasel(linf,k))*coefl
- else
- alphaa=alog(uhasel(lsup,k)/uhasel(linf,k))/coef
- betaa=uhasel(linf,k)/(wlinf**(alphaa))
- uha(k)=betaa*(wl**alphaa)
- endif
- endif
-
- 81 continue
-c here we don't need coefficients for computation of the polarization
- ipol0=0
- call trunca(coeff,ipol0)
- tamoy=tamoy*(1.-pizmoy*coeff)
- tamoyp=tamoyp*(1.-pizmoyp*coeff)
- pizmoy=pizmoy*(1.-coeff)/(1.-pizmoy*coeff)
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.h b/Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.h
deleted file mode 100644
index 5019f7f..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPECINTERP.h
+++ /dev/null
@@ -1,10 +0,0 @@
-extern int otb_6s_specinterp_(
- otb_6s_doublereal *wl,
- otb_6s_doublereal *taer55,
- otb_6s_doublereal *taer55p,
- otb_6s_doublereal *tamoy,
- otb_6s_doublereal *tamoyp,
- otb_6s_doublereal *pizmoy,
- otb_6s_doublereal *pizmoyp,
- otb_6s_integer *ipol
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.P b/Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.P
deleted file mode 100644
index 0e593a6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int splie2_(doublereal *x2a, doublereal *ya, integer *m, integer *n, doublereal *y2a);
-/*:ref: spline_ 14 6 7 7 4 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.c b/Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.c
deleted file mode 100644
index a1009f4..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.c
+++ /dev/null
@@ -1,74 +0,0 @@
-/* SPLIE2.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static doublereal c_b4 = 1e30;
-
-/*< subroutine splie2(x2a,ya,m,n,y2a) >*/
-/* Subroutine */ int splie2_(doublereal *x2a, doublereal *ya, integer *m,
- integer *n, doublereal *y2a)
-{
- /* System generated locals */
- integer ya_dim1, ya_offset, y2a_dim1, y2a_offset, i__1, i__2;
-
- /* Local variables */
- integer j, k;
- doublereal ytmp[100], y2tmp[100];
- extern /* Subroutine */ int spline_(doublereal *, doublereal *, integer *,
- doublereal *, doublereal *, doublereal *);
-
-/*< parameter (nn=100) >*/
-/*< integer m,n,j,k >*/
-/*< real x2a(n),ya(m,n),y2a(m,n),ytmp(nn),y2tmp(nn) >*/
-/*< do 13 j=1,m >*/
- /* Parameter adjustments */
- y2a_dim1 = *m;
- y2a_offset = y2a_dim1 + 1;
- y2a -= y2a_offset;
- ya_dim1 = *m;
- ya_offset = ya_dim1 + 1;
- ya -= ya_offset;
- --x2a;
-
- /* Function Body */
- i__1 = *m;
- for (j = 1; j <= i__1; ++j) {
-/*< do 11 k=1,n >*/
- i__2 = *n;
- for (k = 1; k <= i__2; ++k) {
-/*< ytmp(k)=ya(j,k) >*/
- ytmp[k - 1] = ya[j + k * ya_dim1];
-/*< 11 continue >*/
-/* L11: */
- }
-/*< call spline(x2a,ytmp,n,1.e30,1.e30,y2tmp) >*/
- spline_(&x2a[1], ytmp, n, &c_b4, &c_b4, y2tmp);
-/*< do 12 k=1,n >*/
- i__2 = *n;
- for (k = 1; k <= i__2; ++k) {
-/*< y2a(j,k)=y2tmp(k) >*/
- y2a[j + k * y2a_dim1] = y2tmp[k - 1];
-/*< 12 continue >*/
-/* L12: */
- }
-/*< 13 continue >*/
-/* L13: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* splie2_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.f b/Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.f
deleted file mode 100644
index be8009a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.f
+++ /dev/null
@@ -1,16 +0,0 @@
- subroutine splie2(x2a,ya,m,n,y2a)
-
- parameter (nn=100)
- integer m,n,j,k
- real x2a(n),ya(m,n),y2a(m,n),ytmp(nn),y2tmp(nn)
- do 13 j=1,m
- do 11 k=1,n
- ytmp(k)=ya(j,k)
-11 continue
- call spline(x2a,ytmp,n,1.e30,1.e30,y2tmp)
- do 12 k=1,n
- y2a(j,k)=y2tmp(k)
-12 continue
-13 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.h b/Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.h
deleted file mode 100644
index d7161c8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIE2.h
+++ /dev/null
@@ -1,7 +0,0 @@
-extern int otb_6s_splie2_(
- otb_6s_doublereal *x2a,
- otb_6s_doublereal *ya,
- otb_6s_integer *m,
- otb_6s_integer *n,
- otb_6s_doublereal *y2a
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.P b/Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.P
deleted file mode 100644
index 01292f4..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int splin2_(doublereal *x1a, doublereal *x2a, doublereal *ya, doublereal *y2a, integer *m, integer *n, doublereal *x1, doublereal *x2, doublereal *y);
-/*:ref: splint_ 14 6 7 7 7 4 7 7 */
-/*:ref: spline_ 14 6 7 7 4 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.c b/Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.c
deleted file mode 100644
index 07b9315..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.c
+++ /dev/null
@@ -1,78 +0,0 @@
-/* SPLIN2.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static doublereal c_b4 = 1e30;
-
-/*< subroutine splin2(x1a,x2a,ya,y2a,m,n,x1,x2,y) >*/
-/* Subroutine */ int splin2_(doublereal *x1a, doublereal *x2a, doublereal *ya,
- doublereal *y2a, integer *m, integer *n, doublereal *x1, doublereal *
- x2, doublereal *y)
-{
- /* System generated locals */
- integer ya_dim1, ya_offset, y2a_dim1, y2a_offset, i__1, i__2;
-
- /* Local variables */
- integer j, k;
- doublereal ytmp[100], y2tmp[100], yytmp[100];
- extern /* Subroutine */ int spline_(doublereal *, doublereal *, integer *,
- doublereal *, doublereal *, doublereal *), splint_(doublereal *,
- doublereal *, doublereal *, integer *, doublereal *, doublereal *)
- ;
-
-/*< parameter (nn=100) >*/
-/*< integer m,n,j,k >*/
-/*< real x1,x2,y >*/
-/*< real x1a(m),x2a(n),ya(m,n),y2a(m,n),ytmp(nn),y2tmp(nn) >*/
-/*< real yytmp(nn) >*/
-/*< do 12 j=1,m >*/
- /* Parameter adjustments */
- --x1a;
- y2a_dim1 = *m;
- y2a_offset = y2a_dim1 + 1;
- y2a -= y2a_offset;
- ya_dim1 = *m;
- ya_offset = ya_dim1 + 1;
- ya -= ya_offset;
- --x2a;
-
- /* Function Body */
- i__1 = *m;
- for (j = 1; j <= i__1; ++j) {
-/*< do 11 k=1,n >*/
- i__2 = *n;
- for (k = 1; k <= i__2; ++k) {
-/*< ytmp(k)=ya(j,k) >*/
- ytmp[k - 1] = ya[j + k * ya_dim1];
-/*< y2tmp(k)=y2a(j,k) >*/
- y2tmp[k - 1] = y2a[j + k * y2a_dim1];
-/*< 11 continue >*/
-/* L11: */
- }
-/*< call splint(x2a,ytmp,y2tmp,n,x2,yytmp(j)) >*/
- splint_(&x2a[1], ytmp, y2tmp, n, x2, &yytmp[j - 1]);
-/*< 12 continue >*/
-/* L12: */
- }
-/*< call spline(x1a,yytmp,m,1.e30,1.e30,y2tmp) >*/
- spline_(&x1a[1], yytmp, m, &c_b4, &c_b4, y2tmp);
-/*< call splint(x1a,yytmp,y2tmp,m,x1,y) >*/
- splint_(&x1a[1], yytmp, y2tmp, m, x1, y);
-/*< return >*/
- return 0;
-/*< end >*/
-} /* splin2_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.f b/Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.f
deleted file mode 100644
index d236218..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.f
+++ /dev/null
@@ -1,17 +0,0 @@
- subroutine splin2(x1a,x2a,ya,y2a,m,n,x1,x2,y)
- parameter (nn=100)
- integer m,n,j,k
- real x1,x2,y
- real x1a(m),x2a(n),ya(m,n),y2a(m,n),ytmp(nn),y2tmp(nn)
- real yytmp(nn)
- do 12 j=1,m
- do 11 k=1,n
- ytmp(k)=ya(j,k)
- y2tmp(k)=y2a(j,k)
-11 continue
- call splint(x2a,ytmp,y2tmp,n,x2,yytmp(j))
-12 continue
- call spline(x1a,yytmp,m,1.e30,1.e30,y2tmp)
- call splint(x1a,yytmp,y2tmp,m,x1,y)
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.h b/Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.h
deleted file mode 100644
index c14b25f..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLIN2.h
+++ /dev/null
@@ -1,11 +0,0 @@
-extern int otb_6s_splin2_(
- otb_6s_doublereal *x1a,
- otb_6s_doublereal *x2a,
- otb_6s_doublereal *ya,
- otb_6s_doublereal *y2a,
- otb_6s_integer *m,
- otb_6s_integer *n,
- otb_6s_doublereal *x1,
- otb_6s_doublereal *x2,
- otb_6s_doublereal *y
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.P b/Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.P
deleted file mode 100644
index b8ea7f5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int spline_(doublereal *x, doublereal *y, integer *n, doublereal *yp1, doublereal *ypn, doublereal *y2);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.c b/Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.c
deleted file mode 100644
index 60bdda3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.c
+++ /dev/null
@@ -1,95 +0,0 @@
-/* SPLINE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine spline(x,y,n,yp1,ypn,y2) >*/
-/* Subroutine */ int spline_(doublereal *x, doublereal *y, integer *n,
- doublereal *yp1, doublereal *ypn, doublereal *y2)
-{
- /* System generated locals */
- integer i__1;
-
- /* Local variables */
- integer i__, k;
- doublereal p, u[100], qn, un, sig;
-
-/*< parameter (nmax=100) >*/
-/*< integer n,i,k >*/
-/*< real x(n),y(n),y2(n),u(nmax) >*/
-/*< real yp1,ypn,sig,p,qn,un >*/
-/*< if (yp1.gt..99e30) then >*/
- /* Parameter adjustments */
- --y2;
- --y;
- --x;
-
- /* Function Body */
- if (*yp1 > 9.9e29) {
-/*< y2(1)=0. >*/
- y2[1] = 0.;
-/*< u(1)=0. >*/
- u[0] = 0.;
-/*< else >*/
- } else {
-/*< y2(1)=-0.5 >*/
- y2[1] = -.5;
-/*< u(1)=(3./(x(2)-x(1)))*((y(2)-y(1))/(x(2)-x(1))-yp1) >*/
- u[0] = 3. / (x[2] - x[1]) * ((y[2] - y[1]) / (x[2] - x[1]) - *yp1);
-/*< endif >*/
- }
-/*< do 11 i=2,n-1 >*/
- i__1 = *n - 1;
- for (i__ = 2; i__ <= i__1; ++i__) {
-/*< sig=(x(i)-x(i-1))/(x(i+1)-x(i-1)) >*/
- sig = (x[i__] - x[i__ - 1]) / (x[i__ + 1] - x[i__ - 1]);
-/*< p=sig*y2(i-1)+2. >*/
- p = sig * y2[i__ - 1] + 2.;
-/*< y2(i)=(sig-1.)/p >*/
- y2[i__] = (sig - 1.) / p;
-/*< >*/
- u[i__ - 1] = (((y[i__ + 1] - y[i__]) / (x[i__ + 1] - x[i__]) - (y[i__]
- - y[i__ - 1]) / (x[i__] - x[i__ - 1])) * 6. / (x[i__ + 1] -
- x[i__ - 1]) - sig * u[i__ - 2]) / p;
-/*< 11 continue >*/
-/* L11: */
- }
-/*< if (ypn.gt..99e30) then >*/
- if (*ypn > 9.9e29) {
-/*< qn=0. >*/
- qn = 0.;
-/*< un=0. >*/
- un = 0.;
-/*< else >*/
- } else {
-/*< qn=0.5 >*/
- qn = .5;
-/*< un=(3./(x(n)-x(n-1)))*(ypn-(y(n)-y(n-1))/(x(n)-x(n-1))) >*/
- un = 3. / (x[*n] - x[*n - 1]) * (*ypn - (y[*n] - y[*n - 1]) / (x[*n]
- - x[*n - 1]));
-/*< endif >*/
- }
-/*< y2(n)=(un-qn*u(n-1))/(qn*y2(n-1)+1.) >*/
- y2[*n] = (un - qn * u[*n - 2]) / (qn * y2[*n - 1] + 1.);
-/*< do 12 k=n-1,1,-1 >*/
- for (k = *n - 1; k >= 1; --k) {
-/*< y2(k)=y2(k)*y2(k+1)+u(k) >*/
- y2[k] = y2[k] * y2[k + 1] + u[k - 1];
-/*< 12 continue >*/
-/* L12: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* spline_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.f b/Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.f
deleted file mode 100644
index 07ca71b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.f
+++ /dev/null
@@ -1,32 +0,0 @@
- subroutine spline(x,y,n,yp1,ypn,y2)
- parameter (nmax=100)
- integer n,i,k
- real x(n),y(n),y2(n),u(nmax)
- real yp1,ypn,sig,p,qn,un
- if (yp1.gt..99e30) then
- y2(1)=0.
- u(1)=0.
- else
- y2(1)=-0.5
- u(1)=(3./(x(2)-x(1)))*((y(2)-y(1))/(x(2)-x(1))-yp1)
- endif
- do 11 i=2,n-1
- sig=(x(i)-x(i-1))/(x(i+1)-x(i-1))
- p=sig*y2(i-1)+2.
- y2(i)=(sig-1.)/p
- u(i)=(6.*((y(i+1)-y(i))/(x(i+1)-x(i))-(y(i)-y(i-1))
- * /(x(i)-x(i-1)))/(x(i+1)-x(i-1))-sig*u(i-1))/p
-11 continue
- if (ypn.gt..99e30) then
- qn=0.
- un=0.
- else
- qn=0.5
- un=(3./(x(n)-x(n-1)))*(ypn-(y(n)-y(n-1))/(x(n)-x(n-1)))
- endif
- y2(n)=(un-qn*u(n-1))/(qn*y2(n-1)+1.)
- do 12 k=n-1,1,-1
- y2(k)=y2(k)*y2(k+1)+u(k)
-12 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.h b/Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.h
deleted file mode 100644
index 207170c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINE.h
+++ /dev/null
@@ -1,8 +0,0 @@
-extern int otb_6s_spline_(
- otb_6s_doublereal *x,
- otb_6s_doublereal *y,
- otb_6s_integer *n,
- otb_6s_doublereal *yp1,
- otb_6s_doublereal *ypn,
- otb_6s_doublereal *y2
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.P b/Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.P
deleted file mode 100644
index 2603aea..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int splint_(doublereal *xa, doublereal *ya, doublereal *y2a, integer *n, doublereal *x, doublereal *y);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.c b/Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.c
deleted file mode 100644
index 0f32d14..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.c
+++ /dev/null
@@ -1,85 +0,0 @@
-/* SPLINT.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine splint(xa,ya,y2a,n,x,y) >*/
-/* Subroutine */ int splint_(doublereal *xa, doublereal *ya, doublereal *y2a,
- integer *n, doublereal *x, doublereal *y)
-{
- /* System generated locals */
- doublereal d__1, d__2, d__3, d__4, d__5;
-
- /* Builtin functions */
- /* Subroutine */ int s_paus(char *, ftnlen);
-
- /* Local variables */
- doublereal a, b, h__;
- integer k, khi, klo;
-
-/*< integer n,klo,khi,k >*/
-/*< real xa(n),ya(n),y2a(n) >*/
-/*< real x,y,h,a,b >*/
-/*< klo=1 >*/
- /* Parameter adjustments */
- --y2a;
- --ya;
- --xa;
-
- /* Function Body */
- klo = 1;
-/*< khi=n >*/
- khi = *n;
-/*< 1 if (khi-klo.gt.1) then >*/
-L1:
- if (khi - klo > 1) {
-/*< k=(khi+klo)/2 >*/
- k = (khi + klo) / 2;
-/*< if(xa(k).gt.x)then >*/
- if (xa[k] > *x) {
-/*< khi=k >*/
- khi = k;
-/*< else >*/
- } else {
-/*< klo=k >*/
- klo = k;
-/*< endif >*/
- }
-/*< goto 1 >*/
- goto L1;
-/*< endif >*/
- }
-/*< h=xa(khi)-xa(klo) >*/
- h__ = xa[khi] - xa[klo];
-/*< if (h.eq.0.) pause 'bad xa input.' >*/
- if (h__ == 0.) {
- s_paus("bad xa input.", 13L);
- }
-/*< a=(xa(khi)-x)/h >*/
- a = (xa[khi] - *x) / h__;
-/*< b=(x-xa(klo))/h >*/
- b = (*x - xa[klo]) / h__;
-/*< >*/
-/* Computing 3rd power */
- d__1 = a, d__2 = d__1;
-/* Computing 3rd power */
- d__3 = b, d__4 = d__3;
-/* Computing 2nd power */
- d__5 = h__;
- *y = a * ya[klo] + b * ya[khi] + ((d__2 * (d__1 * d__1) - a) * y2a[klo] +
- (d__4 * (d__3 * d__3) - b) * y2a[khi]) * (d__5 * d__5) / 6.;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* splint_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.f b/Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.f
deleted file mode 100644
index 5c768aa..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.f
+++ /dev/null
@@ -1,23 +0,0 @@
- subroutine splint(xa,ya,y2a,n,x,y)
- integer n,klo,khi,k
- real xa(n),ya(n),y2a(n)
- real x,y,h,a,b
- klo=1
- khi=n
-1 if (khi-klo.gt.1) then
- k=(khi+klo)/2
- if(xa(k).gt.x)then
- khi=k
- else
- klo=k
- endif
- goto 1
- endif
- h=xa(khi)-xa(klo)
- if (h.eq.0.) pause 'bad xa input.'
- a=(xa(khi)-x)/h
- b=(x-xa(klo))/h
- y=a*ya(klo)+b*ya(khi)+
- * ((a**3-a)*y2a(klo)+(b**3-b)*y2a(khi))*(h**2)/6.
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.h b/Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.h
deleted file mode 100644
index c5a6479..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SPLINT.h
+++ /dev/null
@@ -1,8 +0,0 @@
-extern int otb_6s_splint_(
- otb_6s_doublereal *xa,
- otb_6s_doublereal *ya,
- otb_6s_doublereal *y2a,
- otb_6s_integer *n,
- otb_6s_doublereal *x,
- otb_6s_doublereal *y
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/STM.P b/Modules/ThirdParty/6S/src/6SV1.0B/STM.P
deleted file mode 100644
index f3d9364..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/STM.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int stm_();
-/* comlen num_quad__ 4 */
-/* comlen sixs_aerbas__ 480000 */
-/* comlen sixs_coef__ 1952 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/STM.c b/Modules/ThirdParty/6S/src/6SV1.0B/STM.c
deleted file mode 100644
index b2a792e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/STM.c
+++ /dev/null
@@ -1,707 +0,0 @@
-/* STM.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal ph[20000] /* was [20][1000] */, qh[20000] /* was [20][
- 1000] */, uh[20000] /* was [20][1000] */;
-} sixs_aerbas__;
-
-#define sixs_aerbas__1 sixs_aerbas__
-
-Extern struct {
- doublereal ex[80] /* was [4][20] */, sc[80] /* was [4][20] */,
- asy[80] /* was [4][20] */, vi[4];
-} sixs_coef__;
-
-#define sixs_coef__1 sixs_coef__
-
-/*< subroutine stm >*/
-/* Subroutine */ int stm_()
-{
- /* Initialized data */
-
- static doublereal asy_m__[20] = { .787,.795,.796,.8,.802,.804,.806,.808,
- .809,.81,.81,.809,.807,.802,.77,.736,.723,.685,.647,.469 };
- static doublereal ex_m__[20] = { 1.323426,1.367378,1.375664,1.389866,
- 1.397082,1.397282,1.394358,1.384032,1.363314,1.332585,1.301248,
- 1.278673,1.211386,1.101411,.720679,.5124845,.4508164,.3256089,
- .2397076,.06640586 };
- static doublereal sc_m__[20] = { 1.323426,1.367378,1.375664,1.389866,
- 1.397082,1.397282,1.394358,1.384032,1.363314,1.332585,1.301248,
- 1.278673,1.211386,1.101411,.720679,.5124845,.4508164,.3256089,
- .2397076,.06640586 };
- static doublereal phr[1660] /* was [20][83] */ = { .2975,.2458,.2347,
- .2072,.1879,.1755,.1638,.1489,.1415,.1337,.1284,.1253,.1225,.12,
- .128,.142,.1485,.1709,.1989,.4039,.2696,.2255,.2165,.1924,.1756,
- .165,.1551,.1422,.1359,.1293,.1248,.1223,.1201,.1185,.1274,.1416,
- .1482,.1707,.1987,.4037,.2051,.1731,.1684,.1526,.1427,.1366,.1306,
- .1236,.1198,.1163,.114,.113,.1128,.1132,.1252,.14,.1468,.1696,
- .1978,.4031,.1882,.1522,.1476,.1348,.1286,.1235,.1178,.1141,.1103,
- .1075,.1066,.1062,.1067,.1081,.122,.1375,.1445,.1677,.1962,.402,
- .2239,.1759,.1687,.1519,.1445,.1363,.1276,.1226,.1156,.1102,.1085,
- .1073,.1062,.1062,.1188,.1346,.1417,.1653,.1942,.4004,.2685,.2136,
- .2047,.1832,.1724,.1615,.1496,.141,.1302,.1214,.1173,.1148,.1107,
- .1076,.1161,.1315,.1387,.1626,.1917,.3985,.2867,.2382,.2294,.2073,
- .1934,.1828,.1696,.1576,.1448,.1339,.1275,.1239,.1169,.1106,.114,
- .1285,.1356,.1596,.1889,.3961,.2805,.2436,.2353,.2165,.2016,.193,
- .1804,.167,.154,.1427,.1349,.1308,.122,.1135,.1121,.1255,.1325,
- .1564,.1859,.3934,.2628,.2355,.2287,.2133,.2005,.1932,.182,.1696,
- .1574,.1464,.1385,.1342,.1249,.1151,.1102,.1226,.1294,.1532,.1828,
- .3903,.2453,.222,.2174,.2042,.1948,.1873,.1777,.1674,.1565,.1459,
- .1387,.1344,.1252,.1151,.1082,.1197,.1264,.15,.1796,.387,.2311,
- .2096,.2058,.1942,.1868,.1796,.1711,.1624,.1524,.1427,.1362,.1322,
- .1236,.1137,.1059,.1168,.1234,.1468,.1764,.3834,.2201,.2001,.1961,
- .1853,.1778,.1718,.1641,.1559,.1467,.138,.132,.1284,.1204,.1112,
- .1034,.114,.1204,.1437,.1732,.3797,.2119,.1918,.1878,.1771,.1693,
- .1638,.1567,.1489,.1404,.1325,.127,.1238,.1164,.108,.1008,.1111,
- .1175,.1406,.1701,.3758,.2031,.1835,.1798,.169,.1614,.1558,.1491,
- .1417,.1341,.1267,.1216,.1187,.1121,.1044,.09812,.1084,.1147,
- .1377,.1671,.3718,.1933,.1749,.1713,.1608,.1539,.148,.1416,.1347,
- .1279,.1208,.1162,.1133,.1076,.1006,.09541,.1057,.112,.1349,.1643,
- .3678,.1849,.1656,.1619,.1523,.1462,.1402,.1342,.1278,.1215,.115,
- .1109,.1082,.1029,.09679,.09278,.1032,.1095,.1323,.1616,.3638,
- .1764,.1561,.1522,.1436,.1377,.133,.1271,.1213,.115,.1093,.1057,
- .1035,.09837,.09304,.09029,.1009,.1072,.13,.1592,.3598,.1653,
- .1466,.1431,.135,.1296,.1258,.1203,.1149,.109,.1039,.1007,.0988,
- .09419,.08947,.08797,.09875,.1051,.1278,.1569,.3559,.152,.138,
- .1349,.1273,.1221,.1183,.1139,.1088,.1037,.09893,.09599,.09428,
- .09039,.08618,.08585,.09687,.1033,.126,.155,.3522,.1401,.1298,
- .1269,.1204,.1149,.1115,.1078,.103,.09871,.09453,.09168,.0901,
- .08685,.08326,.08397,.09528,.1018,.1244,.1534,.3487,.1305,.1211,
- .1188,.1131,.1084,.1055,.102,.09774,.0941,.0905,.08792,.08647,
- .08359,.0807,.08238,.09398,.1005,.1231,.152,.3454,.1216,.1129,
- .1111,.1063,.1026,.1002,.09688,.0932,.0899,.08683,.08467,.08337,
- .08068,.07847,.0811,.09298,.09963,.1222,.1511,.3425,.1134,.1061,
- .1045,.1006,.0975,.09529,.09251,.08922,.08621,.08361,.08184,
- .08071,.07822,.07653,.08013,.09231,.09906,.1217,.1506,.34,.1062,
- .1004,.0992,.09577,.09308,.09099,.08873,.08576,.08313,.08086,
- .07938,.07843,.07626,.0749,.07948,.09197,.09884,.1215,.1504,.3379,
- .1001,.09533,.09465,.09133,.08933,.08735,.08542,.08295,.08063,
- .07857,.07732,.07649,.07474,.07362,.07912,.09199,.09899,.1218,
- .1508,.3364,.09488,.09133,.09069,.08774,.08627,.08439,.0827,
- .08069,.07866,.07673,.07569,.07493,.07361,.07273,.07908,.0924,
- .09953,.1226,.1516,.3355,.0912,.08829,.08751,.08502,.08377,.08211,
- .08061,.07886,.07713,.07539,.07448,.0738,.0728,.07225,.07939,
- .09323,.1005,.1238,.153,.3352,.0889,.08568,.08517,.08293,.08174,
- .08043,.079,.07756,.07601,.07453,.07368,.07311,.07231,.07216,
- .08008,.09449,.1019,.1256,.1549,.3358,.08686,.0837,.08347,.08154,
- .08043,.07921,.07789,.07675,.07535,.07411,.07333,.07282,.0722,
- .07243,.08118,.09622,.1038,.1279,.1576,.3372,.08502,.08269,.08239,
- .08091,.07987,.07857,.07737,.07632,.07517,.07409,.07341,.07295,
- .07251,.07305,.08271,.09843,.1062,.1309,.1609,.3396,.08471,.08238,
- .08178,.08072,.07963,.07864,.07742,.07636,.07538,.07445,.07386,
- .07353,.07322,.07399,.08468,.1011,.1092,.1345,.165,.343,.08559,
- .08235,.08146,.08075,.07973,.07928,.07789,.07698,.07595,.07518,
- .07469,.07455,.07434,.0753,.0871,.1044,.1129,.1389,.1699,.3476,
- .08624,.08286,.08207,.08128,.08058,.08015,.07881,.07807,.07705,
- .07637,.076,.07594,.07591,.07704,.09,.1083,.1171,.1441,.1758,
- .3536,.0863,.08428,.08392,.08266,.08203,.08126,.08032,.07955,
- .07869,.07808,.07779,.07772,.07795,.07925,.09343,.1129,.1221,
- .1502,.1828,.361,.0877,.0865,.08605,.08473,.08377,.08312,.08242,
- .08152,.08075,.08021,.08003,.08,.08044,.08194,.09745,.1182,.1279,
- .1573,.1909,.37,.09053,.08908,.08827,.08716,.08592,.08568,.08499,
- .08411,.08326,.08279,.08273,.08283,.08339,.08516,.1022,.1245,
- .1347,.1656,.2003,.3808,.0936,.09184,.09132,.09004,.0889,.08859,
- .08796,.08729,.08638,.08594,.08597,.0862,.08688,.08896,.1076,
- .1316,.1425,.175,.2111,.3934,.09716,.09539,.09505,.09369,.09265,
- .09215,.09154,.091,.09012,.08972,.08983,.09014,.09097,.0934,.114,
- .1399,.1515,.1859,.2235,.4082,.1019,.0999,.09934,.09813,.09692,
- .0966,.09587,.0953,.0945,.09418,.09435,.09471,.09573,.09855,.1213,
- .1493,.1618,.1983,.2377,.4253,.1071,.1049,.1045,.1032,.1021,.1016,
- .1008,.1003,.09966,.09941,.09965,.09998,.1012,.1045,.1297,.1601,
- .1736,.2125,.2539,.4449,.1127,.1105,.1105,.1089,.1086,.1073,.1066,
- .1062,.1057,.1055,.1058,.1061,.1076,.1113,.1393,.1725,.1871,.2286,
- .2724,.4672,.1161,.1138,.1138,.1122,.112,.1107,.1098,.1094,.1091,
- .1088,.1092,.1095,.1111,.1151,.1447,.1793,.1945,.2375,.2826,.4795,
- .1202,.1174,.1174,.1158,.1155,.1143,.1134,.1128,.1126,.1124,.1128,
- .1131,.1149,.1192,.1504,.1866,.2025,.247,.2934,.4925,.1294,.126,
- .1255,.124,.1233,.1226,.1214,.1205,.1203,.1205,.1208,.1213,.1232,
- .1282,.1631,.2028,.2201,.2679,.3172,.5209,.1389,.1356,.1348,.1334,
- .1325,.1318,.1305,.1295,.1293,.1297,.1301,.1306,.1328,.1386,.1776,
- .2213,.2402,.2917,.3441,.5529,.1504,.1461,.1454,.1439,.1431,.1421,
- .1408,.1401,.1398,.1401,.1407,.1413,.1439,.1505,.1942,.2424,.2631,
- .3187,.3745,.5886,.1641,.1585,.1579,.156,.1552,.1542,.1527,.1522,
- .1518,.1521,.1529,.1536,.1566,.1642,.2133,.2666,.2892,.3495,.4089,
- .6283,.1786,.1734,.1725,.1704,.1693,.1679,.1665,.166,.1657,.1659,
- .167,.1678,.1714,.18,.2352,.2944,.319,.3844,.4478,.6724,.1954,
- .1899,.1893,.1866,.1854,.1836,.1824,.182,.1816,.1818,.1832,.1842,
- .1884,.1981,.2605,.3262,.3531,.4241,.4916,.7211,.2161,.2092,.2083,
- .2052,.2036,.2022,.2009,.2005,.1998,.2002,.2018,.2032,.208,.2191,
- .2898,.3627,.3922,.4692,.541,.7748,.2396,.2325,.2303,.2273,.2246,
- .224,.2225,.2215,.2207,.2215,.2233,.2251,.2308,.2435,.3237,.4046,
- .4369,.5204,.5967,.8339,.2653,.2584,.256,.2523,.2495,.2486,.2471,
- .2459,.2453,.2463,.2485,.2506,.2573,.2718,.363,.4529,.4882,.5785,
- .6595,.8986,.2963,.2868,.2851,.2805,.2789,.2769,.2752,.2745,.2739,
- .275,.2779,.2802,.2882,.305,.4088,.5084,.5471,.6445,.7301,.9693,
- .3324,.3206,.3183,.314,.3123,.3103,.3081,.3075,.307,.3086,.3121,
- .3148,.3243,.3439,.4621,.5725,.6147,.7194,.8095,1.046,.3735,.3611,
- .3579,.3537,.3508,.3492,.3467,.3457,.3457,.3481,.3521,.3554,.3665,
- .3898,.5243,.6464,.6923,.8044,.8987,1.13,.4204,.407,.4044,.3995,
- .3963,.3941,.3916,.3904,.3913,.3945,.3993,.4031,.4163,.4439,.5969,
- .7316,.7814,.9008,.9988,1.221,.475,.4599,.4576,.4524,.4492,.4465,
- .4438,.4433,.4449,.4491,.4548,.4594,.4752,.508,.6818,.8301,.8837,
- 1.01,1.111,1.319,.5394,.5231,.5197,.5147,.5101,.5083,.5057,.5058,
- .508,.5136,.5204,.5261,.5453,.584,.7814,.9437,1.001,1.134,1.237,
- 1.424,.6129,.5974,.5936,.5876,.5824,.5808,.5788,.5794,.5831,.5902,
- .5986,.6054,.6291,.6745,.8982,1.075,1.136,1.274,1.377,1.537,.6964,
- .683,.6804,.6726,.6689,.6659,.6651,.667,.6728,.6816,.6923,.7005,
- .7296,.7827,1.036,1.227,1.291,1.433,1.534,1.659,.7964,.7828,.7808,
- .7726,.7705,.7676,.7677,.7718,.7794,.7908,.8047,.8151,.8502,.9124,
- 1.197,1.402,1.469,1.611,1.708,1.788,.9181,.9016,.8981,.892,.89,
- .8897,.8912,.8971,.9069,.9226,.9404,.9538,.9954,1.069,1.388,1.604,
- 1.672,1.813,1.902,1.925,1.057,1.043,1.039,1.035,1.034,1.036,1.04,
- 1.047,1.061,1.083,1.105,1.122,1.171,1.258,1.612,1.837,1.905,2.039,
- 2.117,2.069,1.217,1.209,1.207,1.206,1.207,1.211,1.217,1.229,1.249,
- 1.278,1.306,1.326,1.385,1.487,1.875,2.105,2.171,2.293,2.354,2.222,
- 1.407,1.404,1.407,1.409,1.417,1.421,1.432,1.451,1.479,1.516,1.551,
- 1.574,1.646,1.764,2.185,2.412,2.474,2.577,2.615,2.382,1.633,1.639,
- 1.645,1.655,1.669,1.677,1.694,1.722,1.761,1.807,1.851,1.88,1.965,
- 2.101,2.549,2.765,2.818,2.894,2.901,2.548,1.9,1.927,1.934,1.955,
- 1.975,1.991,2.017,2.056,2.108,2.167,2.22,2.255,2.357,2.511,2.974,
- 3.167,3.207,3.244,3.212,2.721,2.216,2.274,2.287,2.322,2.351,2.376,
- 2.416,2.47,2.537,2.611,2.676,2.72,2.838,3.008,3.472,3.624,3.645,
- 3.631,3.55,2.898,2.599,2.692,2.716,2.769,2.817,2.854,2.911,2.984,
- 3.07,3.163,3.242,3.294,3.428,3.613,4.05,4.14,4.136,4.054,3.914,
- 3.079,3.062,3.206,3.242,3.324,3.4,3.452,3.53,3.627,3.736,3.85,
- 3.945,4.004,4.153,4.345,4.717,4.72,4.681,4.515,4.303,3.263,3.634,
- 3.85,3.899,4.025,4.133,4.205,4.308,4.433,4.569,4.707,4.815,4.881,
- 5.039,5.229,5.484,5.365,5.282,5.012,4.714,3.447,4.352,4.669,4.737,
- 4.921,5.062,5.16,5.293,5.448,5.615,5.776,5.892,5.962,6.121,6.29,
- 6.355,6.076,5.937,5.542,5.146,3.631,5.27,5.724,5.823,6.07,6.251,
- 6.379,6.547,6.735,6.928,7.103,7.221,7.29,7.433,7.55,7.333,6.85,
- 6.644,6.1,5.591,3.81,6.481,7.113,7.245,7.562,7.793,7.949,8.151,
- 8.367,8.573,8.746,8.853,8.91,9.008,9.033,8.417,7.679,7.393,6.678,
- 6.045,3.984,8.163,8.98,9.145,9.53,9.812,9.985,10.21,10.43,10.62,
- 10.77,10.84,10.87,10.88,10.75,9.594,8.551,8.172,7.267,6.499,4.15,
- 10.59,11.55,11.73,12.16,12.46,12.64,12.84,13.03,13.16,13.22,13.22,
- 13.19,13.05,12.7,10.84,9.446,8.964,7.852,6.942,4.304,14.17,15.15,
- 15.32,15.71,15.94,16.07,16.19,16.26,16.24,16.15,16.01,15.9,15.52,
- 14.85,12.13,10.34,9.745,8.416,7.364,4.444,19.56,20.22,20.29,20.46,
- 20.46,20.47,20.38,20.19,19.9,19.54,19.18,18.94,18.24,17.15,13.41,
- 11.19,10.49,8.942,7.749,4.567,27.63,27.22,27.05,26.63,26.18,25.9,
- 25.44,24.8,24.07,23.3,22.63,22.21,21.07,19.45,14.6,11.97,11.15,
- 9.406,8.086,4.671,39.22,36.37,35.76,34.19,32.98,32.2,31.12,29.84,
- 28.48,27.15,26.09,25.44,23.79,21.6,15.63,12.62,11.71,9.788,8.359,
- 4.753,54.07,46.93,45.59,42.35,40.09,38.6,36.73,34.64,32.56,30.59,
- 29.13,28.24,26.09,23.35,16.42,13.11,12.13,10.07,8.557,4.811,68.07,
- 55.89,53.77,48.85,45.6,43.45,40.85,38.07,35.4,32.92,31.15,30.07,
- 27.56,24.44,16.89,13.4,12.37,10.23,8.671,4.844,72.5,58.54,56.16,
- 50.7,47.14,44.78,41.96,38.99,36.14,33.52,31.67,30.54,27.93,24.71,
- 17.,13.46,12.42,10.27,8.698,4.852 };
- static doublereal qhr[1660] /* was [20][83] */ = { -5.308e-22,6.787e-22,
- 5.459e-22,-2.16e-22,-2.354e-22,-1.055e-22,1.958e-23,-1.308e-22,
- -8.726e-24,-4.912e-23,9.602e-23,2.191e-23,-1.487e-22,-1.464e-22,
- -3.694e-22,-3.902e-22,-5.161e-23,1.407e-22,2.306e-22,-1.974e-22,
- -.003847,-.001662,-8.407e-4,-5.478e-4,7.911e-5,-4.079e-4,4.175e-5,
- 5.053e-4,6.411e-4,6.492e-4,7.231e-4,6.181e-4,7.015e-4,6.29e-4,
- 3.515e-4,2.073e-4,1.652e-4,7.84e-5,1.529e-5,-1.772e-4,-.007671,
- -.003169,-4.804e-4,-3.328e-4,.001869,2.357e-4,.001454,.002848,
- .003394,.003305,.003548,.00319,.003409,.003055,.00174,.001033,
- 8.25e-4,3.879e-4,6.618e-5,-9.349e-4,-.001357,9.185e-4,.003452,
- .002842,.005575,.004274,.004916,.006212,.007113,.006903,.007227,
- .006894,.007016,.0064,.003816,.002299,.001839,8.488e-4,1.025e-4,
- -.002303,.004828,.003963,.003932,.00443,.005783,.006725,.006743,
- .007468,.008528,.008964,.009379,.009547,.009635,.009252,.006001,
- .003696,.002962,.001322,4.286e-5,-.004288,-.00222,-.003095,
- -.00457,-.001803,-.001751,.001356,.002535,.003675,.00534,.007371,
- .008188,.009106,.009834,.01043,.007727,.004902,.003931,.001656,
- -2.063e-4,-.006899,-.02526,-.02183,-.0215,-.01715,-.01525,-.01153,
- -.008462,-.005366,-.00199,.001685,.003559,.005059,.007324,.009451,
- .008609,.005663,.00453,.001711,-7.331e-4,-.01014,-.05228,-.04467,
- -.04196,-.03619,-.03073,-.0271,-.02263,-.01737,-.01168,-.006733,
- -.003404,-.001485,.002669,.006562,.008516,.00583,.004625,.001388,
- -.001609,-.01403,-.07486,-.06291,-.06035,-.05231,-.04557,-.04117,
- -.03546,-.02903,-.0219,-.01568,-.01127,-.008772,-.003157,.002449,
- .007521,.005367,.004163,6.31e-4,-.00288,-.01856,-.0878,-.07432,
- -.07299,-.06302,-.05729,-.05124,-.04487,-.03802,-.0307,-.02337,
- -.01855,-.01539,-.009005,-.002067,.005816,.004316,.003161,
- -5.766e-4,-.00457,-.02375,-.09331,-.07984,-.07823,-.06842,-.06318,
- -.05667,-.05053,-.04379,-.03643,-.02887,-.02402,-.02067,-.01392,
- -.006299,.003628,.00277,.001677,-.00222,-.006683,-.02957,-.09431,
- -.08006,-.07741,-.06906,-.06339,-.05834,-.05253,-.04637,-.03897,
- -.03203,-.02736,-.02437,-.01754,-.00987,.001173,8.345e-4,-2.09e-4,
- -.004263,-.009205,-.03605,-.08953,-.07549,-.07284,-.06578,-.06055,
- -.05661,-.05135,-.04593,-.03928,-.03319,-.02894,-.02639,-.01995,
- -.01269,-.001373,-.001384,-.002412,-.006662,-.01212,-.04316,
- -.07919,-.06806,-.06617,-.06007,-.05588,-.05225,-.04799,-.04323,
- -.03808,-.03286,-.02921,-.0269,-.02134,-.0148,-.003888,-.003793,
- -.004854,-.009368,-.01538,-.05089,-.06584,-.05945,-.05821,-.05313,
- -.0499,-.04638,-.04344,-.03939,-.03571,-.03147,-.02851,-.02638,
- -.02185,-.01624,-.006304,-.006318,-.007469,-.01233,-.01898,
- -.05925,-.05399,-.04954,-.04899,-.04509,-.04325,-.03989,-.03806,
- -.03532,-.03252,-.02924,-.02708,-.02531,-.02166,-.0171,-.008584,
- -.008901,-.0102,-.01552,-.02288,-.0682,-.04485,-.03957,-.03932,
- -.03694,-.03617,-.03397,-.03257,-.03117,-.02891,-.02652,-.02515,
- -.02393,-.02101,-.01748,-.0107,-.0115,-.01301,-.01889,-.02706,
- -.07773,-.03392,-.03153,-.03126,-.03008,-.02967,-.02861,-.02774,
- -.02684,-.02539,-.02388,-.02303,-.02224,-.0201,-.01758,-.01265,
- -.01409,-.01587,-.02241,-.03148,-.08783,-.02352,-.02509,-.02512,
- -.02451,-.0241,-.02347,-.02352,-.02267,-.02219,-.0215,-.02094,
- -.02042,-.01907,-.01751,-.01444,-.01667,-.01875,-.02606,-.03613,
- -.09849,-.01671,-.01935,-.01961,-.01964,-.01923,-.01903,-.01961,
- -.01905,-.01929,-.01926,-.019,-.0187,-.01799,-.01733,-.01609,
- -.01921,-.02165,-.02983,-.04099,-.1097,-.01125,-.01391,-.01464,
- -.01505,-.01552,-.01524,-.016,-.01609,-.0168,-.01712,-.01729,
- -.01712,-.01694,-.01705,-.01762,-.02172,-.02455,-.0337,-.04606,
- -.1214,-.006411,-.00939,-.01062,-.01111,-.01253,-.01208,-.01298,
- -.01366,-.0146,-.01519,-.01575,-.01569,-.01593,-.0167,-.01906,
- -.0242,-.02745,-.03767,-.0513,-.1335,-.003637,-.006723,-.007453,
- -.008535,-.009657,-.009792,-.01077,-.01151,-.01258,-.01354,
- -.01428,-.01445,-.01499,-.01632,-.02041,-.02666,-.03036,-.04174,
- -.05673,-.1462,-.002257,-.004789,-.005056,-.006538,-.007314,
- -.007959,-.008974,-.009679,-.01088,-.01214,-.01298,-.01335,
- -.01418,-.01596,-.02168,-.0291,-.03327,-.04592,-.06234,-.1592,
- -4.036e-4,-.002548,-.003402,-.004446,-.005819,-.006207,-.007248,
- -.008249,-.009605,-.01093,-.01191,-.01231,-.0135,-.01563,-.02288,
- -.03154,-.03619,-.0502,-.06812,-.1727,.001497,-.001083,-.002244,
- -.003014,-.004774,-.004666,-.005826,-.007079,-.008601,-.009904,
- -.011,-.01135,-.01293,-.01535,-.02404,-.03399,-.03913,-.05459,
- -.07408,-.1866,.002087,-4.758e-4,-.001182,-.002147,-.003636,
- -.00367,-.004808,-.006049,-.007678,-.009012,-.01015,-.01056,
- -.0124,-.0151,-.02518,-.03647,-.04211,-.0591,-.08021,-.2009,
- .001657,4.041e-4,-2.04e-4,-.001212,-.002503,-.003007,-.00389,
- -.005228,-.006826,-.008237,-.009345,-.009909,-.01191,-.01489,
- -.02632,-.03897,-.04513,-.06375,-.08653,-.2154,.002143,.00128,
- 4.527e-4,-5.118e-4,-.001788,-.002176,-.003038,-.004549,-.006152,
- -.007603,-.008677,-.009308,-.0115,-.01471,-.02746,-.04152,-.04821,
- -.06852,-.09304,-.2303,.003304,.001548,8.72e-4,-2.022e-4,-.00133,
- -.001423,-.00243,-.003857,-.005612,-.007065,-.008121,-.008767,
- -.01115,-.01456,-.02863,-.04411,-.05136,-.07344,-.09976,-.2455,
- .003609,.001781,.001457,2.086e-4,-7.149e-4,-.001069,-.001931,
- -.003234,-.005069,-.006523,-.007609,-.00835,-.01085,-.01442,
- -.02982,-.04676,-.0546,-.07852,-.1067,-.2608,.003288,.002567,
- .002287,9.618e-4,-6.828e-5,-5.962e-4,-.00132,-.002838,-.00453,
- -.005954,-.007149,-.008019,-.01058,-.0143,-.03103,-.04947,-.05792,
- -.08376,-.1138,-.2764,.003797,.003456,.002885,.001733,4.573e-4,
- 9.352e-5,-7.169e-4,-.002501,-.004033,-.005442,-.006763,-.007705,
- -.01035,-.0142,-.03228,-.05226,-.06136,-.08918,-.1212,-.2921,
- .004872,.003663,.003056,.002072,.001058,6.808e-4,-3.549e-4,
- -.001975,-.003557,-.005021,-.00642,-.007394,-.01016,-.01416,
- -.03357,-.05515,-.06492,-.0948,-.1288,-.3079,.006129,.00386,
- .003389,.002448,.001663,.001268,-1.914e-5,-.001434,-.003079,
- -.004591,-.006104,-.007096,-.009979,-.01414,-.03492,-.05815,
- -.06864,-.1006,-.1366,-.3238,.006769,.004835,.004199,.003363,
- .002294,.001913,5.437e-4,-.001045,-.002562,-.004111,-.005782,
- -.006827,-.009791,-.01415,-.03635,-.06129,-.07252,-.1066,-.1448,
- -.3397,.007335,.005663,.004951,.004169,.003129,.002525,.001106,
- -5.853e-4,-.001973,-.003656,-.005421,-.006575,-.009579,-.01417,
- -.03789,-.06459,-.07659,-.1129,-.1531,-.3555,.008643,.006322,
- .005611,.004819,.003931,.003139,.001661,1.863e-5,-.001383,
- -.003222,-.005057,-.006302,-.009358,-.01422,-.03954,-.06805,
- -.08087,-.1194,-.1617,-.3713,.009557,.007667,.006817,.005963,
- .004575,.003855,.002412,6.278e-4,-8.448e-4,-.002738,-.004709,
- -.005988,-.009143,-.01429,-.04131,-.07171,-.08539,-.1261,-.1706,
- -.3868,.01068,.008904,.008115,.007034,.005319,.004686,.003195,
- .001332,-2.873e-4,-.00228,-.004337,-.005596,-.008919,-.01439,
- -.04323,-.07558,-.09015,-.133,-.1797,-.4021,.01298,.009905,
- .008826,.0078,.006089,.005611,.004025,.002225,2.886e-4,-.001886,
- -.003936,-.005117,-.008682,-.01452,-.04528,-.07966,-.09515,-.1402,
- -.1891,-.417,.01395,.01067,.009268,.008361,.006411,.006124,
- .004532,.002699,5.708e-4,-.001658,-.003722,-.004872,-.008559,
- -.01459,-.04635,-.08179,-.09775,-.1439,-.1939,-.4243,.01447,
- .01162,.009985,.009085,.006748,.006635,.005086,.003165,8.697e-4,
- -.001385,-.003488,-.004635,-.008428,-.01467,-.04747,-.08398,
- -.1004,-.1477,-.1987,-.4315,.01504,.01323,.01195,.01044,.007799,
- .007467,.006131,.004089,.001622,-7.561e-4,-.002916,-.004161,
- -.008117,-.01481,-.0498,-.08854,-.1059,-.1555,-.2086,-.4456,
- .01661,.01408,.01341,.01124,.009324,.008339,.007058,.005098,
- .002563,-1.249e-4,-.002227,-.003613,-.007749,-.01495,-.05226,
- -.09335,-.1117,-.1635,-.2186,-.459,.01898,.01571,.01459,.01252,
- .01057,.009799,.008325,.006137,.003436,6.209e-4,-.001541,-.002982,
- -.007388,-.01511,-.05486,-.09842,-.1177,-.1718,-.2288,-.4717,
- .02061,.01827,.01651,.01454,.01163,.01147,.009937,.00714,.004277,
- .001598,-8.513e-4,-.002308,-.007034,-.01524,-.0576,-.1037,-.1239,
- -.1803,-.2391,-.4835,.02232,.01991,.01849,.01614,.01332,.01303,
- .01133,.008324,.005371,.002669,-2.911e-5,-.001572,-.006626,
- -.01535,-.0605,-.1093,-.1304,-.1891,-.2494,-.4945,.02514,.02125,
- .01987,.0176,.01535,.01479,.01269,.009743,.006689,.003765,
- 9.395e-4,-7.213e-4,-.006153,-.01543,-.06359,-.1151,-.1372,-.1981,
- -.2598,-.5044,.02842,.02362,.02171,.01983,.01722,.01684,.01443,
- .01118,.008146,.005048,.00203,2.08e-4,-.005615,-.01545,-.06688,
- -.1212,-.1442,-.2072,-.2702,-.5131,.03015,.02592,.0246,.02229,
- .01963,.01866,.01622,.01284,.009911,.006578,.003312,.001176,
- -.004972,-.01541,-.0704,-.1275,-.1514,-.2164,-.2805,-.5205,.03158,
- .02787,.0274,.02464,.02237,.02041,.01805,.01499,.01188,.008207,
- .004719,.002305,-.004239,-.01534,-.07414,-.1341,-.1589,-.2257,
- -.2906,-.5264,.03669,.03089,.02975,.02746,.0245,.02324,.02049,
- .01729,.01382,.009949,.006144,.003727,-.003435,-.01528,-.07812,
- -.1408,-.1666,-.235,-.3004,-.5308,.04103,.03509,.03303,.03088,
- .02689,.02671,.0236,.0196,.01599,.01199,.00777,.005314,-.002463,
- -.01518,-.0823,-.1478,-.1743,-.2441,-.3097,-.5335,.04226,.03916,
- .03747,.03451,.03038,.02937,.02675,.02248,.01869,.01435,.009783,
- .00698,-.001231,-.01506,-.08667,-.1549,-.1822,-.2531,-.3186,
- -.5344,.04606,.04221,.04136,.03771,.03432,.03233,.02983,.02611,
- .02173,.01684,.0121,.008974,2.256e-4,-.01491,-.09116,-.1621,-.19,
- -.2617,-.3268,-.5333,.05303,.04604,.04479,.04113,.0383,.03682,
- .03365,.0299,.02496,.01957,.01466,.01142,.00185,-.01471,-.09575,
- -.1693,-.1977,-.2698,-.3341,-.5302,.05746,.05197,.04979,.04632,
- .04288,.04179,.03846,.0337,.02862,.02287,.01759,.01417,.003656,
- -.01436,-.1004,-.1763,-.2052,-.2774,-.3404,-.5249,.061,.05751,
- .05591,.05222,.04833,.04665,.04341,.03818,.0328,.02673,.02099,
- .01723,.005654,-.01383,-.105,-.1831,-.2123,-.2841,-.3456,-.5173,
- .06848,.06183,.06082,.05728,.05407,.05236,.04857,.04368,.03737,
- .03088,.02479,.02076,.00785,-.01309,-.1095,-.1895,-.2188,-.2898,
- -.3493,-.5073,.07725,.06828,.06577,.06361,.06,.0591,.05476,.0496,
- .04247,.03556,.02896,.02469,.01038,-.01211,-.1139,-.1954,-.2247,
- -.2944,-.3514,-.4949,.08308,.07651,.07395,.07184,.06706,.06618,
- .06171,.05564,.0486,.04115,.03368,.02885,.01347,-.01083,-.118,
- -.2005,-.2296,-.2975,-.3517,-.4801,.08673,.08355,.08361,.07958,
- .07582,.07311,.06882,.06262,.05585,.04731,.03906,.03336,.01719,
- -.009279,-.1217,-.2047,-.2334,-.2989,-.35,-.4629,.09333,.09061,
- .0912,.08707,.08512,.08086,.0767,.07113,.06356,.05366,.04492,
- .03862,.02135,-.007482,-.1247,-.2078,-.2358,-.2984,-.346,-.4432,
- .1045,.1001,.09799,.09636,.09317,.09079,.08611,.0806,.07117,
- .06057,.0511,.04488,.0258,-.005331,-.1269,-.2094,-.2365,-.2958,
- -.3395,-.4213,.1155,.1107,.1079,.1069,.1017,.102,.09663,.09015,
- .07944,.06847,.058,.05183,.03074,-.002583,-.128,-.2093,-.2353,
- -.2909,-.3305,-.3971,.1211,.1202,.1194,.1174,.1138,.1128,.1074,.1,
- .08932,.07729,.06612,.05905,.03639,9.063e-4,-.1279,-.2072,-.2319,
- -.2833,-.3187,-.3709,.1233,.1292,.1303,.128,.1278,.123,.1184,
- .1111,.1002,.08679,.07506,.06651,.04269,.005089,-.1263,-.2029,
- -.2261,-.2731,-.3041,-.3429,.1321,.1388,.1403,.1395,.1402,.1346,
- .1299,.1231,.1111,.09672,.08401,.07458,.04938,.009833,-.1231,
- -.1963,-.2178,-.26,-.2867,-.3134,.1445,.1497,.1506,.1521,.1511,
- .148,.1421,.1351,.1219,.1067,.09276,.08323,.05638,.01506,-.1179,
- -.1871,-.2068,-.2442,-.2666,-.2827,.1527,.1612,.1618,.1646,.1629,
- .1612,.1546,.1468,.1328,.1166,.1016,.09185,.06358,.0207,-.1108,
- -.1753,-.1931,-.2256,-.244,-.2512,.1531,.1729,.1742,.1762,.1762,
- .172,.1665,.1578,.1436,.1258,.1104,.09967,.07066,.02665,-.1018,
- -.161,-.1768,-.2046,-.2192,-.2193,.1504,.1808,.1867,.1857,.1899,
- .1799,.176,.1674,.1534,.1338,.1183,.1061,.077,.03257,-.09103,
- -.1444,-.1582,-.1814,-.1928,-.1877,.1585,.1857,.1955,.1931,.2005,
- .1877,.1827,.1744,.1602,.1394,.1237,.1108,.08167,.03777,-.07876,
- -.126,-.1377,-.1566,-.1651,-.1568,.1756,.1927,.1989,.1996,.2039,
- .1954,.1872,.1776,.1618,.1413,.1249,.1131,.08353,.04143,-.0655,
- -.1062,-.1159,-.131,-.1371,-.1271,.1892,.2037,.2008,.205,.2001,
- .1984,.1885,.1755,.1574,.1384,.1214,.1112,.08191,.04292,-.0519,
- -.0858,-.09356,-.1052,-.1094,-.09931,.1897,.2113,.2088,.2055,
- .1944,.1912,.1819,.1647,.1485,.1301,.1133,.1032,.07671,.04191,
- -.03872,-.06571,-.07167,-.08025,-.08302,-.07396,.1712,.2034,.2211,
- .1947,.188,.168,.1625,.1434,.1349,.1157,.1004,.08785,.06772,
- .03801,-.02677,-.04688,-.05119,-.05716,-.05887,-.05161,.1322,
- .1811,.2187,.1714,.1713,.1281,.1309,.1119,.1131,.09404,.0814,
- .06592,.05425,.03086,-.0167,-.03025,-.0331,-.03691,-.03788,
- -.03277,.08504,.1435,.1758,.1326,.133,.08054,.09003,.07395,.07987,
- .06447,.05582,.04075,.0365,.02082,-.008919,-.0167,-.01832,-.02041,
- -.0209,-.01789,.03936,.08311,.09568,.07461,.0731,.03755,.04509,
- .03589,.04026,.03161,.02757,.01806,.01764,.01004,-.003585,
- -.006904,-.007594,-.00846,-.008646,-.007351,.008367,.01985,.02146,
- .01751,.01672,.00796,.009761,.007629,.008715,.006695,.005893,
- .003567,.003711,.002105,-6.734e-4,-.001321,-.001456,-.001622,
- -.001656,-.001403,1.901e-20,-6.852e-20,-2.92e-22,6.497e-20,
- 4.95e-20,9.892e-20,1.818e-20,-9.169e-22,-3.362e-21,6.922e-20,
- 2.684e-20,2.626e-20,-3.55e-20,2.511e-20,-5.888e-21,4.135e-20,
- -1.341e-21,-1.894e-20,1.482e-20,-2.286e-21 };
- static doublereal uhr[1660] /* was [20][83] */ = { -.2975,-.2458,-.2347,
- -.2072,-.1879,-.1755,-.1638,-.1489,-.1415,-.1337,-.1284,-.1253,
- -.1225,-.12,-.128,-.142,-.1485,-.1709,-.1989,-.4039,-.2668,-.2241,
- -.2152,-.1914,-.1748,-.1643,-.1546,-.1418,-.1356,-.1291,-.1246,
- -.1221,-.12,-.1184,-.1274,-.1416,-.1482,-.1707,-.1987,-.4037,
- -.1549,-.1447,-.1427,-.1329,-.1262,-.1222,-.1193,-.1143,-.1128,
- -.111,-.1098,-.1093,-.1102,-.1117,-.1248,-.1399,-.1467,-.1695,
- -.1977,-.4031,-.01893,-.04556,-.04866,-.05698,-.06112,-.06482,
- -.07024,-.07374,-.0794,-.08412,-.08708,-.08905,-.09449,-.1007,
- -.1202,-.1368,-.144,-.1675,-.1961,-.402,.08761,.03753,.03153,
- .01086,-6.59e-5,-.009411,-.02173,-.03142,-.04385,-.05464,-.06128,
- -.06548,-.07561,-.0867,-.1139,-.1325,-.1402,-.1645,-.1937,-.4004,
- .149,.09297,.08391,.05998,.0454,.03384,.01788,.00398,-.01264,
- -.02736,-.03663,-.04236,-.05627,-.07146,-.1061,-.127,-.1353,
- -.1608,-.1907,-.3983,.169,.1209,.1109,.08847,.07199,.06082,.0448,
- .02856,.01078,-.005128,-.01602,-.02251,-.03862,-.05647,-.09731,
- -.1207,-.1296,-.1563,-.187,-.3957,.1621,.1259,.1176,.09828,.08237,
- .07282,.05866,.04264,.02581,.01067,-6.693e-4,-.007273,-.02391,
- -.04287,-.08809,-.1137,-.1232,-.1512,-.1828,-.3926,.1425,.1161,
- .1105,.09476,.08222,.074,.0622,.04865,.03391,.0202,.009705,
- .003367,-.01248,-.03132,-.07884,-.1062,-.1164,-.1457,-.1781,
- -.3891,.1202,.09999,.0965,.08454,.07657,.06903,.05955,.04937,
- .03702,.02497,.01606,.01027,-.004072,-.02191,-.06988,-.09867,
- -.1093,-.1397,-.173,-.3851,.1006,.08441,.08184,.07332,.06805,
- .06219,.05464,.04702,.03695,.02688,.01949,.01454,.001893,-.01438,
- -.06141,-.09113,-.1022,-.1336,-.1676,-.3806,.08386,.07229,.06955,
- .06387,.05898,.05552,.04967,.04327,.03532,.0274,.02112,.01709,
- .00611,-.008345,-.05355,-.08376,-.09513,-.1273,-.162,-.3757,.0708,
- .06217,.05952,.05578,.0514,.04945,.04499,.03953,.03338,.02725,
- .02193,.01863,.009222,-.003461,-.04633,-.07664,-.08821,-.121,
- -.1563,-.3703,.05982,.05317,.05163,.04867,.04579,.04406,.04066,
- .03665,.03176,.02679,.02246,.01961,.01167,5.524e-4,-.03973,
- -.06985,-.08152,-.1147,-.1504,-.3645,.05096,.04587,.04572,.04299,
- .04188,.03959,.03709,.03458,.03059,.02633,.0229,.02037,.01368,
- .003912,-.0337,-.06339,-.07508,-.1084,-.1444,-.3582,.04534,.04108,
- .04123,.0392,.03887,.03676,.03475,.03295,.0297,.02608,.02328,
- .02115,.01539,.006786,-.02821,-.05728,-.06891,-.1023,-.1385,
- -.3514,.04095,.03883,.03829,.03724,.03623,.03534,.0336,.03169,
- .02902,.02615,.02365,.02194,.0169,.009315,-.02319,-.05149,-.06302,
- -.09627,-.1324,-.3442,.03683,.03724,.03675,.03592,.03462,.03409,
- .03288,.03099,.02881,.02647,.02419,.02271,.01836,.01161,-.01858,
- -.04602,-.05738,-.09034,-.1264,-.3364,.03467,.03524,.03552,.03453,
- .03409,.03301,.03214,.03081,.02907,.02689,.02493,.02351,.0198,
- .01374,-.01432,-.04082,-.05197,-.08453,-.1204,-.3282,.03363,
- .03361,.03436,.03352,.03395,.03255,.03166,.03096,.02951,.02739,
- .02577,.02441,.02119,.01573,-.01035,-.03587,-.04678,-.0788,-.1143,
- -.3194,.03287,.03266,.03347,.03301,.03388,.0325,.0316,.03132,
- .02992,.02801,.02666,.02544,.02249,.01761,-.00661,-.03112,-.04175,
- -.07314,-.1081,-.31,.03248,.03251,.03299,.03301,.03375,.03281,
- .032,.03176,.03035,.02876,.02756,.02654,.0238,.0194,-.00305,
- -.02653,-.03685,-.06751,-.1019,-.3,.03227,.03315,.03325,.03357,
- .03376,.03336,.03272,.03214,.03096,.02966,.02852,.02766,.02518,
- .02116,3.643e-4,-.02207,-.03205,-.06189,-.09558,-.2894,.03202,
- .03373,.03383,.03408,.03412,.03393,.03344,.03268,.03179,.03063,
- .02956,.0288,.02665,.0229,.003671,-.01769,-.02731,-.05623,-.0891,
- -.278,.03221,.03388,.03404,.03426,.03465,.03451,.03408,.03362,
- .03274,.03161,.03068,.03001,.02817,.02468,.006915,-.01333,-.02258,
- -.05048,-.08243,-.2659,.03315,.03429,.03451,.03476,.03528,.0352,
- .03483,.03472,.0338,.03272,.03189,.03133,.02972,.02653,.01015,
- -.008958,-.01781,-.04461,-.07552,-.253,.03341,.03542,.03568,
- .03596,.03607,.03611,.03588,.03576,.03498,.03407,.03322,.03275,
- .03133,.0285,.01342,-.004508,-.01296,-.03855,-.06831,-.2391,
- .03416,.0368,.03694,.03742,.03709,.03734,.03718,.03689,.03632,
- .03558,.03473,.03432,.03304,.03059,.0168,5.975e-5,-.007946,
- -.03226,-.06073,-.2243,.03596,.03789,.03806,.03875,.03849,.03875,
- .03852,.03828,.03788,.03721,.03646,.03607,.03493,.0328,.02031,
- .00479,-.00273,-.02567,-.05272,-.2084,.0375,.03897,.03948,.04012,
- .04035,.04016,.03995,.03996,.03968,.03899,.0384,.03801,.03701,
- .03514,.02401,.009731,.002748,-.01872,-.04419,-.1914,.03891,
- .04054,.04132,.04176,.04245,.04187,.04174,.04184,.04165,.04098,
- .04053,.04016,.0393,.03764,.02791,.01494,.008549,-.01132,-.03507,
- -.1732,.04129,.04285,.04339,.04385,.04439,.04421,.044,.04396,
- .04372,.04322,.04283,.04258,.0418,.04035,.03206,.02049,.01474,
- -.003382,-.02525,-.1536,.04417,.04571,.0458,.04635,.04649,.04679,
- .04662,.04639,.04606,.04572,.04539,.04526,.04458,.04334,.03651,
- .02646,.02139,.005188,-.01464,-.1325,.04684,.04849,.04869,.04896,
- .04928,.04939,.04938,.04919,.04885,.0485,.04833,.04821,.04769,
- .04666,.04133,.03294,.02859,.0145,-.003121,-.1098,.05013,.05137,
- .05183,.05179,.05249,.05231,.05239,.05242,.05201,.05159,.05162,
- .0515,.05114,.05035,.0466,.04003,.03646,.02466,.009448,-.08535,
- .05405,.05498,.05537,.05527,.05587,.05573,.05583,.05607,.0555,
- .05508,.05523,.05519,.05494,.05445,.05241,.04783,.0451,.03581,
- .02321,-.05904,.05841,.05913,.05952,.05936,.05974,.05966,.05974,
- .06009,.05942,.05907,.05925,.05931,.05917,.05902,.05887,.05646,
- .05467,.04809,.03833,-.03069,.06347,.06371,.064,.06393,.06419,
- .06418,.06417,.06449,.06385,.0636,.06377,.06391,.06391,.06414,
- .06608,.06605,.0653,.06166,.05501,-1.341e-4,.06904,.06905,.06899,
- .06915,.06921,.06938,.06925,.06936,.06886,.06873,.06888,.06905,
- .06922,.06987,.07416,.07674,.07716,.07669,.07343,.03282,.07469,
- .07498,.07493,.07503,.07508,.07512,.0749,.07485,.07458,.07452,
- .07468,.07481,.07522,.07631,.08324,.0887,.09044,.09342,.09383,
- .06835,.08139,.08126,.08148,.0814,.0818,.08147,.08112,.08116,
- .08105,.08102,.08123,.08135,.08197,.08355,.09346,.1021,.1053,
- .1121,.1165,.1067,.08556,.08467,.08488,.08483,.08536,.08505,
- .08453,.08465,.08454,.08456,.0848,.08494,.08565,.08752,.09906,
- .1095,.1135,.1222,.1287,.1269,.09018,.08842,.08848,.08854,.08906,
- .08894,.08822,.08836,.08823,.08833,.08857,.08878,.08956,.09173,
- .105,.1173,.1221,.1329,.1416,.148,.09939,.09722,.09678,.09708,
- .09724,.09748,.09652,.09644,.09634,.09665,.09687,.09717,.09817,
- .101,.1181,.1344,.1409,.1563,.1696,.1925,.1083,.1073,.1068,.1069,
- .1069,.1067,.1059,.1056,.1057,.1061,.1063,.1067,.108,.1116,.1329,
- .1537,.1622,.1826,.2008,.2405,.1199,.1181,.118,.1177,.1176,.1172,
- .1164,.1162,.1163,.1168,.1171,.1175,.1192,.1236,.1497,.1757,.1863,
- .2122,.2355,.2923,.134,.1307,.1305,.13,.1296,.1294,.1285,.1284,
- .1284,.1288,.1294,.1299,.132,.1373,.1689,.2007,.2136,.2455,.2742,
- .348,.1482,.1455,.145,.1444,.1436,.1432,.1424,.1423,.1422,.1426,
- .1435,.1441,.1467,.153,.191,.2293,.2446,.2831,.3175,.408,.1645,
- .162,.1618,.1605,.1597,.1588,.1582,.1583,.1581,.1584,.1596,.1605,
- .1637,.171,.2164,.2619,.2799,.3255,.3658,.4725,.1852,.1811,.1805,
- .1788,.1778,.1774,.1766,.1767,.1761,.1766,.1781,.1793,.1831,.1918,
- .2457,.2992,.3202,.3733,.4199,.5419,.2084,.2039,.2023,.2005,.1987,
- .1988,.198,.1976,.1969,.1977,.1994,.201,.2057,.2159,.2796,.342,
- .3663,.4273,.4803,.6164,.2329,.2296,.2281,.2254,.2236,.2231,.2224,
- .2216,.2213,.2223,.2243,.2261,.2319,.2439,.319,.3911,.419,.4884,
- .5479,.6963,.2629,.2581,.2569,.2536,.2526,.2511,.2503,.2497,.2496,
- .2507,.2533,.2554,.2624,.2767,.3648,.4476,.4793,.5574,.6235,.782,
- .2995,.2912,.2894,.2864,.2855,.2842,.2827,.2824,.2822,.2838,.2871,
- .2896,.298,.3151,.4182,.5127,.5485,.6355,.7079,.8737,.3403,.3305,
- .3283,.3254,.3236,.3227,.3207,.3202,.3204,.3228,.3266,.3297,.3396,
- .3604,.4804,.5877,.6277,.7238,.8023,.9717,.3861,.3762,.3744,.3709,
- .3687,.367,.3649,.3643,.3655,.3686,.3731,.3767,.3887,.414,.553,
- .6742,.7186,.8237,.9077,1.076,.4398,.4288,.4271,.4233,.421,.4185,
- .4166,.4165,.4184,.4225,.4279,.4321,.4469,.4774,.6381,.774,.8229,
- .9366,1.025,1.188,.5032,.4909,.4887,.4847,.4812,.4795,.4776,.4782,
- .4808,.4862,.4927,.4979,.5162,.5526,.7378,.8892,.9424,1.064,1.156,
- 1.306,.5757,.5646,.5619,.5569,.5526,.5512,.5499,.5508,.555,.5619,
- .5699,.5763,.5991,.6423,.8549,1.022,1.08,1.208,1.302,1.432,.6589,
- .6497,.6477,.641,.638,.6354,.6353,.6374,.6435,.6521,.6625,.6704,
- .6986,.7496,.9926,1.175,1.237,1.371,1.465,1.565,.758,.748,.7467,
- .7396,.7385,.7359,.7367,.7413,.7489,.7601,.7738,.7839,.8181,.8784,
- 1.155,1.352,1.417,1.553,1.645,1.705,.8782,.8653,.8629,.8577,.8571,
- .8567,.8588,.8654,.8752,.8905,.9083,.9213,.9622,1.034,1.346,1.557,
- 1.623,1.759,1.844,1.852,1.017,1.006,1.002,.9997,.9993,1.002,1.006,
- 1.014,1.028,1.049,1.072,1.088,1.137,1.222,1.571,1.792,1.859,1.99,
- 2.065,2.007,1.175,1.17,1.169,1.169,1.171,1.175,1.182,1.194,1.214,
- 1.243,1.271,1.291,1.349,1.45,1.835,2.063,2.128,2.248,2.307,2.169,
- 1.362,1.364,1.368,1.371,1.379,1.383,1.395,1.414,1.443,1.479,1.515,
- 1.538,1.609,1.727,2.147,2.373,2.435,2.537,2.574,2.337,1.588,1.597,
- 1.604,1.614,1.63,1.637,1.655,1.684,1.723,1.77,1.813,1.842,1.928,
- 2.064,2.512,2.729,2.782,2.857,2.865,2.511,1.853,1.882,1.89,1.912,
- 1.933,1.949,1.976,2.016,2.068,2.127,2.181,2.217,2.319,2.473,2.94,
- 3.134,3.175,3.212,3.181,2.69,2.167,2.227,2.24,2.276,2.306,2.332,
- 2.373,2.428,2.496,2.571,2.636,2.68,2.799,2.971,3.439,3.594,3.616,
- 3.603,3.524,2.873,2.547,2.643,2.667,2.722,2.771,2.808,2.866,2.94,
- 3.027,3.121,3.202,3.253,3.39,3.576,4.02,4.114,4.11,4.031,3.892,
- 3.06,3.006,3.153,3.191,3.274,3.351,3.403,3.483,3.581,3.692,3.808,
- 3.904,3.963,4.114,4.31,4.691,4.697,4.659,4.496,4.285,3.248,3.574,
- 3.794,3.844,3.972,4.081,4.155,4.26,4.386,4.524,4.664,4.774,4.84,
- 5.002,5.196,5.46,5.346,5.264,4.996,4.7,3.436,4.289,4.609,4.679,
- 4.864,5.008,5.107,5.243,5.401,5.57,5.733,5.852,5.923,6.085,6.258,
- 6.334,6.06,5.923,5.53,5.135,3.622,5.202,5.661,5.76,6.012,6.196,
- 6.326,6.496,6.688,6.884,7.062,7.183,7.253,7.399,7.522,7.316,6.837,
- 6.632,6.091,5.583,3.805,6.408,7.047,7.181,7.502,7.737,7.895,8.1,
- 8.32,8.53,8.707,8.817,8.876,8.978,9.008,8.403,7.669,7.384,6.672,
- 6.04,3.98,8.085,8.911,9.079,9.47,9.756,9.932,10.16,10.39,10.58,
- 10.73,10.81,10.84,10.85,10.73,9.584,8.544,8.166,7.262,6.495,4.147,
- 10.5,11.48,11.67,12.1,12.41,12.58,12.79,12.99,13.12,13.19,13.19,
- 13.17,13.03,12.68,10.84,9.442,8.96,7.849,6.94,4.303,14.08,15.08,
- 15.25,15.65,15.89,16.03,16.15,16.22,16.21,16.12,15.98,15.88,15.51,
- 14.84,12.13,10.34,9.743,8.415,7.362,4.443,19.47,20.15,20.22,20.4,
- 20.41,20.43,20.34,20.16,19.88,19.52,19.16,18.93,18.23,17.14,13.4,
- 11.19,10.49,8.941,7.749,4.567,27.55,27.16,27.,26.59,26.14,25.87,
- 25.41,24.78,24.05,23.28,22.62,22.2,21.06,19.45,14.6,11.97,11.15,
- 9.406,8.085,4.671,39.18,36.33,35.73,34.17,32.96,32.18,31.11,29.83,
- 28.47,27.14,26.09,25.43,23.79,21.6,15.63,12.62,11.71,9.788,8.359,
- 4.753,54.06,46.92,45.58,42.34,40.09,38.6,36.73,34.64,32.56,30.59,
- 29.13,28.24,26.09,23.35,16.42,13.11,12.13,10.07,8.557,4.811,68.07,
- 55.89,53.77,48.85,45.6,43.45,40.85,38.07,35.4,32.92,31.15,30.07,
- 27.56,24.44,16.89,13.4,12.37,10.23,8.671,4.844,72.5,58.54,56.16,
- 50.7,47.14,44.78,41.96,38.99,36.14,33.52,31.67,30.54,27.93,24.71,
- 17.,13.46,12.42,10.27,8.698,4.852 };
-
- /* System generated locals */
- integer i__1;
-
- /* Local variables */
- integer i__, j;
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real ph,qh,uh >*/
-/*< common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p) >*/
-/*< real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p) >*/
-/* - to vary the number of quadratures */
-/*< real ex,sc,asy,vi >*/
-/*< common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4) >*/
-/*< real ex_m(20),sc_m(20),asy_m(20) >*/
-/*< integer i,j >*/
-/* Aerosol stratospheric model */
-/* Parameters (STM-params.dat) are calculated with PINATUBO.f */
-/* for one-year-old aerosol. PINATUBO.f is written based on */
-/* Russel et al., 'Global to microscale evolution of the Pinatubo */
-/* volcanic aerosol derived from diverse measurements and analyses', */
-/* Journal of Geophysical Research, 101(D13), pp. 18745-18763, 1996. */
-/* Extinction coefficients are calculated in km-1 */
-/* *************** MIE (asy) ****************** */
-/*< >*/
-/* *************** MIE (ext&sca) ****************** */
-/*< >*/
-/* ************** MIE (phase fun ph) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun qh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun uh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< do 1 i=1,20 >*/
- for (i__ = 1; i__ <= 20; ++i__) {
-/*< asy(1,i)=asy_m(i) >*/
- sixs_coef__1.asy[(i__ << 2) - 4] = asy_m__[i__ - 1];
-/*< ex(1,i)=ex_m(i) >*/
- sixs_coef__1.ex[(i__ << 2) - 4] = ex_m__[i__ - 1];
-/*< sc(1,i)=sc_m(i) >*/
- sixs_coef__1.sc[(i__ << 2) - 4] = sc_m__[i__ - 1];
-/*< do 1 j=1,nquad >*/
- i__1 = num_quad__1.nquad;
- for (j = 1; j <= i__1; ++j) {
-/*< ph(i,j)=phr(i,j) >*/
- sixs_aerbas__1.ph[i__ + j * 20 - 21] = phr[i__ + j * 20 - 21];
-/*< qh(i,j)=qhr(i,j) >*/
- sixs_aerbas__1.qh[i__ + j * 20 - 21] = qhr[i__ + j * 20 - 21];
-/*< uh(i,j)=uhr(i,j) >*/
- sixs_aerbas__1.uh[i__ + j * 20 - 21] = uhr[i__ + j * 20 - 21];
-/*< 1 continue >*/
-/* L1: */
- }
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* stm_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/STM.f b/Modules/ThirdParty/6S/src/6SV1.0B/STM.f
deleted file mode 100644
index a262063..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/STM.f
+++ /dev/null
@@ -1,1137 +0,0 @@
- subroutine stm
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real ph,qh,uh
- common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p)
- real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p)
-c - to vary the number of quadratures
- real ex,sc,asy,vi
- common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4)
- real ex_m(20),sc_m(20),asy_m(20)
- integer i,j
-
-
-c Aerosol stratospheric model
-c Parameters (STM-params.dat) are calculated with PINATUBO.f
-c for one-year-old aerosol. PINATUBO.f is written based on
-c Russel et al., 'Global to microscale evolution of the Pinatubo
-c volcanic aerosol derived from diverse measurements and analyses',
-c Journal of Geophysical Research, 101(D13), pp. 18745-18763, 1996.
-c Extinction coefficients are calculated in km-1
-
-c*************** MIE (asy) ******************
- data (asy_m(j),j=1,20)/
- a 0.787,0.795,0.796,0.800,0.802,0.804,0.806,0.808,0.809,0.810,
- a 0.810,0.809,0.807,0.802,0.770,0.736,0.723,0.685,0.647,0.469/
-c*************** MIE (ext&sca) ******************
- data (ex_m(j),sc_m(j),j=1,20) /
- a 0.1323426E+01,0.1323426E+01,0.1367378E+01,0.1367378E+01,
- a 0.1375664E+01,0.1375664E+01,0.1389866E+01,0.1389866E+01,
- a 0.1397082E+01,0.1397082E+01,0.1397282E+01,0.1397282E+01,
- a 0.1394358E+01,0.1394358E+01,0.1384032E+01,0.1384032E+01,
- a 0.1363314E+01,0.1363314E+01,0.1332585E+01,0.1332585E+01,
- a 0.1301248E+01,0.1301248E+01,0.1278673E+01,0.1278673E+01,
- a 0.1211386E+01,0.1211386E+01,0.1101411E+01,0.1101411E+01,
- a 0.7206790E+00,0.7206790E+00,0.5124845E+00,0.5124845E+00,
- a 0.4508164E+00,0.4508164E+00,0.3256089E+00,0.3256089E+00,
- a 0.2397076E+00,0.2397076E+00,0.6640586E-01,0.6640586E-01 /
-c************** MIE (phase fun ph) ***************
- DATA ((PHR(i,j),j=1,83),i= 1, 1)/
- *0.2975E+00,0.2696E+00,0.2051E+00,0.1882E+00,0.2239E+00,
- *0.2685E+00,0.2867E+00,0.2805E+00,0.2628E+00,0.2453E+00,
- *0.2311E+00,0.2201E+00,0.2119E+00,0.2031E+00,0.1933E+00,
- *0.1849E+00,0.1764E+00,0.1653E+00,0.1520E+00,0.1401E+00,
- *0.1305E+00,0.1216E+00,0.1134E+00,0.1062E+00,0.1001E+00,
- *0.9488E-01,0.9120E-01,0.8890E-01,0.8686E-01,0.8502E-01,
- *0.8471E-01,0.8559E-01,0.8624E-01,0.8630E-01,0.8770E-01,
- *0.9053E-01,0.9360E-01,0.9716E-01,0.1019E+00,0.1071E+00,
- *0.1127E+00,0.1161E+00,0.1202E+00,0.1294E+00,0.1389E+00,
- *0.1504E+00,0.1641E+00,0.1786E+00,0.1954E+00,0.2161E+00,
- *0.2396E+00,0.2653E+00,0.2963E+00,0.3324E+00,0.3735E+00,
- *0.4204E+00,0.4750E+00,0.5394E+00,0.6129E+00,0.6964E+00,
- *0.7964E+00,0.9181E+00,0.1057E+01,0.1217E+01,0.1407E+01,
- *0.1633E+01,0.1900E+01,0.2216E+01,0.2599E+01,0.3062E+01,
- *0.3634E+01,0.4352E+01,0.5270E+01,0.6481E+01,0.8163E+01,
- *0.1059E+02,0.1417E+02,0.1956E+02,0.2763E+02,0.3922E+02,
- *0.5407E+02,0.6807E+02,0.7250E+02 /
- DATA ((PHR(i,j),j=1,83),i= 2, 2)/
- *0.2458E+00,0.2255E+00,0.1731E+00,0.1522E+00,0.1759E+00,
- *0.2136E+00,0.2382E+00,0.2436E+00,0.2355E+00,0.2220E+00,
- *0.2096E+00,0.2001E+00,0.1918E+00,0.1835E+00,0.1749E+00,
- *0.1656E+00,0.1561E+00,0.1466E+00,0.1380E+00,0.1298E+00,
- *0.1211E+00,0.1129E+00,0.1061E+00,0.1004E+00,0.9533E-01,
- *0.9133E-01,0.8829E-01,0.8568E-01,0.8370E-01,0.8269E-01,
- *0.8238E-01,0.8235E-01,0.8286E-01,0.8428E-01,0.8650E-01,
- *0.8908E-01,0.9184E-01,0.9539E-01,0.9990E-01,0.1049E+00,
- *0.1105E+00,0.1138E+00,0.1174E+00,0.1260E+00,0.1356E+00,
- *0.1461E+00,0.1585E+00,0.1734E+00,0.1899E+00,0.2092E+00,
- *0.2325E+00,0.2584E+00,0.2868E+00,0.3206E+00,0.3611E+00,
- *0.4070E+00,0.4599E+00,0.5231E+00,0.5974E+00,0.6830E+00,
- *0.7828E+00,0.9016E+00,0.1043E+01,0.1209E+01,0.1404E+01,
- *0.1639E+01,0.1927E+01,0.2274E+01,0.2692E+01,0.3206E+01,
- *0.3850E+01,0.4669E+01,0.5724E+01,0.7113E+01,0.8980E+01,
- *0.1155E+02,0.1515E+02,0.2022E+02,0.2722E+02,0.3637E+02,
- *0.4693E+02,0.5589E+02,0.5854E+02 /
- DATA ((PHR(i,j),j=1,83),i= 3, 3)/
- *0.2347E+00,0.2165E+00,0.1684E+00,0.1476E+00,0.1687E+00,
- *0.2047E+00,0.2294E+00,0.2353E+00,0.2287E+00,0.2174E+00,
- *0.2058E+00,0.1961E+00,0.1878E+00,0.1798E+00,0.1713E+00,
- *0.1619E+00,0.1522E+00,0.1431E+00,0.1349E+00,0.1269E+00,
- *0.1188E+00,0.1111E+00,0.1045E+00,0.9920E-01,0.9465E-01,
- *0.9069E-01,0.8751E-01,0.8517E-01,0.8347E-01,0.8239E-01,
- *0.8178E-01,0.8146E-01,0.8207E-01,0.8392E-01,0.8605E-01,
- *0.8827E-01,0.9132E-01,0.9505E-01,0.9934E-01,0.1045E+00,
- *0.1105E+00,0.1138E+00,0.1174E+00,0.1255E+00,0.1348E+00,
- *0.1454E+00,0.1579E+00,0.1725E+00,0.1893E+00,0.2083E+00,
- *0.2303E+00,0.2560E+00,0.2851E+00,0.3183E+00,0.3579E+00,
- *0.4044E+00,0.4576E+00,0.5197E+00,0.5936E+00,0.6804E+00,
- *0.7808E+00,0.8981E+00,0.1039E+01,0.1207E+01,0.1407E+01,
- *0.1645E+01,0.1934E+01,0.2287E+01,0.2716E+01,0.3242E+01,
- *0.3899E+01,0.4737E+01,0.5823E+01,0.7245E+01,0.9145E+01,
- *0.1173E+02,0.1532E+02,0.2029E+02,0.2705E+02,0.3576E+02,
- *0.4559E+02,0.5377E+02,0.5616E+02 /
- DATA ((PHR(i,j),j=1,83),i= 4, 4)/
- *0.2072E+00,0.1924E+00,0.1526E+00,0.1348E+00,0.1519E+00,
- *0.1832E+00,0.2073E+00,0.2165E+00,0.2133E+00,0.2042E+00,
- *0.1942E+00,0.1853E+00,0.1771E+00,0.1690E+00,0.1608E+00,
- *0.1523E+00,0.1436E+00,0.1350E+00,0.1273E+00,0.1204E+00,
- *0.1131E+00,0.1063E+00,0.1006E+00,0.9577E-01,0.9133E-01,
- *0.8774E-01,0.8502E-01,0.8293E-01,0.8154E-01,0.8091E-01,
- *0.8072E-01,0.8075E-01,0.8128E-01,0.8266E-01,0.8473E-01,
- *0.8716E-01,0.9004E-01,0.9369E-01,0.9813E-01,0.1032E+00,
- *0.1089E+00,0.1122E+00,0.1158E+00,0.1240E+00,0.1334E+00,
- *0.1439E+00,0.1560E+00,0.1704E+00,0.1866E+00,0.2052E+00,
- *0.2273E+00,0.2523E+00,0.2805E+00,0.3140E+00,0.3537E+00,
- *0.3995E+00,0.4524E+00,0.5147E+00,0.5876E+00,0.6726E+00,
- *0.7726E+00,0.8920E+00,0.1035E+01,0.1206E+01,0.1409E+01,
- *0.1655E+01,0.1955E+01,0.2322E+01,0.2769E+01,0.3324E+01,
- *0.4025E+01,0.4921E+01,0.6070E+01,0.7562E+01,0.9530E+01,
- *0.1216E+02,0.1571E+02,0.2046E+02,0.2663E+02,0.3419E+02,
- *0.4235E+02,0.4885E+02,0.5070E+02 /
- DATA ((PHR(i,j),j=1,83),i= 5, 5)/
- *0.1879E+00,0.1756E+00,0.1427E+00,0.1286E+00,0.1445E+00,
- *0.1724E+00,0.1934E+00,0.2016E+00,0.2005E+00,0.1948E+00,
- *0.1868E+00,0.1778E+00,0.1693E+00,0.1614E+00,0.1539E+00,
- *0.1462E+00,0.1377E+00,0.1296E+00,0.1221E+00,0.1149E+00,
- *0.1084E+00,0.1026E+00,0.9750E-01,0.9308E-01,0.8933E-01,
- *0.8627E-01,0.8377E-01,0.8174E-01,0.8043E-01,0.7987E-01,
- *0.7963E-01,0.7973E-01,0.8058E-01,0.8203E-01,0.8377E-01,
- *0.8592E-01,0.8890E-01,0.9265E-01,0.9692E-01,0.1021E+00,
- *0.1086E+00,0.1120E+00,0.1155E+00,0.1233E+00,0.1325E+00,
- *0.1431E+00,0.1552E+00,0.1693E+00,0.1854E+00,0.2036E+00,
- *0.2246E+00,0.2495E+00,0.2789E+00,0.3123E+00,0.3508E+00,
- *0.3963E+00,0.4492E+00,0.5101E+00,0.5824E+00,0.6689E+00,
- *0.7705E+00,0.8900E+00,0.1034E+01,0.1207E+01,0.1417E+01,
- *0.1669E+01,0.1975E+01,0.2351E+01,0.2817E+01,0.3400E+01,
- *0.4133E+01,0.5062E+01,0.6251E+01,0.7793E+01,0.9812E+01,
- *0.1246E+02,0.1594E+02,0.2046E+02,0.2618E+02,0.3298E+02,
- *0.4009E+02,0.4560E+02,0.4714E+02 /
- DATA ((PHR(i,j),j=1,83),i= 6, 6)/
- *0.1755E+00,0.1650E+00,0.1366E+00,0.1235E+00,0.1363E+00,
- *0.1615E+00,0.1828E+00,0.1930E+00,0.1932E+00,0.1873E+00,
- *0.1796E+00,0.1718E+00,0.1638E+00,0.1558E+00,0.1480E+00,
- *0.1402E+00,0.1330E+00,0.1258E+00,0.1183E+00,0.1115E+00,
- *0.1055E+00,0.1002E+00,0.9529E-01,0.9099E-01,0.8735E-01,
- *0.8439E-01,0.8211E-01,0.8043E-01,0.7921E-01,0.7857E-01,
- *0.7864E-01,0.7928E-01,0.8015E-01,0.8126E-01,0.8312E-01,
- *0.8568E-01,0.8859E-01,0.9215E-01,0.9660E-01,0.1016E+00,
- *0.1073E+00,0.1107E+00,0.1143E+00,0.1226E+00,0.1318E+00,
- *0.1421E+00,0.1542E+00,0.1679E+00,0.1836E+00,0.2022E+00,
- *0.2240E+00,0.2486E+00,0.2769E+00,0.3103E+00,0.3492E+00,
- *0.3941E+00,0.4465E+00,0.5083E+00,0.5808E+00,0.6659E+00,
- *0.7676E+00,0.8897E+00,0.1036E+01,0.1211E+01,0.1421E+01,
- *0.1677E+01,0.1991E+01,0.2376E+01,0.2854E+01,0.3452E+01,
- *0.4205E+01,0.5160E+01,0.6379E+01,0.7949E+01,0.9985E+01,
- *0.1264E+02,0.1607E+02,0.2047E+02,0.2590E+02,0.3220E+02,
- *0.3860E+02,0.4345E+02,0.4478E+02 /
- DATA ((PHR(i,j),j=1,83),i= 7, 7)/
- *0.1638E+00,0.1551E+00,0.1306E+00,0.1178E+00,0.1276E+00,
- *0.1496E+00,0.1696E+00,0.1804E+00,0.1820E+00,0.1777E+00,
- *0.1711E+00,0.1641E+00,0.1567E+00,0.1491E+00,0.1416E+00,
- *0.1342E+00,0.1271E+00,0.1203E+00,0.1139E+00,0.1078E+00,
- *0.1020E+00,0.9688E-01,0.9251E-01,0.8873E-01,0.8542E-01,
- *0.8270E-01,0.8061E-01,0.7900E-01,0.7789E-01,0.7737E-01,
- *0.7742E-01,0.7789E-01,0.7881E-01,0.8032E-01,0.8242E-01,
- *0.8499E-01,0.8796E-01,0.9154E-01,0.9587E-01,0.1008E+00,
- *0.1066E+00,0.1098E+00,0.1134E+00,0.1214E+00,0.1305E+00,
- *0.1408E+00,0.1527E+00,0.1665E+00,0.1824E+00,0.2009E+00,
- *0.2225E+00,0.2471E+00,0.2752E+00,0.3081E+00,0.3467E+00,
- *0.3916E+00,0.4438E+00,0.5057E+00,0.5788E+00,0.6651E+00,
- *0.7677E+00,0.8912E+00,0.1040E+01,0.1217E+01,0.1432E+01,
- *0.1694E+01,0.2017E+01,0.2416E+01,0.2911E+01,0.3530E+01,
- *0.4308E+01,0.5293E+01,0.6547E+01,0.8151E+01,0.1021E+02,
- *0.1284E+02,0.1619E+02,0.2038E+02,0.2544E+02,0.3112E+02,
- *0.3673E+02,0.4085E+02,0.4196E+02 /
- DATA ((PHR(i,j),j=1,83),i= 8, 8)/
- *0.1489E+00,0.1422E+00,0.1236E+00,0.1141E+00,0.1226E+00,
- *0.1410E+00,0.1576E+00,0.1670E+00,0.1696E+00,0.1674E+00,
- *0.1624E+00,0.1559E+00,0.1489E+00,0.1417E+00,0.1347E+00,
- *0.1278E+00,0.1213E+00,0.1149E+00,0.1088E+00,0.1030E+00,
- *0.9774E-01,0.9320E-01,0.8922E-01,0.8576E-01,0.8295E-01,
- *0.8069E-01,0.7886E-01,0.7756E-01,0.7675E-01,0.7632E-01,
- *0.7636E-01,0.7698E-01,0.7807E-01,0.7955E-01,0.8152E-01,
- *0.8411E-01,0.8729E-01,0.9100E-01,0.9530E-01,0.1003E+00,
- *0.1062E+00,0.1094E+00,0.1128E+00,0.1205E+00,0.1295E+00,
- *0.1401E+00,0.1522E+00,0.1660E+00,0.1820E+00,0.2005E+00,
- *0.2215E+00,0.2459E+00,0.2745E+00,0.3075E+00,0.3457E+00,
- *0.3904E+00,0.4433E+00,0.5058E+00,0.5794E+00,0.6670E+00,
- *0.7718E+00,0.8971E+00,0.1047E+01,0.1229E+01,0.1451E+01,
- *0.1722E+01,0.2056E+01,0.2470E+01,0.2984E+01,0.3627E+01,
- *0.4433E+01,0.5448E+01,0.6735E+01,0.8367E+01,0.1043E+02,
- *0.1303E+02,0.1626E+02,0.2019E+02,0.2480E+02,0.2984E+02,
- *0.3464E+02,0.3807E+02,0.3899E+02 /
- DATA ((PHR(i,j),j=1,83),i= 9, 9)/
- *0.1415E+00,0.1359E+00,0.1198E+00,0.1103E+00,0.1156E+00,
- *0.1302E+00,0.1448E+00,0.1540E+00,0.1574E+00,0.1565E+00,
- *0.1524E+00,0.1467E+00,0.1404E+00,0.1341E+00,0.1279E+00,
- *0.1215E+00,0.1150E+00,0.1090E+00,0.1037E+00,0.9871E-01,
- *0.9410E-01,0.8990E-01,0.8621E-01,0.8313E-01,0.8063E-01,
- *0.7866E-01,0.7713E-01,0.7601E-01,0.7535E-01,0.7517E-01,
- *0.7538E-01,0.7595E-01,0.7705E-01,0.7869E-01,0.8075E-01,
- *0.8326E-01,0.8638E-01,0.9012E-01,0.9450E-01,0.9966E-01,
- *0.1057E+00,0.1091E+00,0.1126E+00,0.1203E+00,0.1293E+00,
- *0.1398E+00,0.1518E+00,0.1657E+00,0.1816E+00,0.1998E+00,
- *0.2207E+00,0.2453E+00,0.2739E+00,0.3070E+00,0.3457E+00,
- *0.3913E+00,0.4449E+00,0.5080E+00,0.5831E+00,0.6728E+00,
- *0.7794E+00,0.9069E+00,0.1061E+01,0.1249E+01,0.1479E+01,
- *0.1761E+01,0.2108E+01,0.2537E+01,0.3070E+01,0.3736E+01,
- *0.4569E+01,0.5615E+01,0.6928E+01,0.8573E+01,0.1062E+02,
- *0.1316E+02,0.1624E+02,0.1990E+02,0.2407E+02,0.2848E+02,
- *0.3256E+02,0.3540E+02,0.3614E+02 /
- DATA ((PHR(i,j),j=1,83),i=10,10)/
- *0.1337E+00,0.1293E+00,0.1163E+00,0.1075E+00,0.1102E+00,
- *0.1214E+00,0.1339E+00,0.1427E+00,0.1464E+00,0.1459E+00,
- *0.1427E+00,0.1380E+00,0.1325E+00,0.1267E+00,0.1208E+00,
- *0.1150E+00,0.1093E+00,0.1039E+00,0.9893E-01,0.9453E-01,
- *0.9050E-01,0.8683E-01,0.8361E-01,0.8086E-01,0.7857E-01,
- *0.7673E-01,0.7539E-01,0.7453E-01,0.7411E-01,0.7409E-01,
- *0.7445E-01,0.7518E-01,0.7637E-01,0.7808E-01,0.8021E-01,
- *0.8279E-01,0.8594E-01,0.8972E-01,0.9418E-01,0.9941E-01,
- *0.1055E+00,0.1088E+00,0.1124E+00,0.1205E+00,0.1297E+00,
- *0.1401E+00,0.1521E+00,0.1659E+00,0.1818E+00,0.2002E+00,
- *0.2215E+00,0.2463E+00,0.2750E+00,0.3086E+00,0.3481E+00,
- *0.3945E+00,0.4491E+00,0.5136E+00,0.5902E+00,0.6816E+00,
- *0.7908E+00,0.9226E+00,0.1083E+01,0.1278E+01,0.1516E+01,
- *0.1807E+01,0.2167E+01,0.2611E+01,0.3163E+01,0.3850E+01,
- *0.4707E+01,0.5776E+01,0.7103E+01,0.8746E+01,0.1077E+02,
- *0.1322E+02,0.1615E+02,0.1954E+02,0.2330E+02,0.2715E+02,
- *0.3059E+02,0.3292E+02,0.3352E+02 /
- DATA ((PHR(i,j),j=1,83),i=11,11)/
- *0.1284E+00,0.1248E+00,0.1140E+00,0.1066E+00,0.1085E+00,
- *0.1173E+00,0.1275E+00,0.1349E+00,0.1385E+00,0.1387E+00,
- *0.1362E+00,0.1320E+00,0.1270E+00,0.1216E+00,0.1162E+00,
- *0.1109E+00,0.1057E+00,0.1007E+00,0.9599E-01,0.9168E-01,
- *0.8792E-01,0.8467E-01,0.8184E-01,0.7938E-01,0.7732E-01,
- *0.7569E-01,0.7448E-01,0.7368E-01,0.7333E-01,0.7341E-01,
- *0.7386E-01,0.7469E-01,0.7600E-01,0.7779E-01,0.8003E-01,
- *0.8273E-01,0.8597E-01,0.8983E-01,0.9435E-01,0.9965E-01,
- *0.1058E+00,0.1092E+00,0.1128E+00,0.1208E+00,0.1301E+00,
- *0.1407E+00,0.1529E+00,0.1670E+00,0.1832E+00,0.2018E+00,
- *0.2233E+00,0.2485E+00,0.2779E+00,0.3121E+00,0.3521E+00,
- *0.3993E+00,0.4548E+00,0.5204E+00,0.5986E+00,0.6923E+00,
- *0.8047E+00,0.9404E+00,0.1105E+01,0.1306E+01,0.1551E+01,
- *0.1851E+01,0.2220E+01,0.2676E+01,0.3242E+01,0.3945E+01,
- *0.4815E+01,0.5892E+01,0.7221E+01,0.8853E+01,0.1084E+02,
- *0.1322E+02,0.1601E+02,0.1918E+02,0.2263E+02,0.2609E+02,
- *0.2913E+02,0.3115E+02,0.3167E+02 /
- DATA ((PHR(i,j),j=1,83),i=12,12)/
- *0.1253E+00,0.1223E+00,0.1130E+00,0.1062E+00,0.1073E+00,
- *0.1148E+00,0.1239E+00,0.1308E+00,0.1342E+00,0.1344E+00,
- *0.1322E+00,0.1284E+00,0.1238E+00,0.1187E+00,0.1133E+00,
- *0.1082E+00,0.1035E+00,0.9880E-01,0.9428E-01,0.9010E-01,
- *0.8647E-01,0.8337E-01,0.8071E-01,0.7843E-01,0.7649E-01,
- *0.7493E-01,0.7380E-01,0.7311E-01,0.7282E-01,0.7295E-01,
- *0.7353E-01,0.7455E-01,0.7594E-01,0.7772E-01,0.8000E-01,
- *0.8283E-01,0.8620E-01,0.9014E-01,0.9471E-01,0.9998E-01,
- *0.1061E+00,0.1095E+00,0.1131E+00,0.1213E+00,0.1306E+00,
- *0.1413E+00,0.1536E+00,0.1678E+00,0.1842E+00,0.2032E+00,
- *0.2251E+00,0.2506E+00,0.2802E+00,0.3148E+00,0.3554E+00,
- *0.4031E+00,0.4594E+00,0.5261E+00,0.6054E+00,0.7005E+00,
- *0.8151E+00,0.9538E+00,0.1122E+01,0.1326E+01,0.1574E+01,
- *0.1880E+01,0.2255E+01,0.2720E+01,0.3294E+01,0.4004E+01,
- *0.4881E+01,0.5962E+01,0.7290E+01,0.8910E+01,0.1087E+02,
- *0.1319E+02,0.1590E+02,0.1894E+02,0.2221E+02,0.2544E+02,
- *0.2824E+02,0.3007E+02,0.3054E+02 /
- DATA ((PHR(i,j),j=1,83),i=13,13)/
- *0.1225E+00,0.1201E+00,0.1128E+00,0.1067E+00,0.1062E+00,
- *0.1107E+00,0.1169E+00,0.1220E+00,0.1249E+00,0.1252E+00,
- *0.1236E+00,0.1204E+00,0.1164E+00,0.1121E+00,0.1076E+00,
- *0.1029E+00,0.9837E-01,0.9419E-01,0.9039E-01,0.8685E-01,
- *0.8359E-01,0.8068E-01,0.7822E-01,0.7626E-01,0.7474E-01,
- *0.7361E-01,0.7280E-01,0.7231E-01,0.7220E-01,0.7251E-01,
- *0.7322E-01,0.7434E-01,0.7591E-01,0.7795E-01,0.8044E-01,
- *0.8339E-01,0.8688E-01,0.9097E-01,0.9573E-01,0.1012E+00,
- *0.1076E+00,0.1111E+00,0.1149E+00,0.1232E+00,0.1328E+00,
- *0.1439E+00,0.1566E+00,0.1714E+00,0.1884E+00,0.2080E+00,
- *0.2308E+00,0.2573E+00,0.2882E+00,0.3243E+00,0.3665E+00,
- *0.4163E+00,0.4752E+00,0.5453E+00,0.6291E+00,0.7296E+00,
- *0.8502E+00,0.9954E+00,0.1171E+01,0.1385E+01,0.1646E+01,
- *0.1965E+01,0.2357E+01,0.2838E+01,0.3428E+01,0.4153E+01,
- *0.5039E+01,0.6121E+01,0.7433E+01,0.9008E+01,0.1088E+02,
- *0.1305E+02,0.1552E+02,0.1824E+02,0.2107E+02,0.2379E+02,
- *0.2609E+02,0.2756E+02,0.2793E+02 /
- DATA ((PHR(i,j),j=1,83),i=14,14)/
- *0.1200E+00,0.1185E+00,0.1132E+00,0.1081E+00,0.1062E+00,
- *0.1076E+00,0.1106E+00,0.1135E+00,0.1151E+00,0.1151E+00,
- *0.1137E+00,0.1112E+00,0.1080E+00,0.1044E+00,0.1006E+00,
- *0.9679E-01,0.9304E-01,0.8947E-01,0.8618E-01,0.8326E-01,
- *0.8070E-01,0.7847E-01,0.7653E-01,0.7490E-01,0.7362E-01,
- *0.7273E-01,0.7225E-01,0.7216E-01,0.7243E-01,0.7305E-01,
- *0.7399E-01,0.7530E-01,0.7704E-01,0.7925E-01,0.8194E-01,
- *0.8516E-01,0.8896E-01,0.9340E-01,0.9855E-01,0.1045E+00,
- *0.1113E+00,0.1151E+00,0.1192E+00,0.1282E+00,0.1386E+00,
- *0.1505E+00,0.1642E+00,0.1800E+00,0.1981E+00,0.2191E+00,
- *0.2435E+00,0.2718E+00,0.3050E+00,0.3439E+00,0.3898E+00,
- *0.4439E+00,0.5080E+00,0.5840E+00,0.6745E+00,0.7827E+00,
- *0.9124E+00,0.1069E+01,0.1258E+01,0.1487E+01,0.1764E+01,
- *0.2101E+01,0.2511E+01,0.3008E+01,0.3613E+01,0.4345E+01,
- *0.5229E+01,0.6290E+01,0.7550E+01,0.9033E+01,0.1075E+02,
- *0.1270E+02,0.1485E+02,0.1715E+02,0.1945E+02,0.2160E+02,
- *0.2335E+02,0.2444E+02,0.2471E+02 /
- DATA ((PHR(i,j),j=1,83),i=15,15)/
- *0.1280E+00,0.1274E+00,0.1252E+00,0.1220E+00,0.1188E+00,
- *0.1161E+00,0.1140E+00,0.1121E+00,0.1102E+00,0.1082E+00,
- *0.1059E+00,0.1034E+00,0.1008E+00,0.9812E-01,0.9541E-01,
- *0.9278E-01,0.9029E-01,0.8797E-01,0.8585E-01,0.8397E-01,
- *0.8238E-01,0.8110E-01,0.8013E-01,0.7948E-01,0.7912E-01,
- *0.7908E-01,0.7939E-01,0.8008E-01,0.8118E-01,0.8271E-01,
- *0.8468E-01,0.8710E-01,0.9000E-01,0.9343E-01,0.9745E-01,
- *0.1022E+00,0.1076E+00,0.1140E+00,0.1213E+00,0.1297E+00,
- *0.1393E+00,0.1447E+00,0.1504E+00,0.1631E+00,0.1776E+00,
- *0.1942E+00,0.2133E+00,0.2352E+00,0.2605E+00,0.2898E+00,
- *0.3237E+00,0.3630E+00,0.4088E+00,0.4621E+00,0.5243E+00,
- *0.5969E+00,0.6818E+00,0.7814E+00,0.8982E+00,0.1036E+01,
- *0.1197E+01,0.1388E+01,0.1612E+01,0.1875E+01,0.2185E+01,
- *0.2549E+01,0.2974E+01,0.3472E+01,0.4050E+01,0.4717E+01,
- *0.5484E+01,0.6355E+01,0.7333E+01,0.8417E+01,0.9594E+01,
- *0.1084E+02,0.1213E+02,0.1341E+02,0.1460E+02,0.1563E+02,
- *0.1642E+02,0.1689E+02,0.1700E+02 /
- DATA ((PHR(i,j),j=1,83),i=16,16)/
- *0.1420E+00,0.1416E+00,0.1400E+00,0.1375E+00,0.1346E+00,
- *0.1315E+00,0.1285E+00,0.1255E+00,0.1226E+00,0.1197E+00,
- *0.1168E+00,0.1140E+00,0.1111E+00,0.1084E+00,0.1057E+00,
- *0.1032E+00,0.1009E+00,0.9875E-01,0.9687E-01,0.9528E-01,
- *0.9398E-01,0.9298E-01,0.9231E-01,0.9197E-01,0.9199E-01,
- *0.9240E-01,0.9323E-01,0.9449E-01,0.9622E-01,0.9843E-01,
- *0.1011E+00,0.1044E+00,0.1083E+00,0.1129E+00,0.1182E+00,
- *0.1245E+00,0.1316E+00,0.1399E+00,0.1493E+00,0.1601E+00,
- *0.1725E+00,0.1793E+00,0.1866E+00,0.2028E+00,0.2213E+00,
- *0.2424E+00,0.2666E+00,0.2944E+00,0.3262E+00,0.3627E+00,
- *0.4046E+00,0.4529E+00,0.5084E+00,0.5725E+00,0.6464E+00,
- *0.7316E+00,0.8301E+00,0.9437E+00,0.1075E+01,0.1227E+01,
- *0.1402E+01,0.1604E+01,0.1837E+01,0.2105E+01,0.2412E+01,
- *0.2765E+01,0.3167E+01,0.3624E+01,0.4140E+01,0.4720E+01,
- *0.5365E+01,0.6076E+01,0.6850E+01,0.7679E+01,0.8551E+01,
- *0.9446E+01,0.1034E+02,0.1119E+02,0.1197E+02,0.1262E+02,
- *0.1311E+02,0.1340E+02,0.1346E+02 /
- DATA ((PHR(i,j),j=1,83),i=17,17)/
- *0.1485E+00,0.1482E+00,0.1468E+00,0.1445E+00,0.1417E+00,
- *0.1387E+00,0.1356E+00,0.1325E+00,0.1294E+00,0.1264E+00,
- *0.1234E+00,0.1204E+00,0.1175E+00,0.1147E+00,0.1120E+00,
- *0.1095E+00,0.1072E+00,0.1051E+00,0.1033E+00,0.1018E+00,
- *0.1005E+00,0.9963E-01,0.9906E-01,0.9884E-01,0.9899E-01,
- *0.9953E-01,0.1005E+00,0.1019E+00,0.1038E+00,0.1062E+00,
- *0.1092E+00,0.1129E+00,0.1171E+00,0.1221E+00,0.1279E+00,
- *0.1347E+00,0.1425E+00,0.1515E+00,0.1618E+00,0.1736E+00,
- *0.1871E+00,0.1945E+00,0.2025E+00,0.2201E+00,0.2402E+00,
- *0.2631E+00,0.2892E+00,0.3190E+00,0.3531E+00,0.3922E+00,
- *0.4369E+00,0.4882E+00,0.5471E+00,0.6147E+00,0.6923E+00,
- *0.7814E+00,0.8837E+00,0.1001E+01,0.1136E+01,0.1291E+01,
- *0.1469E+01,0.1672E+01,0.1905E+01,0.2171E+01,0.2474E+01,
- *0.2818E+01,0.3207E+01,0.3645E+01,0.4136E+01,0.4681E+01,
- *0.5282E+01,0.5937E+01,0.6644E+01,0.7393E+01,0.8172E+01,
- *0.8964E+01,0.9745E+01,0.1049E+02,0.1115E+02,0.1171E+02,
- *0.1213E+02,0.1237E+02,0.1242E+02 /
- DATA ((PHR(i,j),j=1,83),i=18,18)/
- *0.1709E+00,0.1707E+00,0.1696E+00,0.1677E+00,0.1653E+00,
- *0.1626E+00,0.1596E+00,0.1564E+00,0.1532E+00,0.1500E+00,
- *0.1468E+00,0.1437E+00,0.1406E+00,0.1377E+00,0.1349E+00,
- *0.1323E+00,0.1300E+00,0.1278E+00,0.1260E+00,0.1244E+00,
- *0.1231E+00,0.1222E+00,0.1217E+00,0.1215E+00,0.1218E+00,
- *0.1226E+00,0.1238E+00,0.1256E+00,0.1279E+00,0.1309E+00,
- *0.1345E+00,0.1389E+00,0.1441E+00,0.1502E+00,0.1573E+00,
- *0.1656E+00,0.1750E+00,0.1859E+00,0.1983E+00,0.2125E+00,
- *0.2286E+00,0.2375E+00,0.2470E+00,0.2679E+00,0.2917E+00,
- *0.3187E+00,0.3495E+00,0.3844E+00,0.4241E+00,0.4692E+00,
- *0.5204E+00,0.5785E+00,0.6445E+00,0.7194E+00,0.8044E+00,
- *0.9008E+00,0.1010E+01,0.1134E+01,0.1274E+01,0.1433E+01,
- *0.1611E+01,0.1813E+01,0.2039E+01,0.2293E+01,0.2577E+01,
- *0.2894E+01,0.3244E+01,0.3631E+01,0.4054E+01,0.4515E+01,
- *0.5012E+01,0.5542E+01,0.6100E+01,0.6678E+01,0.7267E+01,
- *0.7852E+01,0.8416E+01,0.8942E+01,0.9406E+01,0.9788E+01,
- *0.1007E+02,0.1023E+02,0.1027E+02 /
- DATA ((PHR(i,j),j=1,83),i=19,19)/
- *0.1989E+00,0.1987E+00,0.1978E+00,0.1962E+00,0.1942E+00,
- *0.1917E+00,0.1889E+00,0.1859E+00,0.1828E+00,0.1796E+00,
- *0.1764E+00,0.1732E+00,0.1701E+00,0.1671E+00,0.1643E+00,
- *0.1616E+00,0.1592E+00,0.1569E+00,0.1550E+00,0.1534E+00,
- *0.1520E+00,0.1511E+00,0.1506E+00,0.1504E+00,0.1508E+00,
- *0.1516E+00,0.1530E+00,0.1549E+00,0.1576E+00,0.1609E+00,
- *0.1650E+00,0.1699E+00,0.1758E+00,0.1828E+00,0.1909E+00,
- *0.2003E+00,0.2111E+00,0.2235E+00,0.2377E+00,0.2539E+00,
- *0.2724E+00,0.2826E+00,0.2934E+00,0.3172E+00,0.3441E+00,
- *0.3745E+00,0.4089E+00,0.4478E+00,0.4916E+00,0.5410E+00,
- *0.5967E+00,0.6595E+00,0.7301E+00,0.8095E+00,0.8987E+00,
- *0.9988E+00,0.1111E+01,0.1237E+01,0.1377E+01,0.1534E+01,
- *0.1708E+01,0.1902E+01,0.2117E+01,0.2354E+01,0.2615E+01,
- *0.2901E+01,0.3212E+01,0.3550E+01,0.3914E+01,0.4303E+01,
- *0.4714E+01,0.5146E+01,0.5591E+01,0.6045E+01,0.6499E+01,
- *0.6942E+01,0.7364E+01,0.7749E+01,0.8086E+01,0.8359E+01,
- *0.8557E+01,0.8671E+01,0.8698E+01 /
- DATA ((PHR(i,j),j=1,83),i=20,20)/
- *0.4039E+00,0.4037E+00,0.4031E+00,0.4020E+00,0.4004E+00,
- *0.3985E+00,0.3961E+00,0.3934E+00,0.3903E+00,0.3870E+00,
- *0.3834E+00,0.3797E+00,0.3758E+00,0.3718E+00,0.3678E+00,
- *0.3638E+00,0.3598E+00,0.3559E+00,0.3522E+00,0.3487E+00,
- *0.3454E+00,0.3425E+00,0.3400E+00,0.3379E+00,0.3364E+00,
- *0.3355E+00,0.3352E+00,0.3358E+00,0.3372E+00,0.3396E+00,
- *0.3430E+00,0.3476E+00,0.3536E+00,0.3610E+00,0.3700E+00,
- *0.3808E+00,0.3934E+00,0.4082E+00,0.4253E+00,0.4449E+00,
- *0.4672E+00,0.4795E+00,0.4925E+00,0.5209E+00,0.5529E+00,
- *0.5886E+00,0.6283E+00,0.6724E+00,0.7211E+00,0.7748E+00,
- *0.8339E+00,0.8986E+00,0.9693E+00,0.1046E+01,0.1130E+01,
- *0.1221E+01,0.1319E+01,0.1424E+01,0.1537E+01,0.1659E+01,
- *0.1788E+01,0.1925E+01,0.2069E+01,0.2222E+01,0.2382E+01,
- *0.2548E+01,0.2721E+01,0.2898E+01,0.3079E+01,0.3263E+01,
- *0.3447E+01,0.3631E+01,0.3810E+01,0.3984E+01,0.4150E+01,
- *0.4304E+01,0.4444E+01,0.4567E+01,0.4671E+01,0.4753E+01,
- *0.4811E+01,0.4844E+01,0.4852E+01 /
-c************** MIE (phase fun qh) ***************
- DATA ((QHR(i,j),j=1,83),i= 1, 1)/
- *-0.5308E-21,-0.3847E-02,-0.7671E-02,-0.1357E-02, 0.4828E-02,
- *-0.2220E-02,-0.2526E-01,-0.5228E-01,-0.7486E-01,-0.8780E-01,
- *-0.9331E-01,-0.9431E-01,-0.8953E-01,-0.7919E-01,-0.6584E-01,
- *-0.5399E-01,-0.4485E-01,-0.3392E-01,-0.2352E-01,-0.1671E-01,
- *-0.1125E-01,-0.6411E-02,-0.3637E-02,-0.2257E-02,-0.4036E-03,
- * 0.1497E-02, 0.2087E-02, 0.1657E-02, 0.2143E-02, 0.3304E-02,
- * 0.3609E-02, 0.3288E-02, 0.3797E-02, 0.4872E-02, 0.6129E-02,
- * 0.6769E-02, 0.7335E-02, 0.8643E-02, 0.9557E-02, 0.1068E-01,
- * 0.1298E-01, 0.1395E-01, 0.1447E-01, 0.1504E-01, 0.1661E-01,
- * 0.1898E-01, 0.2061E-01, 0.2232E-01, 0.2514E-01, 0.2842E-01,
- * 0.3015E-01, 0.3158E-01, 0.3669E-01, 0.4103E-01, 0.4226E-01,
- * 0.4606E-01, 0.5303E-01, 0.5746E-01, 0.6100E-01, 0.6848E-01,
- * 0.7725E-01, 0.8308E-01, 0.8673E-01, 0.9333E-01, 0.1045E+00,
- * 0.1155E+00, 0.1211E+00, 0.1233E+00, 0.1321E+00, 0.1445E+00,
- * 0.1527E+00, 0.1531E+00, 0.1504E+00, 0.1585E+00, 0.1756E+00,
- * 0.1892E+00, 0.1897E+00, 0.1712E+00, 0.1322E+00, 0.8504E-01,
- * 0.3936E-01, 0.8367E-02, 0.1901E-19 /
- DATA ((QHR(i,j),j=1,83),i= 2, 2)/
- * 0.6787E-21,-0.1662E-02,-0.3169E-02, 0.9185E-03, 0.3963E-02,
- *-0.3095E-02,-0.2183E-01,-0.4467E-01,-0.6291E-01,-0.7432E-01,
- *-0.7984E-01,-0.8006E-01,-0.7549E-01,-0.6806E-01,-0.5945E-01,
- *-0.4954E-01,-0.3957E-01,-0.3153E-01,-0.2509E-01,-0.1935E-01,
- *-0.1391E-01,-0.9390E-02,-0.6723E-02,-0.4789E-02,-0.2548E-02,
- *-0.1083E-02,-0.4758E-03, 0.4041E-03, 0.1280E-02, 0.1548E-02,
- * 0.1781E-02, 0.2567E-02, 0.3456E-02, 0.3663E-02, 0.3860E-02,
- * 0.4835E-02, 0.5663E-02, 0.6322E-02, 0.7667E-02, 0.8904E-02,
- * 0.9905E-02, 0.1067E-01, 0.1162E-01, 0.1323E-01, 0.1408E-01,
- * 0.1571E-01, 0.1827E-01, 0.1991E-01, 0.2125E-01, 0.2362E-01,
- * 0.2592E-01, 0.2787E-01, 0.3089E-01, 0.3509E-01, 0.3916E-01,
- * 0.4221E-01, 0.4604E-01, 0.5197E-01, 0.5751E-01, 0.6183E-01,
- * 0.6828E-01, 0.7651E-01, 0.8355E-01, 0.9061E-01, 0.1001E+00,
- * 0.1107E+00, 0.1202E+00, 0.1292E+00, 0.1388E+00, 0.1497E+00,
- * 0.1612E+00, 0.1729E+00, 0.1808E+00, 0.1857E+00, 0.1927E+00,
- * 0.2037E+00, 0.2113E+00, 0.2034E+00, 0.1811E+00, 0.1435E+00,
- * 0.8311E-01, 0.1985E-01,-0.6852E-19 /
- DATA ((QHR(i,j),j=1,83),i= 3, 3)/
- * 0.5459E-21,-0.8407E-03,-0.4804E-03, 0.3452E-02, 0.3932E-02,
- *-0.4570E-02,-0.2150E-01,-0.4196E-01,-0.6035E-01,-0.7299E-01,
- *-0.7823E-01,-0.7741E-01,-0.7284E-01,-0.6617E-01,-0.5821E-01,
- *-0.4899E-01,-0.3932E-01,-0.3126E-01,-0.2512E-01,-0.1961E-01,
- *-0.1464E-01,-0.1062E-01,-0.7453E-02,-0.5056E-02,-0.3402E-02,
- *-0.2244E-02,-0.1182E-02,-0.2040E-03, 0.4527E-03, 0.8720E-03,
- * 0.1457E-02, 0.2287E-02, 0.2885E-02, 0.3056E-02, 0.3389E-02,
- * 0.4199E-02, 0.4951E-02, 0.5611E-02, 0.6817E-02, 0.8115E-02,
- * 0.8826E-02, 0.9268E-02, 0.9985E-02, 0.1195E-01, 0.1341E-01,
- * 0.1459E-01, 0.1651E-01, 0.1849E-01, 0.1987E-01, 0.2171E-01,
- * 0.2460E-01, 0.2740E-01, 0.2975E-01, 0.3303E-01, 0.3747E-01,
- * 0.4136E-01, 0.4479E-01, 0.4979E-01, 0.5591E-01, 0.6082E-01,
- * 0.6577E-01, 0.7395E-01, 0.8361E-01, 0.9120E-01, 0.9799E-01,
- * 0.1079E+00, 0.1194E+00, 0.1303E+00, 0.1403E+00, 0.1506E+00,
- * 0.1618E+00, 0.1742E+00, 0.1867E+00, 0.1955E+00, 0.1989E+00,
- * 0.2008E+00, 0.2088E+00, 0.2211E+00, 0.2187E+00, 0.1758E+00,
- * 0.9568E-01, 0.2146E-01,-0.2920E-21 /
- DATA ((QHR(i,j),j=1,83),i= 4, 4)/
- *-0.2160E-21,-0.5478E-03,-0.3328E-03, 0.2842E-02, 0.4430E-02,
- *-0.1803E-02,-0.1715E-01,-0.3619E-01,-0.5231E-01,-0.6302E-01,
- *-0.6842E-01,-0.6906E-01,-0.6578E-01,-0.6007E-01,-0.5313E-01,
- *-0.4509E-01,-0.3694E-01,-0.3008E-01,-0.2451E-01,-0.1964E-01,
- *-0.1505E-01,-0.1111E-01,-0.8535E-02,-0.6538E-02,-0.4446E-02,
- *-0.3014E-02,-0.2147E-02,-0.1212E-02,-0.5118E-03,-0.2022E-03,
- * 0.2086E-03, 0.9618E-03, 0.1733E-02, 0.2072E-02, 0.2448E-02,
- * 0.3363E-02, 0.4169E-02, 0.4819E-02, 0.5963E-02, 0.7034E-02,
- * 0.7800E-02, 0.8361E-02, 0.9085E-02, 0.1044E-01, 0.1124E-01,
- * 0.1252E-01, 0.1454E-01, 0.1614E-01, 0.1760E-01, 0.1983E-01,
- * 0.2229E-01, 0.2464E-01, 0.2746E-01, 0.3088E-01, 0.3451E-01,
- * 0.3771E-01, 0.4113E-01, 0.4632E-01, 0.5222E-01, 0.5728E-01,
- * 0.6361E-01, 0.7184E-01, 0.7958E-01, 0.8707E-01, 0.9636E-01,
- * 0.1069E+00, 0.1174E+00, 0.1280E+00, 0.1395E+00, 0.1521E+00,
- * 0.1646E+00, 0.1762E+00, 0.1857E+00, 0.1931E+00, 0.1996E+00,
- * 0.2050E+00, 0.2055E+00, 0.1947E+00, 0.1714E+00, 0.1326E+00,
- * 0.7461E-01, 0.1751E-01, 0.6497E-19 /
- DATA ((QHR(i,j),j=1,83),i= 5, 5)/
- *-0.2354E-21, 0.7911E-04, 0.1869E-02, 0.5575E-02, 0.5783E-02,
- *-0.1751E-02,-0.1525E-01,-0.3073E-01,-0.4557E-01,-0.5729E-01,
- *-0.6318E-01,-0.6339E-01,-0.6055E-01,-0.5588E-01,-0.4990E-01,
- *-0.4325E-01,-0.3617E-01,-0.2967E-01,-0.2410E-01,-0.1923E-01,
- *-0.1552E-01,-0.1253E-01,-0.9657E-02,-0.7314E-02,-0.5819E-02,
- *-0.4774E-02,-0.3636E-02,-0.2503E-02,-0.1788E-02,-0.1330E-02,
- *-0.7149E-03,-0.6828E-04, 0.4573E-03, 0.1058E-02, 0.1663E-02,
- * 0.2294E-02, 0.3129E-02, 0.3931E-02, 0.4575E-02, 0.5319E-02,
- * 0.6089E-02, 0.6411E-02, 0.6748E-02, 0.7799E-02, 0.9324E-02,
- * 0.1057E-01, 0.1163E-01, 0.1332E-01, 0.1535E-01, 0.1722E-01,
- * 0.1963E-01, 0.2237E-01, 0.2450E-01, 0.2689E-01, 0.3038E-01,
- * 0.3432E-01, 0.3830E-01, 0.4288E-01, 0.4833E-01, 0.5407E-01,
- * 0.6000E-01, 0.6706E-01, 0.7582E-01, 0.8512E-01, 0.9317E-01,
- * 0.1017E+00, 0.1138E+00, 0.1278E+00, 0.1402E+00, 0.1511E+00,
- * 0.1629E+00, 0.1762E+00, 0.1899E+00, 0.2005E+00, 0.2039E+00,
- * 0.2001E+00, 0.1944E+00, 0.1880E+00, 0.1713E+00, 0.1330E+00,
- * 0.7310E-01, 0.1672E-01, 0.4950E-19 /
- DATA ((QHR(i,j),j=1,83),i= 6, 6)/
- *-0.1055E-21,-0.4079E-03, 0.2357E-03, 0.4274E-02, 0.6725E-02,
- * 0.1356E-02,-0.1153E-01,-0.2710E-01,-0.4117E-01,-0.5124E-01,
- *-0.5667E-01,-0.5834E-01,-0.5661E-01,-0.5225E-01,-0.4638E-01,
- *-0.3989E-01,-0.3397E-01,-0.2861E-01,-0.2347E-01,-0.1903E-01,
- *-0.1524E-01,-0.1208E-01,-0.9792E-02,-0.7959E-02,-0.6207E-02,
- *-0.4666E-02,-0.3670E-02,-0.3007E-02,-0.2176E-02,-0.1423E-02,
- *-0.1069E-02,-0.5962E-03, 0.9352E-04, 0.6808E-03, 0.1268E-02,
- * 0.1913E-02, 0.2525E-02, 0.3139E-02, 0.3855E-02, 0.4686E-02,
- * 0.5611E-02, 0.6124E-02, 0.6635E-02, 0.7467E-02, 0.8339E-02,
- * 0.9799E-02, 0.1147E-01, 0.1303E-01, 0.1479E-01, 0.1684E-01,
- * 0.1866E-01, 0.2041E-01, 0.2324E-01, 0.2671E-01, 0.2937E-01,
- * 0.3233E-01, 0.3682E-01, 0.4179E-01, 0.4665E-01, 0.5236E-01,
- * 0.5910E-01, 0.6618E-01, 0.7311E-01, 0.8086E-01, 0.9079E-01,
- * 0.1020E+00, 0.1128E+00, 0.1230E+00, 0.1346E+00, 0.1480E+00,
- * 0.1612E+00, 0.1720E+00, 0.1799E+00, 0.1877E+00, 0.1954E+00,
- * 0.1984E+00, 0.1912E+00, 0.1680E+00, 0.1281E+00, 0.8054E-01,
- * 0.3755E-01, 0.7960E-02, 0.9892E-19 /
- DATA ((QHR(i,j),j=1,83),i= 7, 7)/
- * 0.1958E-22, 0.4175E-04, 0.1454E-02, 0.4916E-02, 0.6743E-02,
- * 0.2535E-02,-0.8462E-02,-0.2263E-01,-0.3546E-01,-0.4487E-01,
- *-0.5053E-01,-0.5253E-01,-0.5135E-01,-0.4799E-01,-0.4344E-01,
- *-0.3806E-01,-0.3257E-01,-0.2774E-01,-0.2352E-01,-0.1961E-01,
- *-0.1600E-01,-0.1298E-01,-0.1077E-01,-0.8974E-02,-0.7248E-02,
- *-0.5826E-02,-0.4808E-02,-0.3890E-02,-0.3038E-02,-0.2430E-02,
- *-0.1931E-02,-0.1320E-02,-0.7169E-03,-0.3549E-03,-0.1914E-04,
- * 0.5437E-03, 0.1106E-02, 0.1661E-02, 0.2412E-02, 0.3195E-02,
- * 0.4025E-02, 0.4532E-02, 0.5086E-02, 0.6131E-02, 0.7058E-02,
- * 0.8325E-02, 0.9937E-02, 0.1133E-01, 0.1269E-01, 0.1443E-01,
- * 0.1622E-01, 0.1805E-01, 0.2049E-01, 0.2360E-01, 0.2675E-01,
- * 0.2983E-01, 0.3365E-01, 0.3846E-01, 0.4341E-01, 0.4857E-01,
- * 0.5476E-01, 0.6171E-01, 0.6882E-01, 0.7670E-01, 0.8611E-01,
- * 0.9663E-01, 0.1074E+00, 0.1184E+00, 0.1299E+00, 0.1421E+00,
- * 0.1546E+00, 0.1665E+00, 0.1760E+00, 0.1827E+00, 0.1872E+00,
- * 0.1885E+00, 0.1819E+00, 0.1625E+00, 0.1309E+00, 0.9003E-01,
- * 0.4509E-01, 0.9761E-02, 0.1818E-19 /
- DATA ((QHR(i,j),j=1,83),i= 8, 8)/
- *-0.1308E-21, 0.5053E-03, 0.2848E-02, 0.6212E-02, 0.7468E-02,
- * 0.3675E-02,-0.5366E-02,-0.1737E-01,-0.2903E-01,-0.3802E-01,
- *-0.4379E-01,-0.4637E-01,-0.4593E-01,-0.4323E-01,-0.3939E-01,
- *-0.3532E-01,-0.3117E-01,-0.2684E-01,-0.2267E-01,-0.1905E-01,
- *-0.1609E-01,-0.1366E-01,-0.1151E-01,-0.9679E-02,-0.8249E-02,
- *-0.7079E-02,-0.6049E-02,-0.5228E-02,-0.4549E-02,-0.3857E-02,
- *-0.3234E-02,-0.2838E-02,-0.2501E-02,-0.1975E-02,-0.1434E-02,
- *-0.1045E-02,-0.5853E-03, 0.1863E-04, 0.6278E-03, 0.1332E-02,
- * 0.2225E-02, 0.2699E-02, 0.3165E-02, 0.4089E-02, 0.5098E-02,
- * 0.6137E-02, 0.7140E-02, 0.8324E-02, 0.9743E-02, 0.1118E-01,
- * 0.1284E-01, 0.1499E-01, 0.1729E-01, 0.1960E-01, 0.2248E-01,
- * 0.2611E-01, 0.2990E-01, 0.3370E-01, 0.3818E-01, 0.4368E-01,
- * 0.4960E-01, 0.5564E-01, 0.6262E-01, 0.7113E-01, 0.8060E-01,
- * 0.9015E-01, 0.1000E+00, 0.1111E+00, 0.1231E+00, 0.1351E+00,
- * 0.1468E+00, 0.1578E+00, 0.1674E+00, 0.1744E+00, 0.1776E+00,
- * 0.1755E+00, 0.1647E+00, 0.1434E+00, 0.1119E+00, 0.7395E-01,
- * 0.3589E-01, 0.7629E-02,-0.9169E-21 /
- DATA ((QHR(i,j),j=1,83),i= 9, 9)/
- *-0.8726E-23, 0.6411E-03, 0.3394E-02, 0.7113E-02, 0.8528E-02,
- * 0.5340E-02,-0.1990E-02,-0.1168E-01,-0.2190E-01,-0.3070E-01,
- *-0.3643E-01,-0.3897E-01,-0.3928E-01,-0.3808E-01,-0.3571E-01,
- *-0.3252E-01,-0.2891E-01,-0.2539E-01,-0.2219E-01,-0.1929E-01,
- *-0.1680E-01,-0.1460E-01,-0.1258E-01,-0.1088E-01,-0.9605E-02,
- *-0.8601E-02,-0.7678E-02,-0.6826E-02,-0.6152E-02,-0.5612E-02,
- *-0.5069E-02,-0.4530E-02,-0.4033E-02,-0.3557E-02,-0.3079E-02,
- *-0.2562E-02,-0.1973E-02,-0.1383E-02,-0.8448E-03,-0.2873E-03,
- * 0.2886E-03, 0.5708E-03, 0.8697E-03, 0.1622E-02, 0.2563E-02,
- * 0.3436E-02, 0.4277E-02, 0.5371E-02, 0.6689E-02, 0.8146E-02,
- * 0.9911E-02, 0.1188E-01, 0.1382E-01, 0.1599E-01, 0.1869E-01,
- * 0.2173E-01, 0.2496E-01, 0.2862E-01, 0.3280E-01, 0.3737E-01,
- * 0.4247E-01, 0.4860E-01, 0.5585E-01, 0.6356E-01, 0.7117E-01,
- * 0.7944E-01, 0.8932E-01, 0.1002E+00, 0.1111E+00, 0.1219E+00,
- * 0.1328E+00, 0.1436E+00, 0.1534E+00, 0.1602E+00, 0.1618E+00,
- * 0.1574E+00, 0.1485E+00, 0.1349E+00, 0.1131E+00, 0.7987E-01,
- * 0.4026E-01, 0.8715E-02,-0.3362E-20 /
- DATA ((QHR(i,j),j=1,83),i=10,10)/
- *-0.4912E-22, 0.6492E-03, 0.3305E-02, 0.6903E-02, 0.8964E-02,
- * 0.7371E-02, 0.1685E-02,-0.6733E-02,-0.1568E-01,-0.2337E-01,
- *-0.2887E-01,-0.3203E-01,-0.3319E-01,-0.3286E-01,-0.3147E-01,
- *-0.2924E-01,-0.2652E-01,-0.2388E-01,-0.2150E-01,-0.1926E-01,
- *-0.1712E-01,-0.1519E-01,-0.1354E-01,-0.1214E-01,-0.1093E-01,
- *-0.9904E-02,-0.9012E-02,-0.8237E-02,-0.7603E-02,-0.7065E-02,
- *-0.6523E-02,-0.5954E-02,-0.5442E-02,-0.5021E-02,-0.4591E-02,
- *-0.4111E-02,-0.3656E-02,-0.3222E-02,-0.2738E-02,-0.2280E-02,
- *-0.1886E-02,-0.1658E-02,-0.1385E-02,-0.7561E-03,-0.1249E-03,
- * 0.6209E-03, 0.1598E-02, 0.2669E-02, 0.3765E-02, 0.5048E-02,
- * 0.6578E-02, 0.8207E-02, 0.9949E-02, 0.1199E-01, 0.1435E-01,
- * 0.1684E-01, 0.1957E-01, 0.2287E-01, 0.2673E-01, 0.3088E-01,
- * 0.3556E-01, 0.4115E-01, 0.4731E-01, 0.5366E-01, 0.6057E-01,
- * 0.6847E-01, 0.7729E-01, 0.8679E-01, 0.9672E-01, 0.1067E+00,
- * 0.1166E+00, 0.1258E+00, 0.1338E+00, 0.1394E+00, 0.1413E+00,
- * 0.1384E+00, 0.1301E+00, 0.1157E+00, 0.9404E-01, 0.6447E-01,
- * 0.3161E-01, 0.6695E-02, 0.6922E-19 /
- DATA ((QHR(i,j),j=1,83),i=11,11)/
- * 0.9602E-22, 0.7231E-03, 0.3548E-02, 0.7227E-02, 0.9379E-02,
- * 0.8188E-02, 0.3559E-02,-0.3404E-02,-0.1127E-01,-0.1855E-01,
- *-0.2402E-01,-0.2736E-01,-0.2894E-01,-0.2921E-01,-0.2851E-01,
- *-0.2708E-01,-0.2515E-01,-0.2303E-01,-0.2094E-01,-0.1900E-01,
- *-0.1729E-01,-0.1575E-01,-0.1428E-01,-0.1298E-01,-0.1191E-01,
- *-0.1100E-01,-0.1015E-01,-0.9345E-02,-0.8677E-02,-0.8121E-02,
- *-0.7609E-02,-0.7149E-02,-0.6763E-02,-0.6420E-02,-0.6104E-02,
- *-0.5782E-02,-0.5421E-02,-0.5057E-02,-0.4709E-02,-0.4337E-02,
- *-0.3936E-02,-0.3722E-02,-0.3488E-02,-0.2916E-02,-0.2227E-02,
- *-0.1541E-02,-0.8513E-03,-0.2911E-04, 0.9395E-03, 0.2030E-02,
- * 0.3312E-02, 0.4719E-02, 0.6144E-02, 0.7770E-02, 0.9783E-02,
- * 0.1210E-01, 0.1466E-01, 0.1759E-01, 0.2099E-01, 0.2479E-01,
- * 0.2896E-01, 0.3368E-01, 0.3906E-01, 0.4492E-01, 0.5110E-01,
- * 0.5800E-01, 0.6612E-01, 0.7506E-01, 0.8401E-01, 0.9276E-01,
- * 0.1016E+00, 0.1104E+00, 0.1183E+00, 0.1237E+00, 0.1249E+00,
- * 0.1214E+00, 0.1133E+00, 0.1004E+00, 0.8140E-01, 0.5582E-01,
- * 0.2757E-01, 0.5893E-02, 0.2684E-19 /
- DATA ((QHR(i,j),j=1,83),i=12,12)/
- * 0.2191E-22, 0.6181E-03, 0.3190E-02, 0.6894E-02, 0.9547E-02,
- * 0.9106E-02, 0.5059E-02,-0.1485E-02,-0.8772E-02,-0.1539E-01,
- *-0.2067E-01,-0.2437E-01,-0.2639E-01,-0.2690E-01,-0.2638E-01,
- *-0.2531E-01,-0.2393E-01,-0.2224E-01,-0.2042E-01,-0.1870E-01,
- *-0.1712E-01,-0.1569E-01,-0.1445E-01,-0.1335E-01,-0.1231E-01,
- *-0.1135E-01,-0.1056E-01,-0.9909E-02,-0.9308E-02,-0.8767E-02,
- *-0.8350E-02,-0.8019E-02,-0.7705E-02,-0.7394E-02,-0.7096E-02,
- *-0.6827E-02,-0.6575E-02,-0.6302E-02,-0.5988E-02,-0.5596E-02,
- *-0.5117E-02,-0.4872E-02,-0.4635E-02,-0.4161E-02,-0.3613E-02,
- *-0.2982E-02,-0.2308E-02,-0.1572E-02,-0.7213E-03, 0.2080E-03,
- * 0.1176E-02, 0.2305E-02, 0.3727E-02, 0.5314E-02, 0.6980E-02,
- * 0.8974E-02, 0.1142E-01, 0.1417E-01, 0.1723E-01, 0.2076E-01,
- * 0.2469E-01, 0.2885E-01, 0.3336E-01, 0.3862E-01, 0.4488E-01,
- * 0.5183E-01, 0.5905E-01, 0.6651E-01, 0.7458E-01, 0.8323E-01,
- * 0.9185E-01, 0.9967E-01, 0.1061E+00, 0.1108E+00, 0.1131E+00,
- * 0.1112E+00, 0.1032E+00, 0.8785E-01, 0.6592E-01, 0.4075E-01,
- * 0.1806E-01, 0.3567E-02, 0.2626E-19 /
- DATA ((QHR(i,j),j=1,83),i=13,13)/
- *-0.1487E-21, 0.7015E-03, 0.3409E-02, 0.7016E-02, 0.9635E-02,
- * 0.9834E-02, 0.7324E-02, 0.2669E-02,-0.3157E-02,-0.9005E-02,
- *-0.1392E-01,-0.1754E-01,-0.1995E-01,-0.2134E-01,-0.2185E-01,
- *-0.2166E-01,-0.2101E-01,-0.2010E-01,-0.1907E-01,-0.1799E-01,
- *-0.1694E-01,-0.1593E-01,-0.1499E-01,-0.1418E-01,-0.1350E-01,
- *-0.1293E-01,-0.1240E-01,-0.1191E-01,-0.1150E-01,-0.1115E-01,
- *-0.1085E-01,-0.1058E-01,-0.1035E-01,-0.1016E-01,-0.9979E-02,
- *-0.9791E-02,-0.9579E-02,-0.9358E-02,-0.9143E-02,-0.8919E-02,
- *-0.8682E-02,-0.8559E-02,-0.8428E-02,-0.8117E-02,-0.7749E-02,
- *-0.7388E-02,-0.7034E-02,-0.6626E-02,-0.6153E-02,-0.5615E-02,
- *-0.4972E-02,-0.4239E-02,-0.3435E-02,-0.2463E-02,-0.1231E-02,
- * 0.2256E-03, 0.1850E-02, 0.3656E-02, 0.5654E-02, 0.7850E-02,
- * 0.1038E-01, 0.1347E-01, 0.1719E-01, 0.2135E-01, 0.2580E-01,
- * 0.3074E-01, 0.3639E-01, 0.4269E-01, 0.4938E-01, 0.5638E-01,
- * 0.6358E-01, 0.7066E-01, 0.7700E-01, 0.8167E-01, 0.8353E-01,
- * 0.8191E-01, 0.7671E-01, 0.6772E-01, 0.5425E-01, 0.3650E-01,
- * 0.1764E-01, 0.3711E-02,-0.3550E-19 /
- DATA ((QHR(i,j),j=1,83),i=14,14)/
- *-0.1464E-21, 0.6290E-03, 0.3055E-02, 0.6400E-02, 0.9252E-02,
- * 0.1043E-01, 0.9451E-02, 0.6562E-02, 0.2449E-02,-0.2067E-02,
- *-0.6299E-02,-0.9870E-02,-0.1269E-01,-0.1480E-01,-0.1624E-01,
- *-0.1710E-01,-0.1748E-01,-0.1758E-01,-0.1751E-01,-0.1733E-01,
- *-0.1705E-01,-0.1670E-01,-0.1632E-01,-0.1596E-01,-0.1563E-01,
- *-0.1535E-01,-0.1510E-01,-0.1489E-01,-0.1471E-01,-0.1456E-01,
- *-0.1442E-01,-0.1430E-01,-0.1420E-01,-0.1416E-01,-0.1414E-01,
- *-0.1415E-01,-0.1417E-01,-0.1422E-01,-0.1429E-01,-0.1439E-01,
- *-0.1452E-01,-0.1459E-01,-0.1467E-01,-0.1481E-01,-0.1495E-01,
- *-0.1511E-01,-0.1524E-01,-0.1535E-01,-0.1543E-01,-0.1545E-01,
- *-0.1541E-01,-0.1534E-01,-0.1528E-01,-0.1518E-01,-0.1506E-01,
- *-0.1491E-01,-0.1471E-01,-0.1436E-01,-0.1383E-01,-0.1309E-01,
- *-0.1211E-01,-0.1083E-01,-0.9279E-02,-0.7482E-02,-0.5331E-02,
- *-0.2583E-02, 0.9063E-03, 0.5089E-02, 0.9833E-02, 0.1506E-01,
- * 0.2070E-01, 0.2665E-01, 0.3257E-01, 0.3777E-01, 0.4143E-01,
- * 0.4292E-01, 0.4191E-01, 0.3801E-01, 0.3086E-01, 0.2082E-01,
- * 0.1004E-01, 0.2105E-02, 0.2511E-19 /
- DATA ((QHR(i,j),j=1,83),i=15,15)/
- *-0.3694E-21, 0.3515E-03, 0.1740E-02, 0.3816E-02, 0.6001E-02,
- * 0.7727E-02, 0.8609E-02, 0.8516E-02, 0.7521E-02, 0.5816E-02,
- * 0.3628E-02, 0.1173E-02,-0.1373E-02,-0.3888E-02,-0.6304E-02,
- *-0.8584E-02,-0.1070E-01,-0.1265E-01,-0.1444E-01,-0.1609E-01,
- *-0.1762E-01,-0.1906E-01,-0.2041E-01,-0.2168E-01,-0.2288E-01,
- *-0.2404E-01,-0.2518E-01,-0.2632E-01,-0.2746E-01,-0.2863E-01,
- *-0.2982E-01,-0.3103E-01,-0.3228E-01,-0.3357E-01,-0.3492E-01,
- *-0.3635E-01,-0.3789E-01,-0.3954E-01,-0.4131E-01,-0.4323E-01,
- *-0.4528E-01,-0.4635E-01,-0.4747E-01,-0.4980E-01,-0.5226E-01,
- *-0.5486E-01,-0.5760E-01,-0.6050E-01,-0.6359E-01,-0.6688E-01,
- *-0.7040E-01,-0.7414E-01,-0.7812E-01,-0.8230E-01,-0.8667E-01,
- *-0.9116E-01,-0.9575E-01,-0.1004E+00,-0.1050E+00,-0.1095E+00,
- *-0.1139E+00,-0.1180E+00,-0.1217E+00,-0.1247E+00,-0.1269E+00,
- *-0.1280E+00,-0.1279E+00,-0.1263E+00,-0.1231E+00,-0.1179E+00,
- *-0.1108E+00,-0.1018E+00,-0.9103E-01,-0.7876E-01,-0.6550E-01,
- *-0.5190E-01,-0.3872E-01,-0.2677E-01,-0.1670E-01,-0.8919E-02,
- *-0.3585E-02,-0.6734E-03,-0.5888E-20 /
- DATA ((QHR(i,j),j=1,83),i=16,16)/
- *-0.3902E-21, 0.2073E-03, 0.1033E-02, 0.2299E-02, 0.3696E-02,
- * 0.4902E-02, 0.5663E-02, 0.5830E-02, 0.5367E-02, 0.4316E-02,
- * 0.2770E-02, 0.8345E-03,-0.1384E-02,-0.3793E-02,-0.6318E-02,
- *-0.8901E-02,-0.1150E-01,-0.1409E-01,-0.1667E-01,-0.1921E-01,
- *-0.2172E-01,-0.2420E-01,-0.2666E-01,-0.2910E-01,-0.3154E-01,
- *-0.3399E-01,-0.3647E-01,-0.3897E-01,-0.4152E-01,-0.4411E-01,
- *-0.4676E-01,-0.4947E-01,-0.5226E-01,-0.5515E-01,-0.5815E-01,
- *-0.6129E-01,-0.6459E-01,-0.6805E-01,-0.7171E-01,-0.7558E-01,
- *-0.7966E-01,-0.8179E-01,-0.8398E-01,-0.8854E-01,-0.9335E-01,
- *-0.9842E-01,-0.1037E+00,-0.1093E+00,-0.1151E+00,-0.1212E+00,
- *-0.1275E+00,-0.1341E+00,-0.1408E+00,-0.1478E+00,-0.1549E+00,
- *-0.1621E+00,-0.1693E+00,-0.1763E+00,-0.1831E+00,-0.1895E+00,
- *-0.1954E+00,-0.2005E+00,-0.2047E+00,-0.2078E+00,-0.2094E+00,
- *-0.2093E+00,-0.2072E+00,-0.2029E+00,-0.1963E+00,-0.1871E+00,
- *-0.1753E+00,-0.1610E+00,-0.1444E+00,-0.1260E+00,-0.1062E+00,
- *-0.8580E-01,-0.6571E-01,-0.4688E-01,-0.3025E-01,-0.1670E-01,
- *-0.6904E-02,-0.1321E-02, 0.4135E-19 /
- DATA ((QHR(i,j),j=1,83),i=17,17)/
- *-0.5161E-22, 0.1652E-03, 0.8250E-03, 0.1839E-02, 0.2962E-02,
- * 0.3931E-02, 0.4530E-02, 0.4625E-02, 0.4163E-02, 0.3161E-02,
- * 0.1677E-02,-0.2090E-03,-0.2412E-02,-0.4854E-02,-0.7469E-02,
- *-0.1020E-01,-0.1301E-01,-0.1587E-01,-0.1875E-01,-0.2165E-01,
- *-0.2455E-01,-0.2745E-01,-0.3036E-01,-0.3327E-01,-0.3619E-01,
- *-0.3913E-01,-0.4211E-01,-0.4513E-01,-0.4821E-01,-0.5136E-01,
- *-0.5460E-01,-0.5792E-01,-0.6136E-01,-0.6492E-01,-0.6864E-01,
- *-0.7252E-01,-0.7659E-01,-0.8087E-01,-0.8539E-01,-0.9015E-01,
- *-0.9515E-01,-0.9775E-01,-0.1004E+00,-0.1059E+00,-0.1117E+00,
- *-0.1177E+00,-0.1239E+00,-0.1304E+00,-0.1372E+00,-0.1442E+00,
- *-0.1514E+00,-0.1589E+00,-0.1666E+00,-0.1743E+00,-0.1822E+00,
- *-0.1900E+00,-0.1977E+00,-0.2052E+00,-0.2123E+00,-0.2188E+00,
- *-0.2247E+00,-0.2296E+00,-0.2334E+00,-0.2358E+00,-0.2365E+00,
- *-0.2353E+00,-0.2319E+00,-0.2261E+00,-0.2178E+00,-0.2068E+00,
- *-0.1931E+00,-0.1768E+00,-0.1582E+00,-0.1377E+00,-0.1159E+00,
- *-0.9356E-01,-0.7167E-01,-0.5119E-01,-0.3310E-01,-0.1832E-01,
- *-0.7594E-02,-0.1456E-02,-0.1341E-20 /
- DATA ((QHR(i,j),j=1,83),i=18,18)/
- * 0.1407E-21, 0.7840E-04, 0.3879E-03, 0.8488E-03, 0.1322E-02,
- * 0.1656E-02, 0.1711E-02, 0.1388E-02, 0.6310E-03,-0.5766E-03,
- *-0.2220E-02,-0.4263E-02,-0.6662E-02,-0.9368E-02,-0.1233E-01,
- *-0.1552E-01,-0.1889E-01,-0.2241E-01,-0.2606E-01,-0.2983E-01,
- *-0.3370E-01,-0.3767E-01,-0.4174E-01,-0.4592E-01,-0.5020E-01,
- *-0.5459E-01,-0.5910E-01,-0.6375E-01,-0.6852E-01,-0.7344E-01,
- *-0.7852E-01,-0.8376E-01,-0.8918E-01,-0.9480E-01,-0.1006E+00,
- *-0.1066E+00,-0.1129E+00,-0.1194E+00,-0.1261E+00,-0.1330E+00,
- *-0.1402E+00,-0.1439E+00,-0.1477E+00,-0.1555E+00,-0.1635E+00,
- *-0.1718E+00,-0.1803E+00,-0.1891E+00,-0.1981E+00,-0.2072E+00,
- *-0.2164E+00,-0.2257E+00,-0.2350E+00,-0.2441E+00,-0.2531E+00,
- *-0.2617E+00,-0.2698E+00,-0.2774E+00,-0.2841E+00,-0.2898E+00,
- *-0.2944E+00,-0.2975E+00,-0.2989E+00,-0.2984E+00,-0.2958E+00,
- *-0.2909E+00,-0.2833E+00,-0.2731E+00,-0.2600E+00,-0.2442E+00,
- *-0.2256E+00,-0.2046E+00,-0.1814E+00,-0.1566E+00,-0.1310E+00,
- *-0.1052E+00,-0.8025E-01,-0.5716E-01,-0.3691E-01,-0.2041E-01,
- *-0.8460E-02,-0.1622E-02,-0.1894E-19 /
- DATA ((QHR(i,j),j=1,83),i=19,19)/
- * 0.2306E-21, 0.1529E-04, 0.6618E-04, 0.1025E-03, 0.4286E-04,
- *-0.2063E-03,-0.7331E-03,-0.1609E-02,-0.2880E-02,-0.4570E-02,
- *-0.6683E-02,-0.9205E-02,-0.1212E-01,-0.1538E-01,-0.1898E-01,
- *-0.2288E-01,-0.2706E-01,-0.3148E-01,-0.3613E-01,-0.4099E-01,
- *-0.4606E-01,-0.5130E-01,-0.5673E-01,-0.6234E-01,-0.6812E-01,
- *-0.7408E-01,-0.8021E-01,-0.8653E-01,-0.9304E-01,-0.9976E-01,
- *-0.1067E+00,-0.1138E+00,-0.1212E+00,-0.1288E+00,-0.1366E+00,
- *-0.1448E+00,-0.1531E+00,-0.1617E+00,-0.1706E+00,-0.1797E+00,
- *-0.1891E+00,-0.1939E+00,-0.1987E+00,-0.2086E+00,-0.2186E+00,
- *-0.2288E+00,-0.2391E+00,-0.2494E+00,-0.2598E+00,-0.2702E+00,
- *-0.2805E+00,-0.2906E+00,-0.3004E+00,-0.3097E+00,-0.3186E+00,
- *-0.3268E+00,-0.3341E+00,-0.3404E+00,-0.3456E+00,-0.3493E+00,
- *-0.3514E+00,-0.3517E+00,-0.3500E+00,-0.3460E+00,-0.3395E+00,
- *-0.3305E+00,-0.3187E+00,-0.3041E+00,-0.2867E+00,-0.2666E+00,
- *-0.2440E+00,-0.2192E+00,-0.1928E+00,-0.1651E+00,-0.1371E+00,
- *-0.1094E+00,-0.8302E-01,-0.5887E-01,-0.3788E-01,-0.2090E-01,
- *-0.8646E-02,-0.1656E-02, 0.1482E-19 /
- DATA ((QHR(i,j),j=1,83),i=20,20)/
- *-0.1974E-21,-0.1772E-03,-0.9349E-03,-0.2303E-02,-0.4288E-02,
- *-0.6899E-02,-0.1014E-01,-0.1403E-01,-0.1856E-01,-0.2375E-01,
- *-0.2957E-01,-0.3605E-01,-0.4316E-01,-0.5089E-01,-0.5925E-01,
- *-0.6820E-01,-0.7773E-01,-0.8783E-01,-0.9849E-01,-0.1097E+00,
- *-0.1214E+00,-0.1335E+00,-0.1462E+00,-0.1592E+00,-0.1727E+00,
- *-0.1866E+00,-0.2009E+00,-0.2154E+00,-0.2303E+00,-0.2455E+00,
- *-0.2608E+00,-0.2764E+00,-0.2921E+00,-0.3079E+00,-0.3238E+00,
- *-0.3397E+00,-0.3555E+00,-0.3713E+00,-0.3868E+00,-0.4021E+00,
- *-0.4170E+00,-0.4243E+00,-0.4315E+00,-0.4456E+00,-0.4590E+00,
- *-0.4717E+00,-0.4835E+00,-0.4945E+00,-0.5044E+00,-0.5131E+00,
- *-0.5205E+00,-0.5264E+00,-0.5308E+00,-0.5335E+00,-0.5344E+00,
- *-0.5333E+00,-0.5302E+00,-0.5249E+00,-0.5173E+00,-0.5073E+00,
- *-0.4949E+00,-0.4801E+00,-0.4629E+00,-0.4432E+00,-0.4213E+00,
- *-0.3971E+00,-0.3709E+00,-0.3429E+00,-0.3134E+00,-0.2827E+00,
- *-0.2512E+00,-0.2193E+00,-0.1877E+00,-0.1568E+00,-0.1271E+00,
- *-0.9931E-01,-0.7396E-01,-0.5161E-01,-0.3277E-01,-0.1789E-01,
- *-0.7351E-02,-0.1403E-02,-0.2286E-20 /
-c************** MIE (phase fun uh) ***************
- DATA ((UHR(i,j),j=1,83),i= 1, 1)/
- *-0.2975E+00,-0.2668E+00,-0.1549E+00,-0.1893E-01, 0.8761E-01,
- * 0.1490E+00, 0.1690E+00, 0.1621E+00, 0.1425E+00, 0.1202E+00,
- * 0.1006E+00, 0.8386E-01, 0.7080E-01, 0.5982E-01, 0.5096E-01,
- * 0.4534E-01, 0.4095E-01, 0.3683E-01, 0.3467E-01, 0.3363E-01,
- * 0.3287E-01, 0.3248E-01, 0.3227E-01, 0.3202E-01, 0.3221E-01,
- * 0.3315E-01, 0.3341E-01, 0.3416E-01, 0.3596E-01, 0.3750E-01,
- * 0.3891E-01, 0.4129E-01, 0.4417E-01, 0.4684E-01, 0.5013E-01,
- * 0.5405E-01, 0.5841E-01, 0.6347E-01, 0.6904E-01, 0.7469E-01,
- * 0.8139E-01, 0.8556E-01, 0.9018E-01, 0.9939E-01, 0.1083E+00,
- * 0.1199E+00, 0.1340E+00, 0.1482E+00, 0.1645E+00, 0.1852E+00,
- * 0.2084E+00, 0.2329E+00, 0.2629E+00, 0.2995E+00, 0.3403E+00,
- * 0.3861E+00, 0.4398E+00, 0.5032E+00, 0.5757E+00, 0.6589E+00,
- * 0.7580E+00, 0.8782E+00, 0.1017E+01, 0.1175E+01, 0.1362E+01,
- * 0.1588E+01, 0.1853E+01, 0.2167E+01, 0.2547E+01, 0.3006E+01,
- * 0.3574E+01, 0.4289E+01, 0.5202E+01, 0.6408E+01, 0.8085E+01,
- * 0.1050E+02, 0.1408E+02, 0.1947E+02, 0.2755E+02, 0.3918E+02,
- * 0.5406E+02, 0.6807E+02, 0.7250E+02 /
- DATA ((UHR(i,j),j=1,83),i= 2, 2)/
- *-0.2458E+00,-0.2241E+00,-0.1447E+00,-0.4556E-01, 0.3753E-01,
- * 0.9297E-01, 0.1209E+00, 0.1259E+00, 0.1161E+00, 0.9999E-01,
- * 0.8441E-01, 0.7229E-01, 0.6217E-01, 0.5317E-01, 0.4587E-01,
- * 0.4108E-01, 0.3883E-01, 0.3724E-01, 0.3524E-01, 0.3361E-01,
- * 0.3266E-01, 0.3251E-01, 0.3315E-01, 0.3373E-01, 0.3388E-01,
- * 0.3429E-01, 0.3542E-01, 0.3680E-01, 0.3789E-01, 0.3897E-01,
- * 0.4054E-01, 0.4285E-01, 0.4571E-01, 0.4849E-01, 0.5137E-01,
- * 0.5498E-01, 0.5913E-01, 0.6371E-01, 0.6905E-01, 0.7498E-01,
- * 0.8126E-01, 0.8467E-01, 0.8842E-01, 0.9722E-01, 0.1073E+00,
- * 0.1181E+00, 0.1307E+00, 0.1455E+00, 0.1620E+00, 0.1811E+00,
- * 0.2039E+00, 0.2296E+00, 0.2581E+00, 0.2912E+00, 0.3305E+00,
- * 0.3762E+00, 0.4288E+00, 0.4909E+00, 0.5646E+00, 0.6497E+00,
- * 0.7480E+00, 0.8653E+00, 0.1006E+01, 0.1170E+01, 0.1364E+01,
- * 0.1597E+01, 0.1882E+01, 0.2227E+01, 0.2643E+01, 0.3153E+01,
- * 0.3794E+01, 0.4609E+01, 0.5661E+01, 0.7047E+01, 0.8911E+01,
- * 0.1148E+02, 0.1508E+02, 0.2015E+02, 0.2716E+02, 0.3633E+02,
- * 0.4692E+02, 0.5589E+02, 0.5854E+02 /
- DATA ((UHR(i,j),j=1,83),i= 3, 3)/
- *-0.2347E+00,-0.2152E+00,-0.1427E+00,-0.4866E-01, 0.3153E-01,
- * 0.8391E-01, 0.1109E+00, 0.1176E+00, 0.1105E+00, 0.9650E-01,
- * 0.8184E-01, 0.6955E-01, 0.5952E-01, 0.5163E-01, 0.4572E-01,
- * 0.4123E-01, 0.3829E-01, 0.3675E-01, 0.3552E-01, 0.3436E-01,
- * 0.3347E-01, 0.3299E-01, 0.3325E-01, 0.3383E-01, 0.3404E-01,
- * 0.3451E-01, 0.3568E-01, 0.3694E-01, 0.3806E-01, 0.3948E-01,
- * 0.4132E-01, 0.4339E-01, 0.4580E-01, 0.4869E-01, 0.5183E-01,
- * 0.5537E-01, 0.5952E-01, 0.6400E-01, 0.6899E-01, 0.7493E-01,
- * 0.8148E-01, 0.8488E-01, 0.8848E-01, 0.9678E-01, 0.1068E+00,
- * 0.1180E+00, 0.1305E+00, 0.1450E+00, 0.1618E+00, 0.1805E+00,
- * 0.2023E+00, 0.2281E+00, 0.2569E+00, 0.2894E+00, 0.3283E+00,
- * 0.3744E+00, 0.4271E+00, 0.4887E+00, 0.5619E+00, 0.6477E+00,
- * 0.7467E+00, 0.8629E+00, 0.1002E+01, 0.1169E+01, 0.1368E+01,
- * 0.1604E+01, 0.1890E+01, 0.2240E+01, 0.2667E+01, 0.3191E+01,
- * 0.3844E+01, 0.4679E+01, 0.5760E+01, 0.7181E+01, 0.9079E+01,
- * 0.1167E+02, 0.1525E+02, 0.2022E+02, 0.2700E+02, 0.3573E+02,
- * 0.4558E+02, 0.5377E+02, 0.5616E+02 /
- DATA ((UHR(i,j),j=1,83),i= 4, 4)/
- *-0.2072E+00,-0.1914E+00,-0.1329E+00,-0.5698E-01, 0.1086E-01,
- * 0.5998E-01, 0.8847E-01, 0.9828E-01, 0.9476E-01, 0.8454E-01,
- * 0.7332E-01, 0.6387E-01, 0.5578E-01, 0.4867E-01, 0.4299E-01,
- * 0.3920E-01, 0.3724E-01, 0.3592E-01, 0.3453E-01, 0.3352E-01,
- * 0.3301E-01, 0.3301E-01, 0.3357E-01, 0.3408E-01, 0.3426E-01,
- * 0.3476E-01, 0.3596E-01, 0.3742E-01, 0.3875E-01, 0.4012E-01,
- * 0.4176E-01, 0.4385E-01, 0.4635E-01, 0.4896E-01, 0.5179E-01,
- * 0.5527E-01, 0.5936E-01, 0.6393E-01, 0.6915E-01, 0.7503E-01,
- * 0.8140E-01, 0.8483E-01, 0.8854E-01, 0.9708E-01, 0.1069E+00,
- * 0.1177E+00, 0.1300E+00, 0.1444E+00, 0.1605E+00, 0.1788E+00,
- * 0.2005E+00, 0.2254E+00, 0.2536E+00, 0.2864E+00, 0.3254E+00,
- * 0.3709E+00, 0.4233E+00, 0.4847E+00, 0.5569E+00, 0.6410E+00,
- * 0.7396E+00, 0.8577E+00, 0.9997E+00, 0.1169E+01, 0.1371E+01,
- * 0.1614E+01, 0.1912E+01, 0.2276E+01, 0.2722E+01, 0.3274E+01,
- * 0.3972E+01, 0.4864E+01, 0.6012E+01, 0.7502E+01, 0.9470E+01,
- * 0.1210E+02, 0.1565E+02, 0.2040E+02, 0.2659E+02, 0.3417E+02,
- * 0.4234E+02, 0.4885E+02, 0.5070E+02 /
- DATA ((UHR(i,j),j=1,83),i= 5, 5)/
- *-0.1879E+00,-0.1748E+00,-0.1262E+00,-0.6112E-01,-0.6590E-04,
- * 0.4540E-01, 0.7199E-01, 0.8237E-01, 0.8222E-01, 0.7657E-01,
- * 0.6805E-01, 0.5898E-01, 0.5140E-01, 0.4579E-01, 0.4188E-01,
- * 0.3887E-01, 0.3623E-01, 0.3462E-01, 0.3409E-01, 0.3395E-01,
- * 0.3388E-01, 0.3375E-01, 0.3376E-01, 0.3412E-01, 0.3465E-01,
- * 0.3528E-01, 0.3607E-01, 0.3709E-01, 0.3849E-01, 0.4035E-01,
- * 0.4245E-01, 0.4439E-01, 0.4649E-01, 0.4928E-01, 0.5249E-01,
- * 0.5587E-01, 0.5974E-01, 0.6419E-01, 0.6921E-01, 0.7508E-01,
- * 0.8180E-01, 0.8536E-01, 0.8906E-01, 0.9724E-01, 0.1069E+00,
- * 0.1176E+00, 0.1296E+00, 0.1436E+00, 0.1597E+00, 0.1778E+00,
- * 0.1987E+00, 0.2236E+00, 0.2526E+00, 0.2855E+00, 0.3236E+00,
- * 0.3687E+00, 0.4210E+00, 0.4812E+00, 0.5526E+00, 0.6380E+00,
- * 0.7385E+00, 0.8571E+00, 0.9993E+00, 0.1171E+01, 0.1379E+01,
- * 0.1630E+01, 0.1933E+01, 0.2306E+01, 0.2771E+01, 0.3351E+01,
- * 0.4081E+01, 0.5008E+01, 0.6196E+01, 0.7737E+01, 0.9756E+01,
- * 0.1241E+02, 0.1589E+02, 0.2041E+02, 0.2614E+02, 0.3296E+02,
- * 0.4009E+02, 0.4560E+02, 0.4714E+02 /
- DATA ((UHR(i,j),j=1,83),i= 6, 6)/
- *-0.1755E+00,-0.1643E+00,-0.1222E+00,-0.6482E-01,-0.9411E-02,
- * 0.3384E-01, 0.6082E-01, 0.7282E-01, 0.7400E-01, 0.6903E-01,
- * 0.6219E-01, 0.5552E-01, 0.4945E-01, 0.4406E-01, 0.3959E-01,
- * 0.3676E-01, 0.3534E-01, 0.3409E-01, 0.3301E-01, 0.3255E-01,
- * 0.3250E-01, 0.3281E-01, 0.3336E-01, 0.3393E-01, 0.3451E-01,
- * 0.3520E-01, 0.3611E-01, 0.3734E-01, 0.3875E-01, 0.4016E-01,
- * 0.4187E-01, 0.4421E-01, 0.4679E-01, 0.4939E-01, 0.5231E-01,
- * 0.5573E-01, 0.5966E-01, 0.6418E-01, 0.6938E-01, 0.7512E-01,
- * 0.8147E-01, 0.8505E-01, 0.8894E-01, 0.9748E-01, 0.1067E+00,
- * 0.1172E+00, 0.1294E+00, 0.1432E+00, 0.1588E+00, 0.1774E+00,
- * 0.1988E+00, 0.2231E+00, 0.2511E+00, 0.2842E+00, 0.3227E+00,
- * 0.3670E+00, 0.4185E+00, 0.4795E+00, 0.5512E+00, 0.6354E+00,
- * 0.7359E+00, 0.8567E+00, 0.1002E+01, 0.1175E+01, 0.1383E+01,
- * 0.1637E+01, 0.1949E+01, 0.2332E+01, 0.2808E+01, 0.3403E+01,
- * 0.4155E+01, 0.5107E+01, 0.6326E+01, 0.7895E+01, 0.9932E+01,
- * 0.1258E+02, 0.1603E+02, 0.2043E+02, 0.2587E+02, 0.3218E+02,
- * 0.3860E+02, 0.4345E+02, 0.4478E+02 /
- DATA ((UHR(i,j),j=1,83),i= 7, 7)/
- *-0.1638E+00,-0.1546E+00,-0.1193E+00,-0.7024E-01,-0.2173E-01,
- * 0.1788E-01, 0.4480E-01, 0.5866E-01, 0.6220E-01, 0.5955E-01,
- * 0.5464E-01, 0.4967E-01, 0.4499E-01, 0.4066E-01, 0.3709E-01,
- * 0.3475E-01, 0.3360E-01, 0.3288E-01, 0.3214E-01, 0.3166E-01,
- * 0.3160E-01, 0.3200E-01, 0.3272E-01, 0.3344E-01, 0.3408E-01,
- * 0.3483E-01, 0.3588E-01, 0.3718E-01, 0.3852E-01, 0.3995E-01,
- * 0.4174E-01, 0.4400E-01, 0.4662E-01, 0.4938E-01, 0.5239E-01,
- * 0.5583E-01, 0.5974E-01, 0.6417E-01, 0.6925E-01, 0.7490E-01,
- * 0.8112E-01, 0.8453E-01, 0.8822E-01, 0.9652E-01, 0.1059E+00,
- * 0.1164E+00, 0.1285E+00, 0.1424E+00, 0.1582E+00, 0.1766E+00,
- * 0.1980E+00, 0.2224E+00, 0.2503E+00, 0.2827E+00, 0.3207E+00,
- * 0.3649E+00, 0.4166E+00, 0.4776E+00, 0.5499E+00, 0.6353E+00,
- * 0.7367E+00, 0.8588E+00, 0.1006E+01, 0.1182E+01, 0.1395E+01,
- * 0.1655E+01, 0.1976E+01, 0.2373E+01, 0.2866E+01, 0.3483E+01,
- * 0.4260E+01, 0.5243E+01, 0.6496E+01, 0.8100E+01, 0.1016E+02,
- * 0.1279E+02, 0.1615E+02, 0.2034E+02, 0.2541E+02, 0.3111E+02,
- * 0.3673E+02, 0.4085E+02, 0.4196E+02 /
- DATA ((UHR(i,j),j=1,83),i= 8, 8)/
- *-0.1489E+00,-0.1418E+00,-0.1143E+00,-0.7374E-01,-0.3142E-01,
- * 0.3980E-02, 0.2856E-01, 0.4264E-01, 0.4865E-01, 0.4937E-01,
- * 0.4702E-01, 0.4327E-01, 0.3953E-01, 0.3665E-01, 0.3458E-01,
- * 0.3295E-01, 0.3169E-01, 0.3099E-01, 0.3081E-01, 0.3096E-01,
- * 0.3132E-01, 0.3176E-01, 0.3214E-01, 0.3268E-01, 0.3362E-01,
- * 0.3472E-01, 0.3576E-01, 0.3689E-01, 0.3828E-01, 0.3996E-01,
- * 0.4184E-01, 0.4396E-01, 0.4639E-01, 0.4919E-01, 0.5242E-01,
- * 0.5607E-01, 0.6009E-01, 0.6449E-01, 0.6936E-01, 0.7485E-01,
- * 0.8116E-01, 0.8465E-01, 0.8836E-01, 0.9644E-01, 0.1056E+00,
- * 0.1162E+00, 0.1284E+00, 0.1423E+00, 0.1583E+00, 0.1767E+00,
- * 0.1976E+00, 0.2216E+00, 0.2497E+00, 0.2824E+00, 0.3202E+00,
- * 0.3643E+00, 0.4165E+00, 0.4782E+00, 0.5508E+00, 0.6374E+00,
- * 0.7413E+00, 0.8654E+00, 0.1014E+01, 0.1194E+01, 0.1414E+01,
- * 0.1684E+01, 0.2016E+01, 0.2428E+01, 0.2940E+01, 0.3581E+01,
- * 0.4386E+01, 0.5401E+01, 0.6688E+01, 0.8320E+01, 0.1039E+02,
- * 0.1299E+02, 0.1622E+02, 0.2016E+02, 0.2478E+02, 0.2983E+02,
- * 0.3464E+02, 0.3807E+02, 0.3899E+02 /
- DATA ((UHR(i,j),j=1,83),i= 9, 9)/
- *-0.1415E+00,-0.1356E+00,-0.1128E+00,-0.7940E-01,-0.4385E-01,
- *-0.1264E-01, 0.1078E-01, 0.2581E-01, 0.3391E-01, 0.3702E-01,
- * 0.3695E-01, 0.3532E-01, 0.3338E-01, 0.3176E-01, 0.3059E-01,
- * 0.2970E-01, 0.2902E-01, 0.2881E-01, 0.2907E-01, 0.2951E-01,
- * 0.2992E-01, 0.3035E-01, 0.3096E-01, 0.3179E-01, 0.3274E-01,
- * 0.3380E-01, 0.3498E-01, 0.3632E-01, 0.3788E-01, 0.3968E-01,
- * 0.4165E-01, 0.4372E-01, 0.4606E-01, 0.4885E-01, 0.5201E-01,
- * 0.5550E-01, 0.5942E-01, 0.6385E-01, 0.6886E-01, 0.7458E-01,
- * 0.8105E-01, 0.8454E-01, 0.8823E-01, 0.9634E-01, 0.1057E+00,
- * 0.1163E+00, 0.1284E+00, 0.1422E+00, 0.1581E+00, 0.1761E+00,
- * 0.1969E+00, 0.2213E+00, 0.2496E+00, 0.2822E+00, 0.3204E+00,
- * 0.3655E+00, 0.4184E+00, 0.4808E+00, 0.5550E+00, 0.6435E+00,
- * 0.7489E+00, 0.8752E+00, 0.1028E+01, 0.1214E+01, 0.1443E+01,
- * 0.1723E+01, 0.2068E+01, 0.2496E+01, 0.3027E+01, 0.3692E+01,
- * 0.4524E+01, 0.5570E+01, 0.6884E+01, 0.8530E+01, 0.1058E+02,
- * 0.1312E+02, 0.1621E+02, 0.1988E+02, 0.2405E+02, 0.2847E+02,
- * 0.3256E+02, 0.3540E+02, 0.3614E+02 /
- DATA ((UHR(i,j),j=1,83),i=10,10)/
- *-0.1337E+00,-0.1291E+00,-0.1110E+00,-0.8412E-01,-0.5464E-01,
- *-0.2736E-01,-0.5128E-02, 0.1067E-01, 0.2020E-01, 0.2497E-01,
- * 0.2688E-01, 0.2740E-01, 0.2725E-01, 0.2679E-01, 0.2633E-01,
- * 0.2608E-01, 0.2615E-01, 0.2647E-01, 0.2689E-01, 0.2739E-01,
- * 0.2801E-01, 0.2876E-01, 0.2966E-01, 0.3063E-01, 0.3161E-01,
- * 0.3272E-01, 0.3407E-01, 0.3558E-01, 0.3721E-01, 0.3899E-01,
- * 0.4098E-01, 0.4322E-01, 0.4572E-01, 0.4850E-01, 0.5159E-01,
- * 0.5508E-01, 0.5907E-01, 0.6360E-01, 0.6873E-01, 0.7452E-01,
- * 0.8102E-01, 0.8456E-01, 0.8833E-01, 0.9665E-01, 0.1061E+00,
- * 0.1168E+00, 0.1288E+00, 0.1426E+00, 0.1584E+00, 0.1766E+00,
- * 0.1977E+00, 0.2223E+00, 0.2507E+00, 0.2838E+00, 0.3228E+00,
- * 0.3686E+00, 0.4225E+00, 0.4862E+00, 0.5619E+00, 0.6521E+00,
- * 0.7601E+00, 0.8905E+00, 0.1049E+01, 0.1243E+01, 0.1479E+01,
- * 0.1770E+01, 0.2127E+01, 0.2571E+01, 0.3121E+01, 0.3808E+01,
- * 0.4664E+01, 0.5733E+01, 0.7062E+01, 0.8707E+01, 0.1073E+02,
- * 0.1319E+02, 0.1612E+02, 0.1952E+02, 0.2328E+02, 0.2714E+02,
- * 0.3059E+02, 0.3292E+02, 0.3352E+02 /
- DATA ((UHR(i,j),j=1,83),i=11,11)/
- *-0.1284E+00,-0.1246E+00,-0.1098E+00,-0.8708E-01,-0.6128E-01,
- *-0.3663E-01,-0.1602E-01,-0.6693E-03, 0.9705E-02, 0.1606E-01,
- * 0.1949E-01, 0.2112E-01, 0.2193E-01, 0.2246E-01, 0.2290E-01,
- * 0.2328E-01, 0.2365E-01, 0.2419E-01, 0.2493E-01, 0.2577E-01,
- * 0.2666E-01, 0.2756E-01, 0.2852E-01, 0.2956E-01, 0.3068E-01,
- * 0.3189E-01, 0.3322E-01, 0.3473E-01, 0.3646E-01, 0.3840E-01,
- * 0.4053E-01, 0.4283E-01, 0.4539E-01, 0.4833E-01, 0.5162E-01,
- * 0.5523E-01, 0.5925E-01, 0.6377E-01, 0.6888E-01, 0.7468E-01,
- * 0.8123E-01, 0.8480E-01, 0.8857E-01, 0.9687E-01, 0.1063E+00,
- * 0.1171E+00, 0.1294E+00, 0.1435E+00, 0.1596E+00, 0.1781E+00,
- * 0.1994E+00, 0.2243E+00, 0.2533E+00, 0.2871E+00, 0.3266E+00,
- * 0.3731E+00, 0.4279E+00, 0.4927E+00, 0.5699E+00, 0.6625E+00,
- * 0.7738E+00, 0.9083E+00, 0.1072E+01, 0.1271E+01, 0.1515E+01,
- * 0.1813E+01, 0.2181E+01, 0.2636E+01, 0.3202E+01, 0.3904E+01,
- * 0.4774E+01, 0.5852E+01, 0.7183E+01, 0.8817E+01, 0.1081E+02,
- * 0.1319E+02, 0.1598E+02, 0.1916E+02, 0.2262E+02, 0.2609E+02,
- * 0.2913E+02, 0.3115E+02, 0.3167E+02 /
- DATA ((UHR(i,j),j=1,83),i=12,12)/
- *-0.1253E+00,-0.1221E+00,-0.1093E+00,-0.8905E-01,-0.6548E-01,
- *-0.4236E-01,-0.2251E-01,-0.7273E-02, 0.3367E-02, 0.1027E-01,
- * 0.1454E-01, 0.1709E-01, 0.1863E-01, 0.1961E-01, 0.2037E-01,
- * 0.2115E-01, 0.2194E-01, 0.2271E-01, 0.2351E-01, 0.2441E-01,
- * 0.2544E-01, 0.2654E-01, 0.2766E-01, 0.2880E-01, 0.3001E-01,
- * 0.3133E-01, 0.3275E-01, 0.3432E-01, 0.3607E-01, 0.3801E-01,
- * 0.4016E-01, 0.4258E-01, 0.4526E-01, 0.4821E-01, 0.5150E-01,
- * 0.5519E-01, 0.5931E-01, 0.6391E-01, 0.6905E-01, 0.7481E-01,
- * 0.8135E-01, 0.8494E-01, 0.8878E-01, 0.9717E-01, 0.1067E+00,
- * 0.1175E+00, 0.1299E+00, 0.1441E+00, 0.1605E+00, 0.1793E+00,
- * 0.2010E+00, 0.2261E+00, 0.2554E+00, 0.2896E+00, 0.3297E+00,
- * 0.3767E+00, 0.4321E+00, 0.4979E+00, 0.5763E+00, 0.6704E+00,
- * 0.7839E+00, 0.9213E+00, 0.1088E+01, 0.1291E+01, 0.1538E+01,
- * 0.1842E+01, 0.2217E+01, 0.2680E+01, 0.3253E+01, 0.3963E+01,
- * 0.4840E+01, 0.5923E+01, 0.7253E+01, 0.8876E+01, 0.1084E+02,
- * 0.1317E+02, 0.1588E+02, 0.1893E+02, 0.2220E+02, 0.2543E+02,
- * 0.2824E+02, 0.3007E+02, 0.3054E+02 /
- DATA ((UHR(i,j),j=1,83),i=13,13)/
- *-0.1225E+00,-0.1200E+00,-0.1102E+00,-0.9449E-01,-0.7561E-01,
- *-0.5627E-01,-0.3862E-01,-0.2391E-01,-0.1248E-01,-0.4072E-02,
- * 0.1893E-02, 0.6110E-02, 0.9222E-02, 0.1167E-01, 0.1368E-01,
- * 0.1539E-01, 0.1690E-01, 0.1836E-01, 0.1980E-01, 0.2119E-01,
- * 0.2249E-01, 0.2380E-01, 0.2518E-01, 0.2665E-01, 0.2817E-01,
- * 0.2972E-01, 0.3133E-01, 0.3304E-01, 0.3493E-01, 0.3701E-01,
- * 0.3930E-01, 0.4180E-01, 0.4458E-01, 0.4769E-01, 0.5114E-01,
- * 0.5494E-01, 0.5917E-01, 0.6391E-01, 0.6922E-01, 0.7522E-01,
- * 0.8197E-01, 0.8565E-01, 0.8956E-01, 0.9817E-01, 0.1080E+00,
- * 0.1192E+00, 0.1320E+00, 0.1467E+00, 0.1637E+00, 0.1831E+00,
- * 0.2057E+00, 0.2319E+00, 0.2624E+00, 0.2980E+00, 0.3396E+00,
- * 0.3887E+00, 0.4469E+00, 0.5162E+00, 0.5991E+00, 0.6986E+00,
- * 0.8181E+00, 0.9622E+00, 0.1137E+01, 0.1349E+01, 0.1609E+01,
- * 0.1928E+01, 0.2319E+01, 0.2799E+01, 0.3390E+01, 0.4114E+01,
- * 0.5002E+01, 0.6085E+01, 0.7399E+01, 0.8978E+01, 0.1085E+02,
- * 0.1303E+02, 0.1551E+02, 0.1823E+02, 0.2106E+02, 0.2379E+02,
- * 0.2609E+02, 0.2756E+02, 0.2793E+02 /
- DATA ((UHR(i,j),j=1,83),i=14,14)/
- *-0.1200E+00,-0.1184E+00,-0.1117E+00,-0.1007E+00,-0.8670E-01,
- *-0.7146E-01,-0.5647E-01,-0.4287E-01,-0.3132E-01,-0.2191E-01,
- *-0.1438E-01,-0.8345E-02,-0.3461E-02, 0.5524E-03, 0.3912E-02,
- * 0.6786E-02, 0.9315E-02, 0.1161E-01, 0.1374E-01, 0.1573E-01,
- * 0.1761E-01, 0.1940E-01, 0.2116E-01, 0.2290E-01, 0.2468E-01,
- * 0.2653E-01, 0.2850E-01, 0.3059E-01, 0.3280E-01, 0.3514E-01,
- * 0.3764E-01, 0.4035E-01, 0.4334E-01, 0.4666E-01, 0.5035E-01,
- * 0.5445E-01, 0.5902E-01, 0.6414E-01, 0.6987E-01, 0.7631E-01,
- * 0.8355E-01, 0.8752E-01, 0.9173E-01, 0.1010E+00, 0.1116E+00,
- * 0.1236E+00, 0.1373E+00, 0.1530E+00, 0.1710E+00, 0.1918E+00,
- * 0.2159E+00, 0.2439E+00, 0.2767E+00, 0.3151E+00, 0.3604E+00,
- * 0.4140E+00, 0.4774E+00, 0.5526E+00, 0.6423E+00, 0.7496E+00,
- * 0.8784E+00, 0.1034E+01, 0.1222E+01, 0.1450E+01, 0.1727E+01,
- * 0.2064E+01, 0.2473E+01, 0.2971E+01, 0.3576E+01, 0.4310E+01,
- * 0.5196E+01, 0.6258E+01, 0.7522E+01, 0.9008E+01, 0.1073E+02,
- * 0.1268E+02, 0.1484E+02, 0.1714E+02, 0.1945E+02, 0.2160E+02,
- * 0.2335E+02, 0.2444E+02, 0.2471E+02 /
- DATA ((UHR(i,j),j=1,83),i=15,15)/
- *-0.1280E+00,-0.1274E+00,-0.1248E+00,-0.1202E+00,-0.1139E+00,
- *-0.1061E+00,-0.9731E-01,-0.8809E-01,-0.7884E-01,-0.6988E-01,
- *-0.6141E-01,-0.5355E-01,-0.4633E-01,-0.3973E-01,-0.3370E-01,
- *-0.2821E-01,-0.2319E-01,-0.1858E-01,-0.1432E-01,-0.1035E-01,
- *-0.6610E-02,-0.3050E-02, 0.3643E-03, 0.3671E-02, 0.6915E-02,
- * 0.1015E-01, 0.1342E-01, 0.1680E-01, 0.2031E-01, 0.2401E-01,
- * 0.2791E-01, 0.3206E-01, 0.3651E-01, 0.4133E-01, 0.4660E-01,
- * 0.5241E-01, 0.5887E-01, 0.6608E-01, 0.7416E-01, 0.8324E-01,
- * 0.9346E-01, 0.9906E-01, 0.1050E+00, 0.1181E+00, 0.1329E+00,
- * 0.1497E+00, 0.1689E+00, 0.1910E+00, 0.2164E+00, 0.2457E+00,
- * 0.2796E+00, 0.3190E+00, 0.3648E+00, 0.4182E+00, 0.4804E+00,
- * 0.5530E+00, 0.6381E+00, 0.7378E+00, 0.8549E+00, 0.9926E+00,
- * 0.1155E+01, 0.1346E+01, 0.1571E+01, 0.1835E+01, 0.2147E+01,
- * 0.2512E+01, 0.2940E+01, 0.3439E+01, 0.4020E+01, 0.4691E+01,
- * 0.5460E+01, 0.6334E+01, 0.7316E+01, 0.8403E+01, 0.9584E+01,
- * 0.1084E+02, 0.1213E+02, 0.1340E+02, 0.1460E+02, 0.1563E+02,
- * 0.1642E+02, 0.1689E+02, 0.1700E+02 /
- DATA ((UHR(i,j),j=1,83),i=16,16)/
- *-0.1420E+00,-0.1416E+00,-0.1399E+00,-0.1368E+00,-0.1325E+00,
- *-0.1270E+00,-0.1207E+00,-0.1137E+00,-0.1062E+00,-0.9867E-01,
- *-0.9113E-01,-0.8376E-01,-0.7664E-01,-0.6985E-01,-0.6339E-01,
- *-0.5728E-01,-0.5149E-01,-0.4602E-01,-0.4082E-01,-0.3587E-01,
- *-0.3112E-01,-0.2653E-01,-0.2207E-01,-0.1769E-01,-0.1333E-01,
- *-0.8958E-02,-0.4508E-02, 0.5975E-04, 0.4790E-02, 0.9731E-02,
- * 0.1494E-01, 0.2049E-01, 0.2646E-01, 0.3294E-01, 0.4003E-01,
- * 0.4783E-01, 0.5646E-01, 0.6605E-01, 0.7674E-01, 0.8870E-01,
- * 0.1021E+00, 0.1095E+00, 0.1173E+00, 0.1344E+00, 0.1537E+00,
- * 0.1757E+00, 0.2007E+00, 0.2293E+00, 0.2619E+00, 0.2992E+00,
- * 0.3420E+00, 0.3911E+00, 0.4476E+00, 0.5127E+00, 0.5877E+00,
- * 0.6742E+00, 0.7740E+00, 0.8892E+00, 0.1022E+01, 0.1175E+01,
- * 0.1352E+01, 0.1557E+01, 0.1792E+01, 0.2063E+01, 0.2373E+01,
- * 0.2729E+01, 0.3134E+01, 0.3594E+01, 0.4114E+01, 0.4697E+01,
- * 0.5346E+01, 0.6060E+01, 0.6837E+01, 0.7669E+01, 0.8544E+01,
- * 0.9442E+01, 0.1034E+02, 0.1119E+02, 0.1197E+02, 0.1262E+02,
- * 0.1311E+02, 0.1340E+02, 0.1346E+02 /
- DATA ((UHR(i,j),j=1,83),i=17,17)/
- *-0.1485E+00,-0.1482E+00,-0.1467E+00,-0.1440E+00,-0.1402E+00,
- *-0.1353E+00,-0.1296E+00,-0.1232E+00,-0.1164E+00,-0.1093E+00,
- *-0.1022E+00,-0.9513E-01,-0.8821E-01,-0.8152E-01,-0.7508E-01,
- *-0.6891E-01,-0.6302E-01,-0.5738E-01,-0.5197E-01,-0.4678E-01,
- *-0.4175E-01,-0.3685E-01,-0.3205E-01,-0.2731E-01,-0.2258E-01,
- *-0.1781E-01,-0.1296E-01,-0.7946E-02,-0.2730E-02, 0.2748E-02,
- * 0.8549E-02, 0.1474E-01, 0.2139E-01, 0.2859E-01, 0.3646E-01,
- * 0.4510E-01, 0.5467E-01, 0.6530E-01, 0.7716E-01, 0.9044E-01,
- * 0.1053E+00, 0.1135E+00, 0.1221E+00, 0.1409E+00, 0.1622E+00,
- * 0.1863E+00, 0.2136E+00, 0.2446E+00, 0.2799E+00, 0.3202E+00,
- * 0.3663E+00, 0.4190E+00, 0.4793E+00, 0.5485E+00, 0.6277E+00,
- * 0.7186E+00, 0.8229E+00, 0.9424E+00, 0.1080E+01, 0.1237E+01,
- * 0.1417E+01, 0.1623E+01, 0.1859E+01, 0.2128E+01, 0.2435E+01,
- * 0.2782E+01, 0.3175E+01, 0.3616E+01, 0.4110E+01, 0.4659E+01,
- * 0.5264E+01, 0.5923E+01, 0.6632E+01, 0.7384E+01, 0.8166E+01,
- * 0.8960E+01, 0.9743E+01, 0.1049E+02, 0.1115E+02, 0.1171E+02,
- * 0.1213E+02, 0.1237E+02, 0.1242E+02 /
- DATA ((UHR(i,j),j=1,83),i=18,18)/
- *-0.1709E+00,-0.1707E+00,-0.1695E+00,-0.1675E+00,-0.1645E+00,
- *-0.1608E+00,-0.1563E+00,-0.1512E+00,-0.1457E+00,-0.1397E+00,
- *-0.1336E+00,-0.1273E+00,-0.1210E+00,-0.1147E+00,-0.1084E+00,
- *-0.1023E+00,-0.9627E-01,-0.9034E-01,-0.8453E-01,-0.7880E-01,
- *-0.7314E-01,-0.6751E-01,-0.6189E-01,-0.5623E-01,-0.5048E-01,
- *-0.4461E-01,-0.3855E-01,-0.3226E-01,-0.2567E-01,-0.1872E-01,
- *-0.1132E-01,-0.3382E-02, 0.5188E-02, 0.1450E-01, 0.2466E-01,
- * 0.3581E-01, 0.4809E-01, 0.6166E-01, 0.7669E-01, 0.9342E-01,
- * 0.1121E+00, 0.1222E+00, 0.1329E+00, 0.1563E+00, 0.1826E+00,
- * 0.2122E+00, 0.2455E+00, 0.2831E+00, 0.3255E+00, 0.3733E+00,
- * 0.4273E+00, 0.4884E+00, 0.5574E+00, 0.6355E+00, 0.7238E+00,
- * 0.8237E+00, 0.9366E+00, 0.1064E+01, 0.1208E+01, 0.1371E+01,
- * 0.1553E+01, 0.1759E+01, 0.1990E+01, 0.2248E+01, 0.2537E+01,
- * 0.2857E+01, 0.3212E+01, 0.3603E+01, 0.4031E+01, 0.4496E+01,
- * 0.4996E+01, 0.5530E+01, 0.6091E+01, 0.6672E+01, 0.7262E+01,
- * 0.7849E+01, 0.8415E+01, 0.8941E+01, 0.9406E+01, 0.9788E+01,
- * 0.1007E+02, 0.1023E+02, 0.1027E+02 /
- DATA ((UHR(i,j),j=1,83),i=19,19)/
- *-0.1989E+00,-0.1987E+00,-0.1977E+00,-0.1961E+00,-0.1937E+00,
- *-0.1907E+00,-0.1870E+00,-0.1828E+00,-0.1781E+00,-0.1730E+00,
- *-0.1676E+00,-0.1620E+00,-0.1563E+00,-0.1504E+00,-0.1444E+00,
- *-0.1385E+00,-0.1324E+00,-0.1264E+00,-0.1204E+00,-0.1143E+00,
- *-0.1081E+00,-0.1019E+00,-0.9558E-01,-0.8910E-01,-0.8243E-01,
- *-0.7552E-01,-0.6831E-01,-0.6073E-01,-0.5272E-01,-0.4419E-01,
- *-0.3507E-01,-0.2525E-01,-0.1464E-01,-0.3121E-02, 0.9448E-02,
- * 0.2321E-01, 0.3833E-01, 0.5501E-01, 0.7343E-01, 0.9383E-01,
- * 0.1165E+00, 0.1287E+00, 0.1416E+00, 0.1696E+00, 0.2008E+00,
- * 0.2355E+00, 0.2742E+00, 0.3175E+00, 0.3658E+00, 0.4199E+00,
- * 0.4803E+00, 0.5479E+00, 0.6235E+00, 0.7079E+00, 0.8023E+00,
- * 0.9077E+00, 0.1025E+01, 0.1156E+01, 0.1302E+01, 0.1465E+01,
- * 0.1645E+01, 0.1844E+01, 0.2065E+01, 0.2307E+01, 0.2574E+01,
- * 0.2865E+01, 0.3181E+01, 0.3524E+01, 0.3892E+01, 0.4285E+01,
- * 0.4700E+01, 0.5135E+01, 0.5583E+01, 0.6040E+01, 0.6495E+01,
- * 0.6940E+01, 0.7362E+01, 0.7749E+01, 0.8085E+01, 0.8359E+01,
- * 0.8557E+01, 0.8671E+01, 0.8698E+01 /
- DATA ((UHR(i,j),j=1,83),i=20,20)/
- *-0.4039E+00,-0.4037E+00,-0.4031E+00,-0.4020E+00,-0.4004E+00,
- *-0.3983E+00,-0.3957E+00,-0.3926E+00,-0.3891E+00,-0.3851E+00,
- *-0.3806E+00,-0.3757E+00,-0.3703E+00,-0.3645E+00,-0.3582E+00,
- *-0.3514E+00,-0.3442E+00,-0.3364E+00,-0.3282E+00,-0.3194E+00,
- *-0.3100E+00,-0.3000E+00,-0.2894E+00,-0.2780E+00,-0.2659E+00,
- *-0.2530E+00,-0.2391E+00,-0.2243E+00,-0.2084E+00,-0.1914E+00,
- *-0.1732E+00,-0.1536E+00,-0.1325E+00,-0.1098E+00,-0.8535E-01,
- *-0.5904E-01,-0.3069E-01,-0.1341E-03, 0.3282E-01, 0.6835E-01,
- * 0.1067E+00, 0.1269E+00, 0.1480E+00, 0.1925E+00, 0.2405E+00,
- * 0.2923E+00, 0.3480E+00, 0.4080E+00, 0.4725E+00, 0.5419E+00,
- * 0.6164E+00, 0.6963E+00, 0.7820E+00, 0.8737E+00, 0.9717E+00,
- * 0.1076E+01, 0.1188E+01, 0.1306E+01, 0.1432E+01, 0.1565E+01,
- * 0.1705E+01, 0.1852E+01, 0.2007E+01, 0.2169E+01, 0.2337E+01,
- * 0.2511E+01, 0.2690E+01, 0.2873E+01, 0.3060E+01, 0.3248E+01,
- * 0.3436E+01, 0.3622E+01, 0.3805E+01, 0.3980E+01, 0.4147E+01,
- * 0.4303E+01, 0.4443E+01, 0.4567E+01, 0.4671E+01, 0.4753E+01,
- * 0.4811E+01, 0.4844E+01, 0.4852E+01 /
-
-
-
- do 1 i=1,20
- asy(1,i)=asy_m(i)
- ex(1,i)=ex_m(i)
- sc(1,i)=sc_m(i)
- do 1 j=1,nquad
- ph(i,j)=phr(i,j)
- qh(i,j)=qhr(i,j)
- uh(i,j)=uhr(i,j)
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/STM.h b/Modules/ThirdParty/6S/src/6SV1.0B/STM.h
deleted file mode 100644
index 2e9dfff..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/STM.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_stm_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.P b/Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.P
deleted file mode 100644
index 09495e3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int subsum_();
-/* comlen sixs_atm__ 1360 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.c b/Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.c
deleted file mode 100644
index 9f3433b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.c
+++ /dev/null
@@ -1,82 +0,0 @@
-/* SUBSUM.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#define sixs_atm__1 sixs_atm__
-
-/*< subroutine subsum >*/
-/* Subroutine */ int subsum_()
-{
- /* Initialized data */
-
- static doublereal z4[34] = { 0.,1.,2.,3.,4.,5.,6.,7.,8.,9.,10.,11.,12.,
- 13.,14.,15.,16.,17.,18.,19.,20.,21.,22.,23.,24.,25.,30.,35.,40.,
- 45.,50.,70.,100.,99999. };
- static doublereal p4[34] = { 1010.,896.,792.9,700.,616.,541.,473.,413.,
- 359.,310.7,267.7,230.,197.7,170.,146.,125.,108.,92.8,79.8,68.6,
- 58.9,50.7,43.6,37.5,32.27,27.8,13.4,6.61,3.4,1.81,.987,.0707,3e-4,
- 0. };
- static doublereal t4[34] = { 287.,282.,276.,271.,266.,260.,253.,246.,239.,
- 232.,225.,225.,225.,225.,225.,225.,225.,225.,225.,225.,225.,225.,
- 225.,225.,226.,228.,235.,247.,262.,274.,277.,216.,210.,210. };
- static doublereal wh4[34] = { 9.1,6.,4.2,2.7,1.7,1.,.54,.29,.13,.042,.015,
- .0094,.006,.0018,.001,7.6e-4,6.4e-4,5.6e-4,5e-4,4.9e-4,4.5e-4,
- 5.1e-4,5.1e-4,5.4e-4,6e-4,6.7e-4,3.6e-4,1.1e-4,4.3e-5,1.9e-5,
- 6.3e-6,1.4e-7,1e-9,0. };
- static doublereal wo4[34] = { 4.9e-5,5.4e-5,5.6e-5,5.8e-5,6e-5,6.4e-5,
- 7.1e-5,7.5e-5,7.9e-5,1.1e-4,1.3e-4,1.8e-4,2.1e-4,2.6e-4,2.8e-4,
- 3.2e-4,3.4e-4,3.9e-4,4.1e-4,4.1e-4,3.9e-4,3.6e-4,3.2e-4,3e-4,
- 2.8e-4,2.6e-4,1.4e-4,9.2e-5,4.1e-5,1.3e-5,4.3e-6,8.6e-8,4.3e-11,
- 0. };
-
- integer i__;
-
-/*< integer i >*/
-/*< real z4(34),p4(34),t4(34),wh4(34),wo4(34) >*/
-/*< real z,p,t,wh,wo >*/
-/*< common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34) >*/
-
-/* model: subarctique summer mc clatchey */
-
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< do 1 i=1,34 >*/
- for (i__ = 1; i__ <= 34; ++i__) {
-/*< z(i)=z4(i) >*/
- sixs_atm__1.z__[i__ - 1] = z4[i__ - 1];
-/*< p(i)=p4(i) >*/
- sixs_atm__1.p[i__ - 1] = p4[i__ - 1];
-/*< t(i)=t4(i) >*/
- sixs_atm__1.t[i__ - 1] = t4[i__ - 1];
-/*< wh(i)=wh4(i) >*/
- sixs_atm__1.wh[i__ - 1] = wh4[i__ - 1];
-/*< wo(i)=wo4(i) >*/
- sixs_atm__1.wo[i__ - 1] = wo4[i__ - 1];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* subsum_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.f b/Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.f
deleted file mode 100644
index 3fce3aa..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.f
+++ /dev/null
@@ -1,50 +0,0 @@
- subroutine subsum
- integer i
- real z4(34),p4(34),t4(34),wh4(34),wo4(34)
- real z,p,t,wh,wo
- common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34)
-c
-c model: subarctique summer mc clatchey
-c
- data(z4(i),i=1, 34)/
- 1 0., 1., 2., 3., 4., 5., 6., 7., 8.,
- 2 9., 10., 11., 12., 13., 14., 15., 16., 17.,
- 3 18., 19., 20., 21., 22., 23., 24., 25., 30.,
- 4 35., 40., 45., 50., 70., 100.,99999./
- data (p4(i),i=1,34) /
- a1.010e+03,8.960e+02,7.929e+02,7.000e+02,6.160e+02,5.410e+02,
- a4.730e+02,4.130e+02,3.590e+02,3.107e+02,2.677e+02,2.300e+02,
- a1.977e+02,1.700e+02,1.460e+02,1.250e+02,1.080e+02,9.280e+01,
- a7.980e+01,6.860e+01,5.890e+01,5.070e+01,4.360e+01,3.750e+01,
- a3.227e+01,2.780e+01,1.340e+01,6.610e+00,3.400e+00,1.810e+00,
- a9.870e-01,7.070e-02,3.000e-04,0.000e+00/
- data (t4(i),i=1,34) /
- a2.870e+02,2.820e+02,2.760e+02,2.710e+02,2.660e+02,2.600e+02,
- a2.530e+02,2.460e+02,2.390e+02,2.320e+02,2.250e+02,2.250e+02,
- a2.250e+02,2.250e+02,2.250e+02,2.250e+02,2.250e+02,2.250e+02,
- a2.250e+02,2.250e+02,2.250e+02,2.250e+02,2.250e+02,2.250e+02,
- a2.260e+02,2.280e+02,2.350e+02,2.470e+02,2.620e+02,2.740e+02,
- a2.770e+02,2.160e+02,2.100e+02,2.100e+02/
- data (wh4(i),i=1,34) /
- a9.100e+00,6.000e+00,4.200e+00,2.700e+00,1.700e+00,1.000e+00,
- a5.400e-01,2.900e-01,1.300e-01,4.200e-02,1.500e-02,9.400e-03,
- a6.000e-03,1.800e-03,1.000e-03,7.600e-04,6.400e-04,5.600e-04,
- a5.000e-04,4.900e-04,4.500e-04,5.100e-04,5.100e-04,5.400e-04,
- a6.000e-04,6.700e-04,3.600e-04,1.100e-04,4.300e-05,1.900e-05,
- a6.300e-06,1.400e-07,1.000e-09,0.000e+00/
- data (wo4(i),i=1,34) /
- a4.900e-05,5.400e-05,5.600e-05,5.800e-05,6.000e-05,6.400e-05,
- a7.100e-05,7.500e-05,7.900e-05,1.100e-04,1.300e-04,1.800e-04,
- a2.100e-04,2.600e-04,2.800e-04,3.200e-04,3.400e-04,3.900e-04,
- a4.100e-04,4.100e-04,3.900e-04,3.600e-04,3.200e-04,3.000e-04,
- a2.800e-04,2.600e-04,1.400e-04,9.200e-05,4.100e-05,1.300e-05,
- a4.300e-06,8.600e-08,4.300e-11,0.000e+00/
- do 1 i=1,34
- z(i)=z4(i)
- p(i)=p4(i)
- t(i)=t4(i)
- wh(i)=wh4(i)
- wo(i)=wo4(i)
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.h b/Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.h
deleted file mode 100644
index c29ab83..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SUBSUM.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_subsum_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.P b/Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.P
deleted file mode 100644
index 0d098be..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int subwin_();
-/* comlen sixs_atm__ 1360 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.c b/Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.c
deleted file mode 100644
index de12a07..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.c
+++ /dev/null
@@ -1,83 +0,0 @@
-/* SUBWIN.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#define sixs_atm__1 sixs_atm__
-
-/*< subroutine subwin >*/
-/* Subroutine */ int subwin_()
-{
- /* Initialized data */
-
- static doublereal z5[34] = { 0.,1.,2.,3.,4.,5.,6.,7.,8.,9.,10.,11.,12.,
- 13.,14.,15.,16.,17.,18.,19.,20.,21.,22.,23.,24.,25.,30.,35.,40.,
- 45.,50.,70.,100.,99999. };
- static doublereal p5[34] = { 1013.,887.8,777.5,679.8,593.2,515.8,446.7,
- 385.3,330.8,282.9,241.8,206.7,176.6,151.,129.1,110.3,94.31,80.58,
- 68.82,58.75,50.14,42.77,36.47,31.09,26.49,22.56,10.2,4.701,2.243,
- 1.113,.5719,.04016,3e-4,0. };
- static doublereal t5[34] = { 257.1,259.1,255.9,252.7,247.7,240.9,234.1,
- 227.3,220.6,217.2,217.2,217.2,217.2,217.2,217.2,217.2,216.6,216.,
- 215.4,214.8,214.1,213.6,213.,212.4,211.8,211.2,216.,222.2,234.7,
- 247.,259.3,245.7,210.,210. };
- static doublereal wh5[34] = { 1.2,1.2,.94,.68,.41,.2,.098,.054,.011,.0084,
- .0055,.0038,.0026,.0018,.001,7.6e-4,6.4e-4,5.6e-4,5e-4,4.9e-4,
- 4.5e-4,5.1e-4,5.1e-4,5.4e-4,6e-4,6.7e-4,3.6e-4,1.1e-4,4.3e-5,
- 1.9e-5,6.3e-6,1.4e-7,1e-9,0. };
- static doublereal wo5[34] = { 4.1e-5,4.1e-5,4.1e-5,4.3e-5,4.5e-5,4.7e-5,
- 4.9e-5,7.1e-5,9e-5,1.6e-4,2.4e-4,3.2e-4,4.3e-4,4.7e-4,4.9e-4,
- 5.6e-4,6.2e-4,6.2e-4,6.2e-4,6e-4,5.6e-4,5.1e-4,4.7e-4,4.3e-4,
- 3.6e-4,3.2e-4,1.5e-4,9.2e-5,4.1e-5,1.3e-5,4.3e-6,8.6e-8,4.3e-11,
- 0. };
-
- integer i__;
-
-/*< real z5(34),p5(34),t5(34),wh5(34),wo5(34) >*/
-/*< real z,p,t,wh,wo >*/
-/*< common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34) >*/
-/*< integer i >*/
-
-/* model: subarctique winter mc clatchey */
-
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< do 1 i=1,34 >*/
- for (i__ = 1; i__ <= 34; ++i__) {
-/*< z(i)=z5(i) >*/
- sixs_atm__1.z__[i__ - 1] = z5[i__ - 1];
-/*< p(i)=p5(i) >*/
- sixs_atm__1.p[i__ - 1] = p5[i__ - 1];
-/*< t(i)=t5(i) >*/
- sixs_atm__1.t[i__ - 1] = t5[i__ - 1];
-/*< wh(i)=wh5(i) >*/
- sixs_atm__1.wh[i__ - 1] = wh5[i__ - 1];
-/*< wo(i)=wo5(i) >*/
- sixs_atm__1.wo[i__ - 1] = wo5[i__ - 1];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* subwin_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.f b/Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.f
deleted file mode 100644
index d7a7cd3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.f
+++ /dev/null
@@ -1,51 +0,0 @@
- subroutine subwin
-
- real z5(34),p5(34),t5(34),wh5(34),wo5(34)
- real z,p,t,wh,wo
- common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34)
- integer i
-c
-c model: subarctique winter mc clatchey
-c
- data(z5(i),i=1, 34)/
- 1 0., 1., 2., 3., 4., 5., 6., 7., 8.,
- 2 9., 10., 11., 12., 13., 14., 15., 16., 17.,
- 3 18., 19., 20., 21., 22., 23., 24., 25., 30.,
- 4 35., 40., 45., 50., 70., 100.,99999./
- data (p5(i),i=1,34) /
- a1.013e+03,8.878e+02,7.775e+02,6.798e+02,5.932e+02,5.158e+02,
- a4.467e+02,3.853e+02,3.308e+02,2.829e+02,2.418e+02,2.067e+02,
- a1.766e+02,1.510e+02,1.291e+02,1.103e+02,9.431e+01,8.058e+01,
- a6.882e+01,5.875e+01,5.014e+01,4.277e+01,3.647e+01,3.109e+01,
- a2.649e+01,2.256e+01,1.020e+01,4.701e+00,2.243e+00,1.113e+00,
- a5.719e-01,4.016e-02,3.000e-04,0.000e+00/
- data (t5(i),i=1,34) /
- a2.571e+02,2.591e+02,2.559e+02,2.527e+02,2.477e+02,2.409e+02,
- a2.341e+02,2.273e+02,2.206e+02,2.172e+02,2.172e+02,2.172e+02,
- a2.172e+02,2.172e+02,2.172e+02,2.172e+02,2.166e+02,2.160e+02,
- a2.154e+02,2.148e+02,2.141e+02,2.136e+02,2.130e+02,2.124e+02,
- a2.118e+02,2.112e+02,2.160e+02,2.222e+02,2.347e+02,2.470e+02,
- a2.593e+02,2.457e+02,2.100e+02,2.100e+02/
- data (wh5(i),i=1,34) /
- a1.200e+00,1.200e+00,9.400e-01,6.800e-01,4.100e-01,2.000e-01,
- a9.800e-02,5.400e-02,1.100e-02,8.400e-03,5.500e-03,3.800e-03,
- a2.600e-03,1.800e-03,1.000e-03,7.600e-04,6.400e-04,5.600e-04,
- a5.000e-04,4.900e-04,4.500e-04,5.100e-04,5.100e-04,5.400e-04,
- a6.000e-04,6.700e-04,3.600e-04,1.100e-04,4.300e-05,1.900e-05,
- a6.300e-06,1.400e-07,1.000e-09,0.000e+00/
- data (wo5(i),i=1,34) /
- a4.100e-05,4.100e-05,4.100e-05,4.300e-05,4.500e-05,4.700e-05,
- a4.900e-05,7.100e-05,9.000e-05,1.600e-04,2.400e-04,3.200e-04,
- a4.300e-04,4.700e-04,4.900e-04,5.600e-04,6.200e-04,6.200e-04,
- a6.200e-04,6.000e-04,5.600e-04,5.100e-04,4.700e-04,4.300e-04,
- a3.600e-04,3.200e-04,1.500e-04,9.200e-05,4.100e-05,1.300e-05,
- a4.300e-06,8.600e-08,4.300e-11,0.000e+00/
- do 1 i=1,34
- z(i)=z5(i)
- p(i)=p5(i)
- t(i)=t5(i)
- wh(i)=wh5(i)
- wo(i)=wo5(i)
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.h b/Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.h
deleted file mode 100644
index 2e6ddce..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/SUBWIN.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_subwin_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/TM.P b/Modules/ThirdParty/6S/src/6SV1.0B/TM.P
deleted file mode 100644
index a41c396..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/TM.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int tm_(integer *iwa);
-/* comlen sixs_ffu__ 12024 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/TM.c b/Modules/ThirdParty/6S/src/6SV1.0B/TM.c
deleted file mode 100644
index bc60ae9..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/TM.c
+++ /dev/null
@@ -1,531 +0,0 @@
-/* TM.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*< subroutine tm(iwa) >*/
-/* Subroutine */ int tm_(integer *iwa)
-{
- /* Initialized data */
-
- static doublereal sr[9006] /* was [6][1501] */ = { 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 0.,0.,0.,0.,0.,0.,0.,.003,0.,0.,0.,0.,0.,.0085,0.,0.,0.,0.,0.,
- .014,0.,0.,0.,0.,0.,.0255,0.,0.,0.,0.,0.,.037,0.,0.,0.,0.,0.,.05,
- 0.,0.,0.,0.,0.,.063,0.,0.,0.,0.,0.,.201,0.,0.,0.,0.,0.,.339,0.,0.,
- 0.,0.,0.,.503,0.,0.,0.,0.,0.,.667,0.,0.,0.,0.,0.,.6935,0.,0.,0.,
- 0.,0.,.72,0.,0.,0.,0.,0.,.7525,0.,0.,0.,0.,0.,.785,0.,0.,0.,0.,0.,
- .803,0.,0.,0.,0.,0.,.821,0.,0.,0.,0.,0.,.837,0.,0.,0.,0.,0.,.853,
- 0.,0.,0.,0.,0.,.878,0.,0.,0.,0.,0.,.903,0.,0.,0.,0.,0.,.9135,0.,
- 0.,0.,0.,0.,.924,0.,0.,0.,0.,0.,.9355,0.,0.,0.,0.,0.,.947,0.,0.,
- 0.,0.,0.,.9625,0.,0.,0.,0.,0.,.978,0.,0.,0.,0.,0.,.9835,0.,0.,0.,
- 0.,0.,.989,.001,0.,0.,0.,0.,.986,.0055,0.,0.,0.,0.,.983,.01,0.,0.,
- 0.,0.,.906,.0165,0.,0.,0.,0.,.829,.023,0.,0.,0.,0.,.7815,.0305,0.,
- 0.,0.,0.,.734,.038,0.,0.,0.,0.,.5265,.101,0.,0.,0.,0.,.319,.164,
- 0.,0.,0.,0.,.1995,.271,0.,0.,0.,0.,.08,.378,0.,0.,0.,0.,.063,.475,
- 0.,0.,0.,0.,.046,.572,0.,0.,0.,0.,.038,.615,0.,0.,0.,0.,.03,.658,
- 0.,0.,0.,0.,.023,.6945,0.,0.,0.,0.,.016,.731,0.,0.,0.,0.,.012,
- .7575,0.,0.,0.,0.,.008,.784,0.,0.,0.,0.,.0065,.8105,0.,0.,0.,0.,
- .005,.837,0.,0.,0.,0.,.0045,.851,0.,0.,0.,0.,.004,.865,0.,0.,0.,
- 0.,.0035,.877,0.,0.,0.,0.,.003,.889,0.,0.,0.,0.,0.,.8965,0.,0.,0.,
- 0.,0.,.904,0.,0.,0.,0.,0.,.9055,0.,0.,0.,0.,0.,.907,0.,0.,0.,0.,
- 0.,.907,0.,0.,0.,0.,0.,.907,0.,0.,0.,0.,0.,.9095,0.,0.,0.,0.,0.,
- .912,.002,0.,0.,0.,0.,.931,.002,0.,0.,0.,0.,.95,.002,0.,0.,0.,0.,
- .9685,.002,0.,0.,0.,0.,.987,.002,0.,0.,0.,0.,.9951,.003,0.,0.,0.,
- 0.,.998,.004,0.,0.,0.,0.,.9705,.006,0.,0.,0.,0.,.943,.008,0.,0.,
- 0.,0.,.8655,.014,0.,0.,0.,0.,.788,.02,0.,0.,0.,0.,.625,.029,0.,0.,
- 0.,0.,.462,.038,0.,0.,0.,0.,.333,.073,0.,0.,0.,0.,.204,.108,0.,0.,
- 0.,0.,.1505,.202,0.,0.,0.,0.,.097,.296,0.,0.,0.,0.,.0745,.384,0.,
- 0.,0.,0.,.052,.472,0.,0.,0.,0.,.044,.5245,0.,0.,0.,0.,.036,.577,
- 0.,0.,0.,0.,.0285,.6625,0.,0.,0.,0.,.021,.748,0.,0.,0.,0.,.0165,
- .783,0.,0.,0.,0.,.012,.818,0.,0.,0.,0.,.009,.843,0.,0.,0.,0.,.006,
- .868,0.,0.,0.,0.,.003,.8845,0.,0.,0.,0.,0.,.901,0.,0.,0.,0.,0.,
- .903,0.,0.,0.,0.,0.,.905,0.,0.,0.,0.,0.,.9055,0.,0.,0.,0.,0.,.906,
- 0.,0.,0.,0.,0.,.92,0.,0.,0.,0.,0.,.934,0.,0.,0.,0.,0.,.952,0.,0.,
- 0.,0.,0.,.97,0.,0.,0.,0.,0.,.9815,0.,0.,0.,0.,0.,.993,0.,0.,0.,0.,
- 0.,1.,0.,0.,0.,0.,0.,.998,0.,0.,0.,0.,0.,.977,0.,0.,0.,0.,0.,.956,
- 0.,0.,0.,0.,0.,.8715,0.,0.,0.,0.,0.,.787,0.,0.,0.,0.,0.,.5775,0.,
- 0.,0.,0.,0.,.368,0.,0.,0.,0.,0.,.2435,0.,0.,0.,0.,0.,.119,0.,0.,
- 0.,0.,0.,.092,0.,0.,0.,0.,0.,.065,0.,0.,0.,0.,0.,.0555,0.,0.,0.,
- 0.,0.,.046,0.,0.,0.,0.,0.,.0385,0.,0.,0.,0.,0.,.031,0.,0.,0.,0.,
- 0.,.0255,0.,0.,0.,0.,0.,.02,0.,0.,0.,0.,0.,.016,0.,0.,0.,0.,0.,
- .012,0.,0.,0.,0.,0.,.009,0.,0.,0.,0.,0.,.006,.002,0.,0.,0.,0.,
- .0055,.0035,0.,0.,0.,0.,.005,.005,0.,0.,0.,0.,.004,.006,0.,0.,0.,
- 0.,.003,.007,0.,0.,0.,0.,0.,.008,0.,0.,0.,0.,0.,.009,0.,0.,0.,0.,
- 0.,.014,0.,0.,0.,0.,0.,.019,0.,0.,0.,0.,0.,.026,0.,0.,0.,0.,0.,
- .033,0.,0.,0.,0.,0.,.052,0.,0.,0.,0.,0.,.071,0.,0.,0.,0.,0.,.1035,
- 0.,0.,0.,0.,0.,.136,0.,0.,0.,0.,0.,.2055,0.,0.,0.,0.,0.,.275,0.,
- 0.,0.,0.,0.,.3615,0.,0.,0.,0.,0.,.448,0.,0.,0.,0.,0.,.5505,0.,0.,
- 0.,0.,0.,.653,0.,0.,0.,0.,0.,.741,0.,0.,0.,0.,0.,.829,0.,0.,0.,0.,
- 0.,.8795,0.,0.,0.,0.,0.,.93,0.,0.,0.,0.,0.,.952,0.,0.,0.,0.,0.,
- .974,0.,0.,0.,0.,0.,.987,0.,0.,0.,0.,0.,1.,0.,0.,0.,0.,0.,.9955,
- 0.,0.,0.,0.,0.,.991,0.,0.,0.,0.,0.,.9855,0.,0.,0.,0.,0.,.98,0.,0.,
- 0.,0.,0.,.9685,0.,0.,0.,0.,0.,.957,0.,0.,0.,0.,0.,.9465,0.,0.,0.,
- 0.,0.,.936,0.,0.,0.,0.,0.,.926,0.,0.,0.,0.,0.,.916,0.,0.,0.,0.,0.,
- .9165,0.,0.,0.,0.,0.,.917,0.,0.,0.,0.,0.,.918,0.,0.,0.,0.,0.,.919,
- 0.,0.,0.,0.,0.,.9195,0.,0.,0.,0.,0.,.92,0.,0.,0.,0.,0.,.9215,0.,
- 0.,0.,0.,0.,.923,0.,0.,0.,0.,0.,.924,0.,0.,0.,0.,0.,.925,0.,0.,0.,
- 0.,0.,.916,0.,0.,0.,0.,0.,.907,0.,0.,0.,0.,0.,.8965,0.,0.,0.,0.,
- 0.,.886,0.,0.,0.,0.,0.,.8835,0.,0.,0.,0.,0.,.881,0.,0.,0.,0.,0.,
- .8825,0.,0.,0.,0.,0.,.884,0.,0.,0.,0.,0.,.8825,0.,0.,0.,0.,0.,
- .881,0.,0.,0.,0.,0.,.8705,0.,0.,0.,0.,0.,.86,0.,0.,0.,0.,0.,.841,
- 0.,0.,0.,0.,0.,.822,0.,0.,0.,0.,0.,.803,0.,0.,0.,0.,0.,.784,0.,0.,
- 0.,0.,0.,.7715,0.,0.,0.,0.,0.,.759,0.,0.,0.,0.,0.,.737,0.,0.,0.,
- 0.,0.,.715,0.,0.,0.,0.,0.,.5905,0.,0.,0.,0.,0.,.466,0.,0.,0.,0.,
- 0.,.3385,0.,0.,0.,0.,0.,.211,0.,0.,0.,0.,0.,.144,0.,0.,0.,0.,0.,
- .077,0.,0.,0.,0.,0.,.054,0.,0.,0.,0.,0.,.031,0.,0.,0.,0.,0.,.023,
- 0.,0.,0.,0.,0.,.015,0.,0.,0.,0.,0.,.0115,0.,0.,0.,0.,0.,.008,0.,
- 0.,0.,0.,0.,.007,0.,0.,0.,0.,0.,.006,0.,0.,0.,0.,0.,.005,0.,0.,0.,
- 0.,0.,.004,0.,0.,0.,0.,0.,.003,0.,0.,0.,0.,0.,.002,0.,0.,0.,0.,0.,
- .001,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,3e-4,
- 0.,0.,0.,0.,0.,7e-4,0.,0.,0.,0.,0.,.001,0.,0.,0.,0.,0.,.0013,0.,
- 0.,0.,0.,0.,.0015,0.,0.,0.,0.,0.,.0018,0.,0.,0.,0.,0.,.002,0.,0.,
- 0.,0.,0.,.0038,0.,0.,0.,0.,0.,.0055,0.,0.,0.,0.,0.,.0073,0.,0.,0.,
- 0.,0.,.009,0.,0.,0.,0.,0.,.0123,0.,0.,0.,0.,0.,.0155,0.,0.,0.,0.,
- 0.,.0188,0.,0.,0.,0.,0.,.022,0.,0.,0.,0.,0.,.0393,0.,0.,0.,0.,0.,
- .0565,0.,0.,0.,0.,0.,.0738,0.,0.,0.,0.,0.,.091,0.,0.,0.,0.,0.,
- .141,0.,0.,0.,0.,0.,.191,0.,0.,0.,0.,0.,.241,0.,0.,0.,0.,0.,.291,
- 0.,0.,0.,0.,0.,.3617,0.,0.,0.,0.,0.,.4325,0.,0.,0.,0.,0.,.5032,0.,
- 0.,0.,0.,0.,.574,0.,0.,0.,0.,0.,.6383,0.,0.,0.,0.,0.,.7025,0.,0.,
- 0.,0.,0.,.7668,0.,0.,0.,0.,0.,.831,0.,0.,0.,0.,0.,.8622,0.,0.,0.,
- 0.,0.,.8935,0.,0.,0.,0.,0.,.9248,0.,0.,0.,0.,0.,.956,0.,0.,0.,0.,
- 0.,.9522,0.,0.,0.,0.,0.,.9485,0.,0.,0.,0.,0.,.9447,0.,0.,0.,0.,0.,
- .941,0.,0.,0.,0.,0.,.9417,0.,0.,0.,0.,0.,.9425,0.,0.,0.,0.,0.,
- .9433,0.,0.,0.,0.,0.,.944,0.,0.,0.,0.,0.,.9505,0.,0.,0.,0.,0.,
- .957,0.,0.,0.,0.,0.,.9635,0.,0.,0.,0.,0.,.97,0.,0.,0.,0.,0.,.9738,
- 0.,0.,0.,0.,0.,.9775,0.,0.,0.,0.,0.,.9813,0.,0.,0.,0.,0.,.985,0.,
- 0.,0.,0.,0.,.9833,0.,0.,0.,0.,0.,.9815,0.,0.,0.,0.,0.,.9797,0.,0.,
- 0.,0.,0.,.978,0.,0.,0.,0.,0.,.9747,0.,0.,0.,0.,0.,.9715,0.,0.,0.,
- 0.,0.,.9682,0.,0.,0.,0.,0.,.965,0.,0.,0.,0.,0.,.9682,0.,0.,0.,0.,
- 0.,.9715,0.,0.,0.,0.,0.,.9747,0.,0.,0.,0.,0.,.978,0.,0.,0.,0.,0.,
- .9793,0.,0.,0.,0.,0.,.9805,0.,0.,0.,0.,0.,.9818,0.,0.,0.,0.,0.,
- .983,0.,0.,0.,0.,0.,.9837,0.,0.,0.,0.,0.,.9845,0.,0.,0.,0.,0.,
- .9852,0.,0.,0.,0.,0.,.986,0.,0.,0.,0.,0.,.9838,0.,0.,0.,0.,0.,
- .9815,0.,0.,0.,0.,0.,.9793,0.,0.,0.,0.,0.,.977,0.,0.,0.,0.,0.,
- .9815,0.,0.,0.,0.,0.,.986,0.,0.,0.,0.,0.,.9905,0.,0.,0.,0.,0.,
- .995,0.,0.,0.,0.,0.,.9963,0.,0.,0.,0.,0.,.9975,0.,0.,0.,0.,0.,
- .9988,0.,0.,0.,0.,0.,1.,0.,0.,0.,0.,0.,.9992,0.,0.,0.,0.,0.,.9985,
- 0.,0.,0.,0.,0.,.9977,0.,0.,0.,0.,0.,.997,0.,0.,0.,0.,0.,.9912,0.,
- 0.,0.,0.,0.,.9855,0.,0.,0.,0.,0.,.9797,0.,0.,0.,0.,0.,.974,0.,0.,
- 0.,0.,0.,.9697,0.,0.,0.,0.,0.,.9655,0.,0.,0.,0.,0.,.9613,0.,0.,0.,
- 0.,0.,.957,0.,0.,0.,0.,0.,.9553,0.,0.,0.,0.,0.,.9535,0.,0.,0.,0.,
- 0.,.9517,0.,0.,0.,0.,0.,.95,0.,0.,0.,0.,0.,.9505,0.,0.,0.,0.,0.,
- .951,0.,0.,0.,0.,0.,.9515,0.,0.,0.,0.,0.,.952,0.,0.,0.,0.,0.,.937,
- 0.,0.,0.,0.,0.,.922,0.,0.,0.,0.,0.,.907,0.,0.,0.,0.,0.,.892,0.,0.,
- 0.,0.,0.,.826,0.,0.,0.,0.,0.,.76,0.,0.,0.,0.,0.,.694,0.,0.,0.,0.,
- 0.,.628,0.,0.,0.,0.,0.,.5507,0.,0.,0.,0.,0.,.4735,0.,0.,0.,0.,0.,
- .3962,0.,0.,0.,0.,0.,.319,0.,0.,0.,0.,0.,.278,0.,0.,0.,0.,0.,.237,
- 0.,0.,0.,0.,0.,.196,0.,0.,0.,0.,0.,.155,0.,0.,0.,0.,0.,.134,0.,0.,
- 0.,0.,0.,.113,0.,0.,0.,0.,0.,.092,0.,0.,0.,0.,0.,.071,0.,0.,0.,0.,
- 0.,.0643,0.,0.,0.,0.,0.,.0575,0.,0.,0.,0.,0.,.0508,0.,0.,0.,0.,0.,
- .044,0.,0.,0.,0.,0.,.0385,0.,0.,0.,0.,0.,.033,0.,0.,0.,0.,0.,
- .0275,0.,0.,0.,0.,0.,.022,0.,0.,0.,0.,0.,.0197,0.,0.,0.,0.,0.,
- .0175,0.,0.,0.,0.,0.,.0152,0.,0.,0.,0.,0.,.013,0.,0.,0.,0.,0.,
- .012,0.,0.,0.,0.,0.,.011,0.,0.,0.,0.,0.,.01,0.,0.,0.,0.,0.,.009,
- 0.,0.,0.,0.,0.,.0077,0.,0.,0.,0.,0.,.0065,0.,0.,0.,0.,0.,.0052,0.,
- 0.,0.,0.,0.,.004,0.,0.,0.,0.,0.,.0037,0.,0.,0.,0.,0.,.0035,0.,0.,
- 0.,0.,0.,.0032,0.,0.,0.,0.,0.,.003,0.,0.,0.,0.,0.,.0027,0.,0.,0.,
- 0.,0.,.0025,0.,0.,0.,0.,0.,.0022,0.,0.,0.,0.,0.,.002,0.,0.,0.,0.,
- 0.,.0015,0.,0.,0.,0.,0.,.001,0.,0.,0.,0.,0.,5e-4,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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,0.,0.,5e-4,0.,
- 0.,0.,0.,0.,.001,0.,0.,0.,0.,0.,.0015,0.,0.,0.,0.,0.,.002,0.,0.,
- 0.,0.,0.,.0025,0.,0.,0.,0.,0.,.003,0.,0.,0.,0.,0.,.0035,0.,0.,0.,
- 0.,0.,.004,0.,0.,0.,0.,0.,.0043,0.,0.,0.,0.,0.,.0045,0.,0.,0.,0.,
- 0.,.0048,0.,0.,0.,0.,0.,.005,0.,0.,0.,0.,0.,.0055,0.,0.,0.,0.,0.,
- .006,0.,0.,0.,0.,0.,.0065,0.,0.,0.,0.,0.,.007,0.,0.,0.,0.,0.,
- .0075,0.,0.,0.,0.,0.,.008,0.,0.,0.,0.,0.,.0085,0.,0.,0.,0.,0.,
- .009,0.,0.,0.,0.,0.,.0103,0.,0.,0.,0.,0.,.0115,0.,0.,0.,0.,0.,
- .0128,0.,0.,0.,0.,0.,.014,0.,0.,0.,0.,0.,.0153,0.,0.,0.,0.,0.,
- .0165,0.,0.,0.,0.,0.,.0178,0.,0.,0.,0.,0.,.019,0.,0.,0.,0.,0.,
- .0233,0.,0.,0.,0.,0.,.0275,0.,0.,0.,0.,0.,.0318,0.,0.,0.,0.,0.,
- .036,0.,0.,0.,0.,0.,.04,0.,0.,0.,0.,0.,.044,0.,0.,0.,0.,0.,.048,
- 0.,0.,0.,0.,0.,.052,0.,0.,0.,0.,0.,.0563,0.,0.,0.,0.,0.,.0605,0.,
- 0.,0.,0.,0.,.0648,0.,0.,0.,0.,0.,.069,0.,0.,0.,0.,0.,.0768,0.,0.,
- 0.,0.,0.,.0845,0.,0.,0.,0.,0.,.0923,0.,0.,0.,0.,0.,.1,0.,0.,0.,0.,
- 0.,.1125,0.,0.,0.,0.,0.,.125,0.,0.,0.,0.,0.,.1375,0.,0.,0.,0.,0.,
- .15,0.,0.,0.,0.,0.,.1753,0.,0.,0.,0.,0.,.2005,0.,0.,0.,0.,0.,
- .2258,0.,0.,0.,0.,0.,.251,0.,0.,0.,0.,0.,.287,0.,0.,0.,0.,0.,.323,
- 0.,0.,0.,0.,0.,.359,0.,0.,0.,0.,0.,.395,0.,0.,0.,0.,0.,.4313,0.,
- 0.,0.,0.,0.,.4675,0.,0.,0.,0.,0.,.5038,0.,0.,0.,0.,0.,.54,0.,0.,
- 0.,0.,0.,.5788,0.,0.,0.,0.,0.,.6175,0.,0.,0.,0.,0.,.6563,0.,0.,0.,
- 0.,0.,.695,0.,0.,0.,0.,0.,.7345,0.,0.,0.,0.,0.,.774,0.,0.,0.,0.,
- 0.,.8135,0.,0.,0.,0.,0.,.853,0.,0.,0.,0.,0.,.8737,0.,0.,0.,0.,0.,
- .8945,0.,0.,0.,0.,0.,.9152,0.,0.,0.,0.,0.,.936,0.,0.,0.,0.,0.,
- .9398,0.,0.,0.,0.,0.,.9435,0.,0.,0.,0.,0.,.9473,0.,0.,0.,0.,0.,
- .951,0.,0.,0.,0.,0.,.9472,0.,0.,0.,0.,0.,.9435,0.,0.,0.,0.,0.,
- .9397,0.,0.,0.,0.,0.,.936,0.,0.,0.,0.,0.,.9385,0.,0.,0.,0.,0.,
- .941,0.,0.,0.,0.,0.,.9435,0.,0.,0.,0.,0.,.946,0.,0.,0.,0.,0.,.95,
- 0.,0.,0.,0.,0.,.954,0.,0.,0.,0.,0.,.958,0.,0.,0.,0.,0.,.962,0.,0.,
- 0.,0.,0.,.9693,0.,0.,0.,0.,0.,.9765,0.,0.,0.,0.,0.,.9838,0.,0.,0.,
- 0.,0.,.991,0.,0.,0.,0.,0.,.993,0.,0.,0.,0.,0.,.995,0.,0.,0.,0.,0.,
- .997,0.,0.,0.,0.,0.,.999,0.,0.,0.,0.,0.,1.,0.,0.,0.,0.,0.,.9988,
- 0.,0.,0.,0.,0.,.9975,0.,0.,0.,0.,0.,.996,0.,0.,0.,0.,0.,.9952,0.,
- 0.,0.,0.,0.,.9945,0.,0.,0.,0.,0.,.9937,0.,0.,0.,0.,0.,.993,0.,0.,
- 0.,0.,0.,.9922,0.,0.,0.,0.,0.,.9915,0.,0.,0.,0.,0.,.9908,0.,0.,0.,
- 0.,0.,.99,0.,0.,0.,0.,0.,.9815,0.,0.,0.,0.,0.,.973,0.,0.,0.,0.,0.,
- .9645,0.,0.,0.,0.,0.,.956,0.,0.,0.,0.,0.,.9525,0.,0.,0.,0.,0.,
- .949,0.,0.,0.,0.,0.,.9455,0.,0.,0.,0.,0.,.942,0.,0.,0.,0.,0.,.937,
- 0.,0.,0.,0.,0.,.932,0.,0.,0.,0.,0.,.927,0.,0.,0.,0.,0.,.922,0.,0.,
- 0.,0.,0.,.9205,0.,0.,0.,0.,0.,.919,0.,0.,0.,0.,0.,.9175,0.,0.,0.,
- 0.,0.,.916,0.,0.,0.,0.,0.,.9135,0.,0.,0.,0.,0.,.911,0.,0.,0.,0.,
- 0.,.9085,0.,0.,0.,0.,0.,.906,0.,0.,0.,0.,0.,.902,0.,0.,0.,0.,0.,
- .898,0.,0.,0.,0.,0.,.894,0.,0.,0.,0.,0.,.89,0.,0.,0.,0.,0.,.873,
- 0.,0.,0.,0.,0.,.856,0.,0.,0.,0.,0.,.839,0.,0.,0.,0.,0.,.822,0.,0.,
- 0.,0.,0.,.8058,0.,0.,0.,0.,0.,.7895,0.,0.,0.,0.,0.,.7732,0.,0.,0.,
- 0.,0.,.757,0.,0.,0.,0.,0.,.7545,0.,0.,0.,0.,0.,.752,0.,0.,0.,0.,
- 0.,.7495,0.,0.,0.,0.,0.,.747,0.,0.,0.,0.,0.,.7623,0.,0.,0.,0.,0.,
- .7775,0.,0.,0.,0.,0.,.7928,0.,0.,0.,0.,0.,.808,0.,0.,0.,0.,0.,
- .8245,0.,0.,0.,0.,0.,.841,0.,0.,0.,0.,0.,.8575,0.,0.,0.,0.,0.,
- .874,0.,0.,0.,0.,0.,.8292,0.,0.,0.,0.,0.,.7845,0.,0.,0.,0.,0.,
- .7397,0.,0.,0.,0.,0.,.695,0.,0.,0.,0.,0.,.629,0.,0.,0.,0.,0.,.563,
- 0.,0.,0.,0.,0.,.497,0.,0.,0.,0.,0.,.431,0.,0.,0.,0.,0.,.3747,0.,
- 0.,0.,0.,0.,.3185,0.,0.,0.,0.,0.,.2622,0.,0.,0.,0.,0.,.206,0.,0.,
- 0.,0.,0.,.1735,0.,0.,0.,0.,0.,.141,0.,0.,0.,0.,0.,.1085,0.,0.,0.,
- 0.,0.,.076,0.,0.,0.,0.,0.,.0653,0.,0.,0.,0.,0.,.0545,0.,0.,0.,0.,
- 0.,.0438,0.,0.,0.,0.,0.,.033,0.,0.,0.,0.,0.,.0275,0.,0.,0.,0.,0.,
- .022,0.,0.,0.,0.,0.,.0165,0.,0.,0.,0.,0.,.011,0.,0.,0.,0.,0.,
- .0097,0.,0.,0.,0.,0.,.0085,0.,0.,0.,0.,0.,.0072,0.,0.,0.,0.,0.,
- .006,0.,0.,0.,0.,0.,.0045,0.,0.,0.,0.,0.,.003,0.,0.,0.,0.,0.,
- .0015,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,0.,0.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0. };
-
- integer i__;
- doublereal wli[6], wls[6];
-
-/*< real s,wlinf,wlsup >*/
-/*< common /sixs_ffu/ s(1501),wlinf,wlsup >*/
-/*< real sr(6,1501),wli(6),wls(6) >*/
-/*< integer iwa,l,i >*/
-/* 1st spectral band of thematic mapper */
-/*< >*/
-
-/* 2nd spectral band of thematic mapper */
-/*< >*/
-
-/* 3rd spectral band of thematic mapper */
-/*< >*/
-
-/* 4th spectral band of thematic mapper */
-/*< >*/
-
-/* 5th spectral band of thematic mapper */
-/*< >*/
-/*< >*/
-
-/* 7th spectral band of thematic mapper */
-/*< >*/
-/*< >*/
-/*< wli(1)=0.43 >*/
- wli[0] = .43;
-/*< wls(1)=0.56 >*/
- wls[0] = .56;
-/*< wli(2)=0.5 >*/
- wli[1] = .5;
-/*< wls(2)=0.6499999 >*/
- wls[1] = .6499999;
-/*< wli(3)=0.5799999 >*/
- wli[2] = .5799999;
-/*< wls(3)=0.74 >*/
- wls[2] = .74;
-/*< wli(4)=0.73 >*/
- wli[3] = .73;
-/*< wls(4)=.95 >*/
- wls[3] = .95;
-/*< wli(5)=1.5025 >*/
- wli[4] = 1.5025;
-/*< wls(5)=1.89 >*/
- wls[4] = 1.89;
-/*< wli(6)=1.95 >*/
- wli[5] = 1.95;
-/*< wls(6)=2.41 >*/
- wls[5] = 2.41;
-/*< do 1 i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< s(i)=sr(iwa,i) >*/
- sixs_ffu__1.s[i__ - 1] = sr[*iwa + i__ * 6 - 7];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< wlinf=wli(iwa) >*/
- sixs_ffu__1.wlinf = wli[*iwa - 1];
-/*< wlsup=wls(iwa) >*/
- sixs_ffu__1.wlsup = wls[*iwa - 1];
-/*< return >*/
- return 0;
-/*< end >*/
-} /* tm_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/TM.f b/Modules/ThirdParty/6S/src/6SV1.0B/TM.f
deleted file mode 100644
index 3fcc484..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/TM.f
+++ /dev/null
@@ -1,137 +0,0 @@
- subroutine tm(iwa)
- real s,wlinf,wlsup
- common /sixs_ffu/ s(1501),wlinf,wlsup
- real sr(6,1501),wli(6),wls(6)
- integer iwa,l,i
-
-c 1st spectral band of thematic mapper
-
- data (sr(1,l),l=1,1501)/ 72*0.,
- a .0030, .0085, .0140, .0255, .0370, .0500, .0630, .2010,
- a .3390, .5030, .6670, .6935, .7200, .7525, .7850, .8030,
- a .8210, .8370, .8530, .8780, .9030, .9135, .9240, .9355,
- a .9470, .9625, .9780, .9835, .9890, .9860, .9830, .9060,
- a .8290, .7815, .7340, .5265, .3190, .1995, .0800, .0630,
- a .0460, .0380, .0300, .0230, .0160, .0120, .0080, .0065,
- a .0050, .0045, .0040, .0035, .0030,
- a1376*0./
-c
-c 2nd spectral band of thematic mapper
- data (sr(2,l),l=1,1501)/ 100*0.,
- a .0010, .0055, .0100, .0165, .0230, .0305, .0380, .1010,
- a .1640, .2710, .3780, .4750, .5720, .6150, .6580, .6945,
- a .7310, .7575, .7840, .8105, .8370, .8510, .8650, .8770,
- a .8890, .8965, .9040, .9055, .9070, .9070, .9070, .9095,
- a .9120, .9310, .9500, .9685, .9870, .9951, .9980, .9705,
- a .9430, .8655, .7880, .6250, .4620, .3330, .2040, .1505,
- a .0970, .0745, .0520, .0440, .0360, .0285, .0210, .0165,
- a .0120, .0090, .0060, .0030, .0000,
- a1340*0./
-c
-c 3rd spectral band of thematic mapper
-
- data (sr(3,l),l=1,1501)/ 132*0.,
- a .0020, .0020, .0020, .0020, .0020, .0030, .0040, .0060,
- a .0080, .0140, .0200, .0290, .0380, .0730, .1080, .2020,
- a .2960, .3840, .4720, .5245, .5770, .6625, .7480, .7830,
- a .8180, .8430, .8680, .8845, .9010, .9030, .9050, .9055,
- a .9060, .9200, .9340, .9520, .9700, .9815, .9930,1.0000,
- a .9980, .9770, .9560, .8715, .7870, .5775, .3680, .2435,
- a .1190, .0920, .0650, .0555, .0460, .0385, .0310, .0255,
- a .0200, .0160, .0120, .0090, .0060, .0055, .0050, .0040,
- a .0030,
- a1304*0./
-c
-c 4th spectral band of thematic mapper
-
- data (sr(4,l),l=1,1501)/ 192*0.,
- a .0020, .0035, .0050, .0060, .0070, .0080, .0090, .0140,
- a .0190, .0260, .0330, .0520, .0710, .1035, .1360, .2055,
- a .2750, .3615, .4480, .5505, .6530, .7410, .8290, .8795,
- a .9300, .9520, .9740, .9870,1.0000, .9955, .9910, .9855,
- a .9800, .9685, .9570, .9465, .9360, .9260, .9160, .9165,
- a .9170, .9180, .9190, .9195, .9200, .9215, .9230, .9240,
- a .9250, .9160, .9070, .8965, .8860, .8835, .8810, .8825,
- a .8840, .8825, .8810, .8705, .8600, .8410, .8220, .8030,
- a .7840, .7715, .7590, .7370, .7150, .5905, .4660, .3385,
- a .2110, .1440, .0770, .0540, .0310, .0230, .0150, .0115,
- a .0080, .0070, .0060, .0050, .0040, .0030, .0020, .0010,
- a .0000,
- a1220*0./
-c
-c 5th spectral band of thematic mapper
-
- data (sr(5,l),l=1,565)/ 501*0.,
- b .0000, .0003, .0007, .0010, .0013, .0015, .0018, .0020,
- a .0038, .0055, .0073, .0090, .0123, .0155, .0188, .0220,
- a .0393, .0565, .0738, .0910, .1410, .1910, .2410, .2910,
- a .3617, .4325, .5032, .5740, .6383, .7025, .7668, .8310,
- a .8622, .8935, .9248, .9560, .9522, .9485, .9447, .9410,
- a .9417, .9425, .9433, .9440, .9505, .9570, .9635, .9700,
- a .9738, .9775, .9813, .9850, .9833, .9815, .9797, .9780,
- a .9747, .9715, .9682, .9650, .9682, .9715, .9747, .9780
- a /
- data (sr(5,l) , l=566,1501)/
- a .9793, .9805, .9818, .9830, .9837, .9845, .9852, .9860,
- a .9838, .9815, .9793, .9770, .9815, .9860, .9905, .9950,
- a .9963, .9975, .9988,1.0000, .9992, .9985, .9977, .9970,
- a .9912, .9855, .9797, .9740, .9697, .9655, .9613, .9570,
- a .9553, .9535, .9517, .9500, .9505, .9510, .9515, .9520,
- a .9370, .9220, .9070, .8920, .8260, .7600, .6940, .6280,
- a .5507, .4735, .3962, .3190, .2780, .2370, .1960, .1550,
- a .1340, .1130, .0920, .0710, .0643, .0575, .0508, .0440,
- a .0385, .0330, .0275, .0220, .0197, .0175, .0152, .0130,
- a .0120, .0110, .0100, .0090, .0077, .0065, .0052, .0040,
- a .0037, .0035, .0032, .0030, .0027, .0025, .0022, .0020,
- c .0015, .0010, .0005, .0000,
- a 844*0./
-c
-c 7th spectral band of thematic mapper
-
- data (sr(6,l),l=1,760)/ 680*0.,
- a .0000, .0005, .0010, .0015, .0020, .0025, .0030, .0035,
- a .0040, .0043, .0045, .0048, .0050, .0055, .0060, .0065,
- a .0070, .0075, .0080, .0085, .0090, .0103, .0115, .0128,
- a .0140, .0153, .0165, .0178, .0190, .0233, .0275, .0318,
- a .0360, .0400, .0440, .0480, .0520, .0563, .0605, .0648,
- a .0690, .0768, .0845, .0923, .1000, .1125, .1250, .1375,
- a .1500, .1753, .2005, .2258, .2510, .2870, .3230, .3590,
- a .3950, .4313, .4675, .5038, .5400, .5788, .6175, .6563,
- a .6950, .7345, .7740, .8135, .8530, .8737, .8945, .9152,
- a .9360, .9398, .9435, .9473, .9510, .9472, .9435, .9397/
- data (sr(6,l),l=761,1501)/
- a .9360, .9385, .9410, .9435, .9460, .9500, .9540, .9580,
- a .9620, .9693, .9765, .9838, .9910, .9930, .9950, .9970,
- a .9990,1.0000, .9988, .9975, .9960, .9952, .9945, .9937,
- a .9930, .9922, .9915, .9908, .9900, .9815, .9730, .9645,
- a .9560, .9525, .9490, .9455, .9420, .9370, .9320, .9270,
- a .9220, .9205, .9190, .9175, .9160, .9135, .9110, .9085,
- a .9060, .9020, .8980, .8940, .8900, .8730, .8560, .8390,
- a .8220, .8058, .7895, .7732, .7570, .7545, .7520, .7495,
- a .7470, .7623, .7775, .7928, .8080, .8245, .8410, .8575,
- a .8740, .8292, .7845, .7397, .6950, .6290, .5630, .4970,
- a .4310, .3747, .3185, .2622, .2060, .1735, .1410, .1085,
- a .0760, .0653, .0545, .0438, .0330, .0275, .0220, .0165,
- a .0110, .0097, .0085, .0072, .0060, .0045, .0030, .0015,
- a .0000,
- a 636*0./
- wli(1)=0.43
- wls(1)=0.56
- wli(2)=0.5
- wls(2)=0.6499999
- wli(3)=0.5799999
- wls(3)=0.74
- wli(4)=0.73
- wls(4)=.95
- wli(5)=1.5025
- wls(5)=1.89
- wli(6)=1.95
- wls(6)=2.41
- do 1 i=1,1501
- s(i)=sr(iwa,i)
- 1 continue
- wlinf=wli(iwa)
- wlsup=wls(iwa)
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/TM.h b/Modules/ThirdParty/6S/src/6SV1.0B/TM.h
deleted file mode 100644
index 6d8045c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/TM.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_tm_(
- otb_6s_integer *iwa
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.P b/Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.P
deleted file mode 100644
index b766e74..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int tropic_();
-/* comlen sixs_atm__ 1360 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.c b/Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.c
deleted file mode 100644
index 03b99a7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.c
+++ /dev/null
@@ -1,81 +0,0 @@
-/* TROPIC.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#define sixs_atm__1 sixs_atm__
-
-/*< subroutine tropic >*/
-/* Subroutine */ int tropic_()
-{
- /* Initialized data */
-
- static doublereal z1[34] = { 0.,1.,2.,3.,4.,5.,6.,7.,8.,9.,10.,11.,12.,
- 13.,14.,15.,16.,17.,18.,19.,20.,21.,22.,23.,24.,25.,30.,35.,40.,
- 45.,50.,70.,100.,99999. };
- static doublereal p1[34] = { 1013.,904.,805.,715.,633.,559.,492.,432.,
- 378.,329.,286.,247.,213.,182.,156.,132.,111.,93.7,78.9,66.6,56.5,
- 48.,40.9,35.,30.,25.7,12.2,6.,3.05,1.59,.854,.0579,3e-4,0. };
- static doublereal t1[34] = { 300.,294.,288.,284.,277.,270.,264.,257.,250.,
- 244.,237.,230.,224.,217.,210.,204.,197.,195.,199.,203.,207.,211.,
- 215.,217.,219.,221.,232.,243.,254.,265.,270.,219.,210.,210. };
- static doublereal wh1[34] = { 19.,13.,9.3,4.7,2.2,1.5,.85,.47,.25,.12,.05,
- .017,.006,.0018,.001,7.6e-4,6.4e-4,5.6e-4,5e-4,4.9e-4,4.5e-4,
- 5.1e-4,5.1e-4,5.4e-4,6e-4,6.7e-4,3.6e-4,1.1e-4,4.3e-5,1.9e-5,
- 6.3e-6,1.4e-7,1e-9,0. };
- static doublereal wo1[34] = { 5.6e-5,5.6e-5,5.4e-5,5.1e-5,4.7e-5,4.5e-5,
- 4.3e-5,4.1e-5,3.9e-5,3.9e-5,3.9e-5,4.1e-5,4.3e-5,4.5e-5,4.5e-5,
- 4.7e-5,4.7e-5,6.9e-5,9e-5,1.4e-4,1.9e-4,2.4e-4,2.8e-4,3.2e-4,
- 3.4e-4,3.4e-4,2.4e-4,9.2e-5,4.1e-5,1.3e-5,4.3e-6,8.6e-8,4.3e-11,
- 0. };
-
- integer i__;
-
-/*< integer i >*/
-/*< real z1(34),p1(34),t1(34),wh1(34),wo1(34) >*/
-/*< real z,p,t,wh,wo >*/
-/*< common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34) >*/
-
-/* model: tropical mc clatchey */
-
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< do 1 i=1,34 >*/
- for (i__ = 1; i__ <= 34; ++i__) {
-/*< z(i)=z1(i) >*/
- sixs_atm__1.z__[i__ - 1] = z1[i__ - 1];
-/*< p(i)=p1(i) >*/
- sixs_atm__1.p[i__ - 1] = p1[i__ - 1];
-/*< t(i)=t1(i) >*/
- sixs_atm__1.t[i__ - 1] = t1[i__ - 1];
-/*< wh(i)=wh1(i) >*/
- sixs_atm__1.wh[i__ - 1] = wh1[i__ - 1];
-/*< wo(i)=wo1(i) >*/
- sixs_atm__1.wo[i__ - 1] = wo1[i__ - 1];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* tropic_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.f b/Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.f
deleted file mode 100644
index 49c1ed8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.f
+++ /dev/null
@@ -1,50 +0,0 @@
- subroutine tropic
- integer i
- real z1(34),p1(34),t1(34),wh1(34),wo1(34)
- real z,p,t,wh,wo
- common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34)
-c
-c model: tropical mc clatchey
-c
- data(z1(i),i=1, 34)/
- 1 0., 1., 2., 3., 4., 5., 6., 7., 8.,
- 2 9., 10., 11., 12., 13., 14., 15., 16., 17.,
- 3 18., 19., 20., 21., 22., 23., 24., 25., 30.,
- 4 35., 40., 45., 50., 70., 100.,99999./
- data (p1(i),i=1,34)/
- a1.013e+03,9.040e+02,8.050e+02,7.150e+02,6.330e+02,5.590e+02,
- a4.920e+02,4.320e+02,3.780e+02,3.290e+02,2.860e+02,2.470e+02,
- a2.130e+02,1.820e+02,1.560e+02,1.320e+02,1.110e+02,9.370e+01,
- a7.890e+01,6.660e+01,5.650e+01,4.800e+01,4.090e+01,3.500e+01,
- a3.000e+01,2.570e+01,1.220e+01,6.000e+00,3.050e+00,1.590e+00,
- a8.540e-01,5.790e-02,3.000e-04,0.000e+00/
- data (t1(i),i=1,34)/
- a3.000e+02,2.940e+02,2.880e+02,2.840e+02,2.770e+02,2.700e+02,
- a2.640e+02,2.570e+02,2.500e+02,2.440e+02,2.370e+02,2.300e+02,
- a2.240e+02,2.170e+02,2.100e+02,2.040e+02,1.970e+02,1.950e+02,
- a1.990e+02,2.030e+02,2.070e+02,2.110e+02,2.150e+02,2.170e+02,
- a2.190e+02,2.210e+02,2.320e+02,2.430e+02,2.540e+02,2.650e+02,
- a2.700e+02,2.190e+02,2.100e+02,2.100e+02/
- data (wh1(i),i=1,34)/
- a1.900e+01,1.300e+01,9.300e+00,4.700e+00,2.200e+00,1.500e+00,
- a8.500e-01,4.700e-01,2.500e-01,1.200e-01,5.000e-02,1.700e-02,
- a6.000e-03,1.800e-03,1.000e-03,7.600e-04,6.400e-04,5.600e-04,
- a5.000e-04,4.900e-04,4.500e-04,5.100e-04,5.100e-04,5.400e-04,
- a6.000e-04,6.700e-04,3.600e-04,1.100e-04,4.300e-05,1.900e-05,
- a6.300e-06,1.400e-07,1.000e-09,0.000e+00/
- data (wo1(i),i=1,34)/
- a5.600e-05,5.600e-05,5.400e-05,5.100e-05,4.700e-05,4.500e-05,
- a4.300e-05,4.100e-05,3.900e-05,3.900e-05,3.900e-05,4.100e-05,
- a4.300e-05,4.500e-05,4.500e-05,4.700e-05,4.700e-05,6.900e-05,
- a9.000e-05,1.400e-04,1.900e-04,2.400e-04,2.800e-04,3.200e-04,
- a3.400e-04,3.400e-04,2.400e-04,9.200e-05,4.100e-05,1.300e-05,
- a4.300e-06,8.600e-08,4.300e-11,0.000e+00/
- do 1 i=1,34
- z(i)=z1(i)
- p(i)=p1(i)
- t(i)=t1(i)
- wh(i)=wh1(i)
- wo(i)=wo1(i)
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.h b/Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.h
deleted file mode 100644
index 7baaaba..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/TROPIC.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_tropic_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.P b/Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.P
deleted file mode 100644
index 750de33..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int trunca_(doublereal *coeff, integer *ipol);
-/* comlen num_quad__ 4 */
-/* comlen sixs_polar__ 56032 */
-/*:ref: gauss_ 14 5 7 7 7 7 4 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.c b/Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.c
deleted file mode 100644
index d59868b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.c
+++ /dev/null
@@ -1,314 +0,0 @@
-/* TRUNCA.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal pha[1000], qha[1000], uha[1000], alphal[1001], betal[1001],
- gammal[1001], zetal[1001];
-} sixs_polar__;
-
-#define sixs_polar__1 sixs_polar__
-
-/* Table of constant values */
-
-static doublereal c_b2 = -1.;
-static doublereal c_b3 = 1.;
-
-/*< subroutine trunca(coeff,ipol) >*/
-/* Subroutine */ int trunca_(doublereal *coeff, integer *ipol)
-{
- /* System generated locals */
- integer i__1, i__2;
- doublereal d__1;
-
- /* Builtin functions */
- double sqrt(doublereal);
-
- /* Local variables */
- doublereal d__, e;
- integer i__, j, k;
- doublereal x, c2;
- integer mm;
- doublereal pl[1002];
- integer nn;
- doublereal rm, xx, co1, co2, co3, z1p, pol[1001], som1, som2, som3, som4;
- integer nbmu;
- extern /* Subroutine */ int gauss_(doublereal *, doublereal *, doublereal
- *, doublereal *, integer *);
- doublereal deltal[1001], pdgs_s__[1000], cgaus_s__[1000];
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real cgaus_S(nqmax_p), pdgs_S(nqmax_p) >*/
-/*< real pl(-1:nqmax_p),pol(0:nqmax_p),deltal(0:nqmax_p) >*/
-/*< real pha,qha,uha,alphal,betal,gammal,zetal >*/
-/*< >*/
-/* - to vary the number of quadratures */
-/*< real aa,x1,x2,a,x,rm,z1,z1p,e,d,co1,co2,co3,xx,c2,xp >*/
-/*< real som1,som2,som3,som4,coef >*/
-/*< integer nbmu,k,j,kk,i,nn,mm >*/
-/*< nbmu=nquad >*/
- nbmu = num_quad__1.nquad;
-/* - calculation of gauss points */
-/*< cgaus_S(nbmu)=1.0 >*/
- cgaus_s__[nbmu - 1] = 1.;
-/*< pdgs_S(nbmu)=0.0 >*/
- pdgs_s__[nbmu - 1] = 0.;
-/*< call gauss(-1.,1.,cgaus_S,pdgs_S,nbmu-2) >*/
- i__1 = nbmu - 2;
- gauss_(&c_b2, &c_b3, cgaus_s__, pdgs_s__, &i__1);
-/*< do j=1,nbmu-2 >*/
- i__1 = nbmu - 2;
- for (j = 1; j <= i__1; ++j) {
-/*< cgaus_S(nbmu-j)=cgaus_S(nbmu-j-1) >*/
- cgaus_s__[nbmu - j - 1] = cgaus_s__[nbmu - j - 2];
-/*< pdgs_S(nbmu-j)=pdgs_S(nbmu-j-1) >*/
- pdgs_s__[nbmu - j - 1] = pdgs_s__[nbmu - j - 2];
-/*< enddo >*/
- }
-/*< cgaus_S(1)=-1.0 >*/
- cgaus_s__[0] = -1.;
-/*< pdgs_S(1)=0.0 >*/
- pdgs_s__[0] = 0.;
-/* write(6,*) 'TRUNCA - gauss' */
-/* do j=1,nbmu */
-/* write(6,*) j,cgaus_S(j),pdgs_S(j) */
-/* enddo */
-/* Stop */
-/* - calculation of gauss points */
-/* Computations of Legendre coefficients */
-/*< do 10 k=0,nbmu-3 >*/
- i__1 = nbmu - 3;
- for (k = 0; k <= i__1; ++k) {
-/*< alphal(k)=0. >*/
- sixs_polar__1.alphal[k] = 0.;
-/*< betal(k)=0. >*/
- sixs_polar__1.betal[k] = 0.;
-/*< gammal(k)=0. >*/
- sixs_polar__1.gammal[k] = 0.;
-/*< deltal(k)=0. >*/
- deltal[k] = 0.;
-/*< zetal(k)=0. >*/
- sixs_polar__1.zetal[k] = 0.;
-/*< 10 continue >*/
-/* L10: */
- }
-/*< do 11 j=1,nbmu >*/
- i__1 = nbmu;
- for (j = 1; j <= i__1; ++j) {
-/*< x=pha(j)*pdgs_S(j) >*/
- x = sixs_polar__1.pha[j - 1] * pdgs_s__[j - 1];
-/*< rm=cgaus_S(j) >*/
- rm = cgaus_s__[j - 1];
-/*< pl(-1)=0. >*/
- pl[0] = 0.;
-/*< pl(0)=1. >*/
- pl[1] = 1.;
-/*< do 12 k=0,nbmu-3 >*/
- i__2 = nbmu - 3;
- for (k = 0; k <= i__2; ++k) {
-/*< pl(k+1)=((2*k+1.)*rm*pl(k)-k*pl(k-1))/(k+1.) >*/
- pl[k + 2] = (((k << 1) + 1.) * rm * pl[k + 1] - k * pl[k]) / (k +
- 1.);
-/*< betal(k)=betal(k)+x*pl(k) >*/
- sixs_polar__1.betal[k] += x * pl[k + 1];
-/*< 12 continue >*/
-/* L12: */
- }
-/*< 11 continue >*/
-/* L11: */
- }
-/*< do 13 k=0,nbmu-3 >*/
- i__1 = nbmu - 3;
- for (k = 0; k <= i__1; ++k) {
-/*< betal(k)=(2*k+1.)*0.5*betal(k) >*/
- sixs_polar__1.betal[k] = ((k << 1) + 1.) * .5 * sixs_polar__1.betal[k]
- ;
-/* - to put negative coefficients to 0 */
-/*< if (betal(k).lt.0) then >*/
- if (sixs_polar__1.betal[k] < 0.) {
-/*< do j=k,nbmu-3 >*/
- i__2 = nbmu - 3;
- for (j = k; j <= i__2; ++j) {
-/*< betal(j)=0.0 >*/
- sixs_polar__1.betal[j] = 0.;
-/*< enddo >*/
- }
-/*< goto 133 >*/
- goto L133;
-/*< endif >*/
- }
-/* - to put negative coefficients to 0 */
-/*< 13 continue >*/
-/* L13: */
- }
-/*< 133 continue >*/
-L133:
-/* cases of polarization */
-/*< if (ipol.ne.0)then >*/
- if (*ipol != 0) {
-/*< do 14 j=1,nbmu >*/
- i__1 = nbmu;
- for (j = 1; j <= i__1; ++j) {
-/*< x=qha(j)*pdgs_S(j) >*/
- x = sixs_polar__1.qha[j - 1] * pdgs_s__[j - 1];
-/*< xx=uha(j)*pdgs_S(j) >*/
- xx = sixs_polar__1.uha[j - 1] * pdgs_s__[j - 1];
-/*< rm=cgaus_S(j) >*/
- rm = cgaus_s__[j - 1];
-/*< pol(0)=0. >*/
- pol[0] = 0.;
-/*< pol(1)=0. >*/
- pol[1] = 0.;
-/*< pol(2)=3.*(1.-rm**2)/2./sqrt(6.0) >*/
-/* Computing 2nd power */
- d__1 = rm;
- pol[2] = (1. - d__1 * d__1) * 3. / 2. / sqrt(6.);
-/*< pl(-1)=0. >*/
- pl[0] = 0.;
-/*< pl(0)=1. >*/
- pl[1] = 1.;
-/*< do 15 k=2,nbmu-3 >*/
- i__2 = nbmu - 3;
- for (k = 2; k <= i__2; ++k) {
-/*< d=(2.*k+1.)/sqrt((k+3)*(k-1.)) >*/
- d__ = (k * 2. + 1.) / sqrt((k + 3) * (k - 1.));
-/*< e=sqrt((k+2.)*(k-2.))/(2.*k+1.) >*/
- e = sqrt((k + 2.) * (k - 2.)) / (k * 2. + 1.);
-/*< pol(k+1)=d*(rm*pol(k)-e*pol(k-1)) >*/
- pol[k + 1] = d__ * (rm * pol[k] - e * pol[k - 1]);
-/*< gammal(k)=gammal(k)+x*pol(k) >*/
- sixs_polar__1.gammal[k] += x * pol[k];
-/*< 15 continue >*/
-/* L15: */
- }
-/*< do 16 k=0,nbmu-3 >*/
- i__2 = nbmu - 3;
- for (k = 0; k <= i__2; ++k) {
-/*< pl(k+1)=((2.*k+1.)*rm*pl(k)-k*pl(k-1))/(k+1.) >*/
- pl[k + 2] = ((k * 2. + 1.) * rm * pl[k + 1] - k * pl[k]) / (k
- + 1.);
-/*< deltal(k)=deltal(k)+xx*pl(k) >*/
- deltal[k] += xx * pl[k + 1];
-/*< 16 continue >*/
-/* L16: */
- }
-/*< 14 continue >*/
-/* L14: */
- }
-/*< do 17 k=0,nbmu-3 >*/
- i__1 = nbmu - 3;
- for (k = 0; k <= i__1; ++k) {
-/*< deltal(k)=deltal(k)*(2.*k+1.)/2. >*/
- deltal[k] = deltal[k] * (k * 2. + 1.) / 2.;
-/*< gammal(k)=gammal(k)*(2.*k+1.)/2. >*/
- sixs_polar__1.gammal[k] = sixs_polar__1.gammal[k] * (k * 2. + 1.)
- / 2.;
-/*< 17 continue >*/
-/* L17: */
- }
-/*< do 18 i=2,nbmu-3 >*/
- i__1 = nbmu - 3;
- for (i__ = 2; i__ <= i__1; ++i__) {
-/*< co1=4.*(2.*i+1.)/(i*(i-1.)*(i+1.)*(i+2.)) >*/
- co1 = (i__ * 2. + 1.) * 4. / (i__ * (i__ - 1.) * (i__ + 1.) * (
- i__ + 2.));
-/*< co2=i*(i-1.)/((i+1.)*(i+2.)) >*/
- co2 = i__ * (i__ - 1.) / ((i__ + 1.) * (i__ + 2.));
-/*< co3=co2*deltal(i) >*/
- co3 = co2 * deltal[i__];
-/*< co2=co2*betal(i) >*/
- co2 *= sixs_polar__1.betal[i__];
-/*< nn=i/2. >*/
- nn = (integer) (i__ / 2.);
-/*< mm=(i-1)/2. >*/
- mm = (integer) ((i__ - 1) / 2.);
-/*< som1=0. >*/
- som1 = 0.;
-/*< som2=0. >*/
- som2 = 0.;
-/*< som3=0. >*/
- som3 = 0.;
-/*< som4=0. >*/
- som4 = 0.;
-/*< do 19 j=1,nn >*/
- i__2 = nn;
- for (j = 1; j <= i__2; ++j) {
-/*< c2=(i-1.)*(i-1.)-3.*(2*j-1.)*(i-j) >*/
- c2 = (i__ - 1.) * (i__ - 1.) - ((j << 1) - 1.) * 3. * (i__ -
- j);
-/*< som1=som1+c2*betal(i-2*j) >*/
- som1 += c2 * sixs_polar__1.betal[i__ - (j << 1)];
-/*< som2=som2+c2*deltal(i-2*j) >*/
- som2 += c2 * deltal[i__ - (j << 1)];
-/*< 19 continue >*/
-/* L19: */
- }
-/*< do 20 j=0,mm >*/
- i__2 = mm;
- for (j = 0; j <= i__2; ++j) {
-/*< c2=(i-1.)*(i-1.)-3.*j*(2*i-2*j-1.) >*/
- c2 = (i__ - 1.) * (i__ - 1.) - j * 3. * ((i__ << 1) - (j << 1)
- - 1.);
-/*< som3=som3+c2*betal(i-2*j-1) >*/
- som3 += c2 * sixs_polar__1.betal[i__ - (j << 1) - 1];
-/*< som4=som4+c2*deltal(i-2*j-1) >*/
- som4 += c2 * deltal[i__ - (j << 1) - 1];
-/*< 20 continue >*/
-/* L20: */
- }
-/*< zetal(i)=co3-co1*(som2-som3) >*/
- sixs_polar__1.zetal[i__] = co3 - co1 * (som2 - som3);
-/*< alphal(i)=co2-co1*(som1-som4) >*/
- sixs_polar__1.alphal[i__] = co2 - co1 * (som1 - som4);
-/*< 18 continue >*/
-/* L18: */
- }
-/*< z1p=betal(0) >*/
- z1p = sixs_polar__1.betal[0];
-/*< do k=0,nbmu-3 >*/
- i__1 = nbmu - 3;
- for (k = 0; k <= i__1; ++k) {
-/*< alphal(k)=alphal(k)/z1p >*/
- sixs_polar__1.alphal[k] /= z1p;
-/*< betal(k)=betal(k)/z1p >*/
- sixs_polar__1.betal[k] /= z1p;
-/*< gammal(k)=gammal(k)/z1p >*/
- sixs_polar__1.gammal[k] /= z1p;
-/*< zetal(k)=zetal(k)/z1p >*/
- sixs_polar__1.zetal[k] /= z1p;
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< coeff=0.0 >*/
- *coeff = 0.;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* trunca_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.f b/Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.f
deleted file mode 100644
index c8bb9d7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.f
+++ /dev/null
@@ -1,136 +0,0 @@
- subroutine trunca(coeff,ipol)
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real cgaus_S(nqmax_p), pdgs_S(nqmax_p)
- real pl(-1:nqmax_p),pol(0:nqmax_p),deltal(0:nqmax_p)
- real pha,qha,uha,alphal,betal,gammal,zetal
- common /sixs_polar/ pha(nqmax_p),qha(nqmax_p),uha(nqmax_p),
- &alphal(0:nqmax_p),betal(0:nqmax_p),gammal(0:nqmax_p),
- &zetal(0:nqmax_p)
-c - to vary the number of quadratures
-
- real aa,x1,x2,a,x,rm,z1,z1p,e,d,co1,co2,co3,xx,c2,xp
- real som1,som2,som3,som4,coef
- integer nbmu,k,j,kk,i,nn,mm
-
- nbmu=nquad
-
-c - calculation of gauss points
- cgaus_S(nbmu)=1.0
- pdgs_S(nbmu)=0.0
- call gauss(-1.,1.,cgaus_S,pdgs_S,nbmu-2)
- do j=1,nbmu-2
- cgaus_S(nbmu-j)=cgaus_S(nbmu-j-1)
- pdgs_S(nbmu-j)=pdgs_S(nbmu-j-1)
- enddo
- cgaus_S(1)=-1.0
- pdgs_S(1)=0.0
-
-c write(6,*) 'TRUNCA - gauss'
-c do j=1,nbmu
-c write(6,*) j,cgaus_S(j),pdgs_S(j)
-c enddo
-c Stop
-c - calculation of gauss points
-
-
-c Computations of Legendre coefficients
- do 10 k=0,nbmu-3
- alphal(k)=0.
- betal(k)=0.
- gammal(k)=0.
- deltal(k)=0.
- zetal(k)=0.
- 10 continue
- do 11 j=1,nbmu
- x=pha(j)*pdgs_S(j)
- rm=cgaus_S(j)
- pl(-1)=0.
- pl(0)=1.
- do 12 k=0,nbmu-3
- pl(k+1)=((2*k+1.)*rm*pl(k)-k*pl(k-1))/(k+1.)
- betal(k)=betal(k)+x*pl(k)
- 12 continue
- 11 continue
- do 13 k=0,nbmu-3
- betal(k)=(2*k+1.)*0.5*betal(k)
-c - to put negative coefficients to 0
- if (betal(k).lt.0) then
- do j=k,nbmu-3
- betal(j)=0.0
- enddo
- goto 133
- endif
-c - to put negative coefficients to 0
- 13 continue
-
- 133 continue
-
-c cases of polarization
- if (ipol.ne.0)then
- do 14 j=1,nbmu
- x=qha(j)*pdgs_S(j)
- xx=uha(j)*pdgs_S(j)
- rm=cgaus_S(j)
- pol(0)=0.
- pol(1)=0.
- pol(2)=3.*(1.-rm**2)/2./sqrt(6.0)
- pl(-1)=0.
- pl(0)=1.
- do 15 k=2,nbmu-3
- d=(2.*k+1.)/sqrt((k+3)*(k-1.))
- e=sqrt((k+2.)*(k-2.))/(2.*k+1.)
- pol(k+1)=d*(rm*pol(k)-e*pol(k-1))
- gammal(k)=gammal(k)+x*pol(k)
- 15 continue
- do 16 k=0,nbmu-3
- pl(k+1)=((2.*k+1.)*rm*pl(k)-k*pl(k-1))/(k+1.)
- deltal(k)=deltal(k)+xx*pl(k)
- 16 continue
- 14 continue
- do 17 k=0,nbmu-3
- deltal(k)=deltal(k)*(2.*k+1.)/2.
- gammal(k)=gammal(k)*(2.*k+1.)/2.
- 17 continue
-
- do 18 i=2,nbmu-3
- co1=4.*(2.*i+1.)/(i*(i-1.)*(i+1.)*(i+2.))
- co2=i*(i-1.)/((i+1.)*(i+2.))
- co3=co2*deltal(i)
- co2=co2*betal(i)
- nn=i/2.
- mm=(i-1)/2.
- som1=0.
- som2=0.
- som3=0.
- som4=0.
- do 19 j=1,nn
- c2=(i-1.)*(i-1.)-3.*(2*j-1.)*(i-j)
- som1=som1+c2*betal(i-2*j)
- som2=som2+c2*deltal(i-2*j)
- 19 continue
- do 20 j=0,mm
- c2=(i-1.)*(i-1.)-3.*j*(2*i-2*j-1.)
- som3=som3+c2*betal(i-2*j-1)
- som4=som4+c2*deltal(i-2*j-1)
- 20 continue
- zetal(i)=co3-co1*(som2-som3)
- alphal(i)=co2-co1*(som1-som4)
- 18 continue
- z1p=betal(0)
-
- do k=0,nbmu-3
- alphal(k)=alphal(k)/z1p
- betal(k)=betal(k)/z1p
- gammal(k)=gammal(k)/z1p
- zetal(k)=zetal(k)/z1p
- enddo
-
- endif
- coeff=0.0
-
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.h b/Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.h
deleted file mode 100644
index 99f1874..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/TRUNCA.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_trunca_(
- otb_6s_doublereal *coeff,
- otb_6s_integer *ipol
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/US62.P b/Modules/ThirdParty/6S/src/6SV1.0B/US62.P
deleted file mode 100644
index a6b9ef4..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/US62.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int us62_();
-/* comlen sixs_atm__ 1360 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/US62.c b/Modules/ThirdParty/6S/src/6SV1.0B/US62.c
deleted file mode 100644
index 6b35b0d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/US62.c
+++ /dev/null
@@ -1,82 +0,0 @@
-/* US62.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#define sixs_atm__1 sixs_atm__
-
-/*< subroutine us62 >*/
-/* Subroutine */ int us62_()
-{
- /* Initialized data */
-
- static doublereal z6[34] = { 0.,1.,2.,3.,4.,5.,6.,7.,8.,9.,10.,11.,12.,
- 13.,14.,15.,16.,17.,18.,19.,20.,21.,22.,23.,24.,25.,30.,35.,40.,
- 45.,50.,70.,100.,99999. };
- static doublereal p6[34] = { 1013.,898.6,795.,701.2,616.6,540.5,472.2,
- 411.1,356.5,308.,265.,227.,194.,165.8,141.7,121.1,103.5,88.5,
- 75.65,64.67,55.29,47.29,40.47,34.67,29.72,25.49,11.97,5.746,2.871,
- 1.491,.7978,.0552,3.008e-4,0. };
- static doublereal t6[34] = { 288.1,281.6,275.1,268.7,262.2,255.7,249.2,
- 242.7,236.2,229.7,223.2,216.8,216.6,216.6,216.6,216.6,216.6,216.6,
- 216.6,216.6,216.6,217.6,218.6,219.6,220.6,221.6,226.5,236.5,253.4,
- 264.2,270.6,219.7,210.,210. };
- static doublereal wh6[34] = { 5.9,4.2,2.9,1.8,1.1,.64,.38,.21,.12,.046,
- .018,.0082,.0037,.0018,8.4e-4,7.2e-4,6.1e-4,5.2e-4,4.4e-4,4.4e-4,
- 4.4e-4,4.8e-4,5.2e-4,5.7e-4,6.1e-4,6.6e-4,3.8e-4,1.6e-4,6.7e-5,
- 3.2e-5,1.2e-5,1.5e-7,1e-9,0. };
- static doublereal wo6[34] = { 5.4e-5,5.4e-5,5.4e-5,5e-5,4.6e-5,4.6e-5,
- 4.5e-5,4.9e-5,5.2e-5,7.1e-5,9e-5,1.3e-4,1.6e-4,1.7e-4,1.9e-4,
- 2.1e-4,2.4e-4,2.8e-4,3.2e-4,3.5e-4,3.8e-4,3.8e-4,3.9e-4,3.8e-4,
- 3.6e-4,3.4e-4,2e-4,1.1e-4,4.9e-5,1.7e-5,4e-6,8.6e-8,4.3e-11,0. };
-
- integer i__;
-
-/*< integer i >*/
-/*< real z6(34),p6(34),t6(34),wh6(34),wo6(34) >*/
-/*< real z,p,t,wh,wo >*/
-/*< common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34) >*/
-
-/* model: us standard 62 mc clatchey */
-
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< do 1 i=1,34 >*/
- for (i__ = 1; i__ <= 34; ++i__) {
-/*< z(i)=z6(i) >*/
- sixs_atm__1.z__[i__ - 1] = z6[i__ - 1];
-/*< p(i)=p6(i) >*/
- sixs_atm__1.p[i__ - 1] = p6[i__ - 1];
-/*< t(i)=t6(i) >*/
- sixs_atm__1.t[i__ - 1] = t6[i__ - 1];
-/*< wh(i)=wh6(i) >*/
- sixs_atm__1.wh[i__ - 1] = wh6[i__ - 1];
-/*< wo(i)=wo6(i) >*/
- sixs_atm__1.wo[i__ - 1] = wo6[i__ - 1];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* us62_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/US62.f b/Modules/ThirdParty/6S/src/6SV1.0B/US62.f
deleted file mode 100644
index a218947..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/US62.f
+++ /dev/null
@@ -1,51 +0,0 @@
- subroutine us62
-
- integer i
- real z6(34),p6(34),t6(34),wh6(34),wo6(34)
- real z,p,t,wh,wo
- common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34)
-c
-c model: us standard 62 mc clatchey
-c
- data(z6(i),i=1, 34)/
- 1 0., 1., 2., 3., 4., 5., 6., 7., 8.,
- 2 9., 10., 11., 12., 13., 14., 15., 16., 17.,
- 3 18., 19., 20., 21., 22., 23., 24., 25., 30.,
- 4 35., 40., 45., 50., 70., 100.,99999./
- data (p6(i),i=1,34) /
- a1.013e+03,8.986e+02,7.950e+02,7.012e+02,6.166e+02,5.405e+02,
- a4.722e+02,4.111e+02,3.565e+02,3.080e+02,2.650e+02,2.270e+02,
- a1.940e+02,1.658e+02,1.417e+02,1.211e+02,1.035e+02,8.850e+01,
- a7.565e+01,6.467e+01,5.529e+01,4.729e+01,4.047e+01,3.467e+01,
- a2.972e+01,2.549e+01,1.197e+01,5.746e+00,2.871e+00,1.491e+00,
- a7.978e-01,5.520e-02,3.008e-04,0.000e+00/
- data (t6(i),i=1,34) /
- a2.881e+02,2.816e+02,2.751e+02,2.687e+02,2.622e+02,2.557e+02,
- a2.492e+02,2.427e+02,2.362e+02,2.297e+02,2.232e+02,2.168e+02,
- a2.166e+02,2.166e+02,2.166e+02,2.166e+02,2.166e+02,2.166e+02,
- a2.166e+02,2.166e+02,2.166e+02,2.176e+02,2.186e+02,2.196e+02,
- a2.206e+02,2.216e+02,2.265e+02,2.365e+02,2.534e+02,2.642e+02,
- a2.706e+02,2.197e+02,2.100e+02,2.100e+02/
- data (wh6(i),i=1,34) /
- a5.900e+00,4.200e+00,2.900e+00,1.800e+00,1.100e+00,6.400e-01,
- a3.800e-01,2.100e-01,1.200e-01,4.600e-02,1.800e-02,8.200e-03,
- a3.700e-03,1.800e-03,8.400e-04,7.200e-04,6.100e-04,5.200e-04,
- a4.400e-04,4.400e-04,4.400e-04,4.800e-04,5.200e-04,5.700e-04,
- a6.100e-04,6.600e-04,3.800e-04,1.600e-04,6.700e-05,3.200e-05,
- a1.200e-05,1.500e-07,1.000e-09,0.000e+00/
- data (wo6(i),i=1,34) /
- a5.400e-05,5.400e-05,5.400e-05,5.000e-05,4.600e-05,4.600e-05,
- a4.500e-05,4.900e-05,5.200e-05,7.100e-05,9.000e-05,1.300e-04,
- a1.600e-04,1.700e-04,1.900e-04,2.100e-04,2.400e-04,2.800e-04,
- a3.200e-04,3.500e-04,3.800e-04,3.800e-04,3.900e-04,3.800e-04,
- a3.600e-04,3.400e-04,2.000e-04,1.100e-04,4.900e-05,1.700e-05,
- a4.000e-06,8.600e-08,4.300e-11,0.000e+00/
- do 1 i=1,34
- z(i)=z6(i)
- p(i)=p6(i)
- t(i)=t6(i)
- wh(i)=wh6(i)
- wo(i)=wo6(i)
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/US62.h b/Modules/ThirdParty/6S/src/6SV1.0B/US62.h
deleted file mode 100644
index 5edcc0c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/US62.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_us62_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.P b/Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.P
deleted file mode 100644
index 53749e3..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int varsol_(integer *jday, integer *month, doublereal *dsol);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.c b/Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.c
deleted file mode 100644
index 560b741..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.c
+++ /dev/null
@@ -1,69 +0,0 @@
-/* VARSOL.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< >*/
-/* Subroutine */ int varsol_(integer *jday, integer *month, doublereal *dsol)
-{
- /* System generated locals */
- doublereal d__1;
-
- /* Builtin functions */
- double acos(doublereal), cos(doublereal);
-
- /* Local variables */
- integer j;
- doublereal pi, om;
-
-/*< real dsol,pi,om >*/
-/*< integer jday,month,j >*/
-/* calculation of the variability of the solar constant during the */
-/* year. */
-/* jday is the number of the day in the month */
-/* dsol is a multiplicative factor to apply to the mean value of */
-/* solar constant */
-/*< if (month.le.2) goto 1 >*/
- if (*month <= 2) {
- goto L1;
- }
-/*< if (month.gt.8) goto 2 >*/
- if (*month > 8) {
- goto L2;
- }
-/*< j=31*(month-1)-((month-1)/2)-2+jday >*/
- j = (*month - 1) * 31 - (*month - 1) / 2 - 2 + *jday;
-/*< goto 3 >*/
- goto L3;
-/*< 1 j=31*(month-1)+jday >*/
-L1:
- j = (*month - 1) * 31 + *jday;
-/*< goto 3 >*/
- goto L3;
-/*< 2 j=31*(month-1)-((month-2)/2)-2+jday >*/
-L2:
- j = (*month - 1) * 31 - (*month - 2) / 2 - 2 + *jday;
-/*< 3 pi=2.*acos (0.) >*/
-L3:
- pi = acos(0.) * 2.;
-/*< om=(.9856*float(j-4))*pi/180. >*/
- om = (doublereal) (j - 4) * .9856 * pi / 180.;
-/*< dsol=1./((1.-.01673*cos(om))**2) >*/
-/* Computing 2nd power */
- d__1 = 1. - cos(om) * .01673;
- *dsol = 1. / (d__1 * d__1);
-/*< return >*/
- return 0;
-/*< end >*/
-} /* varsol_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.f b/Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.f
deleted file mode 100644
index ea72069..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.f
+++ /dev/null
@@ -1,25 +0,0 @@
- subroutine varsol (jday,month,
- a dsol)
-
- real dsol,pi,om
- integer jday,month,j
-
-c calculation of the variability of the solar constant during the
-c year.
-c jday is the number of the day in the month
-c dsol is a multiplicative factor to apply to the mean value of
-c solar constant
-
- if (month.le.2) goto 1
- if (month.gt.8) goto 2
- j=31*(month-1)-((month-1)/2)-2+jday
- goto 3
- 1 j=31*(month-1)+jday
- goto 3
- 2 j=31*(month-1)-((month-2)/2)-2+jday
-
- 3 pi=2.*acos (0.)
- om=(.9856*float(j-4))*pi/180.
- dsol=1./((1.-.01673*cos(om))**2)
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.h b/Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.h
deleted file mode 100644
index c556878..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VARSOL.h
+++ /dev/null
@@ -1,5 +0,0 @@
-extern int otb_6s_varsol_(
- otb_6s_integer *jday,
- otb_6s_integer *month,
- otb_6s_doublereal *dsol
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.P b/Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.P
deleted file mode 100644
index 0701ed4..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int vegeta_(doublereal *r__);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.c b/Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.c
deleted file mode 100644
index 8f956f5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.c
+++ /dev/null
@@ -1,152 +0,0 @@
-/* VEGETA.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< subroutine vegeta (r) >*/
-/* Subroutine */ int vegeta_(doublereal *r__)
-{
- /* Initialized data */
-
- static doublereal sr[1501] = { 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.,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.,0.,0.,0.,0.,0.,0.,0.,0.,
- 0.,.03,.06,.06,.06,.061,.062,.063,.064,.065,.066,.0675,.069,.0695,
- .07,.071,.072,.073,.074,.076,.078,.079,.08,.0815,.083,.0835,.084,
- .0865,.089,.091,.093,.0955,.098,.1,.102,.103,.104,.105,.106,.108,
- .11,.1125,.115,.117,.119,.12,.121,.123,.125,.126,.127,.1285,.13,
- .1315,.133,.133,.133,.1335,.134,.1335,.133,.132,.131,.129,.127,
- .124,.121,.118,.115,.1125,.11,.1075,.105,.103,.101,.0995,.098,
- .096,.094,.092,.09,.0885,.087,.085,.083,.082,.081,.0805,.08,.079,
- .078,.077,.076,.0755,.075,.0745,.074,.0735,.073,.073,.073,.073,
- .073,.0735,.074,.0765,.079,.0895,.1,.119,.138,.1535,.169,.184,
- .199,.2135,.228,.2435,.259,.2745,.29,.303,.316,.333,.35,.364,.378,
- .3905,.403,.4195,.436,.449,.462,.4745,.487,.498,.509,.51,.511,
- .5125,.514,.5165,.519,.5195,.52,.52,.52,.521,.522,.522,.522,.522,
- .522,.5225,.523,.5235,.524,.524,.524,.524,.524,.524,.524,.525,
- .526,.526,.526,.526,.526,.5265,.527,.527,.527,.527,.527,.5275,
- .528,.528,.528,.528,.528,.5285,.529,.529,.529,.529,.529,.529,.529,
- .53,.531,.531,.531,.531,.531,.531,.531,.531,.531,.5315,.532,.532,
- .532,.532,.532,.532,.532,.532,.532,.5325,.533,.533,.533,.533,.533,
- .5335,.534,.534,.534,.534,.534,.534,.534,.5345,.535,.535,.535,
- .5355,.536,.536,.536,.5365,.537,.537,.537,.5365,.536,.536,.536,
- .5355,.535,.535,.535,.5345,.534,.533,.532,.5315,.531,.5305,.53,
- .529,.528,.528,.528,.5275,.527,.527,.527,.5265,.526,.5255,.525,
- .5245,.524,.523,.522,.5215,.521,.52,.519,.5185,.518,.5165,.515,
- .514,.513,.5125,.512,.511,.51,.509,.508,.5075,.507,.5065,.506,
- .5055,.505,.5035,.502,.501,.5,.499,.498,.497,.496,.4955,.495,.494,
- .493,.4925,.492,.492,.492,.492,.492,.492,.492,.492,.492,.4925,
- .493,.494,.495,.495,.495,.4955,.496,.496,.496,.496,.496,.4965,
- .497,.497,.497,.497,.497,.4975,.498,.498,.498,.4975,.497,.497,
- .497,.497,.497,.496,.495,.494,.493,.4925,.492,.4915,.491,.4895,
- .488,.487,.486,.484,.482,.48,.478,.477,.476,.474,.472,.4695,.467,
- .4645,.462,.4565,.451,.446,.441,.435,.429,.425,.421,.4145,.408,
- .4035,.399,.392,.385,.378,.371,.368,.365,.357,.349,.344,.339,
- .3345,.33,.3255,.321,.315,.309,.3035,.298,.2935,.289,.284,.279,
- .2755,.272,.2695,.267,.263,.259,.255,.251,.247,.243,.238,.233,
- .231,.229,.2265,.224,.221,.218,.2165,.215,.215,.215,.215,.215,
- .215,.215,.217,.219,.221,.223,.226,.229,.2315,.234,.237,.24,.2445,
- .249,.2525,.256,.258,.26,.2635,.267,.27,.273,.276,.279,.2825,.286,
- .2895,.293,.2965,.3,.303,.306,.309,.312,.3155,.319,.322,.325,.328,
- .331,.334,.337,.339,.341,.343,.345,.348,.351,.353,.355,.3575,.36,
- .361,.362,.3645,.367,.368,.369,.3705,.372,.374,.376,.377,.378,
- .3785,.379,.38,.381,.3815,.382,.383,.384,.385,.386,.3865,.387,
- .388,.389,.3885,.388,.388,.388,.388,.388,.388,.388,.388,.388,.388,
- .388,.386,.384,.3835,.383,.382,.381,.3805,.38,.379,.378,.377,.376,
- .375,.374,.3735,.373,.372,.371,.3705,.37,.369,.368,.3675,.367,
- .3665,.366,.3655,.365,.365,.365,.364,.363,.3625,.362,.3615,.361,
- .36,.359,.3585,.358,.3575,.357,.356,.355,.354,.353,.3515,.35,
- .3485,.347,.3465,.346,.3455,.345,.344,.343,.3415,.34,.3385,.337,
- .336,.335,.333,.331,.3305,.33,.3255,.321,.3165,.312,.304,.296,
- .2845,.273,.247,.221,.2035,.186,.172,.158,.148,.138,.1335,.129,
- .125,.121,.1155,.11,.106,.102,.0985,.095,.093,.091,.09,.089,.0875,
- .086,.086,.086,.085,.084,.084,.084,.084,.084,.085,.086,.0865,.087,
- .09,.093,.0955,.098,.1015,.105,.1095,.114,.115,.116,.12,.124,
- .1285,.133,.1335,.134,.1375,.141,.144,.147,.149,.151,.1535,.156,
- .159,.162,.164,.166,.168,.17,.172,.174,.1745,.175,.1765,.178,
- .1795,.181,.183,.185,.186,.187,.1875,.188,.19,.192,.194,.196,
- .1975,.199,.2,.201,.203,.205,.2065,.208,.21,.212,.2125,.213,.2135,
- .214,.2155,.217,.218,.219,.2195,.22,.2205,.221,.2225,.224,.2255,
- .227,.228,.229,.23,.231,.232,.233,.235,.237,.2375,.238,.2385,.239,
- .24,.241,.2415,.242,.2425,.243,.244,.245,.245,.245,.2455,.246,
- .247,.248,.248,.248,.249,.25,.248,.246,.244,.242,.24,.238,.236,
- .234,.232,.23,.228,.226,.224,.222,.22,.218,.216,.214,.212,.21,
- .208,.206,.204,.202,.2,.198,.196,.194,.192,.19,.188,.186,.184,
- .182,.18,.178,.176,.174,.172,.17,.168,.166,.164,.162,.16,.158,
- .156,.154,.152,.15,.148,.146,.144,.142,.14,.138,.136,.134,.132,
- .13,.128,.126,.124,.122,.12,.118,.116,.114,.112,.11,.108,.106,
- .104,.102,.1,.098,.096,.094,.092,.09,.088,.086,.084,.082,.08,.078,
- .076,.074,.072,.07,.068,.066,.064,.062,.06,.058,.056,.054,.052,
- .05,.048,.046,.044,.042,.04,.038,.036,.034,.032,.03,.028,.026,
- .024,.022,.02,.018,.016,.014,.012,.01,.01,.01,.01,.01,.01,.01,.01,
- .01,.01,.01,.01,.01,.01,.01,.01,.01,.01,.01,.01,.01,.01,.01,.01,
- .01,.01,.01,.01,.01,.01,.01,.01,.01,.01,.01,.01,.01,.01,.01,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.,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.,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.,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.,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.,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.,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.,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.,
- 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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,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.,0.,0.,
- 0.,0.,0.,0.,0.,0.,0.,0. };
-
- integer i__;
-
-/*< real sr(1501),r(1501) >*/
-/*< integer l,i >*/
-/* vegetation average reflectance */
-/* warning : values of dry sand ground reflectance are given */
-/* between 0.4 and 2.2 microns. outside this interval the */
-/* values are set to 0. */
-/*< >*/
- /* Parameter adjustments */
- --r__;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< do 1 i=1,1501 >*/
- for (i__ = 1; i__ <= 1501; ++i__) {
-/*< r(i)=sr(i) >*/
- r__[i__] = sr[i__ - 1];
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* vegeta_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.f b/Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.f
deleted file mode 100644
index c67fb2b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.f
+++ /dev/null
@@ -1,150 +0,0 @@
- subroutine vegeta (r)
- real sr(1501),r(1501)
- integer l,i
-
-c vegetation average reflectance
-c warning : values of dry sand ground reflectance are given
-c between 0.4 and 2.2 microns. outside this interval the
-c values are set to 0.
-
- data (sr(l),l=1,184)/ 58*0.,
- a .00000, .03000, .06000, .06000, .06000, .06100, .06200,
- a .06300, .06400, .06500, .06600, .06750, .06900, .06950,
- a .07000, .07100, .07200, .07300, .07400, .07600, .07800,
- a .07900, .08000, .08150, .08300, .08350, .08400, .08650,
- a .08900, .09100, .09300, .09550, .09800, .10000, .10200,
- a .10300, .10400, .10500, .10600, .10800, .11000, .11250,
- a .11500, .11700, .11900, .12000, .12100, .12300, .12500,
- a .12600, .12700, .12850, .13000, .13150, .13300, .13300,
- a .13300, .13350, .13400, .13350, .13300, .13200, .13100,
- a .12900, .12700, .12400, .12100, .11800, .11500, .11250,
- a .11000, .10750, .10500, .10300, .10100, .09950, .09800,
- a .09600, .09400, .09200, .09000, .08850, .08700, .08500,
- a .08300, .08200, .08100, .08050, .08000, .07900, .07800,
- a .07700, .07600, .07550, .07500, .07450, .07400, .07350,
- a .07300, .07300, .07300, .07300, .07300, .07350, .07400,
- a .07650, .07900, .08950, .10000, .11900, .13800, .15350,
- a .16900, .18400, .19900, .21350, .22800, .24350, .25900,
- a .27450, .29000, .30300, .31600, .33300, .35000, .36400/
- data (sr(l),l=185,310)/
- a .37800, .39050, .40300, .41950, .43600, .44900, .46200,
- a .47450, .48700, .49800, .50900, .51000, .51100, .51250,
- a .51400, .51650, .51900, .51950, .52000, .52000, .52000,
- a .52100, .52200, .52200, .52200, .52200, .52200, .52250,
- a .52300, .52350, .52400, .52400, .52400, .52400, .52400,
- a .52400, .52400, .52500, .52600, .52600, .52600, .52600,
- a .52600, .52650, .52700, .52700, .52700, .52700, .52700,
- a .52750, .52800, .52800, .52800, .52800, .52800, .52850,
- a .52900, .52900, .52900, .52900, .52900, .52900, .52900,
- a .53000, .53100, .53100, .53100, .53100, .53100, .53100,
- a .53100, .53100, .53100, .53150, .53200, .53200, .53200,
- a .53200, .53200, .53200, .53200, .53200, .53200, .53250,
- a .53300, .53300, .53300, .53300, .53300, .53350, .53400,
- a .53400, .53400, .53400, .53400, .53400, .53400, .53450,
- a .53500, .53500, .53500, .53550, .53600, .53600, .53600,
- a .53650, .53700, .53700, .53700, .53650, .53600, .53600,
- a .53600, .53550, .53500, .53500, .53500, .53450, .53400,
- a .53300, .53200, .53150, .53100, .53050, .53000, .52900/
- data (sr(l),l=311,408)/
- a .52800, .52800, .52800, .52750, .52700, .52700, .52700,
- a .52650, .52600, .52550, .52500, .52450, .52400, .52300,
- a .52200, .52150, .52100, .52000, .51900, .51850, .51800,
- a .51650, .51500, .51400, .51300, .51250, .51200, .51100,
- a .51000, .50900, .50800, .50750, .50700, .50650, .50600,
- a .50550, .50500, .50350, .50200, .50100, .50000, .49900,
- a .49800, .49700, .49600, .49550, .49500, .49400, .49300,
- a .49250, .49200, .49200, .49200, .49200, .49200, .49200,
- a .49200, .49200, .49200, .49250, .49300, .49400, .49500,
- a .49500, .49500, .49550, .49600, .49600, .49600, .49600,
- a .49600, .49650, .49700, .49700, .49700, .49700, .49700,
- a .49750, .49800, .49800, .49800, .49750, .49700, .49700,
- a .49700, .49700, .49700, .49600, .49500, .49400, .49300,
- a .49250, .49200, .49150, .49100, .48950, .48800, .48700/
- data (sr(l),l=409,534)/
- a .48600, .48400, .48200, .48000, .47800, .47700, .47600,
- a .47400, .47200, .46950, .46700, .46450, .46200, .45650,
- a .45100, .44600, .44100, .43500, .42900, .42500, .42100,
- a .41450, .40800, .40350, .39900, .39200, .38500, .37800,
- a .37100, .36800, .36500, .35700, .34900, .34400, .33900,
- a .33450, .33000, .32550, .32100, .31500, .30900, .30350,
- a .29800, .29350, .28900, .28400, .27900, .27550, .27200,
- a .26950, .26700, .26300, .25900, .25500, .25100, .24700,
- a .24300, .23800, .23300, .23100, .22900, .22650, .22400,
- a .22100, .21800, .21650, .21500, .21500, .21500, .21500,
- a .21500, .21500, .21500, .21700, .21900, .22100, .22300,
- a .22600, .22900, .23150, .23400, .23700, .24000, .24450,
- a .24900, .25250, .25600, .25800, .26000, .26350, .26700,
- a .27000, .27300, .27600, .27900, .28250, .28600, .28950,
- a .29300, .29650, .30000, .30300, .30600, .30900, .31200,
- a .31550, .31900, .32200, .32500, .32800, .33100, .33400,
- a .33700, .33900, .34100, .34300, .34500, .34800, .35100,
- a .35300, .35500, .35750, .36000, .36100, .36200, .36450/
- data (sr(l),l=535,660)/
- a .36700, .36800, .36900, .37050, .37200, .37400, .37600,
- a .37700, .37800, .37850, .37900, .38000, .38100, .38150,
- a .38200, .38300, .38400, .38500, .38600, .38650, .38700,
- a .38800, .38900, .38850, .38800, .38800, .38800, .38800,
- a .38800, .38800, .38800, .38800, .38800, .38800, .38800,
- a .38600, .38400, .38350, .38300, .38200, .38100, .38050,
- a .38000, .37900, .37800, .37700, .37600, .37500, .37400,
- a .37350, .37300, .37200, .37100, .37050, .37000, .36900,
- a .36800, .36750, .36700, .36650, .36600, .36550, .36500,
- a .36500, .36500, .36400, .36300, .36250, .36200, .36150,
- a .36100, .36000, .35900, .35850, .35800, .35750, .35700,
- a .35600, .35500, .35400, .35300, .35150, .35000, .34850,
- a .34700, .34650, .34600, .34550, .34500, .34400, .34300,
- a .34150, .34000, .33850, .33700, .33600, .33500, .33300,
- a .33100, .33050, .33000, .32550, .32100, .31650, .31200,
- a .30400, .29600, .28450, .27300, .24700, .22100, .20350,
- a .18600, .17200, .15800, .14800, .13800, .13350, .12900,
- a .12500, .12100, .11550, .11000, .10600, .10200, .09850/
- data (sr(l),l=661,758)/
- a .09500, .09300, .09100, .09000, .08900, .08750, .08600,
- a .08600, .08600, .08500, .08400, .08400, .08400, .08400,
- a .08400, .08500, .08600, .08650, .08700, .09000, .09300,
- a .09550, .09800, .10150, .10500, .10950, .11400, .11500,
- a .11600, .12000, .12400, .12850, .13300, .13350, .13400,
- a .13750, .14100, .14400, .14700, .14900, .15100, .15350,
- a .15600, .15900, .16200, .16400, .16600, .16800, .17000,
- a .17200, .17400, .17450, .17500, .17650, .17800, .17950,
- a .18100, .18300, .18500, .18600, .18700, .18750, .18800,
- a .19000, .19200, .19400, .19600, .19750, .19900, .20000,
- a .20100, .20300, .20500, .20650, .20800, .21000, .21200,
- a .21250, .21300, .21350, .21400, .21550, .21700, .21800,
- a .21900, .21950, .22000, .22050, .22100, .22250, .22400,
- a .22550, .22700, .22800, .22900, .23000, .23100, .23200/
- data (sr(l),l=759,884)/
- a .23300, .23500, .23700, .23750, .23800, .23850, .23900,
- a .24000, .24100, .24150, .24200, .24250, .24300, .24400,
- a .24500, .24500, .24500, .24550, .24600, .24700, .24800,
- a .24800, .24800, .24900, .25000, .24800, .24600, .24400,
- a .24200, .24000, .23800, .23600, .23400, .23200, .23000,
- a .22800, .22600, .22400, .22200, .22000, .21800, .21600,
- a .21400, .21200, .21000, .20800, .20600, .20400, .20200,
- a .20000, .19800, .19600, .19400, .19200, .19000, .18800,
- a .18600, .18400, .18200, .18000, .17800, .17600, .17400,
- a .17200, .17000, .16800, .16600, .16400, .16200, .16000,
- a .15800, .15600, .15400, .15200, .15000, .14800, .14600,
- a .14400, .14200, .14000, .13800, .13600, .13400, .13200,
- a .13000, .12800, .12600, .12400, .12200, .12000, .11800,
- a .11600, .11400, .11200, .11000, .10800, .10600, .10400,
- a .10200, .10000, .09800, .09600, .09400, .09200, .09000,
- a .08800, .08600, .08400, .08200, .08000, .07800, .07600,
- a .07400, .07200, .07000, .06800, .06600, .06400, .06200,
- a .06000, .05800, .05600, .05400, .05200, .05000, .04800/
- data (sr(l),l=885,1501)/
- a .04600, .04400, .04200, .04000, .03800, .03600, .03400,
- a .03200, .03000, .02800, .02600, .02400, .02200, .02000,
- a .01800, .01600, .01400, .01200, .01000, .01000, .01000,
- a .01000, .01000, .01000, .01000, .01000, .01000, .01000,
- a .01000, .01000, .01000, .01000, .01000, .01000, .01000,
- a .01000, .01000, .01000, .01000, .01000, .01000, .01000,
- a .01000, .01000, .01000, .01000, .01000, .01000, .01000,
- a .01000, .01000, .01000, .01000, .01000, .01000, .01000,
- a .01000,
- a 560*0./
- do 1 i=1,1501
- r(i)=sr(i)
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.h b/Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.h
deleted file mode 100644
index 312e015..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VEGETA.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_vegeta_(
- otb_6s_doublereal *r__
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.P b/Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.P
deleted file mode 100644
index 1653e36..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int versalbe_(integer *option, doublereal *optics, doublereal *struct__, doublereal *brdfalb);
-/* comlen sixs_ier__ 8 */
-/*:ref: gauss_ 14 5 7 7 7 7 4 */
-/*:ref: mvbp1_ 7 5 4 7 7 7 4 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.c b/Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.c
deleted file mode 100644
index c1e6072..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.c
+++ /dev/null
@@ -1,362 +0,0 @@
-/* VERSALBE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-/* Table of constant values */
-
-static integer c__24 = 24;
-static integer c__48 = 48;
-static integer c__1 = 1;
-static integer c__5 = 5;
-
-/*< >*/
-/* Subroutine */ int versalbe_(integer *option, doublereal *optics,
- doublereal *struct__, doublereal *brdfalb)
-{
- /* Initialized data */
-
- static char fmt[60*6+1] = "(i10) \
- (e10.3) (\
-1x, a10, 6 (i8, 2x)) (1x, a10, 6 (f8.3\
-, 2x)) (1x, a, f9.6) \
- (1x, a) \
- ";
- static char errmsg[80*15+1] = "101: option (1) not an acceptable value, \
-reset to 1 102: option (2) not an acceptable val\
-ue, reset to 1 103: option (3) not an acceptable\
- value, reset to 1 104: option (4) not an accept\
-able value, reset to 1 105: option (5) not an ac\
-ceptable value, reset to 1 201: illumination zen\
-ith angle (angles (1)) not acceptable 202: observation \
-zenith angle (angles (2)) not acceptable 203: relative\
- azimuth angle (angles (3)) not acceptable 301: sing\
-le scattering albedo (optics (1)) not acceptable 302: \
-phase function parameter (optics (2) not acceptable 4\
-01: leaf area density (struct (1)) not acceptable \
- 402: radius of sun flecks (struct (2)) not acceptable \
- 411: kappa1 (struct (3) with option (3) = 0) not acceptable \
- 412: kappa2 (struct (4) with option (3) = 0) not acceptable \
- 421: chil (struct (3) with option (3) = 1) not acceptable \
- ";
-
- /* System generated locals */
- cilist ci__1;
-
- /* Builtin functions */
- double atan(doublereal), cos(doublereal), sin(doublereal), acos(
- doublereal);
- integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe(),
- s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen),
- e_wsle();
-
- /* Local variables */
- integer j, k, l;
- doublereal y, fa[48], fi, ta[24], pi, si1, si2, mu1, mu2, wfa[48], wta[24]
- , phi1, phi2, pond, summ, teta1, teta2;
- extern doublereal mvbp1_(integer *, doublereal *, doublereal *,
- doublereal *, integer *);
- extern /* Subroutine */ int gauss_(doublereal *, doublereal *, doublereal
- *, doublereal *, integer *);
- integer error;
- doublereal angles[3];
-
- /* Fortran I/O blocks */
- static cilist io___24 = { 0, 0, 0, 0, 0 };
- static cilist io___25 = { 0, 0, 0, 0, 0 };
-
-
-
-/* interface between the computer code of the model of verstraete and pin
-*/
-/* the computer code is courtesy of michel verstraete. */
-/* see subroutine mvbp1 for a complete description */
-
-
-/* variables angles, error, optics, option, struct and mvbp1 are fully */
-/* described in the file mvbp1.for. */
-/* angdeg angles in degrees */
-/* brdf variable to receive the bidirectional reflectance */
-/* value returned by the function mvbp1. */
-/* fmt formats. */
-/* errmsg error messages. */
-/*< parameter (nta=24,nfa=48) >*/
-/*< real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa) >*/
-/*< real mu1,mu2,fi >*/
-/*< real pi,y >*/
-
-/*< integer option(5), error >*/
-/*< real angles(3), optics(3), struct(4) >*/
-/*< real mvbp1 >*/
-/*< character*60 fmt (6) >*/
-/*< character*80 errmsg (15) >*/
-/*< external mvbp1 >*/
-/*< logical ier >*/
-/*< real brdfalb,summ,si2,si1,pond >*/
-/*< integer iwr,k,j,l >*/
-/*< common/sixs_ier/iwr,ier >*/
-/*< data fmt (1) /'(i10)'/ >*/
- /* Parameter adjustments */
- --struct__;
- --optics;
- --option;
-
- /* Function Body */
-/*< data fmt (2) /'(e10.3)'/ >*/
-/*< data fmt (3) /'(1x, a10, 6 (i8, 2x))'/ >*/
-/*< data fmt (4) /'(1x, a10, 6 (f8.3, 2x))'/ >*/
-/*< data fmt (5) /'(1x, a, f9.6)'/ >*/
-/*< data fmt (6) /'(1x, a)'/ >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< pi=atan(1.)*4. >*/
- pi = atan(1.) * 4.;
-/*< teta1=0. >*/
- teta1 = 0.;
-/*< teta2=pi/2. >*/
- teta2 = pi / 2.;
-/*< call gauss(teta1,teta2,ta,wta,nta) >*/
- gauss_(&teta1, &teta2, ta, wta, &c__24);
-/*< phi1=0. >*/
- phi1 = 0.;
-/*< phi2=2.*pi >*/
- phi2 = pi * 2.;
-/*< call gauss(phi1,phi2,fa,wfa,nfa) >*/
- gauss_(&phi1, &phi2, fa, wfa, &c__48);
-/*< brdfalb=0. >*/
- *brdfalb = 0.;
-/*< summ=0. >*/
- summ = 0.;
-/*< do 1 k=1,nfa >*/
- for (k = 1; k <= 48; ++k) {
-/*< do 2 j=1,nta >*/
- for (j = 1; j <= 24; ++j) {
-/*< do 3 l=1,nta >*/
- for (l = 1; l <= 24; ++l) {
-/*< mu2=cos(ta(j)) >*/
- mu2 = cos(ta[j - 1]);
-/*< mu1=cos(ta(l)) >*/
- mu1 = cos(ta[l - 1]);
-/*< si2=sin(ta(j)) >*/
- si2 = sin(ta[j - 1]);
-/*< si1=sin(ta(l)) >*/
- si1 = sin(ta[l - 1]);
-/*< fi=fa(k) >*/
- fi = fa[k - 1];
-/* compute geometrical parameter for mvbp1 */
-/*< angles(1)=acos(mu1) >*/
- angles[0] = acos(mu1);
-/*< angles(2)=acos(mu2) >*/
- angles[1] = acos(mu2);
-/*< angles(3)=fi >*/
- angles[2] = fi;
-/*< y=mvbp1(option,angles,optics,struct,error) >*/
- y = mvbp1_(&option[1], angles, &optics[1], &struct__[1], &
- error);
-/*< if (error .eq. 101) write (iwr, fmt (6)) errmsg (1) >*/
- if (error == 101) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 102) write (iwr, fmt (6)) errmsg (2) >*/
- if (error == 102) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 80, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 103) write (iwr, fmt (6)) errmsg (3) >*/
- if (error == 103) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 160, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 104) write (iwr, fmt (6)) errmsg (4) >*/
- if (error == 104) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 240, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 105) write (iwr, fmt (6)) errmsg (5) >*/
- if (error == 105) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 320, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 201) then >*/
- if (error == 201) {
-/*< write (iwr, fmt (6)) errmsg (6) >*/
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 400, 80L);
- e_wsfe();
-/*< write(iwr,*) angles(1) >*/
- io___24.ciunit = sixs_ier__1.iwr;
- s_wsle(&io___24);
- do_lio(&c__5, &c__1, (char *)&angles[0], (ftnlen)sizeof(
- doublereal));
- e_wsle();
-/*< endif >*/
- }
-/*< if (error .eq. 202) then >*/
- if (error == 202) {
-/*< write(iwr,fmt (6)) errmsg (7) >*/
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 480, 80L);
- e_wsfe();
-/*< write(iwr,*) angles(2) >*/
- io___25.ciunit = sixs_ier__1.iwr;
- s_wsle(&io___25);
- do_lio(&c__5, &c__1, (char *)&angles[1], (ftnlen)sizeof(
- doublereal));
- e_wsle();
-/*< endif >*/
- }
-/*< if (error .eq. 203) write (iwr, fmt (6)) errmsg (8) >*/
- if (error == 203) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 560, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 301) write (iwr, fmt (6)) errmsg (9) >*/
- if (error == 301) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 640, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 302) write (iwr, fmt (6)) errmsg (10) >*/
- if (error == 302) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 720, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 401) write (iwr, fmt (6)) errmsg (11) >*/
- if (error == 401) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 800, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 402) write (iwr, fmt (6)) errmsg (12) >*/
- if (error == 402) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 880, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 411) write (iwr, fmt (6)) errmsg (13) >*/
- if (error == 411) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 960, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 412) write (iwr, fmt (6)) errmsg (14) >*/
- if (error == 412) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 1040, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 421) write (iwr, fmt (6)) errmsg (15) >*/
- if (error == 421) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 1120, 80L);
- e_wsfe();
- }
-/*< pond=mu1*mu2*si1*si2*wfa(k)*wta(j)*wta(l) >*/
- pond = mu1 * mu2 * si1 * si2 * wfa[k - 1] * wta[j - 1] * wta[
- l - 1];
-/*< brdfalb=brdfalb+pond*y >*/
- *brdfalb += pond * y;
-/*< summ=summ+pond >*/
- summ += pond;
-/*< 3 continue >*/
-/* L3: */
- }
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< brdfalb=brdfalb/summ >*/
- *brdfalb /= summ;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* versalbe_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.f b/Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.f
deleted file mode 100644
index 6aaa1ce..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.f
+++ /dev/null
@@ -1,119 +0,0 @@
- subroutine versalbe(option,optics,struct,
- s brdfalb)
-c
-c interface between the computer code of the model of verstraete and pin
-c the computer code is courtesy of michel verstraete.
-c see subroutine mvbp1 for a complete description
-c
-c
-c variables angles, error, optics, option, struct and mvbp1 are fully
-c described in the file mvbp1.for.
-c angdeg angles in degrees
-c brdf variable to receive the bidirectional reflectance
-c value returned by the function mvbp1.
-c fmt formats.
-c errmsg error messages.
- parameter (nta=24,nfa=48)
- real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa)
- real mu1,mu2,fi
- real pi,y
-c
- integer option(5), error
- real angles(3), optics(3), struct(4)
- real mvbp1
- character*60 fmt (6)
- character*80 errmsg (15)
- external mvbp1
- logical ier
- real brdfalb,summ,si2,si1,pond
- integer iwr,k,j,l
- common/sixs_ier/iwr,ier
- data fmt (1) /'(i10)'/
- data fmt (2) /'(e10.3)'/
- data fmt (3) /'(1x, a10, 6 (i8, 2x))'/
- data fmt (4) /'(1x, a10, 6 (f8.3, 2x))'/
- data fmt (5) /'(1x, a, f9.6)'/
- data fmt (6) /'(1x, a)'/
- data errmsg (1)
- * /'101: option (1) not an acceptable value, reset to 1'/
- data errmsg (2)
- * /'102: option (2) not an acceptable value, reset to 1'/
- data errmsg (3)
- * /'103: option (3) not an acceptable value, reset to 1'/
- data errmsg (4)
- * /'104: option (4) not an acceptable value, reset to 1'/
- data errmsg (5)
- * /'105: option (5) not an acceptable value, reset to 1'/
- data errmsg (6)
- * /'201: illumination zenith angle (angles (1)) not acceptable'/
- data errmsg (7)
- * /'202: observation zenith angle (angles (2)) not acceptable'/
- data errmsg (8)
- * /'203: relative azimuth angle (angles (3)) not acceptable'/
- data errmsg (9)
- * /'301: single scattering albedo (optics (1)) not acceptable'/
- data errmsg (10)
- * /'302: phase function parameter (optics (2) not acceptable'/
- data errmsg (11)
- * /'401: leaf area density (struct (1)) not acceptable'/
- data errmsg (12)
- * /'402: radius of sun flecks (struct (2)) not acceptable'/
- data errmsg (13)
- * /'411: kappa1 (struct (3) with option (3) = 0) not acceptable'/
- data errmsg (14)
- * /'412: kappa2 (struct (4) with option (3) = 0) not acceptable'/
- data errmsg (15)
- * /'421: chil (struct (3) with option (3) = 1) not acceptable'/
-c
- pi=atan(1.)*4.
- teta1=0.
- teta2=pi/2.
- call gauss(teta1,teta2,ta,wta,nta)
- phi1=0.
- phi2=2.*pi
- call gauss(phi1,phi2,fa,wfa,nfa)
- brdfalb=0.
- summ=0.
- do 1 k=1,nfa
- do 2 j=1,nta
- do 3 l=1,nta
- mu2=cos(ta(j))
- mu1=cos(ta(l))
- si2=sin(ta(j))
- si1=sin(ta(l))
- fi=fa(k)
-c compute geometrical parameter for mvbp1
- angles(1)=acos(mu1)
- angles(2)=acos(mu2)
- angles(3)=fi
- y=mvbp1(option,angles,optics,struct,error)
- if (error .eq. 101) write (iwr, fmt (6)) errmsg (1)
- if (error .eq. 102) write (iwr, fmt (6)) errmsg (2)
- if (error .eq. 103) write (iwr, fmt (6)) errmsg (3)
- if (error .eq. 104) write (iwr, fmt (6)) errmsg (4)
- if (error .eq. 105) write (iwr, fmt (6)) errmsg (5)
- if (error .eq. 201) then
- write (iwr, fmt (6)) errmsg (6)
- write(iwr,*) angles(1)
- endif
- if (error .eq. 202) then
- write(iwr,fmt (6)) errmsg (7)
- write(iwr,*) angles(2)
- endif
- if (error .eq. 203) write (iwr, fmt (6)) errmsg (8)
- if (error .eq. 301) write (iwr, fmt (6)) errmsg (9)
- if (error .eq. 302) write (iwr, fmt (6)) errmsg (10)
- if (error .eq. 401) write (iwr, fmt (6)) errmsg (11)
- if (error .eq. 402) write (iwr, fmt (6)) errmsg (12)
- if (error .eq. 411) write (iwr, fmt (6)) errmsg (13)
- if (error .eq. 412) write (iwr, fmt (6)) errmsg (14)
- if (error .eq. 421) write (iwr, fmt (6)) errmsg (15)
- pond=mu1*mu2*si1*si2*wfa(k)*wta(j)*wta(l)
- brdfalb=brdfalb+pond*y
- summ=summ+pond
- 3 continue
- 2 continue
- 1 continue
- brdfalb=brdfalb/summ
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.h b/Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.h
deleted file mode 100644
index 954732b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VERSALBE.h
+++ /dev/null
@@ -1,6 +0,0 @@
-extern int otb_6s_versalbe_(
- otb_6s_integer *option,
- otb_6s_doublereal *optics,
- otb_6s_doublereal *struct__,
- otb_6s_doublereal *brdfalb
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.P b/Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.P
deleted file mode 100644
index 9026664..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.P
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int versbrdf_(integer *option, doublereal *optics, doublereal *struct__, integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal *brdfint);
-/* comlen sixs_ier__ 8 */
-/*:ref: mvbp1_ 7 5 4 7 7 7 4 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.c b/Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.c
deleted file mode 100644
index 7914cc7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.c
+++ /dev/null
@@ -1,325 +0,0 @@
-/* VERSBRDF.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-/* Table of constant values */
-
-static integer c__1 = 1;
-
-/*< >*/
-/* Subroutine */ int versbrdf_(integer *option, doublereal *optics,
- doublereal *struct__, integer *mu, integer *np, doublereal *rm,
- doublereal *rp, doublereal *brdfint)
-{
- /* Initialized data */
-
- static char fmt[60*6+1] = "(i10) \
- (e10.3) (\
-1x, a10, 6 (i8, 2x)) (1x, a10, 6 (f8.3\
-, 2x)) (1x, a, f9.6) \
- (1x, a) \
- ";
- static char errmsg[80*15+1] = "101: option (1) not an acceptable value, \
-reset to 1 102: option (2) not an acceptable val\
-ue, reset to 1 103: option (3) not an acceptable\
- value, reset to 1 104: option (4) not an accept\
-able value, reset to 1 105: option (5) not an ac\
-ceptable value, reset to 1 201: illumination zen\
-ith angle (angles (1)) not acceptable 202: observation \
-zenith angle (angles (2)) not acceptable 203: relative\
- azimuth angle (angles (3)) not acceptable 301: sing\
-le scattering albedo (optics (1)) not acceptable 302: \
-phase function parameter (optics (2) not acceptable 4\
-01: leaf area density (struct (1)) not acceptable \
- 402: radius of sun flecks (struct (2)) not acceptable \
- 411: kappa1 (struct (3) with option (3) = 0) not acceptable \
- 412: kappa2 (struct (4) with option (3) = 0) not acceptable \
- 421: chil (struct (3) with option (3) = 1) not acceptable \
- ";
-
- /* System generated locals */
- integer rm_offset, brdfint_dim1, brdfint_offset, i__1, i__2;
- cilist ci__1;
-
- /* Builtin functions */
- double atan(doublereal), acos(doublereal);
- integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe();
-
- /* Local variables */
- integer j, k;
- doublereal fi, pi, mu1, mu2;
- extern doublereal mvbp1_(integer *, doublereal *, doublereal *,
- doublereal *, integer *);
- integer error;
- doublereal angles[3];
-
-
-/* interface between the computer code of the model of verstraete and pin
-*/
-/* the computer code is courtesy of michel verstraete. */
-/* see subroutine mvbp1 for a complete description */
-
-
-/* variables angles, error, optics, option, struct and mvbp1 are fully */
-/* described in the file mvbp1.for. */
-/* angdeg angles in degrees */
-/* brdf variable to receive the bidirectional reflectance */
-/* value returned by the function mvbp1. */
-/* fmt formats. */
-/* errmsg error messages. */
-/*< integer np,mu >*/
-/*< real rm(-mu:mu),rp(np),brdfint(-mu:mu,np) >*/
-/*< integer option (5), error >*/
-/*< real angles (3), optics (3), struct (4) >*/
-/*< real mvbp1 >*/
-/*< character*60 fmt (6) >*/
-/*< character*80 errmsg (15) >*/
-/*< external mvbp1 >*/
-/*< logical ier >*/
-/*< integer iwr,k,j >*/
-/* THOMAS deplacement variable avant declaration data */
-/*< real mu1,mu2,fi >*/
-/*< real pi >*/
-/*< common/sixs_ier/iwr,ier >*/
-/*< data fmt (1) /'(i10)'/ >*/
- /* Parameter adjustments */
- --option;
- --optics;
- --struct__;
- rm_offset = -(*mu);
- rm -= rm_offset;
- brdfint_dim1 = *mu - (-(*mu)) + 1;
- brdfint_offset = -(*mu) + brdfint_dim1;
- brdfint -= brdfint_offset;
- --rp;
-
- /* Function Body */
-/*< data fmt (2) /'(e10.3)'/ >*/
-/*< data fmt (3) /'(1x, a10, 6 (i8, 2x))'/ >*/
-/*< data fmt (4) /'(1x, a10, 6 (f8.3, 2x))'/ >*/
-/*< data fmt (5) /'(1x, a, f9.6)'/ >*/
-/*< data fmt (6) /'(1x, a)'/ >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* THOMAS deplacement variable avant declaration data */
-/* real mu1,mu2,fi */
-/* real pi */
-/*< pi=atan(1.)*4. >*/
- pi = atan(1.) * 4.;
-/*< mu1=rm(0) >*/
- mu1 = rm[0];
-/*< do 1 k=1,np >*/
- i__1 = *np;
- for (k = 1; k <= i__1; ++k) {
-/*< do 2 j=1,mu >*/
- i__2 = *mu;
- for (j = 1; j <= i__2; ++j) {
-/*< mu2=rm(j) >*/
- mu2 = rm[j];
-/*< if (j.eq.mu) then >*/
- if (j == *mu) {
-/*< fi=rm(-mu) >*/
- fi = rm[-(*mu)];
-/*< else >*/
- } else {
-/*< fi=rp(k)+rm(-mu) >*/
- fi = rp[k] + rm[-(*mu)];
-/*< endif >*/
- }
-/* compute geometrical parameter for mvbp1 */
-/*< angles(1)=acos(mu1) >*/
- angles[0] = acos(mu1);
-/*< angles(2)=acos(mu2) >*/
- angles[1] = acos(mu2);
-/*< if (fi.lt.0.) fi=fi+2.*pi >*/
- if (fi < 0.) {
- fi += pi * 2.;
- }
-/*< if (fi.gt.(2.*pi)) fi=fi-2.*pi >*/
- if (fi > pi * 2.) {
- fi -= pi * 2.;
- }
-/*< angles(3)=fi >*/
- angles[2] = fi;
-/*< brdfint(j,k)=mvbp1(option,angles,optics,struct,error) >*/
- brdfint[j + k * brdfint_dim1] = mvbp1_(&option[1], angles, &
- optics[1], &struct__[1], &error);
-/*< if (error .eq. 101) write (iwr, fmt (6)) errmsg (1) >*/
- if (error == 101) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 102) write (iwr, fmt (6)) errmsg (2) >*/
- if (error == 102) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 80, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 103) write (iwr, fmt (6)) errmsg (3) >*/
- if (error == 103) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 160, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 104) write (iwr, fmt (6)) errmsg (4) >*/
- if (error == 104) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 240, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 105) write (iwr, fmt (6)) errmsg (5) >*/
- if (error == 105) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 320, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 201) write (iwr, fmt (6)) errmsg (6) >*/
- if (error == 201) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 400, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 202) write (iwr, fmt (6)) errmsg (7) >*/
- if (error == 202) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 480, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 203) write (iwr, fmt (6)) errmsg (8) >*/
- if (error == 203) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 560, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 301) write (iwr, fmt (6)) errmsg (9) >*/
- if (error == 301) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 640, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 302) write (iwr, fmt (6)) errmsg (10) >*/
- if (error == 302) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 720, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 401) write (iwr, fmt (6)) errmsg (11) >*/
- if (error == 401) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 800, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 402) write (iwr, fmt (6)) errmsg (12) >*/
- if (error == 402) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 880, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 411) write (iwr, fmt (6)) errmsg (13) >*/
- if (error == 411) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 960, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 412) write (iwr, fmt (6)) errmsg (14) >*/
- if (error == 412) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 1040, 80L);
- e_wsfe();
- }
-/*< if (error .eq. 421) write (iwr, fmt (6)) errmsg (15) >*/
- if (error == 421) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = fmt + 300;
- s_wsfe(&ci__1);
- do_fio(&c__1, errmsg + 1120, 80L);
- e_wsfe();
- }
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* versbrdf_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.f b/Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.f
deleted file mode 100644
index a0d67f8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.f
+++ /dev/null
@@ -1,108 +0,0 @@
- subroutine versbrdf(option,optics,struct,mu,np,rm,rp,
- s brdfint)
-c
-c interface between the computer code of the model of verstraete and pin
-c the computer code is courtesy of michel verstraete.
-c see subroutine mvbp1 for a complete description
-c
-c
-c variables angles, error, optics, option, struct and mvbp1 are fully
-c described in the file mvbp1.for.
-c angdeg angles in degrees
-c brdf variable to receive the bidirectional reflectance
-c value returned by the function mvbp1.
-c fmt formats.
-c errmsg error messages.
-
- integer np,mu
- real rm(-mu:mu),rp(np),brdfint(-mu:mu,np)
- integer option (5), error
- real angles (3), optics (3), struct (4)
- real mvbp1
- character*60 fmt (6)
- character*80 errmsg (15)
- external mvbp1
- logical ier
- integer iwr,k,j
-c THOMAS deplacement variable avant declaration data
- real mu1,mu2,fi
- real pi
-
- common/sixs_ier/iwr,ier
- data fmt (1) /'(i10)'/
- data fmt (2) /'(e10.3)'/
- data fmt (3) /'(1x, a10, 6 (i8, 2x))'/
- data fmt (4) /'(1x, a10, 6 (f8.3, 2x))'/
- data fmt (5) /'(1x, a, f9.6)'/
- data fmt (6) /'(1x, a)'/
- data errmsg (1)
- * /'101: option (1) not an acceptable value, reset to 1'/
- data errmsg (2)
- * /'102: option (2) not an acceptable value, reset to 1'/
- data errmsg (3)
- * /'103: option (3) not an acceptable value, reset to 1'/
- data errmsg (4)
- * /'104: option (4) not an acceptable value, reset to 1'/
- data errmsg (5)
- * /'105: option (5) not an acceptable value, reset to 1'/
- data errmsg (6)
- * /'201: illumination zenith angle (angles (1)) not acceptable'/
- data errmsg (7)
- * /'202: observation zenith angle (angles (2)) not acceptable'/
- data errmsg (8)
- * /'203: relative azimuth angle (angles (3)) not acceptable'/
- data errmsg (9)
- * /'301: single scattering albedo (optics (1)) not acceptable'/
- data errmsg (10)
- * /'302: phase function parameter (optics (2) not acceptable'/
- data errmsg (11)
- * /'401: leaf area density (struct (1)) not acceptable'/
- data errmsg (12)
- * /'402: radius of sun flecks (struct (2)) not acceptable'/
- data errmsg (13)
- * /'411: kappa1 (struct (3) with option (3) = 0) not acceptable'/
- data errmsg (14)
- * /'412: kappa2 (struct (4) with option (3) = 0) not acceptable'/
- data errmsg (15)
- * /'421: chil (struct (3) with option (3) = 1) not acceptable'/
-
-c THOMAS deplacement variable avant declaration data
-c real mu1,mu2,fi
-c real pi
-
- pi=atan(1.)*4.
- mu1=rm(0)
- do 1 k=1,np
- do 2 j=1,mu
- mu2=rm(j)
- if (j.eq.mu) then
- fi=rm(-mu)
- else
- fi=rp(k)+rm(-mu)
- endif
-c compute geometrical parameter for mvbp1
- angles(1)=acos(mu1)
- angles(2)=acos(mu2)
- if (fi.lt.0.) fi=fi+2.*pi
- if (fi.gt.(2.*pi)) fi=fi-2.*pi
- angles(3)=fi
- brdfint(j,k)=mvbp1(option,angles,optics,struct,error)
- if (error .eq. 101) write (iwr, fmt (6)) errmsg (1)
- if (error .eq. 102) write (iwr, fmt (6)) errmsg (2)
- if (error .eq. 103) write (iwr, fmt (6)) errmsg (3)
- if (error .eq. 104) write (iwr, fmt (6)) errmsg (4)
- if (error .eq. 105) write (iwr, fmt (6)) errmsg (5)
- if (error .eq. 201) write (iwr, fmt (6)) errmsg (6)
- if (error .eq. 202) write (iwr, fmt (6)) errmsg (7)
- if (error .eq. 203) write (iwr, fmt (6)) errmsg (8)
- if (error .eq. 301) write (iwr, fmt (6)) errmsg (9)
- if (error .eq. 302) write (iwr, fmt (6)) errmsg (10)
- if (error .eq. 401) write (iwr, fmt (6)) errmsg (11)
- if (error .eq. 402) write (iwr, fmt (6)) errmsg (12)
- if (error .eq. 411) write (iwr, fmt (6)) errmsg (13)
- if (error .eq. 412) write (iwr, fmt (6)) errmsg (14)
- if (error .eq. 421) write (iwr, fmt (6)) errmsg (15)
- 2 continue
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.h b/Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.h
deleted file mode 100644
index b8d4342..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VERSBRDF.h
+++ /dev/null
@@ -1,10 +0,0 @@
-extern int otb_6s_versbrdf_(
- otb_6s_integer *option,
- otb_6s_doublereal *optics,
- otb_6s_doublereal *struct__,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *brdfint
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.P b/Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.P
deleted file mode 100644
index 0e74bc5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.P
+++ /dev/null
@@ -1 +0,0 @@
-extern doublereal mvbp1_(integer *option, doublereal *angles, doublereal *optics, doublereal *struct__, integer *error);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.c b/Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.c
deleted file mode 100644
index e45848d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.c
+++ /dev/null
@@ -1,638 +0,0 @@
-/* VERSTOOLS.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static doublereal c_b2 = 1.5;
-
-/*< real function mvbp1 (option, angles, optics, struct, error) >*/
-doublereal mvbp1_(integer *option, doublereal *angles, doublereal *optics,
- doublereal *struct__, integer *error)
-{
- /* Initialized data */
-
- static doublereal pi = 3.14159265;
- static doublereal pitwo = 6.28318531;
- static doublereal pio2me = 1.57;
- static doublereal coef1 = .42441318;
- static doublereal coef2 = .07957747;
-
- /* System generated locals */
- doublereal ret_val;
-
- /* Builtin functions */
- double cos(doublereal), sin(doublereal), acos(doublereal), tan(doublereal)
- , sqrt(doublereal), pow_dd(doublereal *, doublereal *);
-
- /* Local variables */
- doublereal x1, x2, mu1, mu2, pvg, vpg, psi1, psi2, kmkm, coef4, hfun1,
- hfun2, asyf2, kappa1, kappa2, tante1, tante2, geofac, phaang,
- cospha, phafun, mulsca, cosphi, gotwor;
-
-/* ***********************************************************************
- */
-
-/* subroutine mvbp1 version 1.02, 5 apr 1991 */
-
-/* purpose: */
-
-/* to generate a single bidirectional reflectance value for a semi- */
-/* infinite medium, given the illumination and viewing geometry, the */
-/* optical and the structural properties of the scatterers. this model */
-/* has been used successfully to describe the reflectance of soils and */
-/* deep vegetation covers. */
-
-/* argument(s): */
-
-/*< integer option (5), error >*/
-/*< real angles (3), optics (3), struct (4) >*/
-
-/* definitions: */
-
-/* angles illumination and observation angles: */
-/* angles (1): illumination zenith angle, in radians */
-/* angles (2): observation zenith angle, in radians */
-/* angles (3): relative azimuth angle, in radians */
-/* error error code: */
-/* 0: no error found, normal return. */
-/* if more than one error condition occurs, only the most recent */
-/* (usually the most severe) error code is returned. */
-/* error codes between 100 and 199 indicate warnings: computations
-*/
-/* are proceeding, but the result may not be what you expected. */
-/* 101: option (1) not an acceptable value, reset to 1 */
-/* 102: option (2) not an acceptable value, reset to 1 */
-/* 103: option (3) not an acceptable value, reset to 1 */
-/* 104: option (4) not an acceptable value, reset to 1 */
-/* 105: option (5) not an acceptable value, reset to 1 */
-/* error codes above 200 indicate severe conditions that should */
-/* not be encountered. the reflectance value mvbp1 is set to -1 */
-/* and the execution is aborted. check your code and usage of this
-*/
-/* function. */
-/* 201: illumination zenith angle (angles (1)) not an acceptable */
-/* value, execution aborted */
-/* 202: observation zenith angle (angles (2)) not an acceptable */
-/* value, execution aborted */
-/* 203: relative azimuth angle (angles (3)) not an acceptable */
-/* value, execution aborted */
-/* 301: single scattering albedo (optics (1)) not an acceptable */
-/* value, execution aborted */
-/* 302: phase function parameter (optics (2) not an acceptable */
-/* value, execution aborted */
-/* 401: leaf area density (struct (1)) not an acceptable value, */
-/* execution aborted */
-/* 402: radius of sun flecks (struct (2)) not an acceptable value,
-*/
-/* execution aborted */
-/* 411: given value of kappa1 (struct (3) with option (3) = 0) */
-/* not an acceptable value, execution aborted */
-/* 412: given value of kappa2 (struct (4) with option (3) = 0) */
-/* not an acceptable value, execution aborted */
-/* 421: leaf orientation parameter chil (struct (3) with */
-/* option (3) = 1) not an acceptable value, execution aborted
-*/
-/* optics optical characteristics of the scatterers: */
-/* optics (1): single scattering albedo, n/d value between 0.0 */
-/* and 1.0 */
-/* optics (2): phase function parameter: */
-/* if option (4) = 0: this input is not used */
-/* if option (4) = 1: asymmetry factor, n/d value between -1.0
-*/
-/* and 1.0 */
-/* if option (4) = 2: first coefficient of legendre polynomial
-*/
-/* optics (3): phase function parameter: */
-/* if option (4) = 0: this input is not used */
-/* if option (4) = 1: this input is not used */
-/* if option (4) = 2: second coefficient of legendre polynomial
-*/
-/* option integer array to select the desired output: */
-/* option (1): 0 for full theoretical model (see ref. 1) */
-/* 1 for parameterized model (see ref. 2) */
-/* option (2): 0 for absolute reflectance, normalized by the */
-/* incoming radiant power [j0] (see ref. 1) */
-/* 1 for relative reflectance, or reflectance factor,
-*/
-/* normalized by the incoming radiation on a */
-/* horizontal surface [j0 cos(theta1)] and by the */
-/* reflectance of a lambertian surface illuminated */
-/* and viewed under identical conditions */
-/* (see ref. 2) */
-/* option (3): 0 for given values of kappa (see struct below) */
-/* 1 for goudriaan's parameterization of kappa */
-/* 2 for dickinson et al's correction to goudriaan's */
-/* parameterization of kappa (see ref. 3) */
-/* option (4): 0 for isotropic phase function */
-/* 1 for heyney and greensteins' phase function */
-/* 2 for legendre polynomial phase function */
-/* option (5): 0 for single scattering only */
-/* 1 for dickinson et al. parameterization of multiple
-*/
-/* scattering */
-/* struct structural parameters of the medium: */
-/* struct (1): 'leaf area density', in m2 m-3 */
-/* struct (2): radius of the sun flecks on the scatterer, in m */
-/* struct (3): leaf orientation parameter: */
-/* if option (3) = 0: struct (3) = kappa1 */
-/* if option (3) = 1 or 2: struct (3) = chil */
-/* struct (4): leaf orientation parameter: */
-/* if option (3) = 0: struct (4) = kappa2 */
-/* if option (3) = 1 or 2: this input is not used */
-
-/* remarks: */
-
-/* 1. warning: all variables in this routine are declared explicitly, */
-/* and their names have been chosen solely as a function of their */
-/* meaning. do not assume that a variable is integer or real based */
-/* on its first letter. the function itself, mvbp1, starts with 'm' */
-/* but returns a real number. you must therefore declare the mvbp1 */
-/* identifier as both real and external in the calling routine. */
-/* failure to do so will yield unpredictable results. */
-/* 2. this fortran function provides numerous options. if you specify */
-/* wrong option values, the function may return unexpected results, */
-/* issue a warning, or generate an error code and abort. please read
-*/
-/* carefully the documentation of this routine before using it. */
-/* 3. the error function, needed for the computation of the theoretical
-*/
-/* value of the bidirectional reflectance, is calculated by calling */
-/* a function erf (x). this function is assumed to be available on */
-/* your machine at link time. if this is not the case, append such */
-/* a function to your code. press et al (1986) provide non-optimized
-*/
-/* codes for such a routine. */
-/* 4. all computations in mvbp1 are normally made in single precision. */
-/* if you plan to make extensive use of the full theoretical model */
-/* (option (1) = 0), you may want to perform all computations in */
-/* double precision, including erf. */
-/* warning: the theoretical hot spot function includes the product */
-/* of a diverging exponential and an erf function that tends to zero.
-*/
-/* the analytical limit value is finite, but the numerical estimation
-*/
-/* of this expression may result in a floating point error, */
-/* especially with single precision variables on 16 bit computers. */
-/* to avoid this problem, use double precision variables on 32 bit */
-/* (or higher) computers and efficient algorithms to estimate erf, */
-/* or use the parametric model, which is not affected by these */
-/* numerical problems, even on small computers. */
-/* 5. the computer code mvbp1 is intended to achieve the purpose for */
-/* which it was written, and has been extensively checked. it is */
-/* not possible, however, to guarantee that it will produce correct */
-/* results under all possible usages. comments, suggestions and bug */
-/* reports should be sent to */
-
-/* dr. michel m. verstraete */
-/* institute for remote sensing applications */
-/* cec joint research centre */
-/* ispra establishment, tp 440 */
-/* i-21020 ispra (va), italy */
-
-/* 6. portability: every effort has been made to use standard fortran 77
-*/
-/* syntax. this function and the associated subprograms have been */
-/* developed under microsoft fortran 5.0 on a compaq 386/33l running
-*/
-/* dos 3.31. the source codes have been successfully ported without */
-/* changes on an ibm risc 6000 model 520 computer running aix */
-/* version 3. we would be interested in knowing of your experience */
-/* in porting this code to other machines or operating systems. */
-/* 7. if you let us know that you are using these codes and keep us */
-/* informed of your work, we will continue to send you updates of */
-/* these and related codes under development. */
-
-/* copyrights: (c) michel m. verstraete and bernard pinty, 1991. */
-
-/* the copyrights on this and associated computer codes (with the */
-/* exception of the mathematical routines to compute erf) remain */
-/* with the authors, drs. michel m. verstraete and bernard pinty. */
-/* academic users: you are authorized to use this code for your */
-/* research and teaching, but you must acknowledge use of this */
-/* routine explicitly and refer to the first two papers below in */
-/* any publication or work for which you used these codes. you are */
-/* encouraged to distribute, free of charge, the unmodified version */
-/* of these codes to colleagues involved in similar activities, */
-/* provided you include all the in-line documentation and */
-/* associated files. they, in turn, must agree with and abide by */
-/* the same rules. you may not sell this code to anybody, and you */
-/* may not distribute it to commercial interests under any */
-/* circumstances. */
-/* commercial and other users: use of this code (mvbp1) in commercial */
-/* applications is strictly forbidden without a written approval of */
-/* the authors. even with such an authorization to use the code, you
-*/
-/* may not distribute or sell it to any other commercial or business
-*/
-/* partners under any circumstances. please contact us at the above */
-/* address. */
-/* warning: the fortran subroutines used to compute erf on the */
-/* distribution disk for this code are taken from press et al., 1986.
-*/
-/* please see the preface of that book for further restrictions and */
-/* clarifications on the use of these mathematical routines. */
-
-/* disclaimer: */
-
-/* the authors make no warranty, express or implied, that this */
-/* routine is free of error, or is consistent with any particular */
-/* standard of merchantability, or that it will meet your */
-/* requirements for any particular application. the authors disclaim
-*/
-/* all liability for direct or consequential damages resulting from */
-/* your use of this routine. */
-
-/* references: */
-
-/* 1. verstraete, m. m., b. pinty and r. e. dickinson (1990) a physical
-*/
-/* model of the bidirectional reflectance of vegetation canopies, */
-/* part 1: theory, journal of geophysical research, 95, 11755-11765.
-*/
-/* 2. pinty, b., m. m. verstraete and r. e. dickinson (1990) a physical
-*/
-/* model of the bidirectional reflectance of vegetation canopies, */
-/* part 2: inversion and validation, journal of geophysical */
-/* research, 95, 11767-11775. */
-/* 3. dickinson, r. e., b. pinty and m. m. verstraete (1990) relating */
-/* surface albedos in gcm to remotely sensed data, agricultural and */
-/* forest meteorology, 52, 109-131. */
-/* 4. pinty, b. and m. m. verstraete (1991) extracting information on */
-/* surface properties from bidirectional reflectance measurements, */
-/* journal of geophysical research, 96, 2865-2874. */
-/* 5. press, w. h., et al. (1986) numerical recipes: the art of */
-/* scientific computing, cambridge university press, 818 pp. */
-
-/* copies of the first four papers can be obtained from the authors. */
-
-/* history of releases: */
-
-/* date version notes */
-/* ==== ======= ===== */
-/* 91-01-31 1.0 initial release. */
-/* 91-02-10 1.01 bug fix in the computation of psi1 for kappa. */
-/* 91-04-05 1.02 additional comments and first version released */
-/* to potential users. */
-
-/* ***********************************************************************
- */
-
-/* local declaration(s): */
-
-/*< >*/
-
-/* asyf2 square of the asymmetry factor */
-/* coefi miscellaneous coefficients (i = 1, 5) */
-/* coef1 = 4 / 3 pi */
-/* coef2 = 1 / 4 pi */
-/* cospha cosine of the phase angle */
-/* cosphi cosine of the relative azimuth angle */
-/* geofac geometric factor g */
-/* hfuni h functions for the computation of the multiple */
-/* scattering contribution (i = 1, 2) */
-/* kappai average cosine of the angle between the normal to */
-/* the scatterers and the direction of illumination */
-/* (i = 1) or viewing (i = 2) */
-/* kmkm kappa1 * mu2 + kappa2 * mu1 */
-/* mui cosine of the zenith angles (i = 1, 2) */
-/* mulsca multiple scattering contribution */
-/* phaang phase angle g between the incoming and outgoing */
-/* radiation */
-/* phafun phase function value */
-/* pi mathematical constant 3.14 */
-/* pitwo 2.0 * pi */
-/* pio2me pi/2 minus epsilon: a value corresponding to about */
-/* 88 degrees, used to avoid illumination or viewing */
-/* angles too close to the horizon */
-/* psii parameters used in the computation of kappai */
-/* (i = 1, 2) */
-/* pvg parameterized hot spot function */
-/* tantei tangent of the illumination and viewing angles */
-/* (i = 1, 2) */
-/* termi terms of the theoretical hotspot function (i = 1, 2)
-*/
-/* gotwor geofac / 2.0 * struct (2) */
-/* vpg variable used in computing pvg */
-/* xi temporary variables */
-
-/* data initialization: */
-
-/*< data pi /3.14159265/ >*/
- /* Parameter adjustments */
- --struct__;
- --optics;
- --angles;
- --option;
-
- /* Function Body */
-/*< data pitwo /6.28318531/ >*/
-/*< data pio2me /1.57/ >*/
-/*< data coef1 /0.42441318/ >*/
-/*< data coef2 /7.957747e-2/ >*/
-
-/*< error = 0 >*/
- *error = 0;
-
-/* verify validity of options: */
-
-/*< if ((option (1) .lt. 0) .or. (option (1) .gt. 1)) then >*/
- if (option[1] < 0 || option[1] > 1) {
-/*< error = 101 >*/
- *error = 101;
-/*< option (1) = 1 >*/
- option[1] = 1;
-/*< end if >*/
- }
-/*< if ((option (2) .lt. 0) .or. (option (2) .gt. 1)) then >*/
- if (option[2] < 0 || option[2] > 1) {
-/*< error = 102 >*/
- *error = 102;
-/*< option (2) = 1 >*/
- option[2] = 1;
-/*< end if >*/
- }
-/*< if ((option (3) .lt. 0) .or. (option (3) .gt. 2)) then >*/
- if (option[3] < 0 || option[3] > 2) {
-/*< error = 103 >*/
- *error = 103;
-/*< option (3) = 1 >*/
- option[3] = 1;
-/*< end if >*/
- }
-/*< if ((option (4) .lt. 0) .or. (option (4) .gt. 2)) then >*/
- if (option[4] < 0 || option[4] > 2) {
-/*< error = 104 >*/
- *error = 104;
-/*< option (4) = 1 >*/
- option[4] = 1;
-/*< end if >*/
- }
-/*< if ((option (5) .lt. 0) .or. (option (5) .gt. 1)) then >*/
- if (option[5] < 0 || option[5] > 1) {
-/*< error = 105 >*/
- *error = 105;
-/*< option (5) = 1 >*/
- option[5] = 1;
-/*< end if >*/
- }
-
-/* verify validity of angles: */
-
-/*< if ((angles (1) .lt. 0.0) .or. (angles (1) .gt. pio2me)) then >*/
- if (angles[1] < 0. || angles[1] > pio2me) {
-/*< error = 201 >*/
- *error = 201;
-/*< end if >*/
- }
-/*< if ((angles (2) .lt. 0.0) .or. (angles (2) .gt. pio2me)) then >*/
- if (angles[2] < 0. || angles[2] > pio2me) {
-/*< error = 202 >*/
- *error = 202;
-/*< end if >*/
- }
-/*< if ((angles (3) .lt. 0.0) .or. (angles (3) .gt. pitwo)) then >*/
- if (angles[3] < 0. || angles[3] > pitwo) {
-/*< error = 203 >*/
- *error = 203;
-/*< end if >*/
- }
-
-/* verify validity of optical parameters: */
-
-/*< if ((optics (1) .lt. 0.0) .or. (optics (1) .gt. 1.0)) then >*/
- if (optics[1] < 0. || optics[1] > 1.) {
-/*< error = 301 >*/
- *error = 301;
-/*< end if >*/
- }
-/*< if (option (4) .eq. 1) then >*/
- if (option[4] == 1) {
-/*< if ((optics (2) .lt. -1.0) .or. (optics (2) .gt. 1.0)) then >*/
- if (optics[2] < -1. || optics[2] > 1.) {
-/*< error = 302 >*/
- *error = 302;
-/*< end if >*/
- }
-/*< end if >*/
- }
-
-/* verify validity of structural parameters: */
-
-/*< if (struct (1) .le. 0.0) then >*/
- if (struct__[1] <= 0.) {
-/*< error = 401 >*/
- *error = 401;
-/*< endif >*/
- }
-/*< if (struct (2) .le. 0.0) then >*/
- if (struct__[2] <= 0.) {
-/*< error = 402 >*/
- *error = 402;
-/*< endif >*/
- }
-/*< if (option (3) .eq. 0) then >*/
- if (option[3] == 0) {
-/*< if ((struct (3) .lt. -1.0) .or. (struct (3) .gt. 1.0)) then >*/
- if (struct__[3] < -1. || struct__[3] > 1.) {
-/*< error = 411 >*/
- *error = 411;
-/*< end if >*/
- }
-/*< if ((struct (4) .lt. -1.0) .or. (struct (4) .gt. 1.0)) then >*/
- if (struct__[4] < -1. || struct__[4] > 1.) {
-/*< error = 412 >*/
- *error = 412;
-/*< end if >*/
- }
-/*< end if >*/
- }
-/*< if ((option (3) .eq. 1) .or. (option (3) .eq. 2)) then >*/
- if (option[3] == 1 || option[3] == 2) {
-/*< if ((struct (3) .lt. -0.4) .or. (struct (3) .gt. 0.6)) then >*/
- if (struct__[3] < -.4 || struct__[3] > .6) {
-/*< error = 421 >*/
- *error = 421;
-/*< end if >*/
- }
-/*< end if >*/
- }
-
-/*< if (error .ge. 200) then >*/
- if (*error >= 200) {
-/*< mvbp1 = -1.0 >*/
- ret_val = -1.;
-/*< return >*/
- return ret_val;
-/*< end if >*/
- }
-
-/* compute various trigonometric expressions: */
-
-/*< mu1 = cos (angles (1)) >*/
- mu1 = cos(angles[1]);
-/*< mu2 = cos (angles (2)) >*/
- mu2 = cos(angles[2]);
-/*< cosphi = cos (angles (3)) >*/
- cosphi = cos(angles[3]);
-/*< cospha = mu1 * mu2 + sin (angles (1)) * sin (angles (2)) * cosphi >*/
- cospha = mu1 * mu2 + sin(angles[1]) * sin(angles[2]) * cosphi;
-/*< phaang = acos (cospha) >*/
- phaang = acos(cospha);
-/*< tante1 = tan (angles (1)) >*/
- tante1 = tan(angles[1]);
-/*< tante2 = tan (angles (2)) >*/
- tante2 = tan(angles[2]);
-/*< >*/
- geofac = sqrt(tante1 * tante1 + tante2 * tante2 - tante1 * 2. * tante2 *
- cosphi);
-
-/* compute the leaf orientation parameters kappa: */
-
-/*< if (option (3) .eq. 0) then >*/
- if (option[3] == 0) {
-/*< kappa1 = struct (3) >*/
- kappa1 = struct__[3];
-/*< kappa2 = struct (4) >*/
- kappa2 = struct__[4];
-/*< endif >*/
- }
-/*< if (option (3) .eq. 1) then >*/
- if (option[3] == 1) {
-/*< psi1 = 0.5 - (0.6333 + 0.33 * struct (3)) * struct (3) >*/
- psi1 = .5 - (struct__[3] * .33 + .6333) * struct__[3];
-/*< psi2 = 0.877 * (1.0 - 2.0 * psi1) >*/
- psi2 = (1. - psi1 * 2.) * .877;
-/*< kappa1 = psi1 + psi2 * mu1 >*/
- kappa1 = psi1 + psi2 * mu1;
-/*< kappa2 = psi1 + psi2 * mu2 >*/
- kappa2 = psi1 + psi2 * mu2;
-/*< endif >*/
- }
-/*< if (option (3) .eq. 2) then >*/
- if (option[3] == 2) {
-/*< psi1 = 0.5 - (0.489 + 0.11 * struct (3)) * struct (3) >*/
- psi1 = .5 - (struct__[3] * .11 + .489) * struct__[3];
-/*< psi2 = 1.0 * (1.0 - 2.0 * psi1) >*/
- psi2 = (1. - psi1 * 2.) * 1.;
-/*< kappa1 = psi1 + psi2 * mu1 >*/
- kappa1 = psi1 + psi2 * mu1;
-/*< kappa2 = psi1 + psi2 * mu2 >*/
- kappa2 = psi1 + psi2 * mu2;
-/*< endif >*/
- }
-
-/* compute the phase function: */
-
-/*< if (option (4) .eq. 0) then >*/
- if (option[4] == 0) {
-/*< phafun = 1.0 >*/
- phafun = 1.;
-/*< endif >*/
- }
-/*< if (option (4) .eq. 1) then >*/
- if (option[4] == 1) {
-/*< asyf2 = optics (2) * optics (2) >*/
- asyf2 = optics[2] * optics[2];
-/*< x1 = (1.0 + asyf2 - 2.0 * optics (2) * cos (pi - phaang)) >*/
- x1 = asyf2 + 1. - optics[2] * 2. * cos(pi - phaang);
-/*< phafun = (1.0 - asyf2) / (x1 ** 1.5) >*/
- phafun = (1. - asyf2) / pow_dd(&x1, &c_b2);
-/*< endif >*/
- }
-/*< if (option (4) .eq. 2) then >*/
- if (option[4] == 2) {
-/*< >*/
- phafun = optics[2] * cospha + 1. + optics[3] * ((cospha * 3. * cospha
- - 1.) * .5);
-/*< endif >*/
- }
-
-/* compute the opposition (hot spot) function: */
-
-/*< kmkm = kappa1 * mu2 + kappa2 * mu1 >*/
- kmkm = kappa1 * mu2 + kappa2 * mu1;
-/*< gotwor = geofac / (2.0 * struct (2)) >*/
- gotwor = geofac / (struct__[2] * 2.);
-
-/* equation (52) of reference (1) above: case impossible */
-
-/* if (option (1) .eq. 0) then */
-/* cofa = coef3 * kappa2 * struct (1) / mu2 */
-/* cofb = (kappa1 * struct (1)) / (2.0 * mu1) */
-/* term1 = (0.5 * struct (1) * kmkm) / (mu1 * mu2) */
-/* term1 = term1 * sqrt (pi / cofa) * exp (cofb * cofb / cofa) */
-/* x2 = cofb / sqrt (cofa) */
-/* x1 = (sqrt (cofa) / gotwor) + x2 */
-/* term1 = term1 * (erf (x1) - erf (x2)) */
-/* x1 = (coef1 / gotwor) * (kappa2 * struct (1) / mu2) */
-/* x2 = -struct (1) * kmkm / (mu1 * mu2 * gotwor) */
-/* term2 = exp (x1) * exp (x2) */
-/* pvg = term1 + term2 */
-/* endif */
-
-/* equation (6) of reference (2) above: */
-
-/*< if (option (1) .eq. 1) then >*/
- if (option[1] == 1) {
-/*< >*/
- vpg = (1. - coef1) * 4. * mu2 * gotwor / (struct__[1] * kappa2);
-/*< pvg = 1.0 + (1.0 / (1.0 + vpg)) >*/
- pvg = 1. / (vpg + 1.) + 1.;
-/*< endif >*/
- }
-
-/* compute the multiple scattering contribution: */
-
-/*< if (option (5) .eq. 0) then >*/
- if (option[5] == 0) {
-/*< mulsca = 0.0 >*/
- mulsca = 0.;
-/*< else >*/
- } else {
-/*< x1 = mu1 / kappa1 >*/
- x1 = mu1 / kappa1;
-/*< x2 = mu2 / kappa2 >*/
- x2 = mu2 / kappa2;
-/*< hfun1 = (1.0 + x1) / (1.0 + x1 * sqrt (1.0 - optics (1))) >*/
- hfun1 = (x1 + 1.) / (x1 * sqrt(1. - optics[1]) + 1.);
-/*< hfun2 = (1.0 + x2) / (1.0 + x2 * sqrt (1.0 - optics (1))) >*/
- hfun2 = (x2 + 1.) / (x2 * sqrt(1. - optics[1]) + 1.);
-/*< mulsca = hfun1 * hfun2 - 1.0 >*/
- mulsca = hfun1 * hfun2 - 1.;
-/*< endif >*/
- }
-
-/* compute the bidirectional reflectance: */
-
-/*< if (option (2) .eq. 0) then >*/
- if (option[2] == 0) {
-/*< coef4 = coef2 * optics (1) * kappa1 * mu1 / kmkm >*/
- coef4 = coef2 * optics[1] * kappa1 * mu1 / kmkm;
-/*< endif >*/
- }
-/*< if (option (2) .eq. 1) then >*/
- if (option[2] == 1) {
-/*< coef4 = 0.25 * optics (1) * kappa1 / kmkm >*/
- coef4 = optics[1] * .25 * kappa1 / kmkm;
-/*< endif >*/
- }
-/*< mvbp1 = coef4 * (pvg * phafun + mulsca) >*/
- ret_val = coef4 * (pvg * phafun + mulsca);
-
-/*< return >*/
- return ret_val;
-/*< end >*/
-} /* mvbp1_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.f b/Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.f
deleted file mode 100644
index 361c323..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.f
+++ /dev/null
@@ -1,448 +0,0 @@
- real function mvbp1 (option, angles, optics, struct, error)
-c***********************************************************************
-c
-c subroutine mvbp1 version 1.02, 5 apr 1991
-c
-c purpose:
-c
-c to generate a single bidirectional reflectance value for a semi-
-c infinite medium, given the illumination and viewing geometry, the
-c optical and the structural properties of the scatterers. this model
-c has been used successfully to describe the reflectance of soils and
-c deep vegetation covers.
-c
-c argument(s):
-c
- integer option (5), error
- real angles (3), optics (3), struct (4)
-c
-c definitions:
-c
-c angles illumination and observation angles:
-c angles (1): illumination zenith angle, in radians
-c angles (2): observation zenith angle, in radians
-c angles (3): relative azimuth angle, in radians
-c error error code:
-c 0: no error found, normal return.
-c if more than one error condition occurs, only the most recent
-c (usually the most severe) error code is returned.
-c error codes between 100 and 199 indicate warnings: computations
-c are proceeding, but the result may not be what you expected.
-c 101: option (1) not an acceptable value, reset to 1
-c 102: option (2) not an acceptable value, reset to 1
-c 103: option (3) not an acceptable value, reset to 1
-c 104: option (4) not an acceptable value, reset to 1
-c 105: option (5) not an acceptable value, reset to 1
-c error codes above 200 indicate severe conditions that should
-c not be encountered. the reflectance value mvbp1 is set to -1
-c and the execution is aborted. check your code and usage of this
-c function.
-c 201: illumination zenith angle (angles (1)) not an acceptable
-c value, execution aborted
-c 202: observation zenith angle (angles (2)) not an acceptable
-c value, execution aborted
-c 203: relative azimuth angle (angles (3)) not an acceptable
-c value, execution aborted
-c 301: single scattering albedo (optics (1)) not an acceptable
-c value, execution aborted
-c 302: phase function parameter (optics (2) not an acceptable
-c value, execution aborted
-c 401: leaf area density (struct (1)) not an acceptable value,
-c execution aborted
-c 402: radius of sun flecks (struct (2)) not an acceptable value,
-c execution aborted
-c 411: given value of kappa1 (struct (3) with option (3) = 0)
-c not an acceptable value, execution aborted
-c 412: given value of kappa2 (struct (4) with option (3) = 0)
-c not an acceptable value, execution aborted
-c 421: leaf orientation parameter chil (struct (3) with
-c option (3) = 1) not an acceptable value, execution aborted
-c optics optical characteristics of the scatterers:
-c optics (1): single scattering albedo, n/d value between 0.0
-c and 1.0
-c optics (2): phase function parameter:
-c if option (4) = 0: this input is not used
-c if option (4) = 1: asymmetry factor, n/d value between -1.0
-c and 1.0
-c if option (4) = 2: first coefficient of legendre polynomial
-c optics (3): phase function parameter:
-c if option (4) = 0: this input is not used
-c if option (4) = 1: this input is not used
-c if option (4) = 2: second coefficient of legendre polynomial
-c option integer array to select the desired output:
-c option (1): 0 for full theoretical model (see ref. 1)
-c 1 for parameterized model (see ref. 2)
-c option (2): 0 for absolute reflectance, normalized by the
-c incoming radiant power [j0] (see ref. 1)
-c 1 for relative reflectance, or reflectance factor,
-c normalized by the incoming radiation on a
-c horizontal surface [j0 cos(theta1)] and by the
-c reflectance of a lambertian surface illuminated
-c and viewed under identical conditions
-c (see ref. 2)
-c option (3): 0 for given values of kappa (see struct below)
-c 1 for goudriaan's parameterization of kappa
-c 2 for dickinson et al's correction to goudriaan's
-c parameterization of kappa (see ref. 3)
-c option (4): 0 for isotropic phase function
-c 1 for heyney and greensteins' phase function
-c 2 for legendre polynomial phase function
-c option (5): 0 for single scattering only
-c 1 for dickinson et al. parameterization of multiple
-c scattering
-c struct structural parameters of the medium:
-c struct (1): 'leaf area density', in m2 m-3
-c struct (2): radius of the sun flecks on the scatterer, in m
-c struct (3): leaf orientation parameter:
-c if option (3) = 0: struct (3) = kappa1
-c if option (3) = 1 or 2: struct (3) = chil
-c struct (4): leaf orientation parameter:
-c if option (3) = 0: struct (4) = kappa2
-c if option (3) = 1 or 2: this input is not used
-c
-c remarks:
-c
-c 1. warning: all variables in this routine are declared explicitly,
-c and their names have been chosen solely as a function of their
-c meaning. do not assume that a variable is integer or real based
-c on its first letter. the function itself, mvbp1, starts with 'm'
-c but returns a real number. you must therefore declare the mvbp1
-c identifier as both real and external in the calling routine.
-c failure to do so will yield unpredictable results.
-c 2. this fortran function provides numerous options. if you specify
-c wrong option values, the function may return unexpected results,
-c issue a warning, or generate an error code and abort. please read
-c carefully the documentation of this routine before using it.
-c 3. the error function, needed for the computation of the theoretical
-c value of the bidirectional reflectance, is calculated by calling
-c a function erf (x). this function is assumed to be available on
-c your machine at link time. if this is not the case, append such
-c a function to your code. press et al (1986) provide non-optimized
-c codes for such a routine.
-c 4. all computations in mvbp1 are normally made in single precision.
-c if you plan to make extensive use of the full theoretical model
-c (option (1) = 0), you may want to perform all computations in
-c double precision, including erf.
-c warning: the theoretical hot spot function includes the product
-c of a diverging exponential and an erf function that tends to zero.
-c the analytical limit value is finite, but the numerical estimation
-c of this expression may result in a floating point error,
-c especially with single precision variables on 16 bit computers.
-c to avoid this problem, use double precision variables on 32 bit
-c (or higher) computers and efficient algorithms to estimate erf,
-c or use the parametric model, which is not affected by these
-c numerical problems, even on small computers.
-c 5. the computer code mvbp1 is intended to achieve the purpose for
-c which it was written, and has been extensively checked. it is
-c not possible, however, to guarantee that it will produce correct
-c results under all possible usages. comments, suggestions and bug
-c reports should be sent to
-c
-c dr. michel m. verstraete
-c institute for remote sensing applications
-c cec joint research centre
-c ispra establishment, tp 440
-c i-21020 ispra (va), italy
-c
-c 6. portability: every effort has been made to use standard fortran 77
-c syntax. this function and the associated subprograms have been
-c developed under microsoft fortran 5.0 on a compaq 386/33l running
-c dos 3.31. the source codes have been successfully ported without
-c changes on an ibm risc 6000 model 520 computer running aix
-c version 3. we would be interested in knowing of your experience
-c in porting this code to other machines or operating systems.
-c 7. if you let us know that you are using these codes and keep us
-c informed of your work, we will continue to send you updates of
-c these and related codes under development.
-c
-c copyrights: (c) michel m. verstraete and bernard pinty, 1991.
-c
-c the copyrights on this and associated computer codes (with the
-c exception of the mathematical routines to compute erf) remain
-c with the authors, drs. michel m. verstraete and bernard pinty.
-c academic users: you are authorized to use this code for your
-c research and teaching, but you must acknowledge use of this
-c routine explicitly and refer to the first two papers below in
-c any publication or work for which you used these codes. you are
-c encouraged to distribute, free of charge, the unmodified version
-c of these codes to colleagues involved in similar activities,
-c provided you include all the in-line documentation and
-c associated files. they, in turn, must agree with and abide by
-c the same rules. you may not sell this code to anybody, and you
-c may not distribute it to commercial interests under any
-c circumstances.
-c commercial and other users: use of this code (mvbp1) in commercial
-c applications is strictly forbidden without a written approval of
-c the authors. even with such an authorization to use the code, you
-c may not distribute or sell it to any other commercial or business
-c partners under any circumstances. please contact us at the above
-c address.
-c warning: the fortran subroutines used to compute erf on the
-c distribution disk for this code are taken from press et al., 1986.
-c please see the preface of that book for further restrictions and
-c clarifications on the use of these mathematical routines.
-c
-c disclaimer:
-c
-c the authors make no warranty, express or implied, that this
-c routine is free of error, or is consistent with any particular
-c standard of merchantability, or that it will meet your
-c requirements for any particular application. the authors disclaim
-c all liability for direct or consequential damages resulting from
-c your use of this routine.
-c
-c references:
-c
-c 1. verstraete, m. m., b. pinty and r. e. dickinson (1990) a physical
-c model of the bidirectional reflectance of vegetation canopies,
-c part 1: theory, journal of geophysical research, 95, 11755-11765.
-c 2. pinty, b., m. m. verstraete and r. e. dickinson (1990) a physical
-c model of the bidirectional reflectance of vegetation canopies,
-c part 2: inversion and validation, journal of geophysical
-c research, 95, 11767-11775.
-c 3. dickinson, r. e., b. pinty and m. m. verstraete (1990) relating
-c surface albedos in gcm to remotely sensed data, agricultural and
-c forest meteorology, 52, 109-131.
-c 4. pinty, b. and m. m. verstraete (1991) extracting information on
-c surface properties from bidirectional reflectance measurements,
-c journal of geophysical research, 96, 2865-2874.
-c 5. press, w. h., et al. (1986) numerical recipes: the art of
-c scientific computing, cambridge university press, 818 pp.
-c
-c copies of the first four papers can be obtained from the authors.
-c
-c history of releases:
-c
-c date version notes
-c ==== ======= =====
-c 91-01-31 1.0 initial release.
-c 91-02-10 1.01 bug fix in the computation of psi1 for kappa.
-c 91-04-05 1.02 additional comments and first version released
-c to potential users.
-c
-c***********************************************************************
-c
-c local declaration(s):
-c
- real asyf2, coef1, coef2, coef4,
- * cospha, cosphi, geofac, hfun1, hfun2, kappa1,
- * kappa2, kmkm, mu1, mu2, mulsca, phaang,
- * phafun, pi, pitwo, pio2me, psi1, psi2, pvg, tante1,
- * tante2,gotwor, vpg, x1, x2
-
-c
-c asyf2 square of the asymmetry factor
-c coefi miscellaneous coefficients (i = 1, 5)
-c coef1 = 4 / 3 pi
-c coef2 = 1 / 4 pi
-c cospha cosine of the phase angle
-c cosphi cosine of the relative azimuth angle
-c geofac geometric factor g
-c hfuni h functions for the computation of the multiple
-c scattering contribution (i = 1, 2)
-c kappai average cosine of the angle between the normal to
-c the scatterers and the direction of illumination
-c (i = 1) or viewing (i = 2)
-c kmkm kappa1 * mu2 + kappa2 * mu1
-c mui cosine of the zenith angles (i = 1, 2)
-c mulsca multiple scattering contribution
-c phaang phase angle g between the incoming and outgoing
-c radiation
-c phafun phase function value
-c pi mathematical constant 3.14
-c pitwo 2.0 * pi
-c pio2me pi/2 minus epsilon: a value corresponding to about
-c 88 degrees, used to avoid illumination or viewing
-c angles too close to the horizon
-c psii parameters used in the computation of kappai
-c (i = 1, 2)
-c pvg parameterized hot spot function
-c tantei tangent of the illumination and viewing angles
-c (i = 1, 2)
-c termi terms of the theoretical hotspot function (i = 1, 2)
-c gotwor geofac / 2.0 * struct (2)
-c vpg variable used in computing pvg
-c xi temporary variables
-c
-c data initialization:
-c
- data pi /3.14159265/
- data pitwo /6.28318531/
- data pio2me /1.57/
- data coef1 /0.42441318/
- data coef2 /7.957747e-2/
-c
- error = 0
-c
-c verify validity of options:
-c
- if ((option (1) .lt. 0) .or. (option (1) .gt. 1)) then
- error = 101
- option (1) = 1
- end if
- if ((option (2) .lt. 0) .or. (option (2) .gt. 1)) then
- error = 102
- option (2) = 1
- end if
- if ((option (3) .lt. 0) .or. (option (3) .gt. 2)) then
- error = 103
- option (3) = 1
- end if
- if ((option (4) .lt. 0) .or. (option (4) .gt. 2)) then
- error = 104
- option (4) = 1
- end if
- if ((option (5) .lt. 0) .or. (option (5) .gt. 1)) then
- error = 105
- option (5) = 1
- end if
-c
-c verify validity of angles:
-c
- if ((angles (1) .lt. 0.0) .or. (angles (1) .gt. pio2me)) then
- error = 201
- end if
- if ((angles (2) .lt. 0.0) .or. (angles (2) .gt. pio2me)) then
- error = 202
- end if
- if ((angles (3) .lt. 0.0) .or. (angles (3) .gt. pitwo)) then
- error = 203
- end if
-c
-c verify validity of optical parameters:
-c
- if ((optics (1) .lt. 0.0) .or. (optics (1) .gt. 1.0)) then
- error = 301
- end if
- if (option (4) .eq. 1) then
- if ((optics (2) .lt. -1.0) .or. (optics (2) .gt. 1.0)) then
- error = 302
- end if
- end if
-c
-c verify validity of structural parameters:
-c
- if (struct (1) .le. 0.0) then
- error = 401
- endif
- if (struct (2) .le. 0.0) then
- error = 402
- endif
- if (option (3) .eq. 0) then
- if ((struct (3) .lt. -1.0) .or. (struct (3) .gt. 1.0)) then
- error = 411
- end if
- if ((struct (4) .lt. -1.0) .or. (struct (4) .gt. 1.0)) then
- error = 412
- end if
- end if
- if ((option (3) .eq. 1) .or. (option (3) .eq. 2)) then
- if ((struct (3) .lt. -0.4) .or. (struct (3) .gt. 0.6)) then
- error = 421
- end if
- end if
-c
- if (error .ge. 200) then
- mvbp1 = -1.0
- return
- end if
-c
-c compute various trigonometric expressions:
-c
- mu1 = cos (angles (1))
- mu2 = cos (angles (2))
- cosphi = cos (angles (3))
- cospha = mu1 * mu2 + sin (angles (1)) * sin (angles (2)) * cosphi
- phaang = acos (cospha)
- tante1 = tan (angles (1))
- tante2 = tan (angles (2))
- geofac = sqrt (tante1 * tante1 + tante2 * tante2 -
- * 2.0 * tante1 * tante2 * cosphi)
-c
-c compute the leaf orientation parameters kappa:
-c
- if (option (3) .eq. 0) then
- kappa1 = struct (3)
- kappa2 = struct (4)
- endif
- if (option (3) .eq. 1) then
- psi1 = 0.5 - (0.6333 + 0.33 * struct (3)) * struct (3)
- psi2 = 0.877 * (1.0 - 2.0 * psi1)
- kappa1 = psi1 + psi2 * mu1
- kappa2 = psi1 + psi2 * mu2
- endif
- if (option (3) .eq. 2) then
- psi1 = 0.5 - (0.489 + 0.11 * struct (3)) * struct (3)
- psi2 = 1.0 * (1.0 - 2.0 * psi1)
- kappa1 = psi1 + psi2 * mu1
- kappa2 = psi1 + psi2 * mu2
- endif
-c
-c compute the phase function:
-c
- if (option (4) .eq. 0) then
- phafun = 1.0
- endif
- if (option (4) .eq. 1) then
- asyf2 = optics (2) * optics (2)
- x1 = (1.0 + asyf2 - 2.0 * optics (2) * cos (pi - phaang))
- phafun = (1.0 - asyf2) / (x1 ** 1.5)
- endif
- if (option (4) .eq. 2) then
- phafun = 1.0 + optics (2) * cospha +
- * optics (3) * (0.5 * (3.0 * cospha * cospha - 1.0))
- endif
-c
-c compute the opposition (hot spot) function:
-c
- kmkm = kappa1 * mu2 + kappa2 * mu1
- gotwor = geofac / (2.0 * struct (2))
-c
-c equation (52) of reference (1) above: case impossible
-c
-c if (option (1) .eq. 0) then
-c cofa = coef3 * kappa2 * struct (1) / mu2
-c cofb = (kappa1 * struct (1)) / (2.0 * mu1)
-c term1 = (0.5 * struct (1) * kmkm) / (mu1 * mu2)
-c term1 = term1 * sqrt (pi / cofa) * exp (cofb * cofb / cofa)
-c x2 = cofb / sqrt (cofa)
-c x1 = (sqrt (cofa) / gotwor) + x2
-c term1 = term1 * (erf (x1) - erf (x2))
-c x1 = (coef1 / gotwor) * (kappa2 * struct (1) / mu2)
-c x2 = -struct (1) * kmkm / (mu1 * mu2 * gotwor)
-c term2 = exp (x1) * exp (x2)
-c pvg = term1 + term2
-c endif
-c
-c equation (6) of reference (2) above:
-c
- if (option (1) .eq. 1) then
- vpg = 4.0 * (1.0 - coef1) * mu2 * gotwor /
- * (struct (1) * kappa2)
- pvg = 1.0 + (1.0 / (1.0 + vpg))
- endif
-c
-c compute the multiple scattering contribution:
-c
- if (option (5) .eq. 0) then
- mulsca = 0.0
- else
- x1 = mu1 / kappa1
- x2 = mu2 / kappa2
- hfun1 = (1.0 + x1) / (1.0 + x1 * sqrt (1.0 - optics (1)))
- hfun2 = (1.0 + x2) / (1.0 + x2 * sqrt (1.0 - optics (1)))
- mulsca = hfun1 * hfun2 - 1.0
- endif
-c
-c compute the bidirectional reflectance:
-c
- if (option (2) .eq. 0) then
- coef4 = coef2 * optics (1) * kappa1 * mu1 / kmkm
- endif
- if (option (2) .eq. 1) then
- coef4 = 0.25 * optics (1) * kappa1 / kmkm
- endif
- mvbp1 = coef4 * (pvg * phafun + mulsca)
-c
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.h b/Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.h
deleted file mode 100644
index 341fd30..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/VERSTOOLS.h
+++ /dev/null
@@ -1,7 +0,0 @@
-extern otb_6s_doublereal otb_6s_mvbp1_(
- otb_6s_integer *option,
- otb_6s_doublereal *angles,
- otb_6s_doublereal *optics,
- otb_6s_doublereal *struct__,
- otb_6s_integer *error
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.P b/Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.P
deleted file mode 100644
index 5ca3ddf..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.P
+++ /dev/null
@@ -1,2 +0,0 @@
-extern int waltalbe_(doublereal *a, doublereal *ap, doublereal *b, doublereal *c__, doublereal *brdfalb);
-/*:ref: gauss_ 14 5 7 7 7 7 4 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.c b/Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.c
deleted file mode 100644
index 53daf39..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.c
+++ /dev/null
@@ -1,105 +0,0 @@
-/* WALTALBE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static integer c__24 = 24;
-static integer c__48 = 48;
-
-/*< >*/
-/* Subroutine */ int waltalbe_(doublereal *a, doublereal *ap, doublereal *b,
- doublereal *c__, doublereal *brdfalb)
-{
- /* Builtin functions */
- double atan(doublereal), sin(doublereal), cos(doublereal);
-
- /* Local variables */
- integer j, k, l;
- doublereal fa[48], ta[24], pi, ts, tv, si1, si2, mu1, mu2, wfa[48], phi,
- wta[24], phi1, phi2, pond, summ, teta1, teta2;
- extern /* Subroutine */ int gauss_(doublereal *, doublereal *, doublereal
- *, doublereal *, integer *);
- doublereal brdfint;
-
-/*< parameter (nta=24,nfa=48) >*/
-/*< real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa) >*/
-/*< real a,ap,b,c >*/
-/*< real pi >*/
-/*< real brdfalb,summ,si2,si1,ts,tv,phi,pond,brdfint,mu1,mu2 >*/
-/*< integer k,j,l >*/
-/*< pi=atan(1.)*4. >*/
- pi = atan(1.) * 4.;
-/*< teta1=0. >*/
- teta1 = 0.;
-/*< teta2=pi/2. >*/
- teta2 = pi / 2.;
-/*< call gauss(teta1,teta2,ta,wta,nta) >*/
- gauss_(&teta1, &teta2, ta, wta, &c__24);
-/*< phi1=0. >*/
- phi1 = 0.;
-/*< phi2=2.*pi >*/
- phi2 = pi * 2.;
-/*< call gauss(phi1,phi2,fa,wfa,nfa) >*/
- gauss_(&phi1, &phi2, fa, wfa, &c__48);
-/*< brdfalb=0. >*/
- *brdfalb = 0.;
-/*< summ=0. >*/
- summ = 0.;
-/*< do 1 k=1,nfa >*/
- for (k = 1; k <= 48; ++k) {
-/*< do 2 j=1,nta >*/
- for (j = 1; j <= 24; ++j) {
-/*< do 3 l=1,nta >*/
- for (l = 1; l <= 24; ++l) {
-/*< si2=sin(ta(j)) >*/
- si2 = sin(ta[j - 1]);
-/*< si1=sin(ta(l)) >*/
- si1 = sin(ta[l - 1]);
-/*< mu2=cos(ta(j)) >*/
- mu2 = cos(ta[j - 1]);
-/*< mu1=cos(ta(l)) >*/
- mu1 = cos(ta[l - 1]);
-/*< ts=ta(j) >*/
- ts = ta[j - 1];
-/*< tv=ta(l) >*/
- tv = ta[l - 1];
-/*< phi=fa(k) >*/
- phi = fa[k - 1];
-/*< pond=mu1*mu2*si1*si2*wfa(k)*wta(j)*wta(l) >*/
- pond = mu1 * mu2 * si1 * si2 * wfa[k - 1] * wta[j - 1] * wta[
- l - 1];
-/*< brdfint=a*ts*ts*tv*tv+ap*(ts*ts+tv*tv)+b*ts*tv*cos(phi)+c >*/
- brdfint = *a * ts * ts * tv * tv + *ap * (ts * ts + tv * tv)
- + *b * ts * tv * cos(phi) + *c__;
-/*< brdfalb=brdfalb+brdfint*pond >*/
- *brdfalb += brdfint * pond;
-/*< summ=summ+pond >*/
- summ += pond;
-/*< 3 continue >*/
-/* L3: */
- }
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< brdfalb=brdfalb/summ >*/
- *brdfalb /= summ;
-/*< return >*/
- return 0;
-/*< end >*/
-} /* waltalbe_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.f b/Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.f
deleted file mode 100644
index 98d8f93..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.f
+++ /dev/null
@@ -1,37 +0,0 @@
- subroutine waltalbe(a,ap,b,c,
- s brdfalb)
- parameter (nta=24,nfa=48)
- real teta1,teta2,phi1,phi2,ta(nta),fa(nfa),wta(nta),wfa(nfa)
- real a,ap,b,c
- real pi
- real brdfalb,summ,si2,si1,ts,tv,phi,pond,brdfint,mu1,mu2
- integer k,j,l
- pi=atan(1.)*4.
- teta1=0.
- teta2=pi/2.
- call gauss(teta1,teta2,ta,wta,nta)
- phi1=0.
- phi2=2.*pi
- call gauss(phi1,phi2,fa,wfa,nfa)
- brdfalb=0.
- summ=0.
- do 1 k=1,nfa
- do 2 j=1,nta
- do 3 l=1,nta
- si2=sin(ta(j))
- si1=sin(ta(l))
- mu2=cos(ta(j))
- mu1=cos(ta(l))
- ts=ta(j)
- tv=ta(l)
- phi=fa(k)
- pond=mu1*mu2*si1*si2*wfa(k)*wta(j)*wta(l)
- brdfint=a*ts*ts*tv*tv+ap*(ts*ts+tv*tv)+b*ts*tv*cos(phi)+c
- brdfalb=brdfalb+brdfint*pond
- summ=summ+pond
- 3 continue
- 2 continue
- 1 continue
- brdfalb=brdfalb/summ
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.h b/Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.h
deleted file mode 100644
index 3e1f6d1..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WALTALBE.h
+++ /dev/null
@@ -1,7 +0,0 @@
-extern int otb_6s_waltalbe_(
- otb_6s_doublereal *a,
- otb_6s_doublereal *ap,
- otb_6s_doublereal *b,
- otb_6s_doublereal *c__,
- otb_6s_doublereal *brdfalb
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.P b/Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.P
deleted file mode 100644
index b13d1e8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int waltbrdf_(doublereal *a, doublereal *ap, doublereal *b, doublereal *c__, integer *mu, integer *np, doublereal *rm, doublereal *rp, doublereal *brdfint);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.c b/Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.c
deleted file mode 100644
index cbb265e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.c
+++ /dev/null
@@ -1,85 +0,0 @@
-/* WALTBRDF.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< >*/
-/* Subroutine */ int waltbrdf_(doublereal *a, doublereal *ap, doublereal *b,
- doublereal *c__, integer *mu, integer *np, doublereal *rm, doublereal
- *rp, doublereal *brdfint)
-{
- /* System generated locals */
- integer rm_offset, brdfint_dim1, brdfint_offset, i__1, i__2;
-
- /* Builtin functions */
- double acos(doublereal), cos(doublereal);
-
- /* Local variables */
- integer j, k;
- doublereal fi, ts, tv, phi, xmu, view;
-
-/* this model can be found in applied optics vol 24 / no 3/ pp 383-387 */
-/* but it has to be modified (slightly) to match reciprocity principle */
-/*< integer mu,np,k,j >*/
-/*< real rm(-mu:mu),rp(np),brdfint(-mu:mu,np) >*/
-/*< real a,ap,b,c >*/
-/*< real xmu,ts,view,tv,fi,phi >*/
-/*< xmu=rm(0) >*/
- /* Parameter adjustments */
- rm_offset = -(*mu);
- rm -= rm_offset;
- brdfint_dim1 = *mu - (-(*mu)) + 1;
- brdfint_offset = -(*mu) + brdfint_dim1;
- brdfint -= brdfint_offset;
- --rp;
-
- /* Function Body */
- xmu = rm[0];
-/*< ts=acos(xmu) >*/
- ts = acos(xmu);
-/*< do 1 k=1,np >*/
- i__1 = *np;
- for (k = 1; k <= i__1; ++k) {
-/*< do 2 j=1,mu >*/
- i__2 = *mu;
- for (j = 1; j <= i__2; ++j) {
-/*< view=rm(j) >*/
- view = rm[j];
-/*< tv=acos(view) >*/
- tv = acos(view);
-/*< if (j.eq.mu) then >*/
- if (j == *mu) {
-/*< fi=rm(-mu) >*/
- fi = rm[-(*mu)];
-/*< else >*/
- } else {
-/*< fi=rp(k)+rm(-mu) >*/
- fi = rp[k] + rm[-(*mu)];
-/*< endif >*/
- }
-/*< phi=fi >*/
- phi = fi;
-/*< brdfint(j,k)=a*(ts*ts*tv*tv)+ap*(ts*ts+tv*tv)+b*ts*tv*cos(phi)+c >*/
- brdfint[j + k * brdfint_dim1] = *a * (ts * ts * tv * tv) + *ap * (
- ts * ts + tv * tv) + *b * ts * tv * cos(phi) + *c__;
-/*< 2 continue >*/
-/* L2: */
- }
-/*< 1 continue >*/
-/* L1: */
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* waltbrdf_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.f b/Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.f
deleted file mode 100644
index ee5a13b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.f
+++ /dev/null
@@ -1,26 +0,0 @@
- subroutine waltbrdf(a,ap,b,c,mu,np,rm,rp,
- s brdfint)
-c this model can be found in applied optics vol 24 / no 3/ pp 383-387
-c but it has to be modified (slightly) to match reciprocity principle
- integer mu,np,k,j
- real rm(-mu:mu),rp(np),brdfint(-mu:mu,np)
- real a,ap,b,c
- real xmu,ts,view,tv,fi,phi
-
- xmu=rm(0)
- ts=acos(xmu)
- do 1 k=1,np
- do 2 j=1,mu
- view=rm(j)
- tv=acos(view)
- if (j.eq.mu) then
- fi=rm(-mu)
- else
- fi=rp(k)+rm(-mu)
- endif
- phi=fi
- brdfint(j,k)=a*(ts*ts*tv*tv)+ap*(ts*ts+tv*tv)+b*ts*tv*cos(phi)+c
- 2 continue
- 1 continue
- return
- end
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.h b/Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.h
deleted file mode 100644
index c28f906..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WALTBRDF.h
+++ /dev/null
@@ -1,11 +0,0 @@
-extern int otb_6s_waltbrdf_(
- otb_6s_doublereal *a,
- otb_6s_doublereal *ap,
- otb_6s_doublereal *b,
- otb_6s_doublereal *c__,
- otb_6s_integer *mu,
- otb_6s_integer *np,
- otb_6s_doublereal *rm,
- otb_6s_doublereal *rp,
- otb_6s_doublereal *brdfint
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WATE.P b/Modules/ThirdParty/6S/src/6SV1.0B/WATE.P
deleted file mode 100644
index c438bc8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WATE.P
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int wate_();
-/* comlen num_quad__ 4 */
-/* comlen sixs_aerbas__ 480000 */
-/* comlen sixs_coef__ 1952 */
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WATE.c b/Modules/ThirdParty/6S/src/6SV1.0B/WATE.c
deleted file mode 100644
index d192fb2..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WATE.c
+++ /dev/null
@@ -1,700 +0,0 @@
-/* WATE.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- doublereal ph[20000] /* was [20][1000] */, qh[20000] /* was [20][
- 1000] */, uh[20000] /* was [20][1000] */;
-} sixs_aerbas__;
-
-#define sixs_aerbas__1 sixs_aerbas__
-
-Extern struct {
- doublereal ex[80] /* was [4][20] */, sc[80] /* was [4][20] */,
- asy[80] /* was [4][20] */, vi[4];
-} sixs_coef__;
-
-#define sixs_coef__1 sixs_coef__
-
-/*< subroutine wate >*/
-/* Subroutine */ int wate_()
-{
- /* Initialized data */
-
- static doublereal asy_m__[20] = { .663,.657,.655,.651,.648,.645,.642,.638,
- .633,.628,.623,.62,.613,.605,.563,.549,.535,.493,.469,.369 };
- static doublereal ex_m__[20] = { .01668202,.01485427,.01444705,.01344278,
- .0126322,.01211881,.01139759,.01053951,.009646374,.008791811,
- .008128974,.007729647,.006740132,.005455605,.00283833,.001442047,
- .001220081,.001323107,8.564052e-4,1.457627e-4 };
- static doublereal sc_m__[20] = { .01611682,.01436933,.0139778,.01301239,
- .01223016,.0117355,.0110181,.01014493,.009284852,.008424427,
- .007772448,.007389077,.006363583,.005064777,.002432695,.001098548,
- 9.381454e-4,5.656477e-4,4.127454e-4,1.24475e-4 };
- static doublereal phr[1660] /* was [20][83] */ = { .4078,.3768,.3723,
- .3587,.3523,.3444,.3349,.3249,.3184,.3086,.3051,.3033,.2928,.2827,
- .3014,.3262,.3448,.3923,.4345,.6107,.4008,.3712,.3669,.3539,.3477,
- .3402,.3311,.3214,.3153,.306,.3027,.3011,.291,.2814,.3009,.3259,
- .3446,.3921,.4343,.6105,.3754,.3505,.3467,.3359,.3304,.3244,.3167,
- .3083,.3034,.2958,.2933,.2923,.2838,.2762,.2986,.3249,.3435,.3915,
- .4335,.6093,.3409,.3219,.3189,.3107,.3062,.3021,.2962,.2894,.2863,
- .281,.2795,.2793,.2731,.2683,.295,.3232,.3418,.3903,.4322,.6073,
- .3069,.2929,.2907,.2848,.2815,.2789,.2748,.2697,.2683,.265,.2646,
- .2651,.2614,.2596,.2907,.321,.3396,.3888,.4304,.6045,.279,.2686,
- .2671,.2629,.2607,.259,.2562,.2525,.2524,.2507,.2512,.2523,.2506,
- .2514,.2863,.3186,.3371,.3868,.4281,.601,.2597,.2513,.2502,.2469,
- .2455,.2442,.2422,.2395,.2402,.2395,.2406,.242,.2418,.2446,.2822,
- .3161,.3344,.3846,.4254,.5968,.2483,.2406,.2396,.2368,.2356,.2346,
- .2329,.2309,.2319,.2316,.233,.2346,.2353,.2394,.2785,.3133,.3315,
- .382,.4224,.5921,.2419,.2345,.2335,.2308,.2296,.2286,.2272,.2253,
- .2264,.2263,.2279,.2294,.2306,.2354,.2752,.3105,.3285,.3791,.419,
- .5869,.2373,.2303,.2294,.2267,.2256,.2245,.2232,.2214,.2225,.2226,
- .2241,.2256,.2272,.2323,.2722,.3074,.3252,.376,.4154,.5811,.2327,
- .2263,.2254,.2229,.2219,.2209,.2197,.2181,.2193,.2194,.221,.2225,
- .2242,.2295,.2693,.3042,.3218,.3727,.4114,.575,.227,.2215,.2207,
- .2186,.2177,.217,.216,.2147,.2159,.2163,.2179,.2194,.2214,.2268,
- .2665,.3008,.3182,.3692,.4073,.5684,.2204,.2157,.2151,.2135,.2129,
- .2125,.2118,.2108,.2122,.2129,.2147,.2163,.2184,.224,.2637,.2973,
- .3144,.3655,.403,.5615,.2128,.2093,.2088,.2078,.2076,.2075,.2071,
- .2066,.2082,.2092,.2111,.2128,.2153,.2211,.2608,.2937,.3106,.3617,
- .3985,.5543,.2049,.2026,.2023,.2019,.202,.2021,.2021,.2021,.2039,
- .2053,.2075,.2093,.2121,.2182,.2579,.2901,.3067,.3579,.3939,.5469,
- .1969,.1958,.1958,.1958,.1963,.1967,.197,.1974,.1996,.2014,.2038,
- .2056,.2089,.2152,.2551,.2865,.3029,.354,.3893,.5393,.1894,.1893,
- .1895,.19,.1909,.1914,.1921,.1929,.1954,.1975,.2001,.2021,.2057,
- .2122,.2523,.2829,.2991,.3501,.3847,.5316,.1825,.1833,.1836,.1846,
- .1857,.1865,.1875,.1887,.1914,.1939,.1966,.1987,.2027,.2095,.2497,
- .2796,.2955,.3463,.3801,.5239,.1763,.1779,.1783,.1797,.181,.1821,
- .1833,.1848,.1878,.1906,.1935,.1956,.1999,.2069,.2473,.2764,.292,
- .3427,.3756,.5163,.171,.1731,.1736,.1754,.1769,.1781,.1796,.1814,
- .1846,.1876,.1907,.1929,.1974,.2047,.2451,.2734,.2888,.3392,.3713,
- .5087,.1664,.169,.1696,.1717,.1734,.1748,.1765,.1785,.1819,.1851,
- .1883,.1907,.1954,.2028,.2433,.2707,.2858,.3359,.3673,.5014,.1627,
- .1657,.1664,.1687,.1705,.1721,.1739,.1762,.1797,.1831,.1865,.1889,
- .1938,.2014,.2418,.2683,.2832,.3329,.3635,.4943,.1598,.1631,.1639,
- .1663,.1684,.17,.172,.1745,.1781,.1817,.1851,.1876,.1927,.2004,
- .2408,.2664,.2809,.3302,.36,.4876,.1576,.1613,.1622,.1647,.1669,
- .1686,.1707,.1734,.1771,.1809,.1844,.1869,.1922,.2,.2402,.2648,
- .2791,.328,.357,.4814,.1561,.1601,.1612,.1638,.1662,.1678,.1701,
- .1729,.1768,.1807,.1843,.1867,.1922,.2001,.2401,.2638,.2778,.3262,
- .3545,.4757,.1555,.1598,.1609,.1636,.1662,.1678,.1701,.1731,.1771,
- .1811,.1848,.1873,.1929,.2008,.2407,.2633,.2771,.325,.3526,.4706,
- .1556,.1602,.1613,.1642,.1668,.1685,.1709,.174,.1781,.1822,.1859,
- .1884,.1942,.2022,.2419,.2635,.277,.3244,.3513,.4663,.1565,.1614,
- .1625,.1655,.1681,.1699,.1725,.1756,.1798,.184,.1878,.1903,.1962,
- .2042,.2439,.2643,.2776,.3245,.3507,.4628,.1583,.1633,.1645,.1676,
- .1703,.1721,.1747,.178,.1823,.1866,.1904,.193,.199,.2071,.2466,
- .2659,.279,.3254,.351,.4603,.1608,.166,.1672,.1704,.1732,.175,
- .1778,.1811,.1855,.1899,.1939,.1965,.2026,.2107,.2502,.2683,.2812,
- .3272,.3522,.4587,.1641,.1694,.1707,.174,.1769,.1788,.1816,.1852,
- .1896,.1941,.1982,.2008,.207,.2152,.2547,.2717,.2844,.33,.3544,
- .4584,.1683,.1738,.1751,.1785,.1816,.1835,.1864,.1901,.1946,.1993,
- .2034,.2061,.2125,.2207,.2603,.276,.2886,.3338,.3577,.4593,.1734,
- .179,.1804,.1839,.1871,.1891,.1921,.196,.2006,.2054,.2096,.2124,
- .2189,.2273,.267,.2815,.294,.3388,.3623,.4617,.1794,.1853,.1867,
- .1904,.1937,.1957,.1989,.2028,.2076,.2125,.2169,.2197,.2264,.2349,
- .2749,.2882,.3007,.3451,.3682,.4655,.1864,.1926,.1941,.1979,.2013,
- .2034,.2067,.2108,.2158,.2209,.2254,.2283,.2351,.2438,.2842,.2963,
- .3087,.3529,.3756,.4711,.1945,.2009,.2026,.2065,.2101,.2123,.2157,
- .22,.2252,.2304,.2351,.2381,.2452,.254,.295,.3059,.3182,.3622,
- .3847,.4784,.2038,.2105,.2122,.2163,.2202,.2224,.226,.2306,.2359,
- .2414,.2462,.2493,.2566,.2657,.3073,.317,.3293,.3733,.3955,.4877,
- .2145,.2214,.2232,.2276,.2316,.234,.2377,.2425,.2481,.2538,.2589,
- .2621,.2697,.279,.3215,.3299,.3423,.3863,.4082,.499,.2265,.2338,
- .2357,.2403,.2446,.2471,.251,.2561,.2619,.2679,.2732,.2765,.2844,
- .2941,.3376,.3448,.3573,.4012,.4231,.5126,.24,.2479,.2499,.2548,
- .2592,.2619,.2661,.2714,.2775,.2838,.2893,.2928,.3011,.3112,.3558,
- .3618,.3744,.4185,.4402,.5286,.2553,.2638,.2659,.2711,.2757,.2786,
- .283,.2886,.2951,.3017,.3075,.3112,.3199,.3303,.3763,.3812,.3939,
- .4381,.4599,.5471,.2636,.2724,.2746,.28,.2847,.2877,.2923,.298,
- .3046,.3115,.3174,.3212,.3301,.3408,.3875,.3918,.4046,.449,.4707,
- .5574,.2725,.2816,.2838,.2894,.2942,.2974,.302,.3079,.3148,.3219,
- .3279,.3318,.3409,.3519,.3993,.4031,.416,.4605,.4822,.5684,.2919,
- .3015,.3038,.3098,.3151,.3185,.3234,.3297,.337,.3444,.3508,.355,
- .3646,.3761,.4252,.4278,.4409,.4856,.5074,.5926,.3137,.3239,.3264,
- .3328,.3385,.3421,.3473,.3542,.3618,.3697,.3766,.3809,.3911,.4032,
- .4541,.4556,.4689,.514,.5357,.6198,.338,.349,.3518,.3586,.3648,
- .3686,.3742,.3816,.3897,.3981,.4053,.4099,.4207,.4335,.4864,.4867,
- .5002,.5456,.5674,.6503,.3653,.3773,.3803,.3877,.3943,.3983,.4044,
- .4122,.4209,.4299,.4375,.4424,.4538,.4673,.5223,.5216,.5353,.581,
- .6028,.6842,.3959,.4091,.4124,.4203,.4273,.4317,.4382,.4465,.4559,
- .4654,.4736,.4787,.4908,.5051,.5623,.5604,.5744,.6204,.6421,.7218,
- .4304,.4448,.4482,.4568,.4643,.4691,.4761,.485,.495,.5052,.5138,
- .5193,.5321,.5472,.6067,.6037,.6179,.664,.6857,.7633,.4693,.4848,
- .4885,.4978,.5058,.5111,.5186,.5281,.5387,.5497,.5588,.5646,.5782,
- .5942,.656,.6519,.6662,.7123,.7338,.8087,.513,.5297,.5337,.5438,
- .5524,.5582,.5662,.5764,.5877,.5994,.6091,.6153,.6297,.6466,.7106,
- .7053,.7198,.7657,.7869,.8584,.562,.5803,.5845,.5955,.6048,.611,
- .6196,.6305,.6426,.6551,.6653,.6719,.6871,.7049,.7711,.7646,.7791,
- .8245,.8452,.9125,.617,.6371,.6418,.6537,.6637,.6702,.6795,.6912,
- .7042,.7173,.7282,.7351,.7512,.7699,.838,.8302,.8447,.8892,.9092,
- .9713,.679,.7011,.7063,.719,.7298,.7367,.7468,.7593,.7731,.787,
- .7985,.8057,.8227,.8422,.912,.9027,.9172,.9602,.9792,1.035,.7492,
- .7732,.7788,.7925,.8042,.8115,.8223,.8356,.8503,.865,.8771,.8845,
- .9024,.9228,.9936,.9829,.997,1.038,1.056,1.103,.8284,.8544,.8605,
- .8753,.8878,.8956,.9071,.9213,.9367,.9522,.9649,.9727,.9912,1.012,
- 1.084,1.071,1.085,1.123,1.139,1.177,.9179,.9461,.9525,.9685,.9818,
- .9903,1.002,1.017,1.034,1.05,1.063,1.071,1.09,1.112,1.183,1.169,
- 1.182,1.216,1.23,1.256,1.019,1.05,1.056,1.074,1.088,1.097,1.11,
- 1.125,1.142,1.159,1.173,1.181,1.201,1.223,1.293,1.276,1.288,1.318,
- 1.329,1.341,1.134,1.167,1.174,1.192,1.207,1.217,1.23,1.246,1.264,
- 1.281,1.295,1.304,1.324,1.346,1.413,1.395,1.405,1.429,1.436,1.432,
- 1.263,1.299,1.307,1.326,1.341,1.352,1.366,1.382,1.4,1.418,1.432,
- 1.441,1.461,1.483,1.545,1.525,1.533,1.549,1.552,1.528,1.41,1.448,
- 1.456,1.477,1.493,1.503,1.518,1.535,1.553,1.571,1.585,1.594,1.613,
- 1.635,1.691,1.668,1.673,1.68,1.678,1.63,1.576,1.617,1.626,1.647,
- 1.663,1.674,1.689,1.707,1.725,1.743,1.756,1.764,1.783,1.803,1.85,
- 1.824,1.827,1.822,1.813,1.738,1.765,1.808,1.817,1.839,1.856,1.867,
- 1.882,1.899,1.917,1.934,1.947,1.954,1.972,1.99,2.024,1.996,1.994,
- 1.975,1.959,1.852,1.979,2.024,2.033,2.055,2.072,2.083,2.098,2.115,
- 2.131,2.147,2.159,2.166,2.181,2.196,2.215,2.183,2.177,2.14,2.115,
- 1.972,2.222,2.268,2.277,2.299,2.316,2.326,2.34,2.356,2.371,2.385,
- 2.395,2.4,2.413,2.425,2.423,2.387,2.375,2.318,2.283,2.098,2.498,
- 2.544,2.553,2.575,2.59,2.6,2.613,2.626,2.639,2.65,2.658,2.661,
- 2.67,2.676,2.649,2.61,2.59,2.51,2.462,2.229,2.811,2.856,2.865,
- 2.885,2.898,2.907,2.918,2.928,2.938,2.945,2.949,2.95,2.953,2.952,
- 2.893,2.851,2.823,2.714,2.652,2.365,3.167,3.209,3.216,3.233,3.244,
- 3.251,3.259,3.266,3.27,3.272,3.271,3.269,3.265,3.255,3.158,3.112,
- 3.074,2.932,2.854,2.506,3.571,3.607,3.612,3.625,3.631,3.636,3.639,
- 3.641,3.638,3.633,3.626,3.621,3.607,3.587,3.443,3.394,3.343,3.164,
- 3.066,2.651,4.028,4.055,4.058,4.065,4.065,4.065,4.063,4.057,4.046,
- 4.032,4.017,4.007,3.982,3.947,3.747,3.695,3.631,3.409,3.289,2.798,
- 4.548,4.56,4.56,4.557,4.549,4.544,4.534,4.518,4.495,4.47,4.445,
- 4.429,4.389,4.337,4.071,4.016,3.936,3.666,3.522,2.948,5.137,5.128,
- 5.123,5.107,5.088,5.076,5.055,5.027,4.989,4.949,4.912,4.888,4.83,
- 4.757,4.413,4.356,4.257,3.933,3.762,3.099,5.806,5.766,5.753,5.72,
- 5.686,5.664,5.63,5.585,5.528,5.47,5.418,5.384,5.305,5.206,4.772,
- 4.712,4.593,4.209,4.009,3.248,6.564,6.481,6.458,6.401,6.347,6.313,
- 6.261,6.194,6.114,6.033,5.962,5.916,5.811,5.681,5.143,5.081,4.939,
- 4.491,4.258,3.395,7.422,7.279,7.244,7.154,7.074,7.023,6.949,6.855,
- 6.745,6.636,6.542,6.482,6.345,6.178,5.523,5.458,5.291,4.775,4.506,
- 3.538,8.393,8.169,8.115,7.982,7.868,7.797,7.693,7.565,7.418,7.275,
- 7.153,7.077,6.902,6.692,5.905,5.837,5.643,5.056,4.75,3.672,9.49,
- 9.154,9.076,8.887,8.728,8.63,8.49,8.319,8.128,7.942,7.788,7.692,
- 7.473,7.213,6.281,6.209,5.987,5.328,4.983,3.797,10.72,10.23,10.13,
- 9.863,9.649,9.516,9.33,9.107,8.861,8.626,8.434,8.315,8.045,7.728,
- 6.641,6.563,6.312,5.582,5.199,3.909,12.09,11.4,11.25,10.9,10.61,
- 10.43,10.19,9.909,9.6,9.306,9.071,8.925,8.599,8.219,6.971,6.885,
- 6.606,5.809,5.39,4.005,13.58,12.62,12.42,11.95,11.59,11.35,11.04,
- 10.69,10.31,9.948,9.668,9.492,9.107,8.66,7.255,7.159,6.855,6.,
- 5.548,4.082,15.08,13.8,13.55,12.93,12.49,12.19,11.81,11.38,10.93,
- 10.5,10.17,9.968,9.527,9.018,7.473,7.368,7.043,6.143,5.666,4.138,
- 16.32,14.72,14.42,13.68,13.16,12.8,12.36,11.87,11.35,10.87,10.51,
- 10.28,9.801,9.246,7.606,7.493,7.155,6.227,5.734,4.17,16.73,15.01,
- 14.69,13.9,13.35,12.98,12.51,12.,11.47,10.97,10.6,10.37,9.873,
- 9.304,7.638,7.523,7.182,6.248,5.75,4.177 };
- static doublereal qhr[1660] /* was [20][83] */ = { 3.27e-22,3.072e-22,
- -5.665e-23,-2.285e-22,-1.177e-22,-3.107e-22,-3.274e-22,7.827e-22,
- 1.904e-22,7.601e-22,-8.737e-23,-1.387e-22,-5.055e-22,-6.295e-22,
- -3.916e-22,-8.098e-22,-3.673e-23,7.005e-22,-7.083e-22,-7.188e-22,
- .003207,.002568,.002492,.002245,.002156,.00201,.001817,.001678,
- .001502,.001298,.001206,.001144,9.32e-4,7.026e-4,2.488e-4,3.08e-6,
- -1.188e-5,-1.645e-4,-1.681e-4,-2.182e-4,.0153,.01248,.01212,
- .01099,.01051,.00986,.00897,.008272,.007441,.00648,.006014,
- .005715,.00468,.003544,.001259,-6.454e-6,-8.432e-5,-8.69e-4,
- -8.896e-4,-.001157,.03251,.02717,.02642,.02411,.02298,.0217,
- .01991,.01831,.01659,.01459,.01353,.01287,.01062,.008087,.002881,
- -1.116e-4,-2.988e-4,-.002146,-.002204,-.002874,.05092,.0436,
- .04246,.03901,.03702,.03518,.03254,.02982,.02725,.0242,.02241,
- .02135,.01774,.01358,.004825,-4.447e-4,-7.816e-4,-.004009,
- -.004136,-.005413,.06799,.05948,.05794,.05358,.05062,.04841,
- .04511,.04118,.03791,.03396,.03142,.02998,.02507,.01926,.006761,
- -.001159,-.001678,-.006477,-.006718,-.008822,.08225,.07318,.07122,
- .06628,.0624,.06001,.05626,.05122,.04742,.0428,.03958,.03782,
- .03178,.02445,.00836,-.002397,-.003123,-.009571,-.009979,-.01315,
- .0928,.08356,.08128,.07605,.0715,.06903,.06501,.05917,.055,.04993,
- .04619,.0442,.03725,.02863,.009342,-.00427,-.005222,-.01331,
- -.01395,-.01842,.09921,.08997,.08756,.08227,.0774,.07494,.07079,
- .06459,.06017,.05485,.05079,.04867,.04108,.03144,.009497,-.006842,
- -.008035,-.01769,-.01864,-.02467,.1015,.09239,.09004,.08487,
- .08003,.07767,.0735,.06734,.0628,.05739,.05322,.05106,.04309,
- .03272,.0087,-.01014,-.01158,-.02274,-.02405,-.03188,.1,.09131,
- .08915,.08424,.07972,.07748,.0734,.06758,.06304,.05768,.05355,
- .05141,.04329,.03248,.006911,-.01414,-.01586,-.02843,-.03019,
- -.04007,.09567,.08754,.08559,.08108,.07706,.07492,.07102,.06569,
- .06125,.05603,.05206,.04997,.04188,.03084,.004156,-.01881,-.02082,
- -.03477,-.03704,-.04919,.08939,.08199,.08022,.07617,.07265,.07063,
- .06697,.06212,.05787,.05284,.04908,.04705,.03912,.028,5.045e-4,
- -.02411,-.02642,-.04172,-.04457,-.05922,.08197,.07541,.0738,
- .07019,.06706,.06518,.0618,.05734,.05333,.04854,.04496,.04298,
- .03527,.02418,-.003947,-.02999,-.03263,-.04928,-.05275,-.07012,
- .0741,.06836,.06691,.06366,.06076,.05905,.05594,.05176,.048,
- .04347,.04002,.0381,.03061,.0196,-.009095,-.03639,-.03938,-.0574,
- -.06156,-.08184,.06626,.06119,.05987,.05689,.05413,.05258,.04972,
- .04575,.04218,.0379,.03454,.03266,.02537,.01443,-.01484,-.04326,
- -.04662,-.06607,-.07097,-.09433,.0587,.0541,.05292,.05012,.04748,
- .04602,.04334,.03956,.03614,.03202,.02873,.02687,.01974,.008843,
- -.02109,-.05057,-.05433,-.07525,-.08093,-.1075,.05152,.04726,
- .04619,.04349,.04101,.03953,.03698,.03337,.03004,.026,.02276,
- .02087,.01386,.002958,-.02777,-.05828,-.06245,-.08491,-.09141,
- -.1214,.04482,.04077,.03981,.03712,.03482,.03321,.03075,.02726,
- .02399,.01995,.01674,.01479,.00784,-.003134,-.03481,-.06634,
- -.07095,-.09503,-.1024,-.1359,.03867,.03471,.0338,.0311,.02888,
- .02718,.02475,.0213,.01803,.01396,.01072,.008703,.001739,-.009368,
- -.04214,-.07473,-.07981,-.1056,-.1138,-.1509,.0331,.02911,.02818,
- .02545,.02318,.02148,.01902,.01553,.01219,.008058,.004747,.00267,
- -.004392,-.01569,-.04973,-.08343,-.08898,-.1165,-.1256,-.1664,
- .02806,.02394,.02292,.02016,.01774,.01608,.01355,.009959,.006484,
- .002279,-.001154,-.003281,-.01052,-.02207,-.05752,-.0924,-.09844,
- -.1278,-.1378,-.1823,.02347,.01912,.018,.01517,.0126,.01096,
- .008329,.004604,9.587e-4,-.003369,-.006948,-.009142,-.0166,
- -.02848,-.0655,-.1016,-.1082,-.1394,-.1504,-.1986,.01923,.01461,
- .01342,.01046,.007783,.006063,.003308,-5.389e-4,-.004373,-.008884,
- -.01262,-.01491,-.02263,-.03488,-.07363,-.1111,-.1181,-.1514,
- -.1632,-.2152,.01529,.01033,.009128,.005972,.003261,.001359,
- -.001532,-.005472,-.009519,-.01427,-.01815,-.02059,-.02858,
- -.04128,-.08188,-.1207,-.1283,-.1636,-.1764,-.232,.01167,.006317,
- .005096,.001719,-.001037,-.003135,-.006182,-.01022,-.01451,
- -.01953,-.02359,-.02617,-.03448,-.04766,-.09023,-.1306,-.1387,
- -.176,-.1897,-.2491,.008357,.002599,.001309,-.002273,-.00518,
- -.0074,-.01062,-.01482,-.01939,-.02467,-.02893,-.03165,-.04033,
- -.05404,-.09867,-.1406,-.1492,-.1887,-.2033,-.2662,.005291,
- -8.265e-4,-.002246,-.006013,-.009181,-.01144,-.01485,-.0193,
- -.02416,-.02968,-.03419,-.03704,-.04612,-.06039,-.1072,-.1507,
- -.1599,-.2015,-.217,-.2833,.002424,-.004024,-.005601,-.009552,
- -.01302,-.01531,-.01891,-.02368,-.0288,-.03458,-.03936,-.04234,
- -.05186,-.06673,-.1157,-.161,-.1707,-.2145,-.2308,-.3005,
- -2.987e-4,-.007076,-.00878,-.01295,-.01669,-.01906,-.02286,
- -.02795,-.03333,-.03939,-.04445,-.04758,-.05754,-.07304,-.1243,
- -.1713,-.1816,-.2275,-.2447,-.3175,-.002903,-.01005,-.01181,
- -.01626,-.02018,-.02274,-.02673,-.03208,-.03774,-.04412,-.04944,
- -.05276,-.06315,-.07931,-.1329,-.1818,-.1926,-.2407,-.2586,-.3344,
- -.005337,-.01294,-.01475,-.01949,-.02354,-.02633,-.03053,-.0361,
- -.04206,-.04879,-.05435,-.05787,-.06872,-.08556,-.1416,-.1923,
- -.2036,-.2539,-.2725,-.351,-.007573,-.0157,-.01759,-.0226,-.02685,
- -.02979,-.03422,-.04003,-.04632,-.05339,-.05922,-.0629,-.07424,
- -.09178,-.1502,-.2028,-.2146,-.267,-.2864,-.3674,-.009691,-.01828,
- -.02031,-.02556,-.0301,-.03312,-.03778,-.04392,-.05053,-.05791,
- -.06404,-.06788,-.07972,-.09796,-.1587,-.2134,-.2257,-.2802,
- -.3001,-.3833,-.01178,-.02072,-.0229,-.0284,-.03326,-.03636,
- -.04125,-.04776,-.05467,-.06236,-.0688,-.0728,-.08514,-.1041,
- -.1673,-.2239,-.2366,-.2932,-.3137,-.3988,-.01383,-.02309,-.0254,
- -.03116,-.03632,-.03955,-.04465,-.05153,-.05873,-.06674,-.07349,
- -.07767,-.09051,-.1102,-.1757,-.2344,-.2475,-.3061,-.3271,-.4138,
- -.01578,-.02543,-.02785,-.03389,-.0393,-.0427,-.04801,-.05521,
- -.06272,-.07108,-.07812,-.08248,-.09582,-.1162,-.1841,-.2448,
- -.2583,-.3188,-.3402,-.4282,-.01759,-.02774,-.03026,-.03659,
- -.04219,-.04579,-.05134,-.0588,-.06665,-.07536,-.08267,-.08722,
- -.1011,-.1222,-.1923,-.255,-.269,-.3313,-.353,-.4419,-.01927,
- -.02999,-.03261,-.03923,-.04504,-.04879,-.0546,-.06233,-.07052,
- -.07959,-.08717,-.09188,-.1062,-.1281,-.2004,-.2652,-.2795,-.3436,
- -.3655,-.4548,-.02086,-.03213,-.03487,-.04177,-.04783,-.05172,
- -.05777,-.06581,-.07431,-.08373,-.09159,-.09647,-.1113,-.1339,
- -.2084,-.2751,-.2897,-.3555,-.3775,-.4669,-.02249,-.03416,-.03701,
- -.0442,-.05051,-.05459,-.06086,-.06923,-.07802,-.08778,-.09591,
- -.101,-.1163,-.1396,-.2161,-.2848,-.2997,-.367,-.389,-.4782,
- -.02333,-.03515,-.03802,-.04539,-.05181,-.05602,-.06238,-.07092,
- -.07983,-.08976,-.09803,-.1032,-.1187,-.1424,-.2199,-.2896,-.3046,
- -.3726,-.3946,-.4834,-.02417,-.03613,-.03901,-.04656,-.05308,
- -.05744,-.06388,-.07257,-.08161,-.09172,-.1001,-.1054,-.1212,
- -.1452,-.2236,-.2943,-.3093,-.378,-.4,-.4884,-.02574,-.03805,
- -.04096,-.04886,-.05557,-.0602,-.06683,-.0758,-.08513,-.09557,
- -.1042,-.1097,-.1259,-.1506,-.2308,-.3034,-.3186,-.3886,-.4103,
- -.4975,-.02702,-.03986,-.04291,-.05107,-.05804,-.06279,-.06966,
- -.07891,-.08857,-.09932,-.1082,-.1139,-.1305,-.1558,-.2378,-.3122,
- -.3275,-.3986,-.42,-.5056,-.02805,-.04152,-.04481,-.05316,-.06048,
- -.06518,-.07234,-.08192,-.09192,-.1029,-.1121,-.1178,-.135,-.1609,
- -.2444,-.3205,-.3359,-.4079,-.4289,-.5124,-.029,-.04304,-.04656,
- -.0551,-.06279,-.06745,-.07487,-.08482,-.09512,-.1064,-.1158,
- -.1216,-.1392,-.1657,-.2506,-.3284,-.3438,-.4165,-.437,-.518,
- -.03001,-.04445,-.0481,-.05691,-.06488,-.06966,-.07728,-.08757,
- -.0981,-.1097,-.1193,-.1252,-.1432,-.1703,-.2563,-.3357,-.3511,
- -.4244,-.4442,-.5222,-.03105,-.04578,-.04943,-.05859,-.06672,
- -.07182,-.07958,-.09011,-.1008,-.1127,-.1226,-.1287,-.147,-.1745,
- -.2616,-.3425,-.3577,-.4314,-.4504,-.525,-.03198,-.04704,-.05059,
- -.06017,-.06833,-.07386,-.08174,-.09242,-.1033,-.1155,-.1255,
- -.1318,-.1504,-.1784,-.2663,-.3485,-.3636,-.4375,-.4556,-.5263,
- -.0326,-.04816,-.05164,-.0616,-.06976,-.07564,-.08369,-.09447,
- -.1056,-.1181,-.1282,-.1347,-.1535,-.1819,-.2704,-.3538,-.3687,
- -.4425,-.4596,-.5261,-.03277,-.049,-.05263,-.06279,-.07108,
- -.07703,-.08533,-.09628,-.1077,-.1204,-.1306,-.1371,-.1562,-.185,
- -.2739,-.3584,-.3729,-.4465,-.4624,-.5244,-.03258,-.04946,-.05344,
- -.06363,-.07229,-.07801,-.08658,-.09782,-.1095,-.1223,-.1327,
- -.1392,-.1586,-.1876,-.2766,-.362,-.3762,-.4493,-.464,-.521,
- -.03228,-.04956,-.05387,-.0641,-.07324,-.07871,-.08748,-.09906,
- -.1109,-.1238,-.1344,-.1408,-.1604,-.1897,-.2785,-.3646,-.3784,
- -.4508,-.4641,-.5159,-.03202,-.04941,-.05384,-.06425,-.07376,
- -.0792,-.08805,-.09995,-.1119,-.1248,-.1356,-.142,-.1618,-.1912,
- -.2796,-.3662,-.3795,-.451,-.4629,-.5091,-.03162,-.04911,-.05345,
- -.06416,-.07378,-.07945,-.08833,-.1004,-.1124,-.1254,-.1362,
- -.1427,-.1625,-.192,-.2797,-.3667,-.3794,-.4497,-.4601,-.5006,
- -.03082,-.04863,-.05284,-.06383,-.07333,-.07934,-.08827,-.1003,
- -.1123,-.1255,-.1363,-.1428,-.1626,-.1921,-.2789,-.3659,-.378,
- -.4469,-.4557,-.4904,-.02951,-.04784,-.05203,-.06318,-.07251,
- -.07872,-.08776,-.09973,-.1118,-.125,-.1357,-.1423,-.162,-.1914,
- -.2769,-.3638,-.3753,-.4426,-.4497,-.4784,-.02774,-.0466,-.05091,
- -.06207,-.07135,-.07753,-.08671,-.09856,-.1107,-.124,-.1345,-.141,
- -.1607,-.1899,-.2739,-.3603,-.3711,-.4365,-.442,-.4647,-.0256,
- -.04486,-.04937,-.06043,-.06979,-.07578,-.08505,-.09684,-.109,
- -.1222,-.1327,-.1391,-.1586,-.1875,-.2696,-.3553,-.3653,-.4288,
- -.4325,-.4493,-.02325,-.04262,-.04726,-.05823,-.0677,-.07351,
- -.08278,-.09456,-.1067,-.1197,-.1301,-.1363,-.1556,-.1841,-.2641,
- -.3487,-.358,-.4192,-.4212,-.4322,-.0207,-.03988,-.04454,-.05545,
- -.06503,-.0707,-.07988,-.09172,-.1036,-.1165,-.1267,-.1328,-.1518,
- -.1797,-.2573,-.3406,-.349,-.4078,-.4081,-.4135,-.01785,-.03672,
- -.04131,-.05217,-.06179,-.06734,-.07638,-.08822,-.09986,-.1124,
- -.1225,-.1284,-.147,-.1743,-.2491,-.3307,-.3383,-.3945,-.3932,
- -.3933,-.01456,-.03327,-.03774,-.0485,-.05797,-.06342,-.07232,
- -.08396,-.09534,-.1076,-.1174,-.1232,-.1413,-.1679,-.2396,-.3191,
- -.3259,-.3794,-.3765,-.3717,-.01079,-.02954,-.03391,-.04447,
- -.05359,-.05892,-.0677,-.07892,-.09009,-.102,-.1115,-.117,-.1347,
- -.1603,-.2288,-.3058,-.3118,-.3624,-.3581,-.3487,-.006552,-.0255,
- -.0299,-.04006,-.04867,-.05381,-.06252,-.07313,-.08412,-.09576,
- -.1048,-.11,-.1271,-.1517,-.2166,-.2907,-.2959,-.3435,-.3379,
- -.3247,-.002046,-.0211,-.02558,-.0352,-.04324,-.04817,-.05675,
- -.06667,-.07745,-.08875,-.09726,-.1021,-.1185,-.142,-.2032,-.274,
- -.2784,-.3229,-.3162,-.2996,.002427,-.01625,-.02068,-.02982,
- -.03733,-.04211,-.05042,-.05971,-.07012,-.08098,-.08897,-.09358,
- -.1092,-.1314,-.1886,-.2557,-.2593,-.3006,-.293,-.2738,.006831,
- -.01094,-.01509,-.02387,-.0311,-.03569,-.04355,-.05239,-.06223,
- -.07249,-.08004,-.08439,-.09905,-.1199,-.173,-.2358,-.2387,-.2769,
- -.2685,-.2475,.01125,-.005391,-.009021,-.01759,-.02463,-.029,
- -.0363,-.04477,-.05388,-.06342,-.07058,-.07467,-.08833,-.1077,
- -.1564,-.2147,-.217,-.2518,-.243,-.2209,.01556,1.815e-4,-.002838,
- -.01121,-.0179,-.02214,-.02885,-.03691,-.0452,-.054,-.06073,
- -.06457,-.07715,-.09501,-.1393,-.1925,-.1943,-.2258,-.2168,-.1944,
- .01973,.005608,.003017,-.004967,-.01103,-.01526,-.02139,-.02889,
- -.03637,-.04452,-.05069,-.0543,-.06573,-.08198,-.1217,-.1696,
- -.1709,-.199,-.1901,-.1682,.02378,.01045,.008104,7.145e-4,-.00419,
- -.008605,-.01428,-.02082,-.02761,-.0353,-.04067,-.04408,-.05431,
- -.06888,-.1041,-.1463,-.1472,-.1719,-.1634,-.1427,.02733,.01427,
- .01235,.005468,.002318,-.002624,-.00792,-.01297,-.01923,-.02664,
- -.031,-.03425,-.0432,-.05606,-.08671,-.123,-.1236,-.145,-.1371,
- -.1182,.03014,.01684,.01563,.009077,.00788,.002332,-.002621,
- -.005784,-.01167,-.01881,-.02207,-.02514,-.03277,-.04388,-.07,
- -.1004,-.1007,-.1187,-.1116,-.09509,.03208,.01791,.01744,.01128,
- .01185,.006005,.001348,2.719e-4,-.005415,-.01215,-.01433,-.01706,
- -.02345,-.03273,-.05435,-.07876,-.07898,-.09361,-.08761,-.07378,
- .03229,.01747,.0176,.01205,.01387,.008157,.003877,.004674,
- -8.093e-4,-.006858,-.008122,-.01036,-.01555,-.02298,-.04014,
- -.05881,-.05895,-.07033,-.06551,-.0546,.03032,.01587,.0161,.01158,
- .01371,.008858,.005104,.007019,.001951,-.003038,-.003659,-.005266,
- -.009332,-.0149,-.02772,-.04108,-.04116,-.04948,-.04587,-.03789,
- .02608,.01318,.01301,.009914,.0115,.008231,.005129,.007265,
- .002941,-6.839e-4,-9.475e-4,-.001865,-.004876,-.008663,-.01739,
- -.02607,-.02611,-.03164,-.02921,-.02395,.01884,.009121,.0091,
- .007016,.008198,.006104,.003927,.005707,.002675,3.868e-4,3.168e-4,
- -1.354e-4,-.002042,-.004266,-.009372,-.01421,-.01423,-.01738,
- -.01599,-.01303,.009652,.004451,.004953,.00353,.00449,.003074,
- .002011,.003083,.001652,5.016e-4,5.233e-4,2.818e-4,-5.68e-4,
- -.001564,-.003802,-.005822,-.005834,-.007169,-.006579,-.005337,
- .002171,9.663e-4,.00121,7.827e-4,.001092,6.67e-4,4.411e-4,
- 7.031e-4,4.204e-4,1.542e-4,1.689e-4,1.009e-4,-6.441e-5,-2.702e-4,
- -7.186e-4,-.001108,-.001111,-.001371,-.001257,-.001017,5.166e-21,
- 1.243e-20,1.736e-20,-3.524e-21,-3.76e-20,2.643e-20,-1.732e-20,
- -1.986e-20,1.092e-20,-1.453e-20,-2.604e-20,-1.08e-20,-2.8e-20,
- 2.095e-20,2.245e-21,-2.604e-21,1.081e-21,-5.448e-21,8.424e-21,
- 9.963e-21 };
- static doublereal uhr[1660] /* was [20][83] */ = { -.4078,-.3768,-.3723,
- -.3587,-.3523,-.3444,-.3349,-.3249,-.3184,-.3086,-.3051,-.3033,
- -.2928,-.2827,-.3014,-.3262,-.3448,-.3923,-.4345,-.6107,-.4006,
- -.3711,-.3668,-.3538,-.3476,-.3401,-.331,-.3214,-.3152,-.306,
- -.3027,-.301,-.291,-.2814,-.3009,-.3259,-.3446,-.3921,-.4343,
- -.6105,-.372,-.3481,-.3445,-.334,-.3287,-.3229,-.3155,-.3072,
- -.3025,-.2951,-.2927,-.2917,-.2834,-.2759,-.2985,-.3248,-.3435,
- -.3914,-.4335,-.6093,-.328,-.3122,-.3097,-.3029,-.2992,-.2957,
- -.2907,-.2847,-.2823,-.2776,-.2765,-.2765,-.271,-.2668,-.2944,
- -.3228,-.3415,-.3903,-.4321,-.6072,-.2777,-.2704,-.2691,-.2662,
- -.2646,-.2633,-.261,-.2577,-.2578,-.2562,-.2567,-.2578,-.2556,
- -.2553,-.289,-.32,-.3386,-.3886,-.4301,-.6042,-.2287,-.2286,
- -.2287,-.229,-.2297,-.23,-.2302,-.2297,-.2322,-.2333,-.2355,
- -.2375,-.2387,-.2423,-.2825,-.3164,-.335,-.3863,-.4275,-.6003,
- -.1851,-.1905,-.1917,-.1946,-.1972,-.1987,-.201,-.2029,-.2074,
- -.2109,-.2146,-.2173,-.2216,-.2289,-.2751,-.3121,-.3307,-.3835,
- -.4242,-.5955,-.1482,-.1574,-.1596,-.1643,-.1684,-.1707,-.1745,
- -.1784,-.1845,-.1898,-.1948,-.1981,-.205,-.2154,-.2673,-.3072,
- -.3258,-.3802,-.4203,-.5899,-.1175,-.1292,-.132,-.1379,-.1431,
- -.1461,-.151,-.1564,-.1637,-.1705,-.1764,-.1803,-.1892,-.2023,
- -.259,-.3018,-.3203,-.3764,-.4159,-.5835,-.09206,-.1051,-.1083,
- -.1151,-.1211,-.1246,-.1303,-.1368,-.145,-.1528,-.1595,-.1638,
- -.1744,-.1897,-.2505,-.2959,-.3144,-.372,-.4109,-.5763,-.07104,
- -.08476,-.08809,-.09555,-.1021,-.106,-.1121,-.1195,-.1282,-.1368,
- -.1441,-.1488,-.1606,-.1776,-.2419,-.2897,-.3081,-.3671,-.4053,
- -.5683,-.05377,-.06764,-.07094,-.07883,-.0857,-.08992,-.0963,
- -.1043,-.1133,-.1224,-.1301,-.135,-.1478,-.1661,-.2331,-.2832,
- -.3014,-.3618,-.3992,-.5596,-.03958,-.05336,-.05657,-.06466,
- -.07161,-.07601,-.08253,-.09085,-.09996,-.1094,-.1174,-.1225,
- -.1359,-.1553,-.2243,-.2764,-.2945,-.356,-.3926,-.5501,-.02786,
- -.04147,-.04462,-.05267,-.05955,-.06397,-.07056,-.07899,-.08816,
- -.09782,-.1059,-.111,-.1249,-.145,-.2156,-.2693,-.2872,-.3497,
- -.3854,-.5399,-.01818,-.03151,-.03464,-.04247,-.04921,-.0535,
- -.0601,-.0685,-.07766,-.08738,-.09549,-.1006,-.1148,-.1353,-.2068,
- -.2621,-.2797,-.3429,-.3778,-.529,-.01018,-.02308,-.02617,-.03369,
- -.04025,-.04437,-.05089,-.05916,-.06825,-.07791,-.08596,-.09095,
- -.1053,-.1261,-.198,-.2545,-.272,-.3357,-.3696,-.5173,-.003538,
- -.01583,-.01883,-.02603,-.03236,-.03632,-.04269,-.0508,-.0597,
- -.06922,-.07715,-.08206,-.0964,-.1173,-.1893,-.2468,-.2639,-.328,
- -.361,-.5049,.002058,-.009485,-.0123,-.01922,-.02527,-.02916,
- -.0353,-.04321,-.05182,-.06116,-.06893,-.07377,-.08796,-.1089,
- -.1805,-.2388,-.2556,-.3198,-.3518,-.4917,.006933,-.003835,
- -.006407,-.01308,-.0188,-.02265,-.02853,-.0362,-.04446,-.0536,
- -.06116,-.06594,-.07989,-.1006,-.1716,-.2306,-.247,-.3112,-.342,
- -.4778,.01138,.001322,-.001026,-.007422,-.01281,-.0166,-.02222,
- -.0296,-.03752,-.04641,-.05374,-.05843,-.07208,-.09258,-.1626,
- -.222,-.2381,-.3019,-.3317,-.463,.01558,.006165,.00398,-.002095,
- -.00718,-.01085,-.01621,-.02328,-.03089,-.03949,-.04658,-.05113,
- -.06446,-.08462,-.1535,-.2131,-.2288,-.2922,-.3208,-.4475,.01965,
- .01083,.008757,.003038,-.001787,-.005263,-.01038,-.01714,-.02446,
- -.03274,-.03957,-.04396,-.05694,-.07669,-.1442,-.2039,-.2191,
- -.2818,-.3092,-.4311,.02367,.01543,.01343,.008084,.003489,2.49e-4,
- -.004628,-.0111,-.01811,-.02605,-.03262,-.03681,-.04942,-.06871,
- -.1346,-.1942,-.2089,-.2708,-.297,-.4138,.02775,.02004,.01811,
- .01314,.008745,.005774,.001127,-.005068,-.01176,-.01934,-.02564,
- -.02962,-.04184,-.0606,-.1247,-.1841,-.1983,-.2592,-.2841,-.3956,
- .03192,.02475,.02289,.01827,.01408,.01138,.006964,.001041,
- -.005318,-.01252,-.01855,-.02232,-.03412,-.05231,-.1144,-.1735,
- -.1871,-.2469,-.2704,-.3764,.03625,.02959,.02782,.02355,.01958,
- .01711,.01294,.00732,.001301,-.005525,-.01127,-.01482,-.02616,
- -.04375,-.1037,-.1624,-.1754,-.2338,-.2559,-.3562,.0408,.03462,
- .03298,.02903,.02534,.02304,.01912,.01385,.008176,.001721,
- -.003707,-.007059,-.01791,-.03485,-.09251,-.1506,-.163,-.2198,
- -.2406,-.335,.04562,.03992,.03844,.03478,.03142,.02924,.02559,
- .02071,.01538,.009294,.004205,.001045,-.009273,-.02554,-.08074,
- -.1382,-.1499,-.205,-.2243,-.3126,.05078,.04557,.04427,.04088,
- .03787,.03581,.03242,.02794,.02299,.01727,.01254,.009572,
- -1.876e-4,-.01574,-.06832,-.125,-.1361,-.1893,-.2071,-.2891,.0564,
- .05169,.05053,.04745,.04476,.04285,.03973,.03562,.03106,.02574,
- .02136,.01861,.009424,-.005368,-.05518,-.111,-.1213,-.1725,-.1888,
- -.2643,.06252,.05837,.05729,.05458,.05212,.05044,.0476,.04381,
- .03966,.03478,.03075,.02824,.01964,.005651,-.04121,-.09608,-.1057,
- -.1547,-.1693,-.2383,.06919,.06566,.06466,.06232,.06006,.05865,
- .05611,.0526,.04889,.04449,.04081,.03854,.03057,.01741,-.02635,
- -.08017,-.08898,-.1357,-.1487,-.2109,.07647,.07359,.07271,.07072,
- .06869,.06753,.0653,.06211,.05886,.05495,.05163,.04962,.04229,
- .03002,-.01047,-.06318,-.07117,-.1154,-.1267,-.182,.08447,.08221,
- .08148,.07985,.0781,.07715,.07525,.07245,.06966,.06625,.06332,
- .06158,.05494,.04359,.006534,-.04499,-.05212,-.09369,-.1033,
- -.1516,.0933,.09162,.09107,.08979,.0884,.08765,.08607,.08374,
- .08141,.07849,.076,.07452,.06861,.05823,.02477,-.02548,-.03173,
- -.07052,-.07835,-.1196,.1031,.1019,.1016,.1007,.09971,.09912,
- .09789,.09606,.09421,.09181,.08979,.08859,.08344,.07408,.04438,
- -.004541,-.009874,-.04576,-.0518,-.08596,.1138,.1133,.1131,.1126,
- .1121,.1117,.1108,.1095,.1082,.1063,.1048,.1039,.09955,.09126,
- .06551,.01797,.01359,-.01925,-.02348,-.0505,.1257,.126,.1259,
- .1259,.1257,.1256,.1251,.1243,.1235,.1222,.1212,.1206,.1171,.1099,
- .0883,.04221,.03881,.00912,.006725,-.01316,.1389,.14,.1401,.1406,
- .1407,.1409,.1408,.1405,.1403,.1397,.1392,.1389,.1363,.1303,.1129,
- .06834,.06594,.03952,.03897,.02617,.1535,.1555,.1558,.1567,.1573,
- .1578,.1582,.1583,.1588,.1588,.1588,.1589,.1572,.1524,.1396,
- .09654,.09517,.07211,.0734,.0676,.1698,.1726,.1731,.1746,.1756,
- .1765,.1773,.178,.1791,.1799,.1805,.1809,.1802,.1767,.1685,.127,
- .1267,.1071,.1102,.1112,.1786,.1818,.1825,.1842,.1855,.1865,.1875,
- .1886,.1901,.1912,.1921,.1927,.1925,.1896,.1838,.1431,.1434,.1255,
- .1295,.1339,.1879,.1915,.1923,.1944,.196,.1971,.1983,.1998,.2016,
- .203,.2042,.2051,.2053,.2032,.1998,.1599,.1607,.1446,.1495,.1572,
- .208,.2127,.2137,.2163,.2185,.2199,.2217,.2238,.2264,.2286,.2305,
- .2317,.233,.2323,.2338,.1956,.1974,.1849,.1916,.2057,.2304,.2362,
- .2376,.2408,.2436,.2453,.2476,.2505,.2538,.2568,.2594,.261,.2635,
- .2642,.2708,.2342,.2371,.2281,.2366,.2567,.2554,.2624,.264,.268,
- .2714,.2735,.2764,.28,.2842,.288,.2913,.2934,.297,.2992,.3111,
- .2761,.2801,.2746,.2848,.3104,.2834,.2916,.2936,.2983,.3024,.3048,
- .3084,.3128,.3178,.3225,.3266,.3291,.334,.3378,.3549,.3216,.3266,
- .3246,.3364,.3671,.3148,.3243,.3266,.3321,.3369,.3398,.344,.3493,
- .3551,.3608,.3656,.3687,.3748,.3802,.4027,.3709,.377,.3784,.3916,
- .4268,.3499,.3609,.3634,.3699,.3753,.3788,.3837,.3898,.3966,.4033,
- .4089,.4125,.4198,.4269,.4548,.4245,.4316,.4363,.4508,.4896,.3893,
- .4018,.4047,.412,.4183,.4223,.4279,.435,.4427,.4505,.4569,.461,
- .4697,.4785,.5117,.4829,.4909,.4986,.5142,.5558,.4334,.4476,.4509,
- .4593,.4663,.4709,.4773,.4853,.4941,.5029,.5102,.5148,.5248,.5354,
- .5738,.5463,.5552,.5657,.5822,.6255,.4829,.4991,.5028,.5122,.5201,
- .5252,.5325,.5414,.5514,.5612,.5694,.5746,.586,.5982,.6417,.6154,
- .6251,.6379,.6551,.6989,.5384,.5568,.5611,.5716,.5805,.586,.5941,
- .6041,.6152,.6262,.6353,.6409,.6537,.6676,.7158,.6907,.7009,.7157,
- .7333,.7761,.6011,.6216,.6265,.6381,.6481,.6541,.6631,.6743,.6865,
- .6985,.7085,.7146,.7288,.7444,.7969,.7726,.7834,.7995,.817,.8573,
- .6719,.6946,.7,.7128,.7238,.7305,.7404,.7527,.766,.7792,.79,.7967,
- .8122,.8293,.8856,.862,.8731,.8897,.9069,.9428,.7518,.7768,.7827,
- .7969,.8089,.8163,.8271,.8405,.8549,.8691,.8808,.888,.9047,.9233,
- .9826,.9595,.9705,.987,1.003,1.033,.8419,.8695,.8758,.8914,.9044,
- .9126,.9243,.9388,.9542,.9695,.9819,.9896,1.007,1.027,1.089,1.066,
- 1.077,1.092,1.106,1.127,.9438,.9741,.9809,.9979,1.012,1.021,1.033,
- 1.049,1.065,1.082,1.095,1.103,1.121,1.142,1.205,1.182,1.192,1.205,
- 1.217,1.226,1.059,1.092,1.099,1.118,1.133,1.142,1.156,1.172,1.19,
- 1.207,1.22,1.229,1.248,1.27,1.332,1.308,1.317,1.326,1.335,1.33,
- 1.189,1.226,1.233,1.253,1.269,1.279,1.293,1.311,1.329,1.347,1.36,
- 1.369,1.389,1.411,1.47,1.446,1.454,1.457,1.462,1.438,1.337,1.376,
- 1.385,1.406,1.422,1.433,1.448,1.466,1.484,1.503,1.517,1.525,1.545,
- 1.567,1.622,1.596,1.602,1.597,1.598,1.552,1.504,1.546,1.555,1.577,
- 1.595,1.606,1.621,1.64,1.659,1.677,1.691,1.699,1.719,1.74,1.787,
- 1.76,1.762,1.748,1.742,1.67,1.694,1.739,1.748,1.771,1.789,1.8,
- 1.816,1.835,1.853,1.871,1.885,1.892,1.911,1.931,1.967,1.938,1.937,
- 1.91,1.897,1.794,1.909,1.956,1.966,1.99,2.008,2.019,2.035,2.053,
- 2.071,2.088,2.1,2.107,2.124,2.142,2.163,2.132,2.126,2.083,2.062,
- 1.923,2.154,2.202,2.212,2.236,2.254,2.265,2.28,2.297,2.314,2.329,
- 2.34,2.346,2.36,2.374,2.376,2.343,2.331,2.269,2.237,2.056,2.432,
- 2.481,2.49,2.514,2.53,2.541,2.555,2.571,2.585,2.598,2.606,2.61,
- 2.621,2.63,2.607,2.571,2.552,2.467,2.423,2.195,2.747,2.795,2.804,
- 2.826,2.841,2.851,2.863,2.876,2.887,2.896,2.901,2.903,2.908,2.91,
- 2.857,2.818,2.79,2.678,2.619,2.337,3.104,3.15,3.158,3.177,3.19,
- 3.198,3.207,3.216,3.222,3.226,3.227,3.226,3.224,3.218,3.126,3.084,
- 3.046,2.903,2.826,2.483,3.51,3.55,3.556,3.572,3.58,3.586,3.591,
- 3.595,3.594,3.591,3.586,3.581,3.57,3.553,3.415,3.37,3.32,3.14,
- 3.044,2.633,3.969,4.001,4.005,4.014,4.017,4.018,4.018,4.015,4.005,
- 3.994,3.98,3.971,3.949,3.917,3.724,3.675,3.612,3.389,3.272,2.784,
- 4.491,4.509,4.51,4.509,4.504,4.5,4.492,4.479,4.458,4.435,4.412,
- 4.397,4.36,4.311,4.052,4.,3.921,3.65,3.508,2.938,5.083,5.08,5.076,
- 5.063,5.046,5.035,5.017,4.991,4.956,4.918,4.883,4.859,4.805,4.735,
- 4.398,4.343,4.246,3.921,3.752,3.091,5.755,5.721,5.709,5.679,5.647,
- 5.627,5.595,5.553,5.498,5.443,5.392,5.359,5.283,5.187,4.76,4.702,
- 4.584,4.201,4.001,3.243,6.516,6.44,6.418,6.364,6.312,6.28,6.23,
- 6.166,6.088,6.009,5.94,5.895,5.792,5.665,5.134,5.074,4.932,4.485,
- 4.252,3.392,7.38,7.243,7.208,7.122,7.043,6.995,6.923,6.831,6.723,
- 6.616,6.524,6.465,6.33,6.166,5.516,5.453,5.287,4.771,4.503,3.535,
- 8.358,8.139,8.086,7.956,7.843,7.774,7.672,7.546,7.401,7.26,7.139,
- 7.064,6.891,6.683,5.9,5.834,5.64,5.054,4.748,3.671,9.463,9.131,
- 9.054,8.868,8.71,8.614,8.475,8.305,8.115,7.932,7.779,7.683,7.465,
- 7.207,6.278,6.207,5.985,5.326,4.981,3.796,10.71,10.22,10.11,9.851,
- 9.637,9.505,9.32,9.098,8.854,8.62,8.428,8.309,8.041,7.724,6.639,
- 6.562,6.311,5.581,5.198,3.909,12.08,11.39,11.25,10.89,10.61,10.43,
- 10.19,9.904,9.596,9.303,9.068,8.922,8.597,8.217,6.97,6.884,6.605,
- 5.809,5.389,4.005,13.57,12.61,12.42,11.94,11.58,11.35,11.04,10.69,
- 10.31,9.947,9.667,9.49,9.106,8.66,7.254,7.159,6.855,6.,5.548,
- 4.082,15.08,13.79,13.55,12.93,12.49,12.19,11.81,11.38,10.93,10.5,
- 10.17,9.968,9.527,9.018,7.473,7.368,7.043,6.143,5.666,4.138,16.32,
- 14.72,14.42,13.68,13.16,12.8,12.36,11.87,11.35,10.87,10.51,10.28,
- 9.801,9.246,7.606,7.493,7.155,6.227,5.734,4.17,16.73,15.01,14.69,
- 13.9,13.35,12.98,12.51,12.,11.47,10.97,10.6,10.37,9.873,9.304,
- 7.638,7.523,7.182,6.248,5.75,4.177 };
-
- /* System generated locals */
- integer i__1;
-
- /* Local variables */
- integer i__, j;
- doublereal vi_m__;
-
-/* - to vary the number of quadratures */
-/*< include "paramdef.inc" >*/
-/*< integer nquad >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< common /num_quad/ nquad >*/
-/*< real ph,qh,uh >*/
-/*< common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p) >*/
-/*< real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p) >*/
-/* - to vary the number of quadratures */
-/*< real ex,sc,asy,vi >*/
-/*< common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4) >*/
-/*< real ex_m(20),sc_m(20),asy_m(20),vi_m >*/
-/*< integer i,j >*/
-/* Water-soluble model */
-/* Parameters and refractive indices - G.A. d'Almeida, 'Atmospheric */
-/* aerosols. Global climatology and radiative characteristics', 1991. */
-/* Extinction coefficients are calculated in km-1 */
-/* *************** MIE (asy) ****************** */
-/*< >*/
-/* *************** MIE (ext&sca) ****************** */
-/*< >*/
-/* ************** MIE (phase fun ph) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun qh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/* ************** MIE (phase fun uh) *************** */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< vi_m=0.00182737305 >*/
- vi_m__ = .00182737305;
-/*< vi(2)=vi_m >*/
- sixs_coef__1.vi[1] = vi_m__;
-/*< do 1 i=1,20 >*/
- for (i__ = 1; i__ <= 20; ++i__) {
-/*< asy(2,i)=asy_m(i) >*/
- sixs_coef__1.asy[(i__ << 2) - 3] = asy_m__[i__ - 1];
-/*< ex(2,i)=ex_m(i) >*/
- sixs_coef__1.ex[(i__ << 2) - 3] = ex_m__[i__ - 1];
-/*< sc(2,i)=sc_m(i) >*/
- sixs_coef__1.sc[(i__ << 2) - 3] = sc_m__[i__ - 1];
-/*< do 1 j=1,nquad >*/
- i__1 = num_quad__1.nquad;
- for (j = 1; j <= i__1; ++j) {
-/*< ph(i,j)=phr(i,j) >*/
- sixs_aerbas__1.ph[i__ + j * 20 - 21] = phr[i__ + j * 20 - 21];
-/*< qh(i,j)=qhr(i,j) >*/
- sixs_aerbas__1.qh[i__ + j * 20 - 21] = qhr[i__ + j * 20 - 21];
-/*< uh(i,j)=uhr(i,j) >*/
- sixs_aerbas__1.uh[i__ + j * 20 - 21] = uhr[i__ + j * 20 - 21];
-/*< 1 continue >*/
-/* L1: */
- }
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* wate_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WATE.f b/Modules/ThirdParty/6S/src/6SV1.0B/WATE.f
deleted file mode 100644
index 9876cfd..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WATE.f
+++ /dev/null
@@ -1,1136 +0,0 @@
- subroutine wate
-
-c - to vary the number of quadratures
- include "paramdef.inc"
- integer nquad
- common /num_quad/ nquad
- real ph,qh,uh
- common /sixs_aerbas/ ph(20,nqmax_p),qh(20,nqmax_p),uh(20,nqmax_p)
- real phr(20,nqdef_p),qhr(20,nqdef_p),uhr(20,nqdef_p)
-c - to vary the number of quadratures
- real ex,sc,asy,vi
- common /sixs_coef/ ex(4,20),sc(4,20),asy(4,20),vi(4)
- real ex_m(20),sc_m(20),asy_m(20),vi_m
- integer i,j
-
-c Water-soluble model
-c Parameters and refractive indices - G.A. d'Almeida, 'Atmospheric
-c aerosols. Global climatology and radiative characteristics', 1991.
-c Extinction coefficients are calculated in km-1
-
-c*************** MIE (asy) ******************
- data (asy_m(j),j=1,20)/
- a 0.663,0.657,0.655,0.651,0.648,0.645,0.642,0.638,0.633,0.628,
- a 0.623,0.620,0.613,0.605,0.563,0.549,0.535,0.493,0.469,0.369/
-c*************** MIE (ext&sca) ******************
- data (ex_m(j),sc_m(j),j=1,20) /
- a 0.1668202E-01,0.1611682E-01,0.1485427E-01,0.1436933E-01,
- a 0.1444705E-01,0.1397780E-01,0.1344278E-01,0.1301239E-01,
- a 0.1263220E-01,0.1223016E-01,0.1211881E-01,0.1173550E-01,
- a 0.1139759E-01,0.1101810E-01,0.1053951E-01,0.1014493E-01,
- a 0.9646374E-02,0.9284852E-02,0.8791811E-02,0.8424427E-02,
- a 0.8128974E-02,0.7772448E-02,0.7729647E-02,0.7389077E-02,
- a 0.6740132E-02,0.6363583E-02,0.5455605E-02,0.5064777E-02,
- a 0.2838330E-02,0.2432695E-02,0.1442047E-02,0.1098548E-02,
- a 0.1220081E-02,0.9381454E-03,0.1323107E-02,0.5656477E-03,
- a 0.8564052E-03,0.4127454E-03,0.1457627E-03,0.1244750E-03 /
-c************** MIE (phase fun ph) ***************
- DATA ((PHR(i,j),j=1,83),i= 1, 1)/
- *0.4078E+00,0.4008E+00,0.3754E+00,0.3409E+00,0.3069E+00,
- *0.2790E+00,0.2597E+00,0.2483E+00,0.2419E+00,0.2373E+00,
- *0.2327E+00,0.2270E+00,0.2204E+00,0.2128E+00,0.2049E+00,
- *0.1969E+00,0.1894E+00,0.1825E+00,0.1763E+00,0.1710E+00,
- *0.1664E+00,0.1627E+00,0.1598E+00,0.1576E+00,0.1561E+00,
- *0.1555E+00,0.1556E+00,0.1565E+00,0.1583E+00,0.1608E+00,
- *0.1641E+00,0.1683E+00,0.1734E+00,0.1794E+00,0.1864E+00,
- *0.1945E+00,0.2038E+00,0.2145E+00,0.2265E+00,0.2400E+00,
- *0.2553E+00,0.2636E+00,0.2725E+00,0.2919E+00,0.3137E+00,
- *0.3380E+00,0.3653E+00,0.3959E+00,0.4304E+00,0.4693E+00,
- *0.5130E+00,0.5620E+00,0.6170E+00,0.6790E+00,0.7492E+00,
- *0.8284E+00,0.9179E+00,0.1019E+01,0.1134E+01,0.1263E+01,
- *0.1410E+01,0.1576E+01,0.1765E+01,0.1979E+01,0.2222E+01,
- *0.2498E+01,0.2811E+01,0.3167E+01,0.3571E+01,0.4028E+01,
- *0.4548E+01,0.5137E+01,0.5806E+01,0.6564E+01,0.7422E+01,
- *0.8393E+01,0.9490E+01,0.1072E+02,0.1209E+02,0.1358E+02,
- *0.1508E+02,0.1632E+02,0.1673E+02 /
- DATA ((PHR(i,j),j=1,83),i= 2, 2)/
- *0.3768E+00,0.3712E+00,0.3505E+00,0.3219E+00,0.2929E+00,
- *0.2686E+00,0.2513E+00,0.2406E+00,0.2345E+00,0.2303E+00,
- *0.2263E+00,0.2215E+00,0.2157E+00,0.2093E+00,0.2026E+00,
- *0.1958E+00,0.1893E+00,0.1833E+00,0.1779E+00,0.1731E+00,
- *0.1690E+00,0.1657E+00,0.1631E+00,0.1613E+00,0.1601E+00,
- *0.1598E+00,0.1602E+00,0.1614E+00,0.1633E+00,0.1660E+00,
- *0.1694E+00,0.1738E+00,0.1790E+00,0.1853E+00,0.1926E+00,
- *0.2009E+00,0.2105E+00,0.2214E+00,0.2338E+00,0.2479E+00,
- *0.2638E+00,0.2724E+00,0.2816E+00,0.3015E+00,0.3239E+00,
- *0.3490E+00,0.3773E+00,0.4091E+00,0.4448E+00,0.4848E+00,
- *0.5297E+00,0.5803E+00,0.6371E+00,0.7011E+00,0.7732E+00,
- *0.8544E+00,0.9461E+00,0.1050E+01,0.1167E+01,0.1299E+01,
- *0.1448E+01,0.1617E+01,0.1808E+01,0.2024E+01,0.2268E+01,
- *0.2544E+01,0.2856E+01,0.3209E+01,0.3607E+01,0.4055E+01,
- *0.4560E+01,0.5128E+01,0.5766E+01,0.6481E+01,0.7279E+01,
- *0.8169E+01,0.9154E+01,0.1023E+02,0.1140E+02,0.1262E+02,
- *0.1380E+02,0.1472E+02,0.1501E+02 /
- DATA ((PHR(i,j),j=1,83),i= 3, 3)/
- *0.3723E+00,0.3669E+00,0.3467E+00,0.3189E+00,0.2907E+00,
- *0.2671E+00,0.2502E+00,0.2396E+00,0.2335E+00,0.2294E+00,
- *0.2254E+00,0.2207E+00,0.2151E+00,0.2088E+00,0.2023E+00,
- *0.1958E+00,0.1895E+00,0.1836E+00,0.1783E+00,0.1736E+00,
- *0.1696E+00,0.1664E+00,0.1639E+00,0.1622E+00,0.1612E+00,
- *0.1609E+00,0.1613E+00,0.1625E+00,0.1645E+00,0.1672E+00,
- *0.1707E+00,0.1751E+00,0.1804E+00,0.1867E+00,0.1941E+00,
- *0.2026E+00,0.2122E+00,0.2232E+00,0.2357E+00,0.2499E+00,
- *0.2659E+00,0.2746E+00,0.2838E+00,0.3038E+00,0.3264E+00,
- *0.3518E+00,0.3803E+00,0.4124E+00,0.4482E+00,0.4885E+00,
- *0.5337E+00,0.5845E+00,0.6418E+00,0.7063E+00,0.7788E+00,
- *0.8605E+00,0.9525E+00,0.1056E+01,0.1174E+01,0.1307E+01,
- *0.1456E+01,0.1626E+01,0.1817E+01,0.2033E+01,0.2277E+01,
- *0.2553E+01,0.2865E+01,0.3216E+01,0.3612E+01,0.4058E+01,
- *0.4560E+01,0.5123E+01,0.5753E+01,0.6458E+01,0.7244E+01,
- *0.8115E+01,0.9076E+01,0.1013E+02,0.1125E+02,0.1242E+02,
- *0.1355E+02,0.1442E+02,0.1469E+02 /
- DATA ((PHR(i,j),j=1,83),i= 4, 4)/
- *0.3587E+00,0.3539E+00,0.3359E+00,0.3107E+00,0.2848E+00,
- *0.2629E+00,0.2469E+00,0.2368E+00,0.2308E+00,0.2267E+00,
- *0.2229E+00,0.2186E+00,0.2135E+00,0.2078E+00,0.2019E+00,
- *0.1958E+00,0.1900E+00,0.1846E+00,0.1797E+00,0.1754E+00,
- *0.1717E+00,0.1687E+00,0.1663E+00,0.1647E+00,0.1638E+00,
- *0.1636E+00,0.1642E+00,0.1655E+00,0.1676E+00,0.1704E+00,
- *0.1740E+00,0.1785E+00,0.1839E+00,0.1904E+00,0.1979E+00,
- *0.2065E+00,0.2163E+00,0.2276E+00,0.2403E+00,0.2548E+00,
- *0.2711E+00,0.2800E+00,0.2894E+00,0.3098E+00,0.3328E+00,
- *0.3586E+00,0.3877E+00,0.4203E+00,0.4568E+00,0.4978E+00,
- *0.5438E+00,0.5955E+00,0.6537E+00,0.7190E+00,0.7925E+00,
- *0.8753E+00,0.9685E+00,0.1074E+01,0.1192E+01,0.1326E+01,
- *0.1477E+01,0.1647E+01,0.1839E+01,0.2055E+01,0.2299E+01,
- *0.2575E+01,0.2885E+01,0.3233E+01,0.3625E+01,0.4065E+01,
- *0.4557E+01,0.5107E+01,0.5720E+01,0.6401E+01,0.7154E+01,
- *0.7982E+01,0.8887E+01,0.9863E+01,0.1090E+02,0.1195E+02,
- *0.1293E+02,0.1368E+02,0.1390E+02 /
- DATA ((PHR(i,j),j=1,83),i= 5, 5)/
- *0.3523E+00,0.3477E+00,0.3304E+00,0.3062E+00,0.2815E+00,
- *0.2607E+00,0.2455E+00,0.2356E+00,0.2296E+00,0.2256E+00,
- *0.2219E+00,0.2177E+00,0.2129E+00,0.2076E+00,0.2020E+00,
- *0.1963E+00,0.1909E+00,0.1857E+00,0.1810E+00,0.1769E+00,
- *0.1734E+00,0.1705E+00,0.1684E+00,0.1669E+00,0.1662E+00,
- *0.1662E+00,0.1668E+00,0.1681E+00,0.1703E+00,0.1732E+00,
- *0.1769E+00,0.1816E+00,0.1871E+00,0.1937E+00,0.2013E+00,
- *0.2101E+00,0.2202E+00,0.2316E+00,0.2446E+00,0.2592E+00,
- *0.2757E+00,0.2847E+00,0.2942E+00,0.3151E+00,0.3385E+00,
- *0.3648E+00,0.3943E+00,0.4273E+00,0.4643E+00,0.5058E+00,
- *0.5524E+00,0.6048E+00,0.6637E+00,0.7298E+00,0.8042E+00,
- *0.8878E+00,0.9818E+00,0.1088E+01,0.1207E+01,0.1341E+01,
- *0.1493E+01,0.1663E+01,0.1856E+01,0.2072E+01,0.2316E+01,
- *0.2590E+01,0.2898E+01,0.3244E+01,0.3631E+01,0.4065E+01,
- *0.4549E+01,0.5088E+01,0.5686E+01,0.6347E+01,0.7074E+01,
- *0.7868E+01,0.8728E+01,0.9649E+01,0.1061E+02,0.1159E+02,
- *0.1249E+02,0.1316E+02,0.1335E+02 /
- DATA ((PHR(i,j),j=1,83),i= 6, 6)/
- *0.3444E+00,0.3402E+00,0.3244E+00,0.3021E+00,0.2789E+00,
- *0.2590E+00,0.2442E+00,0.2346E+00,0.2286E+00,0.2245E+00,
- *0.2209E+00,0.2170E+00,0.2125E+00,0.2075E+00,0.2021E+00,
- *0.1967E+00,0.1914E+00,0.1865E+00,0.1821E+00,0.1781E+00,
- *0.1748E+00,0.1721E+00,0.1700E+00,0.1686E+00,0.1678E+00,
- *0.1678E+00,0.1685E+00,0.1699E+00,0.1721E+00,0.1750E+00,
- *0.1788E+00,0.1835E+00,0.1891E+00,0.1957E+00,0.2034E+00,
- *0.2123E+00,0.2224E+00,0.2340E+00,0.2471E+00,0.2619E+00,
- *0.2786E+00,0.2877E+00,0.2974E+00,0.3185E+00,0.3421E+00,
- *0.3686E+00,0.3983E+00,0.4317E+00,0.4691E+00,0.5111E+00,
- *0.5582E+00,0.6110E+00,0.6702E+00,0.7367E+00,0.8115E+00,
- *0.8956E+00,0.9903E+00,0.1097E+01,0.1217E+01,0.1352E+01,
- *0.1503E+01,0.1674E+01,0.1867E+01,0.2083E+01,0.2326E+01,
- *0.2600E+01,0.2907E+01,0.3251E+01,0.3636E+01,0.4065E+01,
- *0.4544E+01,0.5076E+01,0.5664E+01,0.6313E+01,0.7023E+01,
- *0.7797E+01,0.8630E+01,0.9516E+01,0.1043E+02,0.1135E+02,
- *0.1219E+02,0.1280E+02,0.1298E+02 /
- DATA ((PHR(i,j),j=1,83),i= 7, 7)/
- *0.3349E+00,0.3311E+00,0.3167E+00,0.2962E+00,0.2748E+00,
- *0.2562E+00,0.2422E+00,0.2329E+00,0.2272E+00,0.2232E+00,
- *0.2197E+00,0.2160E+00,0.2118E+00,0.2071E+00,0.2021E+00,
- *0.1970E+00,0.1921E+00,0.1875E+00,0.1833E+00,0.1796E+00,
- *0.1765E+00,0.1739E+00,0.1720E+00,0.1707E+00,0.1701E+00,
- *0.1701E+00,0.1709E+00,0.1725E+00,0.1747E+00,0.1778E+00,
- *0.1816E+00,0.1864E+00,0.1921E+00,0.1989E+00,0.2067E+00,
- *0.2157E+00,0.2260E+00,0.2377E+00,0.2510E+00,0.2661E+00,
- *0.2830E+00,0.2923E+00,0.3020E+00,0.3234E+00,0.3473E+00,
- *0.3742E+00,0.4044E+00,0.4382E+00,0.4761E+00,0.5186E+00,
- *0.5662E+00,0.6196E+00,0.6795E+00,0.7468E+00,0.8223E+00,
- *0.9071E+00,0.1002E+01,0.1110E+01,0.1230E+01,0.1366E+01,
- *0.1518E+01,0.1689E+01,0.1882E+01,0.2098E+01,0.2340E+01,
- *0.2613E+01,0.2918E+01,0.3259E+01,0.3639E+01,0.4063E+01,
- *0.4534E+01,0.5055E+01,0.5630E+01,0.6261E+01,0.6949E+01,
- *0.7693E+01,0.8490E+01,0.9330E+01,0.1019E+02,0.1104E+02,
- *0.1181E+02,0.1236E+02,0.1251E+02 /
- DATA ((PHR(i,j),j=1,83),i= 8, 8)/
- *0.3249E+00,0.3214E+00,0.3083E+00,0.2894E+00,0.2697E+00,
- *0.2525E+00,0.2395E+00,0.2309E+00,0.2253E+00,0.2214E+00,
- *0.2181E+00,0.2147E+00,0.2108E+00,0.2066E+00,0.2021E+00,
- *0.1974E+00,0.1929E+00,0.1887E+00,0.1848E+00,0.1814E+00,
- *0.1785E+00,0.1762E+00,0.1745E+00,0.1734E+00,0.1729E+00,
- *0.1731E+00,0.1740E+00,0.1756E+00,0.1780E+00,0.1811E+00,
- *0.1852E+00,0.1901E+00,0.1960E+00,0.2028E+00,0.2108E+00,
- *0.2200E+00,0.2306E+00,0.2425E+00,0.2561E+00,0.2714E+00,
- *0.2886E+00,0.2980E+00,0.3079E+00,0.3297E+00,0.3542E+00,
- *0.3816E+00,0.4122E+00,0.4465E+00,0.4850E+00,0.5281E+00,
- *0.5764E+00,0.6305E+00,0.6912E+00,0.7593E+00,0.8356E+00,
- *0.9213E+00,0.1017E+01,0.1125E+01,0.1246E+01,0.1382E+01,
- *0.1535E+01,0.1707E+01,0.1899E+01,0.2115E+01,0.2356E+01,
- *0.2626E+01,0.2928E+01,0.3266E+01,0.3641E+01,0.4057E+01,
- *0.4518E+01,0.5027E+01,0.5585E+01,0.6194E+01,0.6855E+01,
- *0.7565E+01,0.8319E+01,0.9107E+01,0.9909E+01,0.1069E+02,
- *0.1138E+02,0.1187E+02,0.1200E+02 /
- DATA ((PHR(i,j),j=1,83),i= 9, 9)/
- *0.3184E+00,0.3153E+00,0.3034E+00,0.2863E+00,0.2683E+00,
- *0.2524E+00,0.2402E+00,0.2319E+00,0.2264E+00,0.2225E+00,
- *0.2193E+00,0.2159E+00,0.2122E+00,0.2082E+00,0.2039E+00,
- *0.1996E+00,0.1954E+00,0.1914E+00,0.1878E+00,0.1846E+00,
- *0.1819E+00,0.1797E+00,0.1781E+00,0.1771E+00,0.1768E+00,
- *0.1771E+00,0.1781E+00,0.1798E+00,0.1823E+00,0.1855E+00,
- *0.1896E+00,0.1946E+00,0.2006E+00,0.2076E+00,0.2158E+00,
- *0.2252E+00,0.2359E+00,0.2481E+00,0.2619E+00,0.2775E+00,
- *0.2951E+00,0.3046E+00,0.3148E+00,0.3370E+00,0.3618E+00,
- *0.3897E+00,0.4209E+00,0.4559E+00,0.4950E+00,0.5387E+00,
- *0.5877E+00,0.6426E+00,0.7042E+00,0.7731E+00,0.8503E+00,
- *0.9367E+00,0.1034E+01,0.1142E+01,0.1264E+01,0.1400E+01,
- *0.1553E+01,0.1725E+01,0.1917E+01,0.2131E+01,0.2371E+01,
- *0.2639E+01,0.2938E+01,0.3270E+01,0.3638E+01,0.4046E+01,
- *0.4495E+01,0.4989E+01,0.5528E+01,0.6114E+01,0.6745E+01,
- *0.7418E+01,0.8128E+01,0.8861E+01,0.9600E+01,0.1031E+02,
- *0.1093E+02,0.1135E+02,0.1147E+02 /
- DATA ((PHR(i,j),j=1,83),i=10,10)/
- *0.3086E+00,0.3060E+00,0.2958E+00,0.2810E+00,0.2650E+00,
- *0.2507E+00,0.2395E+00,0.2316E+00,0.2263E+00,0.2226E+00,
- *0.2194E+00,0.2163E+00,0.2129E+00,0.2092E+00,0.2053E+00,
- *0.2014E+00,0.1975E+00,0.1939E+00,0.1906E+00,0.1876E+00,
- *0.1851E+00,0.1831E+00,0.1817E+00,0.1809E+00,0.1807E+00,
- *0.1811E+00,0.1822E+00,0.1840E+00,0.1866E+00,0.1899E+00,
- *0.1941E+00,0.1993E+00,0.2054E+00,0.2125E+00,0.2209E+00,
- *0.2304E+00,0.2414E+00,0.2538E+00,0.2679E+00,0.2838E+00,
- *0.3017E+00,0.3115E+00,0.3219E+00,0.3444E+00,0.3697E+00,
- *0.3981E+00,0.4299E+00,0.4654E+00,0.5052E+00,0.5497E+00,
- *0.5994E+00,0.6551E+00,0.7173E+00,0.7870E+00,0.8650E+00,
- *0.9522E+00,0.1050E+01,0.1159E+01,0.1281E+01,0.1418E+01,
- *0.1571E+01,0.1743E+01,0.1934E+01,0.2147E+01,0.2385E+01,
- *0.2650E+01,0.2945E+01,0.3272E+01,0.3633E+01,0.4032E+01,
- *0.4470E+01,0.4949E+01,0.5470E+01,0.6033E+01,0.6636E+01,
- *0.7275E+01,0.7942E+01,0.8626E+01,0.9306E+01,0.9948E+01,
- *0.1050E+02,0.1087E+02,0.1097E+02 /
- DATA ((PHR(i,j),j=1,83),i=11,11)/
- *0.3051E+00,0.3027E+00,0.2933E+00,0.2795E+00,0.2646E+00,
- *0.2512E+00,0.2406E+00,0.2330E+00,0.2279E+00,0.2241E+00,
- *0.2210E+00,0.2179E+00,0.2147E+00,0.2111E+00,0.2075E+00,
- *0.2038E+00,0.2001E+00,0.1966E+00,0.1935E+00,0.1907E+00,
- *0.1883E+00,0.1865E+00,0.1851E+00,0.1844E+00,0.1843E+00,
- *0.1848E+00,0.1859E+00,0.1878E+00,0.1904E+00,0.1939E+00,
- *0.1982E+00,0.2034E+00,0.2096E+00,0.2169E+00,0.2254E+00,
- *0.2351E+00,0.2462E+00,0.2589E+00,0.2732E+00,0.2893E+00,
- *0.3075E+00,0.3174E+00,0.3279E+00,0.3508E+00,0.3766E+00,
- *0.4053E+00,0.4375E+00,0.4736E+00,0.5138E+00,0.5588E+00,
- *0.6091E+00,0.6653E+00,0.7282E+00,0.7985E+00,0.8771E+00,
- *0.9649E+00,0.1063E+01,0.1173E+01,0.1295E+01,0.1432E+01,
- *0.1585E+01,0.1756E+01,0.1947E+01,0.2159E+01,0.2395E+01,
- *0.2658E+01,0.2949E+01,0.3271E+01,0.3626E+01,0.4017E+01,
- *0.4445E+01,0.4912E+01,0.5418E+01,0.5962E+01,0.6542E+01,
- *0.7153E+01,0.7788E+01,0.8434E+01,0.9071E+01,0.9668E+01,
- *0.1017E+02,0.1051E+02,0.1060E+02 /
- DATA ((PHR(i,j),j=1,83),i=12,12)/
- *0.3033E+00,0.3011E+00,0.2923E+00,0.2793E+00,0.2651E+00,
- *0.2523E+00,0.2420E+00,0.2346E+00,0.2294E+00,0.2256E+00,
- *0.2225E+00,0.2194E+00,0.2163E+00,0.2128E+00,0.2093E+00,
- *0.2056E+00,0.2021E+00,0.1987E+00,0.1956E+00,0.1929E+00,
- *0.1907E+00,0.1889E+00,0.1876E+00,0.1869E+00,0.1867E+00,
- *0.1873E+00,0.1884E+00,0.1903E+00,0.1930E+00,0.1965E+00,
- *0.2008E+00,0.2061E+00,0.2124E+00,0.2197E+00,0.2283E+00,
- *0.2381E+00,0.2493E+00,0.2621E+00,0.2765E+00,0.2928E+00,
- *0.3112E+00,0.3212E+00,0.3318E+00,0.3550E+00,0.3809E+00,
- *0.4099E+00,0.4424E+00,0.4787E+00,0.5193E+00,0.5646E+00,
- *0.6153E+00,0.6719E+00,0.7351E+00,0.8057E+00,0.8845E+00,
- *0.9727E+00,0.1071E+01,0.1181E+01,0.1304E+01,0.1441E+01,
- *0.1594E+01,0.1764E+01,0.1954E+01,0.2166E+01,0.2400E+01,
- *0.2661E+01,0.2950E+01,0.3269E+01,0.3621E+01,0.4007E+01,
- *0.4429E+01,0.4888E+01,0.5384E+01,0.5916E+01,0.6482E+01,
- *0.7077E+01,0.7692E+01,0.8315E+01,0.8925E+01,0.9492E+01,
- *0.9968E+01,0.1028E+02,0.1037E+02 /
- DATA ((PHR(i,j),j=1,83),i=13,13)/
- *0.2928E+00,0.2910E+00,0.2838E+00,0.2731E+00,0.2614E+00,
- *0.2506E+00,0.2418E+00,0.2353E+00,0.2306E+00,0.2272E+00,
- *0.2242E+00,0.2214E+00,0.2184E+00,0.2153E+00,0.2121E+00,
- *0.2089E+00,0.2057E+00,0.2027E+00,0.1999E+00,0.1974E+00,
- *0.1954E+00,0.1938E+00,0.1927E+00,0.1922E+00,0.1922E+00,
- *0.1929E+00,0.1942E+00,0.1962E+00,0.1990E+00,0.2026E+00,
- *0.2070E+00,0.2125E+00,0.2189E+00,0.2264E+00,0.2351E+00,
- *0.2452E+00,0.2566E+00,0.2697E+00,0.2844E+00,0.3011E+00,
- *0.3199E+00,0.3301E+00,0.3409E+00,0.3646E+00,0.3911E+00,
- *0.4207E+00,0.4538E+00,0.4908E+00,0.5321E+00,0.5782E+00,
- *0.6297E+00,0.6871E+00,0.7512E+00,0.8227E+00,0.9024E+00,
- *0.9912E+00,0.1090E+01,0.1201E+01,0.1324E+01,0.1461E+01,
- *0.1613E+01,0.1783E+01,0.1972E+01,0.2181E+01,0.2413E+01,
- *0.2670E+01,0.2953E+01,0.3265E+01,0.3607E+01,0.3982E+01,
- *0.4389E+01,0.4830E+01,0.5305E+01,0.5811E+01,0.6345E+01,
- *0.6902E+01,0.7473E+01,0.8045E+01,0.8599E+01,0.9107E+01,
- *0.9527E+01,0.9801E+01,0.9873E+01 /
- DATA ((PHR(i,j),j=1,83),i=14,14)/
- *0.2827E+00,0.2814E+00,0.2762E+00,0.2683E+00,0.2596E+00,
- *0.2514E+00,0.2446E+00,0.2394E+00,0.2354E+00,0.2323E+00,
- *0.2295E+00,0.2268E+00,0.2240E+00,0.2211E+00,0.2182E+00,
- *0.2152E+00,0.2122E+00,0.2095E+00,0.2069E+00,0.2047E+00,
- *0.2028E+00,0.2014E+00,0.2004E+00,0.2000E+00,0.2001E+00,
- *0.2008E+00,0.2022E+00,0.2042E+00,0.2071E+00,0.2107E+00,
- *0.2152E+00,0.2207E+00,0.2273E+00,0.2349E+00,0.2438E+00,
- *0.2540E+00,0.2657E+00,0.2790E+00,0.2941E+00,0.3112E+00,
- *0.3303E+00,0.3408E+00,0.3519E+00,0.3761E+00,0.4032E+00,
- *0.4335E+00,0.4673E+00,0.5051E+00,0.5472E+00,0.5942E+00,
- *0.6466E+00,0.7049E+00,0.7699E+00,0.8422E+00,0.9228E+00,
- *0.1012E+01,0.1112E+01,0.1223E+01,0.1346E+01,0.1483E+01,
- *0.1635E+01,0.1803E+01,0.1990E+01,0.2196E+01,0.2425E+01,
- *0.2676E+01,0.2952E+01,0.3255E+01,0.3587E+01,0.3947E+01,
- *0.4337E+01,0.4757E+01,0.5206E+01,0.5681E+01,0.6178E+01,
- *0.6692E+01,0.7213E+01,0.7728E+01,0.8219E+01,0.8660E+01,
- *0.9018E+01,0.9246E+01,0.9304E+01 /
- DATA ((PHR(i,j),j=1,83),i=15,15)/
- *0.3014E+00,0.3009E+00,0.2986E+00,0.2950E+00,0.2907E+00,
- *0.2863E+00,0.2822E+00,0.2785E+00,0.2752E+00,0.2722E+00,
- *0.2693E+00,0.2665E+00,0.2637E+00,0.2608E+00,0.2579E+00,
- *0.2551E+00,0.2523E+00,0.2497E+00,0.2473E+00,0.2451E+00,
- *0.2433E+00,0.2418E+00,0.2408E+00,0.2402E+00,0.2401E+00,
- *0.2407E+00,0.2419E+00,0.2439E+00,0.2466E+00,0.2502E+00,
- *0.2547E+00,0.2603E+00,0.2670E+00,0.2749E+00,0.2842E+00,
- *0.2950E+00,0.3073E+00,0.3215E+00,0.3376E+00,0.3558E+00,
- *0.3763E+00,0.3875E+00,0.3993E+00,0.4252E+00,0.4541E+00,
- *0.4864E+00,0.5223E+00,0.5623E+00,0.6067E+00,0.6560E+00,
- *0.7106E+00,0.7711E+00,0.8380E+00,0.9120E+00,0.9936E+00,
- *0.1084E+01,0.1183E+01,0.1293E+01,0.1413E+01,0.1545E+01,
- *0.1691E+01,0.1850E+01,0.2024E+01,0.2215E+01,0.2423E+01,
- *0.2649E+01,0.2893E+01,0.3158E+01,0.3443E+01,0.3747E+01,
- *0.4071E+01,0.4413E+01,0.4772E+01,0.5143E+01,0.5523E+01,
- *0.5905E+01,0.6281E+01,0.6641E+01,0.6971E+01,0.7255E+01,
- *0.7473E+01,0.7606E+01,0.7638E+01 /
- DATA ((PHR(i,j),j=1,83),i=16,16)/
- *0.3262E+00,0.3259E+00,0.3249E+00,0.3232E+00,0.3210E+00,
- *0.3186E+00,0.3161E+00,0.3133E+00,0.3105E+00,0.3074E+00,
- *0.3042E+00,0.3008E+00,0.2973E+00,0.2937E+00,0.2901E+00,
- *0.2865E+00,0.2829E+00,0.2796E+00,0.2764E+00,0.2734E+00,
- *0.2707E+00,0.2683E+00,0.2664E+00,0.2648E+00,0.2638E+00,
- *0.2633E+00,0.2635E+00,0.2643E+00,0.2659E+00,0.2683E+00,
- *0.2717E+00,0.2760E+00,0.2815E+00,0.2882E+00,0.2963E+00,
- *0.3059E+00,0.3170E+00,0.3299E+00,0.3448E+00,0.3618E+00,
- *0.3812E+00,0.3918E+00,0.4031E+00,0.4278E+00,0.4556E+00,
- *0.4867E+00,0.5216E+00,0.5604E+00,0.6037E+00,0.6519E+00,
- *0.7053E+00,0.7646E+00,0.8302E+00,0.9027E+00,0.9829E+00,
- *0.1071E+01,0.1169E+01,0.1276E+01,0.1395E+01,0.1525E+01,
- *0.1668E+01,0.1824E+01,0.1996E+01,0.2183E+01,0.2387E+01,
- *0.2610E+01,0.2851E+01,0.3112E+01,0.3394E+01,0.3695E+01,
- *0.4016E+01,0.4356E+01,0.4712E+01,0.5081E+01,0.5458E+01,
- *0.5837E+01,0.6209E+01,0.6563E+01,0.6885E+01,0.7159E+01,
- *0.7368E+01,0.7493E+01,0.7523E+01 /
- DATA ((PHR(i,j),j=1,83),i=17,17)/
- *0.3448E+00,0.3446E+00,0.3435E+00,0.3418E+00,0.3396E+00,
- *0.3371E+00,0.3344E+00,0.3315E+00,0.3285E+00,0.3252E+00,
- *0.3218E+00,0.3182E+00,0.3144E+00,0.3106E+00,0.3067E+00,
- *0.3029E+00,0.2991E+00,0.2955E+00,0.2920E+00,0.2888E+00,
- *0.2858E+00,0.2832E+00,0.2809E+00,0.2791E+00,0.2778E+00,
- *0.2771E+00,0.2770E+00,0.2776E+00,0.2790E+00,0.2812E+00,
- *0.2844E+00,0.2886E+00,0.2940E+00,0.3007E+00,0.3087E+00,
- *0.3182E+00,0.3293E+00,0.3423E+00,0.3573E+00,0.3744E+00,
- *0.3939E+00,0.4046E+00,0.4160E+00,0.4409E+00,0.4689E+00,
- *0.5002E+00,0.5353E+00,0.5744E+00,0.6179E+00,0.6662E+00,
- *0.7198E+00,0.7791E+00,0.8447E+00,0.9172E+00,0.9970E+00,
- *0.1085E+01,0.1182E+01,0.1288E+01,0.1405E+01,0.1533E+01,
- *0.1673E+01,0.1827E+01,0.1994E+01,0.2177E+01,0.2375E+01,
- *0.2590E+01,0.2823E+01,0.3074E+01,0.3343E+01,0.3631E+01,
- *0.3936E+01,0.4257E+01,0.4593E+01,0.4939E+01,0.5291E+01,
- *0.5643E+01,0.5987E+01,0.6312E+01,0.6606E+01,0.6855E+01,
- *0.7043E+01,0.7155E+01,0.7182E+01 /
- DATA ((PHR(i,j),j=1,83),i=18,18)/
- *0.3923E+00,0.3921E+00,0.3915E+00,0.3903E+00,0.3888E+00,
- *0.3868E+00,0.3846E+00,0.3820E+00,0.3791E+00,0.3760E+00,
- *0.3727E+00,0.3692E+00,0.3655E+00,0.3617E+00,0.3579E+00,
- *0.3540E+00,0.3501E+00,0.3463E+00,0.3427E+00,0.3392E+00,
- *0.3359E+00,0.3329E+00,0.3302E+00,0.3280E+00,0.3262E+00,
- *0.3250E+00,0.3244E+00,0.3245E+00,0.3254E+00,0.3272E+00,
- *0.3300E+00,0.3338E+00,0.3388E+00,0.3451E+00,0.3529E+00,
- *0.3622E+00,0.3733E+00,0.3863E+00,0.4012E+00,0.4185E+00,
- *0.4381E+00,0.4490E+00,0.4605E+00,0.4856E+00,0.5140E+00,
- *0.5456E+00,0.5810E+00,0.6204E+00,0.6640E+00,0.7123E+00,
- *0.7657E+00,0.8245E+00,0.8892E+00,0.9602E+00,0.1038E+01,
- *0.1123E+01,0.1216E+01,0.1318E+01,0.1429E+01,0.1549E+01,
- *0.1680E+01,0.1822E+01,0.1975E+01,0.2140E+01,0.2318E+01,
- *0.2510E+01,0.2714E+01,0.2932E+01,0.3164E+01,0.3409E+01,
- *0.3666E+01,0.3933E+01,0.4209E+01,0.4491E+01,0.4775E+01,
- *0.5056E+01,0.5328E+01,0.5582E+01,0.5809E+01,0.6000E+01,
- *0.6143E+01,0.6227E+01,0.6248E+01 /
- DATA ((PHR(i,j),j=1,83),i=19,19)/
- *0.4345E+00,0.4343E+00,0.4335E+00,0.4322E+00,0.4304E+00,
- *0.4281E+00,0.4254E+00,0.4224E+00,0.4190E+00,0.4154E+00,
- *0.4114E+00,0.4073E+00,0.4030E+00,0.3985E+00,0.3939E+00,
- *0.3893E+00,0.3847E+00,0.3801E+00,0.3756E+00,0.3713E+00,
- *0.3673E+00,0.3635E+00,0.3600E+00,0.3570E+00,0.3545E+00,
- *0.3526E+00,0.3513E+00,0.3507E+00,0.3510E+00,0.3522E+00,
- *0.3544E+00,0.3577E+00,0.3623E+00,0.3682E+00,0.3756E+00,
- *0.3847E+00,0.3955E+00,0.4082E+00,0.4231E+00,0.4402E+00,
- *0.4599E+00,0.4707E+00,0.4822E+00,0.5074E+00,0.5357E+00,
- *0.5674E+00,0.6028E+00,0.6421E+00,0.6857E+00,0.7338E+00,
- *0.7869E+00,0.8452E+00,0.9092E+00,0.9792E+00,0.1056E+01,
- *0.1139E+01,0.1230E+01,0.1329E+01,0.1436E+01,0.1552E+01,
- *0.1678E+01,0.1813E+01,0.1959E+01,0.2115E+01,0.2283E+01,
- *0.2462E+01,0.2652E+01,0.2854E+01,0.3066E+01,0.3289E+01,
- *0.3522E+01,0.3762E+01,0.4009E+01,0.4258E+01,0.4506E+01,
- *0.4750E+01,0.4983E+01,0.5199E+01,0.5390E+01,0.5548E+01,
- *0.5666E+01,0.5734E+01,0.5750E+01 /
- DATA ((PHR(i,j),j=1,83),i=20,20)/
- *0.6107E+00,0.6105E+00,0.6093E+00,0.6073E+00,0.6045E+00,
- *0.6010E+00,0.5968E+00,0.5921E+00,0.5869E+00,0.5811E+00,
- *0.5750E+00,0.5684E+00,0.5615E+00,0.5543E+00,0.5469E+00,
- *0.5393E+00,0.5316E+00,0.5239E+00,0.5163E+00,0.5087E+00,
- *0.5014E+00,0.4943E+00,0.4876E+00,0.4814E+00,0.4757E+00,
- *0.4706E+00,0.4663E+00,0.4628E+00,0.4603E+00,0.4587E+00,
- *0.4584E+00,0.4593E+00,0.4617E+00,0.4655E+00,0.4711E+00,
- *0.4784E+00,0.4877E+00,0.4990E+00,0.5126E+00,0.5286E+00,
- *0.5471E+00,0.5574E+00,0.5684E+00,0.5926E+00,0.6198E+00,
- *0.6503E+00,0.6842E+00,0.7218E+00,0.7633E+00,0.8087E+00,
- *0.8584E+00,0.9125E+00,0.9713E+00,0.1035E+01,0.1103E+01,
- *0.1177E+01,0.1256E+01,0.1341E+01,0.1432E+01,0.1528E+01,
- *0.1630E+01,0.1738E+01,0.1852E+01,0.1972E+01,0.2098E+01,
- *0.2229E+01,0.2365E+01,0.2506E+01,0.2651E+01,0.2798E+01,
- *0.2948E+01,0.3099E+01,0.3248E+01,0.3395E+01,0.3538E+01,
- *0.3672E+01,0.3797E+01,0.3909E+01,0.4005E+01,0.4082E+01,
- *0.4138E+01,0.4170E+01,0.4177E+01 /
-c************** MIE (phase fun qh) ***************
- DATA ((QHR(i,j),j=1,83),i= 1, 1)/
- * 0.3270E-21, 0.3207E-02, 0.1530E-01, 0.3251E-01, 0.5092E-01,
- * 0.6799E-01, 0.8225E-01, 0.9280E-01, 0.9921E-01, 0.1015E+00,
- * 0.1000E+00, 0.9567E-01, 0.8939E-01, 0.8197E-01, 0.7410E-01,
- * 0.6626E-01, 0.5870E-01, 0.5152E-01, 0.4482E-01, 0.3867E-01,
- * 0.3310E-01, 0.2806E-01, 0.2347E-01, 0.1923E-01, 0.1529E-01,
- * 0.1167E-01, 0.8357E-02, 0.5291E-02, 0.2424E-02,-0.2987E-03,
- *-0.2903E-02,-0.5337E-02,-0.7573E-02,-0.9691E-02,-0.1178E-01,
- *-0.1383E-01,-0.1578E-01,-0.1759E-01,-0.1927E-01,-0.2086E-01,
- *-0.2249E-01,-0.2333E-01,-0.2417E-01,-0.2574E-01,-0.2702E-01,
- *-0.2805E-01,-0.2900E-01,-0.3001E-01,-0.3105E-01,-0.3198E-01,
- *-0.3260E-01,-0.3277E-01,-0.3258E-01,-0.3228E-01,-0.3202E-01,
- *-0.3162E-01,-0.3082E-01,-0.2951E-01,-0.2774E-01,-0.2560E-01,
- *-0.2325E-01,-0.2070E-01,-0.1785E-01,-0.1456E-01,-0.1079E-01,
- *-0.6552E-02,-0.2046E-02, 0.2427E-02, 0.6831E-02, 0.1125E-01,
- * 0.1556E-01, 0.1973E-01, 0.2378E-01, 0.2733E-01, 0.3014E-01,
- * 0.3208E-01, 0.3229E-01, 0.3032E-01, 0.2608E-01, 0.1884E-01,
- * 0.9652E-02, 0.2171E-02, 0.5166E-20 /
- DATA ((QHR(i,j),j=1,83),i= 2, 2)/
- * 0.3072E-21, 0.2568E-02, 0.1248E-01, 0.2717E-01, 0.4360E-01,
- * 0.5948E-01, 0.7318E-01, 0.8356E-01, 0.8997E-01, 0.9239E-01,
- * 0.9131E-01, 0.8754E-01, 0.8199E-01, 0.7541E-01, 0.6836E-01,
- * 0.6119E-01, 0.5410E-01, 0.4726E-01, 0.4077E-01, 0.3471E-01,
- * 0.2911E-01, 0.2394E-01, 0.1912E-01, 0.1461E-01, 0.1033E-01,
- * 0.6317E-02, 0.2599E-02,-0.8265E-03,-0.4024E-02,-0.7076E-02,
- *-0.1005E-01,-0.1294E-01,-0.1570E-01,-0.1828E-01,-0.2072E-01,
- *-0.2309E-01,-0.2543E-01,-0.2774E-01,-0.2999E-01,-0.3213E-01,
- *-0.3416E-01,-0.3515E-01,-0.3613E-01,-0.3805E-01,-0.3986E-01,
- *-0.4152E-01,-0.4304E-01,-0.4445E-01,-0.4578E-01,-0.4704E-01,
- *-0.4816E-01,-0.4900E-01,-0.4946E-01,-0.4956E-01,-0.4941E-01,
- *-0.4911E-01,-0.4863E-01,-0.4784E-01,-0.4660E-01,-0.4486E-01,
- *-0.4262E-01,-0.3988E-01,-0.3672E-01,-0.3327E-01,-0.2954E-01,
- *-0.2550E-01,-0.2110E-01,-0.1625E-01,-0.1094E-01,-0.5391E-02,
- * 0.1815E-03, 0.5608E-02, 0.1045E-01, 0.1427E-01, 0.1684E-01,
- * 0.1791E-01, 0.1747E-01, 0.1587E-01, 0.1318E-01, 0.9121E-02,
- * 0.4451E-02, 0.9663E-03, 0.1243E-19 /
- DATA ((QHR(i,j),j=1,83),i= 3, 3)/
- *-0.5665E-22, 0.2492E-02, 0.1212E-01, 0.2642E-01, 0.4246E-01,
- * 0.5794E-01, 0.7122E-01, 0.8128E-01, 0.8756E-01, 0.9004E-01,
- * 0.8915E-01, 0.8559E-01, 0.8022E-01, 0.7380E-01, 0.6691E-01,
- * 0.5987E-01, 0.5292E-01, 0.4619E-01, 0.3981E-01, 0.3380E-01,
- * 0.2818E-01, 0.2292E-01, 0.1800E-01, 0.1342E-01, 0.9128E-02,
- * 0.5096E-02, 0.1309E-02,-0.2246E-02,-0.5601E-02,-0.8780E-02,
- *-0.1181E-01,-0.1475E-01,-0.1759E-01,-0.2031E-01,-0.2290E-01,
- *-0.2540E-01,-0.2785E-01,-0.3026E-01,-0.3261E-01,-0.3487E-01,
- *-0.3701E-01,-0.3802E-01,-0.3901E-01,-0.4096E-01,-0.4291E-01,
- *-0.4481E-01,-0.4656E-01,-0.4810E-01,-0.4943E-01,-0.5059E-01,
- *-0.5164E-01,-0.5263E-01,-0.5344E-01,-0.5387E-01,-0.5384E-01,
- *-0.5345E-01,-0.5284E-01,-0.5203E-01,-0.5091E-01,-0.4937E-01,
- *-0.4726E-01,-0.4454E-01,-0.4131E-01,-0.3774E-01,-0.3391E-01,
- *-0.2990E-01,-0.2558E-01,-0.2068E-01,-0.1509E-01,-0.9021E-02,
- *-0.2838E-02, 0.3017E-02, 0.8104E-02, 0.1235E-01, 0.1563E-01,
- * 0.1744E-01, 0.1760E-01, 0.1610E-01, 0.1301E-01, 0.9100E-02,
- * 0.4953E-02, 0.1210E-02, 0.1736E-19 /
- DATA ((QHR(i,j),j=1,83),i= 4, 4)/
- *-0.2285E-21, 0.2245E-02, 0.1099E-01, 0.2411E-01, 0.3901E-01,
- * 0.5358E-01, 0.6628E-01, 0.7605E-01, 0.8227E-01, 0.8487E-01,
- * 0.8424E-01, 0.8108E-01, 0.7617E-01, 0.7019E-01, 0.6366E-01,
- * 0.5689E-01, 0.5012E-01, 0.4349E-01, 0.3712E-01, 0.3110E-01,
- * 0.2545E-01, 0.2016E-01, 0.1517E-01, 0.1046E-01, 0.5972E-02,
- * 0.1719E-02,-0.2273E-02,-0.6013E-02,-0.9552E-02,-0.1295E-01,
- *-0.1626E-01,-0.1949E-01,-0.2260E-01,-0.2556E-01,-0.2840E-01,
- *-0.3116E-01,-0.3389E-01,-0.3659E-01,-0.3923E-01,-0.4177E-01,
- *-0.4420E-01,-0.4539E-01,-0.4656E-01,-0.4886E-01,-0.5107E-01,
- *-0.5316E-01,-0.5510E-01,-0.5691E-01,-0.5859E-01,-0.6017E-01,
- *-0.6160E-01,-0.6279E-01,-0.6363E-01,-0.6410E-01,-0.6425E-01,
- *-0.6416E-01,-0.6383E-01,-0.6318E-01,-0.6207E-01,-0.6043E-01,
- *-0.5823E-01,-0.5545E-01,-0.5217E-01,-0.4850E-01,-0.4447E-01,
- *-0.4006E-01,-0.3520E-01,-0.2982E-01,-0.2387E-01,-0.1759E-01,
- *-0.1121E-01,-0.4967E-02, 0.7145E-03, 0.5468E-02, 0.9077E-02,
- * 0.1128E-01, 0.1205E-01, 0.1158E-01, 0.9914E-02, 0.7016E-02,
- * 0.3530E-02, 0.7827E-03,-0.3524E-20 /
- DATA ((QHR(i,j),j=1,83),i= 5, 5)/
- *-0.1177E-21, 0.2156E-02, 0.1051E-01, 0.2298E-01, 0.3702E-01,
- * 0.5062E-01, 0.6240E-01, 0.7150E-01, 0.7740E-01, 0.8003E-01,
- * 0.7972E-01, 0.7706E-01, 0.7265E-01, 0.6706E-01, 0.6076E-01,
- * 0.5413E-01, 0.4748E-01, 0.4101E-01, 0.3482E-01, 0.2888E-01,
- * 0.2318E-01, 0.1774E-01, 0.1260E-01, 0.7783E-02, 0.3261E-02,
- *-0.1037E-02,-0.5180E-02,-0.9181E-02,-0.1302E-01,-0.1669E-01,
- *-0.2018E-01,-0.2354E-01,-0.2685E-01,-0.3010E-01,-0.3326E-01,
- *-0.3632E-01,-0.3930E-01,-0.4219E-01,-0.4504E-01,-0.4783E-01,
- *-0.5051E-01,-0.5181E-01,-0.5308E-01,-0.5557E-01,-0.5804E-01,
- *-0.6048E-01,-0.6279E-01,-0.6488E-01,-0.6672E-01,-0.6833E-01,
- *-0.6976E-01,-0.7108E-01,-0.7229E-01,-0.7324E-01,-0.7376E-01,
- *-0.7378E-01,-0.7333E-01,-0.7251E-01,-0.7135E-01,-0.6979E-01,
- *-0.6770E-01,-0.6503E-01,-0.6179E-01,-0.5797E-01,-0.5359E-01,
- *-0.4867E-01,-0.4324E-01,-0.3733E-01,-0.3110E-01,-0.2463E-01,
- *-0.1790E-01,-0.1103E-01,-0.4190E-02, 0.2318E-02, 0.7880E-02,
- * 0.1185E-01, 0.1387E-01, 0.1371E-01, 0.1150E-01, 0.8198E-02,
- * 0.4490E-02, 0.1092E-02,-0.3760E-19 /
- DATA ((QHR(i,j),j=1,83),i= 6, 6)/
- *-0.3107E-21, 0.2010E-02, 0.9860E-02, 0.2170E-01, 0.3518E-01,
- * 0.4841E-01, 0.6001E-01, 0.6903E-01, 0.7494E-01, 0.7767E-01,
- * 0.7748E-01, 0.7492E-01, 0.7063E-01, 0.6518E-01, 0.5905E-01,
- * 0.5258E-01, 0.4602E-01, 0.3953E-01, 0.3321E-01, 0.2718E-01,
- * 0.2148E-01, 0.1608E-01, 0.1096E-01, 0.6063E-02, 0.1359E-02,
- *-0.3135E-02,-0.7400E-02,-0.1144E-01,-0.1531E-01,-0.1906E-01,
- *-0.2274E-01,-0.2633E-01,-0.2979E-01,-0.3312E-01,-0.3636E-01,
- *-0.3955E-01,-0.4270E-01,-0.4579E-01,-0.4879E-01,-0.5172E-01,
- *-0.5459E-01,-0.5602E-01,-0.5744E-01,-0.6020E-01,-0.6279E-01,
- *-0.6518E-01,-0.6745E-01,-0.6966E-01,-0.7182E-01,-0.7386E-01,
- *-0.7564E-01,-0.7703E-01,-0.7801E-01,-0.7871E-01,-0.7920E-01,
- *-0.7945E-01,-0.7934E-01,-0.7872E-01,-0.7753E-01,-0.7578E-01,
- *-0.7351E-01,-0.7070E-01,-0.6734E-01,-0.6342E-01,-0.5892E-01,
- *-0.5381E-01,-0.4817E-01,-0.4211E-01,-0.3569E-01,-0.2900E-01,
- *-0.2214E-01,-0.1526E-01,-0.8605E-02,-0.2624E-02, 0.2332E-02,
- * 0.6005E-02, 0.8157E-02, 0.8858E-02, 0.8231E-02, 0.6104E-02,
- * 0.3074E-02, 0.6670E-03, 0.2643E-19 /
- DATA ((QHR(i,j),j=1,83),i= 7, 7)/
- *-0.3274E-21, 0.1817E-02, 0.8970E-02, 0.1991E-01, 0.3254E-01,
- * 0.4511E-01, 0.5626E-01, 0.6501E-01, 0.7079E-01, 0.7350E-01,
- * 0.7340E-01, 0.7102E-01, 0.6697E-01, 0.6180E-01, 0.5594E-01,
- * 0.4972E-01, 0.4334E-01, 0.3698E-01, 0.3075E-01, 0.2475E-01,
- * 0.1902E-01, 0.1355E-01, 0.8329E-02, 0.3308E-02,-0.1532E-02,
- *-0.6182E-02,-0.1062E-01,-0.1485E-01,-0.1891E-01,-0.2286E-01,
- *-0.2673E-01,-0.3053E-01,-0.3422E-01,-0.3778E-01,-0.4125E-01,
- *-0.4465E-01,-0.4801E-01,-0.5134E-01,-0.5460E-01,-0.5777E-01,
- *-0.6086E-01,-0.6238E-01,-0.6388E-01,-0.6683E-01,-0.6966E-01,
- *-0.7234E-01,-0.7487E-01,-0.7728E-01,-0.7958E-01,-0.8174E-01,
- *-0.8369E-01,-0.8533E-01,-0.8658E-01,-0.8748E-01,-0.8805E-01,
- *-0.8833E-01,-0.8827E-01,-0.8776E-01,-0.8671E-01,-0.8505E-01,
- *-0.8278E-01,-0.7988E-01,-0.7638E-01,-0.7232E-01,-0.6770E-01,
- *-0.6252E-01,-0.5675E-01,-0.5042E-01,-0.4355E-01,-0.3630E-01,
- *-0.2885E-01,-0.2139E-01,-0.1428E-01,-0.7920E-02,-0.2621E-02,
- * 0.1348E-02, 0.3877E-02, 0.5104E-02, 0.5129E-02, 0.3927E-02,
- * 0.2011E-02, 0.4411E-03,-0.1732E-19 /
- DATA ((QHR(i,j),j=1,83),i= 8, 8)/
- * 0.7827E-21, 0.1678E-02, 0.8272E-02, 0.1831E-01, 0.2982E-01,
- * 0.4118E-01, 0.5122E-01, 0.5917E-01, 0.6459E-01, 0.6734E-01,
- * 0.6758E-01, 0.6569E-01, 0.6212E-01, 0.5734E-01, 0.5176E-01,
- * 0.4575E-01, 0.3956E-01, 0.3337E-01, 0.2726E-01, 0.2130E-01,
- * 0.1553E-01, 0.9959E-02, 0.4604E-02,-0.5389E-03,-0.5472E-02,
- *-0.1022E-01,-0.1482E-01,-0.1930E-01,-0.2368E-01,-0.2795E-01,
- *-0.3208E-01,-0.3610E-01,-0.4003E-01,-0.4392E-01,-0.4776E-01,
- *-0.5153E-01,-0.5521E-01,-0.5880E-01,-0.6233E-01,-0.6581E-01,
- *-0.6923E-01,-0.7092E-01,-0.7257E-01,-0.7580E-01,-0.7891E-01,
- *-0.8192E-01,-0.8482E-01,-0.8757E-01,-0.9011E-01,-0.9242E-01,
- *-0.9447E-01,-0.9628E-01,-0.9782E-01,-0.9906E-01,-0.9995E-01,
- *-0.1004E+00,-0.1003E+00,-0.9973E-01,-0.9856E-01,-0.9684E-01,
- *-0.9456E-01,-0.9172E-01,-0.8822E-01,-0.8396E-01,-0.7892E-01,
- *-0.7313E-01,-0.6667E-01,-0.5971E-01,-0.5239E-01,-0.4477E-01,
- *-0.3691E-01,-0.2889E-01,-0.2082E-01,-0.1297E-01,-0.5784E-02,
- * 0.2719E-03, 0.4674E-02, 0.7019E-02, 0.7265E-02, 0.5707E-02,
- * 0.3083E-02, 0.7031E-03,-0.1986E-19 /
- DATA ((QHR(i,j),j=1,83),i= 9, 9)/
- * 0.1904E-21, 0.1502E-02, 0.7441E-02, 0.1659E-01, 0.2725E-01,
- * 0.3791E-01, 0.4742E-01, 0.5500E-01, 0.6017E-01, 0.6280E-01,
- * 0.6304E-01, 0.6125E-01, 0.5787E-01, 0.5333E-01, 0.4800E-01,
- * 0.4218E-01, 0.3614E-01, 0.3004E-01, 0.2399E-01, 0.1803E-01,
- * 0.1219E-01, 0.6484E-02, 0.9587E-03,-0.4373E-02,-0.9519E-02,
- *-0.1451E-01,-0.1939E-01,-0.2416E-01,-0.2880E-01,-0.3333E-01,
- *-0.3774E-01,-0.4206E-01,-0.4632E-01,-0.5053E-01,-0.5467E-01,
- *-0.5873E-01,-0.6272E-01,-0.6665E-01,-0.7052E-01,-0.7431E-01,
- *-0.7802E-01,-0.7983E-01,-0.8161E-01,-0.8513E-01,-0.8857E-01,
- *-0.9192E-01,-0.9512E-01,-0.9810E-01,-0.1008E+00,-0.1033E+00,
- *-0.1056E+00,-0.1077E+00,-0.1095E+00,-0.1109E+00,-0.1119E+00,
- *-0.1124E+00,-0.1123E+00,-0.1118E+00,-0.1107E+00,-0.1090E+00,
- *-0.1067E+00,-0.1036E+00,-0.9986E-01,-0.9534E-01,-0.9009E-01,
- *-0.8412E-01,-0.7745E-01,-0.7012E-01,-0.6223E-01,-0.5388E-01,
- *-0.4520E-01,-0.3637E-01,-0.2761E-01,-0.1923E-01,-0.1167E-01,
- *-0.5415E-02,-0.8093E-03, 0.1951E-02, 0.2941E-02, 0.2675E-02,
- * 0.1652E-02, 0.4204E-03, 0.1092E-19 /
- DATA ((QHR(i,j),j=1,83),i=10,10)/
- * 0.7601E-21, 0.1298E-02, 0.6480E-02, 0.1459E-01, 0.2420E-01,
- * 0.3396E-01, 0.4280E-01, 0.4993E-01, 0.5485E-01, 0.5739E-01,
- * 0.5768E-01, 0.5603E-01, 0.5284E-01, 0.4854E-01, 0.4347E-01,
- * 0.3790E-01, 0.3202E-01, 0.2600E-01, 0.1995E-01, 0.1396E-01,
- * 0.8058E-02, 0.2279E-02,-0.3369E-02,-0.8884E-02,-0.1427E-01,
- *-0.1953E-01,-0.2467E-01,-0.2968E-01,-0.3458E-01,-0.3939E-01,
- *-0.4412E-01,-0.4879E-01,-0.5339E-01,-0.5791E-01,-0.6236E-01,
- *-0.6674E-01,-0.7108E-01,-0.7536E-01,-0.7959E-01,-0.8373E-01,
- *-0.8778E-01,-0.8976E-01,-0.9172E-01,-0.9557E-01,-0.9932E-01,
- *-0.1029E+00,-0.1064E+00,-0.1097E+00,-0.1127E+00,-0.1155E+00,
- *-0.1181E+00,-0.1204E+00,-0.1223E+00,-0.1238E+00,-0.1248E+00,
- *-0.1254E+00,-0.1255E+00,-0.1250E+00,-0.1240E+00,-0.1222E+00,
- *-0.1197E+00,-0.1165E+00,-0.1124E+00,-0.1076E+00,-0.1020E+00,
- *-0.9576E-01,-0.8875E-01,-0.8098E-01,-0.7249E-01,-0.6342E-01,
- *-0.5400E-01,-0.4452E-01,-0.3530E-01,-0.2664E-01,-0.1881E-01,
- *-0.1215E-01,-0.6858E-02,-0.3038E-02,-0.6839E-03, 0.3868E-03,
- * 0.5016E-03, 0.1542E-03,-0.1453E-19 /
- DATA ((QHR(i,j),j=1,83),i=11,11)/
- *-0.8737E-22, 0.1206E-02, 0.6014E-02, 0.1353E-01, 0.2241E-01,
- * 0.3142E-01, 0.3958E-01, 0.4619E-01, 0.5079E-01, 0.5322E-01,
- * 0.5355E-01, 0.5206E-01, 0.4908E-01, 0.4496E-01, 0.4002E-01,
- * 0.3454E-01, 0.2873E-01, 0.2276E-01, 0.1674E-01, 0.1072E-01,
- * 0.4747E-02,-0.1154E-02,-0.6948E-02,-0.1262E-01,-0.1815E-01,
- *-0.2359E-01,-0.2893E-01,-0.3419E-01,-0.3936E-01,-0.4445E-01,
- *-0.4944E-01,-0.5435E-01,-0.5922E-01,-0.6404E-01,-0.6880E-01,
- *-0.7349E-01,-0.7812E-01,-0.8267E-01,-0.8717E-01,-0.9159E-01,
- *-0.9591E-01,-0.9803E-01,-0.1001E+00,-0.1042E+00,-0.1082E+00,
- *-0.1121E+00,-0.1158E+00,-0.1193E+00,-0.1226E+00,-0.1255E+00,
- *-0.1282E+00,-0.1306E+00,-0.1327E+00,-0.1344E+00,-0.1356E+00,
- *-0.1362E+00,-0.1363E+00,-0.1357E+00,-0.1345E+00,-0.1327E+00,
- *-0.1301E+00,-0.1267E+00,-0.1225E+00,-0.1174E+00,-0.1115E+00,
- *-0.1048E+00,-0.9726E-01,-0.8897E-01,-0.8004E-01,-0.7058E-01,
- *-0.6073E-01,-0.5069E-01,-0.4067E-01,-0.3100E-01,-0.2207E-01,
- *-0.1433E-01,-0.8122E-02,-0.3659E-02,-0.9475E-03, 0.3168E-03,
- * 0.5233E-03, 0.1689E-03,-0.2604E-19 /
- DATA ((QHR(i,j),j=1,83),i=12,12)/
- *-0.1387E-21, 0.1144E-02, 0.5715E-02, 0.1287E-01, 0.2135E-01,
- * 0.2998E-01, 0.3782E-01, 0.4420E-01, 0.4867E-01, 0.5106E-01,
- * 0.5141E-01, 0.4997E-01, 0.4705E-01, 0.4298E-01, 0.3810E-01,
- * 0.3266E-01, 0.2687E-01, 0.2087E-01, 0.1479E-01, 0.8703E-02,
- * 0.2670E-02,-0.3281E-02,-0.9142E-02,-0.1491E-01,-0.2059E-01,
- *-0.2617E-01,-0.3165E-01,-0.3704E-01,-0.4234E-01,-0.4758E-01,
- *-0.5276E-01,-0.5787E-01,-0.6290E-01,-0.6788E-01,-0.7280E-01,
- *-0.7767E-01,-0.8248E-01,-0.8722E-01,-0.9188E-01,-0.9647E-01,
- *-0.1010E+00,-0.1032E+00,-0.1054E+00,-0.1097E+00,-0.1139E+00,
- *-0.1178E+00,-0.1216E+00,-0.1252E+00,-0.1287E+00,-0.1318E+00,
- *-0.1347E+00,-0.1371E+00,-0.1392E+00,-0.1408E+00,-0.1420E+00,
- *-0.1427E+00,-0.1428E+00,-0.1423E+00,-0.1410E+00,-0.1391E+00,
- *-0.1363E+00,-0.1328E+00,-0.1284E+00,-0.1232E+00,-0.1170E+00,
- *-0.1100E+00,-0.1021E+00,-0.9358E-01,-0.8439E-01,-0.7467E-01,
- *-0.6457E-01,-0.5430E-01,-0.4408E-01,-0.3425E-01,-0.2514E-01,
- *-0.1706E-01,-0.1036E-01,-0.5266E-02,-0.1865E-02,-0.1354E-03,
- * 0.2818E-03, 0.1009E-03,-0.1080E-19 /
- DATA ((QHR(i,j),j=1,83),i=13,13)/
- *-0.5055E-21, 0.9320E-03, 0.4680E-02, 0.1062E-01, 0.1774E-01,
- * 0.2507E-01, 0.3178E-01, 0.3725E-01, 0.4108E-01, 0.4309E-01,
- * 0.4329E-01, 0.4188E-01, 0.3912E-01, 0.3527E-01, 0.3061E-01,
- * 0.2537E-01, 0.1974E-01, 0.1386E-01, 0.7840E-02, 0.1739E-02,
- *-0.4392E-02,-0.1052E-01,-0.1660E-01,-0.2263E-01,-0.2858E-01,
- *-0.3448E-01,-0.4033E-01,-0.4612E-01,-0.5186E-01,-0.5754E-01,
- *-0.6315E-01,-0.6872E-01,-0.7424E-01,-0.7972E-01,-0.8514E-01,
- *-0.9051E-01,-0.9582E-01,-0.1011E+00,-0.1062E+00,-0.1113E+00,
- *-0.1163E+00,-0.1187E+00,-0.1212E+00,-0.1259E+00,-0.1305E+00,
- *-0.1350E+00,-0.1392E+00,-0.1432E+00,-0.1470E+00,-0.1504E+00,
- *-0.1535E+00,-0.1562E+00,-0.1586E+00,-0.1604E+00,-0.1618E+00,
- *-0.1625E+00,-0.1626E+00,-0.1620E+00,-0.1607E+00,-0.1586E+00,
- *-0.1556E+00,-0.1518E+00,-0.1470E+00,-0.1413E+00,-0.1347E+00,
- *-0.1271E+00,-0.1185E+00,-0.1092E+00,-0.9905E-01,-0.8833E-01,
- *-0.7715E-01,-0.6573E-01,-0.5431E-01,-0.4320E-01,-0.3277E-01,
- *-0.2345E-01,-0.1555E-01,-0.9332E-02,-0.4876E-02,-0.2042E-02,
- *-0.5680E-03,-0.6441E-04,-0.2800E-19 /
- DATA ((QHR(i,j),j=1,83),i=14,14)/
- *-0.6295E-21, 0.7026E-03, 0.3544E-02, 0.8087E-02, 0.1358E-01,
- * 0.1926E-01, 0.2445E-01, 0.2863E-01, 0.3144E-01, 0.3272E-01,
- * 0.3248E-01, 0.3084E-01, 0.2800E-01, 0.2418E-01, 0.1960E-01,
- * 0.1443E-01, 0.8843E-02, 0.2958E-02,-0.3134E-02,-0.9368E-02,
- *-0.1569E-01,-0.2207E-01,-0.2848E-01,-0.3488E-01,-0.4128E-01,
- *-0.4766E-01,-0.5404E-01,-0.6039E-01,-0.6673E-01,-0.7304E-01,
- *-0.7931E-01,-0.8556E-01,-0.9178E-01,-0.9796E-01,-0.1041E+00,
- *-0.1102E+00,-0.1162E+00,-0.1222E+00,-0.1281E+00,-0.1339E+00,
- *-0.1396E+00,-0.1424E+00,-0.1452E+00,-0.1506E+00,-0.1558E+00,
- *-0.1609E+00,-0.1657E+00,-0.1703E+00,-0.1745E+00,-0.1784E+00,
- *-0.1819E+00,-0.1850E+00,-0.1876E+00,-0.1897E+00,-0.1912E+00,
- *-0.1920E+00,-0.1921E+00,-0.1914E+00,-0.1899E+00,-0.1875E+00,
- *-0.1841E+00,-0.1797E+00,-0.1743E+00,-0.1679E+00,-0.1603E+00,
- *-0.1517E+00,-0.1420E+00,-0.1314E+00,-0.1199E+00,-0.1077E+00,
- *-0.9501E-01,-0.8198E-01,-0.6888E-01,-0.5606E-01,-0.4388E-01,
- *-0.3273E-01,-0.2298E-01,-0.1490E-01,-0.8663E-02,-0.4266E-02,
- *-0.1564E-02,-0.2702E-03, 0.2095E-19 /
- DATA ((QHR(i,j),j=1,83),i=15,15)/
- *-0.3916E-21, 0.2488E-03, 0.1259E-02, 0.2881E-02, 0.4825E-02,
- * 0.6761E-02, 0.8360E-02, 0.9342E-02, 0.9497E-02, 0.8700E-02,
- * 0.6911E-02, 0.4156E-02, 0.5045E-03,-0.3947E-02,-0.9095E-02,
- *-0.1484E-01,-0.2109E-01,-0.2777E-01,-0.3481E-01,-0.4214E-01,
- *-0.4973E-01,-0.5752E-01,-0.6550E-01,-0.7363E-01,-0.8188E-01,
- *-0.9023E-01,-0.9867E-01,-0.1072E+00,-0.1157E+00,-0.1243E+00,
- *-0.1329E+00,-0.1416E+00,-0.1502E+00,-0.1587E+00,-0.1673E+00,
- *-0.1757E+00,-0.1841E+00,-0.1923E+00,-0.2004E+00,-0.2084E+00,
- *-0.2161E+00,-0.2199E+00,-0.2236E+00,-0.2308E+00,-0.2378E+00,
- *-0.2444E+00,-0.2506E+00,-0.2563E+00,-0.2616E+00,-0.2663E+00,
- *-0.2704E+00,-0.2739E+00,-0.2766E+00,-0.2785E+00,-0.2796E+00,
- *-0.2797E+00,-0.2789E+00,-0.2769E+00,-0.2739E+00,-0.2696E+00,
- *-0.2641E+00,-0.2573E+00,-0.2491E+00,-0.2396E+00,-0.2288E+00,
- *-0.2166E+00,-0.2032E+00,-0.1886E+00,-0.1730E+00,-0.1564E+00,
- *-0.1393E+00,-0.1217E+00,-0.1041E+00,-0.8671E-01,-0.7000E-01,
- *-0.5435E-01,-0.4014E-01,-0.2772E-01,-0.1739E-01,-0.9372E-02,
- *-0.3802E-02,-0.7186E-03, 0.2245E-20 /
- DATA ((QHR(i,j),j=1,83),i=16,16)/
- *-0.8098E-21, 0.3080E-05,-0.6454E-05,-0.1116E-03,-0.4447E-03,
- *-0.1159E-02,-0.2397E-02,-0.4270E-02,-0.6842E-02,-0.1014E-01,
- *-0.1414E-01,-0.1881E-01,-0.2411E-01,-0.2999E-01,-0.3639E-01,
- *-0.4326E-01,-0.5057E-01,-0.5828E-01,-0.6634E-01,-0.7473E-01,
- *-0.8343E-01,-0.9240E-01,-0.1016E+00,-0.1111E+00,-0.1207E+00,
- *-0.1306E+00,-0.1406E+00,-0.1507E+00,-0.1610E+00,-0.1713E+00,
- *-0.1818E+00,-0.1923E+00,-0.2028E+00,-0.2134E+00,-0.2239E+00,
- *-0.2344E+00,-0.2448E+00,-0.2550E+00,-0.2652E+00,-0.2751E+00,
- *-0.2848E+00,-0.2896E+00,-0.2943E+00,-0.3034E+00,-0.3122E+00,
- *-0.3205E+00,-0.3284E+00,-0.3357E+00,-0.3425E+00,-0.3485E+00,
- *-0.3538E+00,-0.3584E+00,-0.3620E+00,-0.3646E+00,-0.3662E+00,
- *-0.3667E+00,-0.3659E+00,-0.3638E+00,-0.3603E+00,-0.3553E+00,
- *-0.3487E+00,-0.3406E+00,-0.3307E+00,-0.3191E+00,-0.3058E+00,
- *-0.2907E+00,-0.2740E+00,-0.2557E+00,-0.2358E+00,-0.2147E+00,
- *-0.1925E+00,-0.1696E+00,-0.1463E+00,-0.1230E+00,-0.1004E+00,
- *-0.7876E-01,-0.5881E-01,-0.4108E-01,-0.2607E-01,-0.1421E-01,
- *-0.5822E-02,-0.1108E-02,-0.2604E-20 /
- DATA ((QHR(i,j),j=1,83),i=17,17)/
- *-0.3673E-22,-0.1188E-04,-0.8432E-04,-0.2988E-03,-0.7816E-03,
- *-0.1678E-02,-0.3123E-02,-0.5222E-02,-0.8035E-02,-0.1158E-01,
- *-0.1586E-01,-0.2082E-01,-0.2642E-01,-0.3263E-01,-0.3938E-01,
- *-0.4662E-01,-0.5433E-01,-0.6245E-01,-0.7095E-01,-0.7981E-01,
- *-0.8898E-01,-0.9844E-01,-0.1082E+00,-0.1181E+00,-0.1283E+00,
- *-0.1387E+00,-0.1492E+00,-0.1599E+00,-0.1707E+00,-0.1816E+00,
- *-0.1926E+00,-0.2036E+00,-0.2146E+00,-0.2257E+00,-0.2366E+00,
- *-0.2475E+00,-0.2583E+00,-0.2690E+00,-0.2795E+00,-0.2897E+00,
- *-0.2997E+00,-0.3046E+00,-0.3093E+00,-0.3186E+00,-0.3275E+00,
- *-0.3359E+00,-0.3438E+00,-0.3511E+00,-0.3577E+00,-0.3636E+00,
- *-0.3687E+00,-0.3729E+00,-0.3762E+00,-0.3784E+00,-0.3795E+00,
- *-0.3794E+00,-0.3780E+00,-0.3753E+00,-0.3711E+00,-0.3653E+00,
- *-0.3580E+00,-0.3490E+00,-0.3383E+00,-0.3259E+00,-0.3118E+00,
- *-0.2959E+00,-0.2784E+00,-0.2593E+00,-0.2387E+00,-0.2170E+00,
- *-0.1943E+00,-0.1709E+00,-0.1472E+00,-0.1236E+00,-0.1007E+00,
- *-0.7898E-01,-0.5895E-01,-0.4116E-01,-0.2611E-01,-0.1423E-01,
- *-0.5834E-02,-0.1111E-02, 0.1081E-20 /
- DATA ((QHR(i,j),j=1,83),i=18,18)/
- * 0.7005E-21,-0.1645E-03,-0.8690E-03,-0.2146E-02,-0.4009E-02,
- *-0.6477E-02,-0.9571E-02,-0.1331E-01,-0.1769E-01,-0.2274E-01,
- *-0.2843E-01,-0.3477E-01,-0.4172E-01,-0.4928E-01,-0.5740E-01,
- *-0.6607E-01,-0.7525E-01,-0.8491E-01,-0.9503E-01,-0.1056E+00,
- *-0.1165E+00,-0.1278E+00,-0.1394E+00,-0.1514E+00,-0.1636E+00,
- *-0.1760E+00,-0.1887E+00,-0.2015E+00,-0.2145E+00,-0.2275E+00,
- *-0.2407E+00,-0.2539E+00,-0.2670E+00,-0.2802E+00,-0.2932E+00,
- *-0.3061E+00,-0.3188E+00,-0.3313E+00,-0.3436E+00,-0.3555E+00,
- *-0.3670E+00,-0.3726E+00,-0.3780E+00,-0.3886E+00,-0.3986E+00,
- *-0.4079E+00,-0.4165E+00,-0.4244E+00,-0.4314E+00,-0.4375E+00,
- *-0.4425E+00,-0.4465E+00,-0.4493E+00,-0.4508E+00,-0.4510E+00,
- *-0.4497E+00,-0.4469E+00,-0.4426E+00,-0.4365E+00,-0.4288E+00,
- *-0.4192E+00,-0.4078E+00,-0.3945E+00,-0.3794E+00,-0.3624E+00,
- *-0.3435E+00,-0.3229E+00,-0.3006E+00,-0.2769E+00,-0.2518E+00,
- *-0.2258E+00,-0.1990E+00,-0.1719E+00,-0.1450E+00,-0.1187E+00,
- *-0.9361E-01,-0.7033E-01,-0.4948E-01,-0.3164E-01,-0.1738E-01,
- *-0.7169E-02,-0.1371E-02,-0.5448E-20 /
- DATA ((QHR(i,j),j=1,83),i=19,19)/
- *-0.7083E-21,-0.1681E-03,-0.8896E-03,-0.2204E-02,-0.4136E-02,
- *-0.6718E-02,-0.9979E-02,-0.1395E-01,-0.1864E-01,-0.2405E-01,
- *-0.3019E-01,-0.3704E-01,-0.4457E-01,-0.5275E-01,-0.6156E-01,
- *-0.7097E-01,-0.8093E-01,-0.9141E-01,-0.1024E+00,-0.1138E+00,
- *-0.1256E+00,-0.1378E+00,-0.1504E+00,-0.1632E+00,-0.1764E+00,
- *-0.1897E+00,-0.2033E+00,-0.2170E+00,-0.2308E+00,-0.2447E+00,
- *-0.2586E+00,-0.2725E+00,-0.2864E+00,-0.3001E+00,-0.3137E+00,
- *-0.3271E+00,-0.3402E+00,-0.3530E+00,-0.3655E+00,-0.3775E+00,
- *-0.3890E+00,-0.3946E+00,-0.4000E+00,-0.4103E+00,-0.4200E+00,
- *-0.4289E+00,-0.4370E+00,-0.4442E+00,-0.4504E+00,-0.4556E+00,
- *-0.4596E+00,-0.4624E+00,-0.4640E+00,-0.4641E+00,-0.4629E+00,
- *-0.4601E+00,-0.4557E+00,-0.4497E+00,-0.4420E+00,-0.4325E+00,
- *-0.4212E+00,-0.4081E+00,-0.3932E+00,-0.3765E+00,-0.3581E+00,
- *-0.3379E+00,-0.3162E+00,-0.2930E+00,-0.2685E+00,-0.2430E+00,
- *-0.2168E+00,-0.1901E+00,-0.1634E+00,-0.1371E+00,-0.1116E+00,
- *-0.8761E-01,-0.6551E-01,-0.4587E-01,-0.2921E-01,-0.1599E-01,
- *-0.6579E-02,-0.1257E-02, 0.8424E-20 /
- DATA ((QHR(i,j),j=1,83),i=20,20)/
- *-0.7188E-21,-0.2182E-03,-0.1157E-02,-0.2874E-02,-0.5413E-02,
- *-0.8822E-02,-0.1315E-01,-0.1842E-01,-0.2467E-01,-0.3188E-01,
- *-0.4007E-01,-0.4919E-01,-0.5922E-01,-0.7012E-01,-0.8184E-01,
- *-0.9433E-01,-0.1075E+00,-0.1214E+00,-0.1359E+00,-0.1509E+00,
- *-0.1664E+00,-0.1823E+00,-0.1986E+00,-0.2152E+00,-0.2320E+00,
- *-0.2491E+00,-0.2662E+00,-0.2833E+00,-0.3005E+00,-0.3175E+00,
- *-0.3344E+00,-0.3510E+00,-0.3674E+00,-0.3833E+00,-0.3988E+00,
- *-0.4138E+00,-0.4282E+00,-0.4419E+00,-0.4548E+00,-0.4669E+00,
- *-0.4782E+00,-0.4834E+00,-0.4884E+00,-0.4975E+00,-0.5056E+00,
- *-0.5124E+00,-0.5180E+00,-0.5222E+00,-0.5250E+00,-0.5263E+00,
- *-0.5261E+00,-0.5244E+00,-0.5210E+00,-0.5159E+00,-0.5091E+00,
- *-0.5006E+00,-0.4904E+00,-0.4784E+00,-0.4647E+00,-0.4493E+00,
- *-0.4322E+00,-0.4135E+00,-0.3933E+00,-0.3717E+00,-0.3487E+00,
- *-0.3247E+00,-0.2996E+00,-0.2738E+00,-0.2475E+00,-0.2209E+00,
- *-0.1944E+00,-0.1682E+00,-0.1427E+00,-0.1182E+00,-0.9509E-01,
- *-0.7378E-01,-0.5460E-01,-0.3789E-01,-0.2395E-01,-0.1303E-01,
- *-0.5337E-02,-0.1017E-02, 0.9963E-20 /
-c************** MIE (phase fun uh) ***************
- DATA ((UHR(i,j),j=1,83),i= 1, 1)/
- *-0.4078E+00,-0.4006E+00,-0.3720E+00,-0.3280E+00,-0.2777E+00,
- *-0.2287E+00,-0.1851E+00,-0.1482E+00,-0.1175E+00,-0.9206E-01,
- *-0.7104E-01,-0.5377E-01,-0.3958E-01,-0.2786E-01,-0.1818E-01,
- *-0.1018E-01,-0.3538E-02, 0.2058E-02, 0.6933E-02, 0.1138E-01,
- * 0.1558E-01, 0.1965E-01, 0.2367E-01, 0.2775E-01, 0.3192E-01,
- * 0.3625E-01, 0.4080E-01, 0.4562E-01, 0.5078E-01, 0.5640E-01,
- * 0.6252E-01, 0.6919E-01, 0.7647E-01, 0.8447E-01, 0.9330E-01,
- * 0.1031E+00, 0.1138E+00, 0.1257E+00, 0.1389E+00, 0.1535E+00,
- * 0.1698E+00, 0.1786E+00, 0.1879E+00, 0.2080E+00, 0.2304E+00,
- * 0.2554E+00, 0.2834E+00, 0.3148E+00, 0.3499E+00, 0.3893E+00,
- * 0.4334E+00, 0.4829E+00, 0.5384E+00, 0.6011E+00, 0.6719E+00,
- * 0.7518E+00, 0.8419E+00, 0.9438E+00, 0.1059E+01, 0.1189E+01,
- * 0.1337E+01, 0.1504E+01, 0.1694E+01, 0.1909E+01, 0.2154E+01,
- * 0.2432E+01, 0.2747E+01, 0.3104E+01, 0.3510E+01, 0.3969E+01,
- * 0.4491E+01, 0.5083E+01, 0.5755E+01, 0.6516E+01, 0.7380E+01,
- * 0.8358E+01, 0.9463E+01, 0.1071E+02, 0.1208E+02, 0.1357E+02,
- * 0.1508E+02, 0.1632E+02, 0.1673E+02 /
- DATA ((UHR(i,j),j=1,83),i= 2, 2)/
- *-0.3768E+00,-0.3711E+00,-0.3481E+00,-0.3122E+00,-0.2704E+00,
- *-0.2286E+00,-0.1905E+00,-0.1574E+00,-0.1292E+00,-0.1051E+00,
- *-0.8476E-01,-0.6764E-01,-0.5336E-01,-0.4147E-01,-0.3151E-01,
- *-0.2308E-01,-0.1583E-01,-0.9485E-02,-0.3835E-02, 0.1322E-02,
- * 0.6165E-02, 0.1083E-01, 0.1543E-01, 0.2004E-01, 0.2475E-01,
- * 0.2959E-01, 0.3462E-01, 0.3992E-01, 0.4557E-01, 0.5169E-01,
- * 0.5837E-01, 0.6566E-01, 0.7359E-01, 0.8221E-01, 0.9162E-01,
- * 0.1019E+00, 0.1133E+00, 0.1260E+00, 0.1400E+00, 0.1555E+00,
- * 0.1726E+00, 0.1818E+00, 0.1915E+00, 0.2127E+00, 0.2362E+00,
- * 0.2624E+00, 0.2916E+00, 0.3243E+00, 0.3609E+00, 0.4018E+00,
- * 0.4476E+00, 0.4991E+00, 0.5568E+00, 0.6216E+00, 0.6946E+00,
- * 0.7768E+00, 0.8695E+00, 0.9741E+00, 0.1092E+01, 0.1226E+01,
- * 0.1376E+01, 0.1546E+01, 0.1739E+01, 0.1956E+01, 0.2202E+01,
- * 0.2481E+01, 0.2795E+01, 0.3150E+01, 0.3550E+01, 0.4001E+01,
- * 0.4509E+01, 0.5080E+01, 0.5721E+01, 0.6440E+01, 0.7243E+01,
- * 0.8139E+01, 0.9131E+01, 0.1022E+02, 0.1139E+02, 0.1261E+02,
- * 0.1379E+02, 0.1472E+02, 0.1501E+02 /
- DATA ((UHR(i,j),j=1,83),i= 3, 3)/
- *-0.3723E+00,-0.3668E+00,-0.3445E+00,-0.3097E+00,-0.2691E+00,
- *-0.2287E+00,-0.1917E+00,-0.1596E+00,-0.1320E+00,-0.1083E+00,
- *-0.8809E-01,-0.7094E-01,-0.5657E-01,-0.4462E-01,-0.3464E-01,
- *-0.2617E-01,-0.1883E-01,-0.1230E-01,-0.6407E-02,-0.1026E-02,
- * 0.3980E-02, 0.8757E-02, 0.1343E-01, 0.1811E-01, 0.2289E-01,
- * 0.2782E-01, 0.3298E-01, 0.3844E-01, 0.4427E-01, 0.5053E-01,
- * 0.5729E-01, 0.6466E-01, 0.7271E-01, 0.8148E-01, 0.9107E-01,
- * 0.1016E+00, 0.1131E+00, 0.1259E+00, 0.1401E+00, 0.1558E+00,
- * 0.1731E+00, 0.1825E+00, 0.1923E+00, 0.2137E+00, 0.2376E+00,
- * 0.2640E+00, 0.2936E+00, 0.3266E+00, 0.3634E+00, 0.4047E+00,
- * 0.4509E+00, 0.5028E+00, 0.5611E+00, 0.6265E+00, 0.7000E+00,
- * 0.7827E+00, 0.8758E+00, 0.9809E+00, 0.1099E+01, 0.1233E+01,
- * 0.1385E+01, 0.1555E+01, 0.1748E+01, 0.1966E+01, 0.2212E+01,
- * 0.2490E+01, 0.2804E+01, 0.3158E+01, 0.3556E+01, 0.4005E+01,
- * 0.4510E+01, 0.5076E+01, 0.5709E+01, 0.6418E+01, 0.7208E+01,
- * 0.8086E+01, 0.9054E+01, 0.1011E+02, 0.1125E+02, 0.1242E+02,
- * 0.1355E+02, 0.1442E+02, 0.1469E+02 /
- DATA ((UHR(i,j),j=1,83),i= 4, 4)/
- *-0.3587E+00,-0.3538E+00,-0.3340E+00,-0.3029E+00,-0.2662E+00,
- *-0.2290E+00,-0.1946E+00,-0.1643E+00,-0.1379E+00,-0.1151E+00,
- *-0.9555E-01,-0.7883E-01,-0.6466E-01,-0.5267E-01,-0.4247E-01,
- *-0.3369E-01,-0.2603E-01,-0.1922E-01,-0.1308E-01,-0.7422E-02,
- *-0.2095E-02, 0.3038E-02, 0.8084E-02, 0.1314E-01, 0.1827E-01,
- * 0.2355E-01, 0.2903E-01, 0.3478E-01, 0.4088E-01, 0.4745E-01,
- * 0.5458E-01, 0.6232E-01, 0.7072E-01, 0.7985E-01, 0.8979E-01,
- * 0.1007E+00, 0.1126E+00, 0.1259E+00, 0.1406E+00, 0.1567E+00,
- * 0.1746E+00, 0.1842E+00, 0.1944E+00, 0.2163E+00, 0.2408E+00,
- * 0.2680E+00, 0.2983E+00, 0.3321E+00, 0.3699E+00, 0.4120E+00,
- * 0.4593E+00, 0.5122E+00, 0.5716E+00, 0.6381E+00, 0.7128E+00,
- * 0.7969E+00, 0.8914E+00, 0.9979E+00, 0.1118E+01, 0.1253E+01,
- * 0.1406E+01, 0.1577E+01, 0.1771E+01, 0.1990E+01, 0.2236E+01,
- * 0.2514E+01, 0.2826E+01, 0.3177E+01, 0.3572E+01, 0.4014E+01,
- * 0.4509E+01, 0.5063E+01, 0.5679E+01, 0.6364E+01, 0.7122E+01,
- * 0.7956E+01, 0.8868E+01, 0.9851E+01, 0.1089E+02, 0.1194E+02,
- * 0.1293E+02, 0.1368E+02, 0.1390E+02 /
- DATA ((UHR(i,j),j=1,83),i= 5, 5)/
- *-0.3523E+00,-0.3476E+00,-0.3287E+00,-0.2992E+00,-0.2646E+00,
- *-0.2297E+00,-0.1972E+00,-0.1684E+00,-0.1431E+00,-0.1211E+00,
- *-0.1021E+00,-0.8570E-01,-0.7161E-01,-0.5955E-01,-0.4921E-01,
- *-0.4025E-01,-0.3236E-01,-0.2527E-01,-0.1880E-01,-0.1281E-01,
- *-0.7180E-02,-0.1787E-02, 0.3489E-02, 0.8745E-02, 0.1408E-01,
- * 0.1958E-01, 0.2534E-01, 0.3142E-01, 0.3787E-01, 0.4476E-01,
- * 0.5212E-01, 0.6006E-01, 0.6869E-01, 0.7810E-01, 0.8840E-01,
- * 0.9971E-01, 0.1121E+00, 0.1257E+00, 0.1407E+00, 0.1573E+00,
- * 0.1756E+00, 0.1855E+00, 0.1960E+00, 0.2185E+00, 0.2436E+00,
- * 0.2714E+00, 0.3024E+00, 0.3369E+00, 0.3753E+00, 0.4183E+00,
- * 0.4663E+00, 0.5201E+00, 0.5805E+00, 0.6481E+00, 0.7238E+00,
- * 0.8089E+00, 0.9044E+00, 0.1012E+01, 0.1133E+01, 0.1269E+01,
- * 0.1422E+01, 0.1595E+01, 0.1789E+01, 0.2008E+01, 0.2254E+01,
- * 0.2530E+01, 0.2841E+01, 0.3190E+01, 0.3580E+01, 0.4017E+01,
- * 0.4504E+01, 0.5046E+01, 0.5647E+01, 0.6312E+01, 0.7043E+01,
- * 0.7843E+01, 0.8710E+01, 0.9637E+01, 0.1061E+02, 0.1158E+02,
- * 0.1249E+02, 0.1316E+02, 0.1335E+02 /
- DATA ((UHR(i,j),j=1,83),i= 6, 6)/
- *-0.3444E+00,-0.3401E+00,-0.3229E+00,-0.2957E+00,-0.2633E+00,
- *-0.2300E+00,-0.1987E+00,-0.1707E+00,-0.1461E+00,-0.1246E+00,
- *-0.1060E+00,-0.8992E-01,-0.7601E-01,-0.6397E-01,-0.5350E-01,
- *-0.4437E-01,-0.3632E-01,-0.2916E-01,-0.2265E-01,-0.1660E-01,
- *-0.1085E-01,-0.5263E-02, 0.2490E-03, 0.5774E-02, 0.1138E-01,
- * 0.1711E-01, 0.2304E-01, 0.2924E-01, 0.3581E-01, 0.4285E-01,
- * 0.5044E-01, 0.5865E-01, 0.6753E-01, 0.7715E-01, 0.8765E-01,
- * 0.9912E-01, 0.1117E+00, 0.1256E+00, 0.1409E+00, 0.1578E+00,
- * 0.1765E+00, 0.1865E+00, 0.1971E+00, 0.2199E+00, 0.2453E+00,
- * 0.2735E+00, 0.3048E+00, 0.3398E+00, 0.3788E+00, 0.4223E+00,
- * 0.4709E+00, 0.5252E+00, 0.5860E+00, 0.6541E+00, 0.7305E+00,
- * 0.8163E+00, 0.9126E+00, 0.1021E+01, 0.1142E+01, 0.1279E+01,
- * 0.1433E+01, 0.1606E+01, 0.1800E+01, 0.2019E+01, 0.2265E+01,
- * 0.2541E+01, 0.2851E+01, 0.3198E+01, 0.3586E+01, 0.4018E+01,
- * 0.4500E+01, 0.5035E+01, 0.5627E+01, 0.6280E+01, 0.6995E+01,
- * 0.7774E+01, 0.8614E+01, 0.9505E+01, 0.1043E+02, 0.1135E+02,
- * 0.1219E+02, 0.1280E+02, 0.1298E+02 /
- DATA ((UHR(i,j),j=1,83),i= 7, 7)/
- *-0.3349E+00,-0.3310E+00,-0.3155E+00,-0.2907E+00,-0.2610E+00,
- *-0.2302E+00,-0.2010E+00,-0.1745E+00,-0.1510E+00,-0.1303E+00,
- *-0.1121E+00,-0.9630E-01,-0.8253E-01,-0.7056E-01,-0.6010E-01,
- *-0.5089E-01,-0.4269E-01,-0.3530E-01,-0.2853E-01,-0.2222E-01,
- *-0.1621E-01,-0.1038E-01,-0.4628E-02, 0.1127E-02, 0.6964E-02,
- * 0.1294E-01, 0.1912E-01, 0.2559E-01, 0.3242E-01, 0.3973E-01,
- * 0.4760E-01, 0.5611E-01, 0.6530E-01, 0.7525E-01, 0.8607E-01,
- * 0.9789E-01, 0.1108E+00, 0.1251E+00, 0.1408E+00, 0.1582E+00,
- * 0.1773E+00, 0.1875E+00, 0.1983E+00, 0.2217E+00, 0.2476E+00,
- * 0.2764E+00, 0.3084E+00, 0.3440E+00, 0.3837E+00, 0.4279E+00,
- * 0.4773E+00, 0.5325E+00, 0.5941E+00, 0.6631E+00, 0.7404E+00,
- * 0.8271E+00, 0.9243E+00, 0.1033E+01, 0.1156E+01, 0.1293E+01,
- * 0.1448E+01, 0.1621E+01, 0.1816E+01, 0.2035E+01, 0.2280E+01,
- * 0.2555E+01, 0.2863E+01, 0.3207E+01, 0.3591E+01, 0.4018E+01,
- * 0.4492E+01, 0.5017E+01, 0.5595E+01, 0.6230E+01, 0.6923E+01,
- * 0.7672E+01, 0.8475E+01, 0.9320E+01, 0.1019E+02, 0.1104E+02,
- * 0.1181E+02, 0.1236E+02, 0.1251E+02 /
- DATA ((UHR(i,j),j=1,83),i= 8, 8)/
- *-0.3249E+00,-0.3214E+00,-0.3072E+00,-0.2847E+00,-0.2577E+00,
- *-0.2297E+00,-0.2029E+00,-0.1784E+00,-0.1564E+00,-0.1368E+00,
- *-0.1195E+00,-0.1043E+00,-0.9085E-01,-0.7899E-01,-0.6850E-01,
- *-0.5916E-01,-0.5080E-01,-0.4321E-01,-0.3620E-01,-0.2960E-01,
- *-0.2328E-01,-0.1714E-01,-0.1110E-01,-0.5068E-02, 0.1041E-02,
- * 0.7320E-02, 0.1385E-01, 0.2071E-01, 0.2794E-01, 0.3562E-01,
- * 0.4381E-01, 0.5260E-01, 0.6211E-01, 0.7245E-01, 0.8374E-01,
- * 0.9606E-01, 0.1095E+00, 0.1243E+00, 0.1405E+00, 0.1583E+00,
- * 0.1780E+00, 0.1886E+00, 0.1998E+00, 0.2238E+00, 0.2505E+00,
- * 0.2800E+00, 0.3128E+00, 0.3493E+00, 0.3898E+00, 0.4350E+00,
- * 0.4853E+00, 0.5414E+00, 0.6041E+00, 0.6743E+00, 0.7527E+00,
- * 0.8405E+00, 0.9388E+00, 0.1049E+01, 0.1172E+01, 0.1311E+01,
- * 0.1466E+01, 0.1640E+01, 0.1835E+01, 0.2053E+01, 0.2297E+01,
- * 0.2571E+01, 0.2876E+01, 0.3216E+01, 0.3595E+01, 0.4015E+01,
- * 0.4479E+01, 0.4991E+01, 0.5553E+01, 0.6166E+01, 0.6831E+01,
- * 0.7546E+01, 0.8305E+01, 0.9098E+01, 0.9904E+01, 0.1069E+02,
- * 0.1138E+02, 0.1187E+02, 0.1200E+02 /
- DATA ((UHR(i,j),j=1,83),i= 9, 9)/
- *-0.3184E+00,-0.3152E+00,-0.3025E+00,-0.2823E+00,-0.2578E+00,
- *-0.2322E+00,-0.2074E+00,-0.1845E+00,-0.1637E+00,-0.1450E+00,
- *-0.1282E+00,-0.1133E+00,-0.9996E-01,-0.8816E-01,-0.7766E-01,
- *-0.6825E-01,-0.5970E-01,-0.5182E-01,-0.4446E-01,-0.3752E-01,
- *-0.3089E-01,-0.2446E-01,-0.1811E-01,-0.1176E-01,-0.5318E-02,
- * 0.1301E-02, 0.8176E-02, 0.1538E-01, 0.2299E-01, 0.3106E-01,
- * 0.3966E-01, 0.4889E-01, 0.5886E-01, 0.6966E-01, 0.8141E-01,
- * 0.9421E-01, 0.1082E+00, 0.1235E+00, 0.1403E+00, 0.1588E+00,
- * 0.1791E+00, 0.1901E+00, 0.2016E+00, 0.2264E+00, 0.2538E+00,
- * 0.2842E+00, 0.3178E+00, 0.3551E+00, 0.3966E+00, 0.4427E+00,
- * 0.4941E+00, 0.5514E+00, 0.6152E+00, 0.6865E+00, 0.7660E+00,
- * 0.8549E+00, 0.9542E+00, 0.1065E+01, 0.1190E+01, 0.1329E+01,
- * 0.1484E+01, 0.1659E+01, 0.1853E+01, 0.2071E+01, 0.2314E+01,
- * 0.2585E+01, 0.2887E+01, 0.3222E+01, 0.3594E+01, 0.4005E+01,
- * 0.4458E+01, 0.4956E+01, 0.5498E+01, 0.6088E+01, 0.6723E+01,
- * 0.7401E+01, 0.8115E+01, 0.8854E+01, 0.9596E+01, 0.1031E+02,
- * 0.1093E+02, 0.1135E+02, 0.1147E+02 /
- DATA ((UHR(i,j),j=1,83),i=10,10)/
- *-0.3086E+00,-0.3060E+00,-0.2951E+00,-0.2776E+00,-0.2562E+00,
- *-0.2333E+00,-0.2109E+00,-0.1898E+00,-0.1705E+00,-0.1528E+00,
- *-0.1368E+00,-0.1224E+00,-0.1094E+00,-0.9782E-01,-0.8738E-01,
- *-0.7791E-01,-0.6922E-01,-0.6116E-01,-0.5360E-01,-0.4641E-01,
- *-0.3949E-01,-0.3274E-01,-0.2605E-01,-0.1934E-01,-0.1252E-01,
- *-0.5525E-02, 0.1721E-02, 0.9294E-02, 0.1727E-01, 0.2574E-01,
- * 0.3478E-01, 0.4449E-01, 0.5495E-01, 0.6625E-01, 0.7849E-01,
- * 0.9181E-01, 0.1063E+00, 0.1222E+00, 0.1397E+00, 0.1588E+00,
- * 0.1799E+00, 0.1912E+00, 0.2030E+00, 0.2286E+00, 0.2568E+00,
- * 0.2880E+00, 0.3225E+00, 0.3608E+00, 0.4033E+00, 0.4505E+00,
- * 0.5029E+00, 0.5612E+00, 0.6262E+00, 0.6985E+00, 0.7792E+00,
- * 0.8691E+00, 0.9695E+00, 0.1082E+01, 0.1207E+01, 0.1347E+01,
- * 0.1503E+01, 0.1677E+01, 0.1871E+01, 0.2088E+01, 0.2329E+01,
- * 0.2598E+01, 0.2896E+01, 0.3226E+01, 0.3591E+01, 0.3994E+01,
- * 0.4435E+01, 0.4918E+01, 0.5443E+01, 0.6009E+01, 0.6616E+01,
- * 0.7260E+01, 0.7932E+01, 0.8620E+01, 0.9303E+01, 0.9947E+01,
- * 0.1050E+02, 0.1087E+02, 0.1097E+02 /
- DATA ((UHR(i,j),j=1,83),i=11,11)/
- *-0.3051E+00,-0.3027E+00,-0.2927E+00,-0.2765E+00,-0.2567E+00,
- *-0.2355E+00,-0.2146E+00,-0.1948E+00,-0.1764E+00,-0.1595E+00,
- *-0.1441E+00,-0.1301E+00,-0.1174E+00,-0.1059E+00,-0.9549E-01,
- *-0.8596E-01,-0.7715E-01,-0.6893E-01,-0.6116E-01,-0.5374E-01,
- *-0.4658E-01,-0.3957E-01,-0.3262E-01,-0.2564E-01,-0.1855E-01,
- *-0.1127E-01,-0.3707E-02, 0.4205E-02, 0.1254E-01, 0.2136E-01,
- * 0.3075E-01, 0.4081E-01, 0.5163E-01, 0.6332E-01, 0.7600E-01,
- * 0.8979E-01, 0.1048E+00, 0.1212E+00, 0.1392E+00, 0.1588E+00,
- * 0.1805E+00, 0.1921E+00, 0.2042E+00, 0.2305E+00, 0.2594E+00,
- * 0.2913E+00, 0.3266E+00, 0.3656E+00, 0.4089E+00, 0.4569E+00,
- * 0.5102E+00, 0.5694E+00, 0.6353E+00, 0.7085E+00, 0.7900E+00,
- * 0.8808E+00, 0.9819E+00, 0.1095E+01, 0.1220E+01, 0.1360E+01,
- * 0.1517E+01, 0.1691E+01, 0.1885E+01, 0.2100E+01, 0.2340E+01,
- * 0.2606E+01, 0.2901E+01, 0.3227E+01, 0.3586E+01, 0.3980E+01,
- * 0.4412E+01, 0.4883E+01, 0.5392E+01, 0.5940E+01, 0.6524E+01,
- * 0.7139E+01, 0.7779E+01, 0.8428E+01, 0.9068E+01, 0.9667E+01,
- * 0.1017E+02, 0.1051E+02, 0.1060E+02 /
- DATA ((UHR(i,j),j=1,83),i=12,12)/
- *-0.3033E+00,-0.3010E+00,-0.2917E+00,-0.2765E+00,-0.2578E+00,
- *-0.2375E+00,-0.2173E+00,-0.1981E+00,-0.1803E+00,-0.1638E+00,
- *-0.1488E+00,-0.1350E+00,-0.1225E+00,-0.1110E+00,-0.1006E+00,
- *-0.9095E-01,-0.8206E-01,-0.7377E-01,-0.6594E-01,-0.5843E-01,
- *-0.5113E-01,-0.4396E-01,-0.3681E-01,-0.2962E-01,-0.2232E-01,
- *-0.1482E-01,-0.7059E-02, 0.1045E-02, 0.9572E-02, 0.1861E-01,
- * 0.2824E-01, 0.3854E-01, 0.4962E-01, 0.6158E-01, 0.7452E-01,
- * 0.8859E-01, 0.1039E+00, 0.1206E+00, 0.1389E+00, 0.1589E+00,
- * 0.1809E+00, 0.1927E+00, 0.2051E+00, 0.2317E+00, 0.2610E+00,
- * 0.2934E+00, 0.3291E+00, 0.3687E+00, 0.4125E+00, 0.4610E+00,
- * 0.5148E+00, 0.5746E+00, 0.6409E+00, 0.7146E+00, 0.7967E+00,
- * 0.8880E+00, 0.9896E+00, 0.1103E+01, 0.1229E+01, 0.1369E+01,
- * 0.1525E+01, 0.1699E+01, 0.1892E+01, 0.2107E+01, 0.2346E+01,
- * 0.2610E+01, 0.2903E+01, 0.3226E+01, 0.3581E+01, 0.3971E+01,
- * 0.4397E+01, 0.4859E+01, 0.5359E+01, 0.5895E+01, 0.6465E+01,
- * 0.7064E+01, 0.7683E+01, 0.8309E+01, 0.8922E+01, 0.9490E+01,
- * 0.9968E+01, 0.1028E+02, 0.1037E+02 /
- DATA ((UHR(i,j),j=1,83),i=13,13)/
- *-0.2928E+00,-0.2910E+00,-0.2834E+00,-0.2710E+00,-0.2556E+00,
- *-0.2387E+00,-0.2216E+00,-0.2050E+00,-0.1892E+00,-0.1744E+00,
- *-0.1606E+00,-0.1478E+00,-0.1359E+00,-0.1249E+00,-0.1148E+00,
- *-0.1053E+00,-0.9640E-01,-0.8796E-01,-0.7989E-01,-0.7208E-01,
- *-0.6446E-01,-0.5694E-01,-0.4942E-01,-0.4184E-01,-0.3412E-01,
- *-0.2616E-01,-0.1791E-01,-0.9273E-02,-0.1876E-03, 0.9424E-02,
- * 0.1964E-01, 0.3057E-01, 0.4229E-01, 0.5494E-01, 0.6861E-01,
- * 0.8344E-01, 0.9955E-01, 0.1171E+00, 0.1363E+00, 0.1572E+00,
- * 0.1802E+00, 0.1925E+00, 0.2053E+00, 0.2330E+00, 0.2635E+00,
- * 0.2970E+00, 0.3340E+00, 0.3748E+00, 0.4198E+00, 0.4697E+00,
- * 0.5248E+00, 0.5860E+00, 0.6537E+00, 0.7288E+00, 0.8122E+00,
- * 0.9047E+00, 0.1007E+01, 0.1121E+01, 0.1248E+01, 0.1389E+01,
- * 0.1545E+01, 0.1719E+01, 0.1911E+01, 0.2124E+01, 0.2360E+01,
- * 0.2621E+01, 0.2908E+01, 0.3224E+01, 0.3570E+01, 0.3949E+01,
- * 0.4360E+01, 0.4805E+01, 0.5283E+01, 0.5792E+01, 0.6330E+01,
- * 0.6891E+01, 0.7465E+01, 0.8041E+01, 0.8597E+01, 0.9106E+01,
- * 0.9527E+01, 0.9801E+01, 0.9873E+01 /
- DATA ((UHR(i,j),j=1,83),i=14,14)/
- *-0.2827E+00,-0.2814E+00,-0.2759E+00,-0.2668E+00,-0.2553E+00,
- *-0.2423E+00,-0.2289E+00,-0.2154E+00,-0.2023E+00,-0.1897E+00,
- *-0.1776E+00,-0.1661E+00,-0.1553E+00,-0.1450E+00,-0.1353E+00,
- *-0.1261E+00,-0.1173E+00,-0.1089E+00,-0.1006E+00,-0.9258E-01,
- *-0.8462E-01,-0.7669E-01,-0.6871E-01,-0.6060E-01,-0.5231E-01,
- *-0.4375E-01,-0.3485E-01,-0.2554E-01,-0.1574E-01,-0.5368E-02,
- * 0.5651E-02, 0.1741E-01, 0.3002E-01, 0.4359E-01, 0.5823E-01,
- * 0.7408E-01, 0.9126E-01, 0.1099E+00, 0.1303E+00, 0.1524E+00,
- * 0.1767E+00, 0.1896E+00, 0.2032E+00, 0.2323E+00, 0.2642E+00,
- * 0.2992E+00, 0.3378E+00, 0.3802E+00, 0.4269E+00, 0.4785E+00,
- * 0.5354E+00, 0.5982E+00, 0.6676E+00, 0.7444E+00, 0.8293E+00,
- * 0.9233E+00, 0.1027E+01, 0.1142E+01, 0.1270E+01, 0.1411E+01,
- * 0.1567E+01, 0.1740E+01, 0.1931E+01, 0.2142E+01, 0.2374E+01,
- * 0.2630E+01, 0.2910E+01, 0.3218E+01, 0.3553E+01, 0.3917E+01,
- * 0.4311E+01, 0.4735E+01, 0.5187E+01, 0.5665E+01, 0.6166E+01,
- * 0.6683E+01, 0.7207E+01, 0.7724E+01, 0.8217E+01, 0.8660E+01,
- * 0.9018E+01, 0.9246E+01, 0.9304E+01 /
- DATA ((UHR(i,j),j=1,83),i=15,15)/
- *-0.3014E+00,-0.3009E+00,-0.2985E+00,-0.2944E+00,-0.2890E+00,
- *-0.2825E+00,-0.2751E+00,-0.2673E+00,-0.2590E+00,-0.2505E+00,
- *-0.2419E+00,-0.2331E+00,-0.2243E+00,-0.2156E+00,-0.2068E+00,
- *-0.1980E+00,-0.1893E+00,-0.1805E+00,-0.1716E+00,-0.1626E+00,
- *-0.1535E+00,-0.1442E+00,-0.1346E+00,-0.1247E+00,-0.1144E+00,
- *-0.1037E+00,-0.9251E-01,-0.8074E-01,-0.6832E-01,-0.5518E-01,
- *-0.4121E-01,-0.2635E-01,-0.1047E-01, 0.6534E-02, 0.2477E-01,
- * 0.4438E-01, 0.6551E-01, 0.8830E-01, 0.1129E+00, 0.1396E+00,
- * 0.1685E+00, 0.1838E+00, 0.1998E+00, 0.2338E+00, 0.2708E+00,
- * 0.3111E+00, 0.3549E+00, 0.4027E+00, 0.4548E+00, 0.5117E+00,
- * 0.5738E+00, 0.6417E+00, 0.7158E+00, 0.7969E+00, 0.8856E+00,
- * 0.9826E+00, 0.1089E+01, 0.1205E+01, 0.1332E+01, 0.1470E+01,
- * 0.1622E+01, 0.1787E+01, 0.1967E+01, 0.2163E+01, 0.2376E+01,
- * 0.2607E+01, 0.2857E+01, 0.3126E+01, 0.3415E+01, 0.3724E+01,
- * 0.4052E+01, 0.4398E+01, 0.4760E+01, 0.5134E+01, 0.5516E+01,
- * 0.5900E+01, 0.6278E+01, 0.6639E+01, 0.6970E+01, 0.7254E+01,
- * 0.7473E+01, 0.7606E+01, 0.7638E+01 /
- DATA ((UHR(i,j),j=1,83),i=16,16)/
- *-0.3262E+00,-0.3259E+00,-0.3248E+00,-0.3228E+00,-0.3200E+00,
- *-0.3164E+00,-0.3121E+00,-0.3072E+00,-0.3018E+00,-0.2959E+00,
- *-0.2897E+00,-0.2832E+00,-0.2764E+00,-0.2693E+00,-0.2621E+00,
- *-0.2545E+00,-0.2468E+00,-0.2388E+00,-0.2306E+00,-0.2220E+00,
- *-0.2131E+00,-0.2039E+00,-0.1942E+00,-0.1841E+00,-0.1735E+00,
- *-0.1624E+00,-0.1506E+00,-0.1382E+00,-0.1250E+00,-0.1110E+00,
- *-0.9608E-01,-0.8017E-01,-0.6318E-01,-0.4499E-01,-0.2548E-01,
- *-0.4541E-02, 0.1797E-01, 0.4221E-01, 0.6834E-01, 0.9654E-01,
- * 0.1270E+00, 0.1431E+00, 0.1599E+00, 0.1956E+00, 0.2342E+00,
- * 0.2761E+00, 0.3216E+00, 0.3709E+00, 0.4245E+00, 0.4829E+00,
- * 0.5463E+00, 0.6154E+00, 0.6907E+00, 0.7726E+00, 0.8620E+00,
- * 0.9595E+00, 0.1066E+01, 0.1182E+01, 0.1308E+01, 0.1446E+01,
- * 0.1596E+01, 0.1760E+01, 0.1938E+01, 0.2132E+01, 0.2343E+01,
- * 0.2571E+01, 0.2818E+01, 0.3084E+01, 0.3370E+01, 0.3675E+01,
- * 0.4000E+01, 0.4343E+01, 0.4702E+01, 0.5074E+01, 0.5453E+01,
- * 0.5834E+01, 0.6207E+01, 0.6562E+01, 0.6884E+01, 0.7159E+01,
- * 0.7368E+01, 0.7493E+01, 0.7523E+01 /
- DATA ((UHR(i,j),j=1,83),i=17,17)/
- *-0.3448E+00,-0.3446E+00,-0.3435E+00,-0.3415E+00,-0.3386E+00,
- *-0.3350E+00,-0.3307E+00,-0.3258E+00,-0.3203E+00,-0.3144E+00,
- *-0.3081E+00,-0.3014E+00,-0.2945E+00,-0.2872E+00,-0.2797E+00,
- *-0.2720E+00,-0.2639E+00,-0.2556E+00,-0.2470E+00,-0.2381E+00,
- *-0.2288E+00,-0.2191E+00,-0.2089E+00,-0.1983E+00,-0.1871E+00,
- *-0.1754E+00,-0.1630E+00,-0.1499E+00,-0.1361E+00,-0.1213E+00,
- *-0.1057E+00,-0.8898E-01,-0.7117E-01,-0.5212E-01,-0.3173E-01,
- *-0.9874E-02, 0.1359E-01, 0.3881E-01, 0.6594E-01, 0.9517E-01,
- * 0.1267E+00, 0.1434E+00, 0.1607E+00, 0.1974E+00, 0.2371E+00,
- * 0.2801E+00, 0.3266E+00, 0.3770E+00, 0.4316E+00, 0.4909E+00,
- * 0.5552E+00, 0.6251E+00, 0.7009E+00, 0.7834E+00, 0.8731E+00,
- * 0.9705E+00, 0.1077E+01, 0.1192E+01, 0.1317E+01, 0.1454E+01,
- * 0.1602E+01, 0.1762E+01, 0.1937E+01, 0.2126E+01, 0.2331E+01,
- * 0.2552E+01, 0.2790E+01, 0.3046E+01, 0.3320E+01, 0.3612E+01,
- * 0.3921E+01, 0.4246E+01, 0.4584E+01, 0.4932E+01, 0.5287E+01,
- * 0.5640E+01, 0.5985E+01, 0.6311E+01, 0.6605E+01, 0.6855E+01,
- * 0.7043E+01, 0.7155E+01, 0.7182E+01 /
- DATA ((UHR(i,j),j=1,83),i=18,18)/
- *-0.3923E+00,-0.3921E+00,-0.3914E+00,-0.3903E+00,-0.3886E+00,
- *-0.3863E+00,-0.3835E+00,-0.3802E+00,-0.3764E+00,-0.3720E+00,
- *-0.3671E+00,-0.3618E+00,-0.3560E+00,-0.3497E+00,-0.3429E+00,
- *-0.3357E+00,-0.3280E+00,-0.3198E+00,-0.3112E+00,-0.3019E+00,
- *-0.2922E+00,-0.2818E+00,-0.2708E+00,-0.2592E+00,-0.2469E+00,
- *-0.2338E+00,-0.2198E+00,-0.2050E+00,-0.1893E+00,-0.1725E+00,
- *-0.1547E+00,-0.1357E+00,-0.1154E+00,-0.9369E-01,-0.7052E-01,
- *-0.4576E-01,-0.1925E-01, 0.9120E-02, 0.3952E-01, 0.7211E-01,
- * 0.1071E+00, 0.1255E+00, 0.1446E+00, 0.1849E+00, 0.2281E+00,
- * 0.2746E+00, 0.3246E+00, 0.3784E+00, 0.4363E+00, 0.4986E+00,
- * 0.5657E+00, 0.6379E+00, 0.7157E+00, 0.7995E+00, 0.8897E+00,
- * 0.9870E+00, 0.1092E+01, 0.1205E+01, 0.1326E+01, 0.1457E+01,
- * 0.1597E+01, 0.1748E+01, 0.1910E+01, 0.2083E+01, 0.2269E+01,
- * 0.2467E+01, 0.2678E+01, 0.2903E+01, 0.3140E+01, 0.3389E+01,
- * 0.3650E+01, 0.3921E+01, 0.4201E+01, 0.4485E+01, 0.4771E+01,
- * 0.5054E+01, 0.5326E+01, 0.5581E+01, 0.5809E+01, 0.6000E+01,
- * 0.6143E+01, 0.6227E+01, 0.6248E+01 /
- DATA ((UHR(i,j),j=1,83),i=19,19)/
- *-0.4345E+00,-0.4343E+00,-0.4335E+00,-0.4321E+00,-0.4301E+00,
- *-0.4275E+00,-0.4242E+00,-0.4203E+00,-0.4159E+00,-0.4109E+00,
- *-0.4053E+00,-0.3992E+00,-0.3926E+00,-0.3854E+00,-0.3778E+00,
- *-0.3696E+00,-0.3610E+00,-0.3518E+00,-0.3420E+00,-0.3317E+00,
- *-0.3208E+00,-0.3092E+00,-0.2970E+00,-0.2841E+00,-0.2704E+00,
- *-0.2559E+00,-0.2406E+00,-0.2243E+00,-0.2071E+00,-0.1888E+00,
- *-0.1693E+00,-0.1487E+00,-0.1267E+00,-0.1033E+00,-0.7835E-01,
- *-0.5180E-01,-0.2348E-01, 0.6725E-02, 0.3897E-01, 0.7340E-01,
- * 0.1102E+00, 0.1295E+00, 0.1495E+00, 0.1916E+00, 0.2366E+00,
- * 0.2848E+00, 0.3364E+00, 0.3916E+00, 0.4508E+00, 0.5142E+00,
- * 0.5822E+00, 0.6551E+00, 0.7333E+00, 0.8170E+00, 0.9069E+00,
- * 0.1003E+01, 0.1106E+01, 0.1217E+01, 0.1335E+01, 0.1462E+01,
- * 0.1598E+01, 0.1742E+01, 0.1897E+01, 0.2062E+01, 0.2237E+01,
- * 0.2423E+01, 0.2619E+01, 0.2826E+01, 0.3044E+01, 0.3272E+01,
- * 0.3508E+01, 0.3752E+01, 0.4001E+01, 0.4252E+01, 0.4503E+01,
- * 0.4748E+01, 0.4981E+01, 0.5198E+01, 0.5389E+01, 0.5548E+01,
- * 0.5666E+01, 0.5734E+01, 0.5750E+01 /
- DATA ((UHR(i,j),j=1,83),i=20,20)/
- *-0.6107E+00,-0.6105E+00,-0.6093E+00,-0.6072E+00,-0.6042E+00,
- *-0.6003E+00,-0.5955E+00,-0.5899E+00,-0.5835E+00,-0.5763E+00,
- *-0.5683E+00,-0.5596E+00,-0.5501E+00,-0.5399E+00,-0.5290E+00,
- *-0.5173E+00,-0.5049E+00,-0.4917E+00,-0.4778E+00,-0.4630E+00,
- *-0.4475E+00,-0.4311E+00,-0.4138E+00,-0.3956E+00,-0.3764E+00,
- *-0.3562E+00,-0.3350E+00,-0.3126E+00,-0.2891E+00,-0.2643E+00,
- *-0.2383E+00,-0.2109E+00,-0.1820E+00,-0.1516E+00,-0.1196E+00,
- *-0.8596E-01,-0.5050E-01,-0.1316E-01, 0.2617E-01, 0.6760E-01,
- * 0.1112E+00, 0.1339E+00, 0.1572E+00, 0.2057E+00, 0.2567E+00,
- * 0.3104E+00, 0.3671E+00, 0.4268E+00, 0.4896E+00, 0.5558E+00,
- * 0.6255E+00, 0.6989E+00, 0.7761E+00, 0.8573E+00, 0.9428E+00,
- * 0.1033E+01, 0.1127E+01, 0.1226E+01, 0.1330E+01, 0.1438E+01,
- * 0.1552E+01, 0.1670E+01, 0.1794E+01, 0.1923E+01, 0.2056E+01,
- * 0.2195E+01, 0.2337E+01, 0.2483E+01, 0.2633E+01, 0.2784E+01,
- * 0.2938E+01, 0.3091E+01, 0.3243E+01, 0.3392E+01, 0.3535E+01,
- * 0.3671E+01, 0.3796E+01, 0.3909E+01, 0.4005E+01, 0.4082E+01,
- * 0.4138E+01, 0.4170E+01, 0.4177E+01 /
-
-
-
- vi_m=0.00182737305
- vi(2)=vi_m
- do 1 i=1,20
- asy(2,i)=asy_m(i)
- ex(2,i)=ex_m(i)
- sc(2,i)=sc_m(i)
- do 1 j=1,nquad
- ph(i,j)=phr(i,j)
- qh(i,j)=qhr(i,j)
- uh(i,j)=uhr(i,j)
- 1 continue
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WATE.h b/Modules/ThirdParty/6S/src/6SV1.0B/WATE.h
deleted file mode 100644
index 3076638..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WATE.h
+++ /dev/null
@@ -1,3 +0,0 @@
-extern int otb_6s_wate_(
-
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.P b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.P
deleted file mode 100644
index 17a806a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int wava1_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.c b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.c
deleted file mode 100644
index d4fe9c2..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.c
+++ /dev/null
@@ -1,344 +0,0 @@
-/* WAVA1.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< SUBROUTINE wava1(a,inu) >*/
-/* Subroutine */ int wava1_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 5.2155e-5,.1088,
- .024708,5.6434e-5,.028126,-3.6504e-5,2500.,2510.,2.6024e-4,.21216,
- .025876,3.0026e-5,.030504,-6.2253e-5,2510.,2520.,1.2221e-4,
- .091374,.023862,-7.9891e-5,.020651,-8.5449e-5,2520.,2530.,
- 6.8892e-5,.12703,.030103,-6.0355e-5,.031571,-9.5671e-5,2530.,
- 2540.,9.5684e-5,.11204,.033051,-9.6752e-5,.030485,-1.1273e-4,
- 2540.,2550.,1.0008e-4,.092789,.016702,4.1104e-5,.021654,
- -1.2175e-5,2550.,2560.,1.1515e-4,.072392,.028437,-8.9454e-5,
- .028734,-1.022e-4,2560.,2570.,1.098e-4,.093023,.023611,1.0889e-5,
- .02688,-5.0398e-5,2570.,2580.,1.0952e-4,.07579,.029206,-9.8206e-5,
- .030307,-1.1103e-4,2580.,2590.,1.1941e-4,.070428,.019144,
- -2.8423e-5,.019587,-5.4379e-5,2590.,2600.,8.0498e-5,.061889,
- .024778,-5.5252e-5,.028205,-1.2627e-4,2600.,2610.,7.2792e-5,
- .062776,.026682,-5.8101e-5,.029166,-1.1148e-4,2610.,2620.,
- 1.6616e-4,.015773,.023141,-6.0394e-5,.024947,-1.1178e-4,2620.,
- 2630.,1.8043e-4,.087686,.026248,-3.0398e-5,.03174,-1.367e-4,2630.,
- 2640.,1.3339e-4,.05328,.012701,-4.6874e-5,.012628,-6.7487e-5,
- 2640.,2650.,4.115e-5,.0075778,.011257,1.1038e-4,.036362,
- -1.1284e-4,2650.,2660.,6.1395e-5,.026074,.016798,1.0755e-4,
- .035481,-1.3778e-4,2660.,2670.,3.5062e-4,.080662,.021065,
- -3.9968e-5,.021602,-8.7339e-5,2670.,2680.,2.6391e-4,.11483,.02727,
- -4.0691e-5,.029928,-1.1046e-4,2680.,2690.,8.741e-4,.06007,.021732,
- -8.76e-5,.020645,-9.6557e-5,2690.,2700.,3.0675e-5,.02297,.0094212,
- 7.8691e-6,.015402,-7.4597e-5,2700.,2710.,2.1928e-4,.13351,.022082,
- -4.5472e-5,.02546,-9.6549e-5,2710.,2720.,3.4904e-4,.095073,
- .013969,1.2276e-6,.016415,-6.5204e-5,2720.,2730.,.002136,.061072,
- .018908,-7.653e-5,.019801,-7.7251e-5,2730.,2740.,1.3372e-4,.10806,
- .025683,-4.923e-5,.025729,-8.9387e-5,2740.,2750.,.0021697,.062188,
- .018593,-8.0474e-5,.016349,-8.1422e-5,2750.,2760.,4.503e-5,
- .014902,.011376,2.086e-4,.04688,-1.3018e-4,2760.,2770.,3.9413e-4,
- .075433,.019773,3.0322e-5,.02086,-4.5326e-5,2770.,2780.,.0048935,
- .096746,.019042,-7.2945e-5,.016358,-7.6368e-5,2780.,2790.,
- 5.6197e-5,.026178,.017977,1.4035e-4,.032163,-7.1639e-5,2790.,
- 2800.,.0017459,.049818,.012334,-5.2052e-5,.013169,-4.5266e-5,
- 2800.,2810.,.013747,.048325,.012754,-6.181e-5,.011564,-4.9886e-5,
- 2810.,2820.,8.2805e-4,.084185,.021588,3.0162e-6,.021186,
- -3.7441e-5,2820.,2830.,.011866,.034247,.0094911,-5.0331e-5,
- .0068889,-4.5062e-5,2830.,2840.,.0053887,.10669,.021019,
- -5.3528e-5,.021717,-5.4515e-5,2840.,2850.,1.0411e-4,.11175,
- .031522,3.5658e-5,.036103,-8.82e-5,2850.,2860.,.0079899,.07314,
- .02926,-1.0778e-4,.03194,-1.11e-4,2860.,2870.,.024725,.10335,
- .008848,-3.2902e-5,.010195,-1.929e-5,2870.,2880.,5.7422e-4,.18372,
- .046405,-1.7178e-4,.046094,-1.887e-4,2880.,2890.,.067995,.089991,
- .016432,-5.4992e-5,.019457,-5.5113e-5,2890.,2900.,.03635,.17982,
- .015309,7.9551e-7,.018904,-3.6064e-5,2900.,2910.,.02725,.14127,
- .030783,-1.2895e-4,.031036,-1.2355e-4,2910.,2920.,.002652,.19136,
- .041919,-1.6834e-4,.042452,-1.753e-4,2920.,2930.,.52888,.269,
- .012546,-3.0896e-5,.013568,-4.2996e-5,2930.,2940.,.053771,.17608,
- .020209,-6.024e-5,.025687,-8.3758e-5,2940.,2950.,.32492,.1684,
- .021364,-9.2341e-5,.020449,-8.8117e-5,2950.,2960.,.61749,.1805,
- .013955,-6.0114e-5,.014337,-5.833e-5,2960.,2970.,1.5421,.13158,
- .0096584,-4.1781e-5,.0089471,-3.729e-5,2970.,2980.,1.6668,.2273,
- .0099338,-3.7288e-5,.01043,-3.702e-5,2980.,2990.,1.5158,.13985,
- .011565,-5.1421e-5,.011056,-4.3391e-5,2990.,3e3,1.6503,.17713,
- .0095447,-3.7275e-5,.0086134,-3.6851e-5,3e3,3010.,6.5433,.21911,
- .0060474,-3.289e-5,.0053084,-2.7435e-5,3010.,3020.,2.2497,.12464,
- 8.6253e-4,-6.1061e-6,.0037153,4.0466e-6,3020.,3030.,10.011,.23151,
- .0027571,-1.9224e-5,.0021442,-1.1081e-5,3030.,3040.,2.7015,.12619,
- .0016271,-1.3887e-5,.001636,-1.9543e-8,3040.,3050.,5.2767,.13242,
- .001288,-1.3169e-5,.0012577,-3.613e-6,3050.,3060.,9.1595,.12205,
- -.0012513,-4.0326e-6,-.0018414,2.4599e-6,3060.,3070.,4.6857,
- .15647,-4.3308e-5,-6.9326e-6,-8.1377e-4,-3.1694e-6,3070.,3080.,
- 3.2521,.14435,.0035016,-2.0102e-5,.0037489,-1.4446e-5,3080.,3090.,
- 8.6678,.20679,-.0014866,2.2765e-6,-.001046,1.7536e-6,3090.,3100.,
- 9.0277,.2295,-.0010574,-1.1212e-6,-6.8088e-4,-3.9181e-8,3100.,
- 3110.,12.148,.38295,4.9769e-4,-4.4194e-6,4.3116e-4,-4.0708e-6,
- 3110.,3120.,9.4078,.34012,-3.175e-5,2.1043e-6,.0022348,1.6614e-7,
- 3120.,3130.,6.1004,.077373,-.004677,1.1726e-5,-5.7011e-4,
- 3.3047e-5,3130.,3140.,.64298,.083113,-9.0344e-4,7.4815e-6,
- .0068034,3.8978e-5,3140.,3150.,.31468,.22047,.0087793,-1.3249e-5,
- .014974,-2.9267e-5,3150.,3160.,.84773,.34913,.0023565,-7.7347e-7,
- .004167,2.4148e-6,3160.,3170.,6.7043,.10518,-.0049662,1.3112e-5,
- -9.2458e-4,3.1899e-5,3170.,3180.,3.3487,.17575,-.0036206,
- 1.2779e-5,5.0643e-5,2.6882e-5,3180.,3190.,7.1051,.15577,-.0032039,
- 5.7362e-6,-.0027319,2.0608e-5,3190.,3200.,4.9187,.094692,
- -.0034658,9.9349e-6,6.5696e-4,2.9105e-5,3200.,3210.,11.08,.15706,
- -.0036162,6.4921e-6,-.002575,1.9544e-5,3210.,3220.,6.4326,.26178,
- -3.2818e-4,3.2261e-6,5.6524e-4,5.0713e-6,3220.,3230.,4.8444,
- .21447,-.0019614,1.5381e-5,.0019305,2.4092e-5,3230.,3240.,8.8873,
- .19618,-.0011584,1.5371e-6,5.7401e-4,5.5356e-6,3240.,3250.,6.7011,
- .11596,3.1879e-4,-3.2082e-7,.0027244,9.5927e-6,3250.,3260.,3.2951,
- .21537,.0018132,-9.3642e-6,.0034721,-1.0415e-5,3260.,3270.,11.905,
- .31637,-1.7961e-5,7.0218e-6,.0027392,8.7434e-8,3270.,3280.,4.8139,
- .2732,.0023884,2.6589e-5,.0043504,5.7992e-6,3280.,3290.,6.9428,
- .3268,.0028073,-7.0232e-6,.0032805,-8.5722e-6,3290.,3300.,5.2753,
- .19806,.0027307,-1.4565e-6,.0049125,-1.2966e-5,3300.,3310.,4.7208,
- .23262,.002983,2.6911e-5,.0064942,-7.7622e-6,3310.,3320.,3.2466,
- .37221,.0099704,-2.8634e-5,.011158,-3.6092e-5,3320.,3330.,4.2083,
- .17584,.013723,-3.9504e-5,.013219,-4.4922e-5,3330.,3340.,.78485,
- .29505,.018153,-7.6368e-5,.018172,-6.9561e-5,3340.,3350.,4.0763,
- .2731,.011974,-3.8706e-5,.010563,-3.3592e-5,3350.,3360.,12.275,
- .42572,.0045309,5.9958e-6,.0056864,-1.5831e-5,3360.,3370.,.94088,
- .2913,.012712,-2.3725e-5,.01375,-2.6806e-5,3370.,3380.,5.802,
- .18758,.0056963,-9.9475e-6,.0091903,-1.2922e-5,3380.,3390.,11.279,
- .22153,.010955,-4.55e-5,.010347,-3.3646e-5,3390.,3400.,3.0915,
- .29101,.0076973,-3.1164e-6,.0079615,-1.2231e-5,3400.,3410.,2.746,
- .24709,.01353,-3.9278e-5,.015939,-3.5039e-5,3410.,3420.,14.49,
- .18486,.0089652,-3.5228e-5,.009544,-2.5256e-5,3420.,3430.,4.152,
- .37165,.0094576,-9.1648e-6,.01319,-1.9085e-5,3430.,3440.,35.28,
- .29267,.0077335,-3.3655e-5,.0086235,-3.439e-5,3440.,3450.,1.6073,
- .33722,.016402,1.5852e-5,.018964,-3.2271e-5,3450.,3460.,13.605,
- .31569,.0095057,-1.5485e-5,.0094813,-1.6751e-5,3460.,3470.,7.5164,
- .27307,.0075889,-4.7962e-6,.012249,-2.3811e-5,3470.,3480.,33.484,
- .31131,.0077627,-1.1503e-5,.0094019,-2.0136e-5,3480.,3490.,13.815,
- .23917,.010592,-3.1935e-5,.012433,-3.6436e-5,3490.,3500.,61.974,
- .36287,.0075577,2.6848e-6,.010181,-2.3323e-5,3500.,3510.,14.812,
- .37195,.008261,-1.8654e-5,.010113,-3.1482e-5,3510.,3520.,83.223,
- .39932,.0076795,5.0656e-7,.0082892,-2.0998e-5,3520.,3530.,21.464,
- .29835,.014148,-4.3852e-5,.013193,-5.1897e-5,3530.,3540.,78.956,
- .41357,.012512,-2.8052e-5,.0093167,-3.188e-5,3540.,3550.,57.829,
- .33002,.0050941,-8.3644e-6,.0066338,-1.927e-5,3550.,3560.,264.95,
- .48627,.0094242,-2.4386e-5,.0071083,-3.052e-5,3560.,3570.,48.65,
- .32647,.003423,-1.2164e-5,.0023536,-9.56e-6,3570.,3580.,278.65,
- .3935,.010521,-4.8325e-5,.0076691,-3.9509e-5,3580.,3590.,160.87,
- .35038,.0056295,-1.9831e-5,.0040519,-1.575e-5,3590.,3600.,337.87,
- .23399,.0064862,-3.0846e-5,.0044382,-2.4648e-5,3600.,3610.,576.3,
- .34952,.0047866,-2.6607e-5,.0014788,-1.5623e-5,3610.,3620.,753.87,
- .18159,.0042931,-2.8734e-5,.0024163,-2.2384e-5,3620.,3630.,135.67,
- .19692,.0012097,-8.0313e-6,-4.4021e-4,5.3739e-7,3630.,3640.,
- 776.59,.21673,.0021798,-2.0291e-5,5.0596e-4,-1.5749e-5,3640.,
- 3650.,657.22,.1435,.001212,-1.6829e-5,-2.0471e-4,-9.1773e-6,3650.,
- 3660.,229.37,.088535,-3.47e-4,-8.0698e-6,7.053e-4,-5.8648e-7,
- 3660.,3670.,1746.9,.21306,-.0011718,-7.1619e-6,-.0032694,
- -2.8781e-7,3670.,3680.,833.45,.086211,-.0027517,-7.8552e-7,
- -.0033472,1.3487e-5,3680.,3690.,324.07,.27669,-.0021659,4.4909e-7,
- -.0016982,1.0818e-5,3690.,3700.,485.79,.23163,-.0033766,7.1088e-6,
- -.0016229,1.3215e-5,3700.,3710.,693.99,.19031,-.0023753,1.1342e-5,
- 2.795e-4,1.1827e-5,3710.,3720.,309.49,.32694,.0051146,-3.3747e-6,
- .0055153,-1.4764e-5,3720.,3730.,1205.8,.33098,2.6244e-4,4.4389e-6,
- 4.3858e-4,-5.8687e-6,3730.,3740.,2387.3,.35395,-.0013313,
- -2.6877e-6,-.0025997,-1.5668e-6,3740.,3750.,1331.8,.24255,
- -.0023524,5.7434e-7,-.0030581,2.0511e-6,3750.,3760.,462.66,.18423,
- -.002022,1.4083e-6,-.0011856,1.3407e-6,3760.,3770.,221.29,.15206,
- -.0045078,1.2626e-5,-.0025579,1.1787e-5,3770.,3780.,72.994,.26021,
- -9.4598e-4,5.8721e-6,.0020193,1.4281e-6,3780.,3790.,243.54,.11623,
- -.0039723,1.0003e-5,-.0024749,1.1674e-5,3790.,3800.,1610.2,.13844,
- -.0050654,8.5459e-6,-.0061217,1.4867e-5,3800.,3810.,925.09,
- .095941,-.0040019,4.2438e-6,-.0041671,1.3408e-5,3810.,3820.,
- 878.65,.19813,-.0032809,1.3909e-6,-.0048774,6.0213e-6,3820.,3830.,
- 1445.5,.15082,-.0027746,-6.1623e-7,-.004156,6.6755e-6,3830.,3840.,
- 368.8,.2433,4.8895e-4,-1.2565e-5,-3.1389e-4,-8.6255e-6,3840.,
- 3850.,2068.8,.2275,-8.8059e-4,-7.9102e-6,-.0024751,-3.6839e-6,
- 3850.,3860.,634.35,.19602,.0017316,-1.7618e-5,2.7542e-4,
- -9.9025e-6,3860.,3870.,660.01,.16073,.0019181,-1.8141e-5,
- 8.7743e-4,-1.3268e-5,3870.,3880.,596.2,.22715,.0044999,-2.8285e-5,
- .0029743,-2.3179e-5,3880.,3890.,497.07,.23257,.0049027,-2.8299e-5,
- .0031352,-2.2089e-5,3890.,3900.,476.01,.20656,.0070284,-3.7624e-5,
- .0056038,-3.3998e-5,3900.,3910.,97.812,.12575,.012028,-5.8026e-5,
- .010886,-5.051e-5,3910.,3920.,154.07,.2759,.0075519,-2.7169e-5,
- .0059888,-2.6593e-5,3920.,3930.,75.906,.19815,.014672,-6.2916e-5,
- .010813,-4.7324e-5,3930.,3940.,91.761,.19338,.015621,-6.9646e-5,
- .014264,-6.8568e-5,3940.,3950.,23.976,.28167,.0049108,1.7525e-5,
- .0072419,-1.0423e-5,3950.,3960.,14.037,.20425,.017638,-2.7195e-5,
- .013686,-3.6754e-5,3960.,3970.,15.37,.33316,.0098866,2.0342e-5,
- .011243,-2.1419e-5,3970.,3980.,5.4881,.22417,.0075532,3.9091e-5,
- .010416,-2.6476e-6,3980.,3990.,8.3126,.20066,.013204,-8.1155e-7,
- .014493,-3.2804e-5,3990.,4e3,8.7033,.12823,.0053683,-1.0088e-5,
- .0083956,-9.9974e-6,4e3,4010.,7.1987,.21615,.0019288,1.9286e-5,
- .006975,2.1036e-5,4010.,4020.,7.374,.10603,.0021924,-1.68e-5,
- .0031402,6.6314e-10,4020.,4030.,1.2253,.20951,.0061999,3.6357e-5,
- .012788,-6.0887e-6,4030.,4040.,7.9524,.12691,.0039534,-2.3885e-5,
- .0036525,-1.0242e-5,4040.,4050.,.51733,.11847,.011888,-3.4371e-5,
- .016178,-2.9656e-5,4050.,4060.,1.8317,.094248,.0053224,-2.5376e-5,
- .005784,-6.4186e-6,4060.,4070.,2.7229,.12453,.0093697,-3.7263e-5,
- .0090599,-2.2481e-5,4070.,4080.,3.4742,.19542,.0072771,-3.4478e-5,
- .0043552,-2.4708e-5,4080.,4090.,.08819,.11131,.0125,-3.4253e-5,
- .016631,-2.1563e-5,4090.,4100.,4.472,.16534,.0066915,-3.536e-5,
- .0054523,-3.2561e-5,4100.,4110.,.017698,.14435,.0099143,3.28e-5,
- .020212,3.5978e-6,4110.,4120.,.49468,.13443,.0087298,-3.5276e-5,
- .0068006,-3.1378e-5,4120.,4130.,2.2881,.15905,.011097,-4.923e-5,
- .01025,-4.8021e-5,4130.,4140.,.62111,.16054,.011288,-5.0025e-5,
- .010196,-4.7296e-5,4140.,4150.,.60454,.14755,.014727,-4.9548e-5,
- .014191,-5.8716e-5,4150.,4160.,.093094,.068954,.004002,-3.9015e-6,
- .0055718,-1.3126e-6,4160.,4170.,.27101,.093272,.013113,-5.6084e-5,
- .012707,-5.2567e-5,4170.,4180.,.5398,.067639,.016122,-7.5048e-5,
- .013265,-6.515e-5,4180.,4190.,.44133,.17104,.016673,-7.1388e-5,
- .014609,-6.461e-5,4190.,4200.,.36918,.11239,.013785,-5.548e-5,
- .014404,-5.8254e-5,4200.,4210.,.13276,.12746,.017403,-5.447e-5,
- .013863,-4.8485e-5,4210.,4220.,.080464,.086998,.022044,-9.2895e-5,
- .019048,-8.7985e-5,4220.,4230.,.063692,.14834,.022806,-8.4692e-5,
- .023548,-9.253e-5,4230.,4240.,.01811,.12119,.018389,-2.2676e-6,
- .013683,-2.6036e-5,4240.,4250.,.209,.16597,.019432,-7.8011e-5,
- .019282,-8.4089e-5,4250.,4260.,.049819,.06211,.026704,-1.1099e-4,
- .025655,-1.0067e-4,4260.,4270.,.051444,.1311,.014568,-3.4291e-5,
- .014016,-4.9479e-5,4270.,4280.,.010759,.15106,.027993,-1.0013e-4,
- .023418,-8.4057e-5,4280.,4290.,.005931,.085611,.036412,-1.5063e-4,
- .034796,-1.4138e-4,4290.,4300.,.060294,.13145,.023253,-8.8313e-5,
- .022949,-9.0705e-5,4300.,4310.,.0087499,.11428,.024739,-5.6984e-5,
- .024765,-7.2542e-5,4310.,4320.,.0043984,.17658,.035844,-1.1719e-4,
- .030706,-1.0295e-4,4320.,4330.,.0031592,.14762,.014237,6.5312e-6,
- .014523,-1.9336e-5,4330.,4340.,.0022605,.13901,.023941,1.0579e-5,
- .023751,-4.5551e-5,4340.,4350.,8.4338e-8,1.5285e-4,.0047057,
- -2.5631e-5,.0022316,-2.3738e-5,4350.,4360.,9.5411e-8,1.1284e-4,
- .0051111,-2.6317e-5,.0030958,-2.5483e-5,4360.,4370.,1.5708e-8,
- 4.7653e-5,.0099036,-4.9633e-5,.0072007,-4.4307e-5,4370.,4380.,
- 7.2646e-5,.073368,.017942,1.2698e-5,.012584,-3.4551e-5,4380.,
- 4390.,5.9152e-5,.041171,.00839,-4.5951e-5,.0057949,-4.0723e-5,
- 4390.,4400.,9.0913e-5,.0094376,.037251,-1.6131e-4,.034629,
- -1.5582e-4,4400.,4410.,3.4561e-8,4.7569e-5,.0015514,-1.0274e-5,
- 6.5701e-7,-1.2526e-5,4410.,4420.,4.3107e-4,.054262,.024045,
- -4.9839e-5,.016547,-4.4636e-5,4420.,4430.,3.1142e-4,.038963,
- .014134,-6.8927e-5,.011537,-6.369e-5,4430.,4440.,1.4945e-8,
- 7.8332e-5,.0089337,-4.3145e-5,.0069004,-4.2442e-5,4440.,4450.,
- .0016802,.051222,.015502,-2.3447e-5,.010002,-3.2528e-5,4450.,
- 4460.,1.0007e-4,.066862,.02459,-9.8504e-5,.022882,-1.0233e-4,
- 4460.,4470.,.0030025,.051153,.01923,-8.107e-5,.015535,-6.8267e-5,
- 4470.,4480.,8.6831e-5,.040458,.036221,-1.5713e-4,.03335,
- -1.5083e-4,4480.,4490.,.0080902,.1275,.016863,-7.6478e-5,.01678,
- -7.7918e-5,4490.,4500.,.0022317,.15229,.012535,-1.3795e-5,.010875,
- -3.7123e-5,4500.,4510.,.019169,.11664,.010716,-5.1479e-5,.0082124,
- -4.6198e-5,4510.,4520.,.0065788,.15986,.012038,-5.1957e-5,.010074,
- -5.1345e-5,4520.,4530.,.03291,.11768,.0084067,-4.3158e-5,.0067305,
- -4.0106e-5,4530.,4540.,.044345,.15763,.0035365,-2.4308e-5,
- 7.9048e-4,-1.7012e-5,4540.,4550.,.027331,.16819,.0042859,
- -2.1639e-5,.0038192,-2.5423e-5,4550.,4560.,.020407,.09609,.001546,
- -1.6323e-5,6.6197e-4,-9.1244e-6,4560.,4570.,.057143,.18848,
- .0030453,-1.8516e-5,.0016176,-1.8614e-5,4570.,4580.,.052929,
- .13102,-.0010515,-4.5621e-6,-.0023271,2.7682e-6,4580.,4590.,
- .028557,.14681,-4.8301e-4,-6.3151e-6,-.0019647,-5.3522e-6,4590.,
- 4600.,.0046383,.13391,.0088609,-2.6493e-5,.0082741,-3.2453e-5,
- 4600.,4610.,.02773,.10824,-.0034789,5.4132e-6,-.0030391,8.0678e-6,
- 4610.,4620.,.051267,.16778,-.0015076,-7.4663e-7,-.0025263,
- 3.707e-6,4620.,4630.,.0129,.13459,4.1658e-4,7.4475e-7,.0012458,
- -7.7586e-6,4630.,4640.,.044954,.38311,-.0018643,4.6026e-6,
- -.0027134,4.4958e-6,4640.,4650.,.0048639,.10343,.0025659,
- -1.6961e-5,.0023819,-1.4778e-5,4650.,4660.,.0012082,.18004,
- .014733,-5.2646e-5,.014275,-6.0508e-5,4660.,4670.,.0013469,.34467,
- .012177,-2.3395e-5,.010966,-3.6299e-5,4670.,4680.,.0068991,.1607,
- 6.4738e-4,3.7071e-6,.0032901,-2.0981e-6,4680.,4690.,.027452,
- .060959,-.0051851,1.2668e-5,-.0041528,2.6305e-5,4690.,4700.,
- .017796,.15523,-.0027265,3.7407e-6,-.0033733,1.0358e-5,4700.,
- 4710.,.011446,.17796,-6.8324e-4,6.8406e-6,-.0010826,5.9431e-6,
- 4710.,4720.,.029309,.13652,-.0017282,6.762e-6,5.6764e-4,1.3237e-5,
- 4720.,4730.,.021395,.18395,-.0015768,1.4383e-5,1.5897e-4,8.796e-6,
- 4730.,4740.,.0025077,.18622,.0042912,-4.9559e-6,.0045676,
- -2.6247e-6,4740.,4750.,.031587,.13943,-.0012088,-8.9815e-8,
- -1.571e-4,2.0359e-5,4750.,4760.,.034566,.28253,.0016858,-8.995e-6,
- 9.752e-4,-8.1082e-6,4760.,4770.,.020369,.14591,-.0014421,
- 1.9399e-5,.0039665,1.4338e-5,4770.,4780.,.0081447,.12195,.0013964,
- 3.2025e-5,.0037728,2.0537e-5,4780.,4790.,.019803,.14625,9.6298e-4,
- -2.9783e-6,.0041118,-9.7923e-7,4790.,4800.,.0052146,.17691,
- .014543,-3.1749e-5,.0149,-4.4049e-5,4800.,4810.,.035065,.21617,
- -.0021492,2.3072e-5,.001178,2.4416e-5,4810.,4820.,.012656,.15792,
- .0083705,-2.1219e-5,.0082684,-2.8775e-5,4820.,4830.,.014126,.4985,
- .0096621,2.3197e-5,.011163,-2.0765e-5,4830.,4840.,.023704,.35541,
- .0055808,-1.0952e-6,.0068854,-1.3359e-5,4840.,4850.,.032166,
- .23632,-2.3289e-4,7.945e-6,.0017163,2.8957e-6,4850.,4860.,.026468,
- .24812,.008326,8.9107e-6,.010638,-2.4848e-5,4860.,4870.,.012607,
- .28278,.014341,-1.7161e-5,.017744,-4.3433e-5,4870.,4880.,.0019484,
- .13452,.014299,-5.8644e-5,.012622,-5.8891e-5,4880.,4890.,.019835,
- .43138,.016502,-3.7834e-5,.015564,-5.3844e-5,4890.,4900.,.031673,
- .23676,.018724,-6.2795e-5,.017963,-6.7476e-5,4900.,4910.,.020383,
- .1686,.02082,-9.2373e-5,.018807,-8.5676e-5,4910.,4920.,.034221,
- .37729,.014636,9.8132e-6,.015033,-3.2546e-5,4920.,4930.,.041381,
- .17341,.004227,2.6778e-5,.0073624,-6.193e-6,4930.,4940.,.050322,
- .24574,.01506,-6.0731e-5,.01171,-4.9448e-5,4940.,4950.,.11355,
- .43168,.012506,-2.3567e-5,.010508,-3.2884e-5,4950.,4960.,.073646,
- .28063,.01551,-6.3821e-5,.012136,-5.1762e-5,4960.,4970.,.0021754,
- .2329,.025115,1.3402e-6,.023138,-4.9298e-5,4970.,4980.,.20462,
- .37006,.013871,-5.7344e-5,.011137,-4.9726e-5,4980.,4990.,.15479,
- .14505,.012101,-5.5517e-5,.011913,-3.8561e-5,4990.,5e3,.1627,
- .14157,.012656,-4.9554e-5,.01273,-4.7918e-5,5e3,5010.,.20283,
- .16538,.0098358,-4.1905e-5,.0091599,-3.3109e-5,5010.,5020.,.32847,
- .20501,.010455,-3.0987e-5,.011634,-2.2216e-5,5020.,5030.,.4088,
- .1568,.0097922,-4.2397e-5,.0098076,-3.8651e-5,5030.,5040.,.27012,
- .21951,.012867,-1.8768e-6,.012462,-2.155e-5,5040.,5050.,.5761,
- .16605,.0061804,-3.0533e-5,.0069772,-1.7735e-5,5050.,5060. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-
-/* WATER VAPOR (2500 - 5040 CM-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-/*< return >*/
- return 0;
-/*< end >*/
-} /* wava1_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.f b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.f
deleted file mode 100644
index 3a391c8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.f
+++ /dev/null
@@ -1,559 +0,0 @@
- SUBROUTINE wava1(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-
-C
-C WATER VAPOR (2500 - 5040 CM-1)
-C
- DATA ((ACR(K,J),K=1,8),J= 1, 8) /
- A 0.52155E-04, 0.10880E+00, 0.24708E-01, 0.56434E-04, 0.28126E-01,
- A-0.36504E-04, 0.25000E+04, 0.25100E+04,
- A 0.26024E-03, 0.21216E+00, 0.25876E-01, 0.30026E-04, 0.30504E-01,
- A-0.62253E-04, 0.25100E+04, 0.25200E+04,
- A 0.12221E-03, 0.91374E-01, 0.23862E-01,-0.79891E-04, 0.20651E-01,
- A-0.85449E-04, 0.25200E+04, 0.25300E+04,
- A 0.68892E-04, 0.12703E+00, 0.30103E-01,-0.60355E-04, 0.31571E-01,
- A-0.95671E-04, 0.25300E+04, 0.25400E+04,
- A 0.95684E-04, 0.11204E+00, 0.33051E-01,-0.96752E-04, 0.30485E-01,
- A-0.11273E-03, 0.25400E+04, 0.25500E+04,
- A 0.10008E-03, 0.92789E-01, 0.16702E-01, 0.41104E-04, 0.21654E-01,
- A-0.12175E-04, 0.25500E+04, 0.25600E+04,
- A 0.11515E-03, 0.72392E-01, 0.28437E-01,-0.89454E-04, 0.28734E-01,
- A-0.10220E-03, 0.25600E+04, 0.25700E+04,
- A 0.10980E-03, 0.93023E-01, 0.23611E-01, 0.10889E-04, 0.26880E-01,
- A-0.50398E-04, 0.25700E+04, 0.25800E+04/
- DATA ((ACR(K,J),K=1,8),J= 9, 16) /
- A 0.10952E-03, 0.75790E-01, 0.29206E-01,-0.98206E-04, 0.30307E-01,
- A-0.11103E-03, 0.25800E+04, 0.25900E+04,
- A 0.11941E-03, 0.70428E-01, 0.19144E-01,-0.28423E-04, 0.19587E-01,
- A-0.54379E-04, 0.25900E+04, 0.26000E+04,
- A 0.80498E-04, 0.61889E-01, 0.24778E-01,-0.55252E-04, 0.28205E-01,
- A-0.12627E-03, 0.26000E+04, 0.26100E+04,
- A 0.72792E-04, 0.62776E-01, 0.26682E-01,-0.58101E-04, 0.29166E-01,
- A-0.11148E-03, 0.26100E+04, 0.26200E+04,
- A 0.16616E-03, 0.15773E-01, 0.23141E-01,-0.60394E-04, 0.24947E-01,
- A-0.11178E-03, 0.26200E+04, 0.26300E+04,
- A 0.18043E-03, 0.87686E-01, 0.26248E-01,-0.30398E-04, 0.31740E-01,
- A-0.13670E-03, 0.26300E+04, 0.26400E+04,
- A 0.13339E-03, 0.53280E-01, 0.12701E-01,-0.46874E-04, 0.12628E-01,
- A-0.67487E-04, 0.26400E+04, 0.26500E+04,
- A 0.41150E-04, 0.75778E-02, 0.11257E-01, 0.11038E-03, 0.36362E-01,
- A-0.11284E-03, 0.26500E+04, 0.26600E+04/
- DATA ((ACR(K,J),K=1,8),J= 17, 24) /
- A 0.61395E-04, 0.26074E-01, 0.16798E-01, 0.10755E-03, 0.35481E-01,
- A-0.13778E-03, 0.26600E+04, 0.26700E+04,
- A 0.35062E-03, 0.80662E-01, 0.21065E-01,-0.39968E-04, 0.21602E-01,
- A-0.87339E-04, 0.26700E+04, 0.26800E+04,
- A 0.26391E-03, 0.11483E+00, 0.27270E-01,-0.40691E-04, 0.29928E-01,
- A-0.11046E-03, 0.26800E+04, 0.26900E+04,
- A 0.87410E-03, 0.60070E-01, 0.21732E-01,-0.87600E-04, 0.20645E-01,
- A-0.96557E-04, 0.26900E+04, 0.27000E+04,
- A 0.30675E-04, 0.22970E-01, 0.94212E-02, 0.78691E-05, 0.15402E-01,
- A-0.74597E-04, 0.27000E+04, 0.27100E+04,
- A 0.21928E-03, 0.13351E+00, 0.22082E-01,-0.45472E-04, 0.25460E-01,
- A-0.96549E-04, 0.27100E+04, 0.27200E+04,
- A 0.34904E-03, 0.95073E-01, 0.13969E-01, 0.12276E-05, 0.16415E-01,
- A-0.65204E-04, 0.27200E+04, 0.27300E+04,
- A 0.21360E-02, 0.61072E-01, 0.18908E-01,-0.76530E-04, 0.19801E-01,
- A-0.77251E-04, 0.27300E+04, 0.27400E+04/
- DATA ((ACR(K,J),K=1,8),J= 25, 32) /
- A 0.13372E-03, 0.10806E+00, 0.25683E-01,-0.49230E-04, 0.25729E-01,
- A-0.89387E-04, 0.27400E+04, 0.27500E+04,
- A 0.21697E-02, 0.62188E-01, 0.18593E-01,-0.80474E-04, 0.16349E-01,
- A-0.81422E-04, 0.27500E+04, 0.27600E+04,
- A 0.45030E-04, 0.14902E-01, 0.11376E-01, 0.20860E-03, 0.46880E-01,
- A-0.13018E-03, 0.27600E+04, 0.27700E+04,
- A 0.39413E-03, 0.75433E-01, 0.19773E-01, 0.30322E-04, 0.20860E-01,
- A-0.45326E-04, 0.27700E+04, 0.27800E+04,
- A 0.48935E-02, 0.96746E-01, 0.19042E-01,-0.72945E-04, 0.16358E-01,
- A-0.76368E-04, 0.27800E+04, 0.27900E+04,
- A 0.56197E-04, 0.26178E-01, 0.17977E-01, 0.14035E-03, 0.32163E-01,
- A-0.71639E-04, 0.27900E+04, 0.28000E+04,
- A 0.17459E-02, 0.49818E-01, 0.12334E-01,-0.52052E-04, 0.13169E-01,
- A-0.45266E-04, 0.28000E+04, 0.28100E+04,
- A 0.13747E-01, 0.48325E-01, 0.12754E-01,-0.61810E-04, 0.11564E-01,
- A-0.49886E-04, 0.28100E+04, 0.28200E+04/
- DATA ((ACR(K,J),K=1,8),J= 33, 40) /
- A 0.82805E-03, 0.84185E-01, 0.21588E-01, 0.30162E-05, 0.21186E-01,
- A-0.37441E-04, 0.28200E+04, 0.28300E+04,
- A 0.11866E-01, 0.34247E-01, 0.94911E-02,-0.50331E-04, 0.68889E-02,
- A-0.45062E-04, 0.28300E+04, 0.28400E+04,
- A 0.53887E-02, 0.10669E+00, 0.21019E-01,-0.53528E-04, 0.21717E-01,
- A-0.54515E-04, 0.28400E+04, 0.28500E+04,
- A 0.10411E-03, 0.11175E+00, 0.31522E-01, 0.35658E-04, 0.36103E-01,
- A-0.88200E-04, 0.28500E+04, 0.28600E+04,
- A 0.79899E-02, 0.73140E-01, 0.29260E-01,-0.10778E-03, 0.31940E-01,
- A-0.11100E-03, 0.28600E+04, 0.28700E+04,
- A 0.24725E-01, 0.10335E+00, 0.88480E-02,-0.32902E-04, 0.10195E-01,
- A-0.19290E-04, 0.28700E+04, 0.28800E+04,
- A 0.57422E-03, 0.18372E+00, 0.46405E-01,-0.17178E-03, 0.46094E-01,
- A-0.18870E-03, 0.28800E+04, 0.28900E+04,
- A 0.67995E-01, 0.89991E-01, 0.16432E-01,-0.54992E-04, 0.19457E-01,
- A-0.55113E-04, 0.28900E+04, 0.29000E+04/
- DATA ((ACR(K,J),K=1,8),J= 41, 48) /
- A 0.36350E-01, 0.17982E+00, 0.15309E-01, 0.79551E-06, 0.18904E-01,
- A-0.36064E-04, 0.29000E+04, 0.29100E+04,
- A 0.27250E-01, 0.14127E+00, 0.30783E-01,-0.12895E-03, 0.31036E-01,
- A-0.12355E-03, 0.29100E+04, 0.29200E+04,
- A 0.26520E-02, 0.19136E+00, 0.41919E-01,-0.16834E-03, 0.42452E-01,
- A-0.17530E-03, 0.29200E+04, 0.29300E+04,
- A 0.52888E+00, 0.26900E+00, 0.12546E-01,-0.30896E-04, 0.13568E-01,
- A-0.42996E-04, 0.29300E+04, 0.29400E+04,
- A 0.53771E-01, 0.17608E+00, 0.20209E-01,-0.60240E-04, 0.25687E-01,
- A-0.83758E-04, 0.29400E+04, 0.29500E+04,
- A 0.32492E+00, 0.16840E+00, 0.21364E-01,-0.92341E-04, 0.20449E-01,
- A-0.88117E-04, 0.29500E+04, 0.29600E+04,
- A 0.61749E+00, 0.18050E+00, 0.13955E-01,-0.60114E-04, 0.14337E-01,
- A-0.58330E-04, 0.29600E+04, 0.29700E+04,
- A 0.15421E+01, 0.13158E+00, 0.96584E-02,-0.41781E-04, 0.89471E-02,
- A-0.37290E-04, 0.29700E+04, 0.29800E+04/
- DATA ((ACR(K,J),K=1,8),J= 49, 56) /
- A 0.16668E+01, 0.22730E+00, 0.99338E-02,-0.37288E-04, 0.10430E-01,
- A-0.37020E-04, 0.29800E+04, 0.29900E+04,
- A 0.15158E+01, 0.13985E+00, 0.11565E-01,-0.51421E-04, 0.11056E-01,
- A-0.43391E-04, 0.29900E+04, 0.30000E+04,
- A 0.16503E+01, 0.17713E+00, 0.95447E-02,-0.37275E-04, 0.86134E-02,
- A-0.36851E-04, 0.30000E+04, 0.30100E+04,
- A 0.65433E+01, 0.21911E+00, 0.60474E-02,-0.32890E-04, 0.53084E-02,
- A-0.27435E-04, 0.30100E+04, 0.30200E+04,
- A 0.22497E+01, 0.12464E+00, 0.86253E-03,-0.61061E-05, 0.37153E-02,
- A 0.40466E-05, 0.30200E+04, 0.30300E+04,
- A 0.10011E+02, 0.23151E+00, 0.27571E-02,-0.19224E-04, 0.21442E-02,
- A-0.11081E-04, 0.30300E+04, 0.30400E+04,
- A 0.27015E+01, 0.12619E+00, 0.16271E-02,-0.13887E-04, 0.16360E-02,
- A-0.19543E-07, 0.30400E+04, 0.30500E+04,
- A 0.52767E+01, 0.13242E+00, 0.12880E-02,-0.13169E-04, 0.12577E-02,
- A-0.36130E-05, 0.30500E+04, 0.30600E+04/
- DATA ((ACR(K,J),K=1,8),J= 57, 64) /
- A 0.91595E+01, 0.12205E+00,-0.12513E-02,-0.40326E-05,-0.18414E-02,
- A 0.24599E-05, 0.30600E+04, 0.30700E+04,
- A 0.46857E+01, 0.15647E+00,-0.43308E-04,-0.69326E-05,-0.81377E-03,
- A-0.31694E-05, 0.30700E+04, 0.30800E+04,
- A 0.32521E+01, 0.14435E+00, 0.35016E-02,-0.20102E-04, 0.37489E-02,
- A-0.14446E-04, 0.30800E+04, 0.30900E+04,
- A 0.86678E+01, 0.20679E+00,-0.14866E-02, 0.22765E-05,-0.10460E-02,
- A 0.17536E-05, 0.30900E+04, 0.31000E+04,
- A 0.90277E+01, 0.22950E+00,-0.10574E-02,-0.11212E-05,-0.68088E-03,
- A-0.39181E-07, 0.31000E+04, 0.31100E+04,
- A 0.12148E+02, 0.38295E+00, 0.49769E-03,-0.44194E-05, 0.43116E-03,
- A-0.40708E-05, 0.31100E+04, 0.31200E+04,
- A 0.94078E+01, 0.34012E+00,-0.31750E-04, 0.21043E-05, 0.22348E-02,
- A 0.16614E-06, 0.31200E+04, 0.31300E+04,
- A 0.61004E+01, 0.77373E-01,-0.46770E-02, 0.11726E-04,-0.57011E-03,
- A 0.33047E-04, 0.31300E+04, 0.31400E+04/
- DATA ((ACR(K,J),K=1,8),J= 65, 72) /
- A 0.64298E+00, 0.83113E-01,-0.90344E-03, 0.74815E-05, 0.68034E-02,
- A 0.38978E-04, 0.31400E+04, 0.31500E+04,
- A 0.31468E+00, 0.22047E+00, 0.87793E-02,-0.13249E-04, 0.14974E-01,
- A-0.29267E-04, 0.31500E+04, 0.31600E+04,
- A 0.84773E+00, 0.34913E+00, 0.23565E-02,-0.77347E-06, 0.41670E-02,
- A 0.24148E-05, 0.31600E+04, 0.31700E+04,
- A 0.67043E+01, 0.10518E+00,-0.49662E-02, 0.13112E-04,-0.92458E-03,
- A 0.31899E-04, 0.31700E+04, 0.31800E+04,
- A 0.33487E+01, 0.17575E+00,-0.36206E-02, 0.12779E-04, 0.50643E-04,
- A 0.26882E-04, 0.31800E+04, 0.31900E+04,
- A 0.71051E+01, 0.15577E+00,-0.32039E-02, 0.57362E-05,-0.27319E-02,
- A 0.20608E-04, 0.31900E+04, 0.32000E+04,
- A 0.49187E+01, 0.94692E-01,-0.34658E-02, 0.99349E-05, 0.65696E-03,
- A 0.29105E-04, 0.32000E+04, 0.32100E+04,
- A 0.11080E+02, 0.15706E+00,-0.36162E-02, 0.64921E-05,-0.25750E-02,
- A 0.19544E-04, 0.32100E+04, 0.32200E+04/
- DATA ((ACR(K,J),K=1,8),J= 73, 80) /
- A 0.64326E+01, 0.26178E+00,-0.32818E-03, 0.32261E-05, 0.56524E-03,
- A 0.50713E-05, 0.32200E+04, 0.32300E+04,
- A 0.48444E+01, 0.21447E+00,-0.19614E-02, 0.15381E-04, 0.19305E-02,
- A 0.24092E-04, 0.32300E+04, 0.32400E+04,
- A 0.88873E+01, 0.19618E+00,-0.11584E-02, 0.15371E-05, 0.57401E-03,
- A 0.55356E-05, 0.32400E+04, 0.32500E+04,
- A 0.67011E+01, 0.11596E+00, 0.31879E-03,-0.32082E-06, 0.27244E-02,
- A 0.95927E-05, 0.32500E+04, 0.32600E+04,
- A 0.32951E+01, 0.21537E+00, 0.18132E-02,-0.93642E-05, 0.34721E-02,
- A-0.10415E-04, 0.32600E+04, 0.32700E+04,
- A 0.11905E+02, 0.31637E+00,-0.17961E-04, 0.70218E-05, 0.27392E-02,
- A 0.87434E-07, 0.32700E+04, 0.32800E+04,
- A 0.48139E+01, 0.27320E+00, 0.23884E-02, 0.26589E-04, 0.43504E-02,
- A 0.57992E-05, 0.32800E+04, 0.32900E+04,
- A 0.69428E+01, 0.32680E+00, 0.28073E-02,-0.70232E-05, 0.32805E-02,
- A-0.85722E-05, 0.32900E+04, 0.33000E+04/
- DATA ((ACR(K,J),K=1,8),J= 81, 88) /
- A 0.52753E+01, 0.19806E+00, 0.27307E-02,-0.14565E-05, 0.49125E-02,
- A-0.12966E-04, 0.33000E+04, 0.33100E+04,
- A 0.47208E+01, 0.23262E+00, 0.29830E-02, 0.26911E-04, 0.64942E-02,
- A-0.77622E-05, 0.33100E+04, 0.33200E+04,
- A 0.32466E+01, 0.37221E+00, 0.99704E-02,-0.28634E-04, 0.11158E-01,
- A-0.36092E-04, 0.33200E+04, 0.33300E+04,
- A 0.42083E+01, 0.17584E+00, 0.13723E-01,-0.39504E-04, 0.13219E-01,
- A-0.44922E-04, 0.33300E+04, 0.33400E+04,
- A 0.78485E+00, 0.29505E+00, 0.18153E-01,-0.76368E-04, 0.18172E-01,
- A-0.69561E-04, 0.33400E+04, 0.33500E+04,
- A 0.40763E+01, 0.27310E+00, 0.11974E-01,-0.38706E-04, 0.10563E-01,
- A-0.33592E-04, 0.33500E+04, 0.33600E+04,
- A 0.12275E+02, 0.42572E+00, 0.45309E-02, 0.59958E-05, 0.56864E-02,
- A-0.15831E-04, 0.33600E+04, 0.33700E+04,
- A 0.94088E+00, 0.29130E+00, 0.12712E-01,-0.23725E-04, 0.13750E-01,
- A-0.26806E-04, 0.33700E+04, 0.33800E+04/
- DATA ((ACR(K,J),K=1,8),J= 89, 96) /
- A 0.58020E+01, 0.18758E+00, 0.56963E-02,-0.99475E-05, 0.91903E-02,
- A-0.12922E-04, 0.33800E+04, 0.33900E+04,
- A 0.11279E+02, 0.22153E+00, 0.10955E-01,-0.45500E-04, 0.10347E-01,
- A-0.33646E-04, 0.33900E+04, 0.34000E+04,
- A 0.30915E+01, 0.29101E+00, 0.76973E-02,-0.31164E-05, 0.79615E-02,
- A-0.12231E-04, 0.34000E+04, 0.34100E+04,
- A 0.27460E+01, 0.24709E+00, 0.13530E-01,-0.39278E-04, 0.15939E-01,
- A-0.35039E-04, 0.34100E+04, 0.34200E+04,
- A 0.14490E+02, 0.18486E+00, 0.89652E-02,-0.35228E-04, 0.95440E-02,
- A-0.25256E-04, 0.34200E+04, 0.34300E+04,
- A 0.41520E+01, 0.37165E+00, 0.94576E-02,-0.91648E-05, 0.13190E-01,
- A-0.19085E-04, 0.34300E+04, 0.34400E+04,
- A 0.35280E+02, 0.29267E+00, 0.77335E-02,-0.33655E-04, 0.86235E-02,
- A-0.34390E-04, 0.34400E+04, 0.34500E+04,
- A 0.16073E+01, 0.33722E+00, 0.16402E-01, 0.15852E-04, 0.18964E-01,
- A-0.32271E-04, 0.34500E+04, 0.34600E+04/
- DATA ((ACR(K,J),K=1,8),J= 97,104) /
- A 0.13605E+02, 0.31569E+00, 0.95057E-02,-0.15485E-04, 0.94813E-02,
- A-0.16751E-04, 0.34600E+04, 0.34700E+04,
- A 0.75164E+01, 0.27307E+00, 0.75889E-02,-0.47962E-05, 0.12249E-01,
- A-0.23811E-04, 0.34700E+04, 0.34800E+04,
- A 0.33484E+02, 0.31131E+00, 0.77627E-02,-0.11503E-04, 0.94019E-02,
- A-0.20136E-04, 0.34800E+04, 0.34900E+04,
- A 0.13815E+02, 0.23917E+00, 0.10592E-01,-0.31935E-04, 0.12433E-01,
- A-0.36436E-04, 0.34900E+04, 0.35000E+04,
- A 0.61974E+02, 0.36287E+00, 0.75577E-02, 0.26848E-05, 0.10181E-01,
- A-0.23323E-04, 0.35000E+04, 0.35100E+04,
- A 0.14812E+02, 0.37195E+00, 0.82610E-02,-0.18654E-04, 0.10113E-01,
- A-0.31482E-04, 0.35100E+04, 0.35200E+04,
- A 0.83223E+02, 0.39932E+00, 0.76795E-02, 0.50656E-06, 0.82892E-02,
- A-0.20998E-04, 0.35200E+04, 0.35300E+04,
- A 0.21464E+02, 0.29835E+00, 0.14148E-01,-0.43852E-04, 0.13193E-01,
- A-0.51897E-04, 0.35300E+04, 0.35400E+04/
- DATA ((ACR(K,J),K=1,8),J=105,112) /
- A 0.78956E+02, 0.41357E+00, 0.12512E-01,-0.28052E-04, 0.93167E-02,
- A-0.31880E-04, 0.35400E+04, 0.35500E+04,
- A 0.57829E+02, 0.33002E+00, 0.50941E-02,-0.83644E-05, 0.66338E-02,
- A-0.19270E-04, 0.35500E+04, 0.35600E+04,
- A 0.26495E+03, 0.48627E+00, 0.94242E-02,-0.24386E-04, 0.71083E-02,
- A-0.30520E-04, 0.35600E+04, 0.35700E+04,
- A 0.48650E+02, 0.32647E+00, 0.34230E-02,-0.12164E-04, 0.23536E-02,
- A-0.95600E-05, 0.35700E+04, 0.35800E+04,
- A 0.27865E+03, 0.39350E+00, 0.10521E-01,-0.48325E-04, 0.76691E-02,
- A-0.39509E-04, 0.35800E+04, 0.35900E+04,
- A 0.16087E+03, 0.35038E+00, 0.56295E-02,-0.19831E-04, 0.40519E-02,
- A-0.15750E-04, 0.35900E+04, 0.36000E+04,
- A 0.33787E+03, 0.23399E+00, 0.64862E-02,-0.30846E-04, 0.44382E-02,
- A-0.24648E-04, 0.36000E+04, 0.36100E+04,
- A 0.57630E+03, 0.34952E+00, 0.47866E-02,-0.26607E-04, 0.14788E-02,
- A-0.15623E-04, 0.36100E+04, 0.36200E+04/
- DATA ((ACR(K,J),K=1,8),J=113,120) /
- A 0.75387E+03, 0.18159E+00, 0.42931E-02,-0.28734E-04, 0.24163E-02,
- A-0.22384E-04, 0.36200E+04, 0.36300E+04,
- A 0.13567E+03, 0.19692E+00, 0.12097E-02,-0.80313E-05,-0.44021E-03,
- A 0.53739E-06, 0.36300E+04, 0.36400E+04,
- A 0.77659E+03, 0.21673E+00, 0.21798E-02,-0.20291E-04, 0.50596E-03,
- A-0.15749E-04, 0.36400E+04, 0.36500E+04,
- A 0.65722E+03, 0.14350E+00, 0.12120E-02,-0.16829E-04,-0.20471E-03,
- A-0.91773E-05, 0.36500E+04, 0.36600E+04,
- A 0.22937E+03, 0.88535E-01,-0.34700E-03,-0.80698E-05, 0.70530E-03,
- A-0.58648E-06, 0.36600E+04, 0.36700E+04,
- A 0.17469E+04, 0.21306E+00,-0.11718E-02,-0.71619E-05,-0.32694E-02,
- A-0.28781E-06, 0.36700E+04, 0.36800E+04,
- A 0.83345E+03, 0.86211E-01,-0.27517E-02,-0.78552E-06,-0.33472E-02,
- A 0.13487E-04, 0.36800E+04, 0.36900E+04,
- A 0.32407E+03, 0.27669E+00,-0.21659E-02, 0.44909E-06,-0.16982E-02,
- A 0.10818E-04, 0.36900E+04, 0.37000E+04/
- DATA ((ACR(K,J),K=1,8),J=121,128) /
- A 0.48579E+03, 0.23163E+00,-0.33766E-02, 0.71088E-05,-0.16229E-02,
- A 0.13215E-04, 0.37000E+04, 0.37100E+04,
- A 0.69399E+03, 0.19031E+00,-0.23753E-02, 0.11342E-04, 0.27950E-03,
- A 0.11827E-04, 0.37100E+04, 0.37200E+04,
- A 0.30949E+03, 0.32694E+00, 0.51146E-02,-0.33747E-05, 0.55153E-02,
- A-0.14764E-04, 0.37200E+04, 0.37300E+04,
- A 0.12058E+04, 0.33098E+00, 0.26244E-03, 0.44389E-05, 0.43858E-03,
- A-0.58687E-05, 0.37300E+04, 0.37400E+04,
- A 0.23873E+04, 0.35395E+00,-0.13313E-02,-0.26877E-05,-0.25997E-02,
- A-0.15668E-05, 0.37400E+04, 0.37500E+04,
- A 0.13318E+04, 0.24255E+00,-0.23524E-02, 0.57434E-06,-0.30581E-02,
- A 0.20511E-05, 0.37500E+04, 0.37600E+04,
- A 0.46266E+03, 0.18423E+00,-0.20220E-02, 0.14083E-05,-0.11856E-02,
- A 0.13407E-05, 0.37600E+04, 0.37700E+04,
- A 0.22129E+03, 0.15206E+00,-0.45078E-02, 0.12626E-04,-0.25579E-02,
- A 0.11787E-04, 0.37700E+04, 0.37800E+04/
- DATA ((ACR(K,J),K=1,8),J=129,136) /
- A 0.72994E+02, 0.26021E+00,-0.94598E-03, 0.58721E-05, 0.20193E-02,
- A 0.14281E-05, 0.37800E+04, 0.37900E+04,
- A 0.24354E+03, 0.11623E+00,-0.39723E-02, 0.10003E-04,-0.24749E-02,
- A 0.11674E-04, 0.37900E+04, 0.38000E+04,
- A 0.16102E+04, 0.13844E+00,-0.50654E-02, 0.85459E-05,-0.61217E-02,
- A 0.14867E-04, 0.38000E+04, 0.38100E+04,
- A 0.92509E+03, 0.95941E-01,-0.40019E-02, 0.42438E-05,-0.41671E-02,
- A 0.13408E-04, 0.38100E+04, 0.38200E+04,
- A 0.87865E+03, 0.19813E+00,-0.32809E-02, 0.13909E-05,-0.48774E-02,
- A 0.60213E-05, 0.38200E+04, 0.38300E+04,
- A 0.14455E+04, 0.15082E+00,-0.27746E-02,-0.61623E-06,-0.41560E-02,
- A 0.66755E-05, 0.38300E+04, 0.38400E+04,
- A 0.36880E+03, 0.24330E+00, 0.48895E-03,-0.12565E-04,-0.31389E-03,
- A-0.86255E-05, 0.38400E+04, 0.38500E+04,
- A 0.20688E+04, 0.22750E+00,-0.88059E-03,-0.79102E-05,-0.24751E-02,
- A-0.36839E-05, 0.38500E+04, 0.38600E+04/
- DATA ((ACR(K,J),K=1,8),J=137,144) /
- A 0.63435E+03, 0.19602E+00, 0.17316E-02,-0.17618E-04, 0.27542E-03,
- A-0.99025E-05, 0.38600E+04, 0.38700E+04,
- A 0.66001E+03, 0.16073E+00, 0.19181E-02,-0.18141E-04, 0.87743E-03,
- A-0.13268E-04, 0.38700E+04, 0.38800E+04,
- A 0.59620E+03, 0.22715E+00, 0.44999E-02,-0.28285E-04, 0.29743E-02,
- A-0.23179E-04, 0.38800E+04, 0.38900E+04,
- A 0.49707E+03, 0.23257E+00, 0.49027E-02,-0.28299E-04, 0.31352E-02,
- A-0.22089E-04, 0.38900E+04, 0.39000E+04,
- A 0.47601E+03, 0.20656E+00, 0.70284E-02,-0.37624E-04, 0.56038E-02,
- A-0.33998E-04, 0.39000E+04, 0.39100E+04,
- A 0.97812E+02, 0.12575E+00, 0.12028E-01,-0.58026E-04, 0.10886E-01,
- A-0.50510E-04, 0.39100E+04, 0.39200E+04,
- A 0.15407E+03, 0.27590E+00, 0.75519E-02,-0.27169E-04, 0.59888E-02,
- A-0.26593E-04, 0.39200E+04, 0.39300E+04,
- A 0.75906E+02, 0.19815E+00, 0.14672E-01,-0.62916E-04, 0.10813E-01,
- A-0.47324E-04, 0.39300E+04, 0.39400E+04/
- DATA ((ACR(K,J),K=1,8),J=145,152) /
- A 0.91761E+02, 0.19338E+00, 0.15621E-01,-0.69646E-04, 0.14264E-01,
- A-0.68568E-04, 0.39400E+04, 0.39500E+04,
- A 0.23976E+02, 0.28167E+00, 0.49108E-02, 0.17525E-04, 0.72419E-02,
- A-0.10423E-04, 0.39500E+04, 0.39600E+04,
- A 0.14037E+02, 0.20425E+00, 0.17638E-01,-0.27195E-04, 0.13686E-01,
- A-0.36754E-04, 0.39600E+04, 0.39700E+04,
- A 0.15370E+02, 0.33316E+00, 0.98866E-02, 0.20342E-04, 0.11243E-01,
- A-0.21419E-04, 0.39700E+04, 0.39800E+04,
- A 0.54881E+01, 0.22417E+00, 0.75532E-02, 0.39091E-04, 0.10416E-01,
- A-0.26476E-05, 0.39800E+04, 0.39900E+04,
- A 0.83126E+01, 0.20066E+00, 0.13204E-01,-0.81155E-06, 0.14493E-01,
- A-0.32804E-04, 0.39900E+04, 0.40000E+04,
- A 0.87033E+01, 0.12823E+00, 0.53683E-02,-0.10088E-04, 0.83956E-02,
- A-0.99974E-05, 0.40000E+04, 0.40100E+04,
- A 0.71987E+01, 0.21615E+00, 0.19288E-02, 0.19286E-04, 0.69750E-02,
- A 0.21036E-04, 0.40100E+04, 0.40200E+04/
- DATA ((ACR(K,J),K=1,8),J=153,160) /
- A 0.73740E+01, 0.10603E+00, 0.21924E-02,-0.16800E-04, 0.31402E-02,
- A 0.66314E-09, 0.40200E+04, 0.40300E+04,
- A 0.12253E+01, 0.20951E+00, 0.61999E-02, 0.36357E-04, 0.12788E-01,
- A-0.60887E-05, 0.40300E+04, 0.40400E+04,
- A 0.79524E+01, 0.12691E+00, 0.39534E-02,-0.23885E-04, 0.36525E-02,
- A-0.10242E-04, 0.40400E+04, 0.40500E+04,
- A 0.51733E+00, 0.11847E+00, 0.11888E-01,-0.34371E-04, 0.16178E-01,
- A-0.29656E-04, 0.40500E+04, 0.40600E+04,
- A 0.18317E+01, 0.94248E-01, 0.53224E-02,-0.25376E-04, 0.57840E-02,
- A-0.64186E-05, 0.40600E+04, 0.40700E+04,
- A 0.27229E+01, 0.12453E+00, 0.93697E-02,-0.37263E-04, 0.90599E-02,
- A-0.22481E-04, 0.40700E+04, 0.40800E+04,
- A 0.34742E+01, 0.19542E+00, 0.72771E-02,-0.34478E-04, 0.43552E-02,
- A-0.24708E-04, 0.40800E+04, 0.40900E+04,
- A 0.88190E-01, 0.11131E+00, 0.12500E-01,-0.34253E-04, 0.16631E-01,
- A-0.21563E-04, 0.40900E+04, 0.41000E+04/
- DATA ((ACR(K,J),K=1,8),J=161,168) /
- A 0.44720E+01, 0.16534E+00, 0.66915E-02,-0.35360E-04, 0.54523E-02,
- A-0.32561E-04, 0.41000E+04, 0.41100E+04,
- A 0.17698E-01, 0.14435E+00, 0.99143E-02, 0.32800E-04, 0.20212E-01,
- A 0.35978E-05, 0.41100E+04, 0.41200E+04,
- A 0.49468E+00, 0.13443E+00, 0.87298E-02,-0.35276E-04, 0.68006E-02,
- A-0.31378E-04, 0.41200E+04, 0.41300E+04,
- A 0.22881E+01, 0.15905E+00, 0.11097E-01,-0.49230E-04, 0.10250E-01,
- A-0.48021E-04, 0.41300E+04, 0.41400E+04,
- A 0.62111E+00, 0.16054E+00, 0.11288E-01,-0.50025E-04, 0.10196E-01,
- A-0.47296E-04, 0.41400E+04, 0.41500E+04,
- A 0.60454E+00, 0.14755E+00, 0.14727E-01,-0.49548E-04, 0.14191E-01,
- A-0.58716E-04, 0.41500E+04, 0.41600E+04,
- A 0.93094E-01, 0.68954E-01, 0.40020E-02,-0.39015E-05, 0.55718E-02,
- A-0.13126E-05, 0.41600E+04, 0.41700E+04,
- A 0.27101E+00, 0.93272E-01, 0.13113E-01,-0.56084E-04, 0.12707E-01,
- A-0.52567E-04, 0.41700E+04, 0.41800E+04/
- DATA ((ACR(K,J),K=1,8),J=169,176) /
- A 0.53980E+00, 0.67639E-01, 0.16122E-01,-0.75048E-04, 0.13265E-01,
- A-0.65150E-04, 0.41800E+04, 0.41900E+04,
- A 0.44133E+00, 0.17104E+00, 0.16673E-01,-0.71388E-04, 0.14609E-01,
- A-0.64610E-04, 0.41900E+04, 0.42000E+04,
- A 0.36918E+00, 0.11239E+00, 0.13785E-01,-0.55480E-04, 0.14404E-01,
- A-0.58254E-04, 0.42000E+04, 0.42100E+04,
- A 0.13276E+00, 0.12746E+00, 0.17403E-01,-0.54470E-04, 0.13863E-01,
- A-0.48485E-04, 0.42100E+04, 0.42200E+04,
- A 0.80464E-01, 0.86998E-01, 0.22044E-01,-0.92895E-04, 0.19048E-01,
- A-0.87985E-04, 0.42200E+04, 0.42300E+04,
- A 0.63692E-01, 0.14834E+00, 0.22806E-01,-0.84692E-04, 0.23548E-01,
- A-0.92530E-04, 0.42300E+04, 0.42400E+04,
- A 0.18110E-01, 0.12119E+00, 0.18389E-01,-0.22676E-05, 0.13683E-01,
- A-0.26036E-04, 0.42400E+04, 0.42500E+04,
- A 0.20900E+00, 0.16597E+00, 0.19432E-01,-0.78011E-04, 0.19282E-01,
- A-0.84089E-04, 0.42500E+04, 0.42600E+04/
- DATA ((ACR(K,J),K=1,8),J=177,184) /
- A 0.49819E-01, 0.62110E-01, 0.26704E-01,-0.11099E-03, 0.25655E-01,
- A-0.10067E-03, 0.42600E+04, 0.42700E+04,
- A 0.51444E-01, 0.13110E+00, 0.14568E-01,-0.34291E-04, 0.14016E-01,
- A-0.49479E-04, 0.42700E+04, 0.42800E+04,
- A 0.10759E-01, 0.15106E+00, 0.27993E-01,-0.10013E-03, 0.23418E-01,
- A-0.84057E-04, 0.42800E+04, 0.42900E+04,
- A 0.59310E-02, 0.85611E-01, 0.36412E-01,-0.15063E-03, 0.34796E-01,
- A-0.14138E-03, 0.42900E+04, 0.43000E+04,
- A 0.60294E-01, 0.13145E+00, 0.23253E-01,-0.88313E-04, 0.22949E-01,
- A-0.90705E-04, 0.43000E+04, 0.43100E+04,
- A 0.87499E-02, 0.11428E+00, 0.24739E-01,-0.56984E-04, 0.24765E-01,
- A-0.72542E-04, 0.43100E+04, 0.43200E+04,
- A 0.43984E-02, 0.17658E+00, 0.35844E-01,-0.11719E-03, 0.30706E-01,
- A-0.10295E-03, 0.43200E+04, 0.43300E+04,
- A 0.31592E-02, 0.14762E+00, 0.14237E-01, 0.65312E-05, 0.14523E-01,
- A-0.19336E-04, 0.43300E+04, 0.43400E+04/
- DATA ((ACR(K,J),K=1,8),J=185,192) /
- A 0.22605E-02, 0.13901E+00, 0.23941E-01, 0.10579E-04, 0.23751E-01,
- A-0.45551E-04, 0.43400E+04, 0.43500E+04,
- A 0.84338E-07, 0.15285E-03, 0.47057E-02,-0.25631E-04, 0.22316E-02,
- A-0.23738E-04, 0.43500E+04, 0.43600E+04,
- A 0.95411E-07, 0.11284E-03, 0.51111E-02,-0.26317E-04, 0.30958E-02,
- A-0.25483E-04, 0.43600E+04, 0.43700E+04,
- A 0.15708E-07, 0.47653E-04, 0.99036E-02,-0.49633E-04, 0.72007E-02,
- A-0.44307E-04, 0.43700E+04, 0.43800E+04,
- A 0.72646E-04, 0.73368E-01, 0.17942E-01, 0.12698E-04, 0.12584E-01,
- A-0.34551E-04, 0.43800E+04, 0.43900E+04,
- A 0.59152E-04, 0.41171E-01, 0.83900E-02,-0.45951E-04, 0.57949E-02,
- A-0.40723E-04, 0.43900E+04, 0.44000E+04,
- A 0.90913E-04, 0.94376E-02, 0.37251E-01,-0.16131E-03, 0.34629E-01,
- A-0.15582E-03, 0.44000E+04, 0.44100E+04,
- A 0.34561E-07, 0.47569E-04, 0.15514E-02,-0.10274E-04, 0.65701E-06,
- A-0.12526E-04, 0.44100E+04, 0.44200E+04/
- DATA ((ACR(K,J),K=1,8),J=193,200) /
- A 0.43107E-03, 0.54262E-01, 0.24045E-01,-0.49839E-04, 0.16547E-01,
- A-0.44636E-04, 0.44200E+04, 0.44300E+04,
- A 0.31142E-03, 0.38963E-01, 0.14134E-01,-0.68927E-04, 0.11537E-01,
- A-0.63690E-04, 0.44300E+04, 0.44400E+04,
- A 0.14945E-07, 0.78332E-04, 0.89337E-02,-0.43145E-04, 0.69004E-02,
- A-0.42442E-04, 0.44400E+04, 0.44500E+04,
- A 0.16802E-02, 0.51222E-01, 0.15502E-01,-0.23447E-04, 0.10002E-01,
- A-0.32528E-04, 0.44500E+04, 0.44600E+04,
- A 0.10007E-03, 0.66862E-01, 0.24590E-01,-0.98504E-04, 0.22882E-01,
- A-0.10233E-03, 0.44600E+04, 0.44700E+04,
- A 0.30025E-02, 0.51153E-01, 0.19230E-01,-0.81070E-04, 0.15535E-01,
- A-0.68267E-04, 0.44700E+04, 0.44800E+04,
- A 0.86831E-04, 0.40458E-01, 0.36221E-01,-0.15713E-03, 0.33350E-01,
- A-0.15083E-03, 0.44800E+04, 0.44900E+04,
- A 0.80902E-02, 0.12750E+00, 0.16863E-01,-0.76478E-04, 0.16780E-01,
- A-0.77918E-04, 0.44900E+04, 0.45000E+04/
- DATA ((ACR(K,J),K=1,8),J=201,208) /
- A 0.22317E-02, 0.15229E+00, 0.12535E-01,-0.13795E-04, 0.10875E-01,
- A-0.37123E-04, 0.45000E+04, 0.45100E+04,
- A 0.19169E-01, 0.11664E+00, 0.10716E-01,-0.51479E-04, 0.82124E-02,
- A-0.46198E-04, 0.45100E+04, 0.45200E+04,
- A 0.65788E-02, 0.15986E+00, 0.12038E-01,-0.51957E-04, 0.10074E-01,
- A-0.51345E-04, 0.45200E+04, 0.45300E+04,
- A 0.32910E-01, 0.11768E+00, 0.84067E-02,-0.43158E-04, 0.67305E-02,
- A-0.40106E-04, 0.45300E+04, 0.45400E+04,
- A 0.44345E-01, 0.15763E+00, 0.35365E-02,-0.24308E-04, 0.79048E-03,
- A-0.17012E-04, 0.45400E+04, 0.45500E+04,
- A 0.27331E-01, 0.16819E+00, 0.42859E-02,-0.21639E-04, 0.38192E-02,
- A-0.25423E-04, 0.45500E+04, 0.45600E+04,
- A 0.20407E-01, 0.96090E-01, 0.15460E-02,-0.16323E-04, 0.66197E-03,
- A-0.91244E-05, 0.45600E+04, 0.45700E+04,
- A 0.57143E-01, 0.18848E+00, 0.30453E-02,-0.18516E-04, 0.16176E-02,
- A-0.18614E-04, 0.45700E+04, 0.45800E+04/
- DATA ((ACR(K,J),K=1,8),J=209,216) /
- A 0.52929E-01, 0.13102E+00,-0.10515E-02,-0.45621E-05,-0.23271E-02,
- A 0.27682E-05, 0.45800E+04, 0.45900E+04,
- A 0.28557E-01, 0.14681E+00,-0.48301E-03,-0.63151E-05,-0.19647E-02,
- A-0.53522E-05, 0.45900E+04, 0.46000E+04,
- A 0.46383E-02, 0.13391E+00, 0.88609E-02,-0.26493E-04, 0.82741E-02,
- A-0.32453E-04, 0.46000E+04, 0.46100E+04,
- A 0.27730E-01, 0.10824E+00,-0.34789E-02, 0.54132E-05,-0.30391E-02,
- A 0.80678E-05, 0.46100E+04, 0.46200E+04,
- A 0.51267E-01, 0.16778E+00,-0.15076E-02,-0.74663E-06,-0.25263E-02,
- A 0.37070E-05, 0.46200E+04, 0.46300E+04,
- A 0.12900E-01, 0.13459E+00, 0.41658E-03, 0.74475E-06, 0.12458E-02,
- A-0.77586E-05, 0.46300E+04, 0.46400E+04,
- A 0.44954E-01, 0.38311E+00,-0.18643E-02, 0.46026E-05,-0.27134E-02,
- A 0.44958E-05, 0.46400E+04, 0.46500E+04,
- A 0.48639E-02, 0.10343E+00, 0.25659E-02,-0.16961E-04, 0.23819E-02,
- A-0.14778E-04, 0.46500E+04, 0.46600E+04/
- DATA ((ACR(K,J),K=1,8),J=217,224) /
- A 0.12082E-02, 0.18004E+00, 0.14733E-01,-0.52646E-04, 0.14275E-01,
- A-0.60508E-04, 0.46600E+04, 0.46700E+04,
- A 0.13469E-02, 0.34467E+00, 0.12177E-01,-0.23395E-04, 0.10966E-01,
- A-0.36299E-04, 0.46700E+04, 0.46800E+04,
- A 0.68991E-02, 0.16070E+00, 0.64738E-03, 0.37071E-05, 0.32901E-02,
- A-0.20981E-05, 0.46800E+04, 0.46900E+04,
- A 0.27452E-01, 0.60959E-01,-0.51851E-02, 0.12668E-04,-0.41528E-02,
- A 0.26305E-04, 0.46900E+04, 0.47000E+04,
- A 0.17796E-01, 0.15523E+00,-0.27265E-02, 0.37407E-05,-0.33733E-02,
- A 0.10358E-04, 0.47000E+04, 0.47100E+04,
- A 0.11446E-01, 0.17796E+00,-0.68324E-03, 0.68406E-05,-0.10826E-02,
- A 0.59431E-05, 0.47100E+04, 0.47200E+04,
- A 0.29309E-01, 0.13652E+00,-0.17282E-02, 0.67620E-05, 0.56764E-03,
- A 0.13237E-04, 0.47200E+04, 0.47300E+04,
- A 0.21395E-01, 0.18395E+00,-0.15768E-02, 0.14383E-04, 0.15897E-03,
- A 0.87960E-05, 0.47300E+04, 0.47400E+04/
- DATA ((ACR(K,J),K=1,8),J=225,232) /
- A 0.25077E-02, 0.18622E+00, 0.42912E-02,-0.49559E-05, 0.45676E-02,
- A-0.26247E-05, 0.47400E+04, 0.47500E+04,
- A 0.31587E-01, 0.13943E+00,-0.12088E-02,-0.89815E-07,-0.15710E-03,
- A 0.20359E-04, 0.47500E+04, 0.47600E+04,
- A 0.34566E-01, 0.28253E+00, 0.16858E-02,-0.89950E-05, 0.97520E-03,
- A-0.81082E-05, 0.47600E+04, 0.47700E+04,
- A 0.20369E-01, 0.14591E+00,-0.14421E-02, 0.19399E-04, 0.39665E-02,
- A 0.14338E-04, 0.47700E+04, 0.47800E+04,
- A 0.81447E-02, 0.12195E+00, 0.13964E-02, 0.32025E-04, 0.37728E-02,
- A 0.20537E-04, 0.47800E+04, 0.47900E+04,
- A 0.19803E-01, 0.14625E+00, 0.96298E-03,-0.29783E-05, 0.41118E-02,
- A-0.97923E-06, 0.47900E+04, 0.48000E+04,
- A 0.52146E-02, 0.17691E+00, 0.14543E-01,-0.31749E-04, 0.14900E-01,
- A-0.44049E-04, 0.48000E+04, 0.48100E+04,
- A 0.35065E-01, 0.21617E+00,-0.21492E-02, 0.23072E-04, 0.11780E-02,
- A 0.24416E-04, 0.48100E+04, 0.48200E+04/
- DATA ((ACR(K,J),K=1,8),J=233,240) /
- A 0.12656E-01, 0.15792E+00, 0.83705E-02,-0.21219E-04, 0.82684E-02,
- A-0.28775E-04, 0.48200E+04, 0.48300E+04,
- A 0.14126E-01, 0.49850E+00, 0.96621E-02, 0.23197E-04, 0.11163E-01,
- A-0.20765E-04, 0.48300E+04, 0.48400E+04,
- A 0.23704E-01, 0.35541E+00, 0.55808E-02,-0.10952E-05, 0.68854E-02,
- A-0.13359E-04, 0.48400E+04, 0.48500E+04,
- A 0.32166E-01, 0.23632E+00,-0.23289E-03, 0.79450E-05, 0.17163E-02,
- A 0.28957E-05, 0.48500E+04, 0.48600E+04,
- A 0.26468E-01, 0.24812E+00, 0.83260E-02, 0.89107E-05, 0.10638E-01,
- A-0.24848E-04, 0.48600E+04, 0.48700E+04,
- A 0.12607E-01, 0.28278E+00, 0.14341E-01,-0.17161E-04, 0.17744E-01,
- A-0.43433E-04, 0.48700E+04, 0.48800E+04,
- A 0.19484E-02, 0.13452E+00, 0.14299E-01,-0.58644E-04, 0.12622E-01,
- A-0.58891E-04, 0.48800E+04, 0.48900E+04,
- A 0.19835E-01, 0.43138E+00, 0.16502E-01,-0.37834E-04, 0.15564E-01,
- A-0.53844E-04, 0.48900E+04, 0.49000E+04/
- DATA ((ACR(K,J),K=1,8),J=241,248) /
- A 0.31673E-01, 0.23676E+00, 0.18724E-01,-0.62795E-04, 0.17963E-01,
- A-0.67476E-04, 0.49000E+04, 0.49100E+04,
- A 0.20383E-01, 0.16860E+00, 0.20820E-01,-0.92373E-04, 0.18807E-01,
- A-0.85676E-04, 0.49100E+04, 0.49200E+04,
- A 0.34221E-01, 0.37729E+00, 0.14636E-01, 0.98132E-05, 0.15033E-01,
- A-0.32546E-04, 0.49200E+04, 0.49300E+04,
- A 0.41381E-01, 0.17341E+00, 0.42270E-02, 0.26778E-04, 0.73624E-02,
- A-0.61930E-05, 0.49300E+04, 0.49400E+04,
- A 0.50322E-01, 0.24574E+00, 0.15060E-01,-0.60731E-04, 0.11710E-01,
- A-0.49448E-04, 0.49400E+04, 0.49500E+04,
- A 0.11355E+00, 0.43168E+00, 0.12506E-01,-0.23567E-04, 0.10508E-01,
- A-0.32884E-04, 0.49500E+04, 0.49600E+04,
- A 0.73646E-01, 0.28063E+00, 0.15510E-01,-0.63821E-04, 0.12136E-01,
- A-0.51762E-04, 0.49600E+04, 0.49700E+04,
- A 0.21754E-02, 0.23290E+00, 0.25115E-01, 0.13402E-05, 0.23138E-01,
- A-0.49298E-04, 0.49700E+04, 0.49800E+04/
- DATA ((ACR(K,J),K=1,8),J=249,256) /
- A 0.20462E+00, 0.37006E+00, 0.13871E-01,-0.57344E-04, 0.11137E-01,
- A-0.49726E-04, 0.49800E+04, 0.49900E+04,
- A 0.15479E+00, 0.14505E+00, 0.12101E-01,-0.55517E-04, 0.11913E-01,
- A-0.38561E-04, 0.49900E+04, 0.50000E+04,
- A 0.16270E+00, 0.14157E+00, 0.12656E-01,-0.49554E-04, 0.12730E-01,
- A-0.47918E-04, 0.50000E+04, 0.50100E+04,
- A 0.20283E+00, 0.16538E+00, 0.98358E-02,-0.41905E-04, 0.91599E-02,
- A-0.33109E-04, 0.50100E+04, 0.50200E+04,
- A 0.32847E+00, 0.20501E+00, 0.10455E-01,-0.30987E-04, 0.11634E-01,
- A-0.22216E-04, 0.50200E+04, 0.50300E+04,
- A 0.40880E+00, 0.15680E+00, 0.97922E-02,-0.42397E-04, 0.98076E-02,
- A-0.38651E-04, 0.50300E+04, 0.50400E+04,
- A 0.27012E+00, 0.21951E+00, 0.12867E-01,-0.18768E-05, 0.12462E-01,
- A-0.21550E-04, 0.50400E+04, 0.50500E+04,
- A 0.57610E+00, 0.16605E+00, 0.61804E-02,-0.30533E-04, 0.69772E-02,
- A-0.17735E-04, 0.50500E+04, 0.50600E+04/
-C
- do i=1,8
- a(i)=acr(i,inu)
- enddo
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.h b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.h
deleted file mode 100644
index 7d6665d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA1.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_wava1_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.P b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.P
deleted file mode 100644
index 5d0b880..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int wava2_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.c b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.c
deleted file mode 100644
index 12a0b20..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.c
+++ /dev/null
@@ -1,346 +0,0 @@
-/* WAVA2.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< SUBROUTINE wava2(a,inu) >*/
-/* Subroutine */ int wava2_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { .32591,.48473,.010062,
- 1.8245e-5,.01189,-1.2621e-5,5060.,5070.,.73059,.13181,.010626,
- 7.3795e-6,.011376,-1.7764e-5,5070.,5080.,.39211,.39522,.01459,
- -6.8376e-6,.016326,-3.165e-5,5080.,5090.,2.3255,.26901,.0092468,
- 6.3821e-6,.0083396,-1.2628e-5,5090.,5100.,1.9706,.34245,.0056073,
- -9.4265e-8,.0059986,-1.0398e-5,5100.,5110.,2.8938,.22738,.022463,
- -9.7912e-5,.021063,-8.8497e-5,5110.,5120.,1.1454,.40811,.0089642,
- -5.1753e-6,.0089863,-1.9479e-5,5120.,5130.,2.92,.33384,.014298,
- -3.2571e-5,.012431,-3.5993e-5,5130.,5140.,6.318,.28323,.0099085,
- -1.94e-5,.0060737,-1.671e-5,5140.,5150.,14.918,.41681,.012935,
- -5.2738e-5,.010041,-4.0263e-5,5150.,5160.,10.19,.13237,.011091,
- -4.8728e-5,.0081335,-2.7045e-5,5160.,5170.,14.437,.36156,.0094685,
- -3.4308e-5,.0067537,-2.4477e-5,5170.,5180.,34.792,.30287,.0073719,
- -3.7632e-5,.0051901,-2.8247e-5,5180.,5190.,21.869,.22075,.0069763,
- -3.1715e-5,.0041088,-1.7042e-5,5190.,5200.,94.938,.25888,.0046429,
- -2.8823e-5,.0034889,-2.3494e-5,5200.,5210.,18.298,.20311,.0050431,
- -2.4681e-5,.0028469,-1.707e-5,5210.,5220.,69.538,.19126,.002196,
- -2.0268e-5,6.875e-4,-1.7413e-5,5220.,5230.,40.772,.23521,.0018896,
- -1.692e-5,5.9126e-4,-1.3609e-5,5230.,5240.,131.08,.17928,
- 1.5657e-4,-1.2114e-5,-.0017405,-8.3108e-6,5240.,5250.,69.597,
- .10896,-.0015337,-4.7461e-6,-.0027082,-1.5598e-6,5250.,5260.,
- 153.51,.20025,-.0022803,-2.9253e-6,-.004398,2.8697e-6,5260.,5270.,
- 2.6114,.24878,-8.2927e-4,4.6226e-6,-1.1922e-4,1.0717e-5,5270.,
- 5280.,48.681,.175,-.0037857,4.6902e-6,-.0036353,1.1426e-5,5280.,
- 5290.,77.56,.13557,-.0037228,3.6212e-6,-.0041326,1.5278e-5,5290.,
- 5300.,60.444,.1151,-.0047324,1.0254e-5,-.0036821,1.4636e-5,5300.,
- 5310.,15.328,.19998,-.0012681,2.9898e-6,-4.683e-4,2.0999e-6,5310.,
- 5320.,87.54,.16972,-.0041972,7.1961e-6,-.0037508,7.0298e-6,5320.,
- 5330.,195.61,.26284,-.0023874,-2.1407e-7,-.0037245,4.6625e-6,
- 5330.,5340.,168.41,.26546,2.4931e-4,-9.4775e-6,-.0016338,
- -6.291e-6,5340.,5350.,93.921,.31129,.0028343,-7.1173e-6,.0026325,
- -1.1816e-5,5350.,5360.,25.579,.36877,.0072262,-1.5821e-5,.0060257,
- -2.1996e-5,5360.,5370.,137.79,.17089,-.004665,1.3962e-5,-.002641,
- 1.792e-5,5370.,5380.,84.199,.12293,-.0039643,9.7938e-6,-.0017023,
- 1.5901e-5,5380.,5390.,140.72,.10478,-.0041237,5.0169e-6,-.0043789,
- 1.7244e-5,5390.,5400.,56.622,.23084,-.0025409,-2.9811e-7,
- -.0027639,7.6091e-6,5400.,5410.,185.34,.21363,-.0028691,
- -4.4392e-7,-.0042358,6.6265e-6,5410.,5420.,96.955,.12223,
- -5.2081e-4,-9.6057e-6,-.0016418,-1.9789e-6,5420.,5430.,117.89,
- .13571,-.0014763,-5.7081e-6,-.0024763,-1.7817e-7,5430.,5440.,
- 191.02,.24199,6.976e-4,-1.4228e-5,-.001445,-7.5253e-6,5440.,5450.,
- 22.138,.14268,.0012465,-1.3898e-5,.00202,-8.418e-6,5450.,5460.,
- 95.115,.24823,.0035551,-2.5604e-5,.0012041,-1.8465e-5,5460.,5470.,
- 62.976,.15811,.0050592,-2.9507e-5,.0029262,-2.138e-5,5470.,5480.,
- 29.147,.11805,.008422,-4.2987e-5,.0067418,-3.6032e-5,5480.,5490.,
- 51.614,.19818,.0058436,-3.46e-5,.003939,-2.8598e-5,5490.,5500.,
- 23.266,.1679,.011075,-5.348e-5,.0084735,-4.6037e-5,5500.,5510.,
- 10.989,.20302,.0063972,-1.4524e-5,.0042223,-2.0806e-5,5510.,5520.,
- 10.027,.16542,.013794,-6.332e-5,.011093,-5.5041e-5,5520.,5530.,
- 9.3954,.21952,.013366,-5.7474e-5,.0098104,-4.6605e-5,5530.,5540.,
- 4.2252,.19874,.016633,-7.121e-5,.01335,-6.0705e-5,5540.,5550.,
- 6.2656,.26354,.0098363,-9.5486e-6,.0079542,-2.4062e-5,5550.,5560.,
- 1.6378,.16463,.013976,-8.3427e-6,.012806,-3.571e-5,5560.,5570.,
- 1.9767,.27227,.014721,-2.6094e-5,.012774,-4.5522e-5,5570.,5580.,
- .586,.20958,.012874,3.9258e-5,.011964,-1.5397e-5,5580.,5590.,
- .73058,.24104,.02517,-9.8784e-5,.021222,-8.5036e-5,5590.,5600.,
- 1.3668,.20354,.00746,-5.4501e-6,.010036,-2.7451e-5,5600.,5610.,
- .7017,.14013,.0054963,1.2171e-5,.010386,-5.7235e-6,5610.,5620.,
- .97806,.19171,.0021812,1.6431e-5,.0066588,9.5186e-6,5620.,5630.,
- .29391,.23855,.0090316,2.3604e-5,.012635,-6.6897e-6,5630.,5640.,
- .15354,.15176,.0057073,2e-5,.014561,-4.0698e-6,5640.,5650.,.08073,
- .28405,.014753,3.439e-5,.018447,-1.775e-5,5650.,5660.,.86381,
- .14813,.0029607,-2.0586e-5,.0028212,-1.2594e-5,5660.,5670.,.22599,
- .16383,.0084407,-3.2709e-5,.011049,-1.6279e-5,5670.,5680.,
- .0030594,.17069,.034284,-1.0113e-4,.035042,-1.1247e-4,5680.,5690.,
- .38291,.16459,.0096772,-4.3054e-5,.0087884,-3.2862e-5,5690.,5700.,
- .17817,.065371,.0044945,-2.6954e-5,.0044075,7.1895e-7,5700.,5710.,
- .0073272,.32673,.018605,-3.6631e-5,.021288,-5.004e-5,5710.,5720.,
- .33773,.13375,.0060665,-3.0734e-5,.0046922,-2.5584e-5,5720.,5730.,
- .083205,.058895,.0083229,-4.2023e-5,.0099661,-2.959e-5,5730.,
- 5740.,.1796,.1205,.0065668,-3.475e-5,.004411,-2.7489e-5,5740.,
- 5750.,.074406,.16592,.012426,-4.4049e-5,.012086,-4.8157e-5,5750.,
- 5760.,.029803,.065159,.011506,-5.4589e-5,.012823,-5.1753e-5,5760.,
- 5770.,.134,.079723,.011174,-5.413e-5,.010639,-4.7462e-5,5770.,
- 5780.,.027397,.11303,.0070869,-8.5837e-6,.0087642,-2.4197e-5,
- 5780.,5790.,.04813,.1528,.017121,-6.8541e-5,.016166,-7.1739e-5,
- 5790.,5800.,.098878,.11702,.011647,-5.4757e-5,.0095467,-4.9145e-5,
- 5800.,5810.,.0011937,.11746,.029514,-1.178e-4,.026592,-1.0438e-4,
- 5810.,5820.,.021084,.041603,.018136,-8.3736e-5,.01662,-7.5802e-5,
- 5820.,5830.,.041859,.10038,.011698,-5.1084e-5,.0091292,-3.8447e-5,
- 5830.,5840.,.0042835,.054158,.020564,-7.9064e-5,.016849,
- -6.1318e-5,5840.,5850.,.039742,.14212,.015543,-6.5164e-5,.012937,
- -6.0213e-5,5850.,5860.,.0044465,.13575,.018218,-6.1185e-5,.017472,
- -6.1811e-5,5860.,5870.,.013183,.084879,.018786,-7.5902e-5,.01503,
- -6.7738e-5,5870.,5880.,.0036488,.086695,.023765,-7.6455e-5,
- .019459,-6.0338e-5,5880.,5890.,.018172,.13595,.016681,-5.4016e-5,
- .014894,-6.0543e-5,5890.,5900.,.0024118,.072933,.025664,
- -9.6848e-5,.026465,-1.0476e-4,5900.,5910.,.01494,.1207,.017582,
- -6.8945e-5,.016946,-6.9945e-5,5910.,5920.,.0014531,.081478,.02565,
- -5.6688e-5,.020849,-5.2418e-5,5920.,5930.,.004057,.064725,.024344,
- -1.0574e-4,.021209,-9.2148e-5,5930.,5940.,5.9362e-4,.052682,
- .023362,-8.193e-5,.01857,-7.6269e-5,5940.,5950.,.0021418,.075485,
- .023733,-8.0625e-5,.021119,-8.5514e-5,5950.,5960.,.0033439,.12209,
- .022556,-8.973e-5,.019031,-8.5459e-5,5960.,5970.,.0014641,.13608,
- .015568,3.7809e-6,.01603,-2.9177e-5,5970.,5980.,6.3999e-4,.094011,
- .027455,-3.9873e-5,.019599,-3.6883e-5,5980.,5990.,.0013405,
- .090254,.029576,-1.1767e-4,.026759,-1.1158e-4,5990.,6e3,.0017604,
- .17547,.017851,-6.4948e-5,.016287,-5.6437e-5,6e3,6010.,.0011569,
- .13348,.026563,-8.7926e-5,.023528,-9.1174e-5,6010.,6020.,
- 2.8575e-4,.078833,.019053,-1.8306e-5,.018303,-5.1186e-5,6020.,
- 6030.,8.7532e-4,.16112,.022556,-3.3852e-5,.021206,-6.4336e-5,
- 6030.,6040.,4.8531e-4,.054398,.022035,-9.7698e-5,.019943,
- -8.9334e-5,6040.,6050.,4.2083e-4,.13305,.011783,6.0192e-5,.01191,
- 7.0965e-6,6050.,6060.,3.1283e-4,.10974,.024828,-3.5695e-5,.021926,
- -6.102e-5,6060.,6070.,.0016917,.14682,.0023913,1.937e-5,.0028143,
- 1.0914e-5,6070.,6080.,2.4107e-4,.056225,.019103,-5.8306e-6,.02305,
- -4.6373e-5,6080.,6090.,4.4079e-4,.073062,.0078845,-3.8279e-5,
- .0064841,-2.5252e-5,6090.,6100.,1.7156e-4,.08447,.010336,
- 1.0341e-4,.0085994,4.3979e-5,6100.,6110.,1.5736e-4,.047359,
- .020348,-3.159e-5,.024132,-5.6992e-5,6110.,6120.,.0010666,.13835,
- .0061165,-8.7157e-6,.0071462,-1.5e-5,6120.,6130.,4.1402e-5,
- .071564,.014541,-3.0661e-5,.013703,-3.2448e-5,6130.,6140.,
- 1.6673e-5,.033602,.019118,-8.8866e-5,.016523,-8.3641e-5,6140.,
- 6150.,4.5173e-4,.19416,.0081406,-4.6697e-6,.0096975,-2.7594e-5,
- 6150.,6160.,8.4192e-5,.0848,.0068868,2.0465e-5,.0065557,
- -3.9158e-6,6160.,6170.,1.9983e-4,.034955,.013243,-4.8483e-5,
- .014163,-4.8663e-5,6170.,6180.,5.654e-4,.092508,.0032982,
- -2.8242e-7,.0023537,-1.1797e-5,6180.,6190.,2.6602e-4,.14864,
- -.0035881,8.4292e-6,-.0064288,1.1323e-5,6190.,6200.,6.6332e-4,
- .082351,4.0475e-5,-9.1191e-6,-.0013832,-7.433e-7,6200.,6210.,
- 5.089e-4,.13947,.003362,-3.1112e-6,4.078e-4,8.6176e-7,6210.,6220.,
- 1.2815e-4,.087906,.012262,-4.0572e-5,.01202,-4.9984e-5,6220.,
- 6230.,1.2854e-4,.12035,.0025735,-1.5152e-5,-2.5291e-4,-1.3133e-5,
- 6230.,6240.,0.,0.,0.,0.,0.,0.,6240.,6250.,3.8748e-4,.088892,
- .0070553,-2.9374e-5,.0061982,-3.1937e-5,6250.,6260.,1.6711e-4,
- .096035,.013535,-5.983e-5,.011956,-5.7292e-5,6260.,6270.,
- 5.1664e-4,.11783,.0086933,-2.7481e-5,.0070865,-2.8728e-5,6270.,
- 6280.,.001613,.21378,.0034321,-1.5373e-5,.0028098,-8.7169e-6,
- 6280.,6290.,1.104e-4,.05027,.011461,-5.2791e-5,.010667,-5.0501e-5,
- 6290.,6300.,.0022339,.16944,.0043566,-1.8834e-5,.0025925,
- -1.7523e-5,6300.,6310.,7.0293e-4,.10055,.0086229,-3.5378e-5,
- .0057065,-3.2557e-5,6310.,6320.,2.805e-4,.12764,.0056648,
- 7.4065e-5,.0085368,1.7469e-5,6320.,6330.,6.2308e-4,.089292,.01011,
- -2.8113e-5,.010994,-3.9797e-5,6330.,6340.,4.9924e-4,.15704,
- .014233,-5.3536e-5,.011904,-5.3159e-5,6340.,6350.,4.5485e-4,.2206,
- .0045598,-2.1706e-6,.0040803,-1.9834e-5,6350.,6360.,4.4859e-4,
- .31977,.015688,-3.0431e-5,.012918,-4.8166e-5,6360.,6370.,
- 2.7811e-4,.13882,.011781,-2.0096e-5,.011797,-2.376e-5,6370.,6380.,
- 8.6844e-4,.2569,.011839,-6.454e-6,.0097827,-2.9934e-5,6380.,6390.,
- 8.4205e-4,.26741,.010125,-9.2493e-6,.009507,-2.6314e-5,6390.,
- 6400.,.0016976,.15422,.0095094,1.9053e-5,.010682,-7.9536e-6,6400.,
- 6410.,4.7975e-4,.09426,.011121,-4.7922e-5,.0093837,-4.1295e-5,
- 6410.,6420.,5.2022e-4,.16038,.017528,-3.7366e-5,.019737,
- -6.1655e-5,6420.,6430.,8.2574e-4,.16899,.016228,-5.7574e-5,
- .014443,-6.2197e-5,6430.,6440.,.0021296,.24095,.018574,-5.7065e-5,
- .018731,-6.6716e-5,6440.,6450.,2.6201e-4,.11418,.021012,
- -6.7706e-5,.019337,-6.9411e-5,6450.,6460.,.0026631,.29606,
- .0094001,3.2264e-5,.0092032,-9.2228e-6,6460.,6470.,.0025496,.1395,
- .02196,-9.1558e-5,.019725,-7.8434e-5,6470.,6480.,.0030217,.24286,
- .021221,-4.9207e-5,.017707,-5.6279e-5,6480.,6490.,.0025925,.22189,
- .011972,-3.5111e-5,.011532,-3.4767e-5,6490.,6500.,.0036908,.17271,
- .017079,-6.2898e-5,.018276,-6.9468e-5,6500.,6510.,.0058412,.27765,
- .021239,-8.2779e-5,.019328,-7.9739e-5,6510.,6520.,.0010097,.36424,
- .014201,1.4574e-5,.014137,-2.5464e-5,6520.,6530.,.015531,.36032,
- .015962,-5.5747e-5,.013807,-5.4878e-5,6530.,6540.,.021827,.16998,
- .012887,-5.3561e-5,.013686,-4.8168e-5,6540.,6550.,.025524,.44895,
- .014216,-3.1158e-5,.013867,-4.6536e-5,6550.,6560.,.0046252,.14687,
- .017426,-7.1751e-5,.018048,-6.5015e-5,6560.,6570.,.022064,.27,
- .015309,-5.8062e-5,.016735,-6.1409e-5,6570.,6580.,.042593,.28026,
- .015131,-6.0674e-5,.014017,-5.2957e-5,6580.,6590.,.039072,.14924,
- .0094106,-4.0098e-5,.0098574,-2.9732e-5,6590.,6600.,.054808,
- .37702,.012248,-2.1938e-5,.012749,-3.4984e-5,6600.,6610.,.036908,
- .16694,.011325,-4.1839e-5,.012369,-2.3977e-5,6610.,6620.,.0049128,
- .31728,.016178,-8.7947e-6,.019507,-3.6007e-5,6620.,6630.,.027419,
- .23237,.022088,-4.83e-5,.021397,-5.8784e-5,6630.,6640.,.09883,
- .17529,.0067054,-2.8981e-5,.0098183,-2.1164e-5,6640.,6650.,
- .097673,.26249,.015514,-2.0366e-5,.018041,-4.7825e-5,6650.,6660.,
- .029234,.39325,.011043,6.9627e-6,.014995,-2.8824e-5,6660.,6670.,
- .073358,.26517,.022641,-9.0861e-5,.020163,-8.1954e-5,6670.,6680.,
- .28609,.27963,.012746,-3.1154e-5,.011122,-2.9019e-5,6680.,6690.,
- .15415,.42581,.0092965,-1.6598e-5,.010866,-3.0004e-5,6690.,6700.,
- .50854,.25928,.011806,-4.9706e-5,.01195,-4.4564e-5,6700.,6710.,
- .54248,.29219,.0086655,-1.078e-5,.0096072,-2.0886e-5,6710.,6720.,
- 1.1829,.23177,.0084264,-3.6835e-5,.0078692,-3.165e-5,6720.,6730.,
- .66413,.22652,.0096388,-4.5502e-5,.0094036,-4.2748e-5,6730.,6740.,
- 2.0327,.2021,.0051382,-2.4524e-5,.0066314,-1.6094e-5,6740.,6750.,
- 2.8639,.19875,.0048057,-2.8413e-5,.0044821,-2.1857e-5,6750.,6760.,
- 2.3946,.11681,.0025701,-2.0163e-5,.0026061,-1.6227e-5,6760.,6770.,
- 2.3817,.35427,.0039392,-1.7028e-5,.004929,-1.8773e-5,6770.,6780.,
- 1.6155,.23449,7.3307e-4,-7.3637e-6,.0016677,-2.5528e-6,6780.,
- 6790.,8.3481,.29624,2.1533e-4,-8.9091e-6,-1.954e-4,-6.9089e-6,
- 6790.,6800.,3.9018,.13513,-.002043,4.7043e-6,.0019385,1.5453e-5,
- 6800.,6810.,3.3911,.24098,-2.0667e-4,-6.3633e-6,-1.6731e-4,
- -2.2699e-6,6810.,6820.,2.8798,.25576,-.0021074,5.4951e-6,
- -.0021041,8.2116e-6,6820.,6830.,2.7426,.15514,-.0029057,1.2463e-5,
- .0017031,1.9513e-5,6830.,6840.,3.2308,.18429,-.0036805,1.3879e-5,
- 3.8114e-4,2.111e-5,6840.,6850.,.82936,.18124,4.1735e-4,1.4616e-6,
- .0025198,-1.3464e-6,6850.,6860.,.35131,.41646,.015485,-4.647e-5,
- .013388,-3.6422e-5,6860.,6870.,4.6683,.15324,-.0042182,9.0437e-6,
- -.0013329,1.8577e-5,6870.,6880.,2.8455,.17389,-.0022094,1.4962e-6,
- -.0015658,9.7344e-6,6880.,6890.,8.8724,.42657,-.0018169,8.1105e-6,
- -6.5751e-4,1.2321e-5,6890.,6900.,.81595,.32457,.0028256,1.2078e-6,
- .0059842,1.543e-6,6900.,6910.,12.055,.40831,-.0011236,2.2677e-6,
- -8.159e-4,1.7078e-6,6910.,6920.,1.4005,.42874,.0073135,-1.6167e-5,
- .0082389,-1.8229e-5,6920.,6930.,9.4914,.29494,-.0033677,1.1156e-5,
- -.0016627,1.6279e-5,6930.,6940.,3.731,.44986,.0084547,-3.0585e-5,
- .010303,-3.5351e-5,6940.,6950.,7.9581,.26975,-.0014256,4.1782e-6,
- 1.3886e-4,7.5184e-6,6950.,6960.,3.409,.33223,-8.355e-4,9.9982e-6,
- .0032926,7.9289e-6,6960.,6970.,6.9934,.49549,.0034299,1.3868e-5,
- .0073246,-1.1357e-5,6970.,6980.,8.4288,.29235,.0012515,-6.6867e-6,
- .0022057,-7.2817e-6,6980.,6990.,3.7771,.34377,.0066839,1.4877e-5,
- .0099074,-2.4726e-5,6990.,7e3,5.9358,.4452,.0047532,-1.1726e-5,
- .0057444,-1.6773e-5,7e3,7010.,3.6653,.46656,.0075924,-1.4859e-5,
- .0085483,-2.7681e-5,7010.,7020.,7.623,.59145,.010355,-2.3877e-5,
- .0084375,-3.5191e-5,7020.,7030.,2.9785,.49616,.0095318,-2.8442e-5,
- .0094393,-3.7258e-5,7030.,7040.,11.489,.4463,.012118,-4.7464e-5,
- .0089557,-4.3911e-5,7040.,7050.,5.707,.30579,.012792,-5.848e-5,
- .011943,-4.9567e-5,7050.,7060.,4.3341,.45254,.0087102,-3.6977e-5,
- .0062554,-2.9678e-5,7060.,7070.,18.415,.27325,.011045,-5.5565e-5,
- .0087811,-4.6635e-5,7070.,7080.,9.2559,.37006,.0093565,-4.6638e-5,
- .008623,-4.1694e-5,7080.,7090.,34.399,.2696,.0073722,-4.0297e-5,
- .005669,-3.4996e-5,7090.,7100.,27.357,.28185,.0041186,-2.4656e-5,
- .0015333,-1.4846e-5,7100.,7110.,59.142,.21235,.004202,-2.8298e-5,
- .0026623,-2.2726e-5,7110.,7120.,8.729,.31743,.0050667,-2.9057e-5,
- .0050497,-2.4756e-5,7120.,7130.,66.372,.25989,.0021171,-2.001e-5,
- 9.8789e-4,-1.5045e-5,7130.,7140.,40.254,.15248,6.4299e-4,
- -1.3315e-5,-6.7491e-4,-2.9781e-7,7140.,7150.,1.5991,.45391,
- .0083749,-1.2893e-5,.011832,-2.3466e-5,7150.,7160.,138.4,.26185,
- -9.2005e-4,-7.5058e-6,-.0022766,1.2031e-6,7160.,7170.,13.476,
- .27958,1.7108e-4,2.8602e-6,.0019003,2.2534e-6,7170.,7180.,95.96,
- .20582,-.0022657,1.3812e-6,-.0015351,8.8048e-6,7180.,7190.,14.69,
- .24608,7.8336e-4,1.5252e-5,.003739,-6.918e-6,7190.,7200.,55.288,
- .25862,-.0013454,9.9116e-6,-8.8298e-4,1.7423e-6,7200.,7210.,
- 48.147,.25568,.0049183,-2.3894e-5,.0037052,-2.2724e-5,7210.,7220.,
- 40.415,.20103,-.0024259,7.5229e-6,-.0017525,2.6464e-6,7220.,7230.,
- 109.84,.33075,7.5622e-4,-1.2921e-5,-.0011898,-5.9125e-6,7230.,
- 7240.,130.02,.18533,-.0033239,1.8173e-6,-.0046918,8.1132e-6,7240.,
- 7250.,24.491,.30951,-.0026793,5.8588e-6,-.0021237,4.8e-6,7250.,
- 7260.,19.609,.15703,-.0025743,2.8622e-6,-.0016255,4.4422e-6,7260.,
- 7270.,17.072,.26657,-.0029675,1.2335e-5,-6.9569e-4,7.7744e-6,
- 7270.,7280.,25.243,.38981,-.0023499,7.2438e-6,-.0015088,4.0106e-6,
- 7280.,7290.,139.62,.16193,-.0050479,9.269e-6,-.0053276,1.5266e-5,
- 7290.,7300.,86.705,.11761,-.0037859,4.4125e-6,-.0030774,1.0295e-5,
- 7300.,7310.,66.458,.22506,-.0031197,2.1671e-6,-.003942,5.6842e-6,
- 7310.,7320.,147.42,.24611,-.0023854,-1.4496e-6,-.0034285,
- 1.2805e-6,7320.,7330.,87.291,.22526,-1.1541e-4,-9.6671e-6,
- -9.0479e-4,-7.8703e-6,7330.,7340.,155.36,.27754,-2.3889e-4,
- -8.8494e-6,-.001057,-7.3024e-6,7340.,7350.,60.8,.21141,.0022877,
- -1.825e-5,.0021735,-1.6084e-5,7350.,7360.,65.821,.31454,.0035102,
- -2.3014e-5,.0021764,-1.996e-5,7360.,7370.,39.314,.19452,.0045708,
- -2.8104e-5,.0035157,-2.3151e-5,7370.,7380.,33.606,.30823,.0071777,
- -3.6203e-5,.0052193,-2.5338e-5,7380.,7390.,28.667,.22825,.0067636,
- -3.404e-5,.0062429,-3.5213e-5,7390.,7400.,9.5852,.3028,.012912,
- -5.3899e-5,.010209,-4.4318e-5,7400.,7410.,7.5752,.36859,.010673,
- -1.5633e-5,.0094631,-3.3501e-5,7410.,7420.,3.3599,.31735,.015132,
- -5.0575e-5,.013714,-4.8842e-5,7420.,7430.,1.421,.51877,.010564,
- 2.7798e-5,.010716,-1.6576e-5,7430.,7440.,1.3357,.34135,.0055009,
- 2.9075e-5,.010731,-1.4716e-5,7440.,7450.,.90292,.35257,.0064439,
- 4.3621e-6,.0093295,-7.9773e-6,7450.,7460.,.47321,.34413,.0075753,
- 3.1118e-5,.0088184,2.3143e-6,7460.,7470.,.14277,.63005,.015765,
- -3.876e-5,.014284,-4.1344e-5,7470.,7480.,.84751,.092347,.0044433,
- -2.3373e-5,.0065281,-2.0814e-5,7480.,7490.,.34962,.49346,
- 3.9951e-4,2.823e-6,.0021242,-6.058e-7,7490.,7500.,.66686,.32642,
- .0015242,-8.7602e-6,.0033093,-6.2194e-6,7500.,7510.,.7038,.37824,
- .0040335,-1.7144e-5,.0058765,-1.8563e-5,7510.,7520.,.44176,.28314,
- .0041609,-2.1428e-5,.0052238,-2.1647e-5,7520.,7530.,.23859,.25536,
- .0046384,-3.1469e-6,.0056672,-1.3268e-5,7530.,7540.,.12451,.19246,
- .003173,-1.645e-5,.0046905,-1.9919e-5,7540.,7550.,.40142,.2566,
- .0068917,-2.2016e-5,.0042921,-2.2533e-5,7550.,7560.,.24593,.28458,
- 3.567e-4,-9.0627e-7,6.7869e-4,-6.7459e-6,7560.,7570.,.41189,
- .23957,-2.7548e-4,3.566e-6,3.9542e-4,-3.8485e-6,7570.,7580.,
- .20341,.14662,.0060408,-3.5022e-5,.0043079,-3.1225e-5,7580.,7590.,
- .18188,.14279,.0012602,-3.0833e-6,.0033638,-1.3417e-5,7590.,7600.,
- .17978,.35062,.005044,-3.1112e-6,.0036165,-1.3022e-5,7600.,7610.,
- .31504,.16627,.003265,-1.3345e-5,.0040505,-2.0124e-5,7610.,7620. }
- ;
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-
-/* WATER VAPOR (5060 - 7600 CM-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* wava2_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.f b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.f
deleted file mode 100644
index ab51d01..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.f
+++ /dev/null
@@ -1,561 +0,0 @@
- SUBROUTINE wava2(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-C
-C WATER VAPOR (5060 - 7600 CM-1)
-C
- DATA ((ACR(K,J),K=1,8),J= 1, 8) /
- A 0.32591E+00, 0.48473E+00, 0.10062E-01, 0.18245E-04, 0.11890E-01,
- A-0.12621E-04, 0.50600E+04, 0.50700E+04,
- A 0.73059E+00, 0.13181E+00, 0.10626E-01, 0.73795E-05, 0.11376E-01,
- A-0.17764E-04, 0.50700E+04, 0.50800E+04,
- A 0.39211E+00, 0.39522E+00, 0.14590E-01,-0.68376E-05, 0.16326E-01,
- A-0.31650E-04, 0.50800E+04, 0.50900E+04,
- A 0.23255E+01, 0.26901E+00, 0.92468E-02, 0.63821E-05, 0.83396E-02,
- A-0.12628E-04, 0.50900E+04, 0.51000E+04,
- A 0.19706E+01, 0.34245E+00, 0.56073E-02,-0.94265E-07, 0.59986E-02,
- A-0.10398E-04, 0.51000E+04, 0.51100E+04,
- A 0.28938E+01, 0.22738E+00, 0.22463E-01,-0.97912E-04, 0.21063E-01,
- A-0.88497E-04, 0.51100E+04, 0.51200E+04,
- A 0.11454E+01, 0.40811E+00, 0.89642E-02,-0.51753E-05, 0.89863E-02,
- A-0.19479E-04, 0.51200E+04, 0.51300E+04,
- A 0.29200E+01, 0.33384E+00, 0.14298E-01,-0.32571E-04, 0.12431E-01,
- A-0.35993E-04, 0.51300E+04, 0.51400E+04/
- DATA ((ACR(K,J),K=1,8),J= 9, 16) /
- A 0.63180E+01, 0.28323E+00, 0.99085E-02,-0.19400E-04, 0.60737E-02,
- A-0.16710E-04, 0.51400E+04, 0.51500E+04,
- A 0.14918E+02, 0.41681E+00, 0.12935E-01,-0.52738E-04, 0.10041E-01,
- A-0.40263E-04, 0.51500E+04, 0.51600E+04,
- A 0.10190E+02, 0.13237E+00, 0.11091E-01,-0.48728E-04, 0.81335E-02,
- A-0.27045E-04, 0.51600E+04, 0.51700E+04,
- A 0.14437E+02, 0.36156E+00, 0.94685E-02,-0.34308E-04, 0.67537E-02,
- A-0.24477E-04, 0.51700E+04, 0.51800E+04,
- A 0.34792E+02, 0.30287E+00, 0.73719E-02,-0.37632E-04, 0.51901E-02,
- A-0.28247E-04, 0.51800E+04, 0.51900E+04,
- A 0.21869E+02, 0.22075E+00, 0.69763E-02,-0.31715E-04, 0.41088E-02,
- A-0.17042E-04, 0.51900E+04, 0.52000E+04,
- A 0.94938E+02, 0.25888E+00, 0.46429E-02,-0.28823E-04, 0.34889E-02,
- A-0.23494E-04, 0.52000E+04, 0.52100E+04,
- A 0.18298E+02, 0.20311E+00, 0.50431E-02,-0.24681E-04, 0.28469E-02,
- A-0.17070E-04, 0.52100E+04, 0.52200E+04/
- DATA ((ACR(K,J),K=1,8),J= 17, 24) /
- A 0.69538E+02, 0.19126E+00, 0.21960E-02,-0.20268E-04, 0.68750E-03,
- A-0.17413E-04, 0.52200E+04, 0.52300E+04,
- A 0.40772E+02, 0.23521E+00, 0.18896E-02,-0.16920E-04, 0.59126E-03,
- A-0.13609E-04, 0.52300E+04, 0.52400E+04,
- A 0.13108E+03, 0.17928E+00, 0.15657E-03,-0.12114E-04,-0.17405E-02,
- A-0.83108E-05, 0.52400E+04, 0.52500E+04,
- A 0.69597E+02, 0.10896E+00,-0.15337E-02,-0.47461E-05,-0.27082E-02,
- A-0.15598E-05, 0.52500E+04, 0.52600E+04,
- A 0.15351E+03, 0.20025E+00,-0.22803E-02,-0.29253E-05,-0.43980E-02,
- A 0.28697E-05, 0.52600E+04, 0.52700E+04,
- A 0.26114E+01, 0.24878E+00,-0.82927E-03, 0.46226E-05,-0.11922E-03,
- A 0.10717E-04, 0.52700E+04, 0.52800E+04,
- A 0.48681E+02, 0.17500E+00,-0.37857E-02, 0.46902E-05,-0.36353E-02,
- A 0.11426E-04, 0.52800E+04, 0.52900E+04,
- A 0.77560E+02, 0.13557E+00,-0.37228E-02, 0.36212E-05,-0.41326E-02,
- A 0.15278E-04, 0.52900E+04, 0.53000E+04/
- DATA ((ACR(K,J),K=1,8),J= 25, 32) /
- A 0.60444E+02, 0.11510E+00,-0.47324E-02, 0.10254E-04,-0.36821E-02,
- A 0.14636E-04, 0.53000E+04, 0.53100E+04,
- A 0.15328E+02, 0.19998E+00,-0.12681E-02, 0.29898E-05,-0.46830E-03,
- A 0.20999E-05, 0.53100E+04, 0.53200E+04,
- A 0.87540E+02, 0.16972E+00,-0.41972E-02, 0.71961E-05,-0.37508E-02,
- A 0.70298E-05, 0.53200E+04, 0.53300E+04,
- A 0.19561E+03, 0.26284E+00,-0.23874E-02,-0.21407E-06,-0.37245E-02,
- A 0.46625E-05, 0.53300E+04, 0.53400E+04,
- A 0.16841E+03, 0.26546E+00, 0.24931E-03,-0.94775E-05,-0.16338E-02,
- A-0.62910E-05, 0.53400E+04, 0.53500E+04,
- A 0.93921E+02, 0.31129E+00, 0.28343E-02,-0.71173E-05, 0.26325E-02,
- A-0.11816E-04, 0.53500E+04, 0.53600E+04,
- A 0.25579E+02, 0.36877E+00, 0.72262E-02,-0.15821E-04, 0.60257E-02,
- A-0.21996E-04, 0.53600E+04, 0.53700E+04,
- A 0.13779E+03, 0.17089E+00,-0.46650E-02, 0.13962E-04,-0.26410E-02,
- A 0.17920E-04, 0.53700E+04, 0.53800E+04/
- DATA ((ACR(K,J),K=1,8),J= 33, 40) /
- A 0.84199E+02, 0.12293E+00,-0.39643E-02, 0.97938E-05,-0.17023E-02,
- A 0.15901E-04, 0.53800E+04, 0.53900E+04,
- A 0.14072E+03, 0.10478E+00,-0.41237E-02, 0.50169E-05,-0.43789E-02,
- A 0.17244E-04, 0.53900E+04, 0.54000E+04,
- A 0.56622E+02, 0.23084E+00,-0.25409E-02,-0.29811E-06,-0.27639E-02,
- A 0.76091E-05, 0.54000E+04, 0.54100E+04,
- A 0.18534E+03, 0.21363E+00,-0.28691E-02,-0.44392E-06,-0.42358E-02,
- A 0.66265E-05, 0.54100E+04, 0.54200E+04,
- A 0.96955E+02, 0.12223E+00,-0.52081E-03,-0.96057E-05,-0.16418E-02,
- A-0.19789E-05, 0.54200E+04, 0.54300E+04,
- A 0.11789E+03, 0.13571E+00,-0.14763E-02,-0.57081E-05,-0.24763E-02,
- A-0.17817E-06, 0.54300E+04, 0.54400E+04,
- A 0.19102E+03, 0.24199E+00, 0.69760E-03,-0.14228E-04,-0.14450E-02,
- A-0.75253E-05, 0.54400E+04, 0.54500E+04,
- A 0.22138E+02, 0.14268E+00, 0.12465E-02,-0.13898E-04, 0.20200E-02,
- A-0.84180E-05, 0.54500E+04, 0.54600E+04/
- DATA ((ACR(K,J),K=1,8),J= 41, 48) /
- A 0.95115E+02, 0.24823E+00, 0.35551E-02,-0.25604E-04, 0.12041E-02,
- A-0.18465E-04, 0.54600E+04, 0.54700E+04,
- A 0.62976E+02, 0.15811E+00, 0.50592E-02,-0.29507E-04, 0.29262E-02,
- A-0.21380E-04, 0.54700E+04, 0.54800E+04,
- A 0.29147E+02, 0.11805E+00, 0.84220E-02,-0.42987E-04, 0.67418E-02,
- A-0.36032E-04, 0.54800E+04, 0.54900E+04,
- A 0.51614E+02, 0.19818E+00, 0.58436E-02,-0.34600E-04, 0.39390E-02,
- A-0.28598E-04, 0.54900E+04, 0.55000E+04,
- A 0.23266E+02, 0.16790E+00, 0.11075E-01,-0.53480E-04, 0.84735E-02,
- A-0.46037E-04, 0.55000E+04, 0.55100E+04,
- A 0.10989E+02, 0.20302E+00, 0.63972E-02,-0.14524E-04, 0.42223E-02,
- A-0.20806E-04, 0.55100E+04, 0.55200E+04,
- A 0.10027E+02, 0.16542E+00, 0.13794E-01,-0.63320E-04, 0.11093E-01,
- A-0.55041E-04, 0.55200E+04, 0.55300E+04,
- A 0.93954E+01, 0.21952E+00, 0.13366E-01,-0.57474E-04, 0.98104E-02,
- A-0.46605E-04, 0.55300E+04, 0.55400E+04/
- DATA ((ACR(K,J),K=1,8),J= 49, 56) /
- A 0.42252E+01, 0.19874E+00, 0.16633E-01,-0.71210E-04, 0.13350E-01,
- A-0.60705E-04, 0.55400E+04, 0.55500E+04,
- A 0.62656E+01, 0.26354E+00, 0.98363E-02,-0.95486E-05, 0.79542E-02,
- A-0.24062E-04, 0.55500E+04, 0.55600E+04,
- A 0.16378E+01, 0.16463E+00, 0.13976E-01,-0.83427E-05, 0.12806E-01,
- A-0.35710E-04, 0.55600E+04, 0.55700E+04,
- A 0.19767E+01, 0.27227E+00, 0.14721E-01,-0.26094E-04, 0.12774E-01,
- A-0.45522E-04, 0.55700E+04, 0.55800E+04,
- A 0.58600E+00, 0.20958E+00, 0.12874E-01, 0.39258E-04, 0.11964E-01,
- A-0.15397E-04, 0.55800E+04, 0.55900E+04,
- A 0.73058E+00, 0.24104E+00, 0.25170E-01,-0.98784E-04, 0.21222E-01,
- A-0.85036E-04, 0.55900E+04, 0.56000E+04,
- A 0.13668E+01, 0.20354E+00, 0.74600E-02,-0.54501E-05, 0.10036E-01,
- A-0.27451E-04, 0.56000E+04, 0.56100E+04,
- A 0.70170E+00, 0.14013E+00, 0.54963E-02, 0.12171E-04, 0.10386E-01,
- A-0.57235E-05, 0.56100E+04, 0.56200E+04/
- DATA ((ACR(K,J),K=1,8),J= 57, 64) /
- A 0.97806E+00, 0.19171E+00, 0.21812E-02, 0.16431E-04, 0.66588E-02,
- A 0.95186E-05, 0.56200E+04, 0.56300E+04,
- A 0.29391E+00, 0.23855E+00, 0.90316E-02, 0.23604E-04, 0.12635E-01,
- A-0.66897E-05, 0.56300E+04, 0.56400E+04,
- A 0.15354E+00, 0.15176E+00, 0.57073E-02, 0.20000E-04, 0.14561E-01,
- A-0.40698E-05, 0.56400E+04, 0.56500E+04,
- A 0.80730E-01, 0.28405E+00, 0.14753E-01, 0.34390E-04, 0.18447E-01,
- A-0.17750E-04, 0.56500E+04, 0.56600E+04,
- A 0.86381E+00, 0.14813E+00, 0.29607E-02,-0.20586E-04, 0.28212E-02,
- A-0.12594E-04, 0.56600E+04, 0.56700E+04,
- A 0.22599E+00, 0.16383E+00, 0.84407E-02,-0.32709E-04, 0.11049E-01,
- A-0.16279E-04, 0.56700E+04, 0.56800E+04,
- A 0.30594E-02, 0.17069E+00, 0.34284E-01,-0.10113E-03, 0.35042E-01,
- A-0.11247E-03, 0.56800E+04, 0.56900E+04,
- A 0.38291E+00, 0.16459E+00, 0.96772E-02,-0.43054E-04, 0.87884E-02,
- A-0.32862E-04, 0.56900E+04, 0.57000E+04/
- DATA ((ACR(K,J),K=1,8),J= 65, 72) /
- A 0.17817E+00, 0.65371E-01, 0.44945E-02,-0.26954E-04, 0.44075E-02,
- A 0.71895E-06, 0.57000E+04, 0.57100E+04,
- A 0.73272E-02, 0.32673E+00, 0.18605E-01,-0.36631E-04, 0.21288E-01,
- A-0.50040E-04, 0.57100E+04, 0.57200E+04,
- A 0.33773E+00, 0.13375E+00, 0.60665E-02,-0.30734E-04, 0.46922E-02,
- A-0.25584E-04, 0.57200E+04, 0.57300E+04,
- A 0.83205E-01, 0.58895E-01, 0.83229E-02,-0.42023E-04, 0.99661E-02,
- A-0.29590E-04, 0.57300E+04, 0.57400E+04,
- A 0.17960E+00, 0.12050E+00, 0.65668E-02,-0.34750E-04, 0.44110E-02,
- A-0.27489E-04, 0.57400E+04, 0.57500E+04,
- A 0.74406E-01, 0.16592E+00, 0.12426E-01,-0.44049E-04, 0.12086E-01,
- A-0.48157E-04, 0.57500E+04, 0.57600E+04,
- A 0.29803E-01, 0.65159E-01, 0.11506E-01,-0.54589E-04, 0.12823E-01,
- A-0.51753E-04, 0.57600E+04, 0.57700E+04,
- A 0.13400E+00, 0.79723E-01, 0.11174E-01,-0.54130E-04, 0.10639E-01,
- A-0.47462E-04, 0.57700E+04, 0.57800E+04/
- DATA ((ACR(K,J),K=1,8),J= 73, 80) /
- A 0.27397E-01, 0.11303E+00, 0.70869E-02,-0.85837E-05, 0.87642E-02,
- A-0.24197E-04, 0.57800E+04, 0.57900E+04,
- A 0.48130E-01, 0.15280E+00, 0.17121E-01,-0.68541E-04, 0.16166E-01,
- A-0.71739E-04, 0.57900E+04, 0.58000E+04,
- A 0.98878E-01, 0.11702E+00, 0.11647E-01,-0.54757E-04, 0.95467E-02,
- A-0.49145E-04, 0.58000E+04, 0.58100E+04,
- A 0.11937E-02, 0.11746E+00, 0.29514E-01,-0.11780E-03, 0.26592E-01,
- A-0.10438E-03, 0.58100E+04, 0.58200E+04,
- A 0.21084E-01, 0.41603E-01, 0.18136E-01,-0.83736E-04, 0.16620E-01,
- A-0.75802E-04, 0.58200E+04, 0.58300E+04,
- A 0.41859E-01, 0.10038E+00, 0.11698E-01,-0.51084E-04, 0.91292E-02,
- A-0.38447E-04, 0.58300E+04, 0.58400E+04,
- A 0.42835E-02, 0.54158E-01, 0.20564E-01,-0.79064E-04, 0.16849E-01,
- A-0.61318E-04, 0.58400E+04, 0.58500E+04,
- A 0.39742E-01, 0.14212E+00, 0.15543E-01,-0.65164E-04, 0.12937E-01,
- A-0.60213E-04, 0.58500E+04, 0.58600E+04/
- DATA ((ACR(K,J),K=1,8),J= 81, 88) /
- A 0.44465E-02, 0.13575E+00, 0.18218E-01,-0.61185E-04, 0.17472E-01,
- A-0.61811E-04, 0.58600E+04, 0.58700E+04,
- A 0.13183E-01, 0.84879E-01, 0.18786E-01,-0.75902E-04, 0.15030E-01,
- A-0.67738E-04, 0.58700E+04, 0.58800E+04,
- A 0.36488E-02, 0.86695E-01, 0.23765E-01,-0.76455E-04, 0.19459E-01,
- A-0.60338E-04, 0.58800E+04, 0.58900E+04,
- A 0.18172E-01, 0.13595E+00, 0.16681E-01,-0.54016E-04, 0.14894E-01,
- A-0.60543E-04, 0.58900E+04, 0.59000E+04,
- A 0.24118E-02, 0.72933E-01, 0.25664E-01,-0.96848E-04, 0.26465E-01,
- A-0.10476E-03, 0.59000E+04, 0.59100E+04,
- A 0.14940E-01, 0.12070E+00, 0.17582E-01,-0.68945E-04, 0.16946E-01,
- A-0.69945E-04, 0.59100E+04, 0.59200E+04,
- A 0.14531E-02, 0.81478E-01, 0.25650E-01,-0.56688E-04, 0.20849E-01,
- A-0.52418E-04, 0.59200E+04, 0.59300E+04,
- A 0.40570E-02, 0.64725E-01, 0.24344E-01,-0.10574E-03, 0.21209E-01,
- A-0.92148E-04, 0.59300E+04, 0.59400E+04/
- DATA ((ACR(K,J),K=1,8),J= 89, 96) /
- A 0.59362E-03, 0.52682E-01, 0.23362E-01,-0.81930E-04, 0.18570E-01,
- A-0.76269E-04, 0.59400E+04, 0.59500E+04,
- A 0.21418E-02, 0.75485E-01, 0.23733E-01,-0.80625E-04, 0.21119E-01,
- A-0.85514E-04, 0.59500E+04, 0.59600E+04,
- A 0.33439E-02, 0.12209E+00, 0.22556E-01,-0.89730E-04, 0.19031E-01,
- A-0.85459E-04, 0.59600E+04, 0.59700E+04,
- A 0.14641E-02, 0.13608E+00, 0.15568E-01, 0.37809E-05, 0.16030E-01,
- A-0.29177E-04, 0.59700E+04, 0.59800E+04,
- A 0.63999E-03, 0.94011E-01, 0.27455E-01,-0.39873E-04, 0.19599E-01,
- A-0.36883E-04, 0.59800E+04, 0.59900E+04,
- A 0.13405E-02, 0.90254E-01, 0.29576E-01,-0.11767E-03, 0.26759E-01,
- A-0.11158E-03, 0.59900E+04, 0.60000E+04,
- A 0.17604E-02, 0.17547E+00, 0.17851E-01,-0.64948E-04, 0.16287E-01,
- A-0.56437E-04, 0.60000E+04, 0.60100E+04,
- A 0.11569E-02, 0.13348E+00, 0.26563E-01,-0.87926E-04, 0.23528E-01,
- A-0.91174E-04, 0.60100E+04, 0.60200E+04/
- DATA ((ACR(K,J),K=1,8),J= 97,104) /
- A 0.28575E-03, 0.78833E-01, 0.19053E-01,-0.18306E-04, 0.18303E-01,
- A-0.51186E-04, 0.60200E+04, 0.60300E+04,
- A 0.87532E-03, 0.16112E+00, 0.22556E-01,-0.33852E-04, 0.21206E-01,
- A-0.64336E-04, 0.60300E+04, 0.60400E+04,
- A 0.48531E-03, 0.54398E-01, 0.22035E-01,-0.97698E-04, 0.19943E-01,
- A-0.89334E-04, 0.60400E+04, 0.60500E+04,
- A 0.42083E-03, 0.13305E+00, 0.11783E-01, 0.60192E-04, 0.11910E-01,
- A 0.70965E-05, 0.60500E+04, 0.60600E+04,
- A 0.31283E-03, 0.10974E+00, 0.24828E-01,-0.35695E-04, 0.21926E-01,
- A-0.61020E-04, 0.60600E+04, 0.60700E+04,
- A 0.16917E-02, 0.14682E+00, 0.23913E-02, 0.19370E-04, 0.28143E-02,
- A 0.10914E-04, 0.60700E+04, 0.60800E+04,
- A 0.24107E-03, 0.56225E-01, 0.19103E-01,-0.58306E-05, 0.23050E-01,
- A-0.46373E-04, 0.60800E+04, 0.60900E+04,
- A 0.44079E-03, 0.73062E-01, 0.78845E-02,-0.38279E-04, 0.64841E-02,
- A-0.25252E-04, 0.60900E+04, 0.61000E+04/
- DATA ((ACR(K,J),K=1,8),J=105,112) /
- A 0.17156E-03, 0.84470E-01, 0.10336E-01, 0.10341E-03, 0.85994E-02,
- A 0.43979E-04, 0.61000E+04, 0.61100E+04,
- A 0.15736E-03, 0.47359E-01, 0.20348E-01,-0.31590E-04, 0.24132E-01,
- A-0.56992E-04, 0.61100E+04, 0.61200E+04,
- A 0.10666E-02, 0.13835E+00, 0.61165E-02,-0.87157E-05, 0.71462E-02,
- A-0.15000E-04, 0.61200E+04, 0.61300E+04,
- A 0.41402E-04, 0.71564E-01, 0.14541E-01,-0.30661E-04, 0.13703E-01,
- A-0.32448E-04, 0.61300E+04, 0.61400E+04,
- A 0.16673E-04, 0.33602E-01, 0.19118E-01,-0.88866E-04, 0.16523E-01,
- A-0.83641E-04, 0.61400E+04, 0.61500E+04,
- A 0.45173E-03, 0.19416E+00, 0.81406E-02,-0.46697E-05, 0.96975E-02,
- A-0.27594E-04, 0.61500E+04, 0.61600E+04,
- A 0.84192E-04, 0.84800E-01, 0.68868E-02, 0.20465E-04, 0.65557E-02,
- A-0.39158E-05, 0.61600E+04, 0.61700E+04,
- A 0.19983E-03, 0.34955E-01, 0.13243E-01,-0.48483E-04, 0.14163E-01,
- A-0.48663E-04, 0.61700E+04, 0.61800E+04/
- DATA ((ACR(K,J),K=1,8),J=113,120) /
- A 0.56540E-03, 0.92508E-01, 0.32982E-02,-0.28242E-06, 0.23537E-02,
- A-0.11797E-04, 0.61800E+04, 0.61900E+04,
- A 0.26602E-03, 0.14864E+00,-0.35881E-02, 0.84292E-05,-0.64288E-02,
- A 0.11323E-04, 0.61900E+04, 0.62000E+04,
- A 0.66332E-03, 0.82351E-01, 0.40475E-04,-0.91191E-05,-0.13832E-02,
- A-0.74330E-06, 0.62000E+04, 0.62100E+04,
- A 0.50890E-03, 0.13947E+00, 0.33620E-02,-0.31112E-05, 0.40780E-03,
- A 0.86176E-06, 0.62100E+04, 0.62200E+04,
- A 0.12815E-03, 0.87906E-01, 0.12262E-01,-0.40572E-04, 0.12020E-01,
- A-0.49984E-04, 0.62200E+04, 0.62300E+04,
- A 0.12854E-03, 0.12035E+00, 0.25735E-02,-0.15152E-04,-0.25291E-03,
- A-0.13133E-04, 0.62300E+04, 0.62400E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.62400E+04, 0.62500E+04,
- A 0.38748E-03, 0.88892E-01, 0.70553E-02,-0.29374E-04, 0.61982E-02,
- A-0.31937E-04, 0.62500E+04, 0.62600E+04/
- DATA ((ACR(K,J),K=1,8),J=121,128) /
- A 0.16711E-03, 0.96035E-01, 0.13535E-01,-0.59830E-04, 0.11956E-01,
- A-0.57292E-04, 0.62600E+04, 0.62700E+04,
- A 0.51664E-03, 0.11783E+00, 0.86933E-02,-0.27481E-04, 0.70865E-02,
- A-0.28728E-04, 0.62700E+04, 0.62800E+04,
- A 0.16130E-02, 0.21378E+00, 0.34321E-02,-0.15373E-04, 0.28098E-02,
- A-0.87169E-05, 0.62800E+04, 0.62900E+04,
- A 0.11040E-03, 0.50270E-01, 0.11461E-01,-0.52791E-04, 0.10667E-01,
- A-0.50501E-04, 0.62900E+04, 0.63000E+04,
- A 0.22339E-02, 0.16944E+00, 0.43566E-02,-0.18834E-04, 0.25925E-02,
- A-0.17523E-04, 0.63000E+04, 0.63100E+04,
- A 0.70293E-03, 0.10055E+00, 0.86229E-02,-0.35378E-04, 0.57065E-02,
- A-0.32557E-04, 0.63100E+04, 0.63200E+04,
- A 0.28050E-03, 0.12764E+00, 0.56648E-02, 0.74065E-04, 0.85368E-02,
- A 0.17469E-04, 0.63200E+04, 0.63300E+04,
- A 0.62308E-03, 0.89292E-01, 0.10110E-01,-0.28113E-04, 0.10994E-01,
- A-0.39797E-04, 0.63300E+04, 0.63400E+04/
- DATA ((ACR(K,J),K=1,8),J=129,136) /
- A 0.49924E-03, 0.15704E+00, 0.14233E-01,-0.53536E-04, 0.11904E-01,
- A-0.53159E-04, 0.63400E+04, 0.63500E+04,
- A 0.45485E-03, 0.22060E+00, 0.45598E-02,-0.21706E-05, 0.40803E-02,
- A-0.19834E-04, 0.63500E+04, 0.63600E+04,
- A 0.44859E-03, 0.31977E+00, 0.15688E-01,-0.30431E-04, 0.12918E-01,
- A-0.48166E-04, 0.63600E+04, 0.63700E+04,
- A 0.27811E-03, 0.13882E+00, 0.11781E-01,-0.20096E-04, 0.11797E-01,
- A-0.23760E-04, 0.63700E+04, 0.63800E+04,
- A 0.86844E-03, 0.25690E+00, 0.11839E-01,-0.64540E-05, 0.97827E-02,
- A-0.29934E-04, 0.63800E+04, 0.63900E+04,
- A 0.84205E-03, 0.26741E+00, 0.10125E-01,-0.92493E-05, 0.95070E-02,
- A-0.26314E-04, 0.63900E+04, 0.64000E+04,
- A 0.16976E-02, 0.15422E+00, 0.95094E-02, 0.19053E-04, 0.10682E-01,
- A-0.79536E-05, 0.64000E+04, 0.64100E+04,
- A 0.47975E-03, 0.94260E-01, 0.11121E-01,-0.47922E-04, 0.93837E-02,
- A-0.41295E-04, 0.64100E+04, 0.64200E+04/
- DATA ((ACR(K,J),K=1,8),J=137,144) /
- A 0.52022E-03, 0.16038E+00, 0.17528E-01,-0.37366E-04, 0.19737E-01,
- A-0.61655E-04, 0.64200E+04, 0.64300E+04,
- A 0.82574E-03, 0.16899E+00, 0.16228E-01,-0.57574E-04, 0.14443E-01,
- A-0.62197E-04, 0.64300E+04, 0.64400E+04,
- A 0.21296E-02, 0.24095E+00, 0.18574E-01,-0.57065E-04, 0.18731E-01,
- A-0.66716E-04, 0.64400E+04, 0.64500E+04,
- A 0.26201E-03, 0.11418E+00, 0.21012E-01,-0.67706E-04, 0.19337E-01,
- A-0.69411E-04, 0.64500E+04, 0.64600E+04,
- A 0.26631E-02, 0.29606E+00, 0.94001E-02, 0.32264E-04, 0.92032E-02,
- A-0.92228E-05, 0.64600E+04, 0.64700E+04,
- A 0.25496E-02, 0.13950E+00, 0.21960E-01,-0.91558E-04, 0.19725E-01,
- A-0.78434E-04, 0.64700E+04, 0.64800E+04,
- A 0.30217E-02, 0.24286E+00, 0.21221E-01,-0.49207E-04, 0.17707E-01,
- A-0.56279E-04, 0.64800E+04, 0.64900E+04,
- A 0.25925E-02, 0.22189E+00, 0.11972E-01,-0.35111E-04, 0.11532E-01,
- A-0.34767E-04, 0.64900E+04, 0.65000E+04/
- DATA ((ACR(K,J),K=1,8),J=145,152) /
- A 0.36908E-02, 0.17271E+00, 0.17079E-01,-0.62898E-04, 0.18276E-01,
- A-0.69468E-04, 0.65000E+04, 0.65100E+04,
- A 0.58412E-02, 0.27765E+00, 0.21239E-01,-0.82779E-04, 0.19328E-01,
- A-0.79739E-04, 0.65100E+04, 0.65200E+04,
- A 0.10097E-02, 0.36424E+00, 0.14201E-01, 0.14574E-04, 0.14137E-01,
- A-0.25464E-04, 0.65200E+04, 0.65300E+04,
- A 0.15531E-01, 0.36032E+00, 0.15962E-01,-0.55747E-04, 0.13807E-01,
- A-0.54878E-04, 0.65300E+04, 0.65400E+04,
- A 0.21827E-01, 0.16998E+00, 0.12887E-01,-0.53561E-04, 0.13686E-01,
- A-0.48168E-04, 0.65400E+04, 0.65500E+04,
- A 0.25524E-01, 0.44895E+00, 0.14216E-01,-0.31158E-04, 0.13867E-01,
- A-0.46536E-04, 0.65500E+04, 0.65600E+04,
- A 0.46252E-02, 0.14687E+00, 0.17426E-01,-0.71751E-04, 0.18048E-01,
- A-0.65015E-04, 0.65600E+04, 0.65700E+04,
- A 0.22064E-01, 0.27000E+00, 0.15309E-01,-0.58062E-04, 0.16735E-01,
- A-0.61409E-04, 0.65700E+04, 0.65800E+04/
- DATA ((ACR(K,J),K=1,8),J=153,160) /
- A 0.42593E-01, 0.28026E+00, 0.15131E-01,-0.60674E-04, 0.14017E-01,
- A-0.52957E-04, 0.65800E+04, 0.65900E+04,
- A 0.39072E-01, 0.14924E+00, 0.94106E-02,-0.40098E-04, 0.98574E-02,
- A-0.29732E-04, 0.65900E+04, 0.66000E+04,
- A 0.54808E-01, 0.37702E+00, 0.12248E-01,-0.21938E-04, 0.12749E-01,
- A-0.34984E-04, 0.66000E+04, 0.66100E+04,
- A 0.36908E-01, 0.16694E+00, 0.11325E-01,-0.41839E-04, 0.12369E-01,
- A-0.23977E-04, 0.66100E+04, 0.66200E+04,
- A 0.49128E-02, 0.31728E+00, 0.16178E-01,-0.87947E-05, 0.19507E-01,
- A-0.36007E-04, 0.66200E+04, 0.66300E+04,
- A 0.27419E-01, 0.23237E+00, 0.22088E-01,-0.48300E-04, 0.21397E-01,
- A-0.58784E-04, 0.66300E+04, 0.66400E+04,
- A 0.98830E-01, 0.17529E+00, 0.67054E-02,-0.28981E-04, 0.98183E-02,
- A-0.21164E-04, 0.66400E+04, 0.66500E+04,
- A 0.97673E-01, 0.26249E+00, 0.15514E-01,-0.20366E-04, 0.18041E-01,
- A-0.47825E-04, 0.66500E+04, 0.66600E+04/
- DATA ((ACR(K,J),K=1,8),J=161,168) /
- A 0.29234E-01, 0.39325E+00, 0.11043E-01, 0.69627E-05, 0.14995E-01,
- A-0.28824E-04, 0.66600E+04, 0.66700E+04,
- A 0.73358E-01, 0.26517E+00, 0.22641E-01,-0.90861E-04, 0.20163E-01,
- A-0.81954E-04, 0.66700E+04, 0.66800E+04,
- A 0.28609E+00, 0.27963E+00, 0.12746E-01,-0.31154E-04, 0.11122E-01,
- A-0.29019E-04, 0.66800E+04, 0.66900E+04,
- A 0.15415E+00, 0.42581E+00, 0.92965E-02,-0.16598E-04, 0.10866E-01,
- A-0.30004E-04, 0.66900E+04, 0.67000E+04,
- A 0.50854E+00, 0.25928E+00, 0.11806E-01,-0.49706E-04, 0.11950E-01,
- A-0.44564E-04, 0.67000E+04, 0.67100E+04,
- A 0.54248E+00, 0.29219E+00, 0.86655E-02,-0.10780E-04, 0.96072E-02,
- A-0.20886E-04, 0.67100E+04, 0.67200E+04,
- A 0.11829E+01, 0.23177E+00, 0.84264E-02,-0.36835E-04, 0.78692E-02,
- A-0.31650E-04, 0.67200E+04, 0.67300E+04,
- A 0.66413E+00, 0.22652E+00, 0.96388E-02,-0.45502E-04, 0.94036E-02,
- A-0.42748E-04, 0.67300E+04, 0.67400E+04/
- DATA ((ACR(K,J),K=1,8),J=169,176) /
- A 0.20327E+01, 0.20210E+00, 0.51382E-02,-0.24524E-04, 0.66314E-02,
- A-0.16094E-04, 0.67400E+04, 0.67500E+04,
- A 0.28639E+01, 0.19875E+00, 0.48057E-02,-0.28413E-04, 0.44821E-02,
- A-0.21857E-04, 0.67500E+04, 0.67600E+04,
- A 0.23946E+01, 0.11681E+00, 0.25701E-02,-0.20163E-04, 0.26061E-02,
- A-0.16227E-04, 0.67600E+04, 0.67700E+04,
- A 0.23817E+01, 0.35427E+00, 0.39392E-02,-0.17028E-04, 0.49290E-02,
- A-0.18773E-04, 0.67700E+04, 0.67800E+04,
- A 0.16155E+01, 0.23449E+00, 0.73307E-03,-0.73637E-05, 0.16677E-02,
- A-0.25528E-05, 0.67800E+04, 0.67900E+04,
- A 0.83481E+01, 0.29624E+00, 0.21533E-03,-0.89091E-05,-0.19540E-03,
- A-0.69089E-05, 0.67900E+04, 0.68000E+04,
- A 0.39018E+01, 0.13513E+00,-0.20430E-02, 0.47043E-05, 0.19385E-02,
- A 0.15453E-04, 0.68000E+04, 0.68100E+04,
- A 0.33911E+01, 0.24098E+00,-0.20667E-03,-0.63633E-05,-0.16731E-03,
- A-0.22699E-05, 0.68100E+04, 0.68200E+04/
- DATA ((ACR(K,J),K=1,8),J=177,184) /
- A 0.28798E+01, 0.25576E+00,-0.21074E-02, 0.54951E-05,-0.21041E-02,
- A 0.82116E-05, 0.68200E+04, 0.68300E+04,
- A 0.27426E+01, 0.15514E+00,-0.29057E-02, 0.12463E-04, 0.17031E-02,
- A 0.19513E-04, 0.68300E+04, 0.68400E+04,
- A 0.32308E+01, 0.18429E+00,-0.36805E-02, 0.13879E-04, 0.38114E-03,
- A 0.21110E-04, 0.68400E+04, 0.68500E+04,
- A 0.82936E+00, 0.18124E+00, 0.41735E-03, 0.14616E-05, 0.25198E-02,
- A-0.13464E-05, 0.68500E+04, 0.68600E+04,
- A 0.35131E+00, 0.41646E+00, 0.15485E-01,-0.46470E-04, 0.13388E-01,
- A-0.36422E-04, 0.68600E+04, 0.68700E+04,
- A 0.46683E+01, 0.15324E+00,-0.42182E-02, 0.90437E-05,-0.13329E-02,
- A 0.18577E-04, 0.68700E+04, 0.68800E+04,
- A 0.28455E+01, 0.17389E+00,-0.22094E-02, 0.14962E-05,-0.15658E-02,
- A 0.97344E-05, 0.68800E+04, 0.68900E+04,
- A 0.88724E+01, 0.42657E+00,-0.18169E-02, 0.81105E-05,-0.65751E-03,
- A 0.12321E-04, 0.68900E+04, 0.69000E+04/
- DATA ((ACR(K,J),K=1,8),J=185,192) /
- A 0.81595E+00, 0.32457E+00, 0.28256E-02, 0.12078E-05, 0.59842E-02,
- A 0.15430E-05, 0.69000E+04, 0.69100E+04,
- A 0.12055E+02, 0.40831E+00,-0.11236E-02, 0.22677E-05,-0.81590E-03,
- A 0.17078E-05, 0.69100E+04, 0.69200E+04,
- A 0.14005E+01, 0.42874E+00, 0.73135E-02,-0.16167E-04, 0.82389E-02,
- A-0.18229E-04, 0.69200E+04, 0.69300E+04,
- A 0.94914E+01, 0.29494E+00,-0.33677E-02, 0.11156E-04,-0.16627E-02,
- A 0.16279E-04, 0.69300E+04, 0.69400E+04,
- A 0.37310E+01, 0.44986E+00, 0.84547E-02,-0.30585E-04, 0.10303E-01,
- A-0.35351E-04, 0.69400E+04, 0.69500E+04,
- A 0.79581E+01, 0.26975E+00,-0.14256E-02, 0.41782E-05, 0.13886E-03,
- A 0.75184E-05, 0.69500E+04, 0.69600E+04,
- A 0.34090E+01, 0.33223E+00,-0.83550E-03, 0.99982E-05, 0.32926E-02,
- A 0.79289E-05, 0.69600E+04, 0.69700E+04,
- A 0.69934E+01, 0.49549E+00, 0.34299E-02, 0.13868E-04, 0.73246E-02,
- A-0.11357E-04, 0.69700E+04, 0.69800E+04/
- DATA ((ACR(K,J),K=1,8),J=193,200) /
- A 0.84288E+01, 0.29235E+00, 0.12515E-02,-0.66867E-05, 0.22057E-02,
- A-0.72817E-05, 0.69800E+04, 0.69900E+04,
- A 0.37771E+01, 0.34377E+00, 0.66839E-02, 0.14877E-04, 0.99074E-02,
- A-0.24726E-04, 0.69900E+04, 0.70000E+04,
- A 0.59358E+01, 0.44520E+00, 0.47532E-02,-0.11726E-04, 0.57444E-02,
- A-0.16773E-04, 0.70000E+04, 0.70100E+04,
- A 0.36653E+01, 0.46656E+00, 0.75924E-02,-0.14859E-04, 0.85483E-02,
- A-0.27681E-04, 0.70100E+04, 0.70200E+04,
- A 0.76230E+01, 0.59145E+00, 0.10355E-01,-0.23877E-04, 0.84375E-02,
- A-0.35191E-04, 0.70200E+04, 0.70300E+04,
- A 0.29785E+01, 0.49616E+00, 0.95318E-02,-0.28442E-04, 0.94393E-02,
- A-0.37258E-04, 0.70300E+04, 0.70400E+04,
- A 0.11489E+02, 0.44630E+00, 0.12118E-01,-0.47464E-04, 0.89557E-02,
- A-0.43911E-04, 0.70400E+04, 0.70500E+04,
- A 0.57070E+01, 0.30579E+00, 0.12792E-01,-0.58480E-04, 0.11943E-01,
- A-0.49567E-04, 0.70500E+04, 0.70600E+04/
- DATA ((ACR(K,J),K=1,8),J=201,208) /
- A 0.43341E+01, 0.45254E+00, 0.87102E-02,-0.36977E-04, 0.62554E-02,
- A-0.29678E-04, 0.70600E+04, 0.70700E+04,
- A 0.18415E+02, 0.27325E+00, 0.11045E-01,-0.55565E-04, 0.87811E-02,
- A-0.46635E-04, 0.70700E+04, 0.70800E+04,
- A 0.92559E+01, 0.37006E+00, 0.93565E-02,-0.46638E-04, 0.86230E-02,
- A-0.41694E-04, 0.70800E+04, 0.70900E+04,
- A 0.34399E+02, 0.26960E+00, 0.73722E-02,-0.40297E-04, 0.56690E-02,
- A-0.34996E-04, 0.70900E+04, 0.71000E+04,
- A 0.27357E+02, 0.28185E+00, 0.41186E-02,-0.24656E-04, 0.15333E-02,
- A-0.14846E-04, 0.71000E+04, 0.71100E+04,
- A 0.59142E+02, 0.21235E+00, 0.42020E-02,-0.28298E-04, 0.26623E-02,
- A-0.22726E-04, 0.71100E+04, 0.71200E+04,
- A 0.87290E+01, 0.31743E+00, 0.50667E-02,-0.29057E-04, 0.50497E-02,
- A-0.24756E-04, 0.71200E+04, 0.71300E+04,
- A 0.66372E+02, 0.25989E+00, 0.21171E-02,-0.20010E-04, 0.98789E-03,
- A-0.15045E-04, 0.71300E+04, 0.71400E+04/
- DATA ((ACR(K,J),K=1,8),J=209,216) /
- A 0.40254E+02, 0.15248E+00, 0.64299E-03,-0.13315E-04,-0.67491E-03,
- A-0.29781E-06, 0.71400E+04, 0.71500E+04,
- A 0.15991E+01, 0.45391E+00, 0.83749E-02,-0.12893E-04, 0.11832E-01,
- A-0.23466E-04, 0.71500E+04, 0.71600E+04,
- A 0.13840E+03, 0.26185E+00,-0.92005E-03,-0.75058E-05,-0.22766E-02,
- A 0.12031E-05, 0.71600E+04, 0.71700E+04,
- A 0.13476E+02, 0.27958E+00, 0.17108E-03, 0.28602E-05, 0.19003E-02,
- A 0.22534E-05, 0.71700E+04, 0.71800E+04,
- A 0.95960E+02, 0.20582E+00,-0.22657E-02, 0.13812E-05,-0.15351E-02,
- A 0.88048E-05, 0.71800E+04, 0.71900E+04,
- A 0.14690E+02, 0.24608E+00, 0.78336E-03, 0.15252E-04, 0.37390E-02,
- A-0.69180E-05, 0.71900E+04, 0.72000E+04,
- A 0.55288E+02, 0.25862E+00,-0.13454E-02, 0.99116E-05,-0.88298E-03,
- A 0.17423E-05, 0.72000E+04, 0.72100E+04,
- A 0.48147E+02, 0.25568E+00, 0.49183E-02,-0.23894E-04, 0.37052E-02,
- A-0.22724E-04, 0.72100E+04, 0.72200E+04/
- DATA ((ACR(K,J),K=1,8),J=217,224) /
- A 0.40415E+02, 0.20103E+00,-0.24259E-02, 0.75229E-05,-0.17525E-02,
- A 0.26464E-05, 0.72200E+04, 0.72300E+04,
- A 0.10984E+03, 0.33075E+00, 0.75622E-03,-0.12921E-04,-0.11898E-02,
- A-0.59125E-05, 0.72300E+04, 0.72400E+04,
- A 0.13002E+03, 0.18533E+00,-0.33239E-02, 0.18173E-05,-0.46918E-02,
- A 0.81132E-05, 0.72400E+04, 0.72500E+04,
- A 0.24491E+02, 0.30951E+00,-0.26793E-02, 0.58588E-05,-0.21237E-02,
- A 0.48000E-05, 0.72500E+04, 0.72600E+04,
- A 0.19609E+02, 0.15703E+00,-0.25743E-02, 0.28622E-05,-0.16255E-02,
- A 0.44422E-05, 0.72600E+04, 0.72700E+04,
- A 0.17072E+02, 0.26657E+00,-0.29675E-02, 0.12335E-04,-0.69569E-03,
- A 0.77744E-05, 0.72700E+04, 0.72800E+04,
- A 0.25243E+02, 0.38981E+00,-0.23499E-02, 0.72438E-05,-0.15088E-02,
- A 0.40106E-05, 0.72800E+04, 0.72900E+04,
- A 0.13962E+03, 0.16193E+00,-0.50479E-02, 0.92690E-05,-0.53276E-02,
- A 0.15266E-04, 0.72900E+04, 0.73000E+04/
- DATA ((ACR(K,J),K=1,8),J=225,232) /
- A 0.86705E+02, 0.11761E+00,-0.37859E-02, 0.44125E-05,-0.30774E-02,
- A 0.10295E-04, 0.73000E+04, 0.73100E+04,
- A 0.66458E+02, 0.22506E+00,-0.31197E-02, 0.21671E-05,-0.39420E-02,
- A 0.56842E-05, 0.73100E+04, 0.73200E+04,
- A 0.14742E+03, 0.24611E+00,-0.23854E-02,-0.14496E-05,-0.34285E-02,
- A 0.12805E-05, 0.73200E+04, 0.73300E+04,
- A 0.87291E+02, 0.22526E+00,-0.11541E-03,-0.96671E-05,-0.90479E-03,
- A-0.78703E-05, 0.73300E+04, 0.73400E+04,
- A 0.15536E+03, 0.27754E+00,-0.23889E-03,-0.88494E-05,-0.10570E-02,
- A-0.73024E-05, 0.73400E+04, 0.73500E+04,
- A 0.60800E+02, 0.21141E+00, 0.22877E-02,-0.18250E-04, 0.21735E-02,
- A-0.16084E-04, 0.73500E+04, 0.73600E+04,
- A 0.65821E+02, 0.31454E+00, 0.35102E-02,-0.23014E-04, 0.21764E-02,
- A-0.19960E-04, 0.73600E+04, 0.73700E+04,
- A 0.39314E+02, 0.19452E+00, 0.45708E-02,-0.28104E-04, 0.35157E-02,
- A-0.23151E-04, 0.73700E+04, 0.73800E+04/
- DATA ((ACR(K,J),K=1,8),J=233,240) /
- A 0.33606E+02, 0.30823E+00, 0.71777E-02,-0.36203E-04, 0.52193E-02,
- A-0.25338E-04, 0.73800E+04, 0.73900E+04,
- A 0.28667E+02, 0.22825E+00, 0.67636E-02,-0.34040E-04, 0.62429E-02,
- A-0.35213E-04, 0.73900E+04, 0.74000E+04,
- A 0.95852E+01, 0.30280E+00, 0.12912E-01,-0.53899E-04, 0.10209E-01,
- A-0.44318E-04, 0.74000E+04, 0.74100E+04,
- A 0.75752E+01, 0.36859E+00, 0.10673E-01,-0.15633E-04, 0.94631E-02,
- A-0.33501E-04, 0.74100E+04, 0.74200E+04,
- A 0.33599E+01, 0.31735E+00, 0.15132E-01,-0.50575E-04, 0.13714E-01,
- A-0.48842E-04, 0.74200E+04, 0.74300E+04,
- A 0.14210E+01, 0.51877E+00, 0.10564E-01, 0.27798E-04, 0.10716E-01,
- A-0.16576E-04, 0.74300E+04, 0.74400E+04,
- A 0.13357E+01, 0.34135E+00, 0.55009E-02, 0.29075E-04, 0.10731E-01,
- A-0.14716E-04, 0.74400E+04, 0.74500E+04,
- A 0.90292E+00, 0.35257E+00, 0.64439E-02, 0.43621E-05, 0.93295E-02,
- A-0.79773E-05, 0.74500E+04, 0.74600E+04/
- DATA ((ACR(K,J),K=1,8),J=241,248) /
- A 0.47321E+00, 0.34413E+00, 0.75753E-02, 0.31118E-04, 0.88184E-02,
- A 0.23143E-05, 0.74600E+04, 0.74700E+04,
- A 0.14277E+00, 0.63005E+00, 0.15765E-01,-0.38760E-04, 0.14284E-01,
- A-0.41344E-04, 0.74700E+04, 0.74800E+04,
- A 0.84751E+00, 0.92347E-01, 0.44433E-02,-0.23373E-04, 0.65281E-02,
- A-0.20814E-04, 0.74800E+04, 0.74900E+04,
- A 0.34962E+00, 0.49346E+00, 0.39951E-03, 0.28230E-05, 0.21242E-02,
- A-0.60580E-06, 0.74900E+04, 0.75000E+04,
- A 0.66686E+00, 0.32642E+00, 0.15242E-02,-0.87602E-05, 0.33093E-02,
- A-0.62194E-05, 0.75000E+04, 0.75100E+04,
- A 0.70380E+00, 0.37824E+00, 0.40335E-02,-0.17144E-04, 0.58765E-02,
- A-0.18563E-04, 0.75100E+04, 0.75200E+04,
- A 0.44176E+00, 0.28314E+00, 0.41609E-02,-0.21428E-04, 0.52238E-02,
- A-0.21647E-04, 0.75200E+04, 0.75300E+04,
- A 0.23859E+00, 0.25536E+00, 0.46384E-02,-0.31469E-05, 0.56672E-02,
- A-0.13268E-04, 0.75300E+04, 0.75400E+04/
- DATA ((ACR(K,J),K=1,8),J=249,256) /
- A 0.12451E+00, 0.19246E+00, 0.31730E-02,-0.16450E-04, 0.46905E-02,
- A-0.19919E-04, 0.75400E+04, 0.75500E+04,
- A 0.40142E+00, 0.25660E+00, 0.68917E-02,-0.22016E-04, 0.42921E-02,
- A-0.22533E-04, 0.75500E+04, 0.75600E+04,
- A 0.24593E+00, 0.28458E+00, 0.35670E-03,-0.90627E-06, 0.67869E-03,
- A-0.67459E-05, 0.75600E+04, 0.75700E+04,
- A 0.41189E+00, 0.23957E+00,-0.27548E-03, 0.35660E-05, 0.39542E-03,
- A-0.38485E-05, 0.75700E+04, 0.75800E+04,
- A 0.20341E+00, 0.14662E+00, 0.60408E-02,-0.35022E-04, 0.43079E-02,
- A-0.31225E-04, 0.75800E+04, 0.75900E+04,
- A 0.18188E+00, 0.14279E+00, 0.12602E-02,-0.30833E-05, 0.33638E-02,
- A-0.13417E-04, 0.75900E+04, 0.76000E+04,
- A 0.17978E+00, 0.35062E+00, 0.50440E-02,-0.31112E-05, 0.36165E-02,
- A-0.13022E-04, 0.76000E+04, 0.76100E+04,
- A 0.31504E+00, 0.16627E+00, 0.32650E-02,-0.13345E-04, 0.40505E-02,
- A-0.20124E-04, 0.76100E+04, 0.76200E+04/
-C
-C
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.h b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.h
deleted file mode 100644
index 05b51f5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA2.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_wava2_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.P b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.P
deleted file mode 100644
index 0c343ef..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int wava3_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.c b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.c
deleted file mode 100644
index f5a3682..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.c
+++ /dev/null
@@ -1,343 +0,0 @@
-/* WAVA3.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< SUBROUTINE WAVA3(a,inu) >*/
-/* Subroutine */ int wava3_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { .092641,.26739,
- .0074828,-3.6295e-5,.0065918,-3.6255e-5,7620.,7630.,.24311,.19859,
- .0029686,-1.983e-5,.0023399,-1.6807e-5,7630.,7640.,.12025,.11463,
- .005982,-3.2695e-5,.00555,-2.817e-5,7640.,7650.,.13658,.26836,
- .0072502,-2.1381e-5,.0073061,-3.0405e-5,7650.,7660.,.10472,.25523,
- .0079597,-3.2676e-5,.0058214,-3.1308e-5,7660.,7670.,.099714,
- .25003,.012338,-5.6896e-5,.010569,-5.1734e-5,7670.,7680.,.058366,
- .22207,.011694,-5.1427e-5,.011909,-4.905e-5,7680.,7690.,.035387,
- .17329,.016862,-7.5246e-5,.013502,-6.3311e-5,7690.,7700.,.036568,
- .21034,.0081374,-2.4226e-5,.0063861,-2.5253e-5,7700.,7710.,
- .027597,.33962,.017925,-6.8929e-5,.015283,-6.6807e-5,7710.,7720.,
- .010316,.41286,.019917,-4.8503e-5,.017007,-5.8717e-5,7720.,7730.,
- .0081553,.2556,.021997,-8.8437e-5,.020546,-8.5162e-5,7730.,7740.,
- .015975,.21315,.0071481,3.1142e-6,.010474,-1.3461e-5,7740.,7750.,
- .013868,.24329,.0094502,-1.8614e-5,.010702,-3.4118e-5,7750.,7760.,
- .0077141,.22964,.011399,-1.0108e-5,.012776,-3.7304e-5,7760.,7770.,
- .0021739,.34321,.019734,-5.1909e-5,.019414,-7.3442e-5,7770.,7780.,
- .004572,.18176,.010354,-1.7399e-5,.010948,-3.5358e-5,7780.,7790.,
- .0011295,.18695,.014646,4.036e-5,.015891,-2.0174e-5,7790.,7800.,
- .0033023,.15293,.013409,-5.3371e-5,.011569,-4.7548e-5,7800.,7810.,
- .0052016,.24404,.012628,-3.6541e-5,.01295,-3.8949e-5,7810.,7820.,
- 1.133e-4,.081552,.01837,-7.7312e-5,.014695,-7.0503e-5,7820.,7830.,
- .0054995,.14297,.0065566,-2.675e-5,.0045262,-2.0113e-5,7830.,
- 7840.,3.1204e-4,.10156,.0088239,-3.8012e-5,.0082963,-3.4068e-5,
- 7840.,7850.,.0019523,.20697,.02048,-6.0781e-5,.018775,-6.9708e-5,
- 7850.,7860.,.0024757,.09698,.011294,-4.651e-5,.0098378,-4.2459e-5,
- 7860.,7870.,2.7171e-4,.14226,.017805,-6.9496e-5,.015097,
- -7.0161e-5,7870.,7880.,.0012276,.10591,.014194,-5.4065e-5,.010612,
- -5.2507e-5,7880.,7890.,4.1923e-4,.13358,.01696,-4.4025e-5,.015096,
- -5.8421e-5,7890.,7900.,3.3444e-4,.13345,.011391,-1.184e-6,.012153,
- -2.3277e-5,7900.,7910.,.0013058,.21624,.016927,-6.9213e-5,.013941,
- -6.3876e-5,7910.,7920.,1.1995e-4,.075585,.013632,-4.0157e-5,
- .013768,-5.0661e-5,7920.,7930.,.0011716,.18257,.013971,-5.1254e-5,
- .012846,-5.6651e-5,7930.,7940.,5.052e-4,.076356,.012922,
- -2.0119e-5,.013988,-4.2851e-5,7940.,7950.,2.4426e-4,.1253,.010339,
- -4.3784e-6,.010719,-3.665e-5,7950.,7960.,5.414e-4,.072313,.019259,
- -8.565e-5,.01592,-7.9109e-5,7960.,7970.,7.6374e-4,.068718,.018517,
- -6.7616e-5,.016394,-7.3663e-5,7970.,7980.,2.5606e-4,.077067,
- .016494,-7.5101e-5,.01272,-6.6656e-5,7980.,7990.,1.5654e-4,.11158,
- .010695,-4.0866e-5,.0081416,-4.363e-5,7990.,8e3,4.1929e-5,.090036,
- .024363,-1.0641e-4,.021621,-1.0231e-4,8e3,8010.,7.3175e-4,.10587,
- .016949,-6.039e-5,.015862,-7.1742e-5,8010.,8020.,8.008e-5,.030563,
- .019843,-9.1766e-5,.017086,-8.6214e-5,8020.,8030.,2.4279e-5,
- .056812,.022624,-9.9621e-5,.020301,-9.7332e-5,8030.,8040.,
- 1.8866e-5,.052834,.012394,-4.4016e-5,.0093994,-4.6495e-5,8040.,
- 8050.,9.7669e-4,.089736,.0062407,-2.5133e-5,.005852,-2.556e-5,
- 8050.,8060.,.0011471,.029409,.02069,-9.511e-5,.018237,-9.0575e-5,
- 8060.,8070.,7.7566e-4,.12509,.012079,-5.088e-5,.010725,-5.2092e-5,
- 8070.,8080.,.003103,.073291,.016462,-7.3991e-5,.015208,-6.8516e-5,
- 8080.,8090.,.001251,.11933,.014229,-6.2251e-5,.011779,-6.099e-5,
- 8090.,8100.,.001499,.13662,.0065894,-8.557e-6,.0083512,-1.9086e-5,
- 8100.,8110.,.0020532,.10298,.015994,-6.5137e-5,.014131,-6.2564e-5,
- 8110.,8120.,.0017448,.067598,.014749,-6.293e-5,.013541,-5.9773e-5,
- 8120.,8130.,.0015039,.12946,.018816,-5.0022e-5,.017492,-5.9638e-5,
- 8130.,8140.,.0046638,.1035,.0062829,-3.4218e-5,.0036814,
- -2.5761e-5,8140.,8150.,.0010319,.066367,.0071775,-2.8782e-5,
- .010631,-2.023e-5,8150.,8160.,.0046436,.096269,.015527,-6.1225e-5,
- .015071,-6.3728e-5,8160.,8170.,.0057048,.15352,.0032127,
- -1.6432e-5,.0035091,-1.2277e-5,8170.,8180.,.011525,.15916,
- .0083892,-1.0637e-5,.0067801,-2.5386e-5,8180.,8190.,.0074791,
- .18295,.0048041,-2.0748e-5,.0044988,-1.7162e-5,8190.,8200.,
- .011502,.15897,.0099626,-1.7036e-5,.010154,-3.5251e-5,8200.,8210.,
- .032694,.12981,.0016557,1.4661e-5,.0035153,1.0696e-6,8210.,8220.,
- .007492,.12913,.0071536,-2.9018e-5,.0069835,-3.3541e-5,8220.,
- 8230.,.047072,.21294,.0094858,-4.2608e-5,.0075764,-3.9014e-5,
- 8230.,8240.,.017525,.16065,.0024969,-1.0727e-6,.0020059,-5.349e-6,
- 8240.,8250.,.057547,.16256,.0053651,-3.1796e-5,.0032968,
- -2.8841e-5,8250.,8260.,.043086,.11299,.0044958,-2.4017e-5,
- .0036046,-2.0674e-5,8260.,8270.,.10051,.15621,.0034824,-2.1289e-5,
- .0019497,-2.0952e-5,8270.,8280.,.073404,.16218,.0017977,
- -1.3976e-5,1.5476e-4,-6.5472e-6,8280.,8290.,.08523,.11256,
- 2.9553e-4,-9.9833e-6,-1.2813e-4,-4.6912e-6,8290.,8300.,.1818,
- .19506,-.0018708,-2.1763e-6,-.0027279,2.3065e-6,8300.,8310.,
- .030278,.1674,.0055443,-2.3707e-5,.0051615,-2.3428e-5,8310.,8320.,
- .11462,.20492,-.0010659,-9.4245e-7,-.0022118,4.2668e-6,8320.,
- 8330.,.099231,.19833,-3.5775e-4,-3.838e-6,-.0025607,-3.6304e-7,
- 8330.,8340.,.099199,.18538,-.0023017,6.6528e-6,-.0023339,
- 6.1821e-6,8340.,8350.,.059379,.077001,-.004912,1.4256e-5,
- -.0025954,3.0037e-5,8350.,8360.,.044008,.20401,.0014099,
- -5.1535e-6,.0019118,-1.6011e-6,8360.,8370.,.090539,.08076,
- -.0035383,1.3223e-5,-.0028138,1.3001e-5,8370.,8380.,.014326,.1809,
- .0059988,7.331e-7,.0076689,-1.7035e-5,8380.,8390.,.046664,.1734,
- -8.7294e-4,1.0561e-5,3.1024e-4,2.7678e-6,8390.,8400.,.10171,
- .16186,-.0017894,-2.8284e-6,-.0040067,-1.4559e-7,8400.,8410.,
- .30821,.25107,-.0032854,5.8502e-6,-.0036961,9.3802e-6,8410.,8420.,
- .063199,.24205,-.0011158,3.7207e-6,-.0013624,5.0058e-6,8420.,
- 8430.,.099053,.16171,-.0031354,1.4107e-5,-4.1612e-4,9.0938e-6,
- 8430.,8440.,.18961,.16575,-.0036207,4.9966e-6,-.0041916,8.2034e-6,
- 8440.,8450.,.17725,.21239,-7.7569e-4,-2.0023e-6,-4.9558e-4,
- -5.1555e-6,8450.,8460.,.27753,.33354,9.0668e-4,-7.5987e-6,
- 1.7804e-4,-6.4173e-6,8460.,8470.,.14123,.13127,-1.2234e-4,
- -8.3078e-6,-4.417e-4,-4.4651e-6,8470.,8480.,.093615,.12378,
- -.0022473,6.446e-6,-.0023144,2.1685e-5,8480.,8490.,.20449,.23918,
- .0011176,-3.6761e-6,.0018,-5.0232e-6,8490.,8500.,.089489,.16701,
- .0039531,-6.6471e-6,.0051864,4.9471e-6,8500.,8510.,.23406,.40842,
- .0043192,-1.5846e-5,.0044314,-2.3087e-5,8510.,8520.,.14482,.32325,
- .0041937,5.6608e-6,.0044945,3.2348e-7,8520.,8530.,.064432,.26897,
- .0065578,-1.2568e-5,.007607,-2.0405e-5,8530.,8540.,.057924,.33321,
- .0091543,9.8398e-6,.0086335,-1.8156e-5,8540.,8550.,.10794,.40047,
- .010231,1.2947e-5,.010777,-2.3286e-5,8550.,8560.,.081479,.27006,
- .010378,-1.4458e-5,.0096133,-3.1676e-5,8560.,8570.,.21551,.37486,
- .015271,-4.3087e-5,.011958,-4.878e-5,8570.,8580.,.1197,.42176,
- .011436,-2.7559e-5,.012343,-4.8358e-5,8580.,8590.,.1194,.26383,
- .017025,-6.3908e-5,.012895,-5.3752e-5,8590.,8600.,.35022,.24839,
- .015312,-6.7204e-5,.011349,-5.723e-5,8600.,8610.,.43429,.32749,
- .014111,-6.1858e-5,.0111,-5.2145e-5,8610.,8620.,.649,.17775,
- .012005,-5.7105e-5,.0091759,-4.5878e-5,8620.,8630.,.62583,.2559,
- .011761,-5.603e-5,.0090211,-4.8934e-5,8630.,8640.,.3575,.36475,
- .010308,-4.3411e-5,.0088328,-3.9083e-5,8640.,8650.,1.1133,.13506,
- .0080358,-4.3334e-5,.0068137,-3.9624e-5,8650.,8660.,1.3387,.31665,
- .0078192,-3.8805e-5,.0049558,-3.3187e-5,8660.,8670.,2.7498,.16946,
- .0049939,-3.0487e-5,.0031261,-2.5786e-5,8670.,8680.,2.4398,.19531,
- .0044402,-2.9193e-5,.0022819,-2.5054e-5,8680.,8690.,3.0993,.19328,
- .0022645,-1.9507e-5,5.743e-4,-1.6236e-5,8690.,8700.,1.2713,.17117,
- .0010656,-1.5353e-5,-6.2313e-4,-8.8734e-6,8700.,8710.,3.1649,
- .17696,.0010942,-1.5108e-5,-8.8648e-4,-8.7401e-6,8710.,8720.,
- 3.1075,.11851,-9.4639e-5,-9.2083e-6,-3.6777e-4,-6.4753e-6,8720.,
- 8730.,7.0407,.19201,-.0021209,-3.6303e-6,-.0046941,1.0611e-6,
- 8730.,8740.,1.2454,.17319,-.0019955,-1.4314e-6,-.0021532,
- -5.8242e-7,8740.,8750.,.83443,.1489,-.0031702,3.926e-6,-.0022958,
- 3.8306e-6,8750.,8760.,3.6918,.11215,-.0041869,4.6517e-6,-.0065413,
- 1.1815e-5,8760.,8770.,.93114,.16247,8.6756e-4,-4.9431e-6,
- 6.7174e-4,-4.722e-6,8770.,8780.,2.5247,.085808,-.004835,9.227e-6,
- -.0060959,1.2095e-5,8780.,8790.,.53387,.20115,-.0016551,7.1592e-6,
- -5.3003e-4,9.888e-7,8790.,8800.,6.6475,.28681,-.0018744,3.5629e-6,
- -.0015672,2.949e-6,8800.,8810.,13.449,.46562,.0010817,-8.1158e-6,
- 4.4146e-4,-9.6568e-6,8810.,8820.,2.3072,.29228,.0018897,4.5344e-6,
- .0023839,-8.7201e-6,8820.,8830.,.38221,.2037,4.9695e-4,6.5162e-6,
- .0021768,3.2622e-6,8830.,8840.,1.1249,.14056,-.0038223,1.6534e-5,
- 2.8673e-4,1.9579e-5,8840.,8850.,4.8272,.098788,-.005013,9.0675e-6,
- -.005665,1.3142e-5,8850.,8860.,7.562,.14568,-.0043638,5.3176e-6,
- -.0063322,1.074e-5,8860.,8870.,2.4448,.13155,-.002417,-2.7983e-7,
- -.0034547,3.4138e-6,8870.,8880.,8.0582,.19292,-.0028534,
- -8.0358e-7,-.0051566,3.9531e-6,8880.,8890.,5.7451,.18168,
- -5.0148e-4,-9.5111e-6,-.0019306,-6.0172e-6,8890.,8900.,7.0547,
- .19464,-.0010049,-7.4656e-6,-.0025268,-4.3122e-6,8900.,8910.,
- 5.4039,.15719,.0016933,-1.8412e-5,5.6219e-4,-1.6145e-5,8910.,
- 8920.,3.5653,.19909,.0033052,-2.2923e-5,5.191e-4,-1.4385e-5,8920.,
- 8930.,2.9405,.30828,.0050674,-2.9116e-5,.0027789,-2.3443e-5,8930.,
- 8940.,1.9927,.15337,.0040525,-2.4922e-5,.0021726,-1.8937e-5,8940.,
- 8950.,3.1994,.39446,.0066249,-3.4407e-5,.0041704,-2.98e-5,8950.,
- 8960.,1.0124,.3051,.0095861,-4.26e-5,.007142,-3.9564e-5,8960.,
- 8970.,.55494,.31765,.012349,-5.0981e-5,.0084323,-3.9712e-5,8970.,
- 8980.,.62962,.34745,.0068325,-6.7823e-6,.006612,-2.2655e-5,8980.,
- 8990.,.39155,.17506,.014525,-6.4228e-5,.012836,-5.854e-5,8990.,
- 9e3,.29338,.19531,.014921,-5.7995e-5,.012214,-4.6413e-5,9e3,9010.,
- .117,.34769,.013815,-1.4315e-5,.011336,-3.2553e-5,9010.,9020.,
- .16223,.35064,.0089364,2.1825e-5,.010979,-2.503e-5,9020.,9030.,
- .021742,.25837,.021279,-6.9818e-5,.017662,-6.8568e-5,9030.,9040.,
- .056078,.27822,.012493,1.8431e-5,.013824,-2.7676e-5,9040.,9050.,
- .050045,.24927,.0025877,4.5316e-5,.0058234,9.7906e-6,9050.,9060.,
- .074041,.1688,.0031016,-1.2901e-5,.0031503,-9.5272e-6,9060.,9070.,
- .035788,.25671,.0055742,-3.3952e-6,.0067343,-9.7505e-6,9070.,
- 9080.,.057922,.23584,.0022587,-9.2537e-6,.0015239,-7.0447e-6,
- 9080.,9090.,.033597,.22977,.0030824,-1.1293e-5,.0033924,
- -5.6695e-6,9090.,9100.,.070807,.38398,.0033167,-8.2422e-6,.002352,
- -1.7904e-5,9100.,9110.,.007025,.18707,.008814,-2.739e-5,.008404,
- -2.9932e-5,9110.,9120.,.069936,.25325,.0019174,-1.1175e-5,.001279,
- -1.4168e-5,9120.,9130.,.052387,.30346,9.3076e-4,5.2452e-6,
- .0021985,-1.2943e-5,9130.,9140.,.015639,.086845,.0072697,
- -3.4455e-5,.0051914,-3.2991e-5,9140.,9150.,.091802,.17031,
- -5.4142e-4,2.9713e-6,-.0010743,-2.3472e-6,9150.,9160.,.011168,
- .099076,.005622,-3.0231e-5,.0047197,-2.3663e-5,9160.,9170.,
- .048371,.1417,-5.9903e-4,-4.5058e-6,-.0011328,9.448e-7,9170.,
- 9180.,.018874,.15366,.0042614,-2.6279e-5,8.9656e-4,-2.0193e-5,
- 9180.,9190.,.016112,.12245,.0061155,-3.4764e-5,.0039418,-3.163e-5,
- 9190.,9200.,.065149,.14651,.0013623,-1.4483e-5,1.0964e-5,
- -1.1796e-5,9200.,9210.,.011149,.21185,.0041991,-1.3718e-5,
- .0030892,-2.0781e-5,9210.,9220.,.031171,.12753,.0045967,
- -2.5041e-5,.0038974,-2.7102e-5,9220.,9230.,4.0823e-4,.030563,
- .0247,-1.1119e-4,.021942,-1.0564e-4,9230.,9240.,.012977,.16914,
- .0055548,-2.5826e-5,.0033619,-2.2004e-5,9240.,9250.,.020816,
- .10896,.0066122,-3.4731e-5,.0052212,-3.4187e-5,9250.,9260.,
- .0030262,.11279,.010901,-5.2842e-5,.0086449,-4.5417e-5,9260.,
- 9270.,.0033673,.11423,.010899,-3.4157e-5,.0080866,-3.8803e-5,
- 9270.,9280.,.017536,.16659,.0083759,-4.46e-5,.005112,-3.6571e-5,
- 9280.,9290.,8.1624e-4,.16081,.015916,-6.3848e-5,.013156,
- -6.3084e-5,9290.,9300.,.011313,.13057,.011852,-5.8953e-5,.0088407,
- -5.1297e-5,9300.,9310.,.0015081,.069261,.0041982,-7.5358e-6,
- .0057185,-1.6686e-5,9310.,9320.,.0045702,.1342,.013143,-5.4394e-5,
- .01017,-5.2848e-5,9320.,9330.,7.5901e-4,.16485,.017789,-4.1657e-5,
- .014232,-5.1704e-5,9330.,9340.,.0023315,.14437,.015924,-7.3095e-5,
- .012997,-6.7546e-5,9340.,9350.,.0024761,.13342,.017367,-6.5679e-5,
- .014468,-6.2866e-5,9350.,9360.,.0011255,.11586,.016217,-5.9242e-5,
- .013009,-5.7135e-5,9360.,9370.,4.6631e-4,.031553,.0231,-1.0479e-4,
- .020342,-9.924e-5,9370.,9380.,5.8334e-4,.14333,.014779,-4.7773e-5,
- .011406,-5.2169e-5,9380.,9390.,0.,0.,0.,0.,0.,0.,9390.,9400.,
- 4.6492e-4,.064777,.012413,-2.9282e-5,.013774,-4.9601e-5,9400.,
- 9410.,4.0085e-4,.030483,.010823,-5.5684e-5,.0080667,-5.0135e-5,
- 9410.,9420.,6.5363e-5,.053752,.0231,-1.0479e-4,.020342,-9.924e-5,
- 9420.,9430.,2.4119e-5,.027609,.03515,-1.5299e-4,.032393,
- -1.4744e-4,9430.,9440.,1.3718e-4,.04682,.01614,-5.2767e-5,.016119,
- -6.7234e-5,9440.,9450.,5.534e-5,.046161,.016226,-4.5595e-5,
- .015446,-5.9474e-5,9450.,9460.,0.,0.,0.,0.,0.,0.,9460.,9470.,
- 5.7428e-5,.063455,.017377,-4.729e-5,.016614,-6.2421e-5,9470.,
- 9480.,3.8406e-5,.031771,.0046608,-3.1037e-5,.0019036,-2.5485e-5,
- 9480.,9490.,0.,0.,0.,0.,0.,0.,9490.,9500.,0.,0.,0.,0.,0.,0.,9500.,
- 9510.,0.,0.,0.,0.,0.,0.,9510.,9520.,0.,0.,0.,0.,0.,0.,9520.,9530.,
- 0.,0.,0.,0.,0.,0.,9530.,9540.,0.,0.,0.,0.,0.,0.,9540.,9550.,0.,0.,
- 0.,0.,0.,0.,9550.,9560.,0.,0.,0.,0.,0.,0.,9560.,9570.,0.,0.,0.,0.,
- 0.,0.,9570.,9580.,0.,0.,0.,0.,0.,0.,9580.,9590.,0.,0.,0.,0.,0.,0.,
- 9590.,9600.,2.4903e-5,.024969,.025759,-1.1543e-4,.023002,
- -1.0988e-4,9600.,9610.,4.8976e-5,.034814,.004643,-3.0966e-5,
- .0018858,-2.5414e-5,9610.,9620.,6.6257e-5,.052528,.020662,
- -9.5042e-5,.017905,-8.949e-5,9620.,9630.,0.,0.,0.,0.,0.,0.,9630.,
- 9640.,0.,0.,0.,0.,0.,0.,9640.,9650.,1.9405e-4,.0908,.012893,
- -4.7907e-5,.008999,-4.3597e-5,9650.,9660.,0.,0.,0.,0.,0.,0.,9660.,
- 9670.,3.5455e-4,.062906,.01178,-5.9514e-5,.0090225,-5.3961e-5,
- 9670.,9680.,0.,0.,0.,0.,0.,0.,9680.,9690.,7.3346e-4,.095357,
- .0080776,-3.5126e-5,.0063761,-3.2075e-5,9690.,9700.,2.6888e-4,
- .062321,.01172,-5.6759e-5,.0098726,-5.5238e-5,9700.,9710.,
- 4.8999e-4,.10498,.0062757,-3.2864e-5,.0049464,-3.2626e-5,9710.,
- 9720.,.0010507,.071841,.0058574,-3.2015e-5,.0039666,-3.1106e-5,
- 9720.,9730.,.0025494,.10376,.0030444,-2.0413e-5,.0012384,
- -1.8532e-5,9730.,9740.,.0013019,.13387,.0019451,-1.3612e-5,
- -8.9213e-6,-1.3158e-5,9740.,9750.,6.2353e-4,.078233,7.0756e-4,
- -1.519e-5,-.0020739,-9.6993e-6,9750.,9760.,.0056535,.1971,
- 1.6071e-4,-5.7489e-6,-.0014878,-4.8238e-6,9760.,9770.,.001909,
- .041123,-.0019069,-4.7662e-6,-.004664,7.8558e-7,9770.,9780.,
- .0017619,.13162,-.0022639,7.7041e-7,-.0049756,4.3744e-6,9780.,
- 9790.,5.7144e-4,.099432,.0040501,-1.5471e-5,.0018591,-1.7658e-5,
- 9790.,9800.,.0038209,.13329,-.0046298,6.3691e-6,-.0077028,
- 1.2343e-5,9800.,9810.,.0017147,.079407,4.5502e-4,-1.3444e-5,
- -.0030355,-5.7728e-6,9810.,9820.,.0012145,.072418,2.5064e-4,
- -5.9535e-6,3.3766e-6,-6.2695e-6,9820.,9830.,.0011057,.13614,
- .0018444,-3.817e-6,-6.6263e-4,-6.1358e-6,9830.,9840.,.0021971,
- .053016,-.0048189,9.7527e-6,-.0060279,1.7406e-5,9840.,9850.,
- .0019933,.17956,-.0010152,7.3537e-6,-.0033437,4.3246e-6,9850.,
- 9860.,8.7206e-4,.047547,-.0041578,4.2375e-6,-.007361,1.0687e-5,
- 9860.,9870.,.0029909,.069285,-.0047147,1.0991e-5,-.0056075,
- 1.5292e-5,9870.,9880.,.001506,.17429,.003529,-1.5241e-5,9.8555e-4,
- -1.3485e-5,9880.,9890.,.0024655,.15187,-9.6328e-4,3.0116e-6,
- -.002379,6.199e-6,9890.,9900.,.0081762,.23349,-.0033911,1.8786e-6,
- -.0060119,6.563e-6,9900.,9910.,.0035952,.09571,-.002565,6.9268e-6,
- -.0025302,8.7846e-6,9910.,9920.,.004102,.16571,-8.2348e-4,
- 4.4729e-6,5.0555e-5,-1.3431e-6,9920.,9930.,.0015616,.12559,
- -.001712,9.5737e-7,-.002329,2.8914e-6,9930.,9940.,.0029147,.1397,
- .0017969,-5.9773e-6,.0040034,-1.6529e-5,9940.,9950.,.0021013,
- .0985,.0026194,-1.629e-5,.0026829,-1.8333e-5,9950.,9960.,.0025118,
- .078548,-.0011652,-3.1932e-6,-.0017647,-3.6546e-6,9960.,9970.,
- .0054922,.27847,.0022288,-6.2983e-6,.0011941,-9.9545e-6,9970.,
- 9980.,.0077074,.24403,.0023234,-1.7376e-5,9.1247e-4,-1.6357e-5,
- 9980.,9990.,.0015919,.17498,.004876,-1.537e-5,.0030207,-2.2305e-5,
- 9990.,1e4,.0023052,.12024,.0026434,3.4883e-6,.0053038,-7.4735e-6,
- 1e4,10010.,9.9075e-4,.060379,.0048519,-2.4596e-5,.0039231,
- -2.671e-5,10010.,10020.,.0026106,.15994,.0057076,-1.5791e-5,
- .0063216,-2.8717e-5,10020.,10030.,9.0384e-4,.21421,.0073532,
- -1.3113e-6,.009333,-1.9232e-5,10030.,10040.,.0020888,.22211,
- .0093854,-1.1006e-5,.0077851,-1.8919e-5,10040.,10050.,.0010096,
- .093543,.0051826,-2.8108e-5,.0041051,-2.3759e-5,10050.,10060.,
- .0022561,.25885,.013532,-1.4879e-5,.011628,-3.4287e-5,10060.,
- 10070.,.0077191,.28721,.0097888,-1.1073e-5,.008539,-2.4771e-5,
- 10070.,10080.,.0034195,.20647,.0074823,-2.1978e-5,.007444,
- -2.4751e-5,10080.,10090.,.0063694,.19871,.011877,-3.28e-5,.009567,
- -3.9672e-5,10090.,10100.,.0063072,.3731,.0047744,2.8648e-5,
- .006887,-8.4982e-6,10100.,10110.,.0010617,.15783,.019027,
- -3.7386e-5,.017346,-6.0605e-5,10110.,10120.,.016376,.34661,
- .014148,-4.8223e-5,.010187,-4.3401e-5,10120.,10130.,.0077156,
- .39174,.0071212,8.3584e-6,.0074196,-2.0778e-5,10130.,10140.,
- .0081991,.34376,.010657,-2.049e-5,.009186,-3.4657e-5,10140.,
- 10150.,.045748,.35631,.011031,-4.1938e-5,.0079877,-3.3077e-5,
- 10150.,10160.,.026803,.2161,.011739,-5.3624e-5,.010169,-5.0362e-5,
- 10160.,10170.,.061462,.24685,.008227,-3.1656e-5,.0077778,
- -3.1665e-5,10170.,10180. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-
-/* WATER VAPOR (7620 - 10160 CM-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* wava3_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.f b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.f
deleted file mode 100644
index de71310..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.f
+++ /dev/null
@@ -1,560 +0,0 @@
- SUBROUTINE WAVA3(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-C
-C WATER VAPOR (7620 - 10160 CM-1)
-C
- DATA ((ACR(K,J),K=1,8),J= 1, 8) /
- A 0.92641E-01, 0.26739E+00, 0.74828E-02,-0.36295E-04, 0.65918E-02,
- A-0.36255E-04, 0.76200E+04, 0.76300E+04,
- A 0.24311E+00, 0.19859E+00, 0.29686E-02,-0.19830E-04, 0.23399E-02,
- A-0.16807E-04, 0.76300E+04, 0.76400E+04,
- A 0.12025E+00, 0.11463E+00, 0.59820E-02,-0.32695E-04, 0.55500E-02,
- A-0.28170E-04, 0.76400E+04, 0.76500E+04,
- A 0.13658E+00, 0.26836E+00, 0.72502E-02,-0.21381E-04, 0.73061E-02,
- A-0.30405E-04, 0.76500E+04, 0.76600E+04,
- A 0.10472E+00, 0.25523E+00, 0.79597E-02,-0.32676E-04, 0.58214E-02,
- A-0.31308E-04, 0.76600E+04, 0.76700E+04,
- A 0.99714E-01, 0.25003E+00, 0.12338E-01,-0.56896E-04, 0.10569E-01,
- A-0.51734E-04, 0.76700E+04, 0.76800E+04,
- A 0.58366E-01, 0.22207E+00, 0.11694E-01,-0.51427E-04, 0.11909E-01,
- A-0.49050E-04, 0.76800E+04, 0.76900E+04,
- A 0.35387E-01, 0.17329E+00, 0.16862E-01,-0.75246E-04, 0.13502E-01,
- A-0.63311E-04, 0.76900E+04, 0.77000E+04/
- DATA ((ACR(K,J),K=1,8),J= 9, 16) /
- A 0.36568E-01, 0.21034E+00, 0.81374E-02,-0.24226E-04, 0.63861E-02,
- A-0.25253E-04, 0.77000E+04, 0.77100E+04,
- A 0.27597E-01, 0.33962E+00, 0.17925E-01,-0.68929E-04, 0.15283E-01,
- A-0.66807E-04, 0.77100E+04, 0.77200E+04,
- A 0.10316E-01, 0.41286E+00, 0.19917E-01,-0.48503E-04, 0.17007E-01,
- A-0.58717E-04, 0.77200E+04, 0.77300E+04,
- A 0.81553E-02, 0.25560E+00, 0.21997E-01,-0.88437E-04, 0.20546E-01,
- A-0.85162E-04, 0.77300E+04, 0.77400E+04,
- A 0.15975E-01, 0.21315E+00, 0.71481E-02, 0.31142E-05, 0.10474E-01,
- A-0.13461E-04, 0.77400E+04, 0.77500E+04,
- A 0.13868E-01, 0.24329E+00, 0.94502E-02,-0.18614E-04, 0.10702E-01,
- A-0.34118E-04, 0.77500E+04, 0.77600E+04,
- A 0.77141E-02, 0.22964E+00, 0.11399E-01,-0.10108E-04, 0.12776E-01,
- A-0.37304E-04, 0.77600E+04, 0.77700E+04,
- A 0.21739E-02, 0.34321E+00, 0.19734E-01,-0.51909E-04, 0.19414E-01,
- A-0.73442E-04, 0.77700E+04, 0.77800E+04/
- DATA ((ACR(K,J),K=1,8),J= 17, 24) /
- A 0.45720E-02, 0.18176E+00, 0.10354E-01,-0.17399E-04, 0.10948E-01,
- A-0.35358E-04, 0.77800E+04, 0.77900E+04,
- A 0.11295E-02, 0.18695E+00, 0.14646E-01, 0.40360E-04, 0.15891E-01,
- A-0.20174E-04, 0.77900E+04, 0.78000E+04,
- A 0.33023E-02, 0.15293E+00, 0.13409E-01,-0.53371E-04, 0.11569E-01,
- A-0.47548E-04, 0.78000E+04, 0.78100E+04,
- A 0.52016E-02, 0.24404E+00, 0.12628E-01,-0.36541E-04, 0.12950E-01,
- A-0.38949E-04, 0.78100E+04, 0.78200E+04,
- A 0.11330E-03, 0.81552E-01, 0.18370E-01,-0.77312E-04, 0.14695E-01,
- A-0.70503E-04, 0.78200E+04, 0.78300E+04,
- A 0.54995E-02, 0.14297E+00, 0.65566E-02,-0.26750E-04, 0.45262E-02,
- A-0.20113E-04, 0.78300E+04, 0.78400E+04,
- A 0.31204E-03, 0.10156E+00, 0.88239E-02,-0.38012E-04, 0.82963E-02,
- A-0.34068E-04, 0.78400E+04, 0.78500E+04,
- A 0.19523E-02, 0.20697E+00, 0.20480E-01,-0.60781E-04, 0.18775E-01,
- A-0.69708E-04, 0.78500E+04, 0.78600E+04/
- DATA ((ACR(K,J),K=1,8),J= 25, 32) /
- A 0.24757E-02, 0.96980E-01, 0.11294E-01,-0.46510E-04, 0.98378E-02,
- A-0.42459E-04, 0.78600E+04, 0.78700E+04,
- A 0.27171E-03, 0.14226E+00, 0.17805E-01,-0.69496E-04, 0.15097E-01,
- A-0.70161E-04, 0.78700E+04, 0.78800E+04,
- A 0.12276E-02, 0.10591E+00, 0.14194E-01,-0.54065E-04, 0.10612E-01,
- A-0.52507E-04, 0.78800E+04, 0.78900E+04,
- A 0.41923E-03, 0.13358E+00, 0.16960E-01,-0.44025E-04, 0.15096E-01,
- A-0.58421E-04, 0.78900E+04, 0.79000E+04,
- A 0.33444E-03, 0.13345E+00, 0.11391E-01,-0.11840E-05, 0.12153E-01,
- A-0.23277E-04, 0.79000E+04, 0.79100E+04,
- A 0.13058E-02, 0.21624E+00, 0.16927E-01,-0.69213E-04, 0.13941E-01,
- A-0.63876E-04, 0.79100E+04, 0.79200E+04,
- A 0.11995E-03, 0.75585E-01, 0.13632E-01,-0.40157E-04, 0.13768E-01,
- A-0.50661E-04, 0.79200E+04, 0.79300E+04,
- A 0.11716E-02, 0.18257E+00, 0.13971E-01,-0.51254E-04, 0.12846E-01,
- A-0.56651E-04, 0.79300E+04, 0.79400E+04/
- DATA ((ACR(K,J),K=1,8),J= 33, 40) /
- A 0.50520E-03, 0.76356E-01, 0.12922E-01,-0.20119E-04, 0.13988E-01,
- A-0.42851E-04, 0.79400E+04, 0.79500E+04,
- A 0.24426E-03, 0.12530E+00, 0.10339E-01,-0.43784E-05, 0.10719E-01,
- A-0.36650E-04, 0.79500E+04, 0.79600E+04,
- A 0.54140E-03, 0.72313E-01, 0.19259E-01,-0.85650E-04, 0.15920E-01,
- A-0.79109E-04, 0.79600E+04, 0.79700E+04,
- A 0.76374E-03, 0.68718E-01, 0.18517E-01,-0.67616E-04, 0.16394E-01,
- A-0.73663E-04, 0.79700E+04, 0.79800E+04,
- A 0.25606E-03, 0.77067E-01, 0.16494E-01,-0.75101E-04, 0.12720E-01,
- A-0.66656E-04, 0.79800E+04, 0.79900E+04,
- A 0.15654E-03, 0.11158E+00, 0.10695E-01,-0.40866E-04, 0.81416E-02,
- A-0.43630E-04, 0.79900E+04, 0.80000E+04,
- A 0.41929E-04, 0.90036E-01, 0.24363E-01,-0.10641E-03, 0.21621E-01,
- A-0.10231E-03, 0.80000E+04, 0.80100E+04,
- A 0.73175E-03, 0.10587E+00, 0.16949E-01,-0.60390E-04, 0.15862E-01,
- A-0.71742E-04, 0.80100E+04, 0.80200E+04/
- DATA ((ACR(K,J),K=1,8),J= 41, 48) /
- A 0.80080E-04, 0.30563E-01, 0.19843E-01,-0.91766E-04, 0.17086E-01,
- A-0.86214E-04, 0.80200E+04, 0.80300E+04,
- A 0.24279E-04, 0.56812E-01, 0.22624E-01,-0.99621E-04, 0.20301E-01,
- A-0.97332E-04, 0.80300E+04, 0.80400E+04,
- A 0.18866E-04, 0.52834E-01, 0.12394E-01,-0.44016E-04, 0.93994E-02,
- A-0.46495E-04, 0.80400E+04, 0.80500E+04,
- A 0.97669E-03, 0.89736E-01, 0.62407E-02,-0.25133E-04, 0.58520E-02,
- A-0.25560E-04, 0.80500E+04, 0.80600E+04,
- A 0.11471E-02, 0.29409E-01, 0.20690E-01,-0.95110E-04, 0.18237E-01,
- A-0.90575E-04, 0.80600E+04, 0.80700E+04,
- A 0.77566E-03, 0.12509E+00, 0.12079E-01,-0.50880E-04, 0.10725E-01,
- A-0.52092E-04, 0.80700E+04, 0.80800E+04,
- A 0.31030E-02, 0.73291E-01, 0.16462E-01,-0.73991E-04, 0.15208E-01,
- A-0.68516E-04, 0.80800E+04, 0.80900E+04,
- A 0.12510E-02, 0.11933E+00, 0.14229E-01,-0.62251E-04, 0.11779E-01,
- A-0.60990E-04, 0.80900E+04, 0.81000E+04/
- DATA ((ACR(K,J),K=1,8),J= 49, 56) /
- A 0.14990E-02, 0.13662E+00, 0.65894E-02,-0.85570E-05, 0.83512E-02,
- A-0.19086E-04, 0.81000E+04, 0.81100E+04,
- A 0.20532E-02, 0.10298E+00, 0.15994E-01,-0.65137E-04, 0.14131E-01,
- A-0.62564E-04, 0.81100E+04, 0.81200E+04,
- A 0.17448E-02, 0.67598E-01, 0.14749E-01,-0.62930E-04, 0.13541E-01,
- A-0.59773E-04, 0.81200E+04, 0.81300E+04,
- A 0.15039E-02, 0.12946E+00, 0.18816E-01,-0.50022E-04, 0.17492E-01,
- A-0.59638E-04, 0.81300E+04, 0.81400E+04,
- A 0.46638E-02, 0.10350E+00, 0.62829E-02,-0.34218E-04, 0.36814E-02,
- A-0.25761E-04, 0.81400E+04, 0.81500E+04,
- A 0.10319E-02, 0.66367E-01, 0.71775E-02,-0.28782E-04, 0.10631E-01,
- A-0.20230E-04, 0.81500E+04, 0.81600E+04,
- A 0.46436E-02, 0.96269E-01, 0.15527E-01,-0.61225E-04, 0.15071E-01,
- A-0.63728E-04, 0.81600E+04, 0.81700E+04,
- A 0.57048E-02, 0.15352E+00, 0.32127E-02,-0.16432E-04, 0.35091E-02,
- A-0.12277E-04, 0.81700E+04, 0.81800E+04/
- DATA ((ACR(K,J),K=1,8),J= 57, 64) /
- A 0.11525E-01, 0.15916E+00, 0.83892E-02,-0.10637E-04, 0.67801E-02,
- A-0.25386E-04, 0.81800E+04, 0.81900E+04,
- A 0.74791E-02, 0.18295E+00, 0.48041E-02,-0.20748E-04, 0.44988E-02,
- A-0.17162E-04, 0.81900E+04, 0.82000E+04,
- A 0.11502E-01, 0.15897E+00, 0.99626E-02,-0.17036E-04, 0.10154E-01,
- A-0.35251E-04, 0.82000E+04, 0.82100E+04,
- A 0.32694E-01, 0.12981E+00, 0.16557E-02, 0.14661E-04, 0.35153E-02,
- A 0.10696E-05, 0.82100E+04, 0.82200E+04,
- A 0.74920E-02, 0.12913E+00, 0.71536E-02,-0.29018E-04, 0.69835E-02,
- A-0.33541E-04, 0.82200E+04, 0.82300E+04,
- A 0.47072E-01, 0.21294E+00, 0.94858E-02,-0.42608E-04, 0.75764E-02,
- A-0.39014E-04, 0.82300E+04, 0.82400E+04,
- A 0.17525E-01, 0.16065E+00, 0.24969E-02,-0.10727E-05, 0.20059E-02,
- A-0.53490E-05, 0.82400E+04, 0.82500E+04,
- A 0.57547E-01, 0.16256E+00, 0.53651E-02,-0.31796E-04, 0.32968E-02,
- A-0.28841E-04, 0.82500E+04, 0.82600E+04/
- DATA ((ACR(K,J),K=1,8),J= 65, 72) /
- A 0.43086E-01, 0.11299E+00, 0.44958E-02,-0.24017E-04, 0.36046E-02,
- A-0.20674E-04, 0.82600E+04, 0.82700E+04,
- A 0.10051E+00, 0.15621E+00, 0.34824E-02,-0.21289E-04, 0.19497E-02,
- A-0.20952E-04, 0.82700E+04, 0.82800E+04,
- A 0.73404E-01, 0.16218E+00, 0.17977E-02,-0.13976E-04, 0.15476E-03,
- A-0.65472E-05, 0.82800E+04, 0.82900E+04,
- A 0.85230E-01, 0.11256E+00, 0.29553E-03,-0.99833E-05,-0.12813E-03,
- A-0.46912E-05, 0.82900E+04, 0.83000E+04,
- A 0.18180E+00, 0.19506E+00,-0.18708E-02,-0.21763E-05,-0.27279E-02,
- A 0.23065E-05, 0.83000E+04, 0.83100E+04,
- A 0.30278E-01, 0.16740E+00, 0.55443E-02,-0.23707E-04, 0.51615E-02,
- A-0.23428E-04, 0.83100E+04, 0.83200E+04,
- A 0.11462E+00, 0.20492E+00,-0.10659E-02,-0.94245E-06,-0.22118E-02,
- A 0.42668E-05, 0.83200E+04, 0.83300E+04,
- A 0.99231E-01, 0.19833E+00,-0.35775E-03,-0.38380E-05,-0.25607E-02,
- A-0.36304E-06, 0.83300E+04, 0.83400E+04/
- DATA ((ACR(K,J),K=1,8),J= 73, 80) /
- A 0.99199E-01, 0.18538E+00,-0.23017E-02, 0.66528E-05,-0.23339E-02,
- A 0.61821E-05, 0.83400E+04, 0.83500E+04,
- A 0.59379E-01, 0.77001E-01,-0.49120E-02, 0.14256E-04,-0.25954E-02,
- A 0.30037E-04, 0.83500E+04, 0.83600E+04,
- A 0.44008E-01, 0.20401E+00, 0.14099E-02,-0.51535E-05, 0.19118E-02,
- A-0.16011E-05, 0.83600E+04, 0.83700E+04,
- A 0.90539E-01, 0.80760E-01,-0.35383E-02, 0.13223E-04,-0.28138E-02,
- A 0.13001E-04, 0.83700E+04, 0.83800E+04,
- A 0.14326E-01, 0.18090E+00, 0.59988E-02, 0.73310E-06, 0.76689E-02,
- A-0.17035E-04, 0.83800E+04, 0.83900E+04,
- A 0.46664E-01, 0.17340E+00,-0.87294E-03, 0.10561E-04, 0.31024E-03,
- A 0.27678E-05, 0.83900E+04, 0.84000E+04,
- A 0.10171E+00, 0.16186E+00,-0.17894E-02,-0.28284E-05,-0.40067E-02,
- A-0.14559E-06, 0.84000E+04, 0.84100E+04,
- A 0.30821E+00, 0.25107E+00,-0.32854E-02, 0.58502E-05,-0.36961E-02,
- A 0.93802E-05, 0.84100E+04, 0.84200E+04/
- DATA ((ACR(K,J),K=1,8),J= 81, 88) /
- A 0.63199E-01, 0.24205E+00,-0.11158E-02, 0.37207E-05,-0.13624E-02,
- A 0.50058E-05, 0.84200E+04, 0.84300E+04,
- A 0.99053E-01, 0.16171E+00,-0.31354E-02, 0.14107E-04,-0.41612E-03,
- A 0.90938E-05, 0.84300E+04, 0.84400E+04,
- A 0.18961E+00, 0.16575E+00,-0.36207E-02, 0.49966E-05,-0.41916E-02,
- A 0.82034E-05, 0.84400E+04, 0.84500E+04,
- A 0.17725E+00, 0.21239E+00,-0.77569E-03,-0.20023E-05,-0.49558E-03,
- A-0.51555E-05, 0.84500E+04, 0.84600E+04,
- A 0.27753E+00, 0.33354E+00, 0.90668E-03,-0.75987E-05, 0.17804E-03,
- A-0.64173E-05, 0.84600E+04, 0.84700E+04,
- A 0.14123E+00, 0.13127E+00,-0.12234E-03,-0.83078E-05,-0.44170E-03,
- A-0.44651E-05, 0.84700E+04, 0.84800E+04,
- A 0.93615E-01, 0.12378E+00,-0.22473E-02, 0.64460E-05,-0.23144E-02,
- A 0.21685E-04, 0.84800E+04, 0.84900E+04,
- A 0.20449E+00, 0.23918E+00, 0.11176E-02,-0.36761E-05, 0.18000E-02,
- A-0.50232E-05, 0.84900E+04, 0.85000E+04/
- DATA ((ACR(K,J),K=1,8),J= 89, 96) /
- A 0.89489E-01, 0.16701E+00, 0.39531E-02,-0.66471E-05, 0.51864E-02,
- A 0.49471E-05, 0.85000E+04, 0.85100E+04,
- A 0.23406E+00, 0.40842E+00, 0.43192E-02,-0.15846E-04, 0.44314E-02,
- A-0.23087E-04, 0.85100E+04, 0.85200E+04,
- A 0.14482E+00, 0.32325E+00, 0.41937E-02, 0.56608E-05, 0.44945E-02,
- A 0.32348E-06, 0.85200E+04, 0.85300E+04,
- A 0.64432E-01, 0.26897E+00, 0.65578E-02,-0.12568E-04, 0.76070E-02,
- A-0.20405E-04, 0.85300E+04, 0.85400E+04,
- A 0.57924E-01, 0.33321E+00, 0.91543E-02, 0.98398E-05, 0.86335E-02,
- A-0.18156E-04, 0.85400E+04, 0.85500E+04,
- A 0.10794E+00, 0.40047E+00, 0.10231E-01, 0.12947E-04, 0.10777E-01,
- A-0.23286E-04, 0.85500E+04, 0.85600E+04,
- A 0.81479E-01, 0.27006E+00, 0.10378E-01,-0.14458E-04, 0.96133E-02,
- A-0.31676E-04, 0.85600E+04, 0.85700E+04,
- A 0.21551E+00, 0.37486E+00, 0.15271E-01,-0.43087E-04, 0.11958E-01,
- A-0.48780E-04, 0.85700E+04, 0.85800E+04/
- DATA ((ACR(K,J),K=1,8),J= 97,104) /
- A 0.11970E+00, 0.42176E+00, 0.11436E-01,-0.27559E-04, 0.12343E-01,
- A-0.48358E-04, 0.85800E+04, 0.85900E+04,
- A 0.11940E+00, 0.26383E+00, 0.17025E-01,-0.63908E-04, 0.12895E-01,
- A-0.53752E-04, 0.85900E+04, 0.86000E+04,
- A 0.35022E+00, 0.24839E+00, 0.15312E-01,-0.67204E-04, 0.11349E-01,
- A-0.57230E-04, 0.86000E+04, 0.86100E+04,
- A 0.43429E+00, 0.32749E+00, 0.14111E-01,-0.61858E-04, 0.11100E-01,
- A-0.52145E-04, 0.86100E+04, 0.86200E+04,
- A 0.64900E+00, 0.17775E+00, 0.12005E-01,-0.57105E-04, 0.91759E-02,
- A-0.45878E-04, 0.86200E+04, 0.86300E+04,
- A 0.62583E+00, 0.25590E+00, 0.11761E-01,-0.56030E-04, 0.90211E-02,
- A-0.48934E-04, 0.86300E+04, 0.86400E+04,
- A 0.35750E+00, 0.36475E+00, 0.10308E-01,-0.43411E-04, 0.88328E-02,
- A-0.39083E-04, 0.86400E+04, 0.86500E+04,
- A 0.11133E+01, 0.13506E+00, 0.80358E-02,-0.43334E-04, 0.68137E-02,
- A-0.39624E-04, 0.86500E+04, 0.86600E+04/
- DATA ((ACR(K,J),K=1,8),J=105,112) /
- A 0.13387E+01, 0.31665E+00, 0.78192E-02,-0.38805E-04, 0.49558E-02,
- A-0.33187E-04, 0.86600E+04, 0.86700E+04,
- A 0.27498E+01, 0.16946E+00, 0.49939E-02,-0.30487E-04, 0.31261E-02,
- A-0.25786E-04, 0.86700E+04, 0.86800E+04,
- A 0.24398E+01, 0.19531E+00, 0.44402E-02,-0.29193E-04, 0.22819E-02,
- A-0.25054E-04, 0.86800E+04, 0.86900E+04,
- A 0.30993E+01, 0.19328E+00, 0.22645E-02,-0.19507E-04, 0.57430E-03,
- A-0.16236E-04, 0.86900E+04, 0.87000E+04,
- A 0.12713E+01, 0.17117E+00, 0.10656E-02,-0.15353E-04,-0.62313E-03,
- A-0.88734E-05, 0.87000E+04, 0.87100E+04,
- A 0.31649E+01, 0.17696E+00, 0.10942E-02,-0.15108E-04,-0.88648E-03,
- A-0.87401E-05, 0.87100E+04, 0.87200E+04,
- A 0.31075E+01, 0.11851E+00,-0.94639E-04,-0.92083E-05,-0.36777E-03,
- A-0.64753E-05, 0.87200E+04, 0.87300E+04,
- A 0.70407E+01, 0.19201E+00,-0.21209E-02,-0.36303E-05,-0.46941E-02,
- A 0.10611E-05, 0.87300E+04, 0.87400E+04/
- DATA ((ACR(K,J),K=1,8),J=113,120) /
- A 0.12454E+01, 0.17319E+00,-0.19955E-02,-0.14314E-05,-0.21532E-02,
- A-0.58242E-06, 0.87400E+04, 0.87500E+04,
- A 0.83443E+00, 0.14890E+00,-0.31702E-02, 0.39260E-05,-0.22958E-02,
- A 0.38306E-05, 0.87500E+04, 0.87600E+04,
- A 0.36918E+01, 0.11215E+00,-0.41869E-02, 0.46517E-05,-0.65413E-02,
- A 0.11815E-04, 0.87600E+04, 0.87700E+04,
- A 0.93114E+00, 0.16247E+00, 0.86756E-03,-0.49431E-05, 0.67174E-03,
- A-0.47220E-05, 0.87700E+04, 0.87800E+04,
- A 0.25247E+01, 0.85808E-01,-0.48350E-02, 0.92270E-05,-0.60959E-02,
- A 0.12095E-04, 0.87800E+04, 0.87900E+04,
- A 0.53387E+00, 0.20115E+00,-0.16551E-02, 0.71592E-05,-0.53003E-03,
- A 0.98880E-06, 0.87900E+04, 0.88000E+04,
- A 0.66475E+01, 0.28681E+00,-0.18744E-02, 0.35629E-05,-0.15672E-02,
- A 0.29490E-05, 0.88000E+04, 0.88100E+04,
- A 0.13449E+02, 0.46562E+00, 0.10817E-02,-0.81158E-05, 0.44146E-03,
- A-0.96568E-05, 0.88100E+04, 0.88200E+04/
- DATA ((ACR(K,J),K=1,8),J=121,128) /
- A 0.23072E+01, 0.29228E+00, 0.18897E-02, 0.45344E-05, 0.23839E-02,
- A-0.87201E-05, 0.88200E+04, 0.88300E+04,
- A 0.38221E+00, 0.20370E+00, 0.49695E-03, 0.65162E-05, 0.21768E-02,
- A 0.32622E-05, 0.88300E+04, 0.88400E+04,
- A 0.11249E+01, 0.14056E+00,-0.38223E-02, 0.16534E-04, 0.28673E-03,
- A 0.19579E-04, 0.88400E+04, 0.88500E+04,
- A 0.48272E+01, 0.98788E-01,-0.50130E-02, 0.90675E-05,-0.56650E-02,
- A 0.13142E-04, 0.88500E+04, 0.88600E+04,
- A 0.75620E+01, 0.14568E+00,-0.43638E-02, 0.53176E-05,-0.63322E-02,
- A 0.10740E-04, 0.88600E+04, 0.88700E+04,
- A 0.24448E+01, 0.13155E+00,-0.24170E-02,-0.27983E-06,-0.34547E-02,
- A 0.34138E-05, 0.88700E+04, 0.88800E+04,
- A 0.80582E+01, 0.19292E+00,-0.28534E-02,-0.80358E-06,-0.51566E-02,
- A 0.39531E-05, 0.88800E+04, 0.88900E+04,
- A 0.57451E+01, 0.18168E+00,-0.50148E-03,-0.95111E-05,-0.19306E-02,
- A-0.60172E-05, 0.88900E+04, 0.89000E+04/
- DATA ((ACR(K,J),K=1,8),J=129,136) /
- A 0.70547E+01, 0.19464E+00,-0.10049E-02,-0.74656E-05,-0.25268E-02,
- A-0.43122E-05, 0.89000E+04, 0.89100E+04,
- A 0.54039E+01, 0.15719E+00, 0.16933E-02,-0.18412E-04, 0.56219E-03,
- A-0.16145E-04, 0.89100E+04, 0.89200E+04,
- A 0.35653E+01, 0.19909E+00, 0.33052E-02,-0.22923E-04, 0.51910E-03,
- A-0.14385E-04, 0.89200E+04, 0.89300E+04,
- A 0.29405E+01, 0.30828E+00, 0.50674E-02,-0.29116E-04, 0.27789E-02,
- A-0.23443E-04, 0.89300E+04, 0.89400E+04,
- A 0.19927E+01, 0.15337E+00, 0.40525E-02,-0.24922E-04, 0.21726E-02,
- A-0.18937E-04, 0.89400E+04, 0.89500E+04,
- A 0.31994E+01, 0.39446E+00, 0.66249E-02,-0.34407E-04, 0.41704E-02,
- A-0.29800E-04, 0.89500E+04, 0.89600E+04,
- A 0.10124E+01, 0.30510E+00, 0.95861E-02,-0.42600E-04, 0.71420E-02,
- A-0.39564E-04, 0.89600E+04, 0.89700E+04,
- A 0.55494E+00, 0.31765E+00, 0.12349E-01,-0.50981E-04, 0.84323E-02,
- A-0.39712E-04, 0.89700E+04, 0.89800E+04/
- DATA ((ACR(K,J),K=1,8),J=137,144) /
- A 0.62962E+00, 0.34745E+00, 0.68325E-02,-0.67823E-05, 0.66120E-02,
- A-0.22655E-04, 0.89800E+04, 0.89900E+04,
- A 0.39155E+00, 0.17506E+00, 0.14525E-01,-0.64228E-04, 0.12836E-01,
- A-0.58540E-04, 0.89900E+04, 0.90000E+04,
- A 0.29338E+00, 0.19531E+00, 0.14921E-01,-0.57995E-04, 0.12214E-01,
- A-0.46413E-04, 0.90000E+04, 0.90100E+04,
- A 0.11700E+00, 0.34769E+00, 0.13815E-01,-0.14315E-04, 0.11336E-01,
- A-0.32553E-04, 0.90100E+04, 0.90200E+04,
- A 0.16223E+00, 0.35064E+00, 0.89364E-02, 0.21825E-04, 0.10979E-01,
- A-0.25030E-04, 0.90200E+04, 0.90300E+04,
- A 0.21742E-01, 0.25837E+00, 0.21279E-01,-0.69818E-04, 0.17662E-01,
- A-0.68568E-04, 0.90300E+04, 0.90400E+04,
- A 0.56078E-01, 0.27822E+00, 0.12493E-01, 0.18431E-04, 0.13824E-01,
- A-0.27676E-04, 0.90400E+04, 0.90500E+04,
- A 0.50045E-01, 0.24927E+00, 0.25877E-02, 0.45316E-04, 0.58234E-02,
- A 0.97906E-05, 0.90500E+04, 0.90600E+04/
- DATA ((ACR(K,J),K=1,8),J=145,152) /
- A 0.74041E-01, 0.16880E+00, 0.31016E-02,-0.12901E-04, 0.31503E-02,
- A-0.95272E-05, 0.90600E+04, 0.90700E+04,
- A 0.35788E-01, 0.25671E+00, 0.55742E-02,-0.33952E-05, 0.67343E-02,
- A-0.97505E-05, 0.90700E+04, 0.90800E+04,
- A 0.57922E-01, 0.23584E+00, 0.22587E-02,-0.92537E-05, 0.15239E-02,
- A-0.70447E-05, 0.90800E+04, 0.90900E+04,
- A 0.33597E-01, 0.22977E+00, 0.30824E-02,-0.11293E-04, 0.33924E-02,
- A-0.56695E-05, 0.90900E+04, 0.91000E+04,
- A 0.70807E-01, 0.38398E+00, 0.33167E-02,-0.82422E-05, 0.23520E-02,
- A-0.17904E-04, 0.91000E+04, 0.91100E+04,
- A 0.70250E-02, 0.18707E+00, 0.88140E-02,-0.27390E-04, 0.84040E-02,
- A-0.29932E-04, 0.91100E+04, 0.91200E+04,
- A 0.69936E-01, 0.25325E+00, 0.19174E-02,-0.11175E-04, 0.12790E-02,
- A-0.14168E-04, 0.91200E+04, 0.91300E+04,
- A 0.52387E-01, 0.30346E+00, 0.93076E-03, 0.52452E-05, 0.21985E-02,
- A-0.12943E-04, 0.91300E+04, 0.91400E+04/
- DATA ((ACR(K,J),K=1,8),J=153,160) /
- A 0.15639E-01, 0.86845E-01, 0.72697E-02,-0.34455E-04, 0.51914E-02,
- A-0.32991E-04, 0.91400E+04, 0.91500E+04,
- A 0.91802E-01, 0.17031E+00,-0.54142E-03, 0.29713E-05,-0.10743E-02,
- A-0.23472E-05, 0.91500E+04, 0.91600E+04,
- A 0.11168E-01, 0.99076E-01, 0.56220E-02,-0.30231E-04, 0.47197E-02,
- A-0.23663E-04, 0.91600E+04, 0.91700E+04,
- A 0.48371E-01, 0.14170E+00,-0.59903E-03,-0.45058E-05,-0.11328E-02,
- A 0.94480E-06, 0.91700E+04, 0.91800E+04,
- A 0.18874E-01, 0.15366E+00, 0.42614E-02,-0.26279E-04, 0.89656E-03,
- A-0.20193E-04, 0.91800E+04, 0.91900E+04,
- A 0.16112E-01, 0.12245E+00, 0.61155E-02,-0.34764E-04, 0.39418E-02,
- A-0.31630E-04, 0.91900E+04, 0.92000E+04,
- A 0.65149E-01, 0.14651E+00, 0.13623E-02,-0.14483E-04, 0.10964E-04,
- A-0.11796E-04, 0.92000E+04, 0.92100E+04,
- A 0.11149E-01, 0.21185E+00, 0.41991E-02,-0.13718E-04, 0.30892E-02,
- A-0.20781E-04, 0.92100E+04, 0.92200E+04/
- DATA ((ACR(K,J),K=1,8),J=161,168) /
- A 0.31171E-01, 0.12753E+00, 0.45967E-02,-0.25041E-04, 0.38974E-02,
- A-0.27102E-04, 0.92200E+04, 0.92300E+04,
- A 0.40823E-03, 0.30563E-01, 0.24700E-01,-0.11119E-03, 0.21942E-01,
- A-0.10564E-03, 0.92300E+04, 0.92400E+04,
- A 0.12977E-01, 0.16914E+00, 0.55548E-02,-0.25826E-04, 0.33619E-02,
- A-0.22004E-04, 0.92400E+04, 0.92500E+04,
- A 0.20816E-01, 0.10896E+00, 0.66122E-02,-0.34731E-04, 0.52212E-02,
- A-0.34187E-04, 0.92500E+04, 0.92600E+04,
- A 0.30262E-02, 0.11279E+00, 0.10901E-01,-0.52842E-04, 0.86449E-02,
- A-0.45417E-04, 0.92600E+04, 0.92700E+04,
- A 0.33673E-02, 0.11423E+00, 0.10899E-01,-0.34157E-04, 0.80866E-02,
- A-0.38803E-04, 0.92700E+04, 0.92800E+04,
- A 0.17536E-01, 0.16659E+00, 0.83759E-02,-0.44600E-04, 0.51120E-02,
- A-0.36571E-04, 0.92800E+04, 0.92900E+04,
- A 0.81624E-03, 0.16081E+00, 0.15916E-01,-0.63848E-04, 0.13156E-01,
- A-0.63084E-04, 0.92900E+04, 0.93000E+04/
- DATA ((ACR(K,J),K=1,8),J=169,176) /
- A 0.11313E-01, 0.13057E+00, 0.11852E-01,-0.58953E-04, 0.88407E-02,
- A-0.51297E-04, 0.93000E+04, 0.93100E+04,
- A 0.15081E-02, 0.69261E-01, 0.41982E-02,-0.75358E-05, 0.57185E-02,
- A-0.16686E-04, 0.93100E+04, 0.93200E+04,
- A 0.45702E-02, 0.13420E+00, 0.13143E-01,-0.54394E-04, 0.10170E-01,
- A-0.52848E-04, 0.93200E+04, 0.93300E+04,
- A 0.75901E-03, 0.16485E+00, 0.17789E-01,-0.41657E-04, 0.14232E-01,
- A-0.51704E-04, 0.93300E+04, 0.93400E+04,
- A 0.23315E-02, 0.14437E+00, 0.15924E-01,-0.73095E-04, 0.12997E-01,
- A-0.67546E-04, 0.93400E+04, 0.93500E+04,
- A 0.24761E-02, 0.13342E+00, 0.17367E-01,-0.65679E-04, 0.14468E-01,
- A-0.62866E-04, 0.93500E+04, 0.93600E+04,
- A 0.11255E-02, 0.11586E+00, 0.16217E-01,-0.59242E-04, 0.13009E-01,
- A-0.57135E-04, 0.93600E+04, 0.93700E+04,
- A 0.46631E-03, 0.31553E-01, 0.23100E-01,-0.10479E-03, 0.20342E-01,
- A-0.99240E-04, 0.93700E+04, 0.93800E+04/
- DATA ((ACR(K,J),K=1,8),J=177,184) /
- A 0.58334E-03, 0.14333E+00, 0.14779E-01,-0.47773E-04, 0.11406E-01,
- A-0.52169E-04, 0.93800E+04, 0.93900E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.93900E+04, 0.94000E+04,
- A 0.46492E-03, 0.64777E-01, 0.12413E-01,-0.29282E-04, 0.13774E-01,
- A-0.49601E-04, 0.94000E+04, 0.94100E+04,
- A 0.40085E-03, 0.30483E-01, 0.10823E-01,-0.55684E-04, 0.80667E-02,
- A-0.50135E-04, 0.94100E+04, 0.94200E+04,
- A 0.65363E-04, 0.53752E-01, 0.23100E-01,-0.10479E-03, 0.20342E-01,
- A-0.99240E-04, 0.94200E+04, 0.94300E+04,
- A 0.24119E-04, 0.27609E-01, 0.35150E-01,-0.15299E-03, 0.32393E-01,
- A-0.14744E-03, 0.94300E+04, 0.94400E+04,
- A 0.13718E-03, 0.46820E-01, 0.16140E-01,-0.52767E-04, 0.16119E-01,
- A-0.67234E-04, 0.94400E+04, 0.94500E+04,
- A 0.55340E-04, 0.46161E-01, 0.16226E-01,-0.45595E-04, 0.15446E-01,
- A-0.59474E-04, 0.94500E+04, 0.94600E+04/
- DATA ((ACR(K,J),K=1,8),J=185,192) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.94600E+04, 0.94700E+04,
- A 0.57428E-04, 0.63455E-01, 0.17377E-01,-0.47290E-04, 0.16614E-01,
- A-0.62421E-04, 0.94700E+04, 0.94800E+04,
- A 0.38406E-04, 0.31771E-01, 0.46608E-02,-0.31037E-04, 0.19036E-02,
- A-0.25485E-04, 0.94800E+04, 0.94900E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.94900E+04, 0.95000E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.95000E+04, 0.95100E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.95100E+04, 0.95200E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.95200E+04, 0.95300E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.95300E+04, 0.95400E+04/
- DATA ((ACR(K,J),K=1,8),J=193,200) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.95400E+04, 0.95500E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.95500E+04, 0.95600E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.95600E+04, 0.95700E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.95700E+04, 0.95800E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.95800E+04, 0.95900E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.95900E+04, 0.96000E+04,
- A 0.24903E-04, 0.24969E-01, 0.25759E-01,-0.11543E-03, 0.23002E-01,
- A-0.10988E-03, 0.96000E+04, 0.96100E+04,
- A 0.48976E-04, 0.34814E-01, 0.46430E-02,-0.30966E-04, 0.18858E-02,
- A-0.25414E-04, 0.96100E+04, 0.96200E+04/
- DATA ((ACR(K,J),K=1,8),J=201,208) /
- A 0.66257E-04, 0.52528E-01, 0.20662E-01,-0.95042E-04, 0.17905E-01,
- A-0.89490E-04, 0.96200E+04, 0.96300E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.96300E+04, 0.96400E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.96400E+04, 0.96500E+04,
- A 0.19405E-03, 0.90800E-01, 0.12893E-01,-0.47907E-04, 0.89990E-02,
- A-0.43597E-04, 0.96500E+04, 0.96600E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.96600E+04, 0.96700E+04,
- A 0.35455E-03, 0.62906E-01, 0.11780E-01,-0.59514E-04, 0.90225E-02,
- A-0.53961E-04, 0.96700E+04, 0.96800E+04,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.96800E+04, 0.96900E+04,
- A 0.73346E-03, 0.95357E-01, 0.80776E-02,-0.35126E-04, 0.63761E-02,
- A-0.32075E-04, 0.96900E+04, 0.97000E+04/
- DATA ((ACR(K,J),K=1,8),J=209,216) /
- A 0.26888E-03, 0.62321E-01, 0.11720E-01,-0.56759E-04, 0.98726E-02,
- A-0.55238E-04, 0.97000E+04, 0.97100E+04,
- A 0.48999E-03, 0.10498E+00, 0.62757E-02,-0.32864E-04, 0.49464E-02,
- A-0.32626E-04, 0.97100E+04, 0.97200E+04,
- A 0.10507E-02, 0.71841E-01, 0.58574E-02,-0.32015E-04, 0.39666E-02,
- A-0.31106E-04, 0.97200E+04, 0.97300E+04,
- A 0.25494E-02, 0.10376E+00, 0.30444E-02,-0.20413E-04, 0.12384E-02,
- A-0.18532E-04, 0.97300E+04, 0.97400E+04,
- A 0.13019E-02, 0.13387E+00, 0.19451E-02,-0.13612E-04,-0.89213E-05,
- A-0.13158E-04, 0.97400E+04, 0.97500E+04,
- A 0.62353E-03, 0.78233E-01, 0.70756E-03,-0.15190E-04,-0.20739E-02,
- A-0.96993E-05, 0.97500E+04, 0.97600E+04,
- A 0.56535E-02, 0.19710E+00, 0.16071E-03,-0.57489E-05,-0.14878E-02,
- A-0.48238E-05, 0.97600E+04, 0.97700E+04,
- A 0.19090E-02, 0.41123E-01,-0.19069E-02,-0.47662E-05,-0.46640E-02,
- A 0.78558E-06, 0.97700E+04, 0.97800E+04/
- DATA ((ACR(K,J),K=1,8),J=217,224) /
- A 0.17619E-02, 0.13162E+00,-0.22639E-02, 0.77041E-06,-0.49756E-02,
- A 0.43744E-05, 0.97800E+04, 0.97900E+04,
- A 0.57144E-03, 0.99432E-01, 0.40501E-02,-0.15471E-04, 0.18591E-02,
- A-0.17658E-04, 0.97900E+04, 0.98000E+04,
- A 0.38209E-02, 0.13329E+00,-0.46298E-02, 0.63691E-05,-0.77028E-02,
- A 0.12343E-04, 0.98000E+04, 0.98100E+04,
- A 0.17147E-02, 0.79407E-01, 0.45502E-03,-0.13444E-04,-0.30355E-02,
- A-0.57728E-05, 0.98100E+04, 0.98200E+04,
- A 0.12145E-02, 0.72418E-01, 0.25064E-03,-0.59535E-05, 0.33766E-05,
- A-0.62695E-05, 0.98200E+04, 0.98300E+04,
- A 0.11057E-02, 0.13614E+00, 0.18444E-02,-0.38170E-05,-0.66263E-03,
- A-0.61358E-05, 0.98300E+04, 0.98400E+04,
- A 0.21971E-02, 0.53016E-01,-0.48189E-02, 0.97527E-05,-0.60279E-02,
- A 0.17406E-04, 0.98400E+04, 0.98500E+04,
- A 0.19933E-02, 0.17956E+00,-0.10152E-02, 0.73537E-05,-0.33437E-02,
- A 0.43246E-05, 0.98500E+04, 0.98600E+04/
- DATA ((ACR(K,J),K=1,8),J=225,232) /
- A 0.87206E-03, 0.47547E-01,-0.41578E-02, 0.42375E-05,-0.73610E-02,
- A 0.10687E-04, 0.98600E+04, 0.98700E+04,
- A 0.29909E-02, 0.69285E-01,-0.47147E-02, 0.10991E-04,-0.56075E-02,
- A 0.15292E-04, 0.98700E+04, 0.98800E+04,
- A 0.15060E-02, 0.17429E+00, 0.35290E-02,-0.15241E-04, 0.98555E-03,
- A-0.13485E-04, 0.98800E+04, 0.98900E+04,
- A 0.24655E-02, 0.15187E+00,-0.96328E-03, 0.30116E-05,-0.23790E-02,
- A 0.61990E-05, 0.98900E+04, 0.99000E+04,
- A 0.81762E-02, 0.23349E+00,-0.33911E-02, 0.18786E-05,-0.60119E-02,
- A 0.65630E-05, 0.99000E+04, 0.99100E+04,
- A 0.35952E-02, 0.95710E-01,-0.25650E-02, 0.69268E-05,-0.25302E-02,
- A 0.87846E-05, 0.99100E+04, 0.99200E+04,
- A 0.41020E-02, 0.16571E+00,-0.82348E-03, 0.44729E-05, 0.50555E-04,
- A-0.13431E-05, 0.99200E+04, 0.99300E+04,
- A 0.15616E-02, 0.12559E+00,-0.17120E-02, 0.95737E-06,-0.23290E-02,
- A 0.28914E-05, 0.99300E+04, 0.99400E+04/
- DATA ((ACR(K,J),K=1,8),J=233,240) /
- A 0.29147E-02, 0.13970E+00, 0.17969E-02,-0.59773E-05, 0.40034E-02,
- A-0.16529E-04, 0.99400E+04, 0.99500E+04,
- A 0.21013E-02, 0.98500E-01, 0.26194E-02,-0.16290E-04, 0.26829E-02,
- A-0.18333E-04, 0.99500E+04, 0.99600E+04,
- A 0.25118E-02, 0.78548E-01,-0.11652E-02,-0.31932E-05,-0.17647E-02,
- A-0.36546E-05, 0.99600E+04, 0.99700E+04,
- A 0.54922E-02, 0.27847E+00, 0.22288E-02,-0.62983E-05, 0.11941E-02,
- A-0.99545E-05, 0.99700E+04, 0.99800E+04,
- A 0.77074E-02, 0.24403E+00, 0.23234E-02,-0.17376E-04, 0.91247E-03,
- A-0.16357E-04, 0.99800E+04, 0.99900E+04,
- A 0.15919E-02, 0.17498E+00, 0.48760E-02,-0.15370E-04, 0.30207E-02,
- A-0.22305E-04, 0.99900E+04, 0.10000E+05,
- A 0.23052E-02, 0.12024E+00, 0.26434E-02, 0.34883E-05, 0.53038E-02,
- A-0.74735E-05, 0.10000E+05, 0.10010E+05,
- A 0.99075E-03, 0.60379E-01, 0.48519E-02,-0.24596E-04, 0.39231E-02,
- A-0.26710E-04, 0.10010E+05, 0.10020E+05/
- DATA ((ACR(K,J),K=1,8),J=241,248) /
- A 0.26106E-02, 0.15994E+00, 0.57076E-02,-0.15791E-04, 0.63216E-02,
- A-0.28717E-04, 0.10020E+05, 0.10030E+05,
- A 0.90384E-03, 0.21421E+00, 0.73532E-02,-0.13113E-05, 0.93330E-02,
- A-0.19232E-04, 0.10030E+05, 0.10040E+05,
- A 0.20888E-02, 0.22211E+00, 0.93854E-02,-0.11006E-04, 0.77851E-02,
- A-0.18919E-04, 0.10040E+05, 0.10050E+05,
- A 0.10096E-02, 0.93543E-01, 0.51826E-02,-0.28108E-04, 0.41051E-02,
- A-0.23759E-04, 0.10050E+05, 0.10060E+05,
- A 0.22561E-02, 0.25885E+00, 0.13532E-01,-0.14879E-04, 0.11628E-01,
- A-0.34287E-04, 0.10060E+05, 0.10070E+05,
- A 0.77191E-02, 0.28721E+00, 0.97888E-02,-0.11073E-04, 0.85390E-02,
- A-0.24771E-04, 0.10070E+05, 0.10080E+05,
- A 0.34195E-02, 0.20647E+00, 0.74823E-02,-0.21978E-04, 0.74440E-02,
- A-0.24751E-04, 0.10080E+05, 0.10090E+05,
- A 0.63694E-02, 0.19871E+00, 0.11877E-01,-0.32800E-04, 0.95670E-02,
- A-0.39672E-04, 0.10090E+05, 0.10100E+05/
- DATA ((ACR(K,J),K=1,8),J=249,256) /
- A 0.63072E-02, 0.37310E+00, 0.47744E-02, 0.28648E-04, 0.68870E-02,
- A-0.84982E-05, 0.10100E+05, 0.10110E+05,
- A 0.10617E-02, 0.15783E+00, 0.19027E-01,-0.37386E-04, 0.17346E-01,
- A-0.60605E-04, 0.10110E+05, 0.10120E+05,
- A 0.16376E-01, 0.34661E+00, 0.14148E-01,-0.48223E-04, 0.10187E-01,
- A-0.43401E-04, 0.10120E+05, 0.10130E+05,
- A 0.77156E-02, 0.39174E+00, 0.71212E-02, 0.83584E-05, 0.74196E-02,
- A-0.20778E-04, 0.10130E+05, 0.10140E+05,
- A 0.81991E-02, 0.34376E+00, 0.10657E-01,-0.20490E-04, 0.91860E-02,
- A-0.34657E-04, 0.10140E+05, 0.10150E+05,
- A 0.45748E-01, 0.35631E+00, 0.11031E-01,-0.41938E-04, 0.79877E-02,
- A-0.33077E-04, 0.10150E+05, 0.10160E+05,
- A 0.26803E-01, 0.21610E+00, 0.11739E-01,-0.53624E-04, 0.10169E-01,
- A-0.50362E-04, 0.10160E+05, 0.10170E+05,
- A 0.61462E-01, 0.24685E+00, 0.82270E-02,-0.31656E-04, 0.77778E-02,
- A-0.31665E-04, 0.10170E+05, 0.10180E+05/
-C
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.h b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.h
deleted file mode 100644
index cc0cf33..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA3.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_wava3_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.P b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.P
deleted file mode 100644
index 445ef3f..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int wava4_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.c b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.c
deleted file mode 100644
index 3d22365..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.c
+++ /dev/null
@@ -1,359 +0,0 @@
-/* WAVA4.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< SUBROUTINE WAVA4(a,inu) >*/
-/* Subroutine */ int wava4_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { .037011,.34865,
- .0071795,-2.429e-5,.0061217,-2.5788e-5,10180.,10190.,.096531,
- .1963,.0044353,-2.7769e-5,.0020496,-1.902e-5,10190.,10200.,.11553,
- .22356,.0057418,-2.861e-5,.005252,-3.0274e-5,10200.,10210.,.17877,
- .25357,.0036991,-1.9865e-5,.0035644,-1.5681e-5,10210.,10220.,
- .094449,.35387,.0021016,-1.5037e-5,5.8316e-4,-1.1084e-5,10220.,
- 10230.,.079869,.2603,.0051322,-2.0923e-5,.0039204,-2.2157e-5,
- 10230.,10240.,.30687,.32758,6.3705e-4,-9.1396e-6,2.5647e-4,
- -3.6374e-6,10240.,10250.,.15358,.13982,-8.3666e-4,3.3048e-6,
- .0027185,1.2493e-5,10250.,10260.,.38232,.35543,-.0010313,
- -1.8768e-6,-.0016001,3.8356e-7,10260.,10270.,.0562,.34487,
- .0036934,7.3751e-6,.0070064,-1.2975e-5,10270.,10280.,.11137,
- .21188,-.0024327,1.6553e-5,-3.0535e-4,1.9603e-5,10280.,10290.,
- .16704,.162,-.0028871,9.8108e-6,-4.298e-4,1.7309e-5,10290.,10300.,
- .15496,.19365,-.0025906,1.7434e-5,-3.5463e-4,8.1537e-6,10300.,
- 10310.,.050239,.44504,.0082014,4.7362e-5,.0097304,-1.0209e-5,
- 10310.,10320.,.21509,.29651,-.0021764,2.0847e-5,-2.3124e-4,
- 1.0958e-5,10320.,10330.,.15838,.17695,-.0019477,2.8641e-6,
- -.0031011,6.2742e-6,10330.,10340.,.45807,.42831,-4.7039e-5,
- 1.6616e-5,.001452,6.4036e-6,10340.,10350.,.14196,.4315,.0032845,
- 1.8573e-5,.0044632,-3.8921e-6,10350.,10360.,.46768,.4897,.0030587,
- -9.9296e-6,.0017377,-1.2227e-5,10360.,10370.,.49107,.45881,
- .0017676,2.3059e-5,.0037946,-7.9699e-6,10370.,10380.,.40709,
- .39513,.0024501,3.4328e-6,.0033911,-1.6475e-5,10380.,10390.,
- .53368,.30449,.002764,1.6491e-5,.0031852,-7.9335e-6,10390.,10400.,
- .50598,.38596,.0011335,7.9179e-6,.0016436,-4.2442e-6,10400.,
- 10410.,.36712,.58535,.0035486,-2.5563e-6,.0025513,-1.2028e-5,
- 10410.,10420.,.98775,.50104,.0056199,-1.6902e-5,.0043563,
- -2.6045e-5,10420.,10430.,.76493,.41145,.0027287,-1.2684e-5,
- 9.6642e-4,-1.2013e-5,10430.,10440.,.4518,.45681,.0055394,
- -1.8929e-5,.0049043,-2.5553e-5,10440.,10450.,.93845,.25977,
- .0063165,-3.3633e-5,.0030572,-2.3591e-5,10450.,10460.,1.0799,
- .52983,.0049753,-2.2413e-5,.0037285,-1.9018e-5,10460.,10470.,
- 1.9954,.24666,.0043881,-2.9035e-5,.0020409,-2.1664e-5,10470.,
- 10480.,.53954,.3608,.0038367,-2.492e-5,.0016345,-2.0659e-5,10480.,
- 10490.,1.9042,.28357,.0020331,-1.9809e-5,1.178e-4,-1.5063e-5,
- 10490.,10500.,1.3639,.41799,.0017903,-1.4939e-5,7.7921e-4,
- -1.3895e-5,10500.,10510.,.27245,.53566,.0028306,-2.1067e-6,
- .0041171,-1.2108e-5,10510.,10520.,4.225,.34405,-9.2601e-4,
- -5.8016e-6,-.0020236,-9.379e-7,10520.,10530.,.41591,.38497,
- .004158,5.6585e-6,.0031671,-1.1552e-5,10530.,10540.,2.4868,.21796,
- -.0020342,2.1116e-6,-.0020977,3.2759e-6,10540.,10550.,.9442,
- .51349,.0018825,2.2079e-6,.0015856,-8.8233e-6,10550.,10560.,2.139,
- .25647,-.0019634,7.9808e-6,-.0024854,4.6652e-6,10560.,10570.,
- 1.3917,.33676,.0035449,-2.0344e-5,3.2271e-4,-1.2565e-5,10570.,
- 10580.,5.9303,.30084,1.3471e-4,-5.1658e-6,-.0018823,-4.8751e-6,
- 10580.,10590.,1.0087,.13259,-.0014095,-4.7735e-6,-.0024541,
- 2.6832e-6,10590.,10600.,4.3983,.19046,-.0034725,2.4224e-6,
- -.0053127,7.1676e-6,10600.,10610.,.96572,.30982,-.0027372,
- 6.8946e-6,-.0023672,8.3925e-6,10610.,10620.,.91323,.32206,
- -.0024872,3.2962e-6,-.0026005,2.0821e-6,10620.,10630.,.64383,
- .32142,-.0040036,1.1751e-5,-.0046913,1.096e-5,10630.,10640.,
- .20419,.32226,-.0010057,3.7593e-7,-.0012761,-1.9796e-6,10640.,
- 10650.,3.2582,.41089,-.0042525,1.1056e-5,-.003553,1.043e-5,10650.,
- 10660.,4.0011,.26987,-.0041265,6.8604e-6,-.0047731,8.9525e-6,
- 10660.,10670.,2.3087,.2861,-.0029291,1.5494e-6,-.0036647,
- 3.1219e-6,10670.,10680.,5.0379,.43636,-4.8143e-4,6.8393e-6,
- -.0011602,8.769e-7,10680.,10690.,3.4572,.24029,-3.8723e-4,
- -8.7391e-6,-4.4231e-4,-7.617e-6,10690.,10700.,3.4164,.31894,
- 5.1822e-4,-9.7127e-6,-8.7127e-5,-1.1526e-5,10700.,10710.,1.9975,
- .24091,.0020391,-1.8108e-5,8.1249e-4,-1.3281e-5,10710.,10720.,
- 1.8993,.38637,.0046303,-2.5016e-5,.0035053,-2.2372e-5,10720.,
- 10730.,1.958,.33984,.0057686,-3.2398e-5,.0041169,-2.863e-5,10730.,
- 10740.,.56316,.41883,.011363,-4.522e-5,.0082366,-3.7842e-5,10740.,
- 10750.,.35401,.69851,.010496,-2.1851e-5,.0066866,-2.4626e-5,
- 10750.,10760.,.19707,.69982,.010773,-9.278e-6,.0083529,-1.8664e-5,
- 10760.,10770.,.2189,.61722,.0026481,1.4368e-5,.0037728,-1.6702e-7,
- 10770.,10780.,.055267,.6593,.007075,3.4583e-6,.0056327,-1.8713e-5,
- 10780.,10790.,.082626,.56771,.0014488,9.0784e-6,.0015016,
- -4.5502e-6,10790.,10800.,.070929,.31037,3.4662e-6,4.3968e-6,
- -6.1123e-4,-1.1496e-7,10800.,10810.,.097418,.44409,-3.1642e-4,
- 5.1491e-6,-.0010289,-1.8238e-6,10810.,10820.,.084947,.43514,
- .0039381,-1.2895e-6,.0026186,-1.3069e-5,10820.,10830.,.05826,
- .18252,.0019735,-6.3696e-6,-5.8857e-4,-5.1048e-6,10830.,10840.,
- .11036,.40791,.0027504,5.4669e-6,.0010814,-7.3999e-6,10840.,
- 10850.,.063822,.3839,.0050367,-2.0231e-5,.0028937,-1.8685e-5,
- 10850.,10860.,.010028,.29145,.0059963,-2.3315e-5,.0034252,
- -2.032e-5,10860.,10870.,.12414,.24481,.0065529,-3.7402e-5,
- .0035139,-3.0249e-5,10870.,10880.,.14508,.36269,-3.4622e-4,
- 7.2138e-6,-3.3853e-4,7.4773e-7,10880.,10890.,.32952,.51235,
- .001156,-9.9464e-6,-.0017097,-6.9684e-6,10890.,10900.,.081689,
- .43746,.002472,-8.5593e-6,8.107e-4,-1.0007e-5,10900.,10910.,
- .36297,.47635,-7.551e-4,3.2155e-6,-.001416,1.3385e-6,10910.,
- 10920.,.21833,.56037,.0015815,-1.3282e-5,2.7446e-4,-1.2751e-5,
- 10920.,10930.,.062283,.46899,.003716,9.7049e-7,.0030288,
- -1.3634e-5,10930.,10940.,.49012,.36842,-8.7423e-4,-6.7163e-6,
- -.0022164,-2.6838e-6,10940.,10950.,.14742,.42276,.0021422,
- 5.937e-6,8.8387e-4,-6.8671e-6,10950.,10960.,.281,.22881,-.0022496,
- -9.4548e-7,-.0031883,4.4808e-7,10960.,10970.,.22513,.41493,
- .0036269,-1.6185e-5,.0017037,-1.7793e-5,10970.,10980.,.21994,
- .21688,-.0036261,5.7974e-6,-.0041527,8.0739e-6,10980.,10990.,
- .14084,.33322,1.3752e-4,-6.2038e-6,-.0011146,-6.0724e-6,10990.,
- 1.1e4,.323,.17636,-.0013536,-5.8665e-7,-.0024854,-3.0662e-7,1.1e4,
- 11010.,.4018,.22575,-.0022932,-2.3319e-6,-.0044015,2.451e-6,
- 11010.,11020.,.40187,.17827,-.0028707,1.5665e-6,-.0044357,
- 3.1485e-6,11020.,11030.,.096411,.21466,-.0022778,4.124e-6,
- -.0027585,2.0224e-6,11030.,11040.,.096343,.15703,-.0022356,
- 1.5369e-6,-.0030654,-3.2505e-7,11040.,11050.,.079848,.17965,
- -.0020125,9.6504e-6,-.00326,5.3659e-6,11050.,11060.,.062139,
- .10557,-.0040683,9.3909e-6,-.0047053,1.0347e-5,11060.,11070.,
- .25071,.1119,-.0048932,9.8071e-6,-.0052555,9.7232e-6,11070.,
- 11080.,.50363,.18561,-.0040852,4.7194e-6,-.0061085,9.9471e-6,
- 11080.,11090.,.23621,.35575,-6.9998e-4,-3.8983e-7,-7.4838e-4,
- -6.3021e-6,11090.,11100.,.41715,.20786,-.0026671,-8.5957e-7,
- -.0044855,3.6346e-6,11100.,11110.,.35497,.15568,-2.0655e-4,
- -1.0414e-5,-.0019241,-7.491e-6,11110.,11120.,.36391,.22115,
- 8.0888e-5,-8.0079e-6,-7.2043e-4,-8.8371e-6,11120.,11130.,.239,
- .19893,.0017314,-1.745e-5,-7.2547e-4,-1.0781e-5,11130.,11140.,
- .18535,.23329,.0044356,-2.4159e-5,.002562,-2.1329e-5,11140.,
- 11150.,.18058,.20287,.0053731,-2.948e-5,.0026609,-2.2876e-5,
- 11150.,11160.,.086563,.18472,.0071342,-3.4497e-5,.0062094,
- -3.7103e-5,11160.,11170.,.040545,.27173,.012595,-5.3501e-5,
- .0098569,-5.1164e-5,11170.,11180.,.015934,.21414,.021094,
- -9.1779e-5,.018771,-8.8619e-5,11180.,11190.,.032149,.20819,
- .0053736,4.7418e-6,.0028308,-3.9739e-6,11190.,11200.,.0033026,
- .1125,-.0049337,8.3861e-6,-.0074414,1.2308e-5,11200.,11210.,
- .0069621,.11936,.002482,1.4188e-5,.0041457,-7.6324e-6,11210.,
- 11220.,.0018624,.073437,.0037334,6.4996e-5,.0021277,2.507e-5,
- 11220.,11230.,.0056133,.14671,5.7744e-4,-1.0633e-5,-.0020996,
- -6.969e-6,11230.,11240.,5.9301e-4,.13188,.0043109,-2.7217e-5,
- .0014102,-2.1872e-5,11240.,11250.,.0062071,.08021,.0031276,
- -2.2059e-5,6.1977e-4,-1.6464e-5,11250.,11260.,7.0445e-4,.090176,
- .006354,-1.7728e-5,.0035488,-2.1566e-5,11260.,11270.,.0024343,
- .082442,-1.2318e-4,-1.1355e-5,-.0023203,-8.0507e-6,11270.,11280.,
- .0053124,.10493,.002512,-2.1412e-5,-2.5472e-4,-1.6312e-5,11280.,
- 11290.,.0010156,.075674,.0067257,-3.904e-5,.0037539,-3.2659e-5,
- 11290.,11300.,4.5845e-4,.031771,.0083901,-4.5954e-5,.005633,
- -4.0402e-5,11300.,11310.,.0013128,.1362,.0032287,-2.4445e-5,
- 6.7354e-4,-2.006e-5,11310.,11320.,9.1527e-4,.043387,.013028,
- -6.4031e-5,.010684,-6.015e-5,11320.,11330.,.0016381,.11364,
- .0082323,-4.1843e-5,.0046964,-3.5054e-5,11330.,11340.,8.2138e-4,
- .051673,.0074756,-4.1981e-5,.0051092,-3.7995e-5,11340.,11350.,
- 8.2766e-4,.072646,.0053277,-3.266e-5,.0034473,-3.0783e-5,11350.,
- 11360.,2.9086e-4,.031771,.0094981,-5.0386e-5,.0067409,-4.4834e-5,
- 11360.,11370.,2.1807e-4,.058942,.015709,-5.9258e-5,.013592,
- -6.3956e-5,11370.,11380.,6.2704e-4,.12257,.010699,-4.9284e-5,
- .0095849,-5.3234e-5,11380.,11390.,1.0702e-4,.028818,.0079994,
- -4.4391e-5,.0052422,-3.8839e-5,11390.,11400.,0.,0.,0.,0.,0.,0.,
- 11400.,11410.,2.2042e-4,.065689,.016094,-7.5895e-5,.013589,
- -7.1741e-5,11410.,11420.,8.1809e-5,.030563,.019812,-9.1641e-5,
- .017055,-8.6089e-5,11420.,11430.,0.,0.,0.,0.,0.,0.,11430.,11440.,
- 0.,0.,0.,0.,0.,0.,11440.,11450.,0.,0.,0.,0.,0.,0.,11450.,11460.,
- 0.,0.,0.,0.,0.,0.,11460.,11470.,0.,0.,0.,0.,0.,0.,11470.,11480.,
- 0.,0.,0.,0.,0.,0.,11480.,11490.,0.,0.,0.,0.,0.,0.,11490.,11500.,
- 0.,0.,0.,0.,0.,0.,11500.,11510.,0.,0.,0.,0.,0.,0.,11510.,11520.,
- 6.8748e-6,.028818,.014135,-6.8935e-5,.011378,-6.3383e-5,11520.,
- 11530.,0.,0.,0.,0.,0.,0.,11530.,11540.,0.,0.,0.,0.,0.,0.,11540.,
- 11550.,0.,0.,0.,0.,0.,0.,11550.,11560.,0.,0.,0.,0.,0.,0.,11560.,
- 11570.,1.1592e-5,.037767,.0031085,-2.4828e-5,3.5131e-4,-1.9276e-5,
- 11570.,11580.,1.2377e-4,.091349,.012838,-3.6325e-5,.0084626,
- -3.8447e-5,11580.,11590.,0.,0.,0.,0.,0.,0.,11590.,11600.,0.,0.,0.,
- 0.,0.,0.,11600.,11610.,2.7776e-4,.099768,.016197,-7.1636e-5,
- .012877,-6.2598e-5,11610.,11620.,0.,0.,0.,0.,0.,0.,11620.,11630.,
- 6.0387e-4,.079303,.011427,-5.6399e-5,.0076314,-4.5247e-5,11630.,
- 11640.,8.3575e-5,.082334,.015996,-7.3351e-5,.013978,-7.131e-5,
- 11640.,11650.,2.7734e-4,.028818,.012698,-6.3185e-5,.0099405,
- -5.7633e-5,11650.,11660.,.0013776,.1275,.0089606,-4.0931e-5,
- .006208,-3.6077e-5,11660.,11670.,4.5458e-4,.05909,.0073062,
- -4.1015e-5,.0053622,-3.8549e-5,11670.,11680.,.0019815,.15477,
- .006225,-3.2087e-5,.0049876,-3.2313e-5,11680.,11690.,9.9572e-4,
- .08831,.0056347,-2.7093e-5,.0037058,-2.8108e-5,11690.,11700.,
- .0025341,.10399,.0032192,-2.1942e-5,.0010784,-1.8674e-5,11700.,
- 11710.,.001691,.18929,.0042421,-2.4597e-5,.0031654,-2.3807e-5,
- 11710.,11720.,.001706,.12598,6.5013e-4,-1.3447e-5,-.0021977,
- -8.4803e-6,11720.,11730.,.0032703,.1478,.0014549,-1.0754e-5,
- 3.5403e-4,-1.3234e-5,11730.,11740.,.0055601,.15726,-.0020459,
- -2.8933e-6,-.0040613,2.3816e-6,11740.,11750.,.0023988,.10521,
- -8.9604e-5,-8.9256e-6,-.0019341,-4.1252e-6,11750.,11760.,.0021014,
- .20346,.001557,-3.876e-7,4.2674e-4,-7.4882e-6,11760.,11770.,
- .0044559,.17649,-.0026665,2.6782e-6,-.0043678,1.1412e-5,11770.,
- 11780.,.0024355,.1438,-.0030347,1.3498e-5,-.0029099,8.3348e-6,
- 11780.,11790.,.0012088,.14652,.0043364,-2.3499e-5,.004136,
- -2.5136e-5,11790.,11800.,3.5615e-4,.076935,-4.1654e-4,1.6868e-5,
- -3.6975e-4,6.6392e-6,11800.,11810.,.0033205,.14642,-.0022883,
- 1.5563e-5,-.0011424,6.601e-6,11810.,11820.,9.6482e-4,.11674,
- -.0020293,3.3475e-5,.0018153,1.8034e-5,11820.,11830.,.0025468,
- .23891,-3.7386e-4,2.5112e-5,-7.037e-4,1.2657e-5,11830.,11840.,
- .003978,.19525,.0017761,1.7009e-5,.0028654,9.7695e-7,11840.,
- 11850.,.009308,.22287,-.0028141,6.1915e-6,-.0035846,9.0001e-6,
- 11850.,11860.,.0011913,.14817,.0011043,4.7279e-5,.0021704,
- 1.6632e-5,11860.,11870.,.010095,.3319,-3.025e-4,2.7919e-5,
- 4.6706e-4,1.3481e-5,11870.,11880.,.0094837,.29542,.0041573,
- -4.5489e-6,.0046629,-1.3608e-5,11880.,11890.,.0057807,.16128,
- .0022948,3.093e-5,.0032856,7.3247e-6,11890.,11900.,.0090317,
- .33992,.0064901,1.3104e-5,.0058385,-1.237e-5,11900.,11910.,
- .0034946,.17472,9.0274e-4,9.569e-6,7.5517e-4,7.6716e-7,11910.,
- 11920.,.010712,.34337,.0057845,3.273e-6,.0051567,-1.5291e-5,
- 11920.,11930.,.018599,.48317,.010589,-3.4336e-5,.0073964,
- -3.6504e-5,11930.,11940.,.011137,.31418,.0088066,-1.9115e-5,
- .0066643,-2.5755e-5,11940.,11950.,.014277,.15769,.010665,
- -4.2217e-5,.0066305,-3.2258e-5,11950.,11960.,.027875,.26865,
- .010692,-4.8825e-5,.007738,-4.3664e-5,11960.,11970.,.012682,
- .20777,.010603,-4.8734e-5,.0081358,-4.1884e-5,11970.,11980.,
- .036127,.20496,.0077739,-4.0475e-5,.0055098,-3.2025e-5,11980.,
- 11990.,.026197,.26047,.0093353,-4.7349e-5,.0069758,-4.2653e-5,
- 11990.,1.2e4,.031642,.28308,.0072441,-3.3775e-5,.0041744,
- -2.7701e-5,1.2e4,12010.,.13538,.163,.0042895,-2.9341e-5,.001443,
- -2.3228e-5,12010.,12020.,.04616,.26257,.0059122,-3.4545e-5,
- .0033253,-2.959e-5,12020.,12030.,.098778,.16239,.0019096,
- -1.947e-5,1.9375e-4,-1.6507e-5,12030.,12040.,.04218,.15687,
- .0011607,-1.5189e-5,3.26e-4,-1.0808e-5,12040.,12050.,.081749,
- .1447,.0019087,-1.8894e-5,4.6347e-5,-1.5861e-5,12050.,12060.,
- .14244,.15544,-4.8204e-4,-1.0055e-5,-.0030791,-4.5136e-6,12060.,
- 12070.,.15967,.14014,-.0015241,-6.1008e-6,-.0038422,-1.2202e-6,
- 12070.,12080.,.14263,.16924,-.0025815,-1.3799e-6,-.0046065,
- 2.7252e-6,12080.,12090.,.028755,.09297,-.0034559,3.6475e-6,
- -.0038455,8.6258e-6,12090.,12100.,.13867,.13244,-.0035649,5.23e-6,
- -.0053551,8.6133e-6,12100.,12110.,.022667,.083805,-.00172,
- -3.4708e-6,-.0030806,3.0367e-6,12110.,12120.,.092398,.11619,
- -.0042643,1.2112e-5,-.0033307,1.1625e-5,12120.,12130.,.036116,
- .2779,.0029762,1.3854e-6,.0042021,-1.2139e-5,12130.,12140.,.44373,
- .46666,3.1523e-4,-3.0509e-6,-2.0293e-4,-7.5095e-6,12140.,12150.,
- .27187,.27772,-.0011411,1.4254e-6,-.001681,-8.1908e-7,12150.,
- 12160.,.051449,.10126,-.0037317,6.5728e-6,-.0032342,1.2751e-5,
- 12160.,12170.,.038984,.17694,-.0039312,1.3072e-5,-.0033739,
- 1.401e-5,12170.,12180.,.0044227,.11724,.0062039,-3.2339e-5,
- .0022912,-2.0596e-5,12180.,12190.,.18992,.14819,-.0050473,
- 8.811e-6,-.0068829,1.2852e-5,12190.,12200.,.25583,.13027,
- -.0044286,5.7917e-6,-.0063447,9.414e-6,12200.,12210.,.13625,
- .18565,-.0034046,2.2857e-6,-.0050965,6.4148e-6,12210.,12220.,
- .29053,.22511,-.0027471,-8.8244e-7,-.0045852,2.3044e-6,12220.,
- 12230.,.19038,.14946,-6.8588e-4,-9.3784e-6,-.0027488,-5.0351e-6,
- 12230.,12240.,.33873,.28292,-1.0104e-4,-1.0239e-5,-.0013958,
- -9.0346e-6,12240.,12250.,.1325,.17121,.0024653,-1.9723e-5,
- 1.8597e-4,-1.4634e-5,12250.,12260.,.12157,.37106,.0037908,
- -2.2351e-5,.0010325,-1.6657e-5,12260.,12270.,.07651,.16258,
- .0034104,-2.3774e-5,.0018529,-2.1863e-5,12270.,12280.,.07529,
- .33562,.0076059,-3.4182e-5,.0052641,-3.0402e-5,12280.,12290.,
- .060409,.25407,.0068386,-2.9386e-5,.0061709,-2.8132e-5,12290.,
- 12300.,.027161,.42647,.0097512,-3.3363e-5,.0063871,-3.1407e-5,
- 12300.,12310.,.009111,.28999,.010916,-3.5531e-5,.0085325,
- -3.6715e-5,12310.,12320.,.019913,.33483,.0088198,-1.1414e-5,
- .0072926,-2.8077e-5,12320.,12330.,.0081899,.31312,.014481,
- -5.2817e-5,.010281,-4.4189e-5,12330.,12340.,.0047198,.32687,
- .0079614,6.2153e-6,.0072159,-1.9264e-5,12340.,12350.,.011347,
- .34063,.002382,2.8934e-5,.0025122,2.6528e-6,12350.,12360.,
- .0035162,.2474,.0064215,-4.522e-6,.0068198,-2.2326e-5,12360.,
- 12370.,.0045582,.33334,.0040843,-6.8827e-6,.0026935,-1.6936e-5,
- 12370.,12380.,.0025789,.33203,.004947,-1.6065e-5,.003438,
- -2.2968e-5,12380.,12390.,.0045336,.2043,.0047629,-2.7839e-5,
- .0025633,-2.4703e-5,12390.,12400.,.0030244,.20516,.0081732,
- -4.1804e-5,.0046359,-2.9989e-5,12400.,12410.,.0041242,.23106,
- .0057501,-3.1437e-5,.0034257,-2.8835e-5,12410.,12420.,.010287,
- .33673,.0041222,-2.574e-5,.0014121,-2.0905e-5,12420.,12430.,
- .0052103,.19644,.0037193,-2.6341e-5,9.394e-4,-2.0581e-5,12430.,
- 12440.,2.2877e-4,.12174,.0092724,-4.5126e-5,.0056853,-3.7747e-5,
- 12440.,12450.,.015209,.45993,.0011296,-1.4042e-5,-.0011241,
- -1.1493e-5,12450.,12460.,.005545,.1911,.0015443,-1.3043e-5,
- -3.2861e-4,-1.1764e-5,12460.,12470.,.011275,.1922,7.547e-5,
- -1.0276e-5,-.0020095,-7.6051e-6,12470.,12480.,.014331,.19322,
- -.0010929,-7.1557e-6,-.0030976,-4.5871e-6,12480.,12490.,.013106,
- .20676,-.0021472,-1.689e-6,-.00333,-4.7675e-7,12490.,12500.,
- .0031859,.26518,.0018883,-3.7481e-6,4.5064e-5,-1.1501e-5,12500.,
- 12510.,.0066833,.21228,-.0021409,4.8505e-6,-.0028895,4.0738e-6,
- 12510.,12520.,.011966,.28263,-.0013922,6.3802e-6,-7.3809e-4,
- -1.1743e-6,12520.,12530.,.0040664,.24183,.0035636,-2.8875e-6,
- .0022372,-1.6411e-5,12530.,12540.,.014346,.3851,2.0035e-4,
- 3.7739e-6,-6.1012e-5,-7.988e-6,12540.,12550.,.031841,.37389,
- -.0014467,-2.5515e-6,-.0036219,-9.456e-7,12550.,12560.,.014117,
- .15375,-.0027582,1.5847e-6,-.0042341,5.2506e-6,12560.,12570.,
- .0069458,.17261,-.0018858,-1.3771e-6,-.0038705,1.8317e-6,12570.,
- 12580.,.0034163,.16476,-.0038874,8.9594e-6,-.004751,6.5193e-6,
- 12580.,12590.,.0010085,.13402,8.9094e-4,-6.018e-6,-6.4581e-6,
- -9.4409e-6,12590.,12600.,.017942,.20327,-.0039862,7.5053e-6,
- -.0052785,7.3576e-6,12600.,12610.,.0080749,.061138,-.0049341,
- 7.5781e-6,-.0072374,1.1499e-5,12610.,12620.,.022511,.21226,
- -.0034799,3.196e-6,-.0050773,6.2716e-6,12620.,12630.,.0091364,
- .16111,-.0029375,2.6306e-7,-.0049473,4.3965e-6,12630.,12640.,
- .014688,.1553,-.0020029,-2.3192e-6,-.0029945,-2.1575e-6,12640.,
- 12650.,.016309,.20204,1.6988e-6,-1.109e-5,-.0014702,-9.9629e-6,
- 12650.,12660.,.028046,.24162,2.1643e-4,-1.1209e-5,-.0017491,
- -8.904e-6,12660.,12670.,.011289,.29319,.0034128,-2.3021e-5,
- .0010846,-1.8419e-5,12670.,12680.,.0049531,.14498,.0053073,
- -2.8791e-5,.0032927,-2.5157e-5,12680.,12690.,.0072485,.17855,
- .0056992,-3.2465e-5,.0041153,-3.2129e-5,12690.,12700.,.0061604,
- .2478,.0073217,-3.1129e-5,.0058029,-3.2007e-5,12700.,12710.,
- .0013393,.12405,.012672,-4.8102e-5,.0088276,-3.9342e-5,12710.,
- 12720.,.0010615,.14687,.012203,-5.0558e-5,.01058,-5.4423e-5,
- 12720.,12730.,4.7236e-4,.080989,.0036212,3.4855e-5,.0023529,
- 7.9526e-6,12730.,12740. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-
-/* WATER VAPOR (10180 - 12720 CM-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* wava4_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.f b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.f
deleted file mode 100644
index 62ff036..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.f
+++ /dev/null
@@ -1,560 +0,0 @@
- SUBROUTINE WAVA4(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-C
-C WATER VAPOR (10180 - 12720 CM-1)
-C
- DATA ((ACR(K,J),K=1,8),J= 1, 8) /
- A 0.37011E-01, 0.34865E+00, 0.71795E-02,-0.24290E-04, 0.61217E-02,
- A-0.25788E-04, 0.10180E+05, 0.10190E+05,
- A 0.96531E-01, 0.19630E+00, 0.44353E-02,-0.27769E-04, 0.20496E-02,
- A-0.19020E-04, 0.10190E+05, 0.10200E+05,
- A 0.11553E+00, 0.22356E+00, 0.57418E-02,-0.28610E-04, 0.52520E-02,
- A-0.30274E-04, 0.10200E+05, 0.10210E+05,
- A 0.17877E+00, 0.25357E+00, 0.36991E-02,-0.19865E-04, 0.35644E-02,
- A-0.15681E-04, 0.10210E+05, 0.10220E+05,
- A 0.94449E-01, 0.35387E+00, 0.21016E-02,-0.15037E-04, 0.58316E-03,
- A-0.11084E-04, 0.10220E+05, 0.10230E+05,
- A 0.79869E-01, 0.26030E+00, 0.51322E-02,-0.20923E-04, 0.39204E-02,
- A-0.22157E-04, 0.10230E+05, 0.10240E+05,
- A 0.30687E+00, 0.32758E+00, 0.63705E-03,-0.91396E-05, 0.25647E-03,
- A-0.36374E-05, 0.10240E+05, 0.10250E+05,
- A 0.15358E+00, 0.13982E+00,-0.83666E-03, 0.33048E-05, 0.27185E-02,
- A 0.12493E-04, 0.10250E+05, 0.10260E+05/
- DATA ((ACR(K,J),K=1,8),J= 9, 16) /
- A 0.38232E+00, 0.35543E+00,-0.10313E-02,-0.18768E-05,-0.16001E-02,
- A 0.38356E-06, 0.10260E+05, 0.10270E+05,
- A 0.56200E-01, 0.34487E+00, 0.36934E-02, 0.73751E-05, 0.70064E-02,
- A-0.12975E-04, 0.10270E+05, 0.10280E+05,
- A 0.11137E+00, 0.21188E+00,-0.24327E-02, 0.16553E-04,-0.30535E-03,
- A 0.19603E-04, 0.10280E+05, 0.10290E+05,
- A 0.16704E+00, 0.16200E+00,-0.28871E-02, 0.98108E-05,-0.42980E-03,
- A 0.17309E-04, 0.10290E+05, 0.10300E+05,
- A 0.15496E+00, 0.19365E+00,-0.25906E-02, 0.17434E-04,-0.35463E-03,
- A 0.81537E-05, 0.10300E+05, 0.10310E+05,
- A 0.50239E-01, 0.44504E+00, 0.82014E-02, 0.47362E-04, 0.97304E-02,
- A-0.10209E-04, 0.10310E+05, 0.10320E+05,
- A 0.21509E+00, 0.29651E+00,-0.21764E-02, 0.20847E-04,-0.23124E-03,
- A 0.10958E-04, 0.10320E+05, 0.10330E+05,
- A 0.15838E+00, 0.17695E+00,-0.19477E-02, 0.28641E-05,-0.31011E-02,
- A 0.62742E-05, 0.10330E+05, 0.10340E+05/
- DATA ((ACR(K,J),K=1,8),J= 17, 24) /
- A 0.45807E+00, 0.42831E+00,-0.47039E-04, 0.16616E-04, 0.14520E-02,
- A 0.64036E-05, 0.10340E+05, 0.10350E+05,
- A 0.14196E+00, 0.43150E+00, 0.32845E-02, 0.18573E-04, 0.44632E-02,
- A-0.38921E-05, 0.10350E+05, 0.10360E+05,
- A 0.46768E+00, 0.48970E+00, 0.30587E-02,-0.99296E-05, 0.17377E-02,
- A-0.12227E-04, 0.10360E+05, 0.10370E+05,
- A 0.49107E+00, 0.45881E+00, 0.17676E-02, 0.23059E-04, 0.37946E-02,
- A-0.79699E-05, 0.10370E+05, 0.10380E+05,
- A 0.40709E+00, 0.39513E+00, 0.24501E-02, 0.34328E-05, 0.33911E-02,
- A-0.16475E-04, 0.10380E+05, 0.10390E+05,
- A 0.53368E+00, 0.30449E+00, 0.27640E-02, 0.16491E-04, 0.31852E-02,
- A-0.79335E-05, 0.10390E+05, 0.10400E+05,
- A 0.50598E+00, 0.38596E+00, 0.11335E-02, 0.79179E-05, 0.16436E-02,
- A-0.42442E-05, 0.10400E+05, 0.10410E+05,
- A 0.36712E+00, 0.58535E+00, 0.35486E-02,-0.25563E-05, 0.25513E-02,
- A-0.12028E-04, 0.10410E+05, 0.10420E+05/
- DATA ((ACR(K,J),K=1,8),J= 25, 32) /
- A 0.98775E+00, 0.50104E+00, 0.56199E-02,-0.16902E-04, 0.43563E-02,
- A-0.26045E-04, 0.10420E+05, 0.10430E+05,
- A 0.76493E+00, 0.41145E+00, 0.27287E-02,-0.12684E-04, 0.96642E-03,
- A-0.12013E-04, 0.10430E+05, 0.10440E+05,
- A 0.45180E+00, 0.45681E+00, 0.55394E-02,-0.18929E-04, 0.49043E-02,
- A-0.25553E-04, 0.10440E+05, 0.10450E+05,
- A 0.93845E+00, 0.25977E+00, 0.63165E-02,-0.33633E-04, 0.30572E-02,
- A-0.23591E-04, 0.10450E+05, 0.10460E+05,
- A 0.10799E+01, 0.52983E+00, 0.49753E-02,-0.22413E-04, 0.37285E-02,
- A-0.19018E-04, 0.10460E+05, 0.10470E+05,
- A 0.19954E+01, 0.24666E+00, 0.43881E-02,-0.29035E-04, 0.20409E-02,
- A-0.21664E-04, 0.10470E+05, 0.10480E+05,
- A 0.53954E+00, 0.36080E+00, 0.38367E-02,-0.24920E-04, 0.16345E-02,
- A-0.20659E-04, 0.10480E+05, 0.10490E+05,
- A 0.19042E+01, 0.28357E+00, 0.20331E-02,-0.19809E-04, 0.11780E-03,
- A-0.15063E-04, 0.10490E+05, 0.10500E+05/
- DATA ((ACR(K,J),K=1,8),J= 33, 40) /
- A 0.13639E+01, 0.41799E+00, 0.17903E-02,-0.14939E-04, 0.77921E-03,
- A-0.13895E-04, 0.10500E+05, 0.10510E+05,
- A 0.27245E+00, 0.53566E+00, 0.28306E-02,-0.21067E-05, 0.41171E-02,
- A-0.12108E-04, 0.10510E+05, 0.10520E+05,
- A 0.42250E+01, 0.34405E+00,-0.92601E-03,-0.58016E-05,-0.20236E-02,
- A-0.93790E-06, 0.10520E+05, 0.10530E+05,
- A 0.41591E+00, 0.38497E+00, 0.41580E-02, 0.56585E-05, 0.31671E-02,
- A-0.11552E-04, 0.10530E+05, 0.10540E+05,
- A 0.24868E+01, 0.21796E+00,-0.20342E-02, 0.21116E-05,-0.20977E-02,
- A 0.32759E-05, 0.10540E+05, 0.10550E+05,
- A 0.94420E+00, 0.51349E+00, 0.18825E-02, 0.22079E-05, 0.15856E-02,
- A-0.88233E-05, 0.10550E+05, 0.10560E+05,
- A 0.21390E+01, 0.25647E+00,-0.19634E-02, 0.79808E-05,-0.24854E-02,
- A 0.46652E-05, 0.10560E+05, 0.10570E+05,
- A 0.13917E+01, 0.33676E+00, 0.35449E-02,-0.20344E-04, 0.32271E-03,
- A-0.12565E-04, 0.10570E+05, 0.10580E+05/
- DATA ((ACR(K,J),K=1,8),J= 41, 48) /
- A 0.59303E+01, 0.30084E+00, 0.13471E-03,-0.51658E-05,-0.18823E-02,
- A-0.48751E-05, 0.10580E+05, 0.10590E+05,
- A 0.10087E+01, 0.13259E+00,-0.14095E-02,-0.47735E-05,-0.24541E-02,
- A 0.26832E-05, 0.10590E+05, 0.10600E+05,
- A 0.43983E+01, 0.19046E+00,-0.34725E-02, 0.24224E-05,-0.53127E-02,
- A 0.71676E-05, 0.10600E+05, 0.10610E+05,
- A 0.96572E+00, 0.30982E+00,-0.27372E-02, 0.68946E-05,-0.23672E-02,
- A 0.83925E-05, 0.10610E+05, 0.10620E+05,
- A 0.91323E+00, 0.32206E+00,-0.24872E-02, 0.32962E-05,-0.26005E-02,
- A 0.20821E-05, 0.10620E+05, 0.10630E+05,
- A 0.64383E+00, 0.32142E+00,-0.40036E-02, 0.11751E-04,-0.46913E-02,
- A 0.10960E-04, 0.10630E+05, 0.10640E+05,
- A 0.20419E+00, 0.32226E+00,-0.10057E-02, 0.37593E-06,-0.12761E-02,
- A-0.19796E-05, 0.10640E+05, 0.10650E+05,
- A 0.32582E+01, 0.41089E+00,-0.42525E-02, 0.11056E-04,-0.35530E-02,
- A 0.10430E-04, 0.10650E+05, 0.10660E+05/
- DATA ((ACR(K,J),K=1,8),J= 49, 56) /
- A 0.40011E+01, 0.26987E+00,-0.41265E-02, 0.68604E-05,-0.47731E-02,
- A 0.89525E-05, 0.10660E+05, 0.10670E+05,
- A 0.23087E+01, 0.28610E+00,-0.29291E-02, 0.15494E-05,-0.36647E-02,
- A 0.31219E-05, 0.10670E+05, 0.10680E+05,
- A 0.50379E+01, 0.43636E+00,-0.48143E-03, 0.68393E-05,-0.11602E-02,
- A 0.87690E-06, 0.10680E+05, 0.10690E+05,
- A 0.34572E+01, 0.24029E+00,-0.38723E-03,-0.87391E-05,-0.44231E-03,
- A-0.76170E-05, 0.10690E+05, 0.10700E+05,
- A 0.34164E+01, 0.31894E+00, 0.51822E-03,-0.97127E-05,-0.87127E-04,
- A-0.11526E-04, 0.10700E+05, 0.10710E+05,
- A 0.19975E+01, 0.24091E+00, 0.20391E-02,-0.18108E-04, 0.81249E-03,
- A-0.13281E-04, 0.10710E+05, 0.10720E+05,
- A 0.18993E+01, 0.38637E+00, 0.46303E-02,-0.25016E-04, 0.35053E-02,
- A-0.22372E-04, 0.10720E+05, 0.10730E+05,
- A 0.19580E+01, 0.33984E+00, 0.57686E-02,-0.32398E-04, 0.41169E-02,
- A-0.28630E-04, 0.10730E+05, 0.10740E+05/
- DATA ((ACR(K,J),K=1,8),J= 57, 64) /
- A 0.56316E+00, 0.41883E+00, 0.11363E-01,-0.45220E-04, 0.82366E-02,
- A-0.37842E-04, 0.10740E+05, 0.10750E+05,
- A 0.35401E+00, 0.69851E+00, 0.10496E-01,-0.21851E-04, 0.66866E-02,
- A-0.24626E-04, 0.10750E+05, 0.10760E+05,
- A 0.19707E+00, 0.69982E+00, 0.10773E-01,-0.92780E-05, 0.83529E-02,
- A-0.18664E-04, 0.10760E+05, 0.10770E+05,
- A 0.21890E+00, 0.61722E+00, 0.26481E-02, 0.14368E-04, 0.37728E-02,
- A-0.16702E-06, 0.10770E+05, 0.10780E+05,
- A 0.55267E-01, 0.65930E+00, 0.70750E-02, 0.34583E-05, 0.56327E-02,
- A-0.18713E-04, 0.10780E+05, 0.10790E+05,
- A 0.82626E-01, 0.56771E+00, 0.14488E-02, 0.90784E-05, 0.15016E-02,
- A-0.45502E-05, 0.10790E+05, 0.10800E+05,
- A 0.70929E-01, 0.31037E+00, 0.34662E-05, 0.43968E-05,-0.61123E-03,
- A-0.11496E-06, 0.10800E+05, 0.10810E+05,
- A 0.97418E-01, 0.44409E+00,-0.31642E-03, 0.51491E-05,-0.10289E-02,
- A-0.18238E-05, 0.10810E+05, 0.10820E+05/
- DATA ((ACR(K,J),K=1,8),J= 65, 72) /
- A 0.84947E-01, 0.43514E+00, 0.39381E-02,-0.12895E-05, 0.26186E-02,
- A-0.13069E-04, 0.10820E+05, 0.10830E+05,
- A 0.58260E-01, 0.18252E+00, 0.19735E-02,-0.63696E-05,-0.58857E-03,
- A-0.51048E-05, 0.10830E+05, 0.10840E+05,
- A 0.11036E+00, 0.40791E+00, 0.27504E-02, 0.54669E-05, 0.10814E-02,
- A-0.73999E-05, 0.10840E+05, 0.10850E+05,
- A 0.63822E-01, 0.38390E+00, 0.50367E-02,-0.20231E-04, 0.28937E-02,
- A-0.18685E-04, 0.10850E+05, 0.10860E+05,
- A 0.10028E-01, 0.29145E+00, 0.59963E-02,-0.23315E-04, 0.34252E-02,
- A-0.20320E-04, 0.10860E+05, 0.10870E+05,
- A 0.12414E+00, 0.24481E+00, 0.65529E-02,-0.37402E-04, 0.35139E-02,
- A-0.30249E-04, 0.10870E+05, 0.10880E+05,
- A 0.14508E+00, 0.36269E+00,-0.34622E-03, 0.72138E-05,-0.33853E-03,
- A 0.74773E-06, 0.10880E+05, 0.10890E+05,
- A 0.32952E+00, 0.51235E+00, 0.11560E-02,-0.99464E-05,-0.17097E-02,
- A-0.69684E-05, 0.10890E+05, 0.10900E+05/
- DATA ((ACR(K,J),K=1,8),J= 73, 80) /
- A 0.81689E-01, 0.43746E+00, 0.24720E-02,-0.85593E-05, 0.81070E-03,
- A-0.10007E-04, 0.10900E+05, 0.10910E+05,
- A 0.36297E+00, 0.47635E+00,-0.75510E-03, 0.32155E-05,-0.14160E-02,
- A 0.13385E-05, 0.10910E+05, 0.10920E+05,
- A 0.21833E+00, 0.56037E+00, 0.15815E-02,-0.13282E-04, 0.27446E-03,
- A-0.12751E-04, 0.10920E+05, 0.10930E+05,
- A 0.62283E-01, 0.46899E+00, 0.37160E-02, 0.97049E-06, 0.30288E-02,
- A-0.13634E-04, 0.10930E+05, 0.10940E+05,
- A 0.49012E+00, 0.36842E+00,-0.87423E-03,-0.67163E-05,-0.22164E-02,
- A-0.26838E-05, 0.10940E+05, 0.10950E+05,
- A 0.14742E+00, 0.42276E+00, 0.21422E-02, 0.59370E-05, 0.88387E-03,
- A-0.68671E-05, 0.10950E+05, 0.10960E+05,
- A 0.28100E+00, 0.22881E+00,-0.22496E-02,-0.94548E-06,-0.31883E-02,
- A 0.44808E-06, 0.10960E+05, 0.10970E+05,
- A 0.22513E+00, 0.41493E+00, 0.36269E-02,-0.16185E-04, 0.17037E-02,
- A-0.17793E-04, 0.10970E+05, 0.10980E+05/
- DATA ((ACR(K,J),K=1,8),J= 81, 88) /
- A 0.21994E+00, 0.21688E+00,-0.36261E-02, 0.57974E-05,-0.41527E-02,
- A 0.80739E-05, 0.10980E+05, 0.10990E+05,
- A 0.14084E+00, 0.33322E+00, 0.13752E-03,-0.62038E-05,-0.11146E-02,
- A-0.60724E-05, 0.10990E+05, 0.11000E+05,
- A 0.32300E+00, 0.17636E+00,-0.13536E-02,-0.58665E-06,-0.24854E-02,
- A-0.30662E-06, 0.11000E+05, 0.11010E+05,
- A 0.40180E+00, 0.22575E+00,-0.22932E-02,-0.23319E-05,-0.44015E-02,
- A 0.24510E-05, 0.11010E+05, 0.11020E+05,
- A 0.40187E+00, 0.17827E+00,-0.28707E-02, 0.15665E-05,-0.44357E-02,
- A 0.31485E-05, 0.11020E+05, 0.11030E+05,
- A 0.96411E-01, 0.21466E+00,-0.22778E-02, 0.41240E-05,-0.27585E-02,
- A 0.20224E-05, 0.11030E+05, 0.11040E+05,
- A 0.96343E-01, 0.15703E+00,-0.22356E-02, 0.15369E-05,-0.30654E-02,
- A-0.32505E-06, 0.11040E+05, 0.11050E+05,
- A 0.79848E-01, 0.17965E+00,-0.20125E-02, 0.96504E-05,-0.32600E-02,
- A 0.53659E-05, 0.11050E+05, 0.11060E+05/
- DATA ((ACR(K,J),K=1,8),J= 89, 96) /
- A 0.62139E-01, 0.10557E+00,-0.40683E-02, 0.93909E-05,-0.47053E-02,
- A 0.10347E-04, 0.11060E+05, 0.11070E+05,
- A 0.25071E+00, 0.11190E+00,-0.48932E-02, 0.98071E-05,-0.52555E-02,
- A 0.97232E-05, 0.11070E+05, 0.11080E+05,
- A 0.50363E+00, 0.18561E+00,-0.40852E-02, 0.47194E-05,-0.61085E-02,
- A 0.99471E-05, 0.11080E+05, 0.11090E+05,
- A 0.23621E+00, 0.35575E+00,-0.69998E-03,-0.38983E-06,-0.74838E-03,
- A-0.63021E-05, 0.11090E+05, 0.11100E+05,
- A 0.41715E+00, 0.20786E+00,-0.26671E-02,-0.85957E-06,-0.44855E-02,
- A 0.36346E-05, 0.11100E+05, 0.11110E+05,
- A 0.35497E+00, 0.15568E+00,-0.20655E-03,-0.10414E-04,-0.19241E-02,
- A-0.74910E-05, 0.11110E+05, 0.11120E+05,
- A 0.36391E+00, 0.22115E+00, 0.80888E-04,-0.80079E-05,-0.72043E-03,
- A-0.88371E-05, 0.11120E+05, 0.11130E+05,
- A 0.23900E+00, 0.19893E+00, 0.17314E-02,-0.17450E-04,-0.72547E-03,
- A-0.10781E-04, 0.11130E+05, 0.11140E+05/
- DATA ((ACR(K,J),K=1,8),J= 97,104) /
- A 0.18535E+00, 0.23329E+00, 0.44356E-02,-0.24159E-04, 0.25620E-02,
- A-0.21329E-04, 0.11140E+05, 0.11150E+05,
- A 0.18058E+00, 0.20287E+00, 0.53731E-02,-0.29480E-04, 0.26609E-02,
- A-0.22876E-04, 0.11150E+05, 0.11160E+05,
- A 0.86563E-01, 0.18472E+00, 0.71342E-02,-0.34497E-04, 0.62094E-02,
- A-0.37103E-04, 0.11160E+05, 0.11170E+05,
- A 0.40545E-01, 0.27173E+00, 0.12595E-01,-0.53501E-04, 0.98569E-02,
- A-0.51164E-04, 0.11170E+05, 0.11180E+05,
- A 0.15934E-01, 0.21414E+00, 0.21094E-01,-0.91779E-04, 0.18771E-01,
- A-0.88619E-04, 0.11180E+05, 0.11190E+05,
- A 0.32149E-01, 0.20819E+00, 0.53736E-02, 0.47418E-05, 0.28308E-02,
- A-0.39739E-05, 0.11190E+05, 0.11200E+05,
- A 0.33026E-02, 0.11250E+00,-0.49337E-02, 0.83861E-05,-0.74414E-02,
- A 0.12308E-04, 0.11200E+05, 0.11210E+05,
- A 0.69621E-02, 0.11936E+00, 0.24820E-02, 0.14188E-04, 0.41457E-02,
- A-0.76324E-05, 0.11210E+05, 0.11220E+05/
- DATA ((ACR(K,J),K=1,8),J=105,112) /
- A 0.18624E-02, 0.73437E-01, 0.37334E-02, 0.64996E-04, 0.21277E-02,
- A 0.25070E-04, 0.11220E+05, 0.11230E+05,
- A 0.56133E-02, 0.14671E+00, 0.57744E-03,-0.10633E-04,-0.20996E-02,
- A-0.69690E-05, 0.11230E+05, 0.11240E+05,
- A 0.59301E-03, 0.13188E+00, 0.43109E-02,-0.27217E-04, 0.14102E-02,
- A-0.21872E-04, 0.11240E+05, 0.11250E+05,
- A 0.62071E-02, 0.80210E-01, 0.31276E-02,-0.22059E-04, 0.61977E-03,
- A-0.16464E-04, 0.11250E+05, 0.11260E+05,
- A 0.70445E-03, 0.90176E-01, 0.63540E-02,-0.17728E-04, 0.35488E-02,
- A-0.21566E-04, 0.11260E+05, 0.11270E+05,
- A 0.24343E-02, 0.82442E-01,-0.12318E-03,-0.11355E-04,-0.23203E-02,
- A-0.80507E-05, 0.11270E+05, 0.11280E+05,
- A 0.53124E-02, 0.10493E+00, 0.25120E-02,-0.21412E-04,-0.25472E-03,
- A-0.16312E-04, 0.11280E+05, 0.11290E+05,
- A 0.10156E-02, 0.75674E-01, 0.67257E-02,-0.39040E-04, 0.37539E-02,
- A-0.32659E-04, 0.11290E+05, 0.11300E+05/
- DATA ((ACR(K,J),K=1,8),J=113,120) /
- A 0.45845E-03, 0.31771E-01, 0.83901E-02,-0.45954E-04, 0.56330E-02,
- A-0.40402E-04, 0.11300E+05, 0.11310E+05,
- A 0.13128E-02, 0.13620E+00, 0.32287E-02,-0.24445E-04, 0.67354E-03,
- A-0.20060E-04, 0.11310E+05, 0.11320E+05,
- A 0.91527E-03, 0.43387E-01, 0.13028E-01,-0.64031E-04, 0.10684E-01,
- A-0.60150E-04, 0.11320E+05, 0.11330E+05,
- A 0.16381E-02, 0.11364E+00, 0.82323E-02,-0.41843E-04, 0.46964E-02,
- A-0.35054E-04, 0.11330E+05, 0.11340E+05,
- A 0.82138E-03, 0.51673E-01, 0.74756E-02,-0.41981E-04, 0.51092E-02,
- A-0.37995E-04, 0.11340E+05, 0.11350E+05,
- A 0.82766E-03, 0.72646E-01, 0.53277E-02,-0.32660E-04, 0.34473E-02,
- A-0.30783E-04, 0.11350E+05, 0.11360E+05,
- A 0.29086E-03, 0.31771E-01, 0.94981E-02,-0.50386E-04, 0.67409E-02,
- A-0.44834E-04, 0.11360E+05, 0.11370E+05,
- A 0.21807E-03, 0.58942E-01, 0.15709E-01,-0.59258E-04, 0.13592E-01,
- A-0.63956E-04, 0.11370E+05, 0.11380E+05/
- DATA ((ACR(K,J),K=1,8),J=121,128) /
- A 0.62704E-03, 0.12257E+00, 0.10699E-01,-0.49284E-04, 0.95849E-02,
- A-0.53234E-04, 0.11380E+05, 0.11390E+05,
- A 0.10702E-03, 0.28818E-01, 0.79994E-02,-0.44391E-04, 0.52422E-02,
- A-0.38839E-04, 0.11390E+05, 0.11400E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11400E+05, 0.11410E+05,
- A 0.22042E-03, 0.65689E-01, 0.16094E-01,-0.75895E-04, 0.13589E-01,
- A-0.71741E-04, 0.11410E+05, 0.11420E+05,
- A 0.81809E-04, 0.30563E-01, 0.19812E-01,-0.91641E-04, 0.17055E-01,
- A-0.86089E-04, 0.11420E+05, 0.11430E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11430E+05, 0.11440E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11440E+05, 0.11450E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11450E+05, 0.11460E+05/
- DATA ((ACR(K,J),K=1,8),J=129,136) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11460E+05, 0.11470E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11470E+05, 0.11480E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11480E+05, 0.11490E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11490E+05, 0.11500E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11500E+05, 0.11510E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11510E+05, 0.11520E+05,
- A 0.68748E-05, 0.28818E-01, 0.14135E-01,-0.68935E-04, 0.11378E-01,
- A-0.63383E-04, 0.11520E+05, 0.11530E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11530E+05, 0.11540E+05/
- DATA ((ACR(K,J),K=1,8),J=137,144) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11540E+05, 0.11550E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11550E+05, 0.11560E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11560E+05, 0.11570E+05,
- A 0.11592E-04, 0.37767E-01, 0.31085E-02,-0.24828E-04, 0.35131E-03,
- A-0.19276E-04, 0.11570E+05, 0.11580E+05,
- A 0.12377E-03, 0.91349E-01, 0.12838E-01,-0.36325E-04, 0.84626E-02,
- A-0.38447E-04, 0.11580E+05, 0.11590E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11590E+05, 0.11600E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11600E+05, 0.11610E+05,
- A 0.27776E-03, 0.99768E-01, 0.16197E-01,-0.71636E-04, 0.12877E-01,
- A-0.62598E-04, 0.11610E+05, 0.11620E+05/
- DATA ((ACR(K,J),K=1,8),J=145,152) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.11620E+05, 0.11630E+05,
- A 0.60387E-03, 0.79303E-01, 0.11427E-01,-0.56399E-04, 0.76314E-02,
- A-0.45247E-04, 0.11630E+05, 0.11640E+05,
- A 0.83575E-04, 0.82334E-01, 0.15996E-01,-0.73351E-04, 0.13978E-01,
- A-0.71310E-04, 0.11640E+05, 0.11650E+05,
- A 0.27734E-03, 0.28818E-01, 0.12698E-01,-0.63185E-04, 0.99405E-02,
- A-0.57633E-04, 0.11650E+05, 0.11660E+05,
- A 0.13776E-02, 0.12750E+00, 0.89606E-02,-0.40931E-04, 0.62080E-02,
- A-0.36077E-04, 0.11660E+05, 0.11670E+05,
- A 0.45458E-03, 0.59090E-01, 0.73062E-02,-0.41015E-04, 0.53622E-02,
- A-0.38549E-04, 0.11670E+05, 0.11680E+05,
- A 0.19815E-02, 0.15477E+00, 0.62250E-02,-0.32087E-04, 0.49876E-02,
- A-0.32313E-04, 0.11680E+05, 0.11690E+05,
- A 0.99572E-03, 0.88310E-01, 0.56347E-02,-0.27093E-04, 0.37058E-02,
- A-0.28108E-04, 0.11690E+05, 0.11700E+05/
- DATA ((ACR(K,J),K=1,8),J=153,160) /
- A 0.25341E-02, 0.10399E+00, 0.32192E-02,-0.21942E-04, 0.10784E-02,
- A-0.18674E-04, 0.11700E+05, 0.11710E+05,
- A 0.16910E-02, 0.18929E+00, 0.42421E-02,-0.24597E-04, 0.31654E-02,
- A-0.23807E-04, 0.11710E+05, 0.11720E+05,
- A 0.17060E-02, 0.12598E+00, 0.65013E-03,-0.13447E-04,-0.21977E-02,
- A-0.84803E-05, 0.11720E+05, 0.11730E+05,
- A 0.32703E-02, 0.14780E+00, 0.14549E-02,-0.10754E-04, 0.35403E-03,
- A-0.13234E-04, 0.11730E+05, 0.11740E+05,
- A 0.55601E-02, 0.15726E+00,-0.20459E-02,-0.28933E-05,-0.40613E-02,
- A 0.23816E-05, 0.11740E+05, 0.11750E+05,
- A 0.23988E-02, 0.10521E+00,-0.89604E-04,-0.89256E-05,-0.19341E-02,
- A-0.41252E-05, 0.11750E+05, 0.11760E+05,
- A 0.21014E-02, 0.20346E+00, 0.15570E-02,-0.38760E-06, 0.42674E-03,
- A-0.74882E-05, 0.11760E+05, 0.11770E+05,
- A 0.44559E-02, 0.17649E+00,-0.26665E-02, 0.26782E-05,-0.43678E-02,
- A 0.11412E-04, 0.11770E+05, 0.11780E+05/
- DATA ((ACR(K,J),K=1,8),J=161,168) /
- A 0.24355E-02, 0.14380E+00,-0.30347E-02, 0.13498E-04,-0.29099E-02,
- A 0.83348E-05, 0.11780E+05, 0.11790E+05,
- A 0.12088E-02, 0.14652E+00, 0.43364E-02,-0.23499E-04, 0.41360E-02,
- A-0.25136E-04, 0.11790E+05, 0.11800E+05,
- A 0.35615E-03, 0.76935E-01,-0.41654E-03, 0.16868E-04,-0.36975E-03,
- A 0.66392E-05, 0.11800E+05, 0.11810E+05,
- A 0.33205E-02, 0.14642E+00,-0.22883E-02, 0.15563E-04,-0.11424E-02,
- A 0.66010E-05, 0.11810E+05, 0.11820E+05,
- A 0.96482E-03, 0.11674E+00,-0.20293E-02, 0.33475E-04, 0.18153E-02,
- A 0.18034E-04, 0.11820E+05, 0.11830E+05,
- A 0.25468E-02, 0.23891E+00,-0.37386E-03, 0.25112E-04,-0.70370E-03,
- A 0.12657E-04, 0.11830E+05, 0.11840E+05,
- A 0.39780E-02, 0.19525E+00, 0.17761E-02, 0.17009E-04, 0.28654E-02,
- A 0.97695E-06, 0.11840E+05, 0.11850E+05,
- A 0.93080E-02, 0.22287E+00,-0.28141E-02, 0.61915E-05,-0.35846E-02,
- A 0.90001E-05, 0.11850E+05, 0.11860E+05/
- DATA ((ACR(K,J),K=1,8),J=169,176) /
- A 0.11913E-02, 0.14817E+00, 0.11043E-02, 0.47279E-04, 0.21704E-02,
- A 0.16632E-04, 0.11860E+05, 0.11870E+05,
- A 0.10095E-01, 0.33190E+00,-0.30250E-03, 0.27919E-04, 0.46706E-03,
- A 0.13481E-04, 0.11870E+05, 0.11880E+05,
- A 0.94837E-02, 0.29542E+00, 0.41573E-02,-0.45489E-05, 0.46629E-02,
- A-0.13608E-04, 0.11880E+05, 0.11890E+05,
- A 0.57807E-02, 0.16128E+00, 0.22948E-02, 0.30930E-04, 0.32856E-02,
- A 0.73247E-05, 0.11890E+05, 0.11900E+05,
- A 0.90317E-02, 0.33992E+00, 0.64901E-02, 0.13104E-04, 0.58385E-02,
- A-0.12370E-04, 0.11900E+05, 0.11910E+05,
- A 0.34946E-02, 0.17472E+00, 0.90274E-03, 0.95690E-05, 0.75517E-03,
- A 0.76716E-06, 0.11910E+05, 0.11920E+05,
- A 0.10712E-01, 0.34337E+00, 0.57845E-02, 0.32730E-05, 0.51567E-02,
- A-0.15291E-04, 0.11920E+05, 0.11930E+05,
- A 0.18599E-01, 0.48317E+00, 0.10589E-01,-0.34336E-04, 0.73964E-02,
- A-0.36504E-04, 0.11930E+05, 0.11940E+05/
- DATA ((ACR(K,J),K=1,8),J=177,184) /
- A 0.11137E-01, 0.31418E+00, 0.88066E-02,-0.19115E-04, 0.66643E-02,
- A-0.25755E-04, 0.11940E+05, 0.11950E+05,
- A 0.14277E-01, 0.15769E+00, 0.10665E-01,-0.42217E-04, 0.66305E-02,
- A-0.32258E-04, 0.11950E+05, 0.11960E+05,
- A 0.27875E-01, 0.26865E+00, 0.10692E-01,-0.48825E-04, 0.77380E-02,
- A-0.43664E-04, 0.11960E+05, 0.11970E+05,
- A 0.12682E-01, 0.20777E+00, 0.10603E-01,-0.48734E-04, 0.81358E-02,
- A-0.41884E-04, 0.11970E+05, 0.11980E+05,
- A 0.36127E-01, 0.20496E+00, 0.77739E-02,-0.40475E-04, 0.55098E-02,
- A-0.32025E-04, 0.11980E+05, 0.11990E+05,
- A 0.26197E-01, 0.26047E+00, 0.93353E-02,-0.47349E-04, 0.69758E-02,
- A-0.42653E-04, 0.11990E+05, 0.12000E+05,
- A 0.31642E-01, 0.28308E+00, 0.72441E-02,-0.33775E-04, 0.41744E-02,
- A-0.27701E-04, 0.12000E+05, 0.12010E+05,
- A 0.13538E+00, 0.16300E+00, 0.42895E-02,-0.29341E-04, 0.14430E-02,
- A-0.23228E-04, 0.12010E+05, 0.12020E+05/
- DATA ((ACR(K,J),K=1,8),J=185,192) /
- A 0.46160E-01, 0.26257E+00, 0.59122E-02,-0.34545E-04, 0.33253E-02,
- A-0.29590E-04, 0.12020E+05, 0.12030E+05,
- A 0.98778E-01, 0.16239E+00, 0.19096E-02,-0.19470E-04, 0.19375E-03,
- A-0.16507E-04, 0.12030E+05, 0.12040E+05,
- A 0.42180E-01, 0.15687E+00, 0.11607E-02,-0.15189E-04, 0.32600E-03,
- A-0.10808E-04, 0.12040E+05, 0.12050E+05,
- A 0.81749E-01, 0.14470E+00, 0.19087E-02,-0.18894E-04, 0.46347E-04,
- A-0.15861E-04, 0.12050E+05, 0.12060E+05,
- A 0.14244E+00, 0.15544E+00,-0.48204E-03,-0.10055E-04,-0.30791E-02,
- A-0.45136E-05, 0.12060E+05, 0.12070E+05,
- A 0.15967E+00, 0.14014E+00,-0.15241E-02,-0.61008E-05,-0.38422E-02,
- A-0.12202E-05, 0.12070E+05, 0.12080E+05,
- A 0.14263E+00, 0.16924E+00,-0.25815E-02,-0.13799E-05,-0.46065E-02,
- A 0.27252E-05, 0.12080E+05, 0.12090E+05,
- A 0.28755E-01, 0.92970E-01,-0.34559E-02, 0.36475E-05,-0.38455E-02,
- A 0.86258E-05, 0.12090E+05, 0.12100E+05/
- DATA ((ACR(K,J),K=1,8),J=193,200) /
- A 0.13867E+00, 0.13244E+00,-0.35649E-02, 0.52300E-05,-0.53551E-02,
- A 0.86133E-05, 0.12100E+05, 0.12110E+05,
- A 0.22667E-01, 0.83805E-01,-0.17200E-02,-0.34708E-05,-0.30806E-02,
- A 0.30367E-05, 0.12110E+05, 0.12120E+05,
- A 0.92398E-01, 0.11619E+00,-0.42643E-02, 0.12112E-04,-0.33307E-02,
- A 0.11625E-04, 0.12120E+05, 0.12130E+05,
- A 0.36116E-01, 0.27790E+00, 0.29762E-02, 0.13854E-05, 0.42021E-02,
- A-0.12139E-04, 0.12130E+05, 0.12140E+05,
- A 0.44373E+00, 0.46666E+00, 0.31523E-03,-0.30509E-05,-0.20293E-03,
- A-0.75095E-05, 0.12140E+05, 0.12150E+05,
- A 0.27187E+00, 0.27772E+00,-0.11411E-02, 0.14254E-05,-0.16810E-02,
- A-0.81908E-06, 0.12150E+05, 0.12160E+05,
- A 0.51449E-01, 0.10126E+00,-0.37317E-02, 0.65728E-05,-0.32342E-02,
- A 0.12751E-04, 0.12160E+05, 0.12170E+05,
- A 0.38984E-01, 0.17694E+00,-0.39312E-02, 0.13072E-04,-0.33739E-02,
- A 0.14010E-04, 0.12170E+05, 0.12180E+05/
- DATA ((ACR(K,J),K=1,8),J=201,208) /
- A 0.44227E-02, 0.11724E+00, 0.62039E-02,-0.32339E-04, 0.22912E-02,
- A-0.20596E-04, 0.12180E+05, 0.12190E+05,
- A 0.18992E+00, 0.14819E+00,-0.50473E-02, 0.88110E-05,-0.68829E-02,
- A 0.12852E-04, 0.12190E+05, 0.12200E+05,
- A 0.25583E+00, 0.13027E+00,-0.44286E-02, 0.57917E-05,-0.63447E-02,
- A 0.94140E-05, 0.12200E+05, 0.12210E+05,
- A 0.13625E+00, 0.18565E+00,-0.34046E-02, 0.22857E-05,-0.50965E-02,
- A 0.64148E-05, 0.12210E+05, 0.12220E+05,
- A 0.29053E+00, 0.22511E+00,-0.27471E-02,-0.88244E-06,-0.45852E-02,
- A 0.23044E-05, 0.12220E+05, 0.12230E+05,
- A 0.19038E+00, 0.14946E+00,-0.68588E-03,-0.93784E-05,-0.27488E-02,
- A-0.50351E-05, 0.12230E+05, 0.12240E+05,
- A 0.33873E+00, 0.28292E+00,-0.10104E-03,-0.10239E-04,-0.13958E-02,
- A-0.90346E-05, 0.12240E+05, 0.12250E+05,
- A 0.13250E+00, 0.17121E+00, 0.24653E-02,-0.19723E-04, 0.18597E-03,
- A-0.14634E-04, 0.12250E+05, 0.12260E+05/
- DATA ((ACR(K,J),K=1,8),J=209,216) /
- A 0.12157E+00, 0.37106E+00, 0.37908E-02,-0.22351E-04, 0.10325E-02,
- A-0.16657E-04, 0.12260E+05, 0.12270E+05,
- A 0.76510E-01, 0.16258E+00, 0.34104E-02,-0.23774E-04, 0.18529E-02,
- A-0.21863E-04, 0.12270E+05, 0.12280E+05,
- A 0.75290E-01, 0.33562E+00, 0.76059E-02,-0.34182E-04, 0.52641E-02,
- A-0.30402E-04, 0.12280E+05, 0.12290E+05,
- A 0.60409E-01, 0.25407E+00, 0.68386E-02,-0.29386E-04, 0.61709E-02,
- A-0.28132E-04, 0.12290E+05, 0.12300E+05,
- A 0.27161E-01, 0.42647E+00, 0.97512E-02,-0.33363E-04, 0.63871E-02,
- A-0.31407E-04, 0.12300E+05, 0.12310E+05,
- A 0.91110E-02, 0.28999E+00, 0.10916E-01,-0.35531E-04, 0.85325E-02,
- A-0.36715E-04, 0.12310E+05, 0.12320E+05,
- A 0.19913E-01, 0.33483E+00, 0.88198E-02,-0.11414E-04, 0.72926E-02,
- A-0.28077E-04, 0.12320E+05, 0.12330E+05,
- A 0.81899E-02, 0.31312E+00, 0.14481E-01,-0.52817E-04, 0.10281E-01,
- A-0.44189E-04, 0.12330E+05, 0.12340E+05/
- DATA ((ACR(K,J),K=1,8),J=217,224) /
- A 0.47198E-02, 0.32687E+00, 0.79614E-02, 0.62153E-05, 0.72159E-02,
- A-0.19264E-04, 0.12340E+05, 0.12350E+05,
- A 0.11347E-01, 0.34063E+00, 0.23820E-02, 0.28934E-04, 0.25122E-02,
- A 0.26528E-05, 0.12350E+05, 0.12360E+05,
- A 0.35162E-02, 0.24740E+00, 0.64215E-02,-0.45220E-05, 0.68198E-02,
- A-0.22326E-04, 0.12360E+05, 0.12370E+05,
- A 0.45582E-02, 0.33334E+00, 0.40843E-02,-0.68827E-05, 0.26935E-02,
- A-0.16936E-04, 0.12370E+05, 0.12380E+05,
- A 0.25789E-02, 0.33203E+00, 0.49470E-02,-0.16065E-04, 0.34380E-02,
- A-0.22968E-04, 0.12380E+05, 0.12390E+05,
- A 0.45336E-02, 0.20430E+00, 0.47629E-02,-0.27839E-04, 0.25633E-02,
- A-0.24703E-04, 0.12390E+05, 0.12400E+05,
- A 0.30244E-02, 0.20516E+00, 0.81732E-02,-0.41804E-04, 0.46359E-02,
- A-0.29989E-04, 0.12400E+05, 0.12410E+05,
- A 0.41242E-02, 0.23106E+00, 0.57501E-02,-0.31437E-04, 0.34257E-02,
- A-0.28835E-04, 0.12410E+05, 0.12420E+05/
- DATA ((ACR(K,J),K=1,8),J=225,232) /
- A 0.10287E-01, 0.33673E+00, 0.41222E-02,-0.25740E-04, 0.14121E-02,
- A-0.20905E-04, 0.12420E+05, 0.12430E+05,
- A 0.52103E-02, 0.19644E+00, 0.37193E-02,-0.26341E-04, 0.93940E-03,
- A-0.20581E-04, 0.12430E+05, 0.12440E+05,
- A 0.22877E-03, 0.12174E+00, 0.92724E-02,-0.45126E-04, 0.56853E-02,
- A-0.37747E-04, 0.12440E+05, 0.12450E+05,
- A 0.15209E-01, 0.45993E+00, 0.11296E-02,-0.14042E-04,-0.11241E-02,
- A-0.11493E-04, 0.12450E+05, 0.12460E+05,
- A 0.55450E-02, 0.19110E+00, 0.15443E-02,-0.13043E-04,-0.32861E-03,
- A-0.11764E-04, 0.12460E+05, 0.12470E+05,
- A 0.11275E-01, 0.19220E+00, 0.75470E-04,-0.10276E-04,-0.20095E-02,
- A-0.76051E-05, 0.12470E+05, 0.12480E+05,
- A 0.14331E-01, 0.19322E+00,-0.10929E-02,-0.71557E-05,-0.30976E-02,
- A-0.45871E-05, 0.12480E+05, 0.12490E+05,
- A 0.13106E-01, 0.20676E+00,-0.21472E-02,-0.16890E-05,-0.33300E-02,
- A-0.47675E-06, 0.12490E+05, 0.12500E+05/
- DATA ((ACR(K,J),K=1,8),J=233,240) /
- A 0.31859E-02, 0.26518E+00, 0.18883E-02,-0.37481E-05, 0.45064E-04,
- A-0.11501E-04, 0.12500E+05, 0.12510E+05,
- A 0.66833E-02, 0.21228E+00,-0.21409E-02, 0.48505E-05,-0.28895E-02,
- A 0.40738E-05, 0.12510E+05, 0.12520E+05,
- A 0.11966E-01, 0.28263E+00,-0.13922E-02, 0.63802E-05,-0.73809E-03,
- A-0.11743E-05, 0.12520E+05, 0.12530E+05,
- A 0.40664E-02, 0.24183E+00, 0.35636E-02,-0.28875E-05, 0.22372E-02,
- A-0.16411E-04, 0.12530E+05, 0.12540E+05,
- A 0.14346E-01, 0.38510E+00, 0.20035E-03, 0.37739E-05,-0.61012E-04,
- A-0.79880E-05, 0.12540E+05, 0.12550E+05,
- A 0.31841E-01, 0.37389E+00,-0.14467E-02,-0.25515E-05,-0.36219E-02,
- A-0.94560E-06, 0.12550E+05, 0.12560E+05,
- A 0.14117E-01, 0.15375E+00,-0.27582E-02, 0.15847E-05,-0.42341E-02,
- A 0.52506E-05, 0.12560E+05, 0.12570E+05,
- A 0.69458E-02, 0.17261E+00,-0.18858E-02,-0.13771E-05,-0.38705E-02,
- A 0.18317E-05, 0.12570E+05, 0.12580E+05/
- DATA ((ACR(K,J),K=1,8),J=241,248) /
- A 0.34163E-02, 0.16476E+00,-0.38874E-02, 0.89594E-05,-0.47510E-02,
- A 0.65193E-05, 0.12580E+05, 0.12590E+05,
- A 0.10085E-02, 0.13402E+00, 0.89094E-03,-0.60180E-05,-0.64581E-05,
- A-0.94409E-05, 0.12590E+05, 0.12600E+05,
- A 0.17942E-01, 0.20327E+00,-0.39862E-02, 0.75053E-05,-0.52785E-02,
- A 0.73576E-05, 0.12600E+05, 0.12610E+05,
- A 0.80749E-02, 0.61138E-01,-0.49341E-02, 0.75781E-05,-0.72374E-02,
- A 0.11499E-04, 0.12610E+05, 0.12620E+05,
- A 0.22511E-01, 0.21226E+00,-0.34799E-02, 0.31960E-05,-0.50773E-02,
- A 0.62716E-05, 0.12620E+05, 0.12630E+05,
- A 0.91364E-02, 0.16111E+00,-0.29375E-02, 0.26306E-06,-0.49473E-02,
- A 0.43965E-05, 0.12630E+05, 0.12640E+05,
- A 0.14688E-01, 0.15530E+00,-0.20029E-02,-0.23192E-05,-0.29945E-02,
- A-0.21575E-05, 0.12640E+05, 0.12650E+05,
- A 0.16309E-01, 0.20204E+00, 0.16988E-05,-0.11090E-04,-0.14702E-02,
- A-0.99629E-05, 0.12650E+05, 0.12660E+05/
- DATA ((ACR(K,J),K=1,8),J=249,256) /
- A 0.28046E-01, 0.24162E+00, 0.21643E-03,-0.11209E-04,-0.17491E-02,
- A-0.89040E-05, 0.12660E+05, 0.12670E+05,
- A 0.11289E-01, 0.29319E+00, 0.34128E-02,-0.23021E-04, 0.10846E-02,
- A-0.18419E-04, 0.12670E+05, 0.12680E+05,
- A 0.49531E-02, 0.14498E+00, 0.53073E-02,-0.28791E-04, 0.32927E-02,
- A-0.25157E-04, 0.12680E+05, 0.12690E+05,
- A 0.72485E-02, 0.17855E+00, 0.56992E-02,-0.32465E-04, 0.41153E-02,
- A-0.32129E-04, 0.12690E+05, 0.12700E+05,
- A 0.61604E-02, 0.24780E+00, 0.73217E-02,-0.31129E-04, 0.58029E-02,
- A-0.32007E-04, 0.12700E+05, 0.12710E+05,
- A 0.13393E-02, 0.12405E+00, 0.12672E-01,-0.48102E-04, 0.88276E-02,
- A-0.39342E-04, 0.12710E+05, 0.12720E+05,
- A 0.10615E-02, 0.14687E+00, 0.12203E-01,-0.50558E-04, 0.10580E-01,
- A-0.54423E-04, 0.12720E+05, 0.12730E+05,
- A 0.47236E-03, 0.80989E-01, 0.36212E-02, 0.34855E-04, 0.23529E-02,
- A 0.79526E-05, 0.12730E+05, 0.12740E+05/
-C
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.h b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.h
deleted file mode 100644
index 8bac8c8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA4.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_wava4_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.P b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.P
deleted file mode 100644
index 82723f4..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int wava5_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.c b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.c
deleted file mode 100644
index 74e686b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.c
+++ /dev/null
@@ -1,316 +0,0 @@
-/* WAVA5.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< SUBROUTINE WAVA5(a,inu) >*/
-/* Subroutine */ int wava5_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { 4.6416e-4,.04653,
- .011484,-5.0228e-5,.0057564,-2.8823e-5,12740.,12750.,2.6026e-5,
- .069686,.0050381,-3.0969e-5,.0023565,-2.6498e-5,12750.,12760.,
- 2.1016e-4,.078469,-.0024738,-2.0423e-6,-.0056905,4.9529e-6,12760.,
- 12770.,0.,0.,0.,0.,0.,0.,12770.,12780.,6.0427e-5,.037767,
- 5.4219e-4,-1.4563e-5,-.002215,-9.0107e-6,12780.,12790.,2.496e-5,
- .041123,-.0026523,-1.7845e-6,-.0054095,3.7673e-6,12790.,12800.,0.,
- 0.,0.,0.,0.,0.,12800.,12810.,0.,0.,0.,0.,0.,0.,12810.,12820.,
- 6.3228e-5,.037767,-6.7259e-4,-9.7034e-6,-.0034298,-4.1516e-6,
- 12820.,12830.,7.0635e-5,.034814,.0017376,-1.9344e-5,-.0010196,
- -1.3792e-5,12830.,12840.,3.5776e-5,.068419,.0046121,-2.7372e-5,
- .0015491,-2.2291e-5,12840.,12850.,8.2613e-5,.072444,.0029409,
- -2.2687e-5,1.2304e-4,-1.7626e-5,12850.,12860.,1.3149e-5,.034814,
- .0017682,-1.9467e-5,-9.8895e-4,-1.3915e-5,12860.,12870.,0.,0.,0.,
- 0.,0.,0.,12870.,12880.,1.0952e-5,.034814,.0039164,-2.8059e-5,
- .0011592,-2.2508e-5,12880.,12890.,1.1287e-5,.037767,.0031085,
- -2.4828e-5,3.5131e-4,-1.9276e-5,12890.,12900.,1.2534e-5,.034814,
- .006137,-3.6942e-5,.0033798,-3.139e-5,12900.,12910.,1.9577e-5,
- .031771,.0046608,-3.1037e-5,.0019036,-2.5485e-5,12910.,12920.,0.,
- 0.,0.,0.,0.,0.,12920.,12930.,9.153e-6,.028818,.0079937,-4.4369e-5,
- .0052366,-3.8817e-5,12930.,12940.,0.,0.,0.,0.,0.,0.,12940.,12950.,
- 0.,0.,0.,0.,0.,0.,12950.,12960.,0.,0.,0.,0.,0.,0.,12960.,12970.,
- 0.,0.,0.,0.,0.,0.,12970.,12980.,0.,0.,0.,0.,0.,0.,12980.,12990.,
- 0.,0.,0.,0.,0.,0.,12990.,1.3e4,0.,0.,0.,0.,0.,0.,1.3e4,13010.,0.,
- 0.,0.,0.,0.,0.,13010.,13020.,0.,0.,0.,0.,0.,0.,13020.,13030.,0.,
- 0.,0.,0.,0.,0.,13030.,13040.,0.,0.,0.,0.,0.,0.,13040.,13050.,0.,
- 0.,0.,0.,0.,0.,13050.,13060.,0.,0.,0.,0.,0.,0.,13060.,13070.,0.,
- 0.,0.,0.,0.,0.,13070.,13080.,0.,0.,0.,0.,0.,0.,13080.,13090.,0.,
- 0.,0.,0.,0.,0.,13090.,13100.,0.,0.,0.,0.,0.,0.,13100.,13110.,0.,
- 0.,0.,0.,0.,0.,13110.,13120.,0.,0.,0.,0.,0.,0.,13120.,13130.,0.,
- 0.,0.,0.,0.,0.,13130.,13140.,0.,0.,0.,0.,0.,0.,13140.,13150.,0.,
- 0.,0.,0.,0.,0.,13150.,13160.,0.,0.,0.,0.,0.,0.,13160.,13170.,0.,
- 0.,0.,0.,0.,0.,13170.,13180.,0.,0.,0.,0.,0.,0.,13180.,13190.,0.,
- 0.,0.,0.,0.,0.,13190.,13200.,0.,0.,0.,0.,0.,0.,13200.,13210.,0.,
- 0.,0.,0.,0.,0.,13210.,13220.,0.,0.,0.,0.,0.,0.,13220.,13230.,0.,
- 0.,0.,0.,0.,0.,13230.,13240.,0.,0.,0.,0.,0.,0.,13240.,13250.,0.,
- 0.,0.,0.,0.,0.,13250.,13260.,0.,0.,0.,0.,0.,0.,13260.,13270.,0.,
- 0.,0.,0.,0.,0.,13270.,13280.,0.,0.,0.,0.,0.,0.,13280.,13290.,0.,
- 0.,0.,0.,0.,0.,13290.,13300.,0.,0.,0.,0.,0.,0.,13300.,13310.,0.,
- 0.,0.,0.,0.,0.,13310.,13320.,0.,0.,0.,0.,0.,0.,13320.,13330.,0.,
- 0.,0.,0.,0.,0.,13330.,13340.,0.,0.,0.,0.,0.,0.,13340.,13350.,
- 3.4847e-5,.04882,.025041,-1.1142e-4,.022291,-1.0647e-4,13350.,
- 13360.,6.4041e-5,.10448,.01454,-4.7733e-5,.013707,-6.0524e-5,
- 13360.,13370.,4.8972e-5,.061588,.015816,-3.1234e-5,.012279,
- -4.4662e-5,13370.,13380.,3.4101e-4,.20633,.0080284,-9.6908e-6,
- .0076822,-2.8886e-5,13380.,13390.,1.6731e-5,.03468,.029361,
- -1.2984e-4,.026604,-1.2428e-4,13390.,13400.,3.9582e-4,.10507,
- .018729,-6.1046e-5,.015312,-6.0499e-5,13400.,13410.,5.7395e-4,
- .20422,.012292,-3.0378e-5,.010954,-4.4352e-5,13410.,13420.,
- 1.6304e-4,.075327,.024345,-1.0453e-4,.022312,-1.0356e-4,13420.,
- 13430.,.0014276,.27047,.017891,-7.3505e-5,.016458,-7.1692e-5,
- 13430.,13440.,3.2739e-4,.19765,.021521,-5.2027e-5,.020205,
- -6.8454e-5,13440.,13450.,8.4176e-4,.22651,.014704,-5.7138e-5,
- .012449,-5.5586e-5,13450.,13460.,.003321,.26989,.014889,
- -6.1022e-5,.014319,-6.4594e-5,13460.,13470.,.0020184,.15068,
- .014242,-5.0382e-5,.014352,-5.2958e-5,13470.,13480.,.0034847,
- .23656,.01296,-5.4713e-5,.011654,-5.3532e-5,13480.,13490.,
- .0051848,.22152,.01005,-4.214e-5,.010802,-4.9706e-5,13490.,13500.,
- .002246,.20257,.011509,-1.145e-6,.012567,-2.9901e-5,13500.,13510.,
- .01207,.22916,.0070442,-3.1499e-5,.0063368,-3.3814e-5,13510.,
- 13520.,.011903,.21411,.006383,-2.2698e-5,.0062241,-2.6759e-5,
- 13520.,13530.,.009548,.21575,.0044827,-1.1921e-5,.0055699,
- -2.5927e-5,13530.,13540.,.011523,.40682,.0091253,-1.9397e-5,
- .0079449,-3.2998e-5,13540.,13550.,.0084497,.29293,.0047841,
- -1.1629e-5,.0057988,-2.5164e-5,13550.,13560.,.026919,.27673,
- .0019766,-3.7751e-6,.0016743,-8.638e-6,13560.,13570.,.021945,
- .3387,.005114,3.7089e-6,.0063004,-2.3091e-5,13570.,13580.,.021982,
- .18246,3.6494e-4,1.1207e-6,-3.7751e-4,-1.4267e-6,13580.,13590.,
- .010404,.21217,.0039463,5.5125e-6,.0030886,-1.2313e-5,13590.,
- 13600.,.022785,.35675,.0080322,-4.828e-6,.0057084,-1.9313e-5,
- 13600.,13610.,.021944,.17661,.0028308,8.2581e-6,.0014574,
- -4.9721e-6,13610.,13620.,.015009,.16917,.001106,1.4866e-5,.001036,
- -3.5775e-6,13620.,13630.,.028056,.27826,.010985,-5.284e-5,
- .0083121,-4.5055e-5,13630.,13640.,.017905,.21652,.0091202,
- -4.3033e-5,.0064523,-3.6725e-5,13640.,13650.,.040842,.16141,
- .002459,-4.3246e-6,2.4001e-4,-1.8088e-6,13650.,13660.,.064344,
- .36355,.002624,-5.0938e-6,8.4629e-4,-7.2912e-6,13660.,13670.,
- .098009,.46873,.003736,-2.2472e-5,.0012376,-1.8409e-5,13670.,
- 13680.,.10223,.26441,.0043146,-2.6517e-5,.003082,-2.1843e-5,
- 13680.,13690.,.051383,.36953,.0029461,-4.1201e-6,.001609,
- -1.0556e-5,13690.,13700.,.079035,.41629,.0039863,-1.0096e-5,
- .0020593,-1.5846e-5,13700.,13710.,.17862,.23727,7.0664e-4,
- -1.3429e-5,-.0024735,-6.33e-6,13710.,13720.,.023457,.12905,
- -.0022038,-1.2856e-6,-.0036094,1.0306e-6,13720.,13730.,.1498,
- .27847,-7.0337e-4,-8.8658e-6,-.0037774,-2.5192e-6,13730.,13740.,
- .15951,.19705,-.0012269,-5.7441e-6,-.0026138,-3.9795e-6,13740.,
- 13750.,.030444,.2508,.001339,-3.667e-6,.0013056,-7.9865e-6,13750.,
- 13760.,.091463,.42355,.0015252,-5.082e-6,1.0296e-4,-1.0731e-5,
- 13760.,13770.,.055724,.23315,5.0264e-4,-5.1006e-7,-.0018097,
- -3.8866e-6,13770.,13780.,.20577,.30719,-.0013969,1.9333e-6,
- -.0029895,-5.1114e-7,13780.,13790.,.076501,.36547,.0034715,
- -2.4093e-5,.0010916,-1.9569e-5,13790.,13800.,.26798,.22416,
- -.0016316,-1.9581e-6,-.0041508,1.1385e-6,13800.,13810.,.20338,
- .16881,-.0022177,-1.1382e-6,-.0032452,-1.5814e-7,13810.,13820.,
- .12951,.12548,-.0038707,6.337e-6,-.0045229,6.1639e-6,13820.,
- 13830.,.088731,.17991,-.0038169,7.3459e-6,-.0042642,6.6757e-6,
- 13830.,13840.,.0067788,.12625,.0098132,-4.8875e-5,.007723,
- -4.7347e-5,13840.,13850.,.010502,.21694,8.6711e-4,4.6135e-6,
- .0011488,-8.9674e-6,13850.,13860.,.04906,.16058,-.0030216,
- 1.0044e-5,-.0024328,6.7471e-6,13860.,13870.,.24278,.15261,
- -.0051224,8.9719e-6,-.0065887,1.2603e-5,13870.,13880.,.27304,
- .29617,-.003541,3.4588e-6,-.0050128,8.099e-6,13880.,13890.,.13252,
- .25864,-.0015695,-2.898e-6,-.002959,-3.2727e-6,13890.,13900.,
- .27275,.14969,-.0015578,-4.3912e-6,-.0023477,-2.7675e-6,13900.,
- 13910.,.28731,.24848,-2.6722e-4,-9.0595e-6,-.002097,-6.6308e-6,
- 13910.,13920.,.20952,.31628,.0028828,-2.1023e-5,9.3184e-4,
- -1.7842e-5,13920.,13930.,.12621,.34509,.0047187,-2.6132e-5,
- .0021269,-2.2662e-5,13930.,13940.,.082581,.35712,.0065235,
- -2.9651e-5,.0046608,-2.9306e-5,13940.,13950.,.02215,.56251,
- .011273,-2.023e-5,.0098905,-3.5866e-5,13950.,13960.,.013395,
- .23595,.0075697,-1.1677e-5,.0047404,-1.3519e-5,13960.,13970.,
- .0097251,.389,.0045853,-4.4223e-6,.0013332,-8.8812e-6,13970.,
- 13980.,.01416,.3192,.0014413,7.7474e-7,.0010611,-6.6038e-6,13980.,
- 13990.,.0064431,.38168,.0021106,-5.5268e-6,6.2478e-4,-4.2781e-6,
- 13990.,1.4e4,.0074763,.21449,8.6863e-6,-4.7583e-6,-.0024648,
- -3.1646e-6,1.4e4,14010.,.0044339,.31044,.0062951,-8.282e-6,.00239,
- -1.0886e-5,14010.,14020.,.0063698,.37192,.0035714,-7.0127e-6,
- .0022531,-1.3753e-5,14020.,14030.,.0030618,.32199,.0067837,
- -4.6145e-6,.0056415,-1.9199e-5,14030.,14040.,.0045836,.19592,
- .0034269,-6.7013e-6,.0015603,-2.0576e-6,14040.,14050.,.0028921,
- .26752,.0054727,-8.232e-6,.0034172,-1.6235e-5,14050.,14060.,
- .0083604,.491,.0036871,-2.6932e-6,.0022258,-1.2432e-5,14060.,
- 14070.,.0048958,.40049,.0028518,-8.9707e-6,7.3805e-4,-1.0552e-5,
- 14070.,14080.,.0060175,.66182,.0036922,-1.2082e-5,.002131,
- -1.7251e-5,14080.,14090.,.0051267,.30376,.012373,-5.2388e-5,
- .0092416,-4.9701e-5,14090.,14100.,.0051874,.37923,.0085604,
- -3.2476e-5,.0048279,-2.831e-5,14100.,14110.,.0037549,.24752,
- .0026234,1.353e-6,1.7089e-4,-5.9579e-6,14110.,14120.,.008547,
- .48393,.0055118,-1.2616e-5,.0021682,-1.5595e-5,14120.,14130.,
- .007167,.42356,.0073835,-3.8638e-5,.0043338,-3.2395e-5,14130.,
- 14140.,.0084611,.31558,.0047305,-1.7484e-5,.0013223,-1.1411e-5,
- 14140.,14150.,.0086532,.27748,.005894,-3.133e-5,.0032608,
- -2.6952e-5,14150.,14160.,.012236,.32519,.0020656,-1.1881e-5,
- -4.5247e-4,-1.1093e-5,14160.,14170.,.019531,.25874,.0039764,
- -2.6715e-5,.0012538,-1.9528e-5,14170.,14180.,.0057931,.18836,
- .0039509,-2.0877e-5,.001896,-1.8677e-5,14180.,14190.,.0065709,
- .31403,.0030661,-6.3795e-6,.0013225,-1.1966e-5,14190.,14200.,
- .026818,.21236,.0016226,-1.6759e-5,-4.3884e-4,-1.1258e-5,14200.,
- 14210.,.0015917,.17083,.0098825,-2.9767e-5,.0059285,-2.8608e-5,
- 14210.,14220.,.036373,.30478,9.7187e-4,-8.1756e-6,8.1092e-5,
- -1.0434e-5,14220.,14230.,.018351,.085618,-.0015427,-3.9022e-6,
- -.0026215,7.5823e-7,14230.,14240.,.027421,.1672,-.0016048,1.04e-6,
- -.0021918,-7.3937e-7,14240.,14250.,.019137,.34394,.0054701,
- -3.1082e-5,.0021305,-2.3894e-5,14250.,14260.,.011742,.24754,
- -.0015398,1.4005e-6,-.0032941,1.7021e-7,14260.,14270.,.030406,
- .25107,-.0021777,1.1738e-6,-.0042308,1.983e-6,14270.,14280.,
- .02572,.17272,.0014929,-1.7124e-5,-2.0245e-4,-1.5475e-5,14280.,
- 14290.,.023411,.14155,-.0036159,5.4534e-6,-.0056547,8.3323e-6,
- 14290.,14300.,.050436,.17597,-.0035358,2.7001e-6,-.005998,
- 7.9894e-6,14300.,14310.,.010835,.16074,-.0023328,3.6258e-6,
- -.0036191,6.6611e-7,14310.,14320.,.0097229,.1372,-.0026043,
- 3.3682e-6,-.0039301,2.3934e-6,14320.,14330.,.0041727,.26898,
- 8.9506e-4,-3.3799e-6,-8.0987e-4,-7.4366e-6,14330.,14340.,.0028313,
- .11399,-.0023514,1.9057e-8,-.0043191,3.2086e-6,14340.,14350.,
- .0094087,.13847,-.0033995,5.3082e-6,-.0048841,7.2565e-6,14350.,
- 14360.,.045453,.1618,-.0049821,9.5517e-6,-.0062627,1.3183e-5,
- 14360.,14370.,.05478,.246,-.003323,3.3083e-6,-.0044595,4.3249e-6,
- 14370.,14380.,.057794,.29926,-.0018524,-2.6891e-6,-.0034713,
- -1.4711e-6,14380.,14390.,.017789,.040974,-5.5041e-4,-9.0402e-6,
- -.0019035,-4.1538e-6,14390.,14400.,.066509,.31802,1.7874e-4,
- -1.0469e-5,-.0014428,-9.3839e-6,14400.,14410.,.033243,.21287,
- .0023294,-1.8667e-5,-4.0745e-4,-1.2383e-5,14410.,14420.,.030315,
- .32935,.005459,-3.1244e-5,.0033095,-2.8644e-5,14420.,14430.,
- .011921,.16637,.0064852,-3.2883e-5,.0040894,-2.982e-5,14430.,
- 14440.,.0035817,.24062,.010713,-2.2991e-5,.0076719,-3.0879e-5,
- 14440.,14450.,.0020434,.09533,.0074555,-4.0758e-5,.003952,
- -3.2281e-5,14450.,14460.,.0019531,.057626,.013393,-6.572e-5,
- .010648,-6.0338e-5,14460.,14470.,.0015972,.063531,-.0028566,
- -9.3552e-7,-.0057668,5.2381e-6,14470.,14480.,6.208e-4,.14581,
- -.0038143,3.5516e-6,-.006417,7.6586e-6,14480.,14490.,2.573e-4,
- .034903,.0017376,-1.9344e-5,-.0010196,-1.3792e-5,14490.,14500.,
- 5.8326e-4,.07101,.0037987,-2.7471e-5,.0011761,-2.2502e-5,14500.,
- 14510.,1.981e-4,.037767,5.4219e-4,-1.4563e-5,-.002215,-9.0107e-6,
- 14510.,14520.,0.,0.,0.,0.,0.,0.,14520.,14530.,6.1723e-4,.05996,
- .0029608,-2.3205e-5,-5.41e-4,-1.4715e-5,14530.,14540.,0.,0.,0.,0.,
- 0.,0.,14540.,14550.,0.,0.,0.,0.,0.,0.,14550.,14560.,8.7384e-4,
- .20577,.001467,-1.2035e-5,-.0013037,-8.5219e-6,14560.,14570.,
- 3.6981e-4,.15319,.0026086,5.1176e-7,-9.4964e-4,-4.1621e-6,14570.,
- 14580.,5.3062e-4,.2039,-9.2668e-4,-1.7265e-6,-.0025209,-3.9176e-6,
- 14580.,14590.,2.3625e-4,.10952,3.608e-5,-6.6963e-7,-.0029777,
- -5.5782e-7,14590.,14600.,2.5529e-4,.085175,.0086357,-4.5158e-5,
- .0055824,-3.9246e-5,14600.,14610.,3.5469e-4,.17005,5.5905e-4,
- 3.4517e-6,-.0012201,-2.0532e-6,14610.,14620.,1.4962e-4,.070668,
- 3.6006e-4,-1.3091e-5,-.002318,-8.0334e-6,14620.,14630.,1.6283e-4,
- .043851,-.0019069,-4.7662e-6,-.0047857,1.0305e-6,14630.,14640.,
- 3.4849e-4,.091227,1.957e-4,-6.7027e-6,-.0019067,-6.8831e-6,14640.,
- 14650.,2.4098e-4,.073915,5.8149e-4,2.017e-6,-.0021878,-6.9336e-7,
- 14650.,14660.,1.8929e-4,.040095,-9.767e-4,-8.487e-6,-.003815,
- -2.7719e-6,14660.,14670.,2.8551e-4,.089939,9.0134e-4,-1.5963e-5,
- -.0017529,-1.0799e-5,14670.,14680.,1.3624e-4,.063104,.0051307,
- -3.2797e-5,.002189,-2.6775e-5,14680.,14690.,9.1275e-5,.031681,
- .0031085,-2.4828e-5,3.5131e-4,-1.9276e-5,14690.,14700.,8.8122e-5,
- .040141,.0011384,-1.6948e-5,-.0017809,-1.1069e-5,14700.,14710.,0.,
- 0.,0.,0.,0.,0.,14710.,14720.,0.,0.,0.,0.,0.,0.,14720.,14730.,0.,
- 0.,0.,0.,0.,0.,14730.,14740.,0.,0.,0.,0.,0.,0.,14740.,14750.,0.,
- 0.,0.,0.,0.,0.,14750.,14760.,0.,0.,0.,0.,0.,0.,14760.,14770.,0.,
- 0.,0.,0.,0.,0.,14770.,14780.,0.,0.,0.,0.,0.,0.,14780.,14790.,0.,
- 0.,0.,0.,0.,0.,14790.,14800.,0.,0.,0.,0.,0.,0.,14800.,14810.,0.,
- 0.,0.,0.,0.,0.,14810.,14820.,0.,0.,0.,0.,0.,0.,14820.,14830.,0.,
- 0.,0.,0.,0.,0.,14830.,14840.,0.,0.,0.,0.,0.,0.,14840.,14850.,0.,
- 0.,0.,0.,0.,0.,14850.,14860.,0.,0.,0.,0.,0.,0.,14860.,14870.,0.,
- 0.,0.,0.,0.,0.,14870.,14880.,0.,0.,0.,0.,0.,0.,14880.,14890.,0.,
- 0.,0.,0.,0.,0.,14890.,14900.,0.,0.,0.,0.,0.,0.,14900.,14910.,0.,
- 0.,0.,0.,0.,0.,14910.,14920.,0.,0.,0.,0.,0.,0.,14920.,14930.,0.,
- 0.,0.,0.,0.,0.,14930.,14940.,0.,0.,0.,0.,0.,0.,14940.,14950.,0.,
- 0.,0.,0.,0.,0.,14950.,14960.,0.,0.,0.,0.,0.,0.,14960.,14970.,0.,
- 0.,0.,0.,0.,0.,14970.,14980.,0.,0.,0.,0.,0.,0.,14980.,14990.,0.,
- 0.,0.,0.,0.,0.,14990.,1.5e4,0.,0.,0.,0.,0.,0.,1.5e4,15010.,0.,0.,
- 0.,0.,0.,0.,15010.,15020.,0.,0.,0.,0.,0.,0.,15020.,15030.,0.,0.,
- 0.,0.,0.,0.,15030.,15040.,0.,0.,0.,0.,0.,0.,15040.,15050.,0.,0.,
- 0.,0.,0.,0.,15050.,15060.,0.,0.,0.,0.,0.,0.,15060.,15070.,0.,0.,
- 0.,0.,0.,0.,15070.,15080.,7.1934e-4,.12682,.0061012,1.5559e-5,
- .0027848,-4.5145e-6,15080.,15090.,4.9571e-4,.13321,.0050157,
- 1.7658e-5,.0024032,-4.0605e-6,15090.,15100.,2.2621e-4,.12674,
- .016133,-6.1229e-5,.013281,-6.2746e-5,15100.,15110.,8.5668e-4,
- .12425,.016195,-7.6668e-5,.013811,-7.25e-5,15110.,15120.,
- 5.5721e-4,.11061,.0048501,3.2762e-5,.0041846,4.2515e-7,15120.,
- 15130.,.0010214,.16075,.0077437,-9.7938e-6,.0033244,-1.335e-5,
- 15130.,15140.,.0037351,.23141,.0075468,-1.8073e-5,.0038208,
- -1.7101e-5,15140.,15150.,6.9279e-4,.16527,.0092564,-2.4217e-5,
- .0059447,-2.8136e-5,15150.,15160.,.0020924,.19937,.0067646,
- -1.9228e-5,.0021429,-1.4011e-5,15160.,15170.,.0029213,.11019,
- .0078105,-4.068e-5,.0061601,-3.7164e-5,15170.,15180.,.0040031,
- .2888,.0050758,-1.9158e-5,.0019869,-1.728e-5,15180.,15190.,
- .0024252,.15747,.0044234,-2.0027e-5,3.4479e-4,-1.2338e-5,15190.,
- 15200.,.0087795,.14543,.0042621,-2.7308e-5,7.3031e-4,-1.681e-5,
- 15200.,15210.,.0095997,.374,.0046013,-2.8568e-5,.002061,
- -2.4098e-5,15210.,15220.,9.5938e-4,.22877,.0032518,-1.2364e-5,
- .00118,-1.6396e-5,15220.,15230.,.0089911,.27602,.0015486,
- -1.7622e-5,-7.0027e-4,-1.3639e-5,15230.,15240.,.0070384,.19525,
- .0017332,-1.8418e-5,-.0010753,-1.2514e-5,15240.,15250.,.012889,
- .20893,5.2643e-4,-8.5726e-6,-8.0955e-4,-8.4315e-6,15250.,15260.,
- .01071,.10552,-.0015016,-6.0962e-6,-.0038322,-1.9428e-6,15260.,
- 15270.,.011725,.11142,-.0024386,-2.089e-6,-.0045783,1.5311e-6,
- 15270.,15280.,.0036695,.13405,-.0019794,1.4362e-7,-.0035859,
- 2.0003e-6,15280.,15290.,.0038912,.14992,-3.0601e-5,8.2096e-6,
- -1.4088e-4,-1.393e-6,15290.,15300. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-
-/* WATER VAPOR (12740 - 15280 CM-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* wava5_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.f b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.f
deleted file mode 100644
index d3655c6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.f
+++ /dev/null
@@ -1,560 +0,0 @@
- SUBROUTINE WAVA5(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-C
-C WATER VAPOR (12740 - 15280 CM-1)
-C
- DATA ((ACR(K,J),K=1,8),J= 1, 8) /
- A 0.46416E-03, 0.46530E-01, 0.11484E-01,-0.50228E-04, 0.57564E-02,
- A-0.28823E-04, 0.12740E+05, 0.12750E+05,
- A 0.26026E-04, 0.69686E-01, 0.50381E-02,-0.30969E-04, 0.23565E-02,
- A-0.26498E-04, 0.12750E+05, 0.12760E+05,
- A 0.21016E-03, 0.78469E-01,-0.24738E-02,-0.20423E-05,-0.56905E-02,
- A 0.49529E-05, 0.12760E+05, 0.12770E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.12770E+05, 0.12780E+05,
- A 0.60427E-04, 0.37767E-01, 0.54219E-03,-0.14563E-04,-0.22150E-02,
- A-0.90107E-05, 0.12780E+05, 0.12790E+05,
- A 0.24960E-04, 0.41123E-01,-0.26523E-02,-0.17845E-05,-0.54095E-02,
- A 0.37673E-05, 0.12790E+05, 0.12800E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.12800E+05, 0.12810E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.12810E+05, 0.12820E+05/
- DATA ((ACR(K,J),K=1,8),J= 9, 16) /
- A 0.63228E-04, 0.37767E-01,-0.67259E-03,-0.97034E-05,-0.34298E-02,
- A-0.41516E-05, 0.12820E+05, 0.12830E+05,
- A 0.70635E-04, 0.34814E-01, 0.17376E-02,-0.19344E-04,-0.10196E-02,
- A-0.13792E-04, 0.12830E+05, 0.12840E+05,
- A 0.35776E-04, 0.68419E-01, 0.46121E-02,-0.27372E-04, 0.15491E-02,
- A-0.22291E-04, 0.12840E+05, 0.12850E+05,
- A 0.82613E-04, 0.72444E-01, 0.29409E-02,-0.22687E-04, 0.12304E-03,
- A-0.17626E-04, 0.12850E+05, 0.12860E+05,
- A 0.13149E-04, 0.34814E-01, 0.17682E-02,-0.19467E-04,-0.98895E-03,
- A-0.13915E-04, 0.12860E+05, 0.12870E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.12870E+05, 0.12880E+05,
- A 0.10952E-04, 0.34814E-01, 0.39164E-02,-0.28059E-04, 0.11592E-02,
- A-0.22508E-04, 0.12880E+05, 0.12890E+05,
- A 0.11287E-04, 0.37767E-01, 0.31085E-02,-0.24828E-04, 0.35131E-03,
- A-0.19276E-04, 0.12890E+05, 0.12900E+05/
- DATA ((ACR(K,J),K=1,8),J= 17, 24) /
- A 0.12534E-04, 0.34814E-01, 0.61370E-02,-0.36942E-04, 0.33798E-02,
- A-0.31390E-04, 0.12900E+05, 0.12910E+05,
- A 0.19577E-04, 0.31771E-01, 0.46608E-02,-0.31037E-04, 0.19036E-02,
- A-0.25485E-04, 0.12910E+05, 0.12920E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.12920E+05, 0.12930E+05,
- A 0.91530E-05, 0.28818E-01, 0.79937E-02,-0.44369E-04, 0.52366E-02,
- A-0.38817E-04, 0.12930E+05, 0.12940E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.12940E+05, 0.12950E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.12950E+05, 0.12960E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.12960E+05, 0.12970E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.12970E+05, 0.12980E+05/
- DATA ((ACR(K,J),K=1,8),J= 25, 32) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.12980E+05, 0.12990E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.12990E+05, 0.13000E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13000E+05, 0.13010E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13010E+05, 0.13020E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13020E+05, 0.13030E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13030E+05, 0.13040E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13040E+05, 0.13050E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13050E+05, 0.13060E+05/
- DATA ((ACR(K,J),K=1,8),J= 33, 40) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13060E+05, 0.13070E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13070E+05, 0.13080E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13080E+05, 0.13090E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13090E+05, 0.13100E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13100E+05, 0.13110E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13110E+05, 0.13120E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13120E+05, 0.13130E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13130E+05, 0.13140E+05/
- DATA ((ACR(K,J),K=1,8),J= 41, 48) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13140E+05, 0.13150E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13150E+05, 0.13160E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13160E+05, 0.13170E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13170E+05, 0.13180E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13180E+05, 0.13190E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13190E+05, 0.13200E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13200E+05, 0.13210E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13210E+05, 0.13220E+05/
- DATA ((ACR(K,J),K=1,8),J= 49, 56) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13220E+05, 0.13230E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13230E+05, 0.13240E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13240E+05, 0.13250E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13250E+05, 0.13260E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13260E+05, 0.13270E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13270E+05, 0.13280E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13280E+05, 0.13290E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13290E+05, 0.13300E+05/
- DATA ((ACR(K,J),K=1,8),J= 57, 64) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13300E+05, 0.13310E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13310E+05, 0.13320E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13320E+05, 0.13330E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13330E+05, 0.13340E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.13340E+05, 0.13350E+05,
- A 0.34847E-04, 0.48820E-01, 0.25041E-01,-0.11142E-03, 0.22291E-01,
- A-0.10647E-03, 0.13350E+05, 0.13360E+05,
- A 0.64041E-04, 0.10448E+00, 0.14540E-01,-0.47733E-04, 0.13707E-01,
- A-0.60524E-04, 0.13360E+05, 0.13370E+05,
- A 0.48972E-04, 0.61588E-01, 0.15816E-01,-0.31234E-04, 0.12279E-01,
- A-0.44662E-04, 0.13370E+05, 0.13380E+05/
- DATA ((ACR(K,J),K=1,8),J= 65, 72) /
- A 0.34101E-03, 0.20633E+00, 0.80284E-02,-0.96908E-05, 0.76822E-02,
- A-0.28886E-04, 0.13380E+05, 0.13390E+05,
- A 0.16731E-04, 0.34680E-01, 0.29361E-01,-0.12984E-03, 0.26604E-01,
- A-0.12428E-03, 0.13390E+05, 0.13400E+05,
- A 0.39582E-03, 0.10507E+00, 0.18729E-01,-0.61046E-04, 0.15312E-01,
- A-0.60499E-04, 0.13400E+05, 0.13410E+05,
- A 0.57395E-03, 0.20422E+00, 0.12292E-01,-0.30378E-04, 0.10954E-01,
- A-0.44352E-04, 0.13410E+05, 0.13420E+05,
- A 0.16304E-03, 0.75327E-01, 0.24345E-01,-0.10453E-03, 0.22312E-01,
- A-0.10356E-03, 0.13420E+05, 0.13430E+05,
- A 0.14276E-02, 0.27047E+00, 0.17891E-01,-0.73505E-04, 0.16458E-01,
- A-0.71692E-04, 0.13430E+05, 0.13440E+05,
- A 0.32739E-03, 0.19765E+00, 0.21521E-01,-0.52027E-04, 0.20205E-01,
- A-0.68454E-04, 0.13440E+05, 0.13450E+05,
- A 0.84176E-03, 0.22651E+00, 0.14704E-01,-0.57138E-04, 0.12449E-01,
- A-0.55586E-04, 0.13450E+05, 0.13460E+05/
- DATA ((ACR(K,J),K=1,8),J= 73, 80) /
- A 0.33210E-02, 0.26989E+00, 0.14889E-01,-0.61022E-04, 0.14319E-01,
- A-0.64594E-04, 0.13460E+05, 0.13470E+05,
- A 0.20184E-02, 0.15068E+00, 0.14242E-01,-0.50382E-04, 0.14352E-01,
- A-0.52958E-04, 0.13470E+05, 0.13480E+05,
- A 0.34847E-02, 0.23656E+00, 0.12960E-01,-0.54713E-04, 0.11654E-01,
- A-0.53532E-04, 0.13480E+05, 0.13490E+05,
- A 0.51848E-02, 0.22152E+00, 0.10050E-01,-0.42140E-04, 0.10802E-01,
- A-0.49706E-04, 0.13490E+05, 0.13500E+05,
- A 0.22460E-02, 0.20257E+00, 0.11509E-01,-0.11450E-05, 0.12567E-01,
- A-0.29901E-04, 0.13500E+05, 0.13510E+05,
- A 0.12070E-01, 0.22916E+00, 0.70442E-02,-0.31499E-04, 0.63368E-02,
- A-0.33814E-04, 0.13510E+05, 0.13520E+05,
- A 0.11903E-01, 0.21411E+00, 0.63830E-02,-0.22698E-04, 0.62241E-02,
- A-0.26759E-04, 0.13520E+05, 0.13530E+05,
- A 0.95480E-02, 0.21575E+00, 0.44827E-02,-0.11921E-04, 0.55699E-02,
- A-0.25927E-04, 0.13530E+05, 0.13540E+05/
- DATA ((ACR(K,J),K=1,8),J= 81, 88) /
- A 0.11523E-01, 0.40682E+00, 0.91253E-02,-0.19397E-04, 0.79449E-02,
- A-0.32998E-04, 0.13540E+05, 0.13550E+05,
- A 0.84497E-02, 0.29293E+00, 0.47841E-02,-0.11629E-04, 0.57988E-02,
- A-0.25164E-04, 0.13550E+05, 0.13560E+05,
- A 0.26919E-01, 0.27673E+00, 0.19766E-02,-0.37751E-05, 0.16743E-02,
- A-0.86380E-05, 0.13560E+05, 0.13570E+05,
- A 0.21945E-01, 0.33870E+00, 0.51140E-02, 0.37089E-05, 0.63004E-02,
- A-0.23091E-04, 0.13570E+05, 0.13580E+05,
- A 0.21982E-01, 0.18246E+00, 0.36494E-03, 0.11207E-05,-0.37751E-03,
- A-0.14267E-05, 0.13580E+05, 0.13590E+05,
- A 0.10404E-01, 0.21217E+00, 0.39463E-02, 0.55125E-05, 0.30886E-02,
- A-0.12313E-04, 0.13590E+05, 0.13600E+05,
- A 0.22785E-01, 0.35675E+00, 0.80322E-02,-0.48280E-05, 0.57084E-02,
- A-0.19313E-04, 0.13600E+05, 0.13610E+05,
- A 0.21944E-01, 0.17661E+00, 0.28308E-02, 0.82581E-05, 0.14574E-02,
- A-0.49721E-05, 0.13610E+05, 0.13620E+05/
- DATA ((ACR(K,J),K=1,8),J= 89, 96) /
- A 0.15009E-01, 0.16917E+00, 0.11060E-02, 0.14866E-04, 0.10360E-02,
- A-0.35775E-05, 0.13620E+05, 0.13630E+05,
- A 0.28056E-01, 0.27826E+00, 0.10985E-01,-0.52840E-04, 0.83121E-02,
- A-0.45055E-04, 0.13630E+05, 0.13640E+05,
- A 0.17905E-01, 0.21652E+00, 0.91202E-02,-0.43033E-04, 0.64523E-02,
- A-0.36725E-04, 0.13640E+05, 0.13650E+05,
- A 0.40842E-01, 0.16141E+00, 0.24590E-02,-0.43246E-05, 0.24001E-03,
- A-0.18088E-05, 0.13650E+05, 0.13660E+05,
- A 0.64344E-01, 0.36355E+00, 0.26240E-02,-0.50938E-05, 0.84629E-03,
- A-0.72912E-05, 0.13660E+05, 0.13670E+05,
- A 0.98009E-01, 0.46873E+00, 0.37360E-02,-0.22472E-04, 0.12376E-02,
- A-0.18409E-04, 0.13670E+05, 0.13680E+05,
- A 0.10223E+00, 0.26441E+00, 0.43146E-02,-0.26517E-04, 0.30820E-02,
- A-0.21843E-04, 0.13680E+05, 0.13690E+05,
- A 0.51383E-01, 0.36953E+00, 0.29461E-02,-0.41201E-05, 0.16090E-02,
- A-0.10556E-04, 0.13690E+05, 0.13700E+05/
- DATA ((ACR(K,J),K=1,8),J= 97,104) /
- A 0.79035E-01, 0.41629E+00, 0.39863E-02,-0.10096E-04, 0.20593E-02,
- A-0.15846E-04, 0.13700E+05, 0.13710E+05,
- A 0.17862E+00, 0.23727E+00, 0.70664E-03,-0.13429E-04,-0.24735E-02,
- A-0.63300E-05, 0.13710E+05, 0.13720E+05,
- A 0.23457E-01, 0.12905E+00,-0.22038E-02,-0.12856E-05,-0.36094E-02,
- A 0.10306E-05, 0.13720E+05, 0.13730E+05,
- A 0.14980E+00, 0.27847E+00,-0.70337E-03,-0.88658E-05,-0.37774E-02,
- A-0.25192E-05, 0.13730E+05, 0.13740E+05,
- A 0.15951E+00, 0.19705E+00,-0.12269E-02,-0.57441E-05,-0.26138E-02,
- A-0.39795E-05, 0.13740E+05, 0.13750E+05,
- A 0.30444E-01, 0.25080E+00, 0.13390E-02,-0.36670E-05, 0.13056E-02,
- A-0.79865E-05, 0.13750E+05, 0.13760E+05,
- A 0.91463E-01, 0.42355E+00, 0.15252E-02,-0.50820E-05, 0.10296E-03,
- A-0.10731E-04, 0.13760E+05, 0.13770E+05,
- A 0.55724E-01, 0.23315E+00, 0.50264E-03,-0.51006E-06,-0.18097E-02,
- A-0.38866E-05, 0.13770E+05, 0.13780E+05/
- DATA ((ACR(K,J),K=1,8),J=105,112) /
- A 0.20577E+00, 0.30719E+00,-0.13969E-02, 0.19333E-05,-0.29895E-02,
- A-0.51114E-06, 0.13780E+05, 0.13790E+05,
- A 0.76501E-01, 0.36547E+00, 0.34715E-02,-0.24093E-04, 0.10916E-02,
- A-0.19569E-04, 0.13790E+05, 0.13800E+05,
- A 0.26798E+00, 0.22416E+00,-0.16316E-02,-0.19581E-05,-0.41508E-02,
- A 0.11385E-05, 0.13800E+05, 0.13810E+05,
- A 0.20338E+00, 0.16881E+00,-0.22177E-02,-0.11382E-05,-0.32452E-02,
- A-0.15814E-06, 0.13810E+05, 0.13820E+05,
- A 0.12951E+00, 0.12548E+00,-0.38707E-02, 0.63370E-05,-0.45229E-02,
- A 0.61639E-05, 0.13820E+05, 0.13830E+05,
- A 0.88731E-01, 0.17991E+00,-0.38169E-02, 0.73459E-05,-0.42642E-02,
- A 0.66757E-05, 0.13830E+05, 0.13840E+05,
- A 0.67788E-02, 0.12625E+00, 0.98132E-02,-0.48875E-04, 0.77230E-02,
- A-0.47347E-04, 0.13840E+05, 0.13850E+05,
- A 0.10502E-01, 0.21694E+00, 0.86711E-03, 0.46135E-05, 0.11488E-02,
- A-0.89674E-05, 0.13850E+05, 0.13860E+05/
- DATA ((ACR(K,J),K=1,8),J=113,120) /
- A 0.49060E-01, 0.16058E+00,-0.30216E-02, 0.10044E-04,-0.24328E-02,
- A 0.67471E-05, 0.13860E+05, 0.13870E+05,
- A 0.24278E+00, 0.15261E+00,-0.51224E-02, 0.89719E-05,-0.65887E-02,
- A 0.12603E-04, 0.13870E+05, 0.13880E+05,
- A 0.27304E+00, 0.29617E+00,-0.35410E-02, 0.34588E-05,-0.50128E-02,
- A 0.80990E-05, 0.13880E+05, 0.13890E+05,
- A 0.13252E+00, 0.25864E+00,-0.15695E-02,-0.28980E-05,-0.29590E-02,
- A-0.32727E-05, 0.13890E+05, 0.13900E+05,
- A 0.27275E+00, 0.14969E+00,-0.15578E-02,-0.43912E-05,-0.23477E-02,
- A-0.27675E-05, 0.13900E+05, 0.13910E+05,
- A 0.28731E+00, 0.24848E+00,-0.26722E-03,-0.90595E-05,-0.20970E-02,
- A-0.66308E-05, 0.13910E+05, 0.13920E+05,
- A 0.20952E+00, 0.31628E+00, 0.28828E-02,-0.21023E-04, 0.93184E-03,
- A-0.17842E-04, 0.13920E+05, 0.13930E+05,
- A 0.12621E+00, 0.34509E+00, 0.47187E-02,-0.26132E-04, 0.21269E-02,
- A-0.22662E-04, 0.13930E+05, 0.13940E+05/
- DATA ((ACR(K,J),K=1,8),J=121,128) /
- A 0.82581E-01, 0.35712E+00, 0.65235E-02,-0.29651E-04, 0.46608E-02,
- A-0.29306E-04, 0.13940E+05, 0.13950E+05,
- A 0.22150E-01, 0.56251E+00, 0.11273E-01,-0.20230E-04, 0.98905E-02,
- A-0.35866E-04, 0.13950E+05, 0.13960E+05,
- A 0.13395E-01, 0.23595E+00, 0.75697E-02,-0.11677E-04, 0.47404E-02,
- A-0.13519E-04, 0.13960E+05, 0.13970E+05,
- A 0.97251E-02, 0.38900E+00, 0.45853E-02,-0.44223E-05, 0.13332E-02,
- A-0.88812E-05, 0.13970E+05, 0.13980E+05,
- A 0.14160E-01, 0.31920E+00, 0.14413E-02, 0.77474E-06, 0.10611E-02,
- A-0.66038E-05, 0.13980E+05, 0.13990E+05,
- A 0.64431E-02, 0.38168E+00, 0.21106E-02,-0.55268E-05, 0.62478E-03,
- A-0.42781E-05, 0.13990E+05, 0.14000E+05,
- A 0.74763E-02, 0.21449E+00, 0.86863E-05,-0.47583E-05,-0.24648E-02,
- A-0.31646E-05, 0.14000E+05, 0.14010E+05,
- A 0.44339E-02, 0.31044E+00, 0.62951E-02,-0.82820E-05, 0.23900E-02,
- A-0.10886E-04, 0.14010E+05, 0.14020E+05/
- DATA ((ACR(K,J),K=1,8),J=129,136) /
- A 0.63698E-02, 0.37192E+00, 0.35714E-02,-0.70127E-05, 0.22531E-02,
- A-0.13753E-04, 0.14020E+05, 0.14030E+05,
- A 0.30618E-02, 0.32199E+00, 0.67837E-02,-0.46145E-05, 0.56415E-02,
- A-0.19199E-04, 0.14030E+05, 0.14040E+05,
- A 0.45836E-02, 0.19592E+00, 0.34269E-02,-0.67013E-05, 0.15603E-02,
- A-0.20576E-05, 0.14040E+05, 0.14050E+05,
- A 0.28921E-02, 0.26752E+00, 0.54727E-02,-0.82320E-05, 0.34172E-02,
- A-0.16235E-04, 0.14050E+05, 0.14060E+05,
- A 0.83604E-02, 0.49100E+00, 0.36871E-02,-0.26932E-05, 0.22258E-02,
- A-0.12432E-04, 0.14060E+05, 0.14070E+05,
- A 0.48958E-02, 0.40049E+00, 0.28518E-02,-0.89707E-05, 0.73805E-03,
- A-0.10552E-04, 0.14070E+05, 0.14080E+05,
- A 0.60175E-02, 0.66182E+00, 0.36922E-02,-0.12082E-04, 0.21310E-02,
- A-0.17251E-04, 0.14080E+05, 0.14090E+05,
- A 0.51267E-02, 0.30376E+00, 0.12373E-01,-0.52388E-04, 0.92416E-02,
- A-0.49701E-04, 0.14090E+05, 0.14100E+05/
- DATA ((ACR(K,J),K=1,8),J=137,144) /
- A 0.51874E-02, 0.37923E+00, 0.85604E-02,-0.32476E-04, 0.48279E-02,
- A-0.28310E-04, 0.14100E+05, 0.14110E+05,
- A 0.37549E-02, 0.24752E+00, 0.26234E-02, 0.13530E-05, 0.17089E-03,
- A-0.59579E-05, 0.14110E+05, 0.14120E+05,
- A 0.85470E-02, 0.48393E+00, 0.55118E-02,-0.12616E-04, 0.21682E-02,
- A-0.15595E-04, 0.14120E+05, 0.14130E+05,
- A 0.71670E-02, 0.42356E+00, 0.73835E-02,-0.38638E-04, 0.43338E-02,
- A-0.32395E-04, 0.14130E+05, 0.14140E+05,
- A 0.84611E-02, 0.31558E+00, 0.47305E-02,-0.17484E-04, 0.13223E-02,
- A-0.11411E-04, 0.14140E+05, 0.14150E+05,
- A 0.86532E-02, 0.27748E+00, 0.58940E-02,-0.31330E-04, 0.32608E-02,
- A-0.26952E-04, 0.14150E+05, 0.14160E+05,
- A 0.12236E-01, 0.32519E+00, 0.20656E-02,-0.11881E-04,-0.45247E-03,
- A-0.11093E-04, 0.14160E+05, 0.14170E+05,
- A 0.19531E-01, 0.25874E+00, 0.39764E-02,-0.26715E-04, 0.12538E-02,
- A-0.19528E-04, 0.14170E+05, 0.14180E+05/
- DATA ((ACR(K,J),K=1,8),J=145,152) /
- A 0.57931E-02, 0.18836E+00, 0.39509E-02,-0.20877E-04, 0.18960E-02,
- A-0.18677E-04, 0.14180E+05, 0.14190E+05,
- A 0.65709E-02, 0.31403E+00, 0.30661E-02,-0.63795E-05, 0.13225E-02,
- A-0.11966E-04, 0.14190E+05, 0.14200E+05,
- A 0.26818E-01, 0.21236E+00, 0.16226E-02,-0.16759E-04,-0.43884E-03,
- A-0.11258E-04, 0.14200E+05, 0.14210E+05,
- A 0.15917E-02, 0.17083E+00, 0.98825E-02,-0.29767E-04, 0.59285E-02,
- A-0.28608E-04, 0.14210E+05, 0.14220E+05,
- A 0.36373E-01, 0.30478E+00, 0.97187E-03,-0.81756E-05, 0.81092E-04,
- A-0.10434E-04, 0.14220E+05, 0.14230E+05,
- A 0.18351E-01, 0.85618E-01,-0.15427E-02,-0.39022E-05,-0.26215E-02,
- A 0.75823E-06, 0.14230E+05, 0.14240E+05,
- A 0.27421E-01, 0.16720E+00,-0.16048E-02, 0.10400E-05,-0.21918E-02,
- A-0.73937E-06, 0.14240E+05, 0.14250E+05,
- A 0.19137E-01, 0.34394E+00, 0.54701E-02,-0.31082E-04, 0.21305E-02,
- A-0.23894E-04, 0.14250E+05, 0.14260E+05/
- DATA ((ACR(K,J),K=1,8),J=153,160) /
- A 0.11742E-01, 0.24754E+00,-0.15398E-02, 0.14005E-05,-0.32941E-02,
- A 0.17021E-06, 0.14260E+05, 0.14270E+05,
- A 0.30406E-01, 0.25107E+00,-0.21777E-02, 0.11738E-05,-0.42308E-02,
- A 0.19830E-05, 0.14270E+05, 0.14280E+05,
- A 0.25720E-01, 0.17272E+00, 0.14929E-02,-0.17124E-04,-0.20245E-03,
- A-0.15475E-04, 0.14280E+05, 0.14290E+05,
- A 0.23411E-01, 0.14155E+00,-0.36159E-02, 0.54534E-05,-0.56547E-02,
- A 0.83323E-05, 0.14290E+05, 0.14300E+05,
- A 0.50436E-01, 0.17597E+00,-0.35358E-02, 0.27001E-05,-0.59980E-02,
- A 0.79894E-05, 0.14300E+05, 0.14310E+05,
- A 0.10835E-01, 0.16074E+00,-0.23328E-02, 0.36258E-05,-0.36191E-02,
- A 0.66611E-06, 0.14310E+05, 0.14320E+05,
- A 0.97229E-02, 0.13720E+00,-0.26043E-02, 0.33682E-05,-0.39301E-02,
- A 0.23934E-05, 0.14320E+05, 0.14330E+05,
- A 0.41727E-02, 0.26898E+00, 0.89506E-03,-0.33799E-05,-0.80987E-03,
- A-0.74366E-05, 0.14330E+05, 0.14340E+05/
- DATA ((ACR(K,J),K=1,8),J=161,168) /
- A 0.28313E-02, 0.11399E+00,-0.23514E-02, 0.19057E-07,-0.43191E-02,
- A 0.32086E-05, 0.14340E+05, 0.14350E+05,
- A 0.94087E-02, 0.13847E+00,-0.33995E-02, 0.53082E-05,-0.48841E-02,
- A 0.72565E-05, 0.14350E+05, 0.14360E+05,
- A 0.45453E-01, 0.16180E+00,-0.49821E-02, 0.95517E-05,-0.62627E-02,
- A 0.13183E-04, 0.14360E+05, 0.14370E+05,
- A 0.54780E-01, 0.24600E+00,-0.33230E-02, 0.33083E-05,-0.44595E-02,
- A 0.43249E-05, 0.14370E+05, 0.14380E+05,
- A 0.57794E-01, 0.29926E+00,-0.18524E-02,-0.26891E-05,-0.34713E-02,
- A-0.14711E-05, 0.14380E+05, 0.14390E+05,
- A 0.17789E-01, 0.40974E-01,-0.55041E-03,-0.90402E-05,-0.19035E-02,
- A-0.41538E-05, 0.14390E+05, 0.14400E+05,
- A 0.66509E-01, 0.31802E+00, 0.17874E-03,-0.10469E-04,-0.14428E-02,
- A-0.93839E-05, 0.14400E+05, 0.14410E+05,
- A 0.33243E-01, 0.21287E+00, 0.23294E-02,-0.18667E-04,-0.40745E-03,
- A-0.12383E-04, 0.14410E+05, 0.14420E+05/
- DATA ((ACR(K,J),K=1,8),J=169,176) /
- A 0.30315E-01, 0.32935E+00, 0.54590E-02,-0.31244E-04, 0.33095E-02,
- A-0.28644E-04, 0.14420E+05, 0.14430E+05,
- A 0.11921E-01, 0.16637E+00, 0.64852E-02,-0.32883E-04, 0.40894E-02,
- A-0.29820E-04, 0.14430E+05, 0.14440E+05,
- A 0.35817E-02, 0.24062E+00, 0.10713E-01,-0.22991E-04, 0.76719E-02,
- A-0.30879E-04, 0.14440E+05, 0.14450E+05,
- A 0.20434E-02, 0.95330E-01, 0.74555E-02,-0.40758E-04, 0.39520E-02,
- A-0.32281E-04, 0.14450E+05, 0.14460E+05,
- A 0.19531E-02, 0.57626E-01, 0.13393E-01,-0.65720E-04, 0.10648E-01,
- A-0.60338E-04, 0.14460E+05, 0.14470E+05,
- A 0.15972E-02, 0.63531E-01,-0.28566E-02,-0.93552E-06,-0.57668E-02,
- A 0.52381E-05, 0.14470E+05, 0.14480E+05,
- A 0.62080E-03, 0.14581E+00,-0.38143E-02, 0.35516E-05,-0.64170E-02,
- A 0.76586E-05, 0.14480E+05, 0.14490E+05,
- A 0.25730E-03, 0.34903E-01, 0.17376E-02,-0.19344E-04,-0.10196E-02,
- A-0.13792E-04, 0.14490E+05, 0.14500E+05/
- DATA ((ACR(K,J),K=1,8),J=177,184) /
- A 0.58326E-03, 0.71010E-01, 0.37987E-02,-0.27471E-04, 0.11761E-02,
- A-0.22502E-04, 0.14500E+05, 0.14510E+05,
- A 0.19810E-03, 0.37767E-01, 0.54219E-03,-0.14563E-04,-0.22150E-02,
- A-0.90107E-05, 0.14510E+05, 0.14520E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14520E+05, 0.14530E+05,
- A 0.61723E-03, 0.59960E-01, 0.29608E-02,-0.23205E-04,-0.54100E-03,
- A-0.14715E-04, 0.14530E+05, 0.14540E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14540E+05, 0.14550E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14550E+05, 0.14560E+05,
- A 0.87384E-03, 0.20577E+00, 0.14670E-02,-0.12035E-04,-0.13037E-02,
- A-0.85219E-05, 0.14560E+05, 0.14570E+05,
- A 0.36981E-03, 0.15319E+00, 0.26086E-02, 0.51176E-06,-0.94964E-03,
- A-0.41621E-05, 0.14570E+05, 0.14580E+05/
- DATA ((ACR(K,J),K=1,8),J=185,192) /
- A 0.53062E-03, 0.20390E+00,-0.92668E-03,-0.17265E-05,-0.25209E-02,
- A-0.39176E-05, 0.14580E+05, 0.14590E+05,
- A 0.23625E-03, 0.10952E+00, 0.36080E-04,-0.66963E-06,-0.29777E-02,
- A-0.55782E-06, 0.14590E+05, 0.14600E+05,
- A 0.25529E-03, 0.85175E-01, 0.86357E-02,-0.45158E-04, 0.55824E-02,
- A-0.39246E-04, 0.14600E+05, 0.14610E+05,
- A 0.35469E-03, 0.17005E+00, 0.55905E-03, 0.34517E-05,-0.12201E-02,
- A-0.20532E-05, 0.14610E+05, 0.14620E+05,
- A 0.14962E-03, 0.70668E-01, 0.36006E-03,-0.13091E-04,-0.23180E-02,
- A-0.80334E-05, 0.14620E+05, 0.14630E+05,
- A 0.16283E-03, 0.43851E-01,-0.19069E-02,-0.47662E-05,-0.47857E-02,
- A 0.10305E-05, 0.14630E+05, 0.14640E+05,
- A 0.34849E-03, 0.91227E-01, 0.19570E-03,-0.67027E-05,-0.19067E-02,
- A-0.68831E-05, 0.14640E+05, 0.14650E+05,
- A 0.24098E-03, 0.73915E-01, 0.58149E-03, 0.20170E-05,-0.21878E-02,
- A-0.69336E-06, 0.14650E+05, 0.14660E+05/
- DATA ((ACR(K,J),K=1,8),J=193,200) /
- A 0.18929E-03, 0.40095E-01,-0.97670E-03,-0.84870E-05,-0.38150E-02,
- A-0.27719E-05, 0.14660E+05, 0.14670E+05,
- A 0.28551E-03, 0.89939E-01, 0.90134E-03,-0.15963E-04,-0.17529E-02,
- A-0.10799E-04, 0.14670E+05, 0.14680E+05,
- A 0.13624E-03, 0.63104E-01, 0.51307E-02,-0.32797E-04, 0.21890E-02,
- A-0.26775E-04, 0.14680E+05, 0.14690E+05,
- A 0.91275E-04, 0.31681E-01, 0.31085E-02,-0.24828E-04, 0.35131E-03,
- A-0.19276E-04, 0.14690E+05, 0.14700E+05,
- A 0.88122E-04, 0.40141E-01, 0.11384E-02,-0.16948E-04,-0.17809E-02,
- A-0.11069E-04, 0.14700E+05, 0.14710E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14710E+05, 0.14720E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14720E+05, 0.14730E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14730E+05, 0.14740E+05/
- DATA ((ACR(K,J),K=1,8),J=201,208) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14740E+05, 0.14750E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14750E+05, 0.14760E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14760E+05, 0.14770E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14770E+05, 0.14780E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14780E+05, 0.14790E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14790E+05, 0.14800E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14800E+05, 0.14810E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14810E+05, 0.14820E+05/
- DATA ((ACR(K,J),K=1,8),J=209,216) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14820E+05, 0.14830E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14830E+05, 0.14840E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14840E+05, 0.14850E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14850E+05, 0.14860E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14860E+05, 0.14870E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14870E+05, 0.14880E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14880E+05, 0.14890E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14890E+05, 0.14900E+05/
- DATA ((ACR(K,J),K=1,8),J=217,224) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14900E+05, 0.14910E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14910E+05, 0.14920E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14920E+05, 0.14930E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14930E+05, 0.14940E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14940E+05, 0.14950E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14950E+05, 0.14960E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14960E+05, 0.14970E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14970E+05, 0.14980E+05/
- DATA ((ACR(K,J),K=1,8),J=225,232) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14980E+05, 0.14990E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.14990E+05, 0.15000E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.15000E+05, 0.15010E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.15010E+05, 0.15020E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.15020E+05, 0.15030E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.15030E+05, 0.15040E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.15040E+05, 0.15050E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.15050E+05, 0.15060E+05/
- DATA ((ACR(K,J),K=1,8),J=233,240) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.15060E+05, 0.15070E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.15070E+05, 0.15080E+05,
- A 0.71934E-03, 0.12682E+00, 0.61012E-02, 0.15559E-04, 0.27848E-02,
- A-0.45145E-05, 0.15080E+05, 0.15090E+05,
- A 0.49571E-03, 0.13321E+00, 0.50157E-02, 0.17658E-04, 0.24032E-02,
- A-0.40605E-05, 0.15090E+05, 0.15100E+05,
- A 0.22621E-03, 0.12674E+00, 0.16133E-01,-0.61229E-04, 0.13281E-01,
- A-0.62746E-04, 0.15100E+05, 0.15110E+05,
- A 0.85668E-03, 0.12425E+00, 0.16195E-01,-0.76668E-04, 0.13811E-01,
- A-0.72500E-04, 0.15110E+05, 0.15120E+05,
- A 0.55721E-03, 0.11061E+00, 0.48501E-02, 0.32762E-04, 0.41846E-02,
- A 0.42515E-06, 0.15120E+05, 0.15130E+05,
- A 0.10214E-02, 0.16075E+00, 0.77437E-02,-0.97938E-05, 0.33244E-02,
- A-0.13350E-04, 0.15130E+05, 0.15140E+05/
- DATA ((ACR(K,J),K=1,8),J=241,248) /
- A 0.37351E-02, 0.23141E+00, 0.75468E-02,-0.18073E-04, 0.38208E-02,
- A-0.17101E-04, 0.15140E+05, 0.15150E+05,
- A 0.69279E-03, 0.16527E+00, 0.92564E-02,-0.24217E-04, 0.59447E-02,
- A-0.28136E-04, 0.15150E+05, 0.15160E+05,
- A 0.20924E-02, 0.19937E+00, 0.67646E-02,-0.19228E-04, 0.21429E-02,
- A-0.14011E-04, 0.15160E+05, 0.15170E+05,
- A 0.29213E-02, 0.11019E+00, 0.78105E-02,-0.40680E-04, 0.61601E-02,
- A-0.37164E-04, 0.15170E+05, 0.15180E+05,
- A 0.40031E-02, 0.28880E+00, 0.50758E-02,-0.19158E-04, 0.19869E-02,
- A-0.17280E-04, 0.15180E+05, 0.15190E+05,
- A 0.24252E-02, 0.15747E+00, 0.44234E-02,-0.20027E-04, 0.34479E-03,
- A-0.12338E-04, 0.15190E+05, 0.15200E+05,
- A 0.87795E-02, 0.14543E+00, 0.42621E-02,-0.27308E-04, 0.73031E-03,
- A-0.16810E-04, 0.15200E+05, 0.15210E+05,
- A 0.95997E-02, 0.37400E+00, 0.46013E-02,-0.28568E-04, 0.20610E-02,
- A-0.24098E-04, 0.15210E+05, 0.15220E+05/
- DATA ((ACR(K,J),K=1,8),J=249,256) /
- A 0.95938E-03, 0.22877E+00, 0.32518E-02,-0.12364E-04, 0.11800E-02,
- A-0.16396E-04, 0.15220E+05, 0.15230E+05,
- A 0.89911E-02, 0.27602E+00, 0.15486E-02,-0.17622E-04,-0.70027E-03,
- A-0.13639E-04, 0.15230E+05, 0.15240E+05,
- A 0.70384E-02, 0.19525E+00, 0.17332E-02,-0.18418E-04,-0.10753E-02,
- A-0.12514E-04, 0.15240E+05, 0.15250E+05,
- A 0.12889E-01, 0.20893E+00, 0.52643E-03,-0.85726E-05,-0.80955E-03,
- A-0.84315E-05, 0.15250E+05, 0.15260E+05,
- A 0.10710E-01, 0.10552E+00,-0.15016E-02,-0.60962E-05,-0.38322E-02,
- A-0.19428E-05, 0.15260E+05, 0.15270E+05,
- A 0.11725E-01, 0.11142E+00,-0.24386E-02,-0.20890E-05,-0.45783E-02,
- A 0.15311E-05, 0.15270E+05, 0.15280E+05,
- A 0.36695E-02, 0.13405E+00,-0.19794E-02, 0.14362E-06,-0.35859E-02,
- A 0.20003E-05, 0.15280E+05, 0.15290E+05,
- A 0.38912E-02, 0.14992E+00,-0.30601E-04, 0.82096E-05,-0.14088E-03,
- A-0.13930E-05, 0.15290E+05, 0.15300E+05/
-C
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.h b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.h
deleted file mode 100644
index 238c437..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA5.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_wava5_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.P b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.P
deleted file mode 100644
index 45938ff..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.P
+++ /dev/null
@@ -1 +0,0 @@
-extern int wava6_(doublereal *a, integer *inu);
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.c b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.c
deleted file mode 100644
index e733c23..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.c
+++ /dev/null
@@ -1,311 +0,0 @@
-/* WAVA6.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/*< SUBROUTINE WAVA6(a,inu) >*/
-/* Subroutine */ int wava6_(doublereal *a, integer *inu)
-{
- /* Initialized data */
-
- static doublereal acr[2048] /* was [8][256] */ = { .011482,.13183,
- -.0038755,3.4491e-6,-.0069899,9.3146e-6,15300.,15310.,.0015124,
- .19547,.0028474,-4.7616e-6,.0017802,-1.079e-5,15310.,15320.,
- .0092482,.16207,-.0025675,1.271e-5,-.0027267,6.2076e-6,15320.,
- 15330.,.0104,.25148,.0028271,-1.6657e-5,.0013667,-1.7862e-5,
- 15330.,15340.,.036425,.35831,-.0010013,-1.0673e-6,-.0025219,
- -1.7475e-6,15340.,15350.,.0050755,.12303,-.0018115,9.8037e-7,
- -.0034793,8.572e-7,15350.,15360.,.0040405,.079669,-.0035356,
- 4.2888e-6,-.0049964,5.6042e-6,15360.,15370.,.0012748,.10104,
- .0012869,-4.1165e-6,-2.5366e-4,-8.5685e-6,15370.,15380.,.004332,
- .087049,-.0037819,4.8177e-6,-.0066616,9.4206e-6,15380.,15390.,
- .018759,.14839,-.0050183,8.8733e-6,-.0069647,1.2888e-5,15390.,
- 15400.,.013161,.13948,-.0039758,3.962e-6,-.006383,8.2226e-6,
- 15400.,15410.,.014766,.30841,-.0025568,-1.0002e-6,-.0049777,
- 2.925e-6,15410.,15420.,.021082,.15162,-.0015321,-5.6826e-6,
- -.0038546,-1.6492e-6,15420.,15430.,.020195,.19485,-2.7645e-4,
- -9.8888e-6,-.0024022,-6.5352e-6,15430.,15440.,.011166,.18799,
- .0030297,-2.1309e-5,4.9231e-4,-1.6445e-5,15440.,15450.,.011405,
- .30263,.0033723,-1.9312e-5,.0012213,-1.8339e-5,15450.,15460.,
- .0081879,.2948,.0056918,-2.2518e-5,.0049723,-2.6308e-5,15460.,
- 15470.,.0086587,.31194,.0049388,-2.4988e-5,.0025729,-2.3785e-5,
- 15470.,15480.,.0029624,.25004,.0021191,1.2889e-5,.0021547,
- -5.0741e-6,15480.,15490.,.0010355,.1518,.010772,-5.3973e-5,
- .0081789,-4.9803e-5,15490.,15500.,.0019209,.15869,.0035388,
- -1.5675e-6,.0030429,-1.3275e-5,15500.,15510.,.0021168,.22695,
- .0033055,-7.1274e-7,.0018066,-1.051e-5,15510.,15520.,3.63e-4,
- .041337,.004643,-3.0966e-5,.0016831,-2.5006e-5,15520.,15530.,
- 6.422e-4,.040141,.0011384,-1.6948e-5,-.0017809,-1.1069e-5,15530.,
- 15540.,.0017361,.12935,7.0897e-6,-1.1804e-5,-.0029721,-5.606e-6,
- 15540.,15550.,3.6772e-4,.069843,.0015876,-1.7017e-5,-.0014188,
- -1.1298e-5,15550.,15560.,8.1562e-4,.085732,.0028597,-2.3409e-5,
- -8.1651e-5,-1.7172e-5,15560.,15570.,4.1832e-5,.037286,.0071945,
- -4.1172e-5,.0048022,-3.6355e-5,15570.,15580.,2.89e-4,.059772,
- .00431,-2.7519e-5,.0025363,-2.6086e-5,15580.,15590.,3.4153e-4,
- .068927,.0058634,-2.8708e-5,.002971,-2.6151e-5,15590.,15600.,
- 6.3462e-4,.10803,.0062584,-1.912e-5,.0049128,-2.4384e-5,15600.,
- 15610.,3.9706e-4,.12303,.0073825,-2.4245e-5,.0050938,-2.795e-5,
- 15610.,15620.,1.1711e-4,.063154,.0049218,-2.6583e-5,.0021634,
- -2.368e-5,15620.,15630.,2.8022e-4,.091171,.011895,-5.9964e-5,
- .0091244,-5.4363e-5,15630.,15640.,4.8561e-4,.17953,.0048672,
- -2.2506e-5,.0012405,-1.7834e-5,15640.,15650.,3.295e-4,.13103,
- .0079212,-3.1361e-5,.0048579,-3.0501e-5,15650.,15660.,6.2254e-4,
- .13066,.0068683,-3.4929e-5,.0042198,-3.0853e-5,15660.,15670.,
- 3.4175e-4,.0686,.0071102,-4.0828e-5,.0041954,-3.4941e-5,15670.,
- 15680.,6.7893e-4,.25103,.002638,-1.0784e-5,-1.9402e-4,-1.0493e-5,
- 15680.,15690.,.0022454,.2126,.0045521,-3.0054e-5,.0018943,
- -2.5356e-5,15690.,15700.,2.2324e-4,.16386,9.9924e-5,-4.6542e-6,
- -.0032498,-4.4042e-7,15700.,15710.,.0011732,.071121,.0017438,
- -1.9369e-5,-.0010378,-1.3774e-5,15710.,15720.,.0011939,.22194,
- .0022505,-2.0274e-5,-3.0389e-4,-1.5915e-5,15720.,15730.,.0011335,
- .1131,6.5038e-4,-1.4226e-5,-.0023716,-8.4484e-6,15730.,15740.,
- .0013693,.066759,-4.9503e-4,-1.0274e-5,-.0033442,-4.9491e-6,
- 15740.,15750.,.0022675,.11019,-.0015659,-6.0385e-6,-.0042073,
- -9.9453e-7,15750.,15760.,.0021492,.11169,-.0025591,-1.868e-6,
- -.0052151,2.9531e-6,15760.,15770.,5.2724e-4,.079449,-.0015077,
- 3.7703e-7,-.0037765,1.0136e-6,15770.,15780.,.0017852,.092282,
- -.0042337,4.5463e-6,-.0075615,1.1296e-5,15780.,15790.,5.7289e-4,
- .18138,.001042,1.1358e-7,-.0010771,-3.8585e-6,15790.,15800.,
- .0024903,.21722,6.1161e-4,2.0815e-6,-6.5545e-4,-6.5063e-6,15800.,
- 15810.,.0033934,.23501,3.4083e-4,-1.2029e-5,-.0027676,-5.6508e-6,
- 15810.,15820.,.0043759,.14995,-.003628,2.8054e-6,-.0061589,
- 7.1308e-6,15820.,15830.,9.6328e-4,.12298,-.0027284,2.0822e-6,
- -.0051044,4.1652e-6,15830.,15840.,6.1564e-4,.047547,-.0041578,
- 4.2375e-6,-.007361,1.0687e-5,15840.,15850.,1.445e-4,.047164,
- -.0026523,-1.7845e-6,-.0054095,3.7673e-6,15850.,15860.,0.,0.,0.,
- 0.,0.,0.,15860.,15870.,.0027617,.080618,-.0054341,9.35e-6,
- -.0086841,1.5797e-5,15870.,15880.,.0038448,.0889,-.0045065,
- 5.7229e-6,-.0074065,1.161e-5,15880.,15890.,.002669,.12359,
- -.003403,1.5184e-6,-.0062551,6.94e-6,15890.,15900.,.0035205,
- .15929,-.0029195,-6.0033e-7,-.0055137,4.5063e-6,15900.,15910.,
- .0033857,.15288,-5.5305e-4,-1.0049e-5,-.0030402,-5.3251e-6,15910.,
- 15920.,.0055123,.20681,6.3027e-5,-1.1203e-5,-.0021942,-7.6854e-6,
- 15920.,15930.,.0025555,.15612,.0036149,-2.367e-5,8.1154e-4,
- -1.8842e-5,15930.,15940.,6.0708e-4,.15267,.0069583,-2.3922e-5,
- .0059157,-3.3379e-5,15940.,15950.,.0013307,.12652,.005072,
- -3.1273e-5,.0029461,-2.8552e-5,15950.,15960.,1.9184e-4,.031816,
- .010823,-5.5684e-5,.0080654,-5.0132e-5,15960.,15970.,0.,0.,0.,0.,
- 0.,0.,15970.,15980.,0.,0.,0.,0.,0.,0.,15980.,15990.,0.,0.,0.,0.,
- 0.,0.,15990.,1.6e4,0.,0.,0.,0.,0.,0.,1.6e4,16010.,0.,0.,0.,0.,0.,
- 0.,16010.,16020.,0.,0.,0.,0.,0.,0.,16020.,16030.,0.,0.,0.,0.,0.,
- 0.,16030.,16040.,0.,0.,0.,0.,0.,0.,16040.,16050.,0.,0.,0.,0.,0.,
- 0.,16050.,16060.,0.,0.,0.,0.,0.,0.,16060.,16070.,0.,0.,0.,0.,0.,
- 0.,16070.,16080.,0.,0.,0.,0.,0.,0.,16080.,16090.,0.,0.,0.,0.,0.,
- 0.,16090.,16100.,0.,0.,0.,0.,0.,0.,16100.,16110.,0.,0.,0.,0.,0.,
- 0.,16110.,16120.,0.,0.,0.,0.,0.,0.,16120.,16130.,0.,0.,0.,0.,0.,
- 0.,16130.,16140.,0.,0.,0.,0.,0.,0.,16140.,16150.,0.,0.,0.,0.,0.,
- 0.,16150.,16160.,0.,0.,0.,0.,0.,0.,16160.,16170.,0.,0.,0.,0.,0.,
- 0.,16170.,16180.,0.,0.,0.,0.,0.,0.,16180.,16190.,0.,0.,0.,0.,0.,
- 0.,16190.,16200.,0.,0.,0.,0.,0.,0.,16200.,16210.,0.,0.,0.,0.,0.,
- 0.,16210.,16220.,0.,0.,0.,0.,0.,0.,16220.,16230.,0.,0.,0.,0.,0.,
- 0.,16230.,16240.,0.,0.,0.,0.,0.,0.,16240.,16250.,0.,0.,0.,0.,0.,
- 0.,16250.,16260.,0.,0.,0.,0.,0.,0.,16260.,16270.,0.,0.,0.,0.,0.,
- 0.,16270.,16280.,0.,0.,0.,0.,0.,0.,16280.,16290.,0.,0.,0.,0.,0.,
- 0.,16290.,16300.,0.,0.,0.,0.,0.,0.,16300.,16310.,0.,0.,0.,0.,0.,
- 0.,16310.,16320.,0.,0.,0.,0.,0.,0.,16320.,16330.,0.,0.,0.,0.,0.,
- 0.,16330.,16340.,0.,0.,0.,0.,0.,0.,16340.,16350.,0.,0.,0.,0.,0.,
- 0.,16350.,16360.,0.,0.,0.,0.,0.,0.,16360.,16370.,0.,0.,0.,0.,0.,
- 0.,16370.,16380.,0.,0.,0.,0.,0.,0.,16380.,16390.,0.,0.,0.,0.,0.,
- 0.,16390.,16400.,0.,0.,0.,0.,0.,0.,16400.,16410.,0.,0.,0.,0.,0.,
- 0.,16410.,16420.,0.,0.,0.,0.,0.,0.,16420.,16430.,0.,0.,0.,0.,0.,
- 0.,16430.,16440.,0.,0.,0.,0.,0.,0.,16440.,16450.,0.,0.,0.,0.,0.,
- 0.,16450.,16460.,0.,0.,0.,0.,0.,0.,16460.,16470.,0.,0.,0.,0.,0.,
- 0.,16470.,16480.,0.,0.,0.,0.,0.,0.,16480.,16490.,0.,0.,0.,0.,0.,
- 0.,16490.,16500.,0.,0.,0.,0.,0.,0.,16500.,16510.,0.,0.,0.,0.,0.,
- 0.,16510.,16520.,0.,0.,0.,0.,0.,0.,16520.,16530.,0.,0.,0.,0.,0.,
- 0.,16530.,16540.,0.,0.,0.,0.,0.,0.,16540.,16550.,0.,0.,0.,0.,0.,
- 0.,16550.,16560.,0.,0.,0.,0.,0.,0.,16560.,16570.,0.,0.,0.,0.,0.,
- 0.,16570.,16580.,0.,0.,0.,0.,0.,0.,16580.,16590.,0.,0.,0.,0.,0.,
- 0.,16590.,16600.,0.,0.,0.,0.,0.,0.,16600.,16610.,0.,0.,0.,0.,0.,
- 0.,16610.,16620.,0.,0.,0.,0.,0.,0.,16620.,16630.,0.,0.,0.,0.,0.,
- 0.,16630.,16640.,0.,0.,0.,0.,0.,0.,16640.,16650.,0.,0.,0.,0.,0.,
- 0.,16650.,16660.,0.,0.,0.,0.,0.,0.,16660.,16670.,0.,0.,0.,0.,0.,
- 0.,16670.,16680.,0.,0.,0.,0.,0.,0.,16680.,16690.,0.,0.,0.,0.,0.,
- 0.,16690.,16700.,9.3657e-4,.16814,.0071611,-3.2337e-5,.0051118,
- -3.429e-5,16700.,16710.,.002716,.13632,.0024507,-1.7614e-5,
- 6.4545e-4,-1.7104e-5,16710.,16720.,.01021,.33525,.0035136,
- -2.0013e-5,.0012395,-1.7557e-5,16720.,16730.,.0056241,.14518,
- .0025514,-6.0743e-6,4.0412e-4,-9.6804e-6,16730.,16740.,.0090151,
- .16435,5.9525e-4,-7.4453e-6,-7.7433e-4,-8.1348e-6,16740.,16750.,
- .017084,.37569,.0017092,-1.0104e-5,5.4764e-5,-1.1565e-5,16750.,
- 16760.,.004068,.16946,.0051318,-1.2576e-5,.0021847,-1.7187e-5,
- 16760.,16770.,.014025,.25075,-4.9903e-4,-3.9474e-6,-.0024356,
- -2.4014e-6,16770.,16780.,.0084391,.29482,.00143,-1.4909e-5,
- -5.8149e-4,-1.2205e-5,16780.,16790.,.0042603,.15728,-.0017076,
- 1.1819e-5,-.0025115,1.7886e-6,16790.,16800.,.016111,.35565,
- 9.8453e-4,-1.0561e-5,-.0015547,-8.0917e-6,16800.,16810.,.032806,
- .40538,3.2361e-4,-7.1099e-6,-.0017591,-6.4585e-6,16810.,16820.,
- .039593,.37366,-.0017738,-3.6504e-6,-.0044894,1.5591e-6,16820.,
- 16830.,.0041709,.15463,-.001046,-1.7983e-6,-.0027043,-2.9685e-6,
- 16830.,16840.,.0035117,.15272,-.0028931,3.0829e-6,-.0046348,
- 4.9372e-6,16840.,16850.,.014133,.12212,-.0040965,4.1489e-6,
- -.0071928,1.0033e-5,16850.,16860.,.0077536,.19684,-.0044631,
- 8.2821e-6,-.0062227,1.0476e-5,16860.,16870.,.025192,.3428,
- -.003503,5.8569e-6,-.0052023,7.3334e-6,16870.,16880.,.030248,
- .27295,-.0026774,1.2042e-6,-.0042996,2.2385e-6,16880.,16890.,
- .012936,.30454,-.0022564,-1.1282e-6,-.0042435,1.4398e-6,16890.,
- 16900.,.011031,.24979,-.0032635,5.324e-6,-.0041759,4.4122e-6,
- 16900.,16910.,.014293,.29998,-3.4569e-4,-9.0328e-6,-.0021933,
- -6.7146e-6,16910.,16920.,.0091809,.29615,.0023482,-1.7235e-5,
- -5.9956e-4,-1.1968e-5,16920.,16930.,.008126,.323,1.1339e-4,
- -9.8017e-7,-.0013639,-4.0912e-6,16930.,16940.,.040319,.36952,
- -.0034585,7.4285e-6,-.0043038,5.2677e-6,16940.,16950.,.013921,
- .36738,-7.7085e-4,4.5894e-7,-.0026272,-1.4583e-6,16950.,16960.,
- .014345,.25675,-.0022235,1.8237e-6,-.0031796,3.5185e-6,16960.,
- 16970.,.016501,.22846,-7.3791e-4,-8.1276e-6,-.0030972,-3.4017e-6,
- 16970.,16980.,.019984,.24072,4.6284e-4,-1.157e-5,-.0016535,
- -8.0246e-6,16980.,16990.,.014605,.42551,.0042003,-2.4403e-5,
- .0012313,-1.961e-5,16990.,1.7e4,.0056604,.31925,.0037029,
- -1.1447e-5,.0028937,-1.9869e-5,1.7e4,17010.,.0063352,.35092,
- .0026893,-1.5677e-5,5.5216e-4,-1.3231e-5,17010.,17020.,.003844,
- .22874,-1.2718e-4,-9.3893e-8,-.0018171,-1.6527e-7,17020.,17030.,
- .0013581,.13591,.0068077,-3.5228e-5,.0039267,-3.0049e-5,17030.,
- 17040.,.0018736,.25317,.004094,-1.115e-5,.0020737,-1.6908e-5,
- 17040.,17050.,.0012084,.1688,-.0010058,-7.8902e-7,-.0025863,
- -1.1192e-6,17050.,17060.,.0010487,.069135,.006375,-3.3619e-5,
- .0036725,-3.0416e-5,17060.,17070.,5.0984e-4,.11462,.0031391,
- -2.153e-5,4.5939e-4,-1.7989e-5,17070.,17080.,8.4428e-4,.14457,
- -5.8124e-4,-7.7648e-6,-.0029191,-4.3661e-6,17080.,17090.,
- 3.0536e-4,.074835,1.5726e-4,-1.2441e-5,-.0024876,-7.6201e-6,
- 17090.,17100.,5.526e-4,.12225,.0040329,-2.6244e-5,.0012152,
- -2.1176e-5,17100.,17110.,3.7571e-4,.06606,.004893,-1.7932e-5,
- .0027254,-2.1243e-5,17110.,17120.,3.8817e-4,.096834,.0050965,
- -2.8072e-5,.0025414,-2.5439e-5,17120.,17130.,4.3455e-4,.10332,
- .0037899,-2.5805e-5,.0011068,-2.147e-5,17130.,17140.,2.797e-4,
- .13222,.0049706,-1.1993e-5,.0022042,-1.6597e-5,17140.,17150.,
- 3.5542e-4,.094199,.0069032,-3.8399e-5,.0042436,-3.3972e-5,17150.,
- 17160.,1.4332e-4,.10096,.0080342,-4.4157e-5,.0052994,-3.893e-5,
- 17160.,17170.,1.131e-4,.07032,.0094132,-1.9979e-5,.0084399,
- -3.3269e-5,17170.,17180.,1.097e-4,.073653,.0070015,-3.1921e-5,
- .0041785,-3.033e-5,17180.,17190.,1.9539e-4,.11002,.0025848,
- -2.1294e-5,1.5132e-4,-1.7461e-5,17190.,17200.,2.2464e-5,.040498,
- .0015081,-1.8426e-5,-8.0302e-4,-1.3773e-5,17200.,17210.,1.1068e-4,
- .041949,.0011384,-1.6948e-5,-.001862,-1.0906e-5,17210.,17220.,
- 2.6372e-4,.1423,.0074076,-9.6003e-7,.004947,-1.6056e-5,17220.,
- 17230.,1.6225e-4,.064754,9.1255e-4,4.5791e-6,2.8912e-5,-2.743e-6,
- 17230.,17240.,3.4492e-4,.13306,-.0022341,-3.1568e-6,-.0051367,
- 2.5216e-6,17240.,17250.,2.9083e-4,.1273,.014643,-7.0324e-5,
- .011799,-6.4717e-5,17250.,17260.,7.9159e-5,.084959,.0033618,
- 1.0957e-5,-1.9083e-6,1.5045e-6,17260.,17270.,3.991e-4,.1611,
- .0052228,-6.6224e-6,.003315,-1.7428e-5,17270.,17280.,3.6117e-4,
- .14552,.0053239,-2.7921e-6,.0027764,-1.3072e-5,17280.,17290.,
- 5.6601e-4,.2023,.0081509,-3.975e-5,.0051039,-3.5401e-5,17290.,
- 17300.,5.522e-4,.27444,.0022665,-4.1297e-6,6.9271e-4,-1.2175e-5,
- 17300.,17310.,.0012177,.31594,.0026446,-1.1117e-5,-.0010442,
- -7.3851e-6,17310.,17320.,.0012068,.36919,.0046393,-2.5102e-5,
- .001937,-2.1181e-5,17320.,17330.,8.1484e-4,.12504,.0033991,
- -2.4509e-5,-1.7719e-4,-1.657e-5,17330.,17340.,.0010075,.10415,
- .0045176,-3.0424e-5,.0016795,-2.4622e-5,17340.,17350.,.0014383,
- .23566,.0013476,-1.0965e-5,-.0023371,-4.3633e-6,17350.,17360.,
- 7.8276e-4,.2229,-.0015478,-1.8316e-6,-.0039408,4.9016e-7,17360.,
- 17370.,.0023195,.1644,.0012573,-1.668e-5,-.0019183,-9.5692e-6,
- 17370.,17380.,7.0669e-4,.18348,-.001353,-5.5696e-6,-.0046409,
- 1.1901e-6,17380.,17390.,.0026577,.24613,-3.4475e-4,-9.149e-6,
- -.0027647,-4.4906e-6,17390.,17400.,.0014266,.18058,-1.7564e-4,
- -3.1091e-6,-.0023868,-2.4568e-6,17400.,17410.,.0013368,.089183,
- -7.5731e-4,-3.0495e-6,-.0013138,-5.5029e-6,17410.,17420.,.0031555,
- .29805,-.0014978,-6.4349e-7,-.0036817,1.3405e-6,17420.,17430.,
- .0015803,.20706,.0027308,-1.4728e-5,2.1412e-4,-1.4434e-5,17430.,
- 17440.,.0025444,.19283,-.0026123,3.7928e-6,-.0040723,3.3236e-6,
- 17440.,17450.,.0028951,.14488,8.2222e-4,-1.4617e-5,-.0020986,
- -8.6758e-6,17450.,17460.,9.9222e-4,.058296,-6.973e-4,-8.8805e-6,
- -.0030012,-5.1319e-6,17460.,17470.,.0049761,.23841,-.0034073,
- 2.1975e-6,-.00609,6.7461e-6,17470.,17480.,.0024737,.16103,
- -.0033546,5.2399e-6,-.0050448,4.9288e-6,17480.,17490.,6.5774e-4,
- .076908,-.0048253,7.2725e-6,-.0072344,1.1372e-5,17490.,17500.,
- 8.5946e-4,.1372,-.0034619,3.8209e-6,-.0055141,6.4456e-6,17500.,
- 17510.,1.3088e-4,.077214,1.0378e-4,-6.7806e-6,-.0024574,
- -4.3444e-6,17510.,17520.,7.2177e-4,.12037,-.0032371,3.8429e-6,
- -.005706,6.3102e-6,17520.,17530.,.0025932,.057507,-.0053841,
- 9.3892e-6,-.0080102,1.4171e-5,17530.,17540.,.0064329,.34361,
- -.0033999,4.1519e-6,-.0047285,4.1554e-6,17540.,17550.,.0020356,
- .18182,-.0031524,9.2073e-7,-.0056549,4.9733e-6,17550.,17560.,
- .0065331,.22623,-.0015636,-4.1008e-6,-.0032357,-2.3034e-6,17560.,
- 17570.,.0059972,.29545,-6.0272e-4,-7.9159e-6,-.0032228,-3.1603e-6,
- 17570.,17580.,.0040039,.3136,.0032065,-2.0617e-5,6.7568e-4,
- -1.7932e-5,17580.,17590.,.0016959,.28903,.005156,-1.9347e-5,
- .0033983,-2.1801e-5,17590.,17600.,7.0732e-4,.16014,.0010501,
- -1.4628e-5,-.0015478,-9.7179e-6,17600.,17610.,.0012558,.1798,
- .0044641,-2.5933e-5,.0019766,-2.2898e-5,17610.,17620.,0.,0.,0.,0.,
- 0.,0.,17620.,17630.,5.944e-5,.033158,.0060208,-3.6477e-5,.0032636,
- -3.0925e-5,17630.,17640.,1.6627e-4,.041123,-.0027846,-1.2553e-6,
- -.0055418,4.2965e-6,17640.,17650.,0.,0.,0.,0.,0.,0.,17650.,17660.,
- 0.,0.,0.,0.,0.,0.,17660.,17670.,0.,0.,0.,0.,0.,0.,17670.,17680.,
- 0.,0.,0.,0.,0.,0.,17680.,17690.,0.,0.,0.,0.,0.,0.,17690.,17700.,
- 0.,0.,0.,0.,0.,0.,17700.,17710.,0.,0.,0.,0.,0.,0.,17710.,17720.,
- 0.,0.,0.,0.,0.,0.,17720.,17730.,0.,0.,0.,0.,0.,0.,17730.,17740.,
- 0.,0.,0.,0.,0.,0.,17740.,17750.,0.,0.,0.,0.,0.,0.,17750.,17760.,
- 0.,0.,0.,0.,0.,0.,17760.,17770.,0.,0.,0.,0.,0.,0.,17770.,17780.,
- 0.,0.,0.,0.,0.,0.,17780.,17790.,0.,0.,0.,0.,0.,0.,17790.,17800.,
- 0.,0.,0.,0.,0.,0.,17800.,17810.,0.,0.,0.,0.,0.,0.,17810.,17820.,
- 0.,0.,0.,0.,0.,0.,17820.,17830.,0.,0.,0.,0.,0.,0.,17830.,17840.,
- 0.,0.,0.,0.,0.,0.,17840.,17850.,0.,0.,0.,0.,0.,0.,17850.,17860. };
-
- integer i__;
-
-/*< real a(8) >*/
-/*< real acr(8,256) >*/
-/*< integer inu,j,k,i >*/
-
-/* WATER VAPOR (15300 - 17860 CM-1) */
-
-/*< >*/
- /* Parameter adjustments */
- --a;
-
- /* Function Body */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-
-
-/*< do i=1,8 >*/
- for (i__ = 1; i__ <= 8; ++i__) {
-/*< a(i)=acr(i,inu) >*/
- a[i__] = acr[i__ + (*inu << 3) - 9];
-/*< enddo >*/
- }
-
-/*< return >*/
- return 0;
-/*< end >*/
-} /* wava6_ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.f b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.f
deleted file mode 100644
index e1d22e5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.f
+++ /dev/null
@@ -1,560 +0,0 @@
- SUBROUTINE WAVA6(a,inu)
- real a(8)
- real acr(8,256)
- integer inu,j,k,i
-C
-C WATER VAPOR (15300 - 17860 CM-1)
-C
- DATA ((ACR(K,J),K=1,8),J= 1, 8) /
- A 0.11482E-01, 0.13183E+00,-0.38755E-02, 0.34491E-05,-0.69899E-02,
- A 0.93146E-05, 0.15300E+05, 0.15310E+05,
- A 0.15124E-02, 0.19547E+00, 0.28474E-02,-0.47616E-05, 0.17802E-02,
- A-0.10790E-04, 0.15310E+05, 0.15320E+05,
- A 0.92482E-02, 0.16207E+00,-0.25675E-02, 0.12710E-04,-0.27267E-02,
- A 0.62076E-05, 0.15320E+05, 0.15330E+05,
- A 0.10400E-01, 0.25148E+00, 0.28271E-02,-0.16657E-04, 0.13667E-02,
- A-0.17862E-04, 0.15330E+05, 0.15340E+05,
- A 0.36425E-01, 0.35831E+00,-0.10013E-02,-0.10673E-05,-0.25219E-02,
- A-0.17475E-05, 0.15340E+05, 0.15350E+05,
- A 0.50755E-02, 0.12303E+00,-0.18115E-02, 0.98037E-06,-0.34793E-02,
- A 0.85720E-06, 0.15350E+05, 0.15360E+05,
- A 0.40405E-02, 0.79669E-01,-0.35356E-02, 0.42888E-05,-0.49964E-02,
- A 0.56042E-05, 0.15360E+05, 0.15370E+05,
- A 0.12748E-02, 0.10104E+00, 0.12869E-02,-0.41165E-05,-0.25366E-03,
- A-0.85685E-05, 0.15370E+05, 0.15380E+05/
- DATA ((ACR(K,J),K=1,8),J= 9, 16) /
- A 0.43320E-02, 0.87049E-01,-0.37819E-02, 0.48177E-05,-0.66616E-02,
- A 0.94206E-05, 0.15380E+05, 0.15390E+05,
- A 0.18759E-01, 0.14839E+00,-0.50183E-02, 0.88733E-05,-0.69647E-02,
- A 0.12888E-04, 0.15390E+05, 0.15400E+05,
- A 0.13161E-01, 0.13948E+00,-0.39758E-02, 0.39620E-05,-0.63830E-02,
- A 0.82226E-05, 0.15400E+05, 0.15410E+05,
- A 0.14766E-01, 0.30841E+00,-0.25568E-02,-0.10002E-05,-0.49777E-02,
- A 0.29250E-05, 0.15410E+05, 0.15420E+05,
- A 0.21082E-01, 0.15162E+00,-0.15321E-02,-0.56826E-05,-0.38546E-02,
- A-0.16492E-05, 0.15420E+05, 0.15430E+05,
- A 0.20195E-01, 0.19485E+00,-0.27645E-03,-0.98888E-05,-0.24022E-02,
- A-0.65352E-05, 0.15430E+05, 0.15440E+05,
- A 0.11166E-01, 0.18799E+00, 0.30297E-02,-0.21309E-04, 0.49231E-03,
- A-0.16445E-04, 0.15440E+05, 0.15450E+05,
- A 0.11405E-01, 0.30263E+00, 0.33723E-02,-0.19312E-04, 0.12213E-02,
- A-0.18339E-04, 0.15450E+05, 0.15460E+05/
- DATA ((ACR(K,J),K=1,8),J= 17, 24) /
- A 0.81879E-02, 0.29480E+00, 0.56918E-02,-0.22518E-04, 0.49723E-02,
- A-0.26308E-04, 0.15460E+05, 0.15470E+05,
- A 0.86587E-02, 0.31194E+00, 0.49388E-02,-0.24988E-04, 0.25729E-02,
- A-0.23785E-04, 0.15470E+05, 0.15480E+05,
- A 0.29624E-02, 0.25004E+00, 0.21191E-02, 0.12889E-04, 0.21547E-02,
- A-0.50741E-05, 0.15480E+05, 0.15490E+05,
- A 0.10355E-02, 0.15180E+00, 0.10772E-01,-0.53973E-04, 0.81789E-02,
- A-0.49803E-04, 0.15490E+05, 0.15500E+05,
- A 0.19209E-02, 0.15869E+00, 0.35388E-02,-0.15675E-05, 0.30429E-02,
- A-0.13275E-04, 0.15500E+05, 0.15510E+05,
- A 0.21168E-02, 0.22695E+00, 0.33055E-02,-0.71274E-06, 0.18066E-02,
- A-0.10510E-04, 0.15510E+05, 0.15520E+05,
- A 0.36300E-03, 0.41337E-01, 0.46430E-02,-0.30966E-04, 0.16831E-02,
- A-0.25006E-04, 0.15520E+05, 0.15530E+05,
- A 0.64220E-03, 0.40141E-01, 0.11384E-02,-0.16948E-04,-0.17809E-02,
- A-0.11069E-04, 0.15530E+05, 0.15540E+05/
- DATA ((ACR(K,J),K=1,8),J= 25, 32) /
- A 0.17361E-02, 0.12935E+00, 0.70897E-05,-0.11804E-04,-0.29721E-02,
- A-0.56060E-05, 0.15540E+05, 0.15550E+05,
- A 0.36772E-03, 0.69843E-01, 0.15876E-02,-0.17017E-04,-0.14188E-02,
- A-0.11298E-04, 0.15550E+05, 0.15560E+05,
- A 0.81562E-03, 0.85732E-01, 0.28597E-02,-0.23409E-04,-0.81651E-04,
- A-0.17172E-04, 0.15560E+05, 0.15570E+05,
- A 0.41832E-04, 0.37286E-01, 0.71945E-02,-0.41172E-04, 0.48022E-02,
- A-0.36355E-04, 0.15570E+05, 0.15580E+05,
- A 0.28900E-03, 0.59772E-01, 0.43100E-02,-0.27519E-04, 0.25363E-02,
- A-0.26086E-04, 0.15580E+05, 0.15590E+05,
- A 0.34153E-03, 0.68927E-01, 0.58634E-02,-0.28708E-04, 0.29710E-02,
- A-0.26151E-04, 0.15590E+05, 0.15600E+05,
- A 0.63462E-03, 0.10803E+00, 0.62584E-02,-0.19120E-04, 0.49128E-02,
- A-0.24384E-04, 0.15600E+05, 0.15610E+05,
- A 0.39706E-03, 0.12303E+00, 0.73825E-02,-0.24245E-04, 0.50938E-02,
- A-0.27950E-04, 0.15610E+05, 0.15620E+05/
- DATA ((ACR(K,J),K=1,8),J= 33, 40) /
- A 0.11711E-03, 0.63154E-01, 0.49218E-02,-0.26583E-04, 0.21634E-02,
- A-0.23680E-04, 0.15620E+05, 0.15630E+05,
- A 0.28022E-03, 0.91171E-01, 0.11895E-01,-0.59964E-04, 0.91244E-02,
- A-0.54363E-04, 0.15630E+05, 0.15640E+05,
- A 0.48561E-03, 0.17953E+00, 0.48672E-02,-0.22506E-04, 0.12405E-02,
- A-0.17834E-04, 0.15640E+05, 0.15650E+05,
- A 0.32950E-03, 0.13103E+00, 0.79212E-02,-0.31361E-04, 0.48579E-02,
- A-0.30501E-04, 0.15650E+05, 0.15660E+05,
- A 0.62254E-03, 0.13066E+00, 0.68683E-02,-0.34929E-04, 0.42198E-02,
- A-0.30853E-04, 0.15660E+05, 0.15670E+05,
- A 0.34175E-03, 0.68600E-01, 0.71102E-02,-0.40828E-04, 0.41954E-02,
- A-0.34941E-04, 0.15670E+05, 0.15680E+05,
- A 0.67893E-03, 0.25103E+00, 0.26380E-02,-0.10784E-04,-0.19402E-03,
- A-0.10493E-04, 0.15680E+05, 0.15690E+05,
- A 0.22454E-02, 0.21260E+00, 0.45521E-02,-0.30054E-04, 0.18943E-02,
- A-0.25356E-04, 0.15690E+05, 0.15700E+05/
- DATA ((ACR(K,J),K=1,8),J= 41, 48) /
- A 0.22324E-03, 0.16386E+00, 0.99924E-04,-0.46542E-05,-0.32498E-02,
- A-0.44042E-06, 0.15700E+05, 0.15710E+05,
- A 0.11732E-02, 0.71121E-01, 0.17438E-02,-0.19369E-04,-0.10378E-02,
- A-0.13774E-04, 0.15710E+05, 0.15720E+05,
- A 0.11939E-02, 0.22194E+00, 0.22505E-02,-0.20274E-04,-0.30389E-03,
- A-0.15915E-04, 0.15720E+05, 0.15730E+05,
- A 0.11335E-02, 0.11310E+00, 0.65038E-03,-0.14226E-04,-0.23716E-02,
- A-0.84484E-05, 0.15730E+05, 0.15740E+05,
- A 0.13693E-02, 0.66759E-01,-0.49503E-03,-0.10274E-04,-0.33442E-02,
- A-0.49491E-05, 0.15740E+05, 0.15750E+05,
- A 0.22675E-02, 0.11019E+00,-0.15659E-02,-0.60385E-05,-0.42073E-02,
- A-0.99453E-06, 0.15750E+05, 0.15760E+05,
- A 0.21492E-02, 0.11169E+00,-0.25591E-02,-0.18680E-05,-0.52151E-02,
- A 0.29531E-05, 0.15760E+05, 0.15770E+05,
- A 0.52724E-03, 0.79449E-01,-0.15077E-02, 0.37703E-06,-0.37765E-02,
- A 0.10136E-05, 0.15770E+05, 0.15780E+05/
- DATA ((ACR(K,J),K=1,8),J= 49, 56) /
- A 0.17852E-02, 0.92282E-01,-0.42337E-02, 0.45463E-05,-0.75615E-02,
- A 0.11296E-04, 0.15780E+05, 0.15790E+05,
- A 0.57289E-03, 0.18138E+00, 0.10420E-02, 0.11358E-06,-0.10771E-02,
- A-0.38585E-05, 0.15790E+05, 0.15800E+05,
- A 0.24903E-02, 0.21722E+00, 0.61161E-03, 0.20815E-05,-0.65545E-03,
- A-0.65063E-05, 0.15800E+05, 0.15810E+05,
- A 0.33934E-02, 0.23501E+00, 0.34083E-03,-0.12029E-04,-0.27676E-02,
- A-0.56508E-05, 0.15810E+05, 0.15820E+05,
- A 0.43759E-02, 0.14995E+00,-0.36280E-02, 0.28054E-05,-0.61589E-02,
- A 0.71308E-05, 0.15820E+05, 0.15830E+05,
- A 0.96328E-03, 0.12298E+00,-0.27284E-02, 0.20822E-05,-0.51044E-02,
- A 0.41652E-05, 0.15830E+05, 0.15840E+05,
- A 0.61564E-03, 0.47547E-01,-0.41578E-02, 0.42375E-05,-0.73610E-02,
- A 0.10687E-04, 0.15840E+05, 0.15850E+05,
- A 0.14450E-03, 0.47164E-01,-0.26523E-02,-0.17845E-05,-0.54095E-02,
- A 0.37673E-05, 0.15850E+05, 0.15860E+05/
- DATA ((ACR(K,J),K=1,8),J= 57, 64) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.15860E+05, 0.15870E+05,
- A 0.27617E-02, 0.80618E-01,-0.54341E-02, 0.93500E-05,-0.86841E-02,
- A 0.15797E-04, 0.15870E+05, 0.15880E+05,
- A 0.38448E-02, 0.88900E-01,-0.45065E-02, 0.57229E-05,-0.74065E-02,
- A 0.11610E-04, 0.15880E+05, 0.15890E+05,
- A 0.26690E-02, 0.12359E+00,-0.34030E-02, 0.15184E-05,-0.62551E-02,
- A 0.69400E-05, 0.15890E+05, 0.15900E+05,
- A 0.35205E-02, 0.15929E+00,-0.29195E-02,-0.60033E-06,-0.55137E-02,
- A 0.45063E-05, 0.15900E+05, 0.15910E+05,
- A 0.33857E-02, 0.15288E+00,-0.55305E-03,-0.10049E-04,-0.30402E-02,
- A-0.53251E-05, 0.15910E+05, 0.15920E+05,
- A 0.55123E-02, 0.20681E+00, 0.63027E-04,-0.11203E-04,-0.21942E-02,
- A-0.76854E-05, 0.15920E+05, 0.15930E+05,
- A 0.25555E-02, 0.15612E+00, 0.36149E-02,-0.23670E-04, 0.81154E-03,
- A-0.18842E-04, 0.15930E+05, 0.15940E+05/
- DATA ((ACR(K,J),K=1,8),J= 65, 72) /
- A 0.60708E-03, 0.15267E+00, 0.69583E-02,-0.23922E-04, 0.59157E-02,
- A-0.33379E-04, 0.15940E+05, 0.15950E+05,
- A 0.13307E-02, 0.12652E+00, 0.50720E-02,-0.31273E-04, 0.29461E-02,
- A-0.28552E-04, 0.15950E+05, 0.15960E+05,
- A 0.19184E-03, 0.31816E-01, 0.10823E-01,-0.55684E-04, 0.80654E-02,
- A-0.50132E-04, 0.15960E+05, 0.15970E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.15970E+05, 0.15980E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.15980E+05, 0.15990E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.15990E+05, 0.16000E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16000E+05, 0.16010E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16010E+05, 0.16020E+05/
- DATA ((ACR(K,J),K=1,8),J= 73, 80) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16020E+05, 0.16030E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16030E+05, 0.16040E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16040E+05, 0.16050E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16050E+05, 0.16060E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16060E+05, 0.16070E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16070E+05, 0.16080E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16080E+05, 0.16090E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16090E+05, 0.16100E+05/
- DATA ((ACR(K,J),K=1,8),J= 81, 88) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16100E+05, 0.16110E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16110E+05, 0.16120E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16120E+05, 0.16130E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16130E+05, 0.16140E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16140E+05, 0.16150E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16150E+05, 0.16160E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16160E+05, 0.16170E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16170E+05, 0.16180E+05/
- DATA ((ACR(K,J),K=1,8),J= 89, 96) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16180E+05, 0.16190E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16190E+05, 0.16200E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16200E+05, 0.16210E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16210E+05, 0.16220E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16220E+05, 0.16230E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16230E+05, 0.16240E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16240E+05, 0.16250E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16250E+05, 0.16260E+05/
- DATA ((ACR(K,J),K=1,8),J= 97,104) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16260E+05, 0.16270E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16270E+05, 0.16280E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16280E+05, 0.16290E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16290E+05, 0.16300E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16300E+05, 0.16310E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16310E+05, 0.16320E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16320E+05, 0.16330E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16330E+05, 0.16340E+05/
- DATA ((ACR(K,J),K=1,8),J=105,112) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16340E+05, 0.16350E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16350E+05, 0.16360E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16360E+05, 0.16370E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16370E+05, 0.16380E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16380E+05, 0.16390E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16390E+05, 0.16400E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16400E+05, 0.16410E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16410E+05, 0.16420E+05/
- DATA ((ACR(K,J),K=1,8),J=113,120) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16420E+05, 0.16430E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16430E+05, 0.16440E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16440E+05, 0.16450E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16450E+05, 0.16460E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16460E+05, 0.16470E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16470E+05, 0.16480E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16480E+05, 0.16490E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16490E+05, 0.16500E+05/
- DATA ((ACR(K,J),K=1,8),J=121,128) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16500E+05, 0.16510E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16510E+05, 0.16520E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16520E+05, 0.16530E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16530E+05, 0.16540E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16540E+05, 0.16550E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16550E+05, 0.16560E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16560E+05, 0.16570E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16570E+05, 0.16580E+05/
- DATA ((ACR(K,J),K=1,8),J=129,136) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16580E+05, 0.16590E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16590E+05, 0.16600E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16600E+05, 0.16610E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16610E+05, 0.16620E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16620E+05, 0.16630E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16630E+05, 0.16640E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16640E+05, 0.16650E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16650E+05, 0.16660E+05/
- DATA ((ACR(K,J),K=1,8),J=137,144) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16660E+05, 0.16670E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16670E+05, 0.16680E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16680E+05, 0.16690E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.16690E+05, 0.16700E+05,
- A 0.93657E-03, 0.16814E+00, 0.71611E-02,-0.32337E-04, 0.51118E-02,
- A-0.34290E-04, 0.16700E+05, 0.16710E+05,
- A 0.27160E-02, 0.13632E+00, 0.24507E-02,-0.17614E-04, 0.64545E-03,
- A-0.17104E-04, 0.16710E+05, 0.16720E+05,
- A 0.10210E-01, 0.33525E+00, 0.35136E-02,-0.20013E-04, 0.12395E-02,
- A-0.17557E-04, 0.16720E+05, 0.16730E+05,
- A 0.56241E-02, 0.14518E+00, 0.25514E-02,-0.60743E-05, 0.40412E-03,
- A-0.96804E-05, 0.16730E+05, 0.16740E+05/
- DATA ((ACR(K,J),K=1,8),J=145,152) /
- A 0.90151E-02, 0.16435E+00, 0.59525E-03,-0.74453E-05,-0.77433E-03,
- A-0.81348E-05, 0.16740E+05, 0.16750E+05,
- A 0.17084E-01, 0.37569E+00, 0.17092E-02,-0.10104E-04, 0.54764E-04,
- A-0.11565E-04, 0.16750E+05, 0.16760E+05,
- A 0.40680E-02, 0.16946E+00, 0.51318E-02,-0.12576E-04, 0.21847E-02,
- A-0.17187E-04, 0.16760E+05, 0.16770E+05,
- A 0.14025E-01, 0.25075E+00,-0.49903E-03,-0.39474E-05,-0.24356E-02,
- A-0.24014E-05, 0.16770E+05, 0.16780E+05,
- A 0.84391E-02, 0.29482E+00, 0.14300E-02,-0.14909E-04,-0.58149E-03,
- A-0.12205E-04, 0.16780E+05, 0.16790E+05,
- A 0.42603E-02, 0.15728E+00,-0.17076E-02, 0.11819E-04,-0.25115E-02,
- A 0.17886E-05, 0.16790E+05, 0.16800E+05,
- A 0.16111E-01, 0.35565E+00, 0.98453E-03,-0.10561E-04,-0.15547E-02,
- A-0.80917E-05, 0.16800E+05, 0.16810E+05,
- A 0.32806E-01, 0.40538E+00, 0.32361E-03,-0.71099E-05,-0.17591E-02,
- A-0.64585E-05, 0.16810E+05, 0.16820E+05/
- DATA ((ACR(K,J),K=1,8),J=153,160) /
- A 0.39593E-01, 0.37366E+00,-0.17738E-02,-0.36504E-05,-0.44894E-02,
- A 0.15591E-05, 0.16820E+05, 0.16830E+05,
- A 0.41709E-02, 0.15463E+00,-0.10460E-02,-0.17983E-05,-0.27043E-02,
- A-0.29685E-05, 0.16830E+05, 0.16840E+05,
- A 0.35117E-02, 0.15272E+00,-0.28931E-02, 0.30829E-05,-0.46348E-02,
- A 0.49372E-05, 0.16840E+05, 0.16850E+05,
- A 0.14133E-01, 0.12212E+00,-0.40965E-02, 0.41489E-05,-0.71928E-02,
- A 0.10033E-04, 0.16850E+05, 0.16860E+05,
- A 0.77536E-02, 0.19684E+00,-0.44631E-02, 0.82821E-05,-0.62227E-02,
- A 0.10476E-04, 0.16860E+05, 0.16870E+05,
- A 0.25192E-01, 0.34280E+00,-0.35030E-02, 0.58569E-05,-0.52023E-02,
- A 0.73334E-05, 0.16870E+05, 0.16880E+05,
- A 0.30248E-01, 0.27295E+00,-0.26774E-02, 0.12042E-05,-0.42996E-02,
- A 0.22385E-05, 0.16880E+05, 0.16890E+05,
- A 0.12936E-01, 0.30454E+00,-0.22564E-02,-0.11282E-05,-0.42435E-02,
- A 0.14398E-05, 0.16890E+05, 0.16900E+05/
- DATA ((ACR(K,J),K=1,8),J=161,168) /
- A 0.11031E-01, 0.24979E+00,-0.32635E-02, 0.53240E-05,-0.41759E-02,
- A 0.44122E-05, 0.16900E+05, 0.16910E+05,
- A 0.14293E-01, 0.29998E+00,-0.34569E-03,-0.90328E-05,-0.21933E-02,
- A-0.67146E-05, 0.16910E+05, 0.16920E+05,
- A 0.91809E-02, 0.29615E+00, 0.23482E-02,-0.17235E-04,-0.59956E-03,
- A-0.11968E-04, 0.16920E+05, 0.16930E+05,
- A 0.81260E-02, 0.32300E+00, 0.11339E-03,-0.98017E-06,-0.13639E-02,
- A-0.40912E-05, 0.16930E+05, 0.16940E+05,
- A 0.40319E-01, 0.36952E+00,-0.34585E-02, 0.74285E-05,-0.43038E-02,
- A 0.52677E-05, 0.16940E+05, 0.16950E+05,
- A 0.13921E-01, 0.36738E+00,-0.77085E-03, 0.45894E-06,-0.26272E-02,
- A-0.14583E-05, 0.16950E+05, 0.16960E+05,
- A 0.14345E-01, 0.25675E+00,-0.22235E-02, 0.18237E-05,-0.31796E-02,
- A 0.35185E-05, 0.16960E+05, 0.16970E+05,
- A 0.16501E-01, 0.22846E+00,-0.73791E-03,-0.81276E-05,-0.30972E-02,
- A-0.34017E-05, 0.16970E+05, 0.16980E+05/
- DATA ((ACR(K,J),K=1,8),J=169,176) /
- A 0.19984E-01, 0.24072E+00, 0.46284E-03,-0.11570E-04,-0.16535E-02,
- A-0.80246E-05, 0.16980E+05, 0.16990E+05,
- A 0.14605E-01, 0.42551E+00, 0.42003E-02,-0.24403E-04, 0.12313E-02,
- A-0.19610E-04, 0.16990E+05, 0.17000E+05,
- A 0.56604E-02, 0.31925E+00, 0.37029E-02,-0.11447E-04, 0.28937E-02,
- A-0.19869E-04, 0.17000E+05, 0.17010E+05,
- A 0.63352E-02, 0.35092E+00, 0.26893E-02,-0.15677E-04, 0.55216E-03,
- A-0.13231E-04, 0.17010E+05, 0.17020E+05,
- A 0.38440E-02, 0.22874E+00,-0.12718E-03,-0.93893E-07,-0.18171E-02,
- A-0.16527E-06, 0.17020E+05, 0.17030E+05,
- A 0.13581E-02, 0.13591E+00, 0.68077E-02,-0.35228E-04, 0.39267E-02,
- A-0.30049E-04, 0.17030E+05, 0.17040E+05,
- A 0.18736E-02, 0.25317E+00, 0.40940E-02,-0.11150E-04, 0.20737E-02,
- A-0.16908E-04, 0.17040E+05, 0.17050E+05,
- A 0.12084E-02, 0.16880E+00,-0.10058E-02,-0.78902E-06,-0.25863E-02,
- A-0.11192E-05, 0.17050E+05, 0.17060E+05/
- DATA ((ACR(K,J),K=1,8),J=177,184) /
- A 0.10487E-02, 0.69135E-01, 0.63750E-02,-0.33619E-04, 0.36725E-02,
- A-0.30416E-04, 0.17060E+05, 0.17070E+05,
- A 0.50984E-03, 0.11462E+00, 0.31391E-02,-0.21530E-04, 0.45939E-03,
- A-0.17989E-04, 0.17070E+05, 0.17080E+05,
- A 0.84428E-03, 0.14457E+00,-0.58124E-03,-0.77648E-05,-0.29191E-02,
- A-0.43661E-05, 0.17080E+05, 0.17090E+05,
- A 0.30536E-03, 0.74835E-01, 0.15726E-03,-0.12441E-04,-0.24876E-02,
- A-0.76201E-05, 0.17090E+05, 0.17100E+05,
- A 0.55260E-03, 0.12225E+00, 0.40329E-02,-0.26244E-04, 0.12152E-02,
- A-0.21176E-04, 0.17100E+05, 0.17110E+05,
- A 0.37571E-03, 0.66060E-01, 0.48930E-02,-0.17932E-04, 0.27254E-02,
- A-0.21243E-04, 0.17110E+05, 0.17120E+05,
- A 0.38817E-03, 0.96834E-01, 0.50965E-02,-0.28072E-04, 0.25414E-02,
- A-0.25439E-04, 0.17120E+05, 0.17130E+05,
- A 0.43455E-03, 0.10332E+00, 0.37899E-02,-0.25805E-04, 0.11068E-02,
- A-0.21470E-04, 0.17130E+05, 0.17140E+05/
- DATA ((ACR(K,J),K=1,8),J=185,192) /
- A 0.27970E-03, 0.13222E+00, 0.49706E-02,-0.11993E-04, 0.22042E-02,
- A-0.16597E-04, 0.17140E+05, 0.17150E+05,
- A 0.35542E-03, 0.94199E-01, 0.69032E-02,-0.38399E-04, 0.42436E-02,
- A-0.33972E-04, 0.17150E+05, 0.17160E+05,
- A 0.14332E-03, 0.10096E+00, 0.80342E-02,-0.44157E-04, 0.52994E-02,
- A-0.38930E-04, 0.17160E+05, 0.17170E+05,
- A 0.11310E-03, 0.70320E-01, 0.94132E-02,-0.19979E-04, 0.84399E-02,
- A-0.33269E-04, 0.17170E+05, 0.17180E+05,
- A 0.10970E-03, 0.73653E-01, 0.70015E-02,-0.31921E-04, 0.41785E-02,
- A-0.30330E-04, 0.17180E+05, 0.17190E+05,
- A 0.19539E-03, 0.11002E+00, 0.25848E-02,-0.21294E-04, 0.15132E-03,
- A-0.17461E-04, 0.17190E+05, 0.17200E+05,
- A 0.22464E-04, 0.40498E-01, 0.15081E-02,-0.18426E-04,-0.80302E-03,
- A-0.13773E-04, 0.17200E+05, 0.17210E+05,
- A 0.11068E-03, 0.41949E-01, 0.11384E-02,-0.16948E-04,-0.18620E-02,
- A-0.10906E-04, 0.17210E+05, 0.17220E+05/
- DATA ((ACR(K,J),K=1,8),J=193,200) /
- A 0.26372E-03, 0.14230E+00, 0.74076E-02,-0.96003E-06, 0.49470E-02,
- A-0.16056E-04, 0.17220E+05, 0.17230E+05,
- A 0.16225E-03, 0.64754E-01, 0.91255E-03, 0.45791E-05, 0.28912E-04,
- A-0.27430E-05, 0.17230E+05, 0.17240E+05,
- A 0.34492E-03, 0.13306E+00,-0.22341E-02,-0.31568E-05,-0.51367E-02,
- A 0.25216E-05, 0.17240E+05, 0.17250E+05,
- A 0.29083E-03, 0.12730E+00, 0.14643E-01,-0.70324E-04, 0.11799E-01,
- A-0.64717E-04, 0.17250E+05, 0.17260E+05,
- A 0.79159E-04, 0.84959E-01, 0.33618E-02, 0.10957E-04,-0.19083E-05,
- A 0.15045E-05, 0.17260E+05, 0.17270E+05,
- A 0.39910E-03, 0.16110E+00, 0.52228E-02,-0.66224E-05, 0.33150E-02,
- A-0.17428E-04, 0.17270E+05, 0.17280E+05,
- A 0.36117E-03, 0.14552E+00, 0.53239E-02,-0.27921E-05, 0.27764E-02,
- A-0.13072E-04, 0.17280E+05, 0.17290E+05,
- A 0.56601E-03, 0.20230E+00, 0.81509E-02,-0.39750E-04, 0.51039E-02,
- A-0.35401E-04, 0.17290E+05, 0.17300E+05/
- DATA ((ACR(K,J),K=1,8),J=201,208) /
- A 0.55220E-03, 0.27444E+00, 0.22665E-02,-0.41297E-05, 0.69271E-03,
- A-0.12175E-04, 0.17300E+05, 0.17310E+05,
- A 0.12177E-02, 0.31594E+00, 0.26446E-02,-0.11117E-04,-0.10442E-02,
- A-0.73851E-05, 0.17310E+05, 0.17320E+05,
- A 0.12068E-02, 0.36919E+00, 0.46393E-02,-0.25102E-04, 0.19370E-02,
- A-0.21181E-04, 0.17320E+05, 0.17330E+05,
- A 0.81484E-03, 0.12504E+00, 0.33991E-02,-0.24509E-04,-0.17719E-03,
- A-0.16570E-04, 0.17330E+05, 0.17340E+05,
- A 0.10075E-02, 0.10415E+00, 0.45176E-02,-0.30424E-04, 0.16795E-02,
- A-0.24622E-04, 0.17340E+05, 0.17350E+05,
- A 0.14383E-02, 0.23566E+00, 0.13476E-02,-0.10965E-04,-0.23371E-02,
- A-0.43633E-05, 0.17350E+05, 0.17360E+05,
- A 0.78276E-03, 0.22290E+00,-0.15478E-02,-0.18316E-05,-0.39408E-02,
- A 0.49016E-06, 0.17360E+05, 0.17370E+05,
- A 0.23195E-02, 0.16440E+00, 0.12573E-02,-0.16680E-04,-0.19183E-02,
- A-0.95692E-05, 0.17370E+05, 0.17380E+05/
- DATA ((ACR(K,J),K=1,8),J=209,216) /
- A 0.70669E-03, 0.18348E+00,-0.13530E-02,-0.55696E-05,-0.46409E-02,
- A 0.11901E-05, 0.17380E+05, 0.17390E+05,
- A 0.26577E-02, 0.24613E+00,-0.34475E-03,-0.91490E-05,-0.27647E-02,
- A-0.44906E-05, 0.17390E+05, 0.17400E+05,
- A 0.14266E-02, 0.18058E+00,-0.17564E-03,-0.31091E-05,-0.23868E-02,
- A-0.24568E-05, 0.17400E+05, 0.17410E+05,
- A 0.13368E-02, 0.89183E-01,-0.75731E-03,-0.30495E-05,-0.13138E-02,
- A-0.55029E-05, 0.17410E+05, 0.17420E+05,
- A 0.31555E-02, 0.29805E+00,-0.14978E-02,-0.64349E-06,-0.36817E-02,
- A 0.13405E-05, 0.17420E+05, 0.17430E+05,
- A 0.15803E-02, 0.20706E+00, 0.27308E-02,-0.14728E-04, 0.21412E-03,
- A-0.14434E-04, 0.17430E+05, 0.17440E+05,
- A 0.25444E-02, 0.19283E+00,-0.26123E-02, 0.37928E-05,-0.40723E-02,
- A 0.33236E-05, 0.17440E+05, 0.17450E+05,
- A 0.28951E-02, 0.14488E+00, 0.82222E-03,-0.14617E-04,-0.20986E-02,
- A-0.86758E-05, 0.17450E+05, 0.17460E+05/
- DATA ((ACR(K,J),K=1,8),J=217,224) /
- A 0.99222E-03, 0.58296E-01,-0.69730E-03,-0.88805E-05,-0.30012E-02,
- A-0.51319E-05, 0.17460E+05, 0.17470E+05,
- A 0.49761E-02, 0.23841E+00,-0.34073E-02, 0.21975E-05,-0.60900E-02,
- A 0.67461E-05, 0.17470E+05, 0.17480E+05,
- A 0.24737E-02, 0.16103E+00,-0.33546E-02, 0.52399E-05,-0.50448E-02,
- A 0.49288E-05, 0.17480E+05, 0.17490E+05,
- A 0.65774E-03, 0.76908E-01,-0.48253E-02, 0.72725E-05,-0.72344E-02,
- A 0.11372E-04, 0.17490E+05, 0.17500E+05,
- A 0.85946E-03, 0.13720E+00,-0.34619E-02, 0.38209E-05,-0.55141E-02,
- A 0.64456E-05, 0.17500E+05, 0.17510E+05,
- A 0.13088E-03, 0.77214E-01, 0.10378E-03,-0.67806E-05,-0.24574E-02,
- A-0.43444E-05, 0.17510E+05, 0.17520E+05,
- A 0.72177E-03, 0.12037E+00,-0.32371E-02, 0.38429E-05,-0.57060E-02,
- A 0.63102E-05, 0.17520E+05, 0.17530E+05,
- A 0.25932E-02, 0.57507E-01,-0.53841E-02, 0.93892E-05,-0.80102E-02,
- A 0.14171E-04, 0.17530E+05, 0.17540E+05/
- DATA ((ACR(K,J),K=1,8),J=225,232) /
- A 0.64329E-02, 0.34361E+00,-0.33999E-02, 0.41519E-05,-0.47285E-02,
- A 0.41554E-05, 0.17540E+05, 0.17550E+05,
- A 0.20356E-02, 0.18182E+00,-0.31524E-02, 0.92073E-06,-0.56549E-02,
- A 0.49733E-05, 0.17550E+05, 0.17560E+05,
- A 0.65331E-02, 0.22623E+00,-0.15636E-02,-0.41008E-05,-0.32357E-02,
- A-0.23034E-05, 0.17560E+05, 0.17570E+05,
- A 0.59972E-02, 0.29545E+00,-0.60272E-03,-0.79159E-05,-0.32228E-02,
- A-0.31603E-05, 0.17570E+05, 0.17580E+05,
- A 0.40039E-02, 0.31360E+00, 0.32065E-02,-0.20617E-04, 0.67568E-03,
- A-0.17932E-04, 0.17580E+05, 0.17590E+05,
- A 0.16959E-02, 0.28903E+00, 0.51560E-02,-0.19347E-04, 0.33983E-02,
- A-0.21801E-04, 0.17590E+05, 0.17600E+05,
- A 0.70732E-03, 0.16014E+00, 0.10501E-02,-0.14628E-04,-0.15478E-02,
- A-0.97179E-05, 0.17600E+05, 0.17610E+05,
- A 0.12558E-02, 0.17980E+00, 0.44641E-02,-0.25933E-04, 0.19766E-02,
- A-0.22898E-04, 0.17610E+05, 0.17620E+05/
- DATA ((ACR(K,J),K=1,8),J=233,240) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17620E+05, 0.17630E+05,
- A 0.59440E-04, 0.33158E-01, 0.60208E-02,-0.36477E-04, 0.32636E-02,
- A-0.30925E-04, 0.17630E+05, 0.17640E+05,
- A 0.16627E-03, 0.41123E-01,-0.27846E-02,-0.12553E-05,-0.55418E-02,
- A 0.42965E-05, 0.17640E+05, 0.17650E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17650E+05, 0.17660E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17660E+05, 0.17670E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17670E+05, 0.17680E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17680E+05, 0.17690E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17690E+05, 0.17700E+05/
- DATA ((ACR(K,J),K=1,8),J=241,248) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17700E+05, 0.17710E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17710E+05, 0.17720E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17720E+05, 0.17730E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17730E+05, 0.17740E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17740E+05, 0.17750E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17750E+05, 0.17760E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17760E+05, 0.17770E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17770E+05, 0.17780E+05/
- DATA ((ACR(K,J),K=1,8),J=249,256) /
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17780E+05, 0.17790E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17790E+05, 0.17800E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17800E+05, 0.17810E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17810E+05, 0.17820E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17820E+05, 0.17830E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17830E+05, 0.17840E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17840E+05, 0.17850E+05,
- A 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,
- A 0.00000E+00, 0.17850E+05, 0.17860E+05/
-C
-c
- do i=1,8
- a(i)=acr(i,inu)
- enddo
-c
- return
- end
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.h b/Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.h
deleted file mode 100644
index 3b2499b..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/WAVA6.h
+++ /dev/null
@@ -1,4 +0,0 @@
-extern int otb_6s_wava6_(
- otb_6s_doublereal *a,
- otb_6s_integer *inu
- );
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/aaa_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/aaa_com.c
deleted file mode 100644
index 6caf3af..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/aaa_com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal rrl, ttl, ul, sl, clmp, clmp1, bi, bd, bqint;
-} aaa_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/aeroprof_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/aeroprof_com.c
deleted file mode 100644
index 4f11dbd..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/aeroprof_com.c
+++ /dev/null
@@ -1,17 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- integer num_z__;
- real alt_z__[101], taer_z__[101], taer55_z__[101];
-} aeroprof_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/cfresn_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/cfresn_com.c
deleted file mode 100644
index 84fb7d5..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/cfresn_com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal rn, rk;
-} cfresn_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/gauss_m__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/gauss_m__com.c
deleted file mode 100644
index deef127..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/gauss_m__com.c
+++ /dev/null
@@ -1,16 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal xgm[20], wgm[20];
- integer n;
-} gauss_m__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ggg_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/ggg_com.c
deleted file mode 100644
index c9b635e..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ggg_com.c
+++ /dev/null
@@ -1,18 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal gr, gt, g, g1, th, sth, cth, th1, sth1, cth1, phi, sp, cp,
- th22, st, ct, st1, ct1, t10, t11, e1, e2, s2, s3, ctg, ctg1, ctt1,
- stt1, calph, alp2, salp2, calp2, alph, salph, alpp, difmy,
- difsig;
-} ggg_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/l_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/l_com.c
deleted file mode 100644
index 84381e0..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/l_com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal dl, xl;
-} l_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ladak_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/ladak_com.c
deleted file mode 100644
index 43b0721..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ladak_com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal ee, thm, sthm, cthm;
-} ladak_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ld_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/ld_com.c
deleted file mode 100644
index 7580719..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ld_com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal a_ld__, b_ld__, c_ld__, d_ld__;
-} ld_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/leafin_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/leafin_com.c
deleted file mode 100644
index fe184a6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/leafin_com.c
+++ /dev/null
@@ -1,20 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-union {
- struct {
- doublereal nnl, vai, kk;
- } _1;
- struct {
- doublereal nn, vai, k;
- } _2;
-} leafin_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/leafout_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/leafout_com.c
deleted file mode 100644
index c7a2787..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/leafout_com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal refl, tran;
-} leafout_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/main.h b/Modules/ThirdParty/6S/src/6SV1.0B/main.h
deleted file mode 100644
index e69de29..0000000
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/mie_in__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/mie_in__com.c
deleted file mode 100644
index 7d140f7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/mie_in__com.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- real rmax, rmin;
- integer icp;
- real rn[80] /* was [20][4] */, ri[80] /* was [20][4] */, x1[4], x2[
- 4], x3[4], cij[4];
- integer irsunph;
- real rsunph[50], nrsunph[50];
-} mie_in__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/msrmdata_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/msrmdata_com.c
deleted file mode 100644
index c494da8..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/msrmdata_com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal th10, rncoef, cab, cw, bq;
-} msrmdata_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/multorder_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/multorder_com.c
deleted file mode 100644
index 793240c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/multorder_com.c
+++ /dev/null
@@ -1,16 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- integer igmax;
-} multorder_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/nagout_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/nagout_com.c
deleted file mode 100644
index 1e6f688..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/nagout_com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal inex__;
-} nagout_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/num_quad__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/num_quad__com.c
deleted file mode 100644
index e23164d..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/num_quad__com.c
+++ /dev/null
@@ -1,16 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- integer nquad;
-} num_quad__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/p_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/p_com.c
deleted file mode 100644
index a28cad2..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/p_com.c
+++ /dev/null
@@ -1,16 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal xlt, rl, tl, rs, c__;
- integer ild;
-} p_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/paramdef.inc b/Modules/ThirdParty/6S/src/6SV1.0B/paramdef.inc
deleted file mode 100644
index 89c1e62..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/paramdef.inc
+++ /dev/null
@@ -1,7 +0,0 @@
- parameter(nt_p=30,mu_p=25,mu2_p=48,np_p=49,nfi_p=181,nquad_p=83)
- parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change
-
- ! Attention
- ! mu2_p has to be equal to (mu_p-1)*2
-
-
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/ro_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/ro_com.c
deleted file mode 100644
index 5f4bcf0..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/ro_com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal ro_1_c__, ro_1_s__, ro_mult__;
-} ro_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_aer__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/sixs_aer__com.c
deleted file mode 100644
index 9cf7a79..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_aer__com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal ext[20], ome[20], gasym[20], phase[20], qhase[20], uhase[20];
-} sixs_aer__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_aerbas__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/sixs_aerbas__com.c
deleted file mode 100644
index 6488935..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_aerbas__com.c
+++ /dev/null
@@ -1,16 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal ph[20000] /* was [20][1000] */, qh[20000] /* was [20][
- 1000] */, uh[20000] /* was [20][1000] */;
-} sixs_aerbas__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_atm__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/sixs_atm__com.c
deleted file mode 100644
index 65fc987..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_atm__com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_coef__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/sixs_coef__com.c
deleted file mode 100644
index 7a2a381..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_coef__com.c
+++ /dev/null
@@ -1,16 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal ex[80] /* was [4][20] */, sc[80] /* was [4][20] */,
- asy[80] /* was [4][20] */, vi[4];
-} sixs_coef__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_del__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/sixs_del__com.c
deleted file mode 100644
index fee04a6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_del__com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal delta, sigma;
-} sixs_del__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_disc__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/sixs_disc__com.c
deleted file mode 100644
index aee4ef0..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_disc__com.c
+++ /dev/null
@@ -1,19 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal roatm[60] /* was [3][20] */, dtdir[60] /* was [3][20]
- */, dtdif[60] /* was [3][20] */, utdir[60] /* was [3][20]
- */, utdif[60] /* was [3][20] */, sphal[60] /* was [3][20]
- */, wldis[20], trayl[20], traypl[20], rpatm[60] /* was [3][20]
- */, dpatm[60] /* was [3][20] */;
-} sixs_disc__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_ffu__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/sixs_ffu__com.c
deleted file mode 100644
index a5803a6..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_ffu__com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_ier__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/sixs_ier__com.c
deleted file mode 100644
index 0f6c3c7..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_ier__com.c
+++ /dev/null
@@ -1,16 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_phase__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/sixs_phase__com.c
deleted file mode 100644
index 2ee1d06..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_phase__com.c
+++ /dev/null
@@ -1,16 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal phasel[20000] /* was [20][1000] */, qhasel[20000] /*
- was [20][1000] */, uhasel[20000] /* was [20][1000] */;
-} sixs_phase__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_planesim__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/sixs_planesim__com.c
deleted file mode 100644
index 111d5df..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_planesim__com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal zpl[34], ppl[34], tpl[34], whpl[34], wopl[34];
-} sixs_planesim__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_polar__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/sixs_polar__com.c
deleted file mode 100644
index 861534a..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_polar__com.c
+++ /dev/null
@@ -1,16 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal pha[1000], qha[1000], uha[1000], alphal[1001], betal[1001],
- gammal[1001], zetal[1001];
-} sixs_polar__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_test__com.c b/Modules/ThirdParty/6S/src/6SV1.0B/sixs_test__com.c
deleted file mode 100644
index edfe8af..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/sixs_test__com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal xacc;
-} sixs_test__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/tauin_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/tauin_com.c
deleted file mode 100644
index 25b5e4c..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/tauin_com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal teta, ref;
-} tauin_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/6SV1.0B/tauout_com.c b/Modules/ThirdParty/6S/src/6SV1.0B/tauout_com.c
deleted file mode 100644
index e658566..0000000
--- a/Modules/ThirdParty/6S/src/6SV1.0B/tauout_com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal tau;
-} tauout_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/CMakeLists.txt b/Modules/ThirdParty/6S/src/CMakeLists.txt
deleted file mode 100644
index 7c2b3f4..0000000
--- a/Modules/ThirdParty/6S/src/CMakeLists.txt
+++ /dev/null
@@ -1,83 +0,0 @@
-#
-# Current informations:
-# Version 1.0B released on May, 2005.
-# Download site : http://6s.ltdri.org/
-#
-
-set(OTB3P_INSTALL_EXPORT_NAME "${OTB6S-targets}")
-set(OTB3P_INSTALL_INCLUDE_DIR "${OTB6S_INSTALL_INCLUDE_DIR}")
-set(OTB3P_INSTALL_RUNTIME_DIR "${OTB6S_INSTALL_RUNTIME_DIR}")
-set(OTB3P_INSTALL_LIBRARY_DIR "${OTB6S_INSTALL_LIBRARY_DIR}")
-set(OTB3P_INSTALL_ARCHIVE_DIR "${OTB6S_INSTALL_ARCHIVE_DIR}")
-
-# Inform header files they are being included from a source inside the
-# otb_6S library.
-add_definitions(-DOTB_6S_SRC)
-add_definitions(-DNON_POSIX_STDIO)
-
-# On Microsoft Visual
-if(WIN32)
- if(NOT BORLAND)
- if(NOT CYGWIN)
- if(NOT MINGW)
-# if(NOT ITK_ENABLE_VISUAL_STUDIO_DEPRECATED_C_WARNINGS)
- add_definitions(
- -DUSE_CLOCK
- -DMSDOS
- -DNO_ONEXIT
- )
-# endif()
- else()
- add_definitions(
- -DUSE_CLOCK
- -DMSDOS
- -DNO_TRUNCATE #For generate endfile.c
- )
- endif()
- endif()
- endif()
-endif()
-
-
-file(GLOB OTB6S_SRCS "6SV1.0B/*.c" )
-file(GLOB LIBF2C_SRCS "libf2c/*.c" )
-list(REMOVE_ITEM LIBF2C_SRCS "${CMAKE_CURRENT_SOURCE_DIR}/libf2c/arithchk.c" )
-list(REMOVE_ITEM LIBF2C_SRCS "${CMAKE_CURRENT_SOURCE_DIR}/libf2c/main.c" )
-list(REMOVE_ITEM LIBF2C_SRCS "${CMAKE_CURRENT_SOURCE_DIR}/libf2c/getarg_.c" )
-list(REMOVE_ITEM LIBF2C_SRCS "${CMAKE_CURRENT_SOURCE_DIR}/libf2c/iargc_.c" )
-
-# Main code source
-set(OTB6S_MAIN_SRCS
- otb_main6S_function.c # otb 6S main function
- main.c # ORIGINAL 6S main
- otb_main6S_program_call_function.c # OTB 6S main (which call otb_main6S_function function)
- aeroprof_com.c # others *.c fils generated by f2c
- multorder_com.c
- sixs_del__com.c
- sixs_ier__com.c
- num_quad__com.c
- sixs_aer__com.c
- sixs_disc__com.c
- sixs_planesim__com.c
- mie_in__com.c
- sixs_atm__com.c
- sixs_ffu__com.c
- sixs_test__com.c
- )
-
-add_library(otb6S ${LIBF2C_SRCS} ${OTB6S_SRCS} ${OTB6S_MAIN_SRCS})
-if(UNIX)
- target_link_libraries(otb6S m)
-endif()
-if(OTB_LIBRARY_PROPERTIES)
- set_target_properties(otb6S PROPERTIES ${OTB_LIBRARY_PROPERTIES})
-endif()
-
-install(TARGETS otb6S
- EXPORT ${OTB3P_INSTALL_EXPORT_NAME}
- RUNTIME DESTINATION ${OTB3P_INSTALL_RUNTIME_DIR} COMPONENT RuntimeLibraries
- LIBRARY DESTINATION ${OTB3P_INSTALL_LIBRARY_DIR} COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION ${OTB3P_INSTALL_ARCHIVE_DIR} COMPONENT Development
- )
-
-otb_module_target( otb6S NO_INSTALL )
diff --git a/Modules/ThirdParty/6S/src/README b/Modules/ThirdParty/6S/src/README
deleted file mode 100644
index dcbd959..0000000
--- a/Modules/ThirdParty/6S/src/README
+++ /dev/null
@@ -1,81 +0,0 @@
-libf2c modifications:
----------------------
-The itk libf2c (itkv3p_netlib.a) is not used because uncomplet.
-
-- cp sysdep1.h0 sysdep1.h
-- cp signal1.h0 signal1.h
-- NO cp f2c.h0 otb_6S_f2c.h
-- change header inclusion "f2c.h" by "otb_6S_f2c.h" in all files *.c
-- omit c files : ftell64_.c pow_qq.c qbitbits.c qbitshft.c signbit.c
-
-- From ITK/Utilities/vxl/v3p/netlib/
- - cp v3p_f2c_mangle.h otb_6S_f2c_mangle.h
- - cp v3p_f2c_unmangle.h otb_6S_f2c_unmangle.h
- - cp v3p_f2c_original.h otb_6S_f2c_original.h
- - cp v3p_f2c.h otb_6S_f2c.h
- - cp v3p_netlib_mangle.h otb_6S_mangle.h
- - cp v3p_netlib_unmangle.h otb_6S_unmangle.h
- - cp v3p_netlib_prototypes.h otb_6S_prototypes.h
- - cp v3p_netlib.h otb_6S.h
-- in open.c and inquire.c; pb generation in Visual platform.
- -> Comment header inclusion "io.h" in MSDOS macro.
- #ifdef MSDOS
- /* OTB Modifications */
- /* #include "io.h" */
- ...
-
-TODO : if problem, use vcl functions. Replace pow_dd(), etc... methods by vcl_pow(), etc.... use ITK vcl (#define pow_dd vcl_pow, ...) !!
-
-6SV1.0B modifications:
-----------------------
-- generate .c file with f2c applications. Command line execute : f2c -A -a -C++ -c -ec -E -P -r8
-- *.f corection because f2c generate errors (.f files no ASCII).
- patch: ATMREF.f DISCOM.f ISO.f KERNELPOL.f OS.f OSPOL.f VERSBRDF.f
- dimension tab are set (ex : mu replace by 25, nt by 30, ) for locale tab but parameter dimension.
-
-- change header inclusion in .h files: replace "f2c.h" by "otb_6S.h"
-- change 6S type by new otp types: example: integer is repalce by otb_6s_integer, ...
-TO DO:
-echo "/* Include prototype headers. */" > otb_6S_prototypes.h
-for f in 6SV1.0B/*.P ; do
- b=`echo "$f" | sed 's/\.P//'`
- if [ ! -f "${b}.h" ] ; then
- echo "Converting prototype $b"
- cat ${b}.P |
- grep -v "^/\\*" |
- sed 's/\([A-Za-z0-9]*\)_(/otb_6s_\1_(/' |
- sed 's/(/(\n /g' |
- sed 's/, /,\n /g' |
- sed 's/)/\n )/g' |
- sed 's/const/otb_6s_const/g' |
- sed '/ logical1/ {s/logical1/otb_6s_logical1/g}' |
- sed '/ real/ {s/real/otb_6s_real/g}' |
- sed '/ integer1/ {s/integer1/otb_6s_integer1/g}' |
- sed '/ uinteger/ {s/uinteger/otb_6s_uinteger/g}' |
- sed '/ integer/ {s/integer/otb_6s_integer/g}' |
- sed '/ address/ {s/address/otb_6s_address/g}' |
- sed '/ shortint/ {s/shortint/otb_6s_shortint/g}' |
- sed '/ doublereal/ {s/doublereal/otb_6s_doublereal/g}' |
- sed '/ doublecomplex/ {s/doublecomplex/otb_6s_doublecomplex/g}' |
- sed '/ complex/ {s/complex/otb_6s_complex/g}' |
- sed '/ shortlogical/ {s/shortlogical/otb_6s_shortlogical/g}' |
- sed '/ logical/ {s/logical/otb_6s_logical/g}' |
- sed '/ longint/ {s/longint/otb_6s_longint/g}' |
- sed '/ ulongint/ {s/ulongint/otb_6s_ulongint/g}' |
- sed '/ ftnlen/ {s/ftnlen/otb_6s_ftnlen/g}' |
- sed '/ C_f/ {s/C_f/otb_6s_C_f/g}' |
- sed '/ E_f/ {s/E_f/otb_6s_E_f/g}' |
- sed '/ H_f/ {s/H_f/otb_6s_H_f/g}' |
- sed '/ Z_f/ {s/Z_f/otb_6s_Z_f/g}' |
- cat > ${b}.h
- fi
- echo "#include \"${b}.h\"" >> otb_6S_prototypes.h
-done
-
-
-- about main.c file: comment definition functions: because is not very necessary and the definition in the libf2c is different !!
- -> /* int s_copy(char *, char *, ftnlen, ftnlen); */
- -> /* int s_cat(char *, char **, integer *, integer *, ftnlen); */
-
-TODO : move main.c file to the executable (in /Testing/Utilities for exeample).
-TODO : IMPORTANT : corection: dynamic allocation memory in files ATMREF.c DISCOM.c ISO.c KERNELPOL.c OS.c OSPOL.c VERSBRDF.c
diff --git a/Modules/ThirdParty/6S/src/aeroprof_com.c b/Modules/ThirdParty/6S/src/aeroprof_com.c
deleted file mode 100644
index 996a1b7..0000000
--- a/Modules/ThirdParty/6S/src/aeroprof_com.c
+++ /dev/null
@@ -1,16 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- integer num_z__;
- doublereal alt_z__[101], taer_z__[101], taer55_z__[101];
-} aeroprof_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/Notice b/Modules/ThirdParty/6S/src/libf2c/Notice
deleted file mode 100644
index 261b719..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/Notice
+++ /dev/null
@@ -1,23 +0,0 @@
-/****************************************************************
-Copyright 1990 - 1997 by AT&T, Lucent Technologies and Bellcore.
-
-Permission to use, copy, modify, and distribute this software
-and its documentation for any purpose and without fee is hereby
-granted, provided that the above copyright notice appear in all
-copies and that both that the copyright notice and this
-permission notice and warranty disclaimer appear in supporting
-documentation, and that the names of AT&T, Bell Laboratories,
-Lucent or Bellcore or any of their entities not be used in
-advertising or publicity pertaining to distribution of the
-software without specific, written prior permission.
-
-AT&T, Lucent and Bellcore disclaim all warranties with regard to
-this software, including all implied warranties of
-merchantability and fitness. In no event shall AT&T, Lucent or
-Bellcore be liable for any special, indirect or consequential
-damages or any damages whatsoever resulting from loss of use,
-data or profits, whether in an action of contract, negligence or
-other tortious action, arising out of or in connection with the
-use or performance of this software.
-****************************************************************/
-
diff --git a/Modules/ThirdParty/6S/src/libf2c/README b/Modules/ThirdParty/6S/src/libf2c/README
deleted file mode 100644
index 940a354..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/README
+++ /dev/null
@@ -1,374 +0,0 @@
-As shipped, "makefile" is a copy of "makefile.u", a Unix makefile.
-Variants for other systems have names of the form makefile.* and
-have initial comments saying how to invoke them. You may wish to
-copy one of the other makefile.* files to makefile.
-
-If you use a C++ compiler, first say
-
- make hadd
-
-to create a suitable f2c.h from f2c.h0 and f2ch.add. Otherwise,
-
- make f2c.h
-
-will just copy f2c.h0 to f2c.h .
-
-If your compiler does not recognize ANSI C headers,
-compile with KR_headers defined: either add -DKR_headers
-to the definition of CFLAGS in the makefile, or insert
-
-#define KR_headers
-
-at the top of f2c.h .
-
-If your system lacks onexit() and you are not using an ANSI C
-compiler, then you should compile main.c with NO_ONEXIT defined.
-See the comments about onexit in makefile.u.
-
-If your system has a double drem() function such that drem(a,b)
-is the IEEE remainder function (with double a, b), then you may
-wish to compile r_mod.c and d_mod.c with IEEE_drem defined.
-
-To check for transmission errors, issue the command
- make check
-or
- make -f makefile.u check
-
-This assumes you have the xsum program whose source, xsum.c,
-is distributed as part of "all from f2c/src", and that it
-is installed somewhere in your search path. If you do not
-have xsum, you can obtain xsum.c by sending the following E-mail
-message to netlib at netlib.bell-labs.com
- send xsum.c from f2c/src
-
-For convenience, the f2c.h0 in this directory is a copy of netlib's
-"f2c.h from f2c". It is best to install f2c.h in a standard place,
-so "include f2c.h" will work in any directory without further ado.
-Beware that the makefiles do not cause recompilation when f2c.h is
-changed.
-
-On machines, such as those using a DEC Alpha processor, on which
-sizeof(short) == 2, sizeof(int) == sizeof(float) == 4, and
-sizeof(long) == sizeof(double) == 8, it suffices to modify f2c.h by
-removing the first occurrence of "long " on each line containing
-"long ". On Unix systems, you can do this by issuing the commands
- mv f2c.h f2c.h0
- sed 's/long int /int /' f2c.h0 >f2c.h
-On such machines, one can enable INTEGER*8 by uncommenting the typedefs
-of longint and ulongint in f2c.h and adjusting them, so they read
- typedef long longint;
- typedef unsigned long ulongint;
-and by compiling libf2c with -DAllow_TYQUAD, as discussed below.
-
-
-Most of the routines in libf2c are support routines for Fortran
-intrinsic functions or for operations that f2c chooses not
-to do "in line". There are a few exceptions, summarized below --
-functions and subroutines that appear to your program as ordinary
-external Fortran routines.
-
-If you use the REAL valued functions listed below (ERF, ERFC,
-DTIME, and ETIME) with "f2c -R", then you need to compile the
-corresponding source files with -DREAL=float. To do this, it is
-perhaps simplest to add "-DREAL=float" to CFLAGS in the makefile.
-
-1. CALL ABORT prints a message and causes a core dump.
-
-2. ERF(r) and DERF(d) and the REAL and DOUBLE PRECISION
- error functions (with x REAL and d DOUBLE PRECISION);
- DERF must be declared DOUBLE PRECISION in your program.
- Both ERF and DERF assume your C library provides the
- underlying erf() function (which not all systems do).
-
-3. ERFC(r) and DERFC(d) are the complementary error functions:
- ERFC(r) = 1 - ERF(r) and DERFC(d) = 1.d0 - DERFC(d)
- (except that their results may be more accurate than
- explicitly evaluating the above formulae would give).
- Again, ERFC and r are REAL, and DERFC and d are DOUBLE
- PRECISION (and must be declared as such in your program),
- and ERFC and DERFC rely on your system's erfc().
-
-4. CALL GETARG(n,s), where n is an INTEGER and s is a CHARACTER
- variable, sets s to the n-th command-line argument (or to
- all blanks if there are fewer than n command-line arguments);
- CALL GETARG(0,s) sets s to the name of the program (on systems
- that support this feature). See IARGC below.
-
-5. CALL GETENV(name, value), where name and value are of type
- CHARACTER, sets value to the environment value, $name, of
- name (or to blanks if $name has not been set).
-
-6. NARGS = IARGC() sets NARGS to the number of command-line
- arguments (an INTEGER value).
-
-7. CALL SIGNAL(n,func), where n is an INTEGER and func is an
- EXTERNAL procedure, arranges for func to be invoked when n
- occurs (on systems where this makes sense).
-
-If your compiler complains about the signal calls in main.c, s_paus.c,
-and signal_.c, you may need to adjust signal1.h suitably. See the
-comments in signal1.h.
-
-8. ETIME(ARR) and DTIME(ARR) are REAL functions that return
- execution times. ARR is declared REAL ARR(2). The elapsed
- user and system CPU times are stored in ARR(1) and ARR(2),
- respectively. ETIME returns the total elapsed CPU time,
- i.e., ARR(1) + ARR(2). DTIME returns total elapsed CPU
- time since the previous call on DTIME.
-
-9. CALL SYSTEM(cmd), where cmd is of type CHARACTER, passes
- cmd to the system's command processor (on systems where
- this can be done).
-
-10. CALL FLUSH flushes all buffers.
-
-11. FTELL(i) is an INTEGER function that returns the current
- offset of Fortran unit i (or -1 if unit i is not open).
-
-12. CALL FSEEK(i, offset, whence, *errlab) attemps to move
- Fortran unit i to the specified offset: absolute offset
- if whence = 0; relative to the current offset if whence = 1;
- relative to the end of the file if whence = 2. It branches
- to label errlab if unit i is not open or if the call
- otherwise fails.
-
-The routines whose objects are makefile.u's $(I77) are for I/O.
-The following comments apply to them.
-
-If your system lacks /usr/include/local.h ,
-then you should create an appropriate local.h in
-this directory. An appropriate local.h may simply
-be empty, or it may #define VAX or #define CRAY
-(or whatever else you must do to make fp.h work right).
-Alternatively, edit fp.h to suite your machine.
-
-If your system lacks /usr/include/fcntl.h , then you
-should simply create an empty fcntl.h in this directory.
-If your compiler then complains about creat and open not
-having a prototype, compile with OPEN_DECL defined.
-On many systems, open and creat are declared in fcntl.h .
-
-If your system's sprintf does not work the way ANSI C
-specifies -- specifically, if it does not return the
-number of characters transmitted -- then insert the line
-
-#define USE_STRLEN
-
-at the end of fmt.h . This is necessary with
-at least some versions of Sun software.
-In particular, if you get a warning about an improper
-pointer/integer combination in compiling wref.c, then
-you need to compile with -DUSE_STRLEN .
-
-If your system's fopen does not like the ANSI binary
-reading and writing modes "rb" and "wb", then you should
-compile open.c with NON_ANSI_RW_MODES #defined.
-
-If you get error messages about references to cf->_ptr
-and cf->_base when compiling wrtfmt.c and wsfe.c or to
-stderr->_flag when compiling err.c, then insert the line
-
-#define NON_UNIX_STDIO
-
-at the beginning of fio.h, and recompile everything (or
-at least those modules that contain NON_UNIX_STDIO).
-
-Unformatted sequential records consist of a length of record
-contents, the record contents themselves, and the length of
-record contents again (for backspace). Prior to 17 Oct. 1991,
-the length was of type int; now it is of type long, but you
-can change it back to int by inserting
-
-#define UIOLEN_int
-
-at the beginning of fio.h. This affects only sue.c and uio.c .
-
-If you have a really ancient K&R C compiler that does not understand
-void, add -Dvoid=int to the definition of CFLAGS in the makefile.
-
-On VAX, Cray, or Research Tenth-Edition Unix systems, you may
-need to add -DVAX, -DCRAY, or -DV10 (respectively) to CFLAGS
-to make fp.h work correctly. Alternatively, you may need to
-edit fp.h to suit your machine.
-
-If your compiler complains about the signal calls in main.c, s_paus.c,
-and signal_.c, you may need to adjust signal1.h suitably. See the
-comments in signal1.h.
-
-You may need to supply the following non-ANSI routines:
-
- fstat(int fileds, struct stat *buf) is similar
-to stat(char *name, struct stat *buf), except that
-the first argument, fileds, is the file descriptor
-returned by open rather than the name of the file.
-fstat is used in the system-dependent routine
-canseek (in the libf2c source file err.c), which
-is supposed to return 1 if it's possible to issue
-seeks on the file in question, 0 if it's not; you may
-need to suitably modify err.c . On non-UNIX systems,
-you can avoid references to fstat and stat by compiling
-with NON_UNIX_STDIO defined; in that case, you may need
-to supply access(char *Name,0), which is supposed to
-return 0 if file Name exists, nonzero otherwise.
-
- char * mktemp(char *buf) is supposed to replace the
-6 trailing X's in buf with a unique number and then
-return buf. The idea is to get a unique name for
-a temporary file.
-
-On non-UNIX systems, you may need to change a few other,
-e.g.: the form of name computed by mktemp() in endfile.c and
-open.c; the use of the open(), close(), and creat() system
-calls in endfile.c, err.c, open.c; and the modes in calls on
-fopen() and fdopen() (and perhaps the use of fdopen() itself
--- it's supposed to return a FILE* corresponding to a given
-an integer file descriptor) in err.c and open.c (component ufmt
-of struct unit is 1 for formatted I/O -- text mode on some systems
--- and 0 for unformatted I/O -- binary mode on some systems).
-Compiling with -DNON_UNIX_STDIO omits all references to creat()
-and almost all references to open() and close(), the exception
-being in the function f__isdev() (in open.c).
-
-If you wish to use translated Fortran that has funny notions
-of record length for direct unformatted I/O (i.e., that assumes
-RECL= values in OPEN statements are not bytes but rather counts
-of some other units -- e.g., 4-character words for VMS), then you
-should insert an appropriate #define for url_Adjust at the
-beginning of open.c . For VMS Fortran, for example,
-#define url_Adjust(x) x *= 4
-would suffice.
-
-By default, Fortran I/O units 5, 6, and 0 are pre-connected to
-stdin, stdout, and stderr, respectively. You can change this
-behavior by changing f_init() in err.c to suit your needs.
-Note that f2c assumes READ(*... means READ(5... and WRITE(*...
-means WRITE(6... . Moreover, an OPEN(n,... statement that does
-not specify a file name (and does not specify STATUS='SCRATCH')
-assumes FILE='fort.n' . You can change this by editing open.c
-and endfile.c suitably.
-
-Unless you adjust the "#define MXUNIT" line in fio.h, Fortran units
-0, 1, ..., 99 are available, i.e., the highest allowed unit number
-is MXUNIT - 1.
-
-Lines protected from compilation by #ifdef Allow_TYQUAD
-are for a possible extension to 64-bit integers in which
-integer = int = 32 bits and longint = long = 64 bits.
-
-The makefile does not attempt to compile pow_qq.c, qbitbits.c,
-and qbitshft.c, which are meant for use with INTEGER*8. To use
-INTEGER*8, you must modify f2c.h to declare longint and ulongint
-appropriately; then add $(QINT) to the end of the makefile's
-dependency list for libf2c.a (if makefile is a copy of makefile.u;
-for the PC makefiles, add pow_qq.obj qbitbits.obj qbitshft.obj
-to the library's dependency list and adjust libf2c.lbc or libf2c.sy
-accordingly). Also add -DAllow_TYQUAD to the makefile's CFLAGS
-assignment. To make longint and ulongint available, it may suffice
-to add -DINTEGER_STAR_8 to the CFLAGS assignment.
-
-Following Fortran 90, s_cat.c and s_copy.c allow the target of a
-(character string) assignment to be appear on its right-hand, at
-the cost of some extra overhead for all run-time concatenations.
-If you prefer the extra efficiency that comes with the Fortran 77
-requirement that the left-hand side of a character assignment not
-be involved in the right-hand side, compile s_cat.c and s_copy.c
-with -DNO_OVERWRITE .
-
-Extensions (Feb. 1993) to NAMELIST processing:
- 1. Reading a ? instead of &name (the start of a namelist) causes
-the namelist being sought to be written to stdout (unit 6);
-to omit this feature, compile rsne.c with -DNo_Namelist_Questions.
- 2. Reading the wrong namelist name now leads to an error message
-and an attempt to skip input until the right namelist name is found;
-to omit this feature, compile rsne.c with -DNo_Bad_Namelist_Skip.
- 3. Namelist writes now insert newlines before each variable; to omit
-this feature, compile xwsne.c with -DNo_Extra_Namelist_Newlines.
- 4. (Sept. 1995) When looking for the &name that starts namelist
-input, lines whose first non-blank character is something other
-than &, $, or ? are treated as comment lines and ignored, unless
-rsne.c is compiled with -DNo_Namelist_Comments.
-
-Nonstandard extension (Feb. 1993) to open: for sequential files,
-ACCESS='APPEND' (or access='anything else starting with "A" or "a"')
-causes the file to be positioned at end-of-file, so a write will
-append to the file.
-
-Some buggy Fortran programs use unformatted direct I/O to write
-an incomplete record and later read more from that record than
-they have written. For records other than the last, the unwritten
-portion of the record reads as binary zeros. The last record is
-a special case: attempting to read more from it than was written
-gives end-of-file -- which may help one find a bug. Some other
-Fortran I/O libraries treat the last record no differently than
-others and thus give no help in finding the bug of reading more
-than was written. If you wish to have this behavior, compile
-uio.c with -DPad_UDread .
-
-If you want to be able to catch write failures (e.g., due to a
-disk being full) with an ERR= specifier, compile dfe.c, due.c,
-sfe.c, sue.c, and wsle.c with -DALWAYS_FLUSH. This will lead to
-slower execution and more I/O, but should make ERR= work as
-expected, provided fflush returns an error return when its
-physical write fails.
-
-Carriage controls are meant to be interpreted by the UNIX col
-program (or a similar program). Sometimes it's convenient to use
-only ' ' as the carriage control character (normal single spacing).
-If you compile lwrite.c and wsfe.c with -DOMIT_BLANK_CC, formatted
-external output lines will have an initial ' ' quietly omitted,
-making use of the col program unnecessary with output that only
-has ' ' for carriage control.
-
-The Fortran 77 Standard leaves it up to the implementation whether
-formatted writes of floating-point numbers of absolute value < 1 have
-a zero before the decimal point. By default, libI77 omits such
-superfluous zeros, but you can cause them to appear by compiling
-lwrite.c, wref.c, and wrtfmt.c with -DWANT_LEAD_0 .
-
-If your (Unix) system lacks a ranlib command, you don't need it.
-Either comment out the makefile's ranlib invocation, or install
-a harmless "ranlib" command somewhere in your PATH, such as the
-one-line shell script
-
- exit 0
-
-or (on some systems)
-
- exec /usr/bin/ar lts $1 >/dev/null
-
-By default, the routines that implement complex and double complex
-division, c_div.c and z_div.c, call sig_die to print an error message
-and exit if they see a divisor of 0, as this is sometimes helpful for
-debugging. On systems with IEEE arithmetic, compiling c_div.c and
-z_div.c with -DIEEE_COMPLEX_DIVIDE causes them instead to set both
-the real and imaginary parts of the result to +INFINITY if the
-numerator is nonzero, or to NaN if it vanishes.
-
-Nowadays most Unix and Linux systems have function
- int ftruncate(int fildes, off_t len);
-defined in system header file unistd.h that adjusts the length of file
-descriptor fildes to length len. Unless endfile.c is compiled with
--DNO_TRUNCATE, endfile.c #includes "unistd.h" and calls ftruncate() if
-necessary to shorten files. If your system lacks ftruncate(), compile
-endfile.c with -DNO_TRUNCATE to make endfile.c use the older and more
-portable scheme of shortening a file by copying to a temporary file
-and back again.
-
-The initializations for "f2c -trapuv" are done by _uninit_f2c(),
-whose source is uninit.c, introduced June 2001. On IEEE-arithmetic
-systems, _uninit_f2c should initialize floating-point variables to
-signaling NaNs and, at its first invocation, should enable the
-invalid operation exception. Alas, the rules for distinguishing
-signaling from quiet NaNs were not specified in the IEEE P754 standard,
-nor were the precise means of enabling and disabling IEEE-arithmetic
-exceptions, and these details are thus system dependent. There are
-#ifdef's in uninit.c that specify them for some popular systems. If
-yours is not one of these systems, it may take some detective work to
-discover the appropriate details for your system. Sometimes it helps
-to look in the standard include directories for header files with
-relevant-sounding names, such as ieeefp.h, nan.h, or trap.h, and
-it may be simplest to run experiments to see what distinguishes a
-signaling from a quiet NaN. (If x is initialized to a signaling
-NaN and the invalid operation exception is masked off, as it should
-be by default on IEEE-arithmetic systems, then computing, say,
-y = x + 1 will yield a quiet NaN.)
diff --git a/Modules/ThirdParty/6S/src/libf2c/abort_.c b/Modules/ThirdParty/6S/src/libf2c/abort_.c
deleted file mode 100644
index b813ef4..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/abort_.c
+++ /dev/null
@@ -1,32 +0,0 @@
-#include "stdio.h"
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-
-#ifdef KR_headers
-extern VOID sig_die();
-
-int abort_()
-#else
-/* OTB Modification */
-/* extern void sig_die(char*,int); */
-extern void sig_die(register char*,int);
-
-int abort_(void)
-#endif
-{
-sig_die("Fortran abort routine called", 1);
-return 0; /* not reached */
-}
-
-#ifdef __cplusplus
-}
-#endif
-
-
diff --git a/Modules/ThirdParty/6S/src/libf2c/arith.h b/Modules/ThirdParty/6S/src/libf2c/arith.h
deleted file mode 100644
index 76539f8..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/arith.h
+++ /dev/null
@@ -1,2 +0,0 @@
-#define IEEE_8087
-#define Arith_Kind_ASL 1
diff --git a/Modules/ThirdParty/6S/src/libf2c/arithchk.c b/Modules/ThirdParty/6S/src/libf2c/arithchk.c
deleted file mode 100644
index 94c93e2..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/arithchk.c
+++ /dev/null
@@ -1,225 +0,0 @@
-/****************************************************************
-Copyright (C) 1997, 1998, 2000 Lucent Technologies
-All Rights Reserved
-
-Permission to use, copy, modify, and distribute this software and
-its documentation for any purpose and without fee is hereby
-granted, provided that the above copyright notice appear in all
-copies and that both that the copyright notice and this
-permission notice and warranty disclaimer appear in supporting
-documentation, and that the name of Lucent or any of its entities
-not be used in advertising or publicity pertaining to
-distribution of the software without specific, written prior
-permission.
-
-LUCENT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
-INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
-IN NO EVENT SHALL LUCENT OR ANY OF ITS ENTITIES BE LIABLE FOR ANY
-SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
-IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
-ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
-THIS SOFTWARE.
-****************************************************************/
-
-/* Try to deduce arith.h from arithmetic properties. */
-
-#include <stdio.h>
-#include <math.h>
-#include <errno.h>
-
-#ifdef NO_FPINIT
-#define fpinit_ASL()
-#else
-#ifndef KR_headers
-extern
-#ifdef __cplusplus
- "C"
-#endif
- void fpinit_ASL(void);
-#endif /*KR_headers*/
-#endif /*NO_FPINIT*/
-
- static int dalign;
- typedef struct
-Akind {
- char *name;
- int kind;
- } Akind;
-
- static Akind
-IEEE_8087 = { "IEEE_8087", 1 },
-IEEE_MC68k = { "IEEE_MC68k", 2 },
-IBM = { "IBM", 3 },
-VAX = { "VAX", 4 },
-CRAY = { "CRAY", 5};
-
- static double t_nan;
-
- static Akind *
-Lcheck()
-{
- union {
- double d;
- long L[2];
- } u;
- struct {
- double d;
- long L;
- } x[2];
-
- if (sizeof(x) > 2*(sizeof(double) + sizeof(long)))
- dalign = 1;
- u.L[0] = u.L[1] = 0;
- u.d = 1e13;
- if (u.L[0] == 1117925532 && u.L[1] == -448790528)
- return &IEEE_MC68k;
- if (u.L[1] == 1117925532 && u.L[0] == -448790528)
- return &IEEE_8087;
- if (u.L[0] == -2065213935 && u.L[1] == 10752)
- return &VAX;
- if (u.L[0] == 1267827943 && u.L[1] == 704643072)
- return &IBM;
- return 0;
- }
-
- static Akind *
-icheck()
-{
- union {
- double d;
- int L[2];
- } u;
- struct {
- double d;
- int L;
- } x[2];
-
- if (sizeof(x) > 2*(sizeof(double) + sizeof(int)))
- dalign = 1;
- u.L[0] = u.L[1] = 0;
- u.d = 1e13;
- if (u.L[0] == 1117925532 && u.L[1] == -448790528)
- return &IEEE_MC68k;
- if (u.L[1] == 1117925532 && u.L[0] == -448790528)
- return &IEEE_8087;
- if (u.L[0] == -2065213935 && u.L[1] == 10752)
- return &VAX;
- if (u.L[0] == 1267827943 && u.L[1] == 704643072)
- return &IBM;
- return 0;
- }
-
-char *emptyfmt = ""; /* avoid possible warning message with printf("") */
-
- static Akind *
-ccheck()
-{
- union {
- double d;
- long L;
- } u;
- long Cray1;
-
- /* Cray1 = 4617762693716115456 -- without overflow on non-Crays */
- Cray1 = printf(emptyfmt) < 0 ? 0 : 4617762;
- if (printf(emptyfmt, Cray1) >= 0)
- Cray1 = 1000000*Cray1 + 693716;
- if (printf(emptyfmt, Cray1) >= 0)
- Cray1 = 1000000*Cray1 + 115456;
- u.d = 1e13;
- if (u.L == Cray1)
- return &CRAY;
- return 0;
- }
-
- static int
-fzcheck()
-{
- double a, b;
- int i;
-
- a = 1.;
- b = .1;
- for(i = 155;; b *= b, i >>= 1) {
- if (i & 1) {
- a *= b;
- if (i == 1)
- break;
- }
- }
- b = a * a;
- return b == 0.;
- }
-
- static int
-need_nancheck()
-{
- double t;
-
- errno = 0;
- t = log(t_nan);
- if (errno == 0)
- return 1;
- errno = 0;
- t = sqrt(t_nan);
- return errno == 0;
- }
-
-main()
-{
- FILE *f;
- Akind *a = 0;
- int Ldef = 0;
-
- fpinit_ASL();
-#ifdef WRITE_ARITH_H /* for Symantec's buggy "make" */
- f = fopen("arith.h", "w");
- if (!f) {
- printf("Cannot open arith.h\n");
- return 1;
- }
-#else
- f = stdout;
-#endif
-
- if (sizeof(double) == 2*sizeof(long))
- a = Lcheck();
- else if (sizeof(double) == 2*sizeof(int)) {
- Ldef = 1;
- a = icheck();
- }
- else if (sizeof(double) == sizeof(long))
- a = ccheck();
- if (a) {
- fprintf(f, "#define %s\n#define Arith_Kind_ASL %d\n",
- a->name, a->kind);
- if (Ldef)
- fprintf(f, "#define Long int\n#define Intcast (int)(long)\n");
- if (dalign)
- fprintf(f, "#define Double_Align\n");
- if (sizeof(char*) == 8)
- fprintf(f, "#define X64_bit_pointers\n");
-#ifndef NO_LONG_LONG
- if (sizeof(long long) < 8)
-#endif
- fprintf(f, "#define NO_LONG_LONG\n");
- if (a->kind <= 2) {
- if (fzcheck())
- fprintf(f, "#define Sudden_Underflow\n");
- t_nan = -a->kind;
- if (need_nancheck())
- fprintf(f, "#define NANCHECK\n");
- }
- return 0;
- }
- fprintf(f, "/* Unknown arithmetic */\n");
- return 1;
- }
-
-#ifdef __sun
-#ifdef __i386
-/* kludge for Intel Solaris */
-void fpsetprec(int x) { }
-#endif
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/backspac.c b/Modules/ThirdParty/6S/src/libf2c/backspac.c
deleted file mode 100644
index 108ba7b..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/backspac.c
+++ /dev/null
@@ -1,79 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#ifdef KR_headers
-integer f_back(a) alist *a;
-#else
-integer f_back(alist *a)
-#endif
-{ unit *b;
- OFF_T v, w, x, y, z;
- uiolen n;
- FILE *f;
-
- f__curunit = b = &f__units[a->aunit]; /* curunit for error messages */
- if(a->aunit >= MXUNIT || a->aunit < 0)
- err(a->aerr,101,"backspace")
- if(b->useek==0) err(a->aerr,106,"backspace")
- if(b->ufd == NULL) {
- fk_open(1, 1, a->aunit);
- return(0);
- }
- if(b->uend==1)
- { b->uend=0;
- return(0);
- }
- if(b->uwrt) {
- t_runc(a);
- if (f__nowreading(b))
- err(a->aerr,errno,"backspace")
- }
- f = b->ufd; /* may have changed in t_runc() */
- if(b->url>0)
- {
- x=FTELL(f);
- y = x % b->url;
- if(y == 0) x--;
- x /= b->url;
- x *= b->url;
- (void) FSEEK(f,x,SEEK_SET);
- return(0);
- }
-
- if(b->ufmt==0)
- { FSEEK(f,-(OFF_T)sizeof(uiolen),SEEK_CUR);
- fread((char *)&n,sizeof(uiolen),1,f);
- FSEEK(f,-(OFF_T)n-2*sizeof(uiolen),SEEK_CUR);
- return(0);
- }
- w = x = FTELL(f);
- z = 0;
- loop:
- while(x) {
- x -= x < 64 ? x : 64;
- FSEEK(f,x,SEEK_SET);
- for(y = x; y < w; y++) {
- if (getc(f) != '\n')
- continue;
- v = FTELL(f);
- if (v == w) {
- if (z)
- goto break2;
- goto loop;
- }
- z = v;
- }
- err(a->aerr,(EOF),"backspace")
- }
- break2:
- FSEEK(f, z, SEEK_SET);
- return 0;
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/c_abs.c b/Modules/ThirdParty/6S/src/libf2c/c_abs.c
deleted file mode 100644
index 06d5677..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/c_abs.c
+++ /dev/null
@@ -1,29 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-/* OTB Modifications */
-#undef abs
-#undef min
-#undef max
-
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-extern double f__cabs();
-
-double c_abs(z) complex *z;
-#else
-extern double f__cabs(double, double);
-
-double c_abs(complex *z)
-#endif
-{
-return( f__cabs( z->r, z->i ) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/c_cos.c b/Modules/ThirdParty/6S/src/libf2c/c_cos.c
deleted file mode 100644
index 042e654..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/c_cos.c
+++ /dev/null
@@ -1,26 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-extern double sin(), cos(), sinh(), cosh();
-
-VOID c_cos(r, z) complex *r, *z;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-void c_cos(complex *r, complex *z)
-#endif
-{
- double zi = z->i, zr = z->r;
- r->r = cos(zr) * cosh(zi);
- r->i = - sin(zr) * sinh(zi);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/c_div.c b/Modules/ThirdParty/6S/src/libf2c/c_div.c
deleted file mode 100644
index a6efd60..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/c_div.c
+++ /dev/null
@@ -1,56 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-extern VOID sig_die();
-VOID c_div(c, a, b)
-complex *a, *b, *c;
-#else
-extern void sig_die(char*,int);
-void c_div(complex *c, complex *a, complex *b)
-#endif
-{
- double ratio, den;
- double abr, abi, cr;
-
- if( (abr = b->r) < 0.)
- abr = - abr;
- if( (abi = b->i) < 0.)
- abi = - abi;
- if( abr <= abi )
- {
- if(abi == 0) {
-#ifdef IEEE_COMPLEX_DIVIDE
- float af, bf;
- af = bf = abr;
- if (a->i != 0 || a->r != 0)
- af = 1.;
- c->i = c->r = af / bf;
- return;
-#else
- sig_die("complex division by zero", 1);
-#endif
- }
- ratio = (double)b->r / b->i ;
- den = b->i * (1 + ratio*ratio);
- cr = (a->r*ratio + a->i) / den;
- c->i = (a->i*ratio - a->r) / den;
- }
-
- else
- {
- ratio = (double)b->i / b->r ;
- den = b->r * (1 + ratio*ratio);
- cr = (a->r + a->i*ratio) / den;
- c->i = (a->i - a->r*ratio) / den;
- }
- c->r = cr;
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/c_exp.c b/Modules/ThirdParty/6S/src/libf2c/c_exp.c
deleted file mode 100644
index 686d7d7..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/c_exp.c
+++ /dev/null
@@ -1,28 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-extern double exp(), cos(), sin();
-
- VOID c_exp(r, z) complex *r, *z;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-void c_exp(complex *r, complex *z)
-#endif
-{
- double expx, zi = z->i;
-
- expx = exp(z->r);
- r->r = expx * cos(zi);
- r->i = expx * sin(zi);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/c_log.c b/Modules/ThirdParty/6S/src/libf2c/c_log.c
deleted file mode 100644
index 3f5c771..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/c_log.c
+++ /dev/null
@@ -1,26 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-extern double log(), f__cabs(), atan2();
-VOID c_log(r, z) complex *r, *z;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern double f__cabs(double, double);
-
-void c_log(complex *r, complex *z)
-#endif
-{
- double zi, zr;
- r->i = atan2(zi = z->i, zr = z->r);
- r->r = log( f__cabs(zr, zi) );
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/c_sin.c b/Modules/ThirdParty/6S/src/libf2c/c_sin.c
deleted file mode 100644
index 482c059..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/c_sin.c
+++ /dev/null
@@ -1,26 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-extern double sin(), cos(), sinh(), cosh();
-
-VOID c_sin(r, z) complex *r, *z;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-void c_sin(complex *r, complex *z)
-#endif
-{
- double zi = z->i, zr = z->r;
- r->r = sin(zr) * cosh(zi);
- r->i = cos(zr) * sinh(zi);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/c_sqrt.c b/Modules/ThirdParty/6S/src/libf2c/c_sqrt.c
deleted file mode 100644
index be52011..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/c_sqrt.c
+++ /dev/null
@@ -1,44 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-extern double sqrt(), f__cabs();
-
-VOID c_sqrt(r, z) complex *r, *z;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern double f__cabs(double, double);
-
-void c_sqrt(complex *r, complex *z)
-#endif
-{
- double mag, t;
- double zi = z->i, zr = z->r;
-
- if( (mag = f__cabs(zr, zi)) == 0.)
- r->r = r->i = 0.;
- else if(zr > 0)
- {
- r->r = t = sqrt(0.5 * (mag + zr) );
- t = zi / t;
- r->i = 0.5 * t;
- }
- else
- {
- t = sqrt(0.5 * (mag - zr) );
- if(zi < 0)
- t = -t;
- r->i = t;
- t = zi / t;
- r->r = 0.5 * t;
- }
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/cabs.c b/Modules/ThirdParty/6S/src/libf2c/cabs.c
deleted file mode 100644
index dd03ab9..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/cabs.c
+++ /dev/null
@@ -1,35 +0,0 @@
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-extern double sqrt();
-double f__cabs(real, imag) double real, imag;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double f__cabs(double real, double imag)
-#endif
-{
-double temp;
-
-if(real < 0)
- real = -real;
-if(imag < 0)
- imag = -imag;
-if(imag > real){
- temp = real;
- real = imag;
- imag = temp;
-}
-if((real+imag) == real)
- return(real);
-
-temp = imag/real;
-temp = real*sqrt(1.0 + temp*temp); /*overflow!!*/
-return(temp);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/close.c b/Modules/ThirdParty/6S/src/libf2c/close.c
deleted file mode 100644
index 0f260ce..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/close.c
+++ /dev/null
@@ -1,104 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#ifdef KR_headers
-integer f_clos(a) cllist *a;
-#else
-#undef abs
-#undef min
-#undef max
-#include "stdlib.h"
-#ifdef NON_UNIX_STDIO
-#ifndef unlink
-#define unlink remove
-#endif
-#else
-#ifdef MSDOS
-#include "io.h"
-#else
-#ifdef __cplusplus
-extern "C" int unlink(const char*);
-#else
-extern int unlink(const char*);
-#endif
-#endif
-#endif
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-integer f_clos(cllist *a)
-#endif
-{ unit *b;
-
- if(a->cunit >= MXUNIT) return(0);
- b= &f__units[a->cunit];
- if(b->ufd==NULL)
- goto done;
- if (b->uscrtch == 1)
- goto Delete;
- if (!a->csta)
- goto Keep;
- switch(*a->csta) {
- default:
- Keep:
- case 'k':
- case 'K':
- if(b->uwrt == 1)
- t_runc((alist *)a);
- if(b->ufnm) {
- fclose(b->ufd);
- free(b->ufnm);
- }
- break;
- case 'd':
- case 'D':
- Delete:
- fclose(b->ufd);
- if(b->ufnm) {
- unlink(b->ufnm); /*SYSDEP*/
- free(b->ufnm);
- }
- }
- b->ufd=NULL;
- done:
- b->uend=0;
- b->ufnm=NULL;
- return(0);
- }
- void
-#ifdef KR_headers
-f_exit()
-#else
-f_exit(void)
-#endif
-{ int i;
- static cllist xx;
- if (!xx.cerr) {
- xx.cerr=1;
- xx.csta=NULL;
- for(i=0;i<MXUNIT;i++)
- {
- xx.cunit=i;
- (void) f_clos(&xx);
- }
- }
-}
- int
-#ifdef KR_headers
-flush_()
-#else
-flush_(void)
-#endif
-{ int i;
- for(i=0;i<MXUNIT;i++)
- if(f__units[i].ufd != NULL && f__units[i].uwrt)
- fflush(f__units[i].ufd);
-return 0;
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/comptry.bat b/Modules/ThirdParty/6S/src/libf2c/comptry.bat
deleted file mode 100644
index 0dc8453..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/comptry.bat
+++ /dev/null
@@ -1,5 +0,0 @@
-%1 %2 %3 %4 %5 %6 %7 %8 %9
-if errorlevel 1 goto nolonglong
-exit 0
-:nolonglong
-%1 -DNO_LONG_LONG %2 %3 %4 %5 %6 %7 %8 %9
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_abs.c b/Modules/ThirdParty/6S/src/libf2c/d_abs.c
deleted file mode 100644
index b6e201a..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_abs.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double d_abs(x) doublereal *x;
-#else
-double d_abs(doublereal *x)
-#endif
-{
-if(*x >= 0)
- return(*x);
-return(- *x);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_acos.c b/Modules/ThirdParty/6S/src/libf2c/d_acos.c
deleted file mode 100644
index 37e5407..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_acos.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double acos();
-double d_acos(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_acos(doublereal *x)
-#endif
-{
-return( acos(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_asin.c b/Modules/ThirdParty/6S/src/libf2c/d_asin.c
deleted file mode 100644
index 34dcaf7..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_asin.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double asin();
-double d_asin(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_asin(doublereal *x)
-#endif
-{
-return( asin(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_atan.c b/Modules/ThirdParty/6S/src/libf2c/d_atan.c
deleted file mode 100644
index 5bd828c..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_atan.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double atan();
-double d_atan(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_atan(doublereal *x)
-#endif
-{
-return( atan(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_atn2.c b/Modules/ThirdParty/6S/src/libf2c/d_atn2.c
deleted file mode 100644
index 20617aa..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_atn2.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double atan2();
-double d_atn2(x,y) doublereal *x, *y;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_atn2(doublereal *x, doublereal *y)
-#endif
-{
-return( atan2(*x,*y) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_cnjg.c b/Modules/ThirdParty/6S/src/libf2c/d_cnjg.c
deleted file mode 100644
index c21bcd1..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_cnjg.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- VOID
-#ifdef KR_headers
-d_cnjg(r, z) doublecomplex *r, *z;
-#else
-d_cnjg(doublecomplex *r, doublecomplex *z)
-#endif
-{
- doublereal zi = z->i;
- r->r = z->r;
- r->i = -zi;
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_cos.c b/Modules/ThirdParty/6S/src/libf2c/d_cos.c
deleted file mode 100644
index 0949026..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_cos.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double cos();
-double d_cos(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_cos(doublereal *x)
-#endif
-{
-return( cos(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_cosh.c b/Modules/ThirdParty/6S/src/libf2c/d_cosh.c
deleted file mode 100644
index 8dcc6a3..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_cosh.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double cosh();
-double d_cosh(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_cosh(doublereal *x)
-#endif
-{
-return( cosh(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_dim.c b/Modules/ThirdParty/6S/src/libf2c/d_dim.c
deleted file mode 100644
index 62623f5..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_dim.c
+++ /dev/null
@@ -1,19 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double d_dim(a,b) doublereal *a, *b;
-#else
-double d_dim(doublereal *a, doublereal *b)
-#endif
-{
-return( *a > *b ? *a - *b : 0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_exp.c b/Modules/ThirdParty/6S/src/libf2c/d_exp.c
deleted file mode 100644
index 3041731..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_exp.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double exp();
-double d_exp(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_exp(doublereal *x)
-#endif
-{
-return( exp(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_imag.c b/Modules/ThirdParty/6S/src/libf2c/d_imag.c
deleted file mode 100644
index 73c2321..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_imag.c
+++ /dev/null
@@ -1,19 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double d_imag(z) doublecomplex *z;
-#else
-double d_imag(doublecomplex *z)
-#endif
-{
-return(z->i);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_int.c b/Modules/ThirdParty/6S/src/libf2c/d_int.c
deleted file mode 100644
index cd8d981..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_int.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double floor();
-double d_int(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_int(doublereal *x)
-#endif
-{
-return( (*x>0) ? floor(*x) : -floor(- *x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_lg10.c b/Modules/ThirdParty/6S/src/libf2c/d_lg10.c
deleted file mode 100644
index ce1ff08..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_lg10.c
+++ /dev/null
@@ -1,24 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#define log10e 0.43429448190325182765
-
-#ifdef KR_headers
-double log();
-double d_lg10(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_lg10(doublereal *x)
-#endif
-{
-return( log10e * log(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_log.c b/Modules/ThirdParty/6S/src/libf2c/d_log.c
deleted file mode 100644
index 5e6679b..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_log.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double log();
-double d_log(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_log(doublereal *x)
-#endif
-{
-return( log(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_mod.c b/Modules/ThirdParty/6S/src/libf2c/d_mod.c
deleted file mode 100644
index f565753..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_mod.c
+++ /dev/null
@@ -1,49 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-#ifdef IEEE_drem
-double drem();
-#else
-double floor();
-#endif
-double d_mod(x,y) doublereal *x, *y;
-#else
-#ifdef IEEE_drem
-double drem(double, double);
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#endif
-double d_mod(doublereal *x, doublereal *y)
-#endif
-{
-#ifdef IEEE_drem
- double xa, ya, z;
- if ((ya = *y) < 0.)
- ya = -ya;
- z = drem(xa = *x, ya);
- if (xa > 0) {
- if (z < 0)
- z += ya;
- }
- else if (z > 0)
- z -= ya;
- return z;
-#else
- double quotient;
- if( (quotient = *x / *y) >= 0)
- quotient = floor(quotient);
- else
- quotient = -floor(-quotient);
- return(*x - (*y) * quotient );
-#endif
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_nint.c b/Modules/ThirdParty/6S/src/libf2c/d_nint.c
deleted file mode 100644
index 97578b6..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_nint.c
+++ /dev/null
@@ -1,23 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double floor();
-double d_nint(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_nint(doublereal *x)
-#endif
-{
-return( (*x)>=0 ?
- floor(*x + .5) : -floor(.5 - *x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_prod.c b/Modules/ThirdParty/6S/src/libf2c/d_prod.c
deleted file mode 100644
index 1cef80c..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_prod.c
+++ /dev/null
@@ -1,19 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double d_prod(x,y) real *x, *y;
-#else
-double d_prod(real *x, real *y)
-#endif
-{
-return( (*x) * (*y) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_sign.c b/Modules/ThirdParty/6S/src/libf2c/d_sign.c
deleted file mode 100644
index ef478d0..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_sign.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double d_sign(a,b) doublereal *a, *b;
-#else
-double d_sign(doublereal *a, doublereal *b)
-#endif
-{
-double x;
-x = (*a >= 0 ? *a : - *a);
-return( *b >= 0 ? x : -x);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_sin.c b/Modules/ThirdParty/6S/src/libf2c/d_sin.c
deleted file mode 100644
index b927d14..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_sin.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double sin();
-double d_sin(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_sin(doublereal *x)
-#endif
-{
-return( sin(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_sinh.c b/Modules/ThirdParty/6S/src/libf2c/d_sinh.c
deleted file mode 100644
index 9598b2f..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_sinh.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double sinh();
-double d_sinh(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_sinh(doublereal *x)
-#endif
-{
-return( sinh(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_sqrt.c b/Modules/ThirdParty/6S/src/libf2c/d_sqrt.c
deleted file mode 100644
index 08b8d4d..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_sqrt.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double sqrt();
-double d_sqrt(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_sqrt(doublereal *x)
-#endif
-{
-return( sqrt(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_tan.c b/Modules/ThirdParty/6S/src/libf2c/d_tan.c
deleted file mode 100644
index 9c7efda..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_tan.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double tan();
-double d_tan(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_tan(doublereal *x)
-#endif
-{
-return( tan(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/d_tanh.c b/Modules/ThirdParty/6S/src/libf2c/d_tanh.c
deleted file mode 100644
index 34e186d..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/d_tanh.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double tanh();
-double d_tanh(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double d_tanh(doublereal *x)
-#endif
-{
-return( tanh(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/derf_.c b/Modules/ThirdParty/6S/src/libf2c/derf_.c
deleted file mode 100644
index b2a48ca..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/derf_.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double erf();
-double derf_(x) doublereal *x;
-#else
-extern double erf(double);
-double derf_(doublereal *x)
-#endif
-{
-return( erf(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/derfc_.c b/Modules/ThirdParty/6S/src/libf2c/derfc_.c
deleted file mode 100644
index 4d8f4cb..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/derfc_.c
+++ /dev/null
@@ -1,23 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-extern double erfc();
-
-double derfc_(x) doublereal *x;
-#else
-extern double erfc(double);
-
-double derfc_(doublereal *x)
-#endif
-{
-return( erfc(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/dfe.c b/Modules/ThirdParty/6S/src/libf2c/dfe.c
deleted file mode 100644
index f4f609f..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/dfe.c
+++ /dev/null
@@ -1,154 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "fmt.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- int
-y_rsk(Void)
-{
- if(f__curunit->uend || f__curunit->url <= f__recpos
- || f__curunit->url == 1) return 0;
- do {
- getc(f__cf);
- } while(++f__recpos < f__curunit->url);
- return 0;
-}
-
- int
-y_getc(Void)
-{
- int ch;
- if(f__curunit->uend) return(-1);
- if((ch=getc(f__cf))!=EOF)
- {
- f__recpos++;
- if(f__curunit->url>=f__recpos ||
- f__curunit->url==1)
- return(ch);
- else return(' ');
- }
- if(feof(f__cf))
- {
- f__curunit->uend=1;
- errno=0;
- return(-1);
- }
- err(f__elist->cierr,errno,"readingd");
-}
-
- static int
-y_rev(Void)
-{
- if (f__recpos < f__hiwater)
- f__recpos = f__hiwater;
- if (f__curunit->url > 1)
- while(f__recpos < f__curunit->url)
- (*f__putn)(' ');
- if (f__recpos)
- f__putbuf(0);
- f__recpos = 0;
- return(0);
-}
-
- static int
-y_err(Void)
-{
- err(f__elist->cierr, 110, "dfe");
-}
-
- static int
-y_newrec(Void)
-{
- y_rev();
- f__hiwater = f__cursor = 0;
- return(1);
-}
-
- int
-#ifdef KR_headers
-c_dfe(a) cilist *a;
-#else
-c_dfe(cilist *a)
-#endif
-{
- f__sequential=0;
- f__formatted=f__external=1;
- f__elist=a;
- f__cursor=f__scale=f__recpos=0;
- f__curunit = &f__units[a->ciunit];
- if(a->ciunit>MXUNIT || a->ciunit<0)
- err(a->cierr,101,"startchk");
- if(f__curunit->ufd==NULL && fk_open(DIR,FMT,a->ciunit))
- err(a->cierr,104,"dfe");
- f__cf=f__curunit->ufd;
- if(!f__curunit->ufmt) err(a->cierr,102,"dfe")
- if(!f__curunit->useek) err(a->cierr,104,"dfe")
- f__fmtbuf=a->cifmt;
- if(a->cirec <= 0)
- err(a->cierr,130,"dfe")
- FSEEK(f__cf,(OFF_T)f__curunit->url * (a->cirec-1),SEEK_SET);
- f__curunit->uend = 0;
- return(0);
-}
-#ifdef KR_headers
-integer s_rdfe(a) cilist *a;
-#else
-integer s_rdfe(cilist *a)
-#endif
-{
- int n;
- if(!f__init) f_init();
- f__reading=1;
- if(n=c_dfe(a))return(n);
- if(f__curunit->uwrt && f__nowreading(f__curunit))
- err(a->cierr,errno,"read start");
- f__getn = y_getc;
- f__doed = rd_ed;
- f__doned = rd_ned;
- f__dorevert = f__donewrec = y_err;
- f__doend = y_rsk;
- if(pars_f(f__fmtbuf)<0)
- err(a->cierr,100,"read start");
- fmt_bg();
- return(0);
-}
-#ifdef KR_headers
-integer s_wdfe(a) cilist *a;
-#else
-integer s_wdfe(cilist *a)
-#endif
-{
- int n;
- if(!f__init) f_init();
- f__reading=0;
- if(n=c_dfe(a)) return(n);
- if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
- err(a->cierr,errno,"startwrt");
- f__putn = x_putc;
- f__doed = w_ed;
- f__doned= w_ned;
- f__dorevert = y_err;
- f__donewrec = y_newrec;
- f__doend = y_rev;
- if(pars_f(f__fmtbuf)<0)
- err(a->cierr,100,"startwrt");
- fmt_bg();
- return(0);
-}
-integer e_rdfe(Void)
-{
- en_fio();
- return 0;
-}
-integer e_wdfe(Void)
-{
- return en_fio();
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/dolio.c b/Modules/ThirdParty/6S/src/libf2c/dolio.c
deleted file mode 100644
index 5562ffc..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/dolio.c
+++ /dev/null
@@ -1,29 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-#ifdef KR_headers
-extern int (*f__lioproc)();
-
-integer do_lio(type,number,ptr,len) ftnint *number,*type; char *ptr; ftnlen len;
-#else
-extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
-
-integer do_lio(ftnint *type, ftnint *number, char *ptr, ftnlen len)
-#endif
-{
- return((*f__lioproc)(number,ptr,len,*type));
-}
-#ifdef __cplusplus
- }
-#endif
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/dtime_.c b/Modules/ThirdParty/6S/src/libf2c/dtime_.c
deleted file mode 100644
index 4ce57a7..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/dtime_.c
+++ /dev/null
@@ -1,63 +0,0 @@
-#include "time.h"
-
-#ifdef MSDOS
-#undef USE_CLOCK
-#define USE_CLOCK
-#endif
-
-#ifndef REAL
-#define REAL double
-#endif
-
-#ifndef USE_CLOCK
-#define _INCLUDE_POSIX_SOURCE /* for HP-UX */
-#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */
-#include "sys/types.h"
-#include "sys/times.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#endif
-
-#undef Hz
-#ifdef CLK_TCK
-#define Hz CLK_TCK
-#else
-#ifdef HZ
-#define Hz HZ
-#else
-#define Hz 60
-#endif
-#endif
-
- REAL
-#ifdef KR_headers
-dtime_(tarray) float *tarray;
-#else
-dtime_(float *tarray)
-#endif
-{
-#ifdef USE_CLOCK
-#ifndef CLOCKS_PER_SECOND
-#define CLOCKS_PER_SECOND Hz
-#endif
- static double t0;
- double t = clock();
- tarray[1] = 0;
- tarray[0] = (float)((t - t0) / CLOCKS_PER_SECOND);
- t0 = t;
- return tarray[0];
-#else
- struct tms t;
- static struct tms t0;
-
- times(&t);
- tarray[0] = (double)(t.tms_utime - t0.tms_utime) / Hz;
- tarray[1] = (double)(t.tms_stime - t0.tms_stime) / Hz;
- t0 = t;
- return tarray[0] + tarray[1];
-#endif
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/due.c b/Modules/ThirdParty/6S/src/libf2c/due.c
deleted file mode 100644
index 63c20c1..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/due.c
+++ /dev/null
@@ -1,80 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- int
-#ifdef KR_headers
-c_due(a) cilist *a;
-#else
-c_due(cilist *a)
-#endif
-{
- if(!f__init) f_init();
- f__sequential=f__formatted=f__recpos=0;
- f__external=1;
- f__curunit = &f__units[a->ciunit];
- if(a->ciunit>=MXUNIT || a->ciunit<0)
- err(a->cierr,101,"startio");
- f__elist=a;
- if(f__curunit->ufd==NULL && fk_open(DIR,UNF,a->ciunit) ) err(a->cierr,104,"due");
- f__cf=f__curunit->ufd;
- if(f__curunit->ufmt) err(a->cierr,102,"cdue")
- if(!f__curunit->useek) err(a->cierr,104,"cdue")
- if(f__curunit->ufd==NULL) err(a->cierr,114,"cdue")
- if(a->cirec <= 0)
- err(a->cierr,130,"due")
- FSEEK(f__cf,(OFF_T)(a->cirec-1)*f__curunit->url,SEEK_SET);
- f__curunit->uend = 0;
- return(0);
-}
-#ifdef KR_headers
-integer s_rdue(a) cilist *a;
-#else
-integer s_rdue(cilist *a)
-#endif
-{
- int n;
- f__reading=1;
- if(n=c_due(a)) return(n);
- if(f__curunit->uwrt && f__nowreading(f__curunit))
- err(a->cierr,errno,"read start");
- return(0);
-}
-#ifdef KR_headers
-integer s_wdue(a) cilist *a;
-#else
-integer s_wdue(cilist *a)
-#endif
-{
- int n;
- f__reading=0;
- if(n=c_due(a)) return(n);
- if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
- err(a->cierr,errno,"write start");
- return(0);
-}
-integer e_rdue(Void)
-{
- if(f__curunit->url==1 || f__recpos==f__curunit->url)
- return(0);
- FSEEK(f__cf,(OFF_T)(f__curunit->url-f__recpos),SEEK_CUR);
- if(FTELL(f__cf)%f__curunit->url)
- err(f__elist->cierr,200,"syserr");
- return(0);
-}
-integer e_wdue(Void)
-{
-#ifdef ALWAYS_FLUSH
- if (fflush(f__cf))
- err(f__elist->cierr,errno,"write end");
-#endif
- return(e_rdue());
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/ef1asc_.c b/Modules/ThirdParty/6S/src/libf2c/ef1asc_.c
deleted file mode 100644
index eec7850..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/ef1asc_.c
+++ /dev/null
@@ -1,28 +0,0 @@
-/* EFL support routine to copy string b to string a */
-
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-
-#define M ( (long) (sizeof(long) - 1) )
-#define EVEN(x) ( ( (x)+ M) & (~M) )
-
-#ifdef KR_headers
-extern VOID s_copy();
-ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
-#else
-extern void s_copy(char*,char*,ftnlen,ftnlen);
-int ef1asc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
-#endif
-{
-s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
-return 0; /* ignored return value */
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/ef1cmc_.c b/Modules/ThirdParty/6S/src/libf2c/ef1cmc_.c
deleted file mode 100644
index 12e8e52..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/ef1cmc_.c
+++ /dev/null
@@ -1,23 +0,0 @@
-/* EFL support routine to compare two character strings */
-
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-extern integer s_cmp();
-integer ef1cmc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
-#else
-extern integer s_cmp(char*,char*,ftnlen,ftnlen);
-integer ef1cmc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
-#endif
-{
-return( s_cmp( (char *)a, (char *)b, *la, *lb) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/endfile.c b/Modules/ThirdParty/6S/src/libf2c/endfile.c
deleted file mode 100644
index 6770f7a..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/endfile.c
+++ /dev/null
@@ -1,163 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-
-/* Compile this with -DNO_TRUNCATE if unistd.h does not exist or */
-/* if it does not define int truncate(const char *name, off_t). */
-
-#ifdef MSDOS
-#undef NO_TRUNCATE
-#define NO_TRUNCATE
-#endif
-
-#ifndef NO_TRUNCATE
-#include "unistd.h"
-#endif
-
-#ifdef KR_headers
-extern char *strcpy();
-extern FILE *tmpfile();
-#else
-#undef abs
-#undef min
-#undef max
-#include "stdlib.h"
-#include "string.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#endif
-
-extern char *f__r_mode[], *f__w_mode[];
-
-#ifdef KR_headers
-integer f_end(a) alist *a;
-#else
-integer f_end(alist *a)
-#endif
-{
- unit *b;
- FILE *tf;
-
- if(a->aunit>=MXUNIT || a->aunit<0) err(a->aerr,101,"endfile");
- b = &f__units[a->aunit];
- if(b->ufd==NULL) {
- char nbuf[10];
- sprintf(nbuf,"fort.%ld",(long)a->aunit);
- if (tf = FOPEN(nbuf, f__w_mode[0]))
- fclose(tf);
- return(0);
- }
- b->uend=1;
- return(b->useek ? t_runc(a) : 0);
-}
-
-#ifdef NO_TRUNCATE
- static int
-#ifdef KR_headers
-copy(from, len, to) FILE *from, *to; register long len;
-#else
-copy(FILE *from, register long len, FILE *to)
-#endif
-{
- int len1;
- char buf[BUFSIZ];
-
- while(fread(buf, len1 = len > BUFSIZ ? BUFSIZ : (int)len, 1, from)) {
- if (!fwrite(buf, len1, 1, to))
- return 1;
- if ((len -= len1) <= 0)
- break;
- }
- return 0;
- }
-#endif /* NO_TRUNCATE */
-
- int
-#ifdef KR_headers
-t_runc(a) alist *a;
-#else
-t_runc(alist *a)
-#endif
-{
- OFF_T loc, len;
- unit *b;
- int rc;
- FILE *bf;
-#ifdef NO_TRUNCATE
- FILE *tf;
-#endif
-
- b = &f__units[a->aunit];
- if(b->url)
- return(0); /*don't truncate direct files*/
- loc=FTELL(bf = b->ufd);
- FSEEK(bf,(OFF_T)0,SEEK_END);
- len=FTELL(bf);
- if (loc >= len || b->useek == 0)
- return(0);
-#ifdef NO_TRUNCATE
- if (b->ufnm == NULL)
- return 0;
- rc = 0;
- fclose(b->ufd);
- if (!loc) {
- if (!(bf = FOPEN(b->ufnm, f__w_mode[b->ufmt])))
- rc = 1;
- if (b->uwrt)
- b->uwrt = 1;
- goto done;
- }
- if (!(bf = FOPEN(b->ufnm, f__r_mode[0]))
- || !(tf = tmpfile())) {
-#ifdef NON_UNIX_STDIO
- bad:
-#endif
- rc = 1;
- goto done;
- }
- if (copy(bf, (long)loc, tf)) {
- bad1:
- rc = 1;
- goto done1;
- }
- if (!(bf = FREOPEN(b->ufnm, f__w_mode[0], bf)))
- goto bad1;
- rewind(tf);
- if (copy(tf, (long)loc, bf))
- goto bad1;
- b->uwrt = 1;
- b->urw = 2;
-#ifdef NON_UNIX_STDIO
- if (b->ufmt) {
- fclose(bf);
- if (!(bf = FOPEN(b->ufnm, f__w_mode[3])))
- goto bad;
- FSEEK(bf,(OFF_T)0,SEEK_END);
- b->urw = 3;
- }
-#endif
-done1:
- fclose(tf);
-done:
- f__cf = b->ufd = bf;
-#else /* NO_TRUNCATE */
- if (b->urw & 2)
- fflush(b->ufd); /* necessary on some Linux systems */
-#ifndef FTRUNCATE
-#define FTRUNCATE ftruncate
-#endif
- rc = FTRUNCATE(fileno(b->ufd), loc);
- /* The following FSEEK is unnecessary on some systems, */
- /* but should be harmless. */
- FSEEK(b->ufd, (OFF_T)0, SEEK_END);
-#endif /* NO_TRUNCATE */
- if (rc)
- err(a->aerr,111,"endfile");
- return 0;
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/erf_.c b/Modules/ThirdParty/6S/src/libf2c/erf_.c
deleted file mode 100644
index 76c0b55..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/erf_.c
+++ /dev/null
@@ -1,25 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifndef REAL
-#define REAL double
-#endif
-
-#ifdef KR_headers
-double erf();
-REAL erf_(x) real *x;
-#else
-extern double erf(double);
-REAL erf_(real *x)
-#endif
-{
-return( erf((double)*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/erfc_.c b/Modules/ThirdParty/6S/src/libf2c/erfc_.c
deleted file mode 100644
index 3ae2518..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/erfc_.c
+++ /dev/null
@@ -1,25 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifndef REAL
-#define REAL double
-#endif
-
-#ifdef KR_headers
-double erfc();
-REAL erfc_(x) real *x;
-#else
-extern double erfc(double);
-REAL erfc_(real *x)
-#endif
-{
-return( erfc((double)*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/err.c b/Modules/ThirdParty/6S/src/libf2c/err.c
deleted file mode 100644
index defdbdb..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/err.c
+++ /dev/null
@@ -1,285 +0,0 @@
-#include "sysdep1.h" /* here to get stat64 on some badly designed Linux systems */
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef KR_headers
-extern char *malloc();
-#else
-#undef abs
-#undef min
-#undef max
-#include "stdlib.h"
-#endif
-#include "fio.h"
-#include "fmt.h" /* for struct syl */
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/*global definitions*/
-unit f__units[MXUNIT]; /*unit table*/
-flag f__init; /*0 on entry, 1 after initializations*/
-cilist *f__elist; /*active external io list*/
-icilist *f__svic; /*active internal io list*/
-flag f__reading; /*1 if reading, 0 if writing*/
-flag f__cplus,f__cblank;
-char *f__fmtbuf;
-flag f__external; /*1 if external io, 0 if internal */
-#ifdef KR_headers
-int (*f__doed)(),(*f__doned)();
-int (*f__doend)(),(*f__donewrec)(),(*f__dorevert)();
-int (*f__getn)(); /* for formatted input */
-void (*f__putn)(); /* for formatted output */
-#else
-int (*f__getn)(void); /* for formatted input */
-void (*f__putn)(int); /* for formatted output */
-int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*);
-int (*f__dorevert)(void),(*f__donewrec)(void),(*f__doend)(void);
-#endif
-flag f__sequential; /*1 if sequential io, 0 if direct*/
-flag f__formatted; /*1 if formatted io, 0 if unformatted*/
-FILE *f__cf; /*current file*/
-unit *f__curunit; /*current unit*/
-int f__recpos; /*place in current record*/
-OFF_T f__cursor, f__hiwater;
-int f__scale;
-char *f__icptr;
-
-/*error messages*/
-char *F_err[] =
-{
- "error in format", /* 100 */
- "illegal unit number", /* 101 */
- "formatted io not allowed", /* 102 */
- "unformatted io not allowed", /* 103 */
- "direct io not allowed", /* 104 */
- "sequential io not allowed", /* 105 */
- "can't backspace file", /* 106 */
- "null file name", /* 107 */
- "can't stat file", /* 108 */
- "unit not connected", /* 109 */
- "off end of record", /* 110 */
- "truncation failed in endfile", /* 111 */
- "incomprehensible list input", /* 112 */
- "out of free space", /* 113 */
- "unit not connected", /* 114 */
- "read unexpected character", /* 115 */
- "bad logical input field", /* 116 */
- "bad variable type", /* 117 */
- "bad namelist name", /* 118 */
- "variable not in namelist", /* 119 */
- "no end record", /* 120 */
- "variable count incorrect", /* 121 */
- "subscript for scalar variable", /* 122 */
- "invalid array section", /* 123 */
- "substring out of bounds", /* 124 */
- "subscript out of bounds", /* 125 */
- "can't read file", /* 126 */
- "can't write file", /* 127 */
- "'new' file exists", /* 128 */
- "can't append to file", /* 129 */
- "non-positive record number", /* 130 */
- "nmLbuf overflow" /* 131 */
-};
-#define MAXERR (sizeof(F_err)/sizeof(char *)+100)
-
- int
-#ifdef KR_headers
-f__canseek(f) FILE *f; /*SYSDEP*/
-#else
-f__canseek(FILE *f) /*SYSDEP*/
-#endif
-{
-#ifdef NON_UNIX_STDIO
- return !isatty(fileno(f));
-#else
- struct STAT_ST x;
-
- if (FSTAT(fileno(f),&x) < 0)
- return(0);
-#ifdef S_IFMT
- switch(x.st_mode & S_IFMT) {
- case S_IFDIR:
- case S_IFREG:
- if(x.st_nlink > 0) /* !pipe */
- return(1);
- else
- return(0);
- case S_IFCHR:
- if(isatty(fileno(f)))
- return(0);
- return(1);
-#ifdef S_IFBLK
- case S_IFBLK:
- return(1);
-#endif
- }
-#else
-#ifdef S_ISDIR
- /* POSIX version */
- if (S_ISREG(x.st_mode) || S_ISDIR(x.st_mode)) {
- if(x.st_nlink > 0) /* !pipe */
- return(1);
- else
- return(0);
- }
- if (S_ISCHR(x.st_mode)) {
- if(isatty(fileno(f)))
- return(0);
- return(1);
- }
- if (S_ISBLK(x.st_mode))
- return(1);
-#else
- Help! How does fstat work on this system?
-#endif
-#endif
- return(0); /* who knows what it is? */
-#endif
-}
-
- void
-#ifdef KR_headers
-f__fatal(n,s) char *s;
-#else
-f__fatal(int n, char *s)
-#endif
-{
- if(n<100 && n>=0) perror(s); /*SYSDEP*/
- else if(n >= (int)MAXERR || n < -1)
- { fprintf(stderr,"%s: illegal error number %d\n",s,n);
- }
- else if(n == -1) fprintf(stderr,"%s: end of file\n",s);
- else
- fprintf(stderr,"%s: %s\n",s,F_err[n-100]);
- if (f__curunit) {
- fprintf(stderr,"apparent state: unit %d ",
- (int)(f__curunit-f__units));
- fprintf(stderr, f__curunit->ufnm ? "named %s\n" : "(unnamed)\n",
- f__curunit->ufnm);
- }
- else
- fprintf(stderr,"apparent state: internal I/O\n");
- if (f__fmtbuf)
- fprintf(stderr,"last format: %s\n",f__fmtbuf);
- fprintf(stderr,"lately %s %s %s %s",f__reading?"reading":"writing",
- f__sequential?"sequential":"direct",f__formatted?"formatted":"unformatted",
- f__external?"external":"internal");
- sig_die(" IO", 1);
-}
-/*initialization routine*/
- VOID
-f_init(Void)
-{ unit *p;
-
- f__init=1;
- p= &f__units[0];
- p->ufd=stderr;
- p->useek=f__canseek(stderr);
- p->ufmt=1;
- p->uwrt=1;
- p = &f__units[5];
- p->ufd=stdin;
- p->useek=f__canseek(stdin);
- p->ufmt=1;
- p->uwrt=0;
- p= &f__units[6];
- p->ufd=stdout;
- p->useek=f__canseek(stdout);
- p->ufmt=1;
- p->uwrt=1;
-}
-
- int
-#ifdef KR_headers
-f__nowreading(x) unit *x;
-#else
-f__nowreading(unit *x)
-#endif
-{
- OFF_T loc;
- int ufmt, urw;
- extern char *f__r_mode[], *f__w_mode[];
-
- if (x->urw & 1)
- goto done;
- if (!x->ufnm)
- goto cantread;
- ufmt = x->url ? 0 : x->ufmt;
- loc = FTELL(x->ufd);
- urw = 3;
- if (!FREOPEN(x->ufnm, f__w_mode[ufmt|2], x->ufd)) {
- urw = 1;
- if(!FREOPEN(x->ufnm, f__r_mode[ufmt], x->ufd)) {
- cantread:
- errno = 126;
- return 1;
- }
- }
- FSEEK(x->ufd,loc,SEEK_SET);
- x->urw = urw;
- done:
- x->uwrt = 0;
- return 0;
-}
-
- int
-#ifdef KR_headers
-f__nowwriting(x) unit *x;
-#else
-f__nowwriting(unit *x)
-#endif
-{
- OFF_T loc;
- int ufmt;
- extern char *f__w_mode[];
-
- if (x->urw & 2) {
- if (x->urw & 1)
- FSEEK(x->ufd, (OFF_T)0, SEEK_CUR);
- goto done;
- }
- if (!x->ufnm)
- goto cantwrite;
- ufmt = x->url ? 0 : x->ufmt;
- if (x->uwrt == 3) { /* just did write, rewind */
- if (!(f__cf = x->ufd =
- FREOPEN(x->ufnm,f__w_mode[ufmt],x->ufd)))
- goto cantwrite;
- x->urw = 2;
- }
- else {
- loc=FTELL(x->ufd);
- if (!(f__cf = x->ufd =
- FREOPEN(x->ufnm, f__w_mode[ufmt | 2], x->ufd)))
- {
- x->ufd = NULL;
- cantwrite:
- errno = 127;
- return(1);
- }
- x->urw = 3;
- FSEEK(x->ufd,loc,SEEK_SET);
- }
- done:
- x->uwrt = 1;
- return 0;
-}
-
- int
-#ifdef KR_headers
-err__fl(f, m, s) int f, m; char *s;
-#else
-err__fl(int f, int m, char *s)
-#endif
-{
- if (!f)
- f__fatal(m, s);
- if (f__doend)
- (*f__doend)();
- return errno = m;
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/etime_.c b/Modules/ThirdParty/6S/src/libf2c/etime_.c
deleted file mode 100644
index 0a8e724..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/etime_.c
+++ /dev/null
@@ -1,57 +0,0 @@
-#include "time.h"
-
-#ifdef MSDOS
-#undef USE_CLOCK
-#define USE_CLOCK
-#endif
-
-#ifndef REAL
-#define REAL double
-#endif
-
-#ifndef USE_CLOCK
-#define _INCLUDE_POSIX_SOURCE /* for HP-UX */
-#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */
-#include "sys/types.h"
-#include "sys/times.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#endif
-
-#undef Hz
-#ifdef CLK_TCK
-#define Hz CLK_TCK
-#else
-#ifdef HZ
-#define Hz HZ
-#else
-#define Hz 60
-#endif
-#endif
-
- REAL
-#ifdef KR_headers
-etime_(tarray) float *tarray;
-#else
-etime_(float *tarray)
-#endif
-{
-#ifdef USE_CLOCK
-#ifndef CLOCKS_PER_SECOND
-#define CLOCKS_PER_SECOND Hz
-#endif
- double t = clock();
- tarray[1] = 0;
- return tarray[0] = (float)(t / CLOCKS_PER_SECOND);
-#else
- struct tms t;
-
- times(&t);
- return (tarray[0] = (double)t.tms_utime/Hz)
- + (tarray[1] = (double)t.tms_stime/Hz);
-#endif
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/exit_.c b/Modules/ThirdParty/6S/src/libf2c/exit_.c
deleted file mode 100644
index e561071..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/exit_.c
+++ /dev/null
@@ -1,46 +0,0 @@
-/* This gives the effect of
-
- subroutine exit(rc)
- integer*4 rc
- stop
- end
-
- * with the added side effect of supplying rc as the program's exit code.
- */
-
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#undef abs
-#undef min
-#undef max
-#ifndef KR_headers
-#include "stdlib.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern void f_exit(void);
-#endif
-
- void
-#ifdef KR_headers
-exit_(rc) integer *rc;
-#else
-exit_(integer *rc)
-#endif
-{
-#ifdef NO_ONEXIT
- f_exit();
-#endif
- exit(*rc);
- }
-#ifdef __cplusplus
-}
-#endif
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/f2c.h0 b/Modules/ThirdParty/6S/src/libf2c/f2c.h0
deleted file mode 100644
index b94ee7c..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/f2c.h0
+++ /dev/null
@@ -1,223 +0,0 @@
-/* f2c.h -- Standard Fortran to C header file */
-
-/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed."
-
- - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */
-
-#ifndef F2C_INCLUDE
-#define F2C_INCLUDE
-
-typedef long int integer;
-typedef unsigned long int uinteger;
-typedef char *address;
-typedef short int shortint;
-typedef float real;
-typedef double doublereal;
-typedef struct { real r, i; } complex;
-typedef struct { doublereal r, i; } doublecomplex;
-typedef long int logical;
-typedef short int shortlogical;
-typedef char logical1;
-typedef char integer1;
-#ifdef INTEGER_STAR_8 /* Adjust for integer*8. */
-typedef long long longint; /* system-dependent */
-typedef unsigned long long ulongint; /* system-dependent */
-#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b)))
-#define qbit_set(a,b) ((a) | ((ulongint)1 << (b)))
-#endif
-
-#define TRUE_ (1)
-#define FALSE_ (0)
-
-/* Extern is for use with -E */
-#ifndef Extern
-#define Extern extern
-#endif
-
-/* I/O stuff */
-
-#ifdef f2c_i2
-/* for -i2 */
-typedef short flag;
-typedef short ftnlen;
-typedef short ftnint;
-#else
-typedef long int flag;
-typedef long int ftnlen;
-typedef long int ftnint;
-#endif
-
-/*external read, write*/
-typedef struct
-{ flag cierr;
- ftnint ciunit;
- flag ciend;
- char *cifmt;
- ftnint cirec;
-} cilist;
-
-/*internal read, write*/
-typedef struct
-{ flag icierr;
- char *iciunit;
- flag iciend;
- char *icifmt;
- ftnint icirlen;
- ftnint icirnum;
-} icilist;
-
-/*open*/
-typedef struct
-{ flag oerr;
- ftnint ounit;
- char *ofnm;
- ftnlen ofnmlen;
- char *osta;
- char *oacc;
- char *ofm;
- ftnint orl;
- char *oblnk;
-} olist;
-
-/*close*/
-typedef struct
-{ flag cerr;
- ftnint cunit;
- char *csta;
-} cllist;
-
-/*rewind, backspace, endfile*/
-typedef struct
-{ flag aerr;
- ftnint aunit;
-} alist;
-
-/* inquire */
-typedef struct
-{ flag inerr;
- ftnint inunit;
- char *infile;
- ftnlen infilen;
- ftnint *inex; /*parameters in standard's order*/
- ftnint *inopen;
- ftnint *innum;
- ftnint *innamed;
- char *inname;
- ftnlen innamlen;
- char *inacc;
- ftnlen inacclen;
- char *inseq;
- ftnlen inseqlen;
- char *indir;
- ftnlen indirlen;
- char *infmt;
- ftnlen infmtlen;
- char *inform;
- ftnint informlen;
- char *inunf;
- ftnlen inunflen;
- ftnint *inrecl;
- ftnint *innrec;
- char *inblank;
- ftnlen inblanklen;
-} inlist;
-
-#define VOID void
-
-union Multitype { /* for multiple entry points */
- integer1 g;
- shortint h;
- integer i;
- /* longint j; */
- real r;
- doublereal d;
- complex c;
- doublecomplex z;
- };
-
-typedef union Multitype Multitype;
-
-/*typedef long int Long;*/ /* No longer used; formerly in Namelist */
-
-struct Vardesc { /* for Namelist */
- char *name;
- char *addr;
- ftnlen *dims;
- int type;
- };
-typedef struct Vardesc Vardesc;
-
-struct Namelist {
- char *name;
- Vardesc **vars;
- int nvars;
- };
-typedef struct Namelist Namelist;
-
-#define abs(x) ((x) >= 0 ? (x) : -(x))
-#define dabs(x) (doublereal)abs(x)
-#define min(a,b) ((a) <= (b) ? (a) : (b))
-#define max(a,b) ((a) >= (b) ? (a) : (b))
-#define dmin(a,b) (doublereal)min(a,b)
-#define dmax(a,b) (doublereal)max(a,b)
-#define bit_test(a,b) ((a) >> (b) & 1)
-#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b)))
-#define bit_set(a,b) ((a) | ((uinteger)1 << (b)))
-
-/* procedure parameter types for -A and -C++ */
-
-#define F2C_proc_par_types 1
-#ifdef __cplusplus
-typedef int /* Unknown procedure type */ (*U_fp)(...);
-typedef shortint (*J_fp)(...);
-typedef integer (*I_fp)(...);
-typedef real (*R_fp)(...);
-typedef doublereal (*D_fp)(...), (*E_fp)(...);
-typedef /* Complex */ VOID (*C_fp)(...);
-typedef /* Double Complex */ VOID (*Z_fp)(...);
-typedef logical (*L_fp)(...);
-typedef shortlogical (*K_fp)(...);
-typedef /* Character */ VOID (*H_fp)(...);
-typedef /* Subroutine */ int (*S_fp)(...);
-#else
-typedef int /* Unknown procedure type */ (*U_fp)();
-typedef shortint (*J_fp)();
-typedef integer (*I_fp)();
-typedef real (*R_fp)();
-typedef doublereal (*D_fp)(), (*E_fp)();
-typedef /* Complex */ VOID (*C_fp)();
-typedef /* Double Complex */ VOID (*Z_fp)();
-typedef logical (*L_fp)();
-typedef shortlogical (*K_fp)();
-typedef /* Character */ VOID (*H_fp)();
-typedef /* Subroutine */ int (*S_fp)();
-#endif
-/* E_fp is for real functions when -R is not specified */
-typedef VOID C_f; /* complex function */
-typedef VOID H_f; /* character function */
-typedef VOID Z_f; /* double complex function */
-typedef doublereal E_f; /* real function with -R not specified */
-
-/* undef any lower-case symbols that your C compiler predefines, e.g.: */
-
-#ifndef Skip_f2c_Undefs
-#undef cray
-#undef gcos
-#undef mc68010
-#undef mc68020
-#undef mips
-#undef pdp11
-#undef sgi
-#undef sparc
-#undef sun
-#undef sun2
-#undef sun3
-#undef sun4
-#undef u370
-#undef u3b
-#undef u3b2
-#undef u3b5
-#undef unix
-#undef vax
-#endif
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/f2ch.add b/Modules/ThirdParty/6S/src/libf2c/f2ch.add
deleted file mode 100644
index a2acc17..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/f2ch.add
+++ /dev/null
@@ -1,162 +0,0 @@
-/* If you are using a C++ compiler, append the following to f2c.h
- for compiling libF77 and libI77. */
-
-#ifdef __cplusplus
-extern "C" {
-extern int abort_(void);
-extern double c_abs(complex *);
-extern void c_cos(complex *, complex *);
-extern void c_div(complex *, complex *, complex *);
-extern void c_exp(complex *, complex *);
-extern void c_log(complex *, complex *);
-extern void c_sin(complex *, complex *);
-extern void c_sqrt(complex *, complex *);
-extern double d_abs(double *);
-extern double d_acos(double *);
-extern double d_asin(double *);
-extern double d_atan(double *);
-extern double d_atn2(double *, double *);
-extern void d_cnjg(doublecomplex *, doublecomplex *);
-extern double d_cos(double *);
-extern double d_cosh(double *);
-extern double d_dim(double *, double *);
-extern double d_exp(double *);
-extern double d_imag(doublecomplex *);
-extern double d_int(double *);
-extern double d_lg10(double *);
-extern double d_log(double *);
-extern double d_mod(double *, double *);
-extern double d_nint(double *);
-extern double d_prod(float *, float *);
-extern double d_sign(double *, double *);
-extern double d_sin(double *);
-extern double d_sinh(double *);
-extern double d_sqrt(double *);
-extern double d_tan(double *);
-extern double d_tanh(double *);
-extern double derf_(double *);
-extern double derfc_(double *);
-extern integer do_fio(ftnint *, char *, ftnlen);
-extern integer do_lio(ftnint *, ftnint *, char *, ftnlen);
-extern integer do_uio(ftnint *, char *, ftnlen);
-extern integer e_rdfe(void);
-extern integer e_rdue(void);
-extern integer e_rsfe(void);
-extern integer e_rsfi(void);
-extern integer e_rsle(void);
-extern integer e_rsli(void);
-extern integer e_rsue(void);
-extern integer e_wdfe(void);
-extern integer e_wdue(void);
-extern integer e_wsfe(void);
-extern integer e_wsfi(void);
-extern integer e_wsle(void);
-extern integer e_wsli(void);
-extern integer e_wsue(void);
-extern int ef1asc_(ftnint *, ftnlen *, ftnint *, ftnlen *);
-extern integer ef1cmc_(ftnint *, ftnlen *, ftnint *, ftnlen *);
-extern double erf(double);
-extern double erf_(float *);
-extern double erfc(double);
-extern double erfc_(float *);
-extern integer f_back(alist *);
-extern integer f_clos(cllist *);
-extern integer f_end(alist *);
-extern void f_exit(void);
-extern integer f_inqu(inlist *);
-extern integer f_open(olist *);
-extern integer f_rew(alist *);
-extern int flush_(void);
-extern void getarg_(integer *, char *, ftnlen);
-extern void getenv_(char *, char *, ftnlen, ftnlen);
-extern short h_abs(short *);
-extern short h_dim(short *, short *);
-extern short h_dnnt(double *);
-extern short h_indx(char *, char *, ftnlen, ftnlen);
-extern short h_len(char *, ftnlen);
-extern short h_mod(short *, short *);
-extern short h_nint(float *);
-extern short h_sign(short *, short *);
-extern short hl_ge(char *, char *, ftnlen, ftnlen);
-extern short hl_gt(char *, char *, ftnlen, ftnlen);
-extern short hl_le(char *, char *, ftnlen, ftnlen);
-extern short hl_lt(char *, char *, ftnlen, ftnlen);
-extern integer i_abs(integer *);
-extern integer i_dim(integer *, integer *);
-extern integer i_dnnt(double *);
-extern integer i_indx(char *, char *, ftnlen, ftnlen);
-extern integer i_len(char *, ftnlen);
-extern integer i_mod(integer *, integer *);
-extern integer i_nint(float *);
-extern integer i_sign(integer *, integer *);
-extern integer iargc_(void);
-extern ftnlen l_ge(char *, char *, ftnlen, ftnlen);
-extern ftnlen l_gt(char *, char *, ftnlen, ftnlen);
-extern ftnlen l_le(char *, char *, ftnlen, ftnlen);
-extern ftnlen l_lt(char *, char *, ftnlen, ftnlen);
-extern void pow_ci(complex *, complex *, integer *);
-extern double pow_dd(double *, double *);
-extern double pow_di(double *, integer *);
-extern short pow_hh(short *, shortint *);
-extern integer pow_ii(integer *, integer *);
-extern double pow_ri(float *, integer *);
-extern void pow_zi(doublecomplex *, doublecomplex *, integer *);
-extern void pow_zz(doublecomplex *, doublecomplex *, doublecomplex *);
-extern double r_abs(float *);
-extern double r_acos(float *);
-extern double r_asin(float *);
-extern double r_atan(float *);
-extern double r_atn2(float *, float *);
-extern void r_cnjg(complex *, complex *);
-extern double r_cos(float *);
-extern double r_cosh(float *);
-extern double r_dim(float *, float *);
-extern double r_exp(float *);
-extern double r_imag(complex *);
-extern double r_int(float *);
-extern double r_lg10(float *);
-extern double r_log(float *);
-extern double r_mod(float *, float *);
-extern double r_nint(float *);
-extern double r_sign(float *, float *);
-extern double r_sin(float *);
-extern double r_sinh(float *);
-extern double r_sqrt(float *);
-extern double r_tan(float *);
-extern double r_tanh(float *);
-extern void s_cat(char *, char **, integer *, integer *, ftnlen);
-extern integer s_cmp(char *, char *, ftnlen, ftnlen);
-extern void s_copy(char *, char *, ftnlen, ftnlen);
-extern int s_paus(char *, ftnlen);
-extern integer s_rdfe(cilist *);
-extern integer s_rdue(cilist *);
-extern integer s_rnge(char *, integer, char *, integer);
-extern integer s_rsfe(cilist *);
-extern integer s_rsfi(icilist *);
-extern integer s_rsle(cilist *);
-extern integer s_rsli(icilist *);
-extern integer s_rsne(cilist *);
-extern integer s_rsni(icilist *);
-extern integer s_rsue(cilist *);
-extern int s_stop(char *, ftnlen);
-extern integer s_wdfe(cilist *);
-extern integer s_wdue(cilist *);
-extern integer s_wsfe(cilist *);
-extern integer s_wsfi(icilist *);
-extern integer s_wsle(cilist *);
-extern integer s_wsli(icilist *);
-extern integer s_wsne(cilist *);
-extern integer s_wsni(icilist *);
-extern integer s_wsue(cilist *);
-extern void sig_die(char *, int);
-extern integer signal_(integer *, void (*)(int));
-extern integer system_(char *, ftnlen);
-extern double z_abs(doublecomplex *);
-extern void z_cos(doublecomplex *, doublecomplex *);
-extern void z_div(doublecomplex *, doublecomplex *, doublecomplex *);
-extern void z_exp(doublecomplex *, doublecomplex *);
-extern void z_log(doublecomplex *, doublecomplex *);
-extern void z_sin(doublecomplex *, doublecomplex *);
-extern void z_sqrt(doublecomplex *, doublecomplex *);
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/f77_aloc.c b/Modules/ThirdParty/6S/src/libf2c/f77_aloc.c
deleted file mode 100644
index 6f52dc0..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/f77_aloc.c
+++ /dev/null
@@ -1,47 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#undef abs
-#undef min
-#undef max
-#include "stdio.h"
-
-static integer memfailure = 3;
-
-#ifdef KR_headers
-extern char *malloc();
-extern void exit_();
-
- char *
-F77_aloc(Len, whence) integer Len; char *whence;
-#else
-#include "stdlib.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern void exit_(integer*);
-#ifdef __cplusplus
- }
-#endif
-
- char *
-F77_aloc(integer Len, char *whence)
-#endif
-{
- char *rv;
- unsigned int uLen = (unsigned int) Len; /* for K&R C */
-
- if (!(rv = (char*)malloc(uLen))) {
- fprintf(stderr, "malloc(%u) failure in %s\n",
- uLen, whence);
- exit_(&memfailure);
- }
- return rv;
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/f77vers.c b/Modules/ThirdParty/6S/src/libf2c/f77vers.c
deleted file mode 100644
index 70cd6fe..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/f77vers.c
+++ /dev/null
@@ -1,97 +0,0 @@
- char
-_libf77_version_f2c[] = "\n@(#) LIBF77 VERSION (f2c) 20051004\n";
-
-/*
-2.00 11 June 1980. File version.c added to library.
-2.01 31 May 1988. s_paus() flushes stderr; names of hl_* fixed
- [ d]erf[c ] added
- 8 Aug. 1989: #ifdefs for f2c -i2 added to s_cat.c
- 29 Nov. 1989: s_cmp returns long (for f2c)
- 30 Nov. 1989: arg types from f2c.h
- 12 Dec. 1989: s_rnge allows long names
- 19 Dec. 1989: getenv_ allows unsorted environment
- 28 Mar. 1990: add exit(0) to end of main()
- 2 Oct. 1990: test signal(...) == SIG_IGN rather than & 01 in main
- 17 Oct. 1990: abort() calls changed to sig_die(...,1)
- 22 Oct. 1990: separate sig_die from main
- 25 Apr. 1991: minor, theoretically invisible tweaks to s_cat, sig_die
- 31 May 1991: make system_ return status
- 18 Dec. 1991: change long to ftnlen (for -i2) many places
- 28 Feb. 1992: repair z_sqrt.c (scribbled on input, gave wrong answer)
- 18 July 1992: for n < 0, repair handling of 0**n in pow_[dr]i.c
- and m**n in pow_hh.c and pow_ii.c;
- catch SIGTRAP in main() for error msg before abort
- 23 July 1992: switch to ANSI prototypes unless KR_headers is #defined
- 23 Oct. 1992: fix botch in signal_.c (erroneous deref of 2nd arg);
- change Cabs to f__cabs.
- 12 March 1993: various tweaks for C++
- 2 June 1994: adjust so abnormal terminations invoke f_exit just once
- 16 Sept. 1994: s_cmp: treat characters as unsigned in comparisons.
- 19 Sept. 1994: s_paus: flush after end of PAUSE; add -DMSDOS
- 12 Jan. 1995: pow_[dhiqrz][hiq]: adjust x**i to work on machines
- that sign-extend right shifts when i is the most
- negative integer.
- 26 Jan. 1995: adjust s_cat.c, s_copy.c to permit the left-hand side
- of character assignments to appear on the right-hand
- side (unless compiled with -DNO_OVERWRITE).
- 27 Jan. 1995: minor tweak to s_copy.c: copy forward whenever
- possible (for better cache behavior).
- 30 May 1995: added subroutine exit(rc) integer rc. Version not changed.
- 29 Aug. 1995: add F77_aloc.c; use it in s_cat.c and system_.c.
- 6 Sept. 1995: fix return type of system_ under -DKR_headers.
- 19 Dec. 1995: s_cat.c: fix bug when 2nd or later arg overlaps lhs.
- 19 Mar. 1996: s_cat.c: supply missing break after overlap detection.
- 13 May 1996: add [lq]bitbits.c and [lq]bitshft.c (f90 bit intrinsics).
- 19 June 1996: add casts to unsigned in [lq]bitshft.c.
- 26 Feb. 1997: adjust functions with a complex output argument
- to permit aliasing it with input arguments.
- (For now, at least, this is just for possible
- benefit of g77.)
- 4 April 1997: [cz]_div.c: tweaks invisible on most systems (that may
- affect systems using gratuitous extra precision).
- 19 Sept. 1997: [de]time_.c (Unix systems only): change return
- type to double.
- 2 May 1999: getenv_.c: omit environ in favor of getenv().
- c_cos.c, c_exp.c, c_sin.c, d_cnjg.c, r_cnjg.c,
- z_cos.c, z_exp.c, z_log.c, z_sin.c: cope fully with
- overlapping arguments caused by equivalence.
- 3 May 1999: "invisible" tweaks to omit compiler warnings in
- abort_.c, ef1asc_.c, s_rnge.c, s_stop.c.
-
- 7 Sept. 1999: [cz]_div.c: arrange for compilation under
- -DIEEE_COMPLEX_DIVIDE to make these routines
- avoid calling sig_die when the denominator
- vanishes; instead, they return pairs of NaNs
- or Infinities, depending whether the numerator
- also vanishes or not. VERSION not changed.
- 15 Nov. 1999: s_rnge.c: add casts for the case of
- sizeof(ftnint) == sizeof(int) < sizeof(long).
- 10 March 2000: z_log.c: improve accuracy of Real(log(z)) for, e.g.,
- z near (+-1,eps) with |eps| small. For the old
- evaluation, compile with -DPre20000310 .
- 20 April 2000: s_cat.c: tweak argument types to accord with
- calls by f2c when ftnint and ftnlen are of
- different sizes (different numbers of bits).
- 4 July 2000: adjustments to permit compilation by C++ compilers;
- VERSION string remains unchanged.
- 29 Sept. 2000: dtime_.c, etime_.c: use floating-point divide.
- dtime_.d, erf_.c, erfc_.c, etime.c: for use with
- "f2c -R", compile with -DREAL=float.
- 23 June 2001: add uninit.c; [fi]77vers.c: make version strings
- visible as extern char _lib[fi]77_version_f2c[].
- 5 July 2001: modify uninit.c for __mc68k__ under Linux.
- 16 Nov. 2001: uninit.c: Linux Power PC logic supplied by Alan Bain.
- 18 Jan. 2002: fix glitches in qbit_bits(): wrong return type,
- missing ~ on y in return value.
- 14 March 2002: z_log.c: add code to cope with buggy compilers
- (e.g., some versions of gcc under -O2 or -O3)
- that do floating-point comparisons against values
- computed into extended-precision registers on some
- systems (such as Intel IA32 systems). Compile with
- -DNO_DOUBLE_EXTENDED to omit the new logic.
- 4 Oct. 2002: uninit.c: on IRIX systems, omit use of shell variables.
- 10 Oct 2005: uninit.c: on IA32 Linux systems, leave the rounding
- precision alone rather than forcing it to 53 bits;
- compile with -DUNINIT_F2C_PRECISION_53 to get the
- former behavior.
-*/
diff --git a/Modules/ThirdParty/6S/src/libf2c/fio.h b/Modules/ThirdParty/6S/src/libf2c/fio.h
deleted file mode 100644
index 3d168bf..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/fio.h
+++ /dev/null
@@ -1,142 +0,0 @@
-#ifndef SYSDEP_H_INCLUDED
-#include "sysdep1.h"
-#endif
-#include "stdio.h"
-#include "errno.h"
-#ifndef NULL
-/* ANSI C */
-#include "stddef.h"
-#endif
-
-#ifndef SEEK_SET
-#define SEEK_SET 0
-#define SEEK_CUR 1
-#define SEEK_END 2
-#endif
-
-#ifndef FOPEN
-#define FOPEN fopen
-#endif
-
-#ifndef FREOPEN
-#define FREOPEN freopen
-#endif
-
-#ifndef FSEEK
-#define FSEEK fseek
-#endif
-
-#ifndef FSTAT
-#define FSTAT fstat
-#endif
-
-#ifndef FTELL
-#define FTELL ftell
-#endif
-
-#ifndef OFF_T
-#define OFF_T long
-#endif
-
-#ifndef STAT_ST
-#define STAT_ST stat
-#endif
-
-#ifndef STAT
-#define STAT stat
-#endif
-
-#ifdef MSDOS
-#ifndef NON_UNIX_STDIO
-#define NON_UNIX_STDIO
-#endif
-#endif
-
-#ifdef UIOLEN_int
-typedef int uiolen;
-#else
-typedef long uiolen;
-#endif
-
-/*units*/
-typedef struct
-{ FILE *ufd; /*0=unconnected*/
- char *ufnm;
-#ifndef MSDOS
- long uinode;
- int udev;
-#endif
- int url; /*0=sequential*/
- flag useek; /*true=can backspace, use dir, ...*/
- flag ufmt;
- flag urw; /* (1 for can read) | (2 for can write) */
- flag ublnk;
- flag uend;
- flag uwrt; /*last io was write*/
- flag uscrtch;
-} unit;
-
-extern flag f__init;
-extern cilist *f__elist; /*active external io list*/
-extern flag f__reading,f__external,f__sequential,f__formatted;
-#undef Void
-#ifdef KR_headers
-#define Void /*void*/
-extern int (*f__getn)(); /* for formatted input */
-extern void (*f__putn)(); /* for formatted output */
-extern void x_putc();
-extern long f__inode();
-extern VOID sig_die();
-extern int (*f__donewrec)(), t_putc(), x_wSL();
-extern int c_sfe(), err__fl(), xrd_SL(), f__putbuf();
-#else
-#define Void void
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern int (*f__getn)(void); /* for formatted input */
-extern void (*f__putn)(int); /* for formatted output */
-extern void x_putc(int);
-extern long f__inode(char*,int*);
-extern void sig_die(char*,int);
-extern void f__fatal(int,char*);
-extern int t_runc(alist*);
-extern int f__nowreading(unit*), f__nowwriting(unit*);
-extern int fk_open(int,int,ftnint);
-extern int en_fio(void);
-extern void f_init(void);
-extern int (*f__donewrec)(void), t_putc(int), x_wSL(void);
-extern void b_char(char*,char*,ftnlen), g_char(char*,ftnlen,char*);
-extern int c_sfe(cilist*), z_rnew(void);
-extern int isatty(int);
-extern int err__fl(int,int,char*);
-extern int xrd_SL(void);
-extern int f__putbuf(int);
-#ifdef __cplusplus
- }
-#endif
-#endif
-extern int (*f__doend)(Void);
-extern FILE *f__cf; /*current file*/
-extern unit *f__curunit; /*current unit*/
-extern unit f__units[];
-#define err(f,m,s) {if(f) errno= m; else f__fatal(m,s); return(m);}
-#define errfl(f,m,s) return err__fl((int)f,m,s)
-
-/*Table sizes*/
-#define MXUNIT 100
-
-extern int f__recpos; /*position in current record*/
-extern OFF_T f__cursor; /* offset to move to */
-extern OFF_T f__hiwater; /* so TL doesn't confuse us */
-
-#define WRITE 1
-#define READ 2
-#define SEQ 3
-#define DIR 4
-#define FMT 5
-#define UNF 6
-#define EXT 7
-#define INT 8
-
-#define buf_end(x) (x->_flag & _IONBF ? x->_ptr : x->_base + BUFSIZ)
diff --git a/Modules/ThirdParty/6S/src/libf2c/fmt.c b/Modules/ThirdParty/6S/src/libf2c/fmt.c
deleted file mode 100644
index 392c395..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/fmt.c
+++ /dev/null
@@ -1,528 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "fmt.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#define skip(s) while(*s==' ') s++
-#ifdef interdata
-#define SYLMX 300
-#endif
-#ifdef pdp11
-#define SYLMX 300
-#endif
-#ifdef vax
-#define SYLMX 300
-#endif
-#ifndef SYLMX
-#define SYLMX 300
-#endif
-#define GLITCH '\2'
- /* special quote character for stu */
-extern flag f__cblank,f__cplus; /*blanks in I and compulsory plus*/
-static struct syl f__syl[SYLMX];
-int f__parenlvl,f__pc,f__revloc;
-
- static
-#ifdef KR_headers
-char *ap_end(s) char *s;
-#else
-char *ap_end(char *s)
-#endif
-{ char quote;
- quote= *s++;
- for(;*s;s++)
- { if(*s!=quote) continue;
- if(*++s!=quote) return(s);
- }
- if(f__elist->cierr) {
- errno = 100;
- return(NULL);
- }
- f__fatal(100, "bad string");
- /*NOTREACHED*/ return 0;
-}
- static int
-#ifdef KR_headers
-op_gen(a,b,c,d)
-#else
-op_gen(int a, int b, int c, int d)
-#endif
-{ struct syl *p= &f__syl[f__pc];
- if(f__pc>=SYLMX)
- { fprintf(stderr,"format too complicated:\n");
- sig_die(f__fmtbuf, 1);
- }
- p->op=a;
- p->p1=b;
- p->p2.i[0]=c;
- p->p2.i[1]=d;
- return(f__pc++);
-}
-#ifdef KR_headers
-static char *f_list();
-static char *gt_num(s,n,n1) char *s; int *n, n1;
-#else
-static char *f_list(char*);
-static char *gt_num(char *s, int *n, int n1)
-#endif
-{ int m=0,f__cnt=0;
- char c;
- for(c= *s;;c = *s)
- { if(c==' ')
- { s++;
- continue;
- }
- if(c>'9' || c<'0') break;
- m=10*m+c-'0';
- f__cnt++;
- s++;
- }
- if(f__cnt==0) {
- if (!n1)
- s = 0;
- *n=n1;
- }
- else *n=m;
- return(s);
-}
-
- static
-#ifdef KR_headers
-char *f_s(s,curloc) char *s;
-#else
-char *f_s(char *s, int curloc)
-#endif
-{
- skip(s);
- if(*s++!='(')
- {
- return(NULL);
- }
- if(f__parenlvl++ ==1) f__revloc=curloc;
- if(op_gen(RET1,curloc,0,0)<0 ||
- (s=f_list(s))==NULL)
- {
- return(NULL);
- }
- skip(s);
- return(s);
-}
-
- static int
-#ifdef KR_headers
-ne_d(s,p) char *s,**p;
-#else
-ne_d(char *s, char **p)
-#endif
-{ int n,x,sign=0;
- struct syl *sp;
- switch(*s)
- {
- default:
- return(0);
- case ':': (void) op_gen(COLON,0,0,0); break;
- case '$':
- (void) op_gen(NONL, 0, 0, 0); break;
- case 'B':
- case 'b':
- if(*++s=='z' || *s == 'Z') (void) op_gen(BZ,0,0,0);
- else (void) op_gen(BN,0,0,0);
- break;
- case 'S':
- case 's':
- if(*(s+1)=='s' || *(s+1) == 'S')
- { x=SS;
- s++;
- }
- else if(*(s+1)=='p' || *(s+1) == 'P')
- { x=SP;
- s++;
- }
- else x=S;
- (void) op_gen(x,0,0,0);
- break;
- case '/': (void) op_gen(SLASH,0,0,0); break;
- case '-': sign=1;
- case '+': s++; /*OUTRAGEOUS CODING TRICK*/
- case '0': case '1': case '2': case '3': case '4':
- case '5': case '6': case '7': case '8': case '9':
- if (!(s=gt_num(s,&n,0))) {
- bad: *p = 0;
- return 1;
- }
- switch(*s)
- {
- default:
- return(0);
- case 'P':
- case 'p': if(sign) n= -n; (void) op_gen(P,n,0,0); break;
- case 'X':
- case 'x': (void) op_gen(X,n,0,0); break;
- case 'H':
- case 'h':
- sp = &f__syl[op_gen(H,n,0,0)];
- sp->p2.s = s + 1;
- s+=n;
- break;
- }
- break;
- case GLITCH:
- case '"':
- case '\'':
- sp = &f__syl[op_gen(APOS,0,0,0)];
- sp->p2.s = s;
- if((*p = ap_end(s)) == NULL)
- return(0);
- return(1);
- case 'T':
- case 't':
- if(*(s+1)=='l' || *(s+1) == 'L')
- { x=TL;
- s++;
- }
- else if(*(s+1)=='r'|| *(s+1) == 'R')
- { x=TR;
- s++;
- }
- else x=T;
- if (!(s=gt_num(s+1,&n,0)))
- goto bad;
- s--;
- (void) op_gen(x,n,0,0);
- break;
- case 'X':
- case 'x': (void) op_gen(X,1,0,0); break;
- case 'P':
- case 'p': (void) op_gen(P,1,0,0); break;
- }
- s++;
- *p=s;
- return(1);
-}
-
- static int
-#ifdef KR_headers
-e_d(s,p) char *s,**p;
-#else
-e_d(char *s, char **p)
-#endif
-{ int i,im,n,w,d,e,found=0,x=0;
- char *sv=s;
- s=gt_num(s,&n,1);
- (void) op_gen(STACK,n,0,0);
- switch(*s++)
- {
- default: break;
- case 'E':
- case 'e': x=1;
- case 'G':
- case 'g':
- found=1;
- if (!(s=gt_num(s,&w,0))) {
- bad:
- *p = 0;
- return 1;
- }
- if(w==0) break;
- if(*s=='.') {
- if (!(s=gt_num(s+1,&d,0)))
- goto bad;
- }
- else d=0;
- if(*s!='E' && *s != 'e')
- (void) op_gen(x==1?E:G,w,d,0); /* default is Ew.dE2 */
- else {
- if (!(s=gt_num(s+1,&e,0)))
- goto bad;
- (void) op_gen(x==1?EE:GE,w,d,e);
- }
- break;
- case 'O':
- case 'o':
- i = O;
- im = OM;
- goto finish_I;
- case 'Z':
- case 'z':
- i = Z;
- im = ZM;
- goto finish_I;
- case 'L':
- case 'l':
- found=1;
- if (!(s=gt_num(s,&w,0)))
- goto bad;
- if(w==0) break;
- (void) op_gen(L,w,0,0);
- break;
- case 'A':
- case 'a':
- found=1;
- skip(s);
- if(*s>='0' && *s<='9')
- { s=gt_num(s,&w,1);
- if(w==0) break;
- (void) op_gen(AW,w,0,0);
- break;
- }
- (void) op_gen(A,0,0,0);
- break;
- case 'F':
- case 'f':
- if (!(s=gt_num(s,&w,0)))
- goto bad;
- found=1;
- if(w==0) break;
- if(*s=='.') {
- if (!(s=gt_num(s+1,&d,0)))
- goto bad;
- }
- else d=0;
- (void) op_gen(F,w,d,0);
- break;
- case 'D':
- case 'd':
- found=1;
- if (!(s=gt_num(s,&w,0)))
- goto bad;
- if(w==0) break;
- if(*s=='.') {
- if (!(s=gt_num(s+1,&d,0)))
- goto bad;
- }
- else d=0;
- (void) op_gen(D,w,d,0);
- break;
- case 'I':
- case 'i':
- i = I;
- im = IM;
- finish_I:
- if (!(s=gt_num(s,&w,0)))
- goto bad;
- found=1;
- if(w==0) break;
- if(*s!='.')
- { (void) op_gen(i,w,0,0);
- break;
- }
- if (!(s=gt_num(s+1,&d,0)))
- goto bad;
- (void) op_gen(im,w,d,0);
- break;
- }
- if(found==0)
- { f__pc--; /*unSTACK*/
- *p=sv;
- return(0);
- }
- *p=s;
- return(1);
-}
- static
-#ifdef KR_headers
-char *i_tem(s) char *s;
-#else
-char *i_tem(char *s)
-#endif
-{ char *t;
- int n,curloc;
- if(*s==')') return(s);
- if(ne_d(s,&t)) return(t);
- if(e_d(s,&t)) return(t);
- s=gt_num(s,&n,1);
- if((curloc=op_gen(STACK,n,0,0))<0) return(NULL);
- return(f_s(s,curloc));
-}
-
- static
-#ifdef KR_headers
-char *f_list(s) char *s;
-#else
-char *f_list(char *s)
-#endif
-{
- for(;*s!=0;)
- { skip(s);
- if((s=i_tem(s))==NULL) return(NULL);
- skip(s);
- if(*s==',') s++;
- else if(*s==')')
- { if(--f__parenlvl==0)
- {
- (void) op_gen(REVERT,f__revloc,0,0);
- return(++s);
- }
- (void) op_gen(GOTO,0,0,0);
- return(++s);
- }
- }
- return(NULL);
-}
-
- int
-#ifdef KR_headers
-pars_f(s) char *s;
-#else
-pars_f(char *s)
-#endif
-{
- f__parenlvl=f__revloc=f__pc=0;
- if(f_s(s,0) == NULL)
- {
- return(-1);
- }
- return(0);
-}
-#define STKSZ 10
-int f__cnt[STKSZ],f__ret[STKSZ],f__cp,f__rp;
-flag f__workdone, f__nonl;
-
- static int
-#ifdef KR_headers
-type_f(n)
-#else
-type_f(int n)
-#endif
-{
- switch(n)
- {
- default:
- return(n);
- case RET1:
- return(RET1);
- case REVERT: return(REVERT);
- case GOTO: return(GOTO);
- case STACK: return(STACK);
- case X:
- case SLASH:
- case APOS: case H:
- case T: case TL: case TR:
- return(NED);
- case F:
- case I:
- case IM:
- case A: case AW:
- case O: case OM:
- case L:
- case E: case EE: case D:
- case G: case GE:
- case Z: case ZM:
- return(ED);
- }
-}
-#ifdef KR_headers
-integer do_fio(number,ptr,len) ftnint *number; ftnlen len; char *ptr;
-#else
-integer do_fio(ftnint *number, char *ptr, ftnlen len)
-#endif
-{ struct syl *p;
- int n,i;
- for(i=0;i<*number;i++,ptr+=len)
- {
-loop: switch(type_f((p= &f__syl[f__pc])->op))
- {
- default:
- fprintf(stderr,"unknown code in do_fio: %d\n%s\n",
- p->op,f__fmtbuf);
- err(f__elist->cierr,100,"do_fio");
- case NED:
- if((*f__doned)(p))
- { f__pc++;
- goto loop;
- }
- f__pc++;
- continue;
- case ED:
- if(f__cnt[f__cp]<=0)
- { f__cp--;
- f__pc++;
- goto loop;
- }
- if(ptr==NULL)
- return((*f__doend)());
- f__cnt[f__cp]--;
- f__workdone=1;
- if((n=(*f__doed)(p,ptr,len))>0)
- errfl(f__elist->cierr,errno,"fmt");
- if(n<0)
- err(f__elist->ciend,(EOF),"fmt");
- continue;
- case STACK:
- f__cnt[++f__cp]=p->p1;
- f__pc++;
- goto loop;
- case RET1:
- f__ret[++f__rp]=p->p1;
- f__pc++;
- goto loop;
- case GOTO:
- if(--f__cnt[f__cp]<=0)
- { f__cp--;
- f__rp--;
- f__pc++;
- goto loop;
- }
- f__pc=1+f__ret[f__rp--];
- goto loop;
- case REVERT:
- f__rp=f__cp=0;
- f__pc = p->p1;
- if(ptr==NULL)
- return((*f__doend)());
- if(!f__workdone) return(0);
- if((n=(*f__dorevert)()) != 0) return(n);
- goto loop;
- case COLON:
- if(ptr==NULL)
- return((*f__doend)());
- f__pc++;
- goto loop;
- case NONL:
- f__nonl = 1;
- f__pc++;
- goto loop;
- case S:
- case SS:
- f__cplus=0;
- f__pc++;
- goto loop;
- case SP:
- f__cplus = 1;
- f__pc++;
- goto loop;
- case P: f__scale=p->p1;
- f__pc++;
- goto loop;
- case BN:
- f__cblank=0;
- f__pc++;
- goto loop;
- case BZ:
- f__cblank=1;
- f__pc++;
- goto loop;
- }
- }
- return(0);
-}
-
- int
-en_fio(Void)
-{ ftnint one=1;
- return(do_fio(&one,(char *)NULL,(ftnint)0));
-}
-
- VOID
-fmt_bg(Void)
-{
- f__workdone=f__cp=f__rp=f__pc=f__cursor=0;
- f__cnt[0]=f__ret[0]=0;
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/fmt.h b/Modules/ThirdParty/6S/src/libf2c/fmt.h
deleted file mode 100644
index a2fdc65..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/fmt.h
+++ /dev/null
@@ -1,104 +0,0 @@
-struct syl
-{ int op;
- int p1;
- union { int i[2]; char *s;} p2;
- };
-#define RET1 1
-#define REVERT 2
-#define GOTO 3
-#define X 4
-#define SLASH 5
-#define STACK 6
-#define I 7
-#define ED 8
-#define NED 9
-#define IM 10
-#define APOS 11
-#define H 12
-#define TL 13
-#define TR 14
-#define T 15
-#define COLON 16
-#define S 17
-#define SP 18
-#define SS 19
-#define P 20
-#define BN 21
-#define BZ 22
-#define F 23
-#define E 24
-#define EE 25
-#define D 26
-#define G 27
-#define GE 28
-#define L 29
-#define A 30
-#define AW 31
-#define O 32
-#define NONL 33
-#define OM 34
-#define Z 35
-#define ZM 36
-extern int f__pc,f__parenlvl,f__revloc;
-typedef union
-{ real pf;
- doublereal pd;
-} ufloat;
-typedef union
-{ short is;
-#ifndef KR_headers
- signed
-#endif
- char ic;
- integer il;
-#ifdef Allow_TYQUAD
- longint ili;
-#endif
-} Uint;
-#ifdef KR_headers
-extern int (*f__doed)(),(*f__doned)();
-extern int (*f__dorevert)();
-extern int rd_ed(),rd_ned();
-extern int w_ed(),w_ned();
-extern int signbit_f2c();
-#else
-#ifdef __cplusplus
-extern "C" {
-#define Cextern extern "C"
-#else
-#define Cextern extern
-#endif
-extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*);
-extern int (*f__dorevert)(void);
-extern void fmt_bg(void);
-extern int pars_f(char*);
-extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*);
-extern int signbit_f2c(double*);
-extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*);
-extern int wrt_E(ufloat*, int, int, int, ftnlen);
-extern int wrt_F(ufloat*, int, int, ftnlen);
-extern int wrt_L(Uint*, int, ftnlen);
-#ifdef __cplusplus
- }
-#endif
-#endif
-extern flag f__cblank,f__cplus,f__workdone, f__nonl;
-extern char *f__fmtbuf;
-extern int f__scale;
-#define GET(x) if((x=(*f__getn)())<0) return(x)
-#define VAL(x) (x!='\n'?x:' ')
-#define PUT(x) (*f__putn)(x)
-
-#undef TYQUAD
-#ifndef Allow_TYQUAD
-#undef longint
-#define longint long
-#else
-#define TYQUAD 14
-#endif
-
-#ifdef KR_headers
-extern char *f__icvt();
-#else
-Cextern char *f__icvt(longint, int*, int*, int);
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/fmtlib.c b/Modules/ThirdParty/6S/src/libf2c/fmtlib.c
deleted file mode 100644
index 15d3225..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/fmtlib.c
+++ /dev/null
@@ -1,54 +0,0 @@
-/* @(#)fmtlib.c 1.2 */
-#define MAXINTLENGTH 23
-
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#ifndef Allow_TYQUAD
-#undef longint
-#define longint long
-#undef ulongint
-#define ulongint unsigned long
-#endif
-
-#ifdef KR_headers
-char *f__icvt(value,ndigit,sign, base) longint value; int *ndigit,*sign;
- register int base;
-#else
-char *f__icvt(longint value, int *ndigit, int *sign, int base)
-#endif
-{
- static char buf[MAXINTLENGTH+1];
- register int i;
- ulongint uvalue;
-
- if(value > 0) {
- uvalue = value;
- *sign = 0;
- }
- else if (value < 0) {
- uvalue = -value;
- *sign = 1;
- }
- else {
- *sign = 0;
- *ndigit = 1;
- buf[MAXINTLENGTH-1] = '0';
- return &buf[MAXINTLENGTH-1];
- }
- i = MAXINTLENGTH;
- do {
- buf[--i] = (uvalue%base) + '0';
- uvalue /= base;
- }
- while(uvalue > 0);
- *ndigit = MAXINTLENGTH - i;
- return &buf[i];
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/fp.h b/Modules/ThirdParty/6S/src/libf2c/fp.h
deleted file mode 100644
index 40743d7..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/fp.h
+++ /dev/null
@@ -1,28 +0,0 @@
-#define FMAX 40
-#define EXPMAXDIGS 8
-#define EXPMAX 99999999
-/* FMAX = max number of nonzero digits passed to atof() */
-/* EXPMAX = 10^EXPMAXDIGS - 1 = largest allowed exponent absolute value */
-
-#ifdef V10 /* Research Tenth-Edition Unix */
-#include "local.h"
-#endif
-
-/* MAXFRACDIGS and MAXINTDIGS are for wrt_F -- bounds (not necessarily
- tight) on the maximum number of digits to the right and left of
- * the decimal point.
- */
-
-#ifdef VAX
-#define MAXFRACDIGS 56
-#define MAXINTDIGS 38
-#else
-#ifdef CRAY
-#define MAXFRACDIGS 9880
-#define MAXINTDIGS 9864
-#else
-/* values that suffice for IEEE double */
-#define MAXFRACDIGS 344
-#define MAXINTDIGS 308
-#endif
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/ftell64_.c.omit b/Modules/ThirdParty/6S/src/libf2c/ftell64_.c.omit
deleted file mode 100644
index 3b37487..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/ftell64_.c.omit
+++ /dev/null
@@ -1,55 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- static FILE *
-#ifdef KR_headers
-unit_chk(Unit, who) integer Unit; char *who;
-#else
-unit_chk(integer Unit, char *who)
-#endif
-{
- if (Unit >= MXUNIT || Unit < 0)
- f__fatal(101, who);
- return f__units[Unit].ufd;
- }
-
- longint
-#ifdef KR_headers
-ftell64_(Unit) integer *Unit;
-#else
-ftell64_(integer *Unit)
-#endif
-{
- FILE *f;
- return (f = unit_chk(*Unit, "ftell")) ? FTELL(f) : -1L;
- }
-
- int
-#ifdef KR_headers
-fseek64_(Unit, offset, whence) integer *Unit, *whence; longint *offset;
-#else
-fseek64_(integer *Unit, longint *offset, integer *whence)
-#endif
-{
- FILE *f;
- int w = (int)*whence;
-#ifdef SEEK_SET
- static int wohin[3] = { SEEK_SET, SEEK_CUR, SEEK_END };
-#endif
- if (w < 0 || w > 2)
- w = 0;
-#ifdef SEEK_SET
- w = wohin[w];
-#endif
- return !(f = unit_chk(*Unit, "fseek"))
- || FSEEK(f, (OFF_T)*offset, w) ? 1 : 0;
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/ftell_.c b/Modules/ThirdParty/6S/src/libf2c/ftell_.c
deleted file mode 100644
index 0de245d..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/ftell_.c
+++ /dev/null
@@ -1,55 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- static FILE *
-#ifdef KR_headers
-unit_chk(Unit, who) integer Unit; char *who;
-#else
-unit_chk(integer Unit, char *who)
-#endif
-{
- if (Unit >= MXUNIT || Unit < 0)
- f__fatal(101, who);
- return f__units[Unit].ufd;
- }
-
- integer
-#ifdef KR_headers
-ftell_(Unit) integer *Unit;
-#else
-ftell_(integer *Unit)
-#endif
-{
- FILE *f;
- return (f = unit_chk(*Unit, "ftell")) ? ftell(f) : -1L;
- }
-
- int
-#ifdef KR_headers
-fseek_(Unit, offset, whence) integer *Unit, *offset, *whence;
-#else
-fseek_(integer *Unit, integer *offset, integer *whence)
-#endif
-{
- FILE *f;
- int w = (int)*whence;
-#ifdef SEEK_SET
- static int wohin[3] = { SEEK_SET, SEEK_CUR, SEEK_END };
-#endif
- if (w < 0 || w > 2)
- w = 0;
-#ifdef SEEK_SET
- w = wohin[w];
-#endif
- return !(f = unit_chk(*Unit, "fseek"))
- || fseek(f, *offset, w) ? 1 : 0;
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/getarg_.c b/Modules/ThirdParty/6S/src/libf2c/getarg_.c
deleted file mode 100644
index 0a43c08..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/getarg_.c
+++ /dev/null
@@ -1,37 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/*
- * subroutine getarg(k, c)
- * returns the kth unix command argument in fortran character
- * variable argument c
-*/
-
-#ifdef KR_headers
-VOID getarg_(n, s, ls) ftnint *n; register char *s; ftnlen ls;
-#else
-void getarg_(ftnint *n, register char *s, ftnlen ls)
-#endif
-{
-extern int xargc;
-extern char **xargv;
-register char *t;
-register int i;
-
-if(*n>=0 && *n<xargc)
- t = xargv[*n];
-else
- t = "";
-for(i = 0; i<ls && *t!='\0' ; ++i)
- *s++ = *t++;
-for( ; i<ls ; ++i)
- *s++ = ' ';
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/getenv_.c b/Modules/ThirdParty/6S/src/libf2c/getenv_.c
deleted file mode 100644
index 91abb20..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/getenv_.c
+++ /dev/null
@@ -1,65 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#undef abs
-#ifdef KR_headers
-extern char *F77_aloc(), *getenv();
-#else
-#include <stdlib.h>
-#include <string.h>
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern char *F77_aloc(ftnlen, char*);
-#endif
-
-/*
- * getenv - f77 subroutine to return environment variables
- *
- * called by:
- * call getenv (ENV_NAME, char_var)
- * where:
- * ENV_NAME is the name of an environment variable
- * char_var is a character variable which will receive
- * the current value of ENV_NAME, or all blanks
- * if ENV_NAME is not defined
- */
-
-#ifdef KR_headers
- VOID
-getenv_(fname, value, flen, vlen) char *value, *fname; ftnlen vlen, flen;
-#else
- void
-getenv_(char *fname, char *value, ftnlen flen, ftnlen vlen)
-#endif
-{
- char buf[256], *ep, *fp;
- integer i;
-
- if (flen <= 0)
- goto add_blanks;
- for(i = 0; i < sizeof(buf); i++) {
- if (i == flen || (buf[i] = fname[i]) == ' ') {
- buf[i] = 0;
- ep = getenv(buf);
- goto have_ep;
- }
- }
- while(i < flen && fname[i] != ' ')
- i++;
- strncpy(fp = F77_aloc(i+1, "getenv_"), fname, (int)i);
- fp[i] = 0;
- ep = getenv(fp);
- free(fp);
- have_ep:
- if (ep)
- while(*ep && vlen-- > 0)
- *value++ = *ep++;
- add_blanks:
- while(vlen-- > 0)
- *value++ = ' ';
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/h_abs.c b/Modules/ThirdParty/6S/src/libf2c/h_abs.c
deleted file mode 100644
index c0aa6a3..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/h_abs.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-shortint h_abs(x) shortint *x;
-#else
-shortint h_abs(shortint *x)
-#endif
-{
-if(*x >= 0)
- return(*x);
-return(- *x);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/h_dim.c b/Modules/ThirdParty/6S/src/libf2c/h_dim.c
deleted file mode 100644
index 64729b2..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/h_dim.c
+++ /dev/null
@@ -1,19 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-shortint h_dim(a,b) shortint *a, *b;
-#else
-shortint h_dim(shortint *a, shortint *b)
-#endif
-{
-return( *a > *b ? *a - *b : 0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/h_dnnt.c b/Modules/ThirdParty/6S/src/libf2c/h_dnnt.c
deleted file mode 100644
index e290c4f..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/h_dnnt.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double floor();
-shortint h_dnnt(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-shortint h_dnnt(doublereal *x)
-#endif
-{
-return (shortint)(*x >= 0. ? floor(*x + .5) : -floor(.5 - *x));
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/h_indx.c b/Modules/ThirdParty/6S/src/libf2c/h_indx.c
deleted file mode 100644
index 8739c5c..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/h_indx.c
+++ /dev/null
@@ -1,35 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-shortint h_indx(a, b, la, lb) char *a, *b; ftnlen la, lb;
-#else
-shortint h_indx(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
-{
-ftnlen i, n;
-char *s, *t, *bend;
-
-n = la - lb + 1;
-bend = b + lb;
-
-for(i = 0 ; i < n ; ++i)
- {
- s = a + i;
- t = b;
- while(t < bend)
- if(*s++ != *t++)
- goto no;
- return((shortint)i+1);
- no: ;
- }
-return(0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/h_len.c b/Modules/ThirdParty/6S/src/libf2c/h_len.c
deleted file mode 100644
index 737aef3..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/h_len.c
+++ /dev/null
@@ -1,19 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-shortint h_len(s, n) char *s; ftnlen n;
-#else
-shortint h_len(char *s, ftnlen n)
-#endif
-{
-return(n);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/h_mod.c b/Modules/ThirdParty/6S/src/libf2c/h_mod.c
deleted file mode 100644
index 2192c2b..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/h_mod.c
+++ /dev/null
@@ -1,19 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-shortint h_mod(a,b) short *a, *b;
-#else
-shortint h_mod(short *a, short *b)
-#endif
-{
-return( *a % *b);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/h_nint.c b/Modules/ThirdParty/6S/src/libf2c/h_nint.c
deleted file mode 100644
index c06e9cb..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/h_nint.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double floor();
-shortint h_nint(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-shortint h_nint(real *x)
-#endif
-{
-return (shortint)(*x >= 0 ? floor(*x + .5) : -floor(.5 - *x));
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/h_sign.c b/Modules/ThirdParty/6S/src/libf2c/h_sign.c
deleted file mode 100644
index 0019da9..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/h_sign.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-shortint h_sign(a,b) shortint *a, *b;
-#else
-shortint h_sign(shortint *a, shortint *b)
-#endif
-{
-shortint x;
-x = (*a >= 0 ? *a : - *a);
-return( *b >= 0 ? x : -x);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/hl_ge.c b/Modules/ThirdParty/6S/src/libf2c/hl_ge.c
deleted file mode 100644
index 830846a..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/hl_ge.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-extern integer s_cmp();
-shortlogical hl_ge(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
-extern integer s_cmp(char *, char *, ftnlen, ftnlen);
-shortlogical hl_ge(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
-{
-return(s_cmp(a,b,la,lb) >= 0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/hl_gt.c b/Modules/ThirdParty/6S/src/libf2c/hl_gt.c
deleted file mode 100644
index 0b3969a..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/hl_gt.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-extern integer s_cmp();
-shortlogical hl_gt(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
-extern integer s_cmp(char *, char *, ftnlen, ftnlen);
-shortlogical hl_gt(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
-{
-return(s_cmp(a,b,la,lb) > 0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/hl_le.c b/Modules/ThirdParty/6S/src/libf2c/hl_le.c
deleted file mode 100644
index 623b9da..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/hl_le.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-extern integer s_cmp();
-shortlogical hl_le(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
-extern integer s_cmp(char *, char *, ftnlen, ftnlen);
-shortlogical hl_le(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
-{
-return(s_cmp(a,b,la,lb) <= 0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/hl_lt.c b/Modules/ThirdParty/6S/src/libf2c/hl_lt.c
deleted file mode 100644
index 9c6dbe7..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/hl_lt.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-extern integer s_cmp();
-shortlogical hl_lt(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
-extern integer s_cmp(char *, char *, ftnlen, ftnlen);
-shortlogical hl_lt(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
-{
-return(s_cmp(a,b,la,lb) < 0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/i77vers.c b/Modules/ThirdParty/6S/src/libf2c/i77vers.c
deleted file mode 100644
index 58c65f9..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/i77vers.c
+++ /dev/null
@@ -1,345 +0,0 @@
- char
-_libi77_version_f2c[] = "\n@(#) LIBI77 VERSION (f2c) pjw,dmg-mods 20030321\n";
-
-/*
-2.01 $ format added
-2.02 Coding bug in open.c repaired
-2.03 fixed bugs in lread.c (read * with negative f-format) and lio.c
- and lio.h (e-format conforming to spec)
-2.04 changed open.c and err.c (fopen and freopen respectively) to
- update to new c-library (append mode)
-2.05 added namelist capability
-2.06 allow internal list and namelist I/O
-*/
-
-/*
-close.c:
- allow upper-case STATUS= values
-endfile.c
- create fort.nnn if unit nnn not open;
- else if (file length == 0) use creat() rather than copy;
- use local copy() rather than forking /bin/cp;
- rewind, fseek to clear buffer (for no reading past EOF)
-err.c
- use neither setbuf nor setvbuf; make stderr buffered
-fio.h
- #define _bufend
-inquire.c
- upper case responses;
- omit byfile test from SEQUENTIAL=
- answer "YES" to DIRECT= for unopened file (open to debate)
-lio.c
- flush stderr, stdout at end of each stmt
- space before character strings in list output only at line start
-lio.h
- adjust LEW, LED consistent with old libI77
-lread.c
- use atof()
- allow "nnn*," when reading complex constants
-open.c
- try opening for writing when open for read fails, with
- special uwrt value (2) delaying creat() to first write;
- set curunit so error messages don't drop core;
- no file name ==> fort.nnn except for STATUS='SCRATCH'
-rdfmt.c
- use atof(); trust EOF == end-of-file (so don't read past
- end-of-file after endfile stmt)
-sfe.c
- flush stderr, stdout at end of each stmt
-wrtfmt.c:
- use upper case
- put wrt_E and wrt_F into wref.c, use sprintf()
- rather than ecvt() and fcvt() [more accurate on VAX]
-*/
-
-/* 16 Oct. 1988: uwrt = 3 after write, rewind, so close won't zap the file. */
-
-/* 10 July 1989: change _bufend to buf_end in fio.h, wsfe.c, wrtfmt.c */
-
-/* 28 Nov. 1989: corrections for IEEE and Cray arithmetic */
-/* 29 Nov. 1989: change various int return types to long for f2c */
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" *//* 30 Nov. 1989: various types from f2c.h */
-#include "otb_6S_f2c.h"
-/* 6 Dec. 1989: types corrected various places */
-/* 19 Dec. 1989: make iostat= work right for internal I/O */
-/* 8 Jan. 1990: add rsne, wsne -- routines for handling NAMELIST */
-/* 28 Jan. 1990: have NAMELIST read treat $ as &, general white
- space as blank */
-/* 27 Mar. 1990: change an = to == in rd_L(rdfmt.c) so formatted reads
- of logical values reject letters other than fFtT;
- have nowwriting reset cf */
-/* 14 Aug. 1990: adjust lread.c to treat tabs as spaces in list input */
-/* 17 Aug. 1990: adjust open.c to recognize blank='Z...' as well as
- blank='z...' when reopening an open file */
-/* 30 Aug. 1990: prevent embedded blanks in list output of complex values;
- omit exponent field in list output of values of
- magnitude between 10 and 1e8; prevent writing stdin
- and reading stdout or stderr; don't close stdin, stdout,
- or stderr when reopening units 5, 6, 0. */
-/* 18 Sep. 1990: add component udev to unit and consider old == new file
- iff uinode and udev values agree; use stat rather than
- access to check existence of file (when STATUS='OLD')*/
-/* 2 Oct. 1990: adjust rewind.c so two successive rewinds after a write
- don't clobber the file. */
-/* 9 Oct. 1990: add #include "fcntl.h" to endfile.c, err.c, open.c;
- adjust g_char in util.c for segmented memories. */
-/* 17 Oct. 1990: replace abort() and _cleanup() with calls on
- sig_die(...,1) (defined in main.c). */
-/* 5 Nov. 1990: changes to open.c: complain if new= is specified and the
- file already exists; allow file= to be omitted in open stmts
- and allow status='replace' (Fortran 90 extensions). */
-/* 11 Dec. 1990: adjustments for POSIX. */
-/* 15 Jan. 1991: tweak i_ungetc in rsli.c to allow reading from
- strings in read-only memory. */
-/* 25 Apr. 1991: adjust namelist stuff to work with f2c -i2 */
-/* 26 Apr. 1991: fix some bugs with NAMELIST read of multi-dim. arrays */
-/* 16 May 1991: increase LEFBL in lio.h to bypass NeXT bug */
-/* 17 Oct. 1991: change type of length field in sequential unformatted
- records from int to long (for systems where sizeof(int)
- can vary, depending on the compiler or compiler options). */
-/* 14 Nov. 1991: change uint to Uint in fmt.h, rdfmt.c, wrtfmt.c. */
-/* 25 Nov. 1991: change uint to Uint in lwrite.c; change sizeof(int) to
- sizeof(uioint) in fseeks in sue.c (missed on 17 Oct.). */
-/* 1 Dec. 1991: uio.c: add test for read failure (seq. unformatted reads);
- adjust an error return from EOF to off end of record */
-/* 12 Dec. 1991: rsli.c: fix bug with internal list input that caused
- the last character of each record to be ignored.
- iio.c: adjust error message in internal formatted
- input from "end-of-file" to "off end of record" if
- the format specifies more characters than the
- record contains. */
-/* 17 Jan. 1992: lread.c, rsne.c: in list and namelist input,
- treat "r* ," and "r*," alike (where r is a
- positive integer constant), and fix a bug in
- handling null values following items with repeat
- counts (e.g., 2*1,,3); for namelist reading
- of a numeric array, allow a new name-value subsequence
- to terminate the current one (as though the current
- one ended with the right number of null values).
- lio.h, lwrite.c: omit insignificant zeros in
- list and namelist output. To get the old
- behavior, compile with -DOld_list_output . */
-/* 18 Jan. 1992: make list output consistent with F format by
- printing .1 rather than 0.1 (introduced yesterday). */
-/* 3 Feb. 1992: rsne.c: fix namelist read bug that caused the
- character following a comma to be ignored. */
-/* 19 May 1992: adjust iio.c, ilnw.c, rdfmt.c and rsli.c to make err=
- work with internal list and formatted I/O. */
-/* 18 July 1992: adjust rsne.c to allow namelist input to stop at
- an & (e.g. &end). */
-/* 23 July 1992: switch to ANSI prototypes unless KR_headers is #defined ;
- recognize Z format (assuming 8-bit bytes). */
-/* 14 Aug. 1992: tweak wrt_E in wref.c to avoid -NaN */
-/* 23 Oct. 1992: Supply missing l_eof = 0 assignment to s_rsne() in rsne.c
- (so end-of-file on other files won't confuse namelist
- reads of external files). Prepend f__ to external
- names that are only of internal interest to lib[FI]77. */
-/* 1 Feb. 1993: backspace.c: fix bug that bit when last char of 2nd
- buffer == '\n'.
- endfile.c: guard against tiny L_tmpnam; close and reopen
- files in t_runc().
- lio.h: lengthen LINTW (buffer size in lwrite.c).
- err.c, open.c: more prepending of f__ (to [rw]_mode). */
-/* 5 Feb. 1993: tweaks to NAMELIST: rsne.c: ? prints the namelist being
- sought; namelists of the wrong name are skipped (after
- an error message; xwsne.c: namelist writes have a
- newline before each new variable.
- open.c: ACCESS='APPEND' positions sequential files
- at EOF (nonstandard extension -- that doesn't require
- changing data structures). */
-/* 9 Feb. 1993: Change some #ifdef MSDOS lines to #ifdef NON_UNIX_STDIO.
- err.c: under NON_UNIX_STDIO, avoid close(creat(name,0666))
- when the unit has another file descriptor for name. */
-/* 4 March 1993: err.c, open.c: take declaration of fdopen from rawio.h;
- open.c: always give f__w_mode[] 4 elements for use
- in t_runc (in endfile.c -- for change of 1 Feb. 1993). */
-/* 6 March 1993: uio.c: adjust off-end-of-record test for sequential
- unformatted reads to respond to err= rather than end=. */
-/* 12 March 1993: various tweaks for C++ */
-/* 6 April 1993: adjust error returns for formatted inputs to flush
- the current input line when err=label is specified.
- To restore the old behavior (input left mid-line),
- either adjust the #definition of errfl in fio.h or
- omit the invocation of f__doend in err__fl (in err.c). */
-/* 23 June 1993: iio.c: fix bug in format reversions for internal writes. */
-/* 5 Aug. 1993: lread.c: fix bug in handling repetition counts for
- logical data (during list or namelist input).
- Change struct f__syl to struct syl (for buggy compilers). */
-/* 7 Aug. 1993: lread.c: fix bug in namelist reading of incomplete
- logical arrays. */
-/* 9 Aug. 1993: lread.c: fix bug in namelist reading of an incomplete
- array of numeric data followed by another namelist
- item whose name starts with 'd', 'D', 'e', or 'E'. */
-/* 8 Sept. 1993: open.c: protect #include "sys/..." with
- #ifndef NON_UNIX_STDIO; Version date not changed. */
-/* 10 Nov. 1993: backspace.c: add nonsense for #ifdef MSDOS */
-/* 8 Dec. 1993: iio.c: adjust internal formatted reads to treat
- short records as though padded with blanks
- (rather than causing an "off end of record" error). */
-/* 22 Feb. 1994: lread.c: check that realloc did not return NULL. */
-/* 6 June 1994: Under NON_UNIX_STDIO, use binary mode for direct
- formatted files (avoiding any confusion regarding \n). */
-/* 5 July 1994: Fix bug (introduced 6 June 1994?) in reopening files
- under NON_UNIX_STDIO. */
-/* 6 July 1994: wref.c: protect with #ifdef GOOD_SPRINTF_EXPONENT an
- optimization that requires exponents to have 2 digits
- when 2 digits suffice.
- lwrite.c wsfe.c (list and formatted external output):
- omit ' ' carriage-control when compiled with
- -DOMIT_BLANK_CC . Off-by-one bug fixed in character
- count for list output of character strings.
- Omit '.' in list-directed printing of Nan, Infinity. */
-/* 12 July 1994: wrtfmt.c: under G11.4, write 0. as " .0000 " rather
- than " .0000E+00". */
-/* 3 Aug. 1994: lwrite.c: do not insert a newline when appending an
- oversize item to an empty line. */
-/* 12 Aug. 1994: rsli.c rsne.c: fix glitch (reset nml_read) that kept
- ERR= (in list- or format-directed input) from working
- after a NAMELIST READ. */
-/* 7 Sept. 1994: typesize.c: adjust to allow types LOGICAL*1, LOGICAL*2,
- INTEGER*1, and (under -DAllow_TYQUAD) INTEGER*8
- in NAMELISTs. */
-/* 6 Oct. 1994: util.c: omit f__mvgbt, as it is never used. */
-/* 2 Nov. 1994: add #ifdef ALWAYS_FLUSH logic. */
-/* 26 Jan. 1995: wref.c: fix glitch in printing the exponent of 0 when
- GOOD_SPRINTF_EXPONENT is not #defined. */
-/* 24 Feb. 1995: iio.c: z_getc: insert (unsigned char *) to allow
- internal reading of characters with high-bit set
- (on machines that sign-extend characters). */
-/* 14 March 1995:lread.c and rsfe.c: adjust s_rsle and s_rsfe to
- check for end-of-file (to prevent infinite loops
- with empty read statements). */
-/* 26 May 1995: iio.c: z_wnew: fix bug in handling T format items
- in internal writes whose last item is written to
- an earlier position than some previous item. */
-/* 29 Aug. 1995: backspace.c: adjust MSDOS logic. */
-/* 6 Sept. 1995: Adjust namelist input to treat a subscripted name
- whose subscripts do not involve colons similarly
- to the name without a subscript: accept several
- values, stored in successive elements starting at
- the indicated subscript. Adjust namelist output
- to quote character strings (avoiding confusion with
- arrays of character strings). Adjust f_init calls
- for people who don't use libF77's main(); now open and
- namelist read statements invoke f_init if needed. */
-/* 7 Sept. 1995: Fix some bugs with -DAllow_TYQUAD (for integer*8).
- Add -DNo_Namelist_Comments lines to rsne.c. */
-/* 5 Oct. 1995: wrtfmt.c: fix bug with t editing (f__cursor was not
- always zeroed in mv_cur). */
-/* 11 Oct. 1995: move defs of f__hiwater, f__svic, f__icptr from wrtfmt.c
- to err.c */
-/* 15 Mar. 1996: lread.c, rsfe.c: honor END= in READ stmt with empty iolist */
-
-/* 13 May 1996: add ftell_.c and fseek_.c */
-/* 9 June 1996: Adjust rsli.c and lread.c so internal list input with
- too few items in the input string will honor end= . */
-/* 12 Sept. 1995:fmtlib.c: fix glitch in printing the most negative integer. */
-/* 25 Sept. 1995:fmt.h: for formatted writes of negative integer*1 values,
- make ic signed on ANSI systems. If formatted writes of
- integer*1 values trouble you when using a K&R C compiler,
- switch to an ANSI compiler or use a compiler flag that
- makes characters signed. */
-/* 9 Dec. 1996: d[fu]e.c, err.c: complain about non-positive rec=
- in direct read and write statements.
- ftell_.c: change param "unit" to "Unit" for -DKR_headers. */
-/* 26 Feb. 1997: ftell_.c: on systems that define SEEK_SET, etc., use
- SEEK_SET, SEEK_CUR, SEEK_END for *whence = 0, 1, 2. */
-/* 7 Apr. 1997: fmt.c: adjust to complain at missing numbers in formats
- (but still treat missing ".nnn" as ".0"). */
-/* 11 Apr. 1997: err.c: attempt to make stderr line buffered rather
- than fully buffered. (Buffering is needed for format
- items T and TR.) */
-/* 27 May 1997: ftell_.c: fix typo (that caused the third argument to be
- treated as 2 on some systems). */
-/* 5 Aug. 1997: lread.c: adjust to accord with a change to the Fortran 8X
- draft (in 1990 or 1991) that rescinded permission to elide
- quote marks in namelist input of character data; compile
- with -DF8X_NML_ELIDE_QUOTES to get the old behavior.
- wrtfmt.o: wrt_G: tweak to print the right number of 0's
- for zero under G format. */
-/* 16 Aug. 1997: iio.c: fix bug in internal writes to an array of character
- strings that sometimes caused one more array element than
- required by the format to be blank-filled. Example:
- format(1x). */
-/* 16 Sept. 1997:fmt.[ch] rdfmt.c wrtfmt.c: tweak struct syl for machines
- with 64-bit pointers and 32-bit ints that did not 64-bit
- align struct syl (e.g., Linux on the DEC Alpha). */
-/* 19 Jan. 1998: backspace.c: for b->ufmt==0, change sizeof(int) to
- sizeof(uiolen). On machines where this would make a
- difference, it is best for portability to compile libI77 with
- -DUIOLEN_int (which will render the change invisible). */
-/* 4 March 1998: open.c: fix glitch in comparing file names under
- -DNON_UNIX_STDIO */
-/* 17 March 1998: endfile.c, open.c: acquire temporary files from tmpfile(),
- unless compiled with -DNON_ANSI_STDIO, which uses mktemp().
- New buffering scheme independent of NON_UNIX_STDIO for
- handling T format items. Now -DNON_UNIX_STDIO is no
- longer be necessary for Linux, and libf2c no longer
- causes stderr to be buffered -- the former setbuf or
- setvbuf call for stderr was to make T format items work.
- open.c: use the Posix access() function to check existence
- or nonexistence of files, except under -DNON_POSIX_STDIO,
- where trial fopen calls are used. */
-/* 5 April 1998: wsfe.c: make $ format item work: this was lost in the
- changes of 17 March 1998. */
-/* 28 May 1998: backspace.c dfe.c due.c iio.c lread.c rsfe.c sue.c wsfe.c:
- set f__curunit sooner so various error messages will
- correctly identify the I/O unit involved. */
-/* 17 June 1998: lread.c: unless compiled with
- ALLOW_FLOAT_IN_INTEGER_LIST_INPUT #defined, treat
- floating-point numbers (containing either a decimal point
- or an exponent field) as errors when they appear as list
- input for integer data. */
-/* 7 Sept. 1998: move e_wdfe from sfe.c to dfe.c, where it was originally.
- Why did it ever move to sfe.c? */
-/* 2 May 1999: open.c: set f__external (to get "external" versus "internal"
- right in the error message if we cannot open the file).
- err.c: cast a pointer difference to (int) for %d.
- rdfmt.c: omit fixed-length buffer that could be overwritten
- by formats Inn or Lnn with nn > 83. */
-/* 3 May 1999: open.c: insert two casts for machines with 64-bit longs. */
-/* 18 June 1999: backspace.c: allow for b->ufd changing in t_runc */
-/* 27 June 1999: rsne.c: fix bug in namelist input: a misplaced increment */
-/* could cause wrong array elements to be assigned; e.g., */
-/* "&input k(5)=10*1 &end" assigned k(5) and k(15..23) */
-/* 15 Nov. 1999: endfile.c: set state to writing (b->uwrt = 1) when an */
-/* endfile statement requires copying the file. */
-/* (Otherwise an immediately following rewind statement */
-/* could make the file appear empty.) Also, supply a */
-/* missing (long) cast in the sprintf call. */
-/* sfe.c: add #ifdef ALWAYS_FLUSH logic, for formatted I/O: */
-/* Compiling libf2c with -DALWAYS_FLUSH should prevent losing */
-/* any data in buffers should the program fault. It also */
-/* makes the program run more slowly. */
-/* 20 April 2000: rsne.c, xwsne.c: tweaks that only matter if ftnint and */
-/* ftnlen are of different fundamental types (different numbers */
-/* of bits). Since these files will not compile when this */
-/* change matters, the above VERSION string remains unchanged. */
-/* 4 July 2000: adjustments to permit compilation by C++ compilers; */
-/* VERSION string remains unchanged. */
-/* 5 Dec. 2000: lread.c: under namelist input, when reading a logical array, */
-/* treat Tstuff= and Fstuff= as new assignments rather than as */
-/* logical constants. */
-/* 22 Feb. 2001: endfile.c: adjust to use truncate() unless compiled with */
-/* -DNO_TRUNCATE (or with -DMSDOS). */
-/* 1 March 2001: endfile.c: switch to ftruncate (absent -DNO_TRUNCATE), */
-/* thus permitting truncation of scratch files on true Unix */
-/* systems, where scratch files have no name. Add an fflush() */
-/* (surprisingly) needed on some Linux systems. */
-/* 11 Oct. 2001: backspac.c dfe.c due.c endfile.c err.c fio.h fmt.c fmt.h */
-/* inquire.c open.c rdfmt.c sue.c util.c: change fseek and */
-/* ftell to FSEEK and FTELL (#defined to be fseek and ftell, */
-/* respectively, in fio.h unless otherwise #defined), and use */
-/* type OFF_T (#defined to be long unless otherwise #defined) */
-/* to permit handling files over 2GB long where possible, */
-/* with suitable -D options, provided for some systems in new */
-/* header file sysdep1.h (copied from sysdep1.h0 by default). */
-/* 15 Nov. 2001: endfile.c: add FSEEK after FTRUNCATE. */
-/* 28 Nov. 2001: fmt.h lwrite.c wref.c and (new) signbit.c: on IEEE systems, */
-/* print -0 as -0 when compiled with -DSIGNED_ZEROS. See */
-/* comments in makefile or (better) libf2c/makefile.* . */
-/* 6 Sept. 2002: rsne.c: fix bug with multiple repeat counts in reading */
-/* namelists, e.g., &nl a(2) = 3*1.0, 2*2.0, 3*3.0 / */
-/* 21 March 2003: err.c: before writing to a file after reading from it, */
-/* f_seek(file, 0, SEEK_CUR) to make writing legal in ANSI C. */
diff --git a/Modules/ThirdParty/6S/src/libf2c/i_abs.c b/Modules/ThirdParty/6S/src/libf2c/i_abs.c
deleted file mode 100644
index 07380b9..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/i_abs.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-integer i_abs(x) integer *x;
-#else
-integer i_abs(integer *x)
-#endif
-{
-if(*x >= 0)
- return(*x);
-return(- *x);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/i_dim.c b/Modules/ThirdParty/6S/src/libf2c/i_dim.c
deleted file mode 100644
index 41ee44a..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/i_dim.c
+++ /dev/null
@@ -1,19 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-integer i_dim(a,b) integer *a, *b;
-#else
-integer i_dim(integer *a, integer *b)
-#endif
-{
-return( *a > *b ? *a - *b : 0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/i_dnnt.c b/Modules/ThirdParty/6S/src/libf2c/i_dnnt.c
deleted file mode 100644
index 8d52890..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/i_dnnt.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double floor();
-integer i_dnnt(x) doublereal *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-integer i_dnnt(doublereal *x)
-#endif
-{
-return (integer)(*x >= 0. ? floor(*x + .5) : -floor(.5 - *x));
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/i_indx.c b/Modules/ThirdParty/6S/src/libf2c/i_indx.c
deleted file mode 100644
index 3508906..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/i_indx.c
+++ /dev/null
@@ -1,35 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-integer i_indx(a, b, la, lb) char *a, *b; ftnlen la, lb;
-#else
-integer i_indx(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
-{
-ftnlen i, n;
-char *s, *t, *bend;
-
-n = la - lb + 1;
-bend = b + lb;
-
-for(i = 0 ; i < n ; ++i)
- {
- s = a + i;
- t = b;
- while(t < bend)
- if(*s++ != *t++)
- goto no;
- return(i+1);
- no: ;
- }
-return(0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/i_len.c b/Modules/ThirdParty/6S/src/libf2c/i_len.c
deleted file mode 100644
index 4ecbff8..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/i_len.c
+++ /dev/null
@@ -1,19 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-integer i_len(s, n) char *s; ftnlen n;
-#else
-integer i_len(char *s, ftnlen n)
-#endif
-{
-return(n);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/i_mod.c b/Modules/ThirdParty/6S/src/libf2c/i_mod.c
deleted file mode 100644
index 3a1c8dd..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/i_mod.c
+++ /dev/null
@@ -1,19 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-integer i_mod(a,b) integer *a, *b;
-#else
-integer i_mod(integer *a, integer *b)
-#endif
-{
-return( *a % *b);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/i_nint.c b/Modules/ThirdParty/6S/src/libf2c/i_nint.c
deleted file mode 100644
index 20cb167..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/i_nint.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double floor();
-integer i_nint(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-integer i_nint(real *x)
-#endif
-{
-return (integer)(*x >= 0 ? floor(*x + .5) : -floor(.5 - *x));
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/i_sign.c b/Modules/ThirdParty/6S/src/libf2c/i_sign.c
deleted file mode 100644
index 5588572..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/i_sign.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-integer i_sign(a,b) integer *a, *b;
-#else
-integer i_sign(integer *a, integer *b)
-#endif
-{
-integer x;
-x = (*a >= 0 ? *a : - *a);
-return( *b >= 0 ? x : -x);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/iargc_.c b/Modules/ThirdParty/6S/src/libf2c/iargc_.c
deleted file mode 100644
index 76ae6b9..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/iargc_.c
+++ /dev/null
@@ -1,20 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-ftnint iargc_()
-#else
-ftnint iargc_(void)
-#endif
-{
-extern int xargc;
-return ( xargc - 1 );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/iio.c b/Modules/ThirdParty/6S/src/libf2c/iio.c
deleted file mode 100644
index 8eeae12..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/iio.c
+++ /dev/null
@@ -1,162 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "fmt.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern char *f__icptr;
-char *f__icend;
-extern icilist *f__svic;
-int f__icnum;
-
- int
-z_getc(Void)
-{
- if(f__recpos++ < f__svic->icirlen) {
- if(f__icptr >= f__icend) err(f__svic->iciend,(EOF),"endfile");
- return(*(unsigned char *)f__icptr++);
- }
- return '\n';
-}
-
- void
-#ifdef KR_headers
-z_putc(c)
-#else
-z_putc(int c)
-#endif
-{
- if (f__icptr < f__icend && f__recpos++ < f__svic->icirlen)
- *f__icptr++ = c;
-}
-
- int
-z_rnew(Void)
-{
- f__icptr = f__svic->iciunit + (++f__icnum)*f__svic->icirlen;
- f__recpos = 0;
- f__cursor = 0;
- f__hiwater = 0;
- return 1;
-}
-
- static int
-z_endp(Void)
-{
- (*f__donewrec)();
- return 0;
- }
-
- int
-#ifdef KR_headers
-c_si(a) icilist *a;
-#else
-c_si(icilist *a)
-#endif
-{
- f__elist = (cilist *)a;
- f__fmtbuf=a->icifmt;
- f__curunit = 0;
- f__sequential=f__formatted=1;
- f__external=0;
- if(pars_f(f__fmtbuf)<0)
- err(a->icierr,100,"startint");
- fmt_bg();
- f__cblank=f__cplus=f__scale=0;
- f__svic=a;
- f__icnum=f__recpos=0;
- f__cursor = 0;
- f__hiwater = 0;
- f__icptr = a->iciunit;
- f__icend = f__icptr + a->icirlen*a->icirnum;
- f__cf = 0;
- return(0);
-}
-
- int
-iw_rev(Void)
-{
- if(f__workdone)
- z_endp();
- f__hiwater = f__recpos = f__cursor = 0;
- return(f__workdone=0);
- }
-
-#ifdef KR_headers
-integer s_rsfi(a) icilist *a;
-#else
-integer s_rsfi(icilist *a)
-#endif
-{ int n;
- if(n=c_si(a)) return(n);
- f__reading=1;
- f__doed=rd_ed;
- f__doned=rd_ned;
- f__getn=z_getc;
- f__dorevert = z_endp;
- f__donewrec = z_rnew;
- f__doend = z_endp;
- return(0);
-}
-
- int
-z_wnew(Void)
-{
- if (f__recpos < f__hiwater) {
- f__icptr += f__hiwater - f__recpos;
- f__recpos = f__hiwater;
- }
- while(f__recpos++ < f__svic->icirlen)
- *f__icptr++ = ' ';
- f__recpos = 0;
- f__cursor = 0;
- f__hiwater = 0;
- f__icnum++;
- return 1;
-}
-#ifdef KR_headers
-integer s_wsfi(a) icilist *a;
-#else
-integer s_wsfi(icilist *a)
-#endif
-{ int n;
- if(n=c_si(a)) return(n);
- f__reading=0;
- f__doed=w_ed;
- f__doned=w_ned;
- f__putn=z_putc;
- f__dorevert = iw_rev;
- f__donewrec = z_wnew;
- f__doend = z_endp;
- return(0);
-}
-integer e_rsfi(Void)
-{ int n = en_fio();
- f__fmtbuf = NULL;
- return(n);
-}
-integer e_wsfi(Void)
-{
- int n;
- n = en_fio();
- f__fmtbuf = NULL;
- if(f__svic->icirnum != 1
- && (f__icnum > f__svic->icirnum
- || (f__icnum == f__svic->icirnum && (f__recpos | f__hiwater))))
- err(f__svic->icierr,110,"inwrite");
- if (f__recpos < f__hiwater)
- f__recpos = f__hiwater;
- if (f__recpos >= f__svic->icirlen)
- err(f__svic->icierr,110,"recend");
- if (!f__recpos && f__icnum)
- return n;
- while(f__recpos++ < f__svic->icirlen)
- *f__icptr++ = ' ';
- return n;
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/ilnw.c b/Modules/ThirdParty/6S/src/libf2c/ilnw.c
deleted file mode 100644
index 3c2dd19..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/ilnw.c
+++ /dev/null
@@ -1,86 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "lio.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern char *f__icptr;
-extern char *f__icend;
-extern icilist *f__svic;
-extern int f__icnum;
-#ifdef KR_headers
-extern void z_putc();
-#else
-extern void z_putc(int);
-#endif
-
- static int
-z_wSL(Void)
-{
- while(f__recpos < f__svic->icirlen)
- z_putc(' ');
- return z_rnew();
- }
-
- static void
-#ifdef KR_headers
-c_liw(a) icilist *a;
-#else
-c_liw(icilist *a)
-#endif
-{
- f__reading = 0;
- f__external = 0;
- f__formatted = 1;
- f__putn = z_putc;
- L_len = a->icirlen;
- f__donewrec = z_wSL;
- f__svic = a;
- f__icnum = f__recpos = 0;
- f__cursor = 0;
- f__cf = 0;
- f__curunit = 0;
- f__icptr = a->iciunit;
- f__icend = f__icptr + a->icirlen*a->icirnum;
- f__elist = (cilist *)a;
- }
-
- integer
-#ifdef KR_headers
-s_wsni(a) icilist *a;
-#else
-s_wsni(icilist *a)
-#endif
-{
- cilist ca;
-
- c_liw(a);
- ca.cifmt = a->icifmt;
- x_wsne(&ca);
- z_wSL();
- return 0;
- }
-
- integer
-#ifdef KR_headers
-s_wsli(a) icilist *a;
-#else
-s_wsli(icilist *a)
-#endif
-{
- f__lioproc = l_write;
- c_liw(a);
- return(0);
- }
-
-integer e_wsli(Void)
-{
- z_wSL();
- return(0);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/inquire.c b/Modules/ThirdParty/6S/src/libf2c/inquire.c
deleted file mode 100644
index 620c1d3..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/inquire.c
+++ /dev/null
@@ -1,121 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "string.h"
-#ifdef NON_UNIX_STDIO
-#ifndef MSDOS
-#include "unistd.h" /* for access() */
-#endif
-#endif
-#ifdef KR_headers
-integer f_inqu(a) inlist *a;
-#else
-#ifdef __cplusplus
-extern "C" integer f_inqu(inlist*);
-#endif
-#ifdef MSDOS
-#undef abs
-#undef min
-#undef max
-/* OTB Modifications */
-/* #include "io.h" */
-#endif
-integer f_inqu(inlist *a)
-#endif
-{ flag byfile;
- int i;
-#ifndef NON_UNIX_STDIO
- int n;
-#endif
- unit *p;
- char buf[256];
- long x;
- if(a->infile!=NULL)
- { byfile=1;
- g_char(a->infile,a->infilen,buf);
-#ifdef NON_UNIX_STDIO
- x = access(buf,0) ? -1 : 0;
- for(i=0,p=NULL;i<MXUNIT;i++)
- if(f__units[i].ufd != NULL
- && f__units[i].ufnm != NULL
- && !strcmp(f__units[i].ufnm,buf)) {
- p = &f__units[i];
- break;
- }
-#else
- x=f__inode(buf, &n);
- for(i=0,p=NULL;i<MXUNIT;i++)
- if(f__units[i].uinode==x
- && f__units[i].ufd!=NULL
- && f__units[i].udev == n) {
- p = &f__units[i];
- break;
- }
-#endif
- }
- else
- {
- byfile=0;
- if(a->inunit<MXUNIT && a->inunit>=0)
- {
- p= &f__units[a->inunit];
- }
- else
- {
- p=NULL;
- }
- }
- if(a->inex!=NULL)
- if(byfile && x != -1 || !byfile && p!=NULL)
- *a->inex=1;
- else *a->inex=0;
- if(a->inopen!=NULL)
- if(byfile) *a->inopen=(p!=NULL);
- else *a->inopen=(p!=NULL && p->ufd!=NULL);
- if(a->innum!=NULL) *a->innum= p-f__units;
- if(a->innamed!=NULL)
- if(byfile || p!=NULL && p->ufnm!=NULL)
- *a->innamed=1;
- else *a->innamed=0;
- if(a->inname!=NULL)
- if(byfile)
- b_char(buf,a->inname,a->innamlen);
- else if(p!=NULL && p->ufnm!=NULL)
- b_char(p->ufnm,a->inname,a->innamlen);
- if(a->inacc!=NULL && p!=NULL && p->ufd!=NULL)
- if(p->url)
- b_char("DIRECT",a->inacc,a->inacclen);
- else b_char("SEQUENTIAL",a->inacc,a->inacclen);
- if(a->inseq!=NULL)
- if(p!=NULL && p->url)
- b_char("NO",a->inseq,a->inseqlen);
- else b_char("YES",a->inseq,a->inseqlen);
- if(a->indir!=NULL)
- if(p==NULL || p->url)
- b_char("YES",a->indir,a->indirlen);
- else b_char("NO",a->indir,a->indirlen);
- if(a->infmt!=NULL)
- if(p!=NULL && p->ufmt==0)
- b_char("UNFORMATTED",a->infmt,a->infmtlen);
- else b_char("FORMATTED",a->infmt,a->infmtlen);
- if(a->inform!=NULL)
- if(p!=NULL && p->ufmt==0)
- b_char("NO",a->inform,a->informlen);
- else b_char("YES",a->inform,a->informlen);
- if(a->inunf)
- if(p!=NULL && p->ufmt==0)
- b_char("YES",a->inunf,a->inunflen);
- else if (p!=NULL) b_char("NO",a->inunf,a->inunflen);
- else b_char("UNKNOWN",a->inunf,a->inunflen);
- if(a->inrecl!=NULL && p!=NULL)
- *a->inrecl=p->url;
- if(a->innrec!=NULL && p!=NULL && p->url>0)
- *a->innrec=(ftnint)(FTELL(p->ufd)/p->url+1);
- if(a->inblank && p!=NULL && p->ufmt)
- if(p->ublnk)
- b_char("ZERO",a->inblank,a->inblanklen);
- else b_char("NULL",a->inblank,a->inblanklen);
- return(0);
-}
diff --git a/Modules/ThirdParty/6S/src/libf2c/l_ge.c b/Modules/ThirdParty/6S/src/libf2c/l_ge.c
deleted file mode 100644
index 48465a2..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/l_ge.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-extern integer s_cmp();
-logical l_ge(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
-extern integer s_cmp(char *, char *, ftnlen, ftnlen);
-logical l_ge(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
-{
-return(s_cmp(a,b,la,lb) >= 0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/l_gt.c b/Modules/ThirdParty/6S/src/libf2c/l_gt.c
deleted file mode 100644
index 4a41b24..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/l_gt.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-extern integer s_cmp();
-logical l_gt(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
-extern integer s_cmp(char *, char *, ftnlen, ftnlen);
-logical l_gt(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
-{
-return(s_cmp(a,b,la,lb) > 0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/l_le.c b/Modules/ThirdParty/6S/src/libf2c/l_le.c
deleted file mode 100644
index afd01d9..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/l_le.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-extern integer s_cmp();
-logical l_le(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
-extern integer s_cmp(char *, char *, ftnlen, ftnlen);
-logical l_le(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
-{
-return(s_cmp(a,b,la,lb) <= 0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/l_lt.c b/Modules/ThirdParty/6S/src/libf2c/l_lt.c
deleted file mode 100644
index a427c06..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/l_lt.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-extern integer s_cmp();
-logical l_lt(a,b,la,lb) char *a, *b; ftnlen la, lb;
-#else
-extern integer s_cmp(char *, char *, ftnlen, ftnlen);
-logical l_lt(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
-{
-return(s_cmp(a,b,la,lb) < 0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/lbitbits.c b/Modules/ThirdParty/6S/src/libf2c/lbitbits.c
deleted file mode 100644
index c02efee..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/lbitbits.c
+++ /dev/null
@@ -1,71 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifndef LONGBITS
-#define LONGBITS 32
-#endif
-
- integer
-#ifdef KR_headers
-lbit_bits(a, b, len) integer a, b, len;
-#else
-lbit_bits(integer a, integer b, integer len)
-#endif
-{
- /* Assume 2's complement arithmetic */
-
- unsigned long x, y;
-
- x = (unsigned long) a;
- y = (unsigned long)-1L;
- x >>= b;
- y <<= len;
- return (integer)(x & ~y);
- }
-
- integer
-#ifdef KR_headers
-lbit_cshift(a, b, len) integer a, b, len;
-#else
-lbit_cshift(integer a, integer b, integer len)
-#endif
-{
- unsigned long x, y, z;
-
- x = (unsigned long)a;
- if (len <= 0) {
- if (len == 0)
- return 0;
- goto full_len;
- }
- if (len >= LONGBITS) {
- full_len:
- if (b >= 0) {
- b %= LONGBITS;
- return (integer)(x << b | x >> (LONGBITS -b) );
- }
- b = -b;
- b %= LONGBITS;
- return (integer)( x << (LONGBITS - b) | x >> b);
- }
- y = z = (unsigned long)-1;
- y <<= len;
- z &= ~y;
- y &= x;
- x &= z;
- if (b >= 0) {
- b %= len;
- return (integer)(y | z & (x << b | x >> (len - b)));
- }
- b = -b;
- b %= len;
- return (integer)(y | z & (x >> b | x << (len - b)));
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/lbitshft.c b/Modules/ThirdParty/6S/src/libf2c/lbitshft.c
deleted file mode 100644
index 2bc0226..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/lbitshft.c
+++ /dev/null
@@ -1,20 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- integer
-#ifdef KR_headers
-lbit_shift(a, b) integer a; integer b;
-#else
-lbit_shift(integer a, integer b)
-#endif
-{
- return b >= 0 ? a << b : (integer)((uinteger)a >> -b);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/libf2c.lbc b/Modules/ThirdParty/6S/src/libf2c/libf2c.lbc
deleted file mode 100644
index c51c0aa..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/libf2c.lbc
+++ /dev/null
@@ -1,153 +0,0 @@
-abort_.obj
-backspac.obj
-c_abs.obj
-c_cos.obj
-c_div.obj
-c_exp.obj
-c_log.obj
-c_sin.obj
-c_sqrt.obj
-cabs.obj
-close.obj
-d_abs.obj
-d_acos.obj
-d_asin.obj
-d_atan.obj
-d_atn2.obj
-d_cnjg.obj
-d_cos.obj
-d_cosh.obj
-d_dim.obj
-d_exp.obj
-d_imag.obj
-d_int.obj
-d_lg10.obj
-d_log.obj
-d_mod.obj
-d_nint.obj
-d_prod.obj
-d_sign.obj
-d_sin.obj
-d_sinh.obj
-d_sqrt.obj
-d_tan.obj
-d_tanh.obj
-derf_.obj
-derfc_.obj
-dfe.obj
-dolio.obj
-dtime_.obj
-due.obj
-ef1asc_.obj
-ef1cmc_.obj
-endfile.obj
-erf_.obj
-erfc_.obj
-err.obj
-etime_.obj
-exit_.obj
-f77_aloc.obj
-f77vers.obj
-fmt.obj
-fmtlib.obj
-ftell_.obj
-getarg_.obj
-getenv_.obj
-h_abs.obj
-h_dim.obj
-h_dnnt.obj
-h_indx.obj
-h_len.obj
-h_mod.obj
-h_nint.obj
-h_sign.obj
-hl_ge.obj
-hl_gt.obj
-hl_le.obj
-hl_lt.obj
-i77vers.obj
-i_abs.obj
-i_dim.obj
-i_dnnt.obj
-i_indx.obj
-i_len.obj
-i_mod.obj
-i_nint.obj
-i_sign.obj
-iargc_.obj
-iio.obj
-ilnw.obj
-inquire.obj
-l_ge.obj
-l_gt.obj
-l_le.obj
-l_lt.obj
-lbitbits.obj
-lbitshft.obj
-lread.obj
-lwrite.obj
-main.obj
-open.obj
-pow_ci.obj
-pow_dd.obj
-pow_di.obj
-pow_hh.obj
-pow_ii.obj
-pow_ri.obj
-pow_zi.obj
-pow_zz.obj
-r_abs.obj
-r_acos.obj
-r_asin.obj
-r_atan.obj
-r_atn2.obj
-r_cnjg.obj
-r_cos.obj
-r_cosh.obj
-r_dim.obj
-r_exp.obj
-r_imag.obj
-r_int.obj
-r_lg10.obj
-r_log.obj
-r_mod.obj
-r_nint.obj
-r_sign.obj
-r_sin.obj
-r_sinh.obj
-r_sqrt.obj
-r_tan.obj
-r_tanh.obj
-rdfmt.obj
-rewind.obj
-rsfe.obj
-rsli.obj
-rsne.obj
-s_cat.obj
-s_cmp.obj
-s_copy.obj
-s_paus.obj
-s_rnge.obj
-s_stop.obj
-sfe.obj
-sig_die.obj
-signal_.obj
-sue.obj
-system_.obj
-typesize.obj
-uio.obj
-uninit.obj
-util.obj
-wref.obj
-wrtfmt.obj
-wsfe.obj
-wsle.obj
-wsne.obj
-xwsne.obj
-z_abs.obj
-z_cos.obj
-z_div.obj
-z_exp.obj
-z_log.obj
-z_sin.obj
-z_sqrt.obj
diff --git a/Modules/ThirdParty/6S/src/libf2c/libf2c.sy b/Modules/ThirdParty/6S/src/libf2c/libf2c.sy
deleted file mode 100644
index bcba643..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/libf2c.sy
+++ /dev/null
@@ -1,153 +0,0 @@
-+abort_.obj &
-+backspac.obj &
-+c_abs.obj &
-+c_cos.obj &
-+c_div.obj &
-+c_exp.obj &
-+c_log.obj &
-+c_sin.obj &
-+c_sqrt.obj &
-+cabs.obj &
-+close.obj &
-+d_abs.obj &
-+d_acos.obj &
-+d_asin.obj &
-+d_atan.obj &
-+d_atn2.obj &
-+d_cnjg.obj &
-+d_cos.obj &
-+d_cosh.obj &
-+d_dim.obj &
-+d_exp.obj &
-+d_imag.obj &
-+d_int.obj &
-+d_lg10.obj &
-+d_log.obj &
-+d_mod.obj &
-+d_nint.obj &
-+d_prod.obj &
-+d_sign.obj &
-+d_sin.obj &
-+d_sinh.obj &
-+d_sqrt.obj &
-+d_tan.obj &
-+d_tanh.obj &
-+derf_.obj &
-+derfc_.obj &
-+dfe.obj &
-+dolio.obj &
-+dtime_.obj &
-+due.obj &
-+ef1asc_.obj &
-+ef1cmc_.obj &
-+endfile.obj &
-+erf_.obj &
-+erfc_.obj &
-+err.obj &
-+etime_.obj &
-+exit_.obj &
-+f77_aloc.obj &
-+f77vers.obj &
-+fmt.obj &
-+fmtlib.obj &
-+ftell_.obj &
-+getarg_.obj &
-+getenv_.obj &
-+h_abs.obj &
-+h_dim.obj &
-+h_dnnt.obj &
-+h_indx.obj &
-+h_len.obj &
-+h_mod.obj &
-+h_nint.obj &
-+h_sign.obj &
-+hl_ge.obj &
-+hl_gt.obj &
-+hl_le.obj &
-+hl_lt.obj &
-+i77vers.obj &
-+i_abs.obj &
-+i_dim.obj &
-+i_dnnt.obj &
-+i_indx.obj &
-+i_len.obj &
-+i_mod.obj &
-+i_nint.obj &
-+i_sign.obj &
-+iargc_.obj &
-+iio.obj &
-+ilnw.obj &
-+inquire.obj &
-+l_ge.obj &
-+l_gt.obj &
-+l_le.obj &
-+l_lt.obj &
-+lbitbits.obj &
-+lbitshft.obj &
-+lread.obj &
-+lwrite.obj &
-+main.obj &
-+open.obj &
-+pow_ci.obj &
-+pow_dd.obj &
-+pow_di.obj &
-+pow_hh.obj &
-+pow_ii.obj &
-+pow_ri.obj &
-+pow_zi.obj &
-+pow_zz.obj &
-+r_abs.obj &
-+r_acos.obj &
-+r_asin.obj &
-+r_atan.obj &
-+r_atn2.obj &
-+r_cnjg.obj &
-+r_cos.obj &
-+r_cosh.obj &
-+r_dim.obj &
-+r_exp.obj &
-+r_imag.obj &
-+r_int.obj &
-+r_lg10.obj &
-+r_log.obj &
-+r_mod.obj &
-+r_nint.obj &
-+r_sign.obj &
-+r_sin.obj &
-+r_sinh.obj &
-+r_sqrt.obj &
-+r_tan.obj &
-+r_tanh.obj &
-+rdfmt.obj &
-+rewind.obj &
-+rsfe.obj &
-+rsli.obj &
-+rsne.obj &
-+s_cat.obj &
-+s_cmp.obj &
-+s_copy.obj &
-+s_paus.obj &
-+s_rnge.obj &
-+s_stop.obj &
-+sfe.obj &
-+sig_die.obj &
-+signal_.obj &
-+sue.obj &
-+system_.obj &
-+typesize.obj &
-+uio.obj &
-+uninit.obj &
-+util.obj &
-+wref.obj &
-+wrtfmt.obj &
-+wsfe.obj &
-+wsle.obj &
-+wsne.obj &
-+xwsne.obj &
-+z_abs.obj &
-+z_cos.obj &
-+z_div.obj &
-+z_exp.obj &
-+z_log.obj &
-+z_sin.obj &
-+z_sqrt.obj
diff --git a/Modules/ThirdParty/6S/src/libf2c/lio.h b/Modules/ThirdParty/6S/src/libf2c/lio.h
deleted file mode 100644
index 0123172..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/lio.h
+++ /dev/null
@@ -1,74 +0,0 @@
-/* copy of ftypes from the compiler */
-/* variable types
- * numeric assumptions:
- * int < reals < complexes
- * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX
- */
-
-/* 0-10 retain their old (pre LOGICAL*1, etc.) */
-/* values to allow mixing old and new objects. */
-
-#define TYUNKNOWN 0
-#define TYADDR 1
-#define TYSHORT 2
-#define TYLONG 3
-#define TYREAL 4
-#define TYDREAL 5
-#define TYCOMPLEX 6
-#define TYDCOMPLEX 7
-#define TYLOGICAL 8
-#define TYCHAR 9
-#define TYSUBR 10
-#define TYINT1 11
-#define TYLOGICAL1 12
-#define TYLOGICAL2 13
-#ifdef Allow_TYQUAD
-#undef TYQUAD
-#define TYQUAD 14
-#endif
-
-#define LINTW 24
-#define LINE 80
-#define LLOGW 2
-#ifdef Old_list_output
-#define LLOW 1.0
-#define LHIGH 1.e9
-#define LEFMT " %# .8E"
-#define LFFMT " %# .9g"
-#else
-#define LGFMT "%.9G"
-#endif
-/* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */
-#define LEFBL 24
-
-typedef union
-{
- char flchar;
- short flshort;
- ftnint flint;
-#ifdef Allow_TYQUAD
- longint fllongint;
-#endif
- real flreal;
- doublereal fldouble;
-} flex;
-extern int f__scale;
-#ifdef KR_headers
-extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)();
-extern int l_read(), l_write();
-#else
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
-extern int l_write(ftnint*, char*, ftnlen, ftnint);
-extern void x_wsne(cilist*);
-extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*);
-extern int l_read(ftnint*,char*,ftnlen,ftnint);
-extern integer e_rsle(void), e_wsle(void), s_wsne(cilist*);
-extern int z_rnew(void);
-#ifdef __cplusplus
- }
-#endif
-#endif
-extern ftnint L_len;
diff --git a/Modules/ThirdParty/6S/src/libf2c/lread.c b/Modules/ThirdParty/6S/src/libf2c/lread.c
deleted file mode 100644
index f978bf1..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/lread.c
+++ /dev/null
@@ -1,808 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-
-/* Compile with -DF8X_NML_ELIDE_QUOTES to permit eliding quotation */
-/* marks in namelist input a la the Fortran 8X Draft published in */
-/* the May 1989 issue of Fortran Forum. */
-
-
-extern char *f__fmtbuf;
-
-#ifdef Allow_TYQUAD
-static longint f__llx;
-#endif
-
-#ifdef KR_headers
-extern double atof();
-extern char *malloc(), *realloc();
-int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)();
-#else
-#undef abs
-#undef min
-#undef max
-#include "stdlib.h"
-#endif
-
-#include "fmt.h"
-#include "lio.h"
-#include "ctype.h"
-#include "fp.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifndef KR_headers
-int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint), (*l_getc)(void),
- (*l_ungetc)(int,FILE*);
-#endif
-
-int l_eof;
-
-#define isblnk(x) (f__ltab[x+1]&B)
-#define issep(x) (f__ltab[x+1]&SX)
-#define isapos(x) (f__ltab[x+1]&AX)
-#define isexp(x) (f__ltab[x+1]&EX)
-#define issign(x) (f__ltab[x+1]&SG)
-#define iswhit(x) (f__ltab[x+1]&WH)
-#define SX 1
-#define B 2
-#define AX 4
-#define EX 8
-#define SG 16
-#define WH 32
-char f__ltab[128+1] = { /* offset one for EOF */
- 0,
- 0,0,AX,0,0,0,0,0,0,WH|B,SX|WH,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- SX|B|WH,0,AX,0,0,0,0,AX,0,0,0,SG,SX,SG,0,SX,
- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
- 0,0,0,0,EX,EX,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,0,
- AX,0,0,0,EX,EX,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,0
-};
-
-#ifdef ungetc
- static int
-#ifdef KR_headers
-un_getc(x,f__cf) int x; FILE *f__cf;
-#else
-un_getc(int x, FILE *f__cf)
-#endif
-{ return ungetc(x,f__cf); }
-#else
-#define un_getc ungetc
-#ifdef KR_headers
- extern int ungetc();
-#else
-extern int ungetc(int, FILE*); /* for systems with a buggy stdio.h */
-#endif
-#endif
-
- int
-t_getc(Void)
-{ int ch;
- if(f__curunit->uend) return(EOF);
- if((ch=getc(f__cf))!=EOF) return(ch);
- if(feof(f__cf))
- f__curunit->uend = l_eof = 1;
- return(EOF);
-}
-integer e_rsle(Void)
-{
- int ch;
- if(f__curunit->uend) return(0);
- while((ch=t_getc())!='\n')
- if (ch == EOF) {
- if(feof(f__cf))
- f__curunit->uend = l_eof = 1;
- return EOF;
- }
- return(0);
-}
-
-flag f__lquit;
-int f__lcount,f__ltype,nml_read;
-char *f__lchar;
-double f__lx,f__ly;
-#define ERR(x) if(n=(x)) return(n)
-#define GETC(x) (x=(*l_getc)())
-#define Ungetc(x,y) (*l_ungetc)(x,y)
-
- static int
-#ifdef KR_headers
-l_R(poststar, reqint) int poststar, reqint;
-#else
-l_R(int poststar, int reqint)
-#endif
-{
- char s[FMAX+EXPMAXDIGS+4];
- register int ch;
- register char *sp, *spe, *sp1;
- long e, exp;
- int havenum, havestar, se;
-
- if (!poststar) {
- if (f__lcount > 0)
- return(0);
- f__lcount = 1;
- }
-#ifdef Allow_TYQUAD
- f__llx = 0;
-#endif
- f__ltype = 0;
- exp = 0;
- havestar = 0;
-retry:
- sp1 = sp = s;
- spe = sp + FMAX;
- havenum = 0;
-
- switch(GETC(ch)) {
- case '-': *sp++ = ch; sp1++; spe++;
- case '+':
- GETC(ch);
- }
- while(ch == '0') {
- ++havenum;
- GETC(ch);
- }
- while(isdigit(ch)) {
- if (sp < spe) *sp++ = ch;
- else ++exp;
- GETC(ch);
- }
- if (ch == '*' && !poststar) {
- if (sp == sp1 || exp || *s == '-') {
- errfl(f__elist->cierr,112,"bad repetition count");
- }
- poststar = havestar = 1;
- *sp = 0;
- f__lcount = atoi(s);
- goto retry;
- }
- if (ch == '.') {
-#ifndef ALLOW_FLOAT_IN_INTEGER_LIST_INPUT
- if (reqint)
- errfl(f__elist->cierr,115,"invalid integer");
-#endif
- GETC(ch);
- if (sp == sp1)
- while(ch == '0') {
- ++havenum;
- --exp;
- GETC(ch);
- }
- while(isdigit(ch)) {
- if (sp < spe)
- { *sp++ = ch; --exp; }
- GETC(ch);
- }
- }
- havenum += sp - sp1;
- se = 0;
- if (issign(ch))
- goto signonly;
- if (havenum && isexp(ch)) {
-#ifndef ALLOW_FLOAT_IN_INTEGER_LIST_INPUT
- if (reqint)
- errfl(f__elist->cierr,115,"invalid integer");
-#endif
- GETC(ch);
- if (issign(ch)) {
-signonly:
- if (ch == '-') se = 1;
- GETC(ch);
- }
- if (!isdigit(ch)) {
-bad:
- errfl(f__elist->cierr,112,"exponent field");
- }
-
- e = ch - '0';
- while(isdigit(GETC(ch))) {
- e = 10*e + ch - '0';
- if (e > EXPMAX)
- goto bad;
- }
- if (se)
- exp -= e;
- else
- exp += e;
- }
- (void) Ungetc(ch, f__cf);
- if (sp > sp1) {
- ++havenum;
- while(*--sp == '0')
- ++exp;
- if (exp)
- sprintf(sp+1, "e%ld", exp);
- else
- sp[1] = 0;
- f__lx = atof(s);
-#ifdef Allow_TYQUAD
- if (reqint&2 && (se = sp - sp1 + exp) > 14 && se < 20) {
- /* Assuming 64-bit longint and 32-bit long. */
- if (exp < 0)
- sp += exp;
- if (sp1 <= sp) {
- f__llx = *sp1 - '0';
- while(++sp1 <= sp)
- f__llx = 10*f__llx + (*sp1 - '0');
- }
- while(--exp >= 0)
- f__llx *= 10;
- if (*s == '-')
- f__llx = -f__llx;
- }
-#endif
- }
- else
- f__lx = 0.;
- if (havenum)
- f__ltype = TYLONG;
- else
- switch(ch) {
- case ',':
- case '/':
- break;
- default:
- if (havestar && ( ch == ' '
- ||ch == '\t'
- ||ch == '\n'))
- break;
- if (nml_read > 1) {
- f__lquit = 2;
- return 0;
- }
- errfl(f__elist->cierr,112,"invalid number");
- }
- return 0;
- }
-
- static int
-#ifdef KR_headers
-rd_count(ch) register int ch;
-#else
-rd_count(register int ch)
-#endif
-{
- if (ch < '0' || ch > '9')
- return 1;
- f__lcount = ch - '0';
- while(GETC(ch) >= '0' && ch <= '9')
- f__lcount = 10*f__lcount + ch - '0';
- Ungetc(ch,f__cf);
- return f__lcount <= 0;
- }
-
- static int
-l_C(Void)
-{ int ch, nml_save;
- double lz;
- if(f__lcount>0) return(0);
- f__ltype=0;
- GETC(ch);
- if(ch!='(')
- {
- if (nml_read > 1 && (ch < '0' || ch > '9')) {
- Ungetc(ch,f__cf);
- f__lquit = 2;
- return 0;
- }
- if (rd_count(ch))
- if(!f__cf || !feof(f__cf))
- errfl(f__elist->cierr,112,"complex format");
- else
- err(f__elist->cierr,(EOF),"lread");
- if(GETC(ch)!='*')
- {
- if(!f__cf || !feof(f__cf))
- errfl(f__elist->cierr,112,"no star");
- else
- err(f__elist->cierr,(EOF),"lread");
- }
- if(GETC(ch)!='(')
- { Ungetc(ch,f__cf);
- return(0);
- }
- }
- else
- f__lcount = 1;
- while(iswhit(GETC(ch)));
- Ungetc(ch,f__cf);
- nml_save = nml_read;
- nml_read = 0;
- if (ch = l_R(1,0))
- return ch;
- if (!f__ltype)
- errfl(f__elist->cierr,112,"no real part");
- lz = f__lx;
- while(iswhit(GETC(ch)));
- if(ch!=',')
- { (void) Ungetc(ch,f__cf);
- errfl(f__elist->cierr,112,"no comma");
- }
- while(iswhit(GETC(ch)));
- (void) Ungetc(ch,f__cf);
- if (ch = l_R(1,0))
- return ch;
- if (!f__ltype)
- errfl(f__elist->cierr,112,"no imaginary part");
- while(iswhit(GETC(ch)));
- if(ch!=')') errfl(f__elist->cierr,112,"no )");
- f__ly = f__lx;
- f__lx = lz;
-#ifdef Allow_TYQUAD
- f__llx = 0;
-#endif
- nml_read = nml_save;
- return(0);
-}
-
- static char nmLbuf[256], *nmL_next;
- static int (*nmL_getc_save)(Void);
-#ifdef KR_headers
- static int (*nmL_ungetc_save)(/* int, FILE* */);
-#else
- static int (*nmL_ungetc_save)(int, FILE*);
-#endif
-
- static int
-nmL_getc(Void)
-{
- int rv;
- if (rv = *nmL_next++)
- return rv;
- l_getc = nmL_getc_save;
- l_ungetc = nmL_ungetc_save;
- return (*l_getc)();
- }
-
- static int
-#ifdef KR_headers
-nmL_ungetc(x, f) int x; FILE *f;
-#else
-nmL_ungetc(int x, FILE *f)
-#endif
-{
- f = f; /* banish non-use warning */
- return *--nmL_next = x;
- }
-
- static int
-#ifdef KR_headers
-Lfinish(ch, dot, rvp) int ch, dot, *rvp;
-#else
-Lfinish(int ch, int dot, int *rvp)
-#endif
-{
- char *s, *se;
- static char what[] = "namelist input";
-
- s = nmLbuf + 2;
- se = nmLbuf + sizeof(nmLbuf) - 1;
- *s++ = ch;
- while(!issep(GETC(ch)) && ch!=EOF) {
- if (s >= se) {
- nmLbuf_ovfl:
- return *rvp = err__fl(f__elist->cierr,131,what);
- }
- *s++ = ch;
- if (ch != '=')
- continue;
- if (dot)
- return *rvp = err__fl(f__elist->cierr,112,what);
- got_eq:
- *s = 0;
- nmL_getc_save = l_getc;
- l_getc = nmL_getc;
- nmL_ungetc_save = l_ungetc;
- l_ungetc = nmL_ungetc;
- nmLbuf[1] = *(nmL_next = nmLbuf) = ',';
- *rvp = f__lcount = 0;
- return 1;
- }
- if (dot)
- goto done;
- for(;;) {
- if (s >= se)
- goto nmLbuf_ovfl;
- *s++ = ch;
- if (!isblnk(ch))
- break;
- if (GETC(ch) == EOF)
- goto done;
- }
- if (ch == '=')
- goto got_eq;
- done:
- Ungetc(ch, f__cf);
- return 0;
- }
-
- static int
-l_L(Void)
-{
- int ch, rv, sawdot;
-
- if(f__lcount>0)
- return(0);
- f__lcount = 1;
- f__ltype=0;
- GETC(ch);
- if(isdigit(ch))
- {
- rd_count(ch);
- if(GETC(ch)!='*')
- if(!f__cf || !feof(f__cf))
- errfl(f__elist->cierr,112,"no star");
- else
- err(f__elist->cierr,(EOF),"lread");
- GETC(ch);
- }
- sawdot = 0;
- if(ch == '.') {
- sawdot = 1;
- GETC(ch);
- }
- switch(ch)
- {
- case 't':
- case 'T':
- if (nml_read && Lfinish(ch, sawdot, &rv))
- return rv;
- f__lx=1;
- break;
- case 'f':
- case 'F':
- if (nml_read && Lfinish(ch, sawdot, &rv))
- return rv;
- f__lx=0;
- break;
- default:
- if(isblnk(ch) || issep(ch) || ch==EOF)
- { (void) Ungetc(ch,f__cf);
- return(0);
- }
- if (nml_read > 1) {
- Ungetc(ch,f__cf);
- f__lquit = 2;
- return 0;
- }
- errfl(f__elist->cierr,112,"logical");
- }
- f__ltype=TYLONG;
- while(!issep(GETC(ch)) && ch!=EOF);
- Ungetc(ch, f__cf);
- return(0);
-}
-
-#define BUFSIZE 128
-
- static int
-l_CHAR(Void)
-{ int ch,size,i;
- static char rafail[] = "realloc failure";
- char quote,*p;
- if(f__lcount>0) return(0);
- f__ltype=0;
- if(f__lchar!=NULL) free(f__lchar);
- size=BUFSIZE;
- p=f__lchar = (char *)malloc((unsigned int)size);
- if(f__lchar == NULL)
- errfl(f__elist->cierr,113,"no space");
-
- GETC(ch);
- if(isdigit(ch)) {
- /* allow Fortran 8x-style unquoted string... */
- /* either find a repetition count or the string */
- f__lcount = ch - '0';
- *p++ = ch;
- for(i = 1;;) {
- switch(GETC(ch)) {
- case '*':
- if (f__lcount == 0) {
- f__lcount = 1;
-#ifndef F8X_NML_ELIDE_QUOTES
- if (nml_read)
- goto no_quote;
-#endif
- goto noquote;
- }
- p = f__lchar;
- goto have_lcount;
- case ',':
- case ' ':
- case '\t':
- case '\n':
- case '/':
- Ungetc(ch,f__cf);
- /* no break */
- case EOF:
- f__lcount = 1;
- f__ltype = TYCHAR;
- return *p = 0;
- }
- if (!isdigit(ch)) {
- f__lcount = 1;
-#ifndef F8X_NML_ELIDE_QUOTES
- if (nml_read) {
- no_quote:
- errfl(f__elist->cierr,112,
- "undelimited character string");
- }
-#endif
- goto noquote;
- }
- *p++ = ch;
- f__lcount = 10*f__lcount + ch - '0';
- if (++i == size) {
- f__lchar = (char *)realloc(f__lchar,
- (unsigned int)(size += BUFSIZE));
- if(f__lchar == NULL)
- errfl(f__elist->cierr,113,rafail);
- p = f__lchar + i;
- }
- }
- }
- else (void) Ungetc(ch,f__cf);
- have_lcount:
- if(GETC(ch)=='\'' || ch=='"') quote=ch;
- else if(isblnk(ch) || (issep(ch) && ch != '\n') || ch==EOF) {
- Ungetc(ch,f__cf);
- return 0;
- }
-#ifndef F8X_NML_ELIDE_QUOTES
- else if (nml_read > 1) {
- Ungetc(ch,f__cf);
- f__lquit = 2;
- return 0;
- }
-#endif
- else {
- /* Fortran 8x-style unquoted string */
- *p++ = ch;
- for(i = 1;;) {
- switch(GETC(ch)) {
- case ',':
- case ' ':
- case '\t':
- case '\n':
- case '/':
- Ungetc(ch,f__cf);
- /* no break */
- case EOF:
- f__ltype = TYCHAR;
- return *p = 0;
- }
- noquote:
- *p++ = ch;
- if (++i == size) {
- f__lchar = (char *)realloc(f__lchar,
- (unsigned int)(size += BUFSIZE));
- if(f__lchar == NULL)
- errfl(f__elist->cierr,113,rafail);
- p = f__lchar + i;
- }
- }
- }
- f__ltype=TYCHAR;
- for(i=0;;)
- { while(GETC(ch)!=quote && ch!='\n'
- && ch!=EOF && ++i<size) *p++ = ch;
- if(i==size)
- {
- newone:
- f__lchar= (char *)realloc(f__lchar,
- (unsigned int)(size += BUFSIZE));
- if(f__lchar == NULL)
- errfl(f__elist->cierr,113,rafail);
- p=f__lchar+i-1;
- *p++ = ch;
- }
- else if(ch==EOF) return(EOF);
- else if(ch=='\n')
- { if(*(p-1) != '\\') continue;
- i--;
- p--;
- if(++i<size) *p++ = ch;
- else goto newone;
- }
- else if(GETC(ch)==quote)
- { if(++i<size) *p++ = ch;
- else goto newone;
- }
- else
- { (void) Ungetc(ch,f__cf);
- *p = 0;
- return(0);
- }
- }
-}
-
- int
-#ifdef KR_headers
-c_le(a) cilist *a;
-#else
-c_le(cilist *a)
-#endif
-{
- if(!f__init)
- f_init();
- f__fmtbuf="list io";
- f__curunit = &f__units[a->ciunit];
- if(a->ciunit>=MXUNIT || a->ciunit<0)
- err(a->cierr,101,"stler");
- f__scale=f__recpos=0;
- f__elist=a;
- if(f__curunit->ufd==NULL && fk_open(SEQ,FMT,a->ciunit))
- err(a->cierr,102,"lio");
- f__cf=f__curunit->ufd;
- if(!f__curunit->ufmt) err(a->cierr,103,"lio")
- return(0);
-}
-
- int
-#ifdef KR_headers
-l_read(number,ptr,len,type) ftnint *number,type; char *ptr; ftnlen len;
-#else
-l_read(ftnint *number, char *ptr, ftnlen len, ftnint type)
-#endif
-{
-#define Ptr ((flex *)ptr)
- int i,n,ch;
- doublereal *yy;
- real *xx;
- for(i=0;i<*number;i++)
- {
- if(f__lquit) return(0);
- if(l_eof)
- err(f__elist->ciend, EOF, "list in")
- if(f__lcount == 0) {
- f__ltype = 0;
- for(;;) {
- GETC(ch);
- switch(ch) {
- case EOF:
- err(f__elist->ciend,(EOF),"list in")
- case ' ':
- case '\t':
- case '\n':
- continue;
- case '/':
- f__lquit = 1;
- goto loopend;
- case ',':
- f__lcount = 1;
- goto loopend;
- default:
- (void) Ungetc(ch, f__cf);
- goto rddata;
- }
- }
- }
- rddata:
- switch((int)type)
- {
- case TYINT1:
- case TYSHORT:
- case TYLONG:
-#ifndef ALLOW_FLOAT_IN_INTEGER_LIST_INPUT
- ERR(l_R(0,1));
- break;
-#endif
- case TYREAL:
- case TYDREAL:
- ERR(l_R(0,0));
- break;
-#ifdef TYQUAD
- case TYQUAD:
- n = l_R(0,2);
- if (n)
- return n;
- break;
-#endif
- case TYCOMPLEX:
- case TYDCOMPLEX:
- ERR(l_C());
- break;
- case TYLOGICAL1:
- case TYLOGICAL2:
- case TYLOGICAL:
- ERR(l_L());
- break;
- case TYCHAR:
- ERR(l_CHAR());
- break;
- }
- while (GETC(ch) == ' ' || ch == '\t');
- if (ch != ',' || f__lcount > 1)
- Ungetc(ch,f__cf);
- loopend:
- if(f__lquit) return(0);
- if(f__cf && ferror(f__cf)) {
- clearerr(f__cf);
- errfl(f__elist->cierr,errno,"list in");
- }
- if(f__ltype==0) goto bump;
- switch((int)type)
- {
- case TYINT1:
- case TYLOGICAL1:
- Ptr->flchar = (char)f__lx;
- break;
- case TYLOGICAL2:
- case TYSHORT:
- Ptr->flshort = (short)f__lx;
- break;
- case TYLOGICAL:
- case TYLONG:
- Ptr->flint = (ftnint)f__lx;
- break;
-#ifdef Allow_TYQUAD
- case TYQUAD:
- if (!(Ptr->fllongint = f__llx))
- Ptr->fllongint = f__lx;
- break;
-#endif
- case TYREAL:
- Ptr->flreal=f__lx;
- break;
- case TYDREAL:
- Ptr->fldouble=f__lx;
- break;
- case TYCOMPLEX:
- xx=(real *)ptr;
- *xx++ = f__lx;
- *xx = f__ly;
- break;
- case TYDCOMPLEX:
- yy=(doublereal *)ptr;
- *yy++ = f__lx;
- *yy = f__ly;
- break;
- case TYCHAR:
- b_char(f__lchar,ptr,len);
- break;
- }
- bump:
- if(f__lcount>0) f__lcount--;
- ptr += len;
- if (nml_read)
- nml_read++;
- }
- return(0);
-#undef Ptr
-}
-#ifdef KR_headers
-integer s_rsle(a) cilist *a;
-#else
-integer s_rsle(cilist *a)
-#endif
-{
- int n;
-
- f__reading=1;
- f__external=1;
- f__formatted=1;
- if(n=c_le(a)) return(n);
- f__lioproc = l_read;
- f__lquit = 0;
- f__lcount = 0;
- l_eof = 0;
- if(f__curunit->uwrt && f__nowreading(f__curunit))
- err(a->cierr,errno,"read start");
- if(f__curunit->uend)
- err(f__elist->ciend,(EOF),"read start");
- l_getc = t_getc;
- l_ungetc = un_getc;
- f__doend = xrd_SL;
- return(0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/lwrite.c b/Modules/ThirdParty/6S/src/libf2c/lwrite.c
deleted file mode 100644
index fcb55ee..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/lwrite.c
+++ /dev/null
@@ -1,317 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "fmt.h"
-#include "lio.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-ftnint L_len;
-int f__Aquote;
-
- static VOID
-donewrec(Void)
-{
- if (f__recpos)
- (*f__donewrec)();
- }
-
- static VOID
-#ifdef KR_headers
-lwrt_I(n) longint n;
-#else
-lwrt_I(longint n)
-#endif
-{
- char *p;
- int ndigit, sign;
-
- p = f__icvt(n, &ndigit, &sign, 10);
- if(f__recpos + ndigit >= L_len)
- donewrec();
- PUT(' ');
- if (sign)
- PUT('-');
- while(*p)
- PUT(*p++);
-}
- static VOID
-#ifdef KR_headers
-lwrt_L(n, len) ftnint n; ftnlen len;
-#else
-lwrt_L(ftnint n, ftnlen len)
-#endif
-{
- if(f__recpos+LLOGW>=L_len)
- donewrec();
- wrt_L((Uint *)&n,LLOGW, len);
-}
- static VOID
-#ifdef KR_headers
-lwrt_A(p,len) char *p; ftnlen len;
-#else
-lwrt_A(char *p, ftnlen len)
-#endif
-{
- int a;
- char *p1, *pe;
-
- a = 0;
- pe = p + len;
- if (f__Aquote) {
- a = 3;
- if (len > 1 && p[len-1] == ' ') {
- while(--len > 1 && p[len-1] == ' ');
- pe = p + len;
- }
- p1 = p;
- while(p1 < pe)
- if (*p1++ == '\'')
- a++;
- }
- if(f__recpos+len+a >= L_len)
- donewrec();
- if (a
-#ifndef OMIT_BLANK_CC
- || !f__recpos
-#endif
- )
- PUT(' ');
- if (a) {
- PUT('\'');
- while(p < pe) {
- if (*p == '\'')
- PUT('\'');
- PUT(*p++);
- }
- PUT('\'');
- }
- else
- while(p < pe)
- PUT(*p++);
-}
-
- static int
-#ifdef KR_headers
-l_g(buf, n) char *buf; double n;
-#else
-l_g(char *buf, double n)
-#endif
-{
-#ifdef Old_list_output
- doublereal absn;
- char *fmt;
-
- absn = n;
- if (absn < 0)
- absn = -absn;
- fmt = LLOW <= absn && absn < LHIGH ? LFFMT : LEFMT;
-#ifdef USE_STRLEN
- sprintf(buf, fmt, n);
- return strlen(buf);
-#else
- return sprintf(buf, fmt, n);
-#endif
-
-#else
- register char *b, c, c1;
-
- b = buf;
- *b++ = ' ';
- if (n < 0) {
- *b++ = '-';
- n = -n;
- }
- else
- *b++ = ' ';
- if (n == 0) {
-#ifdef SIGNED_ZEROS
- if (signbit_f2c(&n))
- *b++ = '-';
-#endif
- *b++ = '0';
- *b++ = '.';
- *b = 0;
- goto f__ret;
- }
- sprintf(b, LGFMT, n);
- switch(*b) {
-#ifndef WANT_LEAD_0
- case '0':
- while(b[0] = b[1])
- b++;
- break;
-#endif
- case 'i':
- case 'I':
- /* Infinity */
- case 'n':
- case 'N':
- /* NaN */
- while(*++b);
- break;
-
- default:
- /* Fortran 77 insists on having a decimal point... */
- for(;; b++)
- switch(*b) {
- case 0:
- *b++ = '.';
- *b = 0;
- goto f__ret;
- case '.':
- while(*++b);
- goto f__ret;
- case 'E':
- for(c1 = '.', c = 'E'; *b = c1;
- c1 = c, c = *++b);
- goto f__ret;
- }
- }
- f__ret:
- return b - buf;
-#endif
- }
-
- static VOID
-#ifdef KR_headers
-l_put(s) register char *s;
-#else
-l_put(register char *s)
-#endif
-{
-#ifdef KR_headers
- register void (*pn)() = f__putn;
-#else
- register void (*pn)(int) = f__putn;
-#endif
- register int c;
-
- while(c = *s++)
- (*pn)(c);
- }
-
- static VOID
-#ifdef KR_headers
-lwrt_F(n) double n;
-#else
-lwrt_F(double n)
-#endif
-{
- char buf[LEFBL];
-
- if(f__recpos + l_g(buf,n) >= L_len)
- donewrec();
- l_put(buf);
-}
- static VOID
-#ifdef KR_headers
-lwrt_C(a,b) double a,b;
-#else
-lwrt_C(double a, double b)
-#endif
-{
- char *ba, *bb, bufa[LEFBL], bufb[LEFBL];
- int al, bl;
-
- al = l_g(bufa, a);
- for(ba = bufa; *ba == ' '; ba++)
- --al;
- bl = l_g(bufb, b) + 1; /* intentionally high by 1 */
- for(bb = bufb; *bb == ' '; bb++)
- --bl;
- if(f__recpos + al + bl + 3 >= L_len)
- donewrec();
-#ifdef OMIT_BLANK_CC
- else
-#endif
- PUT(' ');
- PUT('(');
- l_put(ba);
- PUT(',');
- if (f__recpos + bl >= L_len) {
- (*f__donewrec)();
-#ifndef OMIT_BLANK_CC
- PUT(' ');
-#endif
- }
- l_put(bb);
- PUT(')');
-}
-
- int
-#ifdef KR_headers
-l_write(number,ptr,len,type) ftnint *number,type; char *ptr; ftnlen len;
-#else
-l_write(ftnint *number, char *ptr, ftnlen len, ftnint type)
-#endif
-{
-#define Ptr ((flex *)ptr)
- int i;
- longint x;
- double y,z;
- real *xx;
- doublereal *yy;
- for(i=0;i< *number; i++)
- {
- switch((int)type)
- {
- default: f__fatal(117,"unknown type in lio");
- case TYINT1:
- x = Ptr->flchar;
- goto xint;
- case TYSHORT:
- x=Ptr->flshort;
- goto xint;
-#ifdef Allow_TYQUAD
- case TYQUAD:
- x = Ptr->fllongint;
- goto xint;
-#endif
- case TYLONG:
- x=Ptr->flint;
- xint: lwrt_I(x);
- break;
- case TYREAL:
- y=Ptr->flreal;
- goto xfloat;
- case TYDREAL:
- y=Ptr->fldouble;
- xfloat: lwrt_F(y);
- break;
- case TYCOMPLEX:
- xx= &Ptr->flreal;
- y = *xx++;
- z = *xx;
- goto xcomplex;
- case TYDCOMPLEX:
- yy = &Ptr->fldouble;
- y= *yy++;
- z = *yy;
- xcomplex:
- lwrt_C(y,z);
- break;
- case TYLOGICAL1:
- x = Ptr->flchar;
- goto xlog;
- case TYLOGICAL2:
- x = Ptr->flshort;
- goto xlog;
- case TYLOGICAL:
- x = Ptr->flint;
- xlog: lwrt_L(Ptr->flint, len);
- break;
- case TYCHAR:
- lwrt_A(ptr,len);
- break;
- }
- ptr += len;
- }
- return(0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/main.c b/Modules/ThirdParty/6S/src/libf2c/main.c
deleted file mode 100644
index 4539749..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/main.c
+++ /dev/null
@@ -1,147 +0,0 @@
-/* STARTUP PROCEDURE FOR UNIX FORTRAN PROGRAMS */
-
-#include "stdio.h"
-#include "signal1.h"
-
-#ifndef SIGIOT
-#ifdef SIGABRT
-#define SIGIOT SIGABRT
-#endif
-#endif
-
-#ifndef KR_headers
-#undef VOID
-#include "stdlib.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#endif
-
-#ifndef VOID
-#define VOID void
-#endif
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef NO__STDC
-#define ONEXIT onexit
-extern VOID f_exit();
-#else
-#ifndef KR_headers
-extern void f_exit(void);
-#ifndef NO_ONEXIT
-#define ONEXIT atexit
-extern int atexit(void (*)(void));
-#endif
-#else
-#ifndef NO_ONEXIT
-#define ONEXIT onexit
-extern VOID f_exit();
-#endif
-#endif
-#endif
-
-#ifdef KR_headers
-extern VOID f_init(), sig_die();
-extern int MAIN__();
-#define Int /* int */
-#else
-extern void f_init(void), sig_die(char*, int);
-extern int MAIN__(void);
-#define Int int
-#endif
-
-static VOID sigfdie(Sigarg)
-{
-Use_Sigarg;
-sig_die("Floating Exception", 1);
-}
-
-
-static VOID sigidie(Sigarg)
-{
-Use_Sigarg;
-sig_die("IOT Trap", 1);
-}
-
-#ifdef SIGQUIT
-static VOID sigqdie(Sigarg)
-{
-Use_Sigarg;
-sig_die("Quit signal", 1);
-}
-#endif
-
-
-static VOID sigindie(Sigarg)
-{
-Use_Sigarg;
-sig_die("Interrupt", 0);
-}
-
-static VOID sigtdie(Sigarg)
-{
-Use_Sigarg;
-sig_die("Killed", 0);
-}
-
-#ifdef SIGTRAP
-static VOID sigtrdie(Sigarg)
-{
-Use_Sigarg;
-sig_die("Trace trap", 1);
-}
-#endif
-
-
-int xargc;
-char **xargv;
-
-#ifdef __cplusplus
- }
-#endif
-
-#ifdef KR_headers
-main(argc, argv) int argc; char **argv;
-#else
-main(int argc, char **argv)
-#endif
-{
-xargc = argc;
-xargv = argv;
-signal1(SIGFPE, sigfdie); /* ignore underflow, enable overflow */
-#ifdef SIGIOT
-signal1(SIGIOT, sigidie);
-#endif
-#ifdef SIGTRAP
-signal1(SIGTRAP, sigtrdie);
-#endif
-#ifdef SIGQUIT
-if(signal1(SIGQUIT,sigqdie) == SIG_IGN)
- signal1(SIGQUIT, SIG_IGN);
-#endif
-if(signal1(SIGINT, sigindie) == SIG_IGN)
- signal1(SIGINT, SIG_IGN);
-signal1(SIGTERM,sigtdie);
-
-#ifdef pdp11
- ldfps(01200); /* detect overflow as an exception */
-#endif
-
-f_init();
-#ifndef NO_ONEXIT
-ONEXIT(f_exit);
-#endif
-MAIN__();
-#ifdef NO_ONEXIT
-f_exit();
-#endif
-exit(0); /* exit(0) rather than return(0) to bypass Cray bug */
-return 0; /* For compilers that complain of missing return values; */
- /* others will complain that this is unreachable code. */
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/makefile.sy b/Modules/ThirdParty/6S/src/libf2c/makefile.sy
deleted file mode 100644
index 324cff2..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/makefile.sy
+++ /dev/null
@@ -1,190 +0,0 @@
-# For making f2c.lib (here called syf2c.lib) with Symantec C++ .
-# Invoke with "make -f makefile.sy" .
-# In the CFLAGS line below, "-mn" is for NT and W9x.
-# For 32-bit addressing with MSDOS, change "-mn" to "-mx".
-# With Symantec, it is necessary to explicitly load main.obj .
-
-# To get signed zeros in write statements on IEEE-arithmetic systems,
-# add -DSIGNED_ZEROS to the CFLAGS assignment below and add signbit.obj
-# to the objects in the "w =" list below.
-
-CC = sc
-CFLAGS = -DMSDOS -D_POSIX_SOURCE -DNO_ONEXIT -s -mn -DUSE_CLOCK
-
-.c.obj:
- $(CC) -c $(CFLAGS) $*.c
-
-w = \
- abort_.obj \
- backspac.obj \
- c_abs.obj \
- c_cos.obj \
- c_div.obj \
- c_exp.obj \
- c_log.obj \
- c_sin.obj \
- c_sqrt.obj \
- cabs.obj \
- close.obj \
- d_abs.obj \
- d_acos.obj \
- d_asin.obj \
- d_atan.obj \
- d_atn2.obj \
- d_cnjg.obj \
- d_cos.obj \
- d_cosh.obj \
- d_dim.obj \
- d_exp.obj \
- d_imag.obj \
- d_int.obj \
- d_lg10.obj \
- d_log.obj \
- d_mod.obj \
- d_nint.obj \
- d_prod.obj \
- d_sign.obj \
- d_sin.obj \
- d_sinh.obj \
- d_sqrt.obj \
- d_tan.obj \
- d_tanh.obj \
- derf_.obj \
- derfc_.obj \
- dfe.obj \
- dolio.obj \
- dtime_.obj \
- due.obj \
- ef1asc_.obj \
- ef1cmc_.obj \
- endfile.obj \
- erf_.obj \
- erfc_.obj \
- err.obj \
- etime_.obj \
- exit_.obj \
- f77_aloc.obj \
- f77vers.obj \
- fmt.obj \
- fmtlib.obj \
- ftell_.obj \
- getarg_.obj \
- getenv_.obj \
- h_abs.obj \
- h_dim.obj \
- h_dnnt.obj \
- h_indx.obj \
- h_len.obj \
- h_mod.obj \
- h_nint.obj \
- h_sign.obj \
- hl_ge.obj \
- hl_gt.obj \
- hl_le.obj \
- hl_lt.obj \
- i77vers.obj \
- i_abs.obj \
- i_dim.obj \
- i_dnnt.obj \
- i_indx.obj \
- i_len.obj \
- i_mod.obj \
- i_nint.obj \
- i_sign.obj \
- iargc_.obj \
- iio.obj \
- ilnw.obj \
- inquire.obj \
- l_ge.obj \
- l_gt.obj \
- l_le.obj \
- l_lt.obj \
- lbitbits.obj \
- lbitshft.obj \
- lread.obj \
- lwrite.obj \
- main.obj \
- open.obj \
- pow_ci.obj \
- pow_dd.obj \
- pow_di.obj \
- pow_hh.obj \
- pow_ii.obj \
- pow_ri.obj \
- pow_zi.obj \
- pow_zz.obj \
- r_abs.obj \
- r_acos.obj \
- r_asin.obj \
- r_atan.obj \
- r_atn2.obj \
- r_cnjg.obj \
- r_cos.obj \
- r_cosh.obj \
- r_dim.obj \
- r_exp.obj \
- r_imag.obj \
- r_int.obj \
- r_lg10.obj \
- r_log.obj \
- r_mod.obj \
- r_nint.obj \
- r_sign.obj \
- r_sin.obj \
- r_sinh.obj \
- r_sqrt.obj \
- r_tan.obj \
- r_tanh.obj \
- rdfmt.obj \
- rewind.obj \
- rsfe.obj \
- rsli.obj \
- rsne.obj \
- s_cat.obj \
- s_cmp.obj \
- s_copy.obj \
- s_paus.obj \
- s_rnge.obj \
- s_stop.obj \
- sfe.obj \
- sig_die.obj \
- signal_.obj \
- sue.obj \
- system_.obj \
- typesize.obj \
- uio.obj \
- util.obj \
- uninit.obj \
- wref.obj \
- wrtfmt.obj \
- wsfe.obj \
- wsle.obj \
- wsne.obj \
- xwsne.obj \
- z_abs.obj \
- z_cos.obj \
- z_div.obj \
- z_exp.obj \
- z_log.obj \
- z_sin.obj \
- z_sqrt.obj
-
-syf2c.lib: f2c.h signal1.h sysdep1.h $w
- lib /B /C syf2c.lib @libf2c.sy
-
-f2c.h: f2c.h0
- copy f2c.h0 f2c.h
-
-signal1.h: signal1.h0
- copy signal1.h0 signal1.h
-
-sysdep1.h: sysdep1.h0
- copy sysdep1.h0 sysdep1.h
-
-signbit.obj uninit.obj: arith.h
-
-arith.h: arithchk.c
- scomptry.bat $(CC) $(CFLAGS) arithchk.c
- arithchk
- del arithchk.exe
- del arithchk.obj
diff --git a/Modules/ThirdParty/6S/src/libf2c/makefile.u b/Modules/ThirdParty/6S/src/libf2c/makefile.u
deleted file mode 100644
index 0b52e27..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/makefile.u
+++ /dev/null
@@ -1,214 +0,0 @@
-# Unix makefile: see README.
-# For C++, first "make hadd".
-# If your compiler does not recognize ANSI C, add
-# -DKR_headers
-# to the CFLAGS = line below.
-# On Sun and other BSD systems that do not provide an ANSI sprintf, add
-# -DUSE_STRLEN
-# to the CFLAGS = line below.
-# On Linux systems, add
-# -DNON_UNIX_STDIO
-# to the CFLAGS = line below. For libf2c.so under Linux, also add
-# -fPIC
-# to the CFLAGS = line below.
-
-.SUFFIXES: .c .o
-CC = cc
-SHELL = /bin/sh
-CFLAGS = -O
-
-# compile, then strip unnecessary symbols
-.c.o:
- $(CC) -c -DSkip_f2c_Undefs $(CFLAGS) $*.c
- ld -r -x -o $*.xxx $*.o
- mv $*.xxx $*.o
-## Under Solaris (and other systems that do not understand ld -x),
-## omit -x in the ld line above.
-## If your system does not have the ld command, comment out
-## or remove both the ld and mv lines above.
-
-MISC = f77vers.o i77vers.o main.o s_rnge.o abort_.o exit_.o getarg_.o iargc_.o\
- getenv_.o signal_.o s_stop.o s_paus.o system_.o cabs.o\
- derf_.o derfc_.o erf_.o erfc_.o sig_die.o uninit.o
-POW = pow_ci.o pow_dd.o pow_di.o pow_hh.o pow_ii.o pow_ri.o pow_zi.o pow_zz.o
-CX = c_abs.o c_cos.o c_div.o c_exp.o c_log.o c_sin.o c_sqrt.o
-DCX = z_abs.o z_cos.o z_div.o z_exp.o z_log.o z_sin.o z_sqrt.o
-REAL = r_abs.o r_acos.o r_asin.o r_atan.o r_atn2.o r_cnjg.o r_cos.o\
- r_cosh.o r_dim.o r_exp.o r_imag.o r_int.o\
- r_lg10.o r_log.o r_mod.o r_nint.o r_sign.o\
- r_sin.o r_sinh.o r_sqrt.o r_tan.o r_tanh.o
-DBL = d_abs.o d_acos.o d_asin.o d_atan.o d_atn2.o\
- d_cnjg.o d_cos.o d_cosh.o d_dim.o d_exp.o\
- d_imag.o d_int.o d_lg10.o d_log.o d_mod.o\
- d_nint.o d_prod.o d_sign.o d_sin.o d_sinh.o\
- d_sqrt.o d_tan.o d_tanh.o
-INT = i_abs.o i_dim.o i_dnnt.o i_indx.o i_len.o i_mod.o i_nint.o i_sign.o\
- lbitbits.o lbitshft.o
-HALF = h_abs.o h_dim.o h_dnnt.o h_indx.o h_len.o h_mod.o h_nint.o h_sign.o
-CMP = l_ge.o l_gt.o l_le.o l_lt.o hl_ge.o hl_gt.o hl_le.o hl_lt.o
-EFL = ef1asc_.o ef1cmc_.o
-CHAR = f77_aloc.o s_cat.o s_cmp.o s_copy.o
-I77 = backspac.o close.o dfe.o dolio.o due.o endfile.o err.o\
- fmt.o fmtlib.o ftell_.o iio.o ilnw.o inquire.o lread.o lwrite.o\
- open.o rdfmt.o rewind.o rsfe.o rsli.o rsne.o sfe.o sue.o\
- typesize.o uio.o util.o wref.o wrtfmt.o wsfe.o wsle.o wsne.o xwsne.o
-QINT = pow_qq.o qbitbits.o qbitshft.o ftell64_.o
-TIME = dtime_.o etime_.o
-
-# If you get an error compiling dtime_.c or etime_.c, try adding
-# -DUSE_CLOCK to the CFLAGS assignment above; if that does not work,
-# omit $(TIME) from OFILES = assignment below.
-
-# To get signed zeros in write statements on IEEE-arithmetic systems,
-# add -DSIGNED_ZEROS to the CFLAGS assignment below and add signbit.o
-# to the end of the OFILES = assignment below.
-
-# For INTEGER*8 support (which requires system-dependent adjustments to
-# f2c.h), add $(QINT) to the OFILES = assignment below...
-
-OFILES = $(MISC) $(POW) $(CX) $(DCX) $(REAL) $(DBL) $(INT) \
- $(HALF) $(CMP) $(EFL) $(CHAR) $(I77) $(TIME)
-
-all: f2c.h signal1.h sysdep1.h libf2c.a
-
-libf2c.a: $(OFILES)
- ar r libf2c.a $?
- -ranlib libf2c.a
-
-## Shared-library variant: the following rule works on Linux
-## systems. Details are system-dependent. Under Linux, -fPIC
-## must appear in the CFLAGS assignment when making libf2c.so.
-## Under Solaris, use -Kpic in CFLAGS and use "ld -G" instead
-## of "cc -shared".
-
-libf2c.so: $(OFILES)
- cc -shared -o libf2c.so $(OFILES)
-
-### If your system lacks ranlib, you don't need it; see README.
-
-f77vers.o: f77vers.c
- $(CC) -c f77vers.c
-
-i77vers.o: i77vers.c
- $(CC) -c i77vers.c
-
-# To get an "f2c.h" for use with "f2c -C++", first "make hadd"
-hadd: f2c.h0 f2ch.add
- cat f2c.h0 f2ch.add >f2c.h
-
-# For use with "f2c" and "f2c -A":
-f2c.h: f2c.h0
- cp f2c.h0 f2c.h
-
-# You may need to adjust signal1.h and sysdep1.h suitably for your system...
-signal1.h: signal1.h0
- cp signal1.h0 signal1.h
-
-sysdep1.h: sysdep1.h0
- cp sysdep1.h0 sysdep1.h
-
-# If your system lacks onexit() and you are not using an
-# ANSI C compiler, then you should uncomment the following
-# two lines (for compiling main.o):
-#main.o: main.c
-# $(CC) -c -DNO_ONEXIT -DSkip_f2c_Undefs main.c
-# On at least some Sun systems, it is more appropriate to
-# uncomment the following two lines:
-#main.o: main.c
-# $(CC) -c -Donexit=on_exit -DSkip_f2c_Undefs main.c
-
-install: libf2c.a
- cp libf2c.a $(LIBDIR)
- -ranlib $(LIBDIR)/libf2c.a
-
-clean:
- rm -f libf2c.a *.o arith.h signal1.h sysdep1.h
-
-backspac.o: fio.h
-close.o: fio.h
-dfe.o: fio.h
-dfe.o: fmt.h
-due.o: fio.h
-endfile.o: fio.h rawio.h
-err.o: fio.h rawio.h
-fmt.o: fio.h
-fmt.o: fmt.h
-iio.o: fio.h
-iio.o: fmt.h
-ilnw.o: fio.h
-ilnw.o: lio.h
-inquire.o: fio.h
-lread.o: fio.h
-lread.o: fmt.h
-lread.o: lio.h
-lread.o: fp.h
-lwrite.o: fio.h
-lwrite.o: fmt.h
-lwrite.o: lio.h
-open.o: fio.h rawio.h
-rdfmt.o: fio.h
-rdfmt.o: fmt.h
-rdfmt.o: fp.h
-rewind.o: fio.h
-rsfe.o: fio.h
-rsfe.o: fmt.h
-rsli.o: fio.h
-rsli.o: lio.h
-rsne.o: fio.h
-rsne.o: lio.h
-sfe.o: fio.h
-signbit.o: arith.h
-sue.o: fio.h
-uio.o: fio.h
-uninit.o: arith.h
-util.o: fio.h
-wref.o: fio.h
-wref.o: fmt.h
-wref.o: fp.h
-wrtfmt.o: fio.h
-wrtfmt.o: fmt.h
-wsfe.o: fio.h
-wsfe.o: fmt.h
-wsle.o: fio.h
-wsle.o: fmt.h
-wsle.o: lio.h
-wsne.o: fio.h
-wsne.o: lio.h
-xwsne.o: fio.h
-xwsne.o: lio.h
-xwsne.o: fmt.h
-
-arith.h: arithchk.c
- $(CC) $(CFLAGS) -DNO_FPINIT arithchk.c -lm ||\
- $(CC) -DNO_LONG_LONG $(CFLAGS) -DNO_FPINIT arithchk.c -lm
- ./a.out >arith.h
- rm -f a.out arithchk.o
-
-check:
- xsum Notice README abort_.c arithchk.c backspac.c c_abs.c c_cos.c \
- c_div.c c_exp.c c_log.c c_sin.c c_sqrt.c cabs.c close.c comptry.bat \
- d_abs.c d_acos.c d_asin.c d_atan.c d_atn2.c d_cnjg.c d_cos.c d_cosh.c \
- d_dim.c d_exp.c d_imag.c d_int.c d_lg10.c d_log.c d_mod.c \
- d_nint.c d_prod.c d_sign.c d_sin.c d_sinh.c d_sqrt.c d_tan.c \
- d_tanh.c derf_.c derfc_.c dfe.c dolio.c dtime_.c due.c ef1asc_.c \
- ef1cmc_.c endfile.c erf_.c erfc_.c err.c etime_.c exit_.c f2c.h0 \
- f2ch.add f77_aloc.c f77vers.c fio.h fmt.c fmt.h fmtlib.c \
- fp.h ftell_.c ftell64_.c \
- getarg_.c getenv_.c h_abs.c h_dim.c h_dnnt.c h_indx.c h_len.c \
- h_mod.c h_nint.c h_sign.c hl_ge.c hl_gt.c hl_le.c hl_lt.c \
- i77vers.c i_abs.c i_dim.c i_dnnt.c i_indx.c i_len.c i_mod.c \
- i_nint.c i_sign.c iargc_.c iio.c ilnw.c inquire.c l_ge.c l_gt.c \
- l_le.c l_lt.c lbitbits.c lbitshft.c libf2c.lbc libf2c.sy lio.h \
- lread.c lwrite.c main.c makefile.sy makefile.u makefile.vc \
- makefile.wat math.hvc mkfile.plan9 open.c pow_ci.c pow_dd.c \
- pow_di.c pow_hh.c pow_ii.c pow_qq.c pow_ri.c pow_zi.c pow_zz.c \
- qbitbits.c qbitshft.c r_abs.c r_acos.c r_asin.c r_atan.c r_atn2.c \
- r_cnjg.c r_cos.c r_cosh.c r_dim.c r_exp.c r_imag.c r_int.c r_lg10.c \
- r_log.c r_mod.c r_nint.c r_sign.c r_sin.c r_sinh.c r_sqrt.c \
- r_tan.c r_tanh.c rawio.h rdfmt.c rewind.c rsfe.c rsli.c rsne.c \
- s_cat.c s_cmp.c s_copy.c s_paus.c s_rnge.c s_stop.c scomptry.bat sfe.c \
- sig_die.c signal1.h0 signal_.c signbit.c sue.c sysdep1.h0 system_.c \
- typesize.c \
- uio.c uninit.c util.c wref.c wrtfmt.c wsfe.c wsle.c wsne.c xwsne.c \
- z_abs.c z_cos.c z_div.c z_exp.c z_log.c z_sin.c z_sqrt.c >xsum1.out
- cmp xsum0.out xsum1.out && mv xsum1.out xsum.out || diff xsum[01].out
diff --git a/Modules/ThirdParty/6S/src/libf2c/makefile.vc b/Modules/ThirdParty/6S/src/libf2c/makefile.vc
deleted file mode 100644
index 3824d9d..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/makefile.vc
+++ /dev/null
@@ -1,195 +0,0 @@
-# For making f2c.lib (here called vcf2c.lib) with Microsoft Visual C++ .
-# Invoke with "nmake -f makefile.vc" .
-
-# To get signed zeros in write statements on IEEE-arithmetic systems,
-# add -DSIGNED_ZEROS to the CFLAGS assignment below and add signbit.obj
-# to the objects in the "w =" list below.
-
-CC = cl
-CFLAGS = -DUSE_CLOCK -DMSDOS -DNO_ONEXIT -Ot1
-
-.c.obj:
- $(CC) -c $(CFLAGS) $*.c
-
-w = \
- abort_.obj \
- backspac.obj \
- c_abs.obj \
- c_cos.obj \
- c_div.obj \
- c_exp.obj \
- c_log.obj \
- c_sin.obj \
- c_sqrt.obj \
- cabs.obj \
- close.obj \
- d_abs.obj \
- d_acos.obj \
- d_asin.obj \
- d_atan.obj \
- d_atn2.obj \
- d_cnjg.obj \
- d_cos.obj \
- d_cosh.obj \
- d_dim.obj \
- d_exp.obj \
- d_imag.obj \
- d_int.obj \
- d_lg10.obj \
- d_log.obj \
- d_mod.obj \
- d_nint.obj \
- d_prod.obj \
- d_sign.obj \
- d_sin.obj \
- d_sinh.obj \
- d_sqrt.obj \
- d_tan.obj \
- d_tanh.obj \
- derf_.obj \
- derfc_.obj \
- dfe.obj \
- dolio.obj \
- dtime_.obj \
- due.obj \
- ef1asc_.obj \
- ef1cmc_.obj \
- endfile.obj \
- erf_.obj \
- erfc_.obj \
- err.obj \
- etime_.obj \
- exit_.obj \
- f77_aloc.obj \
- f77vers.obj \
- fmt.obj \
- fmtlib.obj \
- ftell_.obj \
- getarg_.obj \
- getenv_.obj \
- h_abs.obj \
- h_dim.obj \
- h_dnnt.obj \
- h_indx.obj \
- h_len.obj \
- h_mod.obj \
- h_nint.obj \
- h_sign.obj \
- hl_ge.obj \
- hl_gt.obj \
- hl_le.obj \
- hl_lt.obj \
- i77vers.obj \
- i_abs.obj \
- i_dim.obj \
- i_dnnt.obj \
- i_indx.obj \
- i_len.obj \
- i_mod.obj \
- i_nint.obj \
- i_sign.obj \
- iargc_.obj \
- iio.obj \
- ilnw.obj \
- inquire.obj \
- l_ge.obj \
- l_gt.obj \
- l_le.obj \
- l_lt.obj \
- lbitbits.obj \
- lbitshft.obj \
- lread.obj \
- lwrite.obj \
- main.obj \
- open.obj \
- pow_ci.obj \
- pow_dd.obj \
- pow_di.obj \
- pow_hh.obj \
- pow_ii.obj \
- pow_ri.obj \
- pow_zi.obj \
- pow_zz.obj \
- r_abs.obj \
- r_acos.obj \
- r_asin.obj \
- r_atan.obj \
- r_atn2.obj \
- r_cnjg.obj \
- r_cos.obj \
- r_cosh.obj \
- r_dim.obj \
- r_exp.obj \
- r_imag.obj \
- r_int.obj \
- r_lg10.obj \
- r_log.obj \
- r_mod.obj \
- r_nint.obj \
- r_sign.obj \
- r_sin.obj \
- r_sinh.obj \
- r_sqrt.obj \
- r_tan.obj \
- r_tanh.obj \
- rdfmt.obj \
- rewind.obj \
- rsfe.obj \
- rsli.obj \
- rsne.obj \
- s_cat.obj \
- s_cmp.obj \
- s_copy.obj \
- s_paus.obj \
- s_rnge.obj \
- s_stop.obj \
- sfe.obj \
- sig_die.obj \
- signal_.obj \
- sue.obj \
- system_.obj \
- typesize.obj \
- uio.obj \
- uninit.obj \
- util.obj \
- wref.obj \
- wrtfmt.obj \
- wsfe.obj \
- wsle.obj \
- wsne.obj \
- xwsne.obj \
- z_abs.obj \
- z_cos.obj \
- z_div.obj \
- z_exp.obj \
- z_log.obj \
- z_sin.obj \
- z_sqrt.obj
-
-all: f2c.h math.h signal1.h sysdep1.h vcf2c.lib
-
-f2c.h: f2c.h0
- copy f2c.h0 f2c.h
-
-math.h: math.hvc
- copy math.hvc math.h
-
-signal1.h: signal1.h0
- copy signal1.h0 signal1.h
-
-sysdep1.h: sysdep1.h0
- copy sysdep1.h0 sysdep1.h
-
-vcf2c.lib: $w
- lib -out:vcf2c.lib @libf2c.lbc
-
-open.obj: open.c
- $(CC) -c $(CFLAGS) -DMSDOS open.c
-
-signbit.obj uninit.obj: arith.h
-
-arith.h: arithchk.c
- comptry.bat $(CC) $(CFLAGS) -DNO_FPINIT arithchk.c
- arithchk >arith.h
- del arithchk.exe
- del arithchk.obj
diff --git a/Modules/ThirdParty/6S/src/libf2c/makefile.wat b/Modules/ThirdParty/6S/src/libf2c/makefile.wat
deleted file mode 100644
index 4111e07..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/makefile.wat
+++ /dev/null
@@ -1,189 +0,0 @@
-# For making f2c.lib (here called watf2c.lib) with WATCOM C/C++ .
-# Invoke with "wmake -u -f makefile.wat" .
-# In the CFLAGS line below, "-bt=nt" is for NT and W9x.
-# With WATCOM, it is necessary to explicitly load main.obj .
-
-# To get signed zeros in write statements on IEEE-arithmetic systems,
-# add -DSIGNED_ZEROS to the CFLAGS assignment below and add signbit.obj
-# to the objects in the "w =" list below.
-
-CC = wcc386
-CFLAGS = -fpd -DMSDOS -DUSE_CLOCK -DNO_ONEXIT -bt=nt
-
-.c.obj:
- $(CC) $(CFLAGS) $*.c
-
-w = \
- abort_.obj \
- backspac.obj \
- c_abs.obj \
- c_cos.obj \
- c_div.obj \
- c_exp.obj \
- c_log.obj \
- c_sin.obj \
- c_sqrt.obj \
- cabs.obj \
- close.obj \
- d_abs.obj \
- d_acos.obj \
- d_asin.obj \
- d_atan.obj \
- d_atn2.obj \
- d_cnjg.obj \
- d_cos.obj \
- d_cosh.obj \
- d_dim.obj \
- d_exp.obj \
- d_imag.obj \
- d_int.obj \
- d_lg10.obj \
- d_log.obj \
- d_mod.obj \
- d_nint.obj \
- d_prod.obj \
- d_sign.obj \
- d_sin.obj \
- d_sinh.obj \
- d_sqrt.obj \
- d_tan.obj \
- d_tanh.obj \
- derf_.obj \
- derfc_.obj \
- dfe.obj \
- dolio.obj \
- dtime_.obj \
- due.obj \
- ef1asc_.obj \
- ef1cmc_.obj \
- endfile.obj \
- erf_.obj \
- erfc_.obj \
- err.obj \
- etime_.obj \
- exit_.obj \
- f77_aloc.obj \
- f77vers.obj \
- fmt.obj \
- fmtlib.obj \
- ftell_.obj \
- getarg_.obj \
- getenv_.obj \
- h_abs.obj \
- h_dim.obj \
- h_dnnt.obj \
- h_indx.obj \
- h_len.obj \
- h_mod.obj \
- h_nint.obj \
- h_sign.obj \
- hl_ge.obj \
- hl_gt.obj \
- hl_le.obj \
- hl_lt.obj \
- i77vers.obj \
- i_abs.obj \
- i_dim.obj \
- i_dnnt.obj \
- i_indx.obj \
- i_len.obj \
- i_mod.obj \
- i_nint.obj \
- i_sign.obj \
- iargc_.obj \
- iio.obj \
- ilnw.obj \
- inquire.obj \
- l_ge.obj \
- l_gt.obj \
- l_le.obj \
- l_lt.obj \
- lbitbits.obj \
- lbitshft.obj \
- lread.obj \
- lwrite.obj \
- main.obj \
- open.obj \
- pow_ci.obj \
- pow_dd.obj \
- pow_di.obj \
- pow_hh.obj \
- pow_ii.obj \
- pow_ri.obj \
- pow_zi.obj \
- pow_zz.obj \
- r_abs.obj \
- r_acos.obj \
- r_asin.obj \
- r_atan.obj \
- r_atn2.obj \
- r_cnjg.obj \
- r_cos.obj \
- r_cosh.obj \
- r_dim.obj \
- r_exp.obj \
- r_imag.obj \
- r_int.obj \
- r_lg10.obj \
- r_log.obj \
- r_mod.obj \
- r_nint.obj \
- r_sign.obj \
- r_sin.obj \
- r_sinh.obj \
- r_sqrt.obj \
- r_tan.obj \
- r_tanh.obj \
- rdfmt.obj \
- rewind.obj \
- rsfe.obj \
- rsli.obj \
- rsne.obj \
- s_cat.obj \
- s_cmp.obj \
- s_copy.obj \
- s_paus.obj \
- s_rnge.obj \
- s_stop.obj \
- sfe.obj \
- sig_die.obj \
- signal_.obj \
- sue.obj \
- system_.obj \
- typesize.obj \
- uio.obj \
- uninit.obj \
- util.obj \
- wref.obj \
- wrtfmt.obj \
- wsfe.obj \
- wsle.obj \
- wsne.obj \
- xwsne.obj \
- z_abs.obj \
- z_cos.obj \
- z_div.obj \
- z_exp.obj \
- z_log.obj \
- z_sin.obj \
- z_sqrt.obj
-
-watf2c.lib: f2c.h signal1.h sysdep1.h $w
- wlib -c watf2c.lib @libf2c
-
-f2c.h: f2c.h0
- copy f2c.h0 f2c.h
-
-signal1.h: signal1.h0
- copy signal1.h0 signal1.h
-
-sysdep1.h: sysdep1.h0
- copy sysdep1.h0 sysdep1.h
-
-signbit.obj uninit.obj: arith.h
-
-arith.h: arithchk.c
- comptry.bat wcl386 -DNO_FPINIT arithchk.c
- arithchk >arith.h
- del arithchk.exe
- del arithchk.obj
diff --git a/Modules/ThirdParty/6S/src/libf2c/math.hvc b/Modules/ThirdParty/6S/src/libf2c/math.hvc
deleted file mode 100644
index 52cfcee..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/math.hvc
+++ /dev/null
@@ -1,3 +0,0 @@
-/* for VC 4.2 */
-#include <math.h>
-#undef complex
diff --git a/Modules/ThirdParty/6S/src/libf2c/mkfile.plan9 b/Modules/ThirdParty/6S/src/libf2c/mkfile.plan9
deleted file mode 100644
index 645e33d..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/mkfile.plan9
+++ /dev/null
@@ -1,162 +0,0 @@
-# Plan 9 mkfile for libf2c.a$O
-
-</$objtype/mkfile
-
-CC = pcc
-CFLAGS = -D_POSIX_SOURCE -DNON_UNIX_STDIO -DNO_TRUNCATE
-
-%.$O: %.c
- $CC -c $CFLAGS $stem.c
-
-MISC = f77vers.$O i77vers.$O main.$O s_rnge.$O abort_.$O exit_.$O\
- getarg_.$O iargc_.$O\
- getenv_.$O signal_.$O s_stop.$O s_paus.$O system_.$O cabs.$O\
- derf_.$O derfc_.$O erf_.$O erfc_.$O sig_die.$O uninit.$O
-POW = pow_ci.$O pow_dd.$O pow_di.$O pow_hh.$O pow_ii.$O pow_ri.$O\
- pow_zi.$O pow_zz.$O
-CX = c_abs.$O c_cos.$O c_div.$O c_exp.$O c_log.$O c_sin.$O c_sqrt.$O
-DCX = z_abs.$O z_cos.$O z_div.$O z_exp.$O z_log.$O z_sin.$O z_sqrt.$O
-REAL = r_abs.$O r_acos.$O r_asin.$O r_atan.$O r_atn2.$O r_cnjg.$O r_cos.$O\
- r_cosh.$O r_dim.$O r_exp.$O r_imag.$O r_int.$O\
- r_lg10.$O r_log.$O r_mod.$O r_nint.$O r_sign.$O\
- r_sin.$O r_sinh.$O r_sqrt.$O r_tan.$O r_tanh.$O
-DBL = d_abs.$O d_acos.$O d_asin.$O d_atan.$O d_atn2.$O\
- d_cnjg.$O d_cos.$O d_cosh.$O d_dim.$O d_exp.$O\
- d_imag.$O d_int.$O d_lg10.$O d_log.$O d_mod.$O\
- d_nint.$O d_prod.$O d_sign.$O d_sin.$O d_sinh.$O\
- d_sqrt.$O d_tan.$O d_tanh.$O
-INT = i_abs.$O i_dim.$O i_dnnt.$O i_indx.$O i_len.$O i_mod.$O\
- i_nint.$O i_sign.$O lbitbits.$O lbitshft.$O
-HALF = h_abs.$O h_dim.$O h_dnnt.$O h_indx.$O h_len.$O h_mod.$O\
- h_nint.$O h_sign.$O
-CMP = l_ge.$O l_gt.$O l_le.$O l_lt.$O hl_ge.$O hl_gt.$O hl_le.$O hl_lt.$O
-EFL = ef1asc_.$O ef1cmc_.$O
-CHAR = f77_aloc.$O s_cat.$O s_cmp.$O s_copy.$O
-I77 = backspac.$O close.$O dfe.$O dolio.$O due.$O endfile.$O err.$O\
- fmt.$O fmtlib.$O ftell_.$O iio.$O ilnw.$O inquire.$O lread.$O\
- lwrite.$O open.$O rdfmt.$O rewind.$O rsfe.$O rsli.$O rsne.$O\
- sfe.$O sue.$O typesize.$O uio.$O util.$O wref.$O wrtfmt.$O\
- wsfe.$O wsle.$O wsne.$O xwsne.$O
-QINT = pow_qq.$O qbitbits.$O qbitshft.$O
-TIME = dtime_.$O etime_.$O
-
-# pcc does not currently (20010222) understand unsigned long long
-# so we omit $QINT from the dependency list for libf2c.a$O.
-
-all:N: f2c.h signal1.h libf2c.a$O
-
-libf2c.a$O: $MISC $POW $CX $DCX $REAL $DBL $INT \
- $HALF $CMP $EFL $CHAR $I77 $TIME
- ar r $target $newprereq
- rm $newprereq
-
-### If your system lacks ranlib, you don't need it; see README.; set -e
-
-f77vers.$O: f77vers.c
- $CC -c f77vers.c
-
-i77vers.$O: i77vers.c
- $CC -c i77vers.c
-
-# To get an "f2c.h" for use with "f2c -C++", first "make hadd"
-hadd: f2c.h0 f2ch.add
- cat f2c.h0 f2ch.add >f2c.h
-
-# For use with "f2c" and "f2c -A":
-f2c.h: f2c.h0
- cp f2c.h0 f2c.h
-
-# You may need to adjust signal1.h suitably for your system...
-signal1.h: signal1.h0
- cp signal1.h0 signal1.h
-
-clean:
- rm -f libf2c.a$O *.$O arith.h
-
-backspac.$O: fio.h
-close.$O: fio.h
-dfe.$O: fio.h
-dfe.$O: fmt.h
-due.$O: fio.h
-endfile.$O: fio.h rawio.h
-err.$O: fio.h rawio.h
-fmt.$O: fio.h
-fmt.$O: fmt.h
-iio.$O: fio.h
-iio.$O: fmt.h
-ilnw.$O: fio.h
-ilnw.$O: lio.h
-inquire.$O: fio.h
-lread.$O: fio.h
-lread.$O: fmt.h
-lread.$O: lio.h
-lread.$O: fp.h
-lwrite.$O: fio.h
-lwrite.$O: fmt.h
-lwrite.$O: lio.h
-open.$O: fio.h rawio.h
-rdfmt.$O: fio.h
-rdfmt.$O: fmt.h
-rdfmt.$O: fp.h
-rewind.$O: fio.h
-rsfe.$O: fio.h
-rsfe.$O: fmt.h
-rsli.$O: fio.h
-rsli.$O: lio.h
-rsne.$O: fio.h
-rsne.$O: lio.h
-sfe.$O: fio.h
-sue.$O: fio.h
-uio.$O: fio.h
-uninit.$O: arith.h
-util.$O: fio.h
-wref.$O: fio.h
-wref.$O: fmt.h
-wref.$O: fp.h
-wrtfmt.$O: fio.h
-wrtfmt.$O: fmt.h
-wsfe.$O: fio.h
-wsfe.$O: fmt.h
-wsle.$O: fio.h
-wsle.$O: fmt.h
-wsle.$O: lio.h
-wsne.$O: fio.h
-wsne.$O: lio.h
-xwsne.$O: fio.h
-xwsne.$O: lio.h
-xwsne.$O: fmt.h
-
-arith.h: arithchk.c
- pcc -DNO_FPINIT -o arithchk arithchk.c
- arithchk >$target
- rm arithchk
-
-xsum.out:V: check
-
-check:
- xsum Notice README abort_.c arithchk.c backspac.c c_abs.c c_cos.c \
- c_div.c c_exp.c c_log.c c_sin.c c_sqrt.c cabs.c close.c comptry.bat \
- d_abs.c d_acos.c d_asin.c d_atan.c d_atn2.c d_cnjg.c d_cos.c d_cosh.c \
- d_dim.c d_exp.c d_imag.c d_int.c d_lg10.c d_log.c d_mod.c \
- d_nint.c d_prod.c d_sign.c d_sin.c d_sinh.c d_sqrt.c d_tan.c \
- d_tanh.c derf_.c derfc_.c dfe.c dolio.c dtime_.c due.c ef1asc_.c \
- ef1cmc_.c endfile.c erf_.c erfc_.c err.c etime_.c exit_.c f2c.h0 \
- f2ch.add f77_aloc.c f77vers.c fio.h fmt.c fmt.h fmtlib.c \
- fp.h ftell_.c \
- getarg_.c getenv_.c h_abs.c h_dim.c h_dnnt.c h_indx.c h_len.c \
- h_mod.c h_nint.c h_sign.c hl_ge.c hl_gt.c hl_le.c hl_lt.c \
- i77vers.c i_abs.c i_dim.c i_dnnt.c i_indx.c i_len.c i_mod.c \
- i_nint.c i_sign.c iargc_.c iio.c ilnw.c inquire.c l_ge.c l_gt.c \
- l_le.c l_lt.c lbitbits.c lbitshft.c libf2c.lbc libf2c.sy lio.h \
- lread.c lwrite.c main.c makefile.sy makefile.u makefile.vc \
- makefile.wat math.hvc mkfile.plan9 open.c pow_ci.c pow_dd.c \
- pow_di.c pow_hh.c pow_ii.c pow_qq.c pow_ri.c pow_zi.c pow_zz.c \
- qbitbits.c qbitshft.c r_abs.c r_acos.c r_asin.c r_atan.c r_atn2.c \
- r_cnjg.c r_cos.c r_cosh.c r_dim.c r_exp.c r_imag.c r_int.c r_lg10.c \
- r_log.c r_mod.c r_nint.c r_sign.c r_sin.c r_sinh.c r_sqrt.c \
- r_tan.c r_tanh.c rawio.h rdfmt.c rewind.c rsfe.c rsli.c rsne.c \
- s_cat.c s_cmp.c s_copy.c s_paus.c s_rnge.c s_stop.c sfe.c \
- sig_die.c signal1.h0 signal_.c sue.c system_.c typesize.c uio.c \
- uninit.c util.c wref.c wrtfmt.c wsfe.c wsle.c wsne.c xwsne.c \
- z_abs.c z_cos.c z_div.c z_exp.c z_log.c z_sin.c z_sqrt.c >xsum1.out
- cmp xsum0.out xsum1.out && mv xsum1.out xsum.out || diff xsum[01].out
diff --git a/Modules/ThirdParty/6S/src/libf2c/open.c b/Modules/ThirdParty/6S/src/libf2c/open.c
deleted file mode 100644
index aceeefe..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/open.c
+++ /dev/null
@@ -1,303 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "string.h"
-#ifndef NON_POSIX_STDIO
-#ifdef MSDOS
-/* OTB Modifications */
-/* #include "io.h" */
-#else
-#include "unistd.h" /* for access */
-#endif
-#endif
-
-#ifdef KR_headers
-extern char *malloc();
-#ifdef NON_ANSI_STDIO
-extern char *mktemp();
-#endif
-extern integer f_clos();
-#else
-#undef abs
-#undef min
-#undef max
-#include "stdlib.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern int f__canseek(FILE*);
-extern integer f_clos(cllist*);
-#endif
-
-#ifdef NON_ANSI_RW_MODES
-char *f__r_mode[2] = {"r", "r"};
-char *f__w_mode[4] = {"w", "w", "r+w", "r+w"};
-#else
-char *f__r_mode[2] = {"rb", "r"};
-char *f__w_mode[4] = {"wb", "w", "r+b", "r+"};
-#endif
-
- static char f__buf0[400], *f__buf = f__buf0;
- int f__buflen = (int)sizeof(f__buf0);
-
- static void
-#ifdef KR_headers
-f__bufadj(n, c) int n, c;
-#else
-f__bufadj(int n, int c)
-#endif
-{
- unsigned int len;
- char *nbuf, *s, *t, *te;
-
- if (f__buf == f__buf0)
- f__buflen = 1024;
- while(f__buflen <= n)
- f__buflen <<= 1;
- len = (unsigned int)f__buflen;
- if (len != f__buflen || !(nbuf = (char*)malloc(len)))
- f__fatal(113, "malloc failure");
- s = nbuf;
- t = f__buf;
- te = t + c;
- while(t < te)
- *s++ = *t++;
- if (f__buf != f__buf0)
- free(f__buf);
- f__buf = nbuf;
- }
-
- int
-#ifdef KR_headers
-f__putbuf(c) int c;
-#else
-f__putbuf(int c)
-#endif
-{
- char *s, *se;
- int n;
-
- if (f__hiwater > f__recpos)
- f__recpos = f__hiwater;
- n = f__recpos + 1;
- if (n >= f__buflen)
- f__bufadj(n, f__recpos);
- s = f__buf;
- se = s + f__recpos;
- if (c)
- *se++ = c;
- *se = 0;
- for(;;) {
- fputs(s, f__cf);
- s += strlen(s);
- if (s >= se)
- break; /* normally happens the first time */
- putc(*s++, f__cf);
- }
- return 0;
- }
-
- void
-#ifdef KR_headers
-x_putc(c)
-#else
-x_putc(int c)
-#endif
-{
- if (f__recpos >= f__buflen)
- f__bufadj(f__recpos, f__buflen);
- f__buf[f__recpos++] = c;
- }
-
-#define opnerr(f,m,s) {if(f) errno= m; else opn_err(m,s,a); return(m);}
-
- static void
-#ifdef KR_headers
-opn_err(m, s, a) int m; char *s; olist *a;
-#else
-opn_err(int m, char *s, olist *a)
-#endif
-{
- if (a->ofnm) {
- /* supply file name to error message */
- if (a->ofnmlen >= f__buflen)
- f__bufadj((int)a->ofnmlen, 0);
- g_char(a->ofnm, a->ofnmlen, f__curunit->ufnm = f__buf);
- }
- f__fatal(m, s);
- }
-
-#ifdef KR_headers
-integer f_open(a) olist *a;
-#else
-integer f_open(olist *a)
-#endif
-{ unit *b;
- integer rv;
- char buf[256], *s;
- cllist x;
- int ufmt;
- FILE *tf;
-#ifndef NON_UNIX_STDIO
- int n;
-#endif
- f__external = 1;
- if(a->ounit>=MXUNIT || a->ounit<0)
- err(a->oerr,101,"open")
- if (!f__init)
- f_init();
- f__curunit = b = &f__units[a->ounit];
- if(b->ufd) {
- if(a->ofnm==0)
- {
- same: if (a->oblnk)
- b->ublnk = *a->oblnk == 'z' || *a->oblnk == 'Z';
- return(0);
- }
-#ifdef NON_UNIX_STDIO
- if (b->ufnm
- && strlen(b->ufnm) == a->ofnmlen
- && !strncmp(b->ufnm, a->ofnm, (unsigned)a->ofnmlen))
- goto same;
-#else
- g_char(a->ofnm,a->ofnmlen,buf);
- if (f__inode(buf,&n) == b->uinode && n == b->udev)
- goto same;
-#endif
- x.cunit=a->ounit;
- x.csta=0;
- x.cerr=a->oerr;
- if ((rv = f_clos(&x)) != 0)
- return rv;
- }
- b->url = (int)a->orl;
- b->ublnk = a->oblnk && (*a->oblnk == 'z' || *a->oblnk == 'Z');
- if(a->ofm==0)
- { if(b->url>0) b->ufmt=0;
- else b->ufmt=1;
- }
- else if(*a->ofm=='f' || *a->ofm == 'F') b->ufmt=1;
- else b->ufmt=0;
- ufmt = b->ufmt;
-#ifdef url_Adjust
- if (b->url && !ufmt)
- url_Adjust(b->url);
-#endif
- if (a->ofnm) {
- g_char(a->ofnm,a->ofnmlen,buf);
- if (!buf[0])
- opnerr(a->oerr,107,"open")
- }
- else
- sprintf(buf, "fort.%ld", (long)a->ounit);
- b->uscrtch = 0;
- b->uend=0;
- b->uwrt = 0;
- b->ufd = 0;
- b->urw = 3;
- switch(a->osta ? *a->osta : 'u')
- {
- case 'o':
- case 'O':
-#ifdef NON_POSIX_STDIO
- if (!(tf = FOPEN(buf,"r")))
- opnerr(a->oerr,errno,"open")
- fclose(tf);
-#else
- if (access(buf,0))
- opnerr(a->oerr,errno,"open")
-#endif
- break;
- case 's':
- case 'S':
- b->uscrtch=1;
-#ifdef NON_ANSI_STDIO
- (void) strcpy(buf,"tmp.FXXXXXX");
- (void) mktemp(buf);
- goto replace;
-#else
- if (!(b->ufd = tmpfile()))
- opnerr(a->oerr,errno,"open")
- b->ufnm = 0;
-#ifndef NON_UNIX_STDIO
- b->uinode = b->udev = -1;
-#endif
- b->useek = 1;
- return 0;
-#endif
-
- case 'n':
- case 'N':
-#ifdef NON_POSIX_STDIO
- if ((tf = FOPEN(buf,"r")) || (tf = FOPEN(buf,"a"))) {
- fclose(tf);
- opnerr(a->oerr,128,"open")
- }
-#else
- if (!access(buf,0))
- opnerr(a->oerr,128,"open")
-#endif
- /* no break */
- case 'r': /* Fortran 90 replace option */
- case 'R':
-#ifdef NON_ANSI_STDIO
- replace:
-#endif
- if (tf = FOPEN(buf,f__w_mode[0]))
- fclose(tf);
- }
-
- b->ufnm=(char *) malloc((unsigned int)(strlen(buf)+1));
- if(b->ufnm==NULL) opnerr(a->oerr,113,"no space");
- (void) strcpy(b->ufnm,buf);
- if ((s = a->oacc) && b->url)
- ufmt = 0;
- if(!(tf = FOPEN(buf, f__w_mode[ufmt|2]))) {
- if (tf = FOPEN(buf, f__r_mode[ufmt]))
- b->urw = 1;
- else if (tf = FOPEN(buf, f__w_mode[ufmt])) {
- b->uwrt = 1;
- b->urw = 2;
- }
- else
- err(a->oerr, errno, "open");
- }
- b->useek = f__canseek(b->ufd = tf);
-#ifndef NON_UNIX_STDIO
- if((b->uinode = f__inode(buf,&b->udev)) == -1)
- opnerr(a->oerr,108,"open")
-#endif
- if(b->useek)
- if (a->orl)
- rewind(b->ufd);
- else if ((s = a->oacc) && (*s == 'a' || *s == 'A')
- && FSEEK(b->ufd, 0L, SEEK_END))
- opnerr(a->oerr,129,"open");
- return(0);
-}
-
- int
-#ifdef KR_headers
-fk_open(seq,fmt,n) ftnint n;
-#else
-fk_open(int seq, int fmt, ftnint n)
-#endif
-{ char nbuf[10];
- olist a;
- (void) sprintf(nbuf,"fort.%ld",(long)n);
- a.oerr=1;
- a.ounit=n;
- a.ofnm=nbuf;
- a.ofnmlen=strlen(nbuf);
- a.osta=NULL;
- a.oacc= (char*)(seq==SEQ?"s":"d");
- a.ofm = (char*)(fmt==FMT?"f":"u");
- a.orl = seq==DIR?1:0;
- a.oblnk=NULL;
- return(f_open(&a));
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/pow_ci.c b/Modules/ThirdParty/6S/src/libf2c/pow_ci.c
deleted file mode 100644
index 35b01ad..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/pow_ci.c
+++ /dev/null
@@ -1,29 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-VOID pow_ci(p, a, b) /* p = a**b */
- complex *p, *a; integer *b;
-#else
-extern void pow_zi(doublecomplex*, doublecomplex*, integer*);
-void pow_ci(complex *p, complex *a, integer *b) /* p = a**b */
-#endif
-{
-doublecomplex p1, a1;
-
-a1.r = a->r;
-a1.i = a->i;
-
-pow_zi(&p1, &a1, b);
-
-p->r = p1.r;
-p->i = p1.i;
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/pow_dd.c b/Modules/ThirdParty/6S/src/libf2c/pow_dd.c
deleted file mode 100644
index 75cb9b6..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/pow_dd.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double pow();
-double pow_dd(ap, bp) doublereal *ap, *bp;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double pow_dd(doublereal *ap, doublereal *bp)
-#endif
-{
-return(pow(*ap, *bp) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/pow_di.c b/Modules/ThirdParty/6S/src/libf2c/pow_di.c
deleted file mode 100644
index 44ff1c4..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/pow_di.c
+++ /dev/null
@@ -1,44 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double pow_di(ap, bp) doublereal *ap; integer *bp;
-#else
-double pow_di(doublereal *ap, integer *bp)
-#endif
-{
-double pow, x;
-integer n;
-unsigned long u;
-
-pow = 1;
-x = *ap;
-n = *bp;
-
-if(n != 0)
- {
- if(n < 0)
- {
- n = -n;
- x = 1/x;
- }
- for(u = n; ; )
- {
- if(u & 01)
- pow *= x;
- if(u >>= 1)
- x *= x;
- else
- break;
- }
- }
-return(pow);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/pow_hh.c b/Modules/ThirdParty/6S/src/libf2c/pow_hh.c
deleted file mode 100644
index 3d480c3..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/pow_hh.c
+++ /dev/null
@@ -1,42 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-shortint pow_hh(ap, bp) shortint *ap, *bp;
-#else
-shortint pow_hh(shortint *ap, shortint *bp)
-#endif
-{
- shortint pow, x, n;
- unsigned u;
-
- x = *ap;
- n = *bp;
-
- if (n <= 0) {
- if (n == 0 || x == 1)
- return 1;
- if (x != -1)
- return x == 0 ? 1/x : 0;
- n = -n;
- }
- u = n;
- for(pow = 1; ; )
- {
- if(u & 01)
- pow *= x;
- if(u >>= 1)
- x *= x;
- else
- break;
- }
- return(pow);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/pow_ii.c b/Modules/ThirdParty/6S/src/libf2c/pow_ii.c
deleted file mode 100644
index 8335b26..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/pow_ii.c
+++ /dev/null
@@ -1,42 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-integer pow_ii(ap, bp) integer *ap, *bp;
-#else
-integer pow_ii(integer *ap, integer *bp)
-#endif
-{
- integer pow, x, n;
- unsigned long u;
-
- x = *ap;
- n = *bp;
-
- if (n <= 0) {
- if (n == 0 || x == 1)
- return 1;
- if (x != -1)
- return x == 0 ? 1/x : 0;
- n = -n;
- }
- u = n;
- for(pow = 1; ; )
- {
- if(u & 01)
- pow *= x;
- if(u >>= 1)
- x *= x;
- else
- break;
- }
- return(pow);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/pow_qq.c.omit b/Modules/ThirdParty/6S/src/libf2c/pow_qq.c.omit
deleted file mode 100644
index 10ff795..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/pow_qq.c.omit
+++ /dev/null
@@ -1,42 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-longint pow_qq(ap, bp) longint *ap, *bp;
-#else
-longint pow_qq(longint *ap, longint *bp)
-#endif
-{
- longint pow, x, n;
- unsigned long long u; /* system-dependent */
-
- x = *ap;
- n = *bp;
-
- if (n <= 0) {
- if (n == 0 || x == 1)
- return 1;
- if (x != -1)
- return x == 0 ? 1/x : 0;
- n = -n;
- }
- u = n;
- for(pow = 1; ; )
- {
- if(u & 01)
- pow *= x;
- if(u >>= 1)
- x *= x;
- else
- break;
- }
- return(pow);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/pow_ri.c b/Modules/ThirdParty/6S/src/libf2c/pow_ri.c
deleted file mode 100644
index ad88b0c..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/pow_ri.c
+++ /dev/null
@@ -1,44 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double pow_ri(ap, bp) real *ap; integer *bp;
-#else
-double pow_ri(real *ap, integer *bp)
-#endif
-{
-double pow, x;
-integer n;
-unsigned long u;
-
-pow = 1;
-x = *ap;
-n = *bp;
-
-if(n != 0)
- {
- if(n < 0)
- {
- n = -n;
- x = 1/x;
- }
- for(u = n; ; )
- {
- if(u & 01)
- pow *= x;
- if(u >>= 1)
- x *= x;
- else
- break;
- }
- }
-return(pow);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/pow_zi.c b/Modules/ThirdParty/6S/src/libf2c/pow_zi.c
deleted file mode 100644
index 86f9ead..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/pow_zi.c
+++ /dev/null
@@ -1,63 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-VOID pow_zi(p, a, b) /* p = a**b */
- doublecomplex *p, *a; integer *b;
-#else
-extern void z_div(doublecomplex*, doublecomplex*, doublecomplex*);
-void pow_zi(doublecomplex *p, doublecomplex *a, integer *b) /* p = a**b */
-#endif
-{
- integer n;
- unsigned long u;
- double t;
- doublecomplex q, x;
- static doublecomplex one = {1.0, 0.0};
-
- n = *b;
- q.r = 1;
- q.i = 0;
-
- if(n == 0)
- goto done;
- if(n < 0)
- {
- n = -n;
- z_div(&x, &one, a);
- }
- else
- {
- x.r = a->r;
- x.i = a->i;
- }
-
- for(u = n; ; )
- {
- if(u & 01)
- {
- t = q.r * x.r - q.i * x.i;
- q.i = q.r * x.i + q.i * x.r;
- q.r = t;
- }
- if(u >>= 1)
- {
- t = x.r * x.r - x.i * x.i;
- x.i = 2 * x.r * x.i;
- x.r = t;
- }
- else
- break;
- }
- done:
- p->i = q.i;
- p->r = q.r;
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/pow_zz.c b/Modules/ThirdParty/6S/src/libf2c/pow_zz.c
deleted file mode 100644
index fee734d..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/pow_zz.c
+++ /dev/null
@@ -1,32 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double log(), exp(), cos(), sin(), atan2(), f__cabs();
-VOID pow_zz(r,a,b) doublecomplex *r, *a, *b;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern double f__cabs(double,double);
-void pow_zz(doublecomplex *r, doublecomplex *a, doublecomplex *b)
-#endif
-{
-double logr, logi, x, y;
-
-logr = log( f__cabs(a->r, a->i) );
-logi = atan2(a->i, a->r);
-
-x = exp( logr * b->r - logi * b->i );
-y = logr * b->i + logi * b->r;
-
-r->r = x * cos(y);
-r->i = x * sin(y);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/qbitbits.c.omit b/Modules/ThirdParty/6S/src/libf2c/qbitbits.c.omit
deleted file mode 100644
index 4718f8b..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/qbitbits.c.omit
+++ /dev/null
@@ -1,75 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifndef LONGBITS
-#define LONGBITS 32
-#endif
-
-#ifndef LONG8BITS
-#define LONG8BITS (2*LONGBITS)
-#endif
-
- longint
-#ifdef KR_headers
-qbit_bits(a, b, len) longint a; integer b, len;
-#else
-qbit_bits(longint a, integer b, integer len)
-#endif
-{
- /* Assume 2's complement arithmetic */
-
- ulongint x, y;
-
- x = (ulongint) a;
- y = (ulongint)-1L;
- x >>= b;
- y <<= len;
- return (longint)(x & ~y);
- }
-
- longint
-#ifdef KR_headers
-qbit_cshift(a, b, len) longint a; integer b, len;
-#else
-qbit_cshift(longint a, integer b, integer len)
-#endif
-{
- ulongint x, y, z;
-
- x = (ulongint)a;
- if (len <= 0) {
- if (len == 0)
- return 0;
- goto full_len;
- }
- if (len >= LONG8BITS) {
- full_len:
- if (b >= 0) {
- b %= LONG8BITS;
- return (longint)(x << b | x >> LONG8BITS - b );
- }
- b = -b;
- b %= LONG8BITS;
- return (longint)(x << LONG8BITS - b | x >> b);
- }
- y = z = (unsigned long)-1;
- y <<= len;
- z &= ~y;
- y &= x;
- x &= z;
- if (b >= 0) {
- b %= len;
- return (longint)(y | z & (x << b | x >> len - b));
- }
- b = -b;
- b %= len;
- return (longint)(y | z & (x >> b | x << len - b));
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/qbitshft.c.omit b/Modules/ThirdParty/6S/src/libf2c/qbitshft.c.omit
deleted file mode 100644
index 0fed582..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/qbitshft.c.omit
+++ /dev/null
@@ -1,20 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- longint
-#ifdef KR_headers
-qbit_shift(a, b) longint a; integer b;
-#else
-qbit_shift(longint a, integer b)
-#endif
-{
- return b >= 0 ? a << b : (longint)((ulongint)a >> -b);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_abs.c b/Modules/ThirdParty/6S/src/libf2c/r_abs.c
deleted file mode 100644
index b46df54..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_abs.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double r_abs(x) real *x;
-#else
-double r_abs(real *x)
-#endif
-{
-if(*x >= 0)
- return(*x);
-return(- *x);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_acos.c b/Modules/ThirdParty/6S/src/libf2c/r_acos.c
deleted file mode 100644
index ecd1c99..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_acos.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double acos();
-double r_acos(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_acos(real *x)
-#endif
-{
-return( acos(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_asin.c b/Modules/ThirdParty/6S/src/libf2c/r_asin.c
deleted file mode 100644
index 32038e5..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_asin.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double asin();
-double r_asin(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_asin(real *x)
-#endif
-{
-return( asin(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_atan.c b/Modules/ThirdParty/6S/src/libf2c/r_atan.c
deleted file mode 100644
index ca190f9..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_atan.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double atan();
-double r_atan(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_atan(real *x)
-#endif
-{
-return( atan(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_atn2.c b/Modules/ThirdParty/6S/src/libf2c/r_atn2.c
deleted file mode 100644
index 2703841..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_atn2.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double atan2();
-double r_atn2(x,y) real *x, *y;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_atn2(real *x, real *y)
-#endif
-{
-return( atan2(*x,*y) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_cnjg.c b/Modules/ThirdParty/6S/src/libf2c/r_cnjg.c
deleted file mode 100644
index dba4c7f..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_cnjg.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-VOID r_cnjg(r, z) complex *r, *z;
-#else
-VOID r_cnjg(complex *r, complex *z)
-#endif
-{
- real zi = z->i;
- r->r = z->r;
- r->i = -zi;
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_cos.c b/Modules/ThirdParty/6S/src/libf2c/r_cos.c
deleted file mode 100644
index 3f91039..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_cos.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double cos();
-double r_cos(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_cos(real *x)
-#endif
-{
-return( cos(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_cosh.c b/Modules/ThirdParty/6S/src/libf2c/r_cosh.c
deleted file mode 100644
index 92c5bb8..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_cosh.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double cosh();
-double r_cosh(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_cosh(real *x)
-#endif
-{
-return( cosh(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_dim.c b/Modules/ThirdParty/6S/src/libf2c/r_dim.c
deleted file mode 100644
index f3da4f7..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_dim.c
+++ /dev/null
@@ -1,19 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double r_dim(a,b) real *a, *b;
-#else
-double r_dim(real *a, real *b)
-#endif
-{
-return( *a > *b ? *a - *b : 0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_exp.c b/Modules/ThirdParty/6S/src/libf2c/r_exp.c
deleted file mode 100644
index 5f0c526..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_exp.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double exp();
-double r_exp(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_exp(real *x)
-#endif
-{
-return( exp(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_imag.c b/Modules/ThirdParty/6S/src/libf2c/r_imag.c
deleted file mode 100644
index 428522f..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_imag.c
+++ /dev/null
@@ -1,19 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double r_imag(z) complex *z;
-#else
-double r_imag(complex *z)
-#endif
-{
-return(z->i);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_int.c b/Modules/ThirdParty/6S/src/libf2c/r_int.c
deleted file mode 100644
index 24ee4b1..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_int.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double floor();
-double r_int(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_int(real *x)
-#endif
-{
-return( (*x>0) ? floor(*x) : -floor(- *x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_lg10.c b/Modules/ThirdParty/6S/src/libf2c/r_lg10.c
deleted file mode 100644
index e83d498..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_lg10.c
+++ /dev/null
@@ -1,24 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#define log10e 0.43429448190325182765
-
-#ifdef KR_headers
-double log();
-double r_lg10(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_lg10(real *x)
-#endif
-{
-return( log10e * log(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_log.c b/Modules/ThirdParty/6S/src/libf2c/r_log.c
deleted file mode 100644
index 1bbb6f6..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_log.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double log();
-double r_log(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_log(real *x)
-#endif
-{
-return( log(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_mod.c b/Modules/ThirdParty/6S/src/libf2c/r_mod.c
deleted file mode 100644
index 5d0ad38..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_mod.c
+++ /dev/null
@@ -1,49 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-#ifdef IEEE_drem
-double drem();
-#else
-double floor();
-#endif
-double r_mod(x,y) real *x, *y;
-#else
-#ifdef IEEE_drem
-double drem(double, double);
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#endif
-double r_mod(real *x, real *y)
-#endif
-{
-#ifdef IEEE_drem
- double xa, ya, z;
- if ((ya = *y) < 0.)
- ya = -ya;
- z = drem(xa = *x, ya);
- if (xa > 0) {
- if (z < 0)
- z += ya;
- }
- else if (z > 0)
- z -= ya;
- return z;
-#else
- double quotient;
- if( (quotient = (double)*x / *y) >= 0)
- quotient = floor(quotient);
- else
- quotient = -floor(-quotient);
- return(*x - (*y) * quotient );
-#endif
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_nint.c b/Modules/ThirdParty/6S/src/libf2c/r_nint.c
deleted file mode 100644
index 426aba5..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_nint.c
+++ /dev/null
@@ -1,23 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double floor();
-double r_nint(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_nint(real *x)
-#endif
-{
-return( (*x)>=0 ?
- floor(*x + .5) : -floor(.5 - *x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_sign.c b/Modules/ThirdParty/6S/src/libf2c/r_sign.c
deleted file mode 100644
index a850c25..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_sign.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double r_sign(a,b) real *a, *b;
-#else
-double r_sign(real *a, real *b)
-#endif
-{
-double x;
-x = (*a >= 0 ? *a : - *a);
-return( *b >= 0 ? x : -x);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_sin.c b/Modules/ThirdParty/6S/src/libf2c/r_sin.c
deleted file mode 100644
index 00bbcf7..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_sin.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double sin();
-double r_sin(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_sin(real *x)
-#endif
-{
-return( sin(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_sinh.c b/Modules/ThirdParty/6S/src/libf2c/r_sinh.c
deleted file mode 100644
index c0650e5..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_sinh.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double sinh();
-double r_sinh(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_sinh(real *x)
-#endif
-{
-return( sinh(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_sqrt.c b/Modules/ThirdParty/6S/src/libf2c/r_sqrt.c
deleted file mode 100644
index 17c4748..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_sqrt.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double sqrt();
-double r_sqrt(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_sqrt(real *x)
-#endif
-{
-return( sqrt(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_tan.c b/Modules/ThirdParty/6S/src/libf2c/r_tan.c
deleted file mode 100644
index 69ba4fe..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_tan.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double tan();
-double r_tan(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_tan(real *x)
-#endif
-{
-return( tan(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/r_tanh.c b/Modules/ThirdParty/6S/src/libf2c/r_tanh.c
deleted file mode 100644
index ffd3487..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/r_tanh.c
+++ /dev/null
@@ -1,22 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double tanh();
-double r_tanh(x) real *x;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-double r_tanh(real *x)
-#endif
-{
-return( tanh(*x) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/rawio.h b/Modules/ThirdParty/6S/src/libf2c/rawio.h
deleted file mode 100644
index fd36a48..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/rawio.h
+++ /dev/null
@@ -1,41 +0,0 @@
-#ifndef KR_headers
-#ifdef MSDOS
-#include "io.h"
-#ifndef WATCOM
-#define close _close
-#define creat _creat
-#define open _open
-#define read _read
-#define write _write
-#endif /*WATCOM*/
-#endif /*MSDOS*/
-#ifdef __cplusplus
-extern "C" {
-#endif
-#ifndef MSDOS
-#ifdef OPEN_DECL
-extern int creat(const char*,int), open(const char*,int);
-#endif
-extern int close(int);
-extern int read(int,void*,size_t), write(int,void*,size_t);
-extern int unlink(const char*);
-#ifndef _POSIX_SOURCE
-#ifndef NON_UNIX_STDIO
-extern FILE *fdopen(int, const char*);
-#endif
-#endif
-#endif /*KR_HEADERS*/
-
-extern char *mktemp(char*);
-
-#ifdef __cplusplus
- }
-#endif
-#endif
-
-#include "fcntl.h"
-
-#ifndef O_WRONLY
-#define O_RDONLY 0
-#define O_WRONLY 1
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/rdfmt.c b/Modules/ThirdParty/6S/src/libf2c/rdfmt.c
deleted file mode 100644
index 2bc39b9..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/rdfmt.c
+++ /dev/null
@@ -1,553 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-
-#ifdef KR_headers
-extern double atof();
-#else
-#undef abs
-#undef min
-#undef max
-#include "stdlib.h"
-#endif
-
-#include "fmt.h"
-#include "fp.h"
-#include "ctype.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- static int
-#ifdef KR_headers
-rd_Z(n,w,len) Uint *n; ftnlen len;
-#else
-rd_Z(Uint *n, int w, ftnlen len)
-#endif
-{
- long x[9];
- char *s, *s0, *s1, *se, *t;
- int ch, i, w1, w2;
- static char hex[256];
- static int one = 1;
- int bad = 0;
-
- if (!hex['0']) {
- s = "0123456789";
- while(ch = *s++)
- hex[ch] = ch - '0' + 1;
- s = "ABCDEF";
- while(ch = *s++)
- hex[ch] = hex[ch + 'a' - 'A'] = ch - 'A' + 11;
- }
- s = s0 = (char *)x;
- s1 = (char *)&x[4];
- se = (char *)&x[8];
- if (len > 4*sizeof(long))
- return errno = 117;
- while (w) {
- GET(ch);
- if (ch==',' || ch=='\n')
- break;
- w--;
- if (ch > ' ') {
- if (!hex[ch & 0xff])
- bad++;
- *s++ = ch;
- if (s == se) {
- /* discard excess characters */
- for(t = s0, s = s1; t < s1;)
- *t++ = *s++;
- s = s1;
- }
- }
- }
- if (bad)
- return errno = 115;
- w = (int)len;
- w1 = s - s0;
- w2 = (w1+1) >> 1;
- t = (char *)n;
- if (*(char *)&one) {
- /* little endian */
- t += w - 1;
- i = -1;
- }
- else
- i = 1;
- for(; w > w2; t += i, --w)
- *t = 0;
- if (!w)
- return 0;
- if (w < w2)
- s0 = s - (w << 1);
- else if (w1 & 1) {
- *t = hex[*s0++ & 0xff] - 1;
- if (!--w)
- return 0;
- t += i;
- }
- do {
- *t = (hex[*s0 & 0xff]-1) << 4 | hex[s0[1] & 0xff]-1;
- t += i;
- s0 += 2;
- }
- while(--w);
- return 0;
- }
-
- static int
-#ifdef KR_headers
-rd_I(n,w,len, base) Uint *n; int w; ftnlen len; register int base;
-#else
-rd_I(Uint *n, int w, ftnlen len, register int base)
-#endif
-{
- int ch, sign;
- longint x = 0;
-
- if (w <= 0)
- goto have_x;
- for(;;) {
- GET(ch);
- if (ch != ' ')
- break;
- if (!--w)
- goto have_x;
- }
- sign = 0;
- switch(ch) {
- case ',':
- case '\n':
- w = 0;
- goto have_x;
- case '-':
- sign = 1;
- case '+':
- break;
- default:
- if (ch >= '0' && ch <= '9') {
- x = ch - '0';
- break;
- }
- goto have_x;
- }
- while(--w) {
- GET(ch);
- if (ch >= '0' && ch <= '9') {
- x = x*base + ch - '0';
- continue;
- }
- if (ch != ' ') {
- if (ch == '\n' || ch == ',')
- w = 0;
- break;
- }
- if (f__cblank)
- x *= base;
- }
- if (sign)
- x = -x;
- have_x:
- if(len == sizeof(integer))
- n->il=x;
- else if(len == sizeof(char))
- n->ic = (char)x;
-#ifdef Allow_TYQUAD
- else if (len == sizeof(longint))
- n->ili = x;
-#endif
- else
- n->is = (short)x;
- if (w) {
- while(--w)
- GET(ch);
- return errno = 115;
- }
- return 0;
-}
-
- static int
-#ifdef KR_headers
-rd_L(n,w,len) ftnint *n; ftnlen len;
-#else
-rd_L(ftnint *n, int w, ftnlen len)
-#endif
-{ int ch, dot, lv;
-
- if (w <= 0)
- goto bad;
- for(;;) {
- GET(ch);
- --w;
- if (ch != ' ')
- break;
- if (!w)
- goto bad;
- }
- dot = 0;
- retry:
- switch(ch) {
- case '.':
- if (dot++ || !w)
- goto bad;
- GET(ch);
- --w;
- goto retry;
- case 't':
- case 'T':
- lv = 1;
- break;
- case 'f':
- case 'F':
- lv = 0;
- break;
- default:
- bad:
- for(; w > 0; --w)
- GET(ch);
- /* no break */
- case ',':
- case '\n':
- return errno = 116;
- }
- switch(len) {
- case sizeof(char): *(char *)n = (char)lv; break;
- case sizeof(short): *(short *)n = (short)lv; break;
- default: *n = lv;
- }
- while(w-- > 0) {
- GET(ch);
- if (ch == ',' || ch == '\n')
- break;
- }
- return 0;
-}
-
- static int
-#ifdef KR_headers
-rd_F(p, w, d, len) ufloat *p; ftnlen len;
-#else
-rd_F(ufloat *p, int w, int d, ftnlen len)
-#endif
-{
- char s[FMAX+EXPMAXDIGS+4];
- register int ch;
- register char *sp, *spe, *sp1;
- double x;
- int scale1, se;
- long e, exp;
-
- sp1 = sp = s;
- spe = sp + FMAX;
- exp = -d;
- x = 0.;
-
- do {
- GET(ch);
- w--;
- } while (ch == ' ' && w);
- switch(ch) {
- case '-': *sp++ = ch; sp1++; spe++;
- case '+':
- if (!w) goto zero;
- --w;
- GET(ch);
- }
- while(ch == ' ') {
-blankdrop:
- if (!w--) goto zero; GET(ch); }
- while(ch == '0')
- { if (!w--) goto zero; GET(ch); }
- if (ch == ' ' && f__cblank)
- goto blankdrop;
- scale1 = f__scale;
- while(isdigit(ch)) {
-digloop1:
- if (sp < spe) *sp++ = ch;
- else ++exp;
-digloop1e:
- if (!w--) goto done;
- GET(ch);
- }
- if (ch == ' ') {
- if (f__cblank)
- { ch = '0'; goto digloop1; }
- goto digloop1e;
- }
- if (ch == '.') {
- exp += d;
- if (!w--) goto done;
- GET(ch);
- if (sp == sp1) { /* no digits yet */
- while(ch == '0') {
-skip01:
- --exp;
-skip0:
- if (!w--) goto done;
- GET(ch);
- }
- if (ch == ' ') {
- if (f__cblank) goto skip01;
- goto skip0;
- }
- }
- while(isdigit(ch)) {
-digloop2:
- if (sp < spe)
- { *sp++ = ch; --exp; }
-digloop2e:
- if (!w--) goto done;
- GET(ch);
- }
- if (ch == ' ') {
- if (f__cblank)
- { ch = '0'; goto digloop2; }
- goto digloop2e;
- }
- }
- switch(ch) {
- default:
- break;
- case '-': se = 1; goto signonly;
- case '+': se = 0; goto signonly;
- case 'e':
- case 'E':
- case 'd':
- case 'D':
- if (!w--)
- goto bad;
- GET(ch);
- while(ch == ' ') {
- if (!w--)
- goto bad;
- GET(ch);
- }
- se = 0;
- switch(ch) {
- case '-': se = 1;
- case '+':
-signonly:
- if (!w--)
- goto bad;
- GET(ch);
- }
- while(ch == ' ') {
- if (!w--)
- goto bad;
- GET(ch);
- }
- if (!isdigit(ch))
- goto bad;
-
- e = ch - '0';
- for(;;) {
- if (!w--)
- { ch = '\n'; break; }
- GET(ch);
- if (!isdigit(ch)) {
- if (ch == ' ') {
- if (f__cblank)
- ch = '0';
- else continue;
- }
- else
- break;
- }
- e = 10*e + ch - '0';
- if (e > EXPMAX && sp > sp1)
- goto bad;
- }
- if (se)
- exp -= e;
- else
- exp += e;
- scale1 = 0;
- }
- switch(ch) {
- case '\n':
- case ',':
- break;
- default:
-bad:
- return (errno = 115);
- }
-done:
- if (sp > sp1) {
- while(*--sp == '0')
- ++exp;
- if (exp -= scale1)
- sprintf(sp+1, "e%ld", exp);
- else
- sp[1] = 0;
- x = atof(s);
- }
-zero:
- if (len == sizeof(real))
- p->pf = x;
- else
- p->pd = x;
- return(0);
- }
-
-
- static int
-#ifdef KR_headers
-rd_A(p,len) char *p; ftnlen len;
-#else
-rd_A(char *p, ftnlen len)
-#endif
-{ int i,ch;
- for(i=0;i<len;i++)
- { GET(ch);
- *p++=VAL(ch);
- }
- return(0);
-}
- static int
-#ifdef KR_headers
-rd_AW(p,w,len) char *p; ftnlen len;
-#else
-rd_AW(char *p, int w, ftnlen len)
-#endif
-{ int i,ch;
- if(w>=len)
- { for(i=0;i<w-len;i++)
- GET(ch);
- for(i=0;i<len;i++)
- { GET(ch);
- *p++=VAL(ch);
- }
- return(0);
- }
- for(i=0;i<w;i++)
- { GET(ch);
- *p++=VAL(ch);
- }
- for(i=0;i<len-w;i++) *p++=' ';
- return(0);
-}
- static int
-#ifdef KR_headers
-rd_H(n,s) char *s;
-#else
-rd_H(int n, char *s)
-#endif
-{ int i,ch;
- for(i=0;i<n;i++)
- if((ch=(*f__getn)())<0) return(ch);
- else *s++ = ch=='\n'?' ':ch;
- return(1);
-}
- static int
-#ifdef KR_headers
-rd_POS(s) char *s;
-#else
-rd_POS(char *s)
-#endif
-{ char quote;
- int ch;
- quote= *s++;
- for(;*s;s++)
- if(*s==quote && *(s+1)!=quote) break;
- else if((ch=(*f__getn)())<0) return(ch);
- else *s = ch=='\n'?' ':ch;
- return(1);
-}
-
- int
-#ifdef KR_headers
-rd_ed(p,ptr,len) struct syl *p; char *ptr; ftnlen len;
-#else
-rd_ed(struct syl *p, char *ptr, ftnlen len)
-#endif
-{ int ch;
- for(;f__cursor>0;f__cursor--) if((ch=(*f__getn)())<0) return(ch);
- if(f__cursor<0)
- { if(f__recpos+f__cursor < 0) /*err(elist->cierr,110,"fmt")*/
- f__cursor = -f__recpos; /* is this in the standard? */
- if(f__external == 0) {
- extern char *f__icptr;
- f__icptr += f__cursor;
- }
- else if(f__curunit && f__curunit->useek)
- (void) FSEEK(f__cf, f__cursor,SEEK_CUR);
- else
- err(f__elist->cierr,106,"fmt");
- f__recpos += f__cursor;
- f__cursor=0;
- }
- switch(p->op)
- {
- default: fprintf(stderr,"rd_ed, unexpected code: %d\n", p->op);
- sig_die(f__fmtbuf, 1);
- case IM:
- case I: ch = rd_I((Uint *)ptr,p->p1,len, 10);
- break;
-
- /* O and OM don't work right for character, double, complex, */
- /* or doublecomplex, and they differ from Fortran 90 in */
- /* showing a minus sign for negative values. */
-
- case OM:
- case O: ch = rd_I((Uint *)ptr, p->p1, len, 8);
- break;
- case L: ch = rd_L((ftnint *)ptr,p->p1,len);
- break;
- case A: ch = rd_A(ptr,len);
- break;
- case AW:
- ch = rd_AW(ptr,p->p1,len);
- break;
- case E: case EE:
- case D:
- case G:
- case GE:
- case F: ch = rd_F((ufloat *)ptr,p->p1,p->p2.i[0],len);
- break;
-
- /* Z and ZM assume 8-bit bytes. */
-
- case ZM:
- case Z:
- ch = rd_Z((Uint *)ptr, p->p1, len);
- break;
- }
- if(ch == 0) return(ch);
- else if(ch == EOF) return(EOF);
- if (f__cf)
- clearerr(f__cf);
- return(errno);
-}
-
- int
-#ifdef KR_headers
-rd_ned(p) struct syl *p;
-#else
-rd_ned(struct syl *p)
-#endif
-{
- switch(p->op)
- {
- default: fprintf(stderr,"rd_ned, unexpected code: %d\n", p->op);
- sig_die(f__fmtbuf, 1);
- case APOS:
- return(rd_POS(p->p2.s));
- case H: return(rd_H(p->p1,p->p2.s));
- case SLASH: return((*f__donewrec)());
- case TR:
- case X: f__cursor += p->p1;
- return(1);
- case T: f__cursor=p->p1-f__recpos - 1;
- return(1);
- case TL: f__cursor -= p->p1;
- if(f__cursor < -f__recpos) /* TL1000, 1X */
- f__cursor = -f__recpos;
- return(1);
- }
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/rewind.c b/Modules/ThirdParty/6S/src/libf2c/rewind.c
deleted file mode 100644
index c1acfdb..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/rewind.c
+++ /dev/null
@@ -1,33 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#ifdef KR_headers
-integer f_rew(a) alist *a;
-#else
-integer f_rew(alist *a)
-#endif
-{
- unit *b;
- if(a->aunit>=MXUNIT || a->aunit<0)
- err(a->aerr,101,"rewind");
- b = &f__units[a->aunit];
- if(b->ufd == NULL || b->uwrt == 3)
- return(0);
- if(!b->useek)
- err(a->aerr,106,"rewind")
- if(b->uwrt) {
- (void) t_runc(a);
- b->uwrt = 3;
- }
- rewind(b->ufd);
- b->uend=0;
- return(0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/rsfe.c b/Modules/ThirdParty/6S/src/libf2c/rsfe.c
deleted file mode 100644
index 2af176e..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/rsfe.c
+++ /dev/null
@@ -1,94 +0,0 @@
-/* read sequential formatted external */
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "fmt.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- int
-xrd_SL(Void)
-{ int ch;
- if(!f__curunit->uend)
- while((ch=getc(f__cf))!='\n')
- if (ch == EOF) {
- f__curunit->uend = 1;
- break;
- }
- f__cursor=f__recpos=0;
- return(1);
-}
-
- int
-x_getc(Void)
-{ int ch;
- if(f__curunit->uend) return(EOF);
- ch = getc(f__cf);
- if(ch!=EOF && ch!='\n')
- { f__recpos++;
- return(ch);
- }
- if(ch=='\n')
- { (void) ungetc(ch,f__cf);
- return(ch);
- }
- if(f__curunit->uend || feof(f__cf))
- { errno=0;
- f__curunit->uend=1;
- return(-1);
- }
- return(-1);
-}
-
- int
-x_endp(Void)
-{
- xrd_SL();
- return f__curunit->uend == 1 ? EOF : 0;
-}
-
- int
-x_rev(Void)
-{
- (void) xrd_SL();
- return(0);
-}
-#ifdef KR_headers
-integer s_rsfe(a) cilist *a; /* start */
-#else
-integer s_rsfe(cilist *a) /* start */
-#endif
-{ int n;
- if(!f__init) f_init();
- f__reading=1;
- f__sequential=1;
- f__formatted=1;
- f__external=1;
- if(n=c_sfe(a)) return(n);
- f__elist=a;
- f__cursor=f__recpos=0;
- f__scale=0;
- f__fmtbuf=a->cifmt;
- f__cf=f__curunit->ufd;
- if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio");
- f__getn= x_getc;
- f__doed= rd_ed;
- f__doned= rd_ned;
- fmt_bg();
- f__doend=x_endp;
- f__donewrec=xrd_SL;
- f__dorevert=x_rev;
- f__cblank=f__curunit->ublnk;
- f__cplus=0;
- if(f__curunit->uwrt && f__nowreading(f__curunit))
- err(a->cierr,errno,"read start");
- if(f__curunit->uend)
- err(f__elist->ciend,(EOF),"read start");
- return(0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/rsli.c b/Modules/ThirdParty/6S/src/libf2c/rsli.c
deleted file mode 100644
index 6794780..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/rsli.c
+++ /dev/null
@@ -1,112 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "lio.h"
-#include "fmt.h" /* for f__doend */
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-extern flag f__lquit;
-extern int f__lcount;
-extern char *f__icptr;
-extern char *f__icend;
-extern icilist *f__svic;
-extern int f__icnum, f__recpos;
-
-static int i_getc(Void)
-{
- if(f__recpos >= f__svic->icirlen) {
- if (f__recpos++ == f__svic->icirlen)
- return '\n';
- z_rnew();
- }
- f__recpos++;
- if(f__icptr >= f__icend)
- return EOF;
- return(*f__icptr++);
- }
-
- static
-#ifdef KR_headers
-int i_ungetc(ch, f) int ch; FILE *f;
-#else
-int i_ungetc(int ch, FILE *f)
-#endif
-{
- if (--f__recpos == f__svic->icirlen)
- return '\n';
- if (f__recpos < -1)
- err(f__svic->icierr,110,"recend");
- /* *--icptr == ch, and icptr may point to read-only memory */
- return *--f__icptr /* = ch */;
- }
-
- static void
-#ifdef KR_headers
-c_lir(a) icilist *a;
-#else
-c_lir(icilist *a)
-#endif
-{
- extern int l_eof;
- f__reading = 1;
- f__external = 0;
- f__formatted = 1;
- f__svic = a;
- L_len = a->icirlen;
- f__recpos = -1;
- f__icnum = f__recpos = 0;
- f__cursor = 0;
- l_getc = i_getc;
- l_ungetc = i_ungetc;
- l_eof = 0;
- f__icptr = a->iciunit;
- f__icend = f__icptr + a->icirlen*a->icirnum;
- f__cf = 0;
- f__curunit = 0;
- f__elist = (cilist *)a;
- }
-
-
-#ifdef KR_headers
-integer s_rsli(a) icilist *a;
-#else
-integer s_rsli(icilist *a)
-#endif
-{
- f__lioproc = l_read;
- f__lquit = 0;
- f__lcount = 0;
- c_lir(a);
- f__doend = 0;
- return(0);
- }
-
-integer e_rsli(Void)
-{ return 0; }
-
-#ifdef KR_headers
-integer s_rsni(a) icilist *a;
-#else
-extern int x_rsne(cilist*);
-
-integer s_rsni(icilist *a)
-#endif
-{
- extern int nml_read;
- integer rv;
- cilist ca;
- ca.ciend = a->iciend;
- ca.cierr = a->icierr;
- ca.cifmt = a->icifmt;
- c_lir(a);
- rv = x_rsne(&ca);
- nml_read = 0;
- return rv;
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/rsne.c b/Modules/ThirdParty/6S/src/libf2c/rsne.c
deleted file mode 100644
index 2e26e24..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/rsne.c
+++ /dev/null
@@ -1,621 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "lio.h"
-#include <ctype.h>
-#include <stdio.h>
-
-#define MAX_NL_CACHE 3 /* maximum number of namelist hash tables to cache */
-#define MAXDIM 20 /* maximum number of subscripts */
-
- struct dimen {
- ftnlen extent;
- ftnlen curval;
- ftnlen delta;
- ftnlen stride;
- };
- typedef struct dimen dimen;
-
- struct hashentry {
- struct hashentry *next;
- char *name;
- Vardesc *vd;
- };
- typedef struct hashentry hashentry;
-
- struct hashtab {
- struct hashtab *next;
- Namelist *nl;
- int htsize;
- hashentry *tab[1];
- };
- typedef struct hashtab hashtab;
-
- static hashtab *nl_cache;
- static int n_nlcache;
- static hashentry **zot;
- static int colonseen;
- extern ftnlen f__typesize[];
-
- extern flag f__lquit;
- extern int f__lcount, nml_read;
- extern int t_getc(Void);
-
-#ifdef KR_headers
- extern char *malloc(), *memset();
-
-#ifdef ungetc
- static int
-un_getc(x,f__cf) int x; FILE *f__cf;
-{ return ungetc(x,f__cf); }
-#else
-#define un_getc ungetc
- extern int ungetc();
-#endif
-
-#else
-#undef abs
-#undef min
-#undef max
-#include "stdlib.h"
-#include "string.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef ungetc
- static int
-un_getc(int x, FILE *f__cf)
-{ return ungetc(x,f__cf); }
-#else
-#define un_getc ungetc
-extern int ungetc(int, FILE*); /* for systems with a buggy stdio.h */
-#endif
-#endif
-
- static Vardesc *
-#ifdef KR_headers
-hash(ht, s) hashtab *ht; register char *s;
-#else
-hash(hashtab *ht, register char *s)
-#endif
-{
- register int c, x;
- register hashentry *h;
- char *s0 = s;
-
- for(x = 0; c = *s++; x = x & 0x4000 ? ((x << 1) & 0x7fff) + 1 : x << 1)
- x += c;
- for(h = *(zot = ht->tab + x % ht->htsize); h; h = h->next)
- if (!strcmp(s0, h->name))
- return h->vd;
- return 0;
- }
-
- hashtab *
-#ifdef KR_headers
-mk_hashtab(nl) Namelist *nl;
-#else
-mk_hashtab(Namelist *nl)
-#endif
-{
- int nht, nv;
- hashtab *ht;
- Vardesc *v, **vd, **vde;
- hashentry *he;
-
- hashtab **x, **x0, *y;
- for(x = &nl_cache; y = *x; x0 = x, x = &y->next)
- if (nl == y->nl)
- return y;
- if (n_nlcache >= MAX_NL_CACHE) {
- /* discard least recently used namelist hash table */
- y = *x0;
- free((char *)y->next);
- y->next = 0;
- }
- else
- n_nlcache++;
- nv = nl->nvars;
- if (nv >= 0x4000)
- nht = 0x7fff;
- else {
- for(nht = 1; nht < nv; nht <<= 1);
- nht += nht - 1;
- }
- ht = (hashtab *)malloc(sizeof(hashtab) + (nht-1)*sizeof(hashentry *)
- + nv*sizeof(hashentry));
- if (!ht)
- return 0;
- he = (hashentry *)&ht->tab[nht];
- ht->nl = nl;
- ht->htsize = nht;
- ht->next = nl_cache;
- nl_cache = ht;
- memset((char *)ht->tab, 0, nht*sizeof(hashentry *));
- vd = nl->vars;
- vde = vd + nv;
- while(vd < vde) {
- v = *vd++;
- if (!hash(ht, v->name)) {
- he->next = *zot;
- *zot = he;
- he->name = v->name;
- he->vd = v;
- he++;
- }
- }
- return ht;
- }
-
-static char Alpha[256], Alphanum[256];
-
- static VOID
-nl_init(Void) {
- register char *s;
- register int c;
-
- if(!f__init)
- f_init();
- for(s = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; c = *s++; )
- Alpha[c]
- = Alphanum[c]
- = Alpha[c + 'a' - 'A']
- = Alphanum[c + 'a' - 'A']
- = c;
- for(s = "0123456789_"; c = *s++; )
- Alphanum[c] = c;
- }
-
-#define GETC(x) (x=(*l_getc)())
-#define Ungetc(x,y) (*l_ungetc)(x,y)
-
- static int
-#ifdef KR_headers
-getname(s, slen) register char *s; int slen;
-#else
-getname(register char *s, int slen)
-#endif
-{
- register char *se = s + slen - 1;
- register int ch;
-
- GETC(ch);
- if (!(*s++ = Alpha[ch & 0xff])) {
- if (ch != EOF)
- ch = 115;
- errfl(f__elist->cierr, ch, "namelist read");
- }
- while(*s = Alphanum[GETC(ch) & 0xff])
- if (s < se)
- s++;
- if (ch == EOF)
- err(f__elist->cierr, EOF, "namelist read");
- if (ch > ' ')
- Ungetc(ch,f__cf);
- return *s = 0;
- }
-
- static int
-#ifdef KR_headers
-getnum(chp, val) int *chp; ftnlen *val;
-#else
-getnum(int *chp, ftnlen *val)
-#endif
-{
- register int ch, sign;
- register ftnlen x;
-
- while(GETC(ch) <= ' ' && ch >= 0);
- if (ch == '-') {
- sign = 1;
- GETC(ch);
- }
- else {
- sign = 0;
- if (ch == '+')
- GETC(ch);
- }
- x = ch - '0';
- if (x < 0 || x > 9)
- return 115;
- while(GETC(ch) >= '0' && ch <= '9')
- x = 10*x + ch - '0';
- while(ch <= ' ' && ch >= 0)
- GETC(ch);
- if (ch == EOF)
- return EOF;
- *val = sign ? -x : x;
- *chp = ch;
- return 0;
- }
-
- static int
-#ifdef KR_headers
-getdimen(chp, d, delta, extent, x1)
- int *chp; dimen *d; ftnlen delta, extent, *x1;
-#else
-getdimen(int *chp, dimen *d, ftnlen delta, ftnlen extent, ftnlen *x1)
-#endif
-{
- register int k;
- ftnlen x2, x3;
-
- if (k = getnum(chp, x1))
- return k;
- x3 = 1;
- if (*chp == ':') {
- if (k = getnum(chp, &x2))
- return k;
- x2 -= *x1;
- if (*chp == ':') {
- if (k = getnum(chp, &x3))
- return k;
- if (!x3)
- return 123;
- x2 /= x3;
- colonseen = 1;
- }
- if (x2 < 0 || x2 >= extent)
- return 123;
- d->extent = x2 + 1;
- }
- else
- d->extent = 1;
- d->curval = 0;
- d->delta = delta;
- d->stride = x3;
- return 0;
- }
-
-#ifndef No_Namelist_Questions
- static Void
-#ifdef KR_headers
-print_ne(a) cilist *a;
-#else
-print_ne(cilist *a)
-#endif
-{
- flag intext = f__external;
- int rpsave = f__recpos;
- FILE *cfsave = f__cf;
- unit *usave = f__curunit;
- cilist t;
- t = *a;
- t.ciunit = 6;
- s_wsne(&t);
- fflush(f__cf);
- f__external = intext;
- f__reading = 1;
- f__recpos = rpsave;
- f__cf = cfsave;
- f__curunit = usave;
- f__elist = a;
- }
-#endif
-
- static char where0[] = "namelist read start ";
-
- int
-#ifdef KR_headers
-x_rsne(a) cilist *a;
-#else
-x_rsne(cilist *a)
-#endif
-{
- int ch, got1, k, n, nd, quote, readall;
- Namelist *nl;
- static char where[] = "namelist read";
- char buf[64];
- hashtab *ht;
- Vardesc *v;
- dimen *dn, *dn0, *dn1;
- ftnlen *dims, *dims1;
- ftnlen b, b0, b1, ex, no, nomax, size, span;
- ftnint no1, no2, type;
- char *vaddr;
- long iva, ivae;
- dimen dimens[MAXDIM], substr;
-
- if (!Alpha['a'])
- nl_init();
- f__reading=1;
- f__formatted=1;
- got1 = 0;
- top:
- for(;;) switch(GETC(ch)) {
- case EOF:
- eof:
- err(a->ciend,(EOF),where0);
- case '&':
- case '$':
- goto have_amp;
-#ifndef No_Namelist_Questions
- case '?':
- print_ne(a);
- continue;
-#endif
- default:
- if (ch <= ' ' && ch >= 0)
- continue;
-#ifndef No_Namelist_Comments
- while(GETC(ch) != '\n')
- if (ch == EOF)
- goto eof;
-#else
- errfl(a->cierr, 115, where0);
-#endif
- }
- have_amp:
- if (ch = getname(buf,sizeof(buf)))
- return ch;
- nl = (Namelist *)a->cifmt;
- if (strcmp(buf, nl->name))
-#ifdef No_Bad_Namelist_Skip
- errfl(a->cierr, 118, where0);
-#else
- {
- fprintf(stderr,
- "Skipping namelist \"%s\": seeking namelist \"%s\".\n",
- buf, nl->name);
- fflush(stderr);
- for(;;) switch(GETC(ch)) {
- case EOF:
- err(a->ciend, EOF, where0);
- case '/':
- case '&':
- case '$':
- if (f__external)
- e_rsle();
- else
- z_rnew();
- goto top;
- case '"':
- case '\'':
- quote = ch;
- more_quoted:
- while(GETC(ch) != quote)
- if (ch == EOF)
- err(a->ciend, EOF, where0);
- if (GETC(ch) == quote)
- goto more_quoted;
- Ungetc(ch,f__cf);
- default:
- continue;
- }
- }
-#endif
- ht = mk_hashtab(nl);
- if (!ht)
- errfl(f__elist->cierr, 113, where0);
- for(;;) {
- for(;;) switch(GETC(ch)) {
- case EOF:
- if (got1)
- return 0;
- err(a->ciend, EOF, where0);
- case '/':
- case '$':
- case '&':
- return 0;
- default:
- if (ch <= ' ' && ch >= 0 || ch == ',')
- continue;
- Ungetc(ch,f__cf);
- if (ch = getname(buf,sizeof(buf)))
- return ch;
- goto havename;
- }
- havename:
- v = hash(ht,buf);
- if (!v)
- errfl(a->cierr, 119, where);
- while(GETC(ch) <= ' ' && ch >= 0);
- vaddr = v->addr;
- type = v->type;
- if (type < 0) {
- size = -type;
- type = TYCHAR;
- }
- else
- size = f__typesize[type];
- ivae = size;
- iva = readall = 0;
- if (ch == '(' /*)*/ ) {
- dn = dimens;
- if (!(dims = v->dims)) {
- if (type != TYCHAR)
- errfl(a->cierr, 122, where);
- if (k = getdimen(&ch, dn, (ftnlen)size,
- (ftnlen)size, &b))
- errfl(a->cierr, k, where);
- if (ch != ')')
- errfl(a->cierr, 115, where);
- b1 = dn->extent;
- if (--b < 0 || b + b1 > size)
- return 124;
- iva += b;
- size = b1;
- while(GETC(ch) <= ' ' && ch >= 0);
- goto scalar;
- }
- nd = (int)dims[0];
- nomax = span = dims[1];
- ivae = iva + size*nomax;
- colonseen = 0;
- if (k = getdimen(&ch, dn, size, nomax, &b))
- errfl(a->cierr, k, where);
- no = dn->extent;
- b0 = dims[2];
- dims1 = dims += 3;
- ex = 1;
- for(n = 1; n++ < nd; dims++) {
- if (ch != ',')
- errfl(a->cierr, 115, where);
- dn1 = dn + 1;
- span /= *dims;
- if (k = getdimen(&ch, dn1, dn->delta**dims,
- span, &b1))
- errfl(a->cierr, k, where);
- ex *= *dims;
- b += b1*ex;
- no *= dn1->extent;
- dn = dn1;
- }
- if (ch != ')')
- errfl(a->cierr, 115, where);
- readall = 1 - colonseen;
- b -= b0;
- if (b < 0 || b >= nomax)
- errfl(a->cierr, 125, where);
- iva += size * b;
- dims = dims1;
- while(GETC(ch) <= ' ' && ch >= 0);
- no1 = 1;
- dn0 = dimens;
- if (type == TYCHAR && ch == '(' /*)*/) {
- if (k = getdimen(&ch, &substr, size, size, &b))
- errfl(a->cierr, k, where);
- if (ch != ')')
- errfl(a->cierr, 115, where);
- b1 = substr.extent;
- if (--b < 0 || b + b1 > size)
- return 124;
- iva += b;
- b0 = size;
- size = b1;
- while(GETC(ch) <= ' ' && ch >= 0);
- if (b1 < b0)
- goto delta_adj;
- }
- if (readall)
- goto delta_adj;
- for(; dn0 < dn; dn0++) {
- if (dn0->extent != *dims++ || dn0->stride != 1)
- break;
- no1 *= dn0->extent;
- }
- if (dn0 == dimens && dimens[0].stride == 1) {
- no1 = dimens[0].extent;
- dn0++;
- }
- delta_adj:
- ex = 0;
- for(dn1 = dn0; dn1 <= dn; dn1++)
- ex += (dn1->extent-1)
- * (dn1->delta *= dn1->stride);
- for(dn1 = dn; dn1 > dn0; dn1--) {
- ex -= (dn1->extent - 1) * dn1->delta;
- dn1->delta -= ex;
- }
- }
- else if (dims = v->dims) {
- no = no1 = dims[1];
- ivae = iva + no*size;
- }
- else
- scalar:
- no = no1 = 1;
- if (ch != '=')
- errfl(a->cierr, 115, where);
- got1 = nml_read = 1;
- f__lcount = 0;
- readloop:
- for(;;) {
- if (iva >= ivae || iva < 0) {
- f__lquit = 1;
- goto mustend;
- }
- else if (iva + no1*size > ivae)
- no1 = (ivae - iva)/size;
- f__lquit = 0;
- if (k = l_read(&no1, vaddr + iva, size, type))
- return k;
- if (f__lquit == 1)
- return 0;
- if (readall) {
- iva += dn0->delta;
- if (f__lcount > 0) {
- no2 = (ivae - iva)/size;
- if (no2 > f__lcount)
- no2 = f__lcount;
- if (k = l_read(&no2, vaddr + iva,
- size, type))
- return k;
- iva += no2 * dn0->delta;
- }
- }
- mustend:
- GETC(ch);
- if (readall)
- if (iva >= ivae)
- readall = 0;
- else for(;;) {
- switch(ch) {
- case ' ':
- case '\t':
- case '\n':
- GETC(ch);
- continue;
- }
- break;
- }
- if (ch == '/' || ch == '$' || ch == '&') {
- f__lquit = 1;
- return 0;
- }
- else if (f__lquit) {
- while(ch <= ' ' && ch >= 0)
- GETC(ch);
- Ungetc(ch,f__cf);
- if (!Alpha[ch & 0xff] && ch >= 0)
- errfl(a->cierr, 125, where);
- break;
- }
- Ungetc(ch,f__cf);
- if (readall && !Alpha[ch & 0xff])
- goto readloop;
- if ((no -= no1) <= 0)
- break;
- for(dn1 = dn0; dn1 <= dn; dn1++) {
- if (++dn1->curval < dn1->extent) {
- iva += dn1->delta;
- goto readloop;
- }
- dn1->curval = 0;
- }
- break;
- }
- }
- }
-
- integer
-#ifdef KR_headers
-s_rsne(a) cilist *a;
-#else
-s_rsne(cilist *a)
-#endif
-{
- extern int l_eof;
- int n;
-
- f__external=1;
- l_eof = 0;
- if(n = c_le(a))
- return n;
- if(f__curunit->uwrt && f__nowreading(f__curunit))
- err(a->cierr,errno,where0);
- l_getc = t_getc;
- l_ungetc = un_getc;
- f__doend = xrd_SL;
- n = x_rsne(a);
- nml_read = 0;
- if (n)
- return n;
- return e_rsle();
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/s_cat.c b/Modules/ThirdParty/6S/src/libf2c/s_cat.c
deleted file mode 100644
index cb60c59..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/s_cat.c
+++ /dev/null
@@ -1,89 +0,0 @@
-/* Unless compiled with -DNO_OVERWRITE, this variant of s_cat allows the
- * target of a concatenation to appear on its right-hand side (contrary
- * to the Fortran 77 Standard, but in accordance with Fortran 90).
- */
-
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifndef NO_OVERWRITE
-#include "stdio.h"
-#undef abs
-#ifdef KR_headers
- extern char *F77_aloc();
- extern void free();
- extern void exit_();
-#else
-#undef min
-#undef max
-#include "stdlib.h"
-extern
-#ifdef __cplusplus
- "C"
-#endif
- char *F77_aloc(ftnlen, char*);
-#endif
-#include "string.h"
-#endif /* NO_OVERWRITE */
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- VOID
-#ifdef KR_headers
-s_cat(lp, rpp, rnp, np, ll) char *lp, *rpp[]; ftnint rnp[], *np; ftnlen ll;
-#else
-s_cat(char *lp, char *rpp[], ftnint rnp[], ftnint *np, ftnlen ll)
-#endif
-{
- ftnlen i, nc;
- char *rp;
- ftnlen n = *np;
-#ifndef NO_OVERWRITE
- ftnlen L, m;
- char *lp0, *lp1;
-
- lp0 = 0;
- lp1 = lp;
- L = ll;
- i = 0;
- while(i < n) {
- rp = rpp[i];
- m = rnp[i++];
- if (rp >= lp1 || rp + m <= lp) {
- if ((L -= m) <= 0) {
- n = i;
- break;
- }
- lp1 += m;
- continue;
- }
- lp0 = lp;
- lp = lp1 = F77_aloc(L = ll, "s_cat");
- break;
- }
- lp1 = lp;
-#endif /* NO_OVERWRITE */
- for(i = 0 ; i < n ; ++i) {
- nc = ll;
- if(rnp[i] < nc)
- nc = rnp[i];
- ll -= nc;
- rp = rpp[i];
- while(--nc >= 0)
- *lp++ = *rp++;
- }
- while(--ll >= 0)
- *lp++ = ' ';
-#ifndef NO_OVERWRITE
- if (lp0) {
- memcpy(lp0, lp1, L);
- free(lp1);
- }
-#endif
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/s_cmp.c b/Modules/ThirdParty/6S/src/libf2c/s_cmp.c
deleted file mode 100644
index d3bb061..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/s_cmp.c
+++ /dev/null
@@ -1,53 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/* compare two strings */
-
-#ifdef KR_headers
-integer s_cmp(a0, b0, la, lb) char *a0, *b0; ftnlen la, lb;
-#else
-integer s_cmp(char *a0, char *b0, ftnlen la, ftnlen lb)
-#endif
-{
-register unsigned char *a, *aend, *b, *bend;
-a = (unsigned char *)a0;
-b = (unsigned char *)b0;
-aend = a + la;
-bend = b + lb;
-
-if(la <= lb)
- {
- while(a < aend)
- if(*a != *b)
- return( *a - *b );
- else
- { ++a; ++b; }
-
- while(b < bend)
- if(*b != ' ')
- return( ' ' - *b );
- else ++b;
- }
-
-else
- {
- while(b < bend)
- if(*a == *b)
- { ++a; ++b; }
- else
- return( *a - *b );
- while(a < aend)
- if(*a != ' ')
- return(*a - ' ');
- else ++a;
- }
-return(0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/s_copy.c b/Modules/ThirdParty/6S/src/libf2c/s_copy.c
deleted file mode 100644
index b99ed68..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/s_copy.c
+++ /dev/null
@@ -1,60 +0,0 @@
-/* Unless compiled with -DNO_OVERWRITE, this variant of s_copy allows the
- * target of an assignment to appear on its right-hand side (contrary
- * to the Fortran 77 Standard, but in accordance with Fortran 90),
- * as in a(2:5) = a(4:7) .
- */
-
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/* assign strings: a = b */
-
-#ifdef KR_headers
-VOID s_copy(a, b, la, lb) register char *a, *b; ftnlen la, lb;
-#else
-void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb)
-#endif
-{
- register char *aend, *bend;
-
- aend = a + la;
-
- if(la <= lb)
-#ifndef NO_OVERWRITE
- if (a <= b || a >= b + la)
-#endif
- while(a < aend)
- *a++ = *b++;
-#ifndef NO_OVERWRITE
- else
- for(b += la; a < aend; )
- *--aend = *--b;
-#endif
-
- else {
- bend = b + lb;
-#ifndef NO_OVERWRITE
- if (a <= b || a >= bend)
-#endif
- while(b < bend)
- *a++ = *b++;
-#ifndef NO_OVERWRITE
- else {
- a += lb;
- while(b < bend)
- *--a = *--bend;
- a += lb;
- }
-#endif
- while(a < aend)
- *a++ = ' ';
- }
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/s_paus.c b/Modules/ThirdParty/6S/src/libf2c/s_paus.c
deleted file mode 100644
index 7bbdaef..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/s_paus.c
+++ /dev/null
@@ -1,99 +0,0 @@
-#include "stdio.h"
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#define PAUSESIG 15
-
-#include "signal1.h"
-#ifdef KR_headers
-#define Void /* void */
-#define Int /* int */
-#else
-#define Void void
-#define Int int
-#undef abs
-#undef min
-#undef max
-#include "stdlib.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern int getpid(void), isatty(int), pause(void);
-#endif
-
-extern VOID f_exit(Void);
-
-#ifndef MSDOS
- static VOID
-waitpause(Sigarg)
-{ Use_Sigarg;
- return;
- }
-#endif
-
- static VOID
-#ifdef KR_headers
-s_1paus(fin) FILE *fin;
-#else
-s_1paus(FILE *fin)
-#endif
-{
- fprintf(stderr,
- "To resume execution, type go. Other input will terminate the job.\n");
- fflush(stderr);
- if( getc(fin)!='g' || getc(fin)!='o' || getc(fin)!='\n' ) {
- fprintf(stderr, "STOP\n");
-#ifdef NO_ONEXIT
- f_exit();
-#endif
- exit(0);
- }
- }
-
- int
-#ifdef KR_headers
-s_paus(s, n) char *s; ftnlen n;
-#else
-s_paus(char *s, ftnlen n)
-#endif
-{
- fprintf(stderr, "PAUSE ");
- if(n > 0)
- fprintf(stderr, " %.*s", (int)n, s);
- fprintf(stderr, " statement executed\n");
- if( isatty(fileno(stdin)) )
- s_1paus(stdin);
- else {
-#ifdef MSDOS
- FILE *fin;
- fin = fopen("con", "r");
- if (!fin) {
- fprintf(stderr, "s_paus: can't open con!\n");
- fflush(stderr);
- exit(1);
- }
- s_1paus(fin);
- fclose(fin);
-#else
- fprintf(stderr,
- "To resume execution, execute a kill -%d %d command\n",
- PAUSESIG, getpid() );
- signal1(PAUSESIG, waitpause);
- fflush(stderr);
- pause();
-#endif
- }
- fprintf(stderr, "Execution resumes after PAUSE.\n");
- fflush(stderr);
- return 0; /* NOT REACHED */
-#ifdef __cplusplus
- }
-#endif
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/s_rnge.c b/Modules/ThirdParty/6S/src/libf2c/s_rnge.c
deleted file mode 100644
index bab0c58..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/s_rnge.c
+++ /dev/null
@@ -1,35 +0,0 @@
-#include "stdio.h"
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/* called when a subscript is out of range */
-
-#ifdef KR_headers
-extern VOID sig_die();
-integer s_rnge(varn, offset, procn, line) char *varn, *procn; ftnint offset, line;
-#else
-extern VOID sig_die(char*,int);
-integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line)
-#endif
-{
-register int i;
-
-fprintf(stderr, "Subscript out of range on file line %ld, procedure ",
- (long)line);
-while((i = *procn) && i != '_' && i != ' ')
- putc(*procn++, stderr);
-fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ",
- (long)offset+1);
-while((i = *varn) && i != ' ')
- putc(*varn++, stderr);
-sig_die(".", 1);
-return 0; /* not reached */
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/s_stop.c b/Modules/ThirdParty/6S/src/libf2c/s_stop.c
deleted file mode 100644
index 6f2590c..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/s_stop.c
+++ /dev/null
@@ -1,51 +0,0 @@
-#include "stdio.h"
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-extern void f_exit();
-int s_stop(s, n) char *s; ftnlen n;
-#else
-#undef abs
-#undef min
-#undef max
-#include "stdlib.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#ifdef __cplusplus
-extern "C" {
-#endif
-void f_exit(void);
-
-int s_stop(char *s, ftnlen n)
-#endif
-{
-int i;
-
-if(n > 0)
- {
- fprintf(stderr, "STOP ");
- for(i = 0; i<n ; ++i)
- putc(*s++, stderr);
- fprintf(stderr, " statement executed\n");
- }
-#ifdef NO_ONEXIT
-f_exit();
-#endif
-exit(0);
-
-/* We cannot avoid (useless) compiler diagnostics here: */
-/* some compilers complain if there is no return statement, */
-/* and others complain that this one cannot be reached. */
-
-return 0; /* NOT REACHED */
-}
-#ifdef __cplusplus
-}
-#endif
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/scomptry.bat b/Modules/ThirdParty/6S/src/libf2c/scomptry.bat
deleted file mode 100644
index 2c11a97..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/scomptry.bat
+++ /dev/null
@@ -1,5 +0,0 @@
-%1 -DWRITE_ARITH_H -DNO_FPINIT %2 %3 %4 %5 %6 %7 %8 %9
-if errorlevel 1 goto nolonglong
-exit 0
-:nolonglong
-%1 -DNO_LONG_LONG -DWRITE_ARITH_H -DNO_FPINIT %2 %3 %4 %5 %6 %7 %8 %9
diff --git a/Modules/ThirdParty/6S/src/libf2c/sfe.c b/Modules/ThirdParty/6S/src/libf2c/sfe.c
deleted file mode 100644
index 68c46be..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/sfe.c
+++ /dev/null
@@ -1,46 +0,0 @@
-/* sequential formatted external common routines*/
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-extern char *f__fmtbuf;
-
-integer e_rsfe(Void)
-{ int n;
- n=en_fio();
- f__fmtbuf=NULL;
- return(n);
-}
-
- int
-#ifdef KR_headers
-c_sfe(a) cilist *a; /* check */
-#else
-c_sfe(cilist *a) /* check */
-#endif
-{ unit *p;
- f__curunit = p = &f__units[a->ciunit];
- if(a->ciunit >= MXUNIT || a->ciunit<0)
- err(a->cierr,101,"startio");
- if(p->ufd==NULL && fk_open(SEQ,FMT,a->ciunit)) err(a->cierr,114,"sfe")
- if(!p->ufmt) err(a->cierr,102,"sfe")
- return(0);
-}
-integer e_wsfe(Void)
-{
- int n = en_fio();
- f__fmtbuf = NULL;
-#ifdef ALWAYS_FLUSH
- if (!n && fflush(f__cf))
- err(f__elist->cierr, errno, "write end");
-#endif
- return n;
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/sig_die.c b/Modules/ThirdParty/6S/src/libf2c/sig_die.c
deleted file mode 100644
index 53de94d..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/sig_die.c
+++ /dev/null
@@ -1,57 +0,0 @@
-/* OTB Modifications */
-#include "otb_6S_f2c.h"
-#undef abs
-#undef min
-#undef max
-
-#include "stdio.h"
-#include "signal.h"
-
-#ifndef SIGIOT
-#ifdef SIGABRT
-#define SIGIOT SIGABRT
-#endif
-#endif
-
-#ifdef KR_headers
-void sig_die(s, kill) register char *s; int kill;
-#else
-#include "stdlib.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#ifdef __cplusplus
-extern "C" {
-#endif
- extern void f_exit(void);
-
-void sig_die(register char *s, int kill)
-#endif
-{
- /* print error message, then clear buffers */
- fprintf(stderr, "%s\n", s);
-
- if(kill)
- {
- fflush(stderr);
- f_exit();
- fflush(stderr);
- /* now get a core */
-#ifdef SIGIOT
- signal(SIGIOT, SIG_DFL);
-#endif
- abort();
- }
- else {
-#ifdef NO_ONEXIT
- f_exit();
-#endif
- exit(1);
- }
- }
-#ifdef __cplusplus
-}
-#endif
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/signal1.h b/Modules/ThirdParty/6S/src/libf2c/signal1.h
deleted file mode 100644
index a383774..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/signal1.h
+++ /dev/null
@@ -1,35 +0,0 @@
-/* You may need to adjust the definition of signal1 to supply a */
-/* cast to the correct argument type. This detail is system- and */
-/* compiler-dependent. The #define below assumes signal.h declares */
-/* type SIG_PF for the signal function's second argument. */
-
-/* For some C++ compilers, "#define Sigarg_t ..." may be appropriate. */
-
-#include <signal.h>
-
-#ifndef Sigret_t
-#define Sigret_t void
-#endif
-#ifndef Sigarg_t
-#ifdef KR_headers
-#define Sigarg_t
-#else
-#define Sigarg_t int
-#endif
-#endif /*Sigarg_t*/
-
-#ifdef USE_SIG_PF /* compile with -DUSE_SIG_PF under IRIX */
-#define sig_pf SIG_PF
-#else
-typedef Sigret_t (*sig_pf)(Sigarg_t);
-#endif
-
-#define signal1(a,b) signal(a,(sig_pf)b)
-
-#ifdef __cplusplus
-#define Sigarg ...
-#define Use_Sigarg
-#else
-#define Sigarg Int n
-#define Use_Sigarg n = n /* shut up compiler warning */
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/signal1.h0 b/Modules/ThirdParty/6S/src/libf2c/signal1.h0
deleted file mode 100644
index a383774..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/signal1.h0
+++ /dev/null
@@ -1,35 +0,0 @@
-/* You may need to adjust the definition of signal1 to supply a */
-/* cast to the correct argument type. This detail is system- and */
-/* compiler-dependent. The #define below assumes signal.h declares */
-/* type SIG_PF for the signal function's second argument. */
-
-/* For some C++ compilers, "#define Sigarg_t ..." may be appropriate. */
-
-#include <signal.h>
-
-#ifndef Sigret_t
-#define Sigret_t void
-#endif
-#ifndef Sigarg_t
-#ifdef KR_headers
-#define Sigarg_t
-#else
-#define Sigarg_t int
-#endif
-#endif /*Sigarg_t*/
-
-#ifdef USE_SIG_PF /* compile with -DUSE_SIG_PF under IRIX */
-#define sig_pf SIG_PF
-#else
-typedef Sigret_t (*sig_pf)(Sigarg_t);
-#endif
-
-#define signal1(a,b) signal(a,(sig_pf)b)
-
-#ifdef __cplusplus
-#define Sigarg ...
-#define Use_Sigarg
-#else
-#define Sigarg Int n
-#define Use_Sigarg n = n /* shut up compiler warning */
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/signal_.c b/Modules/ThirdParty/6S/src/libf2c/signal_.c
deleted file mode 100644
index 244accd..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/signal_.c
+++ /dev/null
@@ -1,24 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "signal1.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- ftnint
-#ifdef KR_headers
-signal_(sigp, proc) integer *sigp; sig_pf proc;
-#else
-signal_(integer *sigp, sig_pf proc)
-#endif
-{
- int sig;
- sig = (int)*sigp;
-
- return (ftnint)signal(sig, proc);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/signbit.c.omit b/Modules/ThirdParty/6S/src/libf2c/signbit.c.omit
deleted file mode 100644
index de95a3b..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/signbit.c.omit
+++ /dev/null
@@ -1,24 +0,0 @@
-#include "arith.h"
-
-#ifndef Long
-#define Long long
-#endif
-
- int
-#ifdef KR_headers
-signbit_f2c(x) double *x;
-#else
-signbit_f2c(double *x)
-#endif
-{
-#ifdef IEEE_MC68k
- if (*(Long*)x & 0x80000000)
- return 1;
-#else
-#ifdef IEEE_8087
- if (((Long*)x)[1] & 0x80000000)
- return 1;
-#endif /*IEEE_8087*/
-#endif /*IEEE_MC68k*/
- return 0;
- }
diff --git a/Modules/ThirdParty/6S/src/libf2c/sue.c b/Modules/ThirdParty/6S/src/libf2c/sue.c
deleted file mode 100644
index 3cf29d3..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/sue.c
+++ /dev/null
@@ -1,93 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern uiolen f__reclen;
-OFF_T f__recloc;
-
- int
-#ifdef KR_headers
-c_sue(a) cilist *a;
-#else
-c_sue(cilist *a)
-#endif
-{
- f__external=f__sequential=1;
- f__formatted=0;
- f__curunit = &f__units[a->ciunit];
- if(a->ciunit >= MXUNIT || a->ciunit < 0)
- err(a->cierr,101,"startio");
- f__elist=a;
- if(f__curunit->ufd==NULL && fk_open(SEQ,UNF,a->ciunit))
- err(a->cierr,114,"sue");
- f__cf=f__curunit->ufd;
- if(f__curunit->ufmt) err(a->cierr,103,"sue")
- if(!f__curunit->useek) err(a->cierr,103,"sue")
- return(0);
-}
-#ifdef KR_headers
-integer s_rsue(a) cilist *a;
-#else
-integer s_rsue(cilist *a)
-#endif
-{
- int n;
- if(!f__init) f_init();
- f__reading=1;
- if(n=c_sue(a)) return(n);
- f__recpos=0;
- if(f__curunit->uwrt && f__nowreading(f__curunit))
- err(a->cierr, errno, "read start");
- if(fread((char *)&f__reclen,sizeof(uiolen),1,f__cf)
- != 1)
- { if(feof(f__cf))
- { f__curunit->uend = 1;
- err(a->ciend, EOF, "start");
- }
- clearerr(f__cf);
- err(a->cierr, errno, "start");
- }
- return(0);
-}
-#ifdef KR_headers
-integer s_wsue(a) cilist *a;
-#else
-integer s_wsue(cilist *a)
-#endif
-{
- int n;
- if(!f__init) f_init();
- if(n=c_sue(a)) return(n);
- f__reading=0;
- f__reclen=0;
- if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
- err(a->cierr, errno, "write start");
- f__recloc=FTELL(f__cf);
- FSEEK(f__cf,(OFF_T)sizeof(uiolen),SEEK_CUR);
- return(0);
-}
-integer e_wsue(Void)
-{ OFF_T loc;
- fwrite((char *)&f__reclen,sizeof(uiolen),1,f__cf);
-#ifdef ALWAYS_FLUSH
- if (fflush(f__cf))
- err(f__elist->cierr, errno, "write end");
-#endif
- loc=FTELL(f__cf);
- FSEEK(f__cf,f__recloc,SEEK_SET);
- fwrite((char *)&f__reclen,sizeof(uiolen),1,f__cf);
- FSEEK(f__cf,loc,SEEK_SET);
- return(0);
-}
-integer e_rsue(Void)
-{
- FSEEK(f__cf,(OFF_T)(f__reclen-f__recpos+sizeof(uiolen)),SEEK_CUR);
- return(0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/sysdep1.h b/Modules/ThirdParty/6S/src/libf2c/sysdep1.h
deleted file mode 100644
index 9fbd16c..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/sysdep1.h
+++ /dev/null
@@ -1,72 +0,0 @@
-#ifndef SYSDEP_H_INCLUDED
-#define SYSDEP_H_INCLUDED
-#undef USE_LARGEFILE
-#ifndef NO_LONG_LONG
-
-#ifdef __sun__
-#define USE_LARGEFILE
-#define OFF_T off64_t
-#endif
-
-#ifdef __linux__
-#define USE_LARGEFILE
-#ifndef OFF_T
-#define OFF_T __off64_t
-#endif
-#endif
-
-#ifdef _AIX43
-#define _LARGE_FILES
-#define _LARGE_FILE_API
-#define USE_LARGEFILE
-#endif /*_AIX43*/
-
-#ifdef __hpux
-#define _FILE64
-#define _LARGEFILE64_SOURCE
-#define USE_LARGEFILE
-#endif /*__hpux*/
-
-#ifdef __sgi
-#define USE_LARGEFILE
-#endif /*__sgi*/
-
-#ifdef __FreeBSD__
-#define OFF_T off_t
-#define FSEEK fseeko
-#define FTELL ftello
-#endif
-
-#ifdef USE_LARGEFILE
-#ifndef OFF_T
-#define OFF_T off64_t
-#endif
-#ifndef _LARGEFILE_SOURCE
-#define _LARGEFILE_SOURCE
-#endif
-#ifndef _LARGEFILE64_SOURCE
-#define _LARGEFILE64_SOURCE
-#endif
-#include <sys/types.h>
-#include <sys/stat.h>
-#define FOPEN fopen64
-#define FREOPEN freopen64
-#define FSEEK fseeko64
-#define FSTAT fstat64
-#define FTELL ftello64
-#define FTRUNCATE ftruncate64
-#define STAT stat64
-#define STAT_ST stat64
-#endif /*USE_LARGEFILE*/
-#endif /*NO_LONG_LONG*/
-
-#ifndef NON_UNIX_STDIO
-#ifndef USE_LARGEFILE
-#define _INCLUDE_POSIX_SOURCE /* for HP-UX */
-#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */
-#include "sys/types.h"
-#include "sys/stat.h"
-#endif
-#endif
-
-#endif /*SYSDEP_H_INCLUDED*/
diff --git a/Modules/ThirdParty/6S/src/libf2c/sysdep1.h0 b/Modules/ThirdParty/6S/src/libf2c/sysdep1.h0
deleted file mode 100644
index 4c026a2..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/sysdep1.h0
+++ /dev/null
@@ -1,66 +0,0 @@
-#ifndef SYSDEP_H_INCLUDED
-#define SYSDEP_H_INCLUDED
-#undef USE_LARGEFILE
-#ifndef NO_LONG_LONG
-
-#ifdef __sun__
-#define USE_LARGEFILE
-#define OFF_T off64_t
-#endif
-
-#ifdef __linux__
-#define USE_LARGEFILE
-#define OFF_T __off64_t
-#endif
-
-#ifdef _AIX43
-#define _LARGE_FILES
-#define _LARGE_FILE_API
-#define USE_LARGEFILE
-#endif /*_AIX43*/
-
-#ifdef __hpux
-#define _FILE64
-#define _LARGEFILE64_SOURCE
-#define USE_LARGEFILE
-#endif /*__hpux*/
-
-#ifdef __sgi
-#define USE_LARGEFILE
-#endif /*__sgi*/
-
-#ifdef __FreeBSD__
-#define OFF_T off_t
-#define FSEEK fseeko
-#define FTELL ftello
-#endif
-
-#ifdef USE_LARGEFILE
-#ifndef OFF_T
-#define OFF_T off64_t
-#endif
-#define _LARGEFILE_SOURCE
-#define _LARGEFILE64_SOURCE
-#include <sys/types.h>
-#include <sys/stat.h>
-#define FOPEN fopen64
-#define FREOPEN freopen64
-#define FSEEK fseeko64
-#define FSTAT fstat64
-#define FTELL ftello64
-#define FTRUNCATE ftruncate64
-#define STAT stat64
-#define STAT_ST stat64
-#endif /*USE_LARGEFILE*/
-#endif /*NO_LONG_LONG*/
-
-#ifndef NON_UNIX_STDIO
-#ifndef USE_LARGEFILE
-#define _INCLUDE_POSIX_SOURCE /* for HP-UX */
-#define _INCLUDE_XOPEN_SOURCE /* for HP-UX */
-#include "sys/types.h"
-#include "sys/stat.h"
-#endif
-#endif
-
-#endif /*SYSDEP_H_INCLUDED*/
diff --git a/Modules/ThirdParty/6S/src/libf2c/system_.c b/Modules/ThirdParty/6S/src/libf2c/system_.c
deleted file mode 100644
index 56e757c..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/system_.c
+++ /dev/null
@@ -1,45 +0,0 @@
-/* f77 interface to system routine */
-
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-extern char *F77_aloc();
-
- integer
-system_(s, n) register char *s; ftnlen n;
-#else
-#undef abs
-#undef min
-#undef max
-#include "stdlib.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern char *F77_aloc(ftnlen, char*);
-
- integer
-system_(register char *s, ftnlen n)
-#endif
-{
- char buff0[256], *buff;
- register char *bp, *blast;
- integer rv;
-
- buff = bp = n < sizeof(buff0)
- ? buff0 : F77_aloc(n+1, "system_");
- blast = bp + n;
-
- while(bp < blast && *s)
- *bp++ = *s++;
- *bp = 0;
- rv = system(buff);
- if (buff != buff0)
- free(buff);
- return rv;
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/typesize.c b/Modules/ThirdParty/6S/src/libf2c/typesize.c
deleted file mode 100644
index a86ee4c..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/typesize.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-ftnlen f__typesize[] = { 0, 0, sizeof(shortint), sizeof(integer),
- sizeof(real), sizeof(doublereal),
- sizeof(complex), sizeof(doublecomplex),
- sizeof(logical), sizeof(char),
- 0, sizeof(integer1),
- sizeof(logical1), sizeof(shortlogical),
-#ifdef Allow_TYQUAD
- sizeof(longint),
-#endif
- 0};
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/uio.c b/Modules/ThirdParty/6S/src/libf2c/uio.c
deleted file mode 100644
index f95d311..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/uio.c
+++ /dev/null
@@ -1,78 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-uiolen f__reclen;
-
- int
-#ifdef KR_headers
-do_us(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
-#else
-do_us(ftnint *number, char *ptr, ftnlen len)
-#endif
-{
- if(f__reading)
- {
- f__recpos += (int)(*number * len);
- if(f__recpos>f__reclen)
- err(f__elist->cierr, 110, "do_us");
- if (fread(ptr,(int)len,(int)(*number),f__cf) != *number)
- err(f__elist->ciend, EOF, "do_us");
- return(0);
- }
- else
- {
- f__reclen += *number * len;
- (void) fwrite(ptr,(int)len,(int)(*number),f__cf);
- return(0);
- }
-}
-#ifdef KR_headers
-integer do_ud(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
-#else
-integer do_ud(ftnint *number, char *ptr, ftnlen len)
-#endif
-{
- f__recpos += (int)(*number * len);
- if(f__recpos > f__curunit->url && f__curunit->url!=1)
- err(f__elist->cierr,110,"do_ud");
- if(f__reading)
- {
-#ifdef Pad_UDread
-#ifdef KR_headers
- int i;
-#else
- size_t i;
-#endif
- if (!(i = fread(ptr,(int)len,(int)(*number),f__cf))
- && !(f__recpos - *number*len))
- err(f__elist->cierr,EOF,"do_ud")
- if (i < *number)
- memset(ptr + i*len, 0, (*number - i)*len);
- return 0;
-#else
- if(fread(ptr,(int)len,(int)(*number),f__cf) != *number)
- err(f__elist->cierr,EOF,"do_ud")
- else return(0);
-#endif
- }
- (void) fwrite(ptr,(int)len,(int)(*number),f__cf);
- return(0);
-}
-#ifdef KR_headers
-integer do_uio(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
-#else
-integer do_uio(ftnint *number, char *ptr, ftnlen len)
-#endif
-{
- if(f__sequential)
- return(do_us(number,ptr,len));
- else return(do_ud(number,ptr,len));
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/uninit.c b/Modules/ThirdParty/6S/src/libf2c/uninit.c
deleted file mode 100644
index 8b06c5a..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/uninit.c
+++ /dev/null
@@ -1,375 +0,0 @@
-#include <stdio.h>
-#include <string.h>
-#include "arith.h"
-
-#define TYSHORT 2
-#define TYLONG 3
-#define TYREAL 4
-#define TYDREAL 5
-#define TYCOMPLEX 6
-#define TYDCOMPLEX 7
-#define TYINT1 11
-#define TYQUAD 14
-#ifndef Long
-#define Long long
-#endif
-
-#ifdef __mips
-#define RNAN 0xffc00000
-#define DNAN0 0xfff80000
-#define DNAN1 0
-#endif
-
-#ifdef _PA_RISC1_1
-#define RNAN 0xffc00000
-#define DNAN0 0xfff80000
-#define DNAN1 0
-#endif
-
-#ifndef RNAN
-#define RNAN 0xff800001
-#ifdef IEEE_MC68k
-#define DNAN0 0xfff00000
-#define DNAN1 1
-#else
-#define DNAN0 1
-#define DNAN1 0xfff00000
-#endif
-#endif /*RNAN*/
-
-#ifdef KR_headers
-#define Void /*void*/
-#define FA7UL (unsigned Long) 0xfa7a7a7aL
-#else
-#define Void void
-#define FA7UL 0xfa7a7a7aUL
-#endif
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-static void ieee0(Void);
-
-static unsigned Long rnan = RNAN,
- dnan0 = DNAN0,
- dnan1 = DNAN1;
-
-double _0 = 0.;
-
- void
-#ifdef KR_headers
-_uninit_f2c(x, type, len) void *x; int type; long len;
-#else
-_uninit_f2c(void *x, int type, long len)
-#endif
-{
- static int first = 1;
-
- unsigned Long *lx, *lxe;
-
- if (first) {
- first = 0;
- ieee0();
- }
- if (len == 1)
- switch(type) {
- case TYINT1:
- *(char*)x = 'Z';
- return;
- case TYSHORT:
- *(short*)x = 0xfa7a;
- break;
- case TYLONG:
- *(unsigned Long*)x = FA7UL;
- return;
- case TYQUAD:
- case TYCOMPLEX:
- case TYDCOMPLEX:
- break;
- case TYREAL:
- *(unsigned Long*)x = rnan;
- return;
- case TYDREAL:
- lx = (unsigned Long*)x;
- lx[0] = dnan0;
- lx[1] = dnan1;
- return;
- default:
- printf("Surprise type %d in _uninit_f2c\n", type);
- }
- switch(type) {
- case TYINT1:
- memset(x, 'Z', len);
- break;
- case TYSHORT:
- *(short*)x = 0xfa7a;
- break;
- case TYQUAD:
- len *= 2;
- /* no break */
- case TYLONG:
- lx = (unsigned Long*)x;
- lxe = lx + len;
- while(lx < lxe)
- *lx++ = FA7UL;
- break;
- case TYCOMPLEX:
- len *= 2;
- /* no break */
- case TYREAL:
- lx = (unsigned Long*)x;
- lxe = lx + len;
- while(lx < lxe)
- *lx++ = rnan;
- break;
- case TYDCOMPLEX:
- len *= 2;
- /* no break */
- case TYDREAL:
- lx = (unsigned Long*)x;
- for(lxe = lx + 2*len; lx < lxe; lx += 2) {
- lx[0] = dnan0;
- lx[1] = dnan1;
- }
- }
- }
-#ifdef __cplusplus
-}
-#endif
-
-#ifndef MSpc
-#ifdef MSDOS
-#define MSpc
-#else
-#ifdef _WIN32
-#define MSpc
-#endif
-#endif
-#endif
-
-#ifdef MSpc
-#define IEEE0_done
-#include "float.h"
-#include "signal.h"
-
- static void
-ieee0(Void)
-{
-#ifndef __alpha
-#ifndef EM_DENORMAL
-#define EM_DENORMAL _EM_DENORMAL
-#endif
-#ifndef EM_UNDERFLOW
-#define EM_UNDERFLOW _EM_UNDERFLOW
-#endif
-#ifndef EM_INEXACT
-#define EM_INEXACT _EM_INEXACT
-#endif
-#ifndef MCW_EM
-#define MCW_EM _MCW_EM
-#endif
- _control87(EM_DENORMAL | EM_UNDERFLOW | EM_INEXACT, MCW_EM);
-#endif
- /* With MS VC++, compiling and linking with -Zi will permit */
- /* clicking to invoke the MS C++ debugger, which will show */
- /* the point of error -- provided SIGFPE is SIG_DFL. */
- signal(SIGFPE, SIG_DFL);
- }
-#endif /* MSpc */
-
-#ifdef __mips /* must link with -lfpe */
-#define IEEE0_done
-/* code from Eric Grosse */
-#include <stdlib.h>
-#include <stdio.h>
-
- static void
-#ifdef KR_headers
-ieeeuserhand(exception, val) unsigned exception[5]; int val[2];
-#else
-ieeeuserhand(unsigned exception[5], int val[2])
-#endif
-{
- fflush(stdout);
- fprintf(stderr,"ieee0() aborting because of ");
- if(exception[0]==_OVERFL) fprintf(stderr,"overflow\n");
- else if(exception[0]==_UNDERFL) fprintf(stderr,"underflow\n");
- else if(exception[0]==_DIVZERO) fprintf(stderr,"divide by 0\n");
- else if(exception[0]==_INVALID) fprintf(stderr,"invalid operation\n");
- else fprintf(stderr,"\tunknown reason\n");
- fflush(stderr);
- abort();
-}
-
- static void
-#ifdef KR_headers
-ieeeuserhand2(j) unsigned int **j;
-#else
-ieeeuserhand2(unsigned int **j)
-#endif
-{
- fprintf(stderr,"ieee0() aborting because of confusion\n");
- abort();
-}
-
- static void
-ieee0(Void)
-{
- int i;
- for(i=1; i<=4; i++){
- sigfpe_[i].count = 1000;
- sigfpe_[i].trace = 1;
- sigfpe_[i].repls = _USER_DETERMINED;
- }
- sigfpe_[1].repls = _ZERO; /* underflow */
- handle_sigfpes( _ON,
- _EN_UNDERFL|_EN_OVERFL|_EN_DIVZERO|_EN_INVALID,
- ieeeuserhand,_ABORT_ON_ERROR,ieeeuserhand2);
- }
-#endif /* mips */
-
-#ifdef __linux__
-#define IEEE0_done
-#include "fpu_control.h"
-
-#ifdef __alpha__
-#ifndef USE_setfpucw
-#define __setfpucw(x) __fpu_control = (x)
-#endif
-#endif
-
-#ifndef _FPU_SETCW
-#undef Can_use__setfpucw
-#define Can_use__setfpucw
-#endif
-
- static void
-ieee0(Void)
-{
-#if (defined(__mc68000__) || defined(__mc68020__) || defined(mc68020) || defined (__mc68k__))
-/* Reported 20010705 by Alan Bain <alanb at chiark.greenend.org.uk> */
-/* Note that IEEE 754 IOP (illegal operation) */
-/* = Signaling NAN (SNAN) + operation error (OPERR). */
-#ifdef Can_use__setfpucw
- __setfpucw(_FPU_IEEE + _FPU_DOUBLE + _FPU_MASK_OPERR + _FPU_MASK_DZ + _FPU_MASK_SNAN+_FPU_MASK_OVFL);
-#else
- __fpu_control = _FPU_IEEE + _FPU_DOUBLE + _FPU_MASK_OPERR + _FPU_MASK_DZ + _FPU_MASK_SNAN+_FPU_MASK_OVFL;
- _FPU_SETCW(__fpu_control);
-#endif
-
-#elif (defined(__powerpc__)||defined(_ARCH_PPC)||defined(_ARCH_PWR)) /* !__mc68k__ */
-/* Reported 20011109 by Alan Bain <alanb at chiark.greenend.org.uk> */
-
-#ifdef Can_use__setfpucw
-
-/* The following is NOT a mistake -- the author of the fpu_control.h
-for the PPC has erroneously defined IEEE mode to turn on exceptions
-other than Inexact! Start from default then and turn on only the ones
-which we want*/
-
- __setfpucw(_FPU_DEFAULT + _FPU_MASK_IM+_FPU_MASK_OM+_FPU_MASK_UM);
-
-#else /* PPC && !Can_use__setfpucw */
-
- __fpu_control = _FPU_DEFAULT +_FPU_MASK_OM+_FPU_MASK_IM+_FPU_MASK_UM;
- _FPU_SETCW(__fpu_control);
-
-#endif /*Can_use__setfpucw*/
-
-#else /* !(mc68000||powerpc) */
-
-#ifdef _FPU_IEEE
-#ifndef _FPU_EXTENDED /* e.g., ARM processor under Linux */
-#define _FPU_EXTENDED 0
-#endif
-#ifndef _FPU_DOUBLE
-#define _FPU_DOUBLE 0
-#endif
-#ifdef Can_use__setfpucw /* pre-1997 (?) Linux */
- __setfpucw(_FPU_IEEE - _FPU_MASK_IM - _FPU_MASK_ZM - _FPU_MASK_OM);
-#else
-#ifdef UNINIT_F2C_PRECISION_53 /* 20051004 */
- /* unmask invalid, etc., and change rounding precision to double */
- __fpu_control = _FPU_IEEE - _FPU_EXTENDED + _FPU_DOUBLE - _FPU_MASK_IM - _FPU_MASK_ZM - _FPU_MASK_OM;
- _FPU_SETCW(__fpu_control);
-#else
- /* unmask invalid, etc., and keep current rounding precision */
- fpu_control_t cw;
- _FPU_GETCW(cw);
- cw &= ~(_FPU_MASK_IM | _FPU_MASK_ZM | _FPU_MASK_OM);
- _FPU_SETCW(cw);
-#endif
-#endif
-
-#else /* !_FPU_IEEE */
-
- fprintf(stderr, "\n%s\n%s\n%s\n%s\n",
- "WARNING: _uninit_f2c in libf2c does not know how",
- "to enable trapping on this system, so f2c's -trapuv",
- "option will not detect uninitialized variables unless",
- "you can enable trapping manually.");
- fflush(stderr);
-
-#endif /* _FPU_IEEE */
-#endif /* __mc68k__ */
- }
-#endif /* __linux__ */
-
-#ifdef __alpha
-#ifndef IEEE0_done
-#define IEEE0_done
-#include <machine/fpu.h>
- static void
-ieee0(Void)
-{
- ieee_set_fp_control(IEEE_TRAP_ENABLE_INV);
- }
-#endif /*IEEE0_done*/
-#endif /*__alpha*/
-
-#ifdef __hpux
-#define IEEE0_done
-#define _INCLUDE_HPUX_SOURCE
-#include <math.h>
-
-#ifndef FP_X_INV
-#include <fenv.h>
-#define fpsetmask fesettrapenable
-#define FP_X_INV FE_INVALID
-#endif
-
- static void
-ieee0(Void)
-{
- fpsetmask(FP_X_INV);
- }
-#endif /*__hpux*/
-
-#ifdef _AIX
-#define IEEE0_done
-#include <fptrap.h>
-
- static void
-ieee0(Void)
-{
- fp_enable(TRP_INVALID);
- fp_trap(FP_TRAP_SYNC);
- }
-#endif /*_AIX*/
-
-#ifdef __sun
-#define IEEE0_done
-#include <ieeefp.h>
-
- static void
-ieee0(Void)
-{
- fpsetmask(FP_X_INV);
- }
-#endif /*__sparc*/
-
-#ifndef IEEE0_done
- static void
-ieee0(Void) {}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/util.c b/Modules/ThirdParty/6S/src/libf2c/util.c
deleted file mode 100644
index e0e7f25..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/util.c
+++ /dev/null
@@ -1,57 +0,0 @@
-#include "sysdep1.h" /* here to get stat64 on some badly designed Linux systems */
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- VOID
-#ifdef KR_headers
-g_char(a,alen,b) char *a,*b; ftnlen alen;
-#else
-g_char(char *a, ftnlen alen, char *b)
-#endif
-{
- char *x = a + alen, *y = b + alen;
-
- for(;; y--) {
- if (x <= a) {
- *b = 0;
- return;
- }
- if (*--x != ' ')
- break;
- }
- *y-- = 0;
- do *y-- = *x;
- while(x-- > a);
- }
-
- VOID
-#ifdef KR_headers
-b_char(a,b,blen) char *a,*b; ftnlen blen;
-#else
-b_char(char *a, char *b, ftnlen blen)
-#endif
-{ int i;
- for(i=0;i<blen && *a!=0;i++) *b++= *a++;
- for(;i<blen;i++) *b++=' ';
-}
-#ifndef NON_UNIX_STDIO
-#ifdef KR_headers
-long f__inode(a, dev) char *a; int *dev;
-#else
-long f__inode(char *a, int *dev)
-#endif
-{ struct STAT_ST x;
- if(STAT(a,&x)<0) return(-1);
- *dev = x.st_dev;
- return(x.st_ino);
-}
-#endif
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/wref.c b/Modules/ThirdParty/6S/src/libf2c/wref.c
deleted file mode 100644
index a68f486..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/wref.c
+++ /dev/null
@@ -1,297 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-
-#ifndef KR_headers
-#undef abs
-#undef min
-#undef max
-#include "stdlib.h"
-#include "string.h"
-#endif
-
-#include "fmt.h"
-#include "fp.h"
-#ifndef VAX
-#include "ctype.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-#endif
-
- int
-#ifdef KR_headers
-wrt_E(p,w,d,e,len) ufloat *p; ftnlen len;
-#else
-wrt_E(ufloat *p, int w, int d, int e, ftnlen len)
-#endif
-{
- char buf[FMAX+EXPMAXDIGS+4], *s, *se;
- int d1, delta, e1, i, sign, signspace;
- double dd;
-#ifdef WANT_LEAD_0
- int insert0 = 0;
-#endif
-#ifndef VAX
- int e0 = e;
-#endif
-
- if(e <= 0)
- e = 2;
- if(f__scale) {
- if(f__scale >= d + 2 || f__scale <= -d)
- goto nogood;
- }
- if(f__scale <= 0)
- --d;
- if (len == sizeof(real))
- dd = p->pf;
- else
- dd = p->pd;
- if (dd < 0.) {
- signspace = sign = 1;
- dd = -dd;
- }
- else {
- sign = 0;
- signspace = (int)f__cplus;
-#ifndef VAX
- if (!dd) {
-#ifdef SIGNED_ZEROS
- if (signbit_f2c(&dd))
- signspace = sign = 1;
-#endif
- dd = 0.; /* avoid -0 */
- }
-#endif
- }
- delta = w - (2 /* for the . and the d adjustment above */
- + 2 /* for the E+ */ + signspace + d + e);
-#ifdef WANT_LEAD_0
- if (f__scale <= 0 && delta > 0) {
- delta--;
- insert0 = 1;
- }
- else
-#endif
- if (delta < 0) {
-nogood:
- while(--w >= 0)
- PUT('*');
- return(0);
- }
- if (f__scale < 0)
- d += f__scale;
- if (d > FMAX) {
- d1 = d - FMAX;
- d = FMAX;
- }
- else
- d1 = 0;
- sprintf(buf,"%#.*E", d, dd);
-#ifndef VAX
- /* check for NaN, Infinity */
- if (!isdigit(buf[0])) {
- switch(buf[0]) {
- case 'n':
- case 'N':
- signspace = 0; /* no sign for NaNs */
- }
- delta = w - strlen(buf) - signspace;
- if (delta < 0)
- goto nogood;
- while(--delta >= 0)
- PUT(' ');
- if (signspace)
- PUT(sign ? '-' : '+');
- for(s = buf; *s; s++)
- PUT(*s);
- return 0;
- }
-#endif
- se = buf + d + 3;
-#ifdef GOOD_SPRINTF_EXPONENT /* When possible, exponent has 2 digits. */
- if (f__scale != 1 && dd)
- sprintf(se, "%+.2d", atoi(se) + 1 - f__scale);
-#else
- if (dd)
- sprintf(se, "%+.2d", atoi(se) + 1 - f__scale);
- else
- strcpy(se, "+00");
-#endif
- s = ++se;
- if (e < 2) {
- if (*s != '0')
- goto nogood;
- }
-#ifndef VAX
- /* accommodate 3 significant digits in exponent */
- if (s[2]) {
-#ifdef Pedantic
- if (!e0 && !s[3])
- for(s -= 2, e1 = 2; s[0] = s[1]; s++);
-
- /* Pedantic gives the behavior that Fortran 77 specifies, */
- /* i.e., requires that E be specified for exponent fields */
- /* of more than 3 digits. With Pedantic undefined, we get */
- /* the behavior that Cray displays -- you get a bigger */
- /* exponent field if it fits. */
-#else
- if (!e0) {
- for(s -= 2, e1 = 2; s[0] = s[1]; s++)
-#ifdef CRAY
- delta--;
- if ((delta += 4) < 0)
- goto nogood
-#endif
- ;
- }
-#endif
- else if (e0 >= 0)
- goto shift;
- else
- e1 = e;
- }
- else
- shift:
-#endif
- for(s += 2, e1 = 2; *s; ++e1, ++s)
- if (e1 >= e)
- goto nogood;
- while(--delta >= 0)
- PUT(' ');
- if (signspace)
- PUT(sign ? '-' : '+');
- s = buf;
- i = f__scale;
- if (f__scale <= 0) {
-#ifdef WANT_LEAD_0
- if (insert0)
- PUT('0');
-#endif
- PUT('.');
- for(; i < 0; ++i)
- PUT('0');
- PUT(*s);
- s += 2;
- }
- else if (f__scale > 1) {
- PUT(*s);
- s += 2;
- while(--i > 0)
- PUT(*s++);
- PUT('.');
- }
- if (d1) {
- se -= 2;
- while(s < se) PUT(*s++);
- se += 2;
- do PUT('0'); while(--d1 > 0);
- }
- while(s < se)
- PUT(*s++);
- if (e < 2)
- PUT(s[1]);
- else {
- while(++e1 <= e)
- PUT('0');
- while(*s)
- PUT(*s++);
- }
- return 0;
- }
-
- int
-#ifdef KR_headers
-wrt_F(p,w,d,len) ufloat *p; ftnlen len;
-#else
-wrt_F(ufloat *p, int w, int d, ftnlen len)
-#endif
-{
- int d1, sign, n;
- double x;
- char *b, buf[MAXINTDIGS+MAXFRACDIGS+4], *s;
-
- x= (len==sizeof(real)?p->pf:p->pd);
- if (d < MAXFRACDIGS)
- d1 = 0;
- else {
- d1 = d - MAXFRACDIGS;
- d = MAXFRACDIGS;
- }
- if (x < 0.)
- { x = -x; sign = 1; }
- else {
- sign = 0;
-#ifndef VAX
- if (!x) {
-#ifdef SIGNED_ZEROS
- if (signbit_f2c(&x))
- sign = 2;
-#endif
- x = 0.;
- }
-#endif
- }
-
- if (n = f__scale)
- if (n > 0)
- do x *= 10.; while(--n > 0);
- else
- do x *= 0.1; while(++n < 0);
-
-#ifdef USE_STRLEN
- sprintf(b = buf, "%#.*f", d, x);
- n = strlen(b) + d1;
-#else
- n = sprintf(b = buf, "%#.*f", d, x) + d1;
-#endif
-
-#ifndef WANT_LEAD_0
- if (buf[0] == '0' && d)
- { ++b; --n; }
-#endif
- if (sign == 1) {
- /* check for all zeros */
- for(s = b;;) {
- while(*s == '0') s++;
- switch(*s) {
- case '.':
- s++; continue;
- case 0:
- sign = 0;
- }
- break;
- }
- }
- if (sign || f__cplus)
- ++n;
- if (n > w) {
-#ifdef WANT_LEAD_0
- if (buf[0] == '0' && --n == w)
- ++b;
- else
-#endif
- {
- while(--w >= 0)
- PUT('*');
- return 0;
- }
- }
- for(w -= n; --w >= 0; )
- PUT(' ');
- if (sign)
- PUT('-');
- else if (f__cplus)
- PUT('+');
- while(n = *b++)
- PUT(n);
- while(--d1 >= 0)
- PUT('0');
- return 0;
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/wrtfmt.c b/Modules/ThirdParty/6S/src/libf2c/wrtfmt.c
deleted file mode 100644
index 4387120..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/wrtfmt.c
+++ /dev/null
@@ -1,380 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "fmt.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-extern icilist *f__svic;
-extern char *f__icptr;
-
- static int
-mv_cur(Void) /* shouldn't use fseek because it insists on calling fflush */
- /* instead we know too much about stdio */
-{
- int cursor = f__cursor;
- f__cursor = 0;
- if(f__external == 0) {
- if(cursor < 0) {
- if(f__hiwater < f__recpos)
- f__hiwater = f__recpos;
- f__recpos += cursor;
- f__icptr += cursor;
- if(f__recpos < 0)
- err(f__elist->cierr, 110, "left off");
- }
- else if(cursor > 0) {
- if(f__recpos + cursor >= f__svic->icirlen)
- err(f__elist->cierr, 110, "recend");
- if(f__hiwater <= f__recpos)
- for(; cursor > 0; cursor--)
- (*f__putn)(' ');
- else if(f__hiwater <= f__recpos + cursor) {
- cursor -= f__hiwater - f__recpos;
- f__icptr += f__hiwater - f__recpos;
- f__recpos = f__hiwater;
- for(; cursor > 0; cursor--)
- (*f__putn)(' ');
- }
- else {
- f__icptr += cursor;
- f__recpos += cursor;
- }
- }
- return(0);
- }
- if (cursor > 0) {
- if(f__hiwater <= f__recpos)
- for(;cursor>0;cursor--) (*f__putn)(' ');
- else if(f__hiwater <= f__recpos + cursor) {
- cursor -= f__hiwater - f__recpos;
- f__recpos = f__hiwater;
- for(; cursor > 0; cursor--)
- (*f__putn)(' ');
- }
- else {
- f__recpos += cursor;
- }
- }
- else if (cursor < 0)
- {
- if(cursor + f__recpos < 0)
- err(f__elist->cierr,110,"left off");
- if(f__hiwater < f__recpos)
- f__hiwater = f__recpos;
- f__recpos += cursor;
- }
- return(0);
-}
-
- static int
-#ifdef KR_headers
-wrt_Z(n,w,minlen,len) Uint *n; int w, minlen; ftnlen len;
-#else
-wrt_Z(Uint *n, int w, int minlen, ftnlen len)
-#endif
-{
- register char *s, *se;
- register int i, w1;
- static int one = 1;
- static char hex[] = "0123456789ABCDEF";
- s = (char *)n;
- --len;
- if (*(char *)&one) {
- /* little endian */
- se = s;
- s += len;
- i = -1;
- }
- else {
- se = s + len;
- i = 1;
- }
- for(;; s += i)
- if (s == se || *s)
- break;
- w1 = (i*(se-s) << 1) + 1;
- if (*s & 0xf0)
- w1++;
- if (w1 > w)
- for(i = 0; i < w; i++)
- (*f__putn)('*');
- else {
- if ((minlen -= w1) > 0)
- w1 += minlen;
- while(--w >= w1)
- (*f__putn)(' ');
- while(--minlen >= 0)
- (*f__putn)('0');
- if (!(*s & 0xf0)) {
- (*f__putn)(hex[*s & 0xf]);
- if (s == se)
- return 0;
- s += i;
- }
- for(;; s += i) {
- (*f__putn)(hex[*s >> 4 & 0xf]);
- (*f__putn)(hex[*s & 0xf]);
- if (s == se)
- break;
- }
- }
- return 0;
- }
-
- static int
-#ifdef KR_headers
-wrt_I(n,w,len, base) Uint *n; ftnlen len; register int base;
-#else
-wrt_I(Uint *n, int w, ftnlen len, register int base)
-#endif
-{ int ndigit,sign,spare,i;
- longint x;
- char *ans;
- if(len==sizeof(integer)) x=n->il;
- else if(len == sizeof(char)) x = n->ic;
-#ifdef Allow_TYQUAD
- else if (len == sizeof(longint)) x = n->ili;
-#endif
- else x=n->is;
- ans=f__icvt(x,&ndigit,&sign, base);
- spare=w-ndigit;
- if(sign || f__cplus) spare--;
- if(spare<0)
- for(i=0;i<w;i++) (*f__putn)('*');
- else
- { for(i=0;i<spare;i++) (*f__putn)(' ');
- if(sign) (*f__putn)('-');
- else if(f__cplus) (*f__putn)('+');
- for(i=0;i<ndigit;i++) (*f__putn)(*ans++);
- }
- return(0);
-}
- static int
-#ifdef KR_headers
-wrt_IM(n,w,m,len,base) Uint *n; ftnlen len; int base;
-#else
-wrt_IM(Uint *n, int w, int m, ftnlen len, int base)
-#endif
-{ int ndigit,sign,spare,i,xsign;
- longint x;
- char *ans;
- if(sizeof(integer)==len) x=n->il;
- else if(len == sizeof(char)) x = n->ic;
-#ifdef Allow_TYQUAD
- else if (len == sizeof(longint)) x = n->ili;
-#endif
- else x=n->is;
- ans=f__icvt(x,&ndigit,&sign, base);
- if(sign || f__cplus) xsign=1;
- else xsign=0;
- if(ndigit+xsign>w || m+xsign>w)
- { for(i=0;i<w;i++) (*f__putn)('*');
- return(0);
- }
- if(x==0 && m==0)
- { for(i=0;i<w;i++) (*f__putn)(' ');
- return(0);
- }
- if(ndigit>=m)
- spare=w-ndigit-xsign;
- else
- spare=w-m-xsign;
- for(i=0;i<spare;i++) (*f__putn)(' ');
- if(sign) (*f__putn)('-');
- else if(f__cplus) (*f__putn)('+');
- for(i=0;i<m-ndigit;i++) (*f__putn)('0');
- for(i=0;i<ndigit;i++) (*f__putn)(*ans++);
- return(0);
-}
- static int
-#ifdef KR_headers
-wrt_AP(s) char *s;
-#else
-wrt_AP(char *s)
-#endif
-{ char quote;
- int i;
-
- if(f__cursor && (i = mv_cur()))
- return i;
- quote = *s++;
- for(;*s;s++)
- { if(*s!=quote) (*f__putn)(*s);
- else if(*++s==quote) (*f__putn)(*s);
- else return(1);
- }
- return(1);
-}
- static int
-#ifdef KR_headers
-wrt_H(a,s) char *s;
-#else
-wrt_H(int a, char *s)
-#endif
-{
- int i;
-
- if(f__cursor && (i = mv_cur()))
- return i;
- while(a--) (*f__putn)(*s++);
- return(1);
-}
-
- int
-#ifdef KR_headers
-wrt_L(n,len, sz) Uint *n; ftnlen sz;
-#else
-wrt_L(Uint *n, int len, ftnlen sz)
-#endif
-{ int i;
- long x;
- if(sizeof(long)==sz) x=n->il;
- else if(sz == sizeof(char)) x = n->ic;
- else x=n->is;
- for(i=0;i<len-1;i++)
- (*f__putn)(' ');
- if(x) (*f__putn)('T');
- else (*f__putn)('F');
- return(0);
-}
- static int
-#ifdef KR_headers
-wrt_A(p,len) char *p; ftnlen len;
-#else
-wrt_A(char *p, ftnlen len)
-#endif
-{
- while(len-- > 0) (*f__putn)(*p++);
- return(0);
-}
- static int
-#ifdef KR_headers
-wrt_AW(p,w,len) char * p; ftnlen len;
-#else
-wrt_AW(char * p, int w, ftnlen len)
-#endif
-{
- while(w>len)
- { w--;
- (*f__putn)(' ');
- }
- while(w-- > 0)
- (*f__putn)(*p++);
- return(0);
-}
-
- static int
-#ifdef KR_headers
-wrt_G(p,w,d,e,len) ufloat *p; ftnlen len;
-#else
-wrt_G(ufloat *p, int w, int d, int e, ftnlen len)
-#endif
-{ double up = 1,x;
- int i=0,oldscale,n,j;
- x = len==sizeof(real)?p->pf:p->pd;
- if(x < 0 ) x = -x;
- if(x<.1) {
- if (x != 0.)
- return(wrt_E(p,w,d,e,len));
- i = 1;
- goto have_i;
- }
- for(;i<=d;i++,up*=10)
- { if(x>=up) continue;
- have_i:
- oldscale = f__scale;
- f__scale = 0;
- if(e==0) n=4;
- else n=e+2;
- i=wrt_F(p,w-n,d-i,len);
- for(j=0;j<n;j++) (*f__putn)(' ');
- f__scale=oldscale;
- return(i);
- }
- return(wrt_E(p,w,d,e,len));
-}
-
- int
-#ifdef KR_headers
-w_ed(p,ptr,len) struct syl *p; char *ptr; ftnlen len;
-#else
-w_ed(struct syl *p, char *ptr, ftnlen len)
-#endif
-{
- int i;
-
- if(f__cursor && (i = mv_cur()))
- return i;
- switch(p->op)
- {
- default:
- fprintf(stderr,"w_ed, unexpected code: %d\n", p->op);
- sig_die(f__fmtbuf, 1);
- case I: return(wrt_I((Uint *)ptr,p->p1,len, 10));
- case IM:
- return(wrt_IM((Uint *)ptr,p->p1,p->p2.i[0],len,10));
-
- /* O and OM don't work right for character, double, complex, */
- /* or doublecomplex, and they differ from Fortran 90 in */
- /* showing a minus sign for negative values. */
-
- case O: return(wrt_I((Uint *)ptr, p->p1, len, 8));
- case OM:
- return(wrt_IM((Uint *)ptr,p->p1,p->p2.i[0],len,8));
- case L: return(wrt_L((Uint *)ptr,p->p1, len));
- case A: return(wrt_A(ptr,len));
- case AW:
- return(wrt_AW(ptr,p->p1,len));
- case D:
- case E:
- case EE:
- return(wrt_E((ufloat *)ptr,p->p1,p->p2.i[0],p->p2.i[1],len));
- case G:
- case GE:
- return(wrt_G((ufloat *)ptr,p->p1,p->p2.i[0],p->p2.i[1],len));
- case F: return(wrt_F((ufloat *)ptr,p->p1,p->p2.i[0],len));
-
- /* Z and ZM assume 8-bit bytes. */
-
- case Z: return(wrt_Z((Uint *)ptr,p->p1,0,len));
- case ZM:
- return(wrt_Z((Uint *)ptr,p->p1,p->p2.i[0],len));
- }
-}
-
- int
-#ifdef KR_headers
-w_ned(p) struct syl *p;
-#else
-w_ned(struct syl *p)
-#endif
-{
- switch(p->op)
- {
- default: fprintf(stderr,"w_ned, unexpected code: %d\n", p->op);
- sig_die(f__fmtbuf, 1);
- case SLASH:
- return((*f__donewrec)());
- case T: f__cursor = p->p1-f__recpos - 1;
- return(1);
- case TL: f__cursor -= p->p1;
- if(f__cursor < -f__recpos) /* TL1000, 1X */
- f__cursor = -f__recpos;
- return(1);
- case TR:
- case X:
- f__cursor += p->p1;
- return(1);
- case APOS:
- return(wrt_AP(p->p2.s));
- case H:
- return(wrt_H(p->p1,p->p2.s));
- }
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/wsfe.c b/Modules/ThirdParty/6S/src/libf2c/wsfe.c
deleted file mode 100644
index e261e1e..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/wsfe.c
+++ /dev/null
@@ -1,81 +0,0 @@
-/*write sequential formatted external*/
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "fmt.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- int
-x_wSL(Void)
-{
- int n = f__putbuf('\n');
- f__hiwater = f__recpos = f__cursor = 0;
- return(n == 0);
-}
-
- static int
-xw_end(Void)
-{
- int n;
-
- if(f__nonl) {
- f__putbuf(n = 0);
- fflush(f__cf);
- }
- else
- n = f__putbuf('\n');
- f__hiwater = f__recpos = f__cursor = 0;
- return n;
-}
-
- static int
-xw_rev(Void)
-{
- int n = 0;
- if(f__workdone) {
- n = f__putbuf('\n');
- f__workdone = 0;
- }
- f__hiwater = f__recpos = f__cursor = 0;
- return n;
-}
-
-#ifdef KR_headers
-integer s_wsfe(a) cilist *a; /*start*/
-#else
-integer s_wsfe(cilist *a) /*start*/
-#endif
-{ int n;
- if(!f__init) f_init();
- f__reading=0;
- f__sequential=1;
- f__formatted=1;
- f__external=1;
- if(n=c_sfe(a)) return(n);
- f__elist=a;
- f__hiwater = f__cursor=f__recpos=0;
- f__nonl = 0;
- f__scale=0;
- f__fmtbuf=a->cifmt;
- f__cf=f__curunit->ufd;
- if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio");
- f__putn= x_putc;
- f__doed= w_ed;
- f__doned= w_ned;
- f__doend=xw_end;
- f__dorevert=xw_rev;
- f__donewrec=x_wSL;
- fmt_bg();
- f__cplus=0;
- f__cblank=f__curunit->ublnk;
- if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
- err(a->cierr,errno,"write start");
- return(0);
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/wsle.c b/Modules/ThirdParty/6S/src/libf2c/wsle.c
deleted file mode 100644
index 21dc24f..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/wsle.c
+++ /dev/null
@@ -1,45 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "fmt.h"
-#include "lio.h"
-#include "string.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-integer s_wsle(a) cilist *a;
-#else
-integer s_wsle(cilist *a)
-#endif
-{
- int n;
- if(n=c_le(a)) return(n);
- f__reading=0;
- f__external=1;
- f__formatted=1;
- f__putn = x_putc;
- f__lioproc = l_write;
- L_len = LINE;
- f__donewrec = x_wSL;
- if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
- err(a->cierr, errno, "list output start");
- return(0);
- }
-
-integer e_wsle(Void)
-{
- int n = f__putbuf('\n');
- f__recpos=0;
-#ifdef ALWAYS_FLUSH
- if (!n && fflush(f__cf))
- err(f__elist->cierr, errno, "write end");
-#endif
- return(n);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/wsne.c b/Modules/ThirdParty/6S/src/libf2c/wsne.c
deleted file mode 100644
index da9cc86..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/wsne.c
+++ /dev/null
@@ -1,35 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "lio.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- integer
-#ifdef KR_headers
-s_wsne(a) cilist *a;
-#else
-s_wsne(cilist *a)
-#endif
-{
- int n;
-
- if(n=c_le(a))
- return(n);
- f__reading=0;
- f__external=1;
- f__formatted=1;
- f__putn = x_putc;
- L_len = LINE;
- f__donewrec = x_wSL;
- if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
- err(a->cierr, errno, "namelist output start");
- x_wsne(a);
- return e_wsle();
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/xsum0.out b/Modules/ThirdParty/6S/src/libf2c/xsum0.out
deleted file mode 100644
index 6522e27..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/xsum0.out
+++ /dev/null
@@ -1,180 +0,0 @@
-Notice 76f23b4 1212
-README 16a3882f 16876
-abort_.c 1ef378f2 298
-arithchk.c efc0d389 4669
-backspac.c 10ebf554 1328
-c_abs.c fec22c59 272
-c_cos.c 18fc0ea3 354
-c_div.c f5424912 930
-c_exp.c 1b85b1fc 349
-c_log.c 28cdfed 384
-c_sin.c 1ccaedc8 350
-c_sqrt.c f1ee88d5 605
-cabs.c f3d3b5f2 494
-close.c 173f01de 1393
-comptry.bat f8a8a0d5 125
-d_abs.c e58094ef 218
-d_acos.c e5ecf93d 245
-d_asin.c e12ceeff 245
-d_atan.c 53034db 245
-d_atn2.c ff8a1a78 271
-d_cnjg.c 1c27c728 255
-d_cos.c c0eb625 241
-d_cosh.c 11dc4adb 245
-d_dim.c e1ccb774 232
-d_exp.c 1879c41c 241
-d_imag.c fe9c703e 201
-d_int.c f5de3566 269
-d_lg10.c 1a1d7b77 291
-d_log.c 1b368adf 241
-d_mod.c f540cf24 688
-d_nint.c ff913b40 281
-d_prod.c ad4856b 207
-d_sign.c 9562fc5 266
-d_sin.c 6e3f542 241
-d_sinh.c 18b22950 245
-d_sqrt.c 17e1db09 245
-d_tan.c ec93ebdb 241
-d_tanh.c 1c55d15b 245
-derf_.c f85e74a3 239
-derfc_.c e96b7667 253
-dfe.c 1d658105 2624
-dolio.c 19c9fbd9 471
-dtime_.c c982be4 972
-due.c ee219f6d 1624
-ef1asc_.c e0576e63 521
-ef1cmc_.c ea5ad9e8 427
-endfile.c 6f7201d 2838
-erf_.c e82f7790 270
-erfc_.c ba65441 275
-err.c fea5c2a7 6189
-etime_.c 19d1fdad 839
-exit_.c ff4baa3a 543
-f2c.h0 e770b7d8 4688
-f2ch.add ef66bf17 6060
-f77_aloc.c f74c1f61 678
-f77vers.c ed1c96fa 4933
-fio.h f9389f5f 2932
-fmt.c cdfb2a1 8361
-fmt.h f5dd2afb 1970
-fmtlib.c eefc6a27 865
-fp.h 100fb355 665
-ftell_.c e845eedb 894
-ftell64_.c e2c4b21e 917
-getarg_.c f182a268 562
-getenv_.c ff3b797c 1217
-h_abs.c e4443109 218
-h_dim.c c6e48bc 230
-h_dnnt.c f6bb90e 294
-h_indx.c ef8461eb 442
-h_len.c e8c3633 205
-h_mod.c 7355bd0 207
-h_nint.c f0da3396 281
-h_sign.c f1370ffd 266
-hl_ge.c ed792501 346
-hl_gt.c feeacbd9 345
-hl_le.c f6fb5d6e 346
-hl_lt.c 18501419 345
-i77vers.c f57b8ef2 18128
-i_abs.c 12ab51ab 214
-i_dim.c f2a56785 225
-i_dnnt.c 11748482 291
-i_indx.c fb59026f 430
-i_len.c 17d17252 203
-i_mod.c bef73ae 211
-i_nint.c e494b804 278
-i_sign.c fa015b08 260
-iargc_.c 49abda3 196
-iio.c f958b627 2639
-ilnw.c fe0ab14b 1125
-inquire.c 1883d542 2732
-l_ge.c f4710e74 334
-l_gt.c e8db94a7 333
-l_le.c c9c0a99 334
-l_lt.c 767e79f 333
-lbitbits.c 33fe981 1097
-lbitshft.c e81981d2 258
-libf2c.lbc 10af591e 1594
-libf2c.sy fd5f568f 2051
-lio.h a087b39 1564
-lread.c eb3c2be3 14705
-lwrite.c f80da63f 4616
-main.c dc8ce96 2219
-makefile.sy f00a3a30 2976
-makefile.u e8714bfc 7019
-makefile.vc 45bfc77 2928
-makefile.wat e5aca998 2922
-math.hvc 19bb2d07 50
-mkfile.plan9 e67e471e 5174
-open.c a2fe776 5625
-pow_ci.c fa934cec 412
-pow_dd.c f004559b 276
-pow_di.c a4db539 448
-pow_hh.c d1a45a9 489
-pow_ii.c 1fcf2742 488
-pow_qq.c e6a32de6 516
-pow_ri.c e7d9fc2a 436
-pow_zi.c 1b894af7 851
-pow_zz.c f81a06b5 549
-qbitbits.c fdb9910e 1151
-qbitshft.c 873054d 258
-r_abs.c f471383c 206
-r_acos.c 1a6aca63 233
-r_asin.c e8555587 233
-r_atan.c eac25444 233
-r_atn2.c f611bea 253
-r_cnjg.c a8d7805 235
-r_cos.c fdef1ece 229
-r_cosh.c f05d1ae 233
-r_dim.c ee23e1a8 214
-r_exp.c 1da16cd7 229
-r_imag.c 166ad0f3 189
-r_int.c fc80b9a8 257
-r_lg10.c e876cfab 279
-r_log.c 2062254 229
-r_mod.c 187363fc 678
-r_nint.c 6edcbb2 269
-r_sign.c 1ae32441 248
-r_sin.c c3d968 229
-r_sinh.c 1090c850 233
-r_sqrt.c ffbb0625 233
-r_tan.c fe85179d 229
-r_tanh.c 10ffcc5b 233
-rawio.h 1ab49f7c 718
-rdfmt.c ffbd74b2 8858
-rewind.c e4c6236f 475
-rsfe.c eb9e882c 1492
-rsli.c 11f59b61 1785
-rsne.c 1b1e1814 11551
-s_cat.c 3070507 1452
-s_cmp.c e69e8b60 722
-s_copy.c 1e258852 1024
-s_paus.c e37cfe6 1617
-s_rnge.c fd20c6b4 753
-s_stop.c ffa80b24 762
-scomptry.bat ed740ad8 181
-sfe.c d24f06 767
-sig_die.c fbcad8d6 701
-signal1.h0 1d43ee57 842
-signal_.c f3ef9cfc 299
-signbit.c e37eac06 330
-sue.c 9705ecf 1865
-sysdep1.h0 1812022d 1202
-system_.c eae6254c 646
-typesize.c eee307ae 386
-uio.c e354a770 1619
-uninit.c fe760fb0 7584
-util.c e526349d 902
-wref.c 17bbfb7b 4747
-wrtfmt.c 113fc4f9 7506
-wsfe.c f2d1fe4d 1280
-wsle.c fe50b4c9 697
-wsne.c 428bfda 479
-xwsne.c 185c4bdc 1174
-z_abs.c 1fa0640d 268
-z_cos.c facccd9b 363
-z_div.c 1abdf45a 907
-z_exp.c 1a8506e8 357
-z_log.c 6bf3b22 2729
-z_sin.c 1aa35b59 359
-z_sqrt.c 1864d867 581
diff --git a/Modules/ThirdParty/6S/src/libf2c/xwsne.c b/Modules/ThirdParty/6S/src/libf2c/xwsne.c
deleted file mode 100644
index f93c33d..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/xwsne.c
+++ /dev/null
@@ -1,80 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#include "fio.h"
-#include "lio.h"
-#include "fmt.h"
-
-extern int f__Aquote;
-
- static VOID
-nl_donewrec(Void)
-{
- (*f__donewrec)();
- PUT(' ');
- }
-
-#ifdef KR_headers
-x_wsne(a) cilist *a;
-#else
-#include "string.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
- VOID
-x_wsne(cilist *a)
-#endif
-{
- Namelist *nl;
- char *s;
- Vardesc *v, **vd, **vde;
- ftnint number, type;
- ftnlen *dims;
- ftnlen size;
- extern ftnlen f__typesize[];
-
- nl = (Namelist *)a->cifmt;
- PUT('&');
- for(s = nl->name; *s; s++)
- PUT(*s);
- PUT(' ');
- f__Aquote = 1;
- vd = nl->vars;
- vde = vd + nl->nvars;
- while(vd < vde) {
- v = *vd++;
- s = v->name;
-#ifdef No_Extra_Namelist_Newlines
- if (f__recpos+strlen(s)+2 >= L_len)
-#endif
- nl_donewrec();
- while(*s)
- PUT(*s++);
- PUT(' ');
- PUT('=');
- number = (dims = v->dims) ? dims[1] : 1;
- type = v->type;
- if (type < 0) {
- size = -type;
- type = TYCHAR;
- }
- else
- size = f__typesize[type];
- l_write(&number, v->addr, size, type);
- if (vd < vde) {
- if (f__recpos+2 >= L_len)
- nl_donewrec();
- PUT(',');
- PUT(' ');
- }
- else if (f__recpos+1 >= L_len)
- nl_donewrec();
- }
- f__Aquote = 0;
- PUT('/');
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/z_abs.c b/Modules/ThirdParty/6S/src/libf2c/z_abs.c
deleted file mode 100644
index 8439c36..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/z_abs.c
+++ /dev/null
@@ -1,21 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-double f__cabs();
-double z_abs(z) doublecomplex *z;
-#else
-double f__cabs(double, double);
-double z_abs(doublecomplex *z)
-#endif
-{
-return( f__cabs( z->r, z->i ) );
-}
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/z_cos.c b/Modules/ThirdParty/6S/src/libf2c/z_cos.c
deleted file mode 100644
index ce0fa5b..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/z_cos.c
+++ /dev/null
@@ -1,24 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double sin(), cos(), sinh(), cosh();
-VOID z_cos(r, z) doublecomplex *r, *z;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-void z_cos(doublecomplex *r, doublecomplex *z)
-#endif
-{
- double zi = z->i, zr = z->r;
- r->r = cos(zr) * cosh(zi);
- r->i = - sin(zr) * sinh(zi);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/z_div.c b/Modules/ThirdParty/6S/src/libf2c/z_div.c
deleted file mode 100644
index aa38966..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/z_div.c
+++ /dev/null
@@ -1,53 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#ifdef KR_headers
-extern VOID sig_die();
-VOID z_div(c, a, b) doublecomplex *a, *b, *c;
-#else
-extern void sig_die(char*, int);
-void z_div(doublecomplex *c, doublecomplex *a, doublecomplex *b)
-#endif
-{
- double ratio, den;
- double abr, abi, cr;
-
- if( (abr = b->r) < 0.)
- abr = - abr;
- if( (abi = b->i) < 0.)
- abi = - abi;
- if( abr <= abi )
- {
- if(abi == 0) {
-#ifdef IEEE_COMPLEX_DIVIDE
- if (a->i != 0 || a->r != 0)
- abi = 1.;
- c->i = c->r = abi / abr;
- return;
-#else
- sig_die("complex division by zero", 1);
-#endif
- }
- ratio = b->r / b->i ;
- den = b->i * (1 + ratio*ratio);
- cr = (a->r*ratio + a->i) / den;
- c->i = (a->i*ratio - a->r) / den;
- }
-
- else
- {
- ratio = b->i / b->r ;
- den = b->r * (1 + ratio*ratio);
- cr = (a->r + a->i*ratio) / den;
- c->i = (a->i - a->r*ratio) / den;
- }
- c->r = cr;
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/z_exp.c b/Modules/ThirdParty/6S/src/libf2c/z_exp.c
deleted file mode 100644
index 4386345..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/z_exp.c
+++ /dev/null
@@ -1,26 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double exp(), cos(), sin();
-VOID z_exp(r, z) doublecomplex *r, *z;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-void z_exp(doublecomplex *r, doublecomplex *z)
-#endif
-{
- double expx, zi = z->i;
-
- expx = exp(z->r);
- r->r = expx * cos(zi);
- r->i = expx * sin(zi);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/z_log.c b/Modules/ThirdParty/6S/src/libf2c/z_log.c
deleted file mode 100644
index 2ef4ebe..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/z_log.c
+++ /dev/null
@@ -1,124 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double log(), f__cabs(), atan2();
-#define ANSI(x) ()
-#else
-#define ANSI(x) x
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern double f__cabs(double, double);
-#endif
-
-#ifndef NO_DOUBLE_EXTENDED
-#ifndef GCC_COMPARE_BUG_FIXED
-#ifndef Pre20000310
-#ifdef Comment
-Some versions of gcc, such as 2.95.3 and 3.0.4, are buggy under -O2 or -O3:
-on IA32 (Intel 80x87) systems, they may do comparisons on values computed
-in extended-precision registers. This can lead to the test "s > s0" that
-was used below being carried out incorrectly. The fix below cannot be
-spoiled by overzealous optimization, since the compiler cannot know
-whether gcc_bug_bypass_diff_F2C will be nonzero. (We expect it always
-to be zero. The weird name is unlikely to collide with anything.)
-
-An example (provided by Ulrich Jakobus) where the bug fix matters is
-
- double complex a, b
- a = (.1099557428756427618354862829619, .9857360542953131909982289471372)
- b = log(a)
-
-An alternative to the fix below would be to use 53-bit rounding precision,
-but the means of specifying this 80x87 feature are highly unportable.
-#endif /*Comment*/
-#define BYPASS_GCC_COMPARE_BUG
-double (*gcc_bug_bypass_diff_F2C) ANSI((double*,double*));
- static double
-#ifdef KR_headers
-diff1(a,b) double *a, *b;
-#else
-diff1(double *a, double *b)
-#endif
-{ return *a - *b; }
-#endif /*Pre20000310*/
-#endif /*GCC_COMPARE_BUG_FIXED*/
-#endif /*NO_DOUBLE_EXTENDED*/
-
-#ifdef KR_headers
-VOID z_log(r, z) doublecomplex *r, *z;
-#else
-void z_log(doublecomplex *r, doublecomplex *z)
-#endif
-{
- double s, s0, t, t2, u, v;
- double zi = z->i, zr = z->r;
-#ifdef BYPASS_GCC_COMPARE_BUG
- double (*diff) ANSI((double*,double*));
-#endif
-
- r->i = atan2(zi, zr);
-#ifdef Pre20000310
- r->r = log( f__cabs( zr, zi ) );
-#else
- if (zi < 0)
- zi = -zi;
- if (zr < 0)
- zr = -zr;
- if (zr < zi) {
- t = zi;
- zi = zr;
- zr = t;
- }
- t = zi/zr;
- s = zr * sqrt(1 + t*t);
- /* now s = f__cabs(zi,zr), and zr = |zr| >= |zi| = zi */
- if ((t = s - 1) < 0)
- t = -t;
- if (t > .01)
- r->r = log(s);
- else {
-
-#ifdef Comment
-
- log(1+x) = x - x^2/2 + x^3/3 - x^4/4 + - ...
-
- = x(1 - x/2 + x^2/3 -+...)
-
- [sqrt(y^2 + z^2) - 1] * [sqrt(y^2 + z^2) + 1] = y^2 + z^2 - 1, so
-
- sqrt(y^2 + z^2) - 1 = (y^2 + z^2 - 1) / [sqrt(y^2 + z^2) + 1]
-
-#endif /*Comment*/
-
-#ifdef BYPASS_GCC_COMPARE_BUG
- if (!(diff = gcc_bug_bypass_diff_F2C))
- diff = diff1;
-#endif
- t = ((zr*zr - 1.) + zi*zi) / (s + 1);
- t2 = t*t;
- s = 1. - 0.5*t;
- u = v = 1;
- do {
- s0 = s;
- u *= t2;
- v += 2;
- s += u/v - t*u/(v+1);
- }
-#ifdef BYPASS_GCC_COMPARE_BUG
- while(s - s0 > 1e-18 || (*diff)(&s,&s0) > 0.);
-#else
- while(s > s0);
-#endif
- r->r = s*t;
- }
-#endif
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/z_sin.c b/Modules/ThirdParty/6S/src/libf2c/z_sin.c
deleted file mode 100644
index 199b5f0..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/z_sin.c
+++ /dev/null
@@ -1,24 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double sin(), cos(), sinh(), cosh();
-VOID z_sin(r, z) doublecomplex *r, *z;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-void z_sin(doublecomplex *r, doublecomplex *z)
-#endif
-{
- double zi = z->i, zr = z->r;
- r->r = sin(zr) * cosh(zi);
- r->i = cos(zr) * sinh(zi);
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/libf2c/z_sqrt.c b/Modules/ThirdParty/6S/src/libf2c/z_sqrt.c
deleted file mode 100644
index d4de4bf..0000000
--- a/Modules/ThirdParty/6S/src/libf2c/z_sqrt.c
+++ /dev/null
@@ -1,38 +0,0 @@
-
-/* OTB patches: replace "f2c.h" by "otb_6S_f2c.h" */
-/*#include "f2c.h"*/
-#include "otb_6S_f2c.h"
-
-#ifdef KR_headers
-double sqrt(), f__cabs();
-VOID z_sqrt(r, z) doublecomplex *r, *z;
-#else
-#undef abs
-#include "math.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern double f__cabs(double, double);
-void z_sqrt(doublecomplex *r, doublecomplex *z)
-#endif
-{
- double mag, zi = z->i, zr = z->r;
-
- if( (mag = f__cabs(zr, zi)) == 0.)
- r->r = r->i = 0.;
- else if(zr > 0)
- {
- r->r = sqrt(0.5 * (mag + zr) );
- r->i = zi / r->r / 2;
- }
- else
- {
- r->i = sqrt(0.5 * (mag - zr) );
- if(zi < 0)
- r->i = - r->i;
- r->r = zi / r->i / 2;
- }
- }
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/main.P b/Modules/ThirdParty/6S/src/main.P
deleted file mode 100644
index 43a1f37..0000000
--- a/Modules/ThirdParty/6S/src/main.P
+++ /dev/null
@@ -1,80 +0,0 @@
-/* comlen num_quad__ 4 */
-/* comlen aeroprof_ 2428 */
-/* comlen sixs_ier__ 8 */
-/* comlen mie_in__ 2232 */
-/* comlen multorder_ 4 */
-/* comlen sixs_planesim__ 1360 */
-/* comlen sixs_test__ 8 */
-/* comlen sixs_ffu__ 12024 */
-/* comlen sixs_del__ 16 */
-/* comlen sixs_atm__ 1360 */
-/* comlen sixs_aer__ 960 */
-/* comlen sixs_disc__ 4320 */
-/*:ref: gauss_ 14 5 7 7 7 7 4 */
-/*:ref: posmto_ 14 11 4 4 7 4 4 7 7 7 7 7 7 */
-/*:ref: posge_ 14 11 4 4 7 4 4 7 7 7 7 7 7 */
-/*:ref: posgw_ 14 11 4 4 7 4 4 7 7 7 7 7 7 */
-/*:ref: posnoa_ 14 13 4 4 7 4 7 7 7 7 7 7 7 7 7 */
-/*:ref: posspo_ 14 9 4 4 7 7 7 7 7 7 7 */
-/*:ref: poslan_ 14 9 4 4 7 7 7 7 7 7 7 */
-/*:ref: varsol_ 14 3 4 4 7 */
-/*:ref: tropic_ 14 0 */
-/*:ref: midsum_ 14 0 */
-/*:ref: midwin_ 14 0 */
-/*:ref: subsum_ 14 0 */
-/*:ref: subwin_ 14 0 */
-/*:ref: us62_ 14 0 */
-/*:ref: aeroso_ 14 7 4 7 7 7 13 4 124 */
-/*:ref: oda550_ 14 3 4 7 7 */
-/*:ref: pressure_ 14 3 7 7 7 */
-/*:ref: presplane_ 14 4 7 7 7 7 */
-/*:ref: meteo_ 14 0 */
-/*:ref: goes_ 14 1 4 */
-/*:ref: avhrr_ 14 1 4 */
-/*:ref: hrv_ 14 1 4 */
-/*:ref: tm_ 14 1 4 */
-/*:ref: mss_ 14 1 4 */
-/*:ref: mas_ 14 1 4 */
-/*:ref: modis_ 14 1 4 */
-/*:ref: polder_ 14 1 4 */
-/*:ref: seawifs_ 14 1 4 */
-/*:ref: aatsr_ 14 1 4 */
-/*:ref: meris_ 14 1 4 */
-/*:ref: gli_ 14 1 4 */
-/*:ref: equivwl_ 14 4 4 4 7 7 */
-/*:ref: discom_ 14 27 4 4 4 7 7 7 7 7 7 7 4 4 4 7 7 7 7 4 7 7 7 4 4 7 7 7 7 */
-/*:ref: specinterp_ 14 8 7 7 7 7 7 7 7 4 */
-/*:ref: odrayl_ 14 2 7 7 */
-/*:ref: os_ 14 18 4 7 7 7 7 7 7 7 4 4 4 7 7 7 7 7 4 7 */
-/*:ref: brdfgrid_ 14 8 4 4 7 7 7 7 7 7 */
-/*:ref: hapkbrdf_ 14 9 7 7 7 7 4 4 7 7 7 */
-/*:ref: hapkalbe_ 14 5 7 7 7 7 7 */
-/*:ref: versbrdf_ 14 8 4 7 7 4 4 7 7 7 */
-/*:ref: versalbe_ 14 4 4 7 7 7 */
-/*:ref: roujbrdf_ 14 8 7 7 7 4 4 7 7 7 */
-/*:ref: roujalbe_ 14 4 7 7 7 7 */
-/*:ref: waltbrdf_ 14 9 7 7 7 7 4 4 7 7 7 */
-/*:ref: waltalbe_ 14 5 7 7 7 7 7 */
-/*:ref: minnbrdf_ 14 6 7 7 4 4 7 7 */
-/*:ref: minnalbe_ 14 3 7 7 7 */
-/*:ref: oceabrdf_ 14 13 7 7 7 7 7 7 7 7 4 4 7 7 7 */
-/*:ref: oceaalbe_ 14 6 7 7 7 7 7 7 */
-/*:ref: iapibrdf_ 14 12 4 7 7 7 7 4 7 4 4 7 7 7 */
-/*:ref: iapialbe_ 14 8 4 7 7 7 7 4 7 7 */
-/*:ref: rahmbrdf_ 14 8 7 7 7 4 4 7 7 7 */
-/*:ref: rahmalbe_ 14 4 7 7 7 7 */
-/*:ref: akbrdf_ 14 15 7 7 7 7 7 7 7 7 7 7 4 4 7 7 7 */
-/*:ref: akalbe_ 14 1 7 */
-/*:ref: modisbrdf_ 14 8 7 7 7 4 4 7 7 7 */
-/*:ref: modisalbe_ 14 4 7 7 7 7 */
-/*:ref: vegeta_ 14 1 7 */
-/*:ref: clearw_ 14 1 7 */
-/*:ref: sand_ 14 1 7 */
-/*:ref: lakew_ 14 1 7 */
-/*:ref: polnad_ 14 6 7 7 7 7 7 7 */
-/*:ref: polglit_ 14 7 7 7 7 7 7 7 7 */
-/*:ref: solirr_ 14 2 7 7 */
-/*:ref: abstra_ 14 34 4 7 7 7 7 7 7 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */
-/*:ref: interp_ 14 47 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 4 7 7 7 4 7 7 7 7 7 7 4 */
-/*:ref: enviro_ 14 8 7 7 7 7 7 7 7 7 */
-/*:ref: dirpopol_ 14 3 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/main.c b/Modules/ThirdParty/6S/src/main.c
deleted file mode 100644
index 6475b72..0000000
--- a/Modules/ThirdParty/6S/src/main.c
+++ /dev/null
@@ -1,8186 +0,0 @@
-/* main.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-Extern struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-Extern struct {
- integer num_z__;
- doublereal alt_z__[101], taer_z__[101], taer55_z__[101];
-} aeroprof_;
-
-#define aeroprof_1 aeroprof_
-
-Extern struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-Extern struct {
- doublereal rmax, rmin;
- integer icp;
- doublereal rn[80] /* was [20][4] */, ri[80] /* was [20][4] */, x1[
- 4], x2[4], x3[4], cij[4];
- integer irsunph;
- doublereal rsunph[50], nrsunph[50];
-} mie_in__;
-
-#define mie_in__1 mie_in__
-
-Extern struct {
- integer igmax;
-} multorder_;
-
-#define multorder_1 multorder_
-
-Extern struct {
- doublereal zpl[34], ppl[34], tpl[34], whpl[34], wopl[34];
-} sixs_planesim__;
-
-#define sixs_planesim__1 sixs_planesim__
-
-Extern struct {
- doublereal xacc;
-} sixs_test__;
-
-#define sixs_test__1 sixs_test__
-
-Extern struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-Extern struct {
- doublereal delta, sigma;
-} sixs_del__;
-
-#define sixs_del__1 sixs_del__
-
-Extern struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#define sixs_atm__1 sixs_atm__
-
-Extern struct {
- doublereal ext[20], ome[20], gasym[20], phase[20], qhase[20], uhase[20];
-} sixs_aer__;
-
-#define sixs_aer__1 sixs_aer__
-
-Extern struct {
- doublereal roatm[60] /* was [3][20] */, dtdir[60] /* was [3][20]
- */, dtdif[60] /* was [3][20] */, utdir[60] /* was [3][20]
- */, utdif[60] /* was [3][20] */, sphal[60] /* was [3][20]
- */, wldis[20], trayl[20], traypl[20], rqatm[60] /* was [3][20]
- */, ruatm[60] /* was [3][20] */;
-} sixs_disc__;
-
-#define sixs_disc__1 sixs_disc__
-
-/* Table of constant values */
-
-static doublereal c_b3 = -1.;
-static doublereal c_b4 = 1.;
-static doublereal c_b5 = 0.;
-static integer c__3 = 3;
-static integer c__1 = 1;
-static integer c__5 = 5;
-static integer c__2 = 2;
-static doublereal c_b887 = 2.;
-static integer c__9 = 9;
-
-/*< program ssssss >*/
-/* Main program */ MAIN__()
-{
- /* Initialized data */
-
- static doublereal angmu[10] = { 85.,80.,70.,60.,50.,40.,30.,20.,10.,0. };
- static doublereal angphi[13] = { 0.,30.,60.,90.,120.,150.,180.,210.,240.,
- 270.,300.,330.,360. };
- static doublereal wldisc[20] = { .35,.4,.412,.443,.47,.488,.515,.55,.59,
- .633,.67,.694,.76,.86,1.24,1.536,1.65,1.95,2.25,3.75 };
- static char etiq1[60*8+1] = "(1h*,22x,34h user defined conditions \
- ,t79,1h*) (1h*,22x,24h meteosat observation ,t79,1h*) \
- (1h*,22x,25h goes east observation ,t79,1h*) (1h*,22x,25h go\
-es west observation ,t79,1h*) (1h*,22x,30h avhrr (AM noaa) ob\
-servation ,t79,1h*) (1h*,22x,30h avhrr (PM noaa) observation ,t79,\
-1h*) (1h*,22x,24h h.r.v. observation ,t79,1h*) (1h\
-*,22x,24h t.m. observation ,t79,1h*) ";
- static char nsat[17*119+1] = " constant user s meteosa\
-t goes east goes west avhrr 1 (noaa6) avhrr 2 (noaa6)\
- avhrr 1 (noaa7) avhrr 2 (noaa7) avhrr 1 (noaa8) avhrr 2 (noaa8) avhrr \
-1 (noaa9) avhrr 2 (noaa9) avhrr 1 (noaa10) avhrr 2 (noaa10) avhrr 1 (noaa1\
-1) avhrr 2 (noaa11) hrv1 1 hrv1 2 hrv1 3 hrv1 \
-pan hrv2 1 hrv2 2 hrv2 3 hrv2 pan \
- tm 1 tm 2 tm 3 tm 4 tm \
- 5 tm 7 mss 4 mss 5 mss 6 \
- mss 7 mas 1 mas 2 mas 3 ma\
-s 4 mas 5 mas 6 mas 7 modis 1 \
- modis 2 modis 3 modis 4 modis 5 m\
-odis 6 modis 7 modis 8 avhrr 1 (noaa12) avhrr 2 (n\
-oaa12) avhrr 1 (noaa14) avhrr 2 (noaa14) polder 1 polder 2 p\
-older 3 polder 4 polder 5 polder 6 polder 7 \
- polder 8 seawifs 1 seawifs 2 seawifs 3 \
-seawifs 4 seawifs 5 seawifs 6 seawifs 7 seawifs \
-8 aatsr 1 aatsr 2 aatsr 3 aatsr 4 \
- meris 1 meris 2 meris 3 meris 4 meris \
- 5 meris 6 meris 7 meris 8 meris 9 \
- meris 10 meris 11 meris 12 meris 13 meris \
- 14 meris 15 gli 1 gli 2 gli 3 \
- gli 4 gli 5 gli 6 gli 7 gli \
- 8 gli 9 gli 10 gli 11 gli 12 \
- gli 13 gli 14 gli 15 gli 16 gli \
- 17 gli 18 gli 19 gli 20 gli 21 \
- gli 22 gli 23 gli 24 gli 25 gli\
- 26 gli 27 gli 28 gli 29 gli 30 \
- ";
- static char atmid[51*7+1] = "no absorption computed \
- tropical (uh2o=4.12g/cm2,uo3=.247cm-atm)midlatitude summe\
-r (uh2o=2.93g/cm2,uo3=.319cm-atm)midlatitude winter (uh2o=.853g/cm2,uo3=.3\
-95cm-atm)subarctic summer (uh2o=2.10g/cm2,uo3=.480cm-atm)subarctic winte\
-r (uh2o=.419g/cm2,uo3=.480cm-atm)us standard 1962 (uh2o=1.42g/cm2,uo3=.\
-344cm-atm)";
- static char reflec[71*8+1] = "(1h*,12x,39h user defined spectral reflect\
-ance ,f6.3,t79 ,1h*) (1h*,12x,27h monochromatic reflectance ,f6.3,t7\
-9,1h*) (1h*,12x,39h constant reflectance over the spectra ,\
-f6.3,t79 ,1h*) (1h*,12x,39h spectral vegetation ground reflectance,f6.3,\
-t79 ,1h*) (1h*,12x,39h spectral clear water reflectance ,f6.3,t79 \
- ,1h*) (1h*,12x,39h spectral dry sand ground reflectance ,f6.3,t79 ,1\
-h*) (1h*,12x,39h spectral lake water reflectance ,f6.3,t79 ,1h*) (\
-1h*,12x,39h spectral volcanic debris reflectance ,f6.3,t79 ,1h*) ";
-
- /* Format strings */
- static char fmt_98[] = "(/////,\002*\002,30(\002*\002),\002 6sV version \
-1.0B \002,30(\002*\002),t79,\002*\002,/,\002*\002,t79,\002*\002,/,\002*\002,\
-22x,\002 geometrical conditions identity \002,t79,\002*\002,/,\002*\002,22x,\
-\002 ------------------------------- \002,t79,\002*\002)";
- static char fmt_1401[] = "(\002*\002,t79,\002*\002)";
- static char fmt_103[] = "(\002*\002,2x,\002 month:\002,i3,\002 day : \
-\002,i3,t79,\002*\002)";
- static char fmt_101[] = "(\002*\002,15x,\002 month:\002,i3,\002 day :\
- \002,i3,\002 universal time:\002,f6.2,\002 (hh.dd) \002,t79,\002*\002,/\
-,\002*\002,15x,\002latitude: \002,f7.2,\002 deg \002,6x,\002 longitude: \002\
-,f7.2,\002 deg \002,t79,\002*\002)";
- static char fmt_102[] = "(\002*\002,2x,\002 solar zenith angle: \002,f6\
-.2,\002 deg \002,\002 solar azimuthal angle: \002,f6.2,\002 deg \002,t7\
-9,\002*\002)";
- static char fmt_1110[] = "(\002*\002,2x,\002 view zenith angle: \002,f\
-6.2,\002 deg \002,\002 view azimuthal angle: \002,f6.2,\002 deg \002,t\
-79,\002*\002,/,\002*\002,2x,\002 scattering angle: \002,f6.2,\002 deg \
-\002,\002 azimuthal angle difference: \002,f6.2,\002 deg \002,t79,\002*\002)";
- static char fmt_1119[] = "(\002*\002,t79,\002*\002,/,\002*\002,22x,\002 \
-atmospheric model description \002,t79,\002*\002,/,\002*\002,22x,\002 ------\
------------------------ \002,t79,\002*\002)";
- static char fmt_1281[] = "(\002*\002,10x,\002 atmospheric model identity\
- : \002,t79,\002*\002,/,\002*\002,12x,\002 user defined water content : uh2\
-o=\002,f6.3,\002 g/cm2 \002,t79,\002*\002,/,\002*\002,12x,\002 user defined \
-ozone content : uo3 =\002,f6.3,\002 cm-atm\002,t79,\002*\002)";
- static char fmt_1272[] = "(\002*\002,\002 atmospheric model identity :\
- \002,t79,\002*\002,/,\002*\002,12x,\002 user defined atmospheric model \
-\002,t79,\002*\002,/,\002*\002,12x,\002*altitude \002,\002*pressure \002\
-,\002*temp. \002,\002*h2o dens. \002,\002*o3 dens. \002,t79,\002*\002)";
- static char fmt_1271[] = "(\002*\002,12x,5e11.4,t79,\002*\002)";
- static char fmt_1261[] = "(\002*\002,10x,\002 atmospheric model identity\
- : \002,t79,\002*\002,/,\002*\002,15x,a51,t79,\002*\002)";
- static char fmt_5550[] = "(\002*\002,10x,\002 aerosols type identity \
-:\002,t79,\002*\002)";
- static char fmt_5554[] = "(\002*\002,15x,\002no aerosols computed\002,t7\
-9,\002*\002)";
- static char fmt_5551[] = "(\002*\002,11x,\002 user-defined aerosol prof\
-ile:\002,i2,\002 layers\002,t79,\002*\002)";
- static char fmt_5552[] = "(\002*\002,13x,\002 Layer Height(km) Opt. \
-thick.(at 0.55 mkm)\002,3x,\002 Model\002,t79,\002*\002)";
- static char fmt_5553[] = "(\002*\002,15x,i2,1x,f10.1,13x,f5.3,15x,a15,t7\
-9,\002*\002)";
- static char fmt_132[] = "(\002*\002,15x,a30,t79,\002*\002)";
- static char fmt_133[] = "(\002*\002,13x,\002user-defined aerosol model:\
- \002,t79,\002*\002,/,\002*\002,26x,f6.3,\002 % of dust-like\002,t79,\002\
-*\002,/,\002*\002,26x,f6.3,\002 % of water-soluble\002,t79,\002*\002,/,\002\
-*\002,26x,f6.3,\002 % of oceanic\002,t79,\002*\002,/,\002*\002,26x,f6.3,\002\
- % of soot\002,t79,\002*\002)";
- static char fmt_134[] = "(\002*\002,13x,\002user-defined aerosol model:\
- \002,i2,\002 Log-Normal size distribution(s)\002,t79,\002*\002,/,\002*\002,\
-15x,\002Mean radius Stand. Dev. Percent. density\002,t79,\002*\002)";
- static char fmt_135[] = "(\002*\002,t19,f6.4,t33,f5.3,t47,e8.3,t79,\002\
-*\002)";
- static char fmt_136[] = "(\002*\002,13x,\002user-defined aerosol model\
-:\002,\002 modified Gamma size distribution\002,t79,\002*\002,/,\002*\002,19\
-x,\002Alpha: \002,f6.3,\002 b: \002,f6.3,\002 Gamma: \002,f6.3,t79,\002\
-*\002)";
- static char fmt_137[] = "(\002*\002,13x,\002user-defined aerosol model\
-:\002,\002 Junge Power-Law size distribution\002,t79,\002*\002,/,\002*\002,1\
-9x,\002Alpha: \002,f6.3,t79,\002*\002)";
- static char fmt_139[] = "(\002*\002,15x,\002 results saved into the fi\
-le:\002,t79,\002*\002,/,\002*\002,20x,a30,t79,\002*\002)";
- static char fmt_138[] = "(\002*\002,13x,\002user-defined aerosol model u\
-sing data from\002,\002 the file:\002,t79,\002*\002,/,\002*\002,20x,a30,t79\
-,\002*\002)";
- static char fmt_140[] = "(\002*\002,10x,\002 optical condition identit\
-y :\002,t79,\002*\002,/,\002*\002,15x,\002 user def. opt. thick. at 550 nm \
-:\002,f7.4,t79,\002*\002,/,\002*\002,t79,\002*\002)";
- static char fmt_141[] = "(\002*\002,10x,\002 optical condition identit\
-y :\002,t79,\002*\002,/,\002*\002,14x,\002 visibility :\002,f6.2,\002 km \
-\002,\002 opt. thick. 550 nm : \002,f7.4,t79,\002*\002)";
- static char fmt_5555[] = "(\002*\002,t79,\002*\002)";
- static char fmt_148[] = "(\002*\002,22x,\002 spectral condition \002,t7\
-9,\002*\002,/,\002*\002,22x,\002 ------------------ \002,t79,\002*\002)";
- static char fmt_1510[] = "(\002*\002,10x,a17,t79,\002*\002,/,\002*\002,1\
-5x,\002value of filter function :\002,t79,\002*\002,/,\002*\002,15x,\002 wl \
-inf=\002,f6.3,\002 mic\002,2x,\002 wl sup=\002,f6.3,\002 mic\002,t79,\002\
-*\002)";
- static char fmt_149[] = "(\002*\002,11x,\002 monochromatic calculation a\
-t wl\002:,f6.3,\002 micron \002,t79,\002*\002)";
- static char fmt_142[] = "(\002*\002,t79,\002*\002,/,\002*\002,22x,\002 S\
-urface polarization parameters \002,t79,\002*\002,/,\002*\002,22x,\002 --\
--------------------------------- \002,t79,\002*\002,/,\002*\002,t79,\002*\
-\002)";
- static char fmt_146[] = "(\002*\002,t79,\002*\002,/,\002*\002,\002 User\
-'s input roQ and roU \002,2(f8.3,1x),t79,\002*\002,/,\002*\002)";
- static char fmt_144[] = "(\002*\002,t79,\002*\002,/,\002*\002,\002 Nadal\
- and Breon with % vegetation \002,1(f8.2,1x),t79,\002*\002,/,\002*\002)";
- static char fmt_145[] = "(\002*\002,t79,\002*\002,/,\002*\002,\002 Sung\
-lint Model windspeed,azimuth \002,2(f8.3,1x),t79,\002*\002,/,\002*\002)";
- static char fmt_143[] = "(\002*\002,t79,\002*\002,/,\002*\002,\002 Surfa\
-ce Polarization Q,U,Rop,Chi \002,3(f8.5,1x),f8.2,1x,t79,\002*\002,/,\002\
-*\002,t79,\002*\002)";
- static char fmt_169[] = "(\002*\002,t79,\002*\002,/,\002*\002,22x,\002 t\
-arget type \002,t79,\002*\002,/,\002*\002,22x,\002 ----------- \002,t79\
-,\002*\002,/,\002*\002,10x,\002 inhomogeneous ground , radius of target \002\
-,f6.3,\002 km \002,t79,\002*\002)";
- static char fmt_170[] = "(\002*\002,15x,\002 target reflectance : \002,t\
-79,\002*\002)";
- static char fmt_171[] = "(\002*\002,15x,\002 environmental reflectance\
- : \002,t79,\002*\002)";
- static char fmt_168[] = "(\002*\002,t79,\002*\002,/,\002*\002,22x,\002 t\
-arget type \002,t79,\002*\002,/,\002*\002,22x,\002 ----------- \002,t79\
-,\002*\002,/,\002*\002,10x,\002 homogeneous ground \002,t79,\002*\002)";
- static char fmt_190[] = "(\002*\002,15x,\002 brdf from in-situ measureme\
-nts\002,t79,\002*\002)";
- static char fmt_187[] = "(\002*\002,t79,\002*\002,/,\002*\002,15x,\002 b\
-rdf selected \002,t79,\002*\002,/,\002*\002,15x,\002 \
-rodir robar ropbar albedo \002,t79,\002*\002,/,\002*\002,15x,4(f9.4\
-,1x),t79,\002*\002)";
- static char fmt_191[] = "(\002*\002,15x,\002 Hapke's model selected\002,\
-t79,\002*\002/,\002*\002,16x,\002om:\002,f5.3,1x,\002af:\002,f5.3,1x,\002s0\
-:\002,f5.3,1x,\002h:\002,f5.3,t79,\002*\002)";
- static char fmt_192[] = "(\002*\002,15x,\002 Pinty and Verstraete's mode\
-l selected\002,t79,\002*\002/,\002*\002,16x,\002om:\002,f5.3,1x,\002rad :\
-\002,f5.3,1x,\002lad :\002,f5.3,1x,t79,\002*\002)";
- static char fmt_200[] = "(\002*\002,15x,\002 single scattering only \
- : \002,t79,\002*\002)";
- static char fmt_201[] = "(\002*\002,15x,\002 multiple scattering (Dickin\
-son et al) \002,t79,\002*\002)";
- static char fmt_197[] = "(\002*\002,15x,\002 given kappa1 and kappa2: \
- \002,t79,\002*\002,/,\002*\002,20x,\002kpa1:\002,f5.3,1x,\002kp\
-a2:\002,f5.3,t79,\002*\002)";
- static char fmt_198[] = "(\002*\002,15x,\002 Goudrian's parametrization \
-of kappa : \002,t79,\002*\002,/,\002*\002,20x,\002 ksil:\002,f5.3,1x,t79\
-,\002*\002)";
- static char fmt_199[] = "(\002*\002,15x,\002 modified Goudrian's paramet\
-rization : \002,t79,\002*\002,/,\002*\002,20x,\002 ksil:\002,f5.3,1x,t79\
-,\002*\002)";
- static char fmt_202[] = "(\002*\002,15x,\002 isotropic phase function \
- : \002,t79,\002*\002)";
- static char fmt_203[] = "(\002*\002,15x,\002 Heyney-Greenstein's phase f\
-unction : \002,t79,\002*\002,/,\002*\002,20x,\002assym:\002,f5.3,1x,t79\
-,\002*\002)";
- static char fmt_204[] = "(\002*\002,15x,\002 Legendre polynomial phase f\
-unction : \002,t79,\002*\002,/,\002*\002,20x,\002beta1:\002,f5.3,1x,\002be\
-ta2:\002,f5.3,t79,\002*\002)";
- static char fmt_193[] = "(\002*\002,15x,\002 Roujean et al.'s model sele\
-cted\002,t79,\002*\002/,\002*\002,16x,\002k0:\002,f5.3,1x,\002k1:\002,f5.3,1\
-x,\002k2:\002,f5.3,t79,\002*\002)";
- static char fmt_194[] = "(\002*\002,15x,\002 Walthall et al.'s model sel\
-ected\002,t79,\002*\002/,\002*\002,16x,\002a:\002,f5.3,1x,\002ap:\002,f5.3,1\
-x,\002b:\002,f5.3,1x,\002om:\002,f5.3,t79,\002*\002)";
- static char fmt_195[] = "(\002*\002,15x,\002 Minnaert's model selecte\
-d\002,t79,\002*\002/,\002*\002,16x,\002par1:\002,f5.3,1x,\002par2:\002,f5.3,\
-t79,\002*\002)";
- static char fmt_196[] = "(\002*\002,15x,\002 ocean model selected\002,t7\
-9,\002*\002/,\002*\002,16x,\002wind speed [m/s] :\002,f5.1,2x,\002azimuth of\
- the wind [deg] :\002,f8.2,t79,\002*\002/,\002*\002,16x,\002salinity [ppt] \
-:\002,f5.1,4x,\002pigment conc. [mg/m3] :\002,f6.2,t79,\002*\002)";
- static char fmt_500[] = "(\002*\002,6x,\002 water reflectance components\
-: \002,t79,\002*\002,/,\002*\002,6x,\002 Foam: \002,1x,f10.5,1x\
-,\002 Water: \002,1x,f10.5,1x,\002 Glint: \002,1x,f10.5,1x,t79,\002*\002)"
- ;
- static char fmt_205[] = "(\002*\002,15x,\002 Iaquinta and Pinty BRDF mod\
-el selected \002,t79,\002*\002,/,\002*\002,16x,\002Rl:\002,f5.3,1x,\002Tl\
-:\002,f5.3,1x,\002Rs:\002,f5.3,1x,1x,\002LAl:\002,f5.3,t79,\002*\002)";
- static char fmt_207[] = "(\002*\002,15x,a19,t79,\002*\002)";
- static char fmt_208[] = "(\002*\002,15x,a19,1x,f5.2,t79,\002*\002)";
- static char fmt_209[] = "(\002*\002,15x,a31,t79,\002*\002)";
- static char fmt_206[] = "(\002*\002,15x,\002 Rahman et al. model selecte\
-d \002,t79,\002*\002,/,\002*\002,16x,\002Rho0\002:,f6.3,1x,\002af\002:,f6.3,\
-1x,\002xk:\002,f6.3,1x,t79,\002*\002)";
- static char fmt_210[] = "(\002*\002,2x,\002 Kuusk BRDF model, \
- \002,t79,\002*\002,/,\002*\002,12x,\002LAI:\002,f5.3,2x,\002eps\
-:\002,f6.4,2x,\002thm:\002,f4.1,1x,\002sl:\002,f4.2,t79,\002*\002,/,\002*\
-\002,12x,\002cAB:\002,f6.2,1x,\002cW:\002,f5.3,1x,\002N:\002,f5.3,1x,\002cn\
-:\002,f4.2,1x,\002rsl1:\002,f5.3,t79,\002*\002)";
- static char fmt_211[] = "(\002*\002,15x,\002 MODIS BRDF model selecte\
-d \002,t79,\002*\002,/,\002*\002,16x,\002 p1\002:,f6.3,1x,\002p2:\002,f6.3,\
-1x,\002p3:\002,f6.3,1x,t79,\002*\002)";
- static char fmt_173[] = "(\002*\002,t79,\002*\002,/,\002*\002,22x,\002 t\
-arget elevation description \002,t79,\002*\002,/,\002*\002,22x,\002 --------\
--------------------- \002,t79,\002*\002)";
- static char fmt_174[] = "(\002*\002,10x,\002 ground pressure [mb]\002,1\
-x,f7.2,1x,t79,\002*\002)";
- static char fmt_175[] = "(\002*\002,10x,\002 ground altitude [km]\002,f\
-6.3,1x,t79,\002*\002)";
- static char fmt_176[] = "(\002*\002,15x,\002 gaseous content at target l\
-evel: \002,t79,\002*\002,/,\002*\002,15x,\002 uh2o=\002,f6.3,\002 g/cm2 \002\
-,5x,\002 uo3=\002,f6.3,\002 cm-atm\002,t79,\002*\002)";
- static char fmt_178[] = "(\002*\002,t79,\002*\002,/,\002*\002,22x,\002 p\
-lane simulation description \002,t79,\002*\002,/,\002*\002,22x,\002 --------\
--------------------- \002,t79,\002*\002)";
- static char fmt_179[] = "(\002*\002,10x,\002 plane pressure [m\
-b] \002,f7.2,1x,t79,\002*\002)";
- static char fmt_180[] = "(\002*\002,10x,\002 plane altitude absolute [k\
-m] \002,f6.3,1x,t79,\002*\002)";
- static char fmt_181[] = "(\002*\002,15x,\002 atmosphere under plane desc\
-ription: \002,t79,\002*\002)";
- static char fmt_182[] = "(\002*\002,15x,\002 ozone content \
- \002,f6.3,1x,t79,\002*\002)";
- static char fmt_183[] = "(\002*\002,15x,\002 h2o content \
- \002,f6.3,1x,t79,\002*\002)";
- static char fmt_184[] = "(\002*\002,15x,\002aerosol opt. thick. 550nm\
- \002,f6.3,1x,t79,\002*\002)";
- static char fmt_177[] = "(\002*\002,t79,\002*\002,/,\002*\002,23x,\002 a\
-tmospheric correction activated \002,t79,\002*\002,/,\002*\002,23x,\002 ----\
----------------------------- \002,t79,\002*\002)";
- static char fmt_220[] = "(\002*\002,23x,\002 Lambertian assumption sele\
-cted \002,t79,\002*\002)";
- static char fmt_221[] = "(\002*\002,23x,\002 BRDF coupling correction \
- \002,t79,\002*\002)";
- static char fmt_185[] = "(\002*\002,10x,\002 input apparent reflectance \
-: \002,f6.3,t79,\002*\002)";
- static char fmt_186[] = "(\002*\002,10x,\002 input measured radiance [w/\
-m2/sr/mic] \002,f7.3,t79,\002*\002)";
- static char fmt_172[] = "(\002*\002,t79,\002*\002,/,79(\002*\002),///)";
- static char fmt_1500[] = "(\002*\002,1x,\002wave total total total \
-total atm. \002,\002swl step sbor dsol toar \002,t79,\002*\002,/,\
-\002*\002,1x,\002 gas scat scat spheri intr \002,t79,\002*\
-\002,/,\002*\002,1x,\002 trans down up albedo refl \002,t79\
-,\002*\002)";
- static char fmt_1501[] = "(\002*\002,6(f6.4,1x),f6.1,1x,4(f6.4,1x),t79\
-,\002*\002)";
- static char fmt_2222[] = "(a28,3(f10.7,1x))";
- static char fmt_2223[] = "(a24,1x,a80)";
- static char fmt_333[] = "(f10.5,1x,f10.5,1x,i3,f10.5,f10.5)";
- static char fmt_430[] = "(79(\002*\002),/,\002*\002,t79,\002*\002,/\
-,\002*\002,24x,\002 integrated values of : \002,t79,\002*\002,/,\002*\002\
-,24x,\002 -------------------- \002,t79,\002*\002,/,\002*\002,t79,\002\
-*\002,/,\002*\002,6x,\002 apparent reflectance \002,f10.7,1x,\002 appar. rad\
-.(w/m2/sr/mic) \002,f8.3,1x,t79,\002*\002,/,\002*\002,18x,\002 total gaseous\
- transmittance \002,f5.3,t79,\002*\002,/,\002*\002,t79,\002*\002,/,79(\002\
-*\002))";
- static char fmt_431[] = "(\002*\002,t79,\002*\002,/,\002*\002,24x,\002 c\
-oupling aerosol -wv : \002,t79,\002*\002,/,\002*\002,24x,\002 -----------\
---------- \002,t79,\002*\002,/,\002*\002,10x,\002 wv above aerosol :\
- \002,f7.3,4x,\002 wv mixed with aerosol : \002,f7.3,1x,t79,\002*\002,/,\002*\
-\002,22x,\002 wv under aerosol : \002,f7.3,t79,\002*\002)";
- static char fmt_429[] = "(79(\002*\002),/,\002*\002,t79,\002*\002,/\
-,\002*\002,24x,\002 integrated values of : \002,t79,\002*\002,/,\002*\002\
-,24x,\002 -------------------- \002,t79,\002*\002,/,\002*\002,t79,\002\
-*\002,/,\002*\002,6x,\002 app. polarized refl. \002,f7.4,3x,\002 app. pol. r\
-ad. (w/m2/sr/mic) \002,f8.3,1x,t79,\002*\002,/,\002*\002,12x,\002 direction \
-of the plane of polarization\002,f6.2,t79,\002*\002,/,\002*\002,18x,\002 tot\
-al polarization ratio \002,f5.3,t79,\002*\002,/,\002*\002,t79,\002*\002,\
-/,79(\002*\002))";
- static char fmt_432[] = "(\002*\002,t79,\002*\002,/,\002*\002,24x,\002 i\
-nt. normalized values of : \002,t79,\002*\002,/,\002*\002,24x,\002 ------\
---------------------- \002,t79,\002*\002,/,\002*\002,22x,\002% of irradia\
-nce at ground level\002,t79,\002*\002,/,\002*\002,5x,\002% of direct irr\
-.\002,4x,\002% of diffuse irr.\002,4x,\002% of enviro. irr \002,t79,\002*\
-\002,/,\002*\002,3(10x,f10.3),t79,\002*\002,/,\002*\002,22x,\002 reflectance\
- at satellite level\002,t79,\002*\002,/,\002*\002,5x,\002atm. intrin. ref\
-.\002,3x,a11,\002 ref.\002,2x,a6,\002 reflectance\002,t79,\002*\002,/,\002\
-*\002,3(10x,f10.3),t79,\002*\002,/,\002*\002,t79,\002*\002)";
- static char fmt_434[] = "(\002*\002,24x,\002 int. absolute values of\002\
-,t79,\002*\002,/,\002*\002,24x,\002 -----------------------\002,t79,\002*\
-\002,/,\002*\002,22x,\002irr. at ground level (w/m2/mic) \002,t79,\002*\002\
-,/,\002*\002,5x,\002direct solar irr.\002,4x,\002atm. diffuse irr.\002,4x\
-,\002environment irr \002,t79,\002*\002,/,\002*\002,3(10x,f10.3),t79,\002\
-*\002,/,\002*\002,22x,\002rad at satel. level (w/m2/sr/mic)\002,t79,\002*\
-\002,/,\002*\002,5x,\002atm. intrin. rad.\002,4x,a11,\002 rad.\002,4x,a6,\
-\002 radiance\002,t79,\002*\002,/,\002*\002,3(10x,f10.3),t79,\002*\002,/,\
-\002*\002,t79,\002*\002)";
- static char fmt_436[] = "(\002*\002,t79,\002*\002,/,\002*\002,22x,\002so\
-l. spect (in w/m2/mic)\002,t79,\002*\002,/,\002*\002,30x,f10.3,t79,\002*\002\
-,/,\002*\002,t79,\002*\002,/,79(\002*\002))";
- static char fmt_437[] = "(\002*\002,t79,\002*\002,/,\002*\002,10x,\002in\
-t. funct filter (in mic) \002,10x,\002 int. sol. spect (in w/m2)\002,t79\
-,\002*\002,/,\002*\002,10x,f12.7,30x,f10.3,t79,\002*\002,/,\002*\002,t79,\
-\002*\002,/,79(\002*\002))";
- static char fmt_929[] = "(\002 \002,////)";
- static char fmt_930[] = "(79(\002*\002),/,\002*\002,t79,\002*\002,/\
-,\002*\002,t27,\002 integrated values of : \002,t79,\002*\002,/,\002*\002\
-,t27,\002 -------------------- \002,t79,\002*\002,/,\002*\002,t79,\002\
-*\002,/,\002*\002,t30,\002 downward \002,t45,\002 upward \002,t60,\002 t\
-otal \002,t79,\002*\002)";
- static char fmt_931[] = "(\002*\002,6x,a20,t32,f8.5,t47,f8.5,t62,f8.5,t7\
-9,\002*\002)";
- static char fmt_939[] = "(\002*\002,t79,\002*\002,/,\002*\002,t30,\002 r\
-ayleigh \002,t45,\002 aerosols \002,t60,\002 total \002,t79,\002*\002,/\
-,\002*\002,t79,\002*\002)";
- static char fmt_932[] = "(\002*\002,6x,a20,t32,f8.2,t47,f8.2,t62,f8.2,t7\
-9,\002*\002)";
- static char fmt_1402[] = "(\002*\002,t79,\002*\002,/,79(\002*\002))";
- static char fmt_940[] = "(79(\002*\002),/,/,/,/,79(\002*\002),/\002*\002\
-,23x,\002 atmospheric correction result \002,t79,\002*\002,/,\002*\002,23x\
-,\002 ----------------------------- \002,t79,\002*\002)";
- static char fmt_941[] = "(\002*\002,6x,\002 input apparent reflectance \
- :\002,1x,f8.3,t79,\002*\002)";
- static char fmt_942[] = "(\002*\002,6x,\002 measured radiance [w/m2/sr/m\
-ic] :\002,1x,f8.3,t79,\002*\002)";
- static char fmt_943[] = "(\002*\002,6x,\002 atmospherically corrected re\
-flectance :\002,1x,f8.3,t79,\002*\002)";
- static char fmt_944[] = "(\002*\002,6x,\002 coefficients xa xb xc \
- :\002,1x,3(f8.5,1x),t79,\002*\002,/,\002*\002,6x,\002 y=xa*(measur\
-ed radiance)-xb; acr=y/(1.+xc*y)\002,t79,\002*\002,/,79(\002*\002))";
- static char fmt_222[] = "(\002*\002,6x,\002 atmospherically corrected re\
-flectance \002,t79,\002*\002,/,\002*\002,6x,\002 Lambertian case : \002,1x\
-,f10.5,t79,\002*\002,/,\002*\002,6x,\002 BRDF case : \002,1x,f10.5,t7\
-9,\002*\002)";
-
- /* System generated locals */
- address a__1[2];
- integer i__1, i__2[2], i__3;
- doublereal d__1, d__2, d__3;
- cilist ci__1;
- olist o__1;
- cllist cl__1;
-
- /* Builtin functions */
- /* Subroutine */ /*int s_copy(char *, char *, ftnlen, ftnlen);*/
- double acos(doublereal), cos(doublereal);
- integer s_rsle(cilist *), do_lio(integer *, integer *, char *, ftnlen),
- e_rsle();
- /* Subroutine */ int s_stop(char *, ftnlen);
- double sqrt(doublereal);
- integer s_rsfe(cilist *), do_fio(integer *, char *, ftnlen), e_rsfe(),
- i_indx(char *, char *, ftnlen, ftnlen);
- /* Subroutine */ /*int s_cat(char *, char **, integer *, integer *, ftnlen);*/
- double log(doublereal), exp(doublereal);
- integer s_wsle(cilist *), e_wsle(), s_wsfe(cilist *), e_wsfe();
- double atan2(doublereal, doublereal), pow_dd(doublereal *, doublereal *);
- integer f_open(olist *), f_clos(cllist *);
- double atan(doublereal);
-
- /* Local variables */
- extern /* Subroutine */ int tropic_(), midsum_(), midwin_(), subsum_(),
- subwin_(), aeroso_(integer *, doublereal *, doublereal *,
- doublereal *, char *, integer *, ftnlen), meteo_(), avhrr_(
- integer *), modis_(integer *), polder_(integer *), seawifs_(
- integer *), aatsr_(integer *), meris_(integer *), equivwl_(
- integer *, integer *, doublereal *, doublereal *), discom_(
- integer *, integer *, integer *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, integer *, integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, integer *, doublereal *,
- doublereal *, doublereal *, integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *), odrayl_(doublereal *,
- doublereal *), oceaalbe_(doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *), akbrdf_(doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, integer *, integer *, doublereal *, doublereal *,
- doublereal *), akalbe_(doublereal *), oceabrdf_(doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, integer *, integer *,
- doublereal *, doublereal *, doublereal *), iapialbe_(integer *,
- doublereal *, doublereal *, doublereal *, doublereal *, integer *,
- doublereal *, doublereal *), hapkalbe_(doublereal *, doublereal *
- , doublereal *, doublereal *, doublereal *), vegeta_(doublereal *)
- , clearw_(doublereal *), lakew_(doublereal *), rahmalbe_(
- doublereal *, doublereal *, doublereal *, doublereal *), polnad_(
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *), polglit_(doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *), solirr_(doublereal *, doublereal *), abstra_(
- integer *, doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, integer *, doublereal *
- , doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *),
- iapibrdf_(integer *, doublereal *, doublereal *, doublereal *,
- doublereal *, integer *, doublereal *, integer *, integer *,
- doublereal *, doublereal *, doublereal *), hapkbrdf_(doublereal *,
- doublereal *, doublereal *, doublereal *, integer *, integer *,
- doublereal *, doublereal *, doublereal *), interp_(integer *,
- integer *, doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, integer *, doublereal *, doublereal *, doublereal *,
- integer *, doublereal *, doublereal *, doublereal *, doublereal *
- , doublereal *, doublereal *, integer *);
- doublereal refet_fi__[181];
- extern /* Subroutine */ int brdfgrid_(integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *), minnalbe_(doublereal *, doublereal *, doublereal *)
- , rahmbrdf_(doublereal *, doublereal *, doublereal *, integer *,
- integer *, doublereal *, doublereal *, doublereal *), enviro_(
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *);
- doublereal rqatm2, brdfdats[130] /* was [10][13] */, ruatm2;
- extern /* Subroutine */ int waltalbe_(doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *);
- doublereal brdfdatv[130] /* was [10][13] */, tdirqu, rqmeas2;
- extern /* Subroutine */ int minnbrdf_(doublereal *, doublereal *, integer
- *, integer *, doublereal *, doublereal *);
- doublereal roatm_fi__[10860] /* was [3][20][181] */, height_z__[
- 101], phi_wind__, rfoamave;
- extern /* Subroutine */ int versalbe_(integer *, doublereal *, doublereal
- *, doublereal *), roujalbe_(doublereal *, doublereal *,
- doublereal *, doublereal *), waltbrdf_(doublereal *, doublereal *,
- doublereal *, doublereal *, integer *, integer *, doublereal *,
- doublereal *, doublereal *);
- doublereal rumeas2, qlumeas, ulumeas, brdfints[2499] /* was [51][
- 49] */, romix_fi__[181], rglitave, brdfintv[2499] /* was [51][
- 49] */;
- extern /* Subroutine */ int versbrdf_(integer *, doublereal *, doublereal
- *, integer *, integer *, doublereal *, doublereal *, doublereal *)
- , roujbrdf_(doublereal *, doublereal *, doublereal *, integer *,
- integer *, doublereal *, doublereal *, doublereal *);
- doublereal sbrdftmp[3] /* was [3][1] */,
- xtphi;
- doublereal ulumet=0;
- doublereal rqfet=0;
- doublereal qlumet=0;
- doublereal rufet=0;
- extern /* Subroutine */ int dirpopol_(doublereal *, doublereal *,
- doublereal *), pressure_(doublereal *, doublereal *, doublereal *)
- ;
- doublereal c__[4];
- integer i__, j, k, l, n;
- doublereal v, y;
- char aer_model__[50*15];
- extern /* Subroutine */ int modisalbe_(doublereal *, doublereal *,
- doublereal *, doublereal *);
- integer iaer_prof__;
- extern /* Subroutine */ int modisbrdf_(doublereal *, doublereal *,
- doublereal *, integer *, integer *, doublereal *, doublereal *,
- doublereal *);
- integer i1, i2;
- doublereal p1, p2, p3, rorayl_fi__[181];
- extern /* Subroutine */ int presplane_(doublereal *, doublereal *,
- doublereal *, doublereal *);
- doublereal robarstar, gb[51];
- integer nc;
- doublereal pc;
- integer ik;
- doublereal sb, gp[49], fr, pi, es, xa, xb, xc;
- integer np;
- doublereal rm[51], ro, rp[49], wl;
- integer nt, mu, nl;
- doublereal tu;
- extern /* Subroutine */ int tm_(integer *);
- doublereal uw;
- extern /* Subroutine */ int os_(integer *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, integer *, integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *, integer *,
- doublereal *);
- doublereal ea0, ee0, elsesdpaer, pi2;
- doublereal ul=0;
- integer mu2;
- doublereal uo3;
- extern /* Subroutine */ int specinterp_(doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, integer *);
- doublereal robarpstar, fae, cfi, eei, hna, ani[6] /* was [2][3] */, rad,
- seb, fra, sha, tdd, pcl, anr[6] /* was [2][3] */, phi, rob,
- roc, roe, rog, avr, dtr, etn, esn, xle, tdu, its, srm[3], srp[1],
- swl, xpp, xlt, xps, puw, tsd, tsu, azw, pps, prl, ptl, prs, ea0n,
- pws, paw, uli, ee0n, sli, cwi;
- integer nfi;
- extern /* Subroutine */ int us62_();
- doublereal phi0;
- extern /* Subroutine */ int hrv_(integer *);
- doublereal par1, par2, par3, par4, xla0;
- extern /* Subroutine */ int mss_(integer *), mas_(integer *), gli_(
- integer *);
- doublereal tgp1, tgp2;
- integer ifi;
- doublereal xap;
- integer mum1;
- doublereal xlm1[2499] /* was [51][49] */, xlm2[2499] /* was [51][
- 49] */, puo3, cabi, adif, scaa, phaa, qhaa, coef, uhaa, aini[6]
- /* was [2][3] */;
- integer iaer;
- char file[80];
- integer iinf;
- doublereal tdif, sasa, sham, ainr[6] /* was [2][3] */, phar, taer,
- tsca, asol, rocl[1501], roel[1501], avis, dsol, rdir, phiv, rapp,
- xlat, sbor, step, sasr, xmud, sast, tray, xlon, qhar, uhar, tdir,
- xltn, xnor, xlen, xrad, xmup;
- integer ipol, jday;
- doublereal xmus, accu2, accu3, xmuv;
- integer isup, ilut, irop;
- doublereal uwus, ropq, ropu, pveg, wspd, razw, total_height__;
- char file2[80];
- doublereal palt;
- integer pild, pihs;
- doublereal pxlt, xla0n, ratm1, ratm2, ratm3, robarbarstar, xsal, rwat,
- thmi, vaii, rnci, rsl1i;
- extern /* Subroutine */ int oda550_(integer *, doublereal *, doublereal *)
- ;
- doublereal puoz;
- extern /* Subroutine */ int goes_(integer *), sand_(doublereal *);
- doublereal xpol, edifa, cscaa, coefa, uo3us, coefb, coefc;
- integer iread, ibrdf, aerod;
- doublereal campm, dgasm, asaer, sbrdf[1501];
- integer niinf;
- doublereal robar[1501], taer55, refet, tgasm, ugasm, rodir, filut[1025]
- /* was [25][41] */, spalt, rpfet, taerp, tamoy, rdown, astot;
- integer nisup;
- doublereal romix, trayp, dtott, rqmix, rumix, rolut[1025] /* was [25][
- 41] */, asray, wlmoy, xlmus[2499] /* was [51][49] */, utota,
- xlmuv[2499] /* was [51][49] */, trmoy, utotr, luttv, utott, dtotr,
- dtota, dgtot, puwus, tgtot, robar1, robar2, refet1, refet2,
- refet3, coefp, ugtot, edifr, tdird, tdiru, rpfet1, rpfet2, rpfet3,
- tdifd, tdifu, rsurf, tmdir, tmdif;
- integer igeom, month, idatm, iaerp, iwave, igrou1, igrou2, isort;
- doublereal xnorm1, xnorm2;
- integer irapp;
- doublereal sddica, dtdica, rwatl[1501], iscama, puo3us;
- integer nbisca, idirec;
- doublereal anglem[48], iscami, phirad, sdmoca, robard[1501], sudica,
- stdica, dtmoca, rocave, sodaer, roeave, fophsa, ssdaer, sdmeth,
- robarp[1501], taer55p, alumet, sdwava, sumoca, stmoca, sroaer,
- nwlinf, sdtota, xlonan, dtmeth, xlphim[181];
- integer nfilut[25];
- doublereal sodray, sdniox, sumeth, plumet, suwava, stwava, tamoyp, stmeth,
- sdozon, sdoxyg, roluti[1025] /* was [25][41] */, sodtot,
- fophsr, sroray, sdtotr, sdtott, stniox, suniox, rolutq[1025]
- /* was [25][41] */, pizmoy, roluts[20500] /* was [20][25][41] */
- , nwlsup, rolutu[1025] /* was [25][41] */, trmoyp, lutmuv,
- suozon, suoxyg, stozon, stoxyg, srotot, sutotr, sutota, sutott,
- dtozon, dtoxyg, dtniox, utozon, utdica, utoxyg, utniox, utmeth,
- utmoca, ttozon, ttdica, ttoxyg, ttniox, ttmeth, ttmoca, dtwava,
- utwava, ttwava, rorayl, roaero, rqrayl, rqaero, albbrdf, foqhsr,
- foqhsa, foqhst, rurayl, ruaero, srpray, srpaer, srptot, srqray,
- srqaer, srqtot, sruray, sruaer, srutot, fouhst, fouhsr, fouhsa,
- romeas1, romeas2, romeas3, alumeas, sdpray, sdpaer, sdptot,
- sodaerp, sdppaer, spdpaer, pizera, fophst, pizerr, weightm[48],
- pizert, attwava;
- integer idatmp, inhomo, igroun;
- doublereal discri, rogbrdf, rfoaml[1501], rglitl[1501], sodrayp, sdppray,
- spdpray, cij_out__[4], ftray, optics[3], struct__[4];
- integer options[5];
- doublereal sodtotp, sdpptot, spdptot, rolutiq[1025] /* was [25][41] */,
- rfoam, rglit, ratm2_fi__[181], rolutiu[1025] /* was [25][
- 41] */, rwatave;
- extern /* Subroutine */ int gauss_(doublereal *, doublereal *, doublereal
- *, doublereal *, integer *);
- doublereal pizmoyp;
- extern /* Subroutine */ int posmto_(integer *, integer *, doublereal *,
- integer *, integer *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *);
- doublereal rolutsq[20500] /* was [20][25][41] */;
- extern /* Subroutine */ int posge_(integer *, integer *, doublereal *,
- integer *, integer *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *), posgw_(integer *,
- integer *, doublereal *, integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *), posnoa_(integer *, integer *, doublereal *,
- integer *, doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *);
- doublereal rolutsu[20500] /* was [20][25][41] */;
- extern /* Subroutine */ int posspo_(integer *, integer *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *), poslan_(integer *, integer *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *), varsol_(integer *,
- integer *, doublereal *);
-
- /* Fortran I/O blocks */
- static cilist io___33 = { 0, 0, 0, 0, 0 };
- static cilist io___36 = { 0, 0, 0, 0, 0 };
- static cilist io___43 = { 0, 0, 0, 0, 0 };
- static cilist io___49 = { 0, 0, 0, 0, 0 };
- static cilist io___50 = { 0, 0, 0, 0, 0 };
- static cilist io___51 = { 0, 0, 0, 0, 0 };
- static cilist io___55 = { 0, 0, 0, 0, 0 };
- static cilist io___56 = { 0, 0, 0, 0, 0 };
- static cilist io___57 = { 0, 0, 0, 0, 0 };
- static cilist io___68 = { 0, 0, 0, 0, 0 };
- static cilist io___70 = { 0, 0, 0, 0, 0 };
- static cilist io___71 = { 0, 0, 0, 0, 0 };
- static cilist io___77 = { 0, 0, 0, 0, 0 };
- static cilist io___81 = { 0, 5, 0, 0, 0 };
- static cilist io___82 = { 0, 5, 0, 0, 0 };
- static cilist io___83 = { 0, 0, 0, 0, 0 };
- static cilist io___86 = { 0, 0, 0, 0, 0 };
- static cilist io___87 = { 0, 5, 0, 0, 0 };
- static cilist io___88 = { 0, 5, 0, 0, 0 };
- static cilist io___89 = { 0, 5, 0, 0, 0 };
- static cilist io___91 = { 0, 0, 0, 0, 0 };
- static cilist io___92 = { 0, 0, 0, 0, 0 };
- static cilist io___93 = { 0, 5, 0, 0, 0 };
- static cilist io___94 = { 0, 5, 0, 0, 0 };
- static cilist io___95 = { 0, 0, 0, 0, 0 };
- static cilist io___96 = { 0, 0, 0, 0, 0 };
- static cilist io___97 = { 0, 5, 0, 0, 0 };
- static cilist io___98 = { 0, 5, 0, 0, 0 };
- static cilist io___99 = { 0, 5, 0, 0, 0 };
- static cilist io___100 = { 0, 5, 0, 0, 0 };
- static cilist io___101 = { 0, 5, 0, 0, 0 };
- static cilist io___102 = { 0, 5, 0, 0, 0 };
- static cilist io___104 = { 0, 5, 0, 0, 0 };
- static cilist io___107 = { 0, 0, 0, 0, 0 };
- static cilist io___109 = { 0, 0, 0, 0, 0 };
- static cilist io___110 = { 0, 0, 0, 0, 0 };
- static cilist io___114 = { 0, 0, 0, 0, 0 };
- static cilist io___123 = { 0, 0, 0, 0, 0 };
- static cilist io___127 = { 0, 0, 0, 0, 0 };
- static cilist io___130 = { 0, 0, 0, 0, 0 };
- static cilist io___132 = { 0, 0, 0, 0, 0 };
- static cilist io___134 = { 0, 0, 0, 0, 0 };
- static cilist io___135 = { 0, 0, 0, 0, 0 };
- static cilist io___136 = { 0, 0, 0, 0, 0 };
- static cilist io___138 = { 0, 0, 0, 0, 0 };
- static cilist io___156 = { 0, 6, 0, 0, 0 };
- static cilist io___174 = { 0, 0, 0, 0, 0 };
- static cilist io___176 = { 0, 0, 0, 0, 0 };
- static cilist io___182 = { 0, 0, 0, 0, 0 };
- static cilist io___184 = { 0, 0, 0, 0, 0 };
- static cilist io___186 = { 0, 0, 0, 0, 0 };
- static cilist io___188 = { 0, 0, 0, 0, 0 };
- static cilist io___190 = { 0, 0, 0, 0, 0 };
- static cilist io___195 = { 0, 0, 0, 0, 0 };
- static cilist io___203 = { 0, 0, 0, 0, 0 };
- static cilist io___205 = { 0, 0, 0, 0, 0 };
- static cilist io___207 = { 0, 0, 0, 0, 0 };
- static cilist io___209 = { 0, 0, 0, 0, 0 };
- static cilist io___210 = { 0, 0, 0, 0, 0 };
- static cilist io___211 = { 0, 0, 0, 0, 0 };
- static cilist io___212 = { 0, 0, 0, 0, 0 };
- static cilist io___224 = { 0, 0, 0, 0, 0 };
- static cilist io___227 = { 0, 0, 0, 0, 0 };
- static cilist io___230 = { 0, 0, 0, 0, 0 };
- static cilist io___234 = { 0, 0, 0, 0, 0 };
- static cilist io___235 = { 0, 0, 0, 0, 0 };
- static cilist io___240 = { 0, 0, 0, 0, 0 };
- static cilist io___246 = { 0, 0, 0, 0, 0 };
- static cilist io___261 = { 0, 0, 0, 0, 0 };
- static cilist io___263 = { 0, 0, 0, 0, 0 };
- static cilist io___268 = { 0, 0, 0, 0, 0 };
- static cilist io___269 = { 0, 0, 0, 0, 0 };
- static cilist io___271 = { 0, 0, 0, 0, 0 };
- static cilist io___274 = { 0, 0, 0, 0, 0 };
- static cilist io___275 = { 0, 0, 0, 0, 0 };
- static cilist io___277 = { 0, 0, 0, 0, 0 };
- static cilist io___278 = { 0, 0, 0, 0, 0 };
- static cilist io___280 = { 0, 0, 0, 0, 0 };
- static cilist io___282 = { 0, 0, 0, 0, 0 };
- static cilist io___285 = { 0, 0, 1, 0, 0 };
- static cilist io___286 = { 0, 0, 0, 0, 0 };
- static cilist io___289 = { 0, 0, 0, 0, 0 };
- static cilist io___291 = { 0, 0, 0, 0, 0 };
- static cilist io___296 = { 0, 0, 0, fmt_98, 0 };
- static cilist io___297 = { 0, 0, 0, fmt_1401, 0 };
- static cilist io___298 = { 0, 0, 0, fmt_103, 0 };
- static cilist io___299 = { 0, 0, 0, fmt_101, 0 };
- static cilist io___300 = { 0, 0, 0, fmt_102, 0 };
- static cilist io___301 = { 0, 0, 0, fmt_1110, 0 };
- static cilist io___302 = { 0, 0, 0, fmt_1119, 0 };
- static cilist io___303 = { 0, 0, 0, fmt_1281, 0 };
- static cilist io___304 = { 0, 0, 0, fmt_1272, 0 };
- static cilist io___305 = { 0, 0, 0, fmt_1271, 0 };
- static cilist io___306 = { 0, 0, 0, fmt_1261, 0 };
- static cilist io___307 = { 0, 0, 0, fmt_5550, 0 };
- static cilist io___308 = { 0, 0, 0, fmt_5554, 0 };
- static cilist io___310 = { 0, 6, 0, fmt_5551, 0 };
- static cilist io___311 = { 0, 6, 0, fmt_5552, 0 };
- static cilist io___312 = { 0, 6, 0, fmt_5553, 0 };
- static cilist io___313 = { 0, 0, 0, fmt_132, 0 };
- static cilist io___314 = { 0, 0, 0, fmt_132, 0 };
- static cilist io___315 = { 0, 0, 0, fmt_132, 0 };
- static cilist io___316 = { 0, 0, 0, fmt_133, 0 };
- static cilist io___317 = { 0, 6, 0, fmt_134, 0 };
- static cilist io___318 = { 0, 0, 0, fmt_135, 0 };
- static cilist io___319 = { 0, 0, 0, fmt_136, 0 };
- static cilist io___320 = { 0, 0, 0, fmt_137, 0 };
- static cilist io___321 = { 0, 0, 0, fmt_139, 0 };
- static cilist io___322 = { 0, 0, 0, fmt_138, 0 };
- static cilist io___323 = { 0, 0, 0, fmt_140, 0 };
- static cilist io___324 = { 0, 0, 0, fmt_141, 0 };
- static cilist io___325 = { 0, 6, 0, fmt_5555, 0 };
- static cilist io___326 = { 0, 0, 0, fmt_148, 0 };
- static cilist io___327 = { 0, 0, 0, fmt_1510, 0 };
- static cilist io___328 = { 0, 0, 0, fmt_149, 0 };
- static cilist io___329 = { 0, 0, 0, fmt_1510, 0 };
- static cilist io___330 = { 0, 0, 0, fmt_142, 0 };
- static cilist io___331 = { 0, 0, 0, fmt_146, 0 };
- static cilist io___332 = { 0, 0, 0, fmt_144, 0 };
- static cilist io___333 = { 0, 0, 0, fmt_145, 0 };
- static cilist io___334 = { 0, 0, 0, fmt_143, 0 };
- static cilist io___341 = { 0, 0, 0, fmt_169, 0 };
- static cilist io___342 = { 0, 0, 0, fmt_170, 0 };
- static cilist io___343 = { 0, 0, 0, fmt_171, 0 };
- static cilist io___344 = { 0, 0, 0, fmt_168, 0 };
- static cilist io___345 = { 0, 0, 0, fmt_168, 0 };
- static cilist io___349 = { 0, 0, 0, fmt_190, 0 };
- static cilist io___350 = { 0, 0, 0, fmt_187, 0 };
- static cilist io___351 = { 0, 0, 0, fmt_191, 0 };
- static cilist io___352 = { 0, 0, 0, fmt_187, 0 };
- static cilist io___353 = { 0, 0, 0, fmt_192, 0 };
- static cilist io___354 = { 0, 0, 0, fmt_200, 0 };
- static cilist io___355 = { 0, 0, 0, fmt_201, 0 };
- static cilist io___356 = { 0, 0, 0, fmt_197, 0 };
- static cilist io___357 = { 0, 0, 0, fmt_198, 0 };
- static cilist io___358 = { 0, 0, 0, fmt_199, 0 };
- static cilist io___359 = { 0, 0, 0, fmt_202, 0 };
- static cilist io___360 = { 0, 0, 0, fmt_203, 0 };
- static cilist io___361 = { 0, 0, 0, fmt_204, 0 };
- static cilist io___362 = { 0, 0, 0, fmt_187, 0 };
- static cilist io___363 = { 0, 0, 0, fmt_193, 0 };
- static cilist io___364 = { 0, 0, 0, fmt_187, 0 };
- static cilist io___365 = { 0, 0, 0, fmt_194, 0 };
- static cilist io___366 = { 0, 0, 0, fmt_187, 0 };
- static cilist io___367 = { 0, 0, 0, fmt_195, 0 };
- static cilist io___368 = { 0, 0, 0, fmt_187, 0 };
- static cilist io___369 = { 0, 0, 0, fmt_196, 0 };
- static cilist io___370 = { 0, 0, 0, fmt_500, 0 };
- static cilist io___371 = { 0, 0, 0, fmt_187, 0 };
- static cilist io___372 = { 0, 0, 0, fmt_205, 0 };
- static cilist io___373 = { 0, 0, 0, fmt_207, 0 };
- static cilist io___374 = { 0, 0, 0, fmt_208, 0 };
- static cilist io___375 = { 0, 0, 0, fmt_209, 0 };
- static cilist io___376 = { 0, 0, 0, fmt_209, 0 };
- static cilist io___377 = { 0, 0, 0, fmt_209, 0 };
- static cilist io___378 = { 0, 0, 0, fmt_209, 0 };
- static cilist io___379 = { 0, 0, 0, fmt_209, 0 };
- static cilist io___380 = { 0, 0, 0, fmt_187, 0 };
- static cilist io___381 = { 0, 0, 0, fmt_206, 0 };
- static cilist io___382 = { 0, 0, 0, fmt_210, 0 };
- static cilist io___383 = { 0, 0, 0, fmt_187, 0 };
- static cilist io___384 = { 0, 0, 0, fmt_211, 0 };
- static cilist io___385 = { 0, 0, 0, fmt_187, 0 };
- static cilist io___386 = { 0, 0, 0, fmt_173, 0 };
- static cilist io___387 = { 0, 0, 0, fmt_174, 0 };
- static cilist io___388 = { 0, 0, 0, fmt_175, 0 };
- static cilist io___389 = { 0, 0, 0, fmt_176, 0 };
- static cilist io___390 = { 0, 0, 0, fmt_178, 0 };
- static cilist io___391 = { 0, 0, 0, fmt_179, 0 };
- static cilist io___392 = { 0, 0, 0, fmt_180, 0 };
- static cilist io___393 = { 0, 0, 0, fmt_181, 0 };
- static cilist io___394 = { 0, 0, 0, fmt_182, 0 };
- static cilist io___395 = { 0, 0, 0, fmt_183, 0 };
- static cilist io___396 = { 0, 0, 0, fmt_184, 0 };
- static cilist io___397 = { 0, 0, 0, fmt_177, 0 };
- static cilist io___398 = { 0, 0, 0, fmt_220, 0 };
- static cilist io___399 = { 0, 0, 0, fmt_221, 0 };
- static cilist io___400 = { 0, 0, 0, fmt_185, 0 };
- static cilist io___401 = { 0, 0, 0, fmt_186, 0 };
- static cilist io___402 = { 0, 0, 0, fmt_172, 0 };
- static cilist io___477 = { 0, 0, 0, fmt_1500, 0 };
- static cilist io___556 = { 0, 0, 0, fmt_1501, 0 };
- static cilist io___603 = { 0, 6, 0, 0, 0 };
- static cilist io___604 = { 0, 10, 0, fmt_2222, 0 };
- static cilist io___605 = { 0, 10, 0, fmt_2222, 0 };
- static cilist io___607 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___608 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___609 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___610 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___611 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___612 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___613 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___614 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___615 = { 0, 10, 0, fmt_333, 0 };
- static cilist io___616 = { 0, 10, 0, fmt_333, 0 };
- static cilist io___617 = { 0, 10, 0, fmt_2222, 0 };
- static cilist io___618 = { 0, 10, 0, fmt_2222, 0 };
- static cilist io___619 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___620 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___621 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___622 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___623 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___624 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___625 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___626 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___628 = { 0, 0, 0, fmt_430, 0 };
- static cilist io___629 = { 0, 0, 0, fmt_431, 0 };
- static cilist io___631 = { 0, 0, 0, fmt_429, 0 };
- static cilist io___632 = { 0, 0, 0, fmt_432, 0 };
- static cilist io___633 = { 0, 0, 0, fmt_434, 0 };
- static cilist io___634 = { 0, 0, 0, fmt_432, 0 };
- static cilist io___635 = { 0, 0, 0, fmt_434, 0 };
- static cilist io___636 = { 0, 0, 0, fmt_436, 0 };
- static cilist io___637 = { 0, 0, 0, fmt_437, 0 };
- static cilist io___638 = { 0, 0, 0, fmt_929, 0 };
- static cilist io___639 = { 0, 0, 0, fmt_930, 0 };
- static cilist io___640 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___641 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___642 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___643 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___644 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___645 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___646 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___647 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___648 = { 0, 0, 0, fmt_1401, 0 };
- static cilist io___649 = { 0, 0, 0, fmt_1401, 0 };
- static cilist io___650 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___651 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___652 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___653 = { 0, 0, 0, fmt_1401, 0 };
- static cilist io___654 = { 0, 0, 0, fmt_1401, 0 };
- static cilist io___655 = { 0, 0, 0, fmt_939, 0 };
- static cilist io___656 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___657 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___658 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___659 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___660 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___661 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___662 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___663 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___664 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___665 = { 0, 0, 0, fmt_932, 0 };
- static cilist io___666 = { 0, 0, 0, fmt_932, 0 };
- static cilist io___667 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___668 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___669 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___670 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___671 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___672 = { 0, 0, 0, fmt_1401, 0 };
- static cilist io___673 = { 0, 0, 0, fmt_1402, 0 };
- static cilist io___691 = { 0, 0, 0, fmt_940, 0 };
- static cilist io___692 = { 0, 0, 0, fmt_941, 0 };
- static cilist io___693 = { 0, 0, 0, fmt_942, 0 };
- static cilist io___694 = { 0, 0, 0, fmt_943, 0 };
- static cilist io___695 = { 0, 0, 0, fmt_944, 0 };
- static cilist io___696 = { 0, 0, 0, fmt_222, 0 };
- static cilist io___697 = { 0, 0, 0, fmt_944, 0 };
-
-
-/* **********************************************************************c
- */
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* ******************************************************** c
-*/
-/* * second simulation of satellite signal * c
-*/
-/* * in the solar spectrum * c
-*/
-/* * ... (6sV) ....... (6sV) ...... (6sV) ... * c
-*/
-/* * version 1.0B * c
-*/
-/* * * c
-*/
-/* * Vector Code * c
-*/
-/* * * c
-*/
-/* * this code predicts the satellite signal from 0.25 * c
-*/
-/* * to 4.0 microns assuming cloudless atmosphere. * c
-*/
-/* * the main atmospheric effects (gaseous absorption * c
-*/
-/* * by water vapor,carbon dioxyde,oxygen and ozone; * c
-*/
-/* * scattering by molecules and aerosols) are taken * c
-*/
-/* * into account. non-uniform surfaces may be * c
-*/
-/* * considered,as well as bidirectional reflectances * c
-*/
-/* * as boundary conditions * c
-*/
-/* * * c
-*/
-/* * the following input parameters are needed * c
-*/
-/* * geometrical conditions * c
-*/
-/* * atmospheric model for gaseous components * c
-*/
-/* * aerosol model (type and concentration) * c
-*/
-/* * spectral condition * c
-*/
-/* * ground reflectance (type and spectral var.) * c
-*/
-/* * at each step, you can either select some proposed * c
-*/
-/* * standard conditions (for example,spectral bands of * c
-*/
-/* * satellite for spectral conditions) or define your * c
-*/
-/* * own conditions(in the example,you have to define * c
-*/
-/* * the assumed spectral response). * c
-*/
-/* * * c
-*/
-/* * more details are given at each data input step * c
-*/
-/* * * c
-*/
-/* ******************************************************** c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* **********************************************************************c
- */
-/* c
-*/
-/* c
-*/
-/* ******************************************************** c
-*/
-/* * The authors of this code are * c
-*/
-/* * * c
-*/
-/* * (1) Vermote E and Kotchenova.S.; * c
-*/
-/* * (2) Roger J.C..; * c
-*/
-/* * (3) Tanre D.; Deuze J.L; Herman M.; * c
-*/
-/* * (4) Morcrette J.J.. * c
-*/
-/* * * c
-*/
-/* * from * c
-*/
-/* * * c
-*/
-/* * (1) Affiliation: Department of Geography * c
-*/
-/* * University of Maryland and * c
-*/
-/* * Goddard Space Flight Center * c */
-/* * Code 614.5 * c */
-/* * USA * c
-*/
-/* * * c
-*/
-/* * (2) ELICO/LOCL * c
-*/
-/* * Universite du Littoral Cote d'Opale * c
-*/
-/* * 32 Ave Foch, 62930 Wimereux * c
-*/
-/* * France * c
-*/
-/* * * c
-*/
-/* * (3) laboratoire d' optique atmospherique * c
-*/
-/* * universite des sciences et techniques * c
-*/
-/* * de lille * c
-*/
-/* * u.e.r. de physique fondamentale * c
-*/
-/* * 59655 villeneuve d' ascq cedex * c
-*/
-/* * france * c
-*/
-/* * * c
-*/
-/* * (4) e.c.m.w.f. * c
-*/
-/* * * c
-*/
-/* * * c
-*/
-/* * * c
-*/
-/* * * c
-*/
-/* ******************************************************** c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* **********************************************************************c
- */
-/* ******************************************************** c
-*/
-/* * limits of validity * c
-*/
-/* * * c
-*/
-/* * geometrical parameters no limitations * c
-*/
-/* * * c
-*/
-/* * atmospheric model no limitations * c
-*/
-/* * * c
-*/
-/* * aerosol model the visibility must be * c
-*/
-/* * better than 5.0km * c
-*/
-/* * for smaller values * c
-*/
-/* * calculations might be * c
-*/
-/* * no more valid. * c
-*/
-/* * * c
-*/
-/* * spectral conditions the gaseous transmittance* c
-*/
-/* * and the scattering func * c
-*/
-/* * tions are valid from 0.25* c
-*/
-/* * to 4.0 micron. but the * c
-*/
-/* * treatment of interaction * c
-*/
-/* * between absorption and * c
-*/
-/* * scattering is correct for* c
-*/
-/* * not too large absorption * c
-*/
-/* * if you want to compute * c
-*/
-/* * signal within absorption * c
-*/
-/* * bands,this interaction * c
-*/
-/* * ought to be reconsidered * c
-*/
-/* * * c
-*/
-/* * ground reflectance (type) you can consider a patchy* c
-*/
-/* * structure:that is a circu* c
-*/
-/* * lar target of radius rad * c
-*/
-/* * and of reflectance roc, * c
-*/
-/* * within an environnement * c
-*/
-/* * of reflectance roe. * c
-*/
-/* * * c
-*/
-/* * ground reflectance (type continued): for uniform * c
-*/
-/* * surface conditions only, * c
-*/
-/* * you may consider directio* c
-*/
-/* * nal reflectance as bounda* c
-*/
-/* * ry conditions. * c
-*/
-/* * some analytical model are* c
-*/
-/* * proposed, the user can * c
-*/
-/* * specify his own values. * c
-*/
-/* * the code assumes that the* c
-*/
-/* * brdf is spectrally inde- * c
-*/
-/* * pendent * c
-*/
-/* * * c
-*/
-/* * ground reflectance (spectral variation) four typi * c
-*/
-/* * cal reflectances are pro * c
-*/
-/* * posed, defined within * c
-*/
-/* * given spectral range. * c
-*/
-/* * this range differs accor * c
-*/
-/* * ding to the selected case* c
-*/
-/* * the reflectance is set to* c
-*/
-/* * 0 outside this range,due * c
-*/
-/* * to the deficiency of data* c
-*/
-/* * user must verify these * c
-*/
-/* * limits. that is obviously* c
-*/
-/* * irrelevant for brdf * c
-*/
-/* * * c
-*/
-/* ******************************************************** c
-*/
-/* **********************************************************************c
- */
-/************************************************************************
-*****c*/
-/* for considering brdf< we have to compute the downward radiance in the
- c*/
-/* whole hemisphere. to perform such computions, we selected the successiv
-e c*/
-/* orders of scattering method. that method requires numerical integration
- c*/
-/* over angles and optical depth. the integration method is the gauss meth
-od,c*/
-/* mu is the number of angles nmu+1, nmu is settled to 24. the accuracy of
- c*/
-/* the computations is obviously depending on the nmu value. this value
- c*/
-/* can be easily changed as a parameter as well as the nt value which
- c*/
-/* is the number of layers for performing the vertical integration. the
- c*/
-/* downward radiance is computed for nmu values of the zenith angle and np
- c*/
-/* values of the azimuth angle. the integration of the product of the
- c*/
-/* radiance by the brdf is so performed over the nmu*np values. np is sett
-ledc*/
-/* to 13, that value can be also changed. mu2 is equal to 2 times nmu.
- c*/
-/* xlmus is the downward radiance, xf the downward irradiance, rm and gb
- c*/
-/* the angles and the weights for the gauss integration over the zenith, r
-p c*/
-/* and gp respectively for the azimuth integration.
- c*/
-/************************************************************************
-*****c*/
-/*< include "paramdef.inc" >*/
-/*< dimension anglem(mu2_p),weightm(mu2_p), >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change >*/
-/* Attention */
-/* mu2_p has to be equal to (mu_p-1)*2 */
-/*< dimension xlmus(-mu_p:mu_p,np_p),xlmuv(-mu_p:mu_p,np_p) >*/
-/*< >*/
-/*< >*/
-/*< real rolut(mu_p,41),roluts(20,mu_p,41),roluti(mu_p,41) >*/
-/*< real rolutq(mu_p,41),rolutsq(20,mu_p,41),rolutiq(mu_p,41) >*/
-/*< real rolutu(mu_p,41),rolutsu(20,mu_p,41),rolutiu(mu_p,41) >*/
-/*< real filut(mu_p,41) >*/
-/*< integer aerod >*/
-/*< real its,lutmuv,luttv,iscama,iscami,scaa,cscaa,cfi >*/
-/*< integer nfilut(mu_p),nbisca >*/
-/*< real dtr >*/
-/*< real anglem,weightm,rm,gb,accu2,accu3 >*/
-/*< real rp,gp,xlmus,xlmuv,angmu,angphi,brdfints,brdfdats >*/
-/*< real brdfintv,brdfdatv,robar,robarp,robard,xlm1,xlm2 >*/
-/*< real c,wldisc,ani,anr,aini,ainr,rocl,roel,zpl,ppl,tpl,whpl >*/
-/*< real wopl,xacc,s,wlinf,wlsup,delta >*/
-/*< real nwlinf,nwlsup >*/
-/*< integer niinf,nisup >*/
-/*< real sigma,z,p,t,wh,wo,ext,ome,gasym,phase,qhase,roatm,dtdir >*/
-/*< real dtdif,utdir,utdif,sphal,wldis,trayl,traypl,pi,pi2,step >*/
-/*< real asol,phi0,avis,phiv,tu,xlon,xlat,xlonan,hna,dsol,campm >*/
-/*< real phi,phirad,xmus,xmuv,xmup,xmud,adif,uw,uo3,taer55 >*/
-/*< real taer,v,xps,uwus,uo3us,xpp,taer55p,puw,puo3,puwus >*/
-/*< real puo3us,wl,wlmoy,tamoy,tamoyp,pizmoy,pizmoyp,trmoy >*/
-/*< real trmoyp,fr,rad,spalt,sha,sham,uhase >*/
-/*< real albbrdf,par1,par2,par3,par4,robar1,xnorm1,rob,xnor,rodir >*/
-/*< real rdown,rdir,robar2,xnorm2,ro,roc,roe,rapp,rocave,roeave >*/
-/*< real seb,sbor,swl,sb,refet,refet1,refet2,refet3,alumet >*/
-/*< real refeti,pinst,ksiinst,ksirad >*/
-/*< real rpfet,rpfet1,rpfet2,rpfet3,plumet,plumeas >*/
-/*< real tgasm,rog,dgasm,ugasm,sdwava,sdozon,sddica,sdoxyg >*/
-/*< real sdniox,sdmoca,sdmeth,suwava,suozon,sudica,suoxyg >*/
-/*< real suniox,sumoca,sumeth,stwava,stozon,stdica,stoxyg,stniox >*/
-/*< real stmoca,stmeth,sodray,sodaer,sodtot,fophsr,fophsa,sroray >*/
-/*< real sroaer,srotot,ssdaer,sdtotr,sdtota,sdtott,sutotr,sutota >*/
-/*< real sutott,sasr,sasa,sast,dtozon,dtdica,dtoxyg >*/
-/*< real dtniox,dtmeth,dtmoca,utozon,utdica,utoxyg,utniox >*/
-/*< real utmeth,utmoca,attwava,ttozon,ttdica,ttoxyg,ttniox >*/
-/*< real ttmeth,ttmoca,dtwava,utwava,ttwava,coef,romix,rorayl >*/
-/*< real roaero,phaa,phar,tsca,tray,trayp,taerp,dtott,utott >*/
-/*< real rqmix,rqrayl,rqaero,qhaa,qhar,foqhsr,foqhsa,foqhst >*/
-/*< real rumix,rurayl,ruaero,uhaa,uhar,rpmix,rpaero,rprayl >*/
-/*< real srpray,srpaer,srptot,rpmeas1,rpmeas2,rpmeas3 >*/
-/*< real srqray,srqaer,srqtot,sruray,sruaer,srutot >*/
-/*< real astot,asray,asaer,utotr,utota,dtotr,dtota,dgtot,tgtot >*/
-/*< real tgp1,tgp2,rqatm,ruatm,fouhst,fouhsr,fouhsa,coefp >*/
-/*< real ugtot,edifr,edifa,tdird,tdiru,tdifd,tdifu,fra >*/
-/*< real fae,avr,romeas1,romeas2,romeas3,alumeas,sodrayp >*/
-/*< real sdppray,sdppaer,sdpptot,rop,sdpray,sdpaer,sdptot >*/
-/*< real spdpray,spdpaer,spdptot >*/
-/*< real ratm1,ratm2,ratm3,rsurf,rpatm1,rpatm2,rpatm3,rpsurf >*/
-/*< real sodaerp,sodtotp,tdir,tdif,etn,esn,es,ea0n,ea0,ee0n >*/
-/*< real ee0,tmdir,tmdif,xla0n,xla0,xltn,xlt,xlen,xle,pizera >*/
-/*< real fophst,pizerr,pizert,xrad,xa,xb,xc >*/
-/*< integer nt,mu,mu2,np,k,iwr,mum1,idatmp,ipol >*/
-/*< integer j,iread,l,igeom,month,jday,nc,nl,idatm,iaer,iaerp,n >*/
-/*< integer iwave,iinf,isup,ik,i,inhomo >*/
-/*< integer idirec,ibrdf,igroun >*/
-/*< integer igrou1,igrou2,isort,irapp,ilut >*/
-/* variables used in the BRDF coupling correction process */
-/*< real robarstar,robarpstar,robarbarstar,tdd,tdu,tsd,tsu >*/
-/*< real coefa,coefb,coefc,discri,rogbrdf >*/
-/* variables related to surface polarization */
-/*< integer irop >*/
-/*< real ropq,ropu,pveg,wspd,azw,razw >*/
-/* ***********************************************************************
- */
-/* to vary the number of quadratures */
-/* ***********************************************************************
- */
-/*< integer nquad >*/
-/*< common /num_quad/ nquad >*/
-/* ***********************************************************************
- */
-/* the aerosol profile */
-/* ***********************************************************************
- */
-/*< integer iaer_prof,num_z >*/
-/*< real alt_z,taer_z,taer55_z,total_height,height_z(0:nt_p_max) >*/
-/*< >*/
-/*< character aer_model(15)*50 >*/
-/* ***********************************************************************
- */
-/* return to 6s */
-/* ***********************************************************************
- */
-/*< dimension c(4),wldisc(20),ani(2,3),anr(2,3),aini(2,3),ainr(2,3) >*/
-/*< dimension rocl(1501),roel(1501) >*/
-/*< real rfoaml(1501),rglitl(1501),rwatl(1501) >*/
-/*< real rn,ri,x1,x2,x3,cij,rsunph,nrsunph,rmax,rmin,cij_out(4) >*/
-/*< integer icp,irsunph,i1,i2 >*/
-/*< character etiq1(8)*60,nsat(119)*17,atmid(7)*51,reflec(8)*71 >*/
-/*< character FILE*80,FILE2*80 >*/
-/*< logical ier >*/
-/*< integer igmax >*/
-/*< common/sixs_ier/iwr,ier >*/
-/*< >*/
-/*< common /multorder/ igmax >*/
-/* ***********************************************************************
- */
-/* for considering pixel and sensor altitude */
-/* ***********************************************************************
- */
-/*< real pps,palt,ftray >*/
-/*< common /sixs_planesim/zpl(34),ppl(34),tpl(34),whpl(34),wopl(34) >*/
-/*< common /sixs_test/xacc >*/
-/* ***********************************************************************
- */
-/* for considering aerosol and brdf */
-/* ***********************************************************************
- */
-/*< integer options(5) >*/
-/*< integer pild,pihs >*/
-/*< real optics(3),struct(4) >*/
-/*< real pxLt,pc,pRl,pTl,pRs >*/
-/*< real pws,phi_wind,xsal,pcl,paw,rfoam,rwat,rglit >*/
-/*< real rfoamave,rwatave,rglitave >*/
-/*< real uli,eei,thmi,sli,cabi,cwi,vaii,rnci,rsl1i >*/
-/*< real p1,p2,p3 >*/
-/* ***********************************************************************
- */
-/* return to 6s */
-/* ***********************************************************************
- */
-/*< common /sixs_ffu/s(1501),wlinf,wlsup >*/
-/*< common /sixs_del/ delta,sigma >*/
-/*< common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34) >*/
-/*< >*/
-/*< >*/
-/************************************************************************
-*****c*/
-/* angmu and angphi are the angles were the brdf is measured. these value
-s c*/
-/* can be changed as soon as they are well distributed over the whole spa
-ce c*/
-/* before the gauss integration, these values are interpolated to the gau
-ss c*/
-/* angles
- c*/
-/************************************************************************
-*****c*/
-/*< data angmu /85.0,80.0,70.0,60.0,50.0,40.0,30.0,20.0,10.0,0.00/ >*/
-/*< >*/
-/* ***********************************************************************
- */
-/* return to 6s */
-/* ***********************************************************************
- */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< FILE=' ' >*/
- s_copy(file, " ", 80L, 2L);
-/*< FILE2=' ' >*/
- s_copy(file2, " ", 80L, 2L);
-/* ***********************************************************************
- */
-/* Parameters initialization */
-/* ***********************************************************************
- */
-/*< nt=nt_p >*/
- nt = 30;
-/*< mu=mu_p >*/
- mu = 25;
-/*< mu2=mu2_p >*/
- mu2 = 48;
-/*< np=np_p >*/
- np = 49;
-/*< nfi=nfi_p >*/
- nfi = 181;
-/*< iwr=6 >*/
- sixs_ier__1.iwr = 6;
-/*< ier=.FALSE. >*/
- sixs_ier__1.ier = FALSE_;
-/*< iinf=1 >*/
- iinf = 1;
-/*< isup=1501 >*/
- isup = 1501;
-/*< igmax=20 >*/
- multorder_1.igmax = 20;
-/* ***********************************************************************
- */
-/* preliminary computations for gauss integration */
-/* ***********************************************************************
- */
-/*< pi=acos(-1.) >*/
- pi = acos(-1.);
-/*< pi2=2*pi >*/
- pi2 = pi * 2;
-/*< accu2=1.E-03 >*/
- accu2 = .001;
-/*< accu3=1.E-07 >*/
- accu3 = 1e-7;
-/*< do k=1,13 >*/
- for (k = 1; k <= 13; ++k) {
-/*< angphi(k)=angphi(k)*pi/180. >*/
- angphi[k - 1] = angphi[k - 1] * pi / 180.;
-/*< enddo >*/
- }
-/*< do k=1,10 >*/
- for (k = 1; k <= 10; ++k) {
-/*< angmu(k)=cos(angmu(k)*pi/180.) >*/
- angmu[k - 1] = cos(angmu[k - 1] * pi / 180.);
-/*< enddo >*/
- }
-/*< call gauss(-1.,1.,anglem,weightm,mu2) >*/
- gauss_(&c_b3, &c_b4, anglem, weightm, &mu2);
-/*< call gauss(0.,pi2,rp,gp,np) >*/
- gauss_(&c_b5, &pi2, rp, gp, &np);
-/*< mum1=mu-1 >*/
- mum1 = mu - 1;
-/*< do 581 j=-mum1,-1 >*/
- for (j = -mum1; j <= -1; ++j) {
-/*< k=mu+j >*/
- k = mu + j;
-/*< rm(-j-mu)=anglem(k) >*/
- rm[-j - mu + 25] = anglem[k - 1];
-/*< gb(-j-mu)=weightm(k) >*/
- gb[-j - mu + 25] = weightm[k - 1];
-/*< 581 continue >*/
-/* L581: */
- }
-/*< do 582 j=1,mum1 >*/
- i__1 = mum1;
- for (j = 1; j <= i__1; ++j) {
-/*< k=mum1+j >*/
- k = mum1 + j;
-/*< rm(mu-j)=anglem(k) >*/
- rm[mu - j + 25] = anglem[k - 1];
-/*< gb(mu-j)=weightm(k) >*/
- gb[mu - j + 25] = weightm[k - 1];
-/*< 582 continue >*/
-/* L582: */
- }
-/*< gb(-mu)=0. >*/
- gb[-mu + 25] = 0.;
-/*< gb(0)=0. >*/
- gb[25] = 0.;
-/*< gb(mu)=0. >*/
- gb[mu + 25] = 0.;
-/* ***********************************************************************
- */
-/* return to 6s */
-/* ***********************************************************************
- */
-/* constantes values */
-/*< sigma=0.056032 >*/
- sixs_del__1.sigma = .056032;
-/*< delta=0.0279 >*/
- sixs_del__1.delta = .0279;
-/* CC pinst=0.02 */
-/* CC ksiinst=0. */
-/*< xacc=1.e-06 >*/
- sixs_test__1.xacc = 1e-6;
-/*< iread=5 >*/
- iread = 5;
-/*< step=0.0025 >*/
- step = .0025;
-/*< do 1111 l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< wldis(l)=wldisc(l) >*/
- sixs_disc__1.wldis[l - 1] = wldisc[l - 1];
-/*< 1111 continue >*/
-/* L1111: */
- }
-/* **********************************************************************c
- */
-/* n. of column,n. of line.(full scale 17000*12000)c
-*/
-/* c
-*/
-/* 4 avhrr ( PM noaa ) c
-*/
-/* enter month,day,decimal hour (universal time-hh.ddd) c
-*/
-/* n. of column(1-2048),xlonan,hna c
-*/
-/* give long.(xlonan) and overpass hour (hna) at c
-*/
-/* the ascendant node at equator c
-*/
-/* c
-*/
-/* 5 avhrr ( AM noaa ) c
-*/
-/* enter month,day,decimal hour (universal time-hh.ddd) c
-*/
-/* n. of column(1-2048),xlonan,hna c
-*/
-/* give long.(xlonan) and overpass hour (hna) at c
-*/
-/* the ascendant node at equator c
-*/
-/* c
-*/
-/* 6 hrv ( spot ) * enter month,day,hh.ddd,long.,lat.c
-*/
-/* c
-*/
-/* 7 tm ( landsat ) * enter month,day,hh.ddd,long.,lat.c
-*/
-/* c
-*/
-/* c
-*/
-/* note: for hrv and tm experiments long. and lat. are the c
-*/
-/* coordinates of the scene center. c
-*/
-/* lat. must be > 0 for north lat., < 0 for south lat. c
-*/
-/* long. must be > 0 for east long., <0 for west long. c
-*/
-/* c
-*/
-/* solar and viewing positions are computed c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< read(iread,*) igeom >*/
- io___33.ciunit = iread;
- s_rsle(&io___33);
- do_lio(&c__3, &c__1, (char *)&igeom, (ftnlen)sizeof(integer));
- e_rsle();
-/*< if (igeom.lt.0) then >*/
- if (igeom < 0) {
-/*< if (igeom.lt.-10) then >*/
- if (igeom < -10) {
-/*< igmax=int(abs(igeom/10)) >*/
- multorder_1.igmax = (i__1 = igeom / 10, abs(i__1));
-/*< igeom=igeom+igmax*10 >*/
- igeom += multorder_1.igmax * 10;
-/*< endif >*/
- }
-/*< ilut=0 >*/
- ilut = 0;
-/*< igeom=0 >*/
- igeom = 0;
-/*< endif >*/
- }
-/*< ilut=0 >*/
- ilut = 0;
-/*< goto(1001,1002,1003,1004,1005,1006,1007),igeom >*/
- switch (igeom) {
- case 1: goto L1001;
- case 2: goto L1002;
- case 3: goto L1003;
- case 4: goto L1004;
- case 5: goto L1005;
- case 6: goto L1006;
- case 7: goto L1007;
- }
-/* igeom=0..... */
-/*< read(iread,*) asol,phi0,avis,phiv,month,jday >*/
- io___36.ciunit = iread;
- s_rsle(&io___36);
- do_lio(&c__5, &c__1, (char *)&asol, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&phi0, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&avis, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&phiv, (ftnlen)sizeof(doublereal));
- do_lio(&c__3, &c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&jday, (ftnlen)sizeof(integer));
- e_rsle();
-/*< goto 22 >*/
- goto L22;
-
-/*< 1001 read(iread,*) month,jday,tu,nc,nl >*/
-L1001:
- io___43.ciunit = iread;
- s_rsle(&io___43);
- do_lio(&c__3, &c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&jday, (ftnlen)sizeof(integer));
- do_lio(&c__5, &c__1, (char *)&tu, (ftnlen)sizeof(doublereal));
- do_lio(&c__3, &c__1, (char *)&nc, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&nl, (ftnlen)sizeof(integer));
- e_rsle();
-/*< >*/
- posmto_(&month, &jday, &tu, &nc, &nl, &asol, &phi0, &avis, &phiv, &xlon, &
- xlat);
-/*< goto 22 >*/
- goto L22;
-/*< 1002 read(iread,*) month,jday,tu,nc,nl >*/
-L1002:
- io___49.ciunit = iread;
- s_rsle(&io___49);
- do_lio(&c__3, &c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&jday, (ftnlen)sizeof(integer));
- do_lio(&c__5, &c__1, (char *)&tu, (ftnlen)sizeof(doublereal));
- do_lio(&c__3, &c__1, (char *)&nc, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&nl, (ftnlen)sizeof(integer));
- e_rsle();
-/*< >*/
- posge_(&month, &jday, &tu, &nc, &nl, &asol, &phi0, &avis, &phiv, &xlon, &
- xlat);
-/*< goto 22 >*/
- goto L22;
-/*< 1003 read(iread,*) month,jday,tu,nc,nl >*/
-L1003:
- io___50.ciunit = iread;
- s_rsle(&io___50);
- do_lio(&c__3, &c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&jday, (ftnlen)sizeof(integer));
- do_lio(&c__5, &c__1, (char *)&tu, (ftnlen)sizeof(doublereal));
- do_lio(&c__3, &c__1, (char *)&nc, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&nl, (ftnlen)sizeof(integer));
- e_rsle();
-/*< >*/
- posgw_(&month, &jday, &tu, &nc, &nl, &asol, &phi0, &avis, &phiv, &xlon, &
- xlat);
-/*< goto 22 >*/
- goto L22;
-/*< 1004 read(iread,*) month,jday,tu,nc,xlonan,hna >*/
-L1004:
- io___51.ciunit = iread;
- s_rsle(&io___51);
- do_lio(&c__3, &c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&jday, (ftnlen)sizeof(integer));
- do_lio(&c__5, &c__1, (char *)&tu, (ftnlen)sizeof(doublereal));
- do_lio(&c__3, &c__1, (char *)&nc, (ftnlen)sizeof(integer));
- do_lio(&c__5, &c__1, (char *)&xlonan, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&hna, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< campm=1.0 >*/
- campm = 1.;
-/*< >*/
- posnoa_(&month, &jday, &tu, &nc, &xlonan, &hna, &campm, &asol, &phi0, &
- avis, &phiv, &xlon, &xlat);
-/*< goto 22 >*/
- goto L22;
-/*< 1005 read(iread,*) month,jday,tu,nc,xlonan,hna >*/
-L1005:
- io___55.ciunit = iread;
- s_rsle(&io___55);
- do_lio(&c__3, &c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&jday, (ftnlen)sizeof(integer));
- do_lio(&c__5, &c__1, (char *)&tu, (ftnlen)sizeof(doublereal));
- do_lio(&c__3, &c__1, (char *)&nc, (ftnlen)sizeof(integer));
- do_lio(&c__5, &c__1, (char *)&xlonan, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&hna, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< campm=-1.0 >*/
- campm = -1.;
-/*< >*/
- posnoa_(&month, &jday, &tu, &nc, &xlonan, &hna, &campm, &asol, &phi0, &
- avis, &phiv, &xlon, &xlat);
-/*< goto 22 >*/
- goto L22;
-/*< 1006 read(iread,*) month,jday,tu,xlon,xlat >*/
-L1006:
- io___56.ciunit = iread;
- s_rsle(&io___56);
- do_lio(&c__3, &c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&jday, (ftnlen)sizeof(integer));
- do_lio(&c__5, &c__1, (char *)&tu, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&xlon, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&xlat, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< >*/
- posspo_(&month, &jday, &tu, &xlon, &xlat, &asol, &phi0, &avis, &phiv);
-/*< goto 22 >*/
- goto L22;
-/*< 1007 read(iread,*) month,jday,tu,xlon,xlat >*/
-L1007:
- io___57.ciunit = iread;
- s_rsle(&io___57);
- do_lio(&c__3, &c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&jday, (ftnlen)sizeof(integer));
- do_lio(&c__5, &c__1, (char *)&tu, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&xlon, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&xlat, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< >*/
- poslan_(&month, &jday, &tu, &xlon, &xlat, &asol, &phi0, &avis, &phiv);
-/*< 22 continue >*/
-L22:
-/*< if(ier) stop >*/
- if (sixs_ier__1.ier) {
- s_stop("", 0L);
- }
-/*< dsol=1. >*/
- dsol = 1.;
-/*< call varsol(jday,month,dsol) >*/
- varsol_(&jday, &month, &dsol);
-/* **********************************************************************c
- */
-/* c
-*/
-/* / scattered direction c
-*/
-/* / c
-*/
-/* / c
-*/
-/* / adif c
-*/
-/* incident + + + + + + + + + + + + + + + c
-*/
-/* direction c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< phi=abs(phiv-phi0) >*/
- phi = (d__1 = phiv - phi0, abs(d__1));
-/*< phirad=(phi0-phiv)*pi/180. >*/
- phirad = (phi0 - phiv) * pi / 180.;
-/*< if (phirad.lt.0.) phirad=phirad+2.*pi >*/
- if (phirad < 0.) {
- phirad += pi * 2.;
- }
-/*< if (phirad.gt.(2.*pi)) phirad=phirad-2.*pi >*/
- if (phirad > pi * 2.) {
- phirad -= pi * 2.;
- }
-/*< xmus=cos(asol*pi/180.) >*/
- xmus = cos(asol * pi / 180.);
-/*< xmuv=cos(avis*pi/180.) >*/
- xmuv = cos(avis * pi / 180.);
-/*< xmup=cos(phirad) >*/
- xmup = cos(phirad);
-/*< xmud=-xmus*xmuv-sqrt(1.-xmus*xmus)*sqrt(1.-xmuv*xmuv)*xmup >*/
- xmud = -xmus * xmuv - sqrt(1. - xmus * xmus) * sqrt(1. - xmuv * xmuv) *
- xmup;
-/* test vermote bug */
-/*< if (xmud.gt.1.) xmud=1. >*/
- if (xmud > 1.) {
- xmud = 1.;
- }
-/*< if (xmud.lt.-1.) xmud=-1. >*/
- if (xmud < -1.) {
- xmud = -1.;
- }
-/*< adif=acos(xmud)*180./pi >*/
- adif = acos(xmud) * 180. / pi;
-/* **********************************************************************c
- */
-/* idatm atmospheric model c
-*/
-/* -------------------- c
-*/
-/* c
-*/
-/* c
-*/
-/* you select one of the following standard atmosphere: idatm=0 to 6 c
-*/
-/* 0 no gaseous absorption c
-*/
-/* 1 tropical ) c
-*/
-/* 2 midlatitude summer ) c
-*/
-/* 3 midlatitude winter ) c
-*/
-/* 4 subarctic summer ) from lowtran c
-*/
-/* 5 subarctic winter ) c
-*/
-/* 6 us standard 62 ) c
-*/
-/* c
-*/
-/* or you define your own atmospheric model idatm=7 or 8 c
-*/
-/* 7 user profile (radiosonde data on 34 levels) c
-*/
-/* enter altitude ( in km ) c
-*/
-/* pressure ( in mb ) c
-*/
-/* temperature ( in k ) c
-*/
-/* h2o density (in g/m3) c
-*/
-/* o3 density (in g/m3) c
-*/
-/* c
-*/
-/* for example, altitudes are from 0 to 25km step of 1km c
-*/
-/* from 25 to 50km step of 5km c
-*/
-/* and two values at 70km and 100km c
-*/
-/* so you have 34*5 values to input. c
-*/
-/* 8 enter water vapor and ozone contents c
-*/
-/* uw (in g/cm2 ) c
-*/
-/* uo3 (in cm-atm) c
-*/
-/* profil is taken from us62 c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< uw=0. >*/
- uw = 0.;
-/*< uo3=0. >*/
- uo3 = 0.;
-/*< read(iread,*) idatm >*/
- io___68.ciunit = iread;
- s_rsle(&io___68);
- do_lio(&c__3, &c__1, (char *)&idatm, (ftnlen)sizeof(integer));
- e_rsle();
-/*< if(idatm.eq.0) go to 5 >*/
- if (idatm == 0) {
- goto L5;
- }
-/*< if(idatm.eq.8) read(iread,*) uw,uo3 >*/
- if (idatm == 8) {
- io___70.ciunit = iread;
- s_rsle(&io___70);
- do_lio(&c__5, &c__1, (char *)&uw, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&uo3, (ftnlen)sizeof(doublereal));
- e_rsle();
- }
-/*< if(idatm.ne.7) go to 6 >*/
- if (idatm != 7) {
- goto L6;
- }
-/*< do 7 k=1,34 >*/
- for (k = 1; k <= 34; ++k) {
-/*< read(iread,*) z(k),p(k),t(k),wh(k),wo(k) >*/
- io___71.ciunit = iread;
- s_rsle(&io___71);
- do_lio(&c__5, &c__1, (char *)&sixs_atm__1.z__[k - 1], (ftnlen)sizeof(
- doublereal));
- do_lio(&c__5, &c__1, (char *)&sixs_atm__1.p[k - 1], (ftnlen)sizeof(
- doublereal));
- do_lio(&c__5, &c__1, (char *)&sixs_atm__1.t[k - 1], (ftnlen)sizeof(
- doublereal));
- do_lio(&c__5, &c__1, (char *)&sixs_atm__1.wh[k - 1], (ftnlen)sizeof(
- doublereal));
- do_lio(&c__5, &c__1, (char *)&sixs_atm__1.wo[k - 1], (ftnlen)sizeof(
- doublereal));
- e_rsle();
-/*< 7 continue >*/
-/* L7: */
- }
-/*< go to 5 >*/
- goto L5;
-/*< 6 if(idatm.eq.1) call tropic >*/
-L6:
- if (idatm == 1) {
- tropic_();
- }
-/*< if(idatm.eq.2) call midsum >*/
- if (idatm == 2) {
- midsum_();
- }
-/*< if(idatm.eq.3) call midwin >*/
- if (idatm == 3) {
- midwin_();
- }
-/*< if(idatm.eq.4) call subsum >*/
- if (idatm == 4) {
- subsum_();
- }
-/*< if(idatm.eq.5) call subwin >*/
- if (idatm == 5) {
- subwin_();
- }
-/*< if(idatm.eq.6) call us62 >*/
- if (idatm == 6) {
- us62_();
- }
-/* we have to define an atmosphere to compute rayleigh optical depth
-*/
-/*< 5 if(idatm.eq.0.or.idatm.eq.8) call us62 >*/
-L5:
- if (idatm == 0 || idatm == 8) {
- us62_();
- }
-/* **********************************************************************c
- */
-/* THIS OPTION IS NOT AVAILABLE THE CODE RUNS WITH IPOL=1 c
-*/
-/* ipol computation of the atmospheric polarization c
-*/
-/* ------------------------------------------- c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* read(iread,*) ipol */
-/*< ipol=1 >*/
- ipol = 1;
-/* **********************************************************************c
- */
-/* c
-*/
-/* iaer aerosol model(type) and profile c
-*/
-/* -------------- c
-*/
-/* iaer = -1 The user-defined profile. You have to input the c
-*/
-/* number of layers first, then the height (km), c
-*/
-/* optical thickness (at 550 nm), and the type of c
-*/
-/* 12 Reading of data previously saved into FILE c
-*/
-/* you have to enter the identification name FILE in the c
-*/
-/* next line of inputs. c
-*/
-/* c
-*/
-/* c
-*/
-/* iaerp and FILE aerosol model(type)-Printing of results c
-*/
-/* --------------------------------------- c
-*/
-/* c
-*/
-/* For iaer=8,9,10,and 11: c
-*/
-/* results from the MIE subroutine may be saved into the file c
-*/
-/* FILE.mie (Extinction and scattering coefficients, single c
-*/
-/* scattering albedo, Asymmetry parameter, phase function at c
-*/
-/* predefined wavelengths) and then can be re-used with the c
-*/
-/* option iaer=12 where FILE is an identification name you c
-*/
-/* have to enter. c
-*/
-/* c
-*/
-/* So, if you select iaer=8,9,10,or 11, next line following the c
-*/
-/* requested inputs by the options 8,9,10, or 11 you have to enter c
-*/
-/* iaerp c
-*/
-/* c
-*/
-/* iaerp=0 results will not be saved c
-*/
-/* iaerp=1 results will be saved into the file FILE.mie c
-*/
-/* next line enter FILE c
-*/
-/* c
-*/
-/* c
-*/
-/* example for iaer and iaerp c
-*/
-/* 8 Multimodal Log-Normale distribution selected c
-*/
-/* 0.0001 100.0 3 Rmin, Rmax, 3 components c
-*/
-/* 0.5000 2.99 1.66E-7 Rmean, Sigma, percentage density-1st componentc
-*/
-/* 1.53 1.53 1.53 1.53 1.53 1.53 1.52 1.40 1.22 1.27 nr-10 wavelengths c
-*/
-/* .008 .008 .008 .008 .008 .008 .008 .008 .009 .011 ni-10 wavelengths c
-*/
-/* 0.0050 2.99 0.5945 Rmean, Sigma, percentage density-2nd componentc
-*/
-/* 1.53 1.53 1.53 1.53 1.53 1.53 1.52 1.51 1.42 1.452 nr-10 wavelengths c
-*/
-/* .005 .005 .005 .005 .006 .007 .012 .023 .010 .004 ni-10 wavelengths c
-*/
-/* 0.0118 2.00 0.4055 Rmean, Sigma, percentage density-3rd componentc
-*/
-/* 1.75 1.75 1.75 1.75 1.75 1.75 1.75 1.77 1.81 1.90 nr-10 wavelengths c
-*/
-/* .46 .45 .45 .44 .43 .43 .43 .46 .50 .57 ni-10 wavelengths c
-*/
-/* 1 Results will be saved into FILE.mie c
-*/
-/* URBAN-WCP112 Identification of the output file called FILE c
-*/
-/* -> results will be saved into URBAN-WCP112.mie c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< rmin=0. >*/
- mie_in__1.rmin = 0.;
-/*< rmax=0. >*/
- mie_in__1.rmax = 0.;
-/*< icp=1 >*/
- mie_in__1.icp = 1;
-/*< do i=1,4 >*/
- for (i__ = 1; i__ <= 4; ++i__) {
-/*< x1(i)=0.0 >*/
- mie_in__1.x1[i__ - 1] = 0.;
-/*< x2(i)=0.0 >*/
- mie_in__1.x2[i__ - 1] = 0.;
-/*< x3(i)=0.0 >*/
- mie_in__1.x3[i__ - 1] = 0.;
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< rn(l,i)=0.0 >*/
- mie_in__1.rn[l + i__ * 20 - 21] = 0.;
-/*< ri(l,i)=0.0 >*/
- mie_in__1.ri[l + i__ * 20 - 21] = 0.;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< do i=1,50 >*/
- for (i__ = 1; i__ <= 50; ++i__) {
-/*< rsunph(i)=0. >*/
- mie_in__1.rsunph[i__ - 1] = 0.;
-/*< nrsunph(i)=0. >*/
- mie_in__1.nrsunph[i__ - 1] = 0.;
-/*< enddo >*/
- }
-/*< cij(1)=1.00 >*/
- mie_in__1.cij[0] = 1.;
-/*< taer=0. >*/
- taer = 0.;
-/*< taer55=0. >*/
- taer55 = 0.;
-/*< iaer_prof=0 >*/
- iaer_prof__ = 0;
-/*< read(iread,*) iaer >*/
- io___77.ciunit = iread;
- s_rsle(&io___77);
- do_lio(&c__3, &c__1, (char *)&iaer, (ftnlen)sizeof(integer));
- e_rsle();
-/* the user-defined aerosol profile */
-/*< if (iaer.lt.0) then >*/
- if (iaer < 0) {
-/*< total_height=0.0 >*/
- total_height__ = 0.;
-/*< iaer_prof=1 >*/
- iaer_prof__ = 1;
-/*< num_z=0 >*/
- aeroprof_1.num_z__ = 0;
-/*< do i=0,50 >*/
- for (i__ = 0; i__ <= 50; ++i__) {
-/*< alt_z(i)=0.0 >*/
- aeroprof_1.alt_z__[i__] = 0.;
-/*< taer55_z(i)=0.0 >*/
- aeroprof_1.taer55_z__[i__] = 0.;
-/*< taer_z(i)=0.0 >*/
- aeroprof_1.taer_z__[i__] = 0.;
-/*< height_z(i)=0.0 >*/
- height_z__[i__] = 0.;
-/*< enddo >*/
- }
-/*< read(5,*) num_z >*/
- s_rsle(&io___81);
- do_lio(&c__3, &c__1, (char *)&aeroprof_1.num_z__, (ftnlen)sizeof(
- integer));
- e_rsle();
-/*< do i=0,num_z-1 >*/
- i__1 = aeroprof_1.num_z__ - 1;
- for (i__ = 0; i__ <= i__1; ++i__) {
-/*< read(5,*) height_z(num_z-i),taer55_z(num_z-i),iaer >*/
- s_rsle(&io___82);
- do_lio(&c__5, &c__1, (char *)&height_z__[aeroprof_1.num_z__ - i__]
- , (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&aeroprof_1.taer55_z__[
- aeroprof_1.num_z__ - i__], (ftnlen)sizeof(doublereal));
- do_lio(&c__3, &c__1, (char *)&iaer, (ftnlen)sizeof(integer));
- e_rsle();
-/*< alt_z(num_z-1-i)=total_height+height_z(num_z-i) >*/
- aeroprof_1.alt_z__[aeroprof_1.num_z__ - 1 - i__] = total_height__
- + height_z__[aeroprof_1.num_z__ - i__];
-/*< total_height=total_height+height_z(num_z-i) >*/
- total_height__ += height_z__[aeroprof_1.num_z__ - i__];
-/*< taer55=taer55+taer55_z(num_z-i) >*/
- taer55 += aeroprof_1.taer55_z__[aeroprof_1.num_z__ - i__];
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/* the user-defined aerosol profile */
-/*< if (iaer.ge.0.and.iaer.le.7) nquad=nqdef_p >*/
- if (iaer >= 0 && iaer <= 7) {
- num_quad__1.nquad = 83;
- }
-/*< if (iaer.ge.8.and.iaer.le.11) nquad=nquad_p >*/
- if (iaer >= 8 && iaer <= 11) {
- num_quad__1.nquad = 83;
- }
-/*< if(iaer.eq.4) read(iread,*) (c(n),n=1,4) >*/
- if (iaer == 4) {
- io___83.ciunit = iread;
- s_rsle(&io___83);
- for (n = 1; n <= 4; ++n) {
- do_lio(&c__5, &c__1, (char *)&c__[n - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
- }
-/*< goto(49,40,41,42,49,49,49,49,43,44,45,46,47),iaer+1 >*/
- switch (iaer + 1) {
- case 1: goto L49;
- case 2: goto L40;
- case 3: goto L41;
- case 4: goto L42;
- case 5: goto L49;
- case 6: goto L49;
- case 7: goto L49;
- case 8: goto L49;
- case 9: goto L43;
- case 10: goto L44;
- case 11: goto L45;
- case 12: goto L46;
- case 13: goto L47;
- }
-/*< 40 c(1)=0.70 >*/
-L40:
- c__[0] = .7;
-/*< c(2)=0.29 >*/
- c__[1] = .29;
-/*< c(3)=0.00 >*/
- c__[2] = 0.;
-/*< c(4)=0.01 >*/
- c__[3] = .01;
-/*< go to 49 >*/
- goto L49;
-/*< 41 c(1)=0.00 >*/
-L41:
- c__[0] = 0.;
-/*< c(2)=0.05 >*/
- c__[1] = .05;
-/*< c(3)=0.95 >*/
- c__[2] = .95;
-/*< c(4)=0.00 >*/
- c__[3] = 0.;
-/*< go to 49 >*/
- goto L49;
-/*< 42 c(1)=0.17 >*/
-L42:
- c__[0] = .17;
-/*< c(2)=0.61 >*/
- c__[1] = .61;
-/*< c(3)=0.00 >*/
- c__[2] = 0.;
-/*< c(4)=0.22 >*/
- c__[3] = .22;
-/*< go to 49 >*/
- goto L49;
-/*< 43 read(iread,*) rmin,rmax,icp >*/
-L43:
- io___86.ciunit = iread;
- s_rsle(&io___86);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rmin, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rmax, (ftnlen)sizeof(doublereal));
- do_lio(&c__3, &c__1, (char *)&mie_in__1.icp, (ftnlen)sizeof(integer));
- e_rsle();
-/*< do i=1,icp >*/
- i__1 = mie_in__1.icp;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< read(5,*)x1(i),x2(i),cij(i) >*/
- s_rsle(&io___87);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.x1[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_lio(&c__5, &c__1, (char *)&mie_in__1.x2[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_lio(&c__5, &c__1, (char *)&mie_in__1.cij[i__ - 1], (ftnlen)sizeof(
- doublereal));
- e_rsle();
-/*< read(5,*)(rn(l,i),l=1,20) >*/
- s_rsle(&io___88);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rn[l + i__ * 20 - 21], (
- ftnlen)sizeof(doublereal));
- }
- e_rsle();
-/*< read(5,*)(ri(l,i),l=1,20) >*/
- s_rsle(&io___89);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.ri[l + i__ * 20 - 21], (
- ftnlen)sizeof(doublereal));
- }
- e_rsle();
-/*< enddo >*/
- }
-/*< do i=1,icp >*/
- i__1 = mie_in__1.icp;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< cij_out(i)=cij(i) >*/
- cij_out__[i__ - 1] = mie_in__1.cij[i__ - 1];
-/*< enddo >*/
- }
-/*< go to 49 >*/
- goto L49;
-/*< 44 read(iread,*) rmin,rmax >*/
-L44:
- io___91.ciunit = iread;
- s_rsle(&io___91);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rmin, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rmax, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< read(iread,*) x1(1),x2(1),x3(1) >*/
- io___92.ciunit = iread;
- s_rsle(&io___92);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.x1[0], (ftnlen)sizeof(doublereal))
- ;
- do_lio(&c__5, &c__1, (char *)&mie_in__1.x2[0], (ftnlen)sizeof(doublereal))
- ;
- do_lio(&c__5, &c__1, (char *)&mie_in__1.x3[0], (ftnlen)sizeof(doublereal))
- ;
- e_rsle();
-/*< read(5,*)(rn(l,1),l=1,20) >*/
- s_rsle(&io___93);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rn[l - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< read(5,*)(ri(l,1),l=1,20) >*/
- s_rsle(&io___94);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.ri[l - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< go to 49 >*/
- goto L49;
-/*< 45 read(iread,*) rmin,rmax >*/
-L45:
- io___95.ciunit = iread;
- s_rsle(&io___95);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rmin, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rmax, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< read(iread,*) x1(1) >*/
- io___96.ciunit = iread;
- s_rsle(&io___96);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.x1[0], (ftnlen)sizeof(doublereal))
- ;
- e_rsle();
-/*< read(5,*)(rn(l,1),l=1,20) >*/
- s_rsle(&io___97);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rn[l - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< read(5,*)(ri(l,1),l=1,20) >*/
- s_rsle(&io___98);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.ri[l - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< go to 49 >*/
- goto L49;
-/*< 46 read(5,*)irsunph >*/
-L46:
- s_rsle(&io___99);
- do_lio(&c__3, &c__1, (char *)&mie_in__1.irsunph, (ftnlen)sizeof(integer));
- e_rsle();
-/*< do i=1,irsunph >*/
- i__1 = mie_in__1.irsunph;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< read(5,*)rsunph(i),nrsunph(i) >*/
- s_rsle(&io___100);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rsunph[i__ - 1], (ftnlen)
- sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&mie_in__1.nrsunph[i__ - 1], (ftnlen)
- sizeof(doublereal));
- e_rsle();
-/* nrsunph(i)=nrsunph(i)/(rsunph(i)**4.)/(4*3.1415/3) */
-/*< enddo >*/
- }
-/*< rmin=rsunph(1) >*/
- mie_in__1.rmin = mie_in__1.rsunph[0];
-/*< rmax=rsunph(irsunph)+1e-07 >*/
- mie_in__1.rmax = mie_in__1.rsunph[mie_in__1.irsunph - 1] + 1e-7;
-/*< read(5,*)(rn(l,1),l=1,20) >*/
- s_rsle(&io___101);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rn[l - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< read(5,*)(ri(l,1),l=1,20) >*/
- s_rsle(&io___102);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.ri[l - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< go to 49 >*/
- goto L49;
-/*< 47 read(5,'(A80)')FILE2 >*/
-L47:
- ci__1.cierr = 0;
- ci__1.ciend = 0;
- ci__1.ciunit = 5;
- ci__1.cifmt = "(A80)";
- s_rsfe(&ci__1);
- do_fio(&c__1, file2, 80L);
- e_rsfe();
-/*< i2=index(FILE2,' ')-1 >*/
- i2 = i_indx(file2, " ", 80L, 1L) - 1;
-/*< go to 49 >*/
- goto L49;
-/*< 49 continue >*/
-L49:
-/*< if (iaer.ge.8.and.iaer.le.11)then >*/
- if (iaer >= 8 && iaer <= 11) {
-/*< read(5,*)iaerp >*/
- s_rsle(&io___104);
- do_lio(&c__3, &c__1, (char *)&iaerp, (ftnlen)sizeof(integer));
- e_rsle();
-/*< if (iaerp.eq.1)read(5,'(A80)')FILE >*/
- if (iaerp == 1) {
- ci__1.cierr = 0;
- ci__1.ciend = 0;
- ci__1.ciunit = 5;
- ci__1.cifmt = "(A80)";
- s_rsfe(&ci__1);
- do_fio(&c__1, file, 80L);
- e_rsfe();
- }
-/*< i1=index(FILE,' ')-1 >*/
- i1 = i_indx(file, " ", 80L, 1L) - 1;
-/*< FILE2=FILE(1:I1)//'.mie' >*/
-/* Writing concatenation */
- i__2[0] = i1, a__1[0] = file;
- i__2[1] = 4, a__1[1] = ".mie";
- s_cat(file2, a__1, i__2, &c__2, 80L);
-/*< i2=index(FILE2,' ')-1 >*/
- i2 = i_indx(file2, " ", 80L, 1L) - 1;
-/*< endif >*/
- }
-/*< call aeroso(iaer,c,xmud,wldis,FILE2,ipol) >*/
- aeroso_(&iaer, c__, &xmud, sixs_disc__1.wldis, file2, &ipol, 80L);
-/* **********************************************************************c
- */
-/* aerosol model (concentration) c
-*/
-/* ---------------------------- c
-*/
-/* (only for the default exponential profile) c
-*/
-/* c
-*/
-/* v if you have an estimate of the meteorological c
-*/
-/* parameter: the visibility v, enter directly the c
-*/
-/* value of v in km (the aerosol optical depth will c
-*/
-/* be computed from a standard aerosol profile) c
-*/
-/* c
-*/
-/* v=0, taer55 if you have an estimate of aerosol optical depth , c
-*/
-/* enter v=0 for the visibility and enter the aerosol c
-*/
-/* optical depth at 550 c
-*/
-/* c
-*/
-/* v=-1 warning: if iaer=0, enter v=-1 c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< if (iaer_prof.eq.0) then >*/
- if (iaer_prof__ == 0) {
-/*< read(iread,*) v >*/
- io___107.ciunit = iread;
- s_rsle(&io___107);
- do_lio(&c__5, &c__1, (char *)&v, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< if(v) 71,10,11 >*/
- if (v < 0.) {
- goto L71;
- } else if (v == 0) {
- goto L10;
- } else {
- goto L11;
- }
-/*< 10 read(iread,*) taer55 >*/
-L10:
- io___109.ciunit = iread;
- s_rsle(&io___109);
- do_lio(&c__5, &c__1, (char *)&taer55, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< v=exp(-log(taer55/2.7628)/0.79902) >*/
- v = exp(-log(taer55 / 2.7628) / .79902);
-/*< goto 71 >*/
- goto L71;
-/*< 11 call oda550(iaer,v,taer55) >*/
-L11:
- oda550_(&iaer, &v, &taer55);
-/*< 71 continue >*/
-L71:
-/*< endif >*/
- ;
- }
-/* **********************************************************************c
- */
-/* xps is the parameter to express the altitude of target c
-*/
-/* c
-*/
-/* c
-*/
-/* xps >=0. means the target is at the sea level c
-*/
-/* c
-*/
-/* xps <0. means you know the altitude of the target c
-*/
-/* expressed in km and you put that value as xps c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< 771 read(iread,*) xps >*/
-/* L771: */
- io___110.ciunit = iread;
- s_rsle(&io___110);
- do_lio(&c__5, &c__1, (char *)&xps, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< if (xps.ge.0.) then >*/
- if (xps >= 0.) {
-/*< xps=0. >*/
- xps = 0.;
-/*< uwus=1.424 >*/
- uwus = 1.424;
-/*< uo3us=0.344 >*/
- uo3us = .344;
-/*< else >*/
- } else {
-/*< if (idatm.ne.8) then >*/
- if (idatm != 8) {
-/*< call pressure(uw,uo3,xps) >*/
- pressure_(&uw, &uo3, &xps);
-/*< else >*/
- } else {
-/*< call pressure(uwus,uo3us,xps) >*/
- pressure_(&uwus, &uo3us, &xps);
-/*< endif >*/
- }
-/*< endif >*/
- }
-/* **********************************************************************c
- */
-/* c
-*/
-/* xpp is the parameter to express the sensor altitude c
-*/
-/* c
-*/
-/* c
-*/
-/* xpp= -1000 means that the sensor is a board a satellite c
-*/
-/* xpp= 0 means that the sensor is at the ground level c
-*/
-/* c
-*/
-/* c
-*/
-/* for aircraft simulations c
-*/
-/* -100< xpp <0 means you know the altitude of the sensor expressed c
-*/
-/* in kilometers units c */
-/* this altitude is relative to the target altitude c
-*/
-/* c
-*/
-/* for aircraft simulations only, you have to give c
-*/
-/* puw,po3 (water vapor content,ozone content between the c */
-/* aircraft and the surface) c
-*/
-/* taerp (the aerosol optical thickness at 550nm between the c */
-/* aircraft and the surface) c
-*/
-/* if these data are not available, enter negative values for all c
-*/
-/* of them, puw,po3 will then be interpolated from the us62 standard c
-*/
-/* profile according to the values at ground level. Taerp will be c
-*/
-/* computed according to a 2km exponential profile for aerosol. c
-*/
-/* **********************************************************************c
- */
-/*< read(iread,*) xpp >*/
- io___114.ciunit = iread;
- s_rsle(&io___114);
- do_lio(&c__5, &c__1, (char *)&xpp, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< xpp=-xpp >*/
- xpp = -xpp;
-/*< if (xpp.le.0.0) then >*/
- if (xpp <= 0.) {
-/* ground measurement option */
-/*< palt=0. >*/
- palt = 0.;
-/*< pps=p(1) >*/
- pps = sixs_atm__1.p[0];
-/*< idatmp=0 >*/
- idatmp = 0;
-/*< taer55p=0. >*/
- taer55p = 0.;
-/*< puw=0. >*/
- puw = 0.;
-/*< puoz=0. >*/
- puoz = 0.;
-/*< else >*/
- } else {
-/*< if (xpp.ge.100.) then >*/
- if (xpp >= 100.) {
-/* satellite case of equivalent */
-/*< palt=1000. >*/
- palt = 1e3;
-/*< pps=0. >*/
- pps = 0.;
-/*< taer55p=taer55 >*/
- taer55p = taer55;
-/*< ftray=1. >*/
- ftray = 1.;
-/*< idatmp=4 >*/
- idatmp = 4;
-/*< else >*/
- } else {
-/* "real" plane case */
-/*< read(iread,*) puw,puo3 >*/
- io___123.ciunit = iread;
- s_rsle(&io___123);
- do_lio(&c__5, &c__1, (char *)&puw, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&puo3, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< if (puw.lt.0.) then >*/
- if (puw < 0.) {
-/*< call presplane(puw,puo3,xpp,ftray) >*/
- presplane_(&puw, &puo3, &xpp, &ftray);
-/*< idatmp=2 >*/
- idatmp = 2;
-/*< if (idatm.eq.8) then >*/
- if (idatm == 8) {
-/*< puwus=puw >*/
- puwus = puw;
-/*< puo3us=puo3 >*/
- puo3us = puo3;
-/*< puw=puw*uw/uwus >*/
- puw = puw * uw / uwus;
-/*< puo3=puo3*uo3/uo3us >*/
- puo3 = puo3 * uo3 / uo3us;
-/*< idatmp=8 >*/
- idatmp = 8;
-/*< endif >*/
- }
-/*< else >*/
- } else {
-/*< call presplane(puwus,puo3us,xpp,ftray) >*/
- presplane_(&puwus, &puo3us, &xpp, &ftray);
-/*< idatmp=8 >*/
- idatmp = 8;
-/*< endif >*/
- }
-/*< if(ier) stop >*/
- if (sixs_ier__1.ier) {
- s_stop("", 0L);
- }
-/*< palt=zpl(34)-z(1) >*/
- palt = sixs_planesim__1.zpl[33] - sixs_atm__1.z__[0];
-/*< pps=ppl(34) >*/
- pps = sixs_planesim__1.ppl[33];
-/*< read(iread,*) taer55p >*/
- io___127.ciunit = iread;
- s_rsle(&io___127);
- do_lio(&c__5, &c__1, (char *)&taer55p, (ftnlen)sizeof(doublereal))
- ;
- e_rsle();
-/*< if ((taer55p.lt.0.).or.((taer55-taer55p).lt.accu2)) then >*/
- if (taer55p < 0. || taer55 - taer55p < accu2) {
-/* a scale heigh of 2km is assumed in case no value is given f
-or taer55p */
-/*< taer55p=taer55*(1.-exp(-palt/2.)) >*/
- taer55p = taer55 * (1. - exp(-palt / 2.));
-/*< else >*/
- } else {
-/* compute effective scale heigh */
-/*< sham=exp(-palt/4.) >*/
- sham = exp(-palt / 4.);
-/*< sha=1.-(taer55p/taer55) >*/
- sha = 1. - taer55p / taer55;
-/*< if (sha.ge.sham) then >*/
- if (sha >= sham) {
-/*< taer55p=taer55*(1.-exp(-palt/4.)) >*/
- taer55p = taer55 * (1. - exp(-palt / 4.));
-/*< else >*/
- } else {
-/*< sha=-palt/log(sha) >*/
- sha = -palt / log(sha);
-/*< taer55p=taer55*(1.-exp(-palt/sha)) >*/
- taer55p = taer55 * (1. - exp(-palt / sha));
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< endif >*/
- }
-/* **********************************************************************c
- */
-/* 37 3rd " ( 0.8300-0.9125) c
-*/
-/* 38 4th " ( 0.9000-0.9975) c
-*/
-/* 39 5th " ( 1.8200-1.9575) c
-*/
-/* 40 6th " ( 2.0950-2.1925) c
-*/
-/* 41 7th " ( 3.5800-3.8700) c
-*/
-/* 42 MODIS band 1 ( 0.6100-0.6850) c
-*/
-/* 43 MODIS band 2 ( 0.8200-0.9025) c
-*/
-/* 44 MODIS band 3 ( 0.4500-0.4825) c
-*/
-/* 45 MODIS band 4 ( 0.5400-0.5700) c
-*/
-/* 46 MODIS band 5 ( 1.2150-1.2700) c
-*/
-/* 47 MODIS band 6 ( 1.6000-1.6650) c
-*/
-/* 48 MODIS band 7 ( 2.0575-2.1825) c
-*/
-/* 49 MODIS band 8 ( 0.4025-0.4225) c
-*/
-/* 50 1st band of avhrr(noaa12 ( 0.500-1.000 ) c
-*/
-/* 51 2nd " ( 0.650-1.120 ) c
-*/
-/* 52 1st band of avhrr(noaa14 ( 0.500-1.110 ) c
-*/
-/* 53 2nd " ( 0.680-1.100 ) c
-*/
-/* 54 POLDER band 1 ( 0.4125-0.4775) c
-*/
-/* 55 POLDER band 2 (non polar( 0.4100-0.5225) c
-*/
-/* 56 POLDER band 3 (non polar( 0.5325-0.5950) c
-*/
-/* 57 POLDER band 4 P1 ( 0.6300-0.7025) c
-*/
-/* 58 POLDER band 5 (non polar( 0.7450-0.7800) c
-*/
-/* 59 POLDER band 6 (non polar( 0.7000-0.8300) c
-*/
-/* 60 POLDER band 7 P1 ( 0.8100-0.9200) c
-*/
-/* 61 POLDER band 8 (non polar( 0.8650-0.9400) c
-*/
-/* 62 SEAWIFS band 1 ( 0.3825-0.70) c
-*/
-/* 63 SEAWIFS band 2 ( 0.3800-0.58) c
-*/
-/* 64 SEAWIFS band 3 ( 0.3800-1.02) c
-*/
-/* 65 SEAWIFS band 4 ( 0.3800-1.02) c
-*/
-/* 66 SEAWIFS band 5 ( 0.3825-1.15) c
-*/
-/* 67 SEAWIFS band 6 ( 0.3825-1.05) c
-*/
-/* 68 SEAWIFS band 7 ( 0.3800-1.15) c
-*/
-/* 69 SEAWIFS band 8 ( 0.3800-1.15) c
-*/
-/* 70 AATSR band 1 ( 0.5250-0.5925) c
-*/
-/* 71 AATSR band 2 ( 0.6275-0.6975) c
-*/
-/* 72 AATSR band 3 ( 0.8325-0.9025) c
-*/
-/* 73 AATSR band 4 ( 1.4475-1.7775) c
-*/
-/* 74 MERIS band 1 ( 0.412) c
-*/
-/* 75 MERIS band 2 ( 0.442) c
-*/
-/* 76 MERIS band 3 ( 0.489) c
-*/
-/* 77 MERIS band 4 ( 0.509) c
-*/
-/* 78 MERIS band 5 ( 0.559) c
-*/
-/* 79 MERIS band 6 ( 0.619) c
-*/
-/* 93 GLI band 5 (0.460-1km) c
-*/
-/* 94 GLI band 6 (0.490-1km) c
-*/
-/* 95 GLI band 7 (0.520-1km) c
-*/
-/* 96 GLI band 8 (0.545-1km) c
-*/
-/* 97 GLI band 9 (0.565-1km) c
-*/
-/* 98 GLI band 10 (0.625-1km) c
-*/
-/* 99 GLI band 11 (0.666-1km) c
-*/
-/* 100 GLI band 12 (0.680-1km) c
-*/
-/* 101 GLI band 13 (0.678-1km) c
-*/
-/* 102 GLI band 14 (0.710-1km) c
-*/
-/* 103 GLI band 15 (0.710-1km) (bis?) c
-*/
-/* 104 GLI band 16 (0.749-1km) c
-*/
-/* 105 GLI band 17 (0.763-1km) c
-*/
-/* 106 GLI band 18 (0.865-1km) c
-*/
-/* 107 GLI band 19 (0.865-1km) (bis?) c
-*/
-/* 108 GLI band 20 (0.460-0.25km) c
-*/
-/* 109 GLI band 21 (0.545-0.25km) c
-*/
-/* 110 GLI band 22 (0.660-0.25km) c
-*/
-/* 111 GLI band 23 (0.825-0.25km) c
-*/
-/* 112 GLI band 24 (1.050-1km) c
-*/
-/* 113 GLI band 25 (1.135-1km) c
-*/
-/* 114 GLI band 26 (1.240-1km) c
-*/
-/* 115 GLI band 27 (1.338-1km) c
-*/
-/* 116 GLI band 28 (1.640-1km) c
-*/
-/* 117 GLI band 29 (2.210-1km) c
-*/
-/* 118 GLI band 30 (3.715-1km) c
-*/
-/* note: wl has to be in micrometer c
-*/
-/* **********************************************************************c
- */
-/*< do 38 l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< s(l)=1. >*/
- sixs_ffu__1.s[l - 1] = 1.;
-/*< 38 continue >*/
-/* L38: */
- }
-/*< read(iread,*) iwave >*/
- io___130.ciunit = iread;
- s_rsle(&io___130);
- do_lio(&c__3, &c__1, (char *)&iwave, (ftnlen)sizeof(integer));
- e_rsle();
-/*< if (iwave.eq.-2) goto 1600 >*/
- if (iwave == -2) {
- goto L1600;
- }
-/*< if (iwave) 16,17,18 >*/
- if (iwave < 0) {
- goto L16;
- } else if (iwave == 0) {
- goto L17;
- } else {
- goto L18;
- }
-/*< 16 read(iread,*) wl >*/
-L16:
- io___132.ciunit = iread;
- s_rsle(&io___132);
- do_lio(&c__5, &c__1, (char *)&wl, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< wlinf=wl >*/
- sixs_ffu__1.wlinf = wl;
-/*< wlsup=wl >*/
- sixs_ffu__1.wlsup = wl;
-/*< go to 19 >*/
- goto L19;
-/*< 17 read(iread,*) wlinf,wlsup >*/
-L17:
- io___134.ciunit = iread;
- s_rsle(&io___134);
- do_lio(&c__5, &c__1, (char *)&sixs_ffu__1.wlinf, (ftnlen)sizeof(
- doublereal));
- do_lio(&c__5, &c__1, (char *)&sixs_ffu__1.wlsup, (ftnlen)sizeof(
- doublereal));
- e_rsle();
-/*< go to 19 >*/
- goto L19;
-/*< 1600 read(iread,*) wlinf,wlsup >*/
-L1600:
- io___135.ciunit = iread;
- s_rsle(&io___135);
- do_lio(&c__5, &c__1, (char *)&sixs_ffu__1.wlinf, (ftnlen)sizeof(
- doublereal));
- do_lio(&c__5, &c__1, (char *)&sixs_ffu__1.wlsup, (ftnlen)sizeof(
- doublereal));
- e_rsle();
-/*< go to 19 >*/
- goto L19;
-/* 110 */
-/* 111 band of meteosat (2) */
-/* 112 band of goes east (3,4) */
-/* 114 band of avhr (5,16) */
-/* 118 band of hrv1 (17,24) */
-/* 121 band of tm (25,30) */
-/* 127 band of mss (31,34) */
-/* 128 band of MAS (35,41) */
-/* 129 MODIS band (42,49) */
-/* 130 band of avhrr (50,53) */
-/* 131 POLDER band (54,61) */
-/* 113 SEAWIFS band (62,69) */
-/* 150 AATSR band (70,73) */
-/* 151 MERIS band (74,88) */
-/* 152 GLI band (89,118) */
-/*< >*/
-L18:
- switch (iwave) {
- case 1: goto L110;
- case 2: goto L111;
- case 3: goto L112;
- case 4: goto L112;
- case 5: goto L114;
- case 6: goto L114;
- case 7: goto L114;
- case 8: goto L114;
- case 9: goto L114;
- case 10: goto L114;
- case 11: goto L114;
- case 12: goto L114;
- case 13: goto L114;
- case 14: goto L114;
- case 15: goto L114;
- case 16: goto L114;
- case 17: goto L118;
- case 18: goto L118;
- case 19: goto L118;
- case 20: goto L118;
- case 21: goto L118;
- case 22: goto L118;
- case 23: goto L118;
- case 24: goto L118;
- case 25: goto L121;
- case 26: goto L121;
- case 27: goto L121;
- case 28: goto L121;
- case 29: goto L121;
- case 30: goto L121;
- case 31: goto L127;
- case 32: goto L127;
- case 33: goto L127;
- case 34: goto L127;
- case 35: goto L128;
- case 36: goto L128;
- case 37: goto L128;
- case 38: goto L128;
- case 39: goto L128;
- case 40: goto L128;
- case 41: goto L128;
- case 42: goto L129;
- case 43: goto L129;
- case 44: goto L129;
- case 45: goto L129;
- case 46: goto L129;
- case 47: goto L129;
- case 48: goto L129;
- case 49: goto L129;
- case 50: goto L130;
- case 51: goto L130;
- case 52: goto L130;
- case 53: goto L130;
- case 54: goto L131;
- case 55: goto L131;
- case 56: goto L131;
- case 57: goto L131;
- case 58: goto L131;
- case 59: goto L131;
- case 60: goto L131;
- case 61: goto L131;
- case 62: goto L113;
- case 63: goto L113;
- case 64: goto L113;
- case 65: goto L113;
- case 66: goto L113;
- case 67: goto L113;
- case 68: goto L113;
- case 69: goto L113;
- case 70: goto L150;
- case 71: goto L150;
- case 72: goto L150;
- case 73: goto L150;
- case 74: goto L151;
- case 75: goto L151;
- case 76: goto L151;
- case 77: goto L151;
- case 78: goto L151;
- case 79: goto L151;
- case 80: goto L151;
- case 81: goto L151;
- case 82: goto L151;
- case 83: goto L151;
- case 84: goto L151;
- case 85: goto L151;
- case 86: goto L151;
- case 87: goto L151;
- case 88: goto L151;
- case 89: goto L152;
- case 90: goto L152;
- case 91: goto L152;
- case 92: goto L152;
- case 93: goto L152;
- case 94: goto L152;
- case 95: goto L152;
- case 96: goto L152;
- case 97: goto L152;
- case 98: goto L152;
- case 99: goto L152;
- case 100: goto L152;
- case 101: goto L152;
- case 102: goto L152;
- case 103: goto L152;
- case 104: goto L152;
- case 105: goto L152;
- case 106: goto L152;
- case 107: goto L152;
- case 108: goto L152;
- case 109: goto L152;
- case 110: goto L152;
- case 111: goto L152;
- case 112: goto L152;
- case 113: goto L152;
- case 114: goto L152;
- case 115: goto L152;
- case 116: goto L152;
- case 117: goto L152;
- case 118: goto L152;
- }
-/*< 110 read(iread,*) wlinf,wlsup >*/
-L110:
- io___136.ciunit = iread;
- s_rsle(&io___136);
- do_lio(&c__5, &c__1, (char *)&sixs_ffu__1.wlinf, (ftnlen)sizeof(
- doublereal));
- do_lio(&c__5, &c__1, (char *)&sixs_ffu__1.wlsup, (ftnlen)sizeof(
- doublereal));
- e_rsle();
-/*< iinf=(wlinf-.25)/0.0025+1.5 >*/
- iinf = (integer) ((sixs_ffu__1.wlinf - .25) / .0025 + 1.5);
-/*< isup=(wlsup-.25)/0.0025+1.5 >*/
- isup = (integer) ((sixs_ffu__1.wlsup - .25) / .0025 + 1.5);
-/*< do 1113 ik=iinf,isup >*/
- i__1 = isup;
- for (ik = iinf; ik <= i__1; ++ik) {
-/*< s(ik)=0. >*/
- sixs_ffu__1.s[ik - 1] = 0.;
-/*< 1113 continue >*/
-/* L1113: */
- }
-/*< read(iread,*) (s(i),i=iinf,isup) >*/
- io___138.ciunit = iread;
- s_rsle(&io___138);
- i__1 = isup;
- for (i__ = iinf; i__ <= i__1; ++i__) {
- do_lio(&c__5, &c__1, (char *)&sixs_ffu__1.s[i__ - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< goto 20 >*/
- goto L20;
-/*< 111 call meteo >*/
-L111:
- meteo_();
-/*< go to 19 >*/
- goto L19;
-/*< 112 call goes(iwave-2) >*/
-L112:
- i__1 = iwave - 2;
- goes_(&i__1);
-/*< go to 19 >*/
- goto L19;
-/*< 114 call avhrr(iwave-4) >*/
-L114:
- i__1 = iwave - 4;
- avhrr_(&i__1);
-/*< go to 19 >*/
- goto L19;
-/*< 118 call hrv(iwave-16) >*/
-L118:
- i__1 = iwave - 16;
- hrv_(&i__1);
-/*< go to 19 >*/
- goto L19;
-/*< 121 call tm(iwave-24) >*/
-L121:
- i__1 = iwave - 24;
- tm_(&i__1);
-/*< go to 19 >*/
- goto L19;
-/*< 127 call mss(iwave-30) >*/
-L127:
- i__1 = iwave - 30;
- mss_(&i__1);
-/*< goto 19 >*/
- goto L19;
-/*< 128 call mas(iwave-34) >*/
-L128:
- i__1 = iwave - 34;
- mas_(&i__1);
-/*< goto 19 >*/
- goto L19;
-/*< 129 call modis(iwave-41) >*/
-L129:
- i__1 = iwave - 41;
- modis_(&i__1);
-/*< goto 19 >*/
- goto L19;
-/*< 130 call avhrr(iwave-37) >*/
-L130:
- i__1 = iwave - 37;
- avhrr_(&i__1);
-/*< goto 19 >*/
- goto L19;
-/*< 131 call polder(iwave-53) >*/
-L131:
- i__1 = iwave - 53;
- polder_(&i__1);
-/*< goto 19 >*/
- goto L19;
-/*< 113 call seawifs(iwave-61) >*/
-L113:
- i__1 = iwave - 61;
- seawifs_(&i__1);
-/*< goto 19 >*/
- goto L19;
-/*< 150 call aatsr(iwave-69) >*/
-L150:
- i__1 = iwave - 69;
- aatsr_(&i__1);
-/*< goto 19 >*/
- goto L19;
-/*< 151 call meris(iwave-73) >*/
-L151:
- i__1 = iwave - 73;
- meris_(&i__1);
-/*< goto 19 >*/
- goto L19;
-/*< 152 call gli(iwave-88) >*/
-L152:
- i__1 = iwave - 88;
- gli_(&i__1);
-/*< 19 iinf=(wlinf-.25)/0.0025+1.5 >*/
-L19:
- iinf = (integer) ((sixs_ffu__1.wlinf - .25) / .0025 + 1.5);
-/*< isup=(wlsup-.25)/0.0025+1.5 >*/
- isup = (integer) ((sixs_ffu__1.wlsup - .25) / .0025 + 1.5);
-/*< 20 continue >*/
-L20:
-/* ***********************************************************************
- */
-/* LOOK UP TABLE INITIALIZATION */
-/* ***********************************************************************
- */
-/* initialization of look up table variable */
-/* Write(6,*) "TOTO THE HERO" */
-/*< do i=1,mu >*/
- i__1 = mu;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< nfilut(i)=0 >*/
- nfilut[i__ - 1] = 0;
-/*< do j=1,41 >*/
- for (j = 1; j <= 41; ++j) {
-/*< rolut(i,j)=0. >*/
- rolut[i__ + j * 25 - 26] = 0.;
-/*< rolutq(i,j)=0. >*/
- rolutq[i__ + j * 25 - 26] = 0.;
-/*< rolutu(i,j)=0. >*/
- rolutu[i__ + j * 25 - 26] = 0.;
-/*< filut(i,j)=0. >*/
- filut[i__ + j * 25 - 26] = 0.;
-/*< roluti(i,j)=0. >*/
- roluti[i__ + j * 25 - 26] = 0.;
-/*< rolutiq(i,j)=0. >*/
- rolutiq[i__ + j * 25 - 26] = 0.;
-/*< rolutiu(i,j)=0. >*/
- rolutiu[i__ + j * 25 - 26] = 0.;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< xmus=cos(asol*pi/180.) >*/
- xmus = cos(asol * pi / 180.);
-/*< its=acos(xmus)*180.0/pi >*/
- its = acos(xmus) * 180. / pi;
-/* Case standart LUT */
-/*< if (ilut.eq.1) then >*/
- if (ilut == 1) {
-/*< do i=1,mu-1 >*/
- i__1 = mu - 1;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< lutmuv=rm(i) >*/
- lutmuv = rm[i__ + 25];
-/*< luttv=acos(lutmuv)*180./pi >*/
- luttv = acos(lutmuv) * 180. / pi;
-/*< iscama=(180-abs(luttv-its)) >*/
- iscama = 180 - (d__1 = luttv - its, abs(d__1));
-/*< iscami=(180-(luttv+its)) >*/
- iscami = 180 - (luttv + its);
-/*< nbisca=int(0.01+(iscama-iscami)/4.0)+1 >*/
- nbisca = (integer) ((iscama - iscami) / 4. + .01) + 1;
-/*< nfilut(i)=nbisca >*/
- nfilut[i__ - 1] = nbisca;
-/*< filut(i,1)=0.0 >*/
- filut[i__ - 1] = 0.;
-/*< filut(i,nbisca)=180.0 >*/
- filut[i__ + nbisca * 25 - 26] = 180.;
-/*< scaa=iscama >*/
- scaa = iscama;
-/*< do j=2,nfilut(i)-1 >*/
- i__3 = nfilut[i__ - 1] - 1;
- for (j = 2; j <= i__3; ++j) {
-/*< scaa=scaa-4.0 >*/
- scaa += -4.;
-/*< cscaa=cos(scaa*pi/180.) >*/
- cscaa = cos(scaa * pi / 180.);
-/*< >*/
- cfi = -(cscaa + xmus * lutmuv) / (sqrt(1 - xmus * xmus) *
- sqrt(1. - lutmuv * lutmuv));
-/*< filut(i,j)=acos(cfi)*180.0/pi >*/
- filut[i__ + j * 25 - 26] = acos(cfi) * 180. / pi;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< i=mu >*/
- i__ = mu;
-/*< lutmuv=cos(avis*pi/180.) >*/
- lutmuv = cos(avis * pi / 180.);
-/*< luttv=acos(lutmuv)*180./pi >*/
- luttv = acos(lutmuv) * 180. / pi;
-/*< iscama=(180-abs(luttv-its)) >*/
- iscama = 180 - (d__1 = luttv - its, abs(d__1));
-/*< iscami=(180-(luttv+its)) >*/
- iscami = 180 - (luttv + its);
-/*< nbisca=int((iscama-iscami)/4)+1 >*/
- nbisca = (integer) ((iscama - iscami) / 4) + 1;
-/*< nfilut(i)=nbisca >*/
- nfilut[i__ - 1] = nbisca;
-/*< filut(i,1)=0.0 >*/
- filut[i__ - 1] = 0.;
-/*< filut(i,nbisca)=180.0 >*/
- filut[i__ + nbisca * 25 - 26] = 180.;
-/*< scaa=iscama >*/
- scaa = iscama;
-/*< do j=2,nfilut(i)-1 >*/
- i__1 = nfilut[i__ - 1] - 1;
- for (j = 2; j <= i__1; ++j) {
-/*< scaa=scaa-4.0 >*/
- scaa += -4.;
-/*< cscaa=cos(scaa*pi/180.) >*/
- cscaa = cos(scaa * pi / 180.);
-/*< >*/
- cfi = -(cscaa + xmus * lutmuv) / (sqrt(1 - xmus * xmus) * sqrt(1.
- - lutmuv * lutmuv));
-/*< filut(i,j)=acos(cfi)*180.0/pi >*/
- filut[i__ + j * 25 - 26] = acos(cfi) * 180. / pi;
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/* END Case standart LUT */
-/* Case LUT for APS */
-/*< if (ilut.eq.3) then >*/
- if (ilut == 3) {
-/*< do i=1,mu-1 >*/
- i__1 = mu - 1;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< nbisca=2 >*/
- nbisca = 2;
-/*< nfilut(i)=nbisca >*/
- nfilut[i__ - 1] = nbisca;
-/*< filut(i,1)=(phi0-phiv) >*/
- filut[i__ - 1] = phi0 - phiv;
-/*< filut(i,nbisca)=(phi0-phiv)+180.0 >*/
- filut[i__ + nbisca * 25 - 26] = phi0 - phiv + 180.;
-/*< enddo >*/
- }
-/*< i=mu >*/
- i__ = mu;
-/*< nbisca=1 >*/
- nbisca = 1;
-/*< nfilut(i)=nbisca >*/
- nfilut[i__ - 1] = nbisca;
-/*< filut(i,1)=(phi0-phiv) >*/
- filut[i__ - 1] = phi0 - phiv;
-/*< endif >*/
- }
-/* END Case LUT for APS */
-/* CCC Check initialization (debug) */
-/*< do i=1,mu >*/
- i__1 = mu;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< lutmuv=rm(i) >*/
- lutmuv = rm[i__ + 25];
-/*< luttv=acos(lutmuv)*180./pi >*/
- luttv = acos(lutmuv) * 180. / pi;
-/*< do j=1,nfilut(i) >*/
- i__3 = nfilut[i__ - 1];
- for (j = 1; j <= i__3; ++j) {
-/*< >*/
- cscaa = -xmus * lutmuv - cos(filut[i__ + j * 25 - 26] * pi / 180.)
- * sqrt(1. - xmus * xmus) * sqrt(1. - lutmuv * lutmuv);
-/*< scaa=acos(cscaa)*180./pi >*/
- scaa = acos(cscaa) * 180. / pi;
-/*< write(6,*) its,luttv,filut(i,j),scaa >*/
- s_wsle(&io___156);
- do_lio(&c__5, &c__1, (char *)&its, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&luttv, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&filut[i__ + j * 25 - 26], (ftnlen)
- sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&scaa, (ftnlen)sizeof(doublereal));
- e_wsle();
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* CCC Check initialization (debug) */
-/* ***********************************************************************
- */
-/* END LOOK UP TABLE INITIALIZATION */
-/* ***********************************************************************
- */
-/* **********************************************************************c
- */
-/* here, we first compute an equivalent wavelenght which is the input c
-*/
-/* value for monochromatic conditions or the integrated value for a c
-*/
-/* filter functionr (call equivwl) then, the atmospheric properties are c
-*/
-/* computed for that wavelength (call discom then call specinterp) c
-*/
-/* molecular optical thickness is computed too (call odrayl). lastly c
-*/
-/* the successive order of scattering code is called three times. c
-*/
-/* first for a sun at thetas with the scattering properties of aerosols c
-*/
-/* and molecules, second with a pure molecular atmosphere, then with thec
-*/
-/* actual atmosphere for a sun at thetav. the iso code allows us to c
-*/
-/* compute the scattering transmissions and the spherical albedo. all c
-*/
-/* these computations are performed for checking the accuracy of the c
-*/
-/* analytical expressions and in addition for computing the averaged c
-*/
-/* directional reflectances c
-*/
-/* **********************************************************************c
- */
-/*< if(iwave.ne.-1) then >*/
- if (iwave != -1) {
-/*< >*/
- equivwl_(&iinf, &isup, &step, &wlmoy);
-/*< else >*/
- } else {
-/*< wlmoy=wl >*/
- wlmoy = wl;
-/*< endif >*/
- }
-/*< >*/
- discom_(&idatmp, &iaer, &iaer_prof__, &xmus, &xmuv, &phi, &taer55, &
- taer55p, &palt, &phirad, &nt, &mu, &np, rm, gb, rp, &ftray, &ipol,
- xlm1, xlm2, roatm_fi__, &nfi, nfilut, filut, roluts, rolutsq,
- rolutsu);
-/*< if(iaer.ne.0) then >*/
- if (iaer != 0) {
-/*< >*/
- specinterp_(&wlmoy, &taer55, &taer55p, &tamoy, &tamoyp, &pizmoy, &
- pizmoyp, &ipol);
-/*< endif >*/
- }
-/*< >*/
- odrayl_(&wlmoy, &trmoy);
-/*< trmoyp=trmoy*ftray >*/
- trmoyp = trmoy * ftray;
-/*< if (idatmp.eq.4) then >*/
- if (idatmp == 4) {
-/*< trmoyp=trmoy >*/
- trmoyp = trmoy;
-/*< tamoyp=tamoy >*/
- tamoyp = tamoy;
-/*< endif >*/
- }
-/*< if (idatmp.eq.0) then >*/
- if (idatmp == 0) {
-/*< trmoyp=0. >*/
- trmoyp = 0.;
-/*< tamoyp=0. >*/
- tamoyp = 0.;
-/*< endif >*/
- }
-/* *********************************************************************c
-*/
-/* inhomo ground reflectance (type) c
-*/
-/* ------------------ c
-*/
-/* c
-*/
-/* you consider an homogeneous surface: c
-*/
-/* enter - inhomo=0 c
-*/
-/* you may consider directional surface effects c
-*/
-/* idirec=0 (no directional effect) c
-*/
-/* you have to specify the surface reflectance:c
-*/
-/* igroun (see note1) which is uniform and c
-*/
-/* lambertian c
-*/
-/* idirec=1 ( directional effect) c
-*/
-/* you have to specify the brdf of the surface c
-*/
-/* for the actual solar illumination you are c
-*/
-/* considering as well as the brdf for a sun c
-*/
-/* which would be at an angle thetav, in c
-*/
-/* addition you have to give the surface c
-*/
-/* albedo (spherical albedo). you can also c
-*/
-/* select one of the selected model from the c
-*/
-/* --------------------------------------- c
-*/
-/* note1: values of the reflectance selected by igroun,igrou1 or igrou2 c
-*/
-/* may correspond to the following cases, c
-*/
-/* 0 constant value of ro (or roc,or roe) whatever the wavelen c
-*/
-/* gth. you enter this constant value of ro (or roc or roe). c
-*/
-/* -1 you have to enter the value of ro (or roc,or roe) by step c
-*/
-/* of 0.0025 micron from wlinf to wlsup (if you have used thec
-*/
-/* satellite bands,see implicit values for these limits). c
-*/
-/* 1 mean spectral value of green vegetation c
-*/
-/* 2 mean spectral value of clear water c
-*/
-/* 3 mean spectral value of sand c
-*/
-/* 4 mean spectral value of lake water c
-*/
-/* c
-*/
-/* ground reflectance (brdf) c
-*/
-/* ------------------------- c
-*/
-/* note2: values of the directional reflectance is assumed spectrally c
-*/
-/* independent, so you have to specify, the brdf at the c
-*/
-/* wavelength for monochromatic condition of the mean value c
-*/
-/* over the spectral band c
-*/
-/* 0 you have to enter the value of ro for sun at thetas by c
-*/
-/* step of 10 degrees for zenith view angles (from 0 to 80 c
-*/
-/* and the value for 85) and by step of 30 degrees for c
-*/
-/* azimuth view angles from 0 to 360 degrees, you have to do c
-*/
-/* same for a sun which would be at thetav. in addition, the c
-*/
-/* spherical albedo of the surface has to be specified ,as c
-*/
-/* well as the observed reflectance in the selected geometry c
-*/
-/* rodir(sun zenith,view zenith, relative azimuth). c */
-/* c */
-/* you also may select one of the following models c
-*/
-/* 1 hapke model c
-*/
-/* the parameters are: om,af,s0,h c
-*/
-/* om= albedo c
-*/
-/* af=assymetry parameter for the phase function c
-*/
-/* s0=amplitude of hot spot c
-*/
-/* h=width of the hot spot c
-*/
-/* c
-*/
-/* 2 verstraete et al. model c
-*/
-/* the parameters are: c
-*/
-/* there is three lines of parameters: c
-*/
-/* line 1 (choice of options) c
-*/
-/* line 2 (structural parameters) c
-*/
-/* line 3 (optical parameters) c
-*/
-/* line 1: opt3 opt4 opt5 c
-*/
-/* opt5=0 for single scattering only c
-*/
-/* 1 for dickinson et al. parameterization of c
-*/
-/* multiple scattering c
-*/
-/* line 2: str1 str2 str3 str4 c
-*/
-/* str1='leaf area density', in m2 m-3 c
-*/
-/* str2=radius of the sun flecks on the scatterer (m)c
-*/
-/* str3=leaf orientation parameter: c
-*/
-/* if opt3=0 then str3=kappa1 c
-*/
-/* if opt3=1 or 2 then str3=chil c
-*/
-/* str4=leaf orientation parameter (continued): c
-*/
-/* if opt3=0 then str4=kappa2 c
-*/
-/* if opt3=1 or 2 then str4 is not used c
-*/
-/* line 3: optics1 optics2 optics3 c
-*/
-/* optics1=single scattering albedo, n/d value c
-*/
-/* between 0.0 and 1.0 c
-*/
-/* optics2= phase function parameter: c
-*/
-/* if opt4=0 then this input is not used c
-*/
-/* if opt4=1 then asymmetry factor, n/d value c
-*/
-/* between -1.0and 1.0 c
-*/
-/* if opt4=2 then first coefficient of legendre c
-*/
-/* polynomial c
-*/
-/* optics3=second coefficient of legendre polynomial c
-*/
-/* (if opt4=2) c
-*/
-/* c
-*/
-/* 3 Roujean et al. model c
-*/
-/* the parameters are: k0,k1,k2 c
-*/
-/* k0=albedo. c
-*/
-/* k1=geometric parameter for hot spot effect c
-*/
-/* k2=geometric parameter for hot spot effect c
-*/
-/* c
-*/
-/* 4 walthall et al. model c
-*/
-/* the parameters are: a,ap,b,c c
-*/
-/* a=term in square ts*tv c
-*/
-/* ap=term in square ts*ts+tv*tv c
-*/
-/* b=term in ts*tv*cos(phi) (limacon de pascal) c
-*/
-/* c=albedo c
-*/
-/* c
-*/
-/* 5 minnaert model c
-*/
-/* the parameters are: par1,par2 c
-*/
-/* c
-*/
-/* 6 Ocean c
-*/
-/* the parameter are: pws,phi_wind,xsal,pcl c
-*/
-/* pws=wind speed (in m/s) c
-*/
-/* phi_wind=azim. of the wind (in degres) c
-*/
-/* xsal=salinity (in ppt) xsal=34.3ppt if xsal<0 c
-*/
-/* pcl=pigment concentration (in mg/m3) c
-*/
-/* c
-*/
-/* 7 Iaquinta and Pinty model c
-*/
-/* the parameters are: c
-*/
-/* there is 3 lines of parameters: c
-*/
-/* line 1: choice of option (pild,pihs) c
-*/
-/* line 2: structural parameters (pxLt,pc) c
-*/
-/* line 3: optical parameters (pRl,pTl,pRs) c
-*/
-/* Line 1: pild,pihs c
-*/
-/* pild=1 planophile leaf distribution c
-*/
-/* pild=2 erectophile leaf distribution c
-*/
-/* pild=3 plagiophile leaf distribution c
-*/
-/* pild=4 extremophile leaf distribution c
-*/
-/* pild=5 uniform leaf distribution c
-*/
-/* c
-*/
-/* pihs=0 no hot spot c
-*/
-/* pihs=1 hot spot c
-*/
-/* Line 2: pxLt,pc c
-*/
-/* pxLt=Leaf area index [1.,15.] c
-*/
-/* pc=Hot spot parameter: 2*r*Lambda [0.,2.] c
-*/
-/* Line 3: pRl,pTl,pRs c
-*/
-/* pRl=Leaf reflectance [0.,0.99] c
-*/
-/* pTl=Leaf transmitance [0.,0.99] c
-*/
-/* pRs=Soil albedo [0.,0.99] c
-*/
-/* NB: pRl+PTl <0.99 c
-*/
-/* c
-*/
-/* 8 Rahman et al. model c
-*/
-/* the parameters are: rho0,af,xk c
-*/
-/* rho0=Intensity of the reflectance of the surface c
-*/
-/* cover, N/D value greater or equal to 0 c
-*/
-/* af=Asymmetry factor, N/D value between -1.0 and 1.0 c
-*/
-/* xk=Structural parameter of the medium c
-*/
-/* 9 Kuusk's multispectral CR model c
-*/
-/* Reference: c
-*/
-/* Kuusk A. A multispectral canopy reflectance model. c
-*/
-/* Remote Sens. Environ., 1994, 50:75-82 c
-*/
-/* c
-*/
-/* c
-*/
-/* the parameters are: c
-*/
-/* c
-*/
-/* line 1: structural parameters (ul,eps,thm,sl) c
-*/
-/* line 2: optical parameters (cAB,cW,N,cn,s1) c
-*/
-/* c
-*/
-/* ul=LAI [0.1...10] c
-*/
-/* eps,thm - LAD parameters c
-*/
-/* eps [0.0..0.9] thm [0.0..90.0] c
-*/
-/* sl - relative leaf size [0.01..1.0] c
-*/
-/* cAB - chlorophyll content, ug/cm^2 [30] c
-*/
-/* cW - leaf water equivalent thickness [0.01..0.03] c
-*/
-/* N - the effective number of elementary layers c
-*/
-/* inside a leaf [1.225] c
-*/
-/* cn - the ratio of refractive indices of the leaf c
-*/
-/* surface wax and internal material [1.0] c
-*/
-/* s1 - the weight of the 1st Price function for the c
-*/
-/* soil reflectance [0.1..0.8] c
-*/
-/* 10 MODIS operational BDRF c
- */
-/* the parameters are: p1,p2,p3 c
-*/
-/* p1 weight for lambertian kernel c
-*/
-/* p2 weight for Ross Thick kernel c
-*/
-/* p3 weight for Li Sparse kernel c
-*/
-/* **********************************************************************c
- */
-/*< fr=0. >*/
- fr = 0.;
-/*< rad=0. >*/
- rad = 0.;
-/*< do 1116 ik=iinf,isup >*/
- i__1 = isup;
- for (ik = iinf; ik <= i__1; ++ik) {
-/*< rocl(ik)=0. >*/
- rocl[ik - 1] = 0.;
-/*< roel(ik)=0. >*/
- roel[ik - 1] = 0.;
-/*< 1116 continue >*/
-/* L1116: */
- }
-/* **********************************************************************c
- */
-/* uniform or non-uniform surface conditions c
-*/
-/* **********************************************************************c
- */
-/*< read(iread,*) inhomo >*/
- io___174.ciunit = iread;
- s_rsle(&io___174);
- do_lio(&c__3, &c__1, (char *)&inhomo, (ftnlen)sizeof(integer));
- e_rsle();
-/*< if(inhomo) 30,30,31 >*/
- if (inhomo <= 0) {
- goto L30;
- } else {
- goto L31;
- }
-/*< 30 read(iread,*) idirec >*/
-L30:
- io___176.ciunit = iread;
- s_rsle(&io___176);
- do_lio(&c__3, &c__1, (char *)&idirec, (ftnlen)sizeof(integer));
- e_rsle();
-/*< if(idirec)21,21,25 >*/
- if (idirec <= 0) {
- goto L21;
- } else {
- goto L25;
- }
-/* **********************************************************************c
- */
-/* uniform conditions with brdf conditions c
-*/
-/* **********************************************************************c
- */
-/* call os to compute downward radiation field for robar */
-/*< 25 rm(-mu)=-xmuv >*/
-L25:
- rm[-mu + 25] = -xmuv;
-/*< rm(mu)=xmuv >*/
- rm[mu + 25] = xmuv;
-/*< rm(0)=-xmus >*/
- rm[25] = -xmus;
-/*< spalt=1000. >*/
- spalt = 1e3;
-/*< >*/
- os_(&iaer_prof__, &tamoy, &trmoy, &pizmoy, &tamoyp, &trmoyp, &spalt, &
- phirad, &nt, &mu, &np, rm, gb, rp, xlmus, xlphim, &nfi, rolut);
-/* call os to compute downward radiation field for robarp */
-/*< if (idatmp.ne.0) then >*/
- if (idatmp != 0) {
-/*< rm(-mu)=-xmus >*/
- rm[-mu + 25] = -xmus;
-/*< rm(mu)=xmus >*/
- rm[mu + 25] = xmus;
-/*< rm(0)=-xmuv >*/
- rm[25] = -xmuv;
-/*< >*/
- os_(&iaer_prof__, &tamoyp, &trmoyp, &pizmoy, &tamoyp, &trmoyp, &spalt,
- &phirad, &nt, &mu, &np, rm, gb, rp, xlmuv, xlphim, &nfi,
- rolut);
-/*< endif >*/
- }
-
-/*< read(iread,*) ibrdf >*/
- io___182.ciunit = iread;
- s_rsle(&io___182);
- do_lio(&c__3, &c__1, (char *)&ibrdf, (ftnlen)sizeof(integer));
- e_rsle();
-/* *********************************************************************c
-*/
-/*< if(ibrdf)23,23,24 >*/
- if (ibrdf <= 0) {
- goto L23;
- } else {
- goto L24;
- }
-/* **********************************************************************c
- */
-/* brdf from in-situ measurements c
-*/
-/* **********************************************************************c
- */
-/*< 23 do 900 k=1,13 >*/
-L23:
- for (k = 1; k <= 13; ++k) {
-/*< read(iread,*) (brdfdats(10-j+1,k),j=1,10) >*/
- io___184.ciunit = iread;
- s_rsle(&io___184);
- for (j = 1; j <= 10; ++j) {
- do_lio(&c__5, &c__1, (char *)&brdfdats[10 - j + 1 + k * 10 - 11],
- (ftnlen)sizeof(doublereal));
- }
- e_rsle();
-/*< 900 continue >*/
-/* L900: */
- }
-/*< do 901 k=1,13 >*/
- for (k = 1; k <= 13; ++k) {
-/*< read(iread,*) (brdfdatv(10-j+1,k),j=1,10) >*/
- io___186.ciunit = iread;
- s_rsle(&io___186);
- for (j = 1; j <= 10; ++j) {
- do_lio(&c__5, &c__1, (char *)&brdfdatv[10 - j + 1 + k * 10 - 11],
- (ftnlen)sizeof(doublereal));
- }
- e_rsle();
-/*< 901 continue >*/
-/* L901: */
- }
-/*< read(iread,*) albbrdf >*/
- io___188.ciunit = iread;
- s_rsle(&io___188);
- do_lio(&c__5, &c__1, (char *)&albbrdf, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< read(iread,*) rodir >*/
- io___190.ciunit = iread;
- s_rsle(&io___190);
- do_lio(&c__5, &c__1, (char *)&rodir, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< rm(-mu)=phirad >*/
- rm[-mu + 25] = phirad;
-/*< rm(mu)=xmuv >*/
- rm[mu + 25] = xmuv;
-/*< rm(0)=xmus >*/
- rm[25] = xmus;
-/*< >*/
- brdfgrid_(&mu, &np, rm, rp, brdfdats, angmu, angphi, brdfints);
-/*< rm(-mu)=2.*pi-phirad >*/
- rm[-mu + 25] = pi * 2. - phirad;
-/*< rm(mu)=xmus >*/
- rm[mu + 25] = xmus;
-/*< rm(0)=xmuv >*/
- rm[25] = xmuv;
-/*< >*/
- brdfgrid_(&mu, &np, rm, rp, brdfdatv, angmu, angphi, brdfintv);
-/*< brdfints(mu,1)=rodir >*/
- brdfints[mu + 25] = rodir;
-/*< do l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< sbrdf(l)=rodir >*/
- sbrdf[l - 1] = rodir;
-/*< enddo >*/
- }
-/*< go to 69 >*/
- goto L69;
-/* **********************************************************************c
- */
-/* brdf from hapke's model c
-*/
-/* **********************************************************************c
- */
-/*< 24 if(ibrdf.eq.1) then >*/
-L24:
- if (ibrdf == 1) {
-/*< read(iread,*) par1,par2,par3,par4 >*/
- io___195.ciunit = iread;
- s_rsle(&io___195);
- do_lio(&c__5, &c__1, (char *)&par1, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&par2, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&par3, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&par4, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< srm(-1)=phirad >*/
- srm[0] = phirad;
-/*< srm(1)=xmuv >*/
- srm[2] = xmuv;
-/*< srm(0)=xmus >*/
- srm[1] = xmus;
-/*< >*/
- hapkbrdf_(&par1, &par2, &par3, &par4, &c__1, &c__1, srm, srp,
- sbrdftmp);
-/*< do l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< sbrdf(l)=sbrdftmp(1,1) >*/
- sbrdf[l - 1] = sbrdftmp[2];
-/*< enddo >*/
- }
-/*< rm(-mu)=phirad >*/
- rm[-mu + 25] = phirad;
-/*< rm(mu)=xmuv >*/
- rm[mu + 25] = xmuv;
-/*< rm(0)=xmus >*/
- rm[25] = xmus;
-/*< >*/
- hapkbrdf_(&par1, &par2, &par3, &par4, &mu, &np, rm, rp, brdfints);
-/*< rm(-mu)=2.*pi-phirad >*/
- rm[-mu + 25] = pi * 2. - phirad;
-/*< rm(mu)=xmus >*/
- rm[mu + 25] = xmus;
-/*< rm(0)=xmuv >*/
- rm[25] = xmuv;
-/*< >*/
- hapkbrdf_(&par1, &par2, &par3, &par4, &mu, &np, rm, rp, brdfintv);
-/*< >*/
- hapkalbe_(&par1, &par2, &par3, &par4, &albbrdf);
-/*< go to 69 >*/
- goto L69;
-/*< endif >*/
- }
-/* **********************************************************************c
- */
-/* brdf from verstraete et al's model c
-*/
-/* **********************************************************************c
- */
-/*< if(ibrdf.eq.2) then >*/
- if (ibrdf == 2) {
-/*< read(iread,*) (options(i),i=3,5) >*/
- io___203.ciunit = iread;
- s_rsle(&io___203);
- for (i__ = 3; i__ <= 5; ++i__) {
- do_lio(&c__3, &c__1, (char *)&options[i__ - 1], (ftnlen)sizeof(
- integer));
- }
- e_rsle();
-/*< options(1)=1 >*/
- options[0] = 1;
-/*< options(2)=1 >*/
- options[1] = 1;
-/*< read(iread,*) (struct(i),i=1,4) >*/
- io___205.ciunit = iread;
- s_rsle(&io___205);
- for (i__ = 1; i__ <= 4; ++i__) {
- do_lio(&c__5, &c__1, (char *)&struct__[i__ - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< read(iread,*) (optics(i),i=1,3) >*/
- io___207.ciunit = iread;
- s_rsle(&io___207);
- for (i__ = 1; i__ <= 3; ++i__) {
- do_lio(&c__5, &c__1, (char *)&optics[i__ - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< srm(-1)=phirad >*/
- srm[0] = phirad;
-/*< srm(1)=xmuv >*/
- srm[2] = xmuv;
-/*< srm(0)=xmus >*/
- srm[1] = xmus;
-/*< >*/
- versbrdf_(options, optics, struct__, &c__1, &c__1, srm, srp, sbrdftmp)
- ;
-/*< do l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< sbrdf(l)=sbrdftmp(1,1) >*/
- sbrdf[l - 1] = sbrdftmp[2];
-/*< enddo >*/
- }
-/*< rm(-mu)=phirad >*/
- rm[-mu + 25] = phirad;
-/*< rm(mu)=xmuv >*/
- rm[mu + 25] = xmuv;
-/*< rm(0)=xmus >*/
- rm[25] = xmus;
-/*< >*/
- versbrdf_(options, optics, struct__, &mu, &np, rm, rp, brdfints);
-/*< rm(-mu)=2.*pi-phirad >*/
- rm[-mu + 25] = pi * 2. - phirad;
-/*< rm(mu)=xmus >*/
- rm[mu + 25] = xmus;
-/*< rm(0)=xmuv >*/
- rm[25] = xmuv;
-/*< >*/
- versbrdf_(options, optics, struct__, &mu, &np, rm, rp, brdfintv);
-/*< >*/
- versalbe_(options, optics, struct__, &albbrdf);
-/*< go to 69 >*/
- goto L69;
-/*< endif >*/
- }
-/* **********************************************************************c
- */
-/* brdf from Roujean et al's model c
-*/
-/* **********************************************************************c
- */
-/*< if(ibrdf.eq.3) then >*/
- if (ibrdf == 3) {
-/*< read(iread,*) par1,par2,par3 >*/
- io___209.ciunit = iread;
- s_rsle(&io___209);
- do_lio(&c__5, &c__1, (char *)&par1, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&par2, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&par3, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< srm(-1)=phirad >*/
- srm[0] = phirad;
-/*< srm(1)=xmuv >*/
- srm[2] = xmuv;
-/*< srm(0)=xmus >*/
- srm[1] = xmus;
-/*< >*/
- roujbrdf_(&par1, &par2, &par3, &c__1, &c__1, srm, srp, sbrdftmp);
-/*< do l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< sbrdf(l)=sbrdftmp(1,1) >*/
- sbrdf[l - 1] = sbrdftmp[2];
-/*< enddo >*/
- }
-/*< rm(-mu)=phirad >*/
- rm[-mu + 25] = phirad;
-/*< rm(mu)=xmuv >*/
- rm[mu + 25] = xmuv;
-/*< rm(0)=xmus >*/
- rm[25] = xmus;
-/*< >*/
- roujbrdf_(&par1, &par2, &par3, &mu, &np, rm, rp, brdfints);
-/*< rm(-mu)=2.*pi-phirad >*/
- rm[-mu + 25] = pi * 2. - phirad;
-/*< rm(mu)=xmus >*/
- rm[mu + 25] = xmus;
-/*< rm(0)=xmuv >*/
- rm[25] = xmuv;
-/*< >*/
- roujbrdf_(&par1, &par2, &par3, &mu, &np, rm, rp, brdfintv);
-/*< >*/
- roujalbe_(&par1, &par2, &par3, &albbrdf);
-/*< go to 69 >*/
- goto L69;
-/*< endif >*/
- }
-/* **********************************************************************c
- */
-/* brdf from walthall et al's model */
-/* **********************************************************************c
- */
-/*< if(ibrdf.eq.4) then >*/
- if (ibrdf == 4) {
-/*< read(iread,*) par1,par2,par3,par4 >*/
- io___210.ciunit = iread;
- s_rsle(&io___210);
- do_lio(&c__5, &c__1, (char *)&par1, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&par2, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&par3, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&par4, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< srm(-1)=phirad >*/
- srm[0] = phirad;
-/*< srm(1)=xmuv >*/
- srm[2] = xmuv;
-/*< srm(0)=xmus >*/
- srm[1] = xmus;
-/*< >*/
- waltbrdf_(&par1, &par2, &par3, &par4, &c__1, &c__1, srm, srp,
- sbrdftmp);
-/*< do l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< sbrdf(l)=sbrdftmp(1,1) >*/
- sbrdf[l - 1] = sbrdftmp[2];
-/*< enddo >*/
- }
-/*< rm(-mu)=phirad >*/
- rm[-mu + 25] = phirad;
-/*< rm(mu)=xmuv >*/
- rm[mu + 25] = xmuv;
-/*< rm(0)=xmus >*/
- rm[25] = xmus;
-/*< >*/
- waltbrdf_(&par1, &par2, &par3, &par4, &mu, &np, rm, rp, brdfints);
-/*< rm(-mu)=2.*pi-phirad >*/
- rm[-mu + 25] = pi * 2. - phirad;
-/*< rm(mu)=xmus >*/
- rm[mu + 25] = xmus;
-/*< rm(0)=xmuv >*/
- rm[25] = xmuv;
-/*< >*/
- waltbrdf_(&par1, &par2, &par3, &par4, &mu, &np, rm, rp, brdfintv);
-/*< >*/
- waltalbe_(&par1, &par2, &par3, &par4, &albbrdf);
-/*< go to 69 >*/
- goto L69;
-/*< endif >*/
- }
-/* **********************************************************************c
- */
-/* brdf from minnaert's model c
-*/
-/* **********************************************************************c
- */
-/*< if(ibrdf.eq.5) then >*/
- if (ibrdf == 5) {
-/*< read(iread,*) par1,par2 >*/
- io___211.ciunit = iread;
- s_rsle(&io___211);
- do_lio(&c__5, &c__1, (char *)&par1, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&par2, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< srm(-1)=phirad >*/
- srm[0] = phirad;
-/*< srm(1)=xmuv >*/
- srm[2] = xmuv;
-/*< srm(0)=xmus >*/
- srm[1] = xmus;
-/*< >*/
- minnbrdf_(&par1, &par2, &c__1, &c__1, srm, sbrdftmp);
-/*< do l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< sbrdf(l)=sbrdftmp(1,1) >*/
- sbrdf[l - 1] = sbrdftmp[2];
-/*< enddo >*/
- }
-/*< rm(-mu)=phirad >*/
- rm[-mu + 25] = phirad;
-/*< rm(mu)=xmuv >*/
- rm[mu + 25] = xmuv;
-/*< rm(0)=xmus >*/
- rm[25] = xmus;
-/*< >*/
- minnbrdf_(&par1, &par2, &mu, &np, rm, brdfints);
-/*< rm(-mu)=2.*pi-phirad >*/
- rm[-mu + 25] = pi * 2. - phirad;
-/*< rm(mu)=xmus >*/
- rm[mu + 25] = xmus;
-/*< rm(0)=xmuv >*/
- rm[25] = xmuv;
-/*< >*/
- minnbrdf_(&par1, &par2, &mu, &np, rm, brdfintv);
-/*< >*/
- minnalbe_(&par1, &par2, &albbrdf);
-/*< go to 69 >*/
- goto L69;
-/*< endif >*/
- }
-/* **********************************************************************c
- */
-/* brdf from ocean condition */
-/* **********************************************************************c
- */
-/*< if(ibrdf.eq.6) then >*/
- if (ibrdf == 6) {
-/*< read(iread,*) pws,phi_wind,xsal,pcl >*/
- io___212.ciunit = iread;
- s_rsle(&io___212);
- do_lio(&c__5, &c__1, (char *)&pws, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&phi_wind__, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&xsal, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&pcl, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< if (xsal.lt.0.001)xsal=34.3 >*/
- if (xsal < .001) {
- xsal = 34.3;
- }
-/*< paw=phi0-phi_wind >*/
- paw = phi0 - phi_wind__;
-/*< do l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< srm(-1)=phirad >*/
- srm[0] = phirad;
-/*< srm(1)=xmuv >*/
- srm[2] = xmuv;
-/*< srm(0)=xmus >*/
- srm[1] = xmus;
-/*< wl=.25+(l-1)*step >*/
- wl = (l - 1) * step + .25;
-/*< >*/
- oceabrdf_(&pws, &paw, &xsal, &pcl, &wl, &rfoam, &rwat, &rglit, &
- c__1, &c__1, srm, srp, sbrdftmp);
-/*< rfoaml(l)=rfoam >*/
- rfoaml[l - 1] = rfoam;
-/*< rwatl(l)=rwat >*/
- rwatl[l - 1] = rwat;
-/*< rglitl(l)=rglit >*/
- rglitl[l - 1] = rglit;
-/*< sbrdf(l)=sbrdftmp(1,1) >*/
- sbrdf[l - 1] = sbrdftmp[2];
-/*< enddo >*/
- }
-/*< rm(-mu)=phirad >*/
- rm[-mu + 25] = phirad;
-/*< rm(mu)=xmuv >*/
- rm[mu + 25] = xmuv;
-/*< rm(0)=xmus >*/
- rm[25] = xmus;
-/*< >*/
- oceabrdf_(&pws, &paw, &xsal, &pcl, &wlmoy, &rfoam, &rwat, &rglit, &mu,
- &np, rm, rp, brdfints);
-/*< rm(-mu)=2.*pi-phirad >*/
- rm[-mu + 25] = pi * 2. - phirad;
-/*< rm(mu)=xmus >*/
- rm[mu + 25] = xmus;
-/*< rm(0)=xmuv >*/
- rm[25] = xmuv;
-/*< >*/
- oceabrdf_(&pws, &paw, &xsal, &pcl, &wlmoy, &rfoam, &rwat, &rglit, &mu,
- &np, rm, rp, brdfintv);
-/*< >*/
- oceaalbe_(&pws, &paw, &xsal, &pcl, &wlmoy, &albbrdf);
-/*< go to 69 >*/
- goto L69;
-/*< endif >*/
- }
-
-/* **********************************************************************c
- */
-/* brdf from Iaquinta and Pinty model */
-/* **********************************************************************c
- */
-/*< if(ibrdf.eq.7) then >*/
- if (ibrdf == 7) {
-/*< read(iread,*) pild,pihs >*/
- io___224.ciunit = iread;
- s_rsle(&io___224);
- do_lio(&c__3, &c__1, (char *)&pild, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&pihs, (ftnlen)sizeof(integer));
- e_rsle();
-/*< read(iread,*) pxLt,pc >*/
- io___227.ciunit = iread;
- s_rsle(&io___227);
- do_lio(&c__5, &c__1, (char *)&pxlt, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&pc, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< read(iread,*) pRl,pTl,pRs >*/
- io___230.ciunit = iread;
- s_rsle(&io___230);
- do_lio(&c__5, &c__1, (char *)&prl, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&ptl, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&prs, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< srm(-1)=phirad >*/
- srm[0] = phirad;
-/*< srm(1)=xmuv >*/
- srm[2] = xmuv;
-/*< srm(0)=xmus >*/
- srm[1] = xmus;
-/*< >*/
- iapibrdf_(&pild, &pxlt, &prl, &ptl, &prs, &pihs, &pc, &c__1, &c__1,
- srm, srp, sbrdftmp);
-/*< do l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< sbrdf(l)=sbrdftmp(1,1) >*/
- sbrdf[l - 1] = sbrdftmp[2];
-/*< enddo >*/
- }
-/*< rm(-mu)=phirad >*/
- rm[-mu + 25] = phirad;
-/*< rm(mu)=xmuv >*/
- rm[mu + 25] = xmuv;
-/*< rm(0)=xmus >*/
- rm[25] = xmus;
-/*< >*/
- iapibrdf_(&pild, &pxlt, &prl, &ptl, &prs, &pihs, &pc, &mu, &np, rm,
- rp, brdfints);
-/*< rm(-mu)=2.*pi-phirad >*/
- rm[-mu + 25] = pi * 2. - phirad;
-/*< rm(mu)=xmus >*/
- rm[mu + 25] = xmus;
-/*< rm(0)=xmuv >*/
- rm[25] = xmuv;
-/*< >*/
- iapibrdf_(&pild, &pxlt, &prl, &ptl, &prs, &pihs, &pc, &mu, &np, rm,
- rp, brdfintv);
-/*< >*/
- iapialbe_(&pild, &pxlt, &prl, &ptl, &prs, &pihs, &pc, &albbrdf);
-/*< go to 69 >*/
- goto L69;
-/*< endif >*/
- }
-
-/* **********************************************************************c
- */
-/* brdf from Rahman model */
-/* **********************************************************************c
- */
-/*< if(ibrdf.eq.8) then >*/
- if (ibrdf == 8) {
-/*< read(iread,*) par1,par2,par3 >*/
- io___234.ciunit = iread;
- s_rsle(&io___234);
- do_lio(&c__5, &c__1, (char *)&par1, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&par2, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&par3, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< srm(-1)=phirad >*/
- srm[0] = phirad;
-/*< srm(1)=xmuv >*/
- srm[2] = xmuv;
-/*< srm(0)=xmus >*/
- srm[1] = xmus;
-/*< >*/
- rahmbrdf_(&par1, &par2, &par3, &c__1, &c__1, srm, srp, sbrdftmp);
-/*< do l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< sbrdf(l)=sbrdftmp(1,1) >*/
- sbrdf[l - 1] = sbrdftmp[2];
-/*< enddo >*/
- }
-/*< rm(-mu)=phirad >*/
- rm[-mu + 25] = phirad;
-/*< rm(mu)=xmuv >*/
- rm[mu + 25] = xmuv;
-/*< rm(0)=xmus >*/
- rm[25] = xmus;
-/*< >*/
- rahmbrdf_(&par1, &par2, &par3, &mu, &np, rm, rp, brdfints);
-/*< rm(-mu)=2.*pi-phirad >*/
- rm[-mu + 25] = pi * 2. - phirad;
-/*< rm(mu)=xmus >*/
- rm[mu + 25] = xmus;
-/*< rm(0)=xmuv >*/
- rm[25] = xmuv;
-/*< >*/
- rahmbrdf_(&par1, &par2, &par3, &mu, &np, rm, rp, brdfintv);
-/*< >*/
- rahmalbe_(&par1, &par2, &par3, &albbrdf);
-/*< go to 69 >*/
- goto L69;
-/*< endif >*/
- }
-
-/* **********************************************************************c
- */
-/* brdf from kuusk's msrm model c
-*/
-/* **********************************************************************c
- */
-/*< if(ibrdf.eq.9) then >*/
- if (ibrdf == 9) {
-/*< read(iread,*) uli,eei,thmi,sli >*/
- io___235.ciunit = iread;
- s_rsle(&io___235);
- do_lio(&c__5, &c__1, (char *)&uli, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&eei, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&thmi, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&sli, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< read(iread,*) cabi,cwi,vaii,rnci,rsl1i >*/
- io___240.ciunit = iread;
- s_rsle(&io___240);
- do_lio(&c__5, &c__1, (char *)&cabi, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&cwi, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&vaii, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&rnci, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&rsl1i, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< do l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< srm(-1)=phirad >*/
- srm[0] = phirad;
-/*< srm(1)=xmuv >*/
- srm[2] = xmuv;
-/*< srm(0)=xmus >*/
- srm[1] = xmus;
-/*< wl=.25+(l-1)*step >*/
- wl = (l - 1) * step + .25;
-/*< >*/
- akbrdf_(&eei, &thmi, &uli, &sli, &rsl1i, &wl, &rnci, &cabi, &cwi,
- &vaii, &c__1, &c__1, srm, srp, sbrdftmp);
-/*< sbrdf(l)=sbrdftmp(1,1) >*/
- sbrdf[l - 1] = sbrdftmp[2];
-/*< enddo >*/
- }
-/*< rm(-mu)=phirad >*/
- rm[-mu + 25] = phirad;
-/*< rm(mu)=xmuv >*/
- rm[mu + 25] = xmuv;
-/*< rm(0)=xmus >*/
- rm[25] = xmus;
-/*< >*/
- akbrdf_(&eei, &thmi, &uli, &sli, &rsl1i, &wlmoy, &rnci, &cabi, &cwi, &
- vaii, &mu, &np, rm, rp, brdfints);
-/*< rm(-mu)=2.*pi-phirad >*/
- rm[-mu + 25] = pi * 2. - phirad;
-/*< rm(mu)=xmus >*/
- rm[mu + 25] = xmus;
-/*< rm(0)=xmuv >*/
- rm[25] = xmuv;
-/*< >*/
- akbrdf_(&eei, &thmi, &uli, &sli, &rsl1i, &wlmoy, &rnci, &cabi, &cwi, &
- vaii, &mu, &np, rm, rp, brdfintv);
-
-/*< >*/
- akalbe_(&albbrdf);
-/* & (eei,thmi,uli,sli,rsl1i,wlmoy,rnci,cabi,cwi,vaii,albbrdf) */
-/*< go to 69 >*/
- goto L69;
-/*< endif >*/
- }
-
-/* **********************************************************************c
- */
-/* brdf from MODIS BRDF model c
-*/
-/* **********************************************************************c
- */
-/*< if(ibrdf.eq.10) then >*/
- if (ibrdf == 10) {
-/*< read(iread,*)p1,p2,p3 >*/
- io___246.ciunit = iread;
- s_rsle(&io___246);
- do_lio(&c__5, &c__1, (char *)&p1, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&p2, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&p3, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< srm(-1)=phirad >*/
- srm[0] = phirad;
-/*< srm(1)=xmuv >*/
- srm[2] = xmuv;
-/*< srm(0)=xmus >*/
- srm[1] = xmus;
-/*< >*/
- modisbrdf_(&p1, &p2, &p3, &c__1, &c__1, srm, srp, sbrdftmp);
-/*< do l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< sbrdf(l)=sbrdftmp(1,1) >*/
- sbrdf[l - 1] = sbrdftmp[2];
-/*< enddo >*/
- }
-/*< rm(-mu)=phirad >*/
- rm[-mu + 25] = phirad;
-/*< rm(mu)=xmuv >*/
- rm[mu + 25] = xmuv;
-/*< rm(0)=xmus >*/
- rm[25] = xmus;
-/*< >*/
- modisbrdf_(&p1, &p2, &p3, &mu, &np, rm, rp, brdfints);
-/*< rm(-mu)=2.*pi-phirad >*/
- rm[-mu + 25] = pi * 2. - phirad;
-/*< rm(mu)=xmus >*/
- rm[mu + 25] = xmus;
-/*< rm(0)=xmuv >*/
- rm[25] = xmuv;
-/*< >*/
- modisbrdf_(&p1, &p2, &p3, &mu, &np, rm, rp, brdfintv);
-
-/*< >*/
- modisalbe_(&p1, &p2, &p3, &albbrdf);
-/*< go to 69 >*/
- goto L69;
-/*< endif >*/
- }
-
-/*< 69 continue >*/
-L69:
-/* **********************************************************************c
- */
-/* the downward irradiance was computed for a sun at thetas and c
-*/
-/* several viewing directions (mu zenith times np azimuth). then, the c
-*/
-/* code computes the product of ldown*brdf integrated over the total c
-*/
-/* hemisphere and gives the averaged directional reflectance after the c
-*/
-/* normalization. the resulting reflectance is named robar c
-*/
-/* **********************************************************************c
- */
-/*< robar1=0. >*/
- robar1 = 0.;
-/*< xnorm1=0. >*/
- xnorm1 = 0.;
-/*< do 83 j=1,np >*/
- i__1 = np;
- for (j = 1; j <= i__1; ++j) {
-/*< rob=0. >*/
- rob = 0.;
-/*< xnor=0. >*/
- xnor = 0.;
-/*< do 84 k=1,mu-1 >*/
- i__3 = mu - 1;
- for (k = 1; k <= i__3; ++k) {
-/*< rdown=xlmus(-k,j) >*/
- rdown = xlmus[-k + j * 51 - 26];
-/*< rdir=brdfintv(k,j) >*/
- rdir = brdfintv[k + j * 51 - 26];
-/*< rob=rob+rdown*rdir*rm(k)*gb(k) >*/
- rob += rdown * rdir * rm[k + 25] * gb[k + 25];
-/*< xnor=xnor+rdown*rm(k)*gb(k) >*/
- xnor += rdown * rm[k + 25] * gb[k + 25];
-/*< 84 continue >*/
-/* L84: */
- }
-/*< robar1=robar1+rob*gp(j) >*/
- robar1 += rob * gp[j - 1];
-/*< xnorm1=xnorm1+xnor*gp(j) >*/
- xnorm1 += xnor * gp[j - 1];
-/*< 83 continue >*/
-/* L83: */
- }
-/* **********************************************************************c
- */
-/* the downward irradiance was computed for a sun at thetav and c
-*/
-/* several viewing directions (mu zenith times np azimuth). then, the c
-*/
-/* code computes the product of ldown*brdf integrated over the total c
-*/
-/* hemisphere and gives the averaged directional reflectance after the c
-*/
-/* normalization. the resulting reflectance is named robarp c
-*/
-/* **********************************************************************c
- */
-/*< robar2=0. >*/
- robar2 = 0.;
-/*< xnorm2=0. >*/
- xnorm2 = 0.;
-/*< do 85 j=1,np >*/
- i__1 = np;
- for (j = 1; j <= i__1; ++j) {
-/*< rob=0. >*/
- rob = 0.;
-/*< xnor=0. >*/
- xnor = 0.;
-/*< do 86 k=1,mu-1 >*/
- i__3 = mu - 1;
- for (k = 1; k <= i__3; ++k) {
-/*< rdown=xlmuv(-k,j) >*/
- rdown = xlmuv[-k + j * 51 - 26];
-/*< rdir=brdfints(k,j) >*/
- rdir = brdfints[k + j * 51 - 26];
-/*< rob=rob+rdown*rdir*rm(k)*gb(k) >*/
- rob += rdown * rdir * rm[k + 25] * gb[k + 25];
-/*< xnor=xnor+rdown*rm(k)*gb(k) >*/
- xnor += rdown * rm[k + 25] * gb[k + 25];
-/*< 86 continue >*/
-/* L86: */
- }
-/*< robar2=robar2+rob*gp(j) >*/
- robar2 += rob * gp[j - 1];
-/*< xnorm2=xnorm2+xnor*gp(j) >*/
- xnorm2 += xnor * gp[j - 1];
-/*< 85 continue >*/
-/* L85: */
- }
-/* robard is assumed equal to albbrdf */
-/* print 301,brdfints(mu,1),robar1,xnorm1, */
-/* s robar2,xnorm2,albbrdf */
-/* print 301,robar1/xnorm1,robar2/xnorm2 */
-/* print 301,betal(0)/3,pizmoy */
-/* 301 format(6(f10.4,2x)) */
-/* 501 format(5(i10,2x)) */
-/*< do 335 l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< rocl(l)=sbrdf(l) >*/
- rocl[l - 1] = sbrdf[l - 1];
-/*< roel(l)=sbrdf(l) >*/
- roel[l - 1] = sbrdf[l - 1];
-/*< robar(l)=robar1/xnorm1 >*/
- robar[l - 1] = robar1 / xnorm1;
-/*< if (idatmp.ne.0) then >*/
- if (idatmp != 0) {
-/*< robarp(l)=robar2/xnorm2 >*/
- robarp[l - 1] = robar2 / xnorm2;
-/*< else >*/
- } else {
-/*< robarp(l)=0. >*/
- robarp[l - 1] = 0.;
-/*< xnorm2=1. >*/
- xnorm2 = 1.;
-/*< robar2=0. >*/
- robar2 = 0.;
-/*< endif >*/
- }
-/*< robard(l)=albbrdf >*/
- robard[l - 1] = albbrdf;
-/*< 335 continue >*/
-/* L335: */
- }
-/*< go to 34 >*/
- goto L34;
-/* **********************************************************************c
- */
-/* uniform surface with lambertian conditions c
-*/
-/* **********************************************************************c
- */
-/*< 21 read(iread,*) igroun >*/
-L21:
- io___261.ciunit = iread;
- s_rsle(&io___261);
- do_lio(&c__3, &c__1, (char *)&igroun, (ftnlen)sizeof(integer));
- e_rsle();
-/*< if(igroun) 29,32,33 >*/
- if (igroun < 0) {
- goto L29;
- } else if (igroun == 0) {
- goto L32;
- } else {
- goto L33;
- }
-/*< 29 read(iread,*) nwlinf,nwlsup >*/
-L29:
- io___263.ciunit = iread;
- s_rsle(&io___263);
- do_lio(&c__5, &c__1, (char *)&nwlinf, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&nwlsup, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< niinf=(nwlinf-.25)/0.0025+1.5 >*/
- niinf = (integer) ((nwlinf - .25) / .0025 + 1.5);
-/*< nisup=(nwlsup-.25)/0.0025+1.5 >*/
- nisup = (integer) ((nwlsup - .25) / .0025 + 1.5);
-/*< read(iread,*) (rocl(i),i=niinf,nisup) >*/
- io___268.ciunit = iread;
- s_rsle(&io___268);
- i__1 = nisup;
- for (i__ = niinf; i__ <= i__1; ++i__) {
- do_lio(&c__5, &c__1, (char *)&rocl[i__ - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< goto 36 >*/
- goto L36;
-/*< 32 read(iread,*) ro >*/
-L32:
- io___269.ciunit = iread;
- s_rsle(&io___269);
- do_lio(&c__5, &c__1, (char *)&ro, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< do 35 l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< rocl(l)=ro >*/
- rocl[l - 1] = ro;
-/*< 35 continue >*/
-/* L35: */
- }
-/*< goto 36 >*/
- goto L36;
-/*< 33 if(igroun.eq.1) call vegeta(rocl) >*/
-L33:
- if (igroun == 1) {
- vegeta_(rocl);
- }
-/*< if(igroun.eq.2) call clearw(rocl) >*/
- if (igroun == 2) {
- clearw_(rocl);
- }
-/*< if(igroun.eq.3) call sand (rocl) >*/
- if (igroun == 3) {
- sand_(rocl);
- }
-/*< if(igroun.eq.4) call lakew (rocl) >*/
- if (igroun == 4) {
- lakew_(rocl);
- }
-/*< 36 do 39 l=iinf,isup >*/
-L36:
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< roel(l)=rocl(l) >*/
- roel[l - 1] = rocl[l - 1];
-/*< 39 continue >*/
-/* L39: */
- }
-/*< go to 34 >*/
- goto L34;
-/* **********************************************************************c
- */
-/* non-uniform conditions with lambertian conditions c
-*/
-/* **********************************************************************c
- */
-/*< 31 read(iread,*) igrou1,igrou2,rad >*/
-L31:
- io___271.ciunit = iread;
- s_rsle(&io___271);
- do_lio(&c__3, &c__1, (char *)&igrou1, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&igrou2, (ftnlen)sizeof(integer));
- do_lio(&c__5, &c__1, (char *)&rad, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< if(igrou1) 59,60,63 >*/
- if (igrou1 < 0) {
- goto L59;
- } else if (igrou1 == 0) {
- goto L60;
- } else {
- goto L63;
- }
-/*< 59 read(iread,*) (rocl(i),i=iinf,isup) >*/
-L59:
- io___274.ciunit = iread;
- s_rsle(&io___274);
- i__1 = isup;
- for (i__ = iinf; i__ <= i__1; ++i__) {
- do_lio(&c__5, &c__1, (char *)&rocl[i__ - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< goto 61 >*/
- goto L61;
-/*< 60 read(iread,*) roc >*/
-L60:
- io___275.ciunit = iread;
- s_rsle(&io___275);
- do_lio(&c__5, &c__1, (char *)&roc, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< do 64 l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< rocl(l)=roc >*/
- rocl[l - 1] = roc;
-/*< 64 continue >*/
-/* L64: */
- }
-/*< go to 61 >*/
- goto L61;
-/*< 63 if(igrou1.eq.1) call vegeta(rocl) >*/
-L63:
- if (igrou1 == 1) {
- vegeta_(rocl);
- }
-/*< if(igrou1.eq.2) call clearw(rocl) >*/
- if (igrou1 == 2) {
- clearw_(rocl);
- }
-/*< if(igrou1.eq.3) call sand (rocl) >*/
- if (igrou1 == 3) {
- sand_(rocl);
- }
-/*< if(igrou1.eq.4) call lakew (rocl) >*/
- if (igrou1 == 4) {
- lakew_(rocl);
- }
-/*< 61 if(igrou2) 66,62,65 >*/
-L61:
- if (igrou2 < 0) {
- goto L66;
- } else if (igrou2 == 0) {
- goto L62;
- } else {
- goto L65;
- }
-/*< 66 read(iread,*) (roel(i),i=iinf,isup) >*/
-L66:
- io___277.ciunit = iread;
- s_rsle(&io___277);
- i__1 = isup;
- for (i__ = iinf; i__ <= i__1; ++i__) {
- do_lio(&c__5, &c__1, (char *)&roel[i__ - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< goto 34 >*/
- goto L34;
-/*< 62 read(iread,*) roe >*/
-L62:
- io___278.ciunit = iread;
- s_rsle(&io___278);
- do_lio(&c__5, &c__1, (char *)&roe, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< do 67 l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< roel(l)=roe >*/
- roel[l - 1] = roe;
-/*< 67 continue >*/
-/* L67: */
- }
-/*< go to 34 >*/
- goto L34;
-/*< 65 if(igrou2.eq.1) call vegeta(roel) >*/
-L65:
- if (igrou2 == 1) {
- vegeta_(roel);
- }
-/*< if(igrou2.eq.2) call clearw(roel) >*/
- if (igrou2 == 2) {
- clearw_(roel);
- }
-/*< if(igrou2.eq.3) call sand (roel) >*/
- if (igrou2 == 3) {
- sand_(roel);
- }
-/*< if(igrou2.eq.4) call lakew (roel) >*/
- if (igrou2 == 4) {
- lakew_(roel);
- }
-/*< 34 continue >*/
-L34:
-/* **********************************************************************c
- */
-/* c
-*/
-/* irapp that input parameter allows to activate atmospheric c
-*/
-/* correction mode c
-*/
-/* c
-*/
-/* -1: No atmospheric Correction is performed c */
-/* 0,1: Atmospheric Correction with Lambertian assumption c */
-/* and with the assumption that c
-*/
-/* target BRDF is proportional to the input BRDF (see c */
-/* case idirec=1) c */
-/* c
-*/
-/* rapp parameter that contains the reflectance/radiance c
-*/
-/* to be corrected. c
-*/
-/* c
-*/
-/* if rapp >0. : the code retrieve the value of the c
-*/
-/* surface reflectance (rog) that will produce a radiance c
-*/
-/* equal to rapp [w/m2/str/mic] in the atmospheric c
-*/
-/* conditions described by user before c
-*/
-/* c
-*/
-/* if -1.<rapp<0. : the code retrieve the value of the c
-*/
-/* surface reflectance (rog) value that will produce a c
-*/
-/* 'reflectance' (radiance*pi/(mus*es)) equal to -rapp c
-*/
-/* where mus is the cosine of solar zenith angle, c
-*/
-/* es is the solar constant integrated upon the c
-*/
-/* filter response and taking account for earth-solar c
-*/
-/* distance, es is in [w/m2/sr/mic]. c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< read(iread,*) irapp >*/
- io___280.ciunit = iread;
- s_rsle(&io___280);
- do_lio(&c__3, &c__1, (char *)&irapp, (ftnlen)sizeof(integer));
- e_rsle();
-/*< if (irapp.ge.0) then >*/
- if (irapp >= 0) {
-/*< irapp=1 >*/
- irapp = 1;
-/*< read(iread,*) rapp >*/
- io___282.ciunit = iread;
- s_rsle(&io___282);
- do_lio(&c__5, &c__1, (char *)&rapp, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< endif >*/
- }
-/* **********************************************************************c
- */
-/* c
-*/
-/* Some optional input for polarization c
-*/
-/* c
-*/
-/* you can input polarization definition through irop: c
-*/
-/* 1 enter ropq and ropu (stokes parameter for polarized c
-*/
-/* surface reflectance c
-*/
-/* 2 enter pveg (% vegetation) for use in Nadal,Breon model c
-*/
-/* 3 enter wspd for sunglint polarization (sunglint) c
-*/
-/* anything else will result in assuming than surface does not c
-*/
-/* polarized. c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* ilut=0 */
-/* read(iread,*,end=37) ilut */
-/*< irop=0 >*/
- irop = 0;
-/*< read(iread,*,end=37) irop >*/
- io___285.ciunit = iread;
- i__1 = s_rsle(&io___285);
- if (i__1 != 0) {
- goto L37;
- }
- i__1 = do_lio(&c__3, &c__1, (char *)&irop, (ftnlen)sizeof(integer));
- if (i__1 != 0) {
- goto L37;
- }
- i__1 = e_rsle();
- if (i__1 != 0) {
- goto L37;
- }
-/*< if (irop.eq.1) then >*/
- if (irop == 1) {
-/*< read(iread,*) ropq,ropu >*/
- io___286.ciunit = iread;
- s_rsle(&io___286);
- do_lio(&c__5, &c__1, (char *)&ropq, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&ropu, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< endif >*/
- }
-/*< if (irop.eq.2) then >*/
- if (irop == 2) {
-/*< read(iread,*) pveg >*/
- io___289.ciunit = iread;
- s_rsle(&io___289);
- do_lio(&c__5, &c__1, (char *)&pveg, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< call polnad(asol,avis,phi,pveg,ropq,ropu) >*/
- polnad_(&asol, &avis, &phi, &pveg, &ropq, &ropu);
-/*< endif >*/
- }
-/*< if (irop.eq.3) then >*/
- if (irop == 3) {
-/*< read(iread,*) wspd,azw >*/
- io___291.ciunit = iread;
- s_rsle(&io___291);
- do_lio(&c__5, &c__1, (char *)&wspd, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&azw, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< razw=phi0-azw >*/
- razw = phi0 - azw;
-/*< call polglit(asol,avis,phi,wspd,razw,ropq,ropu) >*/
- polglit_(&asol, &avis, &phi, &wspd, &razw, &ropq, &ropu);
-/*< endif >*/
- }
-/*< 37 if ((irop.lt.1).or.(irop.gt.3)) then >*/
-L37:
- if (irop < 1 || irop > 3) {
-/*< if (idirec.eq.0) then >*/
- if (idirec == 0) {
-/*< ropq=0.000 >*/
- ropq = 0.;
-/*< ropu=0.000 >*/
- ropu = 0.;
-/*< else >*/
- } else {
-/*< if (ibrdf.eq.6) then >*/
- if (ibrdf == 6) {
-/*< irop=3 >*/
- irop = 3;
-/*< wspd=pws >*/
- wspd = pws;
-/*< azw=phi_wind >*/
- azw = phi_wind__;
-/*< razw=phi0-azw >*/
- razw = phi0 - azw;
-/*< phi=phi0-phiv >*/
- phi = phi0 - phiv;
-/*< call polglit(asol,avis,phi,wspd,razw,ropq,ropu) >*/
- polglit_(&asol, &avis, &phi, &wspd, &razw, &ropq, &ropu);
-/*< endif >*/
- }
-/*< if (ibrdf.eq.9) then >*/
- if (ibrdf == 9) {
-/*< irop=2 >*/
- irop = 2;
-/*< pveg=ul >*/
- pveg = ul;
-/*< if (pveg.gt.1.) pveg=1 >*/
- if (pveg > 1.) {
- pveg = 1.;
- }
-/*< call polnad(asol,avis,phi,pveg,ropq,ropu) >*/
- polnad_(&asol, &avis, &phi, &pveg, &ropq, &ropu);
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< endif >*/
- }
-/* write(6,*) "Surface polarization reflectance, Q,U,rop ", */
-/* s ropq,ropu,sqrt(ropq*ropq+ropu*ropu) */
-/* **********************************************************************c
- */
-/* **********************************************************************c
- */
-/* c
-*/
-/* example of input cards c
-*/
-/* c
-*/
-/* 4 (avhrr observation) c
-*/
-/* 7 6 10.1 600 0.0 10.0 (month,day,htu,cn,longan,han) c
-*/
-/* 8 (user's model) c
-*/
-/* 3.0 0.35 ( uh2o(g/cm2) ,uo3(cm-atm) ) c
-*/
-/* 4 (aerosols model) c
-*/
-/* 0.25 0.25 0.25 0.25 ( % of:dust-like,water-sol,oceanic,soot)c
-*/
-/* 23.0 (visibility (km) ) c
-*/
-/* -0.5 (target at 0.5km high) c
-*/
-/* -1000 (sensor aboard a satellite) c
-*/
-/* 6 (avhrr 2 (noaa 8) band) c
-*/
-/* 1 (ground type,i.e. non homogeneous) c
-*/
-/* 2 1 0.50 (target,env.,radius(km) ) c
-*/
-/* -0.10 (atmospheric correction mode for a TOA c
-*/
-/* reflectance equal to 0.10) c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* **********************************************************************c
- */
-/* print of initial conditions c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* ---- geometrical conditions ---- */
-/*< write(iwr, 98) >*/
- io___296.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___296);
- e_wsfe();
-/*< write(iwr, etiq1(igeom+1)) >*/
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = etiq1 + igeom * 60;
- s_wsfe(&ci__1);
- e_wsfe();
-/*< if(igeom.eq.0) then >*/
- if (igeom == 0) {
-/*< write(iwr, 1401) >*/
- io___297.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___297);
- e_wsfe();
-/*< write(iwr, 103)month,jday >*/
- io___298.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___298);
- do_fio(&c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_fio(&c__1, (char *)&jday, (ftnlen)sizeof(integer));
- e_wsfe();
-/*< endif >*/
- }
-/*< if(igeom.ne.0) write(iwr, 101)month,jday,tu,xlat,xlon >*/
- if (igeom != 0) {
- io___299.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___299);
- do_fio(&c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_fio(&c__1, (char *)&jday, (ftnlen)sizeof(integer));
- do_fio(&c__1, (char *)&tu, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xlat, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xlon, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< write(iwr, 102)asol,phi0 >*/
- io___300.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___300);
- do_fio(&c__1, (char *)&asol, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&phi0, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 1110)avis,phiv,adif,phi >*/
- io___301.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___301);
- do_fio(&c__1, (char *)&avis, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&phiv, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&adif, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&phi, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/* --- atmospheric model ---- */
-/*< write(iwr, 1119) >*/
- io___302.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___302);
- e_wsfe();
-/*< if(idatm-7)226,227,228 >*/
- if ((i__1 = idatm - 7) < 0) {
- goto L226;
- } else if (i__1 == 0) {
- goto L227;
- } else {
- goto L228;
- }
-/*< 228 write(iwr, 1281)uw,uo3 >*/
-L228:
- io___303.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___303);
- do_fio(&c__1, (char *)&uw, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&uo3, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< goto 219 >*/
- goto L219;
-/*< 227 write(iwr, 1272) >*/
-L227:
- io___304.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___304);
- e_wsfe();
-/*< do 229 i=1,34 >*/
- for (i__ = 1; i__ <= 34; ++i__) {
-/*< write(iwr, 1271)z(i),p(i),t(i),wh(i),wo(i) >*/
- io___305.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___305);
- do_fio(&c__1, (char *)&sixs_atm__1.z__[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&sixs_atm__1.p[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&sixs_atm__1.t[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&sixs_atm__1.wh[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&sixs_atm__1.wo[i__ - 1], (ftnlen)sizeof(
- doublereal));
- e_wsfe();
-/*< 229 continue >*/
-/* L229: */
- }
-/*< goto 219 >*/
- goto L219;
-/*< 226 write(iwr, 1261)atmid(idatm+1) >*/
-L226:
- io___306.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___306);
- do_fio(&c__1, atmid + idatm * 51, 51L);
- e_wsfe();
-/* --- aerosols model (type) ---- */
-/*< 219 write(iwr,5550) >*/
-L219:
- io___307.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___307);
- e_wsfe();
-/*< if(iaer.eq.0) then >*/
- if (iaer == 0) {
-/*< write(iwr, 5554) >*/
- io___308.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___308);
- e_wsfe();
-/*< goto 1112 >*/
- goto L1112;
-/*< endif >*/
- }
-/*< if (iaer_prof.eq.1) then >*/
- if (iaer_prof__ == 1) {
-/*< aer_model(1)="Continental" >*/
- s_copy(aer_model__, "Continental", 50L, 11L);
-/*< aer_model(2)=" Maritime" >*/
- s_copy(aer_model__ + 50, " Maritime", 50L, 9L);
-/*< aer_model(3)=" Urban" >*/
- s_copy(aer_model__ + 100, " Urban", 50L, 8L);
-/*< aer_model(4)="user-defined" >*/
- s_copy(aer_model__ + 150, "user-defined", 50L, 12L);
-/*< aer_model(5)=" Desert" >*/
- s_copy(aer_model__ + 200, " Desert", 50L, 8L);
-/*< aer_model(6)="Biomass Burning" >*/
- s_copy(aer_model__ + 250, "Biomass Burning", 50L, 15L);
-/*< aer_model(7)="Stratospheric" >*/
- s_copy(aer_model__ + 300, "Stratospheric", 50L, 13L);
-/*< aer_model(8)="user-defined" >*/
- s_copy(aer_model__ + 350, "user-defined", 50L, 12L);
-/*< aer_model(9)="user-defined" >*/
- s_copy(aer_model__ + 400, "user-defined", 50L, 12L);
-/*< aer_model(10)="user-defined" >*/
- s_copy(aer_model__ + 450, "user-defined", 50L, 12L);
-/*< aer_model(11)="Sun Photometer" >*/
- s_copy(aer_model__ + 500, "Sun Photometer", 50L, 14L);
-/*< aer_model(12)="user-defined" >*/
- s_copy(aer_model__ + 550, "user-defined", 50L, 12L);
-/*< num_z=num_z-1 >*/
- --aeroprof_1.num_z__;
-/*< write(6,5551) num_z >*/
- s_wsfe(&io___310);
- do_fio(&c__1, (char *)&aeroprof_1.num_z__, (ftnlen)sizeof(integer));
- e_wsfe();
-/*< write(6,5552) >*/
- s_wsfe(&io___311);
- e_wsfe();
-/*< do i=1,num_z >*/
- i__1 = aeroprof_1.num_z__;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< >*/
- s_wsfe(&io___312);
- do_fio(&c__1, (char *)&i__, (ftnlen)sizeof(integer));
- do_fio(&c__1, (char *)&height_z__[aeroprof_1.num_z__ + 1 - i__], (
- ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&aeroprof_1.taer55_z__[aeroprof_1.num_z__ +
- 1 - i__], (ftnlen)sizeof(doublereal));
- do_fio(&c__1, aer_model__ + (iaer - 1) * 50, 50L);
- e_wsfe();
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< if (iaer_prof.eq.0) then >*/
- if (iaer_prof__ == 0) {
-/*< aer_model(1)="Continental aerosol model" >*/
- s_copy(aer_model__, "Continental aerosol model", 50L, 25L);
-/*< aer_model(2)="Maritime aerosol model" >*/
- s_copy(aer_model__ + 50, "Maritime aerosol model", 50L, 22L);
-/*< aer_model(3)="Urban aerosol model" >*/
- s_copy(aer_model__ + 100, "Urban aerosol model", 50L, 19L);
-/*< aer_model(5)="Desert aerosol model" >*/
- s_copy(aer_model__ + 200, "Desert aerosol model", 50L, 20L);
-/*< aer_model(6)="Biomass Burning aerosol model" >*/
- s_copy(aer_model__ + 250, "Biomass Burning aerosol model", 50L, 29L);
-/*< aer_model(7)="Stratospheric aerosol model" >*/
- s_copy(aer_model__ + 300, "Stratospheric aerosol model", 50L, 27L);
-/*< aer_model(11)="Sun Photometer aerosol model" >*/
- s_copy(aer_model__ + 500, "Sun Photometer aerosol model", 50L, 28L);
-/*< if (iaer.ge.1.and.iaer.lt.4) write (iwr,132) aer_model(iaer) >*/
- if (iaer >= 1 && iaer < 4) {
- io___313.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___313);
- do_fio(&c__1, aer_model__ + (iaer - 1) * 50, 50L);
- e_wsfe();
- }
-/*< if (iaer.ge.5.and.iaer.le.7) write (iwr,132) aer_model(iaer) >*/
- if (iaer >= 5 && iaer <= 7) {
- io___314.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___314);
- do_fio(&c__1, aer_model__ + (iaer - 1) * 50, 50L);
- e_wsfe();
- }
-/*< if (iaer.eq.11) write(iwr,132) aer_model(iaer) >*/
- if (iaer == 11) {
- io___315.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___315);
- do_fio(&c__1, aer_model__ + (iaer - 1) * 50, 50L);
- e_wsfe();
- }
-/*< endif >*/
- }
-/*< if (iaer.eq.4)write(iwr,133)(c(i),i=1,4) >*/
- if (iaer == 4) {
- io___316.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___316);
- for (i__ = 1; i__ <= 4; ++i__) {
- do_fio(&c__1, (char *)&c__[i__ - 1], (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
- }
-/*< if (iaer.eq.8) then >*/
- if (iaer == 8) {
-/*< write(6,134) icp >*/
- s_wsfe(&io___317);
- do_fio(&c__1, (char *)&mie_in__1.icp, (ftnlen)sizeof(integer));
- e_wsfe();
-/*< do i=1,icp >*/
- i__1 = mie_in__1.icp;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< write(iwr,135)x1(i),x2(i),cij_out(i) >*/
- io___318.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___318);
- do_fio(&c__1, (char *)&mie_in__1.x1[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&mie_in__1.x2[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&cij_out__[i__ - 1], (ftnlen)sizeof(
- doublereal));
- e_wsfe();
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< if (iaer.eq.9) write(iwr,136)x1(1),x2(1),x3(1) >*/
- if (iaer == 9) {
- io___319.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___319);
- do_fio(&c__1, (char *)&mie_in__1.x1[0], (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&mie_in__1.x2[0], (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&mie_in__1.x3[0], (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if (iaer.eq.10) write(iwr,137)x1(1) >*/
- if (iaer == 10) {
- io___320.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___320);
- do_fio(&c__1, (char *)&mie_in__1.x1[0], (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if (iaerp.eq.1)write(iwr,139)FILE2(1:i2) >*/
- if (iaerp == 1) {
- io___321.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___321);
- do_fio(&c__1, file2, i2);
- e_wsfe();
- }
-/*< if (iaer.eq.12)write(iwr,138)FILE2(1:i2) >*/
- if (iaer == 12) {
- io___322.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___322);
- do_fio(&c__1, file2, i2);
- e_wsfe();
- }
-/* --- aerosol model (concentration) ---- */
-/* --- for the exponential profile ---- */
-/*< if (iaer_prof.eq.0) then >*/
- if (iaer_prof__ == 0) {
-/*< if(abs(v).le.xacc) write(iwr, 140)taer55 >*/
- if (abs(v) <= sixs_test__1.xacc) {
- io___323.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___323);
- do_fio(&c__1, (char *)&taer55, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if(abs(v).gt.xacc) write(iwr, 141)v,taer55 >*/
- if (abs(v) > sixs_test__1.xacc) {
- io___324.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___324);
- do_fio(&c__1, (char *)&v, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&taer55, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< endif >*/
- }
-/*< 1112 write(6,5555) >*/
-L1112:
- s_wsfe(&io___325);
- e_wsfe();
-/* --- spectral condition ---- */
-/*< write(iwr, 148) >*/
- io___326.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___326);
- e_wsfe();
-/*< if(iwave.eq.-2) write(iwr, 1510) nsat(1),wlinf,wlsup >*/
- if (iwave == -2) {
- io___327.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___327);
- do_fio(&c__1, nsat, 17L);
- do_fio(&c__1, (char *)&sixs_ffu__1.wlinf, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sixs_ffu__1.wlsup, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if(iwave.eq.-1) write(iwr, 149) wl >*/
- if (iwave == -1) {
- io___328.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___328);
- do_fio(&c__1, (char *)&wl, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if(iwave.ge.0) write(iwr, 1510) nsat(iwave+1), wlinf,wlsup >*/
- if (iwave >= 0) {
- io___329.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___329);
- do_fio(&c__1, nsat + iwave * 17, 17L);
- do_fio(&c__1, (char *)&sixs_ffu__1.wlinf, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sixs_ffu__1.wlsup, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/* ---- atmospheric polarization requested */
-/*< if (ipol.ne.0)then >*/
- if (ipol != 0) {
-/*< write(iwr, 142) >*/
- io___330.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___330);
- e_wsfe();
-/*< if (irop.eq.1) write(iwr,146) ropq,ropq >*/
- if (irop == 1) {
- io___331.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___331);
- do_fio(&c__1, (char *)&ropq, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&ropq, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if (irop.eq.2) write(iwr,144) pveg*100.0 >*/
- if (irop == 2) {
- io___332.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___332);
- d__1 = pveg * 100.;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if (irop.eq.3) write(iwr,145) wspd,azw >*/
- if (irop == 3) {
- io___333.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___333);
- do_fio(&c__1, (char *)&wspd, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&azw, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< w >*/
- io___334.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___334);
- do_fio(&c__1, (char *)&ropq, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&ropu, (ftnlen)sizeof(doublereal));
- d__1 = sqrt(ropq * ropq + ropu * ropu);
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- d__2 = atan2(ropu, ropq) * 180. / 3.1415927 / 2.;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< endif >*/
- }
-/* --- ground reflectance (type and spectral variation) ---- */
-/*< if(idirec.eq.0) then >*/
- if (idirec == 0) {
-/*< rocave=0. >*/
- rocave = 0.;
-/*< roeave=0. >*/
- roeave = 0.;
-/*< seb=0. >*/
- seb = 0.;
-/*< do 264 i=iinf,isup >*/
- i__1 = isup;
- for (i__ = iinf; i__ <= i__1; ++i__) {
-/*< sbor=s(i) >*/
- sbor = sixs_ffu__1.s[i__ - 1];
-/*< if(i.eq.iinf.or.i.eq.isup) sbor=sbor*0.5 >*/
- if (i__ == iinf || i__ == isup) {
- sbor *= .5;
- }
-/*< wl=.25+(i-1)*step >*/
- wl = (i__ - 1) * step + .25;
-/*< >*/
- solirr_(&wl, &swl);
-/*< swl=swl*dsol >*/
- swl *= dsol;
-/*< rocave=rocave+rocl(i)*sbor*swl*step >*/
- rocave += rocl[i__ - 1] * sbor * swl * step;
-/*< roeave=roeave+roel(i)*sbor*swl*step >*/
- roeave += roel[i__ - 1] * sbor * swl * step;
-/*< seb=seb+sbor*swl*step >*/
- seb += sbor * swl * step;
-/*< 264 continue >*/
-/* L264: */
- }
-/*< rocave=rocave/seb >*/
- rocave /= seb;
-/*< roeave=roeave/seb >*/
- roeave /= seb;
-/*< isort=0 >*/
- isort = 0;
-/*< ro=rocave >*/
- ro = rocave;
-/*< if(inhomo.eq.0) goto 260 >*/
- if (inhomo == 0) {
- goto L260;
- }
-/*< write(iwr, 169)rad >*/
- io___341.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___341);
- do_fio(&c__1, (char *)&rad, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< igroun=igrou1 >*/
- igroun = igrou1;
-/*< ro=rocave >*/
- ro = rocave;
-/*< write(iwr, 170) >*/
- io___342.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___342);
- e_wsfe();
-/*< goto 261 >*/
- goto L261;
-/*< 262 igroun=igrou2 >*/
-L262:
- igroun = igrou2;
-/*< ro=roeave >*/
- ro = roeave;
-/*< write(iwr, 171) >*/
- io___343.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___343);
- e_wsfe();
-/*< goto 261 >*/
- goto L261;
-/*< 260 write(iwr, 168) >*/
-L260:
- io___344.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___344);
- e_wsfe();
-/*< 261 if (igroun.gt.0)write(iwr, reflec(igroun+3))ro >*/
-L261:
- if (igroun > 0) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = reflec + (igroun + 2) * 71;
- s_wsfe(&ci__1);
- do_fio(&c__1, (char *)&ro, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if (igroun.gt.0)goto 158 >*/
- if (igroun > 0) {
- goto L158;
- }
-/*< if(igroun.eq.-1) write(iwr, reflec(1))ro >*/
- if (igroun == -1) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = reflec;
- s_wsfe(&ci__1);
- do_fio(&c__1, (char *)&ro, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if(igroun.eq.-1) goto 158 >*/
- if (igroun == -1) {
- goto L158;
- }
-/*< if(iwave.eq.-1) write(iwr, reflec(2))ro >*/
- if (iwave == -1) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = reflec + 71;
- s_wsfe(&ci__1);
- do_fio(&c__1, (char *)&ro, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if(iwave.ne.-1) write(iwr, reflec(3))ro >*/
- if (iwave != -1) {
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = reflec + 142;
- s_wsfe(&ci__1);
- do_fio(&c__1, (char *)&ro, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< 158 isort=isort+1 >*/
-L158:
- ++isort;
-/*< if(inhomo.eq.0) goto 999 >*/
- if (inhomo == 0) {
- goto L999;
- }
-/*< if(isort.eq.2) goto 999 >*/
- if (isort == 2) {
- goto L999;
- }
-/*< goto 262 >*/
- goto L262;
-/*< else >*/
- } else {
-/*< write(iwr, 168) >*/
- io___345.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___345);
- e_wsfe();
-/*< if(idirec.eq.1) then >*/
- if (idirec == 1) {
-/*< rocave=0. >*/
- rocave = 0.;
-/*< rfoamave=0. >*/
- rfoamave = 0.;
-/*< rwatave=0. >*/
- rwatave = 0.;
-/*< rglitave=0. >*/
- rglitave = 0.;
-/*< seb=0. >*/
- seb = 0.;
-/*< do i=iinf,isup >*/
- i__1 = isup;
- for (i__ = iinf; i__ <= i__1; ++i__) {
-/*< sbor=s(i) >*/
- sbor = sixs_ffu__1.s[i__ - 1];
-/*< if(i.eq.iinf.or.i.eq.isup) sbor=sbor*0.5 >*/
- if (i__ == iinf || i__ == isup) {
- sbor *= .5;
- }
-/*< wl=.25+(i-1)*step >*/
- wl = (i__ - 1) * step + .25;
-/*< >*/
- solirr_(&wl, &swl);
-/*< swl=swl*dsol >*/
- swl *= dsol;
-/*< rocave=rocave+rocl(i)*sbor*swl*step >*/
- rocave += rocl[i__ - 1] * sbor * swl * step;
-/*< rfoamave=rfoamave+rfoaml(i)*sbor*swl*step >*/
- rfoamave += rfoaml[i__ - 1] * sbor * swl * step;
-/*< rwatave=rwatave+rwatl(i)*sbor*swl*step >*/
- rwatave += rwatl[i__ - 1] * sbor * swl * step;
-/*< rglitave=rglitave+rglitl(i)*sbor*swl*step >*/
- rglitave += rglitl[i__ - 1] * sbor * swl * step;
-/*< seb=seb+sbor*swl*step >*/
- seb += sbor * swl * step;
-/*< enddo >*/
- }
-/*< rocave=rocave/seb >*/
- rocave /= seb;
-/*< rfoamave=rfoamave/seb >*/
- rfoamave /= seb;
-/*< rwatave=rwatave/seb >*/
- rwatave /= seb;
-/*< rglitave=rglitave/seb >*/
- rglitave /= seb;
-/*< >*/
- switch (ibrdf + 1) {
- case 1: goto L2000;
- case 2: goto L2001;
- case 3: goto L2002;
- case 4: goto L2003;
- case 5: goto L2004;
- case 6: goto L2005;
- case 7: goto L2006;
- case 8: goto L2007;
- case 9: goto L2008;
- case 10: goto L2010;
- case 11: goto L2011;
- }
-/*< 2000 write(iwr, 190) >*/
-L2000:
- io___349.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___349);
- e_wsfe();
-/*< >*/
- io___350.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___350);
- do_fio(&c__1, (char *)&rocave, (ftnlen)sizeof(doublereal));
- d__1 = robar1 / xnorm1;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- d__2 = robar2 / xnorm2;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&albbrdf, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< goto 2009 >*/
- goto L2009;
-/*< 2001 write(iwr, 191)par1,par2,par3,par4 >*/
-L2001:
- io___351.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___351);
- do_fio(&c__1, (char *)&par1, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&par2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&par3, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&par4, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< >*/
- io___352.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___352);
- do_fio(&c__1, (char *)&rocave, (ftnlen)sizeof(doublereal));
- d__1 = robar1 / xnorm1;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- d__2 = robar2 / xnorm2;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&albbrdf, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< goto 2009 >*/
- goto L2009;
-/*< 2002 write(iwr, 192)optics(1),struct(1),struct(2) >*/
-L2002:
- io___353.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___353);
- do_fio(&c__1, (char *)&optics[0], (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&struct__[0], (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&struct__[1], (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< if (options(5).eq.0) write(iwr, 200) >*/
- if (options[4] == 0) {
- io___354.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___354);
- e_wsfe();
- }
-/*< if (options(5).eq.1) write(iwr, 201) >*/
- if (options[4] == 1) {
- io___355.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___355);
- e_wsfe();
- }
-/*< if (options(3).eq.0) write(iwr, 197)struct(3),struct(4) >*/
- if (options[2] == 0) {
- io___356.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___356);
- do_fio(&c__1, (char *)&struct__[2], (ftnlen)sizeof(doublereal)
- );
- do_fio(&c__1, (char *)&struct__[3], (ftnlen)sizeof(doublereal)
- );
- e_wsfe();
- }
-/*< if (options(3).eq.1) write(iwr, 198)struct(3) >*/
- if (options[2] == 1) {
- io___357.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___357);
- do_fio(&c__1, (char *)&struct__[2], (ftnlen)sizeof(doublereal)
- );
- e_wsfe();
- }
-/*< if (options(3).eq.2) write(iwr, 199)struct(3) >*/
- if (options[2] == 2) {
- io___358.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___358);
- do_fio(&c__1, (char *)&struct__[2], (ftnlen)sizeof(doublereal)
- );
- e_wsfe();
- }
-/*< if (options(4).eq.0) write(iwr, 202) >*/
- if (options[3] == 0) {
- io___359.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___359);
- e_wsfe();
- }
-/*< if (options(4).eq.1) write(iwr, 203)optics(2) >*/
- if (options[3] == 1) {
- io___360.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___360);
- do_fio(&c__1, (char *)&optics[1], (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if (options(4).eq.2) write(iwr, 204)optics(2),optics(3) >*/
- if (options[3] == 2) {
- io___361.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___361);
- do_fio(&c__1, (char *)&optics[1], (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&optics[2], (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< >*/
- io___362.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___362);
- do_fio(&c__1, (char *)&rocave, (ftnlen)sizeof(doublereal));
- d__1 = robar1 / xnorm1;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- d__2 = robar2 / xnorm2;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&albbrdf, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< goto 2009 >*/
- goto L2009;
-/*< 2003 write(iwr, 193)par1,par2,par3 >*/
-L2003:
- io___363.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___363);
- do_fio(&c__1, (char *)&par1, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&par2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&par3, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< >*/
- io___364.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___364);
- do_fio(&c__1, (char *)&rocave, (ftnlen)sizeof(doublereal));
- d__1 = robar1 / xnorm1;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- d__2 = robar2 / xnorm2;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&albbrdf, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< goto 2009 >*/
- goto L2009;
-/*< 2004 write(iwr, 194)par1,par2,par3,par4 >*/
-L2004:
- io___365.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___365);
- do_fio(&c__1, (char *)&par1, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&par2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&par3, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&par4, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< >*/
- io___366.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___366);
- do_fio(&c__1, (char *)&rocave, (ftnlen)sizeof(doublereal));
- d__1 = robar1 / xnorm1;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- d__2 = robar2 / xnorm2;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&albbrdf, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< goto 2009 >*/
- goto L2009;
-/*< 2005 write(iwr, 195)par1,par2 >*/
-L2005:
- io___367.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___367);
- do_fio(&c__1, (char *)&par1, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&par2, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< >*/
- io___368.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___368);
- do_fio(&c__1, (char *)&rocave, (ftnlen)sizeof(doublereal));
- d__1 = robar1 / xnorm1;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- d__2 = robar2 / xnorm2;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&albbrdf, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< goto 2009 >*/
- goto L2009;
-/*< 2006 write(iwr, 196)pws,phi_wind,xsal,pcl >*/
-L2006:
- io___369.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___369);
- do_fio(&c__1, (char *)&pws, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&phi_wind__, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xsal, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&pcl, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr,500) rfoamave,rwatave,rglitave >*/
- io___370.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___370);
- do_fio(&c__1, (char *)&rfoamave, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&rwatave, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&rglitave, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< >*/
- io___371.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___371);
- do_fio(&c__1, (char *)&rocave, (ftnlen)sizeof(doublereal));
- d__1 = robar1 / xnorm1;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- d__2 = robar2 / xnorm2;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&albbrdf, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< goto 2009 >*/
- goto L2009;
-/*< 2007 write(iwr, 205) pRl,pTl,pRs,PxLt >*/
-L2007:
- io___372.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___372);
- do_fio(&c__1, (char *)&prl, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&ptl, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&prs, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&pxlt, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< if (pihs.eq.0) then >*/
- if (pihs == 0) {
-/*< write(iwr,207)' no hot spot ' >*/
- io___373.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___373);
- do_fio(&c__1, " no hot spot ", 19L);
- e_wsfe();
-/*< else >*/
- } else {
-/*< write(iwr,208)' hot spot parameter',pc >*/
- io___374.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___374);
- do_fio(&c__1, " hot spot parameter", 19L);
- do_fio(&c__1, (char *)&pc, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< endif >*/
- }
-/*< if (pild.eq.1) write(iwr,209) ' planophile leaf distribution' >*/
- if (pild == 1) {
- io___375.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___375);
- do_fio(&c__1, " planophile leaf distribution", 31L);
- e_wsfe();
- }
-/*< if (pild.eq.2) write(iwr,209) ' erectophile leaf distribution' >*/
- if (pild == 2) {
- io___376.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___376);
- do_fio(&c__1, " erectophile leaf distribution", 31L);
- e_wsfe();
- }
-/*< if (pild.eq.3) write(iwr,209) ' plagiophile leaf distribution' >*/
- if (pild == 3) {
- io___377.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___377);
- do_fio(&c__1, " plagiophile leaf distribution", 31L);
- e_wsfe();
- }
-/*< if (pild.eq.4) write(iwr,209) ' extremophile leaf distribution' >*/
- if (pild == 4) {
- io___378.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___378);
- do_fio(&c__1, " extremophile leaf distribution", 31L);
- e_wsfe();
- }
-/*< if (pild.eq.5) write(iwr,209) ' uniform leaf distribution' >*/
- if (pild == 5) {
- io___379.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___379);
- do_fio(&c__1, " uniform leaf distribution", 31L);
- e_wsfe();
- }
-/*< >*/
- io___380.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___380);
- do_fio(&c__1, (char *)&rocave, (ftnlen)sizeof(doublereal));
- d__1 = robar1 / xnorm1;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- d__2 = robar2 / xnorm2;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&albbrdf, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< goto 2009 >*/
- goto L2009;
-/*< 2008 write(iwr, 206) par1,par2,par3 >*/
-L2008:
- io___381.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___381);
- do_fio(&c__1, (char *)&par1, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&par2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&par3, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< goto 2009 >*/
- goto L2009;
-/*< 2010 write(iwr, 210)uli,eei,thmi,sli,cabi,cwi,vaii,rnci,rsl1i >*/
-L2010:
- io___382.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___382);
- do_fio(&c__1, (char *)&uli, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&eei, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&thmi, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sli, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&cabi, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&cwi, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&vaii, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&rnci, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&rsl1i, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< >*/
- io___383.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___383);
- do_fio(&c__1, (char *)&rocave, (ftnlen)sizeof(doublereal));
- d__1 = robar1 / xnorm1;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- d__2 = robar2 / xnorm2;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&albbrdf, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< goto 2009 >*/
- goto L2009;
-/*< 2011 write(iwr, 211)p1,p2,p3 >*/
-L2011:
- io___384.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___384);
- do_fio(&c__1, (char *)&p1, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&p2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&p3, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< >*/
- io___385.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___385);
- do_fio(&c__1, (char *)&rocave, (ftnlen)sizeof(doublereal));
- d__1 = robar1 / xnorm1;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- d__2 = robar2 / xnorm2;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&albbrdf, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< goto 2009 >*/
- goto L2009;
-/*< 2009 endif >*/
-L2009:
- ;
- }
-/*< endif >*/
- }
-/*< 50 continue >*/
-/* L50: */
-/* --- pressure at ground level (174) and altitude (175) ---- */
-/*< 999 write(iwr, 173) >*/
-L999:
- io___386.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___386);
- e_wsfe();
-/*< write(iwr, 174)p(1) >*/
- io___387.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___387);
- do_fio(&c__1, (char *)&sixs_atm__1.p[0], (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 175)xps >*/
- io___388.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___388);
- do_fio(&c__1, (char *)&xps, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< if (xps.gt.0..and.idatm.ne.0) write(iwr, 176)uw,uo3 >*/
- if (xps > 0. && idatm != 0) {
- io___389.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___389);
- do_fio(&c__1, (char *)&uw, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&uo3, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/* --- plane simulation output if selected ---- */
-/*< if (palt.lt.1000.) then >*/
- if (palt < 1e3) {
-/*< write(iwr, 178) >*/
- io___390.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___390);
- e_wsfe();
-/*< write(iwr, 179)pps >*/
- io___391.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___391);
- do_fio(&c__1, (char *)&pps, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 180)zpl(34) >*/
- io___392.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___392);
- do_fio(&c__1, (char *)&sixs_planesim__1.zpl[33], (ftnlen)sizeof(
- doublereal));
- e_wsfe();
-/*< write(iwr, 181) >*/
- io___393.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___393);
- e_wsfe();
-/*< write(iwr, 182)puo3 >*/
- io___394.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___394);
- do_fio(&c__1, (char *)&puo3, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 183)puw >*/
- io___395.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___395);
- do_fio(&c__1, (char *)&puw, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 184)taer55p >*/
- io___396.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___396);
- do_fio(&c__1, (char *)&taer55p, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< endif >*/
- }
-/* ---- atmospheric correction ---- */
-/*< if (irapp.ge.0) then >*/
- if (irapp >= 0) {
-/*< write(iwr, 177) >*/
- io___397.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___397);
- e_wsfe();
-/*< if (irapp.eq. 0) write(iwr, 220) >*/
- if (irapp == 0) {
- io___398.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___398);
- e_wsfe();
- }
-/*< if (irapp.eq. 1) write(iwr, 221) >*/
- if (irapp == 1) {
- io___399.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___399);
- e_wsfe();
- }
-/*< if (rapp.lt.0.) then >*/
- if (rapp < 0.) {
-/*< write(iwr, 185)-rapp >*/
- io___400.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___400);
- d__1 = -rapp;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< else >*/
- } else {
-/*< write(iwr, 186)rapp >*/
- io___401.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___401);
- do_fio(&c__1, (char *)&rapp, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< write(iwr, 172) >*/
- io___402.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___402);
- e_wsfe();
-/* **********************************************************************c
- */
-/* c
-*/
-/* c
-*/
-/* start of computations c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* ---- initilialization */
-/* Start Update Look up table */
-/*< do i=1,mu >*/
- i__1 = mu;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< do j=1,41 >*/
- for (j = 1; j <= 41; ++j) {
-/*< roluti(i,j)=0.0 >*/
- roluti[i__ + j * 25 - 26] = 0.;
-/*< rolutiq(i,j)=0.0 >*/
- rolutiq[i__ + j * 25 - 26] = 0.;
-/*< rolutiu(i,j)=0.0 >*/
- rolutiu[i__ + j * 25 - 26] = 0.;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* End Update Look up table */
-/*< sb=0. >*/
- sb = 0.;
-/*< seb=0. >*/
- seb = 0.;
-/*< refet=0. >*/
- refet = 0.;
-/*< refet1=0. >*/
- refet1 = 0.;
-/*< refet2=0. >*/
- refet2 = 0.;
-/*< refet3=0. >*/
- refet3 = 0.;
-/*< rpfet=0. >*/
- rpfet = 0.;
-/*< rpfet1=0. >*/
- rpfet1 = 0.;
-/*< rpfet2=0. >*/
- rpfet2 = 0.;
-/*< rpfet3=0. >*/
- rpfet3 = 0.;
-/*< alumet=0. >*/
- alumet = 0.;
-/*< plumet=0. >*/
- plumet = 0.;
-/*< tgasm=0. >*/
- tgasm = 0.;
-/*< rog=0. >*/
- rog = 0.;
-/*< dgasm=0. >*/
- dgasm = 0.;
-/*< ugasm=0. >*/
- ugasm = 0.;
-/*< sdwava=0. >*/
- sdwava = 0.;
-/*< sdozon=0. >*/
- sdozon = 0.;
-/*< sddica=0. >*/
- sddica = 0.;
-/*< sdoxyg=0. >*/
- sdoxyg = 0.;
-/*< sdniox=0. >*/
- sdniox = 0.;
-/*< sdmoca=0. >*/
- sdmoca = 0.;
-/*< sdmeth=0. >*/
- sdmeth = 0.;
-/*< suwava=0. >*/
- suwava = 0.;
-/*< suozon=0. >*/
- suozon = 0.;
-/*< sudica=0. >*/
- sudica = 0.;
-/*< suoxyg=0. >*/
- suoxyg = 0.;
-/*< suniox=0. >*/
- suniox = 0.;
-/*< sumoca=0. >*/
- sumoca = 0.;
-/*< sumeth=0. >*/
- sumeth = 0.;
-/*< stwava=0. >*/
- stwava = 0.;
-/*< stozon=0. >*/
- stozon = 0.;
-/*< stdica=0. >*/
- stdica = 0.;
-/*< stoxyg=0. >*/
- stoxyg = 0.;
-/*< stniox=0. >*/
- stniox = 0.;
-/*< stmoca=0. >*/
- stmoca = 0.;
-/*< stmeth=0. >*/
- stmeth = 0.;
-/*< sodray=0. >*/
- sodray = 0.;
-/*< sodrayp=0. >*/
- sodrayp = 0.;
-/*< sodaer=0. >*/
- sodaer = 0.;
-/*< sodaerp=0. >*/
- sodaerp = 0.;
-/*< sodtot=0. >*/
- sodtot = 0.;
-/*< sodtotp=0. >*/
- sodtotp = 0.;
-/*< fophsr=0. >*/
- fophsr = 0.;
-/*< fophsa=0. >*/
- fophsa = 0.;
-/*< foqhsr=0. >*/
- foqhsr = 0.;
-/*< foqhsa=0. >*/
- foqhsa = 0.;
-/*< fouhsr=0. >*/
- fouhsr = 0.;
-/*< fouhsa=0. >*/
- fouhsa = 0.;
-/*< sroray=0. >*/
- sroray = 0.;
-/*< sroaer=0. >*/
- sroaer = 0.;
-/*< srotot=0. >*/
- srotot = 0.;
-/*< srpray=0. >*/
- srpray = 0.;
-/*< srpaer=0. >*/
- srpaer = 0.;
-/*< srptot=0. >*/
- srptot = 0.;
-/*< srqray=0. >*/
- srqray = 0.;
-/*< srqaer=0. >*/
- srqaer = 0.;
-/*< srqtot=0. >*/
- srqtot = 0.;
-/*< sruray=0. >*/
- sruray = 0.;
-/*< sruaer=0. >*/
- sruaer = 0.;
-/*< srutot=0. >*/
- srutot = 0.;
-/*< ssdaer=0. >*/
- ssdaer = 0.;
-/*< sdtotr=0. >*/
- sdtotr = 0.;
-/*< sdtota=0. >*/
- sdtota = 0.;
-/*< sdtott=0. >*/
- sdtott = 0.;
-/*< sutotr=0. >*/
- sutotr = 0.;
-/*< sutota=0. >*/
- sutota = 0.;
-/*< sutott=0. >*/
- sutott = 0.;
-/*< sasr=0. >*/
- sasr = 0.;
-/*< sasa=0. >*/
- sasa = 0.;
-/*< sast=0. >*/
- sast = 0.;
-/*< do 52 i=1,2 >*/
- for (i__ = 1; i__ <= 2; ++i__) {
-/*< do 53 j=1,3 >*/
- for (j = 1; j <= 3; ++j) {
-/*< ani(i,j)=0. >*/
- ani[i__ + (j << 1) - 3] = 0.;
-/*< aini(i,j)=0. >*/
- aini[i__ + (j << 1) - 3] = 0.;
-/*< anr(i,j)=0. >*/
- anr[i__ + (j << 1) - 3] = 0.;
-/*< ainr(i,j)=0. >*/
- ainr[i__ + (j << 1) - 3] = 0.;
-/*< 53 continue >*/
-/* L53: */
- }
-/*< 52 continue >*/
-/* L52: */
- }
-/* ---- spectral loop ---- */
-/*< if (iwave.eq.-2) write(iwr,1500) >*/
- if (iwave == -2) {
- io___477.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___477);
- e_wsfe();
- }
-/*< do 51 l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< sbor=s(l) >*/
- sbor = sixs_ffu__1.s[l - 1];
-/*< if(l.eq.iinf.or.l.eq.isup) sbor=sbor*0.5 >*/
- if (l == iinf || l == isup) {
- sbor *= .5;
- }
-/*< if(iwave.eq.-1) sbor=1.0/step >*/
- if (iwave == -1) {
- sbor = 1. / step;
- }
-/*< roc=rocl(l) >*/
- roc = rocl[l - 1];
-/*< roe=roel(l) >*/
- roe = roel[l - 1];
-/*< wl=.25+(l-1)*step >*/
- wl = (l - 1) * step + .25;
-
-/*< >*/
- d__1 = uw / 2.;
- d__2 = puw / 2.;
- abstra_(&idatm, &wl, &xmus, &xmuv, &d__1, &uo3, &uwus, &uo3us, &
- idatmp, &d__2, &puo3, &puwus, &puo3us, &dtwava, &dtozon, &
- dtdica, &dtoxyg, &dtniox, &dtmeth, &dtmoca, &utwava, &utozon,
- &utdica, &utoxyg, &utniox, &utmeth, &utmoca, &attwava, &
- ttozon, &ttdica, &ttoxyg, &ttniox, &ttmeth, &ttmoca);
-/*< >*/
- abstra_(&idatm, &wl, &xmus, &xmuv, &uw, &uo3, &uwus, &uo3us, &idatmp,
- &puw, &puo3, &puwus, &puo3us, &dtwava, &dtozon, &dtdica, &
- dtoxyg, &dtniox, &dtmeth, &dtmoca, &utwava, &utozon, &utdica,
- &utoxyg, &utniox, &utmeth, &utmoca, &ttwava, &ttozon, &ttdica,
- &ttoxyg, &ttniox, &ttmeth, &ttmoca);
-/*< if (dtwava.lt.accu3) dtwava=0. >*/
- if (dtwava < accu3) {
- dtwava = 0.;
- }
-/*< if (dtozon.lt.accu3) dtozon=0. >*/
- if (dtozon < accu3) {
- dtozon = 0.;
- }
-/*< if (dtdica.lt.accu3) dtdica=0. >*/
- if (dtdica < accu3) {
- dtdica = 0.;
- }
-/*< if (dtniox.lt.accu3) dtniox=0. >*/
- if (dtniox < accu3) {
- dtniox = 0.;
- }
-/*< if (dtmeth.lt.accu3) dtmeth=0. >*/
- if (dtmeth < accu3) {
- dtmeth = 0.;
- }
-/*< if (dtmoca.lt.accu3) dtmeth=0. >*/
- if (dtmoca < accu3) {
- dtmeth = 0.;
- }
-/*< if (utwava.lt.accu3) utwava=0. >*/
- if (utwava < accu3) {
- utwava = 0.;
- }
-/*< if (utozon.lt.accu3) utozon=0. >*/
- if (utozon < accu3) {
- utozon = 0.;
- }
-/*< if (utdica.lt.accu3) utdica=0. >*/
- if (utdica < accu3) {
- utdica = 0.;
- }
-/*< if (utniox.lt.accu3) utniox=0. >*/
- if (utniox < accu3) {
- utniox = 0.;
- }
-/*< if (utmeth.lt.accu3) utmeth=0. >*/
- if (utmeth < accu3) {
- utmeth = 0.;
- }
-/*< if (utmoca.lt.accu3) utmeth=0. >*/
- if (utmoca < accu3) {
- utmeth = 0.;
- }
-/*< if (ttwava.lt.accu3) ttwava=0. >*/
- if (ttwava < accu3) {
- ttwava = 0.;
- }
-/*< if (ttozon.lt.accu3) ttozon=0. >*/
- if (ttozon < accu3) {
- ttozon = 0.;
- }
-/*< if (ttdica.lt.accu3) ttdica=0. >*/
- if (ttdica < accu3) {
- ttdica = 0.;
- }
-/*< if (ttniox.lt.accu3) ttniox=0. >*/
- if (ttniox < accu3) {
- ttniox = 0.;
- }
-/*< if (ttmeth.lt.accu3) ttmeth=0. >*/
- if (ttmeth < accu3) {
- ttmeth = 0.;
- }
-/*< if (ttmoca.lt.accu3) ttmeth=0. >*/
- if (ttmoca < accu3) {
- ttmeth = 0.;
- }
-
-/*< >*/
- solirr_(&wl, &swl);
-/*< swl=swl*dsol >*/
- swl *= dsol;
-/*< coef=sbor*step*swl >*/
- coef = sbor * step * swl;
-/*< coefp=sbor*step >*/
- coefp = sbor * step;
-/*< >*/
- interp_(&iaer, &idatmp, &wl, &taer55, &taer55p, &xmud, &romix, &
- rorayl, &roaero, &phaa, &phar, &rqmix, &rqrayl, &rqaero, &
- qhaa, &qhar, &rumix, &rurayl, &ruaero, &uhaa, &uhar, &tsca, &
- tray, &trayp, &taer, &taerp, &dtott, &utott, &astot, &asray, &
- asaer, &utotr, &utota, &dtotr, &dtota, &ipol, roatm_fi__,
- romix_fi__, rorayl_fi__, &nfi, roluts, rolut, rolutsq, rolutq,
- rolutsu, rolutu, nfilut);
-/*< dgtot=dtwava*dtozon*dtdica*dtoxyg*dtniox*dtmeth*dtmoca >*/
- dgtot = dtwava * dtozon * dtdica * dtoxyg * dtniox * dtmeth * dtmoca;
-/*< tgtot=ttwava*ttozon*ttdica*ttoxyg*ttniox*ttmeth*ttmoca >*/
- tgtot = ttwava * ttozon * ttdica * ttoxyg * ttniox * ttmeth * ttmoca;
-/*< ugtot=utwava*utozon*utdica*utoxyg*utniox*utmeth*utmoca >*/
- ugtot = utwava * utozon * utdica * utoxyg * utniox * utmeth * utmoca;
-/*< tgp1=ttozon*ttdica*ttoxyg*ttniox*ttmeth*ttmoca >*/
- tgp1 = ttozon * ttdica * ttoxyg * ttniox * ttmeth * ttmoca;
-/*< tgp2=attwava*ttozon*ttdica*ttoxyg*ttniox*ttmeth*ttmoca >*/
- tgp2 = attwava * ttozon * ttdica * ttoxyg * ttniox * ttmeth * ttmoca;
-/* C--- computing integrated values over the spectral band------ */
-/*< sb=sb+sbor*step >*/
- sb += sbor * step;
-/*< seb=seb+coef >*/
- seb += coef;
-/* ---unpolarized light */
-/*< edifr=utotr-exp(-trayp/xmuv) >*/
- edifr = utotr - exp(-trayp / xmuv);
-/*< edifa=utota-exp(-taerp/xmuv) >*/
- edifa = utota - exp(-taerp / xmuv);
-/*< if (idirec.eq.1) then >*/
- if (idirec == 1) {
-/*< tdird=exp(-(trayp+taerp)/xmus) >*/
- tdird = exp(-(trayp + taerp) / xmus);
-/*< tdiru=exp(-(trayp+taerp)/xmuv) >*/
- tdiru = exp(-(trayp + taerp) / xmuv);
-/*< tdifd=dtott-tdird >*/
- tdifd = dtott - tdird;
-/*< tdifu=utott-tdiru >*/
- tdifu = utott - tdiru;
-/*< >*/
- rsurf = roc * tdird * tdiru + robar[l - 1] * tdifd * tdiru +
- robarp[l - 1] * tdifu * tdird + robard[l - 1] * tdifd *
- tdifu + (tdifd + tdird) * (tdifu + tdiru) * astot *
- robard[l - 1] * robard[l - 1] / (1. - astot * robard[l -
- 1]);
-/*< avr=robard(l) >*/
- avr = robard[l - 1];
-/*< else >*/
- } else {
-/*< call enviro(edifr,edifa,rad,palt,xmuv,fra,fae,fr) >*/
- enviro_(&edifr, &edifa, &rad, &palt, &xmuv, &fra, &fae, &fr);
-/*< avr=roc*fr+(1.-fr)*roe >*/
- avr = roc * fr + (1. - fr) * roe;
-/*< >*/
- rsurf = roc * dtott * exp(-(trayp + taerp) / xmuv) / (1. - avr *
- astot) + avr * dtott * (utott - exp(-(trayp + taerp) /
- xmuv)) / (1. - avr * astot);
-/*< endif >*/
- }
-/*< ratm1=(romix-rorayl)*tgtot+rorayl*tgp1 >*/
- ratm1 = (romix - rorayl) * tgtot + rorayl * tgp1;
-/*< ratm3=romix*tgp1 >*/
- ratm3 = romix * tgp1;
-/*< ratm2=(romix-rorayl)*tgp2+rorayl*tgp1 >*/
- ratm2 = (romix - rorayl) * tgp2 + rorayl * tgp1;
-/*< do i=1,nfi >*/
- i__3 = nfi;
- for (i__ = 1; i__ <= i__3; ++i__) {
-/*< ratm2_fi(i)=(romix_fi(i)-rorayl_fi(i))*tgp2+rorayl_fi(i)*tgp1 >*/
- ratm2_fi__[i__ - 1] = (romix_fi__[i__ - 1] - rorayl_fi__[i__ - 1])
- * tgp2 + rorayl_fi__[i__ - 1] * tgp1;
-/*< enddo >*/
- }
-/*< romeas1=ratm1+rsurf*tgtot >*/
- romeas1 = ratm1 + rsurf * tgtot;
-/*< romeas2=ratm2+rsurf*tgtot >*/
- romeas2 = ratm2 + rsurf * tgtot;
-/*< romeas3=ratm3+rsurf*tgtot >*/
- romeas3 = ratm3 + rsurf * tgtot;
-/* computing integrated values over the spectral band */
-/*< alumeas=xmus*swl*romeas2/pi >*/
- alumeas = xmus * swl * romeas2 / pi;
-/*< alumet=alumet+alumeas*sbor*step >*/
- alumet += alumeas * sbor * step;
-/*< rfoamave=rfoamave+rfoaml(i)*sbor*swl*step >*/
- rfoamave += rfoaml[i__ - 1] * sbor * swl * step;
-/*< rwatave=rwatave+rwatl(i)*sbor*swl*step >*/
- rwatave += rwatl[i__ - 1] * sbor * swl * step;
-/*< rglitave=rglitave+rglitl(i)*sbor*swl*step >*/
- rglitave += rglitl[i__ - 1] * sbor * swl * step;
-/*< rog=rog+roc*coef >*/
- rog += roc * coef;
-/*< refet=refet+romeas2*coef >*/
- refet += romeas2 * coef;
-/*< refet1=refet1+romeas1*coef >*/
- refet1 += romeas1 * coef;
-/*< refet2=refet2+romeas2*coef >*/
- refet2 += romeas2 * coef;
-/*< refet3=refet3+romeas3*coef >*/
- refet3 += romeas3 * coef;
-/*< do i=1,nfi >*/
- i__3 = nfi;
- for (i__ = 1; i__ <= i__3; ++i__) {
-/*< refet_fi(i)=refet_fi(i)+ratm2_fi(i)*coef >*/
- refet_fi__[i__ - 1] += ratm2_fi__[i__ - 1] * coef;
-/*< enddo >*/
- }
-/* Start Update Look up table */
-/* do i=1,mu */
-/* do j=1,41 */
-/* roluti(i,j)=roluti(i,j)+rolut(i,j)*coef */
-/* rolutiq(i,j)=rolutiq(i,j)+rolutq(i,j)*coef */
-/* rolutiu(i,j)=rolutiu(i,j)+rolutu(i,j)*coef */
-/* enddo */
-/* enddo */
-/* End Update Look up table */
-/*< if (iwave.eq.-2) then >*/
- if (iwave == -2) {
-/*< >*/
- io___556.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___556);
- do_fio(&c__1, (char *)&wl, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&tgtot, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&dtott, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&utott, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&astot, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&ratm2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&swl, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&roc, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sbor, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&dsol, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&romeas2, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< endif >*/
- }
-/* ---polarized light: */
-/* -the spectral integration without the solar irradiance */
-/* because the sun does not generate polarized light */
-/* -we assume a Lambertian ground, then no polarized */
-/* surface reflectance (rpsurf=0.0, avr=0.0, roc=0.0) */
-/*< if (ipol.ne.0)then >*/
- if (ipol != 0) {
-/*< rqatm2=(rqmix-rqrayl)*tgp2+rqrayl*tgp1 >*/
- rqatm2 = (rqmix - rqrayl) * tgp2 + rqrayl * tgp1;
-/*< ruatm2=(rumix-rurayl)*tgp2+rurayl*tgp1 >*/
- ruatm2 = (rumix - rurayl) * tgp2 + rurayl * tgp1;
-/*< tdirqu=exp(-(trayp+taerp)*(1./xmuv+1./xmus)) >*/
- tdirqu = exp(-(trayp + taerp) * (1. / xmuv + 1. / xmus));
-/*< rqmeas2=rqatm2+ropq*tgtot*tdirqu >*/
- rqmeas2 = rqatm2 + ropq * tgtot * tdirqu;
-/*< rumeas2=ruatm2+ropu*tgtot*tdirqu >*/
- rumeas2 = ruatm2 + ropu * tgtot * tdirqu;
-/*< qlumeas=xmus*swl*rqmeas2/pi >*/
- qlumeas = xmus * swl * rqmeas2 / pi;
-/*< ulumeas=xmus*swl*rumeas2/pi >*/
- ulumeas = xmus * swl * rumeas2 / pi;
-/*< qlumet=qlumet+qlumeas*coefp >*/
- qlumet += qlumeas * coefp;
-/*< ulumet=ulumet+ulumeas*coefp >*/
- ulumet += ulumeas * coefp;
-/*< foqhsa=foqhsa+qhaa*coef >*/
- foqhsa += qhaa * coef;
-/*< foqhsr=foqhsr+qhar*coef >*/
- foqhsr += qhar * coef;
-/*< fouhsa=fouhsa+uhaa*coef >*/
- fouhsa += uhaa * coef;
-/*< fouhsr=fouhsr+uhar*coef >*/
- fouhsr += uhar * coef;
-/*< srqray=srqray+rqrayl*coef >*/
- srqray += rqrayl * coef;
-/*< srqaer=srqaer+rqaero*coef >*/
- srqaer += rqaero * coef;
-/*< srqtot=srqtot+rqmix*coef >*/
- srqtot += rqmix * coef;
-/*< sruray=sruray+rurayl*coef >*/
- sruray += rurayl * coef;
-/*< sruaer=sruaer+ruaero*coef >*/
- sruaer += ruaero * coef;
-/*< srutot=srutot+rumix*coef >*/
- srutot += rumix * coef;
-/*< rqfet=rqfet+rqmeas2*coefp >*/
- rqfet += rqmeas2 * coefp;
-/*< rufet=rufet+rumeas2*coefp >*/
- rufet += rumeas2 * coefp;
-/* Start Update Look up table */
-/*< do i=1,mu >*/
- i__3 = mu;
- for (i__ = 1; i__ <= i__3; ++i__) {
-/*< do j=1,41 >*/
- for (j = 1; j <= 41; ++j) {
-/*< roluti(i,j)=roluti(i,j)+rolut(i,j)*coef >*/
- roluti[i__ + j * 25 - 26] += rolut[i__ + j * 25 - 26] *
- coef;
-/*< rolutiq(i,j)=rolutiq(i,j)+rolutq(i,j)*coef >*/
- rolutiq[i__ + j * 25 - 26] += rolutq[i__ + j * 25 - 26] *
- coef;
-/*< rolutiu(i,j)=rolutiu(i,j)+rolutu(i,j)*coef >*/
- rolutiu[i__ + j * 25 - 26] += rolutu[i__ + j * 25 - 26] *
- coef;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* End Update Look up table */
-/*< endif >*/
- }
-/* ---gazes and other characteritics used in both light */
-/*< srotot=srotot+(romix)*coef >*/
- srotot += romix * coef;
-/*< fophsa=fophsa+phaa*coef >*/
- fophsa += phaa * coef;
-/*< fophsr=fophsr+phar*coef >*/
- fophsr += phar * coef;
-/*< sroray=sroray+rorayl*coef >*/
- sroray += rorayl * coef;
-/*< sroaer=sroaer+roaero*coef >*/
- sroaer += roaero * coef;
-/*< sasr=sasr+asray*coef >*/
- sasr += asray * coef;
-/*< sasa=sasa+asaer*coef >*/
- sasa += asaer * coef;
-/*< sast=sast+astot*coef >*/
- sast += astot * coef;
-/*< sodray=sodray+tray*coef >*/
- sodray += tray * coef;
-/*< sodaer=sodaer+taer*coef >*/
- sodaer += taer * coef;
-/*< sodrayp=sodrayp+trayp*coef >*/
- sodrayp += trayp * coef;
-/*< sodaerp=sodaerp+taerp*coef >*/
- sodaerp += taerp * coef;
-/*< ssdaer=ssdaer+tsca*coef >*/
- ssdaer += tsca * coef;
-/*< sodtot=sodtot+(taer+tray)*coef >*/
- sodtot += (taer + tray) * coef;
-/*< sodtotp=sodtotp+(taerp+trayp)*coef >*/
- sodtotp += (taerp + trayp) * coef;
-/*< tgasm=tgasm+tgtot*coef >*/
- tgasm += tgtot * coef;
-/*< dgasm=dgasm+dgtot*coef >*/
- dgasm += dgtot * coef;
-/*< ugasm=ugasm+ugtot*coef >*/
- ugasm += ugtot * coef;
-/*< sdwava=sdwava+dtwava*coef >*/
- sdwava += dtwava * coef;
-/*< sdozon=sdozon+dtozon*coef >*/
- sdozon += dtozon * coef;
-/*< sddica=sddica+dtdica*coef >*/
- sddica += dtdica * coef;
-/*< sdoxyg=sdoxyg+dtoxyg*coef >*/
- sdoxyg += dtoxyg * coef;
-/*< sdniox=sdniox+dtniox*coef >*/
- sdniox += dtniox * coef;
-/*< sdmeth=sdmeth+dtmeth*coef >*/
- sdmeth += dtmeth * coef;
-/*< sdmoca=sdmoca+dtmoca*coef >*/
- sdmoca += dtmoca * coef;
-/*< suwava=suwava+utwava*coef >*/
- suwava += utwava * coef;
-/*< suozon=suozon+utozon*coef >*/
- suozon += utozon * coef;
-/*< sudica=sudica+utdica*coef >*/
- sudica += utdica * coef;
-/*< suoxyg=suoxyg+utoxyg*coef >*/
- suoxyg += utoxyg * coef;
-/*< suniox=suniox+utniox*coef >*/
- suniox += utniox * coef;
-/*< sumeth=sumeth+utmeth*coef >*/
- sumeth += utmeth * coef;
-/*< sumoca=sumoca+utmoca*coef >*/
- sumoca += utmoca * coef;
-/*< stwava=stwava+ttwava*coef >*/
- stwava += ttwava * coef;
-/*< stozon=stozon+ttozon*coef >*/
- stozon += ttozon * coef;
-/*< stdica=stdica+ttdica*coef >*/
- stdica += ttdica * coef;
-/*< stoxyg=stoxyg+ttoxyg*coef >*/
- stoxyg += ttoxyg * coef;
-/*< stniox=stniox+ttniox*coef >*/
- stniox += ttniox * coef;
-/*< stmeth=stmeth+ttmeth*coef >*/
- stmeth += ttmeth * coef;
-/*< stmoca=stmoca+ttmoca*coef >*/
- stmoca += ttmoca * coef;
-/*< sdtotr=sdtotr+dtotr*coef >*/
- sdtotr += dtotr * coef;
-/*< sdtota=sdtota+dtota*coef >*/
- sdtota += dtota * coef;
-/*< sdtott=sdtott+dtott*coef >*/
- sdtott += dtott * coef;
-/*< sutotr=sutotr+utotr*coef >*/
- sutotr += utotr * coef;
-/*< sutota=sutota+utota*coef >*/
- sutota += utota * coef;
-/*< sutott=sutott+utott*coef >*/
- sutott += utott * coef;
-/* ---output at the ground level. */
-/*< tdir=exp(-(tray+taer)/xmus) >*/
- tdir = exp(-(tray + taer) / xmus);
-/*< tdif=dtott-tdir >*/
- tdif = dtott - tdir;
-/*< etn=dtott*dgtot/(1.-avr*astot) >*/
- etn = dtott * dgtot / (1. - avr * astot);
-/*< esn=tdir*dgtot >*/
- esn = tdir * dgtot;
-/*< es=tdir*dgtot*xmus*swl >*/
- es = tdir * dgtot * xmus * swl;
-/*< ea0n=tdif*dgtot >*/
- ea0n = tdif * dgtot;
-/*< ea0=tdif*dgtot*xmus*swl >*/
- ea0 = tdif * dgtot * xmus * swl;
-/*< ee0n=dgtot*avr*astot*dtott/(1.-avr*astot) >*/
- ee0n = dgtot * avr * astot * dtott / (1. - avr * astot);
-/*< ee0=xmus*swl*dgtot*avr*astot*dtott/(1.-avr*astot) >*/
- ee0 = xmus * swl * dgtot * avr * astot * dtott / (1. - avr * astot);
-/*< if (etn.gt.accu3) then >*/
- if (etn > accu3) {
-/*< ani(1,1)=esn/etn >*/
- ani[0] = esn / etn;
-/*< ani(1,2)=ea0n/etn >*/
- ani[2] = ea0n / etn;
-/*< ani(1,3)=ee0n/etn >*/
- ani[4] = ee0n / etn;
-/*< else >*/
- } else {
-/*< ani(1,1)=0. >*/
- ani[0] = 0.;
-/*< ani(1,2)=0. >*/
- ani[2] = 0.;
-/*< ani(1,3)=0. >*/
- ani[4] = 0.;
-/*< endif >*/
- }
-/*< ani(2,1)=es >*/
- ani[1] = es;
-/*< ani(2,2)=ea0 >*/
- ani[3] = ea0;
-/*< ani(2,3)=ee0 >*/
- ani[5] = ee0;
-/*< do 955 j=1,3 >*/
- for (j = 1; j <= 3; ++j) {
-/*< aini(1,j)=aini(1,j)+ani(1,j)*coef >*/
- aini[(j << 1) - 2] += ani[(j << 1) - 2] * coef;
-/*< aini(2,j)=aini(2,j)+ani(2,j)*sbor*step >*/
- aini[(j << 1) - 1] += ani[(j << 1) - 1] * sbor * step;
-/*< 955 continue >*/
-/* L955: */
- }
-/* ---output at satellite level */
-/* old version is commented (new changes are immediately below */
-/* Jan-15-2004 */
-/* tmdir=exp(-(tray+taerp)/xmuv) */
-/*< tmdir=exp(-(trayp+taerp)/xmuv) >*/
- tmdir = exp(-(trayp + taerp) / xmuv);
-/*< tmdif=utott-tmdir >*/
- tmdif = utott - tmdir;
-/*< xla0n=ratm2 >*/
- xla0n = ratm2;
-/*< xla0=xla0n*xmus*swl/pi >*/
- xla0 = xla0n * xmus * swl / pi;
-/*< xltn=roc*dtott*tmdir*tgtot/(1.-avr*astot) >*/
- xltn = roc * dtott * tmdir * tgtot / (1. - avr * astot);
-/*< xlt=xltn*xmus*swl/pi >*/
- xlt = xltn * xmus * swl / pi;
-/*< xlen=avr*dtott*tmdif*tgtot/(1.-avr*astot) >*/
- xlen = avr * dtott * tmdif * tgtot / (1. - avr * astot);
-/*< xle=xlen*xmus*swl/pi >*/
- xle = xlen * xmus * swl / pi;
-/*< anr(1,1)=xla0n >*/
- anr[0] = xla0n;
-/*< anr(1,2)=xlen >*/
- anr[2] = xlen;
-/*< anr(1,3)=xltn >*/
- anr[4] = xltn;
-/*< anr(2,1)=xla0 >*/
- anr[1] = xla0;
-/*< anr(2,2)=xle >*/
- anr[3] = xle;
-/*< anr(2,3)=xlt >*/
- anr[5] = xlt;
-/*< do 56 j=1,3 >*/
- for (j = 1; j <= 3; ++j) {
-/*< ainr(1,j)=ainr(1,j)+anr(1,j)*coef >*/
- ainr[(j << 1) - 2] += anr[(j << 1) - 2] * coef;
-/*< ainr(2,j)=ainr(2,j)+anr(2,j)*sbor*step >*/
- ainr[(j << 1) - 1] += anr[(j << 1) - 1] * sbor * step;
-/*< 56 continue >*/
-/* L56: */
- }
-/*< 51 continue >*/
-/* L51: */
- }
-/* c---- integrated values of apparent reflectance, radiance ----
- */
-/* c---- and gaseous transmittances (total,downward,separately gases) ----
- */
-/*< tgasm=tgasm/seb >*/
- tgasm /= seb;
-/*< dgasm=dgasm/seb >*/
- dgasm /= seb;
-/*< ugasm=ugasm/seb >*/
- ugasm /= seb;
-/*< sasa=sasa/seb >*/
- sasa /= seb;
-/*< sasr=sasr/seb >*/
- sasr /= seb;
-/*< sast=sast/seb >*/
- sast /= seb;
-/*< sdniox=sdniox/seb >*/
- sdniox /= seb;
-/*< sdmoca=sdmoca/seb >*/
- sdmoca /= seb;
-/*< sdmeth=sdmeth/seb >*/
- sdmeth /= seb;
-/*< sdwava=sdwava/seb >*/
- sdwava /= seb;
-/*< sdozon=sdozon/seb >*/
- sdozon /= seb;
-/*< sddica=sddica/seb >*/
- sddica /= seb;
-/*< suniox=suniox/seb >*/
- suniox /= seb;
-/*< sumoca=sumoca/seb >*/
- sumoca /= seb;
-/*< sumeth=sumeth/seb >*/
- sumeth /= seb;
-/*< suwava=suwava/seb >*/
- suwava /= seb;
-/*< suozon=suozon/seb >*/
- suozon /= seb;
-/*< sudica=sudica/seb >*/
- sudica /= seb;
-/*< suoxyg=suoxyg/seb >*/
- suoxyg /= seb;
-/*< sdoxyg=sdoxyg/seb >*/
- sdoxyg /= seb;
-/*< stniox=stniox/seb >*/
- stniox /= seb;
-/*< stmoca=stmoca/seb >*/
- stmoca /= seb;
-/*< stmeth=stmeth/seb >*/
- stmeth /= seb;
-/*< stwava=stwava/seb >*/
- stwava /= seb;
-/*< stozon=stozon/seb >*/
- stozon /= seb;
-/*< stdica=stdica/seb >*/
- stdica /= seb;
-/*< stoxyg=stoxyg/seb >*/
- stoxyg /= seb;
-/*< sdtotr=sdtotr/seb >*/
- sdtotr /= seb;
-/*< sdtota=sdtota/seb >*/
- sdtota /= seb;
-/*< sdtott=sdtott/seb >*/
- sdtott /= seb;
-/*< sutotr=sutotr/seb >*/
- sutotr /= seb;
-/*< sutota=sutota/seb >*/
- sutota /= seb;
-/*< sutott=sutott/seb >*/
- sutott /= seb;
-/*< sodray=sodray/seb >*/
- sodray /= seb;
-/*< sodaer=sodaer/seb >*/
- sodaer /= seb;
-/*< sodtot=sodtot/seb >*/
- sodtot /= seb;
-/*< sodrayp=sodrayp/seb >*/
- sodrayp /= seb;
-/*< sodaerp=sodaerp/seb >*/
- sodaerp /= seb;
-/*< sodtotp=sodtotp/seb >*/
- sodtotp /= seb;
-/*< pizera=0.0 >*/
- pizera = 0.;
-/*< pizerr=1. >*/
- pizerr = 1.;
-/*< if(iaer.ne.0) pizera=ssdaer/sodaer/seb >*/
- if (iaer != 0) {
- pizera = ssdaer / sodaer / seb;
- }
-/*< pizert=(pizerr*sodray+pizera*sodaer)/(sodray+sodaer) >*/
- pizert = (pizerr * sodray + pizera * sodaer) / (sodray + sodaer);
-/*< rfoamave=rfoamave/seb >*/
- rfoamave /= seb;
-/*< rwatave=rwatave/seb >*/
- rwatave /= seb;
-/*< rglitave=rglitave/seb >*/
- rglitave /= seb;
-/*< sroray=sroray/seb >*/
- sroray /= seb;
-/*< sroaer=sroaer/seb >*/
- sroaer /= seb;
-/*< srotot=srotot/seb >*/
- srotot /= seb;
-/*< fophsa=fophsa/seb >*/
- fophsa /= seb;
-/*< fophsr=fophsr/seb >*/
- fophsr /= seb;
-/*< fophst=(sodray*fophsr+sodaer*fophsa)/(sodray+sodaer) >*/
- fophst = (sodray * fophsr + sodaer * fophsa) / (sodray + sodaer);
-/* ---unpolarized light */
-/*< refet=refet/seb >*/
- refet /= seb;
-/*< refet1=refet1/seb >*/
- refet1 /= seb;
-/*< refet2=refet2/seb >*/
- refet2 /= seb;
-/*< refet3=refet3/seb >*/
- refet3 /= seb;
-/*< rog=rog/seb >*/
- rog /= seb;
-/*< alumet=alumet/sb >*/
- alumet /= sb;
-/* ---polarized light */
-/*< if (ipol.ne.0)then >*/
- if (ipol != 0) {
-/*< rqfet=rqfet/sb >*/
- rqfet /= sb;
-/*< rufet=rufet/sb >*/
- rufet /= sb;
-/*< srqray=srqray/seb >*/
- srqray /= seb;
-/*< srqaer=srqaer/seb >*/
- srqaer /= seb;
-/*< srqtot=srqtot/seb >*/
- srqtot /= seb;
-/*< sruray=sruray/seb >*/
- sruray /= seb;
-/*< sruaer=sruaer/seb >*/
- sruaer /= seb;
-/*< srutot=srutot/seb >*/
- srutot /= seb;
-/*< plumet=plumet/sb >*/
- plumet /= sb;
-/*< foqhsa=foqhsa/seb >*/
- foqhsa /= seb;
-/*< foqhsr=foqhsr/seb >*/
- foqhsr /= seb;
-/*< foqhst=(sodray*foqhsr+sodaer*foqhsa)/(sodray+sodaer) >*/
- foqhst = (sodray * foqhsr + sodaer * foqhsa) / (sodray + sodaer);
-/*< fouhsa=fouhsa/seb >*/
- fouhsa /= seb;
-/*< fouhsr=fouhsr/seb >*/
- fouhsr /= seb;
-/*< fouhst=(sodray*fouhsr+sodaer*fouhsa)/(sodray+sodaer) >*/
- fouhst = (sodray * fouhsr + sodaer * fouhsa) / (sodray + sodaer);
-/* we define the polarized reflectances */
-/*< srpray=sqrt(srqray**2.+sruray**2.) >*/
- srpray = sqrt(pow_dd(&srqray, &c_b887) + pow_dd(&sruray, &c_b887));
-/*< srpaer=sqrt(srqaer**2.+sruaer**2.) >*/
- srpaer = sqrt(pow_dd(&srqaer, &c_b887) + pow_dd(&sruaer, &c_b887));
-/*< srptot=sqrt(srqtot**2.+srutot**2.) >*/
- srptot = sqrt(pow_dd(&srqtot, &c_b887) + pow_dd(&srutot, &c_b887));
-/* we define the primary degrees of polarization */
-/*< spdpray=foqhsr/fophsr >*/
- spdpray = foqhsr / fophsr;
-/*< if (iaer.ne.0) then >*/
- if (iaer != 0) {
-/*< spdpaer=foqhsa/fophsa >*/
- spdpaer = foqhsa / fophsa;
-/*< else >*/
- } else {
-/*< spdpaer=0.0 >*/
- spdpaer = 0.;
-/*< endif >*/
- }
-/*< spdptot=foqhst/fophst >*/
- spdptot = foqhst / fophst;
-/* we define the degrees of polarization */
-/*< sdpray=100.*srpray/sroray >*/
- sdpray = srpray * 100. / sroray;
-/*< if (sroaer.ne.0) then >*/
- if (sroaer != 0.) {
-/*< sdpaer=100.*srpaer/sroaer >*/
- sdpaer = srpaer * 100. / sroaer;
-/*< else sdpaer=0.0 >*/
- elsesdpaer = 0.;
-/*< endif >*/
- }
-/*< sdptot=100.*srptot/srotot >*/
- sdptot = srptot * 100. / srotot;
-/* and we compute the direction of the plane of polarization */
-/*< call dirpopol(srqray*xmus,sruray*xmus,sdppray) >*/
- d__1 = srqray * xmus;
- d__2 = sruray * xmus;
- dirpopol_(&d__1, &d__2, &sdppray);
-/*< call dirpopol(srqaer*xmus,sruaer*xmus,sdppaer) >*/
- d__1 = srqaer * xmus;
- d__2 = sruaer * xmus;
- dirpopol_(&d__1, &d__2, &sdppaer);
-/*< call dirpopol(srqtot*xmus,srutot*xmus,sdpptot) >*/
- d__1 = srqtot * xmus;
- d__2 = srutot * xmus;
- dirpopol_(&d__1, &d__2, &sdpptot);
-/* C ksirad=sdpptot*3.1415927/180. */
-/* C refeti=refet+pinst*rpfet*cos(2*(ksiinst*3.1415925/180.+ksirad))
-*/
-/*< endif >*/
- }
-/*< do 57 j=1,3 >*/
- for (j = 1; j <= 3; ++j) {
-/* ---output at the ground level. */
-/*< aini(1,j)=aini(1,j)/seb >*/
- aini[(j << 1) - 2] /= seb;
-/*< aini(2,j)=aini(2,j)/sb >*/
- aini[(j << 1) - 1] /= sb;
-/* ---output at satellite level */
-/*< ainr(1,j)=ainr(1,j)/seb >*/
- ainr[(j << 1) - 2] /= seb;
-/*< ainr(2,j)=ainr(2,j)/sb >*/
- ainr[(j << 1) - 1] /= sb;
-/*< 57 continue >*/
-/* L57: */
- }
-/* **********************************************************************c
- */
-/* c
-*/
-/* print of final results c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* begining case for a lut output */
-/* SIMPLE LUT in azimuth */
-/*< if (ilut.eq.2) then >*/
- if (ilut == 2) {
-/*< do ifi=1,nfi >*/
- i__1 = nfi;
- for (ifi = 1; ifi <= i__1; ++ifi) {
-/*< xtphi=(ifi-1)*180.0/(nfi-1) >*/
- xtphi = (ifi - 1) * 180. / (nfi - 1);
-/*< write(6,*) "lutfi ",xtphi,ratm2_fi(ifi) >*/
- s_wsle(&io___603);
- do_lio(&c__9, &c__1, "lutfi ", 6L);
- do_lio(&c__5, &c__1, (char *)&xtphi, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&ratm2_fi__[ifi - 1], (ftnlen)sizeof(
- doublereal));
- e_wsle();
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/* LUT FOR Look up table data */
-/*< if (ilut.eq.1) then >*/
- if (ilut == 1) {
-/*< its=acos(xmus)*180.0/pi >*/
- its = acos(xmus) * 180. / pi;
-/*< open(10,file='rotoa_bs',ACCESS='APPEND') >*/
- o__1.oerr = 0;
- o__1.ounit = 10;
- o__1.ofnmlen = 8;
- o__1.ofnm = "rotoa_bs";
- o__1.orl = 0;
- o__1.osta = 0;
- o__1.oacc = "APPEND";
- o__1.ofm = 0;
- o__1.oblnk = 0;
- f_open(&o__1);
-/*< write(10,2222) "AERO-LUT Lambda min,max ",wlinf,wlsup >*/
- s_wsfe(&io___604);
- do_fio(&c__1, "AERO-LUT Lambda min,max ", 24L);
- do_fio(&c__1, (char *)&sixs_ffu__1.wlinf, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sixs_ffu__1.wlsup, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< 2222 Format(A28,3(F10.7,1X)) >*/
-/*< write(10,2222) "Tau-Lambda,Tau550 asol ",sodaer,taer55,asol >*/
- s_wsfe(&io___605);
- do_fio(&c__1, "Tau-Lambda,Tau550 asol ", 24L);
- do_fio(&c__1, (char *)&sodaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&taer55, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&asol, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< aerod=0 >*/
- aerod = 0;
-/*< if (iaer.eq.12) then >*/
- if (iaer == 12) {
-/*< write(10,2223) "aerosol model ",FILE2(1:i2) >*/
- s_wsfe(&io___607);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, file2, i2);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.1) then >*/
- if (iaer == 1) {
-/*< write(10,2223) "aerosol model ","CONTINENTAL" >*/
- s_wsfe(&io___608);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "CONTINENTAL", 11L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.2) then >*/
- if (iaer == 2) {
-/*< write(10,2223) "aerosol model ","MARITIME" >*/
- s_wsfe(&io___609);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "MARITIME", 8L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.3) then >*/
- if (iaer == 3) {
-/*< write(10,2223) "aerosol model ","URBAN" >*/
- s_wsfe(&io___610);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "URBAN", 5L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.5) then >*/
- if (iaer == 5) {
-/*< write(10,2223) "aerosol model ","DESERTIC" >*/
- s_wsfe(&io___611);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "DESERTIC", 8L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.6) then >*/
- if (iaer == 6) {
-/*< write(10,2223) "aerosol model ","SMOKE" >*/
- s_wsfe(&io___612);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "SMOKE", 5L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.7) then >*/
- if (iaer == 7) {
-/*< write(10,2223) "aerosol model ","STRATOSPHERIC" >*/
- s_wsfe(&io___613);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "STRATOSPHERIC", 13L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (aerod.eq.0) then >*/
- if (aerod == 0) {
-/*< write(10,2223) "aerosol model ","UNDEFINED" >*/
- s_wsfe(&io___614);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "UNDEFINED", 9L);
- e_wsfe();
-/*< endif >*/
- }
-/*< 2223 format(A24,1X,A80) >*/
-/*< lutmuv=cos(avis*pi/180.) >*/
- lutmuv = cos(avis * pi / 180.);
-/*< >*/
- cscaa = -xmus * lutmuv - cos(filut[mu - 1] * pi / 180.) * sqrt(1. -
- xmus * xmus) * sqrt(1. - lutmuv * lutmuv);
-/*< iscama=acos(cscaa)*180./pi >*/
- iscama = acos(cscaa) * 180. / pi;
-/*< >*/
- cscaa = -xmus * lutmuv - cos(filut[mu + nfilut[mu - 1] * 25 - 26] *
- pi / 180.) * sqrt(1. - xmus * xmus) * sqrt(1. - lutmuv *
- lutmuv);
-/*< iscami=acos(cscaa)*180./pi >*/
- iscami = acos(cscaa) * 180. / pi;
-/*< write(10,333) its,avis,nfilut(mu),iscama,iscami >*/
- s_wsfe(&io___615);
- do_fio(&c__1, (char *)&its, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&avis, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&nfilut[mu - 1], (ftnlen)sizeof(integer));
- do_fio(&c__1, (char *)&iscama, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&iscami, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(10,'(41(F8.5,1X))')(roluti(mu,j)/seb,j=1,nfilut(mu)) >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(41(F8.5,1X))";
- s_wsfe(&ci__1);
- i__1 = nfilut[mu - 1];
- for (j = 1; j <= i__1; ++j) {
- d__1 = roluti[mu + j * 25 - 26] / seb;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/* write(10,'(41(F8.5,1X))')(rolutiq(mu,j)/seb,j=1,nfilut(mu)) */
-/* write(10,'(41(F8.5,1X))')(rolutiu(mu,j)/seb,j=1,nfilut(mu)) */
-/*< do i=1,mu-1 >*/
- i__1 = mu - 1;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< lutmuv=rm(i) >*/
- lutmuv = rm[i__ + 25];
-/*< luttv=acos(lutmuv)*180./pi >*/
- luttv = acos(lutmuv) * 180. / pi;
-/*< >*/
- cscaa = -xmus * lutmuv - cos(filut[i__ - 1] * pi / 180.) * sqrt(
- 1. - xmus * xmus) * sqrt(1. - lutmuv * lutmuv);
-/*< iscama=acos(cscaa)*180./pi >*/
- iscama = acos(cscaa) * 180. / pi;
-/*< >*/
- cscaa = -xmus * lutmuv - cos(filut[i__ + nfilut[i__ - 1] * 25 -
- 26] * pi / 180.) * sqrt(1. - xmus * xmus) * sqrt(1. -
- lutmuv * lutmuv);
-/*< iscami=acos(cscaa)*180./pi >*/
- iscami = acos(cscaa) * 180. / pi;
-/*< write(10,333) its,luttv,nfilut(i),iscama,iscami >*/
- s_wsfe(&io___616);
- do_fio(&c__1, (char *)&its, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&luttv, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&nfilut[i__ - 1], (ftnlen)sizeof(integer));
- do_fio(&c__1, (char *)&iscama, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&iscami, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< 333 Format(F10.5,1X,F10.5,1X,I3,F10.5,F10.5) >*/
-/*< write(10,'(41(F8.5,1X))')(roluti(i,j)/seb,j=1,nfilut(i)) >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(41(F8.5,1X))";
- s_wsfe(&ci__1);
- i__3 = nfilut[i__ - 1];
- for (j = 1; j <= i__3; ++j) {
- d__1 = roluti[i__ + j * 25 - 26] / seb;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/* write(10,'(41(F8.5,1X))')(rolutiq(i,j)/seb,j=1,nfilut(i))
-*/
-/* write(10,'(41(F8.5,1X))')(rolutiu(i,j)/seb,j=1,nfilut(i))
-*/
-/*< enddo >*/
- }
-/*< close(10) >*/
- cl__1.cerr = 0;
- cl__1.cunit = 10;
- cl__1.csta = 0;
- f_clos(&cl__1);
-/*< endif >*/
- }
-/* Case a LUT output is desired */
-/* Case for an aps LUT */
-/*< if (ilut.eq.3) then >*/
- if (ilut == 3) {
-/*< its=acos(xmus)*180.0/pi >*/
- its = acos(xmus) * 180. / pi;
-/*< open(10,file='rotoa_aps_bs',ACCESS='APPEND') >*/
- o__1.oerr = 0;
- o__1.ounit = 10;
- o__1.ofnmlen = 12;
- o__1.ofnm = "rotoa_aps_bs";
- o__1.orl = 0;
- o__1.osta = 0;
- o__1.oacc = "APPEND";
- o__1.ofm = 0;
- o__1.oblnk = 0;
- f_open(&o__1);
-/*< write(10,2222) "AERO-LUT Lambda min,max ",wlinf,wlsup >*/
- s_wsfe(&io___617);
- do_fio(&c__1, "AERO-LUT Lambda min,max ", 24L);
- do_fio(&c__1, (char *)&sixs_ffu__1.wlinf, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sixs_ffu__1.wlsup, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(10,2222) "Tau-Lambda,Tau550 asol ",sodaer,taer55,asol >*/
- s_wsfe(&io___618);
- do_fio(&c__1, "Tau-Lambda,Tau550 asol ", 24L);
- do_fio(&c__1, (char *)&sodaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&taer55, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&asol, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< aerod=0 >*/
- aerod = 0;
-/*< if (iaer.eq.12) then >*/
- if (iaer == 12) {
-/*< write(10,2223) "aerosol model ",FILE2(1:i2) >*/
- s_wsfe(&io___619);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, file2, i2);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.1) then >*/
- if (iaer == 1) {
-/*< write(10,2223) "aerosol model ","CONTINENTAL" >*/
- s_wsfe(&io___620);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "CONTINENTAL", 11L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.2) then >*/
- if (iaer == 2) {
-/*< write(10,2223) "aerosol model ","MARITIME" >*/
- s_wsfe(&io___621);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "MARITIME", 8L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.3) then >*/
- if (iaer == 3) {
-/*< write(10,2223) "aerosol model ","URBAN" >*/
- s_wsfe(&io___622);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "URBAN", 5L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.5) then >*/
- if (iaer == 5) {
-/*< write(10,2223) "aerosol model ","DESERTIC" >*/
- s_wsfe(&io___623);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "DESERTIC", 8L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.6) then >*/
- if (iaer == 6) {
-/*< write(10,2223) "aerosol model ","SMOKE" >*/
- s_wsfe(&io___624);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "SMOKE", 5L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.7) then >*/
- if (iaer == 7) {
-/*< write(10,2223) "aerosol model ","STRATOSPHERIC" >*/
- s_wsfe(&io___625);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "STRATOSPHERIC", 13L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (aerod.eq.0) then >*/
- if (aerod == 0) {
-/*< write(10,2223) "aerosol model ","UNDEFINED" >*/
- s_wsfe(&io___626);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "UNDEFINED", 9L);
- e_wsfe();
-/*< endif >*/
- }
-
-/*< dtr=atan(1.)*4./180. >*/
- dtr = atan(1.) * 4. / 180.;
-/*< >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(A5,1X,41(F8.4,1X))";
- s_wsfe(&ci__1);
- do_fio(&c__1, "phi", 3L);
- for (i__ = 16; i__ >= 1; --i__) {
- do_fio(&c__1, (char *)&filut[i__ - 1], (ftnlen)sizeof(doublereal))
- ;
- }
- do_fio(&c__1, (char *)&filut[mu - 1], (ftnlen)sizeof(doublereal));
- for (i__ = 1; i__ <= 16; ++i__) {
- do_fio(&c__1, (char *)&filut[i__ + 24], (ftnlen)sizeof(doublereal)
- );
- }
- e_wsfe();
-/*< >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(A5,1X,41(F8.5,1X))";
- s_wsfe(&ci__1);
- do_fio(&c__1, "tv", 2L);
- for (i__ = 16; i__ >= 1; --i__) {
- d__1 = acos(rm[i__ + 25]) / dtr;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- }
- d__2 = acos(rm[25]) / dtr;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- for (k = 1; k <= 16; ++k) {
- d__3 = acos(rm[k + 25]) / dtr;
- do_fio(&c__1, (char *)&d__3, (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/*< >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(41(F8.5,1X))";
- s_wsfe(&ci__1);
- for (i__ = 16; i__ >= 1; --i__) {
- d__1 = roluti[i__ - 1] / seb;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- }
- d__2 = roluti[mu - 1] / seb;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- for (i__ = 1; i__ <= 16; ++i__) {
- d__3 = roluti[i__ + 24] / seb;
- do_fio(&c__1, (char *)&d__3, (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/*< >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(41(F8.5,1X))";
- s_wsfe(&ci__1);
- for (i__ = 16; i__ >= 1; --i__) {
- d__1 = rolutiq[i__ - 1] / seb;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- }
- d__2 = rolutiq[mu - 1] / seb;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- for (i__ = 1; i__ <= 16; ++i__) {
- d__3 = rolutiq[i__ + 24] / seb;
- do_fio(&c__1, (char *)&d__3, (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/*< >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(41(F8.5,1X))";
- s_wsfe(&ci__1);
- for (i__ = 16; i__ >= 1; --i__) {
- d__1 = rolutiu[i__ - 1] / seb;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- }
- d__2 = rolutiu[mu - 1] / seb;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- for (i__ = 1; i__ <= 16; ++i__) {
- d__3 = rolutiu[i__ + 24] / seb;
- do_fio(&c__1, (char *)&d__3, (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/*< close(10) >*/
- cl__1.cerr = 0;
- cl__1.cunit = 10;
- cl__1.csta = 0;
- f_clos(&cl__1);
-/*< endif >*/
- }
-/* Case a LUT output is desired */
-/*< 160 continue >*/
-/* L160: */
-/*< write(iwr, 430 )refet,alumet,tgasm >*/
- io___628.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___628);
- do_fio(&c__1, (char *)&refet, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&alumet, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&tgasm, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 431 )refet1,refet2,refet3 >*/
- io___629.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___629);
- do_fio(&c__1, (char *)&refet1, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&refet2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&refet3, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< if (ipol.eq.1)then >*/
- if (ipol == 1) {
-/*< rpfet=sqrt(rqfet*rqfet+rufet*rufet) >*/
- rpfet = sqrt(rqfet * rqfet + rufet * rufet);
-/*< plumet=sqrt(qlumet*qlumet+ulumet*ulumet) >*/
- plumet = sqrt(qlumet * qlumet + ulumet * ulumet);
-/*< xpol=atan2(rufet,rqfet)*180.0/3.14159/2. >*/
- xpol = atan2(rufet, rqfet) * 180. / 3.14159 / 2.;
-/*< write(iwr, 429 )rpfet,plumet,xpol,rpfet/refet >*/
- io___631.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___631);
- do_fio(&c__1, (char *)&rpfet, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&plumet, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xpol, (ftnlen)sizeof(doublereal));
- d__1 = rpfet / refet;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/* write(iwr, 428 )rpfet1,rpfet2,rpfet3 */
-/*< endif >*/
- }
-/*< if(inhomo.ne.0) then >*/
- if (inhomo != 0) {
-/*< >*/
- io___632.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___632);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&aini[(j << 1) - 2], (ftnlen)sizeof(
- doublereal));
- }
- do_fio(&c__1, "environment", 11L);
- do_fio(&c__1, "target", 6L);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&ainr[(j << 1) - 2], (ftnlen)sizeof(
- doublereal));
- }
- e_wsfe();
-/*< >*/
- io___633.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___633);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&aini[(j << 1) - 1], (ftnlen)sizeof(
- doublereal));
- }
- do_fio(&c__1, "environment", 11L);
- do_fio(&c__1, "target", 6L);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&ainr[(j << 1) - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_wsfe();
-/*< endif >*/
- }
-/*< if(inhomo.eq.0) then >*/
- if (inhomo == 0) {
-/*< >*/
- io___634.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___634);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&aini[(j << 1) - 2], (ftnlen)sizeof(
- doublereal));
- }
- do_fio(&c__1, "background ", 11L);
- do_fio(&c__1, "pixel ", 6L);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&ainr[(j << 1) - 2], (ftnlen)sizeof(
- doublereal));
- }
- e_wsfe();
-/*< >*/
- io___635.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___635);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&aini[(j << 1) - 1], (ftnlen)sizeof(
- doublereal));
- }
- do_fio(&c__1, "background ", 11L);
- do_fio(&c__1, "pixel ", 6L);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&ainr[(j << 1) - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_wsfe();
-/*< endif >*/
- }
-/*< if (iwave.eq.-1)then >*/
- if (iwave == -1) {
-/*< write(iwr, 436)seb >*/
- io___636.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___636);
- do_fio(&c__1, (char *)&seb, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< else >*/
- } else {
-/*< write(iwr, 437)sb,seb >*/
- io___637.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___637);
- do_fio(&c__1, (char *)&sb, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&seb, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< endif >*/
- }
-/* **********************************************************************c
- */
-/* c
-*/
-/* print of complementary results c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< write(iwr, 929) >*/
- io___638.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___638);
- e_wsfe();
-/*< write(iwr, 930) >*/
- io___639.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___639);
- e_wsfe();
-/*< write(iwr, 931)'global gas. trans. :',dgasm,ugasm,tgasm >*/
- io___640.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___640);
- do_fio(&c__1, "global gas. trans. :", 20L);
- do_fio(&c__1, (char *)&dgasm, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&ugasm, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&tgasm, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'water " " :',sdwava,suwava,stwava >*/
- io___641.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___641);
- do_fio(&c__1, "water \" \" :", 20L);
- do_fio(&c__1, (char *)&sdwava, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&suwava, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stwava, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'ozone " " :',sdozon,suozon,stozon >*/
- io___642.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___642);
- do_fio(&c__1, "ozone \" \" :", 20L);
- do_fio(&c__1, (char *)&sdozon, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&suozon, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stozon, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'co2 " " :',sddica,sudica,stdica >*/
- io___643.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___643);
- do_fio(&c__1, "co2 \" \" :", 20L);
- do_fio(&c__1, (char *)&sddica, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sudica, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stdica, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'oxyg " " :',sdoxyg,suoxyg,stoxyg >*/
- io___644.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___644);
- do_fio(&c__1, "oxyg \" \" :", 20L);
- do_fio(&c__1, (char *)&sdoxyg, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&suoxyg, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stoxyg, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'no2 " " :',sdniox,suniox,stniox >*/
- io___645.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___645);
- do_fio(&c__1, "no2 \" \" :", 20L);
- do_fio(&c__1, (char *)&sdniox, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&suniox, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stniox, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'ch4 " " :',sdmeth,sumeth,stmeth >*/
- io___646.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___646);
- do_fio(&c__1, "ch4 \" \" :", 20L);
- do_fio(&c__1, (char *)&sdmeth, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sumeth, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stmeth, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'co " " :',sdmoca,sumoca,stmoca >*/
- io___647.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___647);
- do_fio(&c__1, "co \" \" :", 20L);
- do_fio(&c__1, (char *)&sdmoca, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sumoca, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stmoca, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 1401) >*/
- io___648.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___648);
- e_wsfe();
-/*< write(iwr, 1401) >*/
- io___649.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___649);
- e_wsfe();
-/*< write(iwr, 931)'rayl. sca. trans. :',sdtotr,sutotr,sutotr*sdtotr >*/
- io___650.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___650);
- do_fio(&c__1, "rayl. sca. trans. :", 20L);
- do_fio(&c__1, (char *)&sdtotr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sutotr, (ftnlen)sizeof(doublereal));
- d__1 = sutotr * sdtotr;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'aeros. sca. " :',sdtota,sutota,sutota*sdtota >*/
- io___651.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___651);
- do_fio(&c__1, "aeros. sca. \" :", 20L);
- do_fio(&c__1, (char *)&sdtota, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sutota, (ftnlen)sizeof(doublereal));
- d__1 = sutota * sdtota;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'total sca. " :',sdtott,sutott,sutott*sdtott >*/
- io___652.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___652);
- do_fio(&c__1, "total sca. \" :", 20L);
- do_fio(&c__1, (char *)&sdtott, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sutott, (ftnlen)sizeof(doublereal));
- d__1 = sutott * sdtott;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 1401) >*/
- io___653.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___653);
- e_wsfe();
-/*< write(iwr, 1401) >*/
- io___654.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___654);
- e_wsfe();
-/*< write(iwr, 939) >*/
- io___655.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___655);
- e_wsfe();
-/*< write(iwr, 931)'spherical albedo :',sasr,sasa,sast >*/
- io___656.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___656);
- do_fio(&c__1, "spherical albedo :", 20L);
- do_fio(&c__1, (char *)&sasr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sasa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sast, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'optical depth total:',sodray,sodaer,sodtot >*/
- io___657.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___657);
- do_fio(&c__1, "optical depth total:", 20L);
- do_fio(&c__1, (char *)&sodray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sodaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sodtot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'optical depth plane:',sodrayp,sodaerp,sodtotp >*/
- io___658.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___658);
- do_fio(&c__1, "optical depth plane:", 20L);
- do_fio(&c__1, (char *)&sodrayp, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sodaerp, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sodtotp, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< if (ipol.eq.0) then >*/
- if (ipol == 0) {
-/*< write(iwr, 931)'reflectance :',sroray,sroaer,srotot >*/
- io___659.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___659);
- do_fio(&c__1, "reflectance :", 20L);
- do_fio(&c__1, (char *)&sroray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sroaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srotot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'phase function :',fophsr,fophsa,fophst >*/
- io___660.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___660);
- do_fio(&c__1, "phase function :", 20L);
- do_fio(&c__1, (char *)&fophsr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&fophsa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&fophst, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< else >*/
- } else {
-/*< write(iwr, 931)'reflectance I :',sroray,sroaer,srotot >*/
- io___661.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___661);
- do_fio(&c__1, "reflectance I :", 20L);
- do_fio(&c__1, (char *)&sroray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sroaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srotot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'reflectance Q :',srqray,srqaer,srqtot >*/
- io___662.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___662);
- do_fio(&c__1, "reflectance Q :", 20L);
- do_fio(&c__1, (char *)&srqray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srqaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srqtot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'reflectance U :',sruray,sruaer,srutot >*/
- io___663.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___663);
- do_fio(&c__1, "reflectance U :", 20L);
- do_fio(&c__1, (char *)&sruray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sruaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srutot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'polarized reflect. :',srpray,srpaer,srptot >*/
- io___664.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___664);
- do_fio(&c__1, "polarized reflect. :", 20L);
- do_fio(&c__1, (char *)&srpray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srpaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srptot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 932)'degree of polar. :',sdpray,sdpaer,sdptot >*/
- io___665.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___665);
- do_fio(&c__1, "degree of polar. :", 20L);
- do_fio(&c__1, (char *)&sdpray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sdpaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sdptot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 932)'dir. plane polar. :',sdppray,sdppaer,sdpptot >*/
- io___666.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___666);
- do_fio(&c__1, "dir. plane polar. :", 20L);
- do_fio(&c__1, (char *)&sdppray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sdppaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sdpptot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/* CC write(iwr, 931)'instrument app ref.:',zero,zero,refeti */
-/*< write(iwr, 931)'phase function I :',fophsr,fophsa,fophst >*/
- io___667.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___667);
- do_fio(&c__1, "phase function I :", 20L);
- do_fio(&c__1, (char *)&fophsr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&fophsa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&fophst, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'phase function Q :',foqhsr,foqhsa,foqhst >*/
- io___668.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___668);
- do_fio(&c__1, "phase function Q :", 20L);
- do_fio(&c__1, (char *)&foqhsr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&foqhsa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&foqhst, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'phase function U :',fouhsr,fouhsa,fouhst >*/
- io___669.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___669);
- do_fio(&c__1, "phase function U :", 20L);
- do_fio(&c__1, (char *)&fouhsr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&fouhsa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&fouhst, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'primary deg. of pol:',spdpray,spdpaer,spdptot >*/
- io___670.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___670);
- do_fio(&c__1, "primary deg. of pol:", 20L);
- do_fio(&c__1, (char *)&spdpray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&spdpaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&spdptot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< endif >*/
- }
-/*< write(iwr, 931)'sing. scat. albedo :',pizerr,pizera,pizert >*/
- io___671.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___671);
- do_fio(&c__1, "sing. scat. albedo :", 20L);
- do_fio(&c__1, (char *)&pizerr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&pizera, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&pizert, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 1401) >*/
- io___672.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___672);
- e_wsfe();
-/*< write(iwr, 1402) >*/
- io___673.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___673);
- e_wsfe();
-/* **********************************************************************c
- */
-/* c
-*/
-/* atmospheric correction c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< if (irapp.ge.0) then >*/
- if (irapp >= 0) {
-/*< if (rapp.ge.0.) then >*/
- if (rapp >= 0.) {
-/*< xrad=rapp >*/
- xrad = rapp;
-/*< rapp=pi*xrad*sb/xmus/seb >*/
- rapp = pi * xrad * sb / xmus / seb;
-/*< else >*/
- } else {
-/*< rapp=-rapp >*/
- rapp = -rapp;
-/*< xrad=xmus*seb*(rapp)/pi/sb >*/
- xrad = xmus * seb * rapp / pi / sb;
-/*< endif >*/
- }
-/*< rog=rapp/tgasm >*/
- rog = rapp / tgasm;
-/*< rog=(rog-ainr(1,1)/tgasm)/sutott/sdtott >*/
- rog = (rog - ainr[0] / tgasm) / sutott / sdtott;
-/*< rog=rog/(1.+rog*sast) >*/
- rog /= rog * sast + 1.;
-/*< xa=pi*sb/xmus/seb/tgasm/sutott/sdtott >*/
- xa = pi * sb / xmus / seb / tgasm / sutott / sdtott;
-/*< xap=1./tgasm/sutott/sdtott >*/
- xap = 1. / tgasm / sutott / sdtott;
-/*< xb=ainr(1,1)/sutott/sdtott/tgasm >*/
- xb = ainr[0] / sutott / sdtott / tgasm;
-/*< xb=ainr(1,1)/sutott/sdtott/tgasm >*/
- xb = ainr[0] / sutott / sdtott / tgasm;
-/*< xc=sast >*/
- xc = sast;
-/* BRDF coupling correction */
-/*< if (idirec.eq.1) then >*/
- if (idirec == 1) {
-/* compute the coefficient of the 2nd degree equation */
-/* a*(ros^2)+b*ros+c */
-/* compute ratios and transmissions */
-/*< robarstar=(robar1/xnorm1)/brdfints(mu,1) >*/
- robarstar = robar1 / xnorm1 / brdfints[mu + 25];
-/*< robarpstar=(robar2/xnorm2)/brdfints(mu,1) >*/
- robarpstar = robar2 / xnorm2 / brdfints[mu + 25];
-/*< robarbarstar=albbrdf/brdfints(mu,1) >*/
- robarbarstar = albbrdf / brdfints[mu + 25];
-/*< tdd=exp(-sodtot/xmus) >*/
- tdd = exp(-sodtot / xmus);
-/*< tdu=exp(-sodtot/xmuv) >*/
- tdu = exp(-sodtot / xmuv);
-/*< tsd=sdtott-tdd >*/
- tsd = sdtott - tdd;
-/*< tsu=sutott-tdu >*/
- tsu = sutott - tdu;
-/* compute coefficients */
-/*< coefc=-(rapp/tgasm-ainr(1,1)/tgasm) >*/
- coefc = -(rapp / tgasm - ainr[0] / tgasm);
-/*< coefb=tdd*tdu+tdu*tsd*robarstar+tsu*tdd*robarpstar >*/
- coefb = tdd * tdu + tdu * tsd * robarstar + tsu * tdd *
- robarpstar;
-/*< coefb=coefb+tsu*tsd*robarbarstar >*/
- coefb += tsu * tsd * robarbarstar;
-/*< coefa=sdtott*sutott*sast*robarbarstar*robarbarstar >*/
- coefa = sdtott * sutott * sast * robarbarstar * robarbarstar;
-/*< coefa=coefa/(1-sast*(rog/brdfints(mu,1)*albbrdf)) >*/
- coefa /= 1 - sast * (rog / brdfints[mu + 25] * albbrdf);
-/* solve equations, compute solutions */
-/*< discri=sqrt(coefb*coefb-4*coefa*coefc) >*/
- discri = sqrt(coefb * coefb - coefa * 4 * coefc);
-/*< rogbrdf=(-coefb+discri)/(2*coefa) >*/
- rogbrdf = (-coefb + discri) / (coefa * 2);
-/* second pass use update value for rog */
-/*< coefa=sdtott*sutott*sast*robarbarstar*robarbarstar >*/
- coefa = sdtott * sutott * sast * robarbarstar * robarbarstar;
-/*< coefa=coefa/(1-sast*(rogbrdf/brdfints(mu,1)*albbrdf)) >*/
- coefa /= 1 - sast * (rogbrdf / brdfints[mu + 25] * albbrdf);
-/*< discri=sqrt(coefb*coefb-4*coefa*coefc) >*/
- discri = sqrt(coefb * coefb - coefa * 4 * coefc);
-/*< rogbrdf=(-coefb+discri)/(2*coefa) >*/
- rogbrdf = (-coefb + discri) / (coefa * 2);
-/*< else >*/
- } else {
-/*< rogbrdf=rog >*/
- rogbrdf = rog;
-/*< endif >*/
- }
-/*< write(iwr, 940) >*/
- io___691.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___691);
- e_wsfe();
-/*< write(iwr, 941)rapp >*/
- io___692.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___692);
- do_fio(&c__1, (char *)&rapp, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 942)xrad >*/
- io___693.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___693);
- do_fio(&c__1, (char *)&xrad, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< if (irapp.eq.0) then >*/
- if (irapp == 0) {
-/*< write(iwr, 943)rog >*/
- io___694.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___694);
- do_fio(&c__1, (char *)&rog, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 944)xa,xb,xc >*/
- io___695.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___695);
- do_fio(&c__1, (char *)&xa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xb, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xc, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< else >*/
- } else {
-/*< write(iwr,222)rog,rogbrdf >*/
- io___696.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___696);
- do_fio(&c__1, (char *)&rog, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&rogbrdf, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< endif >*/
- }
-/*< write(iwr, 944)xa,xb,xc >*/
- io___697.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___697);
- do_fio(&c__1, (char *)&xa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xb, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xc, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/* write(iwr, *) "david roy ", xap,xb,xc */
-/*< y=xa*xrad-xb >*/
- y = xa * xrad - xb;
-/* write(6,'(A5,F9.5)') 'rog=', rog */
-/* write(6,'(A5,F9.5,A8,F9.5)') 'y=',y, ' acr=',y/(1.+xc*y) */
-/* write(6,*) 'rogbrdf=',rogbrdf,' rodir=',brdfints(mu,1), */
-/* s ' diff=',rogbrdf-brdfints(mu,1) */
-/*< endif >*/
- }
-/*< stop >*/
- s_stop("", 0L);
-/* **********************************************************************c
- */
-/* c
-*/
-/* output editing formats c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< 103 format(1h*,2x,7h month:,i3,7h day : ,i3,t79,1h*) >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< 1271 format(1h*,12x,5e11.4,t79,1h*) >*/
-/*< 1 >*/
-/*< 5550 format(1h*,10x,25h aerosols type identity :,t79,1h*) >*/
-/*< 5 >*/
-/*< 5 >*/
-/*< 5553 format(1h*,15x,I2,1x,f10.1,13x,f5.3,15x,A15,t79,1h*) >*/
-/*< 5554 format(1h*,15x,20hno aerosols computed,t79,1h*) >*/
-/*< 5555 format(1h*,t79,1h*) >*/
-/*< 132 format(1h*,15x,a30,t79,1h*) >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< 135 format(1h*,t19,f6.4,T33,f5.3,T47,e8.3,T79,1h*) >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< 1 >*/
-/*< >*/
-/*< >*/
-/*< 170 format(1h*,15x,22h target reflectance : ,t79,1h*) >*/
-/*< 171 format(1h*,15x,29h environmental reflectance : ,t79,1h*) >*/
-/*< 172 format(1h*,t79,1h*,/,79(1h*),///) >*/
-/*< >*/
-/*< 174 format(1h*,10x,22h ground pressure [mb] ,1x,f7.2,1x,t79,1h*) >*/
-/*< 175 format(1h*,10x,22h ground altitude [km] ,f6.3,1x,t79,1h*) >*/
-/*< >*/
-/*< >*/
-/*< 220 format(1h*,23x,34h Lambertian assumption selected ,t79,1h*) >*/
-/*< 221 format(1h*,23x,34h BRDF coupling correction ,t79,1h*) >*/
-/*< 185 format(1h*,10x,30h input apparent reflectance : , f6.3,t79,1h*) >*/
-/*< >*/
-/*< >*/
-/*< 190 format(1h*,15x,31h brdf from in-situ measurements,t79,1h*) >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< 207 format(1h*,15x,A19,t79,1h*) >*/
-/*< 208 format(1h*,15x,A19,1x,f5.2,t79,1h*) >*/
-/*< 209 format(1h*,15x,A31,t79,1h*) >*/
-/*< >*/
-/*< >*/
-/* pressure at ground level (174) and altitude (175) */
-/*< >*/
-/*< 179 format(1h*,10x,31h plane pressure [mb] ,f7.2,1x,t79,1h*) >*/
-/*< 180 format(1h*,10x,31h plane altitude absolute [km] ,f6.3,1x,t79,1h*) >*/
-/*< 181 format(1h*,15x,37h atmosphere under plane description: ,t79,1h*) >*/
-/*< 182 format(1h*,15x,26h ozone content ,f6.3,1x,t79,1h*) >*/
-/*< 183 format(1h*,15x,26h h2o content ,f6.3,1x,t79,1h*) >*/
-/*< 184 format(1h*,15x,26haerosol opt. thick. 550nm ,f6.3,1x,t79,1h*) >*/
-/*< >*/
-/* L426: */
-/*< >*/
-/* L427: */
-/*< >*/
-/* L428: */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< 929 format(1h ,////) >*/
-/*< >*/
-/*< 931 format(1h*,6x,a20,t32,f8.5,t47,f8.5,t62,f8.5,t79,1h*) >*/
-/*< 932 format(1h*,6x,a20,t32,f8.2,t47,f8.2,t62,f8.2,t79,1h*) >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< 1401 format(1h*,t79,1h*) >*/
-/*< 1402 format(1h*,t79,1h*,/,79(1h*)) >*/
-/*< 1 >*/
-/*< 1501 format(1h*,6(F6.4,1X),F6.1,1X,4(F6.4,1X),t79,1h*) >*/
-/*< 1502 format(1h*,6(F5.3,1X),F6.1,1X,1(F6.4,1X),t79,1h*) >*/
-/* L1502: */
-/*< 1503 format(1h*,6x,5(F5.3,1X),F6.1,1X,1(F6.4,1X),t79,1h*) >*/
-/* L1503: */
-/*< end >*/
- return 0;
-} /* MAIN__ */
-
-/* Main program alias */ int ssssss_ () { MAIN__ (); return 0; }
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/main.f b/Modules/ThirdParty/6S/src/main.f
deleted file mode 100644
index 7185092..0000000
--- a/Modules/ThirdParty/6S/src/main.f
+++ /dev/null
@@ -1,3691 +0,0 @@
- program ssssss
-
-c**********************************************************************c
-c c
-c c
-c c
-c c
-c c
-c ******************************************************** c
-c * second simulation of satellite signal * c
-c * in the solar spectrum * c
-c * ... (6sV) ....... (6sV) ...... (6sV) ... * c
-c * version 1.0B * c
-c * * c
-c * Vector Code * c
-c * * c
-c * this code predicts the satellite signal from 0.25 * c
-c * to 4.0 microns assuming cloudless atmosphere. * c
-c * the main atmospheric effects (gaseous absorption * c
-c * by water vapor,carbon dioxyde,oxygen and ozone; * c
-c * scattering by molecules and aerosols) are taken * c
-c * into account. non-uniform surfaces may be * c
-c * considered,as well as bidirectional reflectances * c
-c * as boundary conditions * c
-c * * c
-c * the following input parameters are needed * c
-c * geometrical conditions * c
-c * atmospheric model for gaseous components * c
-c * aerosol model (type and concentration) * c
-c * spectral condition * c
-c * ground reflectance (type and spectral var.) * c
-c * at each step, you can either select some proposed * c
-c * standard conditions (for example,spectral bands of * c
-c * satellite for spectral conditions) or define your * c
-c * own conditions(in the example,you have to define * c
-c * the assumed spectral response). * c
-c * * c
-c * more details are given at each data input step * c
-c * * c
-c ******************************************************** c
-c c
-c c
-c c
-c c
-c c
-c**********************************************************************c
-
-
-
-
-
-
-c**********************************************************************c
-c c
-c c
-c ******************************************************** c
-c * The authors of this code are * c
-c * * c
-c * (1) Vermote E and Kotchenova.S.; * c
-c * (2) Roger J.C..; * c
-c * (3) Tanre D.; Deuze J.L; Herman M.; * c
-c * (4) Morcrette J.J.. * c
-c * * c
-c * from * c
-c * * c
-c * (1) Affiliation: Department of Geography * c
-c * University of Maryland and * c
-c * Goddard Space Flight Center * c
-c * Code 614.5 * c
-c * USA * c
-c * * c
-c * (2) ELICO/LOCL * c
-c * Universite du Littoral Cote d'Opale * c
-c * 32 Ave Foch, 62930 Wimereux * c
-c * France * c
-c * * c
-c * (3) laboratoire d' optique atmospherique * c
-c * universite des sciences et techniques * c
-c * de lille * c
-c * u.e.r. de physique fondamentale * c
-c * 59655 villeneuve d' ascq cedex * c
-c * france * c
-c * * c
-c * (4) e.c.m.w.f. * c
-c * * c
-c * * c
-c * * c
-c * * c
-c ******************************************************** c
-c c
-c c
-c**********************************************************************c
-
-
-c**********************************************************************c
-c ******************************************************** c
-c * limits of validity * c
-c * * c
-c * geometrical parameters no limitations * c
-c * * c
-c * atmospheric model no limitations * c
-c * * c
-c * aerosol model the visibility must be * c
-c * better than 5.0km * c
-c * for smaller values * c
-c * calculations might be * c
-c * no more valid. * c
-c * * c
-c * spectral conditions the gaseous transmittance* c
-c * and the scattering func * c
-c * tions are valid from 0.25* c
-c * to 4.0 micron. but the * c
-c * treatment of interaction * c
-c * between absorption and * c
-c * scattering is correct for* c
-c * not too large absorption * c
-c * if you want to compute * c
-c * signal within absorption * c
-c * bands,this interaction * c
-c * ought to be reconsidered * c
-c * * c
-c * ground reflectance (type) you can consider a patchy* c
-c * structure:that is a circu* c
-c * lar target of radius rad * c
-c * and of reflectance roc, * c
-c * within an environnement * c
-c * of reflectance roe. * c
-c * * c
-c * ground reflectance (type continued): for uniform * c
-c * surface conditions only, * c
-c * you may consider directio* c
-c * nal reflectance as bounda* c
-c * ry conditions. * c
-c * some analytical model are* c
-c * proposed, the user can * c
-c * specify his own values. * c
-c * the code assumes that the* c
-c * brdf is spectrally inde- * c
-c * pendent * c
-c * * c
-c * ground reflectance (spectral variation) four typi * c
-c * cal reflectances are pro * c
-c * posed, defined within * c
-c * given spectral range. * c
-c * this range differs accor * c
-c * ding to the selected case* c
-c * the reflectance is set to* c
-c * 0 outside this range,due * c
-c * to the deficiency of data* c
-c * user must verify these * c
-c * limits. that is obviously* c
-c * irrelevant for brdf * c
-c * * c
-c ******************************************************** c
-c**********************************************************************c
-
-c****************************************************************************c
-c for considering brdf< we have to compute the downward radiance in the c
-c whole hemisphere. to perform such computions, we selected the successive c
-c orders of scattering method. that method requires numerical integration c
-c over angles and optical depth. the integration method is the gauss method,c
-c mu is the number of angles nmu+1, nmu is settled to 24. the accuracy of c
-c the computations is obviously depending on the nmu value. this value c
-c can be easily changed as a parameter as well as the nt value which c
-c is the number of layers for performing the vertical integration. the c
-c downward radiance is computed for nmu values of the zenith angle and np c
-c values of the azimuth angle. the integration of the product of the c
-c radiance by the brdf is so performed over the nmu*np values. np is settledc
-c to 13, that value can be also changed. mu2 is equal to 2 times nmu. c
-c xlmus is the downward radiance, xf the downward irradiance, rm and gb c
-c the angles and the weights for the gauss integration over the zenith, rp c
-c and gp respectively for the azimuth integration. c
-c****************************************************************************c
-
- include "paramdef.inc"
- dimension anglem(mu2_p),weightm(mu2_p),
- s rm(-mu_p:mu_p),gb(-mu_p:mu_p),rp(np_p),gp(np_p)
- dimension xlmus(-mu_p:mu_p,np_p),xlmuv(-mu_p:mu_p,np_p)
- dimension angmu(10),angphi(13),brdfints(-mu_p:mu_p,np_p)
- s ,brdfdats(10,13),sbrdftmp(-1:1,1),sbrdf(1501),
- s srm(-1:1),srp(1),
- s brdfintv(-mu_p:mu_p,np_p),brdfdatv(10,13),robar(1501),
- s robarp(1501),robard(1501),xlm1(-mu_p:mu_p,np_p),
- s xlm2(-mu_p:mu_p,np_p)
- real romix_fi(nfi_p),rorayl_fi(nfi_p),ratm2_fi(nfi_p),
- s refet_fi(nfi_p),roatm_fi(3,20,nfi_p),xlphim(nfi_p)
-
- real rolut(mu_p,41),roluts(20,mu_p,41),roluti(mu_p,41)
- real rolutq(mu_p,41),rolutsq(20,mu_p,41),rolutiq(mu_p,41)
- real rolutu(mu_p,41),rolutsu(20,mu_p,41),rolutiu(mu_p,41)
- real filut(mu_p,41)
- integer aerod
- real its,lutmuv,luttv,iscama,iscami,scaa,cscaa,cfi
- integer nfilut(mu_p),nbisca
- real dtr
- real anglem,weightm,rm,gb,accu2,accu3
- real rp,gp,xlmus,xlmuv,angmu,angphi,brdfints,brdfdats
- real brdfintv,brdfdatv,robar,robarp,robard,xlm1,xlm2
- real c,wldisc,ani,anr,aini,ainr,rocl,roel,zpl,ppl,tpl,whpl
- real wopl,xacc,s,wlinf,wlsup,delta
- real nwlinf,nwlsup
- integer niinf,nisup
- real sigma,z,p,t,wh,wo,ext,ome,gasym,phase,qhase,roatm,dtdir
- real dtdif,utdir,utdif,sphal,wldis,trayl,traypl,pi,pi2,step
- real asol,phi0,avis,phiv,tu,xlon,xlat,xlonan,hna,dsol,campm
- real phi,phirad,xmus,xmuv,xmup,xmud,adif,uw,uo3,taer55
- real taer,v,xps,uwus,uo3us,xpp,taer55p,puw,puo3,puwus
- real puo3us,wl,wlmoy,tamoy,tamoyp,pizmoy,pizmoyp,trmoy
- real trmoyp,fr,rad,spalt,sha,sham,uhase
- real albbrdf,par1,par2,par3,par4,robar1,xnorm1,rob,xnor,rodir
- real rdown,rdir,robar2,xnorm2,ro,roc,roe,rapp,rocave,roeave
- real seb,sbor,swl,sb,refet,refet1,refet2,refet3,alumet
- real refeti,pinst,ksiinst,ksirad
- real rpfet,rpfet1,rpfet2,rpfet3,plumet,plumeas
- real tgasm,rog,dgasm,ugasm,sdwava,sdozon,sddica,sdoxyg
- real sdniox,sdmoca,sdmeth,suwava,suozon,sudica,suoxyg
- real suniox,sumoca,sumeth,stwava,stozon,stdica,stoxyg,stniox
- real stmoca,stmeth,sodray,sodaer,sodtot,fophsr,fophsa,sroray
- real sroaer,srotot,ssdaer,sdtotr,sdtota,sdtott,sutotr,sutota
- real sutott,sasr,sasa,sast,dtozon,dtdica,dtoxyg
- real dtniox,dtmeth,dtmoca,utozon,utdica,utoxyg,utniox
- real utmeth,utmoca,attwava,ttozon,ttdica,ttoxyg,ttniox
- real ttmeth,ttmoca,dtwava,utwava,ttwava,coef,romix,rorayl
- real roaero,phaa,phar,tsca,tray,trayp,taerp,dtott,utott
- real rqmix,rqrayl,rqaero,qhaa,qhar,foqhsr,foqhsa,foqhst
- real rumix,rurayl,ruaero,uhaa,uhar,rpmix,rpaero,rprayl
- real srpray,srpaer,srptot,rpmeas1,rpmeas2,rpmeas3
- real srqray,srqaer,srqtot,sruray,sruaer,srutot
- real astot,asray,asaer,utotr,utota,dtotr,dtota,dgtot,tgtot
- real tgp1,tgp2,rqatm,ruatm,fouhst,fouhsr,fouhsa,coefp
- real ugtot,edifr,edifa,tdird,tdiru,tdifd,tdifu,fra
- real fae,avr,romeas1,romeas2,romeas3,alumeas,sodrayp
- real sdppray,sdppaer,sdpptot,rop,sdpray,sdpaer,sdptot
- real spdpray,spdpaer,spdptot
- real ratm1,ratm2,ratm3,rsurf,rpatm1,rpatm2,rpatm3,rpsurf
- real sodaerp,sodtotp,tdir,tdif,etn,esn,es,ea0n,ea0,ee0n
- real ee0,tmdir,tmdif,xla0n,xla0,xltn,xlt,xlen,xle,pizera
- real fophst,pizerr,pizert,xrad,xa,xb,xc
- integer nt,mu,mu2,np,k,iwr,mum1,idatmp,ipol
- integer j,iread,l,igeom,month,jday,nc,nl,idatm,iaer,iaerp,n
- integer iwave,iinf,isup,ik,i,inhomo
- integer idirec,ibrdf,igroun
- integer igrou1,igrou2,isort,irapp,ilut
-c variables used in the BRDF coupling correction process
- real robarstar,robarpstar,robarbarstar,tdd,tdu,tsd,tsu
- real coefa,coefb,coefc,discri,rogbrdf
-c variables related to surface polarization
- integer irop
- real ropq,ropu,pveg,wspd,azw,razw
-
-
-c***********************************************************************
-c to vary the number of quadratures
-c***********************************************************************
- integer nquad
- common /num_quad/ nquad
-
-c***********************************************************************
-c the aerosol profile
-c***********************************************************************
- integer iaer_prof,num_z
- real alt_z,taer_z,taer55_z,total_height,height_z(0:nt_p_max)
- common/aeroprof/num_z,alt_z(0:nt_p_max),taer_z(0:nt_p_max),
- &taer55_z(0:nt_p_max)
- character aer_model(15)*50
-
-c***********************************************************************
-c return to 6s
-c***********************************************************************
- dimension c(4),wldisc(20),ani(2,3),anr(2,3),aini(2,3),ainr(2,3)
- dimension rocl(1501),roel(1501)
- real rfoaml(1501),rglitl(1501),rwatl(1501)
- real rn,ri,x1,x2,x3,cij,rsunph,nrsunph,rmax,rmin,cij_out(4)
- integer icp,irsunph,i1,i2
- character etiq1(8)*60,nsat(119)*17,atmid(7)*51,reflec(8)*71
- character FILE*80,FILE2*80
- logical ier
- integer igmax
-
- common/sixs_ier/iwr,ier
- common /mie_in/ rmax,rmin,icp,rn(20,4),ri(20,4),x1(4),x2(4),
- s x3(4),cij(4),irsunph,rsunph(50),nrsunph(50)
- common /multorder/ igmax
-c***********************************************************************
-c for considering pixel and sensor altitude
-c***********************************************************************
- real pps,palt,ftray
- common /sixs_planesim/zpl(34),ppl(34),tpl(34),whpl(34),wopl(34)
- common /sixs_test/xacc
-c***********************************************************************
-c for considering aerosol and brdf
-c***********************************************************************
-
- integer options(5)
- integer pild,pihs
- real optics(3),struct(4)
- real pxLt,pc,pRl,pTl,pRs
- real pws,phi_wind,xsal,pcl,paw,rfoam,rwat,rglit
- real rfoamave,rwatave,rglitave
-
- real uli,eei,thmi,sli,cabi,cwi,vaii,rnci,rsl1i
- real p1,p2,p3
-c***********************************************************************
-c return to 6s
-c***********************************************************************
- common /sixs_ffu/s(1501),wlinf,wlsup
- common /sixs_del/ delta,sigma
- common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34)
- common /sixs_aer/ext(20),ome(20),gasym(20),phase(20),qhase(20),
- suhase(20)
- common /sixs_disc/ roatm(3,20),dtdir(3,20),dtdif(3,20),
- s utdir(3,20),utdif(3,20),sphal(3,20),wldis(20),trayl(20),
- s traypl(20),rqatm(3,20),ruatm(3,20)
-
-
-c****************************************************************************c
-c angmu and angphi are the angles were the brdf is measured. these values c
-c can be changed as soon as they are well distributed over the whole space c
-c before the gauss integration, these values are interpolated to the gauss c
-c angles c
-c****************************************************************************c
- data angmu /85.0,80.0,70.0,60.0,50.0,40.0,30.0,20.0,10.0,0.00/
- data angphi/0.00,30.0,60.0,90.0,120.0,150.0,180.0,
- s 210.0,240.0,270.0,300.0,330.0,360.0/
-
-c***********************************************************************
-c return to 6s
-c***********************************************************************
- data wldisc /0.350,0.400,0.412,0.443,0.470,0.488,0.515,0.550,
- s 0.590,0.633,0.670,0.694,0.760,0.860,1.240,1.536,
- s 1.650,1.950,2.250,3.750/
-
-
- data etiq1/
- s '(1h*,22x,34h user defined conditions ,t79,1h*)',
- s '(1h*,22x,24h meteosat observation ,t79,1h*) ',
- s '(1h*,22x,25h goes east observation ,t79,1h*) ',
- s '(1h*,22x,25h goes west observation ,t79,1h*) ',
- s '(1h*,22x,30h avhrr (AM noaa) observation ,t79,1h*) ',
- s '(1h*,22x,30h avhrr (PM noaa) observation ,t79,1h*) ',
- s '(1h*,22x,24h h.r.v. observation ,t79,1h*) ',
- s '(1h*,22x,24h t.m. observation ,t79,1h*) '/
-
- data nsat/
- s ' constant ',' user s ',
- s ' meteosat ',' goes east ',' goes west ',
- s ' avhrr 1 (noaa6) ',' avhrr 2 (noaa6) ',
- s ' avhrr 1 (noaa7) ',' avhrr 2 (noaa7) ',
- s ' avhrr 1 (noaa8) ',' avhrr 2 (noaa8) ',
- s ' avhrr 1 (noaa9) ',' avhrr 2 (noaa9) ',
- s ' avhrr 1 (noaa10)',' avhrr 2 (noaa10)',
- s ' avhrr 1 (noaa11)',' avhrr 2 (noaa11)',
- s ' hrv1 1 ',' hrv1 2 ',' hrv1 3 ',
- s ' hrv1 pan ',
- s ' hrv2 1 ',' hrv2 2 ',' hrv2 3 ',
- s ' hrv2 pan ',
- s ' tm 1 ',' tm 2 ',' tm 3 ',
- s ' tm 4 ',' tm 5 ',' tm 7 ',
- s ' mss 4 ',' mss 5 ',
- s ' mss 6 ',' mss 7 ',
- s ' mas 1 ',' mas 2 ',' mas 3 ',
- s ' mas 4 ',' mas 5 ',' mas 6 ',
- s ' mas 7 ',' modis 1 ',' modis 2 ',
- s ' modis 3 ',' modis 4 ',' modis 5 ',
- s ' modis 6 ',' modis 7 ',' modis 8 ',
- s ' avhrr 1 (noaa12)',' avhrr 2 (noaa12)',
- s ' avhrr 1 (noaa14)',' avhrr 2 (noaa14)',
- s ' polder 1 ',' polder 2 ',
- s ' polder 3 ',' polder 4 ',' polder 5 ',
- s ' polder 6 ',' polder 7 ',' polder 8 ',
- s ' seawifs 1 ',' seawifs 2 ',
- s ' seawifs 3 ',' seawifs 4 ',' seawifs 5 ',
- s ' seawifs 6 ',' seawifs 7 ',' seawifs 8 ',
- s ' aatsr 1 ',' aatsr 2 ',' aatsr 3 ',
- s ' aatsr 4 ',' meris 1 ',' meris 2 ',
- s ' meris 3 ',' meris 4 ',' meris 5 ',
- s ' meris 6 ',' meris 7 ',' meris 8 ',
- s ' meris 9 ',' meris 10 ',' meris 11 ',
- s ' meris 12 ',' meris 13 ',' meris 14 ',
- s ' meris 15 ',' gli 1 ',' gli 2 ',
- s ' gli 3 ',' gli 4 ',' gli 5 ',
- s ' gli 6 ',' gli 7 ',' gli 8 ',
- s ' gli 9 ',' gli 10 ',' gli 11 ',
- s ' gli 12 ',' gli 13 ',' gli 14 ',
- s ' gli 15 ',' gli 16 ',' gli 17 ',
- s ' gli 18 ',' gli 19 ',' gli 20 ',
- s ' gli 21 ',' gli 22 ',' gli 23 ',
- s ' gli 24 ',' gli 25 ',' gli 26 ',
- s ' gli 27 ',' gli 28 ',' gli 29 ',
- s ' gli 30 '/
-
- data atmid /
- s 'no absorption computed ',
- s 'tropical (uh2o=4.12g/cm2,uo3=.247cm-atm)',
- s 'midlatitude summer (uh2o=2.93g/cm2,uo3=.319cm-atm)',
- s 'midlatitude winter (uh2o=.853g/cm2,uo3=.395cm-atm)',
- s 'subarctic summer (uh2o=2.10g/cm2,uo3=.480cm-atm)',
- s 'subarctic winter (uh2o=.419g/cm2,uo3=.480cm-atm)',
- s 'us standard 1962 (uh2o=1.42g/cm2,uo3=.344cm-atm)'/
-
- data reflec /
- & '(1h*,12x,39h user defined spectral reflectance ,f6.3,t79
- & ,1h*) ',
- & '(1h*,12x,27h monochromatic reflectance ,f6.3,t79,1h*)',
- & '(1h*,12x,39h constant reflectance over the spectra ,f6.3,t79
- & ,1h*) ',
- & '(1h*,12x,39h spectral vegetation ground reflectance,f6.3,t79
- & ,1h*) ',
- & '(1h*,12x,39h spectral clear water reflectance ,f6.3,t79
- & ,1h*) ',
- & '(1h*,12x,39h spectral dry sand ground reflectance ,f6.3,t79
- & ,1h*) ',
- & '(1h*,12x,39h spectral lake water reflectance ,f6.3,t79
- & ,1h*) ',
- & '(1h*,12x,39h spectral volcanic debris reflectance ,f6.3,t79
- & ,1h*) '/
-
- FILE=' '
- FILE2=' '
-
-c***********************************************************************
-c Parameters initialization
-c***********************************************************************
- nt=nt_p
- mu=mu_p
- mu2=mu2_p
- np=np_p
- nfi=nfi_p
- iwr=6
- ier=.FALSE.
- iinf=1
- isup=1501
- igmax=20
-c***********************************************************************
-c preliminary computations for gauss integration
-c***********************************************************************
- pi=acos(-1.)
- pi2=2*pi
- accu2=1.E-03
- accu3=1.E-07
- do k=1,13
- angphi(k)=angphi(k)*pi/180.
- enddo
- do k=1,10
- angmu(k)=cos(angmu(k)*pi/180.)
- enddo
- call gauss(-1.,1.,anglem,weightm,mu2)
- call gauss(0.,pi2,rp,gp,np)
- mum1=mu-1
- do 581 j=-mum1,-1
- k=mu+j
- rm(-j-mu)=anglem(k)
- gb(-j-mu)=weightm(k)
- 581 continue
- do 582 j=1,mum1
- k=mum1+j
- rm(mu-j)=anglem(k)
- gb(mu-j)=weightm(k)
- 582 continue
- gb(-mu)=0.
- gb(0)=0.
- gb(mu)=0.
-
-c***********************************************************************
-c return to 6s
-c***********************************************************************
-c constantes values
- sigma=0.056032
- delta=0.0279
-CCC pinst=0.02
-CCC ksiinst=0.
- xacc=1.e-06
- iread=5
- step=0.0025
- do 1111 l=1,20
- wldis(l)=wldisc(l)
- 1111 continue
-
-c**********************************************************************c
-c c
-c * sun c
-c \ * / c
-c * * * * * c
-c z / * \ c
-c + /* c
-c satellite / + / c
-c o/ + / c
-c /.\ + /. c
-c / . \ _avis-_+_-asol_/ . c
-c . \- -+ / . north c
-c . \ + / . + c
-c . \ + / .+ c
-c . \ + / +. c
-c . \ + / + . c
-c . \ + / + . c
-c . \ +/ + . c
-c west + + + + + + + . + + + + +\+ + + + + . + + + + + + + + east c
-c . +.. . c
-c . + . . . c
-c . + . . . c
-c . + . .'. . c
-c . + .. . , ' .. c
-c .+ . \ . c
-c +. . \ . c
-c + . . \ . c
-c south . . (phiv-phi0) c
-c c
-c c
-c c
-c**********************************************************************c
-
-c**********************************************************************c
-c igeom geometrical conditions c
-c -------------------------------------- c
-c c
-c c
-c you choose your own conditions; igeom=0 c
-c 0 enter solar zenith angle (in degrees ) c
-c solar azimuth angle " c
-c satellite zenith angle " c
-c satellite azimuth angle " c
-c month c
-c day of the month c
-c c
-c or you select one of the following satellite conditions:igeom=1to7 c
-c 1 meteosat observation c
-c enter month,day,decimal hour (universal time-hh.ddd) c
-c n. of column,n. of line.(full scale 5000*2500) c
-c c
-c 2 goes east observation c
-c enter month,day,decimal hour (universal time-hh.ddd) c
-c n. of column,n. of line.(full scale 17000*12000)c
-c c
-c 3 goes west observation c
-c enter month,day,decimal hour (universal time-hh.ddd) c
-c n. of column,n. of line.(full scale 17000*12000)c
-c c
-c 4 avhrr ( PM noaa ) c
-c enter month,day,decimal hour (universal time-hh.ddd) c
-c n. of column(1-2048),xlonan,hna c
-c give long.(xlonan) and overpass hour (hna) at c
-c the ascendant node at equator c
-c c
-c 5 avhrr ( AM noaa ) c
-c enter month,day,decimal hour (universal time-hh.ddd) c
-c n. of column(1-2048),xlonan,hna c
-c give long.(xlonan) and overpass hour (hna) at c
-c the ascendant node at equator c
-c c
-c 6 hrv ( spot ) * enter month,day,hh.ddd,long.,lat.c
-c c
-c 7 tm ( landsat ) * enter month,day,hh.ddd,long.,lat.c
-c c
-c c
-c note: for hrv and tm experiments long. and lat. are the c
-c coordinates of the scene center. c
-c lat. must be > 0 for north lat., < 0 for south lat. c
-c long. must be > 0 for east long., <0 for west long. c
-c c
-c solar and viewing positions are computed c
-c c
-c**********************************************************************c
-
- read(iread,*) igeom
-
- if (igeom.lt.0) then
- if (igeom.lt.-10) then
- igmax=int(abs(igeom/10))
- igeom=igeom+igmax*10
- endif
- ilut=0
- igeom=0
- endif
- ilut=0
- goto(1001,1002,1003,1004,1005,1006,1007),igeom
-c igeom=0.....
-
- read(iread,*) asol,phi0,avis,phiv,month,jday
-
- goto 22
-c
- 1001 read(iread,*) month,jday,tu,nc,nl
- call posmto(month,jday,tu,nc,nl,
- 1 asol,phi0,avis,phiv,xlon,xlat)
- goto 22
- 1002 read(iread,*) month,jday,tu,nc,nl
- call posge(month,jday,tu,nc,nl,
- 1 asol,phi0,avis,phiv,xlon,xlat)
- goto 22
- 1003 read(iread,*) month,jday,tu,nc,nl
- call posgw(month,jday,tu,nc,nl,
- 1 asol,phi0,avis,phiv,xlon,xlat)
- goto 22
- 1004 read(iread,*) month,jday,tu,nc,xlonan,hna
- campm=1.0
- call posnoa(month,jday,tu,nc,xlonan,hna,campm,
- 1 asol,phi0,avis,phiv,xlon,xlat)
- goto 22
- 1005 read(iread,*) month,jday,tu,nc,xlonan,hna
- campm=-1.0
- call posnoa(month,jday,tu,nc,xlonan,hna,campm,
- 1 asol,phi0,avis,phiv,xlon,xlat)
- goto 22
- 1006 read(iread,*) month,jday,tu,xlon,xlat
- call posspo(month,jday,tu,xlon,xlat,
- a asol,phi0,avis,phiv)
- goto 22
- 1007 read(iread,*) month,jday,tu,xlon,xlat
- call poslan(month,jday,tu,xlon,xlat,
- s asol,phi0,avis,phiv)
- 22 continue
-
- if(ier) stop
- dsol=1.
- call varsol(jday,month,dsol)
-
-c**********************************************************************c
-c c
-c / scattered direction c
-c / c
-c / c
-c / adif c
-c incident + + + + + + + + + + + + + + + c
-c direction c
-c c
-c**********************************************************************c
- phi=abs(phiv-phi0)
- phirad=(phi0-phiv)*pi/180.
- if (phirad.lt.0.) phirad=phirad+2.*pi
- if (phirad.gt.(2.*pi)) phirad=phirad-2.*pi
- xmus=cos(asol*pi/180.)
- xmuv=cos(avis*pi/180.)
- xmup=cos(phirad)
- xmud=-xmus*xmuv-sqrt(1.-xmus*xmus)*sqrt(1.-xmuv*xmuv)*xmup
-c test vermote bug
- if (xmud.gt.1.) xmud=1.
- if (xmud.lt.-1.) xmud=-1.
- adif=acos(xmud)*180./pi
-
-
-c**********************************************************************c
-c idatm atmospheric model c
-c -------------------- c
-c c
-c c
-c you select one of the following standard atmosphere: idatm=0 to 6 c
-c 0 no gaseous absorption c
-c 1 tropical ) c
-c 2 midlatitude summer ) c
-c 3 midlatitude winter ) c
-c 4 subarctic summer ) from lowtran c
-c 5 subarctic winter ) c
-c 6 us standard 62 ) c
-c c
-c or you define your own atmospheric model idatm=7 or 8 c
-c 7 user profile (radiosonde data on 34 levels) c
-c enter altitude ( in km ) c
-c pressure ( in mb ) c
-c temperature ( in k ) c
-c h2o density (in g/m3) c
-c o3 density (in g/m3) c
-c c
-c for example, altitudes are from 0 to 25km step of 1km c
-c from 25 to 50km step of 5km c
-c and two values at 70km and 100km c
-c so you have 34*5 values to input. c
-c 8 enter water vapor and ozone contents c
-c uw (in g/cm2 ) c
-c uo3 (in cm-atm) c
-c profil is taken from us62 c
-c c
-c**********************************************************************c
- uw=0.
- uo3=0.
-
- read(iread,*) idatm
-
-
- if(idatm.eq.0) go to 5
- if(idatm.eq.8) read(iread,*) uw,uo3
- if(idatm.ne.7) go to 6
- do 7 k=1,34
- read(iread,*) z(k),p(k),t(k),wh(k),wo(k)
- 7 continue
- go to 5
- 6 if(idatm.eq.1) call tropic
- if(idatm.eq.2) call midsum
- if(idatm.eq.3) call midwin
- if(idatm.eq.4) call subsum
- if(idatm.eq.5) call subwin
- if(idatm.eq.6) call us62
-c we have to define an atmosphere to compute rayleigh optical depth
- 5 if(idatm.eq.0.or.idatm.eq.8) call us62
-
-c**********************************************************************c
-c THIS OPTION IS NOT AVAILABLE THE CODE RUNS WITH IPOL=1 c
-c ipol computation of the atmospheric polarization c
-c ------------------------------------------- c
-c c
-c**********************************************************************c
-
-c read(iread,*) ipol
- ipol=1
-
-c**********************************************************************c
-c c
-c iaer aerosol model(type) and profile c
-c -------------- c
-c iaer = -1 The user-defined profile. You have to input the c
-c number of layers first, then the height (km), c
-c optical thickness (at 550 nm), and the type of c
-c aerosol (see below) for each layer, starting from c
-c the ground. The present version of the program c
-c works only with the same type of aerosol for each c
-c layer. c
-c c
-c Example for iaer = -1: c
-c 4 c
-c 2.0 0.200 1 c
-c 10.0 0.025 1 c
-c 8.0 0.003 1 c
-c 80.0 0.000 1 c
-c c
-c The maximum total height of all layers cannot exceed 300 km. c
-c c
-c If you do not put iaer = -1, the program will use the default c
-c exponential profile. In this case, you need to select one of c
-c the following standard aerosol models: c
-c c
-c iaer = 0 no aerosols c
-c 1 continental model ) c
-c 2 maritime model ) according to sra models c
-c 3 urban model ) c
-c 5 shettle model for background desert aerosol c
-c 6 biomass burning c
-c 7 stratospheric model c
-c c
-c or you define your own model using basic components: iaer=4 c
-c 4 enter the volumic percentage of each component c
-c c(1) = volumic % of dust-like c
-c c(2) = volumic % of water-soluble c
-c c(3) = volumic % of oceanic c
-c c(4) = volumic % of soot c
-c between 0 to 1 c
-c c
-c or you define your own model using size distribution function: c
-c 8 Multimodal Log Normal distribution (up to 4 modes) c
-c 9 Modified gamma distribution c
-c 10 Junge Power-Law distribution c
-c c
-c or you define a model using sun-photometer measurements: c
-c 11 Sun Photometer distribution (50 values max) c
-c you have to enter: r and d V / d (logr) c
-c where r is the radius (in micron) and V the volume c
-c and d V / d (logr) in (cm3/cm2/micron) c
-c and then you have to enter: nr and ni for each wavelengthc
-c where nr and ni are respectively the real and c
-c imaginary part of the refractive index c
-c c
-c or you can use results computed and previously saved c
-c 12 Reading of data previously saved into FILE c
-c you have to enter the identification name FILE in the c
-c next line of inputs. c
-c c
-c c
-c iaerp and FILE aerosol model(type)-Printing of results c
-c --------------------------------------- c
-c c
-c For iaer=8,9,10,and 11: c
-c results from the MIE subroutine may be saved into the file c
-c FILE.mie (Extinction and scattering coefficients, single c
-c scattering albedo, Asymmetry parameter, phase function at c
-c predefined wavelengths) and then can be re-used with the c
-c option iaer=12 where FILE is an identification name you c
-c have to enter. c
-c c
-c So, if you select iaer=8,9,10,or 11, next line following the c
-c requested inputs by the options 8,9,10, or 11 you have to enter c
-c iaerp c
-c c
-c iaerp=0 results will not be saved c
-c iaerp=1 results will be saved into the file FILE.mie c
-c next line enter FILE c
-c c
-c c
-c example for iaer and iaerp c
-c 8 Multimodal Log-Normale distribution selected c
-c 0.0001 100.0 3 Rmin, Rmax, 3 components c
-c 0.5000 2.99 1.66E-7 Rmean, Sigma, percentage density-1st componentc
-c 1.53 1.53 1.53 1.53 1.53 1.53 1.52 1.40 1.22 1.27 nr-10 wavelengths c
-c .008 .008 .008 .008 .008 .008 .008 .008 .009 .011 ni-10 wavelengths c
-c 0.0050 2.99 0.5945 Rmean, Sigma, percentage density-2nd componentc
-c 1.53 1.53 1.53 1.53 1.53 1.53 1.52 1.51 1.42 1.452 nr-10 wavelengths c
-c .005 .005 .005 .005 .006 .007 .012 .023 .010 .004 ni-10 wavelengths c
-c 0.0118 2.00 0.4055 Rmean, Sigma, percentage density-3rd componentc
-c 1.75 1.75 1.75 1.75 1.75 1.75 1.75 1.77 1.81 1.90 nr-10 wavelengths c
-c .46 .45 .45 .44 .43 .43 .43 .46 .50 .57 ni-10 wavelengths c
-c 1 Results will be saved into FILE.mie c
-c URBAN-WCP112 Identification of the output file called FILE c
-c -> results will be saved into URBAN-WCP112.mie c
-c c
-c**********************************************************************c
- rmin=0.
- rmax=0.
- icp=1
- do i=1,4
- x1(i)=0.0
- x2(i)=0.0
- x3(i)=0.0
- do l=1,20
- rn(l,i)=0.0
- ri(l,i)=0.0
- enddo
- enddo
- do i=1,50
- rsunph(i)=0.
- nrsunph(i)=0.
- enddo
- cij(1)=1.00
-
- taer=0.
- taer55=0.
- iaer_prof=0
-
- read(iread,*) iaer
-
-c the user-defined aerosol profile
- if (iaer.lt.0) then
-
- total_height=0.0
- iaer_prof=1
- num_z=0
- do i=0,50
- alt_z(i)=0.0
- taer55_z(i)=0.0
- taer_z(i)=0.0
- height_z(i)=0.0
- enddo
-
- read(5,*) num_z
-
- do i=0,num_z-1
- read(5,*) height_z(num_z-i),taer55_z(num_z-i),iaer
- alt_z(num_z-1-i)=total_height+height_z(num_z-i)
- total_height=total_height+height_z(num_z-i)
- taer55=taer55+taer55_z(num_z-i)
- enddo
-
- endif
-c the user-defined aerosol profile
-
- if (iaer.ge.0.and.iaer.le.7) nquad=nqdef_p
- if (iaer.ge.8.and.iaer.le.11) nquad=nquad_p
-
- if(iaer.eq.4) read(iread,*) (c(n),n=1,4)
-
- goto(49,40,41,42,49,49,49,49,43,44,45,46,47),iaer+1
-
- 40 c(1)=0.70
- c(2)=0.29
- c(3)=0.00
- c(4)=0.01
- go to 49
- 41 c(1)=0.00
- c(2)=0.05
- c(3)=0.95
- c(4)=0.00
- go to 49
- 42 c(1)=0.17
- c(2)=0.61
- c(3)=0.00
- c(4)=0.22
- go to 49
- 43 read(iread,*) rmin,rmax,icp
- do i=1,icp
- read(5,*)x1(i),x2(i),cij(i)
- read(5,*)(rn(l,i),l=1,20)
- read(5,*)(ri(l,i),l=1,20)
- enddo
- do i=1,icp
- cij_out(i)=cij(i)
- enddo
- go to 49
- 44 read(iread,*) rmin,rmax
- read(iread,*) x1(1),x2(1),x3(1)
- read(5,*)(rn(l,1),l=1,20)
- read(5,*)(ri(l,1),l=1,20)
- go to 49
- 45 read(iread,*) rmin,rmax
- read(iread,*) x1(1)
- read(5,*)(rn(l,1),l=1,20)
- read(5,*)(ri(l,1),l=1,20)
- go to 49
- 46 read(5,*)irsunph
- do i=1,irsunph
- read(5,*)rsunph(i),nrsunph(i)
-C nrsunph(i)=nrsunph(i)/(rsunph(i)**4.)/(4*3.1415/3)
- enddo
- rmin=rsunph(1)
- rmax=rsunph(irsunph)+1e-07
- read(5,*)(rn(l,1),l=1,20)
- read(5,*)(ri(l,1),l=1,20)
- go to 49
- 47 read(5,'(A80)')FILE2
- i2=index(FILE2,' ')-1
- go to 49
-
- 49 continue
-
- if (iaer.ge.8.and.iaer.le.11)then
- read(5,*)iaerp
- if (iaerp.eq.1)read(5,'(A80)')FILE
- i1=index(FILE,' ')-1
- FILE2=FILE(1:I1)//'.mie'
- i2=index(FILE2,' ')-1
- endif
-
- call aeroso(iaer,c,xmud,wldis,FILE2,ipol)
-
-
-c**********************************************************************c
-c aerosol model (concentration) c
-c ---------------------------- c
-c (only for the default exponential profile) c
-c c
-c v if you have an estimate of the meteorological c
-c parameter: the visibility v, enter directly the c
-c value of v in km (the aerosol optical depth will c
-c be computed from a standard aerosol profile) c
-c c
-c v=0, taer55 if you have an estimate of aerosol optical depth , c
-c enter v=0 for the visibility and enter the aerosol c
-c optical depth at 550 c
-c c
-c v=-1 warning: if iaer=0, enter v=-1 c
-c c
-c**********************************************************************c
-
- if (iaer_prof.eq.0) then
-
- read(iread,*) v
- if(v) 71,10,11
- 10 read(iread,*) taer55
- v=exp(-log(taer55/2.7628)/0.79902)
- goto 71
- 11 call oda550(iaer,v,taer55)
-
- 71 continue
- endif
-
-c**********************************************************************c
-c xps is the parameter to express the altitude of target c
-c c
-c c
-c xps >=0. means the target is at the sea level c
-c c
-c xps <0. means you know the altitude of the target c
-c expressed in km and you put that value as xps c
-c c
-c c
-c**********************************************************************c
-
- 771 read(iread,*) xps
-
- if (xps.ge.0.) then
- xps=0.
- uwus=1.424
- uo3us=0.344
- else
- if (idatm.ne.8) then
- call pressure(uw,uo3,xps)
- else
- call pressure(uwus,uo3us,xps)
- endif
- endif
-
-c**********************************************************************c
-c c
-c xpp is the parameter to express the sensor altitude c
-c c
-c c
-c xpp= -1000 means that the sensor is a board a satellite c
-c xpp= 0 means that the sensor is at the ground level c
-c c
-c c
-c for aircraft simulations c
-c -100< xpp <0 means you know the altitude of the sensor expressed c
-c in kilometers units c
-c this altitude is relative to the target altitude c
-c c
-c for aircraft simulations only, you have to give c
-c puw,po3 (water vapor content,ozone content between the c
-c aircraft and the surface) c
-c taerp (the aerosol optical thickness at 550nm between the c
-c aircraft and the surface) c
-c if these data are not available, enter negative values for all c
-c of them, puw,po3 will then be interpolated from the us62 standard c
-C profile according to the values at ground level. Taerp will be c
-c computed according to a 2km exponential profile for aerosol. c
-c**********************************************************************c
-
- read(iread,*) xpp
-
- xpp=-xpp
- if (xpp.le.0.0) then
-c ground measurement option
- palt=0.
- pps=p(1)
- idatmp=0
- taer55p=0.
- puw=0.
- puoz=0.
- else
- if (xpp.ge.100.) then
-c satellite case of equivalent
- palt=1000.
- pps=0.
- taer55p=taer55
- ftray=1.
- idatmp=4
- else
-c "real" plane case
- read(iread,*) puw,puo3
- if (puw.lt.0.) then
- call presplane(puw,puo3,xpp,ftray)
- idatmp=2
- if (idatm.eq.8) then
- puwus=puw
- puo3us=puo3
- puw=puw*uw/uwus
- puo3=puo3*uo3/uo3us
- idatmp=8
- endif
- else
- call presplane(puwus,puo3us,xpp,ftray)
- idatmp=8
- endif
- if(ier) stop
- palt=zpl(34)-z(1)
- pps=ppl(34)
- read(iread,*) taer55p
- if ((taer55p.lt.0.).or.((taer55-taer55p).lt.accu2)) then
-c a scale heigh of 2km is assumed in case no value is given for taer55p
- taer55p=taer55*(1.-exp(-palt/2.))
- else
-C compute effective scale heigh
- sham=exp(-palt/4.)
- sha=1.-(taer55p/taer55)
- if (sha.ge.sham) then
- taer55p=taer55*(1.-exp(-palt/4.))
- else
- sha=-palt/log(sha)
- taer55p=taer55*(1.-exp(-palt/sha))
- endif
- endif
- endif
- endif
-
-c**********************************************************************c
-c iwave input of the spectral conditions c
-c -------------------------------- c
-c c
-c you choose to define your own spectral conditions: iwave=-1,0 or 1 c
-c (three user s conditions ) c
-c -2 enter wlinf, wlsup, the filter function will be equal to 1c
-c over the whole band (as iwave=0) but step by step output c
-c will be printed c
-c -1 enter wl (monochr. cond, gaseous absorption is included) c
-c c
-c 0 enter wlinf, wlsup. the filter function will be equal to 1c
-c over the whole band. c
-c c
-c 1 enter wlinf, wlsup and user's filter function s(lambda) c
-c ( by step of 0.0025 micrometer). c
-c c
-c c
-c or you select one of the following satellite spectral bands: c
-c with indication in brackets of the band limits used in the code : c
-c iwave=2 to 60 c
-c 2 vis band of meteosat ( 0.350-1.110 ) c
-c 3 vis band of goes east ( 0.490-0.900 ) c
-c 4 vis band of goes west ( 0.490-0.900 ) c
-c 5 1st band of avhrr(noaa6) ( 0.550-0.750 ) c
-c 6 2nd " ( 0.690-1.120 ) c
-c 7 1st band of avhrr(noaa7) ( 0.500-0.800 ) c
-c 8 2nd " ( 0.640-1.170 ) c
-c 9 1st band of avhrr(noaa8) ( 0.540-1.010 ) c
-c 10 2nd " ( 0.680-1.120 ) c
-c 11 1st band of avhrr(noaa9) ( 0.530-0.810 ) c
-c 12 2nd " ( 0.680-1.170 ) c
-c 13 1st band of avhrr(noaa10 ( 0.530-0.780 ) c
-c 14 2nd " ( 0.600-1.190 ) c
-c 15 1st band of avhrr(noaa11 ( 0.540-0.820 ) c
-c 16 2nd " ( 0.600-1.120 ) c
-c 17 1st band of hrv1(spot1) ( 0.470-0.650 ) c
-c 18 2nd " ( 0.600-0.720 ) c
-c 19 3rd " ( 0.730-0.930 ) c
-c 20 pan " ( 0.470-0.790 ) c
-c 21 1st band of hrv2(spot1) ( 0.470-0.650 ) c
-c 22 2nd " ( 0.590-0.730 ) c
-c 23 3rd " ( 0.740-0.940 ) c
-c 24 pan " ( 0.470-0.790 ) c
-c 25 1st band of tm(landsat5) ( 0.430-0.560 ) c
-c 26 2nd " ( 0.500-0.650 ) c
-c 27 3rd " ( 0.580-0.740 ) c
-c 28 4th " ( 0.730-0.950 ) c
-c 29 5th " ( 1.5025-1.890 ) c
-c 30 7th " ( 1.950-2.410 ) c
-c 31 1st band of mss(landsat5)( 0.475-0.640 ) c
-c 32 2nd " ( 0.580-0.750 ) c
-c 33 3rd " ( 0.655-0.855 ) c
-c 34 4th " ( 0.785-1.100 ) c
-c 35 1st band of MAS (ER2) ( 0.5025-0.5875) c
-c 36 2nd " ( 0.6075-0.7000) c
-c 37 3rd " ( 0.8300-0.9125) c
-c 38 4th " ( 0.9000-0.9975) c
-c 39 5th " ( 1.8200-1.9575) c
-c 40 6th " ( 2.0950-2.1925) c
-c 41 7th " ( 3.5800-3.8700) c
-c 42 MODIS band 1 ( 0.6100-0.6850) c
-c 43 MODIS band 2 ( 0.8200-0.9025) c
-c 44 MODIS band 3 ( 0.4500-0.4825) c
-c 45 MODIS band 4 ( 0.5400-0.5700) c
-c 46 MODIS band 5 ( 1.2150-1.2700) c
-c 47 MODIS band 6 ( 1.6000-1.6650) c
-c 48 MODIS band 7 ( 2.0575-2.1825) c
-c 49 MODIS band 8 ( 0.4025-0.4225) c
-c 50 1st band of avhrr(noaa12 ( 0.500-1.000 ) c
-c 51 2nd " ( 0.650-1.120 ) c
-c 52 1st band of avhrr(noaa14 ( 0.500-1.110 ) c
-c 53 2nd " ( 0.680-1.100 ) c
-c 54 POLDER band 1 ( 0.4125-0.4775) c
-c 55 POLDER band 2 (non polar( 0.4100-0.5225) c
-c 56 POLDER band 3 (non polar( 0.5325-0.5950) c
-c 57 POLDER band 4 P1 ( 0.6300-0.7025) c
-c 58 POLDER band 5 (non polar( 0.7450-0.7800) c
-c 59 POLDER band 6 (non polar( 0.7000-0.8300) c
-c 60 POLDER band 7 P1 ( 0.8100-0.9200) c
-c 61 POLDER band 8 (non polar( 0.8650-0.9400) c
-c 62 SEAWIFS band 1 ( 0.3825-0.70) c
-c 63 SEAWIFS band 2 ( 0.3800-0.58) c
-c 64 SEAWIFS band 3 ( 0.3800-1.02) c
-c 65 SEAWIFS band 4 ( 0.3800-1.02) c
-c 66 SEAWIFS band 5 ( 0.3825-1.15) c
-c 67 SEAWIFS band 6 ( 0.3825-1.05) c
-c 68 SEAWIFS band 7 ( 0.3800-1.15) c
-c 69 SEAWIFS band 8 ( 0.3800-1.15) c
-c 70 AATSR band 1 ( 0.5250-0.5925) c
-c 71 AATSR band 2 ( 0.6275-0.6975) c
-c 72 AATSR band 3 ( 0.8325-0.9025) c
-c 73 AATSR band 4 ( 1.4475-1.7775) c
-c 74 MERIS band 1 ( 0.412) c
-c 75 MERIS band 2 ( 0.442) c
-c 76 MERIS band 3 ( 0.489) c
-c 77 MERIS band 4 ( 0.509) c
-c 78 MERIS band 5 ( 0.559) c
-c 79 MERIS band 6 ( 0.619) c
-c 80 MERIS band 7 ( 0.664) c
-c 81 MERIS band 8 ( 0.681) c
-c 82 MERIS band 9 ( 0.708) c
-c 83 MERIS band 10 ( 0.753) c
-c 84 MERIS band 11 ( 0.760) c
-c 85 MERIS band 12 ( 0.778) c
-c 86 MERIS band 13 ( 0.865) c
-c 87 MERIS band 14 ( 0.885) c
-c 88 MERIS band 15 ( 0.900) c
-c 89 GLI band 1 (0.380-1km) c
-c 90 GLI band 2 (0.400-1km) c
-c 91 GLI band 3 (0.412-1km) c
-c 92 GLI band 4 (0.443-1km) c
-c 93 GLI band 5 (0.460-1km) c
-c 94 GLI band 6 (0.490-1km) c
-c 95 GLI band 7 (0.520-1km) c
-c 96 GLI band 8 (0.545-1km) c
-c 97 GLI band 9 (0.565-1km) c
-c 98 GLI band 10 (0.625-1km) c
-c 99 GLI band 11 (0.666-1km) c
-c 100 GLI band 12 (0.680-1km) c
-c 101 GLI band 13 (0.678-1km) c
-c 102 GLI band 14 (0.710-1km) c
-c 103 GLI band 15 (0.710-1km) (bis?) c
-c 104 GLI band 16 (0.749-1km) c
-c 105 GLI band 17 (0.763-1km) c
-c 106 GLI band 18 (0.865-1km) c
-c 107 GLI band 19 (0.865-1km) (bis?) c
-c 108 GLI band 20 (0.460-0.25km) c
-c 109 GLI band 21 (0.545-0.25km) c
-c 110 GLI band 22 (0.660-0.25km) c
-c 111 GLI band 23 (0.825-0.25km) c
-c 112 GLI band 24 (1.050-1km) c
-c 113 GLI band 25 (1.135-1km) c
-c 114 GLI band 26 (1.240-1km) c
-c 115 GLI band 27 (1.338-1km) c
-c 116 GLI band 28 (1.640-1km) c
-c 117 GLI band 29 (2.210-1km) c
-c 118 GLI band 30 (3.715-1km) c
-c note: wl has to be in micrometer c
-c**********************************************************************c
- do 38 l=iinf,isup
- s(l)=1.
- 38 continue
-
- read(iread,*) iwave
-
- if (iwave.eq.-2) goto 1600
- if (iwave) 16,17,18
-
-
- 16 read(iread,*) wl
-
-
- wlinf=wl
- wlsup=wl
- go to 19
- 17 read(iread,*) wlinf,wlsup
- go to 19
- 1600 read(iread,*) wlinf,wlsup
- go to 19
-c 110
-c 111 band of meteosat (2)
-c 112 band of goes east (3,4)
-c 114 band of avhr (5,16)
-c 118 band of hrv1 (17,24)
-c 121 band of tm (25,30)
-c 127 band of mss (31,34)
-c 128 band of MAS (35,41)
-c 129 MODIS band (42,49)
-c 130 band of avhrr (50,53)
-c 131 POLDER band (54,61)
-c 113 SEAWIFS band (62,69)
-c 150 AATSR band (70,73)
-c 151 MERIS band (74,88)
-c 152 GLI band (89,118)
- 18 goto (110,
- s 111,
- s 112,112,
- s 114,114,114,114,114,114,114,114,114,114,114,114,
- s 118,118,118,118,118,118,118,118,
- s 121,121,121,121,121,121,
- s 127,127,127,127,
- s 128,128,128,128,128,128,128,
- s 129,129,129,129,129,129,129,129,
- s 130,130,130,130,
- s 131,131,131,131,131,131,131,131,
- s 113,113,113,113,113,113,113,113,
- s 150,150,150,150,
- s 151,151,151,151,151,151,151,151,
- s 151,151,151,151,151,151,151,
- s 152,152,152,152,152,152,152,152,152,152,
- s 152,152,152,152,152,152,152,152,152,152,
- s 152,152,152,152,152,152,152,152,152,152
- s ),iwave
- 110 read(iread,*) wlinf,wlsup
- iinf=(wlinf-.25)/0.0025+1.5
- isup=(wlsup-.25)/0.0025+1.5
- do 1113 ik=iinf,isup
- s(ik)=0.
- 1113 continue
- read(iread,*) (s(i),i=iinf,isup)
- goto 20
- 111 call meteo
- go to 19
- 112 call goes(iwave-2)
- go to 19
- 114 call avhrr(iwave-4)
- go to 19
- 118 call hrv(iwave-16)
- go to 19
- 121 call tm(iwave-24)
- go to 19
- 127 call mss(iwave-30)
- goto 19
- 128 call mas(iwave-34)
- goto 19
- 129 call modis(iwave-41)
- goto 19
- 130 call avhrr(iwave-37)
- goto 19
- 131 call polder(iwave-53)
- goto 19
- 113 call seawifs(iwave-61)
- goto 19
- 150 call aatsr(iwave-69)
- goto 19
- 151 call meris(iwave-73)
- goto 19
- 152 call gli(iwave-88)
- 19 iinf=(wlinf-.25)/0.0025+1.5
- isup=(wlsup-.25)/0.0025+1.5
- 20 continue
-
-C***********************************************************************
-C LOOK UP TABLE INITIALIZATION
-C***********************************************************************
-C initialization of look up table variable
-C Write(6,*) "TOTO THE HERO"
-
- do i=1,mu
- nfilut(i)=0
- do j=1,41
- rolut(i,j)=0.
- rolutq(i,j)=0.
- rolutu(i,j)=0.
- filut(i,j)=0.
- roluti(i,j)=0.
- rolutiq(i,j)=0.
- rolutiu(i,j)=0.
- enddo
- enddo
- xmus=cos(asol*pi/180.)
- its=acos(xmus)*180.0/pi
-C Case standart LUT
- if (ilut.eq.1) then
- do i=1,mu-1
- lutmuv=rm(i)
- luttv=acos(lutmuv)*180./pi
- iscama=(180-abs(luttv-its))
- iscami=(180-(luttv+its))
- nbisca=int(0.01+(iscama-iscami)/4.0)+1
- nfilut(i)=nbisca
- filut(i,1)=0.0
- filut(i,nbisca)=180.0
- scaa=iscama
- do j=2,nfilut(i)-1
- scaa=scaa-4.0
- cscaa=cos(scaa*pi/180.)
- cfi=-(cscaa+xmus*lutmuv)/(sqrt(1-xmus*xmus)
- S *sqrt(1.-lutmuv*lutmuv))
- filut(i,j)=acos(cfi)*180.0/pi
- enddo
- enddo
- i=mu
- lutmuv=cos(avis*pi/180.)
- luttv=acos(lutmuv)*180./pi
- iscama=(180-abs(luttv-its))
- iscami=(180-(luttv+its))
- nbisca=int((iscama-iscami)/4)+1
- nfilut(i)=nbisca
- filut(i,1)=0.0
- filut(i,nbisca)=180.0
- scaa=iscama
- do j=2,nfilut(i)-1
- scaa=scaa-4.0
- cscaa=cos(scaa*pi/180.)
- cfi=-(cscaa+xmus*lutmuv)/(sqrt(1-xmus*xmus)
- S *sqrt(1.-lutmuv*lutmuv))
- filut(i,j)=acos(cfi)*180.0/pi
- enddo
- endif
-C END Case standart LUT
-
-C Case LUT for APS
- if (ilut.eq.3) then
- do i=1,mu-1
- nbisca=2
- nfilut(i)=nbisca
- filut(i,1)=(phi0-phiv)
- filut(i,nbisca)=(phi0-phiv)+180.0
- enddo
- i=mu
- nbisca=1
- nfilut(i)=nbisca
- filut(i,1)=(phi0-phiv)
- endif
-C END Case LUT for APS
-CCCC Check initialization (debug)
- do i=1,mu
- lutmuv=rm(i)
- luttv=acos(lutmuv)*180./pi
- do j=1,nfilut(i)
- cscaa=-xmus*lutmuv-cos(filut(i,j)*pi/180.)*sqrt(1.-xmus*xmus)
- S *sqrt(1.-lutmuv*lutmuv)
- scaa=acos(cscaa)*180./pi
- write(6,*) its,luttv,filut(i,j),scaa
- enddo
- enddo
-CCCC Check initialization (debug)
-C***********************************************************************
-C END LOOK UP TABLE INITIALIZATION
-C***********************************************************************
-
-
-
-
-c**********************************************************************c
-c here, we first compute an equivalent wavelenght which is the input c
-c value for monochromatic conditions or the integrated value for a c
-c filter functionr (call equivwl) then, the atmospheric properties are c
-c computed for that wavelength (call discom then call specinterp) c
-c molecular optical thickness is computed too (call odrayl). lastly c
-c the successive order of scattering code is called three times. c
-c first for a sun at thetas with the scattering properties of aerosols c
-c and molecules, second with a pure molecular atmosphere, then with thec
-c actual atmosphere for a sun at thetav. the iso code allows us to c
-c compute the scattering transmissions and the spherical albedo. all c
-c these computations are performed for checking the accuracy of the c
-c analytical expressions and in addition for computing the averaged c
-c directional reflectances c
-c**********************************************************************c
- if(iwave.ne.-1) then
- call equivwl(iinf,isup,step,
- s wlmoy)
- else
- wlmoy=wl
- endif
- call discom (idatmp,iaer,iaer_prof,xmus,xmuv,phi,taer55,taer55p,
- a palt,phirad,nt,mu,np,rm,gb,rp,ftray,ipol,xlm1,xlm2,
- a roatm_fi,nfi,
- a nfilut,filut,roluts,rolutsq,rolutsu)
-
-
- if(iaer.ne.0) then
- call specinterp(wlmoy,taer55,taer55p,
- s tamoy,tamoyp,pizmoy,pizmoyp,ipol)
- endif
- call odrayl(wlmoy,
- s trmoy)
-
- trmoyp=trmoy*ftray
-
-
- if (idatmp.eq.4) then
- trmoyp=trmoy
- tamoyp=tamoy
- endif
- if (idatmp.eq.0) then
- trmoyp=0.
- tamoyp=0.
- endif
-
-
-c*********************************************************************c
-c inhomo ground reflectance (type) c
-c ------------------ c
-c c
-c you consider an homogeneous surface: c
-c enter - inhomo=0 c
-c you may consider directional surface effects c
-c idirec=0 (no directional effect) c
-c you have to specify the surface reflectance:c
-c igroun (see note1) which is uniform and c
-c lambertian c
-c idirec=1 ( directional effect) c
-c you have to specify the brdf of the surface c
-c for the actual solar illumination you are c
-c considering as well as the brdf for a sun c
-c which would be at an angle thetav, in c
-c addition you have to give the surface c
-c albedo (spherical albedo). you can also c
-c select one of the selected model from the c
-c ibrdf value (see note2). 3 reflectances c
-c are computed, robar,robarp and robard c
-c c
-c you consider a non uniform surface, the surface is considered as a c
-c circular target with a reflectance roc and of radius r c
-c (expressed in km) within an environment of reflectance c
-c roe c
-c enter - inhomo=1, then c
-c igrou1,igrou2,rad c
-c - the target reflectance :igrou1 (see note1) c
-c - the envir. reflectance :igrou2 (see note1) c
-c - the target radius in km c
-c c
-c c
-c ****tree**** c
-c c
-c inhomo c
-c / \ c
-c / \ c
-c / \ c
-c / \ c
-c ------- 0 ------- -----1 ----- c
-c / / \ \ c
-c idirec / \ \ c
-c / \ / \ \ c
-c / \ / \ \ c
-c / \ igrou1 igrou2 rad c
-c 0 1 roc roe f(r) c
-c / \ c
-c / \ c
-c igroun ibrdf c
-c (roc = roe) (roc) c
-c (robar) c
-c (robarp) c
-c (robard) c
-c c
-c ground reflectance (spectral variation) c
-c --------------------------------------- c
-c note1: values of the reflectance selected by igroun,igrou1 or igrou2 c
-c may correspond to the following cases, c
-c 0 constant value of ro (or roc,or roe) whatever the wavelen c
-c gth. you enter this constant value of ro (or roc or roe). c
-c -1 you have to enter the value of ro (or roc,or roe) by step c
-c of 0.0025 micron from wlinf to wlsup (if you have used thec
-c satellite bands,see implicit values for these limits). c
-c 1 mean spectral value of green vegetation c
-c 2 mean spectral value of clear water c
-c 3 mean spectral value of sand c
-c 4 mean spectral value of lake water c
-c c
-c ground reflectance (brdf) c
-c ------------------------- c
-c note2: values of the directional reflectance is assumed spectrally c
-c independent, so you have to specify, the brdf at the c
-c wavelength for monochromatic condition of the mean value c
-c over the spectral band c
-c 0 you have to enter the value of ro for sun at thetas by c
-c step of 10 degrees for zenith view angles (from 0 to 80 c
-c and the value for 85) and by step of 30 degrees for c
-c azimuth view angles from 0 to 360 degrees, you have to do c
-c same for a sun which would be at thetav. in addition, the c
-c spherical albedo of the surface has to be specified ,as c
-C well as the observed reflectance in the selected geometry c
-c rodir(sun zenith,view zenith, relative azimuth). c
-c c
-c you also may select one of the following models c
-c 1 hapke model c
-c the parameters are: om,af,s0,h c
-c om= albedo c
-c af=assymetry parameter for the phase function c
-c s0=amplitude of hot spot c
-c h=width of the hot spot c
-c c
-c 2 verstraete et al. model c
-c the parameters are: c
-c there is three lines of parameters: c
-c line 1 (choice of options) c
-c line 2 (structural parameters) c
-c line 3 (optical parameters) c
-c line 1: opt3 opt4 opt5 c
-c opt1=1 parametrized model (see verstraete et al., c
-c JGR, 95, 11755-11765, 1990) c
-c opt2=1 reflectance factor (see pinty et al., JGR, c
-c 95, 11767-11775, 1990) c
-c opt3=0 for given values of kappa (see struc below)c
-c 1 for goudriaan's parameterization of kappa c
-c 2 for dickinson et al's correction to c
-c goudriaan's parameterization of kappa (see c
-c dickinson et al., agricultural and forest c
-c meteorology, 52, 109-131, 1990) c
-c ---see the manual for complete references---- c
-c opt4=0 for isotropic phase function c
-c 1 for heyney and greensteins' phase function c
-c 2 for legendre polynomial phase function c
-c opt5=0 for single scattering only c
-c 1 for dickinson et al. parameterization of c
-c multiple scattering c
-c line 2: str1 str2 str3 str4 c
-c str1='leaf area density', in m2 m-3 c
-c str2=radius of the sun flecks on the scatterer (m)c
-c str3=leaf orientation parameter: c
-c if opt3=0 then str3=kappa1 c
-c if opt3=1 or 2 then str3=chil c
-c str4=leaf orientation parameter (continued): c
-c if opt3=0 then str4=kappa2 c
-c if opt3=1 or 2 then str4 is not used c
-c line 3: optics1 optics2 optics3 c
-c optics1=single scattering albedo, n/d value c
-c between 0.0 and 1.0 c
-c optics2= phase function parameter: c
-c if opt4=0 then this input is not used c
-c if opt4=1 then asymmetry factor, n/d value c
-c between -1.0and 1.0 c
-c if opt4=2 then first coefficient of legendre c
-c polynomial c
-c optics3=second coefficient of legendre polynomial c
-c (if opt4=2) c
-c c
-c 3 Roujean et al. model c
-c the parameters are: k0,k1,k2 c
-c k0=albedo. c
-c k1=geometric parameter for hot spot effect c
-c k2=geometric parameter for hot spot effect c
-c c
-c 4 walthall et al. model c
-c the parameters are: a,ap,b,c c
-c a=term in square ts*tv c
-c ap=term in square ts*ts+tv*tv c
-c b=term in ts*tv*cos(phi) (limacon de pascal) c
-c c=albedo c
-c c
-c 5 minnaert model c
-c the parameters are: par1,par2 c
-c c
-c 6 Ocean c
-c the parameter are: pws,phi_wind,xsal,pcl c
-c pws=wind speed (in m/s) c
-c phi_wind=azim. of the wind (in degres) c
-c xsal=salinity (in ppt) xsal=34.3ppt if xsal<0 c
-c pcl=pigment concentration (in mg/m3) c
-c c
-c 7 Iaquinta and Pinty model c
-c the parameters are: c
-c there is 3 lines of parameters: c
-c line 1: choice of option (pild,pihs) c
-c line 2: structural parameters (pxLt,pc) c
-c line 3: optical parameters (pRl,pTl,pRs) c
-c Line 1: pild,pihs c
-c pild=1 planophile leaf distribution c
-c pild=2 erectophile leaf distribution c
-c pild=3 plagiophile leaf distribution c
-c pild=4 extremophile leaf distribution c
-c pild=5 uniform leaf distribution c
-c c
-c pihs=0 no hot spot c
-c pihs=1 hot spot c
-c Line 2: pxLt,pc c
-c pxLt=Leaf area index [1.,15.] c
-c pc=Hot spot parameter: 2*r*Lambda [0.,2.] c
-c Line 3: pRl,pTl,pRs c
-c pRl=Leaf reflectance [0.,0.99] c
-c pTl=Leaf transmitance [0.,0.99] c
-c pRs=Soil albedo [0.,0.99] c
-c NB: pRl+PTl <0.99 c
-c c
-c 8 Rahman et al. model c
-c the parameters are: rho0,af,xk c
-c rho0=Intensity of the reflectance of the surface c
-c cover, N/D value greater or equal to 0 c
-c af=Asymmetry factor, N/D value between -1.0 and 1.0 c
-c xk=Structural parameter of the medium c
-c 9 Kuusk's multispectral CR model c
-c Reference: c
-c Kuusk A. A multispectral canopy reflectance model. c
-c Remote Sens. Environ., 1994, 50:75-82 c
-c c
-c c
-c the parameters are: c
-c c
-c line 1: structural parameters (ul,eps,thm,sl) c
-c line 2: optical parameters (cAB,cW,N,cn,s1) c
-c c
-c ul=LAI [0.1...10] c
-c eps,thm - LAD parameters c
-c eps [0.0..0.9] thm [0.0..90.0] c
-c sl - relative leaf size [0.01..1.0] c
-c cAB - chlorophyll content, ug/cm^2 [30] c
-c cW - leaf water equivalent thickness [0.01..0.03] c
-c N - the effective number of elementary layers c
-c inside a leaf [1.225] c
-c cn - the ratio of refractive indices of the leaf c
-c surface wax and internal material [1.0] c
-c s1 - the weight of the 1st Price function for the c
-c soil reflectance [0.1..0.8] c
-c 10 MODIS operational BDRF c
-c the parameters are: p1,p2,p3 c
-c p1 weight for lambertian kernel c
-c p2 weight for Ross Thick kernel c
-c p3 weight for Li Sparse kernel c
-c**********************************************************************c
-
- fr=0.
- rad=0.
- do 1116 ik=iinf,isup
- rocl(ik)=0.
- roel(ik)=0.
- 1116 continue
-
-c**********************************************************************c
-c uniform or non-uniform surface conditions c
-c**********************************************************************c
-
- read(iread,*) inhomo
-
- if(inhomo) 30,30,31
-
- 30 read(iread,*) idirec
-
- if(idirec)21,21,25
-
-c**********************************************************************c
-c uniform conditions with brdf conditions c
-c**********************************************************************c
-c call os to compute downward radiation field for robar
- 25 rm(-mu)=-xmuv
- rm(mu)=xmuv
- rm(0)=-xmus
- spalt=1000.
- call os(iaer_prof,tamoy,trmoy,pizmoy,tamoyp,trmoyp,spalt,
- s phirad,nt,mu,np,rm,gb,rp,
- s xlmus,xlphim,nfi,rolut)
-c call os to compute downward radiation field for robarp
- if (idatmp.ne.0) then
- rm(-mu)=-xmus
- rm(mu)=xmus
- rm(0)=-xmuv
- call os(iaer_prof,tamoyp,trmoyp,pizmoy,tamoyp,trmoyp,spalt,
- s phirad,nt,mu,np,rm,gb,rp,
- s xlmuv,xlphim,nfi,rolut)
- endif
-c
- read(iread,*) ibrdf
-c*********************************************************************c
- if(ibrdf)23,23,24
-c**********************************************************************c
-c brdf from in-situ measurements c
-c**********************************************************************c
- 23 do 900 k=1,13
- read(iread,*) (brdfdats(10-j+1,k),j=1,10)
- 900 continue
- do 901 k=1,13
- read(iread,*) (brdfdatv(10-j+1,k),j=1,10)
- 901 continue
- read(iread,*) albbrdf
- read(iread,*) rodir
- rm(-mu)=phirad
- rm(mu)=xmuv
- rm(0)=xmus
- call brdfgrid(mu,np,rm,rp,brdfdats,angmu,angphi,
- s brdfints)
- rm(-mu)=2.*pi-phirad
- rm(mu)=xmus
- rm(0)=xmuv
- call brdfgrid(mu,np,rm,rp,brdfdatv,angmu,angphi,
- s brdfintv)
- brdfints(mu,1)=rodir
- do l=iinf,isup
- sbrdf(l)=rodir
- enddo
- go to 69
-c**********************************************************************c
-c brdf from hapke's model c
-c**********************************************************************c
- 24 if(ibrdf.eq.1) then
- read(iread,*) par1,par2,par3,par4
-
- srm(-1)=phirad
- srm(1)=xmuv
- srm(0)=xmus
- call hapkbrdf(par1,par2,par3,par4,1,1,srm,srp,
- s sbrdftmp)
- do l=iinf,isup
- sbrdf(l)=sbrdftmp(1,1)
- enddo
-
- rm(-mu)=phirad
- rm(mu)=xmuv
- rm(0)=xmus
- call hapkbrdf(par1,par2,par3,par4,mu,np,rm,rp,
- s brdfints)
- rm(-mu)=2.*pi-phirad
- rm(mu)=xmus
- rm(0)=xmuv
- call hapkbrdf(par1,par2,par3,par4,mu,np,rm,rp,
- s brdfintv)
- call hapkalbe(par1,par2,par3,par4,
- s albbrdf)
- go to 69
- endif
-c**********************************************************************c
-c brdf from verstraete et al's model c
-c**********************************************************************c
- if(ibrdf.eq.2) then
- read(iread,*) (options(i),i=3,5)
- options(1)=1
- options(2)=1
- read(iread,*) (struct(i),i=1,4)
- read(iread,*) (optics(i),i=1,3)
-
- srm(-1)=phirad
- srm(1)=xmuv
- srm(0)=xmus
- call versbrdf(options,optics,struct,1,1,srm,srp,
- s sbrdftmp)
- do l=iinf,isup
- sbrdf(l)=sbrdftmp(1,1)
- enddo
-
- rm(-mu)=phirad
- rm(mu)=xmuv
- rm(0)=xmus
- call versbrdf(options,optics,struct,mu,np,rm,rp,
- s brdfints)
- rm(-mu)=2.*pi-phirad
- rm(mu)=xmus
- rm(0)=xmuv
- call versbrdf(options,optics,struct,mu,np,rm,rp,
- s brdfintv)
- call versalbe(options,optics,struct,
- s albbrdf)
- go to 69
- endif
-c**********************************************************************c
-c brdf from Roujean et al's model c
-c**********************************************************************c
- if(ibrdf.eq.3) then
- read(iread,*) par1,par2,par3
-
- srm(-1)=phirad
- srm(1)=xmuv
- srm(0)=xmus
- call roujbrdf(par1,par2,par3,1,1,srm,srp,
- s sbrdftmp)
- do l=iinf,isup
- sbrdf(l)=sbrdftmp(1,1)
- enddo
-
- rm(-mu)=phirad
- rm(mu)=xmuv
- rm(0)=xmus
- call roujbrdf(par1,par2,par3,mu,np,rm,rp,
- s brdfints)
- rm(-mu)=2.*pi-phirad
- rm(mu)=xmus
- rm(0)=xmuv
- call roujbrdf(par1,par2,par3,mu,np,rm,rp,
- s brdfintv)
- call roujalbe(par1,par2,par3,
- s albbrdf)
- go to 69
- endif
-c**********************************************************************c
-c brdf from walthall et al's model
-c**********************************************************************c
- if(ibrdf.eq.4) then
- read(iread,*) par1,par2,par3,par4
-
- srm(-1)=phirad
- srm(1)=xmuv
- srm(0)=xmus
- call waltbrdf(par1,par2,par3,par4,1,1,srm,srp,
- s sbrdftmp)
- do l=iinf,isup
- sbrdf(l)=sbrdftmp(1,1)
- enddo
-
- rm(-mu)=phirad
- rm(mu)=xmuv
- rm(0)=xmus
- call waltbrdf(par1,par2,par3,par4,mu,np,rm,rp,
- s brdfints)
- rm(-mu)=2.*pi-phirad
- rm(mu)=xmus
- rm(0)=xmuv
- call waltbrdf(par1,par2,par3,par4,mu,np,rm,rp,
- s brdfintv)
- call waltalbe(par1,par2,par3,par4,
- s albbrdf)
- go to 69
- endif
-c**********************************************************************c
-c brdf from minnaert's model c
-c**********************************************************************c
- if(ibrdf.eq.5) then
- read(iread,*) par1,par2
-
- srm(-1)=phirad
- srm(1)=xmuv
- srm(0)=xmus
- call minnbrdf(par1,par2,1,1,srm,
- s sbrdftmp)
- do l=iinf,isup
- sbrdf(l)=sbrdftmp(1,1)
- enddo
-
- rm(-mu)=phirad
- rm(mu)=xmuv
- rm(0)=xmus
- call minnbrdf(par1,par2,mu,np,rm,
- s brdfints)
- rm(-mu)=2.*pi-phirad
- rm(mu)=xmus
- rm(0)=xmuv
- call minnbrdf(par1,par2,mu,np,rm,
- s brdfintv)
- call minnalbe(par1,par2,
- s albbrdf)
- go to 69
- endif
-
-c**********************************************************************c
-c brdf from ocean condition
-c**********************************************************************c
- if(ibrdf.eq.6) then
- read(iread,*) pws,phi_wind,xsal,pcl
- if (xsal.lt.0.001)xsal=34.3
- paw=phi0-phi_wind
-
- do l=iinf,isup
- srm(-1)=phirad
- srm(1)=xmuv
- srm(0)=xmus
- wl=.25+(l-1)*step
- call oceabrdf(pws,paw,xsal,pcl,wl,rfoam,rwat,rglit,
- s 1,1,srm,srp,
- s sbrdftmp)
-
- rfoaml(l)=rfoam
- rwatl(l)=rwat
- rglitl(l)=rglit
- sbrdf(l)=sbrdftmp(1,1)
- enddo
-
- rm(-mu)=phirad
- rm(mu)=xmuv
- rm(0)=xmus
- call oceabrdf(pws,paw,xsal,pcl,wlmoy,rfoam,rwat,rglit,
- s mu,np,rm,rp,
- s brdfints)
- rm(-mu)=2.*pi-phirad
- rm(mu)=xmus
- rm(0)=xmuv
- call oceabrdf(pws,paw,xsal,pcl,wlmoy,rfoam,rwat,rglit,
- s mu,np,rm,rp,
- s brdfintv)
- call oceaalbe(pws,paw,xsal,pcl,wlmoy,
- s albbrdf)
- go to 69
- endif
-c
-c**********************************************************************c
-c brdf from Iaquinta and Pinty model
-c**********************************************************************c
- if(ibrdf.eq.7) then
- read(iread,*) pild,pihs
- read(iread,*) pxLt,pc
- read(iread,*) pRl,pTl,pRs
-
- srm(-1)=phirad
- srm(1)=xmuv
- srm(0)=xmus
- call iapibrdf(pild,pxlt,prl,ptl,prs,pihs,pc,1,1,srm,srp,
- s sbrdftmp)
- do l=iinf,isup
- sbrdf(l)=sbrdftmp(1,1)
- enddo
-
- rm(-mu)=phirad
- rm(mu)=xmuv
- rm(0)=xmus
- call iapibrdf(pild,pxlt,prl,ptl,prs,pihs,pc,mu,np,rm,rp,
- s brdfints)
- rm(-mu)=2.*pi-phirad
- rm(mu)=xmus
- rm(0)=xmuv
- call iapibrdf(pild,pxlt,prl,ptl,prs,pihs,pc,mu,np,rm,rp,
- s brdfintv)
- call iapialbe(pild,pxlt,prl,ptl,prs,pihs,pc,
- s albbrdf)
- go to 69
- endif
-c
-c**********************************************************************c
-c brdf from Rahman model
-c**********************************************************************c
- if(ibrdf.eq.8) then
- read(iread,*) par1,par2,par3
-
- srm(-1)=phirad
- srm(1)=xmuv
- srm(0)=xmus
- call rahmbrdf(par1,par2,par3,1,1,srm,srp,
- s sbrdftmp)
- do l=iinf,isup
- sbrdf(l)=sbrdftmp(1,1)
- enddo
-
- rm(-mu)=phirad
- rm(mu)=xmuv
- rm(0)=xmus
- call rahmbrdf(par1,par2,par3,mu,np,rm,rp,
- s brdfints)
- rm(-mu)=2.*pi-phirad
- rm(mu)=xmus
- rm(0)=xmuv
- call rahmbrdf(par1,par2,par3,mu,np,rm,rp,
- s brdfintv)
- call rahmalbe(par1,par2,par3,
- s albbrdf)
- go to 69
- endif
-c
-c**********************************************************************c
-c brdf from kuusk's msrm model c
-c**********************************************************************c
- if(ibrdf.eq.9) then
- read(iread,*) uli,eei,thmi,sli
- read(iread,*) cabi,cwi,vaii,rnci,rsl1i
-
- do l=iinf,isup
- srm(-1)=phirad
- srm(1)=xmuv
- srm(0)=xmus
- wl=.25+(l-1)*step
- call akbrdf(eei,thmi,uli,sli,rsl1i,wl,rnci,cabi,cwi,vaii
- s ,1,1,srm,srp,sbrdftmp)
- sbrdf(l)=sbrdftmp(1,1)
- enddo
-
- rm(-mu)=phirad
- rm(mu)=xmuv
- rm(0)=xmus
- call akbrdf(eei,thmi,uli,sli,rsl1i,wlmoy,rnci,cabi,cwi,vaii
- & ,mu,np,rm,rp,brdfints)
- rm(-mu)=2.*pi-phirad
- rm(mu)=xmus
- rm(0)=xmuv
- call akbrdf(eei,thmi,uli,sli,rsl1i,wlmoy,rnci,cabi,cwi,vaii
- & ,mu,np,rm,rp,brdfintv)
-c
- call akalbe
-* & (eei,thmi,uli,sli,rsl1i,wlmoy,rnci,cabi,cwi,vaii,albbrdf)
- & (albbrdf)
- go to 69
- endif
-c
-c**********************************************************************c
-c brdf from MODIS BRDF model c
-c**********************************************************************c
- if(ibrdf.eq.10) then
- read(iread,*)p1,p2,p3
-
- srm(-1)=phirad
- srm(1)=xmuv
- srm(0)=xmus
- call modisbrdf(p1,p2,p3
- s ,1,1,srm,srp,sbrdftmp)
- do l=iinf,isup
- sbrdf(l)=sbrdftmp(1,1)
- enddo
-
- rm(-mu)=phirad
- rm(mu)=xmuv
- rm(0)=xmus
- call modisbrdf(p1,p2,p3
- & ,mu,np,rm,rp,brdfints)
- rm(-mu)=2.*pi-phirad
- rm(mu)=xmus
- rm(0)=xmuv
- call modisbrdf(p1,p2,p3
- & ,mu,np,rm,rp,brdfintv)
-c
- call modisalbe(p1,p2,p3
- & ,albbrdf)
- go to 69
- endif
-c
- 69 continue
-c**********************************************************************c
-c the downward irradiance was computed for a sun at thetas and c
-c several viewing directions (mu zenith times np azimuth). then, the c
-c code computes the product of ldown*brdf integrated over the total c
-c hemisphere and gives the averaged directional reflectance after the c
-c normalization. the resulting reflectance is named robar c
-c**********************************************************************c
- robar1=0.
- xnorm1=0.
- do 83 j=1,np
- rob=0.
- xnor=0.
- do 84 k=1,mu-1
- rdown=xlmus(-k,j)
- rdir=brdfintv(k,j)
- rob=rob+rdown*rdir*rm(k)*gb(k)
- xnor=xnor+rdown*rm(k)*gb(k)
- 84 continue
- robar1=robar1+rob*gp(j)
- xnorm1=xnorm1+xnor*gp(j)
- 83 continue
-
-c**********************************************************************c
-c the downward irradiance was computed for a sun at thetav and c
-c several viewing directions (mu zenith times np azimuth). then, the c
-c code computes the product of ldown*brdf integrated over the total c
-c hemisphere and gives the averaged directional reflectance after the c
-c normalization. the resulting reflectance is named robarp c
-c**********************************************************************c
- robar2=0.
- xnorm2=0.
- do 85 j=1,np
- rob=0.
- xnor=0.
- do 86 k=1,mu-1
- rdown=xlmuv(-k,j)
- rdir=brdfints(k,j)
- rob=rob+rdown*rdir*rm(k)*gb(k)
- xnor=xnor+rdown*rm(k)*gb(k)
- 86 continue
- robar2=robar2+rob*gp(j)
- xnorm2=xnorm2+xnor*gp(j)
- 85 continue
-
-c robard is assumed equal to albbrdf
-c print 301,brdfints(mu,1),robar1,xnorm1,
-c s robar2,xnorm2,albbrdf
-c print 301,robar1/xnorm1,robar2/xnorm2
-c print 301,betal(0)/3,pizmoy
-c301 format(6(f10.4,2x))
-c501 format(5(i10,2x))
- do 335 l=iinf,isup
- rocl(l)=sbrdf(l)
- roel(l)=sbrdf(l)
- robar(l)=robar1/xnorm1
- if (idatmp.ne.0) then
- robarp(l)=robar2/xnorm2
- else
- robarp(l)=0.
- xnorm2=1.
- robar2=0.
- endif
- robard(l)=albbrdf
- 335 continue
- go to 34
-
-c**********************************************************************c
-c uniform surface with lambertian conditions c
-c**********************************************************************c
-
- 21 read(iread,*) igroun
-
- if(igroun) 29,32,33
-
- 29 read(iread,*) nwlinf,nwlsup
- niinf=(nwlinf-.25)/0.0025+1.5
- nisup=(nwlsup-.25)/0.0025+1.5
- read(iread,*) (rocl(i),i=niinf,nisup)
- goto 36
-
- 32 read(iread,*) ro
-
- do 35 l=iinf,isup
- rocl(l)=ro
- 35 continue
- goto 36
- 33 if(igroun.eq.1) call vegeta(rocl)
- if(igroun.eq.2) call clearw(rocl)
- if(igroun.eq.3) call sand (rocl)
- if(igroun.eq.4) call lakew (rocl)
- 36 do 39 l=iinf,isup
- roel(l)=rocl(l)
- 39 continue
- go to 34
-
-c**********************************************************************c
-c non-uniform conditions with lambertian conditions c
-c**********************************************************************c
- 31 read(iread,*) igrou1,igrou2,rad
- if(igrou1) 59,60,63
- 59 read(iread,*) (rocl(i),i=iinf,isup)
- goto 61
- 60 read(iread,*) roc
- do 64 l=iinf,isup
- rocl(l)=roc
- 64 continue
- go to 61
- 63 if(igrou1.eq.1) call vegeta(rocl)
- if(igrou1.eq.2) call clearw(rocl)
- if(igrou1.eq.3) call sand (rocl)
- if(igrou1.eq.4) call lakew (rocl)
- 61 if(igrou2) 66,62,65
- 66 read(iread,*) (roel(i),i=iinf,isup)
- goto 34
- 62 read(iread,*) roe
- do 67 l=iinf,isup
- roel(l)=roe
- 67 continue
- go to 34
- 65 if(igrou2.eq.1) call vegeta(roel)
- if(igrou2.eq.2) call clearw(roel)
- if(igrou2.eq.3) call sand (roel)
- if(igrou2.eq.4) call lakew (roel)
- 34 continue
-
-c**********************************************************************c
-c c
-c irapp that input parameter allows to activate atmospheric c
-c correction mode c
-c c
-c -1: No atmospheric Correction is performed c
-c 0,1: Atmospheric Correction with Lambertian assumption c
-c and with the assumption that c
-c target BRDF is proportional to the input BRDF (see c
-c case idirec=1) c
-c c
-c rapp parameter that contains the reflectance/radiance c
-c to be corrected. c
-c c
-c if rapp >0. : the code retrieve the value of the c
-c surface reflectance (rog) that will produce a radiance c
-c equal to rapp [w/m2/str/mic] in the atmospheric c
-c conditions described by user before c
-c c
-c if -1.<rapp<0. : the code retrieve the value of the c
-c surface reflectance (rog) value that will produce a c
-c 'reflectance' (radiance*pi/(mus*es)) equal to -rapp c
-c where mus is the cosine of solar zenith angle, c
-c es is the solar constant integrated upon the c
-c filter response and taking account for earth-solar c
-c distance, es is in [w/m2/sr/mic]. c
-c c
-c**********************************************************************c
-
- read(iread,*) irapp
-
- if (irapp.ge.0) then
- irapp=1
- read(iread,*) rapp
- endif
-
-
-c**********************************************************************c
-c c
-c Some optional input for polarization c
-c c
-c you can input polarization definition through irop: c
-c 1 enter ropq and ropu (stokes parameter for polarized c
-c surface reflectance c
-c 2 enter pveg (% vegetation) for use in Nadal,Breon model c
-c 3 enter wspd for sunglint polarization (sunglint) c
-c anything else will result in assuming than surface does not c
-c polarized. c
-c c
-c c
-c**********************************************************************c
-
-C ilut=0
-C read(iread,*,end=37) ilut
-
- irop=0
-
- read(iread,*,end=37) irop
-
- if (irop.eq.1) then
- read(iread,*) ropq,ropu
- endif
-
- if (irop.eq.2) then
- read(iread,*) pveg
- call polnad(asol,avis,phi,pveg,ropq,ropu)
- endif
-
- if (irop.eq.3) then
- read(iread,*) wspd,azw
- razw=phi0-azw
- call polglit(asol,avis,phi,wspd,razw,ropq,ropu)
- endif
-
- 37 if ((irop.lt.1).or.(irop.gt.3)) then
- if (idirec.eq.0) then
- ropq=0.000
- ropu=0.000
- else
- if (ibrdf.eq.6) then
- irop=3
- wspd=pws
- azw=phi_wind
- razw=phi0-azw
- phi=phi0-phiv
- call polglit(asol,avis,phi,wspd,razw,ropq,ropu)
- endif
- if (ibrdf.eq.9) then
- irop=2
- pveg=ul
- if (pveg.gt.1.) pveg=1
- call polnad(asol,avis,phi,pveg,ropq,ropu)
- endif
- endif
- endif
-C write(6,*) "Surface polarization reflectance, Q,U,rop ",
-C s ropq,ropu,sqrt(ropq*ropq+ropu*ropu)
-
-
-
-c**********************************************************************c
-c**********************************************************************c
-c c
-c example of input cards c
-c c
-c 4 (avhrr observation) c
-c 7 6 10.1 600 0.0 10.0 (month,day,htu,cn,longan,han) c
-c 8 (user's model) c
-c 3.0 0.35 ( uh2o(g/cm2) ,uo3(cm-atm) ) c
-c 4 (aerosols model) c
-c 0.25 0.25 0.25 0.25 ( % of:dust-like,water-sol,oceanic,soot)c
-c 23.0 (visibility (km) ) c
-c -0.5 (target at 0.5km high) c
-c -1000 (sensor aboard a satellite) c
-c 6 (avhrr 2 (noaa 8) band) c
-c 1 (ground type,i.e. non homogeneous) c
-c 2 1 0.50 (target,env.,radius(km) ) c
-c -0.10 (atmospheric correction mode for a TOA c
-c reflectance equal to 0.10) c
-c c
-c**********************************************************************c
-
-
-c**********************************************************************c
-c print of initial conditions c
-c c
-c**********************************************************************c
-
-c ---- geometrical conditions ----
- write(iwr, 98)
- write(iwr, etiq1(igeom+1))
- if(igeom.eq.0) then
- write(iwr, 1401)
- write(iwr, 103)month,jday
- endif
- if(igeom.ne.0) write(iwr, 101)month,jday,tu,xlat,xlon
- write(iwr, 102)asol,phi0
- write(iwr, 1110)avis,phiv,adif,phi
-
-c --- atmospheric model ----
- write(iwr, 1119)
- if(idatm-7)226,227,228
- 228 write(iwr, 1281)uw,uo3
- goto 219
- 227 write(iwr, 1272)
- do 229 i=1,34
- write(iwr, 1271)z(i),p(i),t(i),wh(i),wo(i)
- 229 continue
- goto 219
- 226 write(iwr, 1261)atmid(idatm+1)
-
-c --- aerosols model (type) ----
-
-219 write(iwr,5550)
- if(iaer.eq.0) then
- write(iwr, 5554)
- goto 1112
- endif
-
- if (iaer_prof.eq.1) then
-
- aer_model(1)="Continental"
- aer_model(2)=" Maritime"
- aer_model(3)=" Urban"
- aer_model(4)="user-defined"
- aer_model(5)=" Desert"
- aer_model(6)="Biomass Burning"
- aer_model(7)="Stratospheric"
- aer_model(8)="user-defined"
- aer_model(9)="user-defined"
- aer_model(10)="user-defined"
- aer_model(11)="Sun Photometer"
- aer_model(12)="user-defined"
-
- num_z=num_z-1
- write(6,5551) num_z
- write(6,5552)
- do i=1,num_z
- write(6,5553)i,height_z(num_z+1-i),taer55_z(num_z+1-i),
- a aer_model(iaer)
- enddo
-
- endif
-
- if (iaer_prof.eq.0) then
-
- aer_model(1)="Continental aerosol model"
- aer_model(2)="Maritime aerosol model"
- aer_model(3)="Urban aerosol model"
- aer_model(5)="Desert aerosol model"
- aer_model(6)="Biomass Burning aerosol model"
- aer_model(7)="Stratospheric aerosol model"
- aer_model(11)="Sun Photometer aerosol model"
-
- if (iaer.ge.1.and.iaer.lt.4) write (iwr,132) aer_model(iaer)
- if (iaer.ge.5.and.iaer.le.7) write (iwr,132) aer_model(iaer)
- if (iaer.eq.11) write(iwr,132) aer_model(iaer)
-
- endif
-
- if (iaer.eq.4)write(iwr,133)(c(i),i=1,4)
- if (iaer.eq.8) then
- write(6,134) icp
- do i=1,icp
- write(iwr,135)x1(i),x2(i),cij_out(i)
- enddo
- endif
- if (iaer.eq.9) write(iwr,136)x1(1),x2(1),x3(1)
- if (iaer.eq.10) write(iwr,137)x1(1)
- if (iaerp.eq.1)write(iwr,139)FILE2(1:i2)
- if (iaer.eq.12)write(iwr,138)FILE2(1:i2)
-
-
-c --- aerosol model (concentration) ----
-c --- for the exponential profile ----
- if (iaer_prof.eq.0) then
- if(abs(v).le.xacc) write(iwr, 140)taer55
- if(abs(v).gt.xacc) write(iwr, 141)v,taer55
- endif
-1112 write(6,5555)
-
-
-c --- spectral condition ----
- write(iwr, 148)
- if(iwave.eq.-2) write(iwr, 1510) nsat(1),wlinf,wlsup
- if(iwave.eq.-1) write(iwr, 149) wl
- if(iwave.ge.0) write(iwr, 1510) nsat(iwave+1), wlinf,wlsup
-
-c ---- atmospheric polarization requested
- if (ipol.ne.0)then
- write(iwr, 142)
- if (irop.eq.1) write(iwr,146) ropq,ropq
- if (irop.eq.2) write(iwr,144) pveg*100.0
- if (irop.eq.3) write(iwr,145) wspd,azw
- write(iwr,143) ropq,ropu,sqrt(ropq*ropq+ropu*ropu),
- s atan2(ropu,ropq)*180.0/3.1415927/2.0
- endif
-
-c --- ground reflectance (type and spectral variation) ----
- if(idirec.eq.0) then
- rocave=0.
- roeave=0.
- seb=0.
-
- do 264 i=iinf,isup
- sbor=s(i)
- if(i.eq.iinf.or.i.eq.isup) sbor=sbor*0.5
- wl=.25+(i-1)*step
- call solirr(wl,
- 1 swl)
- swl=swl*dsol
- rocave=rocave+rocl(i)*sbor*swl*step
- roeave=roeave+roel(i)*sbor*swl*step
- seb=seb+sbor*swl*step
- 264 continue
- rocave=rocave/seb
- roeave=roeave/seb
- isort=0
- ro=rocave
-
- if(inhomo.eq.0) goto 260
- write(iwr, 169)rad
- igroun=igrou1
- ro=rocave
- write(iwr, 170)
- goto 261
-
- 262 igroun=igrou2
- ro=roeave
- write(iwr, 171)
- goto 261
-
- 260 write(iwr, 168)
- 261 if (igroun.gt.0)write(iwr, reflec(igroun+3))ro
- if (igroun.gt.0)goto 158
- if(igroun.eq.-1) write(iwr, reflec(1))ro
- if(igroun.eq.-1) goto 158
- if(iwave.eq.-1) write(iwr, reflec(2))ro
- if(iwave.ne.-1) write(iwr, reflec(3))ro
- 158 isort=isort+1
- if(inhomo.eq.0) goto 999
- if(isort.eq.2) goto 999
- goto 262
- else
- write(iwr, 168)
- if(idirec.eq.1) then
- rocave=0.
- rfoamave=0.
- rwatave=0.
- rglitave=0.
- seb=0.
-
- do i=iinf,isup
- sbor=s(i)
- if(i.eq.iinf.or.i.eq.isup) sbor=sbor*0.5
- wl=.25+(i-1)*step
- call solirr(wl,
- 1 swl)
- swl=swl*dsol
- rocave=rocave+rocl(i)*sbor*swl*step
- rfoamave=rfoamave+rfoaml(i)*sbor*swl*step
- rwatave=rwatave+rwatl(i)*sbor*swl*step
- rglitave=rglitave+rglitl(i)*sbor*swl*step
- seb=seb+sbor*swl*step
- enddo
- rocave=rocave/seb
- rfoamave=rfoamave/seb
- rwatave=rwatave/seb
- rglitave=rglitave/seb
-
- goto(2000,2001,2002,2003,2004,2005,2006,2007,2008,2010,2011)
- * ,(ibrdf+1)
- 2000 write(iwr, 190)
- write(iwr, 187)
- *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
- goto 2009
- 2001 write(iwr, 191)par1,par2,par3,par4
- write(iwr, 187)
- *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
- goto 2009
- 2002 write(iwr, 192)optics(1),struct(1),struct(2)
- if (options(5).eq.0) write(iwr, 200)
- if (options(5).eq.1) write(iwr, 201)
- if (options(3).eq.0) write(iwr, 197)struct(3),struct(4)
- if (options(3).eq.1) write(iwr, 198)struct(3)
- if (options(3).eq.2) write(iwr, 199)struct(3)
- if (options(4).eq.0) write(iwr, 202)
- if (options(4).eq.1) write(iwr, 203)optics(2)
- if (options(4).eq.2) write(iwr, 204)optics(2),optics(3)
- write(iwr, 187)
- *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
- goto 2009
- 2003 write(iwr, 193)par1,par2,par3
- write(iwr, 187)
- *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
- goto 2009
- 2004 write(iwr, 194)par1,par2,par3,par4
- write(iwr, 187)
- *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
- goto 2009
- 2005 write(iwr, 195)par1,par2
- write(iwr, 187)
- *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
- goto 2009
- 2006 write(iwr, 196)pws,phi_wind,xsal,pcl
- write(iwr,500) rfoamave,rwatave,rglitave
- write(iwr, 187)
- *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
- goto 2009
- 2007 write(iwr, 205) pRl,pTl,pRs,PxLt
- if (pihs.eq.0) then
- write(iwr,207)' no hot spot '
- else
- write(iwr,208)' hot spot parameter',pc
- endif
- if (pild.eq.1) write(iwr,209) ' planophile leaf distribution'
- if (pild.eq.2) write(iwr,209) ' erectophile leaf distribution'
- if (pild.eq.3) write(iwr,209) ' plagiophile leaf distribution'
- if (pild.eq.4) write(iwr,209) ' extremophile leaf distribution'
- if (pild.eq.5) write(iwr,209) ' uniform leaf distribution'
- write(iwr, 187)
- *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
- goto 2009
- 2008 write(iwr, 206) par1,par2,par3
- goto 2009
- 2010 write(iwr, 210)uli,eei,thmi,sli,cabi,cwi,vaii,rnci,rsl1i
- write(iwr, 187)
- * rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
- goto 2009
- 2011 write(iwr, 211)p1,p2,p3
- write(iwr, 187)
- * rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
- goto 2009
- 2009 endif
- endif
- 50 continue
-
-c --- pressure at ground level (174) and altitude (175) ----
- 999 write(iwr, 173)
- write(iwr, 174)p(1)
- write(iwr, 175)xps
- if (xps.gt.0..and.idatm.ne.0) write(iwr, 176)uw,uo3
-
-c --- plane simulation output if selected ----
- if (palt.lt.1000.) then
- write(iwr, 178)
- write(iwr, 179)pps
- write(iwr, 180)zpl(34)
- write(iwr, 181)
- write(iwr, 182)puo3
- write(iwr, 183)puw
- write(iwr, 184)taer55p
- endif
-
-c ---- atmospheric correction ----
- if (irapp.ge.0) then
- write(iwr, 177)
- if (irapp.eq. 0) write(iwr, 220)
- if (irapp.eq. 1) write(iwr, 221)
- if (rapp.lt.0.) then
- write(iwr, 185)-rapp
- else
- write(iwr, 186)rapp
- endif
- endif
- write(iwr, 172)
-c**********************************************************************c
-c c
-c c
-c start of computations c
-c c
-c c
-c c
-c**********************************************************************c
-
-c ---- initilialization
-C Start Update Look up table
- do i=1,mu
- do j=1,41
- roluti(i,j)=0.0
- rolutiq(i,j)=0.0
- rolutiu(i,j)=0.0
- enddo
- enddo
-C End Update Look up table
- sb=0.
- seb=0.
- refet=0.
- refet1=0.
- refet2=0.
- refet3=0.
- rpfet=0.
- rpfet1=0.
- rpfet2=0.
- rpfet3=0.
- alumet=0.
- plumet=0.
- tgasm=0.
- rog=0.
- dgasm=0.
- ugasm=0.
- sdwava=0.
- sdozon=0.
- sddica=0.
- sdoxyg=0.
- sdniox=0.
- sdmoca=0.
- sdmeth=0.
- suwava=0.
- suozon=0.
- sudica=0.
- suoxyg=0.
- suniox=0.
- sumoca=0.
- sumeth=0.
- stwava=0.
- stozon=0.
- stdica=0.
- stoxyg=0.
- stniox=0.
- stmoca=0.
- stmeth=0.
- sodray=0.
- sodrayp=0.
- sodaer=0.
- sodaerp=0.
- sodtot=0.
- sodtotp=0.
- fophsr=0.
- fophsa=0.
- foqhsr=0.
- foqhsa=0.
- fouhsr=0.
- fouhsa=0.
- sroray=0.
- sroaer=0.
- srotot=0.
- srpray=0.
- srpaer=0.
- srptot=0.
- srqray=0.
- srqaer=0.
- srqtot=0.
- sruray=0.
- sruaer=0.
- srutot=0.
- ssdaer=0.
- sdtotr=0.
- sdtota=0.
- sdtott=0.
- sutotr=0.
- sutota=0.
- sutott=0.
- sasr=0.
- sasa=0.
- sast=0.
- do 52 i=1,2
- do 53 j=1,3
- ani(i,j)=0.
- aini(i,j)=0.
- anr(i,j)=0.
- ainr(i,j)=0.
- 53 continue
- 52 continue
-
-c ---- spectral loop ----
- if (iwave.eq.-2) write(iwr,1500)
- do 51 l=iinf,isup
- sbor=s(l)
- if(l.eq.iinf.or.l.eq.isup) sbor=sbor*0.5
- if(iwave.eq.-1) sbor=1.0/step
- roc=rocl(l)
- roe=roel(l)
- wl=.25+(l-1)*step
-c
- call abstra(idatm,wl,xmus,xmuv,uw/2.,uo3,uwus,uo3us,
- a idatmp,puw/2.,puo3,puwus,puo3us,
- a dtwava,dtozon,dtdica,dtoxyg,dtniox,dtmeth,dtmoca,
- a utwava,utozon,utdica,utoxyg,utniox,utmeth,utmoca,
- a attwava,ttozon,ttdica,ttoxyg,ttniox,ttmeth,ttmoca )
- call abstra(idatm,wl,xmus,xmuv,uw,uo3,uwus,uo3us,
- a idatmp,puw,puo3,puwus,puo3us,
- a dtwava,dtozon,dtdica,dtoxyg,dtniox,dtmeth,dtmoca,
- a utwava,utozon,utdica,utoxyg,utniox,utmeth,utmoca,
- a ttwava,ttozon,ttdica,ttoxyg,ttniox,ttmeth,ttmoca )
- if (dtwava.lt.accu3) dtwava=0.
- if (dtozon.lt.accu3) dtozon=0.
- if (dtdica.lt.accu3) dtdica=0.
- if (dtniox.lt.accu3) dtniox=0.
- if (dtmeth.lt.accu3) dtmeth=0.
- if (dtmoca.lt.accu3) dtmeth=0.
- if (utwava.lt.accu3) utwava=0.
- if (utozon.lt.accu3) utozon=0.
- if (utdica.lt.accu3) utdica=0.
- if (utniox.lt.accu3) utniox=0.
- if (utmeth.lt.accu3) utmeth=0.
- if (utmoca.lt.accu3) utmeth=0.
- if (ttwava.lt.accu3) ttwava=0.
- if (ttozon.lt.accu3) ttozon=0.
- if (ttdica.lt.accu3) ttdica=0.
- if (ttniox.lt.accu3) ttniox=0.
- if (ttmeth.lt.accu3) ttmeth=0.
- if (ttmoca.lt.accu3) ttmeth=0.
-c
- call solirr(wl,
- s swl)
- swl=swl*dsol
- coef=sbor*step*swl
- coefp=sbor*step
- call interp(iaer,idatmp,wl,taer55,taer55p,xmud,romix,
- s rorayl,roaero,phaa,phar,rqmix,rqrayl,rqaero,qhaa,qhar,
- s rumix,rurayl,ruaero,uhaa,uhar,
- s tsca,tray,trayp,taer,taerp,dtott,utott,astot,asray,asaer,
- s utotr,utota,dtotr,dtota,ipol,roatm_fi,romix_fi,rorayl_fi,nfi,
- s roluts,rolut,rolutsq,rolutq,rolutsu,rolutu,nfilut)
-
- dgtot=dtwava*dtozon*dtdica*dtoxyg*dtniox*dtmeth*dtmoca
- tgtot=ttwava*ttozon*ttdica*ttoxyg*ttniox*ttmeth*ttmoca
- ugtot=utwava*utozon*utdica*utoxyg*utniox*utmeth*utmoca
- tgp1=ttozon*ttdica*ttoxyg*ttniox*ttmeth*ttmoca
- tgp2=attwava*ttozon*ttdica*ttoxyg*ttniox*ttmeth*ttmoca
-
-
-CC--- computing integrated values over the spectral band------
- sb=sb+sbor*step
- seb=seb+coef
-
-c ---unpolarized light
- edifr=utotr-exp(-trayp/xmuv)
- edifa=utota-exp(-taerp/xmuv)
- if (idirec.eq.1) then
- tdird=exp(-(trayp+taerp)/xmus)
- tdiru=exp(-(trayp+taerp)/xmuv)
- tdifd=dtott-tdird
- tdifu=utott-tdiru
- rsurf=roc*tdird*tdiru+
- s robar(l)*tdifd*tdiru+robarp(l)*tdifu*tdird+
- s robard(l)*tdifd*tdifu+
- s (tdifd+tdird)*(tdifu+tdiru)*astot*robard(l)*robard(l)
- s /(1.-astot*robard(l))
- avr=robard(l)
- else
- call enviro(edifr,edifa,rad,palt,xmuv,fra,fae,fr)
- avr=roc*fr+(1.-fr)*roe
- rsurf=roc*dtott*exp(-(trayp+taerp)/xmuv)/(1.-avr*astot)
- s +avr*dtott*(utott-exp(-(trayp+taerp)/xmuv))/(1.-avr*astot)
- endif
- ratm1=(romix-rorayl)*tgtot+rorayl*tgp1
- ratm3=romix*tgp1
- ratm2=(romix-rorayl)*tgp2+rorayl*tgp1
- do i=1,nfi
- ratm2_fi(i)=(romix_fi(i)-rorayl_fi(i))*tgp2+rorayl_fi(i)*tgp1
- enddo
- romeas1=ratm1+rsurf*tgtot
- romeas2=ratm2+rsurf*tgtot
- romeas3=ratm3+rsurf*tgtot
-c computing integrated values over the spectral band
-
- alumeas=xmus*swl*romeas2/pi
- alumet=alumet+alumeas*sbor*step
- rfoamave=rfoamave+rfoaml(i)*sbor*swl*step
- rwatave=rwatave+rwatl(i)*sbor*swl*step
- rglitave=rglitave+rglitl(i)*sbor*swl*step
- rog=rog+roc*coef
- refet=refet+romeas2*coef
- refet1=refet1+romeas1*coef
- refet2=refet2+romeas2*coef
- refet3=refet3+romeas3*coef
- do i=1,nfi
- refet_fi(i)=refet_fi(i)+ratm2_fi(i)*coef
- enddo
-
-C Start Update Look up table
-C do i=1,mu
-C do j=1,41
-C roluti(i,j)=roluti(i,j)+rolut(i,j)*coef
-C rolutiq(i,j)=rolutiq(i,j)+rolutq(i,j)*coef
-C rolutiu(i,j)=rolutiu(i,j)+rolutu(i,j)*coef
-C enddo
-C enddo
-C End Update Look up table
-
-
-
- if (iwave.eq.-2) then
- write(iwr,1501) wl,tgtot,dtott,utott,astot,ratm2,swl,roc,
- s sbor,dsol,romeas2
- endif
-
-c ---polarized light:
-c -the spectral integration without the solar irradiance
-c because the sun does not generate polarized light
-c -we assume a Lambertian ground, then no polarized
-c surface reflectance (rpsurf=0.0, avr=0.0, roc=0.0)
- if (ipol.ne.0)then
- rqatm2=(rqmix-rqrayl)*tgp2+rqrayl*tgp1
- ruatm2=(rumix-rurayl)*tgp2+rurayl*tgp1
-
- tdirqu=exp(-(trayp+taerp)*(1./xmuv+1./xmus))
- rqmeas2=rqatm2+ropq*tgtot*tdirqu
- rumeas2=ruatm2+ropu*tgtot*tdirqu
-
- qlumeas=xmus*swl*rqmeas2/pi
- ulumeas=xmus*swl*rumeas2/pi
- qlumet=qlumet+qlumeas*coefp
- ulumet=ulumet+ulumeas*coefp
-
- foqhsa=foqhsa+qhaa*coef
- foqhsr=foqhsr+qhar*coef
- fouhsa=fouhsa+uhaa*coef
- fouhsr=fouhsr+uhar*coef
- srqray=srqray+rqrayl*coef
- srqaer=srqaer+rqaero*coef
- srqtot=srqtot+rqmix*coef
- sruray=sruray+rurayl*coef
- sruaer=sruaer+ruaero*coef
- srutot=srutot+rumix*coef
- rqfet=rqfet+rqmeas2*coefp
- rufet=rufet+rumeas2*coefp
-
-C Start Update Look up table
- do i=1,mu
- do j=1,41
- roluti(i,j)=roluti(i,j)+rolut(i,j)*coef
- rolutiq(i,j)=rolutiq(i,j)+rolutq(i,j)*coef
- rolutiu(i,j)=rolutiu(i,j)+rolutu(i,j)*coef
- enddo
- enddo
-C End Update Look up table
-
- endif
-
-C ---gazes and other characteritics used in both light
- srotot=srotot+(romix)*coef
- fophsa=fophsa+phaa*coef
- fophsr=fophsr+phar*coef
- sroray=sroray+rorayl*coef
- sroaer=sroaer+roaero*coef
-
- sasr=sasr+asray*coef
- sasa=sasa+asaer*coef
- sast=sast+astot*coef
- sodray=sodray+tray*coef
- sodaer=sodaer+taer*coef
- sodrayp=sodrayp+trayp*coef
- sodaerp=sodaerp+taerp*coef
- ssdaer=ssdaer+tsca*coef
- sodtot=sodtot+(taer+tray)*coef
- sodtotp=sodtotp+(taerp+trayp)*coef
- tgasm=tgasm+tgtot*coef
- dgasm=dgasm+dgtot*coef
- ugasm=ugasm+ugtot*coef
- sdwava=sdwava+dtwava*coef
- sdozon=sdozon+dtozon*coef
- sddica=sddica+dtdica*coef
- sdoxyg=sdoxyg+dtoxyg*coef
- sdniox=sdniox+dtniox*coef
- sdmeth=sdmeth+dtmeth*coef
- sdmoca=sdmoca+dtmoca*coef
- suwava=suwava+utwava*coef
- suozon=suozon+utozon*coef
- sudica=sudica+utdica*coef
- suoxyg=suoxyg+utoxyg*coef
- suniox=suniox+utniox*coef
- sumeth=sumeth+utmeth*coef
- sumoca=sumoca+utmoca*coef
- stwava=stwava+ttwava*coef
- stozon=stozon+ttozon*coef
- stdica=stdica+ttdica*coef
- stoxyg=stoxyg+ttoxyg*coef
- stniox=stniox+ttniox*coef
- stmeth=stmeth+ttmeth*coef
- stmoca=stmoca+ttmoca*coef
- sdtotr=sdtotr+dtotr*coef
- sdtota=sdtota+dtota*coef
- sdtott=sdtott+dtott*coef
- sutotr=sutotr+utotr*coef
- sutota=sutota+utota*coef
- sutott=sutott+utott*coef
-
-c ---output at the ground level.
- tdir=exp(-(tray+taer)/xmus)
- tdif=dtott-tdir
- etn=dtott*dgtot/(1.-avr*astot)
- esn=tdir*dgtot
- es=tdir*dgtot*xmus*swl
- ea0n=tdif*dgtot
- ea0=tdif*dgtot*xmus*swl
- ee0n=dgtot*avr*astot*dtott/(1.-avr*astot)
- ee0=xmus*swl*dgtot*avr*astot*dtott/(1.-avr*astot)
- if (etn.gt.accu3) then
- ani(1,1)=esn/etn
- ani(1,2)=ea0n/etn
- ani(1,3)=ee0n/etn
- else
- ani(1,1)=0.
- ani(1,2)=0.
- ani(1,3)=0.
- endif
- ani(2,1)=es
- ani(2,2)=ea0
- ani(2,3)=ee0
- do 955 j=1,3
- aini(1,j)=aini(1,j)+ani(1,j)*coef
- aini(2,j)=aini(2,j)+ani(2,j)*sbor*step
- 955 continue
-
-c ---output at satellite level
-C old version is commented (new changes are immediately below
-C Jan-15-2004
-C tmdir=exp(-(tray+taerp)/xmuv)
- tmdir=exp(-(trayp+taerp)/xmuv)
- tmdif=utott-tmdir
- xla0n=ratm2
- xla0=xla0n*xmus*swl/pi
- xltn=roc*dtott*tmdir*tgtot/(1.-avr*astot)
- xlt=xltn*xmus*swl/pi
- xlen=avr*dtott*tmdif*tgtot/(1.-avr*astot)
- xle=xlen*xmus*swl/pi
- anr(1,1)=xla0n
- anr(1,2)=xlen
- anr(1,3)=xltn
- anr(2,1)=xla0
- anr(2,2)=xle
- anr(2,3)=xlt
- do 56 j=1,3
- ainr(1,j)=ainr(1,j)+anr(1,j)*coef
- ainr(2,j)=ainr(2,j)+anr(2,j)*sbor*step
- 56 continue
- 51 continue
-
-cc---- integrated values of apparent reflectance, radiance ----
-cc---- and gaseous transmittances (total,downward,separately gases) ----
-
-
-
- tgasm=tgasm/seb
- dgasm=dgasm/seb
- ugasm=ugasm/seb
- sasa=sasa/seb
- sasr=sasr/seb
- sast=sast/seb
- sdniox=sdniox/seb
- sdmoca=sdmoca/seb
- sdmeth=sdmeth/seb
- sdwava=sdwava/seb
- sdozon=sdozon/seb
- sddica=sddica/seb
- suniox=suniox/seb
- sumoca=sumoca/seb
- sumeth=sumeth/seb
- suwava=suwava/seb
- suozon=suozon/seb
- sudica=sudica/seb
- suoxyg=suoxyg/seb
- sdoxyg=sdoxyg/seb
- stniox=stniox/seb
- stmoca=stmoca/seb
- stmeth=stmeth/seb
- stwava=stwava/seb
- stozon=stozon/seb
- stdica=stdica/seb
- stoxyg=stoxyg/seb
- sdtotr=sdtotr/seb
- sdtota=sdtota/seb
- sdtott=sdtott/seb
- sutotr=sutotr/seb
- sutota=sutota/seb
- sutott=sutott/seb
- sodray=sodray/seb
- sodaer=sodaer/seb
- sodtot=sodtot/seb
- sodrayp=sodrayp/seb
- sodaerp=sodaerp/seb
- sodtotp=sodtotp/seb
- pizera=0.0
- pizerr=1.
- if(iaer.ne.0) pizera=ssdaer/sodaer/seb
- pizert=(pizerr*sodray+pizera*sodaer)/(sodray+sodaer)
-
-
- rfoamave=rfoamave/seb
- rwatave=rwatave/seb
- rglitave=rglitave/seb
-
-
- sroray=sroray/seb
- sroaer=sroaer/seb
- srotot=srotot/seb
- fophsa=fophsa/seb
- fophsr=fophsr/seb
- fophst=(sodray*fophsr+sodaer*fophsa)/(sodray+sodaer)
-
-c ---unpolarized light
- refet=refet/seb
- refet1=refet1/seb
- refet2=refet2/seb
- refet3=refet3/seb
- rog=rog/seb
- alumet=alumet/sb
-
-c ---polarized light
- if (ipol.ne.0)then
- rqfet=rqfet/sb
- rufet=rufet/sb
-
- srqray=srqray/seb
- srqaer=srqaer/seb
- srqtot=srqtot/seb
- sruray=sruray/seb
- sruaer=sruaer/seb
- srutot=srutot/seb
- plumet=plumet/sb
- foqhsa=foqhsa/seb
- foqhsr=foqhsr/seb
- foqhst=(sodray*foqhsr+sodaer*foqhsa)/(sodray+sodaer)
- fouhsa=fouhsa/seb
- fouhsr=fouhsr/seb
- fouhst=(sodray*fouhsr+sodaer*fouhsa)/(sodray+sodaer)
-c we define the polarized reflectances
- srpray=sqrt(srqray**2.+sruray**2.)
- srpaer=sqrt(srqaer**2.+sruaer**2.)
- srptot=sqrt(srqtot**2.+srutot**2.)
-c we define the primary degrees of polarization
- spdpray=foqhsr/fophsr
- if (iaer.ne.0) then
- spdpaer=foqhsa/fophsa
- else
- spdpaer=0.0
- endif
- spdptot=foqhst/fophst
-c we define the degrees of polarization
- sdpray=100.*srpray/sroray
- if (sroaer.ne.0) then
- sdpaer=100.*srpaer/sroaer
- else sdpaer=0.0
- endif
- sdptot=100.*srptot/srotot
-c and we compute the direction of the plane of polarization
- call dirpopol(srqray*xmus,sruray*xmus,sdppray)
- call dirpopol(srqaer*xmus,sruaer*xmus,sdppaer)
- call dirpopol(srqtot*xmus,srutot*xmus,sdpptot)
-CC ksirad=sdpptot*3.1415927/180.
-CC refeti=refet+pinst*rpfet*cos(2*(ksiinst*3.1415925/180.+ksirad))
- endif
-
- do 57 j=1,3
-c ---output at the ground level.
- aini(1,j)=aini(1,j)/seb
- aini(2,j)=aini(2,j)/sb
-c ---output at satellite level
- ainr(1,j)=ainr(1,j)/seb
- ainr(2,j)=ainr(2,j)/sb
- 57 continue
-
-c**********************************************************************c
-c c
-c print of final results c
-c c
-c**********************************************************************c
-C begining case for a lut output
-C SIMPLE LUT in azimuth
- if (ilut.eq.2) then
- do ifi=1,nfi
- xtphi=(ifi-1)*180.0/(nfi-1)
- write(6,*) "lutfi ",xtphi,ratm2_fi(ifi)
- enddo
- endif
-
-C LUT FOR Look up table data
- if (ilut.eq.1) then
- its=acos(xmus)*180.0/pi
- open(10,file='rotoa_bs',ACCESS='APPEND')
- write(10,2222) "AERO-LUT Lambda min,max ",wlinf,wlsup
- 2222 Format(A28,3(F10.7,1X))
- write(10,2222) "Tau-Lambda,Tau550 asol ",sodaer,taer55,asol
- aerod=0
- if (iaer.eq.12) then
- write(10,2223) "aerosol model ",FILE2(1:i2)
- aerod=1
- endif
- if (iaer.eq.1) then
- write(10,2223) "aerosol model ","CONTINENTAL"
- aerod=1
- endif
- if (iaer.eq.2) then
- write(10,2223) "aerosol model ","MARITIME"
- aerod=1
- endif
- if (iaer.eq.3) then
- write(10,2223) "aerosol model ","URBAN"
- aerod=1
- endif
- if (iaer.eq.5) then
- write(10,2223) "aerosol model ","DESERTIC"
- aerod=1
- endif
- if (iaer.eq.6) then
- write(10,2223) "aerosol model ","SMOKE"
- aerod=1
- endif
- if (iaer.eq.7) then
- write(10,2223) "aerosol model ","STRATOSPHERIC"
- aerod=1
- endif
- if (aerod.eq.0) then
- write(10,2223) "aerosol model ","UNDEFINED"
- endif
- 2223 format(A24,1X,A80)
- lutmuv=cos(avis*pi/180.)
- cscaa=-xmus*lutmuv-cos(filut(mu,1)*pi/180.)*sqrt(1.-xmus*xmus)
- S *sqrt(1.-lutmuv*lutmuv)
- iscama=acos(cscaa)*180./pi
- cscaa=-xmus*lutmuv-cos(filut(mu,nfilut(mu))*pi/180.)
- S *sqrt(1.-xmus*xmus)*sqrt(1.-lutmuv*lutmuv)
- iscami=acos(cscaa)*180./pi
- write(10,333) its,avis,nfilut(mu),iscama,iscami
- write(10,'(41(F8.5,1X))')(roluti(mu,j)/seb,j=1,nfilut(mu))
-C write(10,'(41(F8.5,1X))')(rolutiq(mu,j)/seb,j=1,nfilut(mu))
-C write(10,'(41(F8.5,1X))')(rolutiu(mu,j)/seb,j=1,nfilut(mu))
- do i=1,mu-1
- lutmuv=rm(i)
- luttv=acos(lutmuv)*180./pi
- cscaa=-xmus*lutmuv-cos(filut(i,1)*pi/180.)*sqrt(1.-xmus*xmus)
- S *sqrt(1.-lutmuv*lutmuv)
- iscama=acos(cscaa)*180./pi
- cscaa=-xmus*lutmuv-cos(filut(i,nfilut(i))*pi/180.)
- S *sqrt(1.-xmus*xmus)*sqrt(1.-lutmuv*lutmuv)
- iscami=acos(cscaa)*180./pi
- write(10,333) its,luttv,nfilut(i),iscama,iscami
- 333 Format(F10.5,1X,F10.5,1X,I3,F10.5,F10.5)
- write(10,'(41(F8.5,1X))')(roluti(i,j)/seb,j=1,nfilut(i))
-C write(10,'(41(F8.5,1X))')(rolutiq(i,j)/seb,j=1,nfilut(i))
-C write(10,'(41(F8.5,1X))')(rolutiu(i,j)/seb,j=1,nfilut(i))
- enddo
- close(10)
- endif
-C Case a LUT output is desired
-
-C Case for an aps LUT
- if (ilut.eq.3) then
- its=acos(xmus)*180.0/pi
- open(10,file='rotoa_aps_bs',ACCESS='APPEND')
- write(10,2222) "AERO-LUT Lambda min,max ",wlinf,wlsup
- write(10,2222) "Tau-Lambda,Tau550 asol ",sodaer,taer55,asol
- aerod=0
- if (iaer.eq.12) then
- write(10,2223) "aerosol model ",FILE2(1:i2)
- aerod=1
- endif
- if (iaer.eq.1) then
- write(10,2223) "aerosol model ","CONTINENTAL"
- aerod=1
- endif
- if (iaer.eq.2) then
- write(10,2223) "aerosol model ","MARITIME"
- aerod=1
- endif
- if (iaer.eq.3) then
- write(10,2223) "aerosol model ","URBAN"
- aerod=1
- endif
- if (iaer.eq.5) then
- write(10,2223) "aerosol model ","DESERTIC"
- aerod=1
- endif
- if (iaer.eq.6) then
- write(10,2223) "aerosol model ","SMOKE"
- aerod=1
- endif
- if (iaer.eq.7) then
- write(10,2223) "aerosol model ","STRATOSPHERIC"
- aerod=1
- endif
- if (aerod.eq.0) then
- write(10,2223) "aerosol model ","UNDEFINED"
- endif
-
-C
- dtr=atan(1.)*4./180.
- write(10,'(A5,1X,41(F8.4,1X))') 'phi',(filut(i,1),i=16,1,-1),
- S filut(mu,1),(filut(i,2),i=1,16)
-
- write(10,'(A5,1X,41(F8.5,1X))') 'tv',(acos(rm(i))/dtr,i=16,1,-1)
- S ,acos(rm(0))/dtr,(acos(rm(k))/dtr,k=1,16)
-
- write(10,'(41(F8.5,1X))')(roluti(i,1)/seb,i=16,1,-1)
- S ,roluti(mu,1)/seb ,(roluti(i,2)/seb,i=1,16)
- write(10,'(41(F8.5,1X))')(rolutiq(i,1)/seb,i=16,1,-1)
- S ,rolutiq(mu,1)/seb,(rolutiq(i,2)/seb,i=1,16)
- write(10,'(41(F8.5,1X))')(rolutiu(i,1)/seb,i=16,1,-1)
- S ,rolutiu(mu,1)/seb,(rolutiu(i,2)/seb,i=1,16)
- close(10)
- endif
-C Case a LUT output is desired
-
- 160 continue
-
- write(iwr, 430 )refet,alumet,tgasm
- write(iwr, 431 )refet1,refet2,refet3
-
- if (ipol.eq.1)then
- rpfet=sqrt(rqfet*rqfet+rufet*rufet)
- plumet=sqrt(qlumet*qlumet+ulumet*ulumet)
- xpol=atan2(rufet,rqfet)*180.0/3.14159/2.
- write(iwr, 429 )rpfet,plumet,xpol,rpfet/refet
-C write(iwr, 428 )rpfet1,rpfet2,rpfet3
- endif
-
- if(inhomo.ne.0) then
- write(iwr, 432)(aini(1,j),j=1,3),'environment','target',
- s (ainr(1,j),j=1,3)
- write(iwr, 434)(aini(2,j),j=1,3),'environment','target',
- s (ainr(2,j),j=1,3)
-
- endif
- if(inhomo.eq.0) then
- write(iwr, 432)(aini(1,j),j=1,3),'background ','pixel ',
- s (ainr(1,j),j=1,3)
- write(iwr, 434)(aini(2,j),j=1,3),'background ','pixel ',
- s (ainr(2,j),j=1,3)
- endif
-
- if (iwave.eq.-1)then
- write(iwr, 436)seb
- else
- write(iwr, 437)sb,seb
- endif
-
-c**********************************************************************c
-c c
-c print of complementary results c
-c c
-c**********************************************************************c
- write(iwr, 929)
- write(iwr, 930)
- write(iwr, 931)'global gas. trans. :',dgasm,ugasm,tgasm
- write(iwr, 931)'water " " :',sdwava,suwava,stwava
- write(iwr, 931)'ozone " " :',sdozon,suozon,stozon
- write(iwr, 931)'co2 " " :',sddica,sudica,stdica
- write(iwr, 931)'oxyg " " :',sdoxyg,suoxyg,stoxyg
- write(iwr, 931)'no2 " " :',sdniox,suniox,stniox
- write(iwr, 931)'ch4 " " :',sdmeth,sumeth,stmeth
- write(iwr, 931)'co " " :',sdmoca,sumoca,stmoca
- write(iwr, 1401)
- write(iwr, 1401)
-
- write(iwr, 931)'rayl. sca. trans. :',sdtotr,sutotr,sutotr*sdtotr
- write(iwr, 931)'aeros. sca. " :',sdtota,sutota,sutota*sdtota
- write(iwr, 931)'total sca. " :',sdtott,sutott,sutott*sdtott
- write(iwr, 1401)
- write(iwr, 1401)
-
- write(iwr, 939)
- write(iwr, 931)'spherical albedo :',sasr,sasa,sast
- write(iwr, 931)'optical depth total:',sodray,sodaer,sodtot
- write(iwr, 931)'optical depth plane:',sodrayp,sodaerp,sodtotp
- if (ipol.eq.0) then
- write(iwr, 931)'reflectance :',sroray,sroaer,srotot
- write(iwr, 931)'phase function :',fophsr,fophsa,fophst
- else
- write(iwr, 931)'reflectance I :',sroray,sroaer,srotot
- write(iwr, 931)'reflectance Q :',srqray,srqaer,srqtot
- write(iwr, 931)'reflectance U :',sruray,sruaer,srutot
- write(iwr, 931)'polarized reflect. :',srpray,srpaer,srptot
- write(iwr, 932)'degree of polar. :',sdpray,sdpaer,sdptot
- write(iwr, 932)'dir. plane polar. :',sdppray,sdppaer,sdpptot
-CCC write(iwr, 931)'instrument app ref.:',zero,zero,refeti
- write(iwr, 931)'phase function I :',fophsr,fophsa,fophst
- write(iwr, 931)'phase function Q :',foqhsr,foqhsa,foqhst
- write(iwr, 931)'phase function U :',fouhsr,fouhsa,fouhst
- write(iwr, 931)'primary deg. of pol:',spdpray,spdpaer,spdptot
- endif
- write(iwr, 931)'sing. scat. albedo :',pizerr,pizera,pizert
- write(iwr, 1401)
- write(iwr, 1402)
-
-c**********************************************************************c
-c c
-c atmospheric correction c
-c c
-c**********************************************************************c
- if (irapp.ge.0) then
- if (rapp.ge.0.) then
- xrad=rapp
- rapp=pi*xrad*sb/xmus/seb
- else
- rapp=-rapp
- xrad=xmus*seb*(rapp)/pi/sb
- endif
- rog=rapp/tgasm
- rog=(rog-ainr(1,1)/tgasm)/sutott/sdtott
- rog=rog/(1.+rog*sast)
- xa=pi*sb/xmus/seb/tgasm/sutott/sdtott
- xap=1./tgasm/sutott/sdtott
- xb=ainr(1,1)/sutott/sdtott/tgasm
- xb=ainr(1,1)/sutott/sdtott/tgasm
- xc=sast
-c BRDF coupling correction
- if (idirec.eq.1) then
-c compute the coefficient of the 2nd degree equation
-C a*(ros^2)+b*ros+c
-C compute ratios and transmissions
- robarstar=(robar1/xnorm1)/brdfints(mu,1)
- robarpstar=(robar2/xnorm2)/brdfints(mu,1)
- robarbarstar=albbrdf/brdfints(mu,1)
- tdd=exp(-sodtot/xmus)
- tdu=exp(-sodtot/xmuv)
- tsd=sdtott-tdd
- tsu=sutott-tdu
-
-c compute coefficients
-
- coefc=-(rapp/tgasm-ainr(1,1)/tgasm)
-
- coefb=tdd*tdu+tdu*tsd*robarstar+tsu*tdd*robarpstar
- coefb=coefb+tsu*tsd*robarbarstar
-
- coefa=sdtott*sutott*sast*robarbarstar*robarbarstar
- coefa=coefa/(1-sast*(rog/brdfints(mu,1)*albbrdf))
-
-c solve equations, compute solutions
- discri=sqrt(coefb*coefb-4*coefa*coefc)
- rogbrdf=(-coefb+discri)/(2*coefa)
-
-c second pass use update value for rog
- coefa=sdtott*sutott*sast*robarbarstar*robarbarstar
- coefa=coefa/(1-sast*(rogbrdf/brdfints(mu,1)*albbrdf))
- discri=sqrt(coefb*coefb-4*coefa*coefc)
- rogbrdf=(-coefb+discri)/(2*coefa)
- else
- rogbrdf=rog
- endif
-
- write(iwr, 940)
- write(iwr, 941)rapp
- write(iwr, 942)xrad
- if (irapp.eq.0) then
- write(iwr, 943)rog
- write(iwr, 944)xa,xb,xc
- else
- write(iwr,222)rog,rogbrdf
- endif
-
- write(iwr, 944)xa,xb,xc
-C write(iwr, *) "david roy ", xap,xb,xc
- y=xa*xrad-xb
-c write(6,'(A5,F9.5)') 'rog=', rog
-c write(6,'(A5,F9.5,A8,F9.5)') 'y=',y, ' acr=',y/(1.+xc*y)
-c write(6,*) 'rogbrdf=',rogbrdf,' rodir=',brdfints(mu,1),
-c s ' diff=',rogbrdf-brdfints(mu,1)
- endif
- stop
-
-c**********************************************************************c
-c c
-c output editing formats c
-c c
-c c
-c**********************************************************************c
- 98 format(/////,1h*,30(1h*),18h 6sV version 1.0B ,30(1h*),t79
- s ,1h*,/,1h*,t79,1h*,/,
- s 1h*,22x,34h geometrical conditions identity ,t79,1h*,/,
- s 1h*,22x,34h ------------------------------- ,t79,1h*)
- 101 format(1h*,15x,7h month:,i3,7h day : ,i3,
- s 16h universal time:,f6.2,
- s 10h (hh.dd) ,t79,1h*,/,
- s 1h*, 15x,10hlatitude: ,f7.2,5h deg ,6x,
- s 12h longitude: ,f7.2,5h deg ,t79,1h*)
- 102 format(1h*,2x,22h solar zenith angle: ,f6.2,5h deg ,
- s 29h solar azimuthal angle: ,f6.2,5h deg ,t79,1h*)
- 103 format(1h*,2x,7h month:,i3,7h day : ,i3,t79,1h*)
- 1110 format(1h*,2x,22h view zenith angle: ,f6.2,5h deg ,
- s 29h view azimuthal angle: ,f6.2,5h deg ,
- s t79,1h*,/,
- s 1h*,2x,22h scattering angle: ,f6.2,5h deg ,
- s 29h azimuthal angle difference: ,f6.2,5h deg ,
- s t79,1h*)
- 1119 format(1h*,t79,1h*,/,
- s 1h*,22x,31h atmospheric model description ,t79,1h*,/,
- s 1h*,22x,31h ----------------------------- ,t79,1h*)
- 1261 format(1h*,10x,30h atmospheric model identity : ,t79,1h*,/,
- s 1h*,15x,a51,t79,1h*)
- 1272 format(1h*,30h atmospheric model identity : ,t79,1h*,/,
- s 1h*,12x,33h user defined atmospheric model ,t79,1h*,/,
- s 1h*,12x,11h*altitude ,11h*pressure ,
- s 11h*temp. ,11h*h2o dens. ,11h*o3 dens. ,t79,1h*)
- 1271 format(1h*,12x,5e11.4,t79,1h*)
- 1281 format(1h*,10x,31h atmospheric model identity : ,t79,1h*,
- s /,1h*,12x,35h user defined water content : uh2o=,f6.3,
- s 7h g/cm2 ,t79,1h*,
- s /,1h*,12x,35h user defined ozone content : uo3 =,f6.3,
- s 7h cm-atm,t79,1h*)
-
-
- 5550 format(1h*,10x,25h aerosols type identity :,t79,1h*)
- 5551 format(1h*,11x,31h user-defined aerosol profile:, I2,
- s 7h layers,t79,1h*)
- 5552 format(1h*,13x,46h Layer Height(km) Opt. thick.(at 0.55 mkm),
- s 3x,7h Model,t79,1h*)
- 5553 format(1h*,15x,I2,1x,f10.1,13x,f5.3,15x,A15,t79,1h*)
- 5554 format(1h*,15x,20hno aerosols computed,t79,1h*)
- 5555 format(1h*,t79,1h*)
- 132 format(1h*,15x,a30,t79,1h*)
- 133 format(1h*,13x,28huser-defined aerosol model: ,t79,1h*,/,
- s 1h*,26x,f6.3,15h % of dust-like,t79,1h*,/,
- s 1h*,26x,f6.3,19h % of water-soluble,t79,1h*,/,
- s 1h*,26x,f6.3,13h % of oceanic,t79,1h*,/,
- s 1h*,26x,f6.3,10h % of soot,t79,1h*)
- 134 format(1h*,13x,28huser-defined aerosol model: ,I2,
- s 32h Log-Normal size distribution(s),t79,1h*,/,
- s 1h*,15x,43hMean radius Stand. Dev. Percent. density,
- s t79,1h*)
- 135 format(1h*,t19,f6.4,T33,f5.3,T47,e8.3,T79,1h*)
- 136 format(1h*,13x,27huser-defined aerosol model:,
- s 33h modified Gamma size distribution,t79,1h*,/,
- s 1h*,19x,7hAlpha: ,f6.3,6h b: ,f6.3,10h Gamma: ,f6.3,t79,1h*)
- 137 format(1h*,13x,27huser-defined aerosol model:,
- s 34h Junge Power-Law size distribution,t79,1h*,/,
- s 1h*,19x,7hAlpha: ,f6.3,t79,1h*)
- 138 format(1h*,13x,42huser-defined aerosol model using data from,
- s 10h the file:,t79,1h*,/,1h*,20x,A30,T79,1h*)
- 139 format(1h*,15x,29h results saved into the file:,t79,1h*,/,
- s 1h*,20x,A30,T79,1h*)
-
-
- 140 format(1h*,10x,29h optical condition identity :,t79,1h*,/,
- s 1h*,15x,34h user def. opt. thick. at 550 nm :,f7.4,
- s t79,1h*,/,1h*,t79,1h*)
- 141 format(1h*,10x,29h optical condition identity :,t79,1h*,/,
- s 1h*,14x,13h visibility :,f6.2,4h km ,
- s 22h opt. thick. 550 nm : ,f7.4,t79,1h*)
- 142 format(1h*,t79,1h*,/,1h*,22x,
- s36h Surface polarization parameters ,t79,1h*,/,1h*,
- s22x,36h ---------------------------------- ,t79,1h*,/,
- s1h*,t79,1h*)
- 143 format(1h*,t79,1h*,/,1h*,
- s36h Surface Polarization Q,U,Rop,Chi ,3(F8.5,1X),
- s F8.2,1X,t79,1h*,/,1h*,t79,1h*)
-
- 144 format(1h*,t79,1h*,/,1h*,
- s36h Nadal and Breon with % vegetation ,1(F8.2,1X),
- s t79,1h*,/,1h*)
-
- 145 format(1h*,t79,1h*,/,1h*,
- s36h Sunglint Model windspeed,azimuth ,2(F8.3,1X),
- s t79,1h*,/,1h*)
-
- 146 format(1h*,t79,1h*,/,1h*,
- s36h User's input roQ and roU ,2(F8.3,1X),
- s t79,1h*,/,1h*)
-
- 148 format(1h*,22x,21h spectral condition ,t79,1h*,/,1h*,
- s 22x,21h ------------------ ,t79,1h*)
-
- 149 format(1h*,11x,32h monochromatic calculation at wl :,
- s f6.3,8h micron ,t79,1h*)
- 1510 format(1h*,10x,a17,t79,1h*,/,
- s 1h*,15x,26hvalue of filter function :,t79,1h*,/,1h*,
- s 15x,8h wl inf=,f6.3,4h mic,2x,8h wl sup=,f6.3,4h mic,t79,1h*)
- 168 format(1h*,t79,1h*,/,1h*,22x,14h target type ,t79,1h*,/,1h*,
- s 22x,14h ----------- ,t79,1h*,/,1h*,
- s 10x,20h homogeneous ground ,t79,1h*)
- 169 format(1h*,t79,1h*,/,1h*,22x,14h target type ,t79,1h*,/,1h*,
- s 22x,14h ----------- ,t79,1h*,/,1h*,
- s 10x,41h inhomogeneous ground , radius of target ,f6.3,
- s 5h km ,t79,1h*)
- 170 format(1h*,15x,22h target reflectance : ,t79,1h*)
- 171 format(1h*,15x,29h environmental reflectance : ,t79,1h*)
- 172 format(1h*,t79,1h*,/,79(1h*),///)
- 173 format(1h*,t79,1h*,/,
- s 1h*,22x,30h target elevation description ,t79,1h*,/,
- s 1h*,22x,30h ---------------------------- ,t79,1h*)
- 174 format(1h*,10x,22h ground pressure [mb] ,1x,f7.2,1x,t79,1h*)
- 175 format(1h*,10x,22h ground altitude [km] ,f6.3,1x,t79,1h*)
- 176 format(1h*,15x,34h gaseous content at target level: ,t79,1h*,
- s /,1h*,15x,6h uh2o=,f6.3,7h g/cm2 ,
- s 5x,6h uo3=,f6.3,7h cm-atm,t79,1h*)
- 177 format(1h*,t79,1h*,/,
- s 1h*,23x,34h atmospheric correction activated ,t79,1h*,/,
- s 1h*,23x,34h -------------------------------- ,t79,1h*)
-
- 220 format(1h*,23x,34h Lambertian assumption selected ,t79,1h*)
- 221 format(1h*,23x,34h BRDF coupling correction ,t79,1h*)
-
-
- 185 format(1h*,10x,30h input apparent reflectance : , f6.3,t79,1h*)
- 186 format(1h*,10x,39h input measured radiance [w/m2/sr/mic] ,
- s f7.3,t79,1h*)
-
- 187 format(1h*,t79,1h*,/,
- s 1h*,15x,34h brdf selected ,t79,1h*,/,
- s 1h*,15x,40h rodir robar ropbar albedo ,t79,1h*,/,
- s 1h*,15x,4(f9.4,1x),t79,1h*)
- 190 format(1h*,15x,31h brdf from in-situ measurements,t79,1h*)
- 191 format(1h*,15x,23h Hapke's model selected,t79,1h*
- s /,1h*,16x,3hom:,f5.3,1x,3haf:,f5.3,1x,3hs0:,f5.3,1x,
- s 2hh:,f5.3,t79,1h*)
- 192 format(1h*,15x,38h Pinty and Verstraete's model selected,t79,1h*
- s /,1h*,16x,3hom:,f5.3,1x,5hrad :,f5.3,1x,6hlad :,f5.3,1x,
- s t79,1h*)
- 193 format(1h*,15x,32h Roujean et al.'s model selected,t79,1h*
- s /,1h*,16x,3hk0:,f5.3,1x,3hk1:,f5.3,1x,3hk2:,f5.3,
- s t79,1h*)
- 194 format(1h*,15x,33h Walthall et al.'s model selected,t79,1h*
- s /,1h*,16x,2ha:,f5.3,1x,3hap:,f5.3,1x,2hb:,f5.3,1x,
- s 3hom:,f5.3,t79,1h*)
- 195 format(1h*,15x,26h Minnaert's model selected,t79,1h*
- s /,1h*,16x,5hpar1:,f5.3,1x,5hpar2:,f5.3,t79,1h*)
- 196 format(1h*,15x,21h ocean model selected,t79,1h*
- s /,1h*,16x,18hwind speed [m/s] :,f5.1,
- s 2x,27hazimuth of the wind [deg] :,f8.2,t79,1h*
- s /,1h*,16x,16hsalinity [ppt] :,f5.1,
- s 4x,23hpigment conc. [mg/m3] :,f6.2,t79,1h*)
- 197 format(1h*,15x,41h given kappa1 and kappa2: ,t79,
- s 1h*,/,1h*,20x,5hkpa1:,f5.3,1x,5hkpa2:,f5.3,t79,1h*)
- 198 format(1h*,15x,41h Goudrian's parametrization of kappa : ,t79,
- s 1h*,/,1h*,20x,6h ksil:,f5.3,1x,t79,1h*)
- 199 format(1h*,15x,41h modified Goudrian's parametrization : ,t79,
- s 1h*,/,1h*,20x,6h ksil:,f5.3,1x,t79,1h*)
- 200 format(1h*,15x,40h single scattering only : ,t79,
- s 1h*)
- 201 format(1h*,15x,40h multiple scattering (Dickinson et al) ,t79,
- s 1h*)
- 202 format(1h*,15x,40h isotropic phase function : ,t79,
- s 1h*)
- 203 format(1h*,15x,40h Heyney-Greenstein's phase function : ,t79,
- s 1h*,/,1h*,20x,6hassym:,f5.3,1x,t79,1h*)
- 204 format(1h*,15x,40h Legendre polynomial phase function : ,t79,
- s 1h*,/,1h*,20x,6hbeta1:,f5.3,1x,6hbeta2:,f5.3,t79,1h*)
- 205 format(1h*,15x,40h Iaquinta and Pinty BRDF model selected ,t79,
- s 1h*,/,1h*,16x,3hRl:,f5.3,1x,3hTl:,f5.3,1x,3hRs:,f5.3,1x
- s ,1x,4hLAl:,f5.3,t79,1h*)
- 206 format(1h*,15x,30h Rahman et al. model selected ,t79,
- s 1h*,/,1h*,16x,4hRho0:,f6.3,1x,2haf:,f6.3,1x,3hxk:,f6.3,1x
- s ,t79,1h*)
- 207 format(1h*,15x,A19,t79,1h*)
- 208 format(1h*,15x,A19,1x,f5.2,t79,1h*)
- 209 format(1h*,15x,A31,t79,1h*)
- 210 format(1h*,2x,40h Kuusk BRDF model, ,t79,1h*,
- s /,1h*,12x,4hLAI:,f5.3,2x,4heps:,f6.4,2x,4hthm:,f4.1
- s ,1x,3hsl:,f4.2,t79,1h*,
- s /,1h*,12x,4hcAB:,f6.2,1x,3hcW:,f5.3,1x,2hN:,f5.3,1x,3hcn:
- s ,f4.2,1x,5hrsl1:,f5.3,t79,1h*)
- 211 format(1h*,15x,30h MODIS BRDF model selected ,t79,
- s 1h*,/,1h*,16x,4h p1:,f6.3,1x,3hp2:,f6.3,1x,3hp3:,f6.3,1x
- s ,t79,1h*)
-
-c pressure at ground level (174) and altitude (175)
- 178 format(1h*,t79,1h*,/,
- s 1h*,22x,30h plane simulation description ,t79,1h*,/,
- s 1h*,22x,30h ---------------------------- ,t79,1h*)
- 179 format(1h*,10x,31h plane pressure [mb] ,f7.2,1x,t79,1h*)
- 180 format(1h*,10x,31h plane altitude absolute [km] ,f6.3,1x,t79,1h*)
- 181 format(1h*,15x,37h atmosphere under plane description: ,t79,1h*)
- 182 format(1h*,15x,26h ozone content ,f6.3,1x,t79,1h*)
- 183 format(1h*,15x,26h h2o content ,f6.3,1x,t79,1h*)
- 184 format(1h*,15x,26haerosol opt. thick. 550nm ,f6.3,1x,t79,1h*)
-
- 426 format(1h*,t79,1h*,/,
- s 1h*,24x,27h coupling aerosol -wv : ,t79,1h*,/,
- s 1h*,24x,27h -------------------- ,t79,1h*,/,
- s 1h*,10x,20h wv above aerosol : ,f5.3,4x,
- s 25h wv mixed with aerosol : ,f5.3,1x,t79,1h*,/,
- s 1h*,22x,20h wv under aerosol : ,f5.3,t79,1h*,/,1h*,t79,
- s 1h*,/,1h*,24x,34h coupling polarized aerosol -wv :,t79,1h*,/,
- s 1h*,24x,34h ------------------------------ ,t79,1h*,/,
- s 1h*,10x,20h wv above aerosol : ,f5.3,4x,
- s 25h wv mixed with aerosol : ,f5.3,1x,t79,1h*,/,
- s 1h*,22x,20h wv under aerosol : ,f5.3,t79,1h*)
- 427 format(79(1h*),/,1h*,t79,1h*,/,
- s 1h*,24x,27h integrated values of : ,t79,1h*,/,
- s 1h*,24x,27h -------------------- ,t79,1h*,/,
- s 1h*,t79,1h*,/,
- s 1h*,6x,22h apparent reflectance ,f9.2,1x,
- s 26h appar. rad.(w/m2/sr/mic) ,f10.3,1x,t79,1h*,/,
- s 1h*,6x,22h app. polarized refl. ,f7.4,3x,
- s 26h app. pol. rad. ( " " ) ,f10.3,1x,t79,1h*,/,
- s 1h*,12x,39h direction of the plane of polarization,
- s f6.2,t79,1h*,/,
- s 1h*,18x,30h total gaseous transmittance ,f5.3,t79,1h*,/,
- s 1h*,t79,1h*,/,79(1h*))
- 428 format(1h*,t79,1h*,/,
- s 1h*,24x,34h coupling polarized aerosol -wv :,t79,1h*,/,
- s 1h*,24x,34h ------------------------------ ,t79,1h*,/,
- s 1h*,10x,20h wv above aerosol : ,f5.3,4x,
- s 25h wv mixed with aerosol : ,f5.3,1x,t79,1h*,/,
- s 1h*,22x,20h wv under aerosol : ,f5.3,t79,1h*)
- 429 format(79(1h*),/,1h*,t79,1h*,/,
- s 1h*,24x,27h integrated values of : ,t79,1h*,/,
- s 1h*,24x,27h -------------------- ,t79,1h*,/,
- s 1h*,t79,1h*,/,
- s 1h*,6x,22h app. polarized refl. ,f7.4,3x,
- s 30h app. pol. rad. (w/m2/sr/mic) ,f8.3,
- s 1x,t79,1h*,/,
- s 1h*,12x,39h direction of the plane of polarization,
- s f6.2,t79,1h*,/,
- s 1h*,18x,30h total polarization ratio ,f5.3,t79,1h*,/,
- s 1h*,t79,1h*,/,79(1h*))
- 430 format(79(1h*),/,1h*,t79,1h*,/,
- s 1h*,24x,27h integrated values of : ,t79,1h*,/,
- s 1h*,24x,27h -------------------- ,t79,1h*,/,
- s 1h*,t79,1h*,/,
- s 1h*,6x,22h apparent reflectance ,f10.7,1x,
- s 26h appar. rad.(w/m2/sr/mic) ,f8.3,1x,t79,1h*,/,
- s 1h*,18x,30h total gaseous transmittance ,f5.3,
- s t79,1h*,/,1h*,t79,1h*,/,79(1h*))
- 500 format(1h*,6x,40h water reflectance components: ,
- s t79,1h*,/,
- s 1h*,6x,10h Foam: ,1x, f10.5,1x
- s ,10h Water: ,1x, f10.5,1x
- s ,10h Glint: ,1x, f10.5,1x,t79,1h*)
- 431 format(1h*,t79,1h*,/,
- s 1h*,24x,27h coupling aerosol -wv : ,t79,1h*,/,
- s 1h*,24x,27h -------------------- ,t79,1h*,/,
- s 1h*,10x,20h wv above aerosol : ,f7.3,4x,
- s 25h wv mixed with aerosol : ,f7.3,1x,t79,1h*,/,
- s 1h*,22x,20h wv under aerosol : ,f7.3,t79,1h*)
- 432 format(1h*,t79,1h*,/,1h*,
- s 24x,32h int. normalized values of : ,t79,1h*,/,1h*,
- s 24x,32h --------------------------- ,t79,1h*,/,1h*,
- s 22x,31h% of irradiance at ground level,
- s t79,1h*,/,1h*,5x,17h% of direct irr.,
- s 4x,17h% of diffuse irr.,
- s 4x,17h% of enviro. irr ,t79,1h*,/,
- s 1h*,3(10x,f10.3),t79,1h*,/,
- s 1h*,22x,31h reflectance at satellite level ,t79,1h*,/,
- s 1h*,5x,17hatm. intrin. ref.,
- s 3x,a11,5h ref.,
- s 2x,a6,12h reflectance,t79,1h*,/,
- s 1h*,3(10x,f10.3),t79,1h*,/,1h*,t79,1h*)
- 436 format(1h*,t79,1h*,/,1h*,22x,24hsol. spect (in w/m2/mic),t79,1h*,
- s/,1h*,30x,f10.3,t79,1h*,/,1h*,t79,1h*,/,79(1h*))
- 437 format(1h*,t79,1h*,/,1h*,10x,29hint. funct filter (in mic)
- s ,10x,26h int. sol. spect (in w/m2),t79,1h*,/,
- s1h*,10x,f12.7,30x,f10.3,t79,1h*,/,1h*,t79,1h*,/,79(1h*))
- 434 format(1h*,24x,24h int. absolute values of,t79,
- s 1h*,/,1h*,24x,24h ----------------------- ,
- s t79,1h*,/,1h*,22x,33hirr. at ground level (w/m2/mic) ,
- s t79,1h*,/,1h*, 5x,17hdirect solar irr.,
- s 4x,17hatm. diffuse irr.,
- s 4x,17henvironment irr ,t79,1h*,/,
- s 1h*,3(10x,f10.3),t79,1h*,/,
- s 1h*,22x,33hrad at satel. level (w/m2/sr/mic),t79,1h*,/,
- s 1h*,5x,17hatm. intrin. rad.,
- s 4x,a11,5h rad.,
- s 4x,a6,9h radiance,t79,1h*,/,
- s 1h*,3(10x,f10.3),t79,1h*,/,1h*,t79,1h*)
- 929 format(1h ,////)
- 930 format(79(1h*),/,1h*,t79,1h*,/,
- s 1h*,t27,27h integrated values of : ,t79,1h*,/,
- s 1h*,t27,27h -------------------- ,t79,1h*,/,
- s 1h*,t79,1h*,/,
- s 1h*,t30,10h downward ,t45,10h upward ,
- s t60,10h total ,t79,1h*)
- 931 format(1h*,6x,a20,t32,f8.5,t47,f8.5,t62,f8.5,t79,1h*)
- 932 format(1h*,6x,a20,t32,f8.2,t47,f8.2,t62,f8.2,t79,1h*)
- 939 format(1h*,t79,1h*,/,1h*,
- s t30,10h rayleigh ,t45,10h aerosols ,
- s t60,10h total ,t79,1h*,/,1h*,t79,1h*)
- 940 format(79(1h*),/,/,/,/,79(1h*),/
- s 1h*,23x,31h atmospheric correction result ,t79,1h*,/,
- s 1h*,23x,31h ----------------------------- ,t79,1h*)
- 941 format(1h*,6x,40h input apparent reflectance :,
- s 1x, f8.3, t79,1h*)
- 942 format(1h*,6x,40h measured radiance [w/m2/sr/mic] :,
- s 1x, f8.3, t79,1h*)
- 943 format(1h*,6x,40h atmospherically corrected reflectance :,
- s 1x, f8.3, t79,1h*)
- 222 format(1h*,6x,40h atmospherically corrected reflectance ,
- s t79,1h*,/,
- s 1h*,6x,20h Lambertian case : ,1x, f10.5, t79,1h*,/,
- s 1h*,6x,20h BRDF case : ,1x, f10.5, t79,1h*)
- 944 format(1h*,6x,40h coefficients xa xb xc :,
- s 1x, 3(f8.5,1x),t79,1h*,/,1h*,6x,
- s ' y=xa*(measured radiance)-xb; acr=y/(1.+xc*y)',
- s t79,1h*,/,79(1h*))
- 1401 format(1h*,t79,1h*)
- 1402 format(1h*,t79,1h*,/,79(1h*))
- 1500 format(1h*,1x,42hwave total total total total atm. ,
- s 33hswl step sbor dsol toar ,t79,1h*,/,
- s 1h*,1x,42h gas scat scat spheri intr ,t79,1h*,/,
- s 1h*,1x,42h trans down up albedo refl ,t79,1h*)
- 1501 format(1h*,6(F6.4,1X),F6.1,1X,4(F6.4,1X),t79,1h*)
- 1502 format(1h*,6(F5.3,1X),F6.1,1X,1(F6.4,1X),t79,1h*)
- 1503 format(1h*,6x,5(F5.3,1X),F6.1,1X,1(F6.4,1X),t79,1h*)
-
- end
diff --git a/Modules/ThirdParty/6S/src/main_6s.h b/Modules/ThirdParty/6S/src/main_6s.h
deleted file mode 100644
index ca7c8a8..0000000
--- a/Modules/ThirdParty/6S/src/main_6s.h
+++ /dev/null
@@ -1,39 +0,0 @@
-#ifndef main_6s_h
-#define main_6s_h
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-int ssssss_ ();
-int call6sv1_0b__();
-int otb_6s_ssssss_otb_main_function( otb_6s_doublereal *otb_asol__,
-otb_6s_doublereal *otb_phi0__,
-otb_6s_doublereal *otb_avis__,
-otb_6s_doublereal *otb_phiv__,
-otb_6s_integer *otb_month__,
-otb_6s_integer *otb_jday__,
-otb_6s_doublereal *otb_pressure__,
-otb_6s_doublereal *otb_uw__,
-otb_6s_doublereal *otb_uo3__,
-otb_6s_integer *otb_iaer__,
-otb_6s_doublereal *otb_taer55__,
-otb_6s_doublereal *otb_wlinf__,
-otb_6s_doublereal *otb_wlsup__,
-otb_6s_doublereal *otb_s__,
-otb_6s_doublereal *otb_ratm__,
-otb_6s_doublereal *otb_sast__,
-otb_6s_doublereal *otb_tgasm__,
-otb_6s_doublereal *otb_sdtott__,
-otb_6s_doublereal *otb_sutott__,
-otb_6s_doublereal *otb_tdif_up__,
-otb_6s_doublereal *otb_tdir_up__,
-otb_6s_doublereal *otb_tdif_up_ray__,
-otb_6s_doublereal *otb_tdif_up_aer__
-);
-
-#ifdef __cplusplus
- }
-#endif
-
-#endif
diff --git a/Modules/ThirdParty/6S/src/mie_in__com.c b/Modules/ThirdParty/6S/src/mie_in__com.c
deleted file mode 100644
index d6e0d26..0000000
--- a/Modules/ThirdParty/6S/src/mie_in__com.c
+++ /dev/null
@@ -1,20 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal rmax, rmin;
- integer icp;
- doublereal rn[80] /* was [20][4] */, ri[80] /* was [20][4] */, x1[
- 4], x2[4], x3[4], cij[4];
- integer irsunph;
- doublereal rsunph[50], nrsunph[50];
-} mie_in__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/multorder_com.c b/Modules/ThirdParty/6S/src/multorder_com.c
deleted file mode 100644
index 025dd65..0000000
--- a/Modules/ThirdParty/6S/src/multorder_com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- integer igmax;
-} multorder_;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/num_quad__com.c b/Modules/ThirdParty/6S/src/num_quad__com.c
deleted file mode 100644
index 09eaf6d..0000000
--- a/Modules/ThirdParty/6S/src/num_quad__com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- integer nquad;
-} num_quad__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/otb_6S.h b/Modules/ThirdParty/6S/src/otb_6S.h
deleted file mode 100644
index 956c1c4..0000000
--- a/Modules/ThirdParty/6S/src/otb_6S.h
+++ /dev/null
@@ -1,51 +0,0 @@
-#ifndef otb_6S_h
-#define otb_6S_h
-
-/* Include the basic f2c interface. */
-#include "otb_6S_f2c.h"
-
-/* Mangle the netlib symbols and types to have a otb_6S prefix. */
-#include "otb_6S_mangle.h"
-
-/* Enforce const-correctness only outside otb_6S sources. */
-#ifdef OTB_6S_SRC
-# define otb_6S_const
-#else
-# define otb_6S_const const
-#endif
-
-/* Modify the interface for C++. */
-#ifdef __cplusplus
-# undef complex
-# include <vcl_complex.h>
-# define otb_6S_complex vcl_complex<float>
-# define otb_6S_doublecomplex vcl_complex<double>
-#endif
-
-/* Include the netlib interface. */
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern void otb_6S_initialize();
-#include "otb_6S_prototypes.h"
-#ifdef __cplusplus
-}
-#endif
-
-/* Cleanup the namespace if not inside a otb_6S source. */
-#ifndef OTB_6S_SRC
-# include "otb_6S_unmangle.h"
-#endif
-
-/* Automatically initialize the netlib library for C++ clients. */
-/*
-#if defined(__cplusplus) && !defined(OTB_6S_SRC)
-struct otb_6S_initializer
-{
- otb_6S_initializer() { otb_6S_initialize(); }
-};
-static otb_6S_initializer otb_6S_initializer_instance;
-#endif
-*/
-
-#endif
diff --git a/Modules/ThirdParty/6S/src/otb_6S_f2c.h b/Modules/ThirdParty/6S/src/otb_6S_f2c.h
deleted file mode 100644
index e5eec8c..0000000
--- a/Modules/ThirdParty/6S/src/otb_6S_f2c.h
+++ /dev/null
@@ -1,86 +0,0 @@
-/* OTB : This file is a copy of v3p_f2c.h ITK file */
-
-#ifndef otb_6S_f2c_h
-#define otb_6S_f2c_h
-
-/* Disable some warnings inside otb_6S sources. */
-#ifdef OTB_6S_SRC
-# if defined(_MSC_VER)
-# pragma warning (disable: 4244) /* conversion with possible loss of data */
-# if !defined(_COMPLEX_DEFINED)
- struct _complex { double x,y; };
-# define _COMPLEX_DEFINED /* block math.h from defining complex macro */
-# endif
-# endif
-#endif
-
-
-/* Mangle the f2c symbols and types to have a otb_6S prefix. */
-#include "otb_6S_f2c_mangle.h"
-
-/* Avoid f2c namespace violations. */
-#ifndef OTB_6S_SRC
-# define OTB_6S_F2C_SKIP_UNDEFS
-#endif
-
-/* Include the renamed original f2c.h file with a C interface. */
-#ifdef __cplusplus
-extern "C" {
-#endif
-#include "otb_6S_f2c_original.h"
-char *F77_aloc(integer Len, char *whence);
-void sig_die(register char *s, int kill);
-integer i_dnnt(doublereal *x);
-double f__cabs(double real, double imag);
-void exit_(integer *rc);
-double c_abs(complex *z);
-void c_div(complex *c, complex *a, complex *b);
-void c_sqrt(complex *r, complex *z);
-VOID d_cnjg(doublecomplex *r, doublecomplex *z);
-double d_imag(doublecomplex *z);
-double d_lg10(doublereal *x);
-double d_sign(doublereal *a, doublereal *b);
-double pow_dd(doublereal *ap, doublereal *bp);
-double pow_di(doublereal *ap, integer *bp);
-double pow_ri(real *ap, integer *bp);
-integer pow_ii(integer *ap, integer *bp);
-VOID r_cnjg(complex *r, complex *z);
-double r_imag(complex *z);
-double r_sign(real *a, real *b);
-/* OTB modifications */
-/* int s_copy(char *a, char *b, ftnlen la, ftnlen lb); */
-void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
-
-integer s_cmp(char *a0, char *b0, ftnlen la, ftnlen lb);
-/* OTB modifications */
-/*int s_cat(char *lp, char **rpp, integer *rnp, integer* np, ftnlen ll);*/
-void s_cat(char *lp, char **rpp, integer *rnp, integer* np, ftnlen ll);
-double z_abs(doublecomplex *z);
-void z_div(doublecomplex *c, doublecomplex *a, doublecomplex *b);
-void z_sqrt(doublecomplex *r, doublecomplex *z);
-#ifdef __cplusplus
-}
-#endif
-
-/* Cleanup the namespace if not inside a otb_6S source. */
-#ifndef OTB_6S_SRC
-# undef qbit_clear
-# undef qbit_set
-# undef TRUE_
-# undef FALSE_
-# undef Extern
-# undef VOID
-# undef abs
-# undef dabs
-# undef min
-# undef max
-# undef dmin
-# undef dmax
-# undef bit_test
-# undef bit_clear
-# undef bit_set
-# undef F2C_proc_par_types
-# include "otb_6S_f2c_unmangle.h"
-#endif
-
-#endif
diff --git a/Modules/ThirdParty/6S/src/otb_6S_f2c_mangle.h b/Modules/ThirdParty/6S/src/otb_6S_f2c_mangle.h
deleted file mode 100644
index 3d4159a..0000000
--- a/Modules/ThirdParty/6S/src/otb_6S_f2c_mangle.h
+++ /dev/null
@@ -1,81 +0,0 @@
-/* OTB : This file is a copy of v3p_f2c_mangle.h ITK file */
-/* Replace v3p_netlib by otb_6S */
-
-/* This header file mangles names added to the namespace by v3p_f2c.h.
- There are purposely no include blockers so translation units can
- mangle/unmangle repeatedly. */
-
-/* Functions */
-#define F77_aloc otb_6s_F77_aloc
-#define exit_ otb_6s_exit_
-#define c_abs otb_6s_c_abs
-#define c_div otb_6s_c_div
-#define c_sqrt otb_6s_c_sqrt
-#define d_cnjg otb_6s_d_cnjg
-#define d_imag otb_6s_d_imag
-#define d_lg10 otb_6s_d_lg10
-#define d_sign otb_6s_d_sign
-#define f__cabs otb_6s_f__cabs
-#define i_dnnt otb_6s_i_dnnt
-#define pow_dd otb_6s_pow_dd
-#define pow_di otb_6s_pow_di
-#define pow_ii otb_6s_pow_ii
-#define pow_ri otb_6s_pow_ri
-#define r_cnjg otb_6s_r_cnjg
-#define r_imag otb_6s_r_imag
-#define r_sign otb_6s_r_sign
-#define s_cat otb_6s_s_cat
-#define s_cmp otb_6s_s_cmp
-#define s_copy otb_6s_s_copy
-#define sig_die otb_6s_sig_die
-#define z_abs otb_6s_z_abs
-#define z_div otb_6s_z_div
-#define z_sqrt otb_6s_z_sqrt
-
-/* Types */
-#define C_f otb_6s_C_f
-#define C_fp otb_6s_C_fp
-#define E_f otb_6s_E_f
-#define E_fp otb_6s_E_fp
-#define H_f otb_6s_H_f
-#define H_fp otb_6s_H_fp
-#define I_fp otb_6s_I_fp
-#define J_fp otb_6s_J_fp
-#define K_fp otb_6s_K_fp
-#define L_fp otb_6s_L_fp
-#define Multitype otb_6s_Multitype
-#define Namelist otb_6s_Namelist
-#define R_fp otb_6s_R_fp
-#define S_fp otb_6s_S_fp
-#define U_fp otb_6s_U_fp
-#define Vardesc otb_6s_Vardesc
-#define Z_f otb_6s_Z_f
-#define Z_fp otb_6s_Z_fp
-#define address otb_6s_address
-#define alist otb_6s_alist
-#define cilist otb_6s_cilist
-#define cllist otb_6s_cllist
-
-#if defined(complex)
-#undef complex
-#endif
-#define complex otb_6s_complex
-
-#define doublecomplex otb_6s_doublecomplex
-#define doublereal otb_6s_doublereal
-#define flag otb_6s_flag
-#define ftnint otb_6s_ftnint
-#define ftnlen otb_6s_ftnlen
-#define icilist otb_6s_icilist
-#define inlist otb_6s_inlist
-#define integer otb_6s_integer
-#define integer1 otb_6s_integer1
-#define logical otb_6s_logical
-#define logical1 otb_6s_logical1
-#define longint otb_6s_longint
-#define olist otb_6s_olist
-#define real otb_6s_real
-#define shortint otb_6s_shortint
-#define shortlogical otb_6s_shortlogical
-#define uinteger otb_6s_uinteger
-#define ulongint otb_6s_ulongint
diff --git a/Modules/ThirdParty/6S/src/otb_6S_f2c_original.h b/Modules/ThirdParty/6S/src/otb_6S_f2c_original.h
deleted file mode 100644
index bc32030..0000000
--- a/Modules/ThirdParty/6S/src/otb_6S_f2c_original.h
+++ /dev/null
@@ -1,225 +0,0 @@
-/* OTB : This file is a copy of v3p_f2c_original.h ITK file */
-
-/* f2c.h -- Standard Fortran to C header file */
-
-/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed."
-
- - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */
-
-#ifndef otb_6S_f2c_original_h
-#define otb_6S_f2c_original_h
-
-typedef long int integer;
-typedef unsigned long int uinteger;
-typedef char *address;
-typedef short int shortint;
-typedef float real;
-typedef double doublereal;
-typedef struct { real r, i; } complex;
-typedef struct { doublereal r, i; } doublecomplex;
-typedef long int logical;
-typedef short int shortlogical;
-typedef char logical1;
-typedef char integer1;
-#ifdef INTEGER_STAR_8 /* Adjust for integer*8. */
-typedef long long longint; /* system-dependent */
-typedef unsigned long long ulongint; /* system-dependent */
-#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b)))
-#define qbit_set(a,b) ((a) | ((ulongint)1 << (b)))
-#endif
-
-#define TRUE_ (1)
-#define FALSE_ (0)
-
-/* Extern is for use with -E */
-#ifndef Extern
-#define Extern extern
-#endif
-
-/* I/O stuff */
-
-#ifdef f2c_i2
-/* for -i2 */
-typedef short flag;
-typedef short ftnlen;
-typedef short ftnint;
-#else
-typedef long int flag;
-typedef long int ftnlen;
-typedef long int ftnint;
-#endif
-
-/*external read, write*/
-typedef struct
-{ flag cierr;
- ftnint ciunit;
- flag ciend;
- char *cifmt;
- ftnint cirec;
-} cilist;
-
-/*internal read, write*/
-typedef struct
-{ flag icierr;
- char *iciunit;
- flag iciend;
- char *icifmt;
- ftnint icirlen;
- ftnint icirnum;
-} icilist;
-
-/*open*/
-typedef struct
-{ flag oerr;
- ftnint ounit;
- char *ofnm;
- ftnlen ofnmlen;
- char *osta;
- char *oacc;
- char *ofm;
- ftnint orl;
- char *oblnk;
-} olist;
-
-/*close*/
-typedef struct
-{ flag cerr;
- ftnint cunit;
- char *csta;
-} cllist;
-
-/*rewind, backspace, endfile*/
-typedef struct
-{ flag aerr;
- ftnint aunit;
-} alist;
-
-/* inquire */
-typedef struct
-{ flag inerr;
- ftnint inunit;
- char *infile;
- ftnlen infilen;
- ftnint *inex; /*parameters in standard's order*/
- ftnint *inopen;
- ftnint *innum;
- ftnint *innamed;
- char *inname;
- ftnlen innamlen;
- char *inacc;
- ftnlen inacclen;
- char *inseq;
- ftnlen inseqlen;
- char *indir;
- ftnlen indirlen;
- char *infmt;
- ftnlen infmtlen;
- char *inform;
- ftnint informlen;
- char *inunf;
- ftnlen inunflen;
- ftnint *inrecl;
- ftnint *innrec;
- char *inblank;
- ftnlen inblanklen;
-} inlist;
-
-#define VOID void
-
-union Multitype { /* for multiple entry points */
- integer1 g;
- shortint h;
- integer i;
- /* longint j; */
- real r;
- doublereal d;
- complex c;
- doublecomplex z;
- };
-
-typedef union Multitype Multitype;
-
-/*typedef long int Long;*/ /* No longer used; formerly in Namelist */
-
-struct Vardesc { /* for Namelist */
- char *name;
- char *addr;
- ftnlen *dims;
- int type;
- };
-typedef struct Vardesc Vardesc;
-
-struct Namelist {
- char *name;
- Vardesc **vars;
- int nvars;
- };
-typedef struct Namelist Namelist;
-
-#define abs(x) ((x) >= 0 ? (x) : -(x))
-#define dabs(x) (doublereal)abs(x)
-#define min(a,b) ((a) <= (b) ? (a) : (b))
-#define max(a,b) ((a) >= (b) ? (a) : (b))
-#define dmin(a,b) (doublereal)min(a,b)
-#define dmax(a,b) (doublereal)max(a,b)
-#define bit_test(a,b) ((a) >> (b) & 1)
-#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b)))
-#define bit_set(a,b) ((a) | ((uinteger)1 << (b)))
-
-/* procedure parameter types for -A and -C++ */
-
-#define F2C_proc_par_types 1
-#ifdef __cplusplus
-typedef int /* Unknown procedure type */ (*U_fp)(...);
-typedef shortint (*J_fp)(...);
-typedef integer (*I_fp)(...);
-typedef real (*R_fp)(...);
-typedef doublereal (*D_fp)(...), (*E_fp)(...);
-typedef /* Complex */ VOID (*C_fp)(...);
-typedef /* Double Complex */ VOID (*Z_fp)(...);
-typedef logical (*L_fp)(...);
-typedef shortlogical (*K_fp)(...);
-typedef /* Character */ VOID (*H_fp)(...);
-typedef /* Subroutine */ int (*S_fp)(...);
-#else
-typedef int /* Unknown procedure type */ (*U_fp)();
-typedef shortint (*J_fp)();
-typedef integer (*I_fp)();
-typedef real (*R_fp)();
-typedef doublereal (*D_fp)(), (*E_fp)();
-typedef /* Complex */ VOID (*C_fp)();
-typedef /* Double Complex */ VOID (*Z_fp)();
-typedef logical (*L_fp)();
-typedef shortlogical (*K_fp)();
-typedef /* Character */ VOID (*H_fp)();
-typedef /* Subroutine */ int (*S_fp)();
-#endif
-/* E_fp is for real functions when -R is not specified */
-typedef VOID C_f; /* complex function */
-typedef VOID H_f; /* character function */
-typedef VOID Z_f; /* double complex function */
-typedef doublereal E_f; /* real function with -R not specified */
-
-/* undef any lower-case symbols that your C compiler predefines, e.g.: */
-
-#ifndef OTB_6S_F2C_SKIP_UNDEFS
-#undef cray
-#undef gcos
-#undef mc68010
-#undef mc68020
-#undef mips
-#undef pdp11
-#undef sgi
-#undef sparc
-#undef sun
-#undef sun2
-#undef sun3
-#undef sun4
-#undef u370
-#undef u3b
-#undef u3b2
-#undef u3b5
-#undef unix
-#undef vax
-#endif
-#endif
diff --git a/Modules/ThirdParty/6S/src/otb_6S_f2c_unmangle.h b/Modules/ThirdParty/6S/src/otb_6S_f2c_unmangle.h
deleted file mode 100644
index 321cd2d..0000000
--- a/Modules/ThirdParty/6S/src/otb_6S_f2c_unmangle.h
+++ /dev/null
@@ -1,75 +0,0 @@
-/* OTB : This file is a copy of v3p_f2c_unmangle.h ITK file */
-
-/* This header undefines mangled names defined by v3p_f2c_mangle.h
- There are purposely no include blockers so translation units can
- mangle/unmangle repeatedly. */
-
-/* Functions */
-#undef F77_aloc
-#undef exit_
-#undef c_abs
-#undef c_div
-#undef c_sqrt
-#undef d_cnjg
-#undef d_imag
-#undef d_lg10
-#undef d_sign
-#undef f__cabs
-#undef i_dnnt
-#undef pow_dd
-#undef pow_di
-#undef pow_ii
-#undef pow_ri
-#undef r_cnjg
-#undef r_imag
-#undef r_sign
-#undef s_cat
-#undef s_cmp
-#undef s_copy
-#undef sig_die
-#undef z_abs
-#undef z_div
-#undef z_sqrt
-
-/* Types */
-#undef C_f
-#undef C_fp
-#undef E_f
-#undef E_fp
-#undef H_f
-#undef H_fp
-#undef I_fp
-#undef J_fp
-#undef K_fp
-#undef L_fp
-#undef Multitype
-#undef Namelist
-#undef R_fp
-#undef S_fp
-#undef U_fp
-#undef Vardesc
-#undef Z_f
-#undef Z_fp
-#undef address
-#undef alist
-#undef cilist
-#undef cllist
-#undef complex
-#undef doublecomplex
-#undef doublereal
-#undef flag
-#undef ftnint
-#undef ftnlen
-#undef icilist
-#undef inlist
-#undef integer
-#undef integer1
-#undef logical
-#undef logical1
-#undef longint
-#undef olist
-#undef real
-#undef shortint
-#undef shortlogical
-#undef uinteger
-#undef ulongint
diff --git a/Modules/ThirdParty/6S/src/otb_6S_mangle.h b/Modules/ThirdParty/6S/src/otb_6S_mangle.h
deleted file mode 100644
index 05cf415..0000000
--- a/Modules/ThirdParty/6S/src/otb_6S_mangle.h
+++ /dev/null
@@ -1,305 +0,0 @@
-/*
-
-This header file mangles all symbols exported from the otb_6s
-library. There are purposely no include blockers so translation units
-can mangle/unmangle repeatedly. It is included in all files while
-building the library.
-
-The following command was used to obtain the symbol list:
-
-nm libotb_6s.a |grep " [TR] "
-
-*/
-
-/* Functions */
-#define varsol_ otb_6s_varsol_
-#define enviro_ otb_6s_enviro_
-/* otb 6S Main function */
-#define ssssss_otb_main_function otb_6s_ssssss_otb_main_function
-
-#define adaptquad_ otb_6s_adaptquad_
-#define balanc_ otb_6s_balanc_
-#define balbak_ otb_6s_balbak_
-#define calcsc_ otb_6s_calcsc_
-#define caxpy_ otb_6s_caxpy_
-#define ccopy_ otb_6s_ccopy_
-#define cdiv_ otb_6s_cdiv_
-#define cdotc_ otb_6s_cdotc_
-#define cg_ otb_6s_cg_
-#define chscdf_ otb_6s_chscdf_
-#define cqrdc_ otb_6s_cqrdc_
-#define cqrsl_ otb_6s_cqrsl_
-#define cscal_ otb_6s_cscal_
-#define csrot_ otb_6s_csrot_
-#define csvdc_ otb_6s_csvdc_
-#define cswap_ otb_6s_cswap_
-#define cub_ otb_6s_cub_
-#define dasum_ otb_6s_dasum_
-#define daxpy_ otb_6s_daxpy_
-#define dcabs1_ otb_6s_dcabs1_
-#define dchscdf_ otb_6s_dchscdf_
-#define dcopy_ otb_6s_dcopy_
-#define ddot_ otb_6s_ddot_
-#define dgecon_ otb_6s_dgecon_
-#define dgemm_ otb_6s_dgemm_
-#define dgemv_ otb_6s_dgemv_
-#define dgeqr2_ otb_6s_dgeqr2_
-#define dgeqrf_ otb_6s_dgeqrf_
-#define dger_ otb_6s_dger_
-#define dgerq2_ otb_6s_dgerq2_
-#define dgesc2_ otb_6s_dgesc2_
-#define dgetc2_ otb_6s_dgetc2_
-#define dggbak_ otb_6s_dggbak_
-#define dggbal_ otb_6s_dggbal_
-#define dgges_ otb_6s_dgges_
-#define dgghrd_ otb_6s_dgghrd_
-#define dgpfa2f_ otb_6s_dgpfa2f_
-#define dgpfa3f_ otb_6s_dgpfa3f_
-#define dgpfa5f_ otb_6s_dgpfa5f_
-#define dgpfa_ otb_6s_dgpfa_
-#define dhgeqz_ otb_6s_dhgeqz_
-#define dlabad_ otb_6s_dlabad_
-#define dlabax_ otb_6s_dlabax_
-#define dlabcm_ otb_6s_dlabcm_
-#define dlabfc_ otb_6s_dlabfc_
-#define dlacon_ otb_6s_dlacon_
-#define dlacpy_ otb_6s_dlacpy_
-#define dladiv_ otb_6s_dladiv_
-#define dlaeig_ otb_6s_dlaeig_
-#define dlag2_ otb_6s_dlag2_
-#define dlager_ otb_6s_dlager_
-#define dlagv2_ otb_6s_dlagv2_
-#define dlamc1_ otb_6s_dlamc1_
-#define dlamc2_ otb_6s_dlamc2_
-#define dlamc3_ otb_6s_dlamc3_
-#define dlamc4_ otb_6s_dlamc4_
-#define dlamc5_ otb_6s_dlamc5_
-#define dlamch_ otb_6s_dlamch_
-#define dlange_ otb_6s_dlange_
-#define dlanhs_ otb_6s_dlanhs_
-#define dlapy2_ otb_6s_dlapy2_
-#define dlapy3_ otb_6s_dlapy3_
-#define dlaran_ otb_6s_dlaran_
-#define dlarf_ otb_6s_dlarf_
-#define dlarfb_ otb_6s_dlarfb_
-#define dlarfg_ otb_6s_dlarfg_
-#define dlarft_ otb_6s_dlarft_
-#define dlartg_ otb_6s_dlartg_
-#define dlascl_ otb_6s_dlascl_
-#define dlaset_ otb_6s_dlaset_
-#define dlassq_ otb_6s_dlassq_
-#define dlasv2_ otb_6s_dlasv2_
-#define dlaswp_ otb_6s_dlaswp_
-#define dlatdf_ otb_6s_dlatdf_
-#define dlatrs_ otb_6s_dlatrs_
-#define dmvpc_ otb_6s_dmvpc_
-#define dnlaso_ otb_6s_dnlaso_
-#define dnorcdf_ otb_6s_dnorcdf_
-#define dnppla_ otb_6s_dnppla_
-#define dnrm2_ otb_6s_dnrm2_
-#define dnwla_ otb_6s_dnwla_
-#define dorg2r_ otb_6s_dorg2r_
-#define dorgqr_ otb_6s_dorgqr_
-#define dorgr2_ otb_6s_dorgr2_
-#define dorm2r_ otb_6s_dorm2r_
-#define dormqr_ otb_6s_dormqr_
-#define dormr2_ otb_6s_dormr2_
-#define dortqr_ otb_6s_dortqr_
-#define dpmpar_ otb_6s_dpmpar_
-#define dpoco_ otb_6s_dpoco_
-#define dpodi_ otb_6s_dpodi_
-#define dpofa_ otb_6s_dpofa_
-#define dposl_ otb_6s_dposl_
-#define dqrdc_ otb_6s_dqrdc_
-#define dqrsl_ otb_6s_dqrsl_
-#define drot_ otb_6s_drot_
-#define drotg_ otb_6s_drotg_
-#define drscl_ otb_6s_drscl_
-#define dscal_ otb_6s_dscal_
-#define dsvdc_ otb_6s_dsvdc_
-#define dswap_ otb_6s_dswap_
-#define dtgex2_ otb_6s_dtgex2_
-#define dtgexc_ otb_6s_dtgexc_
-#define dtgsen_ otb_6s_dtgsen_
-#define dtgsy2_ otb_6s_dtgsy2_
-#define dtgsyl_ otb_6s_dtgsyl_
-#define dtrmm_ otb_6s_dtrmm_
-#define dtrmv_ otb_6s_dtrmv_
-#define dtrsv_ otb_6s_dtrsv_
-#define dvsort_ otb_6s_dvsort_
-#define dzasum_ otb_6s_dzasum_
-#define dznrm2_ otb_6s_dznrm2_
-#define elmhes_ otb_6s_elmhes_
-#define eltran_ otb_6s_eltran_
-#define enorm_ otb_6s_enorm_
-#define epslon_ otb_6s_epslon_
-#define fd_ otb_6s_fd_
-#define fdjac2_ otb_6s_fdjac2_
-#define fv_ otb_6s_fv_
-#define fvd_ otb_6s_fvd_
-#define fxshfr_ otb_6s_fxshfr_
-#define gpfa2f_ otb_6s_gpfa2f_
-#define gpfa3f_ otb_6s_gpfa3f_
-#define gpfa5f_ otb_6s_gpfa5f_
-#define gpfa_ otb_6s_gpfa_
-#define hqr2_ otb_6s_hqr2_
-#define hqr_ otb_6s_hqr_
-#define idamax_ otb_6s_idamax_
-#define ieeeck_ otb_6s_ieeeck_
-#define ilaenv_ otb_6s_ilaenv_
-#define ins_ otb_6s_ins_
-#define isamax_ otb_6s_isamax_
-#define izamax_ otb_6s_izamax_
-#define lb1_ otb_6s_lb1_
-#define lbfgs_ otb_6s_lbfgs_
-#define lce_ otb_6s_lce_
-#define lde_ otb_6s_lde_
-#define lmder1_ otb_6s_lmder1_
-#define lmder_ otb_6s_lmder_
-#define lmdif_ otb_6s_lmdif_
-#define lmpar_ otb_6s_lmpar_
-#define lsame_ otb_6s_lsame_
-#define lse_ otb_6s_lse_
-#define lsqr_ otb_6s_lsqr_
-#define mcsrch_ otb_6s_mcsrch_
-#define mcstep_ otb_6s_mcstep_
-#define newest_ otb_6s_newest_
-#define nextk_ otb_6s_nextk_
-#define pythag_ otb_6s_pythag_
-#define qrfac_ otb_6s_qrfac_
-#define qrsolv_ otb_6s_qrsolv_
-#define quad_ otb_6s_quad_
-#define quadit_ otb_6s_quadit_
-#define quadsd_ otb_6s_quadsd_
-#define realit_ otb_6s_realit_
-#define rebak_ otb_6s_rebak_
-#define reduc_ otb_6s_reduc_
-#define refine_ otb_6s_refine_
-#define rg_ otb_6s_rg_
-#define rpoly_ otb_6s_rpoly_
-#define rs_ otb_6s_rs_
-#define rsg_ otb_6s_rsg_
-#define saxpy_ otb_6s_saxpy_
-#define sbeg_ otb_6s_sbeg_
-#define sblas2_ otb_6s_sblas2_
-#define schck1_ otb_6s_schck1_
-#define schck2_ otb_6s_schck2_
-#define schck3_ otb_6s_schck3_
-#define schck4_ otb_6s_schck4_
-#define schck5_ otb_6s_schck5_
-#define scnrm2_ otb_6s_scnrm2_
-#define scopy_ otb_6s_scopy_
-#define sdiff_ otb_6s_sdiff_
-#define sdot_ otb_6s_sdot_
-#define setdgpfa_ otb_6s_setdgpfa_
-#define setgpfa_ otb_6s_setgpfa_
-#define sgbmv_ otb_6s_sgbmv_
-#define sgemv_ otb_6s_sgemv_
-#define sgeqpf_ otb_6s_sgeqpf_
-#define sgeqr2_ otb_6s_sgeqr2_
-#define sger_ otb_6s_sger_
-#define sgerq2_ otb_6s_sgerq2_
-#define sggsvd_ otb_6s_sggsvd_
-#define sggsvp_ otb_6s_sggsvp_
-#define simpru_ otb_6s_simpru_
-#define slacpy_ otb_6s_slacpy_
-#define slags2_ otb_6s_slags2_
-#define slamc1_ otb_6s_slamc1_
-#define slamc2_ otb_6s_slamc2_
-#define slamc3_ otb_6s_slamc3_
-#define slamc4_ otb_6s_slamc4_
-#define slamc5_ otb_6s_slamc5_
-#define slamch_ otb_6s_slamch_
-#define slange_ otb_6s_slange_
-#define slapll_ otb_6s_slapll_
-#define slapmt_ otb_6s_slapmt_
-#define slapy2_ otb_6s_slapy2_
-#define slarf_ otb_6s_slarf_
-#define slarfg_ otb_6s_slarfg_
-#define slartg_ otb_6s_slartg_
-#define slas2_ otb_6s_slas2_
-#define slaset_ otb_6s_slaset_
-#define slassq_ otb_6s_slassq_
-#define slasv2_ otb_6s_slasv2_
-#define smake_ otb_6s_smake_
-#define smessg_ otb_6s_smessg_
-#define snrm2_ otb_6s_snrm2_
-#define sopen_ otb_6s_sopen_
-#define sorg2r_ otb_6s_sorg2r_
-#define sorm2r_ otb_6s_sorm2r_
-#define sormr2_ otb_6s_sormr2_
-#define sqrdc_ otb_6s_sqrdc_
-#define sqrsl_ otb_6s_sqrsl_
-#define srot_ otb_6s_srot_
-#define srotg_ otb_6s_srotg_
-#define srule_ otb_6s_srule_
-#define ssbmv_ otb_6s_ssbmv_
-#define sscal_ otb_6s_sscal_
-#define sspmv_ otb_6s_sspmv_
-#define sspr2_ otb_6s_sspr2_
-#define sspr_ otb_6s_sspr_
-#define ssvdc_ otb_6s_ssvdc_
-#define sswap_ otb_6s_sswap_
-#define ssymv_ otb_6s_ssymv_
-#define ssyr2_ otb_6s_ssyr2_
-#define ssyr_ otb_6s_ssyr_
-#define stbmv_ otb_6s_stbmv_
-#define stbsv_ otb_6s_stbsv_
-#define stgsja_ otb_6s_stgsja_
-#define stpmv_ otb_6s_stpmv_
-#define stpsv_ otb_6s_stpsv_
-#define strmv_ otb_6s_strmv_
-#define strsv_ otb_6s_strsv_
-#define tql1_ otb_6s_tql1_
-#define tql2_ otb_6s_tql2_
-#define tqlrat_ otb_6s_tqlrat_
-#define trapru_ otb_6s_trapru_
-#define tred1_ otb_6s_tred1_
-#define tred2_ otb_6s_tred2_
-#define urand_ otb_6s_urand_
-#define xerbla_ otb_6s_xerbla_
-#define xsimpru_ otb_6s_xsimpru_
-#define xtrapru_ otb_6s_xtrapru_
-#define zaxpy_ otb_6s_zaxpy_
-#define zcopy_ otb_6s_zcopy_
-#define zdotc_ otb_6s_zdotc_
-#define zdotu_ otb_6s_zdotu_
-#define zdrot_ otb_6s_zdrot_
-#define zdscal_ otb_6s_zdscal_
-#define zgebak_ otb_6s_zgebak_
-#define zgebal_ otb_6s_zgebal_
-#define zgeev_ otb_6s_zgeev_
-#define zgehd2_ otb_6s_zgehd2_
-#define zgehrd_ otb_6s_zgehrd_
-#define zgemm_ otb_6s_zgemm_
-#define zgemv_ otb_6s_zgemv_
-#define zgerc_ otb_6s_zgerc_
-#define zhseqr_ otb_6s_zhseqr_
-#define zlacgv_ otb_6s_zlacgv_
-#define zlacpy_ otb_6s_zlacpy_
-#define zladiv_ otb_6s_zladiv_
-#define zlahqr_ otb_6s_zlahqr_
-#define zlahrd_ otb_6s_zlahrd_
-#define zlange_ otb_6s_zlange_
-#define zlanhs_ otb_6s_zlanhs_
-#define zlarf_ otb_6s_zlarf_
-#define zlarfb_ otb_6s_zlarfb_
-#define zlarfg_ otb_6s_zlarfg_
-#define zlarft_ otb_6s_zlarft_
-#define zlarfx_ otb_6s_zlarfx_
-#define zlascl_ otb_6s_zlascl_
-#define zlaset_ otb_6s_zlaset_
-#define zlassq_ otb_6s_zlassq_
-#define zlatrs_ otb_6s_zlatrs_
-#define zqrdc_ otb_6s_zqrdc_
-#define zqrsl_ otb_6s_zqrsl_
-#define zscal_ otb_6s_zscal_
-#define zsvdc_ otb_6s_zsvdc_
-#define zswap_ otb_6s_zswap_
-#define ztrevc_ otb_6s_ztrevc_
-#define ztrmm_ otb_6s_ztrmm_
-#define ztrmv_ otb_6s_ztrmv_
-#define ztrsv_ otb_6s_ztrsv_
-#define zung2r_ otb_6s_zung2r_
-#define zunghr_ otb_6s_zunghr_
-#define zungqr_ otb_6s_zungqr_
diff --git a/Modules/ThirdParty/6S/src/otb_6S_prototypes.h b/Modules/ThirdParty/6S/src/otb_6S_prototypes.h
deleted file mode 100644
index 48eb6d9..0000000
--- a/Modules/ThirdParty/6S/src/otb_6S_prototypes.h
+++ /dev/null
@@ -1,132 +0,0 @@
-/* Include prototype headers. */
-#include "6SV1.0B/AATSR.h"
-#include "6SV1.0B/ABSTRA.h"
-#include "6SV1.0B/AEROPROF.h"
-#include "6SV1.0B/AEROSO.h"
-#include "6SV1.0B/AKTOOL.h"
-#include "6SV1.0B/ATMREF.h"
-#include "6SV1.0B/AVHRR.h"
-#include "6SV1.0B/BBM.h"
-#include "6SV1.0B/BDM.h"
-#include "6SV1.0B/BRDFGRID.h"
-#include "6SV1.0B/CHAND.h"
-#include "6SV1.0B/CLEARW.h"
-#include "6SV1.0B/CSALBR.h"
-#include "6SV1.0B/DICA1.h"
-#include "6SV1.0B/DICA2.h"
-#include "6SV1.0B/DICA3.h"
-#include "6SV1.0B/DISCOM.h"
-#include "6SV1.0B/DISCRE.h"
-#include "6SV1.0B/DUST.h"
-#include "6SV1.0B/ENVIRO.h"
-#include "6SV1.0B/EQUIVWL.h"
-#include "6SV1.0B/GAUSS.h"
-#include "6SV1.0B/GLI.h"
-#include "6SV1.0B/GOES.h"
-#include "6SV1.0B/HAPKALBE.h"
-#include "6SV1.0B/HAPKBRDF.h"
-#include "6SV1.0B/HRV.h"
-#include "6SV1.0B/IAPIALBE.h"
-#include "6SV1.0B/IAPIBRDF.h"
-#include "6SV1.0B/IAPITOOLS.h"
-#include "6SV1.0B/INTERP.h"
-#include "6SV1.0B/ISO.h"
-#include "6SV1.0B/KERNEL.h"
-#include "6SV1.0B/KERNELPOL.h"
-#include "6SV1.0B/LAKEW.h"
-#include "6SV1.0B/MAS.h"
-#include "6SV1.0B/MERIS.h"
-#include "6SV1.0B/METEO.h"
-#include "6SV1.0B/METH1.h"
-#include "6SV1.0B/METH2.h"
-#include "6SV1.0B/METH3.h"
-#include "6SV1.0B/METH4.h"
-#include "6SV1.0B/METH5.h"
-#include "6SV1.0B/METH6.h"
-#include "6SV1.0B/MIDSUM.h"
-#include "6SV1.0B/MIDWIN.h"
-#include "6SV1.0B/MIE.h"
-#include "6SV1.0B/MINNALBE.h"
-#include "6SV1.0B/MINNBRDF.h"
-#include "6SV1.0B/MOCA1.h"
-#include "6SV1.0B/MOCA2.h"
-#include "6SV1.0B/MOCA3.h"
-#include "6SV1.0B/MOCA4.h"
-#include "6SV1.0B/MOCA5.h"
-#include "6SV1.0B/MOCA6.h"
-#include "6SV1.0B/MODISALBE.h"
-#include "6SV1.0B/MODISBRDF.h"
-#include "6SV1.0B/MODIS.h"
-#include "6SV1.0B/MSS.h"
-#include "6SV1.0B/NIOX1.h"
-#include "6SV1.0B/NIOX2.h"
-#include "6SV1.0B/NIOX3.h"
-#include "6SV1.0B/NIOX4.h"
-#include "6SV1.0B/NIOX5.h"
-#include "6SV1.0B/NIOX6.h"
-#include "6SV1.0B/OCEAALBE.h"
-#include "6SV1.0B/OCEABRDFFAST.h"
-#include "6SV1.0B/OCEABRDF.h"
-#include "6SV1.0B/OCEA.h"
-#include "6SV1.0B/OCEATOOLS.h"
-#include "6SV1.0B/ODA550.h"
-#include "6SV1.0B/ODRAYL.h"
-#include "6SV1.0B/OS.h"
-#include "6SV1.0B/OSPOL.h"
-#include "6SV1.0B/OXYG3.h"
-#include "6SV1.0B/OXYG4.h"
-#include "6SV1.0B/OXYG5.h"
-#include "6SV1.0B/OXYG6.h"
-#include "6SV1.0B/OZON1.h"
-#include "6SV1.0B/PLANPOL.h"
-#include "6SV1.0B/POLDER.h"
-#include "6SV1.0B/POLGLIT.h"
-#include "6SV1.0B/POLNAD.h"
-#include "6SV1.0B/POSGE.h"
-#include "6SV1.0B/POSGW.h"
-#include "6SV1.0B/POSLAN.h"
-#include "6SV1.0B/POSMTO.h"
-#include "6SV1.0B/POSNOA.h"
-#include "6SV1.0B/POSSOL.h"
-#include "6SV1.0B/POSSPO.h"
-#include "6SV1.0B/PRESPLANE.h"
-#include "6SV1.0B/PRESSURE.h"
-#include "6SV1.0B/PRINT_ERROR.h"
-#include "6SV1.0B/RAHMALBE.h"
-#include "6SV1.0B/RAHMBRDF.h"
-#include "6SV1.0B/ROUJALBE.h"
-#include "6SV1.0B/ROUJBRDF.h"
-#include "6SV1.0B/SAND.h"
-#include "6SV1.0B/SCATRA.h"
-#include "6SV1.0B/SEAWIFS.h"
-#include "6SV1.0B/SOLIRR.h"
-#include "6SV1.0B/SOOT.h"
-#include "6SV1.0B/SPECINTERP.h"
-#include "6SV1.0B/SPLIE2.h"
-#include "6SV1.0B/SPLIN2.h"
-#include "6SV1.0B/SPLINE.h"
-#include "6SV1.0B/SPLINT.h"
-#include "6SV1.0B/STM.h"
-#include "6SV1.0B/SUBSUM.h"
-#include "6SV1.0B/SUBWIN.h"
-#include "6SV1.0B/TM.h"
-#include "6SV1.0B/TROPIC.h"
-#include "6SV1.0B/TRUNCA.h"
-#include "6SV1.0B/US62.h"
-#include "6SV1.0B/VARSOL.h"
-#include "6SV1.0B/VEGETA.h"
-#include "6SV1.0B/VERSALBE.h"
-#include "6SV1.0B/VERSBRDF.h"
-#include "6SV1.0B/VERSTOOLS.h"
-#include "6SV1.0B/WALTALBE.h"
-#include "6SV1.0B/WALTBRDF.h"
-#include "6SV1.0B/WATE.h"
-#include "6SV1.0B/WAVA1.h"
-#include "6SV1.0B/WAVA2.h"
-#include "6SV1.0B/WAVA3.h"
-#include "6SV1.0B/WAVA4.h"
-#include "6SV1.0B/WAVA5.h"
-#include "6SV1.0B/WAVA6.h"
-
-/* otb 6S Main function */
-#include "otb_main6S_function.h"
diff --git a/Modules/ThirdParty/6S/src/otb_6S_unmangle.h b/Modules/ThirdParty/6S/src/otb_6S_unmangle.h
deleted file mode 100644
index e8d52c6..0000000
--- a/Modules/ThirdParty/6S/src/otb_6S_unmangle.h
+++ /dev/null
@@ -1,296 +0,0 @@
-/* This header undefines mangled names defined by otb_6s_mangle.h.
- There are purposely no include blockers so translation units can
- mangle/unmangle repeatedly. */
-
-/* Functions */
-#undef enviro_
-#undef varsol_
-/* otb 6S Main function */
-#undef ssssss_otb_main_function
-
-#undef adaptquad_
-#undef balanc_
-#undef balbak_
-#undef calcsc_
-#undef caxpy_
-#undef ccopy_
-#undef cdiv_
-#undef cdotc_
-#undef cg_
-#undef chscdf_
-#undef cqrdc_
-#undef cqrsl_
-#undef cscal_
-#undef csrot_
-#undef csvdc_
-#undef cswap_
-#undef cub_
-#undef dasum_
-#undef daxpy_
-#undef dcabs1_
-#undef dchscdf_
-#undef dcopy_
-#undef ddot_
-#undef dgecon_
-#undef dgemm_
-#undef dgemv_
-#undef dgeqr2_
-#undef dgeqrf_
-#undef dger_
-#undef dgerq2_
-#undef dgesc2_
-#undef dgetc2_
-#undef dggbak_
-#undef dggbal_
-#undef dgges_
-#undef dgghrd_
-#undef dgpfa2f_
-#undef dgpfa3f_
-#undef dgpfa5f_
-#undef dgpfa_
-#undef dhgeqz_
-#undef dlabad_
-#undef dlabax_
-#undef dlabcm_
-#undef dlabfc_
-#undef dlacon_
-#undef dlacpy_
-#undef dladiv_
-#undef dlaeig_
-#undef dlag2_
-#undef dlager_
-#undef dlagv2_
-#undef dlamc1_
-#undef dlamc2_
-#undef dlamc3_
-#undef dlamc4_
-#undef dlamc5_
-#undef dlamch_
-#undef dlange_
-#undef dlanhs_
-#undef dlapy2_
-#undef dlapy3_
-#undef dlaran_
-#undef dlarf_
-#undef dlarfb_
-#undef dlarfg_
-#undef dlarft_
-#undef dlartg_
-#undef dlascl_
-#undef dlaset_
-#undef dlassq_
-#undef dlasv2_
-#undef dlaswp_
-#undef dlatdf_
-#undef dlatrs_
-#undef dmvpc_
-#undef dnlaso_
-#undef dnorcdf_
-#undef dnppla_
-#undef dnrm2_
-#undef dnwla_
-#undef dorg2r_
-#undef dorgqr_
-#undef dorgr2_
-#undef dorm2r_
-#undef dormqr_
-#undef dormr2_
-#undef dortqr_
-#undef dpmpar_
-#undef dpoco_
-#undef dpodi_
-#undef dpofa_
-#undef dposl_
-#undef dqrdc_
-#undef dqrsl_
-#undef drot_
-#undef drotg_
-#undef drscl_
-#undef dscal_
-#undef dsvdc_
-#undef dswap_
-#undef dtgex2_
-#undef dtgexc_
-#undef dtgsen_
-#undef dtgsy2_
-#undef dtgsyl_
-#undef dtrmm_
-#undef dtrmv_
-#undef dtrsv_
-#undef dvsort_
-#undef dzasum_
-#undef dznrm2_
-#undef elmhes_
-#undef eltran_
-#undef enorm_
-#undef epslon_
-#undef fd_
-#undef fdjac2_
-#undef fv_
-#undef fvd_
-#undef fxshfr_
-#undef gpfa2f_
-#undef gpfa3f_
-#undef gpfa5f_
-#undef gpfa_
-#undef hqr2_
-#undef hqr_
-#undef idamax_
-#undef ieeeck_
-#undef ilaenv_
-#undef ins_
-#undef isamax_
-#undef izamax_
-#undef lb1_
-#undef lbfgs_
-#undef lce_
-#undef lde_
-#undef lmder1_
-#undef lmder_
-#undef lmdif_
-#undef lmpar_
-#undef lsame_
-#undef lse_
-#undef lsqr_
-#undef mcsrch_
-#undef mcstep_
-#undef newest_
-#undef nextk_
-#undef pythag_
-#undef qrfac_
-#undef qrsolv_
-#undef quad_
-#undef quadit_
-#undef quadsd_
-#undef realit_
-#undef rebak_
-#undef reduc_
-#undef refine_
-#undef rg_
-#undef rpoly_
-#undef rs_
-#undef rsg_
-#undef saxpy_
-#undef sbeg_
-#undef sblas2_
-#undef schck1_
-#undef schck2_
-#undef schck3_
-#undef schck4_
-#undef schck5_
-#undef scnrm2_
-#undef scopy_
-#undef sdiff_
-#undef sdot_
-#undef setdgpfa_
-#undef setgpfa_
-#undef sgbmv_
-#undef sgemv_
-#undef sgeqpf_
-#undef sgeqr2_
-#undef sger_
-#undef sgerq2_
-#undef sggsvd_
-#undef sggsvp_
-#undef simpru_
-#undef slacpy_
-#undef slags2_
-#undef slamc1_
-#undef slamc2_
-#undef slamc3_
-#undef slamc4_
-#undef slamc5_
-#undef slamch_
-#undef slange_
-#undef slapll_
-#undef slapmt_
-#undef slapy2_
-#undef slarf_
-#undef slarfg_
-#undef slartg_
-#undef slas2_
-#undef slaset_
-#undef slassq_
-#undef slasv2_
-#undef smake_
-#undef smessg_
-#undef snrm2_
-#undef sopen_
-#undef sorg2r_
-#undef sorm2r_
-#undef sormr2_
-#undef sqrdc_
-#undef sqrsl_
-#undef srot_
-#undef srotg_
-#undef srule_
-#undef ssbmv_
-#undef sscal_
-#undef sspmv_
-#undef sspr2_
-#undef sspr_
-#undef ssvdc_
-#undef sswap_
-#undef ssymv_
-#undef ssyr2_
-#undef ssyr_
-#undef stbmv_
-#undef stbsv_
-#undef stgsja_
-#undef stpmv_
-#undef stpsv_
-#undef strmv_
-#undef strsv_
-#undef tql1_
-#undef tql2_
-#undef tqlrat_
-#undef trapru_
-#undef tred1_
-#undef tred2_
-#undef urand_
-#undef xerbla_
-#undef xsimpru_
-#undef xtrapru_
-#undef zaxpy_
-#undef zcopy_
-#undef zdotc_
-#undef zdotu_
-#undef zdrot_
-#undef zdscal_
-#undef zgebak_
-#undef zgebal_
-#undef zgeev_
-#undef zgehd2_
-#undef zgehrd_
-#undef zgemm_
-#undef zgemv_
-#undef zgerc_
-#undef zhseqr_
-#undef zlacgv_
-#undef zlacpy_
-#undef zladiv_
-#undef zlahqr_
-#undef zlahrd_
-#undef zlange_
-#undef zlanhs_
-#undef zlarf_
-#undef zlarfb_
-#undef zlarfg_
-#undef zlarft_
-#undef zlarfx_
-#undef zlascl_
-#undef zlaset_
-#undef zlassq_
-#undef zlatrs_
-#undef zqrdc_
-#undef zqrsl_
-#undef zscal_
-#undef zsvdc_
-#undef zswap_
-#undef ztrevc_
-#undef ztrmm_
-#undef ztrmv_
-#undef ztrsv_
-#undef zung2r_
-#undef zunghr_
-#undef zungqr_
diff --git a/Modules/ThirdParty/6S/src/otb_main6S_function.P b/Modules/ThirdParty/6S/src/otb_main6S_function.P
deleted file mode 100644
index e544a0d..0000000
--- a/Modules/ThirdParty/6S/src/otb_main6S_function.P
+++ /dev/null
@@ -1,30 +0,0 @@
-extern int otb_6s__(doublereal *otb_asol__, doublereal *otb_phi0__, doublereal *otb_avis__, doublereal *otb_phiv__, integer *otb_month__, integer *otb_jday__, doublereal *otb_pressure__, doublereal *otb_uw__, doublereal *otb_uo3__, integer *otb_iaer__, doublereal *otb_taer55__, doublereal *otb_wlinf__, doublereal *otb_wlsup__, doublereal *otb_s__, doublereal *otb_ratm__, doublereal *otb_sast__, doublereal *otb_tgasm__, doublereal *otb_sdtott__, doublereal *otb_sutott__, doublereal *otb_t [...]
-/* comlen num_quad__ 4 */
-/* comlen aeroprof_ 2428 */
-/* comlen sixs_ier__ 8 */
-/* comlen mie_in__ 2232 */
-/* comlen multorder_ 4 */
-/* comlen sixs_planesim__ 1360 */
-/* comlen sixs_test__ 8 */
-/* comlen sixs_ffu__ 12024 */
-/* comlen sixs_del__ 16 */
-/* comlen sixs_atm__ 1360 */
-/* comlen sixs_aer__ 960 */
-/* comlen sixs_disc__ 4320 */
-/*:ref: gauss_ 14 5 7 7 7 7 4 */
-/*:ref: varsol_ 14 3 4 4 7 */
-/*:ref: us62_ 14 0 */
-/*:ref: aeroso_ 14 7 4 7 7 7 13 4 124 */
-/*:ref: pressure_ 14 3 7 7 7 */
-/*:ref: presplane_ 14 4 7 7 7 7 */
-/*:ref: equivwl_ 14 4 4 4 7 7 */
-/*:ref: discom_ 14 27 4 4 4 7 7 7 7 7 7 7 4 4 4 7 7 7 7 4 7 7 7 4 4 7 7 7 7 */
-/*:ref: specinterp_ 14 8 7 7 7 7 7 7 7 4 */
-/*:ref: odrayl_ 14 2 7 7 */
-/*:ref: polnad_ 14 6 7 7 7 7 7 7 */
-/*:ref: polglit_ 14 7 7 7 7 7 7 7 7 */
-/*:ref: solirr_ 14 2 7 7 */
-/*:ref: abstra_ 14 34 4 7 7 7 7 7 7 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */
-/*:ref: interp_ 14 47 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 4 7 7 7 4 7 7 7 7 7 7 4 */
-/*:ref: enviro_ 14 8 7 7 7 7 7 7 7 7 */
-/*:ref: dirpopol_ 14 3 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/otb_main6S_function.c b/Modules/ThirdParty/6S/src/otb_main6S_function.c
deleted file mode 100644
index e59d02e..0000000
--- a/Modules/ThirdParty/6S/src/otb_main6S_function.c
+++ /dev/null
@@ -1,6589 +0,0 @@
-/* otb_main6S_function.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Common Block Declarations */
-
-/*OTB */
-/*Extern*/
-struct {
- integer nquad;
-} num_quad__;
-
-#define num_quad__1 num_quad__
-
-/*OTB */
-/*Extern*/
-struct {
- integer num_z__;
- doublereal alt_z__[101], taer_z__[101], taer55_z__[101];
-} aeroprof_;
-
-#define aeroprof_1 aeroprof_
-
-/*OTB */
-/*Extern*/
-struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#define sixs_ier__1 sixs_ier__
-
-/*OTB */
-/*Extern*/
-struct {
- doublereal rmax, rmin;
- integer icp;
- doublereal rn[80] /* was [20][4] */, ri[80] /* was [20][4] */, x1[
- 4], x2[4], x3[4], cij[4];
- integer irsunph;
- doublereal rsunph[50], nrsunph[50];
-} mie_in__;
-
-#define mie_in__1 mie_in__
-
-/*OTB */
-/*Extern*/
-struct {
- integer igmax;
-} multorder_;
-
-#define multorder_1 multorder_
-
-/*OTB */
-/*Extern*/
-struct {
- doublereal zpl[34], ppl[34], tpl[34], whpl[34], wopl[34];
-} sixs_planesim__;
-
-#define sixs_planesim__1 sixs_planesim__
-
-/*OTB */
-/*Extern*/
-struct {
- doublereal xacc;
-} sixs_test__;
-
-#define sixs_test__1 sixs_test__
-
-/*OTB */
-/*Extern*/
-struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#define sixs_ffu__1 sixs_ffu__
-
-/*OTB */
-/*Extern*/
-struct {
- doublereal delta, sigma;
-} sixs_del__;
-
-#define sixs_del__1 sixs_del__
-
-/*OTB */
-/*Extern*/
-struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#define sixs_atm__1 sixs_atm__
-
-/*OTB */
-/*Extern*/
-struct {
- doublereal ext[20], ome[20], gasym[20], phase[20], qhase[20], uhase[20];
-} sixs_aer__;
-
-#define sixs_aer__1 sixs_aer__
-
-/*OTB */
-/*Extern*/
-struct {
- doublereal roatm[60] /* was [3][20] */, dtdir[60] /* was [3][20]
- */, dtdif[60] /* was [3][20] */, utdir[60] /* was [3][20]
- */, utdif[60] /* was [3][20] */, sphal[60] /* was [3][20]
- */, wldis[20], trayl[20], traypl[20], rqatm[60] /* was [3][20]
- */, ruatm[60] /* was [3][20] */;
-} sixs_disc__;
-
-#define sixs_disc__1 sixs_disc__
-
-/* Table of constant values */
-
-static doublereal c_b4 = -1.;
-static doublereal c_b5 = 1.;
-static doublereal c_b6 = 0.;
-static integer c__3 = 3;
-static integer c__1 = 1;
-static integer c__5 = 5;
-static integer c__2 = 2;
-static doublereal c_b308 = 2.;
-static integer c__9 = 9;
-
-/*< >*/
-/* Subroutine */ int otb_6s_ssssss_otb_main_function(doublereal *otb_asol__, doublereal *otb_phi0__,
- doublereal *otb_avis__, doublereal *otb_phiv__, integer *otb_month__,
- integer *otb_jday__, doublereal *otb_pressure__, doublereal *otb_uw__,
- doublereal *otb_uo3__, integer *otb_iaer__, doublereal *otb_taer55__,
- doublereal *otb_wlinf__, doublereal *otb_wlsup__, doublereal *
- otb_s__, doublereal *otb_ratm__, doublereal *otb_sast__, doublereal *
- otb_tgasm__, doublereal *otb_sdtott__, doublereal *otb_sutott__,
- doublereal *otb_tdif_up__, doublereal *otb_tdir_up__, doublereal *
- otb_tdif_up_ray__, doublereal *otb_tdif_up_aer__)
-{
- /* Initialized data */
-
- static doublereal angmu[10] = { 85.,80.,70.,60.,50.,40.,30.,20.,10.,0. };
- static doublereal angphi[13] = { 0.,30.,60.,90.,120.,150.,180.,210.,240.,
- 270.,300.,330.,360. };
- static doublereal wldisc[20] = { .35,.4,.412,.443,.47,.488,.515,.55,.59,
- .633,.67,.694,.76,.86,1.24,1.536,1.65,1.95,2.25,3.75 };
- static char etiq1[60*8+1] = "(1h*,22x,34h user defined conditions \
- ,t79,1h*) (1h*,22x,24h meteosat observation ,t79,1h*) \
- (1h*,22x,25h goes east observation ,t79,1h*) (1h*,22x,25h go\
-es west observation ,t79,1h*) (1h*,22x,30h avhrr (AM noaa) ob\
-servation ,t79,1h*) (1h*,22x,30h avhrr (PM noaa) observation ,t79,\
-1h*) (1h*,22x,24h h.r.v. observation ,t79,1h*) (1h\
-*,22x,24h t.m. observation ,t79,1h*) ";
- static char nsat[17*119+1] = " constant user s meteosa\
-t goes east goes west avhrr 1 (noaa6) avhrr 2 (noaa6)\
- avhrr 1 (noaa7) avhrr 2 (noaa7) avhrr 1 (noaa8) avhrr 2 (noaa8) avhrr \
-1 (noaa9) avhrr 2 (noaa9) avhrr 1 (noaa10) avhrr 2 (noaa10) avhrr 1 (noaa1\
-1) avhrr 2 (noaa11) hrv1 1 hrv1 2 hrv1 3 hrv1 \
-pan hrv2 1 hrv2 2 hrv2 3 hrv2 pan \
- tm 1 tm 2 tm 3 tm 4 tm \
- 5 tm 7 mss 4 mss 5 mss 6 \
- mss 7 mas 1 mas 2 mas 3 ma\
-s 4 mas 5 mas 6 mas 7 modis 1 \
- modis 2 modis 3 modis 4 modis 5 m\
-odis 6 modis 7 modis 8 avhrr 1 (noaa12) avhrr 2 (n\
-oaa12) avhrr 1 (noaa14) avhrr 2 (noaa14) polder 1 polder 2 p\
-older 3 polder 4 polder 5 polder 6 polder 7 \
- polder 8 seawifs 1 seawifs 2 seawifs 3 \
-seawifs 4 seawifs 5 seawifs 6 seawifs 7 seawifs \
-8 aatsr 1 aatsr 2 aatsr 3 aatsr 4 \
- meris 1 meris 2 meris 3 meris 4 meris \
- 5 meris 6 meris 7 meris 8 meris 9 \
- meris 10 meris 11 meris 12 meris 13 meris \
- 14 meris 15 gli 1 gli 2 gli 3 \
- gli 4 gli 5 gli 6 gli 7 gli \
- 8 gli 9 gli 10 gli 11 gli 12 \
- gli 13 gli 14 gli 15 gli 16 gli \
- 17 gli 18 gli 19 gli 20 gli 21 \
- gli 22 gli 23 gli 24 gli 25 gli\
- 26 gli 27 gli 28 gli 29 gli 30 \
- ";
- static char atmid[51*7+1] = "no absorption computed \
- tropical (uh2o=4.12g/cm2,uo3=.247cm-atm)midlatitude summe\
-r (uh2o=2.93g/cm2,uo3=.319cm-atm)midlatitude winter (uh2o=.853g/cm2,uo3=.3\
-95cm-atm)subarctic summer (uh2o=2.10g/cm2,uo3=.480cm-atm)subarctic winte\
-r (uh2o=.419g/cm2,uo3=.480cm-atm)us standard 1962 (uh2o=1.42g/cm2,uo3=.\
-344cm-atm)";
-
- /* Format strings */
- static char fmt_98[] = "(/////,\002*\002,30(\002*\002),\002 6sV version \
-1.0B \002,30(\002*\002),t79,\002*\002,/,\002*\002,t79,\002*\002,/,\002*\002,\
-22x,\002 geometrical conditions identity \002,t79,\002*\002,/,\002*\002,22x,\
-\002 ------------------------------- \002,t79,\002*\002)";
- static char fmt_1401[] = "(\002*\002,t79,\002*\002)";
- static char fmt_103[] = "(\002*\002,2x,\002 month:\002,i3,\002 day : \
-\002,i3,t79,\002*\002)";
- static char fmt_101[] = "(\002*\002,15x,\002 month:\002,i3,\002 day :\
- \002,i3,\002 universal time:\002,f6.2,\002 (hh.dd) \002,t79,\002*\002,/\
-,\002*\002,15x,\002latitude: \002,f7.2,\002 deg \002,6x,\002 longitude: \002\
-,f7.2,\002 deg \002,t79,\002*\002)";
- static char fmt_102[] = "(\002*\002,2x,\002 solar zenith angle: \002,f6\
-.2,\002 deg \002,\002 solar azimuthal angle: \002,f6.2,\002 deg \002,t7\
-9,\002*\002)";
- static char fmt_1110[] = "(\002*\002,2x,\002 view zenith angle: \002,f\
-6.2,\002 deg \002,\002 view azimuthal angle: \002,f6.2,\002 deg \002,t\
-79,\002*\002,/,\002*\002,2x,\002 scattering angle: \002,f6.2,\002 deg \
-\002,\002 azimuthal angle difference: \002,f6.2,\002 deg \002,t79,\002*\002)";
- static char fmt_1119[] = "(\002*\002,t79,\002*\002,/,\002*\002,22x,\002 \
-atmospheric model description \002,t79,\002*\002,/,\002*\002,22x,\002 ------\
------------------------ \002,t79,\002*\002)";
- static char fmt_1281[] = "(\002*\002,10x,\002 atmospheric model identity\
- : \002,t79,\002*\002,/,\002*\002,12x,\002 user defined water content : uh2\
-o=\002,f6.3,\002 g/cm2 \002,t79,\002*\002,/,\002*\002,12x,\002 user defined \
-ozone content : uo3 =\002,f6.3,\002 cm-atm\002,t79,\002*\002)";
- static char fmt_1272[] = "(\002*\002,\002 atmospheric model identity :\
- \002,t79,\002*\002,/,\002*\002,12x,\002 user defined atmospheric model \
-\002,t79,\002*\002,/,\002*\002,12x,\002*altitude \002,\002*pressure \002\
-,\002*temp. \002,\002*h2o dens. \002,\002*o3 dens. \002,t79,\002*\002)";
- static char fmt_1271[] = "(\002*\002,12x,5e11.4,t79,\002*\002)";
- static char fmt_1261[] = "(\002*\002,10x,\002 atmospheric model identity\
- : \002,t79,\002*\002,/,\002*\002,15x,a51,t79,\002*\002)";
- static char fmt_5550[] = "(\002*\002,10x,\002 aerosols type identity \
-:\002,t79,\002*\002)";
- static char fmt_5554[] = "(\002*\002,15x,\002no aerosols computed\002,t7\
-9,\002*\002)";
- static char fmt_5551[] = "(\002*\002,11x,\002 user-defined aerosol prof\
-ile:\002,i2,\002 layers\002,t79,\002*\002)";
- static char fmt_5552[] = "(\002*\002,13x,\002 Layer Height(km) Opt. \
-thick.(at 0.55 mkm)\002,3x,\002 Model\002,t79,\002*\002)";
- static char fmt_5553[] = "(\002*\002,15x,i2,1x,f10.1,13x,f5.3,15x,a15,t7\
-9,\002*\002)";
- static char fmt_132[] = "(\002*\002,15x,a30,t79,\002*\002)";
- static char fmt_133[] = "(\002*\002,13x,\002user-defined aerosol model:\
- \002,t79,\002*\002,/,\002*\002,26x,f6.3,\002 % of dust-like\002,t79,\002\
-*\002,/,\002*\002,26x,f6.3,\002 % of water-soluble\002,t79,\002*\002,/,\002\
-*\002,26x,f6.3,\002 % of oceanic\002,t79,\002*\002,/,\002*\002,26x,f6.3,\002\
- % of soot\002,t79,\002*\002)";
- static char fmt_134[] = "(\002*\002,13x,\002user-defined aerosol model:\
- \002,i2,\002 Log-Normal size distribution(s)\002,t79,\002*\002,/,\002*\002,\
-15x,\002Mean radius Stand. Dev. Percent. density\002,t79,\002*\002)";
- static char fmt_135[] = "(\002*\002,t19,f6.4,t33,f5.3,t47,e8.3,t79,\002\
-*\002)";
- static char fmt_136[] = "(\002*\002,13x,\002user-defined aerosol model\
-:\002,\002 modified Gamma size distribution\002,t79,\002*\002,/,\002*\002,19\
-x,\002Alpha: \002,f6.3,\002 b: \002,f6.3,\002 Gamma: \002,f6.3,t79,\002\
-*\002)";
- static char fmt_137[] = "(\002*\002,13x,\002user-defined aerosol model\
-:\002,\002 Junge Power-Law size distribution\002,t79,\002*\002,/,\002*\002,1\
-9x,\002Alpha: \002,f6.3,t79,\002*\002)";
- static char fmt_139[] = "(\002*\002,15x,\002 results saved into the fi\
-le:\002,t79,\002*\002,/,\002*\002,20x,a30,t79,\002*\002)";
- static char fmt_138[] = "(\002*\002,13x,\002user-defined aerosol model u\
-sing data from\002,\002 the file:\002,t79,\002*\002,/,\002*\002,20x,a30,t79\
-,\002*\002)";
- static char fmt_140[] = "(\002*\002,10x,\002 optical condition identit\
-y :\002,t79,\002*\002,/,\002*\002,15x,\002 user def. opt. thick. at 550 nm \
-:\002,f7.4,t79,\002*\002,/,\002*\002,t79,\002*\002)";
- static char fmt_141[] = "(\002*\002,10x,\002 optical condition identit\
-y :\002,t79,\002*\002,/,\002*\002,14x,\002 visibility :\002,f6.2,\002 km \
-\002,\002 opt. thick. 550 nm : \002,f7.4,t79,\002*\002)";
- static char fmt_5555[] = "(\002*\002,t79,\002*\002)";
- static char fmt_148[] = "(\002*\002,22x,\002 spectral condition \002,t7\
-9,\002*\002,/,\002*\002,22x,\002 ------------------ \002,t79,\002*\002)";
- static char fmt_1510[] = "(\002*\002,10x,a17,t79,\002*\002,/,\002*\002,1\
-5x,\002value of filter function :\002,t79,\002*\002,/,\002*\002,15x,\002 wl \
-inf=\002,f6.3,\002 mic\002,2x,\002 wl sup=\002,f6.3,\002 mic\002,t79,\002\
-*\002)";
- static char fmt_149[] = "(\002*\002,11x,\002 monochromatic calculation a\
-t wl\002:,f6.3,\002 micron \002,t79,\002*\002)";
- static char fmt_142[] = "(\002*\002,t79,\002*\002,/,\002*\002,22x,\002 S\
-urface polarization parameters \002,t79,\002*\002,/,\002*\002,22x,\002 --\
--------------------------------- \002,t79,\002*\002,/,\002*\002,t79,\002*\
-\002)";
- static char fmt_146[] = "(\002*\002,t79,\002*\002,/,\002*\002,\002 User\
-'s input roQ and roU \002,2(f8.3,1x),t79,\002*\002,/,\002*\002)";
- static char fmt_144[] = "(\002*\002,t79,\002*\002,/,\002*\002,\002 Nadal\
- and Breon with % vegetation \002,1(f8.2,1x),t79,\002*\002,/,\002*\002)";
- static char fmt_145[] = "(\002*\002,t79,\002*\002,/,\002*\002,\002 Sung\
-lint Model windspeed,azimuth \002,2(f8.3,1x),t79,\002*\002,/,\002*\002)";
- static char fmt_143[] = "(\002*\002,t79,\002*\002,/,\002*\002,\002 Surfa\
-ce Polarization Q,U,Rop,Chi \002,3(f8.5,1x),f8.2,1x,t79,\002*\002,/,\002\
-*\002,t79,\002*\002)";
- static char fmt_169[] = "(\002*\002,t79,\002*\002,/,\002*\002,22x,\002 t\
-arget type \002,t79,\002*\002,/,\002*\002,22x,\002 ----------- \002,t79\
-,\002*\002,/,\002*\002,10x,\002 inhomogeneous ground , radius of target \002\
-,f6.3,\002 km \002,t79,\002*\002)";
- static char fmt_170[] = "(\002*\002,15x,\002 target reflectance : \002,t\
-79,\002*\002)";
- static char fmt_171[] = "(\002*\002,15x,\002 environmental reflectance\
- : \002,t79,\002*\002)";
- static char fmt_1500[] = "(\002*\002,1x,\002wave total total total \
-total atm. \002,\002swl step sbor dsol toar \002,t79,\002*\002,/,\
-\002*\002,1x,\002 gas scat scat spheri intr \002,t79,\002*\
-\002,/,\002*\002,1x,\002 trans down up albedo refl \002,t79\
-,\002*\002)";
- static char fmt_2222[] = "(a28,3(f10.7,1x))";
- static char fmt_2223[] = "(a24,1x,a80)";
- static char fmt_333[] = "(f10.5,1x,f10.5,1x,i3,f10.5,f10.5)";
- static char fmt_430[] = "(79(\002*\002),/,\002*\002,t79,\002*\002,/\
-,\002*\002,24x,\002 integrated values of : \002,t79,\002*\002,/,\002*\002\
-,24x,\002 -------------------- \002,t79,\002*\002,/,\002*\002,t79,\002\
-*\002,/,\002*\002,6x,\002 apparent reflectance \002,f10.7,1x,\002 appar. rad\
-.(w/m2/sr/mic) \002,f8.3,1x,t79,\002*\002,/,\002*\002,18x,\002 total gaseous\
- transmittance \002,f5.3,t79,\002*\002,/,\002*\002,t79,\002*\002,/,79(\002\
-*\002))";
- static char fmt_431[] = "(\002*\002,t79,\002*\002,/,\002*\002,24x,\002 c\
-oupling aerosol -wv : \002,t79,\002*\002,/,\002*\002,24x,\002 -----------\
---------- \002,t79,\002*\002,/,\002*\002,10x,\002 wv above aerosol :\
- \002,f7.3,4x,\002 wv mixed with aerosol : \002,f7.3,1x,t79,\002*\002,/,\002*\
-\002,22x,\002 wv under aerosol : \002,f7.3,t79,\002*\002)";
- static char fmt_429[] = "(79(\002*\002),/,\002*\002,t79,\002*\002,/\
-,\002*\002,24x,\002 integrated values of : \002,t79,\002*\002,/,\002*\002\
-,24x,\002 -------------------- \002,t79,\002*\002,/,\002*\002,t79,\002\
-*\002,/,\002*\002,6x,\002 app. polarized refl. \002,f7.4,3x,\002 app. pol. r\
-ad. (w/m2/sr/mic) \002,f8.3,1x,t79,\002*\002,/,\002*\002,12x,\002 direction \
-of the plane of polarization\002,f6.2,t79,\002*\002,/,\002*\002,18x,\002 tot\
-al polarization ratio \002,f5.3,t79,\002*\002,/,\002*\002,t79,\002*\002,\
-/,79(\002*\002))";
- static char fmt_432[] = "(\002*\002,t79,\002*\002,/,\002*\002,24x,\002 i\
-nt. normalized values of : \002,t79,\002*\002,/,\002*\002,24x,\002 ------\
---------------------- \002,t79,\002*\002,/,\002*\002,22x,\002% of irradia\
-nce at ground level\002,t79,\002*\002,/,\002*\002,5x,\002% of direct irr\
-.\002,4x,\002% of diffuse irr.\002,4x,\002% of enviro. irr \002,t79,\002*\
-\002,/,\002*\002,3(10x,f10.3),t79,\002*\002,/,\002*\002,22x,\002 reflectance\
- at satellite level\002,t79,\002*\002,/,\002*\002,5x,\002atm. intrin. ref\
-.\002,3x,a11,\002 ref.\002,2x,a6,\002 reflectance\002,t79,\002*\002,/,\002\
-*\002,3(10x,f10.3),t79,\002*\002,/,\002*\002,t79,\002*\002)";
- static char fmt_434[] = "(\002*\002,24x,\002 int. absolute values of\002\
-,t79,\002*\002,/,\002*\002,24x,\002 -----------------------\002,t79,\002*\
-\002,/,\002*\002,22x,\002irr. at ground level (w/m2/mic) \002,t79,\002*\002\
-,/,\002*\002,5x,\002direct solar irr.\002,4x,\002atm. diffuse irr.\002,4x\
-,\002environment irr \002,t79,\002*\002,/,\002*\002,3(10x,f10.3),t79,\002\
-*\002,/,\002*\002,22x,\002rad at satel. level (w/m2/sr/mic)\002,t79,\002*\
-\002,/,\002*\002,5x,\002atm. intrin. rad.\002,4x,a11,\002 rad.\002,4x,a6,\
-\002 radiance\002,t79,\002*\002,/,\002*\002,3(10x,f10.3),t79,\002*\002,/,\
-\002*\002,t79,\002*\002)";
- static char fmt_436[] = "(\002*\002,t79,\002*\002,/,\002*\002,22x,\002so\
-l. spect (in w/m2/mic)\002,t79,\002*\002,/,\002*\002,30x,f10.3,t79,\002*\002\
-,/,\002*\002,t79,\002*\002,/,79(\002*\002))";
- static char fmt_437[] = "(\002*\002,t79,\002*\002,/,\002*\002,10x,\002in\
-t. funct filter (in mic) \002,10x,\002 int. sol. spect (in w/m2)\002,t79\
-,\002*\002,/,\002*\002,10x,f12.7,30x,f10.3,t79,\002*\002,/,\002*\002,t79,\
-\002*\002,/,79(\002*\002))";
- static char fmt_929[] = "(\002 \002,////)";
- static char fmt_930[] = "(79(\002*\002),/,\002*\002,t79,\002*\002,/\
-,\002*\002,t27,\002 integrated values of : \002,t79,\002*\002,/,\002*\002\
-,t27,\002 -------------------- \002,t79,\002*\002,/,\002*\002,t79,\002\
-*\002,/,\002*\002,t30,\002 downward \002,t45,\002 upward \002,t60,\002 t\
-otal \002,t79,\002*\002)";
- static char fmt_931[] = "(\002*\002,6x,a20,t32,f8.5,t47,f8.5,t62,f8.5,t7\
-9,\002*\002)";
- static char fmt_939[] = "(\002*\002,t79,\002*\002,/,\002*\002,t30,\002 r\
-ayleigh \002,t45,\002 aerosols \002,t60,\002 total \002,t79,\002*\002,/\
-,\002*\002,t79,\002*\002)";
- static char fmt_932[] = "(\002*\002,6x,a20,t32,f8.2,t47,f8.2,t62,f8.2,t7\
-9,\002*\002)";
- static char fmt_1402[] = "(\002*\002,t79,\002*\002,/,79(\002*\002))";
- static char fmt_940[] = "(79(\002*\002),/,/,/,/,79(\002*\002),/\002*\002\
-,23x,\002 atmospheric correction result \002,t79,\002*\002,/,\002*\002,23x\
-,\002 ----------------------------- \002,t79,\002*\002)";
- static char fmt_941[] = "(\002*\002,6x,\002 input apparent reflectance \
- :\002,1x,f8.3,t79,\002*\002)";
- static char fmt_942[] = "(\002*\002,6x,\002 measured radiance [w/m2/sr/m\
-ic] :\002,1x,f8.3,t79,\002*\002)";
- static char fmt_943[] = "(\002*\002,6x,\002 atmospherically corrected re\
-flectance :\002,1x,f8.3,t79,\002*\002)";
- static char fmt_944[] = "(\002*\002,6x,\002 coefficients xa xb xc \
- :\002,1x,3(f8.5,1x),t79,\002*\002,/,\002*\002,6x,\002 y=xa*(measur\
-ed radiance)-xb; acr=y/(1.+xc*y)\002,t79,\002*\002,/,79(\002*\002))";
- static char fmt_222[] = "(\002*\002,6x,\002 atmospherically corrected re\
-flectance \002,t79,\002*\002,/,\002*\002,6x,\002 Lambertian case : \002,1x\
-,f10.5,t79,\002*\002,/,\002*\002,6x,\002 BRDF case : \002,1x,f10.5,t7\
-9,\002*\002)";
-
- /* System generated locals */
- address a__1[2];
- integer i__1, i__2[2], i__3;
- doublereal d__1, d__2, d__3;
- cilist ci__1;
- olist o__1;
- cllist cl__1;
-
- /* Builtin functions */
- /* Subroutine */ /*int s_copy(char *, char *, ftnlen, ftnlen);*/
- double acos(doublereal), cos(doublereal);
- /* Subroutine */ int s_stop(char *, ftnlen);
- double sqrt(doublereal);
- integer s_rsle(cilist *), do_lio(integer *, integer *, char *, ftnlen),
- e_rsle(), s_rsfe(cilist *), do_fio(integer *, char *, ftnlen),
- e_rsfe(), i_indx(char *, char *, ftnlen, ftnlen);
- /* Subroutine */ /*int s_cat(char *, char **, integer *, integer *, ftnlen);*/
- double exp(doublereal), log(doublereal);
- integer s_wsle(cilist *), e_wsle(), s_wsfe(cilist *), e_wsfe();
- double atan2(doublereal, doublereal), pow_dd(doublereal *, doublereal *);
- integer f_open(olist *), f_clos(cllist *);
- double atan(doublereal);
-
- /* Local variables */
- extern /* Subroutine */ int aeroso_(integer *, doublereal *, doublereal *,
- doublereal *, char *, integer *, ftnlen), equivwl_(integer *,
- integer *, doublereal *, doublereal *), discom_(integer *,
- integer *, integer *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *, integer *,
- integer *, integer *, doublereal *, doublereal *, doublereal *,
- doublereal *, integer *, doublereal *, doublereal *, doublereal *,
- integer *, integer *, doublereal *, doublereal *, doublereal *,
- doublereal *), odrayl_(doublereal *, doublereal *), polnad_(
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *), polglit_(doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *), solirr_(doublereal *, doublereal *), abstra_(
- integer *, doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, integer *, doublereal *
- , doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *), interp_(
- integer *, integer *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, integer *, doublereal *, doublereal *,
- doublereal *, integer *, doublereal *, doublereal *, doublereal *
- , doublereal *, doublereal *, doublereal *, integer *), enviro_(
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *);
- doublereal rqatm2, ruatm2, tdirqu, rqmeas2, rumeas2, qlumeas, ulumeas,
- xtphi, refet_fi__[181], roatm_fi__[
- 10860] /* was [3][20][181] */, height_z__[101],
- rfoamave, brdfints[2499] /* was [51][49] */, romix_fi__[181],
- rglitave;
- doublereal qlumet = 0;
- doublereal phi_wind__ = 0;
- doublereal rqfet = 0;
- doublereal rufet = 0;
- doublereal ulumet = 0;
- extern /* Subroutine */ int dirpopol_(doublereal *, doublereal *,
- doublereal *), pressure_(doublereal *, doublereal *, doublereal *)
- ;
- doublereal c__[4];
- integer i__, j, k, l, n;
- doublereal v, y;
- char aer_model__[50*15];
- integer iaer_prof__, i1, i2;
- doublereal rorayl_fi__[181];
- extern /* Subroutine */ int presplane_(doublereal *, doublereal *,
- doublereal *, doublereal *);
- doublereal robarstar, gb[51];
- integer ik;
- doublereal sb, gp[49], fr, pi, es, xa, xb, xc;
- integer np;
- doublereal rm[51], ro, rp[49];
- doublereal wl=0;
- integer nt, mu;
- doublereal tu, uw, ea0, ee0, elsesdpaer, pi2;
- doublereal ul=0;
- integer mu2;
- doublereal uo3;
- extern /* Subroutine */ int specinterp_(doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, integer *);
- doublereal robarpstar, fae, cfi, ani[6] /* was [2][3] */, rad, seb,
- fra, sha, tdd, anr[6] /* was [2][3] */, phi, roc, roe, etn,
- rog, avr, dtr, esn, xle, tdu, tsd, its, swl, xpp, xlt, xps, puw,
- tsu, azw, pps, ea0n, ee0n;
- doublereal pws=0;
- integer nfi;
- extern /* Subroutine */ int us62_();
- doublereal phi0;
- integer ifi;
- doublereal xla0, xap, tgp1, tgp2;
- integer mum1;
- doublereal xlm1[2499] /* was [51][49] */, xlm2[2499] /* was [51][
- 49] */, puo3, adif, scaa, phaa, qhaa, coef, uhaa, aini[6] /*
- was [2][3] */;
- integer iaer;
- char file[80];
- integer iinf;
- doublereal tdif, sasa, sham, ainr[6] /* was [2][3] */, phar, taer,
- tsca, asol, rocl[1501], roel[1501], avis, dsol, phiv, rapp, xlat,
- sbor, step, sasr, xmud, sast, tray, xlon, qhar, uhar, tdir, xltn,
- xlen, xrad, xmup;
- integer ipol, jday;
- doublereal xmus, accu2, accu3, xmuv;
- integer isup, ilut, irop;
- doublereal uwus, ropq, ropu, pveg, wspd, razw, total_height__;
- char file2[80];
- doublereal palt, xla0n, ratm1, ratm2, ratm3, robarbarstar, puoz, xpol,
- edifa, cscaa, coefa, uo3us, coefb, coefc;
- integer iread, aerod;
- integer ibrdf=0;
- doublereal dgasm, asaer, robar[1501], taer55, refet, tgasm, filut[1025]
- /* was [25][41] */, rpfet, ugasm, tamoy, taerp, romix, trayp,
- dtott, rqmix, rumix, rolut[1025] /* was [25][41] */, astot,
- wlmoy, asray, trmoy, utotr, luttv, utott, utota, dtotr, dtota,
- puwus, dgtot, tgtot, robar1, robar2, refet1, refet2, refet3,
- coefp, ugtot, edifr, rpfet1, rpfet2, rpfet3, tdird, tdiru, tdifd,
- tdifu, rsurf, tmdir, tmdif;
- integer igeom, month, idatm, iaerp, iwave;
- integer igrou1 = 0;
- doublereal xnorm1, xnorm2;
- integer igrou2 = 0;
- doublereal sddica, dtdica;
- integer isort, irapp;
- doublereal iscama, puo3us;
- integer nbisca, idirec;
- doublereal rwatl[1501], anglem[48], iscami, phirad, sdmoca, robard[1501],
- sudica, stdica, dtmoca, rocave, sodaer, roeave, fophsa, ssdaer,
- sdmeth, robarp[1501], taer55p, alumet, sdwava, sumoca, stmoca,
- sroaer, sdtota;
- integer nfilut[25];
- doublereal sodray, sdniox, sumeth, plumet, suwava, stwava, tamoyp, stmeth,
- sdozon, sdoxyg, roluti[1025] /* was [25][41] */, sodtot,
- fophsr, sroray, sdtotr, sdtott, stniox, suniox, rolutq[1025]
- /* was [25][41] */, pizmoy, roluts[20500] /* was [20][25][41] */
- , rolutu[1025] /* was [25][41] */, trmoyp, lutmuv, suozon,
- suoxyg, stozon, stoxyg, srotot, sutotr, sutota, sutott, dtozon,
- dtoxyg, dtniox, dtmeth, utozon, utdica, utoxyg, utniox, utmeth,
- utmoca, ttozon, ttdica, ttoxyg, ttniox, ttmeth, ttmoca, dtwava,
- utwava, ttwava, rorayl, roaero, rqrayl, albbrdf, rqaero, foqhsr,
- foqhsa, foqhst, rurayl, ruaero, srpray, srpaer, srptot, srqray,
- srqaer, srqtot, sruray, sruaer, srutot, fouhst, fouhsr, fouhsa,
- romeas1, romeas2, romeas3, alumeas, sdpray, sdpaer, sdptot,
- sdppaer, spdpaer, sodaerp, pizera, fophst, weightm[48], pizerr,
- attwava, pizert;
- integer idatmp, inhomo, igroun;
- doublereal discri, rogbrdf, rfoaml[1501], sodrayp, sdppray, spdpray,
- rglitl[1501], cij_out__[4], sodtotp, sdpptot, spdptot, rolutiq[
- 1025] /* was [25][41] */, ftray, ratm2_fi__[181], rolutiu[
- 1025] /* was [25][41] */, pizmoyp, rolutsq[20500] /*
- was [20][25][41] */, rolutsu[20500] /* was [20][25][41] */,
- rwatave;
- extern /* Subroutine */ int gauss_(doublereal *, doublereal *, doublereal
- *, doublereal *, integer *), varsol_(integer *, integer *,
- doublereal *);
-
- /* Fortran I/O blocks */
- static cilist io___60 = { 0, 5, 0, 0, 0 };
- static cilist io___61 = { 0, 5, 0, 0, 0 };
- static cilist io___62 = { 0, 0, 0, 0, 0 };
- static cilist io___65 = { 0, 0, 0, 0, 0 };
- static cilist io___66 = { 0, 5, 0, 0, 0 };
- static cilist io___67 = { 0, 5, 0, 0, 0 };
- static cilist io___68 = { 0, 5, 0, 0, 0 };
- static cilist io___70 = { 0, 0, 0, 0, 0 };
- static cilist io___71 = { 0, 0, 0, 0, 0 };
- static cilist io___72 = { 0, 5, 0, 0, 0 };
- static cilist io___73 = { 0, 5, 0, 0, 0 };
- static cilist io___74 = { 0, 0, 0, 0, 0 };
- static cilist io___75 = { 0, 0, 0, 0, 0 };
- static cilist io___76 = { 0, 5, 0, 0, 0 };
- static cilist io___77 = { 0, 5, 0, 0, 0 };
- static cilist io___78 = { 0, 5, 0, 0, 0 };
- static cilist io___79 = { 0, 5, 0, 0, 0 };
- static cilist io___80 = { 0, 5, 0, 0, 0 };
- static cilist io___81 = { 0, 5, 0, 0, 0 };
- static cilist io___83 = { 0, 5, 0, 0, 0 };
- static cilist io___98 = { 0, 0, 0, 0, 0 };
- static cilist io___102 = { 0, 0, 0, 0, 0 };
- static cilist io___123 = { 0, 6, 0, 0, 0 };
- static cilist io___150 = { 0, 0, 0, 0, 0 };
- static cilist io___153 = { 0, 0, 0, 0, 0 };
- static cilist io___155 = { 0, 0, 0, 0, 0 };
- static cilist io___163 = { 0, 0, 0, fmt_98, 0 };
- static cilist io___164 = { 0, 0, 0, fmt_1401, 0 };
- static cilist io___165 = { 0, 0, 0, fmt_103, 0 };
- static cilist io___166 = { 0, 0, 0, fmt_101, 0 };
- static cilist io___170 = { 0, 0, 0, fmt_102, 0 };
- static cilist io___171 = { 0, 0, 0, fmt_1110, 0 };
- static cilist io___172 = { 0, 0, 0, fmt_1119, 0 };
- static cilist io___173 = { 0, 0, 0, fmt_1281, 0 };
- static cilist io___174 = { 0, 0, 0, fmt_1272, 0 };
- static cilist io___175 = { 0, 0, 0, fmt_1271, 0 };
- static cilist io___176 = { 0, 0, 0, fmt_1261, 0 };
- static cilist io___177 = { 0, 0, 0, fmt_5550, 0 };
- static cilist io___178 = { 0, 0, 0, fmt_5554, 0 };
- static cilist io___180 = { 0, 6, 0, fmt_5551, 0 };
- static cilist io___181 = { 0, 6, 0, fmt_5552, 0 };
- static cilist io___182 = { 0, 6, 0, fmt_5553, 0 };
- static cilist io___183 = { 0, 0, 0, fmt_132, 0 };
- static cilist io___184 = { 0, 0, 0, fmt_132, 0 };
- static cilist io___185 = { 0, 0, 0, fmt_132, 0 };
- static cilist io___186 = { 0, 0, 0, fmt_133, 0 };
- static cilist io___187 = { 0, 6, 0, fmt_134, 0 };
- static cilist io___188 = { 0, 0, 0, fmt_135, 0 };
- static cilist io___189 = { 0, 0, 0, fmt_136, 0 };
- static cilist io___190 = { 0, 0, 0, fmt_137, 0 };
- static cilist io___191 = { 0, 0, 0, fmt_139, 0 };
- static cilist io___192 = { 0, 0, 0, fmt_138, 0 };
- static cilist io___193 = { 0, 0, 0, fmt_140, 0 };
- static cilist io___194 = { 0, 0, 0, fmt_141, 0 };
- static cilist io___195 = { 0, 6, 0, fmt_5555, 0 };
- static cilist io___196 = { 0, 0, 0, fmt_148, 0 };
- static cilist io___197 = { 0, 0, 0, fmt_1510, 0 };
- static cilist io___198 = { 0, 0, 0, fmt_149, 0 };
- static cilist io___199 = { 0, 0, 0, fmt_1510, 0 };
- static cilist io___200 = { 0, 0, 0, fmt_142, 0 };
- static cilist io___201 = { 0, 0, 0, fmt_146, 0 };
- static cilist io___202 = { 0, 0, 0, fmt_144, 0 };
- static cilist io___203 = { 0, 0, 0, fmt_145, 0 };
- static cilist io___204 = { 0, 0, 0, fmt_143, 0 };
- static cilist io___211 = { 0, 0, 0, fmt_169, 0 };
- static cilist io___213 = { 0, 0, 0, fmt_170, 0 };
- static cilist io___215 = { 0, 0, 0, fmt_171, 0 };
- static cilist io___296 = { 0, 0, 0, fmt_1500, 0 };
- static cilist io___426 = { 0, 6, 0, 0, 0 };
- static cilist io___427 = { 0, 10, 0, fmt_2222, 0 };
- static cilist io___428 = { 0, 10, 0, fmt_2222, 0 };
- static cilist io___430 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___431 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___432 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___433 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___434 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___435 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___436 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___437 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___438 = { 0, 10, 0, fmt_333, 0 };
- static cilist io___439 = { 0, 10, 0, fmt_333, 0 };
- static cilist io___440 = { 0, 10, 0, fmt_2222, 0 };
- static cilist io___441 = { 0, 10, 0, fmt_2222, 0 };
- static cilist io___442 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___443 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___444 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___445 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___446 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___447 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___448 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___449 = { 0, 10, 0, fmt_2223, 0 };
- static cilist io___451 = { 0, 0, 0, fmt_430, 0 };
- static cilist io___452 = { 0, 0, 0, fmt_431, 0 };
- static cilist io___454 = { 0, 0, 0, fmt_429, 0 };
- static cilist io___455 = { 0, 0, 0, fmt_432, 0 };
- static cilist io___456 = { 0, 0, 0, fmt_434, 0 };
- static cilist io___457 = { 0, 0, 0, fmt_432, 0 };
- static cilist io___458 = { 0, 0, 0, fmt_434, 0 };
- static cilist io___459 = { 0, 0, 0, fmt_436, 0 };
- static cilist io___460 = { 0, 0, 0, fmt_437, 0 };
- static cilist io___461 = { 0, 0, 0, fmt_929, 0 };
- static cilist io___462 = { 0, 0, 0, fmt_930, 0 };
- static cilist io___463 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___464 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___465 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___466 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___467 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___468 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___469 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___470 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___471 = { 0, 0, 0, fmt_1401, 0 };
- static cilist io___472 = { 0, 0, 0, fmt_1401, 0 };
- static cilist io___473 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___474 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___475 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___476 = { 0, 0, 0, fmt_1401, 0 };
- static cilist io___477 = { 0, 0, 0, fmt_1401, 0 };
- static cilist io___478 = { 0, 0, 0, fmt_939, 0 };
- static cilist io___479 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___480 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___481 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___482 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___483 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___484 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___485 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___486 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___487 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___488 = { 0, 0, 0, fmt_932, 0 };
- static cilist io___489 = { 0, 0, 0, fmt_932, 0 };
- static cilist io___490 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___491 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___492 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___493 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___494 = { 0, 0, 0, fmt_931, 0 };
- static cilist io___495 = { 0, 0, 0, fmt_1401, 0 };
- static cilist io___496 = { 0, 0, 0, fmt_1402, 0 };
- static cilist io___520 = { 0, 0, 0, fmt_940, 0 };
- static cilist io___521 = { 0, 0, 0, fmt_941, 0 };
- static cilist io___522 = { 0, 0, 0, fmt_942, 0 };
- static cilist io___523 = { 0, 0, 0, fmt_943, 0 };
- static cilist io___524 = { 0, 0, 0, fmt_944, 0 };
- static cilist io___525 = { 0, 0, 0, fmt_222, 0 };
- static cilist io___526 = { 0, 0, 0, fmt_944, 0 };
-
-
-/* _otb MOD V2 : New outputs : otb_tdif_up = upward diffuse transmittance
- */
-/* _otb MOD V2 : New outputs : otb_tdir_up = upward direct transmittance
-*/
-/*_otb MOD V2 : New outputs : otb_tdif_up_ray = upward dif. trans for rayl
-eigh*/
-/*_otb MOD V2 : New outputs : otb_tdif_up_aer = upward dif. transm. for ae
-rosols*/
-/* _otb MOD V2 : */
-/* _otb MOD V2 : Normalization of US62 pressure profile */
-/* _otb MOD V2 : by the user defined pressure */
-/* **********************************************************************c
- */
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* ******************************************************** c
-*/
-/* * second simulation of satellite signal * c
-*/
-/* * in the solar spectrum * c
-*/
-/* * ... (6sV) ....... (6sV) ...... (6sV) ... * c
-*/
-/* * version 1.0B * c
-*/
-/* * * c
-*/
-/* * Vector Code * c
-*/
-/* * * c
-*/
-/* * this code predicts the satellite signal from 0.25 * c
-*/
-/* * to 4.0 microns assuming cloudless atmosphere. * c
-*/
-/* * the main atmospheric effects (gaseous absorption * c
-*/
-/* * by water vapor,carbon dioxyde,oxygen and ozone; * c
-*/
-/* * scattering by molecules and aerosols) are taken * c
-*/
-/* * into account. non-uniform surfaces may be * c
-*/
-/* * considered,as well as bidirectional reflectances * c
-*/
-/* * as boundary conditions * c
-*/
-/* * * c
-*/
-/* * the following input parameters are needed * c
-*/
-/* * geometrical conditions * c
-*/
-/* * atmospheric model for gaseous components * c
-*/
-/* * aerosol model (type and concentration) * c
-*/
-/* * spectral condition * c
-*/
-/* * ground reflectance (type and spectral var.) * c
-*/
-/* * at each step, you can either select some proposed * c
-*/
-/* * standard conditions (for example,spectral bands of * c
-*/
-/* * satellite for spectral conditions) or define your * c
-*/
-/* * own conditions(in the example,you have to define * c
-*/
-/* * the assumed spectral response). * c
-*/
-/* * * c
-*/
-/* * more details are given at each data input step * c
-*/
-/* * * c
-*/
-/* ******************************************************** c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* **********************************************************************c
- */
-/* c
-*/
-/* c
-*/
-/* ******************************************************** c
-*/
-/* * The authors of this code are * c
-*/
-/* * * c
-*/
-/* * (1) Vermote E and Kotchenova.S.; * c
-*/
-/* * (2) Roger J.C..; * c
-*/
-/* * (3) Tanre D.; Deuze J.L; Herman M.; * c
-*/
-/* * (4) Morcrette J.J.. * c
-*/
-/* * * c
-*/
-/* * from * c
-*/
-/* * * c
-*/
-/* * (1) Affiliation: Department of Geography * c
-*/
-/* * University of Maryland and * c
-*/
-/* * Goddard Space Flight Center * c */
-/* * Code 614.5 * c */
-/* * USA * c
-*/
-/* * * c
-*/
-/* * (2) ELICO/LOCL * c
-*/
-/* * Universite du Littoral Cote d'Opale * c
-*/
-/* * 32 Ave Foch, 62930 Wimereux * c
-*/
-/* * France * c
-*/
-/* * * c
-*/
-/* * (3) laboratoire d' optique atmospherique * c
-*/
-/* * universite des sciences et techniques * c
-*/
-/* * de lille * c
-*/
-/* * u.e.r. de physique fondamentale * c
-*/
-/* * 59655 villeneuve d' ascq cedex * c
-*/
-/* * france * c
-*/
-/* * * c
-*/
-/* * (4) e.c.m.w.f. * c
-*/
-/* * * c
-*/
-/* * * c
-*/
-/* * * c
-*/
-/* * * c
-*/
-/* ******************************************************** c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* **********************************************************************c
- */
-/* ******************************************************** c
-*/
-/* * limits of validity * c
-*/
-/* * * c
-*/
-/* * geometrical parameters no limitations * c
-*/
-/* * * c
-*/
-/* * atmospheric model no limitations * c
-*/
-/* * * c
-*/
-/* * aerosol model the visibility must be * c
-*/
-/* * better than 5.0km * c
-*/
-/* * for smaller values * c
-*/
-/* * calculations might be * c
-*/
-/* * no more valid. * c
-*/
-/* * * c
-*/
-/* * spectral conditions the gaseous transmittance* c
-*/
-/* * and the scattering func * c
-*/
-/* * tions are valid from 0.25* c
-*/
-/* * to 4.0 micron. but the * c
-*/
-/* * treatment of interaction * c
-*/
-/* * between absorption and * c
-*/
-/* * scattering is correct for* c
-*/
-/* * not too large absorption * c
-*/
-/* * if you want to compute * c
-*/
-/* * signal within absorption * c
-*/
-/* * bands,this interaction * c
-*/
-/* * ought to be reconsidered * c
-*/
-/* * * c
-*/
-/* * ground reflectance (type) you can consider a patchy* c
-*/
-/* * structure:that is a circu* c
-*/
-/* * lar target of radius rad * c
-*/
-/* * and of reflectance roc, * c
-*/
-/* * within an environnement * c
-*/
-/* * of reflectance roe. * c
-*/
-/* * * c
-*/
-/* * ground reflectance (type continued): for uniform * c
-*/
-/* * surface conditions only, * c
-*/
-/* * you may consider directio* c
-*/
-/* * nal reflectance as bounda* c
-*/
-/* * ry conditions. * c
-*/
-/* * some analytical model are* c
-*/
-/* * proposed, the user can * c
-*/
-/* * specify his own values. * c
-*/
-/* * the code assumes that the* c
-*/
-/* * brdf is spectrally inde- * c
-*/
-/* * pendent * c
-*/
-/* * * c
-*/
-/* * ground reflectance (spectral variation) four typi * c
-*/
-/* * cal reflectances are pro * c
-*/
-/* * posed, defined within * c
-*/
-/* * given spectral range. * c
-*/
-/* * this range differs accor * c
-*/
-/* * ding to the selected case* c
-*/
-/* * the reflectance is set to* c
-*/
-/* * 0 outside this range,due * c
-*/
-/* * to the deficiency of data* c
-*/
-/* * user must verify these * c
-*/
-/* * limits. that is obviously* c
-*/
-/* * irrelevant for brdf * c
-*/
-/* * * c
-*/
-/* ******************************************************** c
-*/
-/* **********************************************************************c
- */
-/************************************************************************
-*****c*/
-/* for considering brdf< we have to compute the downward radiance in the
- c*/
-/* whole hemisphere. to perform such computions, we selected the successiv
-e c*/
-/* orders of scattering method. that method requires numerical integration
- c*/
-/* over angles and optical depth. the integration method is the gauss meth
-od,c*/
-/* mu is the number of angles nmu+1, nmu is settled to 24. the accuracy of
- c*/
-/* the computations is obviously depending on the nmu value. this value
- c*/
-/* can be easily changed as a parameter as well as the nt value which
- c*/
-/* is the number of layers for performing the vertical integration. the
- c*/
-/* downward radiance is computed for nmu values of the zenith angle and np
- c*/
-/* values of the azimuth angle. the integration of the product of the
- c*/
-/* radiance by the brdf is so performed over the nmu*np values. np is sett
-ledc*/
-/* to 13, that value can be also changed. mu2 is equal to 2 times nmu.
- c*/
-/* xlmus is the downward radiance, xf the downward irradiance, rm and gb
- c*/
-/* the angles and the weights for the gauss integration over the zenith, r
-p c*/
-/* and gp respectively for the azimuth integration.
- c*/
-/************************************************************************
-*****c*/
-/*< parameter(nt_p=30,mu_p=25,mu2_p=48,np_p=49,nfi_p=181,nquad_p=83) ! >*/
-/*< parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change ! >*/
-/* Attention !Added for OTB */
-/* mu2_p has to be equal to (mu_p-1)*2 !Added for OTB */
-/* _otb include "paramdef.inc" */
-/*< >*/
-/*< dimension xlmus(-mu_p:mu_p,np_p),xlmuv(-mu_p:mu_p,np_p) >*/
-/*< >*/
-/*< >*/
-/*< real rolut(mu_p,41),roluts(20,mu_p,41),roluti(mu_p,41) >*/
-/*< real rolutq(mu_p,41),rolutsq(20,mu_p,41),rolutiq(mu_p,41) >*/
-/*< real rolutu(mu_p,41),rolutsu(20,mu_p,41),rolutiu(mu_p,41) >*/
-/*< real filut(mu_p,41) >*/
-/*< integer aerod >*/
-/*< real its,lutmuv,luttv,iscama,iscami,scaa,cscaa,cfi >*/
-/*< integer nfilut(mu_p),nbisca >*/
-/*< real dtr >*/
-/*< real anglem,weightm,rm,gb,accu2,accu3 >*/
-/*< real rp,gp,xlmus,xlmuv,angmu,angphi,brdfints,brdfdats >*/
-/*< real brdfintv,brdfdatv,robar,robarp,robard,xlm1,xlm2 >*/
-/*< real c,wldisc,ani,anr,aini,ainr,rocl,roel,zpl,ppl,tpl,whpl >*/
-/*< real wopl,xacc,s,wlinf,wlsup,delta >*/
-/*< real nwlinf,nwlsup >*/
-/*< integer niinf,nisup >*/
-/*< real sigma,z,p,t,wh,wo,ext,ome,gasym,phase,qhase,roatm,dtdir >*/
-/*< real dtdif,utdir,utdif,sphal,wldis,trayl,traypl,pi,pi2,step >*/
-/*< real asol,phi0,avis,phiv,tu,xlon,xlat,xlonan,hna,dsol,campm >*/
-/*< real phi,phirad,xmus,xmuv,xmup,xmud,adif,uw,uo3,taer55 >*/
-/*< real taer,v,xps,uwus,uo3us,xpp,taer55p,puw,puo3,puwus >*/
-/*< real puo3us,wl,wlmoy,tamoy,tamoyp,pizmoy,pizmoyp,trmoy >*/
-/*< real trmoyp,fr,rad,spalt,sha,sham,uhase >*/
-/*< real albbrdf,par1,par2,par3,par4,robar1,xnorm1,rob,xnor,rodir >*/
-/*< real rdown,rdir,robar2,xnorm2,ro,roc,roe,rapp,rocave,roeave >*/
-/*< real seb,sbor,swl,sb,refet,refet1,refet2,refet3,alumet >*/
-/*< real refeti,pinst,ksiinst,ksirad >*/
-/*< real rpfet,rpfet1,rpfet2,rpfet3,plumet,plumeas >*/
-/*< real tgasm,rog,dgasm,ugasm,sdwava,sdozon,sddica,sdoxyg >*/
-/*< real sdniox,sdmoca,sdmeth,suwava,suozon,sudica,suoxyg >*/
-/*< real suniox,sumoca,sumeth,stwava,stozon,stdica,stoxyg,stniox >*/
-/*< real stmoca,stmeth,sodray,sodaer,sodtot,fophsr,fophsa,sroray >*/
-/*< real sroaer,srotot,ssdaer,sdtotr,sdtota,sdtott,sutotr,sutota >*/
-/*< real sutott,sasr,sasa,sast,dtozon,dtdica,dtoxyg >*/
-/*< real dtniox,dtmeth,dtmoca,utozon,utdica,utoxyg,utniox >*/
-/*< real utmeth,utmoca,attwava,ttozon,ttdica,ttoxyg,ttniox >*/
-/*< real ttmeth,ttmoca,dtwava,utwava,ttwava,coef,romix,rorayl >*/
-/*< real roaero,phaa,phar,tsca,tray,trayp,taerp,dtott,utott >*/
-/*< real rqmix,rqrayl,rqaero,qhaa,qhar,foqhsr,foqhsa,foqhst >*/
-/*< real rumix,rurayl,ruaero,uhaa,uhar,rpmix,rpaero,rprayl >*/
-/*< real srpray,srpaer,srptot,rpmeas1,rpmeas2,rpmeas3 >*/
-/*< real srqray,srqaer,srqtot,sruray,sruaer,srutot >*/
-/*< real astot,asray,asaer,utotr,utota,dtotr,dtota,dgtot,tgtot >*/
-/*< real tgp1,tgp2,rqatm,ruatm,fouhst,fouhsr,fouhsa,coefp >*/
-/*< real ugtot,edifr,edifa,tdird,tdiru,tdifd,tdifu,fra >*/
-/*< real fae,avr,romeas1,romeas2,romeas3,alumeas,sodrayp >*/
-/*< real sdppray,sdppaer,sdpptot,rop,sdpray,sdpaer,sdptot >*/
-/*< real spdpray,spdpaer,spdptot >*/
-/*< real ratm1,ratm2,ratm3,rsurf,rpatm1,rpatm2,rpatm3,rpsurf >*/
-/*< real sodaerp,sodtotp,tdir,tdif,etn,esn,es,ea0n,ea0,ee0n >*/
-/*< real ee0,tmdir,tmdif,xla0n,xla0,xltn,xlt,xlen,xle,pizera >*/
-/*< real fophst,pizerr,pizert,xrad,xa,xb,xc >*/
-/*< integer nt,mu,mu2,np,k,iwr,mum1,idatmp,ipol >*/
-/*< integer j,iread,l,igeom,month,jday,nc,nl,idatm,iaer,iaerp,n >*/
-/*< integer iwave,iinf,isup,ik,i,inhomo,idirec,ibrdf,igroun >*/
-/*< integer igrou1,igrou2,isort,irapp,ilut >*/
-/* variables used in the BRDF coupling correction process */
-/*< real robarstar,robarpstar,robarbarstar,tdd,tdu,tsd,tsu >*/
-/*< real coefa,coefb,coefc,discri,rogbrdf >*/
-/* variables related to surface polarization */
-/*< integer irop >*/
-/*< real ropq,ropu,pveg,wspd,azw,razw >*/
-/* ***********************************************************************
- */
-/* to vary the number of quadratures */
-/* ***********************************************************************
- */
-/*< integer nquad >*/
-/*< common /num_quad/ nquad >*/
-/* ***********************************************************************
- */
-/* the aerosol profile */
-/* ***********************************************************************
- */
-/*< integer iaer_prof,num_z >*/
-/*< real alt_z,taer_z,taer55_z,total_height,height_z(0:nt_p_max) >*/
-/*< >*/
-/*< character aer_model(15)*50 >*/
-/* _otb_adaptation Beginning: otb variables declaration */
-/* Added_for_OTB */
-/*< real otb_asol,otb_phi0 !solar zenithal and azimutal angles (inp >*/
-/*< real otb_avis,otb_phiv !viewing zenithal and azimutal angles (input) >*/
-/*< integer otb_month,otb_jday !date (input) >*/
-/*< real otb_pressure !real pressure (input) >*/
-/*< real otb_uw, otb_uo3 !real water vapor and ozone amounts (input) >*/
-/*< integer otb_iaer !number of aerosol model (input) >*/
-/*< real otb_taer55 !aerosol optical thickness at 550-nm (input) >*/
-/*< real otb_wlinf, otb_wlsup !wavelength min and max for the spectral band (input) >*/
-/*< real otb_s(1501) !spectral band definition (input) >*/
-/*< real otb_ratm !Atmospheric reflectance (output) >*/
-/*< real otb_sast !Atmospheric spherical albedo (output) >*/
-/*< real otb_tgasm !Total gaseous transmission (output) >*/
-/*< real otb_sdtott !Downward transmittance (output) >*/
-/*< real otb_sutott !Upward transmittance (output) >*/
-/*< real otb_tdif_up !Upward diffuse transmittance (output) >*/
-/*< real otb_tdir_up !Upward direct transmittance (output) >*/
-/*< real otb_tdif_up_ray !Upward diffuse transmittance for rayleigh (output) >*/
-/*< real otb_tdif_up_aer !Upward diffuse transmittance for aerosols (output) >*/
-/* _otb_adaptation End : otb variables declaration */
-/* ***********************************************************************
- */
-/* return to 6s */
-/* ***********************************************************************
- */
-/*< dimension c(4),wldisc(20),ani(2,3),anr(2,3),aini(2,3),ainr(2,3) >*/
-/*< dimension rocl(1501),roel(1501) >*/
-/*< real rfoaml(1501),rglitl(1501),rwatl(1501) >*/
-/*< real rn,ri,x1,x2,x3,cij,rsunph,nrsunph,rmax,rmin,cij_out(4) >*/
-/*< integer icp,irsunph,i1,i2 >*/
-/*< character etiq1(8)*60,nsat(119)*17,atmid(7)*51,reflec(8)*71 >*/
-/*< character FILE*80,FILE2*80 >*/
-/*< logical ier >*/
-/*< integer igmax >*/
-/*< common/sixs_ier/iwr,ier >*/
-/*< >*/
-/*< common /multorder/ igmax >*/
-/* ***********************************************************************
- */
-/* for considering pixel and sensor altitude */
-/* ***********************************************************************
- */
-/*< real pps,palt,ftray >*/
-/*< common /sixs_planesim/zpl(34),ppl(34),tpl(34),whpl(34),wopl(34) >*/
-/*< common /sixs_test/xacc >*/
-/* ***********************************************************************
- */
-/* for considering aerosol and brdf */
-/* ***********************************************************************
- */
-/*< integer options(5) >*/
-/*< integer pild,pihs >*/
-/*< real optics(3),struct(4) >*/
-/*< real pxLt,pc,pRl,pTl,pRs >*/
-/*< real pws,phi_wind,xsal,pcl,paw,rfoam,rwat,rglit >*/
-/*< real rfoamave,rwatave,rglitave >*/
-/*< real uli,eei,thmi,sli,cabi,cwi,vaii,rnci,rsl1i >*/
-/*< real p1,p2,p3 >*/
-/* ***********************************************************************
- */
-/* return to 6s */
-/* ***********************************************************************
- */
-/*< common /sixs_ffu/s(1501),wlinf,wlsup >*/
-/*< common /sixs_del/ delta,sigma >*/
-/*< common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34) >*/
-/*< >*/
-/*< >*/
-/************************************************************************
-*****c*/
-/* angmu and angphi are the angles were the brdf is measured. these value
-s c*/
-/* can be changed as soon as they are well distributed over the whole spa
-ce c*/
-/* before the gauss integration, these values are interpolated to the gau
-ss c*/
-/* angles
- c*/
-/************************************************************************
-*****c*/
-/*< data angmu /85.0,80.0,70.0,60.0,50.0,40.0,30.0,20.0,10.0,0.00/ >*/
- /* Parameter adjustments */
- --otb_s__;
-
- /* Function Body */
-/*< >*/
-/* ***********************************************************************
- */
-/* return to 6s */
-/* ***********************************************************************
- */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< FILE=' ' >*/
- s_copy(file, " ", 80L, 2L);
-/*< FILE2=' ' >*/
- s_copy(file2, " ", 80L, 2L);
-/* ***********************************************************************
- */
-/* Parameters initialization */
-/* ***********************************************************************
- */
-/*< nt=nt_p >*/
- nt = 30;
-/*< mu=mu_p >*/
- mu = 25;
-/*< mu2=mu2_p >*/
- mu2 = 48;
-/*< np=np_p >*/
- np = 49;
-/*< nfi=nfi_p >*/
- nfi = 181;
-/*< iwr=6 >*/
- sixs_ier__1.iwr = 6;
-/*< ier=.FALSE. >*/
- sixs_ier__1.ier = FALSE_;
-/*< iinf=1 >*/
- iinf = 1;
-/*< isup=1501 >*/
- isup = 1501;
-/*< igmax=20 >*/
- multorder_1.igmax = 20;
-/* ***********************************************************************
- */
-/* preliminary computations for gauss integration */
-/* ***********************************************************************
- */
-/*< pi=acos(-1.) >*/
- pi = acos(-1.);
-/*< pi2=2*pi >*/
- pi2 = pi * 2;
-/*< accu2=1.E-03 >*/
- accu2 = .001;
-/*< accu3=1.E-07 >*/
- accu3 = 1e-7;
-/*< do k=1,13 >*/
- for (k = 1; k <= 13; ++k) {
-/*< angphi(k)=angphi(k)*pi/180. >*/
- angphi[k - 1] = angphi[k - 1] * pi / 180.;
-/*< enddo >*/
- }
-/*< do k=1,10 >*/
- for (k = 1; k <= 10; ++k) {
-/*< angmu(k)=cos(angmu(k)*pi/180.) >*/
- angmu[k - 1] = cos(angmu[k - 1] * pi / 180.);
-/*< enddo >*/
- }
-/*< call gauss(-1.,1.,anglem,weightm,mu2) >*/
- gauss_(&c_b4, &c_b5, anglem, weightm, &mu2);
-/*< call gauss(0.,pi2,rp,gp,np) >*/
- gauss_(&c_b6, &pi2, rp, gp, &np);
-/*< mum1=mu-1 >*/
- mum1 = mu - 1;
-/*< do 581 j=-mum1,-1 >*/
- for (j = -mum1; j <= -1; ++j) {
-/*< k=mu+j >*/
- k = mu + j;
-/*< rm(-j-mu)=anglem(k) >*/
- rm[-j - mu + 25] = anglem[k - 1];
-/*< gb(-j-mu)=weightm(k) >*/
- gb[-j - mu + 25] = weightm[k - 1];
-/*< 581 continue >*/
-/* L581: */
- }
-/*< do 582 j=1,mum1 >*/
- i__1 = mum1;
- for (j = 1; j <= i__1; ++j) {
-/*< k=mum1+j >*/
- k = mum1 + j;
-/*< rm(mu-j)=anglem(k) >*/
- rm[mu - j + 25] = anglem[k - 1];
-/*< gb(mu-j)=weightm(k) >*/
- gb[mu - j + 25] = weightm[k - 1];
-/*< 582 continue >*/
-/* L582: */
- }
-/*< gb(-mu)=0. >*/
- gb[-mu + 25] = 0.;
-/*< gb(0)=0. >*/
- gb[25] = 0.;
-/*< gb(mu)=0. >*/
- gb[mu + 25] = 0.;
-/* ***********************************************************************
- */
-/* return to 6s */
-/* ***********************************************************************
- */
-/* constantes values */
-/*< sigma=0.056032 >*/
- sixs_del__1.sigma = .056032;
-/*< delta=0.0279 >*/
- sixs_del__1.delta = .0279;
-/* CC pinst=0.02 */
-/* CC ksiinst=0. */
-/*< xacc=1.e-06 >*/
- sixs_test__1.xacc = 1e-6;
-/*< iread=5 >*/
- iread = 5;
-/*< step=0.0025 >*/
- step = .0025;
-/*< do 1111 l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< wldis(l)=wldisc(l) >*/
- sixs_disc__1.wldis[l - 1] = wldisc[l - 1];
-/*< 1111 continue >*/
-/* L1111: */
- }
-/* **********************************************************************c
- */
-/* n. of column,n. of line.(full scale 17000*12000)c
-*/
-/* c
-*/
-/* 4 avhrr ( PM noaa ) c
-*/
-/* enter month,day,decimal hour (universal time-hh.ddd) c
-*/
-/* n. of column(1-2048),xlonan,hna c
-*/
-/* give long.(xlonan) and overpass hour (hna) at c
-*/
-/* the ascendant node at equator c
-*/
-/* c
-*/
-/* 5 avhrr ( AM noaa ) c
-*/
-/* enter month,day,decimal hour (universal time-hh.ddd) c
-*/
-/* n. of column(1-2048),xlonan,hna c
-*/
-/* give long.(xlonan) and overpass hour (hna) at c
-*/
-/* the ascendant node at equator c
-*/
-/* c
-*/
-/* 6 hrv ( spot ) * enter month,day,hh.ddd,long.,lat.c
-*/
-/* c
-*/
-/* 7 tm ( landsat ) * enter month,day,hh.ddd,long.,lat.c
-*/
-/* c
-*/
-/* c
-*/
-/* note: for hrv and tm experiments long. and lat. are the c
-*/
-/* coordinates of the scene center. c
-*/
-/* lat. must be > 0 for north lat., < 0 for south lat. c
-*/
-/* long. must be > 0 for east long., <0 for west long. c
-*/
-/* c
-*/
-/* solar and viewing positions are computed c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* _otb_adaptation Beginning: igeom = 0 by default */
-/* _otb read(iread,*) igeom */
-/*< igeom = 0 !Added_for_OTB >*/
- igeom = 0;
-/*< asol = otb_asol !Added_for_OTB >*/
- asol = *otb_asol__;
-/*< phi0 = otb_phi0 !Added_for_OTB >*/
- phi0 = *otb_phi0__;
-/*< avis = otb_avis !Added_for_OTB >*/
- avis = *otb_avis__;
-/*< phiv = otb_phiv !Added_for_OTB >*/
- phiv = *otb_phiv__;
-/*< month = otb_month !Added_for_OTB >*/
- month = *otb_month__;
-/*< jday = otb_jday !Added_for_OTB >*/
- jday = *otb_jday__;
-/*< if (igeom.lt.0) then >*/
- if (igeom < 0) {
-/*< if (igeom.lt.-10) then >*/
- if (igeom < -10) {
-/*< igmax=int(abs(igeom/10)) >*/
- multorder_1.igmax = (i__1 = igeom / 10, abs(i__1));
-/*< igeom=igeom+igmax*10 >*/
- igeom += multorder_1.igmax * 10;
-/*< endif >*/
- }
-/*< ilut=0 >*/
- ilut = 0;
-/*< igeom=0 >*/
- igeom = 0;
-/*< endif >*/
- }
-/*< ilut=0 >*/
- ilut = 0;
-/* _otb goto(1001,1002,1003,1004,1005,1006,1007),igeom */
-/* igeom=0..... */
-/* _otb read(iread,*) asol,phi0,avis,phiv,month,jday */
-/* _otb goto 22 */
-
-/* _otb 1001 read(iread,*) month,jday,tu,nc,nl */
-/* _otb call posmto(month,jday,tu,nc,nl, */
-/* _otb 1 asol,phi0,avis,phiv,xlon,xlat) */
-/* _otb goto 22 */
-/* _otb 1002 read(iread,*) month,jday,tu,nc,nl */
-/* _otb call posge(month,jday,tu,nc,nl, */
-/* _otb 1 asol,phi0,avis,phiv,xlon,xlat) */
-/* _otb goto 22 */
-/* _otb 1003 read(iread,*) month,jday,tu,nc,nl */
-/* _otb call posgw(month,jday,tu,nc,nl, */
-/* _otb 1 asol,phi0,avis,phiv,xlon,xlat) */
-/* _otb goto 22 */
-/* _otb 1004 read(iread,*) month,jday,tu,nc,xlonan,hna */
-/* _otb campm=1.0 */
-/* _otb call posnoa(month,jday,tu,nc,xlonan,hna,campm, */
-/* _otb 1 asol,phi0,avis,phiv,xlon,xlat) */
-/* _otb goto 22 */
-/* _otb 1005 read(iread,*) month,jday,tu,nc,xlonan,hna */
-/* _otb campm=-1.0 */
-/* _otb call posnoa(month,jday,tu,nc,xlonan,hna,campm, */
-/* _otb 1 asol,phi0,avis,phiv,xlon,xlat) */
-/* _otb goto 22 */
-/* _otb 1006 read(iread,*) month,jday,tu,xlon,xlat */
-/* _otb call posspo(month,jday,tu,xlon,xlat, */
-/* _otb a asol,phi0,avis,phiv) */
-/* _otb goto 22 */
-/* _otb 1007 read(iread,*) month,jday,tu,xlon,xlat */
-/* _otb call poslan(month,jday,tu,xlon,xlat, */
-/* _otb s asol,phi0,avis,phiv) */
-/* _otb 22 continue */
-/* _otb_adaptation End : igeom = 0 by default */
-/*< if(ier) stop >*/
- if (sixs_ier__1.ier) {
- s_stop("", 0L);
- }
-/*< dsol=1. >*/
- dsol = 1.;
-/*< call varsol(jday,month,dsol) >*/
- varsol_(&jday, &month, &dsol);
-/* **********************************************************************c
- */
-/* c
-*/
-/* / scattered direction c
-*/
-/* / c
-*/
-/* / c
-*/
-/* / adif c
-*/
-/* incident + + + + + + + + + + + + + + + c
-*/
-/* direction c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< phi=abs(phiv-phi0) >*/
- phi = (d__1 = phiv - phi0, abs(d__1));
-/*< phirad=(phi0-phiv)*pi/180. >*/
- phirad = (phi0 - phiv) * pi / 180.;
-/*< if (phirad.lt.0.) phirad=phirad+2.*pi >*/
- if (phirad < 0.) {
- phirad += pi * 2.;
- }
-/*< if (phirad.gt.(2.*pi)) phirad=phirad-2.*pi >*/
- if (phirad > pi * 2.) {
- phirad -= pi * 2.;
- }
-/*< xmus=cos(asol*pi/180.) >*/
- xmus = cos(asol * pi / 180.);
-/*< xmuv=cos(avis*pi/180.) >*/
- xmuv = cos(avis * pi / 180.);
-/*< xmup=cos(phirad) >*/
- xmup = cos(phirad);
-/*< xmud=-xmus*xmuv-sqrt(1.-xmus*xmus)*sqrt(1.-xmuv*xmuv)*xmup >*/
- xmud = -xmus * xmuv - sqrt(1. - xmus * xmus) * sqrt(1. - xmuv * xmuv) *
- xmup;
-/* test vermote bug */
-/*< if (xmud.gt.1.) xmud=1. >*/
- if (xmud > 1.) {
- xmud = 1.;
- }
-/*< if (xmud.lt.-1.) xmud=-1. >*/
- if (xmud < -1.) {
- xmud = -1.;
- }
-/*< adif=acos(xmud)*180./pi >*/
- adif = acos(xmud) * 180. / pi;
-/* **********************************************************************c
- */
-/* idatm atmospheric model c
-*/
-/* -------------------- c
-*/
-/* c
-*/
-/* c
-*/
-/* you select one of the following standard atmosphere: idatm=0 to 6 c
-*/
-/* 0 no gaseous absorption c
-*/
-/* 1 tropical ) c
-*/
-/* 2 midlatitude summer ) c
-*/
-/* 3 midlatitude winter ) c
-*/
-/* 4 subarctic summer ) from lowtran c
-*/
-/* 5 subarctic winter ) c
-*/
-/* 6 us standard 62 ) c
-*/
-/* c
-*/
-/* or you define your own atmospheric model idatm=7 or 8 c
-*/
-/* 7 user profile (radiosonde data on 34 levels) c
-*/
-/* enter altitude ( in km ) c
-*/
-/* pressure ( in mb ) c
-*/
-/* temperature ( in k ) c
-*/
-/* h2o density (in g/m3) c
-*/
-/* o3 density (in g/m3) c
-*/
-/* c
-*/
-/* for example, altitudes are from 0 to 25km step of 1km c
-*/
-/* from 25 to 50km step of 5km c
-*/
-/* and two values at 70km and 100km c
-*/
-/* so you have 34*5 values to input. c
-*/
-/* 8 enter water vapor and ozone contents c
-*/
-/* uw (in g/cm2 ) c
-*/
-/* uo3 (in cm-atm) c
-*/
-/* profil is taken from us62 c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* _otb_adaptation Beginning: idatm=8, use of atmospheric model US62, */
-/* _otb_adaptation and real ozone and vater vaper amounts */
-/* _otb uw=0. */
-/* _otb uo3=0. */
-/* _otb read(iread,*) idatm */
-/*< idatm=8 !Added_for_OTB >*/
- idatm = 8;
-/*< call us62 !Added_for_OTB >*/
- us62_();
-/*< uw = otb_uw !Added_for_OTB >*/
- uw = *otb_uw__;
-/*< uo3 = otb_uo3 !Added_for_OTB >*/
- uo3 = *otb_uo3__;
-/* Normalization of the US62 pressure profile accouting for */
-/* the ground pressure entered by user. */
-
-/* Normalization of gas amounts is performed in subroutine ABSTRA. */
-/*< do 123 i=1,34 !Added_for_OTB >*/
- for (i__ = 1; i__ <= 34; ++i__) {
-/*< p(i)=p(i)*otb_pressure/p(1) !Added_for_OTB >*/
- sixs_atm__1.p[i__ - 1] = sixs_atm__1.p[i__ - 1] * *otb_pressure__ /
- sixs_atm__1.p[0];
-/*< 123 continue !Added_for_OTB >*/
-/* L123: */
- }
-/* _otb if(idatm.eq.0) go to 5 */
-/* _otb if(idatm.eq.8) read(iread,*) uw,uo3 */
-/* _otb if(idatm.ne.7) go to 6 */
-/* _otb do 7 k=1,34 */
-/* _otb read(iread,*) z(k),p(k),t(k),wh(k),wo(k) */
-/* _otb 7 continue */
-/* _otb go to 5 */
-/* _otb 6 if(idatm.eq.1) call tropic */
-/* _otb if(idatm.eq.2) call midsum */
-/* _otb if(idatm.eq.3) call midwin */
-/* _otb if(idatm.eq.4) call subsum */
-/* _otb if(idatm.eq.5) call subwin */
-/* _otb if(idatm.eq.6) call us62 */
-/* we have to define an atmosphere to compute rayleigh optical depth
-*/
-/* _otb 5 if(idatm.eq.0.or.idatm.eq.8) call us62 */
-/*_otb_adaptation End: idatm=8, use of atmospheric model US62,real amount
-s*/
-/* **********************************************************************c
- */
-/* THIS OPTION IS NOT AVAILABLE THE CODE RUNS WITH IPOL=1 c
-*/
-/* ipol computation of the atmospheric polarization c
-*/
-/* ------------------------------------------- c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* read(iread,*) ipol */
-/*< ipol=1 >*/
- ipol = 1;
-/* **********************************************************************c
- */
-/* c
-*/
-/* iaer aerosol model(type) and profile c
-*/
-/* -------------- c
-*/
-/* iaer = -1 The user-defined profile. You have to input the c
-*/
-/* number of layers first, then the height (km), c
-*/
-/* optical thickness (at 550 nm), and the type of c
-*/
-/* aerosol (see below) for each layer, starting from c
-*/
-/* the ground. The present version of the program c
-*/
-/* works only with the same type of aerosol for each c
-*/
-/* layer. c
-*/
-/* c
-*/
-/* Example for iaer = -1: c
-*/
-/* 4 c
-*/
-/* 2.0 0.200 1 c
-*/
-/* 10.0 0.025 1 c
-*/
-/* 12 Reading of data previously saved into FILE c
-*/
-/* you have to enter the identification name FILE in the c
-*/
-/* next line of inputs. c
-*/
-/* c
-*/
-/* c
-*/
-/* iaerp and FILE aerosol model(type)-Printing of results c
-*/
-/* --------------------------------------- c
-*/
-/* c
-*/
-/* For iaer=8,9,10,and 11: c
-*/
-/* results from the MIE subroutine may be saved into the file c
-*/
-/* FILE.mie (Extinction and scattering coefficients, single c
-*/
-/* scattering albedo, Asymmetry parameter, phase function at c
-*/
-/* predefined wavelengths) and then can be re-used with the c
-*/
-/* option iaer=12 where FILE is an identification name you c
-*/
-/* have to enter. c
-*/
-/* c
-*/
-/* So, if you select iaer=8,9,10,or 11, next line following the c
-*/
-/* requested inputs by the options 8,9,10, or 11 you have to enter c
-*/
-/* iaerp c
-*/
-/* c
-*/
-/* iaerp=0 results will not be saved c
-*/
-/* iaerp=1 results will be saved into the file FILE.mie c
-*/
-/* next line enter FILE c
-*/
-/* c
-*/
-/* c
-*/
-/* example for iaer and iaerp c
-*/
-/* 8 Multimodal Log-Normale distribution selected c
-*/
-/* 0.0001 100.0 3 Rmin, Rmax, 3 components c
-*/
-/* 0.5000 2.99 1.66E-7 Rmean, Sigma, percentage density-1st componentc
-*/
-/* 1.53 1.53 1.53 1.53 1.53 1.53 1.52 1.40 1.22 1.27 nr-10 wavelengths c
-*/
-/* .008 .008 .008 .008 .008 .008 .008 .008 .009 .011 ni-10 wavelengths c
-*/
-/* 0.0050 2.99 0.5945 Rmean, Sigma, percentage density-2nd componentc
-*/
-/* 1.53 1.53 1.53 1.53 1.53 1.53 1.52 1.51 1.42 1.452 nr-10 wavelengths c
-*/
-/* .005 .005 .005 .005 .006 .007 .012 .023 .010 .004 ni-10 wavelengths c
-*/
-/* 0.0118 2.00 0.4055 Rmean, Sigma, percentage density-3rd componentc
-*/
-/* 1.75 1.75 1.75 1.75 1.75 1.75 1.75 1.77 1.81 1.90 nr-10 wavelengths c
-*/
-/* .46 .45 .45 .44 .43 .43 .43 .46 .50 .57 ni-10 wavelengths c
-*/
-/* 1 Results will be saved into FILE.mie c
-*/
-/* URBAN-WCP112 Identification of the output file called FILE c
-*/
-/* -> results will be saved into URBAN-WCP112.mie c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< rmin=0. >*/
- mie_in__1.rmin = 0.;
-/*< rmax=0. >*/
- mie_in__1.rmax = 0.;
-/*< icp=1 >*/
- mie_in__1.icp = 1;
-/*< do i=1,4 >*/
- for (i__ = 1; i__ <= 4; ++i__) {
-/*< x1(i)=0.0 >*/
- mie_in__1.x1[i__ - 1] = 0.;
-/*< x2(i)=0.0 >*/
- mie_in__1.x2[i__ - 1] = 0.;
-/*< x3(i)=0.0 >*/
- mie_in__1.x3[i__ - 1] = 0.;
-/*< do l=1,20 >*/
- for (l = 1; l <= 20; ++l) {
-/*< rn(l,i)=0.0 >*/
- mie_in__1.rn[l + i__ * 20 - 21] = 0.;
-/*< ri(l,i)=0.0 >*/
- mie_in__1.ri[l + i__ * 20 - 21] = 0.;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< do i=1,50 >*/
- for (i__ = 1; i__ <= 50; ++i__) {
-/*< rsunph(i)=0. >*/
- mie_in__1.rsunph[i__ - 1] = 0.;
-/*< nrsunph(i)=0. >*/
- mie_in__1.nrsunph[i__ - 1] = 0.;
-/*< enddo >*/
- }
-/*< cij(1)=1.00 >*/
- mie_in__1.cij[0] = 1.;
-/*< taer=0. >*/
- taer = 0.;
-/*< taer55=0. >*/
- taer55 = 0.;
-/*< iaer_prof=0 >*/
- iaer_prof__ = 0;
-/* _otb_adaptation Beginning: iaer becomes input arguments */
-/* _otb read(iread,*) read(iread,*) iaer */
-/*< iaer = otb_iaer >*/
- iaer = *otb_iaer__;
-/* _obt --> expected values are 0,1,2,3 or 5 */
-/* _otb_adaptation End : iaer becomes input argument */
-/* the user-defined aerosol profile */
-/*< if (iaer.lt.0) then >*/
- if (iaer < 0) {
-/*< total_height=0.0 >*/
- total_height__ = 0.;
-/*< iaer_prof=1 >*/
- iaer_prof__ = 1;
-/*< num_z=0 >*/
- aeroprof_1.num_z__ = 0;
-/*< do i=0,50 >*/
- for (i__ = 0; i__ <= 50; ++i__) {
-/*< alt_z(i)=0.0 >*/
- aeroprof_1.alt_z__[i__] = 0.;
-/*< taer55_z(i)=0.0 >*/
- aeroprof_1.taer55_z__[i__] = 0.;
-/*< taer_z(i)=0.0 >*/
- aeroprof_1.taer_z__[i__] = 0.;
-/*< height_z(i)=0.0 >*/
- height_z__[i__] = 0.;
-/*< enddo >*/
- }
-/*< read(5,*) num_z >*/
- s_rsle(&io___60);
- do_lio(&c__3, &c__1, (char *)&aeroprof_1.num_z__, (ftnlen)sizeof(
- integer));
- e_rsle();
-/*< do i=0,num_z-1 >*/
- i__1 = aeroprof_1.num_z__ - 1;
- for (i__ = 0; i__ <= i__1; ++i__) {
-/*< read(5,*) height_z(num_z-i),taer55_z(num_z-i),iaer >*/
- s_rsle(&io___61);
- do_lio(&c__5, &c__1, (char *)&height_z__[aeroprof_1.num_z__ - i__]
- , (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&aeroprof_1.taer55_z__[
- aeroprof_1.num_z__ - i__], (ftnlen)sizeof(doublereal));
- do_lio(&c__3, &c__1, (char *)&iaer, (ftnlen)sizeof(integer));
- e_rsle();
-/*< alt_z(num_z-1-i)=total_height+height_z(num_z-i) >*/
- aeroprof_1.alt_z__[aeroprof_1.num_z__ - 1 - i__] = total_height__
- + height_z__[aeroprof_1.num_z__ - i__];
-/*< total_height=total_height+height_z(num_z-i) >*/
- total_height__ += height_z__[aeroprof_1.num_z__ - i__];
-/*< taer55=taer55+taer55_z(num_z-i) >*/
- taer55 += aeroprof_1.taer55_z__[aeroprof_1.num_z__ - i__];
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/* the user-defined aerosol profile */
-/*< if (iaer.ge.0.and.iaer.le.7) nquad=nqdef_p >*/
- if (iaer >= 0 && iaer <= 7) {
- num_quad__1.nquad = 83;
- }
-/*< if (iaer.ge.8.and.iaer.le.11) nquad=nquad_p >*/
- if (iaer >= 8 && iaer <= 11) {
- num_quad__1.nquad = 83;
- }
-/*< if(iaer.eq.4) read(iread,*) (c(n),n=1,4) >*/
- if (iaer == 4) {
- io___62.ciunit = iread;
- s_rsle(&io___62);
- for (n = 1; n <= 4; ++n) {
- do_lio(&c__5, &c__1, (char *)&c__[n - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
- }
-/*< goto(49,40,41,42,49,49,49,49,43,44,45,46,47),iaer+1 >*/
- switch (iaer + 1) {
- case 1: goto L49;
- case 2: goto L40;
- case 3: goto L41;
- case 4: goto L42;
- case 5: goto L49;
- case 6: goto L49;
- case 7: goto L49;
- case 8: goto L49;
- case 9: goto L43;
- case 10: goto L44;
- case 11: goto L45;
- case 12: goto L46;
- case 13: goto L47;
- }
-/*< 40 c(1)=0.70 >*/
-L40:
- c__[0] = .7;
-/*< c(2)=0.29 >*/
- c__[1] = .29;
-/*< c(3)=0.00 >*/
- c__[2] = 0.;
-/*< c(4)=0.01 >*/
- c__[3] = .01;
-/*< go to 49 >*/
- goto L49;
-/*< 41 c(1)=0.00 >*/
-L41:
- c__[0] = 0.;
-/*< c(2)=0.05 >*/
- c__[1] = .05;
-/*< c(3)=0.95 >*/
- c__[2] = .95;
-/*< c(4)=0.00 >*/
- c__[3] = 0.;
-/*< go to 49 >*/
- goto L49;
-/*< 42 c(1)=0.17 >*/
-L42:
- c__[0] = .17;
-/*< c(2)=0.61 >*/
- c__[1] = .61;
-/*< c(3)=0.00 >*/
- c__[2] = 0.;
-/*< c(4)=0.22 >*/
- c__[3] = .22;
-/*< go to 49 >*/
- goto L49;
-/*< 43 read(iread,*) rmin,rmax,icp >*/
-L43:
- io___65.ciunit = iread;
- s_rsle(&io___65);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rmin, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rmax, (ftnlen)sizeof(doublereal));
- do_lio(&c__3, &c__1, (char *)&mie_in__1.icp, (ftnlen)sizeof(integer));
- e_rsle();
-/*< do i=1,icp >*/
- i__1 = mie_in__1.icp;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< read(5,*)x1(i),x2(i),cij(i) >*/
- s_rsle(&io___66);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.x1[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_lio(&c__5, &c__1, (char *)&mie_in__1.x2[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_lio(&c__5, &c__1, (char *)&mie_in__1.cij[i__ - 1], (ftnlen)sizeof(
- doublereal));
- e_rsle();
-/*< read(5,*)(rn(l,i),l=1,20) >*/
- s_rsle(&io___67);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rn[l + i__ * 20 - 21], (
- ftnlen)sizeof(doublereal));
- }
- e_rsle();
-/*< read(5,*)(ri(l,i),l=1,20) >*/
- s_rsle(&io___68);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.ri[l + i__ * 20 - 21], (
- ftnlen)sizeof(doublereal));
- }
- e_rsle();
-/*< enddo >*/
- }
-/*< do i=1,icp >*/
- i__1 = mie_in__1.icp;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< cij_out(i)=cij(i) >*/
- cij_out__[i__ - 1] = mie_in__1.cij[i__ - 1];
-/*< enddo >*/
- }
-/*< go to 49 >*/
- goto L49;
-/*< 44 read(iread,*) rmin,rmax >*/
-L44:
- io___70.ciunit = iread;
- s_rsle(&io___70);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rmin, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rmax, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< read(iread,*) x1(1),x2(1),x3(1) >*/
- io___71.ciunit = iread;
- s_rsle(&io___71);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.x1[0], (ftnlen)sizeof(doublereal))
- ;
- do_lio(&c__5, &c__1, (char *)&mie_in__1.x2[0], (ftnlen)sizeof(doublereal))
- ;
- do_lio(&c__5, &c__1, (char *)&mie_in__1.x3[0], (ftnlen)sizeof(doublereal))
- ;
- e_rsle();
-/*< read(5,*)(rn(l,1),l=1,20) >*/
- s_rsle(&io___72);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rn[l - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< read(5,*)(ri(l,1),l=1,20) >*/
- s_rsle(&io___73);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.ri[l - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< go to 49 >*/
- goto L49;
-/*< 45 read(iread,*) rmin,rmax >*/
-L45:
- io___74.ciunit = iread;
- s_rsle(&io___74);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rmin, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rmax, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< read(iread,*) x1(1) >*/
- io___75.ciunit = iread;
- s_rsle(&io___75);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.x1[0], (ftnlen)sizeof(doublereal))
- ;
- e_rsle();
-/*< read(5,*)(rn(l,1),l=1,20) >*/
- s_rsle(&io___76);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rn[l - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< read(5,*)(ri(l,1),l=1,20) >*/
- s_rsle(&io___77);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.ri[l - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< go to 49 >*/
- goto L49;
-/*< 46 read(5,*)irsunph >*/
-L46:
- s_rsle(&io___78);
- do_lio(&c__3, &c__1, (char *)&mie_in__1.irsunph, (ftnlen)sizeof(integer));
- e_rsle();
-/*< do i=1,irsunph >*/
- i__1 = mie_in__1.irsunph;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< read(5,*)rsunph(i),nrsunph(i) >*/
- s_rsle(&io___79);
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rsunph[i__ - 1], (ftnlen)
- sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&mie_in__1.nrsunph[i__ - 1], (ftnlen)
- sizeof(doublereal));
- e_rsle();
-/* nrsunph(i)=nrsunph(i)/(rsunph(i)**4.)/(4*3.1415/3) */
-/*< enddo >*/
- }
-/*< rmin=rsunph(1) >*/
- mie_in__1.rmin = mie_in__1.rsunph[0];
-/*< rmax=rsunph(irsunph)+1e-07 >*/
- mie_in__1.rmax = mie_in__1.rsunph[mie_in__1.irsunph - 1] + 1e-7;
-/*< read(5,*)(rn(l,1),l=1,20) >*/
- s_rsle(&io___80);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.rn[l - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< read(5,*)(ri(l,1),l=1,20) >*/
- s_rsle(&io___81);
- for (l = 1; l <= 20; ++l) {
- do_lio(&c__5, &c__1, (char *)&mie_in__1.ri[l - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_rsle();
-/*< go to 49 >*/
- goto L49;
-/*< 47 read(5,'(A80)')FILE2 >*/
-L47:
- ci__1.cierr = 0;
- ci__1.ciend = 0;
- ci__1.ciunit = 5;
- ci__1.cifmt = "(A80)";
- s_rsfe(&ci__1);
- do_fio(&c__1, file2, 80L);
- e_rsfe();
-/*< i2=index(FILE2,' ')-1 >*/
- i2 = i_indx(file2, " ", 80L, 1L) - 1;
-/*< go to 49 >*/
- goto L49;
-/*< 49 continue >*/
-L49:
-/*< if (iaer.ge.8.and.iaer.le.11)then >*/
- if (iaer >= 8 && iaer <= 11) {
-/*< read(5,*)iaerp >*/
- s_rsle(&io___83);
- do_lio(&c__3, &c__1, (char *)&iaerp, (ftnlen)sizeof(integer));
- e_rsle();
-/*< if (iaerp.eq.1)read(5,'(A80)')FILE >*/
- if (iaerp == 1) {
- ci__1.cierr = 0;
- ci__1.ciend = 0;
- ci__1.ciunit = 5;
- ci__1.cifmt = "(A80)";
- s_rsfe(&ci__1);
- do_fio(&c__1, file, 80L);
- e_rsfe();
- }
-/*< i1=index(FILE,' ')-1 >*/
- i1 = i_indx(file, " ", 80L, 1L) - 1;
-/*< FILE2=FILE(1:I1)//'.mie' >*/
-/* Writing concatenation */
- i__2[0] = i1, a__1[0] = file;
- i__2[1] = 4, a__1[1] = ".mie";
- s_cat(file2, a__1, i__2, &c__2, 80L);
-/*< i2=index(FILE2,' ')-1 >*/
- i2 = i_indx(file2, " ", 80L, 1L) - 1;
-/*< endif >*/
- }
-/*< call aeroso(iaer,c,xmud,wldis,FILE2,ipol) >*/
- aeroso_(&iaer, c__, &xmud, sixs_disc__1.wldis, file2, &ipol, 80L);
-/* **********************************************************************c
- */
-/* aerosol model (concentration) c
-*/
-/* ---------------------------- c
-*/
-/* (only for the default exponential profile) c
-*/
-/* c
-*/
-/* v if you have an estimate of the meteorological c
-*/
-/* parameter: the visibility v, enter directly the c
-*/
-/* value of v in km (the aerosol optical depth will c
-*/
-/* be computed from a standard aerosol profile) c
-*/
-/* c
-*/
-/* v=0, taer55 if you have an estimate of aerosol optical depth , c
-*/
-/* enter v=0 for the visibility and enter the aerosol c
-*/
-/* optical depth at 550 c
-*/
-/* c
-*/
-/* v=-1 warning: if iaer=0, enter v=-1 c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* _otb_adaptation Beginning: v=0 and taer55 become argument values */
-/* _otb if (iaer_prof.eq.0) then */
-/* _otb read(iread,*) v */
-/* _otb if(v) 71,10,11 */
-/* _otb 10 read(iread,*) taer55 */
-/* _otb v=exp(-log(taer55/2.7628)/0.79902) */
-/* _otb goto 71 */
-/* _otb 11 call oda550(iaer,v,taer55) */
-/* _otb 71 continue */
-/* _otb endif */
-/*< v=0. !Added_for_OTB >*/
- v = 0.;
-/*< taer55 = otb_taer55 !Added_for_OTB >*/
- taer55 = *otb_taer55__;
-/* _otb_adaptation End : v=0 and taer55 become argument values */
-/* **********************************************************************c
- */
-/* xps is the parameter to express the altitude of target c
-*/
-/* c
-*/
-/* c
-*/
-/* xps >=0. means the target is at the sea level c
-*/
-/* c
-*/
-/* xps <0. means you know the altitude of the target c
-*/
-/* expressed in km and you put that value as xps c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* _otb_adaptation Beginning: xps=0 Target at sea level */
-/* _otb 771 read(iread,*) xps */
-/*< xps=0. !Added_for_OTB >*/
- xps = 0.;
-/* _otb_adaptation End : xps=0 Target at sea level */
-/*< if (xps.ge.0.) then >*/
- if (xps >= 0.) {
-/*< xps=0. >*/
- xps = 0.;
-/*< uwus=1.424 >*/
- uwus = 1.424;
-/*< uo3us=0.344 >*/
- uo3us = .344;
-/*< else >*/
- } else {
-/*< if (idatm.ne.8) then >*/
- if (idatm != 8) {
-/*< call pressure(uw,uo3,xps) >*/
- pressure_(&uw, &uo3, &xps);
-/*< else >*/
- } else {
-/*< call pressure(uwus,uo3us,xps) >*/
- pressure_(&uwus, &uo3us, &xps);
-/*< endif >*/
- }
-/*< endif >*/
- }
-/* **********************************************************************c
- */
-/* c
-*/
-/* xpp is the parameter to express the sensor altitude c
-*/
-/* c
-*/
-/* c
-*/
-/* xpp= -1000 means that the sensor is a board a satellite c
-*/
-/* xpp= 0 means that the sensor is at the ground level c
-*/
-/* c
-*/
-/* c
-*/
-/* for aircraft simulations c
-*/
-/* -100< xpp <0 means you know the altitude of the sensor expressed c
-*/
-/* in kilometers units c */
-/* this altitude is relative to the target altitude c
-*/
-/* c
-*/
-/* for aircraft simulations only, you have to give c
-*/
-/* puw,po3 (water vapor content,ozone content between the c */
-/* aircraft and the surface) c
-*/
-/* taerp (the aerosol optical thickness at 550nm between the c */
-/* aircraft and the surface) c
-*/
-/* if these data are not available, enter negative values for all c
-*/
-/* of them, puw,po3 will then be interpolated from the us62 standard c
-*/
-/* profile according to the values at ground level. Taerp will be c
-*/
-/* computed according to a 2km exponential profile for aerosol. c
-*/
-/* **********************************************************************c
- */
-/* _otb_adaptation Beginning: xpp=-1000 sensor aboard a satellite */
-/* _otb read(iread,*) xpp */
-/*< xpp=-1000. !Added_for_OTB >*/
- xpp = -1e3;
-/* _otb_adaptation End : xpp=-1000 sensor aboard a satellite */
-/*< xpp=-xpp >*/
- xpp = -xpp;
-/*< if (xpp.le.0.0) then >*/
- if (xpp <= 0.) {
-/* ground measurement option */
-/*< palt=0. >*/
- palt = 0.;
-/*< pps=p(1) >*/
- pps = sixs_atm__1.p[0];
-/*< idatmp=0 >*/
- idatmp = 0;
-/*< taer55p=0. >*/
- taer55p = 0.;
-/*< puw=0. >*/
- puw = 0.;
-/*< puoz=0. >*/
- puoz = 0.;
-/*< else >*/
- } else {
-/*< if (xpp.ge.100.) then >*/
- if (xpp >= 100.) {
-/* satellite case of equivalent */
-/*< palt=1000. >*/
- palt = 1e3;
-/*< pps=0. >*/
- pps = 0.;
-/*< taer55p=taer55 >*/
- taer55p = taer55;
-/*< ftray=1. >*/
- ftray = 1.;
-/*< idatmp=4 >*/
- idatmp = 4;
-/*< else >*/
- } else {
-/* "real" plane case */
-/*< read(iread,*) puw,puo3 >*/
- io___98.ciunit = iread;
- s_rsle(&io___98);
- do_lio(&c__5, &c__1, (char *)&puw, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&puo3, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< if (puw.lt.0.) then >*/
- if (puw < 0.) {
-/*< call presplane(puw,puo3,xpp,ftray) >*/
- presplane_(&puw, &puo3, &xpp, &ftray);
-/*< idatmp=2 >*/
- idatmp = 2;
-/*< if (idatm.eq.8) then >*/
- if (idatm == 8) {
-/*< puwus=puw >*/
- puwus = puw;
-/*< puo3us=puo3 >*/
- puo3us = puo3;
-/*< puw=puw*uw/uwus >*/
- puw = puw * uw / uwus;
-/*< puo3=puo3*uo3/uo3us >*/
- puo3 = puo3 * uo3 / uo3us;
-/*< idatmp=8 >*/
- idatmp = 8;
-/*< endif >*/
- }
-/*< else >*/
- } else {
-/*< call presplane(puwus,puo3us,xpp,ftray) >*/
- presplane_(&puwus, &puo3us, &xpp, &ftray);
-/*< idatmp=8 >*/
- idatmp = 8;
-/*< endif >*/
- }
-/*< if(ier) stop >*/
- if (sixs_ier__1.ier) {
- s_stop("", 0L);
- }
-/*< palt=zpl(34)-z(1) >*/
- palt = sixs_planesim__1.zpl[33] - sixs_atm__1.z__[0];
-/*< pps=ppl(34) >*/
- pps = sixs_planesim__1.ppl[33];
-/*< read(iread,*) taer55p >*/
- io___102.ciunit = iread;
- s_rsle(&io___102);
- do_lio(&c__5, &c__1, (char *)&taer55p, (ftnlen)sizeof(doublereal))
- ;
- e_rsle();
-/*< if ((taer55p.lt.0.).or.((taer55-taer55p).lt.accu2)) then >*/
- if (taer55p < 0. || taer55 - taer55p < accu2) {
-/* a scale heigh of 2km is assumed in case no value is given f
-or taer55p */
-/*< taer55p=taer55*(1.-exp(-palt/2.)) >*/
- taer55p = taer55 * (1. - exp(-palt / 2.));
-/*< else >*/
- } else {
-/* compute effective scale heigh */
-/*< sham=exp(-palt/4.) >*/
- sham = exp(-palt / 4.);
-/*< sha=1.-(taer55p/taer55) >*/
- sha = 1. - taer55p / taer55;
-/*< if (sha.ge.sham) then >*/
- if (sha >= sham) {
-/*< taer55p=taer55*(1.-exp(-palt/4.)) >*/
- taer55p = taer55 * (1. - exp(-palt / 4.));
-/*< else >*/
- } else {
-/*< sha=-palt/log(sha) >*/
- sha = -palt / log(sha);
-/*< taer55p=taer55*(1.-exp(-palt/sha)) >*/
- taer55p = taer55 * (1. - exp(-palt / sha));
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< endif >*/
- }
-/* **********************************************************************c
- */
-/* 37 3rd " ( 0.8300-0.9125) c
-*/
-/* 38 4th " ( 0.9000-0.9975) c
-*/
-/* 39 5th " ( 1.8200-1.9575) c
-*/
-/* 40 6th " ( 2.0950-2.1925) c
-*/
-/* 41 7th " ( 3.5800-3.8700) c
-*/
-/* 42 MODIS band 1 ( 0.6100-0.6850) c
-*/
-/* 43 MODIS band 2 ( 0.8200-0.9025) c
-*/
-/* 44 MODIS band 3 ( 0.4500-0.4825) c
-*/
-/* 45 MODIS band 4 ( 0.5400-0.5700) c
-*/
-/* 46 MODIS band 5 ( 1.2150-1.2700) c
-*/
-/* 47 MODIS band 6 ( 1.6000-1.6650) c
-*/
-/* 48 MODIS band 7 ( 2.0575-2.1825) c
-*/
-/* 49 MODIS band 8 ( 0.4025-0.4225) c
-*/
-/* 50 1st band of avhrr(noaa12 ( 0.500-1.000 ) c
-*/
-/* 51 2nd " ( 0.650-1.120 ) c
-*/
-/* 52 1st band of avhrr(noaa14 ( 0.500-1.110 ) c
-*/
-/* 53 2nd " ( 0.680-1.100 ) c
-*/
-/* 54 POLDER band 1 ( 0.4125-0.4775) c
-*/
-/* 55 POLDER band 2 (non polar( 0.4100-0.5225) c
-*/
-/* 56 POLDER band 3 (non polar( 0.5325-0.5950) c
-*/
-/* 57 POLDER band 4 P1 ( 0.6300-0.7025) c
-*/
-/* 58 POLDER band 5 (non polar( 0.7450-0.7800) c
-*/
-/* 59 POLDER band 6 (non polar( 0.7000-0.8300) c
-*/
-/* 60 POLDER band 7 P1 ( 0.8100-0.9200) c
-*/
-/* 61 POLDER band 8 (non polar( 0.8650-0.9400) c
-*/
-/* 62 SEAWIFS band 1 ( 0.3825-0.70) c
-*/
-/* 63 SEAWIFS band 2 ( 0.3800-0.58) c
-*/
-/* 64 SEAWIFS band 3 ( 0.3800-1.02) c
-*/
-/* 65 SEAWIFS band 4 ( 0.3800-1.02) c
-*/
-/* 66 SEAWIFS band 5 ( 0.3825-1.15) c
-*/
-/* 67 SEAWIFS band 6 ( 0.3825-1.05) c
-*/
-/* 68 SEAWIFS band 7 ( 0.3800-1.15) c
-*/
-/* 69 SEAWIFS band 8 ( 0.3800-1.15) c
-*/
-/* 70 AATSR band 1 ( 0.5250-0.5925) c
-*/
-/* 71 AATSR band 2 ( 0.6275-0.6975) c
-*/
-/* 72 AATSR band 3 ( 0.8325-0.9025) c
-*/
-/* 73 AATSR band 4 ( 1.4475-1.7775) c
-*/
-/* 74 MERIS band 1 ( 0.412) c
-*/
-/* 75 MERIS band 2 ( 0.442) c
-*/
-/* 76 MERIS band 3 ( 0.489) c
-*/
-/* 77 MERIS band 4 ( 0.509) c
-*/
-/* 78 MERIS band 5 ( 0.559) c
-*/
-/* 79 MERIS band 6 ( 0.619) c
-*/
-/* 93 GLI band 5 (0.460-1km) c
-*/
-/* 94 GLI band 6 (0.490-1km) c
-*/
-/* 95 GLI band 7 (0.520-1km) c
-*/
-/* 96 GLI band 8 (0.545-1km) c
-*/
-/* 97 GLI band 9 (0.565-1km) c
-*/
-/* 98 GLI band 10 (0.625-1km) c
-*/
-/* 99 GLI band 11 (0.666-1km) c
-*/
-/* 100 GLI band 12 (0.680-1km) c
-*/
-/* 101 GLI band 13 (0.678-1km) c
-*/
-/* 102 GLI band 14 (0.710-1km) c
-*/
-/* 103 GLI band 15 (0.710-1km) (bis?) c
-*/
-/* 104 GLI band 16 (0.749-1km) c
-*/
-/* 105 GLI band 17 (0.763-1km) c
-*/
-/* 106 GLI band 18 (0.865-1km) c
-*/
-/* 107 GLI band 19 (0.865-1km) (bis?) c
-*/
-/* 108 GLI band 20 (0.460-0.25km) c
-*/
-/* 109 GLI band 21 (0.545-0.25km) c
-*/
-/* 110 GLI band 22 (0.660-0.25km) c
-*/
-/* 111 GLI band 23 (0.825-0.25km) c
-*/
-/* 112 GLI band 24 (1.050-1km) c
-*/
-/* 113 GLI band 25 (1.135-1km) c
-*/
-/* 114 GLI band 26 (1.240-1km) c
-*/
-/* 115 GLI band 27 (1.338-1km) c
-*/
-/* 116 GLI band 28 (1.640-1km) c
-*/
-/* 117 GLI band 29 (2.210-1km) c
-*/
-/* 118 GLI band 30 (3.715-1km) c
-*/
-/* note: wl has to be in micrometer c
-*/
-/* **********************************************************************c
- */
-/*_otb_adaptation Beginning: iwave=1 and wlinf, wlsup, s(l) become input a
-rguments*/
-/* _otb do 38 l=iinf,isup */
-/* _otb s(l)=1. */
-/* _otb 38 continue */
-/* _otb read(iread,*) iwave */
-/* _otb if (iwave.eq.-2) goto 1600 */
-/* _otb if (iwave) 16,17,18 */
-/* _otb 16 read(iread,*) wl */
-/* _otb wlinf=wl */
-/* _otb wlsup=wl */
-/* _otb go to 19 */
-/* _otb 17 read(iread,*) wlinf,wlsup */
-/* _otb go to 19 */
-/* _otb 1600 read(iread,*) wlinf,wlsup */
-/* _otb go to 19 */
-/* 110 */
-/* 111 band of meteosat (2) */
-/* 112 band of goes east (3,4) */
-/* 114 band of avhr (5,16) */
-/* 118 band of hrv1 (17,24) */
-/* 121 band of tm (25,30) */
-/* 127 band of mss (31,34) */
-/* 128 band of MAS (35,41) */
-/* 129 MODIS band (42,49) */
-/* 130 band of avhrr (50,53) */
-/* 131 POLDER band (54,61) */
-/* 113 SEAWIFS band (62,69) */
-/* 150 AATSR band (70,73) */
-/* 151 MERIS band (74,88) */
-/* 152 GLI band (89,118) */
-/* _otb 18 goto (110, */
-/* _otb s 111, */
-/* _otb s 112,112, */
-/* _otb s 114,114,114,114,114,114,114,114,114,114,114,114, */
-/* _otb s 118,118,118,118,118,118,118,118, */
-/* _otb s 121,121,121,121,121,121, */
-/* _otb s 127,127,127,127, */
-/* _otb s 128,128,128,128,128,128,128, */
-/* _otb s 129,129,129,129,129,129,129,129, */
-/* _otb s 130,130,130,130, */
-/* _otb s 131,131,131,131,131,131,131,131, */
-/* _otb s 113,113,113,113,113,113,113,113, */
-/* _otb s 150,150,150,150, */
-/* _otb s 151,151,151,151,151,151,151,151, */
-/* _otb s 151,151,151,151,151,151,151, */
-/* _otb s 152,152,152,152,152,152,152,152,152,152, */
-/* _otb s 152,152,152,152,152,152,152,152,152,152, */
-/* _otb s 152,152,152,152,152,152,152,152,152,152 */
-/* _otb s ),iwave */
-/* _otb 110 read(iread,*) wlinf,wlsup */
-/* _otb iinf=(wlinf-.25)/0.0025+1.5 */
-/* _otb isup=(wlsup-.25)/0.0025+1.5 */
-/* _otb do 1113 ik=iinf,isup */
-/* _otb s(ik)=0. */
-/* _otb 1113 continue */
-/* _otb read(iread,*) (s(i),i=iinf,isup) */
-/* _otb goto 20 */
-/* _otb 111 call meteo */
-/* _otb go to 19 */
-/* _otb 112 call goes(iwave-2) */
-/* _otb go to 19 */
-/* _otb 114 call avhrr(iwave-4) */
-/* _otb go to 19 */
-/* _otb 118 call hrv(iwave-16) */
-/* _otb go to 19 */
-/* _otb 121 call tm(iwave-24) */
-/* _otb go to 19 */
-/* _otb 127 call mss(iwave-30) */
-/* _otb goto 19 */
-/* _otb 128 call mas(iwave-34) */
-/* _otb goto 19 */
-/* _otb 129 call modis(iwave-41) */
-/* _otb goto 19 */
-/* _otb 130 call avhrr(iwave-37) */
-/* _otb goto 19 */
-/* _otb 131 call polder(iwave-53) */
-/* _otb goto 19 */
-/* _otb 113 call seawifs(iwave-61) */
-/* _otb goto 19 */
-/* _otb 150 call aatsr(iwave-69) */
-/* _otb goto 19 */
-/* _otb 151 call meris(iwave-73) */
-/* _otb goto 19 */
-/* _otb 152 call gli(iwave-88) */
-/*< iwave=1 !Added_for_OTB >*/
- iwave = 1;
-/*< wlinf = otb_wlinf !Added_for_OTB >*/
- sixs_ffu__1.wlinf = *otb_wlinf__;
-/*< wlsup = otb_wlsup !Added_for_OTB >*/
- sixs_ffu__1.wlsup = *otb_wlsup__;
-/*< do k=1,1501 !Added_for_OTB >*/
- for (k = 1; k <= 1501; ++k) {
-/*< s(k) = otb_s(k) !Added_for_OTB >*/
- sixs_ffu__1.s[k - 1] = otb_s__[k];
-/*< enddo !Added_for_OTB >*/
- }
-/* _otb_adaptation End : iwave=1 and s(l) becomes an input argument */
-/*< 19 iinf=(wlinf-.25)/0.0025+1.5 >*/
-/* L19: */
- iinf = (integer) ((sixs_ffu__1.wlinf - .25) / .0025 + 1.5);
-/*< isup=(wlsup-.25)/0.0025+1.5 >*/
- isup = (integer) ((sixs_ffu__1.wlsup - .25) / .0025 + 1.5);
-/*< 20 continue >*/
-/* L20: */
-/* ***********************************************************************
- */
-/* LOOK UP TABLE INITIALIZATION */
-/* ***********************************************************************
- */
-/* initialization of look up table variable */
-/* Write(6,*) "TOTO THE HERO" */
-/*< do i=1,mu >*/
- i__1 = mu;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< nfilut(i)=0 >*/
- nfilut[i__ - 1] = 0;
-/*< do j=1,41 >*/
- for (j = 1; j <= 41; ++j) {
-/*< rolut(i,j)=0. >*/
- rolut[i__ + j * 25 - 26] = 0.;
-/*< rolutq(i,j)=0. >*/
- rolutq[i__ + j * 25 - 26] = 0.;
-/*< rolutu(i,j)=0. >*/
- rolutu[i__ + j * 25 - 26] = 0.;
-/*< filut(i,j)=0. >*/
- filut[i__ + j * 25 - 26] = 0.;
-/*< roluti(i,j)=0. >*/
- roluti[i__ + j * 25 - 26] = 0.;
-/*< rolutiq(i,j)=0. >*/
- rolutiq[i__ + j * 25 - 26] = 0.;
-/*< rolutiu(i,j)=0. >*/
- rolutiu[i__ + j * 25 - 26] = 0.;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< xmus=cos(asol*pi/180.) >*/
- xmus = cos(asol * pi / 180.);
-/*< its=acos(xmus)*180.0/pi >*/
- its = acos(xmus) * 180. / pi;
-/* Case standart LUT */
-/*< if (ilut.eq.1) then >*/
- if (ilut == 1) {
-/*< do i=1,mu-1 >*/
- i__1 = mu - 1;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< lutmuv=rm(i) >*/
- lutmuv = rm[i__ + 25];
-/*< luttv=acos(lutmuv)*180./pi >*/
- luttv = acos(lutmuv) * 180. / pi;
-/*< iscama=(180-abs(luttv-its)) >*/
- iscama = 180 - (d__1 = luttv - its, abs(d__1));
-/*< iscami=(180-(luttv+its)) >*/
- iscami = 180 - (luttv + its);
-/*< nbisca=int(0.01+(iscama-iscami)/4.0)+1 >*/
- nbisca = (integer) ((iscama - iscami) / 4. + .01) + 1;
-/*< nfilut(i)=nbisca >*/
- nfilut[i__ - 1] = nbisca;
-/*< filut(i,1)=0.0 >*/
- filut[i__ - 1] = 0.;
-/*< filut(i,nbisca)=180.0 >*/
- filut[i__ + nbisca * 25 - 26] = 180.;
-/*< scaa=iscama >*/
- scaa = iscama;
-/*< do j=2,nfilut(i)-1 >*/
- i__3 = nfilut[i__ - 1] - 1;
- for (j = 2; j <= i__3; ++j) {
-/*< scaa=scaa-4.0 >*/
- scaa += -4.;
-/*< cscaa=cos(scaa*pi/180.) >*/
- cscaa = cos(scaa * pi / 180.);
-/*< >*/
- cfi = -(cscaa + xmus * lutmuv) / (sqrt(1 - xmus * xmus) *
- sqrt(1. - lutmuv * lutmuv));
-/*< filut(i,j)=acos(cfi)*180.0/pi >*/
- filut[i__ + j * 25 - 26] = acos(cfi) * 180. / pi;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/*< i=mu >*/
- i__ = mu;
-/*< lutmuv=cos(avis*pi/180.) >*/
- lutmuv = cos(avis * pi / 180.);
-/*< luttv=acos(lutmuv)*180./pi >*/
- luttv = acos(lutmuv) * 180. / pi;
-/*< iscama=(180-abs(luttv-its)) >*/
- iscama = 180 - (d__1 = luttv - its, abs(d__1));
-/*< iscami=(180-(luttv+its)) >*/
- iscami = 180 - (luttv + its);
-/*< nbisca=int((iscama-iscami)/4)+1 >*/
- nbisca = (integer) ((iscama - iscami) / 4) + 1;
-/*< nfilut(i)=nbisca >*/
- nfilut[i__ - 1] = nbisca;
-/*< filut(i,1)=0.0 >*/
- filut[i__ - 1] = 0.;
-/*< filut(i,nbisca)=180.0 >*/
- filut[i__ + nbisca * 25 - 26] = 180.;
-/*< scaa=iscama >*/
- scaa = iscama;
-/*< do j=2,nfilut(i)-1 >*/
- i__1 = nfilut[i__ - 1] - 1;
- for (j = 2; j <= i__1; ++j) {
-/*< scaa=scaa-4.0 >*/
- scaa += -4.;
-/*< cscaa=cos(scaa*pi/180.) >*/
- cscaa = cos(scaa * pi / 180.);
-/*< >*/
- cfi = -(cscaa + xmus * lutmuv) / (sqrt(1 - xmus * xmus) * sqrt(1.
- - lutmuv * lutmuv));
-/*< filut(i,j)=acos(cfi)*180.0/pi >*/
- filut[i__ + j * 25 - 26] = acos(cfi) * 180. / pi;
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/* END Case standart LUT */
-/* Case LUT for APS */
-/*< if (ilut.eq.3) then >*/
- if (ilut == 3) {
-/*< do i=1,mu-1 >*/
- i__1 = mu - 1;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< nbisca=2 >*/
- nbisca = 2;
-/*< nfilut(i)=nbisca >*/
- nfilut[i__ - 1] = nbisca;
-/*< filut(i,1)=(phi0-phiv) >*/
- filut[i__ - 1] = phi0 - phiv;
-/*< filut(i,nbisca)=(phi0-phiv)+180.0 >*/
- filut[i__ + nbisca * 25 - 26] = phi0 - phiv + 180.;
-/*< enddo >*/
- }
-/*< i=mu >*/
- i__ = mu;
-/*< nbisca=1 >*/
- nbisca = 1;
-/*< nfilut(i)=nbisca >*/
- nfilut[i__ - 1] = nbisca;
-/*< filut(i,1)=(phi0-phiv) >*/
- filut[i__ - 1] = phi0 - phiv;
-/*< endif >*/
- }
-/* END Case LUT for APS */
-/* CCC Check initialization (debug) */
-/*< do i=1,mu >*/
- i__1 = mu;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< lutmuv=rm(i) >*/
- lutmuv = rm[i__ + 25];
-/*< luttv=acos(lutmuv)*180./pi >*/
- luttv = acos(lutmuv) * 180. / pi;
-/*< do j=1,nfilut(i) >*/
- i__3 = nfilut[i__ - 1];
- for (j = 1; j <= i__3; ++j) {
-/*< >*/
- cscaa = -xmus * lutmuv - cos(filut[i__ + j * 25 - 26] * pi / 180.)
- * sqrt(1. - xmus * xmus) * sqrt(1. - lutmuv * lutmuv);
-/*< scaa=acos(cscaa)*180./pi >*/
- scaa = acos(cscaa) * 180. / pi;
-/*< write(6,*) its,luttv,filut(i,j),scaa >*/
- s_wsle(&io___123);
- do_lio(&c__5, &c__1, (char *)&its, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&luttv, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&filut[i__ + j * 25 - 26], (ftnlen)
- sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&scaa, (ftnlen)sizeof(doublereal));
- e_wsle();
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* CCC Check initialization (debug) */
-/* ***********************************************************************
- */
-/* END LOOK UP TABLE INITIALIZATION */
-/* ***********************************************************************
- */
-/* **********************************************************************c
- */
-/* here, we first compute an equivalent wavelenght which is the input c
-*/
-/* value for monochromatic conditions or the integrated value for a c
-*/
-/* filter functionr (call equivwl) then, the atmospheric properties are c
-*/
-/* computed for that wavelength (call discom then call specinterp) c
-*/
-/* molecular optical thickness is computed too (call odrayl). lastly c
-*/
-/* the successive order of scattering code is called three times. c
-*/
-/* first for a sun at thetas with the scattering properties of aerosols c
-*/
-/* and molecules, second with a pure molecular atmosphere, then with thec
-*/
-/* actual atmosphere for a sun at thetav. the iso code allows us to c
-*/
-/* compute the scattering transmissions and the spherical albedo. all c
-*/
-/* these computations are performed for checking the accuracy of the c
-*/
-/* analytical expressions and in addition for computing the averaged c
-*/
-/* directional reflectances c
-*/
-/* **********************************************************************c
- */
-/*< if(iwave.ne.-1) then >*/
- if (iwave != -1) {
-/*< >*/
- equivwl_(&iinf, &isup, &step, &wlmoy);
-/*< else >*/
- } else {
-/*< wlmoy=wl >*/
- wlmoy = wl;
-/*< endif >*/
- }
-/*< >*/
- discom_(&idatmp, &iaer, &iaer_prof__, &xmus, &xmuv, &phi, &taer55, &
- taer55p, &palt, &phirad, &nt, &mu, &np, rm, gb, rp, &ftray, &ipol,
- xlm1, xlm2, roatm_fi__, &nfi, nfilut, filut, roluts, rolutsq,
- rolutsu);
-/*< if(iaer.ne.0) then >*/
- if (iaer != 0) {
-/*< >*/
- specinterp_(&wlmoy, &taer55, &taer55p, &tamoy, &tamoyp, &pizmoy, &
- pizmoyp, &ipol);
-/*< endif >*/
- }
-/*< >*/
- odrayl_(&wlmoy, &trmoy);
-/*< trmoyp=trmoy*ftray >*/
- trmoyp = trmoy * ftray;
-/*< if (idatmp.eq.4) then >*/
- if (idatmp == 4) {
-/*< trmoyp=trmoy >*/
- trmoyp = trmoy;
-/*< tamoyp=tamoy >*/
- tamoyp = tamoy;
-/*< endif >*/
- }
-/*< if (idatmp.eq.0) then >*/
- if (idatmp == 0) {
-/*< trmoyp=0. >*/
- trmoyp = 0.;
-/*< tamoyp=0. >*/
- tamoyp = 0.;
-/*< endif >*/
- }
-/* *********************************************************************c
-*/
-/* inhomo ground reflectance (type) c
-*/
-/* ------------------ c
-*/
-/* c
-*/
-/* you consider an homogeneous surface: c
-*/
-/* enter - inhomo=0 c
-*/
-/* you may consider directional surface effects c
-*/
-/* idirec=0 (no directional effect) c
-*/
-/* you have to specify the surface reflectance:c
-*/
-/* igroun (see note1) which is uniform and c
-*/
-/* lambertian c
-*/
-/* idirec=1 ( directional effect) c
-*/
-/* you have to specify the brdf of the surface c
-*/
-/* for the actual solar illumination you are c
-*/
-/* considering as well as the brdf for a sun c
-*/
-/* which would be at an angle thetav, in c
-*/
-/* addition you have to give the surface c
-*/
-/* albedo (spherical albedo). you can also c
-*/
-/* select one of the selected model from the c
-*/
-/* --------------------------------------- c
-*/
-/* note1: values of the reflectance selected by igroun,igrou1 or igrou2 c
-*/
-/* may correspond to the following cases, c
-*/
-/* 0 constant value of ro (or roc,or roe) whatever the wavelen c
-*/
-/* gth. you enter this constant value of ro (or roc or roe). c
-*/
-/* -1 you have to enter the value of ro (or roc,or roe) by step c
-*/
-/* of 0.0025 micron from wlinf to wlsup (if you have used thec
-*/
-/* satellite bands,see implicit values for these limits). c
-*/
-/* 1 mean spectral value of green vegetation c
-*/
-/* 2 mean spectral value of clear water c
-*/
-/* 3 mean spectral value of sand c
-*/
-/* 4 mean spectral value of lake water c
-*/
-/* c
-*/
-/* ground reflectance (brdf) c
-*/
-/* ------------------------- c
-*/
-/* note2: values of the directional reflectance is assumed spectrally c
-*/
-/* independent, so you have to specify, the brdf at the c
-*/
-/* wavelength for monochromatic condition of the mean value c
-*/
-/* over the spectral band c
-*/
-/* 0 you have to enter the value of ro for sun at thetas by c
-*/
-/* step of 10 degrees for zenith view angles (from 0 to 80 c
-*/
-/* and the value for 85) and by step of 30 degrees for c
-*/
-/* azimuth view angles from 0 to 360 degrees, you have to do c
-*/
-/* same for a sun which would be at thetav. in addition, the c
-*/
-/* spherical albedo of the surface has to be specified ,as c
-*/
-/* well as the observed reflectance in the selected geometry c
-*/
-/* rodir(sun zenith,view zenith, relative azimuth). c */
-/* c */
-/* you also may select one of the following models c
-*/
-/* 1 hapke model c
-*/
-/* the parameters are: om,af,s0,h c
-*/
-/* om= albedo c
-*/
-/* af=assymetry parameter for the phase function c
-*/
-/* s0=amplitude of hot spot c
-*/
-/* h=width of the hot spot c
-*/
-/* c
-*/
-/* 2 verstraete et al. model c
-*/
-/* the parameters are: c
-*/
-/* there is three lines of parameters: c
-*/
-/* line 1 (choice of options) c
-*/
-/* line 2 (structural parameters) c
-*/
-/* line 3 (optical parameters) c
-*/
-/* line 1: opt3 opt4 opt5 c
-*/
-/* opt5=0 for single scattering only c
-*/
-/* 1 for dickinson et al. parameterization of c
-*/
-/* multiple scattering c
-*/
-/* line 2: str1 str2 str3 str4 c
-*/
-/* str1='leaf area density', in m2 m-3 c
-*/
-/* str2=radius of the sun flecks on the scatterer (m)c
-*/
-/* str3=leaf orientation parameter: c
-*/
-/* if opt3=0 then str3=kappa1 c
-*/
-/* if opt3=1 or 2 then str3=chil c
-*/
-/* str4=leaf orientation parameter (continued): c
-*/
-/* if opt3=0 then str4=kappa2 c
-*/
-/* if opt3=1 or 2 then str4 is not used c
-*/
-/* line 3: optics1 optics2 optics3 c
-*/
-/* optics1=single scattering albedo, n/d value c
-*/
-/* between 0.0 and 1.0 c
-*/
-/* optics2= phase function parameter: c
-*/
-/* if opt4=0 then this input is not used c
-*/
-/* if opt4=1 then asymmetry factor, n/d value c
-*/
-/* between -1.0and 1.0 c
-*/
-/* if opt4=2 then first coefficient of legendre c
-*/
-/* polynomial c
-*/
-/* optics3=second coefficient of legendre polynomial c
-*/
-/* (if opt4=2) c
-*/
-/* c
-*/
-/* 3 Roujean et al. model c
-*/
-/* the parameters are: k0,k1,k2 c
-*/
-/* k0=albedo. c
-*/
-/* k1=geometric parameter for hot spot effect c
-*/
-/* k2=geometric parameter for hot spot effect c
-*/
-/* c
-*/
-/* 4 walthall et al. model c
-*/
-/* the parameters are: a,ap,b,c c
-*/
-/* a=term in square ts*tv c
-*/
-/* ap=term in square ts*ts+tv*tv c
-*/
-/* b=term in ts*tv*cos(phi) (limacon de pascal) c
-*/
-/* c=albedo c
-*/
-/* c
-*/
-/* 5 minnaert model c
-*/
-/* the parameters are: par1,par2 c
-*/
-/* c
-*/
-/* 6 Ocean c
-*/
-/* the parameter are: pws,phi_wind,xsal,pcl c
-*/
-/* pws=wind speed (in m/s) c
-*/
-/* phi_wind=azim. of the wind (in degres) c
-*/
-/* xsal=salinity (in ppt) xsal=34.3ppt if xsal<0 c
-*/
-/* pcl=pigment concentration (in mg/m3) c
-*/
-/* c
-*/
-/* 7 Iaquinta and Pinty model c
-*/
-/* the parameters are: c
-*/
-/* there is 3 lines of parameters: c
-*/
-/* line 1: choice of option (pild,pihs) c
-*/
-/* line 2: structural parameters (pxLt,pc) c
-*/
-/* line 3: optical parameters (pRl,pTl,pRs) c
-*/
-/* Line 1: pild,pihs c
-*/
-/* pild=1 planophile leaf distribution c
-*/
-/* pild=2 erectophile leaf distribution c
-*/
-/* do 1113 ik=iinf,isup */
-/* _otb s(ik)=0. */
-/* pild=3 plagiophile leaf distribution c
-*/
-/* pild=4 extremophile leaf distribution c
-*/
-/* pild=5 uniform leaf distribution c
-*/
-/* c
-*/
-/* pihs=0 no hot spot c
-*/
-/* pihs=1 hot spot c
-*/
-/* Line 2: pxLt,pc c
-*/
-/* pxLt=Leaf area index [1.,15.] c
-*/
-/* pc=Hot spot parameter: 2*r*Lambda [0.,2.] c
-*/
-/* Line 3: pRl,pTl,pRs c
-*/
-/* pRl=Leaf reflectance [0.,0.99] c
-*/
-/* pTl=Leaf transmitance [0.,0.99] c
-*/
-/* pRs=Soil albedo [0.,0.99] c
-*/
-/* NB: pRl+PTl <0.99 c
-*/
-/* c
-*/
-/* 8 Rahman et al. model c
-*/
-/* the parameters are: rho0,af,xk c
-*/
-/* rho0=Intensity of the reflectance of the surface c
-*/
-/* cover, N/D value greater or equal to 0 c
-*/
-/* af=Asymmetry factor, N/D value between -1.0 and 1.0 c
-*/
-/* xk=Structural parameter of the medium c
-*/
-/* 9 Kuusk's multispectral CR model c
-*/
-/* Reference: c
-*/
-/* Kuusk A. A multispectral canopy reflectance model. c
-*/
-/* Remote Sens. Environ., 1994, 50:75-82 c
-*/
-/* c
-*/
-/* c
-*/
-/* the parameters are: c
-*/
-/* c
-*/
-/* line 1: structural parameters (ul,eps,thm,sl) c
-*/
-/* line 2: optical parameters (cAB,cW,N,cn,s1) c
-*/
-/* c
-*/
-/* ul=LAI [0.1...10] c
-*/
-/* eps,thm - LAD parameters c
-*/
-/* eps [0.0..0.9] thm [0.0..90.0] c
-*/
-/* sl - relative leaf size [0.01..1.0] c
-*/
-/* cAB - chlorophyll content, ug/cm^2 [30] c
-*/
-/* cW - leaf water equivalent thickness [0.01..0.03] c
-*/
-/* N - the effective number of elementary layers c
-*/
-/* inside a leaf [1.225] c
-*/
-/* cn - the ratio of refractive indices of the leaf c
-*/
-/* surface wax and internal material [1.0] c
-*/
-/* s1 - the weight of the 1st Price function for the c
-*/
-/* soil reflectance [0.1..0.8] c
-*/
-/* 10 MODIS operational BDRF c
- */
-/* the parameters are: p1,p2,p3 c
-*/
-/* p1 weight for lambertian kernel c
-*/
-/* p2 weight for Ross Thick kernel c
-*/
-/* p3 weight for Li Sparse kernel c
-*/
-/* **********************************************************************c
- */
-/*< fr=0. >*/
- fr = 0.;
-/*< rad=0. >*/
- rad = 0.;
-/*< do 1116 ik=iinf,isup >*/
- i__1 = isup;
- for (ik = iinf; ik <= i__1; ++ik) {
-/*< rocl(ik)=0. >*/
- rocl[ik - 1] = 0.;
-/*< roel(ik)=0. >*/
- roel[ik - 1] = 0.;
-/*< 1116 continue >*/
-/* L1116: */
- }
-/* **********************************************************************c
- */
-/* uniform or non-uniform surface conditions c
-*/
-/* **********************************************************************c
- */
-/* _otb_adaptation Beginning: inhomo=0 idirec=0 igroun=0 ro=0 */
-/*< inhomo=0 !Added_for_OTB >*/
- inhomo = 0;
-/*< idirec=0 !Added_for_OTB >*/
- idirec = 0;
-/* _otb read(iread,*) inhomo */
-/* _otb if(inhomo) 30,30,31 */
-/* _otb 30 read(iread,*) idirec */
-/* _otb if(idirec)21,21,25 */
-/* **********************************************************************c
- */
-/* uniform conditions with brdf conditions c
-*/
-/* **********************************************************************c
- */
-/* _otb call versalbe(options,optics,struct, */
-/* _otb s albbrdf) */
-/* _otb go to 69 */
-/* _otb endif */
-/* **********************************************************************c
- */
-/* brdf from Roujean et al's model c
-*/
-/* **********************************************************************c
- */
-/* _otb if(ibrdf.eq.3) then */
-/* _otb read(iread,*) par1,par2,par3 */
-/* _otb */
-/* _otb srm(-1)=phirad */
-/* _otb srm(1)=xmuv */
-/* _otb srm(0)=xmus */
-/* _otb call roujbrdf(par1,par2,par3,1,1,srm,srp, */
-/* _otb s sbrdftmp) */
-/* _otb do l=iinf,isup */
-/* _otb sbrdf(l)=sbrdftmp(1,1) */
-/* _otb enddo */
-/* _otb */
-/* _otb rm(-mu)=phirad */
-/* _otb rm(mu)=xmuv */
-/* _otb rm(0)=xmus */
-/* _otb call roujbrdf(par1,par2,par3,mu,np,rm,rp, */
-/* _otb s brdfints) */
-/* _otb rm(-mu)=2.*pi-phirad */
-/* _otb rm(mu)=xmus */
-/* _otb rm(0)=xmuv */
-/* _otb call roujbrdf(par1,par2,par3,mu,np,rm,rp, */
-/* _otb s brdfintv) */
-/* _otb call roujalbe(par1,par2,par3, */
-/* _otb s albbrdf) */
-/* _otb go to 69 */
-/* _otb endif */
-/* **********************************************************************c
- */
-/* brdf from walthall et al's model */
-/* **********************************************************************c
- */
-/* _otb if(ibrdf.eq.4) then */
-/* _otb read(iread,*) par1,par2,par3,par4 */
-/* _otb srm(-1)=phirad */
-/* _otb srm(1)=xmuv */
-/* _otb srm(0)=xmus */
-/* _otb call waltbrdf(par1,par2,par3,par4,1,1,srm,srp, */
-/* _otb s sbrdftmp) */
-/* _otb do l=iinf,isup */
-/* _otb sbrdf(l)=sbrdftmp(1,1) */
-/* _otb enddo */
-/* _otb rm(-mu)=phirad */
-/* _otb rm(mu)=xmuv */
-/* _otb rm(0)=xmus */
-/* _otb call waltbrdf(par1,par2,par3,par4,mu,np,rm,rp, */
-/* _otb s brdfints) */
-/* _otb rm(-mu)=2.*pi-phirad */
-/* _otb rm(mu)=xmus */
-/* _otb rm(0)=xmuv */
-/* _otb call waltbrdf(par1,par2,par3,par4,mu,np,rm,rp, */
-/* _otb s brdfintv) */
-/* _otb call waltalbe(par1,par2,par3,par4, */
-/* _otb s albbrdf) */
-/* _otb go to 69 */
-/* _otb endif */
-/* **********************************************************************c
- */
-/* brdf from minnaert's model c
-*/
-/* **********************************************************************c
- */
-/* _otb if(ibrdf.eq.5) then */
-/* _otb read(iread,*) par1,par2 */
-/* _otb srm(-1)=phirad */
-/* _otb srm(1)=xmuv */
-/* _otb srm(0)=xmus */
-/* _otb call minnbrdf(par1,par2,1,1,srm, */
-/* _otb s sbrdftmp) */
-/* _otb do l=iinf,isup */
-/* _otb sbrdf(l)=sbrdftmp(1,1) */
-/* _otb enddo */
-/* _otb rm(-mu)=phirad */
-/* _otb rm(mu)=xmuv */
-/* _otb rm(0)=xmus */
-/* _otb call minnbrdf(par1,par2,mu,np,rm, */
-/* _otb s brdfints) */
-/* _otb rm(-mu)=2.*pi-phirad */
-/* _otb rm(mu)=xmus */
-/* _otb rm(0)=xmuv */
-/* _otb call minnbrdf(par1,par2,mu,np,rm, */
-/* _otb s brdfintv) */
-/* _otb call minnalbe(par1,par2, */
-/* _otb s albbrdf) */
-/* _otb go to 69 */
-/* _otb endif */
-/* **********************************************************************c
- */
-/* _otb s mu,np,rm,rp, */
-/* _otb s brdfintv) */
-/* _otb call oceaalbe(pws,paw,xsal,pcl,wlmoy, */
-/* _otb s albbrdf) */
-/* _otb go to 69 */
-/* _otb endif */
-
-/* **********************************************************************c
- */
-/* brdf from Iaquinta and Pinty model */
-/* **********************************************************************c
- */
-/* _otb if(ibrdf.eq.7) then */
-/* _otb read(iread,*) pild,pihs */
-/* _otb read(iread,*) pxLt,pc */
-/* _otb read(iread,*) pRl,pTl,pRs */
-/* _otb */
-/* _otb srm(-1)=phirad */
-/* _otb srm(1)=xmuv */
-/* _otb srm(0)=xmus */
-/* _otb call iapibrdf(pild,pxlt,prl,ptl,prs,pihs,pc,1,1,srm,srp, */
-/* _otb s sbrdftmp) */
-/* _otb do l=iinf,isup */
-/* _otb sbrdf(l)=sbrdftmp(1,1) */
-/* _otb enddo */
-/* _otb */
-/* _otb rm(-mu)=phirad */
-/* _otb rm(mu)=xmuv */
-/* _otb rm(0)=xmus */
-/* _otb call iapibrdf(pild,pxlt,prl,ptl,prs,pihs,pc,mu,np,rm,rp, */
-/* _otb s brdfints) */
-/* _otb rm(-mu)=2.*pi-phirad */
-/* _otb rm(mu)=xmus */
-/* _otb rm(0)=xmuv */
-/* _otb call iapibrdf(pild,pxlt,prl,ptl,prs,pihs,pc,mu,np,rm,rp, */
-/* _otb s brdfintv) */
-/* _otb call iapialbe(pild,pxlt,prl,ptl,prs,pihs,pc, */
-/* _otb s albbrdf) */
-/* _otb go to 69 */
-/* _otb endif */
-
-/* **********************************************************************c
- */
-/* brdf from Rahman model */
-/* **********************************************************************c
- */
-/* _otb if(ibrdf.eq.8) then */
-/* _otb read(iread,*) par1,par2,par3 */
-/* _otb srm(-1)=phirad */
-/* _otb srm(1)=xmuv */
-/* _otb srm(0)=xmus */
-/* _otb call rahmbrdf(par1,par2,par3,1,1,srm,srp, */
-/* _otb s sbrdftmp) */
-/* _otb do l=iinf,isup */
-/* _otb sbrdf(l)=sbrdftmp(1,1) */
-/* _otb enddo */
-/* _otb rm(-mu)=phirad */
-/* _otb rm(mu)=xmuv */
-/* _otb rm(0)=xmus */
-/* _otb call rahmbrdf(par1,par2,par3,mu,np,rm,rp, */
-/* _otb s brdfints) */
-/* _otb rm(-mu)=2.*pi-phirad */
-/* _otb rm(mu)=xmus */
-/* _otb rm(0)=xmuv */
-/* _otb call rahmbrdf(par1,par2,par3,mu,np,rm,rp, */
-/* _otb s brdfintv) */
-/* _otb call rahmalbe(par1,par2,par3, */
-/* _otb s albbrdf) */
-/* _otb go to 69 */
-/* _otb endif */
-
-/* **********************************************************************c
- */
-/* brdf from kuusk's msrm model c
-*/
-/* **********************************************************************c
- */
-/* _otb if(ibrdf.eq.9) then */
-/* _otb read(iread,*) uli,eei,thmi,sli */
-/* _otb read(iread,*) cabi,cwi,vaii,rnci,rsl1i */
-/* _otb */
-/* _otb do l=iinf,isup */
-/* _otb srm(-1)=phirad */
-/* _otb srm(1)=xmuv */
-/* _otb srm(0)=xmus */
-/* _otb wl=.25+(l-1)*step */
-/* _otb call akbrdf(eei,thmi,uli,sli,rsl1i,wl,rnci,cabi,cwi,vaii
- */
-/* _otb s ,1,1,srm,srp,sbrdftmp) */
-/* _otb sbrdf(l)=sbrdftmp(1,1) */
-/* _otb enddo */
-/* _otb */
-/* _otb rm(-mu)=phirad */
-/* _otb rm(mu)=xmuv */
-/* _otb rm(0)=xmus */
-/*_otb call akbrdf(eei,thmi,uli,sli,rsl1i,wlmoy,rnci,cabi,cwi,vaii
-*/
-/* _otb & ,mu,np,rm,rp,brdfints) */
-/* _otb rm(-mu)=2.*pi-phirad */
-/* _otb rm(mu)=xmus */
-/* _otb rm(0)=xmuv */
-/*_otb call akbrdf(eei,thmi,uli,sli,rsl1i,wlmoy,rnci,cabi,cwi,vaii
-*/
-/* _otb & ,mu,np,rm,rp,brdfintv) */
-
-/* _otb call akalbe */
-/* _otb* & (eei,thmi,uli,sli,rsl1i,wlmoy,rnci,cabi,cwi,vaii,albbrdf) */
-/* _otb & (albbrdf) */
-/* _otb go to 69 */
-/* _otb endif */
-
-/* **********************************************************************c
- */
-/* brdf from MODIS BRDF model c
-*/
-/* **********************************************************************c
- */
-/* _otb if(ibrdf.eq.10) then */
-/* _otb read(iread,*)p1,p2,p3 */
-/* _otb */
-/* _otb srm(-1)=phirad */
-/* _otb srm(1)=xmuv */
-/* _otb srm(0)=xmus */
-/* _otb call modisbrdf(p1,p2,p3 */
-/* _otb s ,1,1,srm,srp,sbrdftmp) */
-/* _otb do l=iinf,isup */
-/* _otb sbrdf(l)=sbrdftmp(1,1) */
-/* _otb enddo */
-/* _otb */
-/* _otb rm(-mu)=phirad */
-/* _otb rm(mu)=xmuv */
-/* _otb rm(0)=xmus */
-/* _otb call modisbrdf(p1,p2,p3 */
-/* up */
-/* _otb s(ik)=0. */
-/* _otb & ,mu,np,rm,rp,brdfints) */
-/* _otb rm(-mu)=2.*pi-phirad */
-/* _otb rm(mu)=xmus */
-/* _otb rm(0)=xmuv */
-/* _otb call modisbrdf(p1,p2,p3 */
-/* _otb & ,mu,np,rm,rp,brdfintv) */
-
-/* _otb call modisalbe(p1,p2,p3 */
-/* _otb & ,albbrdf) */
-/* _otb go to 69 */
-/* _otb endif */
-
-/* _otb 69 continue */
-/* **********************************************************************c
- */
-/* the downward irradiance was computed for a sun at thetas and c
-*/
-/* several viewing directions (mu zenith times np azimuth). then, the c
-*/
-/* code computes the product of ldown*brdf integrated over the total c
-*/
-/* hemisphere and gives the averaged directional reflectance after the c
-*/
-/* normalization. the resulting reflectance is named robar c
-*/
-/* **********************************************************************c
- */
-/* _otb robar1=0. */
-/* _otb xnorm1=0. */
-/* _otb do 83 j=1,np */
-/* _otb rob=0. */
-/* _otb xnor=0. */
-/* _otb do 84 k=1,mu-1 */
-/* _otb rdown=xlmus(-k,j) */
-/* _otb rdir=brdfintv(k,j) */
-/* _otb rob=rob+rdown*rdir*rm(k)*gb(k) */
-/* _otb xnor=xnor+rdown*rm(k)*gb(k) */
-/* _otb 84 continue */
-/* _otb robar1=robar1+rob*gp(j) */
-/* _otb xnorm1=xnorm1+xnor*gp(j) */
-/* _otb 83 continue */
-/* **********************************************************************c
- */
-/* the downward irradiance was computed for a sun at thetav and c
-*/
-/* several viewing directions (mu zenith times np azimuth). then, the c
-*/
-/* code computes the product of ldown*brdf integrated over the total c
-*/
-/* hemisphere and gives the averaged directional reflectance after the c
-*/
-/* normalization. the resulting reflectance is named robarp c
-*/
-/* **********************************************************************c
- */
-/* _otb robar2=0. */
-/* _otb xnorm2=0. */
-/* _otb do 85 j=1,np */
-/* _otb rob=0. */
-/* _otb xnor=0. */
-/* _otb do 86 k=1,mu-1 */
-/* _otb rdown=xlmuv(-k,j) */
-/* _otb rdir=brdfints(k,j) */
-/* _otb rob=rob+rdown*rdir*rm(k)*gb(k) */
-/* _otb xnor=xnor+rdown*rm(k)*gb(k) */
-/* _otb 86 continue */
-/* _otb robar2=robar2+rob*gp(j) */
-/* _otb xnorm2=xnorm2+xnor*gp(j) */
-/* _otb 85 continue */
-/* robard is assumed equal to albbrdf */
-/* print 301,brdfints(mu,1),robar1,xnorm1, */
-/* s robar2,xnorm2,albbrdf */
-/* print 301,robar1/xnorm1,robar2/xnorm2 */
-/* print 301,betal(0)/3,pizmoy */
-/* 301 format(6(f10.4,2x)) */
-/* 501 format(5(i10,2x)) */
-/* _otb do 335 l=iinf,isup */
-/* _otb rocl(l)=sbrdf(l) */
-/* _otb roel(l)=sbrdf(l) */
-/* _otb robar(l)=robar1/xnorm1 */
-/* _otb if (idatmp.ne.0) then */
-/* _otb robarp(l)=robar2/xnorm2 */
-/* _otb else */
-/* _otb robarp(l)=0. */
-/* _otb xnorm2=1. */
-/* _otb robar2=0. */
-/* _otb endif */
-/* _otb robard(l)=albbrdf */
-/* _otb 335 continue */
-/* _otb go to 34 */
-/* **********************************************************************c
- */
-/* uniform surface with lambertian conditions c
-*/
-/* **********************************************************************c
- */
-/* _otb 21 read(iread,*) igroun */
-/*< igroun=0 !Added_for_OTB >*/
- igroun = 0;
-/* _otb */
-/* _otb if(igroun) 29,32,33 */
-/* _otb */
-/* _otb 29 read(iread,*) nwlinf,nwlsup */
-/* _otb niinf=(nwlinf-.25)/0.0025+1.5 */
-/* _otb nisup=(nwlsup-.25)/0.0025+1.5 */
-/* _otb read(iread,*) (rocl(i),i=niinf,nisup) */
-/* _otb goto 36 */
-/* _otb */
-/* _otb 32 read(iread,*) ro */
-/*< ro=0.0 !Added_for_OTB >*/
- ro = 0.;
-/* _otb */
-/* _otb do 35 l=iinf,isup */
-/* _otb rocl(l)=ro */
-/* _otb 35 continue */
-/* _otb goto 36 */
-/* _otb 33 if(igroun.eq.1) call vegeta(rocl) */
-/* _otb if(igroun.eq.2) call clearw(rocl) */
-/* _otb if(igroun.eq.3) call sand (rocl) */
-/* _otb if(igroun.eq.4) call lakew (rocl) */
-/* _otb 36 do 39 l=iinf,isup */
-/* _otb roel(l)=rocl(l) */
-/* _otb 39 continue */
-/* _otb go to 34 */
-/* **********************************************************************c
- */
-/* non-uniform conditions with lambertian conditions c
-*/
-/* **********************************************************************c
- */
-/* _otb 31 read(iread,*) igrou1,igrou2,rad */
-/* _otb if(igrou1) 59,60,63 */
-/* _otb 59 read(iread,*) (rocl(i),i=iinf,isup) */
-/* _otb goto 61 */
-/* _otb 60 read(iread,*) roc */
-/* _otb do 64 l=iinf,isup */
-/* _otb rocl(l)=roc */
-/* _otb 64 continue */
-/* _otb go to 61 */
-/* _otb 63 if(igrou1.eq.1) call vegeta(rocl) */
-/* _otb if(igrou1.eq.2) call clearw(rocl) */
-/* _otb if(igrou1.eq.3) call sand (rocl) */
-/* _otb if(igrou1.eq.4) call lakew (rocl) */
-/* _otb 61 if(igrou2) 66,62,65 */
-/* _otb 66 read(iread,*) (roel(i),i=iinf,isup) */
-/* _otb goto 34 */
-/* _otb 62 read(iread,*) roe */
-/* _otb do 67 l=iinf,isup */
-/* _otb roel(l)=roe */
-/* _otb 67 continue */
-/* _otb go to 34 */
-/* _otb 65 if(igrou2.eq.1) call vegeta(roel) */
-/* _otb if(igrou2.eq.2) call clearw(roel) */
-/* _otb if(igrou2.eq.3) call sand (roel) */
-/* _otb if(igrou2.eq.4) call lakew (roel) */
-/* _otb 34 continue */
-/* _otb_adaptation End: inhomo=0 idirec=0 igroun=0 ro=0 */
-/* **********************************************************************c
- */
-/* c
-*/
-/* irapp that input parameter allows to activate atmospheric c
-*/
-/* correction mode c
-*/
-/* c
-*/
-/* -1: No atmospheric Correction is performed c */
-/* 0,1: Atmospheric Correction with Lambertian assumption c */
-/* and with the assumption that c
-*/
-/* target BRDF is proportional to the input BRDF (see c */
-/* case idirec=1) c */
-/* c
-*/
-/* rapp parameter that contains the reflectance/radiance c
-*/
-/* to be corrected. c
-*/
-/* c
-*/
-/* if rapp >0. : the code retrieve the value of the c
-*/
-/* surface reflectance (rog) that will produce a radiance c
-*/
-/* equal to rapp [w/m2/str/mic] in the atmospheric c
-*/
-/* conditions described by user before c
-*/
-/* c
-*/
-/* if -1.<rapp<0. : the code retrieve the value of the c
-*/
-/* surface reflectance (rog) value that will produce a c
-*/
-/* 'reflectance' (radiance*pi/(mus*es)) equal to -rapp c
-*/
-/* where mus is the cosine of solar zenith angle, c
-*/
-/* es is the solar constant integrated upon the c
-*/
-/* filter response and taking account for earth-solar c
-*/
-/* distance, es is in [w/m2/sr/mic]. c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*_otb_adaptation Beginning: irapp=-1 & rapp=-10. no atmospheric correctio
-n*/
-/* _otb read(iread,*) irapp */
-/* _otb if (irapp.ge.0) then */
-/* _otb irapp=1 */
-/* _otb read(iread,*) rapp */
-/* _otb endif */
-/*< irapp=-1 !Added_for_OTB (No atm. corrections selected) >*/
- irapp = -1;
-/*< rapp=-10. !Added_for_OTB >*/
- rapp = -10.;
-/* _otb_adaptation End : irapp=-1 & rapp=-10. no atmospheric correction */
-/* **********************************************************************c
- */
-/* c
-*/
-/* Some optional input for polarization c
-*/
-/* c
-*/
-/* you can input polarization definition through irop: c
-*/
-/* 1 enter ropq and ropu (stokes parameter for polarized c
-*/
-/* surface reflectance c
-*/
-/* 2 enter pveg (% vegetation) for use in Nadal,Breon model c
-*/
-/* 3 enter wspd for sunglint polarization (sunglint) c
-*/
-/* anything else will result in assuming than surface does not c
-*/
-/* polarized. c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* ilut=0 */
-/* read(iread,*,end=37) ilut */
-/*< irop=0 >*/
- irop = 0;
-/* _otb read(iread,*,end=37) irop */
-/*< if (irop.eq.1) then >*/
- if (irop == 1) {
-/*< read(iread,*) ropq,ropu >*/
- io___150.ciunit = iread;
- s_rsle(&io___150);
- do_lio(&c__5, &c__1, (char *)&ropq, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&ropu, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< endif >*/
- }
-/*< if (irop.eq.2) then >*/
- if (irop == 2) {
-/*< read(iread,*) pveg >*/
- io___153.ciunit = iread;
- s_rsle(&io___153);
- do_lio(&c__5, &c__1, (char *)&pveg, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< call polnad(asol,avis,phi,pveg,ropq,ropu) >*/
- polnad_(&asol, &avis, &phi, &pveg, &ropq, &ropu);
-/*< endif >*/
- }
-/*< if (irop.eq.3) then >*/
- if (irop == 3) {
-/*< read(iread,*) wspd,azw >*/
- io___155.ciunit = iread;
- s_rsle(&io___155);
- do_lio(&c__5, &c__1, (char *)&wspd, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&azw, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< razw=phi0-azw >*/
- razw = phi0 - azw;
-/*< call polglit(asol,avis,phi,wspd,razw,ropq,ropu) >*/
- polglit_(&asol, &avis, &phi, &wspd, &razw, &ropq, &ropu);
-/*< endif >*/
- }
-/*< 37 if ((irop.lt.1).or.(irop.gt.3)) then >*/
-/* L37: */
- if (irop < 1 || irop > 3) {
-/*< if (idirec.eq.0) then >*/
- if (idirec == 0) {
-/*< ropq=0.000 >*/
- ropq = 0.;
-/*< ropu=0.000 >*/
- ropu = 0.;
-/*< else >*/
- } else {
-/*< if (ibrdf.eq.6) then >*/
- if (ibrdf == 6) {
-/*< irop=3 >*/
- irop = 3;
-/*< wspd=pws >*/
- wspd = pws;
-/*< azw=phi_wind >*/
- azw = phi_wind__;
-/*< razw=phi0-azw >*/
- razw = phi0 - azw;
-/*< phi=phi0-phiv >*/
- phi = phi0 - phiv;
-/*< call polglit(asol,avis,phi,wspd,razw,ropq,ropu) >*/
- polglit_(&asol, &avis, &phi, &wspd, &razw, &ropq, &ropu);
-/*< endif >*/
- }
-/*< if (ibrdf.eq.9) then >*/
- if (ibrdf == 9) {
-/*< irop=2 >*/
- irop = 2;
-/*< pveg=ul >*/
- pveg = ul;
-/*< if (pveg.gt.1.) pveg=1 >*/
- if (pveg > 1.) {
- pveg = 1.;
- }
-/*< call polnad(asol,avis,phi,pveg,ropq,ropu) >*/
- polnad_(&asol, &avis, &phi, &pveg, &ropq, &ropu);
-/*< endif >*/
- }
-/*< endif >*/
- }
-/*< endif >*/
- }
-/* write(6,*) "Surface polarization reflectance, Q,U,rop ", */
-/* s ropq,ropu,sqrt(ropq*ropq+ropu*ropu) */
-/* **********************************************************************c
- */
-/* **********************************************************************c
- */
-/* c
-*/
-/* example of input cards c
-*/
-/* c
-*/
-/* 4 (avhrr observation) c
-*/
-/* 7 6 10.1 600 0.0 10.0 (month,day,htu,cn,longan,han) c
-*/
-/* 8 (user's model) c
-*/
-/* 3.0 0.35 ( uh2o(g/cm2) ,uo3(cm-atm) ) c
-*/
-/* 4 (aerosols model) c
-*/
-/* 0.25 0.25 0.25 0.25 ( % of:dust-like,water-sol,oceanic,soot)c
-*/
-/* 23.0 (visibility (km) ) c
-*/
-/* -0.5 (target at 0.5km high) c
-*/
-/* -1000 (sensor aboard a satellite) c
-*/
-/* 6 (avhrr 2 (noaa 8) band) c
-*/
-/* 1 (ground type,i.e. non homogeneous) c
-*/
-/* 2 1 0.50 (target,env.,radius(km) ) c
-*/
-/* -0.10 (atmospheric correction mode for a TOA c
-*/
-/* reflectance equal to 0.10) c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* **********************************************************************c
- */
-/* print of initial conditions c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* _otb_adaptation Beginning: jump writings */
-/*< goto 8888 !Added_for_OTB >*/
- goto L8888;
-/* _otb_adaptation End : jump writings */
-/* ---- geometrical conditions ---- */
-/*< write(iwr, 98) >*/
- io___163.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___163);
- e_wsfe();
-/*< write(iwr, etiq1(igeom+1)) >*/
- ci__1.cierr = 0;
- ci__1.ciunit = sixs_ier__1.iwr;
- ci__1.cifmt = etiq1 + igeom * 60;
- s_wsfe(&ci__1);
- e_wsfe();
-/*< if(igeom.eq.0) then >*/
- if (igeom == 0) {
-/*< write(iwr, 1401) >*/
- io___164.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___164);
- e_wsfe();
-/*< write(iwr, 103)month,jday >*/
- io___165.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___165);
- do_fio(&c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_fio(&c__1, (char *)&jday, (ftnlen)sizeof(integer));
- e_wsfe();
-/*< endif >*/
- }
-/*< if(igeom.ne.0) write(iwr, 101)month,jday,tu,xlat,xlon >*/
- if (igeom != 0) {
- io___166.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___166);
- do_fio(&c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_fio(&c__1, (char *)&jday, (ftnlen)sizeof(integer));
- do_fio(&c__1, (char *)&tu, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xlat, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xlon, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< write(iwr, 102)asol,phi0 >*/
- io___170.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___170);
- do_fio(&c__1, (char *)&asol, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&phi0, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 1110)avis,phiv,adif,phi >*/
- io___171.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___171);
- do_fio(&c__1, (char *)&avis, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&phiv, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&adif, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&phi, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/* --- atmospheric model ---- */
-/*< write(iwr, 1119) >*/
- io___172.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___172);
- e_wsfe();
-/*< if(idatm-7)226,227,228 >*/
- if ((i__1 = idatm - 7) < 0) {
- goto L226;
- } else if (i__1 == 0) {
- goto L227;
- } else {
- goto L228;
- }
-/*< 228 write(iwr, 1281)uw,uo3 >*/
-L228:
- io___173.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___173);
- do_fio(&c__1, (char *)&uw, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&uo3, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< goto 219 >*/
- goto L219;
-/*< 227 write(iwr, 1272) >*/
-L227:
- io___174.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___174);
- e_wsfe();
-/*< do 229 i=1,34 >*/
- for (i__ = 1; i__ <= 34; ++i__) {
-/*< write(iwr, 1271)z(i),p(i),t(i),wh(i),wo(i) >*/
- io___175.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___175);
- do_fio(&c__1, (char *)&sixs_atm__1.z__[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&sixs_atm__1.p[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&sixs_atm__1.t[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&sixs_atm__1.wh[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&sixs_atm__1.wo[i__ - 1], (ftnlen)sizeof(
- doublereal));
- e_wsfe();
-/*< 229 continue >*/
-/* L229: */
- }
-/*< goto 219 >*/
- goto L219;
-/*< 226 write(iwr, 1261)atmid(idatm+1) >*/
-L226:
- io___176.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___176);
- do_fio(&c__1, atmid + idatm * 51, 51L);
- e_wsfe();
-/* --- aerosols model (type) ---- */
-/*< 219 write(iwr,5550) >*/
-L219:
- io___177.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___177);
- e_wsfe();
-/*< if(iaer.eq.0) then >*/
- if (iaer == 0) {
-/*< write(iwr, 5554) >*/
- io___178.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___178);
- e_wsfe();
-/*< goto 1112 >*/
- goto L1112;
-/*< endif >*/
- }
-/*< if (iaer_prof.eq.1) then >*/
- if (iaer_prof__ == 1) {
-/*< aer_model(1)="Continental" >*/
- s_copy(aer_model__, "Continental", 50L, 11L);
-/*< aer_model(2)=" Maritime" >*/
- s_copy(aer_model__ + 50, " Maritime", 50L, 9L);
-/*< aer_model(3)=" Urban" >*/
- s_copy(aer_model__ + 100, " Urban", 50L, 8L);
-/*< aer_model(4)="user-defined" >*/
- s_copy(aer_model__ + 150, "user-defined", 50L, 12L);
-/*< aer_model(5)=" Desert" >*/
- s_copy(aer_model__ + 200, " Desert", 50L, 8L);
-/*< aer_model(6)="Biomass Burning" >*/
- s_copy(aer_model__ + 250, "Biomass Burning", 50L, 15L);
-/*< aer_model(7)="Stratospheric" >*/
- s_copy(aer_model__ + 300, "Stratospheric", 50L, 13L);
-/*< aer_model(8)="user-defined" >*/
- s_copy(aer_model__ + 350, "user-defined", 50L, 12L);
-/*< aer_model(9)="user-defined" >*/
- s_copy(aer_model__ + 400, "user-defined", 50L, 12L);
-/*< aer_model(10)="user-defined" >*/
- s_copy(aer_model__ + 450, "user-defined", 50L, 12L);
-/*< aer_model(11)="Sun Photometer" >*/
- s_copy(aer_model__ + 500, "Sun Photometer", 50L, 14L);
-/*< aer_model(12)="user-defined" >*/
- s_copy(aer_model__ + 550, "user-defined", 50L, 12L);
-/*< num_z=num_z-1 >*/
- --aeroprof_1.num_z__;
-/*< write(6,5551) num_z >*/
- s_wsfe(&io___180);
- do_fio(&c__1, (char *)&aeroprof_1.num_z__, (ftnlen)sizeof(integer));
- e_wsfe();
-/*< write(6,5552) >*/
- s_wsfe(&io___181);
- e_wsfe();
-/*< do i=1,num_z >*/
- i__1 = aeroprof_1.num_z__;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< >*/
- s_wsfe(&io___182);
- do_fio(&c__1, (char *)&i__, (ftnlen)sizeof(integer));
- do_fio(&c__1, (char *)&height_z__[aeroprof_1.num_z__ + 1 - i__], (
- ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&aeroprof_1.taer55_z__[aeroprof_1.num_z__ +
- 1 - i__], (ftnlen)sizeof(doublereal));
- do_fio(&c__1, aer_model__ + (iaer - 1) * 50, 50L);
- e_wsfe();
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< if (iaer_prof.eq.0) then >*/
- if (iaer_prof__ == 0) {
-/*< aer_model(1)="Continental aerosol model" >*/
- s_copy(aer_model__, "Continental aerosol model", 50L, 25L);
-/*< aer_model(2)="Maritime aerosol model" >*/
- s_copy(aer_model__ + 50, "Maritime aerosol model", 50L, 22L);
-/*< aer_model(3)="Urban aerosol model" >*/
- s_copy(aer_model__ + 100, "Urban aerosol model", 50L, 19L);
-/*< aer_model(5)="Desert aerosol model" >*/
- s_copy(aer_model__ + 200, "Desert aerosol model", 50L, 20L);
-/*< aer_model(6)="Biomass Burning aerosol model" >*/
- s_copy(aer_model__ + 250, "Biomass Burning aerosol model", 50L, 29L);
-/*< aer_model(7)="Stratospheric aerosol model" >*/
- s_copy(aer_model__ + 300, "Stratospheric aerosol model", 50L, 27L);
-/*< aer_model(11)="Sun Photometer aerosol model" >*/
- s_copy(aer_model__ + 500, "Sun Photometer aerosol model", 50L, 28L);
-/*< if (iaer.ge.1.and.iaer.lt.4) write (iwr,132) aer_model(iaer) >*/
- if (iaer >= 1 && iaer < 4) {
- io___183.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___183);
- do_fio(&c__1, aer_model__ + (iaer - 1) * 50, 50L);
- e_wsfe();
- }
-/*< if (iaer.ge.5.and.iaer.le.7) write (iwr,132) aer_model(iaer) >*/
- if (iaer >= 5 && iaer <= 7) {
- io___184.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___184);
- do_fio(&c__1, aer_model__ + (iaer - 1) * 50, 50L);
- e_wsfe();
- }
-/*< if (iaer.eq.11) write(iwr,132) aer_model(iaer) >*/
- if (iaer == 11) {
- io___185.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___185);
- do_fio(&c__1, aer_model__ + (iaer - 1) * 50, 50L);
- e_wsfe();
- }
-/*< endif >*/
- }
-/*< if (iaer.eq.4)write(iwr,133)(c(i),i=1,4) >*/
- if (iaer == 4) {
- io___186.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___186);
- for (i__ = 1; i__ <= 4; ++i__) {
- do_fio(&c__1, (char *)&c__[i__ - 1], (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
- }
-/*< if (iaer.eq.8) then >*/
- if (iaer == 8) {
-/*< write(6,134) icp >*/
- s_wsfe(&io___187);
- do_fio(&c__1, (char *)&mie_in__1.icp, (ftnlen)sizeof(integer));
- e_wsfe();
-/*< do i=1,icp >*/
- i__1 = mie_in__1.icp;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< write(iwr,135)x1(i),x2(i),cij_out(i) >*/
- io___188.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___188);
- do_fio(&c__1, (char *)&mie_in__1.x1[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&mie_in__1.x2[i__ - 1], (ftnlen)sizeof(
- doublereal));
- do_fio(&c__1, (char *)&cij_out__[i__ - 1], (ftnlen)sizeof(
- doublereal));
- e_wsfe();
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/*< if (iaer.eq.9) write(iwr,136)x1(1),x2(1),x3(1) >*/
- if (iaer == 9) {
- io___189.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___189);
- do_fio(&c__1, (char *)&mie_in__1.x1[0], (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&mie_in__1.x2[0], (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&mie_in__1.x3[0], (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if (iaer.eq.10) write(iwr,137)x1(1) >*/
- if (iaer == 10) {
- io___190.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___190);
- do_fio(&c__1, (char *)&mie_in__1.x1[0], (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if (iaerp.eq.1)write(iwr,139)FILE2(1:i2) >*/
- if (iaerp == 1) {
- io___191.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___191);
- do_fio(&c__1, file2, i2);
- e_wsfe();
- }
-/*< if (iaer.eq.12)write(iwr,138)FILE2(1:i2) >*/
- if (iaer == 12) {
- io___192.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___192);
- do_fio(&c__1, file2, i2);
- e_wsfe();
- }
-/* --- aerosol model (concentration) ---- */
-/* --- for the exponential profile ---- */
-/*< if (iaer_prof.eq.0) then >*/
- if (iaer_prof__ == 0) {
-/*< if(abs(v).le.xacc) write(iwr, 140)taer55 >*/
- if (abs(v) <= sixs_test__1.xacc) {
- io___193.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___193);
- do_fio(&c__1, (char *)&taer55, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if(abs(v).gt.xacc) write(iwr, 141)v,taer55 >*/
- if (abs(v) > sixs_test__1.xacc) {
- io___194.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___194);
- do_fio(&c__1, (char *)&v, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&taer55, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< endif >*/
- }
-/*< 1112 write(6,5555) >*/
-L1112:
- s_wsfe(&io___195);
- e_wsfe();
-/* --- spectral condition ---- */
-/*< write(iwr, 148) >*/
- io___196.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___196);
- e_wsfe();
-/*< if(iwave.eq.-2) write(iwr, 1510) nsat(1),wlinf,wlsup >*/
- if (iwave == -2) {
- io___197.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___197);
- do_fio(&c__1, nsat, 17L);
- do_fio(&c__1, (char *)&sixs_ffu__1.wlinf, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sixs_ffu__1.wlsup, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if(iwave.eq.-1) write(iwr, 149) wl >*/
- if (iwave == -1) {
- io___198.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___198);
- do_fio(&c__1, (char *)&wl, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if(iwave.ge.0) write(iwr, 1510) nsat(iwave+1), wlinf,wlsup >*/
- if (iwave >= 0) {
- io___199.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___199);
- do_fio(&c__1, nsat + iwave * 17, 17L);
- do_fio(&c__1, (char *)&sixs_ffu__1.wlinf, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sixs_ffu__1.wlsup, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/* ---- atmospheric polarization requested */
-/*< if (ipol.ne.0)then >*/
- if (ipol != 0) {
-/*< write(iwr, 142) >*/
- io___200.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___200);
- e_wsfe();
-/*< if (irop.eq.1) write(iwr,146) ropq,ropq >*/
- if (irop == 1) {
- io___201.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___201);
- do_fio(&c__1, (char *)&ropq, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&ropq, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if (irop.eq.2) write(iwr,144) pveg*100.0 >*/
- if (irop == 2) {
- io___202.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___202);
- d__1 = pveg * 100.;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< if (irop.eq.3) write(iwr,145) wspd,azw >*/
- if (irop == 3) {
- io___203.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___203);
- do_fio(&c__1, (char *)&wspd, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&azw, (ftnlen)sizeof(doublereal));
- e_wsfe();
- }
-/*< w >*/
- io___204.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___204);
- do_fio(&c__1, (char *)&ropq, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&ropu, (ftnlen)sizeof(doublereal));
- d__1 = sqrt(ropq * ropq + ropu * ropu);
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- d__2 = atan2(ropu, ropq) * 180. / 3.1415927 / 2.;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< endif >*/
- }
-/* _otb_adaptation Beginning: jump writings */
-/*< 8888 continue !Added_for_OTB >*/
-L8888:
-/* _otb_adaptation End : jump writings */
-/* --- ground reflectance (type and spectral variation) ---- */
-/*< if(idirec.eq.0) then >*/
- if (idirec == 0) {
-/*< rocave=0. >*/
- rocave = 0.;
-/*< roeave=0. >*/
- roeave = 0.;
-/*< seb=0. >*/
- seb = 0.;
-/*< do 264 i=iinf,isup >*/
- i__1 = isup;
- for (i__ = iinf; i__ <= i__1; ++i__) {
-/*< sbor=s(i) >*/
- sbor = sixs_ffu__1.s[i__ - 1];
-/*< if(i.eq.iinf.or.i.eq.isup) sbor=sbor*0.5 >*/
- if (i__ == iinf || i__ == isup) {
- sbor *= .5;
- }
-/*< wl=.25+(i-1)*step >*/
- wl = (i__ - 1) * step + .25;
-/*< >*/
- solirr_(&wl, &swl);
-/*< swl=swl*dsol >*/
- swl *= dsol;
-/*< rocave=rocave+rocl(i)*sbor*swl*step >*/
- rocave += rocl[i__ - 1] * sbor * swl * step;
-/*< roeave=roeave+roel(i)*sbor*swl*step >*/
- roeave += roel[i__ - 1] * sbor * swl * step;
-/*< seb=seb+sbor*swl*step >*/
- seb += sbor * swl * step;
-/*< 264 continue >*/
-/* L264: */
- }
-/*< rocave=rocave/seb >*/
- rocave /= seb;
-/*< roeave=roeave/seb >*/
- roeave /= seb;
-/*< isort=0 >*/
- isort = 0;
-/*< ro=rocave >*/
- ro = rocave;
-/*< if(inhomo.eq.0) goto 260 >*/
- if (inhomo == 0) {
- goto L260;
- }
-/*< write(iwr, 169)rad >*/
- io___211.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___211);
- do_fio(&c__1, (char *)&rad, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< igroun=igrou1 >*/
- igroun = igrou1;
-/*< ro=rocave >*/
- ro = rocave;
-/*< write(iwr, 170) >*/
- io___213.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___213);
- e_wsfe();
-/*< goto 261 >*/
- goto L261;
-/*< 262 igroun=igrou2 >*/
-L262:
- igroun = igrou2;
-/*< ro=roeave >*/
- ro = roeave;
-/*< write(iwr, 171) >*/
- io___215.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___215);
- e_wsfe();
-/*< goto 261 >*/
- goto L261;
-/* _otb_adaptation Beginning: jump writings */
-/* _otb 260 write(iwr, 168) */
-/* _otb 261 if (igroun.gt.0)write(iwr, reflec(igroun+3))ro */
-/*< 260 continue !Added_for_OTB >*/
-L260:
-/*< 261 continue !Added_for_OTB >*/
-L261:
-/* _otb_adaptation End : jump writings */
-/* _otb if (igroun.gt.0)goto 158 */
-/* _otb if(igroun.eq.-1) write(iwr, reflec(1))ro */
-/* _otb if(igroun.eq.-1) goto 158 */
-/* _otb if(iwave.eq.-1) write(iwr, reflec(2))ro */
-/* _otb if(iwave.ne.-1) write(iwr, reflec(3))ro */
-/*< 158 isort=isort+1 >*/
-/* L158: */
- ++isort;
-/*< if(inhomo.eq.0) goto 999 >*/
- if (inhomo == 0) {
- goto L999;
- }
-/*< if(isort.eq.2) goto 999 >*/
- if (isort == 2) {
- goto L999;
- }
-/*< goto 262 >*/
- goto L262;
-/*< else >*/
- } else {
-/* _otb write(iwr, 168) */
-/*< if(idirec.eq.1) then >*/
- if (idirec == 1) {
-/*< rocave=0. >*/
- rocave = 0.;
-/*< rfoamave=0. >*/
- rfoamave = 0.;
-/*< rwatave=0. >*/
- rwatave = 0.;
-/*< rglitave=0. >*/
- rglitave = 0.;
-/*< seb=0. >*/
- seb = 0.;
-/*< do i=iinf,isup >*/
- i__1 = isup;
- for (i__ = iinf; i__ <= i__1; ++i__) {
-/*< sbor=s(i) >*/
- sbor = sixs_ffu__1.s[i__ - 1];
-/*< if(i.eq.iinf.or.i.eq.isup) sbor=sbor*0.5 >*/
- if (i__ == iinf || i__ == isup) {
- sbor *= .5;
- }
-/*< wl=.25+(i-1)*step >*/
- wl = (i__ - 1) * step + .25;
-/*< >*/
- solirr_(&wl, &swl);
-/*< swl=swl*dsol >*/
- swl *= dsol;
-/*< rocave=rocave+rocl(i)*sbor*swl*step >*/
- rocave += rocl[i__ - 1] * sbor * swl * step;
-/*< rfoamave=rfoamave+rfoaml(i)*sbor*swl*step >*/
- rfoamave += rfoaml[i__ - 1] * sbor * swl * step;
-/*< rwatave=rwatave+rwatl(i)*sbor*swl*step >*/
- rwatave += rwatl[i__ - 1] * sbor * swl * step;
-/*< rglitave=rglitave+rglitl(i)*sbor*swl*step >*/
- rglitave += rglitl[i__ - 1] * sbor * swl * step;
-/*< seb=seb+sbor*swl*step >*/
- seb += sbor * swl * step;
-/*< enddo >*/
- }
-/*< rocave=rocave/seb >*/
- rocave /= seb;
-/*< rfoamave=rfoamave/seb >*/
- rfoamave /= seb;
-/*< rwatave=rwatave/seb >*/
- rwatave /= seb;
-/*< rglitave=rglitave/seb >*/
- rglitave /= seb;
-/*_otb goto(2000,2001,2002,2003,2004,2005,2006,2007,2008,2
-010,2011)*/
-/* _otb * ,(ibrdf+1) */
-/* _otb 2000 write(iwr, 190) */
-/* _otb write(iwr, 187) */
-/* _otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf */
-/* _otb goto 2009 */
-/* _otb 2001 write(iwr, 191)par1,par2,par3,par4 */
-/* _otb write(iwr, 187) */
-/* _otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf */
-/* _otb goto 2009 */
-/* _otb 2002 write(iwr, 192)optics(1),struct(1),struct(2) */
-/* _otb if (options(5).eq.0) write(iwr, 200) */
-/* _otb if (options(5).eq.1) write(iwr, 201) */
-/* _otb if (options(3).eq.0) write(iwr, 197)struct(3),stru
-ct(4) */
-/* _otb if (options(3).eq.1) write(iwr, 198)struct(3) */
-/* _otb if (options(3).eq.2) write(iwr, 199)struct(3) */
-/* _otb if (options(4).eq.0) write(iwr, 202) */
-/* _otb if (options(4).eq.1) write(iwr, 203)optics(2) */
-/* _otb if (options(4).eq.2) write(iwr, 204)optics(2),opti
-cs(3) */
-/* _otb write(iwr, 187) */
-/* _otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf */
-/* _otb goto 2009 */
-/* _otb 2003 write(iwr, 193)par1,par2,par3 */
-/* _otb write(iwr, 187) */
-/* _otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf */
-/* _otb goto 2009 */
-/* _otb 2004 write(iwr, 194)par1,par2,par3,par4 */
-/* _otb write(iwr, 187) */
-/* _otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf */
-/* _otb goto 2009 */
-/* _otb 2005 write(iwr, 195)par1,par2 */
-/* _otb write(iwr, 187) */
-/* _otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf */
-/* _otb goto 2009 */
-/* _otb 2006 write(iwr, 196)pws,phi_wind,xsal,pcl */
-/* _otb write(iwr,500) rfoamave,rwatave,rglitave */
-/* _otb write(iwr, 187) */
-/* _otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf */
-/* _otb goto 2009 */
-/* _otb 2007 write(iwr, 205) pRl,pTl,pRs,PxLt */
-/* _otb if (pihs.eq.0) then */
-/* _otb write(iwr,207)' no hot spot ' */
-/* _otb else */
-/* _otb write(iwr,208)' hot spot parameter',pc */
-/* _otb endif */
-/*_otb if (pild.eq.1) write(iwr,209) ' planophile leaf d
-istribution'*/
-/*_otb if (pild.eq.2) write(iwr,209) ' erectophile leaf d
-istribution'*/
-/*_otb if (pild.eq.3) write(iwr,209) ' plagiophile leaf d
-istribution'*/
-/*_otb if (pild.eq.4) write(iwr,209) ' extremophile leaf d
-istribution'*/
-/*_otb if (pild.eq.5) write(iwr,209) ' uniform leaf d
-istribution'*/
-/* _otb write(iwr, 187) */
-/* _otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf */
-/* _otb goto 2009 */
-/* _otb 2008 write(iwr, 206) par1,par2,par3 */
-/* _otb goto 2009 */
-/* _otb 2010 write(iwr, 210)uli,eei,thmi,sli,cabi,cwi,vaii,rnci
-,rsl1i */
-/* _otb write(iwr, 187) */
-/* _otb * rocave,robar1/xnorm1,robar2/xnorm2,albbrdf */
-/* _otb goto 2009 */
-/* _otb 2011 write(iwr, 211)p1,p2,p3 */
-/* _otb write(iwr, 187) */
-/* _otb * rocave,robar1/xnorm1,robar2/xnorm2,albbrdf */
-/* _otb goto 2009 */
-/*< 2009 endif >*/
-/* L2009: */
- }
-/*< endif >*/
- }
-/*< 50 continue >*/
-/* L50: */
-/* --- pressure at ground level (174) and altitude (175) ---- */
-/* _otb_adaptation Beginning: jump writings */
-/* _otb 999 write(iwr, 173) */
-/* _otb write(iwr, 174)p(1) */
-/* _otb write(iwr, 175)xps */
-/* _otb if (xps.gt.0..and.idatm.ne.0) write(iwr, 176)uw,uo3 */
-/*< 999 continue !Added_for_OTB >*/
-L999:
-/* _otb_adaptation End : jump writings */
-/* --- plane simulation output if selected ---- */
-/* _otb if (palt.lt.1000.) then */
-/* _otb write(iwr, 178) */
-/* _otb write(iwr, 179)pps */
-/* _otb write(iwr, 180)zpl(34) */
-/* _otb write(iwr, 181) */
-/* _otb write(iwr, 182)puo3 */
-/* _otb write(iwr, 183)puw */
-/* _otb write(iwr, 184)taer55p */
-/* _otb endif */
-/* ---- atmospheric correction ---- */
-/* _otb if (irapp.ge.0) then */
-/* _otb write(iwr, 177) */
-/* _otb if (irapp.eq. 0) write(iwr, 220) */
-/* _otb if (irapp.eq. 1) write(iwr, 221) */
-/* _otb if (rapp.lt.0.) then */
-/* _otb write(iwr, 185)-rapp */
-/* _otb else */
-/* _otb write(iwr, 186)rapp */
-/* _otb endif */
-/* _otb endif */
-/* _otb write(iwr, 172) */
-/* **********************************************************************c
- */
-/* c
-*/
-/* c
-*/
-/* start of computations c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* ---- initilialization */
-/* Start Update Look up table */
-/*< do i=1,mu >*/
- i__1 = mu;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< do j=1,41 >*/
- for (j = 1; j <= 41; ++j) {
-/*< roluti(i,j)=0.0 >*/
- roluti[i__ + j * 25 - 26] = 0.;
-/*< rolutiq(i,j)=0.0 >*/
- rolutiq[i__ + j * 25 - 26] = 0.;
-/*< rolutiu(i,j)=0.0 >*/
- rolutiu[i__ + j * 25 - 26] = 0.;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* End Update Look up table */
-/*< sb=0. >*/
- sb = 0.;
-/*< seb=0. >*/
- seb = 0.;
-/*< refet=0. >*/
- refet = 0.;
-/*< refet1=0. >*/
- refet1 = 0.;
-/*< refet2=0. >*/
- refet2 = 0.;
-/*< refet3=0. >*/
- refet3 = 0.;
-/*< rpfet=0. >*/
- rpfet = 0.;
-/*< rpfet1=0. >*/
- rpfet1 = 0.;
-/*< rpfet2=0. >*/
- rpfet2 = 0.;
-/*< rpfet3=0. >*/
- rpfet3 = 0.;
-/*< alumet=0. >*/
- alumet = 0.;
-/*< plumet=0. >*/
- plumet = 0.;
-/*< tgasm=0. >*/
- tgasm = 0.;
-/*< rog=0. >*/
- rog = 0.;
-/*< dgasm=0. >*/
- dgasm = 0.;
-/*< ugasm=0. >*/
- ugasm = 0.;
-/*< sdwava=0. >*/
- sdwava = 0.;
-/*< sdozon=0. >*/
- sdozon = 0.;
-/*< sddica=0. >*/
- sddica = 0.;
-/*< sdoxyg=0. >*/
- sdoxyg = 0.;
-/*< sdniox=0. >*/
- sdniox = 0.;
-/*< sdmoca=0. >*/
- sdmoca = 0.;
-/*< sdmeth=0. >*/
- sdmeth = 0.;
-/*< suwava=0. >*/
- suwava = 0.;
-/*< suozon=0. >*/
- suozon = 0.;
-/*< sudica=0. >*/
- sudica = 0.;
-/*< suoxyg=0. >*/
- suoxyg = 0.;
-/*< suniox=0. >*/
- suniox = 0.;
-/*< sumoca=0. >*/
- sumoca = 0.;
-/*< sumeth=0. >*/
- sumeth = 0.;
-/*< stwava=0. >*/
- stwava = 0.;
-/*< stozon=0. >*/
- stozon = 0.;
-/*< stdica=0. >*/
- stdica = 0.;
-/*< stoxyg=0. >*/
- stoxyg = 0.;
-/*< stniox=0. >*/
- stniox = 0.;
-/*< stmoca=0. >*/
- stmoca = 0.;
-/*< stmeth=0. >*/
- stmeth = 0.;
-/*< sodray=0. >*/
- sodray = 0.;
-/*< sodrayp=0. >*/
- sodrayp = 0.;
-/*< sodaer=0. >*/
- sodaer = 0.;
-/*< sodaerp=0. >*/
- sodaerp = 0.;
-/*< sodtot=0. >*/
- sodtot = 0.;
-/*< sodtotp=0. >*/
- sodtotp = 0.;
-/*< fophsr=0. >*/
- fophsr = 0.;
-/*< fophsa=0. >*/
- fophsa = 0.;
-/*< foqhsr=0. >*/
- foqhsr = 0.;
-/*< foqhsa=0. >*/
- foqhsa = 0.;
-/*< fouhsr=0. >*/
- fouhsr = 0.;
-/*< fouhsa=0. >*/
- fouhsa = 0.;
-/*< sroray=0. >*/
- sroray = 0.;
-/*< sroaer=0. >*/
- sroaer = 0.;
-/*< srotot=0. >*/
- srotot = 0.;
-/*< srpray=0. >*/
- srpray = 0.;
-/*< srpaer=0. >*/
- srpaer = 0.;
-/*< srptot=0. >*/
- srptot = 0.;
-/*< srqray=0. >*/
- srqray = 0.;
-/*< srqaer=0. >*/
- srqaer = 0.;
-/*< srqtot=0. >*/
- srqtot = 0.;
-/*< sruray=0. >*/
- sruray = 0.;
-/*< sruaer=0. >*/
- sruaer = 0.;
-/*< srutot=0. >*/
- srutot = 0.;
-/*< ssdaer=0. >*/
- ssdaer = 0.;
-/*< sdtotr=0. >*/
- sdtotr = 0.;
-/*< sdtota=0. >*/
- sdtota = 0.;
-/*< sdtott=0. >*/
- sdtott = 0.;
-/*< sutotr=0. >*/
- sutotr = 0.;
-/*< sutota=0. >*/
- sutota = 0.;
-/*< sutott=0. >*/
- sutott = 0.;
-/*< sasr=0. >*/
- sasr = 0.;
-/*< sasa=0. >*/
- sasa = 0.;
-/*< sast=0. >*/
- sast = 0.;
-/*< do 52 i=1,2 >*/
- for (i__ = 1; i__ <= 2; ++i__) {
-/*< do 53 j=1,3 >*/
- for (j = 1; j <= 3; ++j) {
-/*< ani(i,j)=0. >*/
- ani[i__ + (j << 1) - 3] = 0.;
-/*< aini(i,j)=0. >*/
- aini[i__ + (j << 1) - 3] = 0.;
-/*< anr(i,j)=0. >*/
- anr[i__ + (j << 1) - 3] = 0.;
-/*< ainr(i,j)=0. >*/
- ainr[i__ + (j << 1) - 3] = 0.;
-/*< 53 continue >*/
-/* L53: */
- }
-/*< 52 continue >*/
-/* L52: */
- }
-/* ---- spectral loop ---- */
-/*< if (iwave.eq.-2) write(iwr,1500) >*/
- if (iwave == -2) {
- io___296.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___296);
- e_wsfe();
- }
-/*< do 51 l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< sbor=s(l) >*/
- sbor = sixs_ffu__1.s[l - 1];
-/*< if(l.eq.iinf.or.l.eq.isup) sbor=sbor*0.5 >*/
- if (l == iinf || l == isup) {
- sbor *= .5;
- }
-/*< if(iwave.eq.-1) sbor=1.0/step >*/
- if (iwave == -1) {
- sbor = 1. / step;
- }
-/*< roc=rocl(l) >*/
- roc = rocl[l - 1];
-/*< roe=roel(l) >*/
- roe = roel[l - 1];
-/*< wl=.25+(l-1)*step >*/
- wl = (l - 1) * step + .25;
-
-/*< >*/
- d__1 = uw / 2.;
- d__2 = puw / 2.;
- abstra_(&idatm, &wl, &xmus, &xmuv, &d__1, &uo3, &uwus, &uo3us, &
- idatmp, &d__2, &puo3, &puwus, &puo3us, &dtwava, &dtozon, &
- dtdica, &dtoxyg, &dtniox, &dtmeth, &dtmoca, &utwava, &utozon,
- &utdica, &utoxyg, &utniox, &utmeth, &utmoca, &attwava, &
- ttozon, &ttdica, &ttoxyg, &ttniox, &ttmeth, &ttmoca);
-/*< >*/
- abstra_(&idatm, &wl, &xmus, &xmuv, &uw, &uo3, &uwus, &uo3us, &idatmp,
- &puw, &puo3, &puwus, &puo3us, &dtwava, &dtozon, &dtdica, &
- dtoxyg, &dtniox, &dtmeth, &dtmoca, &utwava, &utozon, &utdica,
- &utoxyg, &utniox, &utmeth, &utmoca, &ttwava, &ttozon, &ttdica,
- &ttoxyg, &ttniox, &ttmeth, &ttmoca);
-/*< if (dtwava.lt.accu3) dtwava=0. >*/
- if (dtwava < accu3) {
- dtwava = 0.;
- }
-/*< if (dtozon.lt.accu3) dtozon=0. >*/
- if (dtozon < accu3) {
- dtozon = 0.;
- }
-/*< if (dtdica.lt.accu3) dtdica=0. >*/
- if (dtdica < accu3) {
- dtdica = 0.;
- }
-/*< if (dtniox.lt.accu3) dtniox=0. >*/
- if (dtniox < accu3) {
- dtniox = 0.;
- }
-/*< if (dtmeth.lt.accu3) dtmeth=0. >*/
- if (dtmeth < accu3) {
- dtmeth = 0.;
- }
-/*< if (dtmoca.lt.accu3) dtmeth=0. >*/
- if (dtmoca < accu3) {
- dtmeth = 0.;
- }
-/*< if (utwava.lt.accu3) utwava=0. >*/
- if (utwava < accu3) {
- utwava = 0.;
- }
-/*< if (utozon.lt.accu3) utozon=0. >*/
- if (utozon < accu3) {
- utozon = 0.;
- }
-/*< if (utdica.lt.accu3) utdica=0. >*/
- if (utdica < accu3) {
- utdica = 0.;
- }
-/*< if (utniox.lt.accu3) utniox=0. >*/
- if (utniox < accu3) {
- utniox = 0.;
- }
-/*< if (utmeth.lt.accu3) utmeth=0. >*/
- if (utmeth < accu3) {
- utmeth = 0.;
- }
-/*< if (utmoca.lt.accu3) utmeth=0. >*/
- if (utmoca < accu3) {
- utmeth = 0.;
- }
-/*< if (ttwava.lt.accu3) ttwava=0. >*/
- if (ttwava < accu3) {
- ttwava = 0.;
- }
-/*< if (ttozon.lt.accu3) ttozon=0. >*/
- if (ttozon < accu3) {
- ttozon = 0.;
- }
-/*< if (ttdica.lt.accu3) ttdica=0. >*/
- if (ttdica < accu3) {
- ttdica = 0.;
- }
-/*< if (ttniox.lt.accu3) ttniox=0. >*/
- if (ttniox < accu3) {
- ttniox = 0.;
- }
-/*< if (ttmeth.lt.accu3) ttmeth=0. >*/
- if (ttmeth < accu3) {
- ttmeth = 0.;
- }
-/*< if (ttmoca.lt.accu3) ttmeth=0. >*/
- if (ttmoca < accu3) {
- ttmeth = 0.;
- }
-
-/*< >*/
- solirr_(&wl, &swl);
-/*< swl=swl*dsol >*/
- swl *= dsol;
-/*< coef=sbor*step*swl >*/
- coef = sbor * step * swl;
-/*< coefp=sbor*step >*/
- coefp = sbor * step;
-/*< >*/
- interp_(&iaer, &idatmp, &wl, &taer55, &taer55p, &xmud, &romix, &
- rorayl, &roaero, &phaa, &phar, &rqmix, &rqrayl, &rqaero, &
- qhaa, &qhar, &rumix, &rurayl, &ruaero, &uhaa, &uhar, &tsca, &
- tray, &trayp, &taer, &taerp, &dtott, &utott, &astot, &asray, &
- asaer, &utotr, &utota, &dtotr, &dtota, &ipol, roatm_fi__,
- romix_fi__, rorayl_fi__, &nfi, roluts, rolut, rolutsq, rolutq,
- rolutsu, rolutu, nfilut);
-/*< dgtot=dtwava*dtozon*dtdica*dtoxyg*dtniox*dtmeth*dtmoca >*/
- dgtot = dtwava * dtozon * dtdica * dtoxyg * dtniox * dtmeth * dtmoca;
-/*< tgtot=ttwava*ttozon*ttdica*ttoxyg*ttniox*ttmeth*ttmoca >*/
- tgtot = ttwava * ttozon * ttdica * ttoxyg * ttniox * ttmeth * ttmoca;
-/*< ugtot=utwava*utozon*utdica*utoxyg*utniox*utmeth*utmoca >*/
- ugtot = utwava * utozon * utdica * utoxyg * utniox * utmeth * utmoca;
-/*< tgp1=ttozon*ttdica*ttoxyg*ttniox*ttmeth*ttmoca >*/
- tgp1 = ttozon * ttdica * ttoxyg * ttniox * ttmeth * ttmoca;
-/*< tgp2=attwava*ttozon*ttdica*ttoxyg*ttniox*ttmeth*ttmoca >*/
- tgp2 = attwava * ttozon * ttdica * ttoxyg * ttniox * ttmeth * ttmoca;
-/* C--- computing integrated values over the spectral band------ */
-/*< sb=sb+sbor*step >*/
- sb += sbor * step;
-/*< seb=seb+coef >*/
- seb += coef;
-/* ---unpolarized light */
-/*< edifr=utotr-exp(-trayp/xmuv) >*/
- edifr = utotr - exp(-trayp / xmuv);
-/*< edifa=utota-exp(-taerp/xmuv) >*/
- edifa = utota - exp(-taerp / xmuv);
-/*< if (idirec.eq.1) then >*/
- if (idirec == 1) {
-/*< tdird=exp(-(trayp+taerp)/xmus) >*/
- tdird = exp(-(trayp + taerp) / xmus);
-/*< tdiru=exp(-(trayp+taerp)/xmuv) >*/
- tdiru = exp(-(trayp + taerp) / xmuv);
-/*< tdifd=dtott-tdird >*/
- tdifd = dtott - tdird;
-/*< tdifu=utott-tdiru >*/
- tdifu = utott - tdiru;
-/*< >*/
- rsurf = roc * tdird * tdiru + robar[l - 1] * tdifd * tdiru +
- robarp[l - 1] * tdifu * tdird + robard[l - 1] * tdifd *
- tdifu + (tdifd + tdird) * (tdifu + tdiru) * astot *
- robard[l - 1] * robard[l - 1] / (1. - astot * robard[l -
- 1]);
-/*< avr=robard(l) >*/
- avr = robard[l - 1];
-/*< else >*/
- } else {
-/*< call enviro(edifr,edifa,rad,palt,xmuv,fra,fae,fr) >*/
- enviro_(&edifr, &edifa, &rad, &palt, &xmuv, &fra, &fae, &fr);
-/*< avr=roc*fr+(1.-fr)*roe >*/
- avr = roc * fr + (1. - fr) * roe;
-/*< >*/
- rsurf = roc * dtott * exp(-(trayp + taerp) / xmuv) / (1. - avr *
- astot) + avr * dtott * (utott - exp(-(trayp + taerp) /
- xmuv)) / (1. - avr * astot);
-/*< endif >*/
- }
-/*< ratm1=(romix-rorayl)*tgtot+rorayl*tgp1 >*/
- ratm1 = (romix - rorayl) * tgtot + rorayl * tgp1;
-/*< ratm3=romix*tgp1 >*/
- ratm3 = romix * tgp1;
-/*< ratm2=(romix-rorayl)*tgp2+rorayl*tgp1 >*/
- ratm2 = (romix - rorayl) * tgp2 + rorayl * tgp1;
-/*< do i=1,nfi >*/
- i__3 = nfi;
- for (i__ = 1; i__ <= i__3; ++i__) {
-/*< ratm2_fi(i)=(romix_fi(i)-rorayl_fi(i))*tgp2+rorayl_fi(i)*tgp1 >*/
- ratm2_fi__[i__ - 1] = (romix_fi__[i__ - 1] - rorayl_fi__[i__ - 1])
- * tgp2 + rorayl_fi__[i__ - 1] * tgp1;
-/*< enddo >*/
- }
-/*< romeas1=ratm1+rsurf*tgtot >*/
- romeas1 = ratm1 + rsurf * tgtot;
-/*< romeas2=ratm2+rsurf*tgtot >*/
- romeas2 = ratm2 + rsurf * tgtot;
-/*< romeas3=ratm3+rsurf*tgtot >*/
- romeas3 = ratm3 + rsurf * tgtot;
-/* computing integrated values over the spectral band */
-/*< alumeas=xmus*swl*romeas2/pi >*/
- alumeas = xmus * swl * romeas2 / pi;
-/*< alumet=alumet+alumeas*sbor*step >*/
- alumet += alumeas * sbor * step;
-/*< rfoamave=rfoamave+rfoaml(i)*sbor*swl*step >*/
- rfoamave += rfoaml[i__ - 1] * sbor * swl * step;
-/*< rwatave=rwatave+rwatl(i)*sbor*swl*step >*/
- rwatave += rwatl[i__ - 1] * sbor * swl * step;
-/*< rglitave=rglitave+rglitl(i)*sbor*swl*step >*/
- rglitave += rglitl[i__ - 1] * sbor * swl * step;
-/*< rog=rog+roc*coef >*/
- rog += roc * coef;
-/*< refet=refet+romeas2*coef >*/
- refet += romeas2 * coef;
-/*< refet1=refet1+romeas1*coef >*/
- refet1 += romeas1 * coef;
-/*< refet2=refet2+romeas2*coef >*/
- refet2 += romeas2 * coef;
-/*< refet3=refet3+romeas3*coef >*/
- refet3 += romeas3 * coef;
-/*< do i=1,nfi >*/
- i__3 = nfi;
- for (i__ = 1; i__ <= i__3; ++i__) {
-/*< refet_fi(i)=refet_fi(i)+ratm2_fi(i)*coef >*/
- refet_fi__[i__ - 1] += ratm2_fi__[i__ - 1] * coef;
-/*< enddo >*/
- }
-/* Start Update Look up table */
-/* do i=1,mu */
-/* do j=1,41 */
-/* roluti(i,j)=roluti(i,j)+rolut(i,j)*coef */
-/* rolutiq(i,j)=rolutiq(i,j)+rolutq(i,j)*coef */
-/* rolutiu(i,j)=rolutiu(i,j)+rolutu(i,j)*coef */
-/* enddo */
-/* enddo */
-/* End Update Look up table */
-/*< if (iwave.eq.-2) then >*/
- if (iwave == -2) {
-/* _otb write(iwr,1501) wl,tgtot,dtott,utott,astot,ratm2,
-swl,roc, */
-/* _otb s sbor,dsol,romeas2 */
-/*< endif >*/
- }
-/* ---polarized light: */
-/* -the spectral integration without the solar irradiance */
-/* because the sun does not generate polarized light */
-/* -we assume a Lambertian ground, then no polarized */
-/* surface reflectance (rpsurf=0.0, avr=0.0, roc=0.0) */
-/*< if (ipol.ne.0)then >*/
- if (ipol != 0) {
-/*< rqatm2=(rqmix-rqrayl)*tgp2+rqrayl*tgp1 >*/
- rqatm2 = (rqmix - rqrayl) * tgp2 + rqrayl * tgp1;
-/*< ruatm2=(rumix-rurayl)*tgp2+rurayl*tgp1 >*/
- ruatm2 = (rumix - rurayl) * tgp2 + rurayl * tgp1;
-/*< tdirqu=exp(-(trayp+taerp)*(1./xmuv+1./xmus)) >*/
- tdirqu = exp(-(trayp + taerp) * (1. / xmuv + 1. / xmus));
-/*< rqmeas2=rqatm2+ropq*tgtot*tdirqu >*/
- rqmeas2 = rqatm2 + ropq * tgtot * tdirqu;
-/*< rumeas2=ruatm2+ropu*tgtot*tdirqu >*/
- rumeas2 = ruatm2 + ropu * tgtot * tdirqu;
-/*< qlumeas=xmus*swl*rqmeas2/pi >*/
- qlumeas = xmus * swl * rqmeas2 / pi;
-/*< ulumeas=xmus*swl*rumeas2/pi >*/
- ulumeas = xmus * swl * rumeas2 / pi;
-/*< qlumet=qlumet+qlumeas*coefp >*/
- qlumet += qlumeas * coefp;
-/*< ulumet=ulumet+ulumeas*coefp >*/
- ulumet += ulumeas * coefp;
-/*< foqhsa=foqhsa+qhaa*coef >*/
- foqhsa += qhaa * coef;
-/*< foqhsr=foqhsr+qhar*coef >*/
- foqhsr += qhar * coef;
-/*< fouhsa=fouhsa+uhaa*coef >*/
- fouhsa += uhaa * coef;
-/*< fouhsr=fouhsr+uhar*coef >*/
- fouhsr += uhar * coef;
-/*< srqray=srqray+rqrayl*coef >*/
- srqray += rqrayl * coef;
-/*< srqaer=srqaer+rqaero*coef >*/
- srqaer += rqaero * coef;
-/*< srqtot=srqtot+rqmix*coef >*/
- srqtot += rqmix * coef;
-/*< sruray=sruray+rurayl*coef >*/
- sruray += rurayl * coef;
-/*< sruaer=sruaer+ruaero*coef >*/
- sruaer += ruaero * coef;
-/*< srutot=srutot+rumix*coef >*/
- srutot += rumix * coef;
-/*< rqfet=rqfet+rqmeas2*coefp >*/
- rqfet += rqmeas2 * coefp;
-/*< rufet=rufet+rumeas2*coefp >*/
- rufet += rumeas2 * coefp;
-/* Start Update Look up table */
-/*< do i=1,mu >*/
- i__3 = mu;
- for (i__ = 1; i__ <= i__3; ++i__) {
-/*< do j=1,41 >*/
- for (j = 1; j <= 41; ++j) {
-/*< roluti(i,j)=roluti(i,j)+rolut(i,j)*coef >*/
- roluti[i__ + j * 25 - 26] += rolut[i__ + j * 25 - 26] *
- coef;
-/*< rolutiq(i,j)=rolutiq(i,j)+rolutq(i,j)*coef >*/
- rolutiq[i__ + j * 25 - 26] += rolutq[i__ + j * 25 - 26] *
- coef;
-/*< rolutiu(i,j)=rolutiu(i,j)+rolutu(i,j)*coef >*/
- rolutiu[i__ + j * 25 - 26] += rolutu[i__ + j * 25 - 26] *
- coef;
-/*< enddo >*/
- }
-/*< enddo >*/
- }
-/* End Update Look up table */
-/*< endif >*/
- }
-/* ---gazes and other characteritics used in both light */
-/*< srotot=srotot+(romix)*coef >*/
- srotot += romix * coef;
-/*< fophsa=fophsa+phaa*coef >*/
- fophsa += phaa * coef;
-/*< fophsr=fophsr+phar*coef >*/
- fophsr += phar * coef;
-/*< sroray=sroray+rorayl*coef >*/
- sroray += rorayl * coef;
-/*< sroaer=sroaer+roaero*coef >*/
- sroaer += roaero * coef;
-/*< sasr=sasr+asray*coef >*/
- sasr += asray * coef;
-/*< sasa=sasa+asaer*coef >*/
- sasa += asaer * coef;
-/*< sast=sast+astot*coef >*/
- sast += astot * coef;
-/*< sodray=sodray+tray*coef >*/
- sodray += tray * coef;
-/*< sodaer=sodaer+taer*coef >*/
- sodaer += taer * coef;
-/*< sodrayp=sodrayp+trayp*coef >*/
- sodrayp += trayp * coef;
-/*< sodaerp=sodaerp+taerp*coef >*/
- sodaerp += taerp * coef;
-/*< ssdaer=ssdaer+tsca*coef >*/
- ssdaer += tsca * coef;
-/*< sodtot=sodtot+(taer+tray)*coef >*/
- sodtot += (taer + tray) * coef;
-/*< sodtotp=sodtotp+(taerp+trayp)*coef >*/
- sodtotp += (taerp + trayp) * coef;
-/*< tgasm=tgasm+tgtot*coef >*/
- tgasm += tgtot * coef;
-/*< dgasm=dgasm+dgtot*coef >*/
- dgasm += dgtot * coef;
-/*< ugasm=ugasm+ugtot*coef >*/
- ugasm += ugtot * coef;
-/*< sdwava=sdwava+dtwava*coef >*/
- sdwava += dtwava * coef;
-/*< sdozon=sdozon+dtozon*coef >*/
- sdozon += dtozon * coef;
-/*< sddica=sddica+dtdica*coef >*/
- sddica += dtdica * coef;
-/*< sdoxyg=sdoxyg+dtoxyg*coef >*/
- sdoxyg += dtoxyg * coef;
-/*< sdniox=sdniox+dtniox*coef >*/
- sdniox += dtniox * coef;
-/*< sdmeth=sdmeth+dtmeth*coef >*/
- sdmeth += dtmeth * coef;
-/*< sdmoca=sdmoca+dtmoca*coef >*/
- sdmoca += dtmoca * coef;
-/*< suwava=suwava+utwava*coef >*/
- suwava += utwava * coef;
-/*< suozon=suozon+utozon*coef >*/
- suozon += utozon * coef;
-/*< sudica=sudica+utdica*coef >*/
- sudica += utdica * coef;
-/*< suoxyg=suoxyg+utoxyg*coef >*/
- suoxyg += utoxyg * coef;
-/*< suniox=suniox+utniox*coef >*/
- suniox += utniox * coef;
-/*< sumeth=sumeth+utmeth*coef >*/
- sumeth += utmeth * coef;
-/*< sumoca=sumoca+utmoca*coef >*/
- sumoca += utmoca * coef;
-/*< stwava=stwava+ttwava*coef >*/
- stwava += ttwava * coef;
-/*< stozon=stozon+ttozon*coef >*/
- stozon += ttozon * coef;
-/*< stdica=stdica+ttdica*coef >*/
- stdica += ttdica * coef;
-/*< stoxyg=stoxyg+ttoxyg*coef >*/
- stoxyg += ttoxyg * coef;
-/*< stniox=stniox+ttniox*coef >*/
- stniox += ttniox * coef;
-/*< stmeth=stmeth+ttmeth*coef >*/
- stmeth += ttmeth * coef;
-/*< stmoca=stmoca+ttmoca*coef >*/
- stmoca += ttmoca * coef;
-/*< sdtotr=sdtotr+dtotr*coef >*/
- sdtotr += dtotr * coef;
-/*< sdtota=sdtota+dtota*coef >*/
- sdtota += dtota * coef;
-/*< sdtott=sdtott+dtott*coef >*/
- sdtott += dtott * coef;
-/*< sutotr=sutotr+utotr*coef >*/
- sutotr += utotr * coef;
-/*< sutota=sutota+utota*coef >*/
- sutota += utota * coef;
-/*< sutott=sutott+utott*coef >*/
- sutott += utott * coef;
-/* ---output at the ground level. */
-/*< tdir=exp(-(tray+taer)/xmus) >*/
- tdir = exp(-(tray + taer) / xmus);
-/*< tdif=dtott-tdir >*/
- tdif = dtott - tdir;
-/*< etn=dtott*dgtot/(1.-avr*astot) >*/
- etn = dtott * dgtot / (1. - avr * astot);
-/*< esn=tdir*dgtot >*/
- esn = tdir * dgtot;
-/*< es=tdir*dgtot*xmus*swl >*/
- es = tdir * dgtot * xmus * swl;
-/*< ea0n=tdif*dgtot >*/
- ea0n = tdif * dgtot;
-/*< ea0=tdif*dgtot*xmus*swl >*/
- ea0 = tdif * dgtot * xmus * swl;
-/*< ee0n=dgtot*avr*astot*dtott/(1.-avr*astot) >*/
- ee0n = dgtot * avr * astot * dtott / (1. - avr * astot);
-/*< ee0=xmus*swl*dgtot*avr*astot*dtott/(1.-avr*astot) >*/
- ee0 = xmus * swl * dgtot * avr * astot * dtott / (1. - avr * astot);
-/*< if (etn.gt.accu3) then >*/
- if (etn > accu3) {
-/*< ani(1,1)=esn/etn >*/
- ani[0] = esn / etn;
-/*< ani(1,2)=ea0n/etn >*/
- ani[2] = ea0n / etn;
-/*< ani(1,3)=ee0n/etn >*/
- ani[4] = ee0n / etn;
-/*< else >*/
- } else {
-/*< ani(1,1)=0. >*/
- ani[0] = 0.;
-/*< ani(1,2)=0. >*/
- ani[2] = 0.;
-/*< ani(1,3)=0. >*/
- ani[4] = 0.;
-/*< endif >*/
- }
-/*< ani(2,1)=es >*/
- ani[1] = es;
-/*< ani(2,2)=ea0 >*/
- ani[3] = ea0;
-/*< ani(2,3)=ee0 >*/
- ani[5] = ee0;
-/*< do 955 j=1,3 >*/
- for (j = 1; j <= 3; ++j) {
-/*< aini(1,j)=aini(1,j)+ani(1,j)*coef >*/
- aini[(j << 1) - 2] += ani[(j << 1) - 2] * coef;
-/*< aini(2,j)=aini(2,j)+ani(2,j)*sbor*step >*/
- aini[(j << 1) - 1] += ani[(j << 1) - 1] * sbor * step;
-/*< 955 continue >*/
-/* L955: */
- }
-/* ---output at satellite level */
-/* old version is commented (new changes are immediately below */
-/* Jan-15-2004 */
-/* tmdir=exp(-(tray+taerp)/xmuv) */
-/*< tmdir=exp(-(trayp+taerp)/xmuv) >*/
- tmdir = exp(-(trayp + taerp) / xmuv);
-/*< tmdif=utott-tmdir >*/
- tmdif = utott - tmdir;
-/*< xla0n=ratm2 >*/
- xla0n = ratm2;
-/*< xla0=xla0n*xmus*swl/pi >*/
- xla0 = xla0n * xmus * swl / pi;
-/*< xltn=roc*dtott*tmdir*tgtot/(1.-avr*astot) >*/
- xltn = roc * dtott * tmdir * tgtot / (1. - avr * astot);
-/*< xlt=xltn*xmus*swl/pi >*/
- xlt = xltn * xmus * swl / pi;
-/*< xlen=avr*dtott*tmdif*tgtot/(1.-avr*astot) >*/
- xlen = avr * dtott * tmdif * tgtot / (1. - avr * astot);
-/*< xle=xlen*xmus*swl/pi >*/
- xle = xlen * xmus * swl / pi;
-/*< anr(1,1)=xla0n >*/
- anr[0] = xla0n;
-/*< anr(1,2)=xlen >*/
- anr[2] = xlen;
-/*< anr(1,3)=xltn >*/
- anr[4] = xltn;
-/*< anr(2,1)=xla0 >*/
- anr[1] = xla0;
-/*< anr(2,2)=xle >*/
- anr[3] = xle;
-/*< anr(2,3)=xlt >*/
- anr[5] = xlt;
-/*< do 56 j=1,3 >*/
- for (j = 1; j <= 3; ++j) {
-/*< ainr(1,j)=ainr(1,j)+anr(1,j)*coef >*/
- ainr[(j << 1) - 2] += anr[(j << 1) - 2] * coef;
-/*< ainr(2,j)=ainr(2,j)+anr(2,j)*sbor*step >*/
- ainr[(j << 1) - 1] += anr[(j << 1) - 1] * sbor * step;
-/*< 56 continue >*/
-/* L56: */
- }
-/*< 51 continue >*/
-/* L51: */
- }
-/* c---- integrated values of apparent reflectance, radiance ----
- */
-/* c---- and gaseous transmittances (total,downward,separately gases) ----
- */
-/*< tgasm=tgasm/seb >*/
- tgasm /= seb;
-/*< dgasm=dgasm/seb >*/
- dgasm /= seb;
-/*< ugasm=ugasm/seb >*/
- ugasm /= seb;
-/*< sasa=sasa/seb >*/
- sasa /= seb;
-/*< sasr=sasr/seb >*/
- sasr /= seb;
-/*< sast=sast/seb >*/
- sast /= seb;
-/*< sdniox=sdniox/seb >*/
- sdniox /= seb;
-/*< sdmoca=sdmoca/seb >*/
- sdmoca /= seb;
-/*< sdmeth=sdmeth/seb >*/
- sdmeth /= seb;
-/*< sdwava=sdwava/seb >*/
- sdwava /= seb;
-/*< sdozon=sdozon/seb >*/
- sdozon /= seb;
-/*< sddica=sddica/seb >*/
- sddica /= seb;
-/*< suniox=suniox/seb >*/
- suniox /= seb;
-/*< sumoca=sumoca/seb >*/
- sumoca /= seb;
-/*< sumeth=sumeth/seb >*/
- sumeth /= seb;
-/*< suwava=suwava/seb >*/
- suwava /= seb;
-/*< suozon=suozon/seb >*/
- suozon /= seb;
-/*< sudica=sudica/seb >*/
- sudica /= seb;
-/*< suoxyg=suoxyg/seb >*/
- suoxyg /= seb;
-/*< sdoxyg=sdoxyg/seb >*/
- sdoxyg /= seb;
-/*< stniox=stniox/seb >*/
- stniox /= seb;
-/*< stmoca=stmoca/seb >*/
- stmoca /= seb;
-/*< stmeth=stmeth/seb >*/
- stmeth /= seb;
-/*< stwava=stwava/seb >*/
- stwava /= seb;
-/*< stozon=stozon/seb >*/
- stozon /= seb;
-/*< stdica=stdica/seb >*/
- stdica /= seb;
-/*< stoxyg=stoxyg/seb >*/
- stoxyg /= seb;
-/*< sdtotr=sdtotr/seb >*/
- sdtotr /= seb;
-/*< sdtota=sdtota/seb >*/
- sdtota /= seb;
-/*< sdtott=sdtott/seb >*/
- sdtott /= seb;
-/*< sutotr=sutotr/seb >*/
- sutotr /= seb;
-/*< sutota=sutota/seb >*/
- sutota /= seb;
-/*< sutott=sutott/seb >*/
- sutott /= seb;
-/*< sodray=sodray/seb >*/
- sodray /= seb;
-/*< sodaer=sodaer/seb >*/
- sodaer /= seb;
-/*< sodtot=sodtot/seb >*/
- sodtot /= seb;
-/*< sodrayp=sodrayp/seb >*/
- sodrayp /= seb;
-/*< sodaerp=sodaerp/seb >*/
- sodaerp /= seb;
-/*< sodtotp=sodtotp/seb >*/
- sodtotp /= seb;
-/*< pizera=0.0 >*/
- pizera = 0.;
-/*< pizerr=1. >*/
- pizerr = 1.;
-/*< if(iaer.ne.0) pizera=ssdaer/sodaer/seb >*/
- if (iaer != 0) {
- pizera = ssdaer / sodaer / seb;
- }
-/*< pizert=(pizerr*sodray+pizera*sodaer)/(sodray+sodaer) >*/
- pizert = (pizerr * sodray + pizera * sodaer) / (sodray + sodaer);
-/*< rfoamave=rfoamave/seb >*/
- rfoamave /= seb;
-/*< rwatave=rwatave/seb >*/
- rwatave /= seb;
-/*< rglitave=rglitave/seb >*/
- rglitave /= seb;
-/*< sroray=sroray/seb >*/
- sroray /= seb;
-/*< sroaer=sroaer/seb >*/
- sroaer /= seb;
-/*< srotot=srotot/seb >*/
- srotot /= seb;
-/*< fophsa=fophsa/seb >*/
- fophsa /= seb;
-/*< fophsr=fophsr/seb >*/
- fophsr /= seb;
-/*< fophst=(sodray*fophsr+sodaer*fophsa)/(sodray+sodaer) >*/
- fophst = (sodray * fophsr + sodaer * fophsa) / (sodray + sodaer);
-/* ---unpolarized light */
-/*< refet=refet/seb >*/
- refet /= seb;
-/*< refet1=refet1/seb >*/
- refet1 /= seb;
-/*< refet2=refet2/seb >*/
- refet2 /= seb;
-/*< refet3=refet3/seb >*/
- refet3 /= seb;
-/*< rog=rog/seb >*/
- rog /= seb;
-/*< alumet=alumet/sb >*/
- alumet /= sb;
-/* ---polarized light */
-/*< if (ipol.ne.0)then >*/
- if (ipol != 0) {
-/*< rqfet=rqfet/sb >*/
- rqfet /= sb;
-/*< rufet=rufet/sb >*/
- rufet /= sb;
-/*< srqray=srqray/seb >*/
- srqray /= seb;
-/*< srqaer=srqaer/seb >*/
- srqaer /= seb;
-/*< srqtot=srqtot/seb >*/
- srqtot /= seb;
-/*< sruray=sruray/seb >*/
- sruray /= seb;
-/*< sruaer=sruaer/seb >*/
- sruaer /= seb;
-/*< srutot=srutot/seb >*/
- srutot /= seb;
-/*< plumet=plumet/sb >*/
- plumet /= sb;
-/*< foqhsa=foqhsa/seb >*/
- foqhsa /= seb;
-/*< foqhsr=foqhsr/seb >*/
- foqhsr /= seb;
-/*< foqhst=(sodray*foqhsr+sodaer*foqhsa)/(sodray+sodaer) >*/
- foqhst = (sodray * foqhsr + sodaer * foqhsa) / (sodray + sodaer);
-/*< fouhsa=fouhsa/seb >*/
- fouhsa /= seb;
-/*< fouhsr=fouhsr/seb >*/
- fouhsr /= seb;
-/*< fouhst=(sodray*fouhsr+sodaer*fouhsa)/(sodray+sodaer) >*/
- fouhst = (sodray * fouhsr + sodaer * fouhsa) / (sodray + sodaer);
-/* we define the polarized reflectances */
-/*< srpray=sqrt(srqray**2.+sruray**2.) >*/
- srpray = sqrt(pow_dd(&srqray, &c_b308) + pow_dd(&sruray, &c_b308));
-/*< srpaer=sqrt(srqaer**2.+sruaer**2.) >*/
- srpaer = sqrt(pow_dd(&srqaer, &c_b308) + pow_dd(&sruaer, &c_b308));
-/*< srptot=sqrt(srqtot**2.+srutot**2.) >*/
- srptot = sqrt(pow_dd(&srqtot, &c_b308) + pow_dd(&srutot, &c_b308));
-/* we define the primary degrees of polarization */
-/*< spdpray=foqhsr/fophsr >*/
- spdpray = foqhsr / fophsr;
-/*< if (iaer.ne.0) then >*/
- if (iaer != 0) {
-/*< spdpaer=foqhsa/fophsa >*/
- spdpaer = foqhsa / fophsa;
-/*< else >*/
- } else {
-/*< spdpaer=0.0 >*/
- spdpaer = 0.;
-/*< endif >*/
- }
-/*< spdptot=foqhst/fophst >*/
- spdptot = foqhst / fophst;
-/* we define the degrees of polarization */
-/*< sdpray=100.*srpray/sroray >*/
- sdpray = srpray * 100. / sroray;
-/*< if (sroaer.ne.0) then >*/
- if (sroaer != 0.) {
-/*< sdpaer=100.*srpaer/sroaer >*/
- sdpaer = srpaer * 100. / sroaer;
-/*< else sdpaer=0.0 >*/
- elsesdpaer = 0.;
-/*< endif >*/
- }
-/*< sdptot=100.*srptot/srotot >*/
- sdptot = srptot * 100. / srotot;
-/* and we compute the direction of the plane of polarization */
-/*< call dirpopol(srqray*xmus,sruray*xmus,sdppray) >*/
- d__1 = srqray * xmus;
- d__2 = sruray * xmus;
- dirpopol_(&d__1, &d__2, &sdppray);
-/*< call dirpopol(srqaer*xmus,sruaer*xmus,sdppaer) >*/
- d__1 = srqaer * xmus;
- d__2 = sruaer * xmus;
- dirpopol_(&d__1, &d__2, &sdppaer);
-/*< call dirpopol(srqtot*xmus,srutot*xmus,sdpptot) >*/
- d__1 = srqtot * xmus;
- d__2 = srutot * xmus;
- dirpopol_(&d__1, &d__2, &sdpptot);
-/* C ksirad=sdpptot*3.1415927/180. */
-/* C refeti=refet+pinst*rpfet*cos(2*(ksiinst*3.1415925/180.+ksirad))
-*/
-/*< endif >*/
- }
-/*< do 57 j=1,3 >*/
- for (j = 1; j <= 3; ++j) {
-/* ---output at the ground level. */
-/*< aini(1,j)=aini(1,j)/seb >*/
- aini[(j << 1) - 2] /= seb;
-/*< aini(2,j)=aini(2,j)/sb >*/
- aini[(j << 1) - 1] /= sb;
-/* ---output at satellite level */
-/*< ainr(1,j)=ainr(1,j)/seb >*/
- ainr[(j << 1) - 2] /= seb;
-/*< ainr(2,j)=ainr(2,j)/sb >*/
- ainr[(j << 1) - 1] /= sb;
-/*< 57 continue >*/
-/* L57: */
- }
-/* _otb_adaptation Beginning: Atmospheric reflectance storage */
-/*< otb_ratm = ainr(1,1) !Added_for_OTB : atmospheric reflectance >*/
- *otb_ratm__ = ainr[0];
-/*< otb_sast = sast !Added_for_OTB : atmospheric spherical albedo >*/
- *otb_sast__ = sast;
-/*< otb_tgasm = tgasm !Added_for_OTB : total gaseous transmissio >*/
- *otb_tgasm__ = tgasm;
-/*< otb_sdtott = sdtott !Added_for_OTB : downward transmittance >*/
- *otb_sdtott__ = sdtott;
-/*< otb_sutott = sutott !Added_for_OTB : upward transmittance >*/
- *otb_sutott__ = sutott;
-/* Added_for_OTB : upward directe transmittance */
-/*< otb_tdir_up = exp(-sodtot/xmuv) >*/
- *otb_tdir_up__ = exp(-sodtot / xmuv);
-/* Added_for_OTB : upward diffuse transmittance */
-/*< otb_tdif_up = otb_sutott - otb_tdir_up >*/
- *otb_tdif_up__ = *otb_sutott__ - *otb_tdir_up__;
-/* Added_for_OTB : upward diffuse transmittance for Rayleigh */
-/*< otb_tdif_up_ray = sutotr - exp(-sodray/xmuv) >*/
- *otb_tdif_up_ray__ = sutotr - exp(-sodray / xmuv);
-/* Added_for_OTB : upward diffuse transmittance for aerosols */
-/*< otb_tdif_up_aer = sutota - exp(-sodaer/xmuv) >*/
- *otb_tdif_up_aer__ = sutota - exp(-sodaer / xmuv);
-/* _otb_adaptation End : Atmospheric reflectance storage */
-/* **********************************************************************c
- */
-/* c
-*/
-/* print of final results c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* _otb_adaptation Beginning: go to end of code */
-/*< goto 9999 !Added_for_OTB >*/
- goto L9999;
-/* _otb_adaptation End : go to end of code */
-/* begining case for a lut output */
-/* SIMPLE LUT in azimuth */
-/*< if (ilut.eq.2) then >*/
- if (ilut == 2) {
-/*< do ifi=1,nfi >*/
- i__1 = nfi;
- for (ifi = 1; ifi <= i__1; ++ifi) {
-/*< xtphi=(ifi-1)*180.0/(nfi-1) >*/
- xtphi = (ifi - 1) * 180. / (nfi - 1);
-/*< write(6,*) "lutfi ",xtphi,ratm2_fi(ifi) >*/
- s_wsle(&io___426);
- do_lio(&c__9, &c__1, "lutfi ", 6L);
- do_lio(&c__5, &c__1, (char *)&xtphi, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&ratm2_fi__[ifi - 1], (ftnlen)sizeof(
- doublereal));
- e_wsle();
-/*< enddo >*/
- }
-/*< endif >*/
- }
-/* LUT FOR Look up table data */
-/*< if (ilut.eq.1) then >*/
- if (ilut == 1) {
-/*< its=acos(xmus)*180.0/pi >*/
- its = acos(xmus) * 180. / pi;
-/*< open(10,file='rotoa_bs',ACCESS='APPEND') >*/
- o__1.oerr = 0;
- o__1.ounit = 10;
- o__1.ofnmlen = 8;
- o__1.ofnm = "rotoa_bs";
- o__1.orl = 0;
- o__1.osta = 0;
- o__1.oacc = "APPEND";
- o__1.ofm = 0;
- o__1.oblnk = 0;
- f_open(&o__1);
-/*< write(10,2222) "AERO-LUT Lambda min,max ",wlinf,wlsup >*/
- s_wsfe(&io___427);
- do_fio(&c__1, "AERO-LUT Lambda min,max ", 24L);
- do_fio(&c__1, (char *)&sixs_ffu__1.wlinf, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sixs_ffu__1.wlsup, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< 2222 Format(A28,3(F10.7,1X)) >*/
-/*< write(10,2222) "Tau-Lambda,Tau550 asol ",sodaer,taer55,asol >*/
- s_wsfe(&io___428);
- do_fio(&c__1, "Tau-Lambda,Tau550 asol ", 24L);
- do_fio(&c__1, (char *)&sodaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&taer55, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&asol, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< aerod=0 >*/
- aerod = 0;
-/*< if (iaer.eq.12) then >*/
- if (iaer == 12) {
-/*< write(10,2223) "aerosol model ",FILE2(1:i2) >*/
- s_wsfe(&io___430);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, file2, i2);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.1) then >*/
- if (iaer == 1) {
-/*< write(10,2223) "aerosol model ","CONTINENTAL" >*/
- s_wsfe(&io___431);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "CONTINENTAL", 11L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.2) then >*/
- if (iaer == 2) {
-/*< write(10,2223) "aerosol model ","MARITIME" >*/
- s_wsfe(&io___432);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "MARITIME", 8L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.3) then >*/
- if (iaer == 3) {
-/*< write(10,2223) "aerosol model ","URBAN" >*/
- s_wsfe(&io___433);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "URBAN", 5L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.5) then >*/
- if (iaer == 5) {
-/*< write(10,2223) "aerosol model ","DESERTIC" >*/
- s_wsfe(&io___434);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "DESERTIC", 8L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.6) then >*/
- if (iaer == 6) {
-/*< write(10,2223) "aerosol model ","SMOKE" >*/
- s_wsfe(&io___435);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "SMOKE", 5L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.7) then >*/
- if (iaer == 7) {
-/*< write(10,2223) "aerosol model ","STRATOSPHERIC" >*/
- s_wsfe(&io___436);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "STRATOSPHERIC", 13L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (aerod.eq.0) then >*/
- if (aerod == 0) {
-/*< write(10,2223) "aerosol model ","UNDEFINED" >*/
- s_wsfe(&io___437);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "UNDEFINED", 9L);
- e_wsfe();
-/*< endif >*/
- }
-/*< 2223 format(A24,1X,A80) >*/
-/*< lutmuv=cos(avis*pi/180.) >*/
- lutmuv = cos(avis * pi / 180.);
-/*< >*/
- cscaa = -xmus * lutmuv - cos(filut[mu - 1] * pi / 180.) * sqrt(1. -
- xmus * xmus) * sqrt(1. - lutmuv * lutmuv);
-/*< iscama=acos(cscaa)*180./pi >*/
- iscama = acos(cscaa) * 180. / pi;
-/*< >*/
- cscaa = -xmus * lutmuv - cos(filut[mu + nfilut[mu - 1] * 25 - 26] *
- pi / 180.) * sqrt(1. - xmus * xmus) * sqrt(1. - lutmuv *
- lutmuv);
-/*< iscami=acos(cscaa)*180./pi >*/
- iscami = acos(cscaa) * 180. / pi;
-/*< write(10,333) its,avis,nfilut(mu),iscama,iscami >*/
- s_wsfe(&io___438);
- do_fio(&c__1, (char *)&its, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&avis, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&nfilut[mu - 1], (ftnlen)sizeof(integer));
- do_fio(&c__1, (char *)&iscama, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&iscami, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(10,'(41(F8.5,1X))')(roluti(mu,j)/seb,j=1,nfilut(mu)) >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(41(F8.5,1X))";
- s_wsfe(&ci__1);
- i__1 = nfilut[mu - 1];
- for (j = 1; j <= i__1; ++j) {
- d__1 = roluti[mu + j * 25 - 26] / seb;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/* write(10,'(41(F8.5,1X))')(rolutiq(mu,j)/seb,j=1,nfilut(mu)) */
-/* write(10,'(41(F8.5,1X))')(rolutiu(mu,j)/seb,j=1,nfilut(mu)) */
-/*< do i=1,mu-1 >*/
- i__1 = mu - 1;
- for (i__ = 1; i__ <= i__1; ++i__) {
-/*< lutmuv=rm(i) >*/
- lutmuv = rm[i__ + 25];
-/*< luttv=acos(lutmuv)*180./pi >*/
- luttv = acos(lutmuv) * 180. / pi;
-/*< >*/
- cscaa = -xmus * lutmuv - cos(filut[i__ - 1] * pi / 180.) * sqrt(
- 1. - xmus * xmus) * sqrt(1. - lutmuv * lutmuv);
-/*< iscama=acos(cscaa)*180./pi >*/
- iscama = acos(cscaa) * 180. / pi;
-/*< >*/
- cscaa = -xmus * lutmuv - cos(filut[i__ + nfilut[i__ - 1] * 25 -
- 26] * pi / 180.) * sqrt(1. - xmus * xmus) * sqrt(1. -
- lutmuv * lutmuv);
-/*< iscami=acos(cscaa)*180./pi >*/
- iscami = acos(cscaa) * 180. / pi;
-/*< write(10,333) its,luttv,nfilut(i),iscama,iscami >*/
- s_wsfe(&io___439);
- do_fio(&c__1, (char *)&its, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&luttv, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&nfilut[i__ - 1], (ftnlen)sizeof(integer));
- do_fio(&c__1, (char *)&iscama, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&iscami, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< 333 Format(F10.5,1X,F10.5,1X,I3,F10.5,F10.5) >*/
-/*< write(10,'(41(F8.5,1X))')(roluti(i,j)/seb,j=1,nfilut(i)) >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(41(F8.5,1X))";
- s_wsfe(&ci__1);
- i__3 = nfilut[i__ - 1];
- for (j = 1; j <= i__3; ++j) {
- d__1 = roluti[i__ + j * 25 - 26] / seb;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/* write(10,'(41(F8.5,1X))')(rolutiq(i,j)/seb,j=1,nfilut(i))
-*/
-/* write(10,'(41(F8.5,1X))')(rolutiu(i,j)/seb,j=1,nfilut(i))
-*/
-/*< enddo >*/
- }
-/*< close(10) >*/
- cl__1.cerr = 0;
- cl__1.cunit = 10;
- cl__1.csta = 0;
- f_clos(&cl__1);
-/*< endif >*/
- }
-/* Case a LUT output is desired */
-/* Case for an aps LUT */
-/*< if (ilut.eq.3) then >*/
- if (ilut == 3) {
-/*< its=acos(xmus)*180.0/pi >*/
- its = acos(xmus) * 180. / pi;
-/*< open(10,file='rotoa_aps_bs',ACCESS='APPEND') >*/
- o__1.oerr = 0;
- o__1.ounit = 10;
- o__1.ofnmlen = 12;
- o__1.ofnm = "rotoa_aps_bs";
- o__1.orl = 0;
- o__1.osta = 0;
- o__1.oacc = "APPEND";
- o__1.ofm = 0;
- o__1.oblnk = 0;
- f_open(&o__1);
-/*< write(10,2222) "AERO-LUT Lambda min,max ",wlinf,wlsup >*/
- s_wsfe(&io___440);
- do_fio(&c__1, "AERO-LUT Lambda min,max ", 24L);
- do_fio(&c__1, (char *)&sixs_ffu__1.wlinf, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sixs_ffu__1.wlsup, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(10,2222) "Tau-Lambda,Tau550 asol ",sodaer,taer55,asol >*/
- s_wsfe(&io___441);
- do_fio(&c__1, "Tau-Lambda,Tau550 asol ", 24L);
- do_fio(&c__1, (char *)&sodaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&taer55, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&asol, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< aerod=0 >*/
- aerod = 0;
-/*< if (iaer.eq.12) then >*/
- if (iaer == 12) {
-/*< write(10,2223) "aerosol model ",FILE2(1:i2) >*/
- s_wsfe(&io___442);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, file2, i2);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.1) then >*/
- if (iaer == 1) {
-/*< write(10,2223) "aerosol model ","CONTINENTAL" >*/
- s_wsfe(&io___443);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "CONTINENTAL", 11L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.2) then >*/
- if (iaer == 2) {
-/*< write(10,2223) "aerosol model ","MARITIME" >*/
- s_wsfe(&io___444);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "MARITIME", 8L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.3) then >*/
- if (iaer == 3) {
-/*< write(10,2223) "aerosol model ","URBAN" >*/
- s_wsfe(&io___445);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "URBAN", 5L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.5) then >*/
- if (iaer == 5) {
-/*< write(10,2223) "aerosol model ","DESERTIC" >*/
- s_wsfe(&io___446);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "DESERTIC", 8L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.6) then >*/
- if (iaer == 6) {
-/*< write(10,2223) "aerosol model ","SMOKE" >*/
- s_wsfe(&io___447);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "SMOKE", 5L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (iaer.eq.7) then >*/
- if (iaer == 7) {
-/*< write(10,2223) "aerosol model ","STRATOSPHERIC" >*/
- s_wsfe(&io___448);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "STRATOSPHERIC", 13L);
- e_wsfe();
-/*< aerod=1 >*/
- aerod = 1;
-/*< endif >*/
- }
-/*< if (aerod.eq.0) then >*/
- if (aerod == 0) {
-/*< write(10,2223) "aerosol model ","UNDEFINED" >*/
- s_wsfe(&io___449);
- do_fio(&c__1, "aerosol model ", 14L);
- do_fio(&c__1, "UNDEFINED", 9L);
- e_wsfe();
-/*< endif >*/
- }
-
-/*< dtr=atan(1.)*4./180. >*/
- dtr = atan(1.) * 4. / 180.;
-/*< >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(A5,1X,41(F8.4,1X))";
- s_wsfe(&ci__1);
- do_fio(&c__1, "phi", 3L);
- for (i__ = 16; i__ >= 1; --i__) {
- do_fio(&c__1, (char *)&filut[i__ - 1], (ftnlen)sizeof(doublereal))
- ;
- }
- do_fio(&c__1, (char *)&filut[mu - 1], (ftnlen)sizeof(doublereal));
- for (i__ = 1; i__ <= 16; ++i__) {
- do_fio(&c__1, (char *)&filut[i__ + 24], (ftnlen)sizeof(doublereal)
- );
- }
- e_wsfe();
-/*< >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(A5,1X,41(F8.5,1X))";
- s_wsfe(&ci__1);
- do_fio(&c__1, "tv", 2L);
- for (i__ = 16; i__ >= 1; --i__) {
- d__1 = acos(rm[i__ + 25]) / dtr;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- }
- d__2 = acos(rm[25]) / dtr;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- for (k = 1; k <= 16; ++k) {
- d__3 = acos(rm[k + 25]) / dtr;
- do_fio(&c__1, (char *)&d__3, (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/*< >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(41(F8.5,1X))";
- s_wsfe(&ci__1);
- for (i__ = 16; i__ >= 1; --i__) {
- d__1 = roluti[i__ - 1] / seb;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- }
- d__2 = roluti[mu - 1] / seb;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- for (i__ = 1; i__ <= 16; ++i__) {
- d__3 = roluti[i__ + 24] / seb;
- do_fio(&c__1, (char *)&d__3, (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/*< >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(41(F8.5,1X))";
- s_wsfe(&ci__1);
- for (i__ = 16; i__ >= 1; --i__) {
- d__1 = rolutiq[i__ - 1] / seb;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- }
- d__2 = rolutiq[mu - 1] / seb;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- for (i__ = 1; i__ <= 16; ++i__) {
- d__3 = rolutiq[i__ + 24] / seb;
- do_fio(&c__1, (char *)&d__3, (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/*< >*/
- ci__1.cierr = 0;
- ci__1.ciunit = 10;
- ci__1.cifmt = "(41(F8.5,1X))";
- s_wsfe(&ci__1);
- for (i__ = 16; i__ >= 1; --i__) {
- d__1 = rolutiu[i__ - 1] / seb;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- }
- d__2 = rolutiu[mu - 1] / seb;
- do_fio(&c__1, (char *)&d__2, (ftnlen)sizeof(doublereal));
- for (i__ = 1; i__ <= 16; ++i__) {
- d__3 = rolutiu[i__ + 24] / seb;
- do_fio(&c__1, (char *)&d__3, (ftnlen)sizeof(doublereal));
- }
- e_wsfe();
-/*< close(10) >*/
- cl__1.cerr = 0;
- cl__1.cunit = 10;
- cl__1.csta = 0;
- f_clos(&cl__1);
-/*< endif >*/
- }
-/* Case a LUT output is desired */
-/*< 160 continue >*/
-/* L160: */
-/*< write(iwr, 430 )refet,alumet,tgasm >*/
- io___451.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___451);
- do_fio(&c__1, (char *)&refet, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&alumet, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&tgasm, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 431 )refet1,refet2,refet3 >*/
- io___452.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___452);
- do_fio(&c__1, (char *)&refet1, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&refet2, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&refet3, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< if (ipol.eq.1)then >*/
- if (ipol == 1) {
-/*< rpfet=sqrt(rqfet*rqfet+rufet*rufet) >*/
- rpfet = sqrt(rqfet * rqfet + rufet * rufet);
-/*< plumet=sqrt(qlumet*qlumet+ulumet*ulumet) >*/
- plumet = sqrt(qlumet * qlumet + ulumet * ulumet);
-/*< xpol=atan2(rufet,rqfet)*180.0/3.14159/2. >*/
- xpol = atan2(rufet, rqfet) * 180. / 3.14159 / 2.;
-/*< write(iwr, 429 )rpfet,plumet,xpol,rpfet/refet >*/
- io___454.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___454);
- do_fio(&c__1, (char *)&rpfet, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&plumet, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xpol, (ftnlen)sizeof(doublereal));
- d__1 = rpfet / refet;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/* write(iwr, 428 )rpfet1,rpfet2,rpfet3 */
-/*< endif >*/
- }
-/*< if(inhomo.ne.0) then >*/
- if (inhomo != 0) {
-/*< >*/
- io___455.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___455);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&aini[(j << 1) - 2], (ftnlen)sizeof(
- doublereal));
- }
- do_fio(&c__1, "environment", 11L);
- do_fio(&c__1, "target", 6L);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&ainr[(j << 1) - 2], (ftnlen)sizeof(
- doublereal));
- }
- e_wsfe();
-/*< >*/
- io___456.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___456);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&aini[(j << 1) - 1], (ftnlen)sizeof(
- doublereal));
- }
- do_fio(&c__1, "environment", 11L);
- do_fio(&c__1, "target", 6L);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&ainr[(j << 1) - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_wsfe();
-/*< endif >*/
- }
-/*< if(inhomo.eq.0) then >*/
- if (inhomo == 0) {
-/*< >*/
- io___457.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___457);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&aini[(j << 1) - 2], (ftnlen)sizeof(
- doublereal));
- }
- do_fio(&c__1, "background ", 11L);
- do_fio(&c__1, "pixel ", 6L);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&ainr[(j << 1) - 2], (ftnlen)sizeof(
- doublereal));
- }
- e_wsfe();
-/*< >*/
- io___458.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___458);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&aini[(j << 1) - 1], (ftnlen)sizeof(
- doublereal));
- }
- do_fio(&c__1, "background ", 11L);
- do_fio(&c__1, "pixel ", 6L);
- for (j = 1; j <= 3; ++j) {
- do_fio(&c__1, (char *)&ainr[(j << 1) - 1], (ftnlen)sizeof(
- doublereal));
- }
- e_wsfe();
-/*< endif >*/
- }
-/*< if (iwave.eq.-1)then >*/
- if (iwave == -1) {
-/*< write(iwr, 436)seb >*/
- io___459.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___459);
- do_fio(&c__1, (char *)&seb, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< else >*/
- } else {
-/*< write(iwr, 437)sb,seb >*/
- io___460.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___460);
- do_fio(&c__1, (char *)&sb, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&seb, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< endif >*/
- }
-/* **********************************************************************c
- */
-/* c
-*/
-/* print of complementary results c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< write(iwr, 929) >*/
- io___461.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___461);
- e_wsfe();
-/*< write(iwr, 930) >*/
- io___462.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___462);
- e_wsfe();
-/*< write(iwr, 931)'global gas. trans. :',dgasm,ugasm,tgasm >*/
- io___463.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___463);
- do_fio(&c__1, "global gas. trans. :", 20L);
- do_fio(&c__1, (char *)&dgasm, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&ugasm, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&tgasm, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'water " " :',sdwava,suwava,stwava >*/
- io___464.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___464);
- do_fio(&c__1, "water \" \" :", 20L);
- do_fio(&c__1, (char *)&sdwava, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&suwava, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stwava, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'ozone " " :',sdozon,suozon,stozon >*/
- io___465.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___465);
- do_fio(&c__1, "ozone \" \" :", 20L);
- do_fio(&c__1, (char *)&sdozon, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&suozon, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stozon, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'co2 " " :',sddica,sudica,stdica >*/
- io___466.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___466);
- do_fio(&c__1, "co2 \" \" :", 20L);
- do_fio(&c__1, (char *)&sddica, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sudica, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stdica, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'oxyg " " :',sdoxyg,suoxyg,stoxyg >*/
- io___467.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___467);
- do_fio(&c__1, "oxyg \" \" :", 20L);
- do_fio(&c__1, (char *)&sdoxyg, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&suoxyg, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stoxyg, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'no2 " " :',sdniox,suniox,stniox >*/
- io___468.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___468);
- do_fio(&c__1, "no2 \" \" :", 20L);
- do_fio(&c__1, (char *)&sdniox, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&suniox, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stniox, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'ch4 " " :',sdmeth,sumeth,stmeth >*/
- io___469.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___469);
- do_fio(&c__1, "ch4 \" \" :", 20L);
- do_fio(&c__1, (char *)&sdmeth, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sumeth, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stmeth, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'co " " :',sdmoca,sumoca,stmoca >*/
- io___470.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___470);
- do_fio(&c__1, "co \" \" :", 20L);
- do_fio(&c__1, (char *)&sdmoca, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sumoca, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&stmoca, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 1401) >*/
- io___471.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___471);
- e_wsfe();
-/*< write(iwr, 1401) >*/
- io___472.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___472);
- e_wsfe();
-/*< write(iwr, 931)'rayl. sca. trans. :',sdtotr,sutotr,sutotr*sdtotr >*/
- io___473.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___473);
- do_fio(&c__1, "rayl. sca. trans. :", 20L);
- do_fio(&c__1, (char *)&sdtotr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sutotr, (ftnlen)sizeof(doublereal));
- d__1 = sutotr * sdtotr;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'aeros. sca. " :',sdtota,sutota,sutota*sdtota >*/
- io___474.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___474);
- do_fio(&c__1, "aeros. sca. \" :", 20L);
- do_fio(&c__1, (char *)&sdtota, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sutota, (ftnlen)sizeof(doublereal));
- d__1 = sutota * sdtota;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'total sca. " :',sdtott,sutott,sutott*sdtott >*/
- io___475.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___475);
- do_fio(&c__1, "total sca. \" :", 20L);
- do_fio(&c__1, (char *)&sdtott, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sutott, (ftnlen)sizeof(doublereal));
- d__1 = sutott * sdtott;
- do_fio(&c__1, (char *)&d__1, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 1401) >*/
- io___476.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___476);
- e_wsfe();
-/*< write(iwr, 1401) >*/
- io___477.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___477);
- e_wsfe();
-/*< write(iwr, 939) >*/
- io___478.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___478);
- e_wsfe();
-/*< write(iwr, 931)'spherical albedo :',sasr,sasa,sast >*/
- io___479.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___479);
- do_fio(&c__1, "spherical albedo :", 20L);
- do_fio(&c__1, (char *)&sasr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sasa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sast, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'optical depth total:',sodray,sodaer,sodtot >*/
- io___480.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___480);
- do_fio(&c__1, "optical depth total:", 20L);
- do_fio(&c__1, (char *)&sodray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sodaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sodtot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'optical depth plane:',sodrayp,sodaerp,sodtotp >*/
- io___481.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___481);
- do_fio(&c__1, "optical depth plane:", 20L);
- do_fio(&c__1, (char *)&sodrayp, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sodaerp, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sodtotp, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< if (ipol.eq.0) then >*/
- if (ipol == 0) {
-/*< write(iwr, 931)'reflectance :',sroray,sroaer,srotot >*/
- io___482.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___482);
- do_fio(&c__1, "reflectance :", 20L);
- do_fio(&c__1, (char *)&sroray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sroaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srotot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'phase function :',fophsr,fophsa,fophst >*/
- io___483.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___483);
- do_fio(&c__1, "phase function :", 20L);
- do_fio(&c__1, (char *)&fophsr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&fophsa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&fophst, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< else >*/
- } else {
-/*< write(iwr, 931)'reflectance I :',sroray,sroaer,srotot >*/
- io___484.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___484);
- do_fio(&c__1, "reflectance I :", 20L);
- do_fio(&c__1, (char *)&sroray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sroaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srotot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'reflectance Q :',srqray,srqaer,srqtot >*/
- io___485.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___485);
- do_fio(&c__1, "reflectance Q :", 20L);
- do_fio(&c__1, (char *)&srqray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srqaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srqtot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'reflectance U :',sruray,sruaer,srutot >*/
- io___486.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___486);
- do_fio(&c__1, "reflectance U :", 20L);
- do_fio(&c__1, (char *)&sruray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sruaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srutot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'polarized reflect. :',srpray,srpaer,srptot >*/
- io___487.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___487);
- do_fio(&c__1, "polarized reflect. :", 20L);
- do_fio(&c__1, (char *)&srpray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srpaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&srptot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 932)'degree of polar. :',sdpray,sdpaer,sdptot >*/
- io___488.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___488);
- do_fio(&c__1, "degree of polar. :", 20L);
- do_fio(&c__1, (char *)&sdpray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sdpaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sdptot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 932)'dir. plane polar. :',sdppray,sdppaer,sdpptot >*/
- io___489.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___489);
- do_fio(&c__1, "dir. plane polar. :", 20L);
- do_fio(&c__1, (char *)&sdppray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sdppaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&sdpptot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/* CC write(iwr, 931)'instrument app ref.:',zero,zero,refeti */
-/*< write(iwr, 931)'phase function I :',fophsr,fophsa,fophst >*/
- io___490.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___490);
- do_fio(&c__1, "phase function I :", 20L);
- do_fio(&c__1, (char *)&fophsr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&fophsa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&fophst, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'phase function Q :',foqhsr,foqhsa,foqhst >*/
- io___491.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___491);
- do_fio(&c__1, "phase function Q :", 20L);
- do_fio(&c__1, (char *)&foqhsr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&foqhsa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&foqhst, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'phase function U :',fouhsr,fouhsa,fouhst >*/
- io___492.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___492);
- do_fio(&c__1, "phase function U :", 20L);
- do_fio(&c__1, (char *)&fouhsr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&fouhsa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&fouhst, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 931)'primary deg. of pol:',spdpray,spdpaer,spdptot >*/
- io___493.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___493);
- do_fio(&c__1, "primary deg. of pol:", 20L);
- do_fio(&c__1, (char *)&spdpray, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&spdpaer, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&spdptot, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< endif >*/
- }
-/*< write(iwr, 931)'sing. scat. albedo :',pizerr,pizera,pizert >*/
- io___494.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___494);
- do_fio(&c__1, "sing. scat. albedo :", 20L);
- do_fio(&c__1, (char *)&pizerr, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&pizera, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&pizert, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 1401) >*/
- io___495.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___495);
- e_wsfe();
-/*< write(iwr, 1402) >*/
- io___496.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___496);
- e_wsfe();
-/* **********************************************************************c
- */
-/* c
-*/
-/* atmospheric correction c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< if (irapp.ge.0) then >*/
- if (irapp >= 0) {
-/*< if (rapp.ge.0.) then >*/
- if (rapp >= 0.) {
-/*< xrad=rapp >*/
- xrad = rapp;
-/*< rapp=pi*xrad*sb/xmus/seb >*/
- rapp = pi * xrad * sb / xmus / seb;
-/*< else >*/
- } else {
-/*< rapp=-rapp >*/
- rapp = -rapp;
-/*< xrad=xmus*seb*(rapp)/pi/sb >*/
- xrad = xmus * seb * rapp / pi / sb;
-/*< endif >*/
- }
-/*< rog=rapp/tgasm >*/
- rog = rapp / tgasm;
-/*< rog=(rog-ainr(1,1)/tgasm)/sutott/sdtott >*/
- rog = (rog - ainr[0] / tgasm) / sutott / sdtott;
-/*< rog=rog/(1.+rog*sast) >*/
- rog /= rog * sast + 1.;
-/*< xa=pi*sb/xmus/seb/tgasm/sutott/sdtott >*/
- xa = pi * sb / xmus / seb / tgasm / sutott / sdtott;
-/*< xap=1./tgasm/sutott/sdtott >*/
- xap = 1. / tgasm / sutott / sdtott;
-/*< xb=ainr(1,1)/sutott/sdtott/tgasm >*/
- xb = ainr[0] / sutott / sdtott / tgasm;
-/*< xb=ainr(1,1)/sutott/sdtott/tgasm >*/
- xb = ainr[0] / sutott / sdtott / tgasm;
-/*< xc=sast >*/
- xc = sast;
-/* BRDF coupling correction */
-/*< if (idirec.eq.1) then >*/
- if (idirec == 1) {
-/* compute the coefficient of the 2nd degree equation */
-/* a*(ros^2)+b*ros+c */
-/* compute ratios and transmissions */
-/*< robarstar=(robar1/xnorm1)/brdfints(mu,1) >*/
- robarstar = robar1 / xnorm1 / brdfints[mu + 25];
-/*< robarpstar=(robar2/xnorm2)/brdfints(mu,1) >*/
- robarpstar = robar2 / xnorm2 / brdfints[mu + 25];
-/*< robarbarstar=albbrdf/brdfints(mu,1) >*/
- robarbarstar = albbrdf / brdfints[mu + 25];
-/*< tdd=exp(-sodtot/xmus) >*/
- tdd = exp(-sodtot / xmus);
-/*< tdu=exp(-sodtot/xmuv) >*/
- tdu = exp(-sodtot / xmuv);
-/*< tsd=sdtott-tdd >*/
- tsd = sdtott - tdd;
-/*< tsu=sutott-tdu >*/
- tsu = sutott - tdu;
-/* compute coefficients */
-/*< coefc=-(rapp/tgasm-ainr(1,1)/tgasm) >*/
- coefc = -(rapp / tgasm - ainr[0] / tgasm);
-/*< coefb=tdd*tdu+tdu*tsd*robarstar+tsu*tdd*robarpstar >*/
- coefb = tdd * tdu + tdu * tsd * robarstar + tsu * tdd *
- robarpstar;
-/*< coefb=coefb+tsu*tsd*robarbarstar >*/
- coefb += tsu * tsd * robarbarstar;
-/*< coefa=sdtott*sutott*sast*robarbarstar*robarbarstar >*/
- coefa = sdtott * sutott * sast * robarbarstar * robarbarstar;
-/*< coefa=coefa/(1-sast*(rog/brdfints(mu,1)*albbrdf)) >*/
- coefa /= 1 - sast * (rog / brdfints[mu + 25] * albbrdf);
-/* solve equations, compute solutions */
-/*< discri=sqrt(coefb*coefb-4*coefa*coefc) >*/
- discri = sqrt(coefb * coefb - coefa * 4 * coefc);
-/*< rogbrdf=(-coefb+discri)/(2*coefa) >*/
- rogbrdf = (-coefb + discri) / (coefa * 2);
-/* second pass use update value for rog */
-/*< coefa=sdtott*sutott*sast*robarbarstar*robarbarstar >*/
- coefa = sdtott * sutott * sast * robarbarstar * robarbarstar;
-/*< coefa=coefa/(1-sast*(rogbrdf/brdfints(mu,1)*albbrdf)) >*/
- coefa /= 1 - sast * (rogbrdf / brdfints[mu + 25] * albbrdf);
-/*< discri=sqrt(coefb*coefb-4*coefa*coefc) >*/
- discri = sqrt(coefb * coefb - coefa * 4 * coefc);
-/*< rogbrdf=(-coefb+discri)/(2*coefa) >*/
- rogbrdf = (-coefb + discri) / (coefa * 2);
-/*< else >*/
- } else {
-/*< rogbrdf=rog >*/
- rogbrdf = rog;
-/*< endif >*/
- }
-/*< write(iwr, 940) >*/
- io___520.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___520);
- e_wsfe();
-/*< write(iwr, 941)rapp >*/
- io___521.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___521);
- do_fio(&c__1, (char *)&rapp, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 942)xrad >*/
- io___522.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___522);
- do_fio(&c__1, (char *)&xrad, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< if (irapp.eq.0) then >*/
- if (irapp == 0) {
-/*< write(iwr, 943)rog >*/
- io___523.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___523);
- do_fio(&c__1, (char *)&rog, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(iwr, 944)xa,xb,xc >*/
- io___524.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___524);
- do_fio(&c__1, (char *)&xa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xb, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xc, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< else >*/
- } else {
-/*< write(iwr,222)rog,rogbrdf >*/
- io___525.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___525);
- do_fio(&c__1, (char *)&rog, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&rogbrdf, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< endif >*/
- }
-/*< write(iwr, 944)xa,xb,xc >*/
- io___526.ciunit = sixs_ier__1.iwr;
- s_wsfe(&io___526);
- do_fio(&c__1, (char *)&xa, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xb, (ftnlen)sizeof(doublereal));
- do_fio(&c__1, (char *)&xc, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/* write(iwr, *) "david roy ", xap,xb,xc */
-/*< y=xa*xrad-xb >*/
- y = xa * xrad - xb;
-/* write(6,'(A5,F9.5)') 'rog=', rog */
-/* write(6,'(A5,F9.5,A8,F9.5)') 'y=',y, ' acr=',y/(1.+xc*y) */
-/* write(6,*) 'rogbrdf=',rogbrdf,' rodir=',brdfints(mu,1), */
-/* s ' diff=',rogbrdf-brdfints(mu,1) */
-/*< endif >*/
- }
-/* _otb_adaptation Beginning: */
-/*< 9999 return !Added_for_OTB >*/
-L9999:
- return 0;
-/* _otb_adaptation End : */
-/*< stop >*/
- s_stop("", 0L);
-/* **********************************************************************c
- */
-/* c
-*/
-/* output editing formats c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< 103 format(1h*,2x,7h month:,i3,7h day : ,i3,t79,1h*) >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< 1271 format(1h*,12x,5e11.4,t79,1h*) >*/
-/*< 1 >*/
-/*< 5550 format(1h*,10x,25h aerosols type identity :,t79,1h*) >*/
-/*< 5 >*/
-/*< 5 >*/
-/*< 5553 format(1h*,15x,I2,1x,f10.1,13x,f5.3,15x,A15,t79,1h*) >*/
-/*< 5554 format(1h*,15x,20hno aerosols computed,t79,1h*) >*/
-/*< 5555 format(1h*,t79,1h*) >*/
-/*< 132 format(1h*,15x,a30,t79,1h*) >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< 135 format(1h*,t19,f6.4,T33,f5.3,T47,e8.3,T79,1h*) >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< 1 >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< 1 >*/
-/*< >*/
-/* L168: */
-/*< >*/
-/*< 170 format(1h*,15x,22h target reflectance : ,t79,1h*) >*/
-/*< 171 format(1h*,15x,29h environmental reflectance : ,t79,1h*) >*/
-/*< 172 format(1h*,t79,1h*,/,79(1h*),///) >*/
-/* L172: */
-/*< >*/
-/* L173: */
-/*< 174 format(1h*,10x,22h ground pressure [mb] ,1x,f7.2,1x,t79,1h*) >*/
-/* L174: */
-/*< 175 format(1h*,10x,22h ground altitude [km] ,f6.3,1x,t79,1h*) >*/
-/* L175: */
-/*< >*/
-/* L176: */
-/*< >*/
-/* L177: */
-/*< 220 format(1h*,23x,34h Lambertian assumption selected ,t79,1h*) >*/
-/* L220: */
-/*< 221 format(1h*,23x,34h BRDF coupling correction ,t79,1h*) >*/
-/* L221: */
-/*< 185 format(1h*,10x,30h input apparent reflectance : , f6.3,t79,1h*) >*/
-/* L185: */
-/*< >*/
-/* L186: */
-/*< >*/
-/* L187: */
-/*< 190 format(1h*,15x,31h brdf from in-situ measurements,t79,1h*) >*/
-/* L190: */
-/*< >*/
-/* L191: */
-/*< >*/
-/* L192: */
-/*< >*/
-/* L193: */
-/*< >*/
-/* L194: */
-/*< >*/
-/* L195: */
-/*< >*/
-/* L196: */
-/*< >*/
-/* L197: */
-/*< >*/
-/* L198: */
-/*< >*/
-/* L199: */
-/*< >*/
-/* L200: */
-/*< >*/
-/* L201: */
-/*< >*/
-/* L202: */
-/*< >*/
-/* L203: */
-/*< >*/
-/* L204: */
-/*< >*/
-/* L205: */
-/*< >*/
-/* L206: */
-/*< 207 format(1h*,15x,A19,t79,1h*) >*/
-/* L207: */
-/*< 208 format(1h*,15x,A19,1x,f5.2,t79,1h*) >*/
-/* L208: */
-/*< 209 format(1h*,15x,A31,t79,1h*) >*/
-/* L209: */
-/*< >*/
-/* L210: */
-/*< >*/
-/* L211: */
-/* pressure at ground level (174) and altitude (175) */
-/*< >*/
-/* L178: */
-/*< 179 format(1h*,10x,31h plane pressure [mb] ,f7.2,1x,t79,1h*) >*/
-/* L179: */
-/*< 180 format(1h*,10x,31h plane altitude absolute [km] ,f6.3,1x,t79,1h*) >*/
-/* L180: */
-/*< 181 format(1h*,15x,37h atmosphere under plane description: ,t79,1h*) >*/
-/* L181: */
-/*< 182 format(1h*,15x,26h ozone content ,f6.3,1x,t79,1h*) >*/
-/* L182: */
-/*< 183 format(1h*,15x,26h h2o content ,f6.3,1x,t79,1h*) >*/
-/* L183: */
-/*< 184 format(1h*,15x,26haerosol opt. thick. 550nm ,f6.3,1x,t79,1h*) >*/
-/* L184: */
-/*< >*/
-/* L426: */
-/*< >*/
-/* L427: */
-/*< >*/
-/* L428: */
-/*< >*/
-/*< >*/
-/*< >*/
-/* L500: */
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< 929 format(1h ,////) >*/
-/*< >*/
-/*< 931 format(1h*,6x,a20,t32,f8.5,t47,f8.5,t62,f8.5,t79,1h*) >*/
-/*< 932 format(1h*,6x,a20,t32,f8.2,t47,f8.2,t62,f8.2,t79,1h*) >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< >*/
-/*< 1401 format(1h*,t79,1h*) >*/
-/*< 1402 format(1h*,t79,1h*,/,79(1h*)) >*/
-/*< 1 >*/
-/*< 1501 format(1h*,6(F6.4,1X),F6.1,1X,4(F6.4,1X),t79,1h*) >*/
-/* L1501: */
-/*< 1502 format(1h*,6(F5.3,1X),F6.1,1X,1(F6.4,1X),t79,1h*) >*/
-/* L1502: */
-/*< 1503 format(1h*,6x,5(F5.3,1X),F6.1,1X,1(F6.4,1X),t79,1h*) >*/
-/* L1503: */
-/*< end >*/
- return 0;
-} /* otb_6s__ */
-
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/otb_main6S_function.f b/Modules/ThirdParty/6S/src/otb_main6S_function.f
deleted file mode 100644
index 5bad2a4..0000000
--- a/Modules/ThirdParty/6S/src/otb_main6S_function.f
+++ /dev/null
@@ -1,3867 +0,0 @@
- subroutine otb_6S(otb_asol,otb_phi0,otb_avis,otb_phiv,
- I otb_month,otb_jday,
- I otb_pressure, otb_uw, otb_uo3,
- I otb_iaer, otb_taer55,
- I otb_wlinf, otb_wlsup, otb_s,
- O otb_ratm,otb_sast,otb_tgasm,
- O otb_sdtott,
- O otb_sutott, otb_tdif_up, otb_tdir_up,
- O otb_tdif_up_ray, otb_tdif_up_aer)
-
-C_otb MOD V2 : New outputs : otb_tdif_up = upward diffuse transmittance
-C_otb MOD V2 : New outputs : otb_tdir_up = upward direct transmittance
-C_otb MOD V2 : New outputs : otb_tdif_up_ray = upward dif. trans for rayleigh
-C_otb MOD V2 : New outputs : otb_tdif_up_aer = upward dif. transm. for aerosols
-C_otb MOD V2 :
-C_otb MOD V2 : Normalization of US62 pressure profile
-C_otb MOD V2 : by the user defined pressure
-
-
-c**********************************************************************c
-c c
-c c
-c c
-c c
-c c
-c ******************************************************** c
-c * second simulation of satellite signal * c
-c * in the solar spectrum * c
-c * ... (6sV) ....... (6sV) ...... (6sV) ... * c
-c * version 1.0B * c
-c * * c
-c * Vector Code * c
-c * * c
-c * this code predicts the satellite signal from 0.25 * c
-c * to 4.0 microns assuming cloudless atmosphere. * c
-c * the main atmospheric effects (gaseous absorption * c
-c * by water vapor,carbon dioxyde,oxygen and ozone; * c
-c * scattering by molecules and aerosols) are taken * c
-c * into account. non-uniform surfaces may be * c
-c * considered,as well as bidirectional reflectances * c
-c * as boundary conditions * c
-c * * c
-c * the following input parameters are needed * c
-c * geometrical conditions * c
-c * atmospheric model for gaseous components * c
-c * aerosol model (type and concentration) * c
-c * spectral condition * c
-c * ground reflectance (type and spectral var.) * c
-c * at each step, you can either select some proposed * c
-c * standard conditions (for example,spectral bands of * c
-c * satellite for spectral conditions) or define your * c
-c * own conditions(in the example,you have to define * c
-c * the assumed spectral response). * c
-c * * c
-c * more details are given at each data input step * c
-c * * c
-c ******************************************************** c
-c c
-c c
-c c
-c c
-c c
-c**********************************************************************c
-
-
-
-
-
-
-c**********************************************************************c
-c c
-c c
-c ******************************************************** c
-c * The authors of this code are * c
-c * * c
-c * (1) Vermote E and Kotchenova.S.; * c
-c * (2) Roger J.C..; * c
-c * (3) Tanre D.; Deuze J.L; Herman M.; * c
-c * (4) Morcrette J.J.. * c
-c * * c
-c * from * c
-c * * c
-c * (1) Affiliation: Department of Geography * c
-c * University of Maryland and * c
-c * Goddard Space Flight Center * c
-c * Code 614.5 * c
-c * USA * c
-c * * c
-c * (2) ELICO/LOCL * c
-c * Universite du Littoral Cote d'Opale * c
-c * 32 Ave Foch, 62930 Wimereux * c
-c * France * c
-c * * c
-c * (3) laboratoire d' optique atmospherique * c
-c * universite des sciences et techniques * c
-c * de lille * c
-c * u.e.r. de physique fondamentale * c
-c * 59655 villeneuve d' ascq cedex * c
-c * france * c
-c * * c
-c * (4) e.c.m.w.f. * c
-c * * c
-c * * c
-c * * c
-c * * c
-c ******************************************************** c
-c c
-c c
-c**********************************************************************c
-
-
-c**********************************************************************c
-c ******************************************************** c
-c * limits of validity * c
-c * * c
-c * geometrical parameters no limitations * c
-c * * c
-c * atmospheric model no limitations * c
-c * * c
-c * aerosol model the visibility must be * c
-c * better than 5.0km * c
-c * for smaller values * c
-c * calculations might be * c
-c * no more valid. * c
-c * * c
-c * spectral conditions the gaseous transmittance* c
-c * and the scattering func * c
-c * tions are valid from 0.25* c
-c * to 4.0 micron. but the * c
-c * treatment of interaction * c
-c * between absorption and * c
-c * scattering is correct for* c
-c * not too large absorption * c
-c * if you want to compute * c
-c * signal within absorption * c
-c * bands,this interaction * c
-c * ought to be reconsidered * c
-c * * c
-c * ground reflectance (type) you can consider a patchy* c
-c * structure:that is a circu* c
-c * lar target of radius rad * c
-c * and of reflectance roc, * c
-c * within an environnement * c
-c * of reflectance roe. * c
-c * * c
-c * ground reflectance (type continued): for uniform * c
-c * surface conditions only, * c
-c * you may consider directio* c
-c * nal reflectance as bounda* c
-c * ry conditions. * c
-c * some analytical model are* c
-c * proposed, the user can * c
-c * specify his own values. * c
-c * the code assumes that the* c
-c * brdf is spectrally inde- * c
-c * pendent * c
-c * * c
-c * ground reflectance (spectral variation) four typi * c
-c * cal reflectances are pro * c
-c * posed, defined within * c
-c * given spectral range. * c
-c * this range differs accor * c
-c * ding to the selected case* c
-c * the reflectance is set to* c
-c * 0 outside this range,due * c
-c * to the deficiency of data* c
-c * user must verify these * c
-c * limits. that is obviously* c
-c * irrelevant for brdf * c
-c * * c
-c ******************************************************** c
-c**********************************************************************c
-
-c****************************************************************************c
-c for considering brdf< we have to compute the downward radiance in the c
-c whole hemisphere. to perform such computions, we selected the successive c
-c orders of scattering method. that method requires numerical integration c
-c over angles and optical depth. the integration method is the gauss method,c
-c mu is the number of angles nmu+1, nmu is settled to 24. the accuracy of c
-c the computations is obviously depending on the nmu value. this value c
-c can be easily changed as a parameter as well as the nt value which c
-c is the number of layers for performing the vertical integration. the c
-c downward radiance is computed for nmu values of the zenith angle and np c
-c values of the azimuth angle. the integration of the product of the c
-c radiance by the brdf is so performed over the nmu*np values. np is settledc
-c to 13, that value can be also changed. mu2 is equal to 2 times nmu. c
-c xlmus is the downward radiance, xf the downward irradiance, rm and gb c
-c the angles and the weights for the gauss integration over the zenith, rp c
-c and gp respectively for the azimuth integration. c
-c****************************************************************************c
-
- parameter(nt_p=30,mu_p=25,mu2_p=48,np_p=49,nfi_p=181,nquad_p=83) !Added for OTB
- parameter (nt_p_max=100,nqmax_p=1000,nqdef_p=83) ! do not change !Added for OTB
-
- ! Attention !Added for OTB
- ! mu2_p has to be equal to (mu_p-1)*2 !Added for OTB
-
-C_otb include "paramdef.inc"
- dimension anglem(mu2_p),weightm(mu2_p),
- s rm(-mu_p:mu_p),gb(-mu_p:mu_p),rp(np_p),gp(np_p)
- dimension xlmus(-mu_p:mu_p,np_p),xlmuv(-mu_p:mu_p,np_p)
- dimension angmu(10),angphi(13),brdfints(-mu_p:mu_p,np_p)
- s ,brdfdats(10,13),sbrdftmp(-1:1,1),sbrdf(1501),
- s srm(-1:1),srp(1),
- s brdfintv(-mu_p:mu_p,np_p),brdfdatv(10,13),robar(1501),
- s robarp(1501),robard(1501),xlm1(-mu_p:mu_p,np_p),
- s xlm2(-mu_p:mu_p,np_p)
- real romix_fi(nfi_p),rorayl_fi(nfi_p),ratm2_fi(nfi_p),
- s refet_fi(nfi_p),roatm_fi(3,20,nfi_p),xlphim(nfi_p)
-
- real rolut(mu_p,41),roluts(20,mu_p,41),roluti(mu_p,41)
- real rolutq(mu_p,41),rolutsq(20,mu_p,41),rolutiq(mu_p,41)
- real rolutu(mu_p,41),rolutsu(20,mu_p,41),rolutiu(mu_p,41)
- real filut(mu_p,41)
- integer aerod
- real its,lutmuv,luttv,iscama,iscami,scaa,cscaa,cfi
- integer nfilut(mu_p),nbisca
- real dtr
- real anglem,weightm,rm,gb,accu2,accu3
- real rp,gp,xlmus,xlmuv,angmu,angphi,brdfints,brdfdats
- real brdfintv,brdfdatv,robar,robarp,robard,xlm1,xlm2
- real c,wldisc,ani,anr,aini,ainr,rocl,roel,zpl,ppl,tpl,whpl
- real wopl,xacc,s,wlinf,wlsup,delta
- real nwlinf,nwlsup
- integer niinf,nisup
- real sigma,z,p,t,wh,wo,ext,ome,gasym,phase,qhase,roatm,dtdir
- real dtdif,utdir,utdif,sphal,wldis,trayl,traypl,pi,pi2,step
- real asol,phi0,avis,phiv,tu,xlon,xlat,xlonan,hna,dsol,campm
- real phi,phirad,xmus,xmuv,xmup,xmud,adif,uw,uo3,taer55
- real taer,v,xps,uwus,uo3us,xpp,taer55p,puw,puo3,puwus
- real puo3us,wl,wlmoy,tamoy,tamoyp,pizmoy,pizmoyp,trmoy
- real trmoyp,fr,rad,spalt,sha,sham,uhase
- real albbrdf,par1,par2,par3,par4,robar1,xnorm1,rob,xnor,rodir
- real rdown,rdir,robar2,xnorm2,ro,roc,roe,rapp,rocave,roeave
- real seb,sbor,swl,sb,refet,refet1,refet2,refet3,alumet
- real refeti,pinst,ksiinst,ksirad
- real rpfet,rpfet1,rpfet2,rpfet3,plumet,plumeas
- real tgasm,rog,dgasm,ugasm,sdwava,sdozon,sddica,sdoxyg
- real sdniox,sdmoca,sdmeth,suwava,suozon,sudica,suoxyg
- real suniox,sumoca,sumeth,stwava,stozon,stdica,stoxyg,stniox
- real stmoca,stmeth,sodray,sodaer,sodtot,fophsr,fophsa,sroray
- real sroaer,srotot,ssdaer,sdtotr,sdtota,sdtott,sutotr,sutota
- real sutott,sasr,sasa,sast,dtozon,dtdica,dtoxyg
- real dtniox,dtmeth,dtmoca,utozon,utdica,utoxyg,utniox
- real utmeth,utmoca,attwava,ttozon,ttdica,ttoxyg,ttniox
- real ttmeth,ttmoca,dtwava,utwava,ttwava,coef,romix,rorayl
- real roaero,phaa,phar,tsca,tray,trayp,taerp,dtott,utott
- real rqmix,rqrayl,rqaero,qhaa,qhar,foqhsr,foqhsa,foqhst
- real rumix,rurayl,ruaero,uhaa,uhar,rpmix,rpaero,rprayl
- real srpray,srpaer,srptot,rpmeas1,rpmeas2,rpmeas3
- real srqray,srqaer,srqtot,sruray,sruaer,srutot
- real astot,asray,asaer,utotr,utota,dtotr,dtota,dgtot,tgtot
- real tgp1,tgp2,rqatm,ruatm,fouhst,fouhsr,fouhsa,coefp
- real ugtot,edifr,edifa,tdird,tdiru,tdifd,tdifu,fra
- real fae,avr,romeas1,romeas2,romeas3,alumeas,sodrayp
- real sdppray,sdppaer,sdpptot,rop,sdpray,sdpaer,sdptot
- real spdpray,spdpaer,spdptot
- real ratm1,ratm2,ratm3,rsurf,rpatm1,rpatm2,rpatm3,rpsurf
- real sodaerp,sodtotp,tdir,tdif,etn,esn,es,ea0n,ea0,ee0n
- real ee0,tmdir,tmdif,xla0n,xla0,xltn,xlt,xlen,xle,pizera
- real fophst,pizerr,pizert,xrad,xa,xb,xc
- integer nt,mu,mu2,np,k,iwr,mum1,idatmp,ipol
- integer j,iread,l,igeom,month,jday,nc,nl,idatm,iaer,iaerp,n
- integer iwave,iinf,isup,ik,i,inhomo,idirec,ibrdf,igroun
- integer igrou1,igrou2,isort,irapp,ilut
-c variables used in the BRDF coupling correction process
- real robarstar,robarpstar,robarbarstar,tdd,tdu,tsd,tsu
- real coefa,coefb,coefc,discri,rogbrdf
-c variables related to surface polarization
- integer irop
- real ropq,ropu,pveg,wspd,azw,razw
-
-
-c***********************************************************************
-c to vary the number of quadratures
-c***********************************************************************
- integer nquad
- common /num_quad/ nquad
-
-c***********************************************************************
-c the aerosol profile
-c***********************************************************************
- integer iaer_prof,num_z
- real alt_z,taer_z,taer55_z,total_height,height_z(0:nt_p_max)
- common/aeroprof/num_z,alt_z(0:nt_p_max),taer_z(0:nt_p_max),
- &taer55_z(0:nt_p_max)
- character aer_model(15)*50
-
-
-C_otb_adaptation Beginning: otb variables declaration
- !Added_for_OTB
- real otb_asol,otb_phi0 !solar zenithal and azimutal angles (input)
- real otb_avis,otb_phiv !viewing zenithal and azimutal angles (input)
- integer otb_month,otb_jday !date (input)
- real otb_pressure !real pressure (input)
- real otb_uw, otb_uo3 !real water vapor and ozone amounts (input)
- integer otb_iaer !number of aerosol model (input)
- real otb_taer55 !aerosol optical thickness at 550-nm (input)
- real otb_wlinf, otb_wlsup !wavelength min and max for the spectral band (input)
- real otb_s(1501) !spectral band definition (input)
-
- real otb_ratm !Atmospheric reflectance (output)
- real otb_sast !Atmospheric spherical albedo (output)
- real otb_tgasm !Total gaseous transmission (output)
- real otb_sdtott !Downward transmittance (output)
- real otb_sutott !Upward transmittance (output)
- real otb_tdif_up !Upward diffuse transmittance (output)
- real otb_tdir_up !Upward direct transmittance (output)
- real otb_tdif_up_ray !Upward diffuse transmittance for rayleigh (output)
- real otb_tdif_up_aer !Upward diffuse transmittance for aerosols (output)
-
-C_otb_adaptation End : otb variables declaration
-
-
-c***********************************************************************
-c return to 6s
-c***********************************************************************
- dimension c(4),wldisc(20),ani(2,3),anr(2,3),aini(2,3),ainr(2,3)
- dimension rocl(1501),roel(1501)
- real rfoaml(1501),rglitl(1501),rwatl(1501)
- real rn,ri,x1,x2,x3,cij,rsunph,nrsunph,rmax,rmin,cij_out(4)
- integer icp,irsunph,i1,i2
- character etiq1(8)*60,nsat(119)*17,atmid(7)*51,reflec(8)*71
- character FILE*80,FILE2*80
- logical ier
- integer igmax
-
- common/sixs_ier/iwr,ier
- common /mie_in/ rmax,rmin,icp,rn(20,4),ri(20,4),x1(4),x2(4),
- s x3(4),cij(4),irsunph,rsunph(50),nrsunph(50)
- common /multorder/ igmax
-c***********************************************************************
-c for considering pixel and sensor altitude
-c***********************************************************************
- real pps,palt,ftray
- common /sixs_planesim/zpl(34),ppl(34),tpl(34),whpl(34),wopl(34)
- common /sixs_test/xacc
-c***********************************************************************
-c for considering aerosol and brdf
-c***********************************************************************
-
- integer options(5)
- integer pild,pihs
- real optics(3),struct(4)
- real pxLt,pc,pRl,pTl,pRs
- real pws,phi_wind,xsal,pcl,paw,rfoam,rwat,rglit
- real rfoamave,rwatave,rglitave
-
- real uli,eei,thmi,sli,cabi,cwi,vaii,rnci,rsl1i
- real p1,p2,p3
-c***********************************************************************
-c return to 6s
-c***********************************************************************
- common /sixs_ffu/s(1501),wlinf,wlsup
- common /sixs_del/ delta,sigma
- common /sixs_atm/z(34),p(34),t(34),wh(34),wo(34)
- common /sixs_aer/ext(20),ome(20),gasym(20),phase(20),qhase(20),
- suhase(20)
- common /sixs_disc/ roatm(3,20),dtdir(3,20),dtdif(3,20),
- s utdir(3,20),utdif(3,20),sphal(3,20),wldis(20),trayl(20),
- s traypl(20),rqatm(3,20),ruatm(3,20)
-
-
-c****************************************************************************c
-c angmu and angphi are the angles were the brdf is measured. these values c
-c can be changed as soon as they are well distributed over the whole space c
-c before the gauss integration, these values are interpolated to the gauss c
-c angles c
-c****************************************************************************c
- data angmu /85.0,80.0,70.0,60.0,50.0,40.0,30.0,20.0,10.0,0.00/
- data angphi/0.00,30.0,60.0,90.0,120.0,150.0,180.0,
- s 210.0,240.0,270.0,300.0,330.0,360.0/
-
-c***********************************************************************
-c return to 6s
-c***********************************************************************
- data wldisc /0.350,0.400,0.412,0.443,0.470,0.488,0.515,0.550,
- s 0.590,0.633,0.670,0.694,0.760,0.860,1.240,1.536,
- s 1.650,1.950,2.250,3.750/
-
-
- data etiq1/
- s '(1h*,22x,34h user defined conditions ,t79,1h*)',
- s '(1h*,22x,24h meteosat observation ,t79,1h*) ',
- s '(1h*,22x,25h goes east observation ,t79,1h*) ',
- s '(1h*,22x,25h goes west observation ,t79,1h*) ',
- s '(1h*,22x,30h avhrr (AM noaa) observation ,t79,1h*) ',
- s '(1h*,22x,30h avhrr (PM noaa) observation ,t79,1h*) ',
- s '(1h*,22x,24h h.r.v. observation ,t79,1h*) ',
- s '(1h*,22x,24h t.m. observation ,t79,1h*) '/
-
- data nsat/
- s ' constant ',' user s ',
- s ' meteosat ',' goes east ',' goes west ',
- s ' avhrr 1 (noaa6) ',' avhrr 2 (noaa6) ',
- s ' avhrr 1 (noaa7) ',' avhrr 2 (noaa7) ',
- s ' avhrr 1 (noaa8) ',' avhrr 2 (noaa8) ',
- s ' avhrr 1 (noaa9) ',' avhrr 2 (noaa9) ',
- s ' avhrr 1 (noaa10)',' avhrr 2 (noaa10)',
- s ' avhrr 1 (noaa11)',' avhrr 2 (noaa11)',
- s ' hrv1 1 ',' hrv1 2 ',' hrv1 3 ',
- s ' hrv1 pan ',
- s ' hrv2 1 ',' hrv2 2 ',' hrv2 3 ',
- s ' hrv2 pan ',
- s ' tm 1 ',' tm 2 ',' tm 3 ',
- s ' tm 4 ',' tm 5 ',' tm 7 ',
- s ' mss 4 ',' mss 5 ',
- s ' mss 6 ',' mss 7 ',
- s ' mas 1 ',' mas 2 ',' mas 3 ',
- s ' mas 4 ',' mas 5 ',' mas 6 ',
- s ' mas 7 ',' modis 1 ',' modis 2 ',
- s ' modis 3 ',' modis 4 ',' modis 5 ',
- s ' modis 6 ',' modis 7 ',' modis 8 ',
- s ' avhrr 1 (noaa12)',' avhrr 2 (noaa12)',
- s ' avhrr 1 (noaa14)',' avhrr 2 (noaa14)',
- s ' polder 1 ',' polder 2 ',
- s ' polder 3 ',' polder 4 ',' polder 5 ',
- s ' polder 6 ',' polder 7 ',' polder 8 ',
- s ' seawifs 1 ',' seawifs 2 ',
- s ' seawifs 3 ',' seawifs 4 ',' seawifs 5 ',
- s ' seawifs 6 ',' seawifs 7 ',' seawifs 8 ',
- s ' aatsr 1 ',' aatsr 2 ',' aatsr 3 ',
- s ' aatsr 4 ',' meris 1 ',' meris 2 ',
- s ' meris 3 ',' meris 4 ',' meris 5 ',
- s ' meris 6 ',' meris 7 ',' meris 8 ',
- s ' meris 9 ',' meris 10 ',' meris 11 ',
- s ' meris 12 ',' meris 13 ',' meris 14 ',
- s ' meris 15 ',' gli 1 ',' gli 2 ',
- s ' gli 3 ',' gli 4 ',' gli 5 ',
- s ' gli 6 ',' gli 7 ',' gli 8 ',
- s ' gli 9 ',' gli 10 ',' gli 11 ',
- s ' gli 12 ',' gli 13 ',' gli 14 ',
- s ' gli 15 ',' gli 16 ',' gli 17 ',
- s ' gli 18 ',' gli 19 ',' gli 20 ',
- s ' gli 21 ',' gli 22 ',' gli 23 ',
- s ' gli 24 ',' gli 25 ',' gli 26 ',
- s ' gli 27 ',' gli 28 ',' gli 29 ',
- s ' gli 30 '/
-
- data atmid /
- s 'no absorption computed ',
- s 'tropical (uh2o=4.12g/cm2,uo3=.247cm-atm)',
- s 'midlatitude summer (uh2o=2.93g/cm2,uo3=.319cm-atm)',
- s 'midlatitude winter (uh2o=.853g/cm2,uo3=.395cm-atm)',
- s 'subarctic summer (uh2o=2.10g/cm2,uo3=.480cm-atm)',
- s 'subarctic winter (uh2o=.419g/cm2,uo3=.480cm-atm)',
- s 'us standard 1962 (uh2o=1.42g/cm2,uo3=.344cm-atm)'/
-
- data reflec /
- & '(1h*,12x,39h user defined spectral reflectance ,f6.3,t79
- & ,1h*) ',
- & '(1h*,12x,27h monochromatic reflectance ,f6.3,t79,1h*)',
- & '(1h*,12x,39h constant reflectance over the spectra ,f6.3,t79
- & ,1h*) ',
- & '(1h*,12x,39h spectral vegetation ground reflectance,f6.3,t79
- & ,1h*) ',
- & '(1h*,12x,39h spectral clear water reflectance ,f6.3,t79
- & ,1h*) ',
- & '(1h*,12x,39h spectral dry sand ground reflectance ,f6.3,t79
- & ,1h*) ',
- & '(1h*,12x,39h spectral lake water reflectance ,f6.3,t79
- & ,1h*) ',
- & '(1h*,12x,39h spectral volcanic debris reflectance ,f6.3,t79
- & ,1h*) '/
-
- FILE=' '
- FILE2=' '
-
-c***********************************************************************
-c Parameters initialization
-c***********************************************************************
- nt=nt_p
- mu=mu_p
- mu2=mu2_p
- np=np_p
- nfi=nfi_p
- iwr=6
- ier=.FALSE.
- iinf=1
- isup=1501
- igmax=20
-c***********************************************************************
-c preliminary computations for gauss integration
-c***********************************************************************
- pi=acos(-1.)
- pi2=2*pi
- accu2=1.E-03
- accu3=1.E-07
- do k=1,13
- angphi(k)=angphi(k)*pi/180.
- enddo
- do k=1,10
- angmu(k)=cos(angmu(k)*pi/180.)
- enddo
- call gauss(-1.,1.,anglem,weightm,mu2)
- call gauss(0.,pi2,rp,gp,np)
- mum1=mu-1
- do 581 j=-mum1,-1
- k=mu+j
- rm(-j-mu)=anglem(k)
- gb(-j-mu)=weightm(k)
- 581 continue
- do 582 j=1,mum1
- k=mum1+j
- rm(mu-j)=anglem(k)
- gb(mu-j)=weightm(k)
- 582 continue
- gb(-mu)=0.
- gb(0)=0.
- gb(mu)=0.
-
-c***********************************************************************
-c return to 6s
-c***********************************************************************
-c constantes values
- sigma=0.056032
- delta=0.0279
-CCC pinst=0.02
-CCC ksiinst=0.
- xacc=1.e-06
- iread=5
- step=0.0025
- do 1111 l=1,20
- wldis(l)=wldisc(l)
- 1111 continue
-
-c**********************************************************************c
-c c
-c * sun c
-c \ * / c
-c * * * * * c
-c z / * \ c
-c + /* c
-c satellite / + / c
-c o/ + / c
-c /.\ + /. c
-c / . \ _avis-_+_-asol_/ . c
-c . \- -+ / . north c
-c . \ + / . + c
-c . \ + / .+ c
-c . \ + / +. c
-c . \ + / + . c
-c . \ + / + . c
-c . \ +/ + . c
-c west + + + + + + + . + + + + +\+ + + + + . + + + + + + + + east c
-c . +.. . c
-c . + . . . c
-c . + . . . c
-c . + . .'. . c
-c . + .. . , ' .. c
-c .+ . \ . c
-c +. . \ . c
-c + . . \ . c
-c south . . (phiv-phi0) c
-c c
-c c
-c c
-c**********************************************************************c
-
-c**********************************************************************c
-c igeom geometrical conditions c
-c -------------------------------------- c
-c c
-c c
-c you choose your own conditions; igeom=0 c
-c 0 enter solar zenith angle (in degrees ) c
-c solar azimuth angle " c
-c satellite zenith angle " c
-c satellite azimuth angle " c
-c month c
-c day of the month c
-c c
-c or you select one of the following satellite conditions:igeom=1to7 c
-c 1 meteosat observation c
-c enter month,day,decimal hour (universal time-hh.ddd) c
-c n. of column,n. of line.(full scale 5000*2500) c
-c c
-c 2 goes east observation c
-c enter month,day,decimal hour (universal time-hh.ddd) c
-c n. of column,n. of line.(full scale 17000*12000)c
-c c
-c 3 goes west observation c
-c enter month,day,decimal hour (universal time-hh.ddd) c
-c n. of column,n. of line.(full scale 17000*12000)c
-c c
-c 4 avhrr ( PM noaa ) c
-c enter month,day,decimal hour (universal time-hh.ddd) c
-c n. of column(1-2048),xlonan,hna c
-c give long.(xlonan) and overpass hour (hna) at c
-c the ascendant node at equator c
-c c
-c 5 avhrr ( AM noaa ) c
-c enter month,day,decimal hour (universal time-hh.ddd) c
-c n. of column(1-2048),xlonan,hna c
-c give long.(xlonan) and overpass hour (hna) at c
-c the ascendant node at equator c
-c c
-c 6 hrv ( spot ) * enter month,day,hh.ddd,long.,lat.c
-c c
-c 7 tm ( landsat ) * enter month,day,hh.ddd,long.,lat.c
-c c
-c c
-c note: for hrv and tm experiments long. and lat. are the c
-c coordinates of the scene center. c
-c lat. must be > 0 for north lat., < 0 for south lat. c
-c long. must be > 0 for east long., <0 for west long. c
-c c
-c solar and viewing positions are computed c
-c c
-c**********************************************************************c
-C_otb_adaptation Beginning: igeom = 0 by default
-C_otb read(iread,*) igeom
- igeom = 0 !Added_for_OTB
- asol = otb_asol !Added_for_OTB
- phi0 = otb_phi0 !Added_for_OTB
- avis = otb_avis !Added_for_OTB
- phiv = otb_phiv !Added_for_OTB
- month = otb_month !Added_for_OTB
- jday = otb_jday !Added_for_OTB
-
- if (igeom.lt.0) then
- if (igeom.lt.-10) then
- igmax=int(abs(igeom/10))
- igeom=igeom+igmax*10
- endif
- ilut=0
- igeom=0
- endif
- ilut=0
-C_otb goto(1001,1002,1003,1004,1005,1006,1007),igeom
-c igeom=0.....
-
-C_otb read(iread,*) asol,phi0,avis,phiv,month,jday
-
-C_otb goto 22
-c
-C_otb 1001 read(iread,*) month,jday,tu,nc,nl
-C_otb call posmto(month,jday,tu,nc,nl,
-C_otb 1 asol,phi0,avis,phiv,xlon,xlat)
-C_otb goto 22
-C_otb 1002 read(iread,*) month,jday,tu,nc,nl
-C_otb call posge(month,jday,tu,nc,nl,
-C_otb 1 asol,phi0,avis,phiv,xlon,xlat)
-C_otb goto 22
-C_otb 1003 read(iread,*) month,jday,tu,nc,nl
-C_otb call posgw(month,jday,tu,nc,nl,
-C_otb 1 asol,phi0,avis,phiv,xlon,xlat)
-C_otb goto 22
-C_otb 1004 read(iread,*) month,jday,tu,nc,xlonan,hna
-C_otb campm=1.0
-C_otb call posnoa(month,jday,tu,nc,xlonan,hna,campm,
-C_otb 1 asol,phi0,avis,phiv,xlon,xlat)
-C_otb goto 22
-C_otb 1005 read(iread,*) month,jday,tu,nc,xlonan,hna
-C_otb campm=-1.0
-C_otb call posnoa(month,jday,tu,nc,xlonan,hna,campm,
-C_otb 1 asol,phi0,avis,phiv,xlon,xlat)
-C_otb goto 22
-C_otb 1006 read(iread,*) month,jday,tu,xlon,xlat
-C_otb call posspo(month,jday,tu,xlon,xlat,
-C_otb a asol,phi0,avis,phiv)
-C_otb goto 22
-C_otb 1007 read(iread,*) month,jday,tu,xlon,xlat
-C_otb call poslan(month,jday,tu,xlon,xlat,
-C_otb s asol,phi0,avis,phiv)
-C_otb 22 continue
-
-C_otb_adaptation End : igeom = 0 by default
-
- if(ier) stop
- dsol=1.
- call varsol(jday,month,dsol)
-
-c**********************************************************************c
-c c
-c / scattered direction c
-c / c
-c / c
-c / adif c
-c incident + + + + + + + + + + + + + + + c
-c direction c
-c c
-c**********************************************************************c
- phi=abs(phiv-phi0)
- phirad=(phi0-phiv)*pi/180.
- if (phirad.lt.0.) phirad=phirad+2.*pi
- if (phirad.gt.(2.*pi)) phirad=phirad-2.*pi
- xmus=cos(asol*pi/180.)
- xmuv=cos(avis*pi/180.)
- xmup=cos(phirad)
- xmud=-xmus*xmuv-sqrt(1.-xmus*xmus)*sqrt(1.-xmuv*xmuv)*xmup
-c test vermote bug
- if (xmud.gt.1.) xmud=1.
- if (xmud.lt.-1.) xmud=-1.
- adif=acos(xmud)*180./pi
-
-
-c**********************************************************************c
-c idatm atmospheric model c
-c -------------------- c
-c c
-c c
-c you select one of the following standard atmosphere: idatm=0 to 6 c
-c 0 no gaseous absorption c
-c 1 tropical ) c
-c 2 midlatitude summer ) c
-c 3 midlatitude winter ) c
-c 4 subarctic summer ) from lowtran c
-c 5 subarctic winter ) c
-c 6 us standard 62 ) c
-c c
-c or you define your own atmospheric model idatm=7 or 8 c
-c 7 user profile (radiosonde data on 34 levels) c
-c enter altitude ( in km ) c
-c pressure ( in mb ) c
-c temperature ( in k ) c
-c h2o density (in g/m3) c
-c o3 density (in g/m3) c
-c c
-c for example, altitudes are from 0 to 25km step of 1km c
-c from 25 to 50km step of 5km c
-c and two values at 70km and 100km c
-c so you have 34*5 values to input. c
-c 8 enter water vapor and ozone contents c
-c uw (in g/cm2 ) c
-c uo3 (in cm-atm) c
-c profil is taken from us62 c
-c c
-c**********************************************************************c
-C_otb_adaptation Beginning: idatm=8, use of atmospheric model US62,
-C_otb_adaptation and real ozone and vater vaper amounts
-
-C_otb uw=0.
-C_otb uo3=0.
-C_otb read(iread,*) idatm
-
- idatm=8 !Added_for_OTB
- call us62 !Added_for_OTB
- uw = otb_uw !Added_for_OTB
- uo3 = otb_uo3 !Added_for_OTB
-
- !Normalization of the US62 pressure profile accouting for
- !the ground pressure entered by user.
- !
- !Normalization of gas amounts is performed in subroutine ABSTRA.
- do 123 i=1,34 !Added_for_OTB
- p(i)=p(i)*otb_pressure/p(1) !Added_for_OTB
-123 continue !Added_for_OTB
-
-
-C_otb if(idatm.eq.0) go to 5
-C_otb if(idatm.eq.8) read(iread,*) uw,uo3
-C_otb if(idatm.ne.7) go to 6
-C_otb do 7 k=1,34
-C_otb read(iread,*) z(k),p(k),t(k),wh(k),wo(k)
-C_otb 7 continue
-C_otb go to 5
-C_otb 6 if(idatm.eq.1) call tropic
-C_otb if(idatm.eq.2) call midsum
-C_otb if(idatm.eq.3) call midwin
-C_otb if(idatm.eq.4) call subsum
-C_otb if(idatm.eq.5) call subwin
-C_otb if(idatm.eq.6) call us62
-c we have to define an atmosphere to compute rayleigh optical depth
-C_otb 5 if(idatm.eq.0.or.idatm.eq.8) call us62
-
-C_otb_adaptation End: idatm=8, use of atmospheric model US62,real amounts
-
-c**********************************************************************c
-c THIS OPTION IS NOT AVAILABLE THE CODE RUNS WITH IPOL=1 c
-c ipol computation of the atmospheric polarization c
-c ------------------------------------------- c
-c c
-c**********************************************************************c
-
-c read(iread,*) ipol
- ipol=1
-
-c**********************************************************************c
-c c
-c iaer aerosol model(type) and profile c
-c -------------- c
-c iaer = -1 The user-defined profile. You have to input the c
-c number of layers first, then the height (km), c
-c optical thickness (at 550 nm), and the type of c
-c aerosol (see below) for each layer, starting from c
-c the ground. The present version of the program c
-c works only with the same type of aerosol for each c
-c layer. c
-c c
-c Example for iaer = -1: c
-c 4 c
-c 2.0 0.200 1 c
-c 10.0 0.025 1 c
-c 8.0 0.003 1 c
-c 80.0 0.000 1 c
-c c
-c The maximum total height of all layers cannot exceed 300 km. c
-c c
-c If you do not put iaer = -1, the program will use the default c
-c exponential profile. In this case, you need to select one of c
-c the following standard aerosol models: c
-c c
-c iaer = 0 no aerosols c
-c 1 continental model ) c
-c 2 maritime model ) according to sra models c
-c 3 urban model ) c
-c 5 shettle model for background desert aerosol c
-c 6 biomass burning c
-c 7 stratospheric model c
-c c
-c or you define your own model using basic components: iaer=4 c
-c 4 enter the volumic percentage of each component c
-c c(1) = volumic % of dust-like c
-c c(2) = volumic % of water-soluble c
-c c(3) = volumic % of oceanic c
-c c(4) = volumic % of soot c
-c between 0 to 1 c
-c c
-c or you define your own model using size distribution function: c
-c 8 Multimodal Log Normal distribution (up to 4 modes) c
-c 9 Modified gamma distribution c
-c 10 Junge Power-Law distribution c
-c c
-c or you define a model using sun-photometer measurements: c
-c 11 Sun Photometer distribution (50 values max) c
-c you have to enter: r and d V / d (logr) c
-c where r is the radius (in micron) and V the volume c
-c and d V / d (logr) in (cm3/cm2/micron) c
-c and then you have to enter: nr and ni for each wavelengthc
-c where nr and ni are respectively the real and c
-c imaginary part of the refractive index c
-c c
-c or you can use results computed and previously saved c
-c 12 Reading of data previously saved into FILE c
-c you have to enter the identification name FILE in the c
-c next line of inputs. c
-c c
-c c
-c iaerp and FILE aerosol model(type)-Printing of results c
-c --------------------------------------- c
-c c
-c For iaer=8,9,10,and 11: c
-c results from the MIE subroutine may be saved into the file c
-c FILE.mie (Extinction and scattering coefficients, single c
-c scattering albedo, Asymmetry parameter, phase function at c
-c predefined wavelengths) and then can be re-used with the c
-c option iaer=12 where FILE is an identification name you c
-c have to enter. c
-c c
-c So, if you select iaer=8,9,10,or 11, next line following the c
-c requested inputs by the options 8,9,10, or 11 you have to enter c
-c iaerp c
-c c
-c iaerp=0 results will not be saved c
-c iaerp=1 results will be saved into the file FILE.mie c
-c next line enter FILE c
-c c
-c c
-c example for iaer and iaerp c
-c 8 Multimodal Log-Normale distribution selected c
-c 0.0001 100.0 3 Rmin, Rmax, 3 components c
-c 0.5000 2.99 1.66E-7 Rmean, Sigma, percentage density-1st componentc
-c 1.53 1.53 1.53 1.53 1.53 1.53 1.52 1.40 1.22 1.27 nr-10 wavelengths c
-c .008 .008 .008 .008 .008 .008 .008 .008 .009 .011 ni-10 wavelengths c
-c 0.0050 2.99 0.5945 Rmean, Sigma, percentage density-2nd componentc
-c 1.53 1.53 1.53 1.53 1.53 1.53 1.52 1.51 1.42 1.452 nr-10 wavelengths c
-c .005 .005 .005 .005 .006 .007 .012 .023 .010 .004 ni-10 wavelengths c
-c 0.0118 2.00 0.4055 Rmean, Sigma, percentage density-3rd componentc
-c 1.75 1.75 1.75 1.75 1.75 1.75 1.75 1.77 1.81 1.90 nr-10 wavelengths c
-c .46 .45 .45 .44 .43 .43 .43 .46 .50 .57 ni-10 wavelengths c
-c 1 Results will be saved into FILE.mie c
-c URBAN-WCP112 Identification of the output file called FILE c
-c -> results will be saved into URBAN-WCP112.mie c
-c c
-c**********************************************************************c
- rmin=0.
- rmax=0.
- icp=1
- do i=1,4
- x1(i)=0.0
- x2(i)=0.0
- x3(i)=0.0
- do l=1,20
- rn(l,i)=0.0
- ri(l,i)=0.0
- enddo
- enddo
- do i=1,50
- rsunph(i)=0.
- nrsunph(i)=0.
- enddo
- cij(1)=1.00
-
-
- taer=0.
- taer55=0.
- iaer_prof=0
-
-C_otb_adaptation Beginning: iaer becomes input arguments
-C_otb read(iread,*) read(iread,*) iaer
- iaer = otb_iaer
-C_obt --> expected values are 0,1,2,3 or 5
-C_otb_adaptation End : iaer becomes input argument
-
-
-c the user-defined aerosol profile
- if (iaer.lt.0) then
-
- total_height=0.0
- iaer_prof=1
- num_z=0
- do i=0,50
- alt_z(i)=0.0
- taer55_z(i)=0.0
- taer_z(i)=0.0
- height_z(i)=0.0
- enddo
-
- read(5,*) num_z
-
- do i=0,num_z-1
- read(5,*) height_z(num_z-i),taer55_z(num_z-i),iaer
- alt_z(num_z-1-i)=total_height+height_z(num_z-i)
- total_height=total_height+height_z(num_z-i)
- taer55=taer55+taer55_z(num_z-i)
- enddo
-
- endif
-c the user-defined aerosol profile
-
- if (iaer.ge.0.and.iaer.le.7) nquad=nqdef_p
- if (iaer.ge.8.and.iaer.le.11) nquad=nquad_p
-
- if(iaer.eq.4) read(iread,*) (c(n),n=1,4)
-
- goto(49,40,41,42,49,49,49,49,43,44,45,46,47),iaer+1
-
- 40 c(1)=0.70
- c(2)=0.29
- c(3)=0.00
- c(4)=0.01
- go to 49
- 41 c(1)=0.00
- c(2)=0.05
- c(3)=0.95
- c(4)=0.00
- go to 49
- 42 c(1)=0.17
- c(2)=0.61
- c(3)=0.00
- c(4)=0.22
- go to 49
- 43 read(iread,*) rmin,rmax,icp
- do i=1,icp
- read(5,*)x1(i),x2(i),cij(i)
- read(5,*)(rn(l,i),l=1,20)
- read(5,*)(ri(l,i),l=1,20)
- enddo
- do i=1,icp
- cij_out(i)=cij(i)
- enddo
- go to 49
- 44 read(iread,*) rmin,rmax
- read(iread,*) x1(1),x2(1),x3(1)
- read(5,*)(rn(l,1),l=1,20)
- read(5,*)(ri(l,1),l=1,20)
- go to 49
- 45 read(iread,*) rmin,rmax
- read(iread,*) x1(1)
- read(5,*)(rn(l,1),l=1,20)
- read(5,*)(ri(l,1),l=1,20)
- go to 49
- 46 read(5,*)irsunph
- do i=1,irsunph
- read(5,*)rsunph(i),nrsunph(i)
-C nrsunph(i)=nrsunph(i)/(rsunph(i)**4.)/(4*3.1415/3)
- enddo
- rmin=rsunph(1)
- rmax=rsunph(irsunph)+1e-07
- read(5,*)(rn(l,1),l=1,20)
- read(5,*)(ri(l,1),l=1,20)
- go to 49
- 47 read(5,'(A80)')FILE2
- i2=index(FILE2,' ')-1
- go to 49
-
- 49 continue
-
- if (iaer.ge.8.and.iaer.le.11)then
- read(5,*)iaerp
- if (iaerp.eq.1)read(5,'(A80)')FILE
- i1=index(FILE,' ')-1
- FILE2=FILE(1:I1)//'.mie'
- i2=index(FILE2,' ')-1
- endif
-
- call aeroso(iaer,c,xmud,wldis,FILE2,ipol)
-
-
-c**********************************************************************c
-c aerosol model (concentration) c
-c ---------------------------- c
-c (only for the default exponential profile) c
-c c
-c v if you have an estimate of the meteorological c
-c parameter: the visibility v, enter directly the c
-c value of v in km (the aerosol optical depth will c
-c be computed from a standard aerosol profile) c
-c c
-c v=0, taer55 if you have an estimate of aerosol optical depth , c
-c enter v=0 for the visibility and enter the aerosol c
-c optical depth at 550 c
-c c
-c v=-1 warning: if iaer=0, enter v=-1 c
-c c
-c**********************************************************************c
-
-C_otb_adaptation Beginning: v=0 and taer55 become argument values
-
-C_otb if (iaer_prof.eq.0) then
-
-C_otb read(iread,*) v
-C_otb if(v) 71,10,11
-C_otb 10 read(iread,*) taer55
-C_otb v=exp(-log(taer55/2.7628)/0.79902)
-C_otb goto 71
-C_otb 11 call oda550(iaer,v,taer55)
-
-C_otb 71 continue
-C_otb endif
-
- v=0. !Added_for_OTB
- taer55 = otb_taer55 !Added_for_OTB
-
-C_otb_adaptation End : v=0 and taer55 become argument values
-
-
-c**********************************************************************c
-c xps is the parameter to express the altitude of target c
-c c
-c c
-c xps >=0. means the target is at the sea level c
-c c
-c xps <0. means you know the altitude of the target c
-c expressed in km and you put that value as xps c
-c c
-c c
-c**********************************************************************c
-C_otb_adaptation Beginning: xps=0 Target at sea level
-C_otb 771 read(iread,*) xps
- xps=0. !Added_for_OTB
-C_otb_adaptation End : xps=0 Target at sea level
-
-
- if (xps.ge.0.) then
- xps=0.
- uwus=1.424
- uo3us=0.344
- else
- if (idatm.ne.8) then
- call pressure(uw,uo3,xps)
- else
- call pressure(uwus,uo3us,xps)
- endif
- endif
-
-c**********************************************************************c
-c c
-c xpp is the parameter to express the sensor altitude c
-c c
-c c
-c xpp= -1000 means that the sensor is a board a satellite c
-c xpp= 0 means that the sensor is at the ground level c
-c c
-c c
-c for aircraft simulations c
-c -100< xpp <0 means you know the altitude of the sensor expressed c
-c in kilometers units c
-c this altitude is relative to the target altitude c
-c c
-c for aircraft simulations only, you have to give c
-c puw,po3 (water vapor content,ozone content between the c
-c aircraft and the surface) c
-c taerp (the aerosol optical thickness at 550nm between the c
-c aircraft and the surface) c
-c if these data are not available, enter negative values for all c
-c of them, puw,po3 will then be interpolated from the us62 standard c
-C profile according to the values at ground level. Taerp will be c
-c computed according to a 2km exponential profile for aerosol. c
-c**********************************************************************c
-
-C_otb_adaptation Beginning: xpp=-1000 sensor aboard a satellite
-C_otb read(iread,*) xpp
- xpp=-1000. !Added_for_OTB
-C_otb_adaptation End : xpp=-1000 sensor aboard a satellite
-
-
- xpp=-xpp
- if (xpp.le.0.0) then
-c ground measurement option
- palt=0.
- pps=p(1)
- idatmp=0
- taer55p=0.
- puw=0.
- puoz=0.
- else
- if (xpp.ge.100.) then
-c satellite case of equivalent
- palt=1000.
- pps=0.
- taer55p=taer55
- ftray=1.
- idatmp=4
- else
-c "real" plane case
- read(iread,*) puw,puo3
- if (puw.lt.0.) then
- call presplane(puw,puo3,xpp,ftray)
- idatmp=2
- if (idatm.eq.8) then
- puwus=puw
- puo3us=puo3
- puw=puw*uw/uwus
- puo3=puo3*uo3/uo3us
- idatmp=8
- endif
- else
- call presplane(puwus,puo3us,xpp,ftray)
- idatmp=8
- endif
- if(ier) stop
- palt=zpl(34)-z(1)
- pps=ppl(34)
- read(iread,*) taer55p
- if ((taer55p.lt.0.).or.((taer55-taer55p).lt.accu2)) then
-c a scale heigh of 2km is assumed in case no value is given for taer55p
- taer55p=taer55*(1.-exp(-palt/2.))
- else
-C compute effective scale heigh
- sham=exp(-palt/4.)
- sha=1.-(taer55p/taer55)
- if (sha.ge.sham) then
- taer55p=taer55*(1.-exp(-palt/4.))
- else
- sha=-palt/log(sha)
- taer55p=taer55*(1.-exp(-palt/sha))
- endif
- endif
- endif
- endif
-
-c**********************************************************************c
-c iwave input of the spectral conditions c
-c -------------------------------- c
-c c
-c you choose to define your own spectral conditions: iwave=-1,0 or 1 c
-c (three user s conditions ) c
-c -2 enter wlinf, wlsup, the filter function will be equal to 1c
-c over the whole band (as iwave=0) but step by step output c
-c will be printed c
-c -1 enter wl (monochr. cond, gaseous absorption is included) c
-c c
-c 0 enter wlinf, wlsup. the filter function will be equal to 1c
-c over the whole band. c
-c c
-c 1 enter wlinf, wlsup and user's filter function s(lambda) c
-c ( by step of 0.0025 micrometer). c
-c c
-c c
-c or you select one of the following satellite spectral bands: c
-c with indication in brackets of the band limits used in the code : c
-c iwave=2 to 60 c
-c 2 vis band of meteosat ( 0.350-1.110 ) c
-c 3 vis band of goes east ( 0.490-0.900 ) c
-c 4 vis band of goes west ( 0.490-0.900 ) c
-c 5 1st band of avhrr(noaa6) ( 0.550-0.750 ) c
-c 6 2nd " ( 0.690-1.120 ) c
-c 7 1st band of avhrr(noaa7) ( 0.500-0.800 ) c
-c 8 2nd " ( 0.640-1.170 ) c
-c 9 1st band of avhrr(noaa8) ( 0.540-1.010 ) c
-c 10 2nd " ( 0.680-1.120 ) c
-c 11 1st band of avhrr(noaa9) ( 0.530-0.810 ) c
-c 12 2nd " ( 0.680-1.170 ) c
-c 13 1st band of avhrr(noaa10 ( 0.530-0.780 ) c
-c 14 2nd " ( 0.600-1.190 ) c
-c 15 1st band of avhrr(noaa11 ( 0.540-0.820 ) c
-c 16 2nd " ( 0.600-1.120 ) c
-c 17 1st band of hrv1(spot1) ( 0.470-0.650 ) c
-c 18 2nd " ( 0.600-0.720 ) c
-c 19 3rd " ( 0.730-0.930 ) c
-c 20 pan " ( 0.470-0.790 ) c
-c 21 1st band of hrv2(spot1) ( 0.470-0.650 ) c
-c 22 2nd " ( 0.590-0.730 ) c
-c 23 3rd " ( 0.740-0.940 ) c
-c 24 pan " ( 0.470-0.790 ) c
-c 25 1st band of tm(landsat5) ( 0.430-0.560 ) c
-c 26 2nd " ( 0.500-0.650 ) c
-c 27 3rd " ( 0.580-0.740 ) c
-c 28 4th " ( 0.730-0.950 ) c
-c 29 5th " ( 1.5025-1.890 ) c
-c 30 7th " ( 1.950-2.410 ) c
-c 31 1st band of mss(landsat5)( 0.475-0.640 ) c
-c 32 2nd " ( 0.580-0.750 ) c
-c 33 3rd " ( 0.655-0.855 ) c
-c 34 4th " ( 0.785-1.100 ) c
-c 35 1st band of MAS (ER2) ( 0.5025-0.5875) c
-c 36 2nd " ( 0.6075-0.7000) c
-c 37 3rd " ( 0.8300-0.9125) c
-c 38 4th " ( 0.9000-0.9975) c
-c 39 5th " ( 1.8200-1.9575) c
-c 40 6th " ( 2.0950-2.1925) c
-c 41 7th " ( 3.5800-3.8700) c
-c 42 MODIS band 1 ( 0.6100-0.6850) c
-c 43 MODIS band 2 ( 0.8200-0.9025) c
-c 44 MODIS band 3 ( 0.4500-0.4825) c
-c 45 MODIS band 4 ( 0.5400-0.5700) c
-c 46 MODIS band 5 ( 1.2150-1.2700) c
-c 47 MODIS band 6 ( 1.6000-1.6650) c
-c 48 MODIS band 7 ( 2.0575-2.1825) c
-c 49 MODIS band 8 ( 0.4025-0.4225) c
-c 50 1st band of avhrr(noaa12 ( 0.500-1.000 ) c
-c 51 2nd " ( 0.650-1.120 ) c
-c 52 1st band of avhrr(noaa14 ( 0.500-1.110 ) c
-c 53 2nd " ( 0.680-1.100 ) c
-c 54 POLDER band 1 ( 0.4125-0.4775) c
-c 55 POLDER band 2 (non polar( 0.4100-0.5225) c
-c 56 POLDER band 3 (non polar( 0.5325-0.5950) c
-c 57 POLDER band 4 P1 ( 0.6300-0.7025) c
-c 58 POLDER band 5 (non polar( 0.7450-0.7800) c
-c 59 POLDER band 6 (non polar( 0.7000-0.8300) c
-c 60 POLDER band 7 P1 ( 0.8100-0.9200) c
-c 61 POLDER band 8 (non polar( 0.8650-0.9400) c
-c 62 SEAWIFS band 1 ( 0.3825-0.70) c
-c 63 SEAWIFS band 2 ( 0.3800-0.58) c
-c 64 SEAWIFS band 3 ( 0.3800-1.02) c
-c 65 SEAWIFS band 4 ( 0.3800-1.02) c
-c 66 SEAWIFS band 5 ( 0.3825-1.15) c
-c 67 SEAWIFS band 6 ( 0.3825-1.05) c
-c 68 SEAWIFS band 7 ( 0.3800-1.15) c
-c 69 SEAWIFS band 8 ( 0.3800-1.15) c
-c 70 AATSR band 1 ( 0.5250-0.5925) c
-c 71 AATSR band 2 ( 0.6275-0.6975) c
-c 72 AATSR band 3 ( 0.8325-0.9025) c
-c 73 AATSR band 4 ( 1.4475-1.7775) c
-c 74 MERIS band 1 ( 0.412) c
-c 75 MERIS band 2 ( 0.442) c
-c 76 MERIS band 3 ( 0.489) c
-c 77 MERIS band 4 ( 0.509) c
-c 78 MERIS band 5 ( 0.559) c
-c 79 MERIS band 6 ( 0.619) c
-c 80 MERIS band 7 ( 0.664) c
-c 81 MERIS band 8 ( 0.681) c
-c 82 MERIS band 9 ( 0.708) c
-c 83 MERIS band 10 ( 0.753) c
-c 84 MERIS band 11 ( 0.760) c
-c 85 MERIS band 12 ( 0.778) c
-c 86 MERIS band 13 ( 0.865) c
-c 87 MERIS band 14 ( 0.885) c
-c 88 MERIS band 15 ( 0.900) c
-c 89 GLI band 1 (0.380-1km) c
-c 90 GLI band 2 (0.400-1km) c
-c 91 GLI band 3 (0.412-1km) c
-c 92 GLI band 4 (0.443-1km) c
-c 93 GLI band 5 (0.460-1km) c
-c 94 GLI band 6 (0.490-1km) c
-c 95 GLI band 7 (0.520-1km) c
-c 96 GLI band 8 (0.545-1km) c
-c 97 GLI band 9 (0.565-1km) c
-c 98 GLI band 10 (0.625-1km) c
-c 99 GLI band 11 (0.666-1km) c
-c 100 GLI band 12 (0.680-1km) c
-c 101 GLI band 13 (0.678-1km) c
-c 102 GLI band 14 (0.710-1km) c
-c 103 GLI band 15 (0.710-1km) (bis?) c
-c 104 GLI band 16 (0.749-1km) c
-c 105 GLI band 17 (0.763-1km) c
-c 106 GLI band 18 (0.865-1km) c
-c 107 GLI band 19 (0.865-1km) (bis?) c
-c 108 GLI band 20 (0.460-0.25km) c
-c 109 GLI band 21 (0.545-0.25km) c
-c 110 GLI band 22 (0.660-0.25km) c
-c 111 GLI band 23 (0.825-0.25km) c
-c 112 GLI band 24 (1.050-1km) c
-c 113 GLI band 25 (1.135-1km) c
-c 114 GLI band 26 (1.240-1km) c
-c 115 GLI band 27 (1.338-1km) c
-c 116 GLI band 28 (1.640-1km) c
-c 117 GLI band 29 (2.210-1km) c
-c 118 GLI band 30 (3.715-1km) c
-c note: wl has to be in micrometer c
-c**********************************************************************c
-
-C_otb_adaptation Beginning: iwave=1 and wlinf, wlsup, s(l) become input arguments
-C_otb do 38 l=iinf,isup
-C_otb s(l)=1.
-C_otb 38 continue
-
-C_otb read(iread,*) iwave
-
-C_otb if (iwave.eq.-2) goto 1600
-C_otb if (iwave) 16,17,18
-
-
-C_otb 16 read(iread,*) wl
-
-
-C_otb wlinf=wl
-C_otb wlsup=wl
-C_otb go to 19
-C_otb 17 read(iread,*) wlinf,wlsup
-C_otb go to 19
-C_otb 1600 read(iread,*) wlinf,wlsup
-C_otb go to 19
-c 110
-c 111 band of meteosat (2)
-c 112 band of goes east (3,4)
-c 114 band of avhr (5,16)
-c 118 band of hrv1 (17,24)
-c 121 band of tm (25,30)
-c 127 band of mss (31,34)
-c 128 band of MAS (35,41)
-c 129 MODIS band (42,49)
-c 130 band of avhrr (50,53)
-c 131 POLDER band (54,61)
-c 113 SEAWIFS band (62,69)
-c 150 AATSR band (70,73)
-c 151 MERIS band (74,88)
-c 152 GLI band (89,118)
-C_otb 18 goto (110,
-C_otb s 111,
-C_otb s 112,112,
-C_otb s 114,114,114,114,114,114,114,114,114,114,114,114,
-C_otb s 118,118,118,118,118,118,118,118,
-C_otb s 121,121,121,121,121,121,
-C_otb s 127,127,127,127,
-C_otb s 128,128,128,128,128,128,128,
-C_otb s 129,129,129,129,129,129,129,129,
-C_otb s 130,130,130,130,
-C_otb s 131,131,131,131,131,131,131,131,
-C_otb s 113,113,113,113,113,113,113,113,
-C_otb s 150,150,150,150,
-C_otb s 151,151,151,151,151,151,151,151,
-C_otb s 151,151,151,151,151,151,151,
-C_otb s 152,152,152,152,152,152,152,152,152,152,
-C_otb s 152,152,152,152,152,152,152,152,152,152,
-C_otb s 152,152,152,152,152,152,152,152,152,152
-C_otb s ),iwave
-C_otb 110 read(iread,*) wlinf,wlsup
-C_otb iinf=(wlinf-.25)/0.0025+1.5
-C_otb isup=(wlsup-.25)/0.0025+1.5
-C_otb do 1113 ik=iinf,isup
-C_otb s(ik)=0.
-C_otb 1113 continue
-C_otb read(iread,*) (s(i),i=iinf,isup)
-C_otb goto 20
-C_otb 111 call meteo
-C_otb go to 19
-C_otb 112 call goes(iwave-2)
-C_otb go to 19
-C_otb 114 call avhrr(iwave-4)
-C_otb go to 19
-C_otb 118 call hrv(iwave-16)
-C_otb go to 19
-C_otb 121 call tm(iwave-24)
-C_otb go to 19
-C_otb 127 call mss(iwave-30)
-C_otb goto 19
-C_otb 128 call mas(iwave-34)
-C_otb goto 19
-C_otb 129 call modis(iwave-41)
-C_otb goto 19
-C_otb 130 call avhrr(iwave-37)
-C_otb goto 19
-C_otb 131 call polder(iwave-53)
-C_otb goto 19
-C_otb 113 call seawifs(iwave-61)
-C_otb goto 19
-C_otb 150 call aatsr(iwave-69)
-C_otb goto 19
-C_otb 151 call meris(iwave-73)
-C_otb goto 19
-C_otb 152 call gli(iwave-88)
-
- iwave=1 !Added_for_OTB
- wlinf = otb_wlinf !Added_for_OTB
- wlsup = otb_wlsup !Added_for_OTB
-
- do k=1,1501 !Added_for_OTB
- s(k) = otb_s(k) !Added_for_OTB
- enddo !Added_for_OTB
-
-
-C_otb_adaptation End : iwave=1 and s(l) becomes an input argument
-
-
- 19 iinf=(wlinf-.25)/0.0025+1.5
- isup=(wlsup-.25)/0.0025+1.5
- 20 continue
-
-C***********************************************************************
-C LOOK UP TABLE INITIALIZATION
-C***********************************************************************
-C initialization of look up table variable
-C Write(6,*) "TOTO THE HERO"
-
- do i=1,mu
- nfilut(i)=0
- do j=1,41
- rolut(i,j)=0.
- rolutq(i,j)=0.
- rolutu(i,j)=0.
- filut(i,j)=0.
- roluti(i,j)=0.
- rolutiq(i,j)=0.
- rolutiu(i,j)=0.
- enddo
- enddo
- xmus=cos(asol*pi/180.)
- its=acos(xmus)*180.0/pi
-C Case standart LUT
- if (ilut.eq.1) then
- do i=1,mu-1
- lutmuv=rm(i)
- luttv=acos(lutmuv)*180./pi
- iscama=(180-abs(luttv-its))
- iscami=(180-(luttv+its))
- nbisca=int(0.01+(iscama-iscami)/4.0)+1
- nfilut(i)=nbisca
- filut(i,1)=0.0
- filut(i,nbisca)=180.0
- scaa=iscama
- do j=2,nfilut(i)-1
- scaa=scaa-4.0
- cscaa=cos(scaa*pi/180.)
- cfi=-(cscaa+xmus*lutmuv)/(sqrt(1-xmus*xmus)
- S *sqrt(1.-lutmuv*lutmuv))
- filut(i,j)=acos(cfi)*180.0/pi
- enddo
- enddo
- i=mu
- lutmuv=cos(avis*pi/180.)
- luttv=acos(lutmuv)*180./pi
- iscama=(180-abs(luttv-its))
- iscami=(180-(luttv+its))
- nbisca=int((iscama-iscami)/4)+1
- nfilut(i)=nbisca
- filut(i,1)=0.0
- filut(i,nbisca)=180.0
- scaa=iscama
- do j=2,nfilut(i)-1
- scaa=scaa-4.0
- cscaa=cos(scaa*pi/180.)
- cfi=-(cscaa+xmus*lutmuv)/(sqrt(1-xmus*xmus)
- S *sqrt(1.-lutmuv*lutmuv))
- filut(i,j)=acos(cfi)*180.0/pi
- enddo
- endif
-C END Case standart LUT
-
-C Case LUT for APS
- if (ilut.eq.3) then
- do i=1,mu-1
- nbisca=2
- nfilut(i)=nbisca
- filut(i,1)=(phi0-phiv)
- filut(i,nbisca)=(phi0-phiv)+180.0
- enddo
- i=mu
- nbisca=1
- nfilut(i)=nbisca
- filut(i,1)=(phi0-phiv)
- endif
-C END Case LUT for APS
-CCCC Check initialization (debug)
- do i=1,mu
- lutmuv=rm(i)
- luttv=acos(lutmuv)*180./pi
- do j=1,nfilut(i)
- cscaa=-xmus*lutmuv-cos(filut(i,j)*pi/180.)*sqrt(1.-xmus*xmus)
- S *sqrt(1.-lutmuv*lutmuv)
- scaa=acos(cscaa)*180./pi
- write(6,*) its,luttv,filut(i,j),scaa
- enddo
- enddo
-CCCC Check initialization (debug)
-C***********************************************************************
-C END LOOK UP TABLE INITIALIZATION
-C***********************************************************************
-
-
-
-
-c**********************************************************************c
-c here, we first compute an equivalent wavelenght which is the input c
-c value for monochromatic conditions or the integrated value for a c
-c filter functionr (call equivwl) then, the atmospheric properties are c
-c computed for that wavelength (call discom then call specinterp) c
-c molecular optical thickness is computed too (call odrayl). lastly c
-c the successive order of scattering code is called three times. c
-c first for a sun at thetas with the scattering properties of aerosols c
-c and molecules, second with a pure molecular atmosphere, then with thec
-c actual atmosphere for a sun at thetav. the iso code allows us to c
-c compute the scattering transmissions and the spherical albedo. all c
-c these computations are performed for checking the accuracy of the c
-c analytical expressions and in addition for computing the averaged c
-c directional reflectances c
-c**********************************************************************c
- if(iwave.ne.-1) then
- call equivwl(iinf,isup,step,
- s wlmoy)
- else
- wlmoy=wl
- endif
- call discom (idatmp,iaer,iaer_prof,xmus,xmuv,phi,taer55,taer55p,
- a palt,phirad,nt,mu,np,rm,gb,rp,ftray,ipol,xlm1,xlm2,
- a roatm_fi,nfi,
- a nfilut,filut,roluts,rolutsq,rolutsu)
-
-
- if(iaer.ne.0) then
- call specinterp(wlmoy,taer55,taer55p,
- s tamoy,tamoyp,pizmoy,pizmoyp,ipol)
- endif
- call odrayl(wlmoy,
- s trmoy)
-
- trmoyp=trmoy*ftray
-
-
- if (idatmp.eq.4) then
- trmoyp=trmoy
- tamoyp=tamoy
- endif
- if (idatmp.eq.0) then
- trmoyp=0.
- tamoyp=0.
- endif
-
-
-c*********************************************************************c
-c inhomo ground reflectance (type) c
-c ------------------ c
-c c
-c you consider an homogeneous surface: c
-c enter - inhomo=0 c
-c you may consider directional surface effects c
-c idirec=0 (no directional effect) c
-c you have to specify the surface reflectance:c
-c igroun (see note1) which is uniform and c
-c lambertian c
-c idirec=1 ( directional effect) c
-c you have to specify the brdf of the surface c
-c for the actual solar illumination you are c
-c considering as well as the brdf for a sun c
-c which would be at an angle thetav, in c
-c addition you have to give the surface c
-c albedo (spherical albedo). you can also c
-c select one of the selected model from the c
-c ibrdf value (see note2). 3 reflectances c
-c are computed, robar,robarp and robard c
-c c
-c you consider a non uniform surface, the surface is considered as a c
-c circular target with a reflectance roc and of radius r c
-c (expressed in km) within an environment of reflectance c
-c roe c
-c enter - inhomo=1, then c
-c igrou1,igrou2,rad c
-c - the target reflectance :igrou1 (see note1) c
-c - the envir. reflectance :igrou2 (see note1) c
-c - the target radius in km c
-c c
-c c
-c ****tree**** c
-c c
-c inhomo c
-c / \ c
-c / \ c
-c / \ c
-c / \ c
-c ------- 0 ------- -----1 ----- c
-c / / \ \ c
-c idirec / \ \ c
-c / \ / \ \ c
-c / \ / \ \ c
-c / \ igrou1 igrou2 rad c
-c 0 1 roc roe f(r) c
-c / \ c
-c / \ c
-c igroun ibrdf c
-c (roc = roe) (roc) c
-c (robar) c
-c (robarp) c
-c (robard) c
-c c
-c ground reflectance (spectral variation) c
-c --------------------------------------- c
-c note1: values of the reflectance selected by igroun,igrou1 or igrou2 c
-c may correspond to the following cases, c
-c 0 constant value of ro (or roc,or roe) whatever the wavelen c
-c gth. you enter this constant value of ro (or roc or roe). c
-c -1 you have to enter the value of ro (or roc,or roe) by step c
-c of 0.0025 micron from wlinf to wlsup (if you have used thec
-c satellite bands,see implicit values for these limits). c
-c 1 mean spectral value of green vegetation c
-c 2 mean spectral value of clear water c
-c 3 mean spectral value of sand c
-c 4 mean spectral value of lake water c
-c c
-c ground reflectance (brdf) c
-c ------------------------- c
-c note2: values of the directional reflectance is assumed spectrally c
-c independent, so you have to specify, the brdf at the c
-c wavelength for monochromatic condition of the mean value c
-c over the spectral band c
-c 0 you have to enter the value of ro for sun at thetas by c
-c step of 10 degrees for zenith view angles (from 0 to 80 c
-c and the value for 85) and by step of 30 degrees for c
-c azimuth view angles from 0 to 360 degrees, you have to do c
-c same for a sun which would be at thetav. in addition, the c
-c spherical albedo of the surface has to be specified ,as c
-C well as the observed reflectance in the selected geometry c
-c rodir(sun zenith,view zenith, relative azimuth). c
-c c
-c you also may select one of the following models c
-c 1 hapke model c
-c the parameters are: om,af,s0,h c
-c om= albedo c
-c af=assymetry parameter for the phase function c
-c s0=amplitude of hot spot c
-c h=width of the hot spot c
-c c
-c 2 verstraete et al. model c
-c the parameters are: c
-c there is three lines of parameters: c
-c line 1 (choice of options) c
-c line 2 (structural parameters) c
-c line 3 (optical parameters) c
-c line 1: opt3 opt4 opt5 c
-c opt1=1 parametrized model (see verstraete et al., c
-c JGR, 95, 11755-11765, 1990) c
-c opt2=1 reflectance factor (see pinty et al., JGR, c
-c 95, 11767-11775, 1990) c
-c opt3=0 for given values of kappa (see struc below)c
-c 1 for goudriaan's parameterization of kappa c
-c 2 for dickinson et al's correction to c
-c goudriaan's parameterization of kappa (see c
-c dickinson et al., agricultural and forest c
-c meteorology, 52, 109-131, 1990) c
-c ---see the manual for complete references---- c
-c opt4=0 for isotropic phase function c
-c 1 for heyney and greensteins' phase function c
-c 2 for legendre polynomial phase function c
-c opt5=0 for single scattering only c
-c 1 for dickinson et al. parameterization of c
-c multiple scattering c
-c line 2: str1 str2 str3 str4 c
-c str1='leaf area density', in m2 m-3 c
-c str2=radius of the sun flecks on the scatterer (m)c
-c str3=leaf orientation parameter: c
-c if opt3=0 then str3=kappa1 c
-c if opt3=1 or 2 then str3=chil c
-c str4=leaf orientation parameter (continued): c
-c if opt3=0 then str4=kappa2 c
-c if opt3=1 or 2 then str4 is not used c
-c line 3: optics1 optics2 optics3 c
-c optics1=single scattering albedo, n/d value c
-c between 0.0 and 1.0 c
-c optics2= phase function parameter: c
-c if opt4=0 then this input is not used c
-c if opt4=1 then asymmetry factor, n/d value c
-c between -1.0and 1.0 c
-c if opt4=2 then first coefficient of legendre c
-c polynomial c
-c optics3=second coefficient of legendre polynomial c
-c (if opt4=2) c
-c c
-c 3 Roujean et al. model c
-c the parameters are: k0,k1,k2 c
-c k0=albedo. c
-c k1=geometric parameter for hot spot effect c
-c k2=geometric parameter for hot spot effect c
-c c
-c 4 walthall et al. model c
-c the parameters are: a,ap,b,c c
-c a=term in square ts*tv c
-c ap=term in square ts*ts+tv*tv c
-c b=term in ts*tv*cos(phi) (limacon de pascal) c
-c c=albedo c
-c c
-c 5 minnaert model c
-c the parameters are: par1,par2 c
-c c
-c 6 Ocean c
-c the parameter are: pws,phi_wind,xsal,pcl c
-c pws=wind speed (in m/s) c
-c phi_wind=azim. of the wind (in degres) c
-c xsal=salinity (in ppt) xsal=34.3ppt if xsal<0 c
-c pcl=pigment concentration (in mg/m3) c
-c c
-c 7 Iaquinta and Pinty model c
-c the parameters are: c
-c there is 3 lines of parameters: c
-c line 1: choice of option (pild,pihs) c
-c line 2: structural parameters (pxLt,pc) c
-c line 3: optical parameters (pRl,pTl,pRs) c
-c Line 1: pild,pihs c
-c pild=1 planophile leaf distribution c
-c pild=2 erectophile leaf distribution c
-c pild=3 plagiophile leaf distribution c
-c pild=4 extremophile leaf distribution c
-c pild=5 uniform leaf distribution c
-c c
-c pihs=0 no hot spot c
-c pihs=1 hot spot c
-c Line 2: pxLt,pc c
-c pxLt=Leaf area index [1.,15.] c
-c pc=Hot spot parameter: 2*r*Lambda [0.,2.] c
-c Line 3: pRl,pTl,pRs c
-c pRl=Leaf reflectance [0.,0.99] c
-c pTl=Leaf transmitance [0.,0.99] c
-c pRs=Soil albedo [0.,0.99] c
-c NB: pRl+PTl <0.99 c
-c c
-c 8 Rahman et al. model c
-c the parameters are: rho0,af,xk c
-c rho0=Intensity of the reflectance of the surface c
-c cover, N/D value greater or equal to 0 c
-c af=Asymmetry factor, N/D value between -1.0 and 1.0 c
-c xk=Structural parameter of the medium c
-c 9 Kuusk's multispectral CR model c
-c Reference: c
-c Kuusk A. A multispectral canopy reflectance model. c
-c Remote Sens. Environ., 1994, 50:75-82 c
-c c
-c c
-c the parameters are: c
-c c
-c line 1: structural parameters (ul,eps,thm,sl) c
-c line 2: optical parameters (cAB,cW,N,cn,s1) c
-c c
-c ul=LAI [0.1...10] c
-c eps,thm - LAD parameters c
-c eps [0.0..0.9] thm [0.0..90.0] c
-c sl - relative leaf size [0.01..1.0] c
-c cAB - chlorophyll content, ug/cm^2 [30] c
-c cW - leaf water equivalent thickness [0.01..0.03] c
-c N - the effective number of elementary layers c
-c inside a leaf [1.225] c
-c cn - the ratio of refractive indices of the leaf c
-c surface wax and internal material [1.0] c
-c s1 - the weight of the 1st Price function for the c
-c soil reflectance [0.1..0.8] c
-c 10 MODIS operational BDRF c
-c the parameters are: p1,p2,p3 c
-c p1 weight for lambertian kernel c
-c p2 weight for Ross Thick kernel c
-c p3 weight for Li Sparse kernel c
-c**********************************************************************c
-
- fr=0.
- rad=0.
- do 1116 ik=iinf,isup
- rocl(ik)=0.
- roel(ik)=0.
- 1116 continue
-
-c**********************************************************************c
-c uniform or non-uniform surface conditions c
-c**********************************************************************c
-
-C_otb_adaptation Beginning: inhomo=0 idirec=0 igroun=0 ro=0
-
- inhomo=0 !Added_for_OTB
- idirec=0 !Added_for_OTB
-
-C_otb read(iread,*) inhomo
-
-C_otb if(inhomo) 30,30,31
-
-C_otb 30 read(iread,*) idirec
-
-C_otb if(idirec)21,21,25
-
-c**********************************************************************c
-c uniform conditions with brdf conditions c
-c**********************************************************************c
-c call os to compute downward radiation field for robar
-C_otb 25 rm(-mu)=-xmuv
-C_otb rm(mu)=xmuv
-C_otb rm(0)=-xmus
-C_otb spalt=1000.
-C_otb call os(iaer_prof,tamoy,trmoy,pizmoy,tamoyp,trmoyp,spalt,
-C_otb s phirad,nt,mu,np,rm,gb,rp,
-C_otb s xlmus,xlphim,nfi,rolut)
-c call os to compute downward radiation field for robarp
-C_otb if (idatmp.ne.0) then
-C_otb rm(-mu)=-xmus
-C_otb rm(mu)=xmus
-C_otb rm(0)=-xmuv
-C_otb call os(iaer_prof,tamoyp,trmoyp,pizmoy,tamoyp,trmoyp,spalt,
-C_otb s phirad,nt,mu,np,rm,gb,rp,
-C_otb s xlmuv,xlphim,nfi,rolut)
-C_otb endif
-c
-C_otb read(iread,*) ibrdf
-c*********************************************************************c
-C_otb if(ibrdf)23,23,24
-c**********************************************************************c
-c brdf from in-situ measurements c
-c**********************************************************************c
-C_otb 23 do 900 k=1,13
-C_otb read(iread,*) (brdfdats(10-j+1,k),j=1,10)
-C_otb 900 continue
-C_otb do 901 k=1,13
-C_otb read(iread,*) (brdfdatv(10-j+1,k),j=1,10)
-C_otb 901 continue
-C_otb read(iread,*) albbrdf
-C_otb read(iread,*) rodir
-C_otb rm(-mu)=phirad
-C_otb rm(mu)=xmuv
-C_otb rm(0)=xmus
-C_otb call brdfgrid(mu,np,rm,rp,brdfdats,angmu,angphi,
-C_otb s brdfints)
-C_otb rm(-mu)=2.*pi-phirad
-C_otb rm(mu)=xmus
-C_otb rm(0)=xmuv
-C_otb call brdfgrid(mu,np,rm,rp,brdfdatv,angmu,angphi,
-C_otb s brdfintv)
-C_otb brdfints(mu,1)=rodir
-C_otb do l=iinf,isup
-C_otb sbrdf(l)=rodir
-C_otb enddo
-C_otb go to 69
-c**********************************************************************c
-c brdf from hapke's model c
-c**********************************************************************c
-C_otb 24 if(ibrdf.eq.1) then
-C_otb read(iread,*) par1,par2,par3,par4
-
-C_otb srm(-1)=phirad
-C_otb srm(1)=xmuv
-C_otb srm(0)=xmus
-C_otb call hapkbrdf(par1,par2,par3,par4,1,1,srm,srp,
-C_otb s sbrdftmp)
-C_otb do l=iinf,isup
-C_otb sbrdf(l)=sbrdftmp(1,1)
-C_otb enddo
-
-C_otb rm(-mu)=phirad
-C_otb rm(mu)=xmuv
-C_otb rm(0)=xmus
-C_otb call hapkbrdf(par1,par2,par3,par4,mu,np,rm,rp,
-C_otb s brdfints)
-C_otb rm(-mu)=2.*pi-phirad
-C_otb rm(mu)=xmus
-C_otb rm(0)=xmuv
-C_otb call hapkbrdf(par1,par2,par3,par4,mu,np,rm,rp,
-C_otb s brdfintv)
-C_otb call hapkalbe(par1,par2,par3,par4,
-C_otb s albbrdf)
-C_otb go to 69
-C_otb endif
-c**********************************************************************c
-c brdf from verstraete et al's model c
-c**********************************************************************c
-C_otb if(ibrdf.eq.2) then
-C_otb read(iread,*) (options(i),i=3,5)
-C_otb options(1)=1
-C_otb options(2)=1
-C_otb read(iread,*) (struct(i),i=1,4)
-C_otb read(iread,*) (optics(i),i=1,3)
-
-C_otb srm(-1)=phirad
-C_otb srm(1)=xmuv
-C_otb srm(0)=xmus
-C_otb call versbrdf(options,optics,struct,1,1,srm,srp,
-C_otb s sbrdftmp)
-C_otb do l=iinf,isup
-C_otb sbrdf(l)=sbrdftmp(1,1)
-C_otb enddo
-
-C_otb rm(-mu)=phirad
-C_otb rm(mu)=xmuv
-C_otb rm(0)=xmus
-C_otb call versbrdf(options,optics,struct,mu,np,rm,rp,
-C_otb s brdfints)
-C_otb rm(-mu)=2.*pi-phirad
-C_otb rm(mu)=xmus
-C_otb rm(0)=xmuv
-C_otb call versbrdf(options,optics,struct,mu,np,rm,rp,
-C_otb s brdfintv)
-C_otb call versalbe(options,optics,struct,
-C_otb s albbrdf)
-C_otb go to 69
-C_otb endif
-c**********************************************************************c
-c brdf from Roujean et al's model c
-c**********************************************************************c
-C_otb if(ibrdf.eq.3) then
-C_otb read(iread,*) par1,par2,par3
-C_otb
-C_otb srm(-1)=phirad
-C_otb srm(1)=xmuv
-C_otb srm(0)=xmus
-C_otb call roujbrdf(par1,par2,par3,1,1,srm,srp,
-C_otb s sbrdftmp)
-C_otb do l=iinf,isup
-C_otb sbrdf(l)=sbrdftmp(1,1)
-C_otb enddo
-C_otb
-C_otb rm(-mu)=phirad
-C_otb rm(mu)=xmuv
-C_otb rm(0)=xmus
-C_otb call roujbrdf(par1,par2,par3,mu,np,rm,rp,
-C_otb s brdfints)
-C_otb rm(-mu)=2.*pi-phirad
-C_otb rm(mu)=xmus
-C_otb rm(0)=xmuv
-C_otb call roujbrdf(par1,par2,par3,mu,np,rm,rp,
-C_otb s brdfintv)
-C_otb call roujalbe(par1,par2,par3,
-C_otb s albbrdf)
-C_otb go to 69
-C_otb endif
-c**********************************************************************c
-c brdf from walthall et al's model
-c**********************************************************************c
-C_otb if(ibrdf.eq.4) then
-C_otb read(iread,*) par1,par2,par3,par4
-
-C_otb srm(-1)=phirad
-C_otb srm(1)=xmuv
-C_otb srm(0)=xmus
-C_otb call waltbrdf(par1,par2,par3,par4,1,1,srm,srp,
-C_otb s sbrdftmp)
-C_otb do l=iinf,isup
-C_otb sbrdf(l)=sbrdftmp(1,1)
-C_otb enddo
-
-C_otb rm(-mu)=phirad
-C_otb rm(mu)=xmuv
-C_otb rm(0)=xmus
-C_otb call waltbrdf(par1,par2,par3,par4,mu,np,rm,rp,
-C_otb s brdfints)
-C_otb rm(-mu)=2.*pi-phirad
-C_otb rm(mu)=xmus
-C_otb rm(0)=xmuv
-C_otb call waltbrdf(par1,par2,par3,par4,mu,np,rm,rp,
-C_otb s brdfintv)
-C_otb call waltalbe(par1,par2,par3,par4,
-C_otb s albbrdf)
-C_otb go to 69
-C_otb endif
-c**********************************************************************c
-c brdf from minnaert's model c
-c**********************************************************************c
-C_otb if(ibrdf.eq.5) then
-C_otb read(iread,*) par1,par2
-
-C_otb srm(-1)=phirad
-C_otb srm(1)=xmuv
-C_otb srm(0)=xmus
-C_otb call minnbrdf(par1,par2,1,1,srm,
-C_otb s sbrdftmp)
-C_otb do l=iinf,isup
-C_otb sbrdf(l)=sbrdftmp(1,1)
-C_otb enddo
-
-C_otb rm(-mu)=phirad
-C_otb rm(mu)=xmuv
-C_otb rm(0)=xmus
-C_otb call minnbrdf(par1,par2,mu,np,rm,
-C_otb s brdfints)
-C_otb rm(-mu)=2.*pi-phirad
-C_otb rm(mu)=xmus
-C_otb rm(0)=xmuv
-C_otb call minnbrdf(par1,par2,mu,np,rm,
-C_otb s brdfintv)
-C_otb call minnalbe(par1,par2,
-C_otb s albbrdf)
-C_otb go to 69
-C_otb endif
-
-c**********************************************************************c
-c brdf from ocean condition
-c**********************************************************************c
-C_otb if(ibrdf.eq.6) then
-C_otb read(iread,*) pws,phi_wind,xsal,pcl
-C_otb if (xsal.lt.0.001)xsal=34.3
-C_otb paw=phi0-phi_wind
-C_otb
-C_otb do l=iinf,isup
-C_otb srm(-1)=phirad
-C_otb srm(1)=xmuv
-C_otb srm(0)=xmus
-C_otb wl=.25+(l-1)*step
-C_otb call oceabrdf(pws,paw,xsal,pcl,wl,rfoam,rwat,rglit,
-C_otb s 1,1,srm,srp,
-C_otb s sbrdftmp)
-C_otb
-C_otb rfoaml(l)=rfoam
-C_otb rwatl(l)=rwat
-C_otb rglitl(l)=rglit
-C_otb sbrdf(l)=sbrdftmp(1,1)
-C_otb enddo
-C_otb
-C_otb rm(-mu)=phirad
-C_otb rm(mu)=xmuv
-C_otb rm(0)=xmus
-C_otb call oceabrdf(pws,paw,xsal,pcl,wlmoy,rfoam,rwat,rglit,
-C_otb s mu,np,rm,rp,
-C_otb s brdfints)
-C_otb rm(-mu)=2.*pi-phirad
-C_otb rm(mu)=xmus
-C_otb rm(0)=xmuv
-C_otb call oceabrdf(pws,paw,xsal,pcl,wlmoy,rfoam,rwat,rglit,
-C_otb s mu,np,rm,rp,
-C_otb s brdfintv)
-C_otb call oceaalbe(pws,paw,xsal,pcl,wlmoy,
-C_otb s albbrdf)
-C_otb go to 69
-C_otb endif
-c
-c**********************************************************************c
-c brdf from Iaquinta and Pinty model
-c**********************************************************************c
-C_otb if(ibrdf.eq.7) then
-C_otb read(iread,*) pild,pihs
-C_otb read(iread,*) pxLt,pc
-C_otb read(iread,*) pRl,pTl,pRs
-C_otb
-C_otb srm(-1)=phirad
-C_otb srm(1)=xmuv
-C_otb srm(0)=xmus
-C_otb call iapibrdf(pild,pxlt,prl,ptl,prs,pihs,pc,1,1,srm,srp,
-C_otb s sbrdftmp)
-C_otb do l=iinf,isup
-C_otb sbrdf(l)=sbrdftmp(1,1)
-C_otb enddo
-C_otb
-C_otb rm(-mu)=phirad
-C_otb rm(mu)=xmuv
-C_otb rm(0)=xmus
-C_otb call iapibrdf(pild,pxlt,prl,ptl,prs,pihs,pc,mu,np,rm,rp,
-C_otb s brdfints)
-C_otb rm(-mu)=2.*pi-phirad
-C_otb rm(mu)=xmus
-C_otb rm(0)=xmuv
-C_otb call iapibrdf(pild,pxlt,prl,ptl,prs,pihs,pc,mu,np,rm,rp,
-C_otb s brdfintv)
-C_otb call iapialbe(pild,pxlt,prl,ptl,prs,pihs,pc,
-C_otb s albbrdf)
-C_otb go to 69
-C_otb endif
-c
-c**********************************************************************c
-c brdf from Rahman model
-c**********************************************************************c
-C_otb if(ibrdf.eq.8) then
-C_otb read(iread,*) par1,par2,par3
-
-C_otb srm(-1)=phirad
-C_otb srm(1)=xmuv
-C_otb srm(0)=xmus
-C_otb call rahmbrdf(par1,par2,par3,1,1,srm,srp,
-C_otb s sbrdftmp)
-C_otb do l=iinf,isup
-C_otb sbrdf(l)=sbrdftmp(1,1)
-C_otb enddo
-
-C_otb rm(-mu)=phirad
-C_otb rm(mu)=xmuv
-C_otb rm(0)=xmus
-C_otb call rahmbrdf(par1,par2,par3,mu,np,rm,rp,
-C_otb s brdfints)
-C_otb rm(-mu)=2.*pi-phirad
-C_otb rm(mu)=xmus
-C_otb rm(0)=xmuv
-C_otb call rahmbrdf(par1,par2,par3,mu,np,rm,rp,
-C_otb s brdfintv)
-C_otb call rahmalbe(par1,par2,par3,
-C_otb s albbrdf)
-C_otb go to 69
-C_otb endif
-c
-c**********************************************************************c
-c brdf from kuusk's msrm model c
-c**********************************************************************c
-C_otb if(ibrdf.eq.9) then
-C_otb read(iread,*) uli,eei,thmi,sli
-C_otb read(iread,*) cabi,cwi,vaii,rnci,rsl1i
-C_otb
-C_otb do l=iinf,isup
-C_otb srm(-1)=phirad
-C_otb srm(1)=xmuv
-C_otb srm(0)=xmus
-C_otb wl=.25+(l-1)*step
-C_otb call akbrdf(eei,thmi,uli,sli,rsl1i,wl,rnci,cabi,cwi,vaii
-C_otb s ,1,1,srm,srp,sbrdftmp)
-C_otb sbrdf(l)=sbrdftmp(1,1)
-C_otb enddo
-C_otb
-C_otb rm(-mu)=phirad
-C_otb rm(mu)=xmuv
-C_otb rm(0)=xmus
-C_otb call akbrdf(eei,thmi,uli,sli,rsl1i,wlmoy,rnci,cabi,cwi,vaii
-C_otb & ,mu,np,rm,rp,brdfints)
-C_otb rm(-mu)=2.*pi-phirad
-C_otb rm(mu)=xmus
-C_otb rm(0)=xmuv
-C_otb call akbrdf(eei,thmi,uli,sli,rsl1i,wlmoy,rnci,cabi,cwi,vaii
-C_otb & ,mu,np,rm,rp,brdfintv)
-c
-C_otb call akalbe
-C_otb* & (eei,thmi,uli,sli,rsl1i,wlmoy,rnci,cabi,cwi,vaii,albbrdf)
-C_otb & (albbrdf)
-C_otb go to 69
-C_otb endif
-c
-c**********************************************************************c
-c brdf from MODIS BRDF model c
-c**********************************************************************c
-C_otb if(ibrdf.eq.10) then
-C_otb read(iread,*)p1,p2,p3
-C_otb
-C_otb srm(-1)=phirad
-C_otb srm(1)=xmuv
-C_otb srm(0)=xmus
-C_otb call modisbrdf(p1,p2,p3
-C_otb s ,1,1,srm,srp,sbrdftmp)
-C_otb do l=iinf,isup
-C_otb sbrdf(l)=sbrdftmp(1,1)
-C_otb enddo
-C_otb
-C_otb rm(-mu)=phirad
-C_otb rm(mu)=xmuv
-C_otb rm(0)=xmus
-C_otb call modisbrdf(p1,p2,p3
-C_otb & ,mu,np,rm,rp,brdfints)
-C_otb rm(-mu)=2.*pi-phirad
-C_otb rm(mu)=xmus
-C_otb rm(0)=xmuv
-C_otb call modisbrdf(p1,p2,p3
-C_otb & ,mu,np,rm,rp,brdfintv)
-c
-C_otb call modisalbe(p1,p2,p3
-C_otb & ,albbrdf)
-C_otb go to 69
-C_otb endif
-c
-C_otb 69 continue
-c**********************************************************************c
-c the downward irradiance was computed for a sun at thetas and c
-c several viewing directions (mu zenith times np azimuth). then, the c
-c code computes the product of ldown*brdf integrated over the total c
-c hemisphere and gives the averaged directional reflectance after the c
-c normalization. the resulting reflectance is named robar c
-c**********************************************************************c
-C_otb robar1=0.
-C_otb xnorm1=0.
-C_otb do 83 j=1,np
-C_otb rob=0.
-C_otb xnor=0.
-C_otb do 84 k=1,mu-1
-C_otb rdown=xlmus(-k,j)
-C_otb rdir=brdfintv(k,j)
-C_otb rob=rob+rdown*rdir*rm(k)*gb(k)
-C_otb xnor=xnor+rdown*rm(k)*gb(k)
-C_otb 84 continue
-C_otb robar1=robar1+rob*gp(j)
-C_otb xnorm1=xnorm1+xnor*gp(j)
-C_otb 83 continue
-
-c**********************************************************************c
-c the downward irradiance was computed for a sun at thetav and c
-c several viewing directions (mu zenith times np azimuth). then, the c
-c code computes the product of ldown*brdf integrated over the total c
-c hemisphere and gives the averaged directional reflectance after the c
-c normalization. the resulting reflectance is named robarp c
-c**********************************************************************c
-C_otb robar2=0.
-C_otb xnorm2=0.
-C_otb do 85 j=1,np
-C_otb rob=0.
-C_otb xnor=0.
-C_otb do 86 k=1,mu-1
-C_otb rdown=xlmuv(-k,j)
-C_otb rdir=brdfints(k,j)
-C_otb rob=rob+rdown*rdir*rm(k)*gb(k)
-C_otb xnor=xnor+rdown*rm(k)*gb(k)
-C_otb 86 continue
-C_otb robar2=robar2+rob*gp(j)
-C_otb xnorm2=xnorm2+xnor*gp(j)
-C_otb 85 continue
-
-c robard is assumed equal to albbrdf
-c print 301,brdfints(mu,1),robar1,xnorm1,
-c s robar2,xnorm2,albbrdf
-c print 301,robar1/xnorm1,robar2/xnorm2
-c print 301,betal(0)/3,pizmoy
-c301 format(6(f10.4,2x))
-c501 format(5(i10,2x))
-C_otb do 335 l=iinf,isup
-C_otb rocl(l)=sbrdf(l)
-C_otb roel(l)=sbrdf(l)
-C_otb robar(l)=robar1/xnorm1
-C_otb if (idatmp.ne.0) then
-C_otb robarp(l)=robar2/xnorm2
-C_otb else
-C_otb robarp(l)=0.
-C_otb xnorm2=1.
-C_otb robar2=0.
-C_otb endif
-C_otb robard(l)=albbrdf
-C_otb 335 continue
-C_otb go to 34
-
-c**********************************************************************c
-c uniform surface with lambertian conditions c
-c**********************************************************************c
-
-C_otb 21 read(iread,*) igroun
- igroun=0 !Added_for_OTB
-C_otb
-C_otb if(igroun) 29,32,33
-C_otb
-C_otb 29 read(iread,*) nwlinf,nwlsup
-C_otb niinf=(nwlinf-.25)/0.0025+1.5
-C_otb nisup=(nwlsup-.25)/0.0025+1.5
-C_otb read(iread,*) (rocl(i),i=niinf,nisup)
-C_otb goto 36
-C_otb
-C_otb 32 read(iread,*) ro
- ro=0.0 !Added_for_OTB
-C_otb
-C_otb do 35 l=iinf,isup
-C_otb rocl(l)=ro
-C_otb 35 continue
-C_otb goto 36
-C_otb 33 if(igroun.eq.1) call vegeta(rocl)
-C_otb if(igroun.eq.2) call clearw(rocl)
-C_otb if(igroun.eq.3) call sand (rocl)
-C_otb if(igroun.eq.4) call lakew (rocl)
-C_otb 36 do 39 l=iinf,isup
-C_otb roel(l)=rocl(l)
-C_otb 39 continue
-C_otb go to 34
-
-c**********************************************************************c
-c non-uniform conditions with lambertian conditions c
-c**********************************************************************c
-C_otb 31 read(iread,*) igrou1,igrou2,rad
-C_otb if(igrou1) 59,60,63
-C_otb 59 read(iread,*) (rocl(i),i=iinf,isup)
-C_otb goto 61
-C_otb 60 read(iread,*) roc
-C_otb do 64 l=iinf,isup
-C_otb rocl(l)=roc
-C_otb 64 continue
-C_otb go to 61
-C_otb 63 if(igrou1.eq.1) call vegeta(rocl)
-C_otb if(igrou1.eq.2) call clearw(rocl)
-C_otb if(igrou1.eq.3) call sand (rocl)
-C_otb if(igrou1.eq.4) call lakew (rocl)
-C_otb 61 if(igrou2) 66,62,65
-C_otb 66 read(iread,*) (roel(i),i=iinf,isup)
-C_otb goto 34
-C_otb 62 read(iread,*) roe
-C_otb do 67 l=iinf,isup
-C_otb roel(l)=roe
-C_otb 67 continue
-C_otb go to 34
-C_otb 65 if(igrou2.eq.1) call vegeta(roel)
-C_otb if(igrou2.eq.2) call clearw(roel)
-C_otb if(igrou2.eq.3) call sand (roel)
-C_otb if(igrou2.eq.4) call lakew (roel)
-C_otb 34 continue
-
-C_otb_adaptation End: inhomo=0 idirec=0 igroun=0 ro=0
-
-c**********************************************************************c
-c c
-c irapp that input parameter allows to activate atmospheric c
-c correction mode c
-c c
-c -1: No atmospheric Correction is performed c
-c 0,1: Atmospheric Correction with Lambertian assumption c
-c and with the assumption that c
-c target BRDF is proportional to the input BRDF (see c
-c case idirec=1) c
-c c
-c rapp parameter that contains the reflectance/radiance c
-c to be corrected. c
-c c
-c if rapp >0. : the code retrieve the value of the c
-c surface reflectance (rog) that will produce a radiance c
-c equal to rapp [w/m2/str/mic] in the atmospheric c
-c conditions described by user before c
-c c
-c if -1.<rapp<0. : the code retrieve the value of the c
-c surface reflectance (rog) value that will produce a c
-c 'reflectance' (radiance*pi/(mus*es)) equal to -rapp c
-c where mus is the cosine of solar zenith angle, c
-c es is the solar constant integrated upon the c
-c filter response and taking account for earth-solar c
-c distance, es is in [w/m2/sr/mic]. c
-c c
-c**********************************************************************c
-
-C_otb_adaptation Beginning: irapp=-1 & rapp=-10. no atmospheric correction
-C_otb read(iread,*) irapp
-
-C_otb if (irapp.ge.0) then
-C_otb irapp=1
-C_otb read(iread,*) rapp
-C_otb endif
-
- irapp=-1 !Added_for_OTB (No atm. corrections selected)
- rapp=-10. !Added_for_OTB
-
-C_otb_adaptation End : irapp=-1 & rapp=-10. no atmospheric correction
-
-c**********************************************************************c
-c c
-c Some optional input for polarization c
-c c
-c you can input polarization definition through irop: c
-c 1 enter ropq and ropu (stokes parameter for polarized c
-c surface reflectance c
-c 2 enter pveg (% vegetation) for use in Nadal,Breon model c
-c 3 enter wspd for sunglint polarization (sunglint) c
-c anything else will result in assuming than surface does not c
-c polarized. c
-c c
-c c
-c**********************************************************************c
-
-C ilut=0
-C read(iread,*,end=37) ilut
-
- irop=0
-
-C_otb read(iread,*,end=37) irop
-
- if (irop.eq.1) then
- read(iread,*) ropq,ropu
- endif
-
- if (irop.eq.2) then
- read(iread,*) pveg
- call polnad(asol,avis,phi,pveg,ropq,ropu)
- endif
-
- if (irop.eq.3) then
- read(iread,*) wspd,azw
- razw=phi0-azw
- call polglit(asol,avis,phi,wspd,razw,ropq,ropu)
- endif
-
- 37 if ((irop.lt.1).or.(irop.gt.3)) then
- if (idirec.eq.0) then
- ropq=0.000
- ropu=0.000
- else
- if (ibrdf.eq.6) then
- irop=3
- wspd=pws
- azw=phi_wind
- razw=phi0-azw
- phi=phi0-phiv
- call polglit(asol,avis,phi,wspd,razw,ropq,ropu)
- endif
- if (ibrdf.eq.9) then
- irop=2
- pveg=ul
- if (pveg.gt.1.) pveg=1
- call polnad(asol,avis,phi,pveg,ropq,ropu)
- endif
- endif
- endif
-C write(6,*) "Surface polarization reflectance, Q,U,rop ",
-C s ropq,ropu,sqrt(ropq*ropq+ropu*ropu)
-
-
-
-c**********************************************************************c
-c**********************************************************************c
-c c
-c example of input cards c
-c c
-c 4 (avhrr observation) c
-c 7 6 10.1 600 0.0 10.0 (month,day,htu,cn,longan,han) c
-c 8 (user's model) c
-c 3.0 0.35 ( uh2o(g/cm2) ,uo3(cm-atm) ) c
-c 4 (aerosols model) c
-c 0.25 0.25 0.25 0.25 ( % of:dust-like,water-sol,oceanic,soot)c
-c 23.0 (visibility (km) ) c
-c -0.5 (target at 0.5km high) c
-c -1000 (sensor aboard a satellite) c
-c 6 (avhrr 2 (noaa 8) band) c
-c 1 (ground type,i.e. non homogeneous) c
-c 2 1 0.50 (target,env.,radius(km) ) c
-c -0.10 (atmospheric correction mode for a TOA c
-c reflectance equal to 0.10) c
-c c
-c**********************************************************************c
-
-
-c**********************************************************************c
-c print of initial conditions c
-c c
-c**********************************************************************c
-
-C_otb_adaptation Beginning: jump writings
- goto 8888 !Added_for_OTB
-C_otb_adaptation End : jump writings
-
-
-c ---- geometrical conditions ----
- write(iwr, 98)
- write(iwr, etiq1(igeom+1))
- if(igeom.eq.0) then
- write(iwr, 1401)
- write(iwr, 103)month,jday
- endif
- if(igeom.ne.0) write(iwr, 101)month,jday,tu,xlat,xlon
- write(iwr, 102)asol,phi0
- write(iwr, 1110)avis,phiv,adif,phi
-
-c --- atmospheric model ----
- write(iwr, 1119)
- if(idatm-7)226,227,228
- 228 write(iwr, 1281)uw,uo3
- goto 219
- 227 write(iwr, 1272)
- do 229 i=1,34
- write(iwr, 1271)z(i),p(i),t(i),wh(i),wo(i)
- 229 continue
- goto 219
- 226 write(iwr, 1261)atmid(idatm+1)
-
-c --- aerosols model (type) ----
-
-219 write(iwr,5550)
- if(iaer.eq.0) then
- write(iwr, 5554)
- goto 1112
- endif
-
- if (iaer_prof.eq.1) then
-
- aer_model(1)="Continental"
- aer_model(2)=" Maritime"
- aer_model(3)=" Urban"
- aer_model(4)="user-defined"
- aer_model(5)=" Desert"
- aer_model(6)="Biomass Burning"
- aer_model(7)="Stratospheric"
- aer_model(8)="user-defined"
- aer_model(9)="user-defined"
- aer_model(10)="user-defined"
- aer_model(11)="Sun Photometer"
- aer_model(12)="user-defined"
-
- num_z=num_z-1
- write(6,5551) num_z
- write(6,5552)
- do i=1,num_z
- write(6,5553)i,height_z(num_z+1-i),taer55_z(num_z+1-i),
- a aer_model(iaer)
- enddo
-
- endif
-
- if (iaer_prof.eq.0) then
-
- aer_model(1)="Continental aerosol model"
- aer_model(2)="Maritime aerosol model"
- aer_model(3)="Urban aerosol model"
- aer_model(5)="Desert aerosol model"
- aer_model(6)="Biomass Burning aerosol model"
- aer_model(7)="Stratospheric aerosol model"
- aer_model(11)="Sun Photometer aerosol model"
-
- if (iaer.ge.1.and.iaer.lt.4) write (iwr,132) aer_model(iaer)
- if (iaer.ge.5.and.iaer.le.7) write (iwr,132) aer_model(iaer)
- if (iaer.eq.11) write(iwr,132) aer_model(iaer)
-
- endif
-
- if (iaer.eq.4)write(iwr,133)(c(i),i=1,4)
- if (iaer.eq.8) then
- write(6,134) icp
- do i=1,icp
- write(iwr,135)x1(i),x2(i),cij_out(i)
- enddo
- endif
- if (iaer.eq.9) write(iwr,136)x1(1),x2(1),x3(1)
- if (iaer.eq.10) write(iwr,137)x1(1)
- if (iaerp.eq.1)write(iwr,139)FILE2(1:i2)
- if (iaer.eq.12)write(iwr,138)FILE2(1:i2)
-
-
-c --- aerosol model (concentration) ----
-c --- for the exponential profile ----
- if (iaer_prof.eq.0) then
- if(abs(v).le.xacc) write(iwr, 140)taer55
- if(abs(v).gt.xacc) write(iwr, 141)v,taer55
- endif
-1112 write(6,5555)
-
-
-c --- spectral condition ----
- write(iwr, 148)
- if(iwave.eq.-2) write(iwr, 1510) nsat(1),wlinf,wlsup
- if(iwave.eq.-1) write(iwr, 149) wl
- if(iwave.ge.0) write(iwr, 1510) nsat(iwave+1), wlinf,wlsup
-
-c ---- atmospheric polarization requested
- if (ipol.ne.0)then
- write(iwr, 142)
- if (irop.eq.1) write(iwr,146) ropq,ropq
- if (irop.eq.2) write(iwr,144) pveg*100.0
- if (irop.eq.3) write(iwr,145) wspd,azw
- write(iwr,143) ropq,ropu,sqrt(ropq*ropq+ropu*ropu),
- s atan2(ropu,ropq)*180.0/3.1415927/2.0
- endif
-
-
-
-C_otb_adaptation Beginning: jump writings
-8888 continue !Added_for_OTB
-C_otb_adaptation End : jump writings
-
-c --- ground reflectance (type and spectral variation) ----
- if(idirec.eq.0) then
- rocave=0.
- roeave=0.
- seb=0.
-
- do 264 i=iinf,isup
- sbor=s(i)
- if(i.eq.iinf.or.i.eq.isup) sbor=sbor*0.5
- wl=.25+(i-1)*step
- call solirr(wl,
- 1 swl)
- swl=swl*dsol
- rocave=rocave+rocl(i)*sbor*swl*step
- roeave=roeave+roel(i)*sbor*swl*step
- seb=seb+sbor*swl*step
- 264 continue
- rocave=rocave/seb
- roeave=roeave/seb
- isort=0
- ro=rocave
-
- if(inhomo.eq.0) goto 260
- write(iwr, 169)rad
- igroun=igrou1
- ro=rocave
- write(iwr, 170)
- goto 261
-
- 262 igroun=igrou2
- ro=roeave
- write(iwr, 171)
- goto 261
-
-C_otb_adaptation Beginning: jump writings
-C_otb 260 write(iwr, 168)
-C_otb 261 if (igroun.gt.0)write(iwr, reflec(igroun+3))ro
- 260 continue !Added_for_OTB
- 261 continue !Added_for_OTB
-C_otb_adaptation End : jump writings
-
-C_otb if (igroun.gt.0)goto 158
-C_otb if(igroun.eq.-1) write(iwr, reflec(1))ro
-C_otb if(igroun.eq.-1) goto 158
-C_otb if(iwave.eq.-1) write(iwr, reflec(2))ro
-C_otb if(iwave.ne.-1) write(iwr, reflec(3))ro
- 158 isort=isort+1
- if(inhomo.eq.0) goto 999
- if(isort.eq.2) goto 999
- goto 262
- else
-C_otb write(iwr, 168)
- if(idirec.eq.1) then
- rocave=0.
- rfoamave=0.
- rwatave=0.
- rglitave=0.
- seb=0.
-
- do i=iinf,isup
- sbor=s(i)
- if(i.eq.iinf.or.i.eq.isup) sbor=sbor*0.5
- wl=.25+(i-1)*step
- call solirr(wl,
- 1 swl)
- swl=swl*dsol
- rocave=rocave+rocl(i)*sbor*swl*step
- rfoamave=rfoamave+rfoaml(i)*sbor*swl*step
- rwatave=rwatave+rwatl(i)*sbor*swl*step
- rglitave=rglitave+rglitl(i)*sbor*swl*step
- seb=seb+sbor*swl*step
- enddo
- rocave=rocave/seb
- rfoamave=rfoamave/seb
- rwatave=rwatave/seb
- rglitave=rglitave/seb
-
-C_otb goto(2000,2001,2002,2003,2004,2005,2006,2007,2008,2010,2011)
-C_otb * ,(ibrdf+1)
-C_otb 2000 write(iwr, 190)
-C_otb write(iwr, 187)
-C_otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
-C_otb goto 2009
-C_otb 2001 write(iwr, 191)par1,par2,par3,par4
-C_otb write(iwr, 187)
-C_otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
-C_otb goto 2009
-C_otb 2002 write(iwr, 192)optics(1),struct(1),struct(2)
-C_otb if (options(5).eq.0) write(iwr, 200)
-C_otb if (options(5).eq.1) write(iwr, 201)
-C_otb if (options(3).eq.0) write(iwr, 197)struct(3),struct(4)
-C_otb if (options(3).eq.1) write(iwr, 198)struct(3)
-C_otb if (options(3).eq.2) write(iwr, 199)struct(3)
-C_otb if (options(4).eq.0) write(iwr, 202)
-C_otb if (options(4).eq.1) write(iwr, 203)optics(2)
-C_otb if (options(4).eq.2) write(iwr, 204)optics(2),optics(3)
-C_otb write(iwr, 187)
-C_otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
-C_otb goto 2009
-C_otb 2003 write(iwr, 193)par1,par2,par3
-C_otb write(iwr, 187)
-C_otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
-C_otb goto 2009
-C_otb 2004 write(iwr, 194)par1,par2,par3,par4
-C_otb write(iwr, 187)
-C_otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
-C_otb goto 2009
-C_otb 2005 write(iwr, 195)par1,par2
-C_otb write(iwr, 187)
-C_otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
-C_otb goto 2009
-C_otb 2006 write(iwr, 196)pws,phi_wind,xsal,pcl
-C_otb write(iwr,500) rfoamave,rwatave,rglitave
-C_otb write(iwr, 187)
-C_otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
-C_otb goto 2009
-C_otb 2007 write(iwr, 205) pRl,pTl,pRs,PxLt
-C_otb if (pihs.eq.0) then
-C_otb write(iwr,207)' no hot spot '
-C_otb else
-C_otb write(iwr,208)' hot spot parameter',pc
-C_otb endif
-C_otb if (pild.eq.1) write(iwr,209) ' planophile leaf distribution'
-C_otb if (pild.eq.2) write(iwr,209) ' erectophile leaf distribution'
-C_otb if (pild.eq.3) write(iwr,209) ' plagiophile leaf distribution'
-C_otb if (pild.eq.4) write(iwr,209) ' extremophile leaf distribution'
-C_otb if (pild.eq.5) write(iwr,209) ' uniform leaf distribution'
-C_otb write(iwr, 187)
-C_otb *rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
-C_otb goto 2009
-C_otb 2008 write(iwr, 206) par1,par2,par3
-C_otb goto 2009
-C_otb 2010 write(iwr, 210)uli,eei,thmi,sli,cabi,cwi,vaii,rnci,rsl1i
-C_otb write(iwr, 187)
-C_otb * rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
-C_otb goto 2009
-C_otb 2011 write(iwr, 211)p1,p2,p3
-C_otb write(iwr, 187)
-C_otb * rocave,robar1/xnorm1,robar2/xnorm2,albbrdf
-C_otb goto 2009
- 2009 endif
- endif
- 50 continue
-
-c --- pressure at ground level (174) and altitude (175) ----
-C_otb_adaptation Beginning: jump writings
-C_otb 999 write(iwr, 173)
-C_otb write(iwr, 174)p(1)
-C_otb write(iwr, 175)xps
-C_otb if (xps.gt.0..and.idatm.ne.0) write(iwr, 176)uw,uo3
- 999 continue !Added_for_OTB
-C_otb_adaptation End : jump writings
-
-
-c --- plane simulation output if selected ----
-C_otb if (palt.lt.1000.) then
-C_otb write(iwr, 178)
-C_otb write(iwr, 179)pps
-C_otb write(iwr, 180)zpl(34)
-C_otb write(iwr, 181)
-C_otb write(iwr, 182)puo3
-C_otb write(iwr, 183)puw
-C_otb write(iwr, 184)taer55p
-C_otb endif
-
-c ---- atmospheric correction ----
-C_otb if (irapp.ge.0) then
-C_otb write(iwr, 177)
-C_otb if (irapp.eq. 0) write(iwr, 220)
-C_otb if (irapp.eq. 1) write(iwr, 221)
-C_otb if (rapp.lt.0.) then
-C_otb write(iwr, 185)-rapp
-C_otb else
-C_otb write(iwr, 186)rapp
-C_otb endif
-C_otb endif
-C_otb write(iwr, 172)
-c**********************************************************************c
-c c
-c c
-c start of computations c
-c c
-c c
-c c
-c**********************************************************************c
-
-c ---- initilialization
-C Start Update Look up table
- do i=1,mu
- do j=1,41
- roluti(i,j)=0.0
- rolutiq(i,j)=0.0
- rolutiu(i,j)=0.0
- enddo
- enddo
-C End Update Look up table
- sb=0.
- seb=0.
- refet=0.
- refet1=0.
- refet2=0.
- refet3=0.
- rpfet=0.
- rpfet1=0.
- rpfet2=0.
- rpfet3=0.
- alumet=0.
- plumet=0.
- tgasm=0.
- rog=0.
- dgasm=0.
- ugasm=0.
- sdwava=0.
- sdozon=0.
- sddica=0.
- sdoxyg=0.
- sdniox=0.
- sdmoca=0.
- sdmeth=0.
- suwava=0.
- suozon=0.
- sudica=0.
- suoxyg=0.
- suniox=0.
- sumoca=0.
- sumeth=0.
- stwava=0.
- stozon=0.
- stdica=0.
- stoxyg=0.
- stniox=0.
- stmoca=0.
- stmeth=0.
- sodray=0.
- sodrayp=0.
- sodaer=0.
- sodaerp=0.
- sodtot=0.
- sodtotp=0.
- fophsr=0.
- fophsa=0.
- foqhsr=0.
- foqhsa=0.
- fouhsr=0.
- fouhsa=0.
- sroray=0.
- sroaer=0.
- srotot=0.
- srpray=0.
- srpaer=0.
- srptot=0.
- srqray=0.
- srqaer=0.
- srqtot=0.
- sruray=0.
- sruaer=0.
- srutot=0.
- ssdaer=0.
- sdtotr=0.
- sdtota=0.
- sdtott=0.
- sutotr=0.
- sutota=0.
- sutott=0.
- sasr=0.
- sasa=0.
- sast=0.
- do 52 i=1,2
- do 53 j=1,3
- ani(i,j)=0.
- aini(i,j)=0.
- anr(i,j)=0.
- ainr(i,j)=0.
- 53 continue
- 52 continue
-
-c ---- spectral loop ----
- if (iwave.eq.-2) write(iwr,1500)
- do 51 l=iinf,isup
- sbor=s(l)
- if(l.eq.iinf.or.l.eq.isup) sbor=sbor*0.5
- if(iwave.eq.-1) sbor=1.0/step
- roc=rocl(l)
- roe=roel(l)
- wl=.25+(l-1)*step
-c
- call abstra(idatm,wl,xmus,xmuv,uw/2.,uo3,uwus,uo3us,
- a idatmp,puw/2.,puo3,puwus,puo3us,
- a dtwava,dtozon,dtdica,dtoxyg,dtniox,dtmeth,dtmoca,
- a utwava,utozon,utdica,utoxyg,utniox,utmeth,utmoca,
- a attwava,ttozon,ttdica,ttoxyg,ttniox,ttmeth,ttmoca )
- call abstra(idatm,wl,xmus,xmuv,uw,uo3,uwus,uo3us,
- a idatmp,puw,puo3,puwus,puo3us,
- a dtwava,dtozon,dtdica,dtoxyg,dtniox,dtmeth,dtmoca,
- a utwava,utozon,utdica,utoxyg,utniox,utmeth,utmoca,
- a ttwava,ttozon,ttdica,ttoxyg,ttniox,ttmeth,ttmoca )
- if (dtwava.lt.accu3) dtwava=0.
- if (dtozon.lt.accu3) dtozon=0.
- if (dtdica.lt.accu3) dtdica=0.
- if (dtniox.lt.accu3) dtniox=0.
- if (dtmeth.lt.accu3) dtmeth=0.
- if (dtmoca.lt.accu3) dtmeth=0.
- if (utwava.lt.accu3) utwava=0.
- if (utozon.lt.accu3) utozon=0.
- if (utdica.lt.accu3) utdica=0.
- if (utniox.lt.accu3) utniox=0.
- if (utmeth.lt.accu3) utmeth=0.
- if (utmoca.lt.accu3) utmeth=0.
- if (ttwava.lt.accu3) ttwava=0.
- if (ttozon.lt.accu3) ttozon=0.
- if (ttdica.lt.accu3) ttdica=0.
- if (ttniox.lt.accu3) ttniox=0.
- if (ttmeth.lt.accu3) ttmeth=0.
- if (ttmoca.lt.accu3) ttmeth=0.
-c
- call solirr(wl,
- s swl)
- swl=swl*dsol
- coef=sbor*step*swl
- coefp=sbor*step
- call interp(iaer,idatmp,wl,taer55,taer55p,xmud,romix,
- s rorayl,roaero,phaa,phar,rqmix,rqrayl,rqaero,qhaa,qhar,
- s rumix,rurayl,ruaero,uhaa,uhar,
- s tsca,tray,trayp,taer,taerp,dtott,utott,astot,asray,asaer,
- s utotr,utota,dtotr,dtota,ipol,roatm_fi,romix_fi,rorayl_fi,nfi,
- s roluts,rolut,rolutsq,rolutq,rolutsu,rolutu,nfilut)
-
- dgtot=dtwava*dtozon*dtdica*dtoxyg*dtniox*dtmeth*dtmoca
- tgtot=ttwava*ttozon*ttdica*ttoxyg*ttniox*ttmeth*ttmoca
- ugtot=utwava*utozon*utdica*utoxyg*utniox*utmeth*utmoca
- tgp1=ttozon*ttdica*ttoxyg*ttniox*ttmeth*ttmoca
- tgp2=attwava*ttozon*ttdica*ttoxyg*ttniox*ttmeth*ttmoca
-
-
-CC--- computing integrated values over the spectral band------
- sb=sb+sbor*step
- seb=seb+coef
-
-c ---unpolarized light
- edifr=utotr-exp(-trayp/xmuv)
- edifa=utota-exp(-taerp/xmuv)
- if (idirec.eq.1) then
- tdird=exp(-(trayp+taerp)/xmus)
- tdiru=exp(-(trayp+taerp)/xmuv)
- tdifd=dtott-tdird
- tdifu=utott-tdiru
- rsurf=roc*tdird*tdiru+
- s robar(l)*tdifd*tdiru+robarp(l)*tdifu*tdird+
- s robard(l)*tdifd*tdifu+
- s (tdifd+tdird)*(tdifu+tdiru)*astot*robard(l)*robard(l)
- s /(1.-astot*robard(l))
- avr=robard(l)
- else
- call enviro(edifr,edifa,rad,palt,xmuv,fra,fae,fr)
- avr=roc*fr+(1.-fr)*roe
- rsurf=roc*dtott*exp(-(trayp+taerp)/xmuv)/(1.-avr*astot)
- s +avr*dtott*(utott-exp(-(trayp+taerp)/xmuv))/(1.-avr*astot)
- endif
- ratm1=(romix-rorayl)*tgtot+rorayl*tgp1
- ratm3=romix*tgp1
- ratm2=(romix-rorayl)*tgp2+rorayl*tgp1
- do i=1,nfi
- ratm2_fi(i)=(romix_fi(i)-rorayl_fi(i))*tgp2+rorayl_fi(i)*tgp1
- enddo
- romeas1=ratm1+rsurf*tgtot
- romeas2=ratm2+rsurf*tgtot
- romeas3=ratm3+rsurf*tgtot
-c computing integrated values over the spectral band
-
- alumeas=xmus*swl*romeas2/pi
- alumet=alumet+alumeas*sbor*step
- rfoamave=rfoamave+rfoaml(i)*sbor*swl*step
- rwatave=rwatave+rwatl(i)*sbor*swl*step
- rglitave=rglitave+rglitl(i)*sbor*swl*step
- rog=rog+roc*coef
- refet=refet+romeas2*coef
- refet1=refet1+romeas1*coef
- refet2=refet2+romeas2*coef
- refet3=refet3+romeas3*coef
- do i=1,nfi
- refet_fi(i)=refet_fi(i)+ratm2_fi(i)*coef
- enddo
-
-C Start Update Look up table
-C do i=1,mu
-C do j=1,41
-C roluti(i,j)=roluti(i,j)+rolut(i,j)*coef
-C rolutiq(i,j)=rolutiq(i,j)+rolutq(i,j)*coef
-C rolutiu(i,j)=rolutiu(i,j)+rolutu(i,j)*coef
-C enddo
-C enddo
-C End Update Look up table
-
-
-
- if (iwave.eq.-2) then
-C_otb write(iwr,1501) wl,tgtot,dtott,utott,astot,ratm2,swl,roc,
-C_otb s sbor,dsol,romeas2
- endif
-
-c ---polarized light:
-c -the spectral integration without the solar irradiance
-c because the sun does not generate polarized light
-c -we assume a Lambertian ground, then no polarized
-c surface reflectance (rpsurf=0.0, avr=0.0, roc=0.0)
- if (ipol.ne.0)then
- rqatm2=(rqmix-rqrayl)*tgp2+rqrayl*tgp1
- ruatm2=(rumix-rurayl)*tgp2+rurayl*tgp1
-
- tdirqu=exp(-(trayp+taerp)*(1./xmuv+1./xmus))
- rqmeas2=rqatm2+ropq*tgtot*tdirqu
- rumeas2=ruatm2+ropu*tgtot*tdirqu
-
- qlumeas=xmus*swl*rqmeas2/pi
- ulumeas=xmus*swl*rumeas2/pi
- qlumet=qlumet+qlumeas*coefp
- ulumet=ulumet+ulumeas*coefp
-
- foqhsa=foqhsa+qhaa*coef
- foqhsr=foqhsr+qhar*coef
- fouhsa=fouhsa+uhaa*coef
- fouhsr=fouhsr+uhar*coef
- srqray=srqray+rqrayl*coef
- srqaer=srqaer+rqaero*coef
- srqtot=srqtot+rqmix*coef
- sruray=sruray+rurayl*coef
- sruaer=sruaer+ruaero*coef
- srutot=srutot+rumix*coef
- rqfet=rqfet+rqmeas2*coefp
- rufet=rufet+rumeas2*coefp
-
-C Start Update Look up table
- do i=1,mu
- do j=1,41
- roluti(i,j)=roluti(i,j)+rolut(i,j)*coef
- rolutiq(i,j)=rolutiq(i,j)+rolutq(i,j)*coef
- rolutiu(i,j)=rolutiu(i,j)+rolutu(i,j)*coef
- enddo
- enddo
-C End Update Look up table
-
- endif
-
-C ---gazes and other characteritics used in both light
- srotot=srotot+(romix)*coef
- fophsa=fophsa+phaa*coef
- fophsr=fophsr+phar*coef
- sroray=sroray+rorayl*coef
- sroaer=sroaer+roaero*coef
-
- sasr=sasr+asray*coef
- sasa=sasa+asaer*coef
- sast=sast+astot*coef
- sodray=sodray+tray*coef
- sodaer=sodaer+taer*coef
- sodrayp=sodrayp+trayp*coef
- sodaerp=sodaerp+taerp*coef
- ssdaer=ssdaer+tsca*coef
- sodtot=sodtot+(taer+tray)*coef
- sodtotp=sodtotp+(taerp+trayp)*coef
- tgasm=tgasm+tgtot*coef
- dgasm=dgasm+dgtot*coef
- ugasm=ugasm+ugtot*coef
- sdwava=sdwava+dtwava*coef
- sdozon=sdozon+dtozon*coef
- sddica=sddica+dtdica*coef
- sdoxyg=sdoxyg+dtoxyg*coef
- sdniox=sdniox+dtniox*coef
- sdmeth=sdmeth+dtmeth*coef
- sdmoca=sdmoca+dtmoca*coef
- suwava=suwava+utwava*coef
- suozon=suozon+utozon*coef
- sudica=sudica+utdica*coef
- suoxyg=suoxyg+utoxyg*coef
- suniox=suniox+utniox*coef
- sumeth=sumeth+utmeth*coef
- sumoca=sumoca+utmoca*coef
- stwava=stwava+ttwava*coef
- stozon=stozon+ttozon*coef
- stdica=stdica+ttdica*coef
- stoxyg=stoxyg+ttoxyg*coef
- stniox=stniox+ttniox*coef
- stmeth=stmeth+ttmeth*coef
- stmoca=stmoca+ttmoca*coef
- sdtotr=sdtotr+dtotr*coef
- sdtota=sdtota+dtota*coef
- sdtott=sdtott+dtott*coef
- sutotr=sutotr+utotr*coef
- sutota=sutota+utota*coef
- sutott=sutott+utott*coef
-
-c ---output at the ground level.
- tdir=exp(-(tray+taer)/xmus)
- tdif=dtott-tdir
- etn=dtott*dgtot/(1.-avr*astot)
- esn=tdir*dgtot
- es=tdir*dgtot*xmus*swl
- ea0n=tdif*dgtot
- ea0=tdif*dgtot*xmus*swl
- ee0n=dgtot*avr*astot*dtott/(1.-avr*astot)
- ee0=xmus*swl*dgtot*avr*astot*dtott/(1.-avr*astot)
- if (etn.gt.accu3) then
- ani(1,1)=esn/etn
- ani(1,2)=ea0n/etn
- ani(1,3)=ee0n/etn
- else
- ani(1,1)=0.
- ani(1,2)=0.
- ani(1,3)=0.
- endif
- ani(2,1)=es
- ani(2,2)=ea0
- ani(2,3)=ee0
- do 955 j=1,3
- aini(1,j)=aini(1,j)+ani(1,j)*coef
- aini(2,j)=aini(2,j)+ani(2,j)*sbor*step
- 955 continue
-
-c ---output at satellite level
-C old version is commented (new changes are immediately below
-C Jan-15-2004
-C tmdir=exp(-(tray+taerp)/xmuv)
- tmdir=exp(-(trayp+taerp)/xmuv)
- tmdif=utott-tmdir
- xla0n=ratm2
- xla0=xla0n*xmus*swl/pi
- xltn=roc*dtott*tmdir*tgtot/(1.-avr*astot)
- xlt=xltn*xmus*swl/pi
- xlen=avr*dtott*tmdif*tgtot/(1.-avr*astot)
- xle=xlen*xmus*swl/pi
- anr(1,1)=xla0n
- anr(1,2)=xlen
- anr(1,3)=xltn
- anr(2,1)=xla0
- anr(2,2)=xle
- anr(2,3)=xlt
- do 56 j=1,3
- ainr(1,j)=ainr(1,j)+anr(1,j)*coef
- ainr(2,j)=ainr(2,j)+anr(2,j)*sbor*step
- 56 continue
- 51 continue
-
-cc---- integrated values of apparent reflectance, radiance ----
-cc---- and gaseous transmittances (total,downward,separately gases) ----
-
-
-
- tgasm=tgasm/seb
- dgasm=dgasm/seb
- ugasm=ugasm/seb
- sasa=sasa/seb
- sasr=sasr/seb
- sast=sast/seb
- sdniox=sdniox/seb
- sdmoca=sdmoca/seb
- sdmeth=sdmeth/seb
- sdwava=sdwava/seb
- sdozon=sdozon/seb
- sddica=sddica/seb
- suniox=suniox/seb
- sumoca=sumoca/seb
- sumeth=sumeth/seb
- suwava=suwava/seb
- suozon=suozon/seb
- sudica=sudica/seb
- suoxyg=suoxyg/seb
- sdoxyg=sdoxyg/seb
- stniox=stniox/seb
- stmoca=stmoca/seb
- stmeth=stmeth/seb
- stwava=stwava/seb
- stozon=stozon/seb
- stdica=stdica/seb
- stoxyg=stoxyg/seb
- sdtotr=sdtotr/seb
- sdtota=sdtota/seb
- sdtott=sdtott/seb
- sutotr=sutotr/seb
- sutota=sutota/seb
- sutott=sutott/seb
- sodray=sodray/seb
- sodaer=sodaer/seb
- sodtot=sodtot/seb
- sodrayp=sodrayp/seb
- sodaerp=sodaerp/seb
- sodtotp=sodtotp/seb
- pizera=0.0
- pizerr=1.
- if(iaer.ne.0) pizera=ssdaer/sodaer/seb
- pizert=(pizerr*sodray+pizera*sodaer)/(sodray+sodaer)
-
-
- rfoamave=rfoamave/seb
- rwatave=rwatave/seb
- rglitave=rglitave/seb
-
-
- sroray=sroray/seb
- sroaer=sroaer/seb
- srotot=srotot/seb
- fophsa=fophsa/seb
- fophsr=fophsr/seb
- fophst=(sodray*fophsr+sodaer*fophsa)/(sodray+sodaer)
-
-c ---unpolarized light
- refet=refet/seb
- refet1=refet1/seb
- refet2=refet2/seb
- refet3=refet3/seb
- rog=rog/seb
- alumet=alumet/sb
-
-c ---polarized light
- if (ipol.ne.0)then
- rqfet=rqfet/sb
- rufet=rufet/sb
-
- srqray=srqray/seb
- srqaer=srqaer/seb
- srqtot=srqtot/seb
- sruray=sruray/seb
- sruaer=sruaer/seb
- srutot=srutot/seb
- plumet=plumet/sb
- foqhsa=foqhsa/seb
- foqhsr=foqhsr/seb
- foqhst=(sodray*foqhsr+sodaer*foqhsa)/(sodray+sodaer)
- fouhsa=fouhsa/seb
- fouhsr=fouhsr/seb
- fouhst=(sodray*fouhsr+sodaer*fouhsa)/(sodray+sodaer)
-c we define the polarized reflectances
- srpray=sqrt(srqray**2.+sruray**2.)
- srpaer=sqrt(srqaer**2.+sruaer**2.)
- srptot=sqrt(srqtot**2.+srutot**2.)
-c we define the primary degrees of polarization
- spdpray=foqhsr/fophsr
- if (iaer.ne.0) then
- spdpaer=foqhsa/fophsa
- else
- spdpaer=0.0
- endif
- spdptot=foqhst/fophst
-c we define the degrees of polarization
- sdpray=100.*srpray/sroray
- if (sroaer.ne.0) then
- sdpaer=100.*srpaer/sroaer
- else sdpaer=0.0
- endif
- sdptot=100.*srptot/srotot
-c and we compute the direction of the plane of polarization
- call dirpopol(srqray*xmus,sruray*xmus,sdppray)
- call dirpopol(srqaer*xmus,sruaer*xmus,sdppaer)
- call dirpopol(srqtot*xmus,srutot*xmus,sdpptot)
-CC ksirad=sdpptot*3.1415927/180.
-CC refeti=refet+pinst*rpfet*cos(2*(ksiinst*3.1415925/180.+ksirad))
- endif
-
- do 57 j=1,3
-c ---output at the ground level.
- aini(1,j)=aini(1,j)/seb
- aini(2,j)=aini(2,j)/sb
-c ---output at satellite level
- ainr(1,j)=ainr(1,j)/seb
- ainr(2,j)=ainr(2,j)/sb
- 57 continue
-
-C_otb_adaptation Beginning: Atmospheric reflectance storage
- otb_ratm = ainr(1,1) !Added_for_OTB : atmospheric reflectance
- otb_sast = sast !Added_for_OTB : atmospheric spherical albedo
- otb_tgasm = tgasm !Added_for_OTB : total gaseous transmissio
- otb_sdtott = sdtott !Added_for_OTB : downward transmittance
- otb_sutott = sutott !Added_for_OTB : upward transmittance
-
- !Added_for_OTB : upward directe transmittance
- otb_tdir_up = exp(-sodtot/xmuv)
-
- !Added_for_OTB : upward diffuse transmittance
- otb_tdif_up = otb_sutott - otb_tdir_up
-
- !Added_for_OTB : upward diffuse transmittance for Rayleigh
- otb_tdif_up_ray = sutotr - exp(-sodray/xmuv)
-
- !Added_for_OTB : upward diffuse transmittance for aerosols
- otb_tdif_up_aer = sutota - exp(-sodaer/xmuv)
-
-C_otb_adaptation End : Atmospheric reflectance storage
-
-c**********************************************************************c
-c c
-c print of final results c
-c c
-c**********************************************************************c
-
-C_otb_adaptation Beginning: go to end of code
- goto 9999 !Added_for_OTB
-C_otb_adaptation End : go to end of code
-
-
-C begining case for a lut output
-C SIMPLE LUT in azimuth
- if (ilut.eq.2) then
- do ifi=1,nfi
- xtphi=(ifi-1)*180.0/(nfi-1)
- write(6,*) "lutfi ",xtphi,ratm2_fi(ifi)
- enddo
- endif
-
-C LUT FOR Look up table data
- if (ilut.eq.1) then
- its=acos(xmus)*180.0/pi
- open(10,file='rotoa_bs',ACCESS='APPEND')
- write(10,2222) "AERO-LUT Lambda min,max ",wlinf,wlsup
- 2222 Format(A28,3(F10.7,1X))
- write(10,2222) "Tau-Lambda,Tau550 asol ",sodaer,taer55,asol
- aerod=0
- if (iaer.eq.12) then
- write(10,2223) "aerosol model ",FILE2(1:i2)
- aerod=1
- endif
- if (iaer.eq.1) then
- write(10,2223) "aerosol model ","CONTINENTAL"
- aerod=1
- endif
- if (iaer.eq.2) then
- write(10,2223) "aerosol model ","MARITIME"
- aerod=1
- endif
- if (iaer.eq.3) then
- write(10,2223) "aerosol model ","URBAN"
- aerod=1
- endif
- if (iaer.eq.5) then
- write(10,2223) "aerosol model ","DESERTIC"
- aerod=1
- endif
- if (iaer.eq.6) then
- write(10,2223) "aerosol model ","SMOKE"
- aerod=1
- endif
- if (iaer.eq.7) then
- write(10,2223) "aerosol model ","STRATOSPHERIC"
- aerod=1
- endif
- if (aerod.eq.0) then
- write(10,2223) "aerosol model ","UNDEFINED"
- endif
- 2223 format(A24,1X,A80)
- lutmuv=cos(avis*pi/180.)
- cscaa=-xmus*lutmuv-cos(filut(mu,1)*pi/180.)*sqrt(1.-xmus*xmus)
- S *sqrt(1.-lutmuv*lutmuv)
- iscama=acos(cscaa)*180./pi
- cscaa=-xmus*lutmuv-cos(filut(mu,nfilut(mu))*pi/180.)
- S *sqrt(1.-xmus*xmus)*sqrt(1.-lutmuv*lutmuv)
- iscami=acos(cscaa)*180./pi
- write(10,333) its,avis,nfilut(mu),iscama,iscami
- write(10,'(41(F8.5,1X))')(roluti(mu,j)/seb,j=1,nfilut(mu))
-C write(10,'(41(F8.5,1X))')(rolutiq(mu,j)/seb,j=1,nfilut(mu))
-C write(10,'(41(F8.5,1X))')(rolutiu(mu,j)/seb,j=1,nfilut(mu))
- do i=1,mu-1
- lutmuv=rm(i)
- luttv=acos(lutmuv)*180./pi
- cscaa=-xmus*lutmuv-cos(filut(i,1)*pi/180.)*sqrt(1.-xmus*xmus)
- S *sqrt(1.-lutmuv*lutmuv)
- iscama=acos(cscaa)*180./pi
- cscaa=-xmus*lutmuv-cos(filut(i,nfilut(i))*pi/180.)
- S *sqrt(1.-xmus*xmus)*sqrt(1.-lutmuv*lutmuv)
- iscami=acos(cscaa)*180./pi
- write(10,333) its,luttv,nfilut(i),iscama,iscami
- 333 Format(F10.5,1X,F10.5,1X,I3,F10.5,F10.5)
- write(10,'(41(F8.5,1X))')(roluti(i,j)/seb,j=1,nfilut(i))
-C write(10,'(41(F8.5,1X))')(rolutiq(i,j)/seb,j=1,nfilut(i))
-C write(10,'(41(F8.5,1X))')(rolutiu(i,j)/seb,j=1,nfilut(i))
- enddo
- close(10)
- endif
-C Case a LUT output is desired
-
-C Case for an aps LUT
- if (ilut.eq.3) then
- its=acos(xmus)*180.0/pi
- open(10,file='rotoa_aps_bs',ACCESS='APPEND')
- write(10,2222) "AERO-LUT Lambda min,max ",wlinf,wlsup
- write(10,2222) "Tau-Lambda,Tau550 asol ",sodaer,taer55,asol
- aerod=0
- if (iaer.eq.12) then
- write(10,2223) "aerosol model ",FILE2(1:i2)
- aerod=1
- endif
- if (iaer.eq.1) then
- write(10,2223) "aerosol model ","CONTINENTAL"
- aerod=1
- endif
- if (iaer.eq.2) then
- write(10,2223) "aerosol model ","MARITIME"
- aerod=1
- endif
- if (iaer.eq.3) then
- write(10,2223) "aerosol model ","URBAN"
- aerod=1
- endif
- if (iaer.eq.5) then
- write(10,2223) "aerosol model ","DESERTIC"
- aerod=1
- endif
- if (iaer.eq.6) then
- write(10,2223) "aerosol model ","SMOKE"
- aerod=1
- endif
- if (iaer.eq.7) then
- write(10,2223) "aerosol model ","STRATOSPHERIC"
- aerod=1
- endif
- if (aerod.eq.0) then
- write(10,2223) "aerosol model ","UNDEFINED"
- endif
-
-C
- dtr=atan(1.)*4./180.
- write(10,'(A5,1X,41(F8.4,1X))') 'phi',(filut(i,1),i=16,1,-1),
- S filut(mu,1),(filut(i,2),i=1,16)
-
- write(10,'(A5,1X,41(F8.5,1X))') 'tv',(acos(rm(i))/dtr,i=16,1,-1)
- S ,acos(rm(0))/dtr,(acos(rm(k))/dtr,k=1,16)
-
- write(10,'(41(F8.5,1X))')(roluti(i,1)/seb,i=16,1,-1)
- S ,roluti(mu,1)/seb ,(roluti(i,2)/seb,i=1,16)
- write(10,'(41(F8.5,1X))')(rolutiq(i,1)/seb,i=16,1,-1)
- S ,rolutiq(mu,1)/seb,(rolutiq(i,2)/seb,i=1,16)
- write(10,'(41(F8.5,1X))')(rolutiu(i,1)/seb,i=16,1,-1)
- S ,rolutiu(mu,1)/seb,(rolutiu(i,2)/seb,i=1,16)
- close(10)
- endif
-C Case a LUT output is desired
-
- 160 continue
-
- write(iwr, 430 )refet,alumet,tgasm
- write(iwr, 431 )refet1,refet2,refet3
-
- if (ipol.eq.1)then
- rpfet=sqrt(rqfet*rqfet+rufet*rufet)
- plumet=sqrt(qlumet*qlumet+ulumet*ulumet)
- xpol=atan2(rufet,rqfet)*180.0/3.14159/2.
- write(iwr, 429 )rpfet,plumet,xpol,rpfet/refet
-C write(iwr, 428 )rpfet1,rpfet2,rpfet3
- endif
-
- if(inhomo.ne.0) then
- write(iwr, 432)(aini(1,j),j=1,3),'environment','target',
- s (ainr(1,j),j=1,3)
- write(iwr, 434)(aini(2,j),j=1,3),'environment','target',
- s (ainr(2,j),j=1,3)
-
- endif
- if(inhomo.eq.0) then
- write(iwr, 432)(aini(1,j),j=1,3),'background ','pixel ',
- s (ainr(1,j),j=1,3)
- write(iwr, 434)(aini(2,j),j=1,3),'background ','pixel ',
- s (ainr(2,j),j=1,3)
- endif
-
- if (iwave.eq.-1)then
- write(iwr, 436)seb
- else
- write(iwr, 437)sb,seb
- endif
-
-c**********************************************************************c
-c c
-c print of complementary results c
-c c
-c**********************************************************************c
- write(iwr, 929)
- write(iwr, 930)
- write(iwr, 931)'global gas. trans. :',dgasm,ugasm,tgasm
- write(iwr, 931)'water " " :',sdwava,suwava,stwava
- write(iwr, 931)'ozone " " :',sdozon,suozon,stozon
- write(iwr, 931)'co2 " " :',sddica,sudica,stdica
- write(iwr, 931)'oxyg " " :',sdoxyg,suoxyg,stoxyg
- write(iwr, 931)'no2 " " :',sdniox,suniox,stniox
- write(iwr, 931)'ch4 " " :',sdmeth,sumeth,stmeth
- write(iwr, 931)'co " " :',sdmoca,sumoca,stmoca
- write(iwr, 1401)
- write(iwr, 1401)
-
- write(iwr, 931)'rayl. sca. trans. :',sdtotr,sutotr,sutotr*sdtotr
- write(iwr, 931)'aeros. sca. " :',sdtota,sutota,sutota*sdtota
- write(iwr, 931)'total sca. " :',sdtott,sutott,sutott*sdtott
- write(iwr, 1401)
- write(iwr, 1401)
-
- write(iwr, 939)
- write(iwr, 931)'spherical albedo :',sasr,sasa,sast
- write(iwr, 931)'optical depth total:',sodray,sodaer,sodtot
- write(iwr, 931)'optical depth plane:',sodrayp,sodaerp,sodtotp
- if (ipol.eq.0) then
- write(iwr, 931)'reflectance :',sroray,sroaer,srotot
- write(iwr, 931)'phase function :',fophsr,fophsa,fophst
- else
- write(iwr, 931)'reflectance I :',sroray,sroaer,srotot
- write(iwr, 931)'reflectance Q :',srqray,srqaer,srqtot
- write(iwr, 931)'reflectance U :',sruray,sruaer,srutot
- write(iwr, 931)'polarized reflect. :',srpray,srpaer,srptot
- write(iwr, 932)'degree of polar. :',sdpray,sdpaer,sdptot
- write(iwr, 932)'dir. plane polar. :',sdppray,sdppaer,sdpptot
-CCC write(iwr, 931)'instrument app ref.:',zero,zero,refeti
- write(iwr, 931)'phase function I :',fophsr,fophsa,fophst
- write(iwr, 931)'phase function Q :',foqhsr,foqhsa,foqhst
- write(iwr, 931)'phase function U :',fouhsr,fouhsa,fouhst
- write(iwr, 931)'primary deg. of pol:',spdpray,spdpaer,spdptot
- endif
- write(iwr, 931)'sing. scat. albedo :',pizerr,pizera,pizert
- write(iwr, 1401)
- write(iwr, 1402)
-
-c**********************************************************************c
-c c
-c atmospheric correction c
-c c
-c**********************************************************************c
- if (irapp.ge.0) then
- if (rapp.ge.0.) then
- xrad=rapp
- rapp=pi*xrad*sb/xmus/seb
- else
- rapp=-rapp
- xrad=xmus*seb*(rapp)/pi/sb
- endif
- rog=rapp/tgasm
- rog=(rog-ainr(1,1)/tgasm)/sutott/sdtott
- rog=rog/(1.+rog*sast)
- xa=pi*sb/xmus/seb/tgasm/sutott/sdtott
- xap=1./tgasm/sutott/sdtott
- xb=ainr(1,1)/sutott/sdtott/tgasm
- xb=ainr(1,1)/sutott/sdtott/tgasm
- xc=sast
-c BRDF coupling correction
- if (idirec.eq.1) then
-c compute the coefficient of the 2nd degree equation
-C a*(ros^2)+b*ros+c
-C compute ratios and transmissions
- robarstar=(robar1/xnorm1)/brdfints(mu,1)
- robarpstar=(robar2/xnorm2)/brdfints(mu,1)
- robarbarstar=albbrdf/brdfints(mu,1)
- tdd=exp(-sodtot/xmus)
- tdu=exp(-sodtot/xmuv)
- tsd=sdtott-tdd
- tsu=sutott-tdu
-
-c compute coefficients
-
- coefc=-(rapp/tgasm-ainr(1,1)/tgasm)
-
- coefb=tdd*tdu+tdu*tsd*robarstar+tsu*tdd*robarpstar
- coefb=coefb+tsu*tsd*robarbarstar
-
- coefa=sdtott*sutott*sast*robarbarstar*robarbarstar
- coefa=coefa/(1-sast*(rog/brdfints(mu,1)*albbrdf))
-
-c solve equations, compute solutions
- discri=sqrt(coefb*coefb-4*coefa*coefc)
- rogbrdf=(-coefb+discri)/(2*coefa)
-
-c second pass use update value for rog
- coefa=sdtott*sutott*sast*robarbarstar*robarbarstar
- coefa=coefa/(1-sast*(rogbrdf/brdfints(mu,1)*albbrdf))
- discri=sqrt(coefb*coefb-4*coefa*coefc)
- rogbrdf=(-coefb+discri)/(2*coefa)
- else
- rogbrdf=rog
- endif
-
- write(iwr, 940)
- write(iwr, 941)rapp
- write(iwr, 942)xrad
- if (irapp.eq.0) then
- write(iwr, 943)rog
- write(iwr, 944)xa,xb,xc
- else
- write(iwr,222)rog,rogbrdf
- endif
-
- write(iwr, 944)xa,xb,xc
-C write(iwr, *) "david roy ", xap,xb,xc
- y=xa*xrad-xb
-c write(6,'(A5,F9.5)') 'rog=', rog
-c write(6,'(A5,F9.5,A8,F9.5)') 'y=',y, ' acr=',y/(1.+xc*y)
-c write(6,*) 'rogbrdf=',rogbrdf,' rodir=',brdfints(mu,1),
-c s ' diff=',rogbrdf-brdfints(mu,1)
- endif
-
-C_otb_adaptation Beginning:
-9999 return !Added_for_OTB
-C_otb_adaptation End :
-
- stop
-
-c**********************************************************************c
-c c
-c output editing formats c
-c c
-c c
-c**********************************************************************c
- 98 format(/////,1h*,30(1h*),18h 6sV version 1.0B ,30(1h*),t79
- s ,1h*,/,1h*,t79,1h*,/,
- s 1h*,22x,34h geometrical conditions identity ,t79,1h*,/,
- s 1h*,22x,34h ------------------------------- ,t79,1h*)
- 101 format(1h*,15x,7h month:,i3,7h day : ,i3,
- s 16h universal time:,f6.2,
- s 10h (hh.dd) ,t79,1h*,/,
- s 1h*, 15x,10hlatitude: ,f7.2,5h deg ,6x,
- s 12h longitude: ,f7.2,5h deg ,t79,1h*)
- 102 format(1h*,2x,22h solar zenith angle: ,f6.2,5h deg ,
- s 29h solar azimuthal angle: ,f6.2,5h deg ,t79,1h*)
- 103 format(1h*,2x,7h month:,i3,7h day : ,i3,t79,1h*)
- 1110 format(1h*,2x,22h view zenith angle: ,f6.2,5h deg ,
- s 29h view azimuthal angle: ,f6.2,5h deg ,
- s t79,1h*,/,
- s 1h*,2x,22h scattering angle: ,f6.2,5h deg ,
- s 29h azimuthal angle difference: ,f6.2,5h deg ,
- s t79,1h*)
- 1119 format(1h*,t79,1h*,/,
- s 1h*,22x,31h atmospheric model description ,t79,1h*,/,
- s 1h*,22x,31h ----------------------------- ,t79,1h*)
- 1261 format(1h*,10x,30h atmospheric model identity : ,t79,1h*,/,
- s 1h*,15x,a51,t79,1h*)
- 1272 format(1h*,30h atmospheric model identity : ,t79,1h*,/,
- s 1h*,12x,33h user defined atmospheric model ,t79,1h*,/,
- s 1h*,12x,11h*altitude ,11h*pressure ,
- s 11h*temp. ,11h*h2o dens. ,11h*o3 dens. ,t79,1h*)
- 1271 format(1h*,12x,5e11.4,t79,1h*)
- 1281 format(1h*,10x,31h atmospheric model identity : ,t79,1h*,
- s /,1h*,12x,35h user defined water content : uh2o=,f6.3,
- s 7h g/cm2 ,t79,1h*,
- s /,1h*,12x,35h user defined ozone content : uo3 =,f6.3,
- s 7h cm-atm,t79,1h*)
-
-
- 5550 format(1h*,10x,25h aerosols type identity :,t79,1h*)
- 5551 format(1h*,11x,31h user-defined aerosol profile:, I2,
- s 7h layers,t79,1h*)
- 5552 format(1h*,13x,46h Layer Height(km) Opt. thick.(at 0.55 mkm),
- s 3x,7h Model,t79,1h*)
- 5553 format(1h*,15x,I2,1x,f10.1,13x,f5.3,15x,A15,t79,1h*)
- 5554 format(1h*,15x,20hno aerosols computed,t79,1h*)
- 5555 format(1h*,t79,1h*)
- 132 format(1h*,15x,a30,t79,1h*)
- 133 format(1h*,13x,28huser-defined aerosol model: ,t79,1h*,/,
- s 1h*,26x,f6.3,15h % of dust-like,t79,1h*,/,
- s 1h*,26x,f6.3,19h % of water-soluble,t79,1h*,/,
- s 1h*,26x,f6.3,13h % of oceanic,t79,1h*,/,
- s 1h*,26x,f6.3,10h % of soot,t79,1h*)
- 134 format(1h*,13x,28huser-defined aerosol model: ,I2,
- s 32h Log-Normal size distribution(s),t79,1h*,/,
- s 1h*,15x,43hMean radius Stand. Dev. Percent. density,
- s t79,1h*)
- 135 format(1h*,t19,f6.4,T33,f5.3,T47,e8.3,T79,1h*)
- 136 format(1h*,13x,27huser-defined aerosol model:,
- s 33h modified Gamma size distribution,t79,1h*,/,
- s 1h*,19x,7hAlpha: ,f6.3,6h b: ,f6.3,10h Gamma: ,f6.3,t79,1h*)
- 137 format(1h*,13x,27huser-defined aerosol model:,
- s 34h Junge Power-Law size distribution,t79,1h*,/,
- s 1h*,19x,7hAlpha: ,f6.3,t79,1h*)
- 138 format(1h*,13x,42huser-defined aerosol model using data from,
- s 10h the file:,t79,1h*,/,1h*,20x,A30,T79,1h*)
- 139 format(1h*,15x,29h results saved into the file:,t79,1h*,/,
- s 1h*,20x,A30,T79,1h*)
-
-
- 140 format(1h*,10x,29h optical condition identity :,t79,1h*,/,
- s 1h*,15x,34h user def. opt. thick. at 550 nm :,f7.4,
- s t79,1h*,/,1h*,t79,1h*)
- 141 format(1h*,10x,29h optical condition identity :,t79,1h*,/,
- s 1h*,14x,13h visibility :,f6.2,4h km ,
- s 22h opt. thick. 550 nm : ,f7.4,t79,1h*)
- 142 format(1h*,t79,1h*,/,1h*,22x,
- s36h Surface polarization parameters ,t79,1h*,/,1h*,
- s22x,36h ---------------------------------- ,t79,1h*,/,
- s1h*,t79,1h*)
- 143 format(1h*,t79,1h*,/,1h*,
- s36h Surface Polarization Q,U,Rop,Chi ,3(F8.5,1X),
- s F8.2,1X,t79,1h*,/,1h*,t79,1h*)
-
- 144 format(1h*,t79,1h*,/,1h*,
- s36h Nadal and Breon with % vegetation ,1(F8.2,1X),
- s t79,1h*,/,1h*)
-
- 145 format(1h*,t79,1h*,/,1h*,
- s36h Sunglint Model windspeed,azimuth ,2(F8.3,1X),
- s t79,1h*,/,1h*)
-
- 146 format(1h*,t79,1h*,/,1h*,
- s36h User's input roQ and roU ,2(F8.3,1X),
- s t79,1h*,/,1h*)
-
- 148 format(1h*,22x,21h spectral condition ,t79,1h*,/,1h*,
- s 22x,21h ------------------ ,t79,1h*)
-
- 149 format(1h*,11x,32h monochromatic calculation at wl :,
- s f6.3,8h micron ,t79,1h*)
- 1510 format(1h*,10x,a17,t79,1h*,/,
- s 1h*,15x,26hvalue of filter function :,t79,1h*,/,1h*,
- s 15x,8h wl inf=,f6.3,4h mic,2x,8h wl sup=,f6.3,4h mic,t79,1h*)
- 168 format(1h*,t79,1h*,/,1h*,22x,14h target type ,t79,1h*,/,1h*,
- s 22x,14h ----------- ,t79,1h*,/,1h*,
- s 10x,20h homogeneous ground ,t79,1h*)
- 169 format(1h*,t79,1h*,/,1h*,22x,14h target type ,t79,1h*,/,1h*,
- s 22x,14h ----------- ,t79,1h*,/,1h*,
- s 10x,41h inhomogeneous ground , radius of target ,f6.3,
- s 5h km ,t79,1h*)
- 170 format(1h*,15x,22h target reflectance : ,t79,1h*)
- 171 format(1h*,15x,29h environmental reflectance : ,t79,1h*)
- 172 format(1h*,t79,1h*,/,79(1h*),///)
- 173 format(1h*,t79,1h*,/,
- s 1h*,22x,30h target elevation description ,t79,1h*,/,
- s 1h*,22x,30h ---------------------------- ,t79,1h*)
- 174 format(1h*,10x,22h ground pressure [mb] ,1x,f7.2,1x,t79,1h*)
- 175 format(1h*,10x,22h ground altitude [km] ,f6.3,1x,t79,1h*)
- 176 format(1h*,15x,34h gaseous content at target level: ,t79,1h*,
- s /,1h*,15x,6h uh2o=,f6.3,7h g/cm2 ,
- s 5x,6h uo3=,f6.3,7h cm-atm,t79,1h*)
- 177 format(1h*,t79,1h*,/,
- s 1h*,23x,34h atmospheric correction activated ,t79,1h*,/,
- s 1h*,23x,34h -------------------------------- ,t79,1h*)
-
- 220 format(1h*,23x,34h Lambertian assumption selected ,t79,1h*)
- 221 format(1h*,23x,34h BRDF coupling correction ,t79,1h*)
-
-
- 185 format(1h*,10x,30h input apparent reflectance : , f6.3,t79,1h*)
- 186 format(1h*,10x,39h input measured radiance [w/m2/sr/mic] ,
- s f7.3,t79,1h*)
-
- 187 format(1h*,t79,1h*,/,
- s 1h*,15x,34h brdf selected ,t79,1h*,/,
- s 1h*,15x,40h rodir robar ropbar albedo ,t79,1h*,/,
- s 1h*,15x,4(f9.4,1x),t79,1h*)
- 190 format(1h*,15x,31h brdf from in-situ measurements,t79,1h*)
- 191 format(1h*,15x,23h Hapke's model selected,t79,1h*
- s /,1h*,16x,3hom:,f5.3,1x,3haf:,f5.3,1x,3hs0:,f5.3,1x,
- s 2hh:,f5.3,t79,1h*)
- 192 format(1h*,15x,38h Pinty and Verstraete's model selected,t79,1h*
- s /,1h*,16x,3hom:,f5.3,1x,5hrad :,f5.3,1x,6hlad :,f5.3,1x,
- s t79,1h*)
- 193 format(1h*,15x,32h Roujean et al.'s model selected,t79,1h*
- s /,1h*,16x,3hk0:,f5.3,1x,3hk1:,f5.3,1x,3hk2:,f5.3,
- s t79,1h*)
- 194 format(1h*,15x,33h Walthall et al.'s model selected,t79,1h*
- s /,1h*,16x,2ha:,f5.3,1x,3hap:,f5.3,1x,2hb:,f5.3,1x,
- s 3hom:,f5.3,t79,1h*)
- 195 format(1h*,15x,26h Minnaert's model selected,t79,1h*
- s /,1h*,16x,5hpar1:,f5.3,1x,5hpar2:,f5.3,t79,1h*)
- 196 format(1h*,15x,21h ocean model selected,t79,1h*
- s /,1h*,16x,18hwind speed [m/s] :,f5.1,
- s 2x,27hazimuth of the wind [deg] :,f8.2,t79,1h*
- s /,1h*,16x,16hsalinity [ppt] :,f5.1,
- s 4x,23hpigment conc. [mg/m3] :,f6.2,t79,1h*)
- 197 format(1h*,15x,41h given kappa1 and kappa2: ,t79,
- s 1h*,/,1h*,20x,5hkpa1:,f5.3,1x,5hkpa2:,f5.3,t79,1h*)
- 198 format(1h*,15x,41h Goudrian's parametrization of kappa : ,t79,
- s 1h*,/,1h*,20x,6h ksil:,f5.3,1x,t79,1h*)
- 199 format(1h*,15x,41h modified Goudrian's parametrization : ,t79,
- s 1h*,/,1h*,20x,6h ksil:,f5.3,1x,t79,1h*)
- 200 format(1h*,15x,40h single scattering only : ,t79,
- s 1h*)
- 201 format(1h*,15x,40h multiple scattering (Dickinson et al) ,t79,
- s 1h*)
- 202 format(1h*,15x,40h isotropic phase function : ,t79,
- s 1h*)
- 203 format(1h*,15x,40h Heyney-Greenstein's phase function : ,t79,
- s 1h*,/,1h*,20x,6hassym:,f5.3,1x,t79,1h*)
- 204 format(1h*,15x,40h Legendre polynomial phase function : ,t79,
- s 1h*,/,1h*,20x,6hbeta1:,f5.3,1x,6hbeta2:,f5.3,t79,1h*)
- 205 format(1h*,15x,40h Iaquinta and Pinty BRDF model selected ,t79,
- s 1h*,/,1h*,16x,3hRl:,f5.3,1x,3hTl:,f5.3,1x,3hRs:,f5.3,1x
- s ,1x,4hLAl:,f5.3,t79,1h*)
- 206 format(1h*,15x,30h Rahman et al. model selected ,t79,
- s 1h*,/,1h*,16x,4hRho0:,f6.3,1x,2haf:,f6.3,1x,3hxk:,f6.3,1x
- s ,t79,1h*)
- 207 format(1h*,15x,A19,t79,1h*)
- 208 format(1h*,15x,A19,1x,f5.2,t79,1h*)
- 209 format(1h*,15x,A31,t79,1h*)
- 210 format(1h*,2x,40h Kuusk BRDF model, ,t79,1h*,
- s /,1h*,12x,4hLAI:,f5.3,2x,4heps:,f6.4,2x,4hthm:,f4.1
- s ,1x,3hsl:,f4.2,t79,1h*,
- s /,1h*,12x,4hcAB:,f6.2,1x,3hcW:,f5.3,1x,2hN:,f5.3,1x,3hcn:
- s ,f4.2,1x,5hrsl1:,f5.3,t79,1h*)
- 211 format(1h*,15x,30h MODIS BRDF model selected ,t79,
- s 1h*,/,1h*,16x,4h p1:,f6.3,1x,3hp2:,f6.3,1x,3hp3:,f6.3,1x
- s ,t79,1h*)
-
-c pressure at ground level (174) and altitude (175)
- 178 format(1h*,t79,1h*,/,
- s 1h*,22x,30h plane simulation description ,t79,1h*,/,
- s 1h*,22x,30h ---------------------------- ,t79,1h*)
- 179 format(1h*,10x,31h plane pressure [mb] ,f7.2,1x,t79,1h*)
- 180 format(1h*,10x,31h plane altitude absolute [km] ,f6.3,1x,t79,1h*)
- 181 format(1h*,15x,37h atmosphere under plane description: ,t79,1h*)
- 182 format(1h*,15x,26h ozone content ,f6.3,1x,t79,1h*)
- 183 format(1h*,15x,26h h2o content ,f6.3,1x,t79,1h*)
- 184 format(1h*,15x,26haerosol opt. thick. 550nm ,f6.3,1x,t79,1h*)
-
- 426 format(1h*,t79,1h*,/,
- s 1h*,24x,27h coupling aerosol -wv : ,t79,1h*,/,
- s 1h*,24x,27h -------------------- ,t79,1h*,/,
- s 1h*,10x,20h wv above aerosol : ,f5.3,4x,
- s 25h wv mixed with aerosol : ,f5.3,1x,t79,1h*,/,
- s 1h*,22x,20h wv under aerosol : ,f5.3,t79,1h*,/,1h*,t79,
- s 1h*,/,1h*,24x,34h coupling polarized aerosol -wv :,t79,1h*,/,
- s 1h*,24x,34h ------------------------------ ,t79,1h*,/,
- s 1h*,10x,20h wv above aerosol : ,f5.3,4x,
- s 25h wv mixed with aerosol : ,f5.3,1x,t79,1h*,/,
- s 1h*,22x,20h wv under aerosol : ,f5.3,t79,1h*)
- 427 format(79(1h*),/,1h*,t79,1h*,/,
- s 1h*,24x,27h integrated values of : ,t79,1h*,/,
- s 1h*,24x,27h -------------------- ,t79,1h*,/,
- s 1h*,t79,1h*,/,
- s 1h*,6x,22h apparent reflectance ,f9.2,1x,
- s 26h appar. rad.(w/m2/sr/mic) ,f10.3,1x,t79,1h*,/,
- s 1h*,6x,22h app. polarized refl. ,f7.4,3x,
- s 26h app. pol. rad. ( " " ) ,f10.3,1x,t79,1h*,/,
- s 1h*,12x,39h direction of the plane of polarization,
- s f6.2,t79,1h*,/,
- s 1h*,18x,30h total gaseous transmittance ,f5.3,t79,1h*,/,
- s 1h*,t79,1h*,/,79(1h*))
- 428 format(1h*,t79,1h*,/,
- s 1h*,24x,34h coupling polarized aerosol -wv :,t79,1h*,/,
- s 1h*,24x,34h ------------------------------ ,t79,1h*,/,
- s 1h*,10x,20h wv above aerosol : ,f5.3,4x,
- s 25h wv mixed with aerosol : ,f5.3,1x,t79,1h*,/,
- s 1h*,22x,20h wv under aerosol : ,f5.3,t79,1h*)
- 429 format(79(1h*),/,1h*,t79,1h*,/,
- s 1h*,24x,27h integrated values of : ,t79,1h*,/,
- s 1h*,24x,27h -------------------- ,t79,1h*,/,
- s 1h*,t79,1h*,/,
- s 1h*,6x,22h app. polarized refl. ,f7.4,3x,
- s 30h app. pol. rad. (w/m2/sr/mic) ,f8.3,
- s 1x,t79,1h*,/,
- s 1h*,12x,39h direction of the plane of polarization,
- s f6.2,t79,1h*,/,
- s 1h*,18x,30h total polarization ratio ,f5.3,t79,1h*,/,
- s 1h*,t79,1h*,/,79(1h*))
- 430 format(79(1h*),/,1h*,t79,1h*,/,
- s 1h*,24x,27h integrated values of : ,t79,1h*,/,
- s 1h*,24x,27h -------------------- ,t79,1h*,/,
- s 1h*,t79,1h*,/,
- s 1h*,6x,22h apparent reflectance ,f10.7,1x,
- s 26h appar. rad.(w/m2/sr/mic) ,f8.3,1x,t79,1h*,/,
- s 1h*,18x,30h total gaseous transmittance ,f5.3,
- s t79,1h*,/,1h*,t79,1h*,/,79(1h*))
- 500 format(1h*,6x,40h water reflectance components: ,
- s t79,1h*,/,
- s 1h*,6x,10h Foam: ,1x, f10.5,1x
- s ,10h Water: ,1x, f10.5,1x
- s ,10h Glint: ,1x, f10.5,1x,t79,1h*)
- 431 format(1h*,t79,1h*,/,
- s 1h*,24x,27h coupling aerosol -wv : ,t79,1h*,/,
- s 1h*,24x,27h -------------------- ,t79,1h*,/,
- s 1h*,10x,20h wv above aerosol : ,f7.3,4x,
- s 25h wv mixed with aerosol : ,f7.3,1x,t79,1h*,/,
- s 1h*,22x,20h wv under aerosol : ,f7.3,t79,1h*)
- 432 format(1h*,t79,1h*,/,1h*,
- s 24x,32h int. normalized values of : ,t79,1h*,/,1h*,
- s 24x,32h --------------------------- ,t79,1h*,/,1h*,
- s 22x,31h% of irradiance at ground level,
- s t79,1h*,/,1h*,5x,17h% of direct irr.,
- s 4x,17h% of diffuse irr.,
- s 4x,17h% of enviro. irr ,t79,1h*,/,
- s 1h*,3(10x,f10.3),t79,1h*,/,
- s 1h*,22x,31h reflectance at satellite level ,t79,1h*,/,
- s 1h*,5x,17hatm. intrin. ref.,
- s 3x,a11,5h ref.,
- s 2x,a6,12h reflectance,t79,1h*,/,
- s 1h*,3(10x,f10.3),t79,1h*,/,1h*,t79,1h*)
- 436 format(1h*,t79,1h*,/,1h*,22x,24hsol. spect (in w/m2/mic),t79,1h*,
- s/,1h*,30x,f10.3,t79,1h*,/,1h*,t79,1h*,/,79(1h*))
- 437 format(1h*,t79,1h*,/,1h*,10x,29hint. funct filter (in mic)
- s ,10x,26h int. sol. spect (in w/m2),t79,1h*,/,
- s1h*,10x,f12.7,30x,f10.3,t79,1h*,/,1h*,t79,1h*,/,79(1h*))
- 434 format(1h*,24x,24h int. absolute values of,t79,
- s 1h*,/,1h*,24x,24h ----------------------- ,
- s t79,1h*,/,1h*,22x,33hirr. at ground level (w/m2/mic) ,
- s t79,1h*,/,1h*, 5x,17hdirect solar irr.,
- s 4x,17hatm. diffuse irr.,
- s 4x,17henvironment irr ,t79,1h*,/,
- s 1h*,3(10x,f10.3),t79,1h*,/,
- s 1h*,22x,33hrad at satel. level (w/m2/sr/mic),t79,1h*,/,
- s 1h*,5x,17hatm. intrin. rad.,
- s 4x,a11,5h rad.,
- s 4x,a6,9h radiance,t79,1h*,/,
- s 1h*,3(10x,f10.3),t79,1h*,/,1h*,t79,1h*)
- 929 format(1h ,////)
- 930 format(79(1h*),/,1h*,t79,1h*,/,
- s 1h*,t27,27h integrated values of : ,t79,1h*,/,
- s 1h*,t27,27h -------------------- ,t79,1h*,/,
- s 1h*,t79,1h*,/,
- s 1h*,t30,10h downward ,t45,10h upward ,
- s t60,10h total ,t79,1h*)
- 931 format(1h*,6x,a20,t32,f8.5,t47,f8.5,t62,f8.5,t79,1h*)
- 932 format(1h*,6x,a20,t32,f8.2,t47,f8.2,t62,f8.2,t79,1h*)
- 939 format(1h*,t79,1h*,/,1h*,
- s t30,10h rayleigh ,t45,10h aerosols ,
- s t60,10h total ,t79,1h*,/,1h*,t79,1h*)
- 940 format(79(1h*),/,/,/,/,79(1h*),/
- s 1h*,23x,31h atmospheric correction result ,t79,1h*,/,
- s 1h*,23x,31h ----------------------------- ,t79,1h*)
- 941 format(1h*,6x,40h input apparent reflectance :,
- s 1x, f8.3, t79,1h*)
- 942 format(1h*,6x,40h measured radiance [w/m2/sr/mic] :,
- s 1x, f8.3, t79,1h*)
- 943 format(1h*,6x,40h atmospherically corrected reflectance :,
- s 1x, f8.3, t79,1h*)
- 222 format(1h*,6x,40h atmospherically corrected reflectance ,
- s t79,1h*,/,
- s 1h*,6x,20h Lambertian case : ,1x, f10.5, t79,1h*,/,
- s 1h*,6x,20h BRDF case : ,1x, f10.5, t79,1h*)
- 944 format(1h*,6x,40h coefficients xa xb xc :,
- s 1x, 3(f8.5,1x),t79,1h*,/,1h*,6x,
- s ' y=xa*(measured radiance)-xb; acr=y/(1.+xc*y)',
- s t79,1h*,/,79(1h*))
- 1401 format(1h*,t79,1h*)
- 1402 format(1h*,t79,1h*,/,79(1h*))
- 1500 format(1h*,1x,42hwave total total total total atm. ,
- s 33hswl step sbor dsol toar ,t79,1h*,/,
- s 1h*,1x,42h gas scat scat spheri intr ,t79,1h*,/,
- s 1h*,1x,42h trans down up albedo refl ,t79,1h*)
- 1501 format(1h*,6(F6.4,1X),F6.1,1X,4(F6.4,1X),t79,1h*)
- 1502 format(1h*,6(F5.3,1X),F6.1,1X,1(F6.4,1X),t79,1h*)
- 1503 format(1h*,6x,5(F5.3,1X),F6.1,1X,1(F6.4,1X),t79,1h*)
-
- end
diff --git a/Modules/ThirdParty/6S/src/otb_main6S_function.h b/Modules/ThirdParty/6S/src/otb_main6S_function.h
deleted file mode 100644
index 89c3e77..0000000
--- a/Modules/ThirdParty/6S/src/otb_main6S_function.h
+++ /dev/null
@@ -1,25 +0,0 @@
-extern int otb_6s_otb_6s__(
- otb_6s_doublereal *otb_asol__,
- otb_6s_doublereal *otb_phi0__,
- otb_6s_doublereal *otb_avis__,
- otb_6s_doublereal *otb_phiv__,
- otb_6s_integer *otb_month__,
- otb_6s_integer *otb_jday__,
- otb_6s_doublereal *otb_pressure__,
- otb_6s_doublereal *otb_uw__,
- otb_6s_doublereal *otb_uo3__,
- otb_6s_integer *otb_iaer__,
- otb_6s_doublereal *otb_taer55__,
- otb_6s_doublereal *otb_wlinf__,
- otb_6s_doublereal *otb_wlsup__,
- otb_6s_doublereal *otb_s__,
- otb_6s_doublereal *otb_ratm__,
- otb_6s_doublereal *otb_sast__,
- otb_6s_doublereal *otb_tgasm__,
- otb_6s_doublereal *otb_sdtott__,
- otb_6s_doublereal *otb_sutott__,
- otb_6s_doublereal *otb_tdif_up__,
- otb_6s_doublereal *otb_tdir_up__,
- otb_6s_doublereal *otb_tdif_up_ray__,
- otb_6s_doublereal *otb_tdif_up_aer__
- );
diff --git a/Modules/ThirdParty/6S/src/otb_main6S_program_call_function.P b/Modules/ThirdParty/6S/src/otb_main6S_program_call_function.P
deleted file mode 100644
index 295579a..0000000
--- a/Modules/ThirdParty/6S/src/otb_main6S_program_call_function.P
+++ /dev/null
@@ -1 +0,0 @@
-/*:ref: otb_6s__ 14 23 7 7 7 7 4 4 7 7 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 */
diff --git a/Modules/ThirdParty/6S/src/otb_main6S_program_call_function.c b/Modules/ThirdParty/6S/src/otb_main6S_program_call_function.c
deleted file mode 100644
index ee55186..0000000
--- a/Modules/ThirdParty/6S/src/otb_main6S_program_call_function.c
+++ /dev/null
@@ -1,505 +0,0 @@
-/* otb_main6S_program_call_function.f -- translated by f2c (version 19970805).
- You must link the resulting object file with the libraries:
- -lf2c -lm (in that order)
-*/
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-/* Table of constant values */
-
-static integer c__9 = 9;
-static integer c__1 = 1;
-static integer c__5 = 5;
-static integer c__3 = 3;
-
-/*< program call6Sv1_0b >*/
-/* Main program */ OTB_6S_MAIN__()
-{
- /* Format strings */
- static char fmt_100[] = "(10x,\002 -----> atmospheric reflectance : \
- \002,f6.5)";
- static char fmt_200[] = "(10x,\002 -----> atmospheric spherical albedo \
-: \002,f6.5)";
- static char fmt_300[] = "(10x,\002 -----> total gaseous transmission : \
- \002,f6.5)";
- static char fmt_400[] = "(10x,\002 -----> downward transmittance : \
- \002,f6.5)";
- static char fmt_500[] = "(10x,\002 -----> upward transmittance : \
- \002,f6.5)";
- static char fmt_600[] = "(10x,\002 -----> upward diffuse transmittance \
-: \002,f6.5)";
- static char fmt_700[] = "(10x,\002 -----> upward direct transmittance :\
- \002,f6.5)";
- static char fmt_710[] = "(10x,\002 -----> upward diffuse transm. ray: \
- \002,f6.5)";
- static char fmt_720[] = "(10x,\002 -----> upward diffuse transm. aer: \
- \002,f6.5)";
-
- /* System generated locals */
- integer i__1;
-
- /* Builtin functions */
- integer s_wsle(cilist *), do_lio(integer *, integer *, char *, ftnlen),
- e_wsle(), s_rsle(cilist *), e_rsle(), s_wsfe(cilist *), do_fio(
- integer *, char *, ftnlen), e_wsfe();
-
- /* Local variables */
- doublereal otb_ratm__, pressure;
- integer i__, l;
- doublereal s[1501];
- integer ik;
- doublereal uw, uo3, otb_tdif_up__, phi0, otb_tdir_up__;
- integer iaer, iinf, jday;
- doublereal asol, avis, phiv, sast;
- integer isup, iread;
- doublereal taer55, tgasm, wlinf;
- integer month;
- doublereal wlsup;
- extern /* Subroutine */ int otb_6s_ssssss_otb_main_function(doublereal *, doublereal *,
- doublereal *, doublereal *, integer *, integer *, doublereal *,
- doublereal *, doublereal *, integer *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *, doublereal *,
- doublereal *, doublereal *, doublereal *);
- doublereal sdtott, sutott, otb_tdif_up_aer__, otb_tdif_up_ray__;
-
- /* Fortran I/O blocks */
- static cilist io___4 = { 0, 6, 0, 0, 0 };
- static cilist io___5 = { 0, 0, 0, 0, 0 };
- static cilist io___12 = { 0, 6, 0, 0, 0 };
- static cilist io___13 = { 0, 6, 0, 0, 0 };
- static cilist io___14 = { 0, 6, 0, 0, 0 };
- static cilist io___15 = { 0, 0, 0, 0, 0 };
- static cilist io___19 = { 0, 6, 0, 0, 0 };
- static cilist io___20 = { 0, 6, 0, 0, 0 };
- static cilist io___21 = { 0, 6, 0, 0, 0 };
- static cilist io___22 = { 0, 0, 0, 0, 0 };
- static cilist io___24 = { 0, 6, 0, 0, 0 };
- static cilist io___25 = { 0, 6, 0, 0, 0 };
- static cilist io___26 = { 0, 6, 0, 0, 0 };
- static cilist io___27 = { 0, 6, 0, 0, 0 };
- static cilist io___28 = { 0, 0, 0, 0, 0 };
- static cilist io___30 = { 0, 6, 0, 0, 0 };
- static cilist io___31 = { 0, 6, 0, 0, 0 };
- static cilist io___34 = { 0, 0, 0, 0, 0 };
- static cilist io___37 = { 0, 6, 0, 0, 0 };
- static cilist io___38 = { 0, 6, 0, 0, 0 };
- static cilist io___40 = { 0, 0, 0, 0, 0 };
- static cilist io___51 = { 0, 6, 0, 0, 0 };
- static cilist io___52 = { 0, 6, 0, fmt_100, 0 };
- static cilist io___53 = { 0, 6, 0, fmt_200, 0 };
- static cilist io___54 = { 0, 6, 0, fmt_300, 0 };
- static cilist io___55 = { 0, 6, 0, fmt_400, 0 };
- static cilist io___56 = { 0, 6, 0, fmt_500, 0 };
- static cilist io___57 = { 0, 6, 0, fmt_600, 0 };
- static cilist io___58 = { 0, 6, 0, fmt_700, 0 };
- static cilist io___59 = { 0, 6, 0, fmt_710, 0 };
- static cilist io___60 = { 0, 6, 0, fmt_720, 0 };
-
-
-/* _otb MOD V2 : New outputs : */
-/* _otb otb_tdif_up = Upward diffuse transmittance */
-/* _otb otb_tdir_up = Upward direct transmittance */
-/* _otb otb_tdif_up_ray = Upward diffuse transmittance for rayleigh */
-/* _otb otb_tdif_up_aer = Upward diffuse transmittance for aerosols */
-/*< IMPLICIT NONE >*/
-/*< real wlinf,wlsup,s(1501) >*/
-/*< real asol,phi0,avis,phiv >*/
-/*< integer month,jday >*/
-/*< real uw,uo3,taer55 >*/
-/*< real tgasm,sdtott,sutott,sast >*/
-/*< real sutotr,sutota >*/
-/*< integer iwave,iinf,isup,inhomo,idirec,iaer >*/
-/*< integer iread,i,ik,l >*/
-/* _otb Atmospheric parameters */
-/*< real otb_ratm !Atmospheric reflectance >*/
-/*< real pressure !Atmospheric pressure >*/
-/*< real otb_tdif_up !Upward diffuse transmittance >*/
-/*< real otb_tdir_up !Upward direct transmittance >*/
-/*< real otb_tdif_up_ray !Upward diffuse transmittance for rayleigh >*/
-/*< real otb_tdif_up_aer !Upward diffuse transmittance for aerosols >*/
-/* ***********************************************************************
- */
-/* Parameters initialization */
-/* ***********************************************************************
- */
-/*< iread=5 >*/
- iread = 5;
-/*< iinf=1 >*/
- iinf = 1;
-/*< isup=1501 >*/
- isup = 1501;
-/*< write(6,*) "------> Execution de l'interface d'appel de 6S " >*/
- s_wsle(&io___4);
- do_lio(&c__9, &c__1, "------> Execution de l'interface d'appel de 6S ",
- 47L);
- e_wsle();
-/* **********************************************************************c
- */
-/* c
-*/
-/* * sun c
-*/
-/* \ * / c
-*/
-/* * * * * * c
-*/
-/* z / * \ c
-*/
-/* + /+ c
-*/
-/* satellite / + / c
-*/
-/* o/ + / c
-*/
-/* /.\ + /. c
-*/
-/* / . \ _avis-_+_-asol_/ . c
-*/
-/* . \- -+ / . north c
-*/
-/* . \ + / . + c
-*/
-/* . \ + / .+ c
-*/
-/* . \ + / +. c
-*/
-/* . \ + / + . c
-*/
-/* . \ + / + . c
-*/
-/* . \ +/ + . c
-*/
-/* west + + + + + + + . + + + + +\+ + + + + . + + + + + + + + east c
-*/
-/* . +.. . c
-*/
-/* . + . . . c
-*/
-/* . + . . . c
-*/
-/* . + . .'. . c
-*/
-/* . + .. . , ' .. c
-*/
-/* .+ . \ . c
-*/
-/* +. . \ . c
-*/
-/* + . . \ . c
-*/
-/* south . . (phiv-phi0) c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* **********************************************************************c
- */
-/* igeom geometrical conditions c
-*/
-/* -------------------------------------- c
-*/
-/* c
-*/
-/* you choose your own conditions; igeom=0 c
-*/
-/* 0 enter solar zenith angle (in degrees ) c
-*/
-/* solar azimuth angle " c
-*/
-/* satellite zenith angle " c
-*/
-/* satellite azimuth angle " c
-*/
-/* month c
-*/
-/* day of the month c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< read(iread,*) asol,phi0,avis,phiv,month,jday >*/
- io___5.ciunit = iread;
- s_rsle(&io___5);
- do_lio(&c__5, &c__1, (char *)&asol, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&phi0, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&avis, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&phiv, (ftnlen)sizeof(doublereal));
- do_lio(&c__3, &c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&jday, (ftnlen)sizeof(integer));
- e_rsle();
-/*< write(6,*) "asol,phi0,avis,phiv,month,jday : " >*/
- s_wsle(&io___12);
- do_lio(&c__9, &c__1, "asol,phi0,avis,phiv,month,jday : ", 33L);
- e_wsle();
-/*< write(6,*) asol,phi0,avis,phiv,month,jday >*/
- s_wsle(&io___13);
- do_lio(&c__5, &c__1, (char *)&asol, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&phi0, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&avis, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&phiv, (ftnlen)sizeof(doublereal));
- do_lio(&c__3, &c__1, (char *)&month, (ftnlen)sizeof(integer));
- do_lio(&c__3, &c__1, (char *)&jday, (ftnlen)sizeof(integer));
- e_wsle();
-/*< write(6,*) >*/
- s_wsle(&io___14);
- e_wsle();
-/* **********************************************************************c
- */
-/* idatm atmospheric model c
-*/
-/* -------------------- c
-*/
-/* pressure ( in mb ) c
-*/
-/* uw (in g/cm2 ) c
-*/
-/* uo3 (in cm-atm) c
-*/
-/* profil is taken from us62 c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< read(iread,*) pressure, uw, uo3 >*/
- io___15.ciunit = iread;
- s_rsle(&io___15);
- do_lio(&c__5, &c__1, (char *)&pressure, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&uw, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&uo3, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< write(6,*) "pressure, uw, uo3" >*/
- s_wsle(&io___19);
- do_lio(&c__9, &c__1, "pressure, uw, uo3", 17L);
- e_wsle();
-/*< write(6,*) pressure, uw, uo3 >*/
- s_wsle(&io___20);
- do_lio(&c__5, &c__1, (char *)&pressure, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&uw, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&uo3, (ftnlen)sizeof(doublereal));
- e_wsle();
-/*< write(6,*) >*/
- s_wsle(&io___21);
- e_wsle();
-/* **********************************************************************c
- */
-/* c
-*/
-/* iaer aerosol model(type) c
-*/
-/* -------------- c
-*/
-/* c
-*/
-/* c
-*/
-/* you select one of the following standard aerosol models: c
-*/
-/* 0 no aerosols c
-*/
-/* 1 continental model ) c
-*/
-/* 2 maritime model ) according to sra models c
-*/
-/* 3 urban model ) c
-*/
-/* 5 shettle model for background desert aerosol c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< read(iread,*) iaer >*/
- io___22.ciunit = iread;
- s_rsle(&io___22);
- do_lio(&c__3, &c__1, (char *)&iaer, (ftnlen)sizeof(integer));
- e_rsle();
-/*< write(6,*) "iaer = ", iaer >*/
- s_wsle(&io___24);
- do_lio(&c__9, &c__1, "iaer = ", 7L);
- do_lio(&c__3, &c__1, (char *)&iaer, (ftnlen)sizeof(integer));
- e_wsle();
-/*< write(6,*) >*/
- s_wsle(&io___25);
- e_wsle();
-/*< >*/
- if (iaer != 0 && iaer != 1 && iaer != 2 && iaer != 3 && iaer != 5) {
-/*< write(6,*) "Choix iaer non compatible : ", iaer >*/
- s_wsle(&io___26);
- do_lio(&c__9, &c__1, "Choix iaer non compatible : ", 28L);
- do_lio(&c__3, &c__1, (char *)&iaer, (ftnlen)sizeof(integer));
- e_wsle();
-/*< write(6,*) "Choisir 0, 1, 2, 3 ou 5 uniquement" >*/
- s_wsle(&io___27);
- do_lio(&c__9, &c__1, "Choisir 0, 1, 2, 3 ou 5 uniquement", 34L);
- e_wsle();
-/*< goto 999 >*/
- goto L999;
-/*< endif >*/
- }
-/*< read(iread,*) taer55 >*/
- io___28.ciunit = iread;
- s_rsle(&io___28);
- do_lio(&c__5, &c__1, (char *)&taer55, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< write(6,*) "taer55 = ", taer55 >*/
- s_wsle(&io___30);
- do_lio(&c__9, &c__1, "taer55 = ", 9L);
- do_lio(&c__5, &c__1, (char *)&taer55, (ftnlen)sizeof(doublereal));
- e_wsle();
-/*< write(6,*) >*/
- s_wsle(&io___31);
- e_wsle();
-/* **********************************************************************c
- */
-/* iwave input of the spectral conditions c
-*/
-/* -------------------------------- c
-*/
-/* c
-*/
-/* 1 enter wlinf, wlsup and user's filter function s(lambda) c
-*/
-/* ( by step of 0.0025 micrometer). c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/*< do 38 l=iinf,isup >*/
- i__1 = isup;
- for (l = iinf; l <= i__1; ++l) {
-/*< s(l)=0. >*/
- s[l - 1] = 0.;
-/*< 38 continue >*/
-/* L38: */
- }
-/*< 110 read(iread,*) wlinf,wlsup >*/
-/* L110: */
- io___34.ciunit = iread;
- s_rsle(&io___34);
- do_lio(&c__5, &c__1, (char *)&wlinf, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&wlsup, (ftnlen)sizeof(doublereal));
- e_rsle();
-/*< write(6,*) " wlinf,wlsup : ", wlinf,wlsup >*/
- s_wsle(&io___37);
- do_lio(&c__9, &c__1, " wlinf,wlsup : ", 15L);
- do_lio(&c__5, &c__1, (char *)&wlinf, (ftnlen)sizeof(doublereal));
- do_lio(&c__5, &c__1, (char *)&wlsup, (ftnlen)sizeof(doublereal));
- e_wsle();
-/*< write(6,*) >*/
- s_wsle(&io___38);
- e_wsle();
-/*< iinf=(wlinf-.25)/0.0025+1.5 >*/
- iinf = (integer) ((wlinf - .25) / .0025 + 1.5);
-/*< isup=(wlsup-.25)/0.0025+1.5 >*/
- isup = (integer) ((wlsup - .25) / .0025 + 1.5);
-/*< do 1113 ik=iinf,isup >*/
- i__1 = isup;
- for (ik = iinf; ik <= i__1; ++ik) {
-/*< s(ik)=0. >*/
- s[ik - 1] = 0.;
-/*< 1113 continue >*/
-/* L1113: */
- }
-/*< read(iread,*) (s(i),i=iinf,isup) >*/
- io___40.ciunit = iread;
- s_rsle(&io___40);
- i__1 = isup;
- for (i__ = iinf; i__ <= i__1; ++i__) {
- do_lio(&c__5, &c__1, (char *)&s[i__ - 1], (ftnlen)sizeof(doublereal));
- }
- e_rsle();
-/* **********************************************************************c
- */
-/* c
-*/
-/* c
-*/
-/* start of computations c
-*/
-/* c
-*/
-/* c
-*/
-/* c
-*/
-/* **********************************************************************c
- */
-/* goto 800 */
-/*< >*/
- otb_6s_ssssss_otb_main_function(&asol, &phi0, &avis, &phiv, &month, &jday, &pressure, &uw, &uo3,
- &iaer, &taer55, &wlinf, &wlsup, s, &otb_ratm__, &sast, &tgasm, &
- sdtott, &sutott, &otb_tdif_up__, &otb_tdir_up__, &
- otb_tdif_up_ray__, &otb_tdif_up_aer__);
-/*< write(6,*) >*/
- s_wsle(&io___51);
- e_wsle();
-/*< 800 write(6,100) otb_ratm >*/
-/* L800: */
- s_wsfe(&io___52);
- do_fio(&c__1, (char *)&otb_ratm__, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(6,200) sast >*/
- s_wsfe(&io___53);
- do_fio(&c__1, (char *)&sast, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(6,300) tgasm >*/
- s_wsfe(&io___54);
- do_fio(&c__1, (char *)&tgasm, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(6,400) sdtott >*/
- s_wsfe(&io___55);
- do_fio(&c__1, (char *)&sdtott, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(6,500) sutott >*/
- s_wsfe(&io___56);
- do_fio(&c__1, (char *)&sutott, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(6,600) otb_tdif_up >*/
- s_wsfe(&io___57);
- do_fio(&c__1, (char *)&otb_tdif_up__, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(6,700) otb_tdir_up >*/
- s_wsfe(&io___58);
- do_fio(&c__1, (char *)&otb_tdir_up__, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(6,710) otb_tdif_up_ray >*/
- s_wsfe(&io___59);
- do_fio(&c__1, (char *)&otb_tdif_up_ray__, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< write(6,720) otb_tdif_up_aer >*/
- s_wsfe(&io___60);
- do_fio(&c__1, (char *)&otb_tdif_up_aer__, (ftnlen)sizeof(doublereal));
- e_wsfe();
-/*< 100 format(10x,40h -----> atmospheric reflectance : , f6.5) >*/
-/*< 200 format(10x,40h -----> atmospheric spherical albedo : , f6.5) >*/
-/*< 300 format(10x,40h -----> total gaseous transmission : , f6.5) >*/
-/*< 400 format(10x,40h -----> downward transmittance : , f6.5) >*/
-/*< 500 format(10x,40h -----> upward transmittance : , f6.5) >*/
-/*< 600 format(10x,40h -----> upward diffuse transmittance : , f6.5) >*/
-/*< 700 format(10x,40h -----> upward direct transmittance : , f6.5) >*/
-/*< 710 format(10x,40h -----> upward diffuse transm. ray: , f6.5) >*/
-/*< 720 format(10x,40h -----> upward diffuse transm. aer: , f6.5) >*/
-/*< 999 continue >*/
-L999:
-/*< end >*/
- return 0;
-} /* MAIN__ */
-
-/* Main program alias */ int call6sv1_0b__ () { OTB_6S_MAIN__ (); return 0; }
-#ifdef __cplusplus
- }
-#endif
diff --git a/Modules/ThirdParty/6S/src/otb_main6S_program_call_function.f b/Modules/ThirdParty/6S/src/otb_main6S_program_call_function.f
deleted file mode 100644
index bd2e9e3..0000000
--- a/Modules/ThirdParty/6S/src/otb_main6S_program_call_function.f
+++ /dev/null
@@ -1,204 +0,0 @@
- program call6Sv1_0b
-
-C_otb MOD V2 : New outputs :
-C_otb otb_tdif_up = Upward diffuse transmittance
-C_otb otb_tdir_up = Upward direct transmittance
-C_otb otb_tdif_up_ray = Upward diffuse transmittance for rayleigh
-C_otb otb_tdif_up_aer = Upward diffuse transmittance for aerosols
-
-
- IMPLICIT NONE
-
- real wlinf,wlsup,s(1501)
- real asol,phi0,avis,phiv
- integer month,jday
- real uw,uo3,taer55
-
- real tgasm,sdtott,sutott,sast
- real sutotr,sutota
-
- integer iwave,iinf,isup,inhomo,idirec,iaer
- integer iread,i,ik,l
-
-C_otb Atmospheric parameters
- real otb_ratm !Atmospheric reflectance
- real pressure !Atmospheric pressure
- real otb_tdif_up !Upward diffuse transmittance
- real otb_tdir_up !Upward direct transmittance
- real otb_tdif_up_ray !Upward diffuse transmittance for rayleigh
- real otb_tdif_up_aer !Upward diffuse transmittance for aerosols
-
-
-c***********************************************************************
-c Parameters initialization
-c***********************************************************************
- iread=5
- iinf=1
- isup=1501
-
- write(6,*) "------> Execution de l'interface d'appel de 6S "
-
-
-c**********************************************************************c
-c c
-c * sun c
-c \ * / c
-c * * * * * c
-c z / * \ c
-c + /* c
-c satellite / + / c
-c o/ + / c
-c /.\ + /. c
-c / . \ _avis-_+_-asol_/ . c
-c . \- -+ / . north c
-c . \ + / . + c
-c . \ + / .+ c
-c . \ + / +. c
-c . \ + / + . c
-c . \ + / + . c
-c . \ +/ + . c
-c west + + + + + + + . + + + + +\+ + + + + . + + + + + + + + east c
-c . +.. . c
-c . + . . . c
-c . + . . . c
-c . + . .'. . c
-c . + .. . , ' .. c
-c .+ . \ . c
-c +. . \ . c
-c + . . \ . c
-c south . . (phiv-phi0) c
-c c
-c c
-c c
-c**********************************************************************c
-
-c**********************************************************************c
-c igeom geometrical conditions c
-c -------------------------------------- c
-c c
-c you choose your own conditions; igeom=0 c
-c 0 enter solar zenith angle (in degrees ) c
-c solar azimuth angle " c
-c satellite zenith angle " c
-c satellite azimuth angle " c
-c month c
-c day of the month c
-c c
-c**********************************************************************c
- read(iread,*) asol,phi0,avis,phiv,month,jday
- write(6,*) "asol,phi0,avis,phiv,month,jday : "
- write(6,*) asol,phi0,avis,phiv,month,jday
- write(6,*)
-
-c**********************************************************************c
-c idatm atmospheric model c
-c -------------------- c
-c pressure ( in mb ) c
-c uw (in g/cm2 ) c
-c uo3 (in cm-atm) c
-c profil is taken from us62 c
-c c
-c**********************************************************************c
- read(iread,*) pressure, uw, uo3
- write(6,*) "pressure, uw, uo3"
- write(6,*) pressure, uw, uo3
- write(6,*)
-
-c**********************************************************************c
-c c
-c iaer aerosol model(type) c
-c -------------- c
-c c
-c c
-c you select one of the following standard aerosol models: c
-c 0 no aerosols c
-c 1 continental model ) c
-c 2 maritime model ) according to sra models c
-c 3 urban model ) c
-c 5 shettle model for background desert aerosol c
-c c
-c**********************************************************************c
- read(iread,*) iaer
- write(6,*) "iaer = ", iaer
- write(6,*)
-
- if ((iaer.ne.0).and.(iaer.ne.1).and.(iaer.ne.2).and.
- c (iaer.ne.3).and.(iaer.ne.5)) then
- write(6,*) "Choix iaer non compatible : ", iaer
- write(6,*) "Choisir 0, 1, 2, 3 ou 5 uniquement"
- goto 999
- endif
-
-
- read(iread,*) taer55
- write(6,*) "taer55 = ", taer55
- write(6,*)
-
-c**********************************************************************c
-c iwave input of the spectral conditions c
-c -------------------------------- c
-c c
-c 1 enter wlinf, wlsup and user's filter function s(lambda) c
-c ( by step of 0.0025 micrometer). c
-c c
-c**********************************************************************c
- do 38 l=iinf,isup
- s(l)=0.
- 38 continue
-
- 110 read(iread,*) wlinf,wlsup
- write(6,*) " wlinf,wlsup : ", wlinf,wlsup
- write(6,*)
-
- iinf=(wlinf-.25)/0.0025+1.5
- isup=(wlsup-.25)/0.0025+1.5
- do 1113 ik=iinf,isup
- s(ik)=0.
- 1113 continue
- read(iread,*) (s(i),i=iinf,isup)
-
-
-
-
-c**********************************************************************c
-c c
-c c
-c start of computations c
-c c
-c c
-c c
-c**********************************************************************c
-c goto 800
-
- call otb_6S(asol,phi0,avis,phiv,month,jday,
- I pressure, uw, uo3,
- I iaer, taer55,
- I wlinf, wlsup, s,
- O otb_ratm,sast,tgasm,sdtott,
- O sutott, otb_tdif_up, otb_tdir_up,
- O otb_tdif_up_ray, otb_tdif_up_aer)
-
-
- write(6,*)
-800 write(6,100) otb_ratm
- write(6,200) sast
- write(6,300) tgasm
- write(6,400) sdtott
- write(6,500) sutott
- write(6,600) otb_tdif_up
- write(6,700) otb_tdir_up
- write(6,710) otb_tdif_up_ray
- write(6,720) otb_tdif_up_aer
-
-100 format(10x,40h -----> atmospheric reflectance : , f6.5)
-200 format(10x,40h -----> atmospheric spherical albedo : , f6.5)
-300 format(10x,40h -----> total gaseous transmission : , f6.5)
-400 format(10x,40h -----> downward transmittance : , f6.5)
-500 format(10x,40h -----> upward transmittance : , f6.5)
-600 format(10x,40h -----> upward diffuse transmittance : , f6.5)
-700 format(10x,40h -----> upward direct transmittance : , f6.5)
-710 format(10x,40h -----> upward diffuse transm. ray: , f6.5)
-720 format(10x,40h -----> upward diffuse transm. aer: , f6.5)
-
-999 continue
- end
diff --git a/Modules/ThirdParty/6S/src/sixs_aer__com.c b/Modules/ThirdParty/6S/src/sixs_aer__com.c
deleted file mode 100644
index 9cf7a79..0000000
--- a/Modules/ThirdParty/6S/src/sixs_aer__com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal ext[20], ome[20], gasym[20], phase[20], qhase[20], uhase[20];
-} sixs_aer__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/sixs_atm__com.c b/Modules/ThirdParty/6S/src/sixs_atm__com.c
deleted file mode 100644
index 65fc987..0000000
--- a/Modules/ThirdParty/6S/src/sixs_atm__com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal z__[34], p[34], t[34], wh[34], wo[34];
-} sixs_atm__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/sixs_del__com.c b/Modules/ThirdParty/6S/src/sixs_del__com.c
deleted file mode 100644
index fee04a6..0000000
--- a/Modules/ThirdParty/6S/src/sixs_del__com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal delta, sigma;
-} sixs_del__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/sixs_disc__com.c b/Modules/ThirdParty/6S/src/sixs_disc__com.c
deleted file mode 100644
index aee4ef0..0000000
--- a/Modules/ThirdParty/6S/src/sixs_disc__com.c
+++ /dev/null
@@ -1,19 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal roatm[60] /* was [3][20] */, dtdir[60] /* was [3][20]
- */, dtdif[60] /* was [3][20] */, utdir[60] /* was [3][20]
- */, utdif[60] /* was [3][20] */, sphal[60] /* was [3][20]
- */, wldis[20], trayl[20], traypl[20], rpatm[60] /* was [3][20]
- */, dpatm[60] /* was [3][20] */;
-} sixs_disc__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/sixs_ffu__com.c b/Modules/ThirdParty/6S/src/sixs_ffu__com.c
deleted file mode 100644
index a5803a6..0000000
--- a/Modules/ThirdParty/6S/src/sixs_ffu__com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal s[1501], wlinf, wlsup;
-} sixs_ffu__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/sixs_ier__com.c b/Modules/ThirdParty/6S/src/sixs_ier__com.c
deleted file mode 100644
index 0f6c3c7..0000000
--- a/Modules/ThirdParty/6S/src/sixs_ier__com.c
+++ /dev/null
@@ -1,16 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- integer iwr;
- logical ier;
-} sixs_ier__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/sixs_planesim__com.c b/Modules/ThirdParty/6S/src/sixs_planesim__com.c
deleted file mode 100644
index 111d5df..0000000
--- a/Modules/ThirdParty/6S/src/sixs_planesim__com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal zpl[34], ppl[34], tpl[34], whpl[34], wopl[34];
-} sixs_planesim__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/Modules/ThirdParty/6S/src/sixs_test__com.c b/Modules/ThirdParty/6S/src/sixs_test__com.c
deleted file mode 100644
index edfe8af..0000000
--- a/Modules/ThirdParty/6S/src/sixs_test__com.c
+++ /dev/null
@@ -1,15 +0,0 @@
-/* OTB patches: replace "f2c.h" by "otb_6S.h" */
-/*#include "f2c.h"*/
-#include "otb_6S.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-struct {
- doublereal xacc;
-} sixs_test__;
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/SuperBuild/CMake/External_boost.cmake b/SuperBuild/CMake/External_boost.cmake
deleted file mode 100644
index 840ad86..0000000
--- a/SuperBuild/CMake/External_boost.cmake
+++ /dev/null
@@ -1,144 +0,0 @@
-set(proj BOOST)
-
-# Use boost 1.54. There was previously incompatibilities between boost and Qt which leads
-# to compilation errors for OTB. We could increase boost version to last stable
-# release in future version of superbuild as we've patchedOTB code to
-# support both libraries. See the related changeset in OTB trunk:
-# http://hg.orfeo-toolbox.org/OTB/r# ev/8da67e36c78d
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup Boost ...")
-
-if(USE_SYSTEM_BOOST)
- # Required
- find_package ( Boost
- 1.35.0
- )
- # Optional components
- find_package ( Boost
- 1.35.0
- COMPONENTS unit_test_framework
- )
- add_custom_target(${proj})
- message(STATUS " Using Boost system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
-
- option(SUPERBUILD_BOOST_HEADER_ONLY "Only use Boost headers" ON)
- mark_as_advanced(SUPERBUILD_BOOST_HEADER_ONLY)
-
- if(UNIX)
- if(SUPERBUILD_BOOST_HEADER_ONLY)
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://sourceforge.net/projects/boost/files/boost/1.50.0/boost_1_50_0.tar.bz2/download"
- URL_MD5 52dd00be775e689f55a987baebccc462
- BINARY_DIR ${BOOST_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DBUILD_SHARED_LIBS:BOOL=ON
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_SOURCE_DIR}/patches/${proj}/CMakeLists.txt
- ${BOOST_SB_SRC}
- )
- else()
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://sourceforge.net/projects/boost/files/boost/1.50.0/boost_1_50_0.tar.bz2/download"
- URL_MD5 52dd00be775e689f55a987baebccc462
- BINARY_DIR ${BOOST_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CONFIGURE_COMMAND
- ${BOOST_SB_BUILD_DIR}/bootstrap.sh
- --prefix=${SB_INSTALL_PREFIX}
- --with-libraries=graph,test,regex
- BUILD_COMMAND ./b2
- INSTALL_COMMAND ./b2 install
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy_directory
- ${CMAKE_SOURCE_DIR}/patches/${proj}/1.54.0
- ${BOOST_SB_SRC}
- )
-
- ExternalProject_Add_Step(${proj} copy_source
- COMMAND ${CMAKE_COMMAND} -E copy_directory
- ${BOOST_SB_SRC} ${BOOST_SB_BUILD_DIR}
- DEPENDEES patch update
- DEPENDERS configure
- )
- endif()
-
- message(STATUS " Using Boost SuperBuild version")
-
- else(MSVC)
- #TODO: find hash for archives properly
- set(BOOST_HEADERS_URL_HASH 1605dc6085cb2dc778ef5ab6c0e59083)
- set(BOOST_GRAPH_URL_HASH c246516ca84a3c79ae8a0b22fceb0344)
- set(BOOST_REGEX_URL_HASH a3bfc2dc9a3ebe3c050518ecb29d6f8b)
- set(BOOST_UTF_URL_HASH 75971963a74c76d32e01974a8e48be11)
-
- if(MSVC10)
- set(BOOST_HEADERS_URL_HASH 1605dc6085cb2dc778ef5ab6c0e59083)
- set(BOOST_GRAPH_URL_HASH c246516ca84a3c79ae8a0b22fceb0344)
- set(BOOST_REGEX_URL_HASH a3bfc2dc9a3ebe3c050518ecb29d6f8b)
- set(BOOST_UTF_URL_HASH 75971963a74c76d32e01974a8e48be11)
- else(MSVC80)
-
- else(CMAKE_COMPILER_2005)
-
- endif()
-
- set(BOOST_HEADERS_URL "http://sourceforge.net/projects/boost/files/boost-binaries/1.50.0/boost_1_50_headers.zip/download")
- set(BOOST_GRAPH_URL "http://sourceforge.net/projects/boost/files/boost-binaries/1.50.0/libboost_graph-vc100-mt-1_50.zip/download")
- set(BOOST_UTF_URL "http://sourceforge.net/projects/boost/files/boost-binaries/1.50.0/boost_unit_test_framework-vc100-mt-1_50.zip/download")
- set(BOOST_REGEX_URL "http://sourceforge.net/projects/boost/files/boost-binaries/1.50.0/libboost_regex-vc100-mt-1_50.zip/download")
-
- ExternalProject_Add(${proj}_HEADERS
- PREFIX ${proj}/_HEADERS
- URL ${BOOST_HEADERS_URL}
- URL_MD5 ${BOOST_HEADERS_URL_HASH}
- SOURCE_DIR ${BOOST_SB_SRC}/include/boost
- CONFIGURE_COMMAND ""
- BUILD_COMMAND ""
- INSTALL_COMMAND ${CMAKE_COMMAND} -E copy_directory ${BOOST_SB_SRC}/include/ ${SB_INSTALL_PREFIX}/include/
- )
- set(BOOSTLIBS)
- foreach(BOOSTLIB "REGEX" "GRAPH" "UTF")
- ExternalProject_Add(${proj}_${BOOSTLIB}
- PREFIX ${proj}/_${BOOSTLIB}
- URL ${BOOST_${BOOSTLIB}_URL}
- URL_MD5 ${BOOST_${BOOSTLIB}_URL_HASH}
- SOURCE_DIR ${BOOST_SB_SRC}/lib
- DEPENDS ${proj}_HEADERS
- CONFIGURE_COMMAND ""
- BUILD_COMMAND ""
- INSTALL_COMMAND ${CMAKE_COMMAND} -E copy_directory ${BOOST_SB_SRC}/lib ${SB_INSTALL_PREFIX}/lib
- )
- list(APPEND BOOSTLIBS ${proj}_${BOOSTLIB})
- endforeach()
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- DOWNLOAD_COMMAND ""
- SOURCE_DIR ${BOOST_SB_SRC}
- DEPENDS ${BOOSTLIBS}
- CONFIGURE_COMMAND ""
- BUILD_COMMAND ""
- INSTALL_COMMAND ""
- )
-
- message(STATUS " Using Boost SuperBuild version (prebuilt binaries)")
-
- endif() #end else MSVC
-
- set(_SB_Boost_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- set(_SB_Boost_LIBRARY_DIR ${SB_INSTALL_PREFIX}/lib)
-
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_curl.cmake b/SuperBuild/CMake/External_curl.cmake
deleted file mode 100644
index b9cbc0b..0000000
--- a/SuperBuild/CMake/External_curl.cmake
+++ /dev/null
@@ -1,71 +0,0 @@
-set(proj CURL)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup cURL ...")
-
-if(USE_SYSTEM_CURL)
- find_package ( CURL )
- add_custom_target(${proj})
- message(STATUS " Using cURL system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using cURL SuperBuild version")
-
- # declare dependencies
- set(${proj}_DEPENDENCIES ZLIB)
- INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
- # set proj back to its original value
- set(proj CURL)
-
- if(USE_SYSTEM_GEOS)
- ADD_SUPERBUILD_CMAKE_VAR(ZLIB_ROOT)
- endif()
-
- #TODO: add openssl and other dependencies
- if(MSVC)
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://curl.haxx.se/download/curl-7.40.0.tar.gz"
- URL_MD5 58943642ea0ed050ab0431ea1caf3a6f
- SOURCE_DIR ${CURL_SB_SRC}
- BINARY_DIR ${CURL_SB_BUILD_DIR}/winbuild
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- DEPENDS ${${proj}_DEPENDENCIES}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy_directory ${CURL_SB_SRC} ${CURL_SB_BUILD_DIR}
- CONFIGURE_COMMAND ""
- BUILD_COMMAND nmake /f ${CURL_SB_BUILD_DIR}/winbuild/Makefile.vc mode=dll WITH_ZLIB=dll WITH_DEVEL=${SB_INSTALL_PREFIX}
- INSTALL_COMMAND ${CMAKE_COMMAND} -E chdir ${CURL_SB_BUILD_DIR}/builds/ ${CMAKE_COMMAND} -E copy_directory libcurl-vc-x86-release-dll-zlib-dll-ipv6-sspi-winssl ${SB_INSTALL_PREFIX}
- )
-
- else(UNIX)
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://curl.haxx.se/download/curl-7.40.0.tar.gz"
- URL_MD5 58943642ea0ed050ab0431ea1caf3a6f
- BINARY_DIR ${CURL_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_PREFIX_PATH:STRING=${SB_INSTALL_PREFIX};${CMAKE_PREFIX_PATH}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DBUILD_SHARED_LIBS:BOOL=ON
- -DBUILD_CURL_EXE:BOOL=ON
- -DBUILD_CURL_TESTS:BOOL=OFF
- ${CURL_SB_CONFIG}
- DEPENDS ${${proj}_DEPENDENCIES}
- )
- endif()
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libcurl.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libcurl${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_expat.cmake b/SuperBuild/CMake/External_expat.cmake
deleted file mode 100644
index b7e01c2..0000000
--- a/SuperBuild/CMake/External_expat.cmake
+++ /dev/null
@@ -1,41 +0,0 @@
-set(proj EXPAT)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup expat ...")
-
-if(USE_SYSTEM_EXPAT)
- find_package ( EXPAT )
- add_custom_target(${proj})
- message(STATUS " Using expat system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using Expat SuperBuild version")
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://sourceforge.net/projects/expat/files/expat/2.1.0/expat-2.1.0.tar.gz/download"
- URL_MD5 dd7dab7a5fea97d2a6a43f511449b7cd
- BINARY_DIR ${EXPAT_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DBUILD_SHARED_LIBS:BOOL=ON
- -DBUILD_examples:BOOL=OFF
- -DBUILD_tests:BOOL=OFF
- -DBUILD_tools:BOOL=OFF
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- )
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/expat.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libexpat${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_fftw.cmake b/SuperBuild/CMake/External_fftw.cmake
deleted file mode 100644
index 2d72828..0000000
--- a/SuperBuild/CMake/External_fftw.cmake
+++ /dev/null
@@ -1,88 +0,0 @@
-set(proj FFTW)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup FFTW ...")
-
-if(USE_SYSTEM_FFTW)
- # TODO : use ITK's FindFFTW
- #find_package ( FFTW )
- add_custom_target(${proj})
- message(STATUS " Using FFTW system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- set(projFloat ${proj}F)
- set(projDouble ${proj}D)
-
- set(FFTW_SB_BUILD_FLOAT_DIR ${CMAKE_BINARY_DIR}/${proj}/src/${projFloat})
- set(FFTW_SB_BUILD_DOUBLE_DIR ${CMAKE_BINARY_DIR}/${proj}/src/${projDouble})
-
- if(MSVC)
- # TODO : get precompiled binaries as not all MSVC versions can compile FFTW
- message(STATUS " FFTW SuperBuild is not available yet...")
- add_custom_target(${proj})
- else()
- message(STATUS " Using FFTW SuperBuild version")
- # Compile the float version of FFTW
- ExternalProject_Add(${projFloat}
- PREFIX ${proj}
- URL "http://www.fftw.org/fftw-3.3.4.tar.gz"
- URL_MD5 2edab8c06b24feeb3b82bbb3ebf3e7b3
- SOURCE_DIR ${FFTW_SB_BUILD_FLOAT_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CONFIGURE_COMMAND
- ${FFTW_SB_BUILD_FLOAT_DIR}/configure
- --prefix=${SB_INSTALL_PREFIX}
- --enable-shared
- --disable-static
- --enable-float
- --enable-threads
- --disable-fortran
- DEPENDS ${${proj}_DEPENDENCIES}
- )
-
- #ExternalProject_Add_Step(${projFloat} copy_source
- # COMMAND ${CMAKE_COMMAND} -E copy_directory
- # ${FFTW_SB_SRC} ${FFTW_SB_BUILD_FLOAT_DIR}
- # DEPENDEES patch update
- # DEPENDERS configure
- # )
-
- # Compile the double version of FFTW
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://www.fftw.org/fftw-3.3.4.tar.gz"
- URL_MD5 2edab8c06b24feeb3b82bbb3ebf3e7b3
- SOURCE_DIR ${FFTW_SB_BUILD_DOUBLE_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CONFIGURE_COMMAND
- ${FFTW_SB_BUILD_DOUBLE_DIR}/configure
- --prefix=${SB_INSTALL_PREFIX}
- --enable-shared
- --disable-static
- --disable-float
- --enable-threads
- --disable-fortran
- DEPENDS ${${proj}_DEPENDENCIES}
- )
-
- #ExternalProject_Add_Step(${projDouble} copy_source
- # COMMAND ${CMAKE_COMMAND} -E copy_directory
- # ${FFTW_SB_SRC} ${FFTW_SB_BUILD_DOUBLE_DIR}
- # DEPENDEES patch update
- # DEPENDERS configure
- # )
-
- add_dependencies(${proj} ${projFloat})
-
- set(_SB_${proj}_INCLUDE_PATH ${SB_INSTALL_PREFIX}/include)
-
- endif()
-
-
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_gdal.cmake b/SuperBuild/CMake/External_gdal.cmake
deleted file mode 100644
index c9bf44b..0000000
--- a/SuperBuild/CMake/External_gdal.cmake
+++ /dev/null
@@ -1,110 +0,0 @@
-set(proj GDAL)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup GDAL...")
-
-if(USE_SYSTEM_GDAL)
- find_package ( GDAL )
- add_custom_target(${proj})
- message(STATUS " Using GDAL system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using GDAL SuperBuild version")
-
- # declare dependencies
- set(${proj}_DEPENDENCIES TIFF GEOTIFF PNG JPEG OPENJPEG SQLITE GEOS ZLIB EXPAT LIBKML CURL)
- INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
- # set proj back to its original value
- set(proj GDAL)
-
- ADD_SUPERBUILD_CONFIGURE_VAR(TIFF_ROOT --with-libtiff)
- ADD_SUPERBUILD_CONFIGURE_VAR(GEOTIFF_ROOT --with-geotiff)
- ADD_SUPERBUILD_CONFIGURE_VAR(PNG_ROOT --with-png)
- ADD_SUPERBUILD_CONFIGURE_VAR(JPEG_ROOT --with-jpeg)
- ADD_SUPERBUILD_CONFIGURE_VAR(OPENJPEG_ROOT --with-openjpeg)
- ADD_SUPERBUILD_CONFIGURE_VAR(SQLITE_ROOT --with-sqlite3)
- ADD_SUPERBUILD_CONFIGURE_VAR(ZLIB_ROOT --with-libz)
- ADD_SUPERBUILD_CONFIGURE_VAR(EXPAT_ROOT --with-expat)
- ADD_SUPERBUILD_CONFIGURE_VAR(LIBKML_ROOT --with-libkml)
- ADD_SUPERBUILD_CONFIGURE_VAR(CURL_ROOT --with-curl)
- if(MSVC)
- ADD_SUPERBUILD_CONFIGURE_VAR(GEOS_ROOT --with-geos)
- else()
- ADD_SUPERBUILD_CONFIGURE_VAR(GEOS_ROOT --with-geos "/bin/geos-config")
- endif()
-
- #if(USE_SYSTEM_TIFF)
- # if(NOT SYSTEM_TIFF_PREFIX STREQUAL "")
- # list(APPEND GDAL_SB_CONFIG --with-libtiff=${SYSTEM_TIFF_PREFIX})
- # endif()
- #else()
- # list(APPEND GDAL_SB_CONFIG --with-libtiff=${SB_INSTALL_PREFIX})
- #endif()
-
- if(UNIX)
- set(GDAL_SB_EXTRA_OPTIONS "" CACHE STRING "Extra options to be passed to GDAL configure script")
- mark_as_advanced(GDAL_SB_EXTRA_OPTIONS)
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://download.osgeo.org/gdal/1.11.2/gdal-1.11.2.tar.gz"
- URL_MD5 866a46f72b1feadd60310206439c1a76
- BINARY_DIR ${GDAL_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- DEPENDS ${${proj}_DEPENDENCIES}
- UPDATE_COMMAND ${CMAKE_COMMAND} -E copy_directory ${GDAL_SB_SRC} ${GDAL_SB_BUILD_DIR}
- PATCH_COMMAND ${CMAKE_COMMAND} -E touch ${GDAL_SB_SRC}/config.rpath
- CONFIGURE_COMMAND
- # use 'env' because CTest launcher doesn't perform shell interpretation
- ${SB_ENV_CONFIGURE_CMD}
- ${GDAL_SB_BUILD_DIR}/configure
- --prefix=${SB_INSTALL_PREFIX}
- --enable-static=no
- --without-ogdi
- --without-jasper
- ${GDAL_SB_CONFIG}
- ${GDAL_SB_EXTRA_OPTIONS}
- BUILD_COMMAND $(MAKE)
- INSTALL_COMMAND $(MAKE) install
- )
-
- else(MSVC)
- ##add libkml
- ##https://trac.osgeo.org/gdal/ticket/5725
- ##is needed for SQLITE driver
- list(REMOVE_ITEM ${proj}_DEPENDENCIES LIBKML)
-
- STRING(REGEX REPLACE "/$" "" CMAKE_WIN_INSTALL_PREFIX ${SB_INSTALL_PREFIX})
- STRING(REGEX REPLACE "/" "\\\\" CMAKE_WIN_INSTALL_PREFIX ${CMAKE_WIN_INSTALL_PREFIX})
- configure_file(${CMAKE_SOURCE_DIR}/patches/${proj}/nmake_gdal_extra.opt.in ${CMAKE_BINARY_DIR}/nmake_gdal_extra.opt)
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://download.osgeo.org/gdal/1.11.2/gdal-1.11.2.tar.gz"
- URL_MD5 866a46f72b1feadd60310206439c1a76
- SOURCE_DIR ${GDAL_SB_SRC}
- BINARY_DIR ${GDAL_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- DEPENDS ${${proj}_DEPENDENCIES}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy_directory ${GDAL_SB_SRC} ${GDAL_SB_BUILD_DIR}
- CONFIGURE_COMMAND ${CMAKE_COMMAND} -E copy ${CMAKE_SOURCE_DIR}/patches/${proj}/ogrsqlitevirtualogr.cpp
- ${GDAL_SB_BUILD_DIR}/ogr/ogrsf_frmts/sqlite/ogrsqlitevirtualogr.cpp
- BUILD_COMMAND nmake /f ${GDAL_SB_BUILD_DIR}/makefile.vc MSVC_VER=${MSVC_VERSION} EXT_NMAKE_OPT=${CMAKE_BINARY_DIR}/nmake_gdal_extra.opt
- INSTALL_COMMAND nmake /f ${GDAL_SB_BUILD_DIR}/makefile.vc devinstall MSVC_VER=${MSVC_VERSION} EXT_NMAKE_OPT=${CMAKE_BINARY_DIR}/nmake_gdal_extra.opt
- )
-
- endif()
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/gdal_i.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libgdal${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_geos.cmake b/SuperBuild/CMake/External_geos.cmake
deleted file mode 100644
index 1a45504..0000000
--- a/SuperBuild/CMake/External_geos.cmake
+++ /dev/null
@@ -1,42 +0,0 @@
-set(proj GEOS)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup GEOS ...")
-
-if(USE_SYSTEM_GEOS)
- # TODO : FindGEOS.cmake
- #find_package ( GEOS )
- add_custom_target(${proj})
- message(STATUS " Using GEOS system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using GEOS SuperBuild version")
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://download.osgeo.org/geos/geos-3.4.2.tar.bz2"
- URL_MD5 fc5df2d926eb7e67f988a43a92683bae
- SOURCE_DIR ${GEOS_SB_SRC}
- BINARY_DIR ${GEOS_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DBUILD_SHARED_LIBS:BOOL=ON
- -DBUILD_TESTING:BOOL=OFF
- -DGEOS_ENABLE_TESTS:BOOL=OFF
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- )
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/geos.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libgeos${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
- endif()
-endif()
diff --git a/SuperBuild/CMake/External_geotiff.cmake b/SuperBuild/CMake/External_geotiff.cmake
deleted file mode 100644
index f4e6775..0000000
--- a/SuperBuild/CMake/External_geotiff.cmake
+++ /dev/null
@@ -1,110 +0,0 @@
-set(proj GEOTIFF)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup libgeotiff...")
-
-if(USE_SYSTEM_GEOTIFF)
- find_package ( GeoTIFF )
- add_custom_target(${proj})
- message(STATUS " Using libgeotiff system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using GeoTIFF SuperBuild version")
-
- # declare dependencies
- set(${proj}_DEPENDENCIES TIFF PROJ JPEG ZLIB)
- INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
- # set proj back to its original value
- set(proj GEOTIFF)
-
- if(MSVC)
- ADD_SUPERBUILD_CMAKE_VAR(TIFF_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(TIFF_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(PROJ4_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(PROJ4_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(ZLIB_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(ZLIB_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(JPEG_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(JPEG_LIBRARY)
- else()
- ADD_SUPERBUILD_CONFIGURE_VAR(TIFF_ROOT --with-libtiff)
- ADD_SUPERBUILD_CONFIGURE_VAR(PROJ_ROOT --with-proj)
- ADD_SUPERBUILD_CONFIGURE_VAR(ZLIB_ROOT --with-zlib)
- ADD_SUPERBUILD_CONFIGURE_VAR(JPEG_ROOT --with-jpeg)
- endif()
-
- #if(MSVC)
- # set(GEOTIFF_SB_ZLIB_CONFIG
- # -DZLIB_INCLUDE_DIR:STRING=${SB_INSTALL_PREFIX}/include
- # -DZLIB_LIBRARY:STRING=${SB_INSTALL_PREFIX}/lib/zlib.lib
- # )
-
- if(MSVC)
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://download.osgeo.org/geotiff/libgeotiff/libgeotiff-1.4.0.tar.gz"
- URL_MD5 efa7b418bc00228fcda4da63557e40c2
- BINARY_DIR ${GEOTIFF_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- DEPENDS ${${proj}_DEPENDENCIES}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_SOURCE_DIR}/patches/${proj}/CMakeLists.txt
- ${GEOTIFF_SB_SRC}
-
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DWITH_TIFF:BOOL=ON
- -DWITH_PROJ4:BOOL=ON
- -DWITH_JPEG:BOOL=OFF
- -DWITH_ZLIB:BOOL=ON
- -DWITH_UTILITIES:BOOL=ON
- -DCMAKE_PREFIX_PATH:STRING=${SB_INSTALL_PREFIX};${CMAKE_PREFIX_PATH}
- ${GEOTIFF_SB_CONFIG}
- CMAKE_COMMAND
- )
- else()
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://download.osgeo.org/geotiff/libgeotiff/libgeotiff-1.4.0.tar.gz"
- URL_MD5 efa7b418bc00228fcda4da63557e40c2
- BINARY_DIR ${GEOTIFF_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CONFIGURE_COMMAND
- # use 'env' because CTest launcher doesn't perform shell interpretation
- ${SB_ENV_CONFIGURE_CMD}
- ${GEOTIFF_SB_BUILD_DIR}/configure
- --prefix=${SB_INSTALL_PREFIX}
- --enable-static=no
- ${GEOTIFF_SB_CONFIG}
- BUILD_COMMAND $(MAKE)
- INSTALL_COMMAND $(MAKE) install
- DEPENDS ${${proj}_DEPENDENCIES}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_SOURCE_DIR}/patches/${proj}/configure
- ${GEOTIFF_SB_SRC}
- )
-
- ExternalProject_Add_Step(${proj} copy_source
- COMMAND ${CMAKE_COMMAND} -E copy_directory
- ${GEOTIFF_SB_SRC} ${GEOTIFF_SB_BUILD_DIR}
- DEPENDEES patch update
- DEPENDERS configure
- )
-
- endif()
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/geotiff_i.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libgeotiff${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_itk.cmake b/SuperBuild/CMake/External_itk.cmake
deleted file mode 100644
index 5dda22b..0000000
--- a/SuperBuild/CMake/External_itk.cmake
+++ /dev/null
@@ -1,189 +0,0 @@
-set(proj ITK)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup ITK...")
-
-if(USE_SYSTEM_ITK)
- find_package ( ITK )
- add_custom_target(${proj})
- message(STATUS " Using ITK system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using ITK SuperBuild version")
-
- # if(MSVC)
- # set(ITK_SB_SRC "C:/Temp/ITK")
- # set(ITK_SB_BUILD_DIR ${ITK_SB_SRC}/build)
- # endif()
-
- set(ITK_ENABLED_MODULES
- Common
- FiniteDifference
- GPUCommon
- GPUFiniteDifference
- ImageAdaptors
- ImageFunction
- Mesh
- QuadEdgeMesh
- SpatialObjects
- #TestKernel
- Transform
-
- AnisotropicSmoothing
- AntiAlias
- BiasCorrection
- BinaryMathematicalMorphology
- Colormap
- Convolution
- CurvatureFlow
- Deconvolution
- Denoising
- #DiffusionTensorImage
- DisplacementField
- DistanceMap
- FastMarching
- FFT
- GPUAnisotropicSmoothing
- GPUImageFilterBase
- GPUSmoothing
- GPUThresholding
- ImageCompare
- ImageCompose
- ImageFeature
- ImageFilterBase
- ImageFusion
- ImageGradient
- ImageGrid
- ImageIntensity
- ImageLabel
- ImageSources
- ImageStatistics
- LabelMap
- MathematicalMorphology
- Path
- QuadEdgeMeshFiltering
- Smoothing
- SpatialFunction
- Thresholding
-
- Eigen
- #FEM
- NarrowBand
- NeuralNetworks
- Optimizers
- Optimizersv4
- Polynomials
- Statistics
-
- RegistrationCommon
- #FEMRegistration
- GPURegistrationCommon
- GPUPDEDeformableRegistration
- Metricsv4
- PDEDeformableRegistration
- RegistrationMethodsv4
-
- #BioCell
- Classifiers
- ConnectedComponents
- DeformableMesh
- KLMRegionGrowing
- LabelVoting
- LevelSets
- LevelSetsv4
- #LevelSetsv4Visualization
- MarkovRandomFieldsClassifiers
- RegionGrowing
- SignedDistanceFunction
- Voronoi
- Watersheds
- )
-
- set(ITK_MODULES_CMAKE_CACHE)
- foreach(ITK_MODULE ${ITK_ENABLED_MODULES})
- list(APPEND ITK_MODULES_CMAKE_CACHE -DModule_ITK${ITK_MODULE}:BOOL=ON)
- endforeach()
-
- # declare dependencies
- set(${proj}_DEPENDENCIES TIFF EXPAT PNG ZLIB FFTW)
- INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
- # set proj back to its original value
- set(proj ITK)
-
- ADD_SUPERBUILD_CMAKE_VAR(TIFF_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(TIFF_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(EXPAT_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(EXPAT_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(PNG_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(PNG_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(ZLIB_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(ZLIB_LIBRARY)
-
- # By default activate FFTW, but with an external fftw build
- # These variables are used in ITK to initialize the value of the ITK_USE_FFTW_XXX options
- if (WIN32)
- list(APPEND ITK_SB_CONFIG
- -DUSE_FFTWF:BOOL=OFF
- -DUSE_FFTWD:BOOL=OFF
- )
- else()
- list(APPEND ITK_SB_CONFIG
- -DUSE_FFTWF:BOOL=ON
- -DUSE_FFTWD:BOOL=ON
- -DUSE_SYSTEM_FFTW:BOOL=ON
- )
- ADD_SUPERBUILD_CMAKE_VAR(FFTW_INCLUDE_PATH)
- endif()
-
- # forward compilation flags
- set(ITK_SB_COMPILATION_FLAGS
- -DCMAKE_BUILD_TYPE:STRING=${CMAKE_BUILD_TYPE}
- -DCMAKE_C_FLAGS:STRING=${CMAKE_C_FLAGS}
- -DCMAKE_CXX_FLAGS:STRING=${CMAKE_CXX_FLAGS}
- -DCMAKE_EXE_LINKER_FLAGS:STRING=${CMAKE_EXE_LINKER_FLAGS}
- -DCMAKE_MODULE_LINKER_FLAGS:STRING=${CMAKE_MODULE_LINKER_FLAGS}
- -DCMAKE_SHARED_LINKER_FLAGS:STRING=${CMAKE_SHARED_LINKER_FLAGS}
- -DCMAKE_STATIC_LINKER_FLAGS:STRING=${CMAKE_STATIC_LINKER_FLAGS}
- )
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://sourceforge.net/projects/itk/files/itk/4.7/InsightToolkit-4.7.1.tar.gz/download"
- URL_MD5 c2cbf3eb34df41548a5b9615ea250e7d
- SOURCE_DIR ${ITK_SB_SRC}
- BINARY_DIR ${ITK_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- ${ITK_SB_COMPILATION_FLAGS}
- -DITK_BUILD_DEFAULT_MODULES:BOOL=OFF
- ${ITK_MODULES_CMAKE_CACHE}
- -DITKGroup_Core:BOOL=OFF
- -DBUILD_SHARED_LIBS:BOOL=${SB_BUILD_SHARED_LIBS}
- -DBUILD_TESTING:BOOL=OFF
- -DBUILD_EXAMPLES:BOOL=OFF
- -DCMAKE_PREFIX_PATH:STRING=${SB_INSTALL_PREFIX};${CMAKE_PREFIX_PATH}
- -DITK_USE_SYSTEM_EXPAT:BOOL=ON
- -DITK_USE_SYSTEM_ZLIB:BOOL=ON
- -DITK_USE_SYSTEM_TIFF:BOOL=ON
- -DITK_USE_SYSTEM_PNG:BOOL=ON
- ${ITK_SB_CONFIG}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_SOURCE_DIR}/patches/ITK/hashtable.hxx.in
- ${ITK_SB_SRC}/Modules/ThirdParty/KWSys/src/KWSys
- DEPENDS ${${proj}_DEPENDENCIES}
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- )
-
- # write patch in binary dir
- #file(WRITE ${CMAKE_BINARY_DIR}/itk_patch_1.cmake
- # "configure_file(${CMAKE_SOURCE_DIR}/patches_ITK/hashtable.hxx.in
- # ${ITK_SB_SRC}/Modules/ThirdParty/KWSys/src/KWSys/hashtable.hxx.in COPYONLY)")
-
- set(_SB_ITK_DIR ${SB_INSTALL_PREFIX}/lib/cmake/ITK-4.6)
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_jpeg.cmake b/SuperBuild/CMake/External_jpeg.cmake
deleted file mode 100644
index 1b2e6ce..0000000
--- a/SuperBuild/CMake/External_jpeg.cmake
+++ /dev/null
@@ -1,74 +0,0 @@
-set(proj JPEG)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup libjpeg...")
-
-if(USE_SYSTEM_JPEG)
- find_package ( JPEG )
- add_custom_target(${proj})
- message(STATUS " Using libjpeg system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using libjpeg SuperBuild version")
-
- if(WIN32)
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://www.ijg.org/files/jpegsrc.v9a.tar.gz"
- URL_MD5 3353992aecaee1805ef4109aadd433e7
- SOURCE_DIR ${JPEG_SB_SRC}
- BINARY_DIR ${JPEG_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy ${CMAKE_SOURCE_DIR}/patches/${proj}/CMakeLists.txt ${JPEG_SB_SRC}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DCMAKE_VERBOSE_MAKEFILE:BOOL=OFF
- )
-
- ExternalProject_Add_Step(${proj} copy_jconfig
- COMMAND ${CMAKE_COMMAND} -E copy
- ${JPEG_SB_SRC}/jconfig.vc ${JPEG_SB_SRC}/jconfig.h
- DEPENDEES patch
- DEPENDERS build
- )
-
- else()
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://www.ijg.org/files/jpegsrc.v9a.tar.gz"
- URL_MD5 3353992aecaee1805ef4109aadd433e7
- BINARY_DIR ${JPEG_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CONFIGURE_COMMAND
- ${JPEG_SB_BUILD_DIR}/configure
- --prefix=${SB_INSTALL_PREFIX}
- --enable-shared=yes
- BUILD_COMMAND $(MAKE)
- INSTALL_COMMAND $(MAKE) install
- DEPENDS ${${proj}_DEPENDENCIES}
- )
-
- ExternalProject_Add_Step(${proj} copy_source
- COMMAND ${CMAKE_COMMAND} -E copy_directory
- ${JPEG_SB_SRC} ${JPEG_SB_BUILD_DIR}
- DEPENDEES patch update
- DEPENDERS configure
- )
-
- endif()
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libjpeg.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libjpeg${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_libkml.cmake b/SuperBuild/CMake/External_libkml.cmake
deleted file mode 100644
index eef36df..0000000
--- a/SuperBuild/CMake/External_libkml.cmake
+++ /dev/null
@@ -1,69 +0,0 @@
-set(proj LIBKML)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup libKML ...")
-
-if(USE_SYSTEM_LIBKML)
- find_package ( LibKML )
- add_custom_target(${proj})
- message(STATUS " Using libKML system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using libKML SuperBuild version")
- # declare dependencies
- set(${proj}_DEPENDENCIES EXPAT ZLIB BOOST)
- INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
- # set proj back to its original value
- set(proj LIBKML)
-
- ADD_SUPERBUILD_CMAKE_VAR(EXPAT_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(EXPAT_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(ZLIB_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(ZLIB_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(Boost_INCLUDE_DIR)
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://ftp.de.debian.org/debian/pool/main/libk/libkml/libkml_1.3.0~r863.orig.tar.gz"
- URL_MD5 211ed5fdf2dd45aeb9c0abc8e1fe42be
- BINARY_DIR ${LIBKML_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- DEPENDS ${${proj}_DEPENDENCIES}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy_directory ${CMAKE_SOURCE_DIR}/patches/${proj} ${LIBKML_SB_SRC}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DBUILD_SHARED_LIBS:BOOL=ON
- -DCMAKE_PREFIX_PATH:STRING=${SB_INSTALL_PREFIX};${CMAKE_PREFIX_PATH}
- ${LIBKML_SB_CONFIG}
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- )
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- if(USE_SYSTEM_EXPAT)
- set(_SB_${proj}_BASE_LIBRARY ${SB_INSTALL_PREFIX}/lib/kmlbase.lib;${EXPAT_LIBRARY})
- else()
- set(_SB_${proj}_BASE_LIBRARY ${SB_INSTALL_PREFIX}/lib/kmlbase.lib;${_SB_EXPAT_LIBRARY})
- endif()
- set(_SB_${proj}_CONVENIENCE_LIBRARY ${SB_INSTALL_PREFIX}/lib/kmlconvenience.lib)
- set(_SB_${proj}_DOM_LIBRARY ${SB_INSTALL_PREFIX}/lib/kmldom.lib)
- set(_SB_${proj}_ENGINE_LIBRARY ${SB_INSTALL_PREFIX}/lib/kmlengine.lib)
- set(_SB_${proj}_REGIONATOR_LIBRARY ${SB_INSTALL_PREFIX}/lib/kmlregionator.lib)
- set(_SB_${proj}_XSD_LIBRARY ${SB_INSTALL_PREFIX}/lib/kmlxsd.lib)
- set(_SB_${proj}_MINIZIP_LIBRARY ${SB_INSTALL_PREFIX}/lib/minizip.lib)
- elseif(UNIX)
- set(_SB_${proj}_BASE_LIBRARY ${SB_INSTALL_PREFIX}/lib/libkmlbase${CMAKE_SHARED_LIBRARY_SUFFIX})
- set(_SB_${proj}_CONVENIENCE_LIBRARY ${SB_INSTALL_PREFIX}/lib/libkmlconvenience${CMAKE_SHARED_LIBRARY_SUFFIX})
- set(_SB_${proj}_DOM_LIBRARY ${SB_INSTALL_PREFIX}/lib/libkmldom${CMAKE_SHARED_LIBRARY_SUFFIX})
- set(_SB_${proj}_ENGINE_LIBRARY ${SB_INSTALL_PREFIX}/lib/libkmlengine${CMAKE_SHARED_LIBRARY_SUFFIX})
- set(_SB_${proj}_REGIONATOR_LIBRARY ${SB_INSTALL_PREFIX}/lib/libkmlregionator${CMAKE_SHARED_LIBRARY_SUFFIX})
- set(_SB_${proj}_XSD_LIBRARY ${SB_INSTALL_PREFIX}/lib/libkmlxsd${CMAKE_SHARED_LIBRARY_SUFFIX})
- set(_SB_${proj}_MINIZIP_LIBRARY ${SB_INSTALL_PREFIX}/lib/libminizip${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_libsvm.cmake b/SuperBuild/CMake/External_libsvm.cmake
deleted file mode 100644
index 781bef3..0000000
--- a/SuperBuild/CMake/External_libsvm.cmake
+++ /dev/null
@@ -1,43 +0,0 @@
-set(proj LIBSVM)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup LibSVM...")
-
-if(USE_SYSTEM_LIBSVM)
- find_package ( LibSVM )
- add_custom_target(${proj})
- message(STATUS " Using LibSVM system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using LibSVM SuperBuild version")
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://www.csie.ntu.edu.tw/~cjlin/libsvm/libsvm-3.20.tar.gz"
- URL_MD5 5f088e5f89da1c65b642300c9c5ea772
- BINARY_DIR ${LIBSVM_SB_BUILD_DIR}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DBUILD_SHARED_LIBS:BOOL=ON
- ${LIBSVM_FLAGS}
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- DEPENDS ${${proj}_DEPENDENCIES}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_SOURCE_DIR}/patches/${proj}/CMakeLists.txt
- ${LIBSVM_SB_SRC}
- )
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libsvm.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/liblibsvm${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_muparser.cmake b/SuperBuild/CMake/External_muparser.cmake
deleted file mode 100644
index 4e9d033..0000000
--- a/SuperBuild/CMake/External_muparser.cmake
+++ /dev/null
@@ -1,41 +0,0 @@
-set(proj MUPARSER)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup muParser ...")
-
-if(USE_SYSTEM_MUPARSER)
- find_package ( MuParser )
- add_custom_target(${proj})
- message(STATUS " Using muParser system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using muParser SuperBuild version")
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://downloads.sourceforge.net/project/muparser/muparser/Version%202.2.3/muparser_v2_2_3.zip"
- URL_MD5 9de40ec1dab5bd2787ee344fce5846ad
- BINARY_DIR ${MUPARSER_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- DEPENDS ${${proj}_DEPENDENCIES}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_SOURCE_DIR}/patches/${proj}/CMakeLists.txt
- ${MUPARSER_SB_SRC}
- )
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/muparser.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libmuparser${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_muparserx.cmake b/SuperBuild/CMake/External_muparserx.cmake
deleted file mode 100644
index 05c49a4..0000000
--- a/SuperBuild/CMake/External_muparserx.cmake
+++ /dev/null
@@ -1,53 +0,0 @@
-set(proj MUPARSERX)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup muParserX ...")
-
-if(USE_SYSTEM_MUPARSERX)
- find_package ( MuParserX )
- add_custom_target(${proj})
- message(STATUS " Using muParserX system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using muParserX SuperBuild version")
-
- set(MUPARSERX_FLAGS)
- if(APPLE)
- set(MUPARSERX_FLAGS "-DCMAKE_CXX_FLAGS:STRING=-std=c++0x")
- endif()
-
- # We provide a zip archive of last muparserx release (3.0.5)
- # Archive was generated using commit sha on muparserx github page
- # Commands to create source archive:
- # wget https://github.com/beltoforion/muparserx/archive/2ace83b5411f1ab9940653c2bab0efa5140efb71.zip
- # mv 2ace83b5411f1ab9940653c2bab0efa5140efb71.zip muparserx_v3_0_5.zip
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "https://www.orfeo-toolbox.org/packages/muparserx_v3_0_5.zip"
- URL_MD5 ad86b88c159ab68f4bfc99d71166e3c5
- BINARY_DIR ${MUPARSERX_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DBUILD_SHARED_LIBS:BOOL=ON
- ${MUPARSERX_FLAGS}
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- DEPENDS ${${proj}_DEPENDENCIES}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_SOURCE_DIR}/patches/${proj}/CMakeLists.txt
- ${MUPARSERX_SB_SRC}
- )
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/muparserx.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libmuparserx${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_opencv.cmake b/SuperBuild/CMake/External_opencv.cmake
deleted file mode 100644
index 9f23d2e..0000000
--- a/SuperBuild/CMake/External_opencv.cmake
+++ /dev/null
@@ -1,86 +0,0 @@
-set(proj OPENCV)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup OpenCV...")
-
-if(USE_SYSTEM_OPENCV)
- find_package ( OpenCV )
- add_custom_target(${proj})
- message(STATUS " Using OpenCV system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using OpenCV SuperBuild version")
-
- # declare dependencies
- set(${proj}_DEPENDENCIES ZLIB TIFF PNG)
- INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
- # set proj back to its original value
- set(proj OPENCV)
-
- ADD_SUPERBUILD_CMAKE_VAR(ZLIB_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(ZLIB_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(TIFF_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(TIFF_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(PNG_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(PNG_LIBRARY)
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://sourceforge.net/projects/opencvlibrary/files/opencv-unix/2.4.10/opencv-2.4.10.zip/download"
- URL_MD5 ec63952d3a3dff965d5fdde765926821
- BINARY_DIR ${OPENCV_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DCMAKE_PREFIX_PATH:STRING=${SB_INSTALL_PREFIX};${CMAKE_PREFIX_PATH}
- -DBUILD_SHARED_LIBS:BOOL=ON
- -DBUILD_DOCS:BOOL=OFF
- -DBUILD_EXAMPLES:BOOL=OFF
- -DBUILD_JASPER:BOOL=OFF
- -DWITH_JASPER:BOOL=OFF
- -DBUILD_JPEG:BOOL=OFF
- -DWITH_JPEG:BOOL=OFF
- -DWITH_FFMPEG:BOOL=OFF
- -DWITH_VFW:BOOL=OFF
- -DBUILD_OPENEXR:BOOL=OFF
- -DBUILD_PACKAGE:BOOL=ON
- -DBUILD_PERF_TESTS:BOOL=OFF
- -DBUILD_PNG:BOOL=OFF
- -DBUILD_TBB:BOOL=OFF
- -DBUILD_TESTS:BOOL=OFF
- -DBUILD_TIFF:BOOL=OFF
- -DBUILD_ZLIB:BOOL=OFF
- -DBUILD_opencv_apps:BOOL=OFF
- -DBUILD_opencv_calib3d:BOOL=OFF
- -DBUILD_opencv_contrib:BOOL=OFF
- -DBUILD_opencv_core:BOOL=ON
- -DBUILD_opencv_features2d:BOOL=OFF
- -DBUILD_opencv_flann:BOOL=OFF
- -DBUILD_opencv_gpu:BOOL=OFF
- -DBUILD_opencv_highgui:BOOL=OFF
- -DBUILD_opencv_imgproc:BOOL=OFF
- -DBUILD_opencv_java:BOOL=OFF
- -DBUILD_opencv_legacy:BOOL=OFF
- -DBUILD_opencv_ml:BOOL=ON
- -DBUILD_opencv_nonfree:BOOL=OFF
- -DBUILD_opencv_objdetect:BOOL=OFF
- -DBUILD_opencv_ocl:BOOL=OFF
- -DBUILD_opencv_photo:BOOL=OFF
- -DBUILD_opencv_python:BOOL=OFF
- -DBUILD_opencv_stitching:BOOL=OFF
- -DBUILD_opencv_superres:BOOL=OFF
- -DBUILD_opencv_ts:BOOL=OFF
- -DBUILD_opencv_video:BOOL=OFF
- -DBUILD_opencv_videostab:BOOL=OFF
- -DBUILD_opencv_world:BOOL=OFF
- ${OPENCV_SB_CONFIG}
- DEPENDS ${${proj}_DEPENDENCIES}
- )
-
- set(_SB_OpenCV_DIR ${SB_INSTALL_PREFIX}/share/OpenCV)
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_openjpeg.cmake b/SuperBuild/CMake/External_openjpeg.cmake
deleted file mode 100644
index 875931e..0000000
--- a/SuperBuild/CMake/External_openjpeg.cmake
+++ /dev/null
@@ -1,65 +0,0 @@
-set(proj OPENJPEG)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup OpenJpeg...")
-
-if(USE_SYSTEM_OPENJPEG)
- # TODO : FindOpenJPEG.cmake
- # find_package ( OpenJPEG )
- add_custom_target(${proj})
- message(STATUS " Using OpenJpeg system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using OpenJPEG SuperBuild version")
-
- # declare dependencies
- set(${proj}_DEPENDENCIES TIFF ZLIB)
- INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
- # set proj back to its original value
- set(proj OPENJPEG)
-
- ADD_SUPERBUILD_CMAKE_VAR(TIFF_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(TIFF_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(ZLIB_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(ZLIB_LIBRARY)
-
- if(MSVC)
- #TODO: add LCMS dependency
- endif()
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://sourceforge.net/projects/openjpeg.mirror/files/2.1.0/openjpeg-2.1.0.tar.gz/download"
- URL_MD5 f6419fcc233df84f9a81eb36633c6db6
- BINARY_DIR ${OPENJPEG_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DBUILD_CODEC:BOOL=ON
- -DBUILD_DOC:BOOL=OFF
- -DBUILD_JPIP:BOOL=OFF
- -DBUILD_JPWL:BOOL=OFF
- -DBUILD_MJ2:BOOL=OFF
- -DBUILD_PKGCONFIG_FILES:BOOL=ON
- -DBUILD_SHARED_LIBS:BOOL=ON
- -DBUILD_TESTING:BOOL=OFF
- -DBUILD_THIRDPARTY:BOOL=OFF
- -DCMAKE_PREFIX_PATH:STRING=${SB_INSTALL_PREFIX};${CMAKE_PREFIX_PATH}
- ${OPENJPEG_SB_CONFIG}
- DEPENDS ${${proj}_DEPENDENCIES}
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- )
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/openjp2.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libopenjp2${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_openthreads.cmake b/SuperBuild/CMake/External_openthreads.cmake
deleted file mode 100644
index 0141b88..0000000
--- a/SuperBuild/CMake/External_openthreads.cmake
+++ /dev/null
@@ -1,69 +0,0 @@
-set(proj OPENTHREADS)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup OpenThreads ...")
-
-if(MSVC)
-set(USE_SYSTEM_OPENTHREADS OFF)
-endif()
-
-if(USE_SYSTEM_OPENTHREADS)
- find_package ( OpenThreads )
- add_custom_target(${proj})
- message(STATUS " Using OpenThread system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using OpenThreads SuperBuild version")
-
- #TODO: try to use cmake variable for DOWNLOAD_COMMAND for different platforms
- #if(MSVC)
- if(0)
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- SVN_REPOSITORY "http://svn.openscenegraph.org/osg/OpenThreads/tags/OpenThreads-2.3.0/"
- SVN_REVISION -r 14667
- SOURCE_DIR ${OPENTHREADS_SB_SRC}
- BINARY_DIR ${OPENTHREADS_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DBUILD_SHARED_LIBS:BOOL=ON
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_SOURCE_DIR}/patches/${proj}/CMakeLists.txt ${OPENTHREADS_SB_SRC}
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- )
- #else(UNIX or APPLE)
- else()
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://www.openscenegraph.org/downloads/developer_releases/OpenSceneGraph-3.2.0.zip"
- URL_MD5 4980f8692712a24d4c99f363f80c6814
- SOURCE_DIR ${OPENTHREADS_SB_SRC}
- BINARY_DIR ${OPENTHREADS_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DBUILD_SHARED_LIBS:BOOL=ON
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- DEPENDS ${${proj}_DEPENDENCIES}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_SOURCE_DIR}/patches/${proj}/CMakeLists.txt
- ${OPENTHREADS_SB_SRC}
- )
- endif()
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/OpenThreads.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libOpenThreads${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_ossim.cmake b/SuperBuild/CMake/External_ossim.cmake
deleted file mode 100644
index 5908fad..0000000
--- a/SuperBuild/CMake/External_ossim.cmake
+++ /dev/null
@@ -1,128 +0,0 @@
-set(proj OSSIM)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup Ossim...")
-
-# OSGeo4W provides an "ossim" package : use it otherwise if it is installed and not used by OTB
-# we get conflicts (because OSGeo4W include dir is included for other dependencies
-#if(WIN32)
-# set(DEFAULT_USE_SYSTEM_OSSIM ON)
-#endif()
-
-if(USE_SYSTEM_OSSIM)
- find_package ( Ossim )
- add_custom_target(${proj})
- message(STATUS " Using OSSIM system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using OSSIM SuperBuild version")
-
- # declare dependencies
- set(${proj}_DEPENDENCIES TIFF GEOTIFF GEOS JPEG OPENTHREADS)
- INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
- # set proj back to its original value
- set(proj OSSIM)
-
- ADD_SUPERBUILD_CMAKE_VAR(TIFF_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(TIFF_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(GEOTIFF_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(GEOTIFF_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(GEOS_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(GEOS_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(JPEG_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(JPEG_LIBRARY)
- ADD_SUPERBUILD_CMAKE_VAR(OPENTHREADS_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(OPENTHREADS_LIBRARY)
-
- set(OSSIM_CXX_FLAGS -D__STDC_CONSTANT_MACROS)
-
- if(MSVC)
- set(OSSIM_CXX_FLAGS /EHsc)
- endif()
-
- if(0)
- # SVN version
- ExternalProject_Add(ossim_cmakemodules
- PREFIX ${proj}/_cmakemodules
- SVN_REPOSITORY "http://svn.osgeo.org/ossim/trunk/ossim_package_support/cmake/CMakeModules"
- SVN_REVISION -r 23087
- CONFIGURE_COMMAND ""
- BUILD_COMMAND ""
- INSTALL_COMMAND ""
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_SOURCE_DIR}/patches/${proj}/OssimUtilities.cmake
- ${CMAKE_BINARY_DIR}/${proj}/_cmakemodules/src/ossim_cmakemodules)
-
- list(APPEND ${proj}_DEPENDENCIES ossim_cmakemodules)
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- SVN_REPOSITORY "http://svn.osgeo.org/ossim/trunk/ossim/"
- SVN_REVISION -r 23092
- BINARY_DIR ${OSSIM_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DOSSIM_VERSION:STRING=1.8.18-1
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DCMAKE_CXX_FLAGS:STRING=${OSSIM_CXX_FLAGS}
- -DBUILD_OSSIM_MPI_SUPPORT:BOOL=OFF
- -DBUILD_OSSIM_APPS:BOOL=OFF
- -DBUILD_OSSIM_FRAMEWORKS:BOOL=OFF
- -DINSTALL_ARCHIVE_DIR:STRING=lib
- -DINSTALL_LIBRARY_DIR:STRING=lib
- -DCMAKE_PREFIX_PATH:STRING=${SB_INSTALL_PREFIX};${CMAKE_PREFIX_PATH}
- ${OSSIM_SB_CONFIG}
- DEPENDS ${${proj}_DEPENDENCIES}
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- )
-
- ExternalProject_Add_Step(${proj} copy_CMakeModules
- COMMAND ${CMAKE_COMMAND} -E copy_directory
- ${CMAKE_BINARY_DIR}/${proj}/_cmakemodules/src/ossim_cmakemodules ${OSSIM_SB_SRC}/CMakeModules
- DEPENDEES patch update
- DEPENDERS configure
- )
- else()
- # archive version
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "https://www.orfeo-toolbox.org/packages/ossim-minimal-r23092.tar.gz"
- URL_MD5 1bb7247fa490eb4a6e57b3c2e129d587
- BINARY_DIR ${OSSIM_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DOSSIM_VERSION:STRING=1.8.18-1
- -DProject_WC_REVISION:STRING=23092
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DCMAKE_CXX_FLAGS:STRING=${OSSIM_CXX_FLAGS}
- -DBUILD_OSSIM_MPI_SUPPORT:BOOL=OFF
- -DBUILD_OSSIM_APPS:BOOL=OFF
- -DBUILD_OSSIM_FRAMEWORKS:BOOL=OFF
- -DINSTALL_ARCHIVE_DIR:STRING=lib
- -DINSTALL_LIBRARY_DIR:STRING=lib
- -DCMAKE_PREFIX_PATH:STRING=${SB_INSTALL_PREFIX};${CMAKE_PREFIX_PATH}
- ${OSSIM_SB_CONFIG}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_SOURCE_DIR}/patches/${proj}/OssimUtilities.cmake
- ${OSSIM_SB_SRC}/CMakeModules
- DEPENDS ${${proj}_DEPENDENCIES}
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- )
- endif()
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/ossim.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libossim${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-
-endif()
diff --git a/SuperBuild/CMake/External_otb.cmake b/SuperBuild/CMake/External_otb.cmake
deleted file mode 100644
index ac411dd..0000000
--- a/SuperBuild/CMake/External_otb.cmake
+++ /dev/null
@@ -1,191 +0,0 @@
-set(proj OTB)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup OTB...")
-
-SETUP_SUPERBUILD(PROJECT ${proj})
-message(STATUS " Using OTB SuperBuild version")
-
-if(SUPERBUILD_IN_OTB_TREE)
- set(OTB_SB_SRC ${CMAKE_SOURCE_DIR}/..)
-endif()
-
-set(${proj}_ADDITIONAL_CACHE)
-
-#set(BUILD_EXAMPLES ON)
-
-if(ENABLE_OTB_LARGE_INPUTS)
- set(OTB_SB_LARGEINPUT_CONFIG
- -DOTB_DATA_USE_LARGEINPUT:BOOL=ON
- -DOTB_DATA_LARGEINPUT_ROOT:PATH=${OTB_DATA_LARGEINPUT_ROOT}
- )
-else()
- set(OTB_SB_LARGEINPUT_CONFIG
- -DOTB_DATA_USE_LARGEINPUT:BOOL=OFF
- )
-endif()
-
-set(${proj}_DEPENDENCIES
- GDAL
- OSSIM
- ITK
- TINYXML
- BOOST
- )
-
-if(OTB_USE_CURL)
- list(APPEND ${proj}_DEPENDENCIES CURL)
-endif()
-
-if(OTB_USE_LIBKML)
- list(APPEND ${proj}_DEPENDENCIES LIBKML)
-endif()
-
-if(OTB_USE_OPENCV)
- list(APPEND ${proj}_DEPENDENCIES OPENCV)
-endif()
-
-if(OTB_USE_LIBSVM)
- list(APPEND ${proj}_DEPENDENCIES LIBSVM)
-endif()
-
-if(OTB_USE_MUPARSER)
- list(APPEND ${proj}_DEPENDENCIES MUPARSER)
-endif()
-
-if(OTB_USE_MUPARSERX)
- list(APPEND ${proj}_DEPENDENCIES MUPARSERX)
-endif()
-
-if(OTB_WRAP_PYTHON OR OTB_WRAP_JAVA)
- list(APPEND ${proj}_DEPENDENCIES SWIG)
-endif()
-
-if(OTB_USE_QT4)
- list(APPEND ${proj}_DEPENDENCIES QT4)
-endif()
-
-INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
-# set proj back to its original value
-set(proj OTB)
-
-ADD_SUPERBUILD_CMAKE_VAR(GDAL_INCLUDE_DIR)
-ADD_SUPERBUILD_CMAKE_VAR(GDAL_LIBRARY)
-
-ADD_SUPERBUILD_CMAKE_VAR(OSSIM_INCLUDE_DIR)
-ADD_SUPERBUILD_CMAKE_VAR(OSSIM_LIBRARY)
-
-ADD_SUPERBUILD_CMAKE_VAR(GDAL_INCLUDE_DIR)
-ADD_SUPERBUILD_CMAKE_VAR(GDAL_LIBRARY)
-
-ADD_SUPERBUILD_CMAKE_VAR(ITK_DIR)
-
-ADD_SUPERBUILD_CMAKE_VAR(MUPARSER_INCLUDE_DIR)
-ADD_SUPERBUILD_CMAKE_VAR(MUPARSER_LIBRARY)
-
-ADD_SUPERBUILD_CMAKE_VAR(MUPARSERX_INCLUDE_DIR)
-ADD_SUPERBUILD_CMAKE_VAR(MUPARSERX_LIBRARY)
-
-ADD_SUPERBUILD_CMAKE_VAR(TINYXML_INCLUDE_DIR)
-ADD_SUPERBUILD_CMAKE_VAR(TINYXML_LIBRARY)
-
-ADD_SUPERBUILD_CMAKE_VAR(Boost_INCLUDE_DIR)
-ADD_SUPERBUILD_CMAKE_VAR(Boost_LIBRARY_DIR)
-
-ADD_SUPERBUILD_CMAKE_VAR(LIBKML_INCLUDE_DIR)
-ADD_SUPERBUILD_CMAKE_VAR(LIBKML_BASE_LIBRARY)
-ADD_SUPERBUILD_CMAKE_VAR(LIBKML_CONVENIENCE_LIBRARY)
-ADD_SUPERBUILD_CMAKE_VAR(LIBKML_DOM_LIBRARY)
-ADD_SUPERBUILD_CMAKE_VAR(LIBKML_ENGINE_LIBRARY)
-ADD_SUPERBUILD_CMAKE_VAR(LIBKML_REGIONATOR_LIBRARY)
-ADD_SUPERBUILD_CMAKE_VAR(LIBKML_XSD_LIBRARY)
-ADD_SUPERBUILD_CMAKE_VAR(LIBKML_MINIZIP_LIBRARY)
-
-ADD_SUPERBUILD_CMAKE_VAR(OpenCV_DIR)
-
-ADD_SUPERBUILD_CMAKE_VAR(LIBSVM_INCLUDE_DIR)
-ADD_SUPERBUILD_CMAKE_VAR(LIBSVM_LIBRARY)
-
-ADD_SUPERBUILD_CMAKE_VAR(CURL_INCLUDE_DIR)
-ADD_SUPERBUILD_CMAKE_VAR(CURL_LIBRARY)
-
-if(MSVC)
- ADD_SUPERBUILD_CMAKE_VAR(JPEG_LIBRARY)
-endif()
-
-ADD_SUPERBUILD_CMAKE_VAR(SWIG_EXECUTABLE)
-
-
-if(SUPERBUILD_IN_OTB_TREE)
- set(OTB_HG_SOURCES DOWNLOAD_COMMAND "")
-else()
- set(OTB_HG_SOURCES
- HG_REPOSITORY "http://hg.orfeo-toolbox.org/OTB"
- HG_TAG tip
- )
-endif()
-
-# issue with APPLE : the DYLD_LIBRARY_PATH is disabled everywhere but it is
-# necessary here
-if(APPLE)
- set(OTB_SB_CMAKE_COMMAND
- env
- ${LDLIBVAR}=${CMAKE_INSTALL_PREFIX}/lib:$ENV{${LDLIBVAR}}
- ${CMAKE_COMMAND})
-else()
- set(OTB_SB_CMAKE_COMMAND ${SB_CMAKE_COMMAND})
-endif()
-
-# forward compilation flags
-set(OTB_SB_C_FLAGS "${SB_PRIOR_INCLUDE_FLAGS} ${CMAKE_C_FLAGS}")
-set(OTB_SB_CXX_FLAGS "${SB_PRIOR_INCLUDE_FLAGS} ${CMAKE_CXX_FLAGS}")
-set(OTB_SB_COMPILATION_FLAGS
- -DCMAKE_BUILD_TYPE:STRING=${CMAKE_BUILD_TYPE}
- -DCMAKE_C_FLAGS:STRING=${OTB_SB_C_FLAGS}
- -DCMAKE_CXX_FLAGS:STRING=${OTB_SB_CXX_FLAGS}
- -DCMAKE_EXE_LINKER_FLAGS:STRING=${CMAKE_EXE_LINKER_FLAGS}
- -DCMAKE_MODULE_LINKER_FLAGS:STRING=${CMAKE_MODULE_LINKER_FLAGS}
- -DCMAKE_SHARED_LINKER_FLAGS:STRING=${CMAKE_SHARED_LINKER_FLAGS}
- -DCMAKE_STATIC_LINKER_FLAGS:STRING=${CMAKE_STATIC_LINKER_FLAGS}
- )
-
-ExternalProject_Add(${proj}
- DEPENDS ${${proj}_DEPENDENCIES}
- PREFIX ${proj}
- ${OTB_HG_SOURCES}
- SOURCE_DIR ${OTB_SB_SRC}
- BINARY_DIR ${OTB_SB_BUILD_DIR}
- INSTALL_DIR ${CMAKE_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${CMAKE_INSTALL_PREFIX}
- ${OTB_SB_COMPILATION_FLAGS}
- -DBUILD_SHARED_LIBS:BOOL=${SB_BUILD_SHARED_LIBS}
- -DBUILD_TESTING:BOOL=${BUILD_TESTING}
- -DBUILD_EXAMPLES:BOOL=${BUILD_EXAMPLES}
- -DCMAKE_PREFIX_PATH:STRING=${CMAKE_INSTALL_PREFIX};${CMAKE_PREFIX_PATH}
- -DOTB_DATA_ROOT:STRING=${OTB_DATA_ROOT}
- -DOTB_USE_6S:BOOL=${OTB_USE_6S}
- -DOTB_USE_CURL:BOOL=${OTB_USE_CURL}
- -DOTB_USE_LIBKML:BOOL=${OTB_USE_LIBKML}
- -DOTB_USE_LIBSVM:BOOL=${OTB_USE_LIBSVM}
- -DOTB_USE_MAPNIK:BOOL=${OTB_USE_MAPNIK}
- -DOTB_USE_MUPARSER:BOOL=${OTB_USE_MUPARSER}
- -DOTB_USE_MUPARSERX:BOOL=${OTB_USE_MUPARSERX}
- -DOTB_USE_OPENCV:BOOL=${OTB_USE_OPENCV}
- -DOTB_USE_OPENJPEG:BOOL=${OTB_USE_OPENJPEG}
- -DOTB_USE_QT4:BOOL=${OTB_USE_QT4}
- -DOTB_USE_SIFTFAST:BOOL=${OTB_USE_SIFTFAST}
- ${OTB_SB_CONFIG}
- ${OTB_SB_LARGEINPUT_CONFIG}
- -DOTB_WRAP_PYTHON:BOOL=${OTB_WRAP_PYTHON}
- -DOTB_WRAP_JAVA:BOOL=${OTB_WRAP_JAVA}
- ${OTB_ADDITIONAL_CACHE}
- CMAKE_COMMAND ${OTB_SB_CMAKE_COMMAND}
- )
-
-
-
-endif()
diff --git a/SuperBuild/CMake/External_pcre.cmake b/SuperBuild/CMake/External_pcre.cmake
deleted file mode 100644
index 03bae6e..0000000
--- a/SuperBuild/CMake/External_pcre.cmake
+++ /dev/null
@@ -1,45 +0,0 @@
-set(proj PCRE)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup pcre...")
-
-if(USE_SYSTEM_PCRE)
- # TODO : FindPCRE.cmake
- # find_package ( PCRE )
- add_custom_target(${proj})
- message(STATUS " Using pcre system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using pcre SuperBuild version")
-
- if(MSVC)
- # TODO ?
- else()
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://sourceforge.net/projects/pcre/files/pcre/8.36/pcre-8.36.tar.gz/download"
- URL_MD5 ff7b4bb14e355f04885cf18ff4125c98
- BINARY_DIR ${PCRE_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CONFIGURE_COMMAND
- ${PCRE_SB_BUILD_DIR}/configure
- --prefix=${SB_INSTALL_PREFIX}
- BUILD_COMMAND $(MAKE)
- INSTALL_COMMAND $(MAKE) install
- DEPENDS ${${proj}_DEPENDENCIES}
- )
-
- ExternalProject_Add_Step(${proj} copy_source
- COMMAND ${CMAKE_COMMAND} -E copy_directory
- ${PCRE_SB_SRC} ${PCRE_SB_BUILD_DIR}
- DEPENDEES patch update
- DEPENDERS configure
- )
-
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_png.cmake b/SuperBuild/CMake/External_png.cmake
deleted file mode 100644
index d5b50b6..0000000
--- a/SuperBuild/CMake/External_png.cmake
+++ /dev/null
@@ -1,66 +0,0 @@
-set(proj PNG)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup libpng...")
-
-if(USE_SYSTEM_PNG)
- find_package ( PNG )
- add_custom_target(${proj})
- message(STATUS " Using libpng system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using libpng SuperBuild version")
-
- # declare dependencies
- set(${proj}_DEPENDENCIES ZLIB)
- INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
- # set proj back to its original value
- set(proj PNG)
-
- ADD_SUPERBUILD_CMAKE_VAR(ZLIB_INCLUDE_DIR)
- ADD_SUPERBUILD_CMAKE_VAR(ZLIB_LIBRARY)
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://sourceforge.net/projects/libpng/files/libpng16/1.6.16/lpng1616.zip/download"
- URL_MD5 c90c9587c9a5c735327fb3f6900f6b03
- BINARY_DIR ${PNG_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- DEPENDS ${${proj}_DEPENDENCIES}
- CMAKE_CACHE_ARGS
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DCMAKE_INSTALL_PREFIX:PATH=${SB_INSTALL_PREFIX}
- -DSKIP_INSTALL_EXECUTABLES:BOOL=OFF
- -DPNG_STATIC:BOOL=OFF
- -DPNG_SHARED:BOOL=ON
- -DPNG_TESTS:BOOL=OFF
- -DCMAKE_PREFIX_PATH:STRING=${SB_INSTALL_PREFIX};${CMAKE_PREFIX_PATH}
- ${PNG_SB_CONFIG}
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- )
- #having -DPNGLIB_NAME:STRING=libpng in CMAKE_CACHE_ARGS doesnt work
- #libpng library built in the name libpng16.lib and other libs (Qt4)
- #reports libpng.lib is not found As Qt is strict on the name of libpng
- #below we copy the libpng16.lib to libpng.lib.
- #modifying CMakeLists.txt in libpng is another way but then whole
- #CMakeLists.txt must be kept in superbuild repository.
- if(MSVC)
- ExternalProject_Add_Step(${proj} duplicate_pnglib
- COMMAND ${CMAKE_COMMAND} -E copy
- ${SB_INSTALL_PREFIX}/lib/libpng16.lib ${SB_INSTALL_PREFIX}/lib/libpng.lib
- DEPENDEES install
- )
- endif()
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libpng.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libpng${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_proj.cmake b/SuperBuild/CMake/External_proj.cmake
deleted file mode 100644
index 8cd7ec1..0000000
--- a/SuperBuild/CMake/External_proj.cmake
+++ /dev/null
@@ -1,88 +0,0 @@
-set(proj PROJ)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup Proj.4 ...")
-
-if(USE_SYSTEM_PROJ)
- # TODO : FindPROJ.cmake
- #find_package ( PROJ )
- add_custom_target(${proj})
- message(STATUS " Using Proj4 system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using Proj4 SuperBuild version")
-
- if(MSVC)
-
- ExternalProject_Add(${proj}_build
- PREFIX ${proj}
- URL "http://download.osgeo.org/proj/proj-4.8.0.tar.gz"
- URL_MD5 d815838c92a29179298c126effbb1537
- SOURCE_DIR ${PROJ_SB_SRC}
- BINARY_DIR ${PROJ_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CONFIGURE_COMMAND ""
- BUILD_COMMAND nmake /f ${PROJ_SB_SRC}/makefile.vc
- INSTALL_COMMAND ${CMAKE_COMMAND} -E copy ${CMAKE_SOURCE_DIR}/patches/${proj}/CMakeLists.txt
- ${CMAKE_BINARY_DIR}/${proj}/_install
- )
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}/_install
- DOWNLOAD_COMMAND ""
- SOURCE_DIR ${proj}/_install
- BINARY_DIR ${PROJ_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DPROJ4_BUILD_DIR:STRING=${PROJ_SB_BUILD_DIR}/src
- DEPENDS ${proj}_build
- CMAKE_COMMAND
- )
-
- ExternalProject_Add_Step(${proj}_build copy_source
- COMMAND ${CMAKE_COMMAND} -E copy_directory
- ${PROJ_SB_SRC} ${PROJ_SB_BUILD_DIR}
- DEPENDEES patch update
- DEPENDERS configure
- )
- else()
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://download.osgeo.org/proj/proj-4.8.0.tar.gz"
- URL_MD5 d815838c92a29179298c126effbb1537
- BINARY_DIR ${PROJ_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CONFIGURE_COMMAND
- # use 'env' because CTest launcher doesn't perform shell interpretation
- ${SB_ENV_CONFIGURE_CMD}
- ${PROJ_SB_BUILD_DIR}/configure
- --prefix=${SB_INSTALL_PREFIX}
- --enable-static=no
- BUILD_COMMAND $(MAKE)
- INSTALL_COMMAND $(MAKE) install
- )
-
- ExternalProject_Add_Step(${proj} copy_source
- COMMAND ${CMAKE_COMMAND} -E copy_directory
- ${PROJ_SB_SRC} ${PROJ_SB_BUILD_DIR}
- DEPENDEES patch update
- DEPENDERS configure
- )
- endif()
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/proj_i.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libproj${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_qt4.cmake b/SuperBuild/CMake/External_qt4.cmake
deleted file mode 100644
index 65ae6d1..0000000
--- a/SuperBuild/CMake/External_qt4.cmake
+++ /dev/null
@@ -1,78 +0,0 @@
-set(proj QT4)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup Qt4 ...")
-
-if(USE_SYSTEM_QT4)
- find_package ( Qt4 )
- add_custom_target(${proj})
- message(STATUS " Using Qt4 system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using Qt4 SuperBuild version")
- if(UNIX)
- message(STATUS " SuperBuild may fail to compile Qt4. If so, you should install it via package manager.")
- endif()
-
- if(NOT DEFINED git_protocol)
- set(git_protocol "git")
- endif()
-
- # declare dependencies
- set(${proj}_DEPENDENCIES ZLIB TIFF PNG SQLITE)
- INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
- # set proj back to its original value
- set(proj QT4)
-
-
- #use system libs always for Qt4 as we build them from source or have already in system
- set(QT4_SB_CONFIG)
-
- STRING(REGEX REPLACE "/$" "" CMAKE_WIN_INSTALL_PREFIX ${SB_INSTALL_PREFIX})
- STRING(REGEX REPLACE "/" "\\\\" CMAKE_WIN_INSTALL_PREFIX ${CMAKE_WIN_INSTALL_PREFIX})
-
- if(MSVC)
- configure_file(${CMAKE_SOURCE_DIR}/patches/${proj}/configure_qt4.bat.in
- ${CMAKE_BINARY_DIR}/configure_qt4.bat
- @ONLY)
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://download.qt-project.org/official_releases/qt/4.8/4.8.6/qt-everywhere-opensource-src-4.8.6.tar.gz"
- URL_MD5 2edbe4d6c2eff33ef91732602f3518eb
- BINARY_DIR ${QT4_SB_SRC}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CONFIGURE_COMMAND
- configure_qt4.bat
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_BINARY_DIR}/configure_qt4.bat
- ${QT4_SB_SRC}
- DEPENDS ${${proj}_DEPENDENCIES}
- )
- else()
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://download.qt-project.org/official_releases/qt/4.8/4.8.6/qt-everywhere-opensource-src-4.8.6.tar.gz"
- URL_MD5 2edbe4d6c2eff33ef91732602f3518eb
- BINARY_DIR ${QT4_SB_SRC}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CONFIGURE_COMMAND
- ${QT4_SB_SRC}/configure -prefix ${SB_INSTALL_PREFIX} -opensource -confirm-license -release -shared -nomake demos -nomake examples -nomake tools -no-phonon-backend -no-phonon -no-script -no-scripttools -no-multimedia -no-webkit -qt-sql-sqlite -plugin-sql-sqlite -no-nis -no-qt3support -system-zlib -system-libpng -system-libtiff -system-libjpeg -system-sqlite -L ${SB_INSTALL_PREFIX}/lib -I ${SB_INSTALL_PREFIX}/include
- DEPENDS ${${proj}_DEPENDENCIES}
- )
- endif()
-
- #copying Qt4 to have out-of-source build takes too much disk space
- # ExternalProject_Add_Step(${proj} copy_source
- # COMMAND ${CMAKE_COMMAND} -E copy_directory
- # ${QT4_SB_SRC} ${QT4_SB_BUILD_DIR}
- # DEPENDEES patch update
- # DEPENDERS configure
- # )
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_sqlite.cmake b/SuperBuild/CMake/External_sqlite.cmake
deleted file mode 100644
index e0ac9ba..0000000
--- a/SuperBuild/CMake/External_sqlite.cmake
+++ /dev/null
@@ -1,41 +0,0 @@
-set(proj SQLITE)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup SQLite...")
-
-if(USE_SYSTEM_SQLITE)
- # TODO
- #find_package ( SQLite )
- add_custom_target(${proj})
- message(STATUS " Using SQLite system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using SQLite SuperBuild version")
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://www.sqlite.org/2015/sqlite-amalgamation-3080801.zip"
- URL_MD5 b1cbcbd710bdfd762dc169f1676053b5
- SOURCE_DIR ${SQLITE_SB_SRC}
- BINARY_DIR ${SQLITE_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy_directory ${CMAKE_SOURCE_DIR}/patches/${proj} ${SQLITE_SB_SRC}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DBUILD_SHARED_LIBS:BOOL=ON
- CMAKE_COMMAND
- )
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/sqlite3.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libsqlite3${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_swig.cmake b/SuperBuild/CMake/External_swig.cmake
deleted file mode 100644
index ec2faec..0000000
--- a/SuperBuild/CMake/External_swig.cmake
+++ /dev/null
@@ -1,91 +0,0 @@
-set(proj SWIG)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup swig...")
-
-if(USE_SYSTEM_SWIG)
- find_package ( SWIG )
- add_custom_target(${proj})
- message(STATUS " Using swig system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using swig SuperBuild version")
-
- set(PythonInterp_FIND_VERSION 2.7)
- find_package(PythonInterp)
- if(PYTHONINTERP_FOUND)
- set(SWIG_SB_PYTHON_CONFIG "--with-python=${PYTHON_EXECUTABLE}")
- else()
- set(SWIG_SB_PYTHON_CONFIG)
- message(WARNING " No suitable python interpreter was found !")
- endif()
-
- find_package(Java)
- if(JAVA_FOUND)
- set(SWIG_SB_JAVA_CONFIG "--with-java=${Java_JAVA_EXECUTABLE}")
- else()
- set(SWIG_SB_JAVA_CONFIG)
- message(WARNING " No Java executable was found !")
- endif()
-
- if(MSVC)
- # Use pre-built swig executable (no linking is required, no install done)
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://sourceforge.net/projects/swig/files/swigwin/swigwin-3.0.5/swigwin-3.0.5.zip/download"
- URL_MD5 fd2e050f29e2a00b2348f5f7d3476490
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CONFIGURE_COMMAND ""
- BUILD_COMMAND ""
- INSTALL_COMMAND ""
- DEPENDS ${${proj}_DEPENDENCIES}
- )
-
- else()
- # declare dependencies
- set(${proj}_DEPENDENCIES PCRE BOOST)
- INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
- # set proj back to its original value
- set(proj SWIG)
-
- ADD_SUPERBUILD_CONFIGURE_VAR(PCRE_ROOT --with-pcre-prefix)
- ADD_SUPERBUILD_CONFIGURE_VAR(BOOST_ROOT --with-boost)
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://sourceforge.net/projects/swig/files/swig/swig-3.0.5/swig-3.0.5.tar.gz/download"
- URL_MD5 dcb9638324461b9baba8e044fe59031d
- BINARY_DIR ${SWIG_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CONFIGURE_COMMAND
- ${SWIG_SB_BUILD_DIR}/configure
- --prefix=${SB_INSTALL_PREFIX}
- ${SWIG_SB_PYTHON_CONFIG}
- ${SWIG_SB_JAVA_CONFIG}
- ${SWIG_SB_CONFIG}
- BUILD_COMMAND $(MAKE)
- INSTALL_COMMAND $(MAKE) install
- DEPENDS ${${proj}_DEPENDENCIES}
- )
-
- ExternalProject_Add_Step(${proj} copy_source
- COMMAND ${CMAKE_COMMAND} -E copy_directory
- ${SWIG_SB_SRC} ${SWIG_SB_BUILD_DIR}
- DEPENDEES patch update
- DEPENDERS configure
- )
-
- endif()
-
- if(WIN32)
- set(_SB_SWIG_EXECUTABLE ${CMAKE_BINARY_DIR}/SWIG/src/SWIG/swig.exe)
- elseif(UNIX)
- set(_SB_SWIG_EXECUTABLE ${SB_INSTALL_PREFIX}/bin/swig)
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_tiff.cmake b/SuperBuild/CMake/External_tiff.cmake
deleted file mode 100644
index 0418899..0000000
--- a/SuperBuild/CMake/External_tiff.cmake
+++ /dev/null
@@ -1,102 +0,0 @@
-set(proj TIFF)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup libtiff...")
-
-if(USE_SYSTEM_TIFF)
- find_package ( TIFF )
- add_custom_target(${proj})
- message(STATUS " Using libtiff system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using libtiff SuperBuild version")
-
- # declare dependencies
- set(${proj}_DEPENDENCIES ZLIB)
- if(MSVC)
- list(APPEND ${proj}_DEPENDENCIES JPEG)
- endif()
- INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
- # set proj back to its original value
- set(proj TIFF)
-
- ADD_SUPERBUILD_CONFIGURE_VAR(ZLIB_INCLUDE_DIR --with-zlib-include-dir)
-
- if(MSVC)
- #is JPEG required for linux also?
-
- STRING(REGEX REPLACE "/$" "" CMAKE_WIN_INSTALL_PREFIX ${SB_INSTALL_PREFIX})
- STRING(REGEX REPLACE "/" "\\\\" CMAKE_WIN_INSTALL_PREFIX ${CMAKE_WIN_INSTALL_PREFIX})
- configure_file(${CMAKE_SOURCE_DIR}/patches/${proj}/nmake.opt ${CMAKE_BINARY_DIR}/nmake_libtiff_extra.opt)
-
- ExternalProject_Add(${proj}_build
- PREFIX ${proj}
- URL "http://download.osgeo.org/libtiff/tiff-4.0.3.tar.gz"
- URL_MD5 051c1068e6a0627f461948c365290410
- SOURCE_DIR ${TIFF_SB_SRC}
- BINARY_DIR ${TIFF_SB_SRC}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- DEPENDS ${${proj}_DEPENDENCIES}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy ${CMAKE_BINARY_DIR}/nmake_libtiff_extra.opt ${TIFF_SB_SRC}/nmake.opt
- CONFIGURE_COMMAND ""
- BUILD_COMMAND nmake /f ${TIFF_SB_SRC}/Makefile.vc
- INSTALL_COMMAND ${CMAKE_COMMAND} -E copy ${CMAKE_SOURCE_DIR}/patches/${proj}/CMakeLists.txt
- ${CMAKE_BINARY_DIR}/${proj}/_install
- )
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}/_install
- DOWNLOAD_COMMAND ""
- SOURCE_DIR ${proj}/_install
- BINARY_DIR ${TIFF_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- -DTIFF_BUILD_DIR:STRING=${TIFF_SB_SRC}/libtiff
- DEPENDS ${proj}_build
- CMAKE_COMMAND
- )
-
- else()
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://download.osgeo.org/libtiff/tiff-4.0.3.tar.gz"
- URL_MD5 051c1068e6a0627f461948c365290410
- BINARY_DIR ${TIFF_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CONFIGURE_COMMAND
- # use 'env' because CTest launcher doesn't perform shell interpretation
- ${SB_ENV_CONFIGURE_CMD}
- ${TIFF_SB_BUILD_DIR}/configure
- --prefix=${SB_INSTALL_PREFIX}
- --enable-static=no
- ${TIFF_SB_CONFIG}
- BUILD_COMMAND $(MAKE)
- INSTALL_COMMAND $(MAKE) install
- DEPENDS ${${proj}_DEPENDENCIES}
- )
-
- ExternalProject_Add_Step(${proj} copy_source
- COMMAND ${CMAKE_COMMAND} -E copy_directory
- ${TIFF_SB_SRC} ${TIFF_SB_BUILD_DIR}
- DEPENDEES patch update
- DEPENDERS configure
- )
-
- endif()
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libtiff_i.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libtiff${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_tinyxml.cmake b/SuperBuild/CMake/External_tinyxml.cmake
deleted file mode 100644
index 83fe196..0000000
--- a/SuperBuild/CMake/External_tinyxml.cmake
+++ /dev/null
@@ -1,41 +0,0 @@
-set(proj TINYXML)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup TinyXML ...")
-
-if(USE_SYSTEM_TINYXML)
- find_package ( TinyXML )
- add_custom_target(${proj})
- message(STATUS " Using TinyXML system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using TinyXML SuperBuild version")
-
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://sourceforge.net/projects/tinyxml/files/tinyxml/2.6.2/tinyxml_2_6_2.tar.gz/download"
- URL_MD5 c1b864c96804a10526540c664ade67f0
- BINARY_DIR ${TINYXML_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:STRING=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- CMAKE_COMMAND ${SB_CMAKE_COMMAND}
- DEPENDS ${${proj}_DEPENDENCIES}
- PATCH_COMMAND ${CMAKE_COMMAND} -E copy
- ${CMAKE_SOURCE_DIR}/patches/${proj}/CMakeLists.txt
- ${TINYXML_SB_SRC}
- )
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/tinyXML.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libtinyxml${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-endif()
diff --git a/SuperBuild/CMake/External_zlib.cmake b/SuperBuild/CMake/External_zlib.cmake
deleted file mode 100644
index 391e6d3..0000000
--- a/SuperBuild/CMake/External_zlib.cmake
+++ /dev/null
@@ -1,53 +0,0 @@
-set(proj ZLIB)
-
-if(NOT __EXTERNAL_${proj}__)
-set(__EXTERNAL_${proj}__ 1)
-
-message(STATUS "Setup Zlib ...")
-
-if(USE_SYSTEM_ZLIB)
- find_package(ZLIB)
- add_custom_target(${proj})
- message(STATUS " Using Zlib system version")
-else()
- SETUP_SUPERBUILD(PROJECT ${proj})
- message(STATUS " Using zlib SuperBuild version")
- # declare dependencies
-
- INCLUDE_SUPERBUILD_DEPENDENCIES(${${proj}_DEPENDENCIES})
- # set proj back to its original value
- set(proj ZLIB)
-
- # Try official release 1.2.8
- ExternalProject_Add(${proj}
- PREFIX ${proj}
- URL "http://sourceforge.net/projects/libpng/files/zlib/1.2.8/zlib-1.2.8.tar.gz/download"
- URL_MD5 44d667c142d7cda120332623eab69f40
- BINARY_DIR ${ZLIB_SB_BUILD_DIR}
- INSTALL_DIR ${SB_INSTALL_PREFIX}
- DOWNLOAD_DIR ${DOWNLOAD_LOCATION}
- CMAKE_CACHE_ARGS
- -DCMAKE_INSTALL_PREFIX:PATH=${SB_INSTALL_PREFIX}
- -DCMAKE_BUILD_TYPE:STRING=Release
- #-DCMAKE_CXX_COMPILER:FILEPATH=${CMAKE_CXX_COMPILER}
- #-DCMAKE_C_COMPILER:FILEPATH=${CMAKE_C_COMPILER}
- -DBUILD_SHARED_LIBS:BOOL=ON
- )
-
- if(MSVC)
- ExternalProject_Add_Step(${proj} msvc_copy_hell
- COMMAND ${CMAKE_COMMAND} -E copy ${ZLIB_SB_BUILD_DIR}/zlib.lib ${SB_INSTALL_PREFIX}/lib/zdll.lib
- DEPENDEES install
- )
- endif()
-
- set(_SB_${proj}_INCLUDE_DIR ${SB_INSTALL_PREFIX}/include)
- if(WIN32)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/zdll.lib)
- elseif(UNIX)
- set(_SB_${proj}_LIBRARY ${SB_INSTALL_PREFIX}/lib/libz${CMAKE_SHARED_LIBRARY_SUFFIX})
- endif()
-
-endif()
-
-endif()
diff --git a/SuperBuild/CMake/SuperBuild_Macro.cmake b/SuperBuild/CMake/SuperBuild_Macro.cmake
deleted file mode 100644
index 1c2d112..0000000
--- a/SuperBuild/CMake/SuperBuild_Macro.cmake
+++ /dev/null
@@ -1,102 +0,0 @@
-include(CMakeParseArguments)
-
-# Macro SETUP_SYSTEM_LIBRARY : defines USE_SYSTEM_XXX option, initialize
-# internal variables
-macro(SETUP_SYSTEM_LIBRARY)
- cmake_parse_arguments(NEW_SYSLIB "" "PROJECT;DEFAULT" "" ${ARGN})
- option(USE_SYSTEM_${NEW_SYSLIB_PROJECT}
- " Use a system build of ${NEW_SYSLIB_PROJECT}."
- ${NEW_SYSLIB_DEFAULT}
- )
- mark_as_advanced(USE_SYSTEM_${NEW_SYSLIB_PROJECT})
- set(SYSTEM_${NEW_SYSLIB_PROJECT}_CMAKE_CACHE)
-endmacro(SETUP_SYSTEM_LIBRARY)
-
-# Macro ADD_SYSTEM_LOCATION : define variables to specific system locations
-macro(ADD_SYSTEM_LOCATION)
- cmake_parse_arguments(NEW_SYSLOC "" "PROJECT" "VARIABLES" ${ARGN})
- foreach(var ${NEW_SYSLOC_VARIABLES})
- set(${var} "" CACHE FILEPATH "Set a custom system location")
- mark_as_advanced(${var})
- if(USE_SYSTEM_${NEW_SYSLOC_PROJECT})
- set_property(CACHE ${var} PROPERTY TYPE FILEPATH)
- else()
- set_property(CACHE ${var} PROPERTY TYPE INTERNAL)
- endif()
- # add variable to cache if not empty
- if(NOT ${var} STREQUAL "")
- # additional argument for CMake cache
- set(ITEM_FOR_CMAKE_CACHE "-D${var}:STRING=${${var}}")
- list(APPEND SYSTEM_${NEW_SYSLOC_PROJECT}_CMAKE_CACHE ${ITEM_FOR_CMAKE_CACHE})
- endif()
- endforeach(var)
-endmacro(ADD_SYSTEM_LOCATION)
-
-# Macro ADD_SYSTEM_PREFIX : defines a system prefix for the given project
-# - creates a cache variable SYSTEM_${PROJECT}_PREFIX
-# - if CMAKE_ALIAS is defined, it is used to add an entry in cache
-# -D${CMAKE_ALIAS}:PATH=${SYSTEM_${PROJECT}_PREFIX}
-macro(ADD_SYSTEM_PREFIX)
- cmake_parse_arguments(NEW_SYSPREFIX "" "PROJECT;CMAKE_ALIAS" "" ${ARGN})
- set(SYSTEM_${NEW_SYSPREFIX_PROJECT}_PREFIX "" CACHE PATH "Set a custom system prefix")
- mark_as_advanced(SYSTEM_${NEW_SYSPREFIX_PROJECT}_PREFIX)
- if(USE_SYSTEM_${NEW_SYSPREFIX_PROJECT})
- set_property(CACHE SYSTEM_${NEW_SYSPREFIX_PROJECT}_PREFIX PROPERTY TYPE PATH)
- else()
- set_property(CACHE SYSTEM_${NEW_SYSPREFIX_PROJECT}_PREFIX PROPERTY TYPE INTERNAL)
- endif()
- if(NOT ${NEW_SYSPREFIX_CMAKE_ALIAS} STREQUAL "")
- if(NOT SYSTEM_${NEW_SYSPREFIX_PROJECT}_PREFIX STREQUAL "")
- set(ITEM_FOR_CMAKE_CACHE
- "-D${NEW_SYSPREFIX_CMAKE_ALIAS}:PATH=${SYSTEM_${NEW_SYSPREFIX_PROJECT}_PREFIX}")
- list(APPEND SYSTEM_${NEW_SYSLOC_PROJECT}_CMAKE_CACHE ${ITEM_FOR_CMAKE_CACHE})
- endif()
- endif()
-endmacro(ADD_SYSTEM_PREFIX)
-
-# Macro SETUP_SUPERBUILD
-# Initialize usefull variables to build a superbuild project
-macro(SETUP_SUPERBUILD)
- cmake_parse_arguments(NEW_SB "" "PROJECT" "" ${ARGN})
- set(${NEW_SB_PROJECT}_DEPENDENCIES)
- set(${NEW_SB_PROJECT}_SB_BUILD_DIR ${CMAKE_BINARY_DIR}/${NEW_SB_PROJECT}/build)
- set(${NEW_SB_PROJECT}_SB_SRC ${CMAKE_BINARY_DIR}/${NEW_SB_PROJECT}/src/${NEW_SB_PROJECT})
- set(${NEW_SB_PROJECT}_SB_CONFIG)
- set(_SB_${NEW_SB_PROJECT}_ROOT ${SB_INSTALL_PREFIX})
-endmacro(SETUP_SUPERBUILD)
-
-# Macro to include dependencies
-macro(INCLUDE_SUPERBUILD_DEPENDENCIES)
- foreach(dep ${ARGV})
- string(TOLOWER ${dep} dep_lower)
- include(External_${dep_lower})
- endforeach()
-endmacro(INCLUDE_SUPERBUILD_DEPENDENCIES)
-
-# Macro to add a cmake variable to ${proj}_SB_CONFIG (var type: string)
-macro(ADD_SUPERBUILD_CMAKE_VAR var)
- if(DEFINED _SB_${var})
- list(APPEND ${proj}_SB_CONFIG
- -D${var}:STRING=${_SB_${var}}
- )
- elseif(DEFINED ${var})
- list(APPEND ${proj}_SB_CONFIG
- -D${var}:STRING=${${var}}
- )
- endif()
-endmacro(ADD_SUPERBUILD_CMAKE_VAR)
-
-# Macro to add a configure variable to ${proj}_SB_CONFIG
-# optional 3rd argument : suffix to the variable
-macro(ADD_SUPERBUILD_CONFIGURE_VAR var name)
- set(suffix "${ARGV2}")
- if(DEFINED _SB_${var})
- list(APPEND ${proj}_SB_CONFIG
- ${name}=${_SB_${var}}${suffix}
- )
- elseif(DEFINED ${var})
- list(APPEND ${proj}_SB_CONFIG
- ${name}=${${var}}${suffix}
- )
- endif()
-endmacro(ADD_SUPERBUILD_CONFIGURE_VAR)
diff --git a/SuperBuild/CMake/SystemCheckup.cmake b/SuperBuild/CMake/SystemCheckup.cmake
deleted file mode 100644
index 7b7acb2..0000000
--- a/SuperBuild/CMake/SystemCheckup.cmake
+++ /dev/null
@@ -1,195 +0,0 @@
-# Script to analyse the OTB dependencies already present
-
-message(STATUS "|----------------------------------------------------------")
-message(STATUS "|----------------- System checkup results -----------------")
-message(STATUS "| The following libraries have been found on your system.")
-message(STATUS "| You can choose to use them (instead of superbuild versions)")
-message(STATUS "| by setting the corresponding option USE_SYSTEM_XXX.")
-
-# try to hide the Superbuild install dir, CMAKE_SYSTEM_PREFIX_PATH
-# contains the CMAKE_INSTALL_PREFIX (-> superbuild libs)
-list(REMOVE_ITEM CMAKE_SYSTEM_PREFIX_PATH ${CMAKE_INSTALL_PREFIX})
-
-# macro to encapsulate a find_package(XXX QUIET)
-# output variables are :
-# _SB_CHECKUP_XXX_FOUND : lib is found ?
-# _SB_CHECKUP_XXX_VERSION : version found
-# _SB_CHECKUP_XXX_NAME : name found
-macro(SB_CHECKUP_FIND_PACKAGE var)
- find_package(${var} QUIET)
- string(TOUPPER ${var} _uppervar)
- set(_SB_CHECKUP_${_uppervar}_VERSION NOTFOUND)
- set(_SB_CHECKUP_${_uppervar}_FOUND FALSE)
- set(_SB_CHECKUP_${_uppervar}_NAME NOTFOUND)
- if(${_uppervar}_FOUND)
- set(_SB_CHECKUP_${_uppervar}_FOUND TRUE)
- set(_SB_CHECKUP_${_uppervar}_NAME ${_uppervar})
- elseif(${var}_FOUND)
- set(_SB_CHECKUP_${_uppervar}_FOUND TRUE)
- set(_SB_CHECKUP_${_uppervar}_NAME ${var})
- endif()
-
- if(_SB_CHECKUP_${_uppervar}_FOUND)
- set(_var_name ${_SB_CHECKUP_${_uppervar}_NAME})
- message(STATUS "|----------------------------------------------------------")
- message(STATUS "|${var} found")
- if(DEFINED ${_var_name}_VERSION)
- set(_SB_CHECKUP_${_uppervar}_VERSION ${${_var_name}_VERSION})
- elseif(DEFINED ${_var_name}_VERSION_STRING)
- set(_SB_CHECKUP_${_uppervar}_VERSION ${${_var_name}_VERSION_STRING})
- elseif(DEFINED ${_var_name}_VERSION_MAJOR AND DEFINED ${_var_name}_VERSION_MINOR AND DEFINED ${_var_name}_VERSION_PATCH)
- set(_SB_CHECKUP_${_uppervar}_VERSION "${${_var_name}_VERSION_MAJOR}.${${_var_name}_VERSION_MINOR}.${${_var_name}_VERSION_PATCH}")
- elseif(DEFINED ${_var_name}_MAJOR_VERSION AND DEFINED ${_var_name}_MINOR_VERSION AND DEFINED ${_var_name}_BUILD_VERSION)
- set(_SB_CHECKUP_${_uppervar}_VERSION "${${_var_name}_MAJOR_VERSION}.${${_var_name}_MINOR_VERSION}.${${_var_name}_BUILD_VERSION}")
- endif()
-
- # fix incomplete version numbers -> add trailing '.0'
- if(_SB_CHECKUP_${_uppervar}_VERSION MATCHES "^[0-9]+\\.[0-9]+\$")
- set(_SB_CHECKUP_${_uppervar}_VERSION "${_SB_CHECKUP_${_uppervar}_VERSION}.0")
- endif()
- # fix version numbers with 4 components -> keep first 3 components
- if(_SB_CHECKUP_${_uppervar}_VERSION MATCHES "^[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\$")
- set(_tmp_ver_num_ ${_SB_CHECKUP_${_uppervar}_VERSION})
- string(REGEX REPLACE "^([0-9]+\\.[0-9]+\\.[0-9]+)\\.[0-9]+\$" "\\1"
- _SB_CHECKUP_${_uppervar}_VERSION
- ${_tmp_ver_num_})
- endif()
- # display version number
- if(_SB_CHECKUP_${_uppervar}_VERSION MATCHES "^[0-9]+\\.[0-9]+\\.[0-9]+\$")
- message(STATUS "| version = ${_SB_CHECKUP_${_uppervar}_VERSION}")
- endif()
-
- endif()
-endmacro(SB_CHECKUP_FIND_PACKAGE)
-
-macro(SB_CHECKUP_SPLIT_VERSION var)
- string(TOUPPER ${var} _upperlib)
- if(_SB_CHECKUP_${_upperlib}_VERSION)
- string(REGEX REPLACE "([0-9]+)\\.([0-9]+)\\.([0-9]+)" "\\1"
- _SB_CHECKUP_${_upperlib}_VERSION_MAJOR
- ${_SB_CHECKUP_${_upperlib}_VERSION})
- string(REGEX REPLACE "([0-9]+)\\.([0-9]+)\\.([0-9]+)" "\\2"
- _SB_CHECKUP_${_upperlib}_VERSION_MINOR
- ${_SB_CHECKUP_${_upperlib}_VERSION})
- string(REGEX REPLACE "([0-9]+)\\.([0-9]+)\\.([0-9]+)" "\\3"
- _SB_CHECKUP_${_upperlib}_VERSION_PATCH
- ${_SB_CHECKUP_${_upperlib}_VERSION})
- math(EXPR _SB_CHECKUP_${_upperlib}_VERSION_NUMBER
- "((${_SB_CHECKUP_${_upperlib}_VERSION_MAJOR})*100+${_SB_CHECKUP_${_upperlib}_VERSION_MINOR})*100+${_SB_CHECKUP_${_upperlib}_VERSION_PATCH}")
- endif()
-endmacro(SB_CHECKUP_SPLIT_VERSION)
-
-macro(SB_CHECKUP_FIND_VERSIONS lib header major_name minor_name patch_name)
- string(TOUPPER ${lib} _upperlib)
- if(_SB_CHECKUP_${_upperlib}_FOUND)
- foreach(inc_path ${${_upperlib}_INCLUDE_DIRS})
- if(EXISTS "${inc_path}/${header}")
- unset(_header_content)
- set(_major_regex ".*# *define +${major_name} +([0-9]+).*")
- set(_minor_regex ".*# *define +${minor_name} +([0-9]+).*")
- set(_patch_regex ".*# *define +${patch_name} +([0-9]+).*")
- file(READ "${inc_path}/${header}" _header_content)
- string(REGEX REPLACE ${_major_regex} "\\1"
- _SB_CHECKUP_${_upperlib}_VERSION_MAJOR
- ${_header_content})
- string(REGEX REPLACE ${_minor_regex} "\\1"
- _SB_CHECKUP_${_upperlib}_VERSION_MINOR
- ${_header_content})
- string(REGEX REPLACE ${_patch_regex} "\\1"
- _SB_CHECKUP_${_upperlib}_VERSION_PATCH
- ${_header_content})
- math(EXPR _SB_CHECKUP_${_upperlib}_VERSION_NUMBER
- "((${_SB_CHECKUP_${_upperlib}_VERSION_MAJOR})*100+${_SB_CHECKUP_${_upperlib}_VERSION_MINOR})*100+${_SB_CHECKUP_${_upperlib}_VERSION_PATCH}")
- set(_SB_CHECKUP_${_upperlib}_VERSION "${_SB_CHECKUP_${_upperlib}_VERSION_MAJOR}.${_SB_CHECKUP_${_upperlib}_VERSION_MINOR}.${_SB_CHECKUP_${_upperlib}_VERSION_PATCH}")
- message(STATUS "| version = ${_SB_CHECKUP_${_upperlib}_VERSION}")
- break()
- endif()
- endforeach()
- endif()
-endmacro(SB_CHECKUP_FIND_VERSIONS)
-
-# Boost
-SB_CHECKUP_FIND_PACKAGE(Boost)
-if(_SB_CHECKUP_BOOST_VERSION MATCHES "^[0-9]+\$")
- set(_SB_CHECKUP_BOOST_VERSION_NUMBER ${_SB_CHECKUP_BOOST_VERSION})
- math(EXPR _SB_CHECKUP_BOOST_VERSION_PATCH "(${_SB_CHECKUP_BOOST_VERSION_NUMBER})%100")
- math(EXPR _SB_CHECKUP_BOOST_VERSION_MINOR "((${_SB_CHECKUP_BOOST_VERSION_NUMBER})/100)%1000")
- math(EXPR _SB_CHECKUP_BOOST_VERSION_MAJOR "(${_SB_CHECKUP_BOOST_VERSION_NUMBER})/100000")
- set(_SB_CHECKUP_BOOST_VERSION "${_SB_CHECKUP_BOOST_VERSION_MAJOR}.${_SB_CHECKUP_BOOST_VERSION_MINOR}.${_SB_CHECKUP_BOOST_VERSION_PATCH}")
- message(STATUS "| version = ${_SB_CHECKUP_BOOST_VERSION}")
-endif()
-
-# Curl
-SB_CHECKUP_FIND_PACKAGE(CURL)
-SB_CHECKUP_SPLIT_VERSION(CURL)
-
-# GDAL
-SB_CHECKUP_FIND_PACKAGE(GDAL)
-if(NOT _SB_CHECKUP_GDAL_VERSION)
- SB_CHECKUP_FIND_VERSIONS(GDAL
- gdal_version.h
- GDAL_VERSION_MAJOR
- GDAL_VERSION_MINOR
- GDAL_VERSION_REV)
-endif()
-
-# GeoTIFF
-SB_CHECKUP_FIND_PACKAGE(GeoTIFF)
-
-# ITK
-SB_CHECKUP_FIND_PACKAGE(ITK)
-
-# libkml
-SB_CHECKUP_FIND_PACKAGE(LibKML)
-if(NOT _SB_CHECKUP_LIBKML_VERSION)
- SB_CHECKUP_FIND_VERSIONS(LibKML
- kml/base/version.h
- LIBKML_MAJOR_VERSION
- LIBKML_MINOR_VERSION
- LIBKML_MICRO_VERSION)
-endif()
-
-# LibSVM
-SB_CHECKUP_FIND_PACKAGE(LibSVM)
-SB_CHECKUP_SPLIT_VERSION(LibSVM)
-
-# muParser
-SB_CHECKUP_FIND_PACKAGE(MuParser)
-
-# muParserX
-SB_CHECKUP_FIND_PACKAGE(MuParserX)
-
-# OpenCV
-SB_CHECKUP_FIND_PACKAGE(OpenCV)
-SB_CHECKUP_SPLIT_VERSION(OpenCV)
-
-# OpenJPEG
-SB_CHECKUP_FIND_PACKAGE(OpenJPEG)
-if(NOT _SB_CHECKUP_OPENJPEG_VERSION)
- SB_CHECKUP_FIND_VERSIONS(OpenJPEG
- opj_config.h
- OPJ_VERSION_MAJOR
- OPJ_VERSION_MINOR
- OPJ_VERSION_BUILD)
-endif()
-
-# OpenThreads
-SB_CHECKUP_FIND_PACKAGE(OpenThreads)
-
-# OSSIM
-SB_CHECKUP_FIND_PACKAGE(Ossim)
-
-# Qt4
-SB_CHECKUP_FIND_PACKAGE(Qt4)
-if(_SB_CHECKUP_QT4_FOUND)
- set(_SB_CHECKUP_QT4_VERSION "${QT_VERSION_MAJOR}.${QT_VERSION_MINOR}.${QT_VERSION_PATCH}")
- message(STATUS "| version = ${_SB_CHECKUP_QT4_VERSION}")
- SB_CHECKUP_SPLIT_VERSION(Qt4)
-endif()
-
-# TinyXML
-SB_CHECKUP_FIND_PACKAGE(TinyXML)
-
-message(STATUS "|----------------------------------------------------------")
-# restore real install prefix
-list(APPEND CMAKE_SYSTEM_PREFIX_PATH ${CMAKE_INSTALL_PREFIX})
diff --git a/SuperBuild/CMakeLists.txt b/SuperBuild/CMakeLists.txt
deleted file mode 100644
index ec67de0..0000000
--- a/SuperBuild/CMakeLists.txt
+++ /dev/null
@@ -1,146 +0,0 @@
-cmake_minimum_required(VERSION 2.8.11)
-
-project(OTB-SuperBuild)
-
-# Path to additional CMake modules
-#MESSAGE(INFO "${CMAKE_SOURCE_DIR}")
-set(CMAKE_MODULE_PATH
- ${CMAKE_SOURCE_DIR}/CMake
- ${CMAKE_SOURCE_DIR}/../CMake
- ${CMAKE_MODULE_PATH})
-
-include(ExternalProject)
-include(CTest)
-include(SuperBuild_Macro)
-
-# Setup location where source tar-balls are downloaded
-#set (install_location "${CMAKE_CURRENT_BINARY_DIR}/install")
-set (DOWNLOAD_LOCATION "${CMAKE_CURRENT_BINARY_DIR}/Downloads"
- CACHE PATH "Location where source tar-balls are (to be) downloaded.")
-mark_as_advanced(DOWNLOAD_LOCATION)
-
-# General options
-option(ENABLE_OTB_LARGE_INPUTS " Use the OTB-LargeInputs for testing" OFF)
-
-# check if superbuild is in OTB source or in stand-alone mode
-set(SUPERBUILD_IN_OTB_TREE OFF)
-if(EXISTS "${CMAKE_SOURCE_DIR}/../CMakeLists.txt")
- file(STRINGS "${CMAKE_SOURCE_DIR}/../CMakeLists.txt" _CONTENT_CMAKELIST
- REGEX "project\\\(OTB\\\)")
- if(NOT "${_CONTENT_CMAKELIST}" STREQUAL "")
- set(SUPERBUILD_IN_OTB_TREE ON)
- endif()
-endif()
-message(STATUS "Check if superbuild is in OTB tree : ${SUPERBUILD_IN_OTB_TREE}")
-
-set(SB_INSTALL_PREFIX ${CMAKE_INSTALL_PREFIX})
-
-set(SB_BUILD_SHARED_LIBS ON)
-
-# Check if CMAKE_INSTALL_PREFIX is set by default
-if(WIN32)
- if(CMAKE_INSTALL_PREFIX STREQUAL "C:/Program Files (x86)/OTB-SuperBuild"
- OR CMAKE_INSTALL_PREFIX STREQUAL "C:/Program Files/OTB-SuperBuild")
- message(WARNING
- "The CMAKE_INSTALL_PREFIX variable seems to be set by default : "
- "${CMAKE_INSTALL_PREFIX}. Be aware that this directory will be used"
- " during the build (even without calling the install target). Please "
- "make sure you want to use this directory as the SuperBuild output.")
- endif()
-elseif(UNIX)
- if(CMAKE_INSTALL_PREFIX STREQUAL "/usr/local")
- message(WARNING
- "The CMAKE_INSTALL_PREFIX variable seems to be set by default : "
- "${CMAKE_INSTALL_PREFIX}. Be aware that this directory will be used"
- " during the build (even without calling the install target). Please "
- "make sure you want to use this directory as the SuperBuild output.")
- endif()
-endif()
-
-
-if(WIN32)
- if(MSVC)
- set(SB_CMAKE_COMMAND ${CMAKE_COMMAND})
- set(SB_BUILD_SHARED_LIBS OFF)
- set(SB_PRIOR_INCLUDE_FLAGS "/I ${CMAKE_INSTALL_PREFIX}/include")
- endif()
-else(UNIX)
- if(APPLE)
- set(LDLIBVAR DYLD_LIBRARY_PATH)
- set(SB_ENV_CONFIGURE_CMD)
- set(SB_CMAKE_COMMAND ${CMAKE_COMMAND})
- else()
- set(LDLIBVAR LD_LIBRARY_PATH)
- set(SB_ENV_CONFIGURE_CMD env ${LDLIBVAR}=${SB_INSTALL_PREFIX}/lib:$ENV{${LDLIBVAR}} CC=${CMAKE_C_COMPILER} CXX=${CMAKE_CXX_COMPILER})
- set(SB_CMAKE_COMMAND env ${LDLIBVAR}=${CMAKE_INSTALL_PREFIX}/lib:$ENV{${LDLIBVAR}} CC=${CMAKE_C_COMPILER} CXX=${CMAKE_CXX_COMPILER} ${CMAKE_COMMAND})
- message(STATUS "Environment setup for Configure : ${SB_ENV_CONFIGURE_CMD}")
- endif()
- set(SB_PRIOR_INCLUDE_FLAGS "-I${CMAKE_INSTALL_PREFIX}/include")
-endif()
-
-# Call external projects
-
-#TODO: enforce check from ITK on directory length
-# Setup third parties
-SETUP_SYSTEM_LIBRARY(PROJECT ZLIB DEFAULT ON)
-SETUP_SYSTEM_LIBRARY(PROJECT JPEG DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT EXPAT DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT PNG DEFAULT ON)
-SETUP_SYSTEM_LIBRARY(PROJECT TIFF DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT PROJ DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT GEOTIFF DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT SQLITE DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT GEOS DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT OPENJPEG DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT BOOST DEFAULT ON)
-SETUP_SYSTEM_LIBRARY(PROJECT LIBKML DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT CURL DEFAULT ON)
-SETUP_SYSTEM_LIBRARY(PROJECT GDAL DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT FFTW DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT ITK DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT OPENTHREADS DEFAULT OFF)
-if(WIN32)
- SETUP_SYSTEM_LIBRARY(PROJECT OSSIM DEFAULT ON)
-else()
- SETUP_SYSTEM_LIBRARY(PROJECT OSSIM DEFAULT OFF)
-endif()
-SETUP_SYSTEM_LIBRARY(PROJECT MUPARSER DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT MUPARSERX DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT TINYXML DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT OPENCV DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT LIBSVM DEFAULT OFF)
-SETUP_SYSTEM_LIBRARY(PROJECT PCRE DEFAULT ON)
-SETUP_SYSTEM_LIBRARY(PROJECT SWIG DEFAULT ON)
-
-SETUP_SYSTEM_LIBRARY(PROJECT QT4 DEFAULT ON)
-
-
-# Call OTB
-option(OTB_USE_6S "Enable module 6S in OTB" ON)
-option(OTB_USE_CURL "Enable module Curl in OTB" ON)
-option(OTB_USE_LIBKML "Enable module libKML in OTB" ON)
-option(OTB_USE_LIBSVM "Enable module libSVM in OTB" ON)
-option(OTB_USE_MAPNIK "Enable module Mapnik in OTB" OFF)
-option(OTB_USE_MUPARSER "Enable module muparser in OTB" ON)
-option(OTB_USE_MUPARSERX "Enable module muparserX in OTB" ON)
-option(OTB_USE_OPENCV "Enable module OpenCV in OTB" ON)
-option(OTB_USE_OPENJPEG "Enable module openjpeg in OTB" OFF)
-option(OTB_USE_QT4 "Enable module QT4 in OTB" ON)
-option(OTB_USE_SIFTFAST "Enable module Siftfast in OTB" ON)
-
-# set OTB_DATA_ROOT to run test
-find_path(OTB_DATA_ROOT README-OTB-Data PATHS $ENV{OTB_DATA_ROOT} ${OTB-SuperBuild_SOURCE_DIR}/../OTB-Data)
-
-if(ENABLE_OTB_LARGE_INPUTS)
- find_path(OTB_DATA_LARGEINPUT_ROOT OTBData.readme $ENV{OTB_DATA_LARGEINPUT_ROOT})
-endif()
-
-# SWIG Wrapping
-option(OTB_WRAP_PYTHON "Enable python wrappers for OTB applications (requires SWIG)" OFF)
-option(OTB_WRAP_JAVA "Enable java wrappers for OTB applications (requires SWIG)" OFF)
-
-# do a system checkup
-include(SystemCheckup)
-
-# Main external projet : dependencies are included (if needed) in each external project
-include(External_otb)
diff --git a/SuperBuild/CTestConfig.cmake b/SuperBuild/CTestConfig.cmake
deleted file mode 100644
index fbf334e..0000000
--- a/SuperBuild/CTestConfig.cmake
+++ /dev/null
@@ -1,13 +0,0 @@
-## This file should be placed in the root directory of your project.
-## Then modify the CMakeLists.txt file in the root directory of your
-## project to incorporate the testing dashboard.
-## # The following are required to uses Dart and the Cdash dashboard
-## enable_testing()
-## include(Dart)
-set(CTEST_PROJECT_NAME "OTB")
-set(CTEST_NIGHTLY_START_TIME "20:00:00 CEST")
-
-set(CTEST_DROP_METHOD "http")
-set(CTEST_DROP_SITE "dash.orfeo-toolbox.org")
-set(CTEST_DROP_LOCATION "/submit.php?project=OTB")
-set(CTEST_DROP_SITE_CDASH TRUE)
diff --git a/SuperBuild/README b/SuperBuild/README
deleted file mode 100644
index 27bdaf0..0000000
--- a/SuperBuild/README
+++ /dev/null
@@ -1,18 +0,0 @@
-This folder contains all the sources used to compile the SuperBuild. This project is intended for people who want to build OTB from source on platforms where they don't have an easy access to OTB dependencies. The SuperBuild can automatically download and compile the necessary dependencies for OTB.
-
-In order to compile the SuperBuild, you shall :
-- go to your build directory
-- run cmake using 'path-to-OTB/SuperBuild' as the source folder
-- it is advised to give a specific install prefix for the superbuild as all dependencies will be deployed there
-- once the configure step is done, nothing is built yet, but the build directory is setup with sub-folders for each dependency.
-- run make in order to begin the SuperBuild. For each dependency, CMake will do the following tasks :
- * download source archive or clone repository
- * uncompress sources and patch them if necessary
- * configure, build and install the library.
-
-During the configure step, you have access to a range of parameters that control the build of OTB dependencies. For each dependency 'XXX', there is a variable USE_SYSTEM_XXX to choose if a system install of XXX should be used, or if a SuperBuild version should be compiled.
-If you want to use a system version of XXX, you have to set the corresponding variable USE_SYSTEM_XXX to ON. When your system XXX is installed in default system location, CMake should find it without help. If the location is different, you can specify it using :
-- CMAKE_PREFIX_PATH : this is the easiest way to point other install prefixes so that CMake will look into them. This variable may hold a list of paths for each install prefix. For instance, CMAKE_PREFIX_PATH=/opt/local will tell CMake to look in the folders /opt/local/lib, /opt/local/include, ...
-- XXX_INCLUDE_DIR, XXX_LIBRARY, XXX_DIR : you can give more specific locations using those variables
-
-Some variables are used to configure the OTB itself. They have the same name as in OTB project. For instance, you have access to the third-party enablement options (OTB_USE_XXX).
diff --git a/SuperBuild/patches/BOOST/1.54.0/boost/cstdint.hpp b/SuperBuild/patches/BOOST/1.54.0/boost/cstdint.hpp
deleted file mode 100644
index 85a3b3e..0000000
--- a/SuperBuild/patches/BOOST/1.54.0/boost/cstdint.hpp
+++ /dev/null
@@ -1,511 +0,0 @@
-// boost cstdint.hpp header file ------------------------------------------//
-
-// (C) Copyright Beman Dawes 1999.
-// (C) Copyright Jens Mauer 2001
-// (C) Copyright John Maddock 2001
-// Distributed under the Boost
-// Software License, Version 1.0. (See accompanying file
-// LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
-
-// See http://www.boost.org/libs/integer for documentation.
-
-// Revision History
-// 31 Oct 01 use BOOST_HAS_LONG_LONG to check for "long long" (Jens M.)
-// 16 Apr 01 check LONGLONG_MAX when looking for "long long" (Jens Maurer)
-// 23 Jan 01 prefer "long" over "int" for int32_t and intmax_t (Jens Maurer)
-// 12 Nov 00 Merged <boost/stdint.h> (Jens Maurer)
-// 23 Sep 00 Added INTXX_C macro support (John Maddock).
-// 22 Sep 00 Better 64-bit support (John Maddock)
-// 29 Jun 00 Reimplement to avoid including stdint.h within namespace boost
-// 8 Aug 99 Initial version (Beman Dawes)
-
-
-#ifndef BOOST_CSTDINT_HPP
-#define BOOST_CSTDINT_HPP
-
-//
-// Since we always define the INT#_C macros as per C++0x,
-// define __STDC_CONSTANT_MACROS so that <stdint.h> does the right
-// thing if possible, and so that the user knows that the macros
-// are actually defined as per C99.
-//
-#ifndef __STDC_CONSTANT_MACROS
-# define __STDC_CONSTANT_MACROS
-#endif
-
-#include <boost/config.hpp>
-
-//
-// Note that GLIBC is a bit inconsistent about whether int64_t is defined or not
-// depending upon what headers happen to have been included first...
-// so we disable use of stdint.h when GLIBC does not define __GLIBC_HAVE_LONG_LONG.
-// See https://svn.boost.org/trac/boost/ticket/3548 and http://sources.redhat.com/bugzilla/show_bug.cgi?id=10990
-//
-#if defined(BOOST_HAS_STDINT_H) \
- && (!defined(__GLIBC__) \
- || defined(__GLIBC_HAVE_LONG_LONG) \
- || (defined(__GLIBC__) && ((__GLIBC__ > 2) || ((__GLIBC__ == 2) && (__GLIBC_MINOR__ >= 17)))))
-
-// The following #include is an implementation artifact; not part of interface.
-# ifdef __hpux
-// HP-UX has a vaguely nice <stdint.h> in a non-standard location
-# include <inttypes.h>
-# ifdef __STDC_32_MODE__
- // this is triggered with GCC, because it defines __cplusplus < 199707L
-# define BOOST_NO_INT64_T
-# endif
-# elif defined(__FreeBSD__) || defined(__IBMCPP__) || defined(_AIX)
-# include <inttypes.h>
-# else
-# include <stdint.h>
-
-// There is a bug in Cygwin two _C macros
-# if defined(__STDC_CONSTANT_MACROS) && defined(__CYGWIN__)
-# undef INTMAX_C
-# undef UINTMAX_C
-# define INTMAX_C(c) c##LL
-# define UINTMAX_C(c) c##ULL
-# endif
-
-# endif
-
-#ifdef __QNX__
-
-// QNX (Dinkumware stdlib) defines these as non-standard names.
-// Reflect to the standard names.
-
-typedef ::intleast8_t int_least8_t;
-typedef ::intfast8_t int_fast8_t;
-typedef ::uintleast8_t uint_least8_t;
-typedef ::uintfast8_t uint_fast8_t;
-
-typedef ::intleast16_t int_least16_t;
-typedef ::intfast16_t int_fast16_t;
-typedef ::uintleast16_t uint_least16_t;
-typedef ::uintfast16_t uint_fast16_t;
-
-typedef ::intleast32_t int_least32_t;
-typedef ::intfast32_t int_fast32_t;
-typedef ::uintleast32_t uint_least32_t;
-typedef ::uintfast32_t uint_fast32_t;
-
-# ifndef BOOST_NO_INT64_T
-
-typedef ::intleast64_t int_least64_t;
-typedef ::intfast64_t int_fast64_t;
-typedef ::uintleast64_t uint_least64_t;
-typedef ::uintfast64_t uint_fast64_t;
-
-# endif
-
-#endif
-
-namespace boost
-{
-
- using ::int8_t;
- using ::int_least8_t;
- using ::int_fast8_t;
- using ::uint8_t;
- using ::uint_least8_t;
- using ::uint_fast8_t;
-
- using ::int16_t;
- using ::int_least16_t;
- using ::int_fast16_t;
- using ::uint16_t;
- using ::uint_least16_t;
- using ::uint_fast16_t;
-
- using ::int32_t;
- using ::int_least32_t;
- using ::int_fast32_t;
- using ::uint32_t;
- using ::uint_least32_t;
- using ::uint_fast32_t;
-
-# ifndef BOOST_NO_INT64_T
-
- using ::int64_t;
- using ::int_least64_t;
- using ::int_fast64_t;
- using ::uint64_t;
- using ::uint_least64_t;
- using ::uint_fast64_t;
-
-# endif
-
- using ::intmax_t;
- using ::uintmax_t;
-
-} // namespace boost
-
-#elif defined(__FreeBSD__) && (__FreeBSD__ <= 4) || defined(__osf__) || defined(__VMS)
-// FreeBSD and Tru64 have an <inttypes.h> that contains much of what we need.
-# include <inttypes.h>
-
-namespace boost {
-
- using ::int8_t;
- typedef int8_t int_least8_t;
- typedef int8_t int_fast8_t;
- using ::uint8_t;
- typedef uint8_t uint_least8_t;
- typedef uint8_t uint_fast8_t;
-
- using ::int16_t;
- typedef int16_t int_least16_t;
- typedef int16_t int_fast16_t;
- using ::uint16_t;
- typedef uint16_t uint_least16_t;
- typedef uint16_t uint_fast16_t;
-
- using ::int32_t;
- typedef int32_t int_least32_t;
- typedef int32_t int_fast32_t;
- using ::uint32_t;
- typedef uint32_t uint_least32_t;
- typedef uint32_t uint_fast32_t;
-
-# ifndef BOOST_NO_INT64_T
-
- using ::int64_t;
- typedef int64_t int_least64_t;
- typedef int64_t int_fast64_t;
- using ::uint64_t;
- typedef uint64_t uint_least64_t;
- typedef uint64_t uint_fast64_t;
-
- typedef int64_t intmax_t;
- typedef uint64_t uintmax_t;
-
-# else
-
- typedef int32_t intmax_t;
- typedef uint32_t uintmax_t;
-
-# endif
-
-} // namespace boost
-
-#else // BOOST_HAS_STDINT_H
-
-# include <boost/limits.hpp> // implementation artifact; not part of interface
-# include <limits.h> // needed for limits macros
-
-
-namespace boost
-{
-
-// These are fairly safe guesses for some 16-bit, and most 32-bit and 64-bit
-// platforms. For other systems, they will have to be hand tailored.
-//
-// Because the fast types are assumed to be the same as the undecorated types,
-// it may be possible to hand tailor a more efficient implementation. Such
-// an optimization may be illusionary; on the Intel x86-family 386 on, for
-// example, byte arithmetic and load/stores are as fast as "int" sized ones.
-
-// 8-bit types ------------------------------------------------------------//
-
-# if UCHAR_MAX == 0xff
- typedef signed char int8_t;
- typedef signed char int_least8_t;
- typedef signed char int_fast8_t;
- typedef unsigned char uint8_t;
- typedef unsigned char uint_least8_t;
- typedef unsigned char uint_fast8_t;
-# else
-# error defaults not correct; you must hand modify boost/cstdint.hpp
-# endif
-
-// 16-bit types -----------------------------------------------------------//
-
-# if USHRT_MAX == 0xffff
-# if defined(__crayx1)
- // The Cray X1 has a 16-bit short, however it is not recommend
- // for use in performance critical code.
- typedef short int16_t;
- typedef short int_least16_t;
- typedef int int_fast16_t;
- typedef unsigned short uint16_t;
- typedef unsigned short uint_least16_t;
- typedef unsigned int uint_fast16_t;
-# else
- typedef short int16_t;
- typedef short int_least16_t;
- typedef short int_fast16_t;
- typedef unsigned short uint16_t;
- typedef unsigned short uint_least16_t;
- typedef unsigned short uint_fast16_t;
-# endif
-# elif (USHRT_MAX == 0xffffffff) && defined(__MTA__)
- // On MTA / XMT short is 32 bits unless the -short16 compiler flag is specified
- // MTA / XMT does support the following non-standard integer types
- typedef __short16 int16_t;
- typedef __short16 int_least16_t;
- typedef __short16 int_fast16_t;
- typedef unsigned __short16 uint16_t;
- typedef unsigned __short16 uint_least16_t;
- typedef unsigned __short16 uint_fast16_t;
-# elif (USHRT_MAX == 0xffffffff) && defined(CRAY)
- // no 16-bit types on Cray:
- typedef short int_least16_t;
- typedef short int_fast16_t;
- typedef unsigned short uint_least16_t;
- typedef unsigned short uint_fast16_t;
-# else
-# error defaults not correct; you must hand modify boost/cstdint.hpp
-# endif
-
-// 32-bit types -----------------------------------------------------------//
-
-# if UINT_MAX == 0xffffffff
- typedef int int32_t;
- typedef int int_least32_t;
- typedef int int_fast32_t;
- typedef unsigned int uint32_t;
- typedef unsigned int uint_least32_t;
- typedef unsigned int uint_fast32_t;
-# elif (USHRT_MAX == 0xffffffff)
- typedef short int32_t;
- typedef short int_least32_t;
- typedef short int_fast32_t;
- typedef unsigned short uint32_t;
- typedef unsigned short uint_least32_t;
- typedef unsigned short uint_fast32_t;
-# elif ULONG_MAX == 0xffffffff
- typedef long int32_t;
- typedef long int_least32_t;
- typedef long int_fast32_t;
- typedef unsigned long uint32_t;
- typedef unsigned long uint_least32_t;
- typedef unsigned long uint_fast32_t;
-# elif (UINT_MAX == 0xffffffffffffffff) && defined(__MTA__)
- // Integers are 64 bits on the MTA / XMT
- typedef __int32 int32_t;
- typedef __int32 int_least32_t;
- typedef __int32 int_fast32_t;
- typedef unsigned __int32 uint32_t;
- typedef unsigned __int32 uint_least32_t;
- typedef unsigned __int32 uint_fast32_t;
-# else
-# error defaults not correct; you must hand modify boost/cstdint.hpp
-# endif
-
-// 64-bit types + intmax_t and uintmax_t ----------------------------------//
-
-# if defined(BOOST_HAS_LONG_LONG) && \
- !defined(BOOST_MSVC) && !defined(__BORLANDC__) && \
- (!defined(__GLIBCPP__) || defined(_GLIBCPP_USE_LONG_LONG)) && \
- (defined(ULLONG_MAX) || defined(ULONG_LONG_MAX) || defined(ULONGLONG_MAX))
-# if defined(__hpux)
- // HP-UX's value of ULONG_LONG_MAX is unusable in preprocessor expressions
-# elif (defined(ULLONG_MAX) && ULLONG_MAX == 18446744073709551615ULL) || (defined(ULONG_LONG_MAX) && ULONG_LONG_MAX == 18446744073709551615ULL) || (defined(ULONGLONG_MAX) && ULONGLONG_MAX == 18446744073709551615ULL)
- // 2**64 - 1
-# else
-# error defaults not correct; you must hand modify boost/cstdint.hpp
-# endif
-
- typedef ::boost::long_long_type intmax_t;
- typedef ::boost::ulong_long_type uintmax_t;
- typedef ::boost::long_long_type int64_t;
- typedef ::boost::long_long_type int_least64_t;
- typedef ::boost::long_long_type int_fast64_t;
- typedef ::boost::ulong_long_type uint64_t;
- typedef ::boost::ulong_long_type uint_least64_t;
- typedef ::boost::ulong_long_type uint_fast64_t;
-
-# elif ULONG_MAX != 0xffffffff
-
-# if ULONG_MAX == 18446744073709551615 // 2**64 - 1
- typedef long intmax_t;
- typedef unsigned long uintmax_t;
- typedef long int64_t;
- typedef long int_least64_t;
- typedef long int_fast64_t;
- typedef unsigned long uint64_t;
- typedef unsigned long uint_least64_t;
- typedef unsigned long uint_fast64_t;
-# else
-# error defaults not correct; you must hand modify boost/cstdint.hpp
-# endif
-# elif defined(__GNUC__) && defined(BOOST_HAS_LONG_LONG)
- __extension__ typedef long long intmax_t;
- __extension__ typedef unsigned long long uintmax_t;
- __extension__ typedef long long int64_t;
- __extension__ typedef long long int_least64_t;
- __extension__ typedef long long int_fast64_t;
- __extension__ typedef unsigned long long uint64_t;
- __extension__ typedef unsigned long long uint_least64_t;
- __extension__ typedef unsigned long long uint_fast64_t;
-# elif defined(BOOST_HAS_MS_INT64)
- //
- // we have Borland/Intel/Microsoft __int64:
- //
- typedef __int64 intmax_t;
- typedef unsigned __int64 uintmax_t;
- typedef __int64 int64_t;
- typedef __int64 int_least64_t;
- typedef __int64 int_fast64_t;
- typedef unsigned __int64 uint64_t;
- typedef unsigned __int64 uint_least64_t;
- typedef unsigned __int64 uint_fast64_t;
-# else // assume no 64-bit integers
-# define BOOST_NO_INT64_T
- typedef int32_t intmax_t;
- typedef uint32_t uintmax_t;
-# endif
-
-} // namespace boost
-
-
-#endif // BOOST_HAS_STDINT_H
-
-#endif // BOOST_CSTDINT_HPP
-
-
-/****************************************************
-
-Macro definition section:
-
-Added 23rd September 2000 (John Maddock).
-Modified 11th September 2001 to be excluded when
-BOOST_HAS_STDINT_H is defined (John Maddock).
-Modified 11th Dec 2009 to always define the
-INT#_C macros if they're not already defined (John Maddock).
-
-******************************************************/
-
-#if !defined(BOOST__STDC_CONSTANT_MACROS_DEFINED) && \
- (!defined(INT8_C) || !defined(INT16_C) || !defined(INT32_C) || !defined(INT64_C))
-//
-// For the following code we get several warnings along the lines of:
-//
-// boost/cstdint.hpp:428:35: error: use of C99 long long integer constant
-//
-// So we declare this a system header to suppress these warnings.
-//
-#if defined(__GNUC__) && (__GNUC__ >= 4)
-#pragma GCC system_header
-#endif
-
-#include <limits.h>
-# define BOOST__STDC_CONSTANT_MACROS_DEFINED
-# if defined(BOOST_HAS_MS_INT64)
-//
-// Borland/Intel/Microsoft compilers have width specific suffixes:
-//
-#ifndef INT8_C
-# define INT8_C(value) value##i8
-#endif
-#ifndef INT16_C
-# define INT16_C(value) value##i16
-#endif
-#ifndef INT32_C
-# define INT32_C(value) value##i32
-#endif
-#ifndef INT64_C
-# define INT64_C(value) value##i64
-#endif
-# ifdef __BORLANDC__
- // Borland bug: appending ui8 makes the type a signed char
-# define UINT8_C(value) static_cast<unsigned char>(value##u)
-# else
-# define UINT8_C(value) value##ui8
-# endif
-#ifndef UINT16_C
-# define UINT16_C(value) value##ui16
-#endif
-#ifndef UINT32_C
-# define UINT32_C(value) value##ui32
-#endif
-#ifndef UINT64_C
-# define UINT64_C(value) value##ui64
-#endif
-#ifndef INTMAX_C
-# define INTMAX_C(value) value##i64
-# define UINTMAX_C(value) value##ui64
-#endif
-
-# else
-// do it the old fashioned way:
-
-// 8-bit types ------------------------------------------------------------//
-
-# if (UCHAR_MAX == 0xff) && !defined(INT8_C)
-# define INT8_C(value) static_cast<boost::int8_t>(value)
-# define UINT8_C(value) static_cast<boost::uint8_t>(value##u)
-# endif
-
-// 16-bit types -----------------------------------------------------------//
-
-# if (USHRT_MAX == 0xffff) && !defined(INT16_C)
-# define INT16_C(value) static_cast<boost::int16_t>(value)
-# define UINT16_C(value) static_cast<boost::uint16_t>(value##u)
-# endif
-
-// 32-bit types -----------------------------------------------------------//
-#ifndef INT32_C
-# if (UINT_MAX == 0xffffffff)
-# define INT32_C(value) value
-# define UINT32_C(value) value##u
-# elif ULONG_MAX == 0xffffffff
-# define INT32_C(value) value##L
-# define UINT32_C(value) value##uL
-# endif
-#endif
-
-// 64-bit types + intmax_t and uintmax_t ----------------------------------//
-#ifndef INT64_C
-# if defined(BOOST_HAS_LONG_LONG) && \
- (defined(ULLONG_MAX) || defined(ULONG_LONG_MAX) || defined(ULONGLONG_MAX) || defined(_LLONG_MAX))
-
-# if defined(__hpux)
- // HP-UX's value of ULONG_LONG_MAX is unusable in preprocessor expressions
-# define INT64_C(value) value##LL
-# define UINT64_C(value) value##uLL
-# elif (defined(ULLONG_MAX) && ULLONG_MAX == 18446744073709551615ULL) || \
- (defined(ULONG_LONG_MAX) && ULONG_LONG_MAX == 18446744073709551615ULL) || \
- (defined(ULONGLONG_MAX) && ULONGLONG_MAX == 18446744073709551615ULL) || \
- (defined(_LLONG_MAX) && _LLONG_MAX == 18446744073709551615ULL)
-
-# define INT64_C(value) value##LL
-# define UINT64_C(value) value##uLL
-# else
-# error defaults not correct; you must hand modify boost/cstdint.hpp
-# endif
-# elif ULONG_MAX != 0xffffffff
-
-# if ULONG_MAX == 18446744073709551615U // 2**64 - 1
-# define INT64_C(value) value##L
-# define UINT64_C(value) value##uL
-# else
-# error defaults not correct; you must hand modify boost/cstdint.hpp
-# endif
-# elif defined(BOOST_HAS_LONG_LONG)
- // Usual macros not defined, work things out for ourselves:
-# if(~0uLL == 18446744073709551615ULL)
-# define INT64_C(value) value##LL
-# define UINT64_C(value) value##uLL
-# else
-# error defaults not correct; you must hand modify boost/cstdint.hpp
-# endif
-# else
-# error defaults not correct; you must hand modify boost/cstdint.hpp
-# endif
-
-# ifdef BOOST_NO_INT64_T
-# define INTMAX_C(value) INT32_C(value)
-# define UINTMAX_C(value) UINT32_C(value)
-# else
-# define INTMAX_C(value) INT64_C(value)
-# define UINTMAX_C(value) UINT64_C(value)
-# endif
-#endif
-# endif // Borland/Microsoft specific width suffixes
-
-#endif // INT#_C macros.
-
-
-
-
diff --git a/SuperBuild/patches/BOOST/1.54.0/boost/date_time/local_time/custom_time_zone.hpp b/SuperBuild/patches/BOOST/1.54.0/boost/date_time/local_time/custom_time_zone.hpp
deleted file mode 100644
index 7396c59..0000000
--- a/SuperBuild/patches/BOOST/1.54.0/boost/date_time/local_time/custom_time_zone.hpp
+++ /dev/null
@@ -1,169 +0,0 @@
-#ifndef LOCAL_TIME_CUSTOM_TIME_ZONE_HPP__
-#define LOCAL_TIME_CUSTOM_TIME_ZONE_HPP__
-
-/* Copyright (c) 2003-2005 CrystalClear Software, Inc.
- * Subject to the Boost Software License, Version 1.0.
- * (See accompanying file LICENSE_1_0.txt or http://www.boost.org/LICENSE_1_0.txt)
- * Author: Jeff Garland, Bart Garst
- * $Date: 2012-09-22 15:33:33 -0700 (Sat, 22 Sep 2012) $
- */
-
-#include "boost/date_time/time_zone_base.hpp"
-#include "boost/date_time/time_zone_names.hpp"
-#include "boost/date_time/posix_time/posix_time.hpp"
-#include "boost/date_time/local_time/dst_transition_day_rules.hpp"
-#include "boost/date_time/string_convert.hpp"
-//#include "boost/date_time/special_defs.hpp"
-#include "boost/shared_ptr.hpp"
-
-namespace boost {
-namespace local_time {
-
- //typedef boost::date_time::time_zone_names time_zone_names;
- typedef boost::date_time::dst_adjustment_offsets<boost::posix_time::time_duration> dst_adjustment_offsets;
- //typedef boost::date_time::time_zone_base<boost::posix_time::ptime> time_zone;
- typedef boost::shared_ptr<dst_calc_rule> dst_calc_rule_ptr;
-
- //! A real time zone
- template<class CharT>
- class custom_time_zone_base : public date_time::time_zone_base<posix_time::ptime,CharT> {
- public:
- typedef boost::posix_time::time_duration time_duration_type;
- typedef date_time::time_zone_base<posix_time::ptime,CharT> base_type;
- typedef typename base_type::string_type string_type;
- typedef typename base_type::stringstream_type stringstream_type;
- typedef date_time::time_zone_names_base<CharT> time_zone_names;
- typedef CharT char_type;
-
- custom_time_zone_base(const time_zone_names& zone_names,
- const time_duration_type& utc_offset,
- const dst_adjustment_offsets& dst_shift,
- boost::shared_ptr<dst_calc_rule> calc_rule) :
- zone_names_(zone_names),
- base_utc_offset_(utc_offset),
- dst_offsets_(dst_shift),
- dst_calc_rules_(calc_rule)
- {}
- virtual ~custom_time_zone_base() {}
- virtual string_type dst_zone_abbrev() const
- {
- return zone_names_.dst_zone_abbrev();
- }
- virtual string_type std_zone_abbrev() const
- {
- return zone_names_.std_zone_abbrev();
- }
- virtual string_type dst_zone_name() const
- {
- return zone_names_.dst_zone_name();
- }
- virtual string_type std_zone_name() const
- {
- return zone_names_.std_zone_name();
- }
- //! True if zone uses daylight savings adjustments
- virtual bool has_dst() const
- {
- return (bool) dst_calc_rules_; //if calc_rule is set the tz has dst
- }
- //! Local time that DST starts -- NADT if has_dst is false
- virtual posix_time::ptime dst_local_start_time(gregorian::greg_year y) const
- {
- gregorian::date d(gregorian::not_a_date_time);
- if (dst_calc_rules_) {
- d = dst_calc_rules_->start_day(y);
- }
- return posix_time::ptime(d, dst_offsets_.dst_start_offset_);
- }
- //! Local time that DST ends -- NADT if has_dst is false
- virtual posix_time::ptime dst_local_end_time(gregorian::greg_year y) const
- {
- gregorian::date d(gregorian::not_a_date_time);
- if (dst_calc_rules_) {
- d = dst_calc_rules_->end_day(y);
- }
- return posix_time::ptime(d, dst_offsets_.dst_end_offset_);
- }
- //! Base offset from UTC for zone (eg: -07:30:00)
- virtual time_duration_type base_utc_offset() const
- {
- return base_utc_offset_;
- }
- //! Adjustment forward or back made while DST is in effect
- virtual time_duration_type dst_offset() const
- {
- return dst_offsets_.dst_adjust_;
- }
- //! Returns a POSIX time_zone string for this object
- virtual string_type to_posix_string() const
- {
- // std offset dst [offset],start[/time],end[/time] - w/o spaces
- stringstream_type ss;
- ss.fill('0');
- boost::shared_ptr<dst_calc_rule> no_rules;
- // std
- ss << std_zone_abbrev();
- // offset
- if(base_utc_offset().is_negative()) {
- // inverting the sign guarantees we get two digits
- ss << '-' << std::setw(2) << base_utc_offset().invert_sign().hours();
- }
- else {
- ss << '+' << std::setw(2) << base_utc_offset().hours();
- }
- if(base_utc_offset().minutes() != 0 || base_utc_offset().seconds() != 0) {
- ss << ':' << std::setw(2) << base_utc_offset().minutes();
- if(base_utc_offset().seconds() != 0) {
- ss << ':' << std::setw(2) << base_utc_offset().seconds();
- }
- }
- if(dst_calc_rules_ != no_rules) {
- // dst
- ss << dst_zone_abbrev();
- // dst offset
- if(dst_offset().is_negative()) {
- // inverting the sign guarantees we get two digits
- ss << '-' << std::setw(2) << dst_offset().invert_sign().hours();
- }
- else {
- ss << '+' << std::setw(2) << dst_offset().hours();
- }
- if(dst_offset().minutes() != 0 || dst_offset().seconds() != 0) {
- ss << ':' << std::setw(2) << dst_offset().minutes();
- if(dst_offset().seconds() != 0) {
- ss << ':' << std::setw(2) << dst_offset().seconds();
- }
- }
- // start/time
- ss << ',' << date_time::convert_string_type<char, char_type>(dst_calc_rules_->start_rule_as_string()) << '/'
- << std::setw(2) << dst_offsets_.dst_start_offset_.hours() << ':'
- << std::setw(2) << dst_offsets_.dst_start_offset_.minutes();
- if(dst_offsets_.dst_start_offset_.seconds() != 0) {
- ss << ':' << std::setw(2) << dst_offsets_.dst_start_offset_.seconds();
- }
- // end/time
- ss << ',' << date_time::convert_string_type<char, char_type>(dst_calc_rules_->end_rule_as_string()) << '/'
- << std::setw(2) << dst_offsets_.dst_end_offset_.hours() << ':'
- << std::setw(2) << dst_offsets_.dst_end_offset_.minutes();
- if(dst_offsets_.dst_end_offset_.seconds() != 0) {
- ss << ':' << std::setw(2) << dst_offsets_.dst_end_offset_.seconds();
- }
- }
-
- return ss.str();
- }
- private:
- time_zone_names zone_names_;
- bool has_dst_;
- time_duration_type base_utc_offset_;
- dst_adjustment_offsets dst_offsets_;
- boost::shared_ptr<dst_calc_rule> dst_calc_rules_;
- };
-
- typedef custom_time_zone_base<char> custom_time_zone;
-
-} }//namespace
-
-
-
-#endif
diff --git a/SuperBuild/patches/BOOST/1.54.0/boost/log/utility/once_block.hpp b/SuperBuild/patches/BOOST/1.54.0/boost/log/utility/once_block.hpp
deleted file mode 100644
index c8633aa..0000000
--- a/SuperBuild/patches/BOOST/1.54.0/boost/log/utility/once_block.hpp
+++ /dev/null
@@ -1,195 +0,0 @@
-/*
- * Copyright Andrey Semashev 2007 - 2013.
- * Distributed under the Boost Software License, Version 1.0.
- * (See accompanying file LICENSE_1_0.txt or copy at
- * http://www.boost.org/LICENSE_1_0.txt)
- */
-/*!
- * \file once_block.hpp
- * \author Andrey Semashev
- * \date 23.06.2010
- *
- * \brief The header defines classes and macros for once-blocks.
- */
-
-#ifndef BOOST_LOG_UTILITY_ONCE_BLOCK_HPP_INCLUDED_
-#define BOOST_LOG_UTILITY_ONCE_BLOCK_HPP_INCLUDED_
-
-#include <boost/log/detail/config.hpp>
-#include <boost/log/utility/unique_identifier_name.hpp>
-#include <boost/log/detail/header.hpp>
-
-#ifdef BOOST_LOG_HAS_PRAGMA_ONCE
-#pragma once
-#endif
-
-#ifndef BOOST_LOG_NO_THREADS
-
-namespace boost {
-
-BOOST_LOG_OPEN_NAMESPACE
-
-/*!
- * \brief A flag to detect if a code block has already been executed.
- *
- * This structure should be used in conjunction with the \c BOOST_LOG_ONCE_BLOCK_FLAG
- * macro. Usage example:
- *
- * <code>
- * void foo()
- * {
- * static once_block_flag flag = BOOST_LOG_ONCE_BLOCK_INIT;
- * BOOST_LOG_ONCE_BLOCK_FLAG(flag)
- * {
- * puts("Hello, world once!");
- * }
- * }
- * </code>
- */
-struct once_block_flag
-{
-#ifndef BOOST_LOG_DOXYGEN_PASS
- // Do not use, implementation detail
- enum
- {
- uninitialized = 0,
- being_initialized,
- initialized
- }
- status;
-#endif // BOOST_LOG_DOXYGEN_PASS
-};
-
-/*!
- * \def BOOST_LOG_ONCE_BLOCK_INIT
- *
- * The static initializer for \c once_block_flag.
- */
-#define BOOST_LOG_ONCE_BLOCK_INIT { boost::log::once_block_flag::uninitialized }
-
-namespace aux {
-
-class once_block_sentry
-{
-private:
- once_block_flag& m_Flag;
-
-public:
- explicit once_block_sentry(once_block_flag& f) : m_Flag(f)
- {
- }
-
- ~once_block_sentry()
- {
- if (m_Flag.status != once_block_flag::initialized)
- rollback();
- }
-
- bool executed() const
- {
- return (m_Flag.status == once_block_flag::initialized || enter_once_block());
- }
-
- BOOST_LOG_API void commit();
-
-private:
- // Non-copyable, non-assignable
- once_block_sentry(once_block_sentry const&);
- once_block_sentry& operator= (once_block_sentry const&);
-
- BOOST_LOG_API bool enter_once_block() const;
- BOOST_LOG_API void rollback();
-};
-
-} // namespace aux
-
-BOOST_LOG_CLOSE_NAMESPACE // namespace log
-
-} // namespace boost
-
-#else // BOOST_LOG_NO_THREADS
-
-namespace boost {
-
-BOOST_LOG_OPEN_NAMESPACE
-
-struct once_block_flag
-{
- bool status;
-};
-
-#define BOOST_LOG_ONCE_BLOCK_INIT { false }
-
-namespace aux {
-
-class once_block_sentry
-{
-private:
- once_block_flag& m_Flag;
-
-public:
- explicit once_block_sentry(once_block_flag& f) : m_Flag(f)
- {
- }
-
- bool executed() const
- {
- return m_Flag.status;
- }
-
- void commit()
- {
- m_Flag.status = true;
- }
-
-private:
- // Non-copyable, non-assignable
- once_block_sentry(once_block_sentry const&);
- once_block_sentry& operator= (once_block_sentry const&);
-};
-
-} // namespace aux
-
-BOOST_LOG_CLOSE_NAMESPACE // namespace log
-
-} // namespace boost
-
-#endif // BOOST_LOG_NO_THREADS
-
-#ifndef BOOST_LOG_DOXYGEN_PASS
-
-#define BOOST_LOG_ONCE_BLOCK_FLAG_INTERNAL(flag_var, sentry_var)\
- for (boost::log::aux::once_block_sentry sentry_var((flag_var));\
- !sentry_var.executed(); sentry_var.commit())
-
-#define BOOST_LOG_ONCE_BLOCK_INTERNAL(flag_var, sentry_var)\
- static boost::log::once_block_flag flag_var = BOOST_LOG_ONCE_BLOCK_INIT;\
- BOOST_LOG_ONCE_BLOCK_FLAG_INTERNAL(flag_var, sentry_var)
-
-#endif // BOOST_LOG_DOXYGEN_PASS
-
-/*!
- * \def BOOST_LOG_ONCE_BLOCK_FLAG(flag_var)
- *
- * Begins a code block to be executed only once, with protection against thread concurrency.
- * User has to provide the flag variable that controls whether the block has already
- * been executed.
- */
-#define BOOST_LOG_ONCE_BLOCK_FLAG(flag_var)\
- BOOST_LOG_ONCE_BLOCK_FLAG_INTERNAL(\
- flag_var,\
- BOOST_LOG_UNIQUE_IDENTIFIER_NAME(_boost_log_once_block_sentry_))
-
-/*!
- * \def BOOST_LOG_ONCE_BLOCK()
- *
- * Begins a code block to be executed only once, with protection against thread concurrency.
- */
-#define BOOST_LOG_ONCE_BLOCK()\
- BOOST_LOG_ONCE_BLOCK_INTERNAL(\
- BOOST_LOG_UNIQUE_IDENTIFIER_NAME(_boost_log_once_block_flag_),\
- BOOST_LOG_UNIQUE_IDENTIFIER_NAME(_boost_log_once_block_sentry_))
-
-#include <boost/log/detail/footer.hpp>
-
-#endif // BOOST_LOG_UTILITY_ONCE_BLOCK_HPP_INCLUDED_
diff --git a/SuperBuild/patches/BOOST/1.54.0/boost/thread/win32/thread_primitives.hpp b/SuperBuild/patches/BOOST/1.54.0/boost/thread/win32/thread_primitives.hpp
deleted file mode 100644
index 7f05ca5..0000000
--- a/SuperBuild/patches/BOOST/1.54.0/boost/thread/win32/thread_primitives.hpp
+++ /dev/null
@@ -1,471 +0,0 @@
-#ifndef BOOST_WIN32_THREAD_PRIMITIVES_HPP
-#define BOOST_WIN32_THREAD_PRIMITIVES_HPP
-
-// win32_thread_primitives.hpp
-//
-// (C) Copyright 2005-7 Anthony Williams
-// (C) Copyright 2007 David Deakins
-//
-// Distributed under the Boost Software License, Version 1.0. (See
-// accompanying file LICENSE_1_0.txt or copy at
-// http://www.boost.org/LICENSE_1_0.txt)
-
-#include <boost/thread/detail/config.hpp>
-#include <boost/throw_exception.hpp>
-#include <boost/assert.hpp>
-#include <boost/thread/exceptions.hpp>
-#include <boost/detail/interlocked.hpp>
-#include <algorithm>
-
-#ifndef BOOST_THREAD_WIN32_HAS_GET_TICK_COUNT_64
-#if _WIN32_WINNT >= 0x0600
-//#define BOOST_THREAD_WIN32_HAS_GET_TICK_COUNT_64
-#endif
-#endif
-
-#if defined( BOOST_USE_WINDOWS_H )
-# include <windows.h>
-
-namespace boost
-{
- namespace detail
- {
- namespace win32
- {
-#ifdef BOOST_THREAD_WIN32_HAS_GET_TICK_COUNT_64
- typedef unsigned long long ticks_type;
-#else
- typedef unsigned long ticks_type;
-#endif
- typedef ULONG_PTR ulong_ptr;
- typedef HANDLE handle;
- unsigned const infinite=INFINITE;
- unsigned const timeout=WAIT_TIMEOUT;
- handle const invalid_handle_value=INVALID_HANDLE_VALUE;
- unsigned const event_modify_state=EVENT_MODIFY_STATE;
- unsigned const synchronize=SYNCHRONIZE;
- unsigned const wait_abandoned=WAIT_ABANDONED;
-
-
-# ifdef BOOST_NO_ANSI_APIS
- using ::CreateMutexW;
- using ::CreateEventW;
- using ::OpenEventW;
- using ::CreateSemaphoreW;
-# else
- using ::CreateMutexA;
- using ::CreateEventA;
- using ::OpenEventA;
- using ::CreateSemaphoreA;
-# endif
- using ::CloseHandle;
- using ::ReleaseMutex;
- using ::ReleaseSemaphore;
- using ::SetEvent;
- using ::ResetEvent;
- using ::WaitForMultipleObjects;
- using ::WaitForSingleObject;
- using ::GetCurrentProcessId;
- using ::GetCurrentThreadId;
- using ::GetCurrentThread;
- using ::GetCurrentProcess;
- using ::DuplicateHandle;
- using ::SleepEx;
- using ::Sleep;
- using ::QueueUserAPC;
- using ::GetTickCount;
-#ifdef BOOST_THREAD_WIN32_HAS_GET_TICK_COUNT_64
- using ::GetTickCount64;
-#else
- inline ticks_type GetTickCount64() { return GetTickCount(); }
-#endif
- }
- }
-}
-#elif defined( WIN32 ) || defined( _WIN32 ) || defined( __WIN32__ )
-
-# ifdef UNDER_CE
-# ifndef WINAPI
-# ifndef _WIN32_WCE_EMULATION
-# define WINAPI __cdecl // Note this doesn't match the desktop definition
-# else
-# define WINAPI __stdcall
-# endif
-# endif
-
-# ifdef __cplusplus
-extern "C" {
-# endif
-typedef int BOOL;
-typedef unsigned long DWORD;
-typedef void* HANDLE;
-
-# include <kfuncs.h>
-# ifdef __cplusplus
-}
-# endif
-# endif
-
-
-namespace boost
-{
- namespace detail
- {
- namespace win32
- {
-#ifdef BOOST_THREAD_WIN32_HAS_GET_TICK_COUNT_64
- typedef unsigned long long ticks_type;
-#else
- typedef unsigned long ticks_type;
-#endif
-# ifdef _WIN64
- typedef unsigned __int64 ulong_ptr;
-# else
- typedef unsigned long ulong_ptr;
-# endif
- typedef void* handle;
- unsigned const infinite=~0U;
- unsigned const timeout=258U;
- handle const invalid_handle_value=(handle)(-1);
- unsigned const event_modify_state=2;
- unsigned const synchronize=0x100000u;
- unsigned const wait_abandoned=0x00000080u;
-
- extern "C"
- {
- struct _SECURITY_ATTRIBUTES;
-# ifdef BOOST_NO_ANSI_APIS
- __declspec(dllimport) void* __stdcall CreateMutexW(_SECURITY_ATTRIBUTES*,int,wchar_t const*);
- __declspec(dllimport) void* __stdcall CreateSemaphoreW(_SECURITY_ATTRIBUTES*,long,long,wchar_t const*);
- __declspec(dllimport) void* __stdcall CreateEventW(_SECURITY_ATTRIBUTES*,int,int,wchar_t const*);
- __declspec(dllimport) void* __stdcall OpenEventW(unsigned long,int,wchar_t const*);
-# else
- __declspec(dllimport) void* __stdcall CreateMutexA(_SECURITY_ATTRIBUTES*,int,char const*);
- __declspec(dllimport) void* __stdcall CreateSemaphoreA(_SECURITY_ATTRIBUTES*,long,long,char const*);
- __declspec(dllimport) void* __stdcall CreateEventA(_SECURITY_ATTRIBUTES*,int,int,char const*);
- __declspec(dllimport) void* __stdcall OpenEventA(unsigned long,int,char const*);
-# endif
- __declspec(dllimport) int __stdcall CloseHandle(void*);
- __declspec(dllimport) int __stdcall ReleaseMutex(void*);
- __declspec(dllimport) unsigned long __stdcall WaitForSingleObject(void*,unsigned long);
- __declspec(dllimport) unsigned long __stdcall WaitForMultipleObjects(unsigned long nCount,void* const * lpHandles,int bWaitAll,unsigned long dwMilliseconds);
- __declspec(dllimport) int __stdcall ReleaseSemaphore(void*,long,long*);
- __declspec(dllimport) int __stdcall DuplicateHandle(void*,void*,void*,void**,unsigned long,int,unsigned long);
- __declspec(dllimport) unsigned long __stdcall SleepEx(unsigned long,int);
- __declspec(dllimport) void __stdcall Sleep(unsigned long);
- typedef void (__stdcall *queue_user_apc_callback_function)(ulong_ptr);
- __declspec(dllimport) unsigned long __stdcall QueueUserAPC(queue_user_apc_callback_function,void*,ulong_ptr);
-
- __declspec(dllimport) unsigned long __stdcall GetTickCount();
-# ifdef BOOST_THREAD_WIN32_HAS_GET_TICK_COUNT_64
- __declspec(dllimport) ticks_type __stdcall GetTickCount64();
-# endif
-# ifndef UNDER_CE
- __declspec(dllimport) unsigned long __stdcall GetCurrentProcessId();
- __declspec(dllimport) unsigned long __stdcall GetCurrentThreadId();
- __declspec(dllimport) void* __stdcall GetCurrentThread();
- __declspec(dllimport) void* __stdcall GetCurrentProcess();
- __declspec(dllimport) int __stdcall SetEvent(void*);
- __declspec(dllimport) int __stdcall ResetEvent(void*);
-# else
- using ::GetCurrentProcessId;
- using ::GetCurrentThreadId;
- using ::GetCurrentThread;
- using ::GetCurrentProcess;
- using ::SetEvent;
- using ::ResetEvent;
-# endif
- }
-# ifndef BOOST_THREAD_WIN32_HAS_GET_TICK_COUNT_64
- inline ticks_type GetTickCount64() { return GetTickCount(); }
-# endif
- }
- }
-}
-#else
-# error "Win32 functions not available"
-#endif
-
-#include <boost/config/abi_prefix.hpp>
-
-namespace boost
-{
- namespace detail
- {
- namespace win32
- {
- enum event_type
- {
- auto_reset_event=false,
- manual_reset_event=true
- };
-
- enum initial_event_state
- {
- event_initially_reset=false,
- event_initially_set=true
- };
-
- inline handle create_anonymous_event(event_type type,initial_event_state state)
- {
-#if !defined(BOOST_NO_ANSI_APIS)
- handle const res=win32::CreateEventA(0,type,state,0);
-#else
- handle const res=win32::CreateEventW(0,type,state,0);
-#endif
- if(!res)
- {
- boost::throw_exception(thread_resource_error());
- }
- return res;
- }
-
- inline handle create_anonymous_semaphore(long initial_count,long max_count)
- {
-#if !defined(BOOST_NO_ANSI_APIS)
- handle const res=CreateSemaphoreA(0,initial_count,max_count,0);
-#else
- handle const res=CreateSemaphoreW(0,initial_count,max_count,0);
-#endif
- if(!res)
- {
- boost::throw_exception(thread_resource_error());
- }
- return res;
- }
- inline handle create_anonymous_semaphore_nothrow(long initial_count,long max_count)
- {
-#if !defined(BOOST_NO_ANSI_APIS)
- handle const res=CreateSemaphoreA(0,initial_count,max_count,0);
-#else
- handle const res=CreateSemaphoreW(0,initial_count,max_count,0);
-#endif
- return res;
- }
-
- inline handle duplicate_handle(handle source)
- {
- handle const current_process=GetCurrentProcess();
- long const same_access_flag=2;
- handle new_handle=0;
- bool const success=DuplicateHandle(current_process,source,current_process,&new_handle,0,false,same_access_flag)!=0;
- if(!success)
- {
- boost::throw_exception(thread_resource_error());
- }
- return new_handle;
- }
-
- inline void release_semaphore(handle semaphore,long count)
- {
- BOOST_VERIFY(ReleaseSemaphore(semaphore,count,0)!=0);
- }
-
- class BOOST_THREAD_DECL handle_manager
- {
- private:
- handle handle_to_manage;
- handle_manager(handle_manager&);
- handle_manager& operator=(handle_manager&);
-
- void cleanup()
- {
- if(handle_to_manage && handle_to_manage!=invalid_handle_value)
- {
- BOOST_VERIFY(CloseHandle(handle_to_manage));
- }
- }
-
- public:
- explicit handle_manager(handle handle_to_manage_):
- handle_to_manage(handle_to_manage_)
- {}
- handle_manager():
- handle_to_manage(0)
- {}
-
- handle_manager& operator=(handle new_handle)
- {
- cleanup();
- handle_to_manage=new_handle;
- return *this;
- }
-
- operator handle() const
- {
- return handle_to_manage;
- }
-
- handle duplicate() const
- {
- return duplicate_handle(handle_to_manage);
- }
-
- void swap(handle_manager& other)
- {
- std::swap(handle_to_manage,other.handle_to_manage);
- }
-
- handle release()
- {
- handle const res=handle_to_manage;
- handle_to_manage=0;
- return res;
- }
-
- bool operator!() const
- {
- return !handle_to_manage;
- }
-
- ~handle_manager()
- {
- cleanup();
- }
- };
-
- }
- }
-}
-
-#if defined(BOOST_MSVC) && (_MSC_VER>=1400) && !defined(UNDER_CE)
-
-namespace boost
-{
- namespace detail
- {
- namespace win32
- {
-#if _MSC_VER==1400
- extern "C" unsigned char _interlockedbittestandset(long *a,long b);
- extern "C" unsigned char _interlockedbittestandreset(long *a,long b);
-#else
- extern "C" unsigned char _interlockedbittestandset(volatile long *a,long b);
- extern "C" unsigned char _interlockedbittestandreset(volatile long *a,long b);
-#endif
-
-#pragma intrinsic(_interlockedbittestandset)
-#pragma intrinsic(_interlockedbittestandreset)
-
- inline bool interlocked_bit_test_and_set(long* x,long bit)
- {
- return _interlockedbittestandset(x,bit)!=0;
- }
-
- inline bool interlocked_bit_test_and_reset(long* x,long bit)
- {
- return _interlockedbittestandreset(x,bit)!=0;
- }
-
- }
- }
-}
-#define BOOST_THREAD_BTS_DEFINED
-#elif (defined(BOOST_MSVC) || defined(BOOST_INTEL_WIN)) && defined(_M_IX86)
-namespace boost
-{
- namespace detail
- {
- namespace win32
- {
- inline bool interlocked_bit_test_and_set(long* x,long bit)
- {
-#ifndef BOOST_INTEL_CXX_VERSION
- __asm {
- mov eax,bit;
- mov edx,x;
- lock bts [edx],eax;
- setc al;
- };
-#else
- bool ret;
- __asm {
- mov eax,bit
- mov edx,x
- lock bts [edx],eax
- setc al
- mov ret, al
- };
- return ret;
-
-#endif
- }
-
- inline bool interlocked_bit_test_and_reset(long* x,long bit)
- {
-#ifndef BOOST_INTEL_CXX_VERSION
- __asm {
- mov eax,bit;
- mov edx,x;
- lock btr [edx],eax;
- setc al;
- };
-#else
- bool ret;
- __asm {
- mov eax,bit
- mov edx,x
- lock btr [edx],eax
- setc al
- mov ret, al
- };
- return ret;
-
-#endif
- }
-
- }
- }
-}
-#define BOOST_THREAD_BTS_DEFINED
-#endif
-
-#ifndef BOOST_THREAD_BTS_DEFINED
-
-namespace boost
-{
- namespace detail
- {
- namespace win32
- {
- inline bool interlocked_bit_test_and_set(long* x,long bit)
- {
- long const value=1<<bit;
- long old=*x;
- do
- {
- long const current=BOOST_INTERLOCKED_COMPARE_EXCHANGE(x,old|value,old);
- if(current==old)
- {
- break;
- }
- old=current;
- }
- while(true);
- return (old&value)!=0;
- }
-
- inline bool interlocked_bit_test_and_reset(long* x,long bit)
- {
- long const value=1<<bit;
- long old=*x;
- do
- {
- long const current=BOOST_INTERLOCKED_COMPARE_EXCHANGE(x,old&~value,old);
- if(current==old)
- {
- break;
- }
- old=current;
- }
- while(true);
- return (old&value)!=0;
- }
- }
- }
-}
-#endif
-
-#include <boost/config/abi_suffix.hpp>
-
-#endif
diff --git a/SuperBuild/patches/BOOST/1.54.0/libs/coroutine/build/Jamfile.v2 b/SuperBuild/patches/BOOST/1.54.0/libs/coroutine/build/Jamfile.v2
deleted file mode 100644
index 4954465..0000000
--- a/SuperBuild/patches/BOOST/1.54.0/libs/coroutine/build/Jamfile.v2
+++ /dev/null
@@ -1,53 +0,0 @@
-
-# Copyright Oliver Kowalke 2009.
-# Distributed under the Boost Software License, Version 1.0.
-# (See accompanying file LICENSE_1_0.txt or copy at
-# http://www.boost.org/LICENSE_1_0.txt)
-
-import feature ;
-import modules ;
-import toolset ;
-
-feature.feature segmented-stacks : on : optional propagated composite ;
-feature.compose <segmented-stacks>on : <define>BOOST_USE_SEGMENTED_STACKS ;
-
-project boost/coroutine
- : requirements
- <library>/boost/context//boost_context
- <toolset>gcc-4.7,<segmented-stacks>on:<cxxflags>-fsplit-stack
- <toolset>gcc-4.7,<segmented-stacks>on:<linkflags>"-static-libgcc"
- <toolset>gcc-4.8,<segmented-stacks>on:<cxxflags>-fsplit-stack
- <toolset>gcc-4.8,<segmented-stacks>on:<linkflags>"-static-libgcc"
- <link>static
- <threading>multi
- : source-location ../src
- : usage-requirements
- <link>shared:<define>BOOST_COROUTINES_DYN_LINK=1
- ;
-
-alias allocator_sources
- : detail/standard_stack_allocator_windows.cpp
- : <target-os>windows
- ;
-
-alias allocator_sources
- : detail/standard_stack_allocator_posix.cpp
- detail/segmented_stack_allocator.cpp
- : <segmented-stacks>on
- ;
-
-alias allocator_sources
- : detail/standard_stack_allocator_posix.cpp
- ;
-
-explicit allocator_sources ;
-
-lib boost_coroutine
- : allocator_sources
- detail/coroutine_context.cpp
- : <link>shared:<define>BOOST_COROUTINES_DYN_LINK=1
- :
- : <link>shared:<library>../../context/build//boost_context
- ;
-
-boost-install boost_coroutine ;
diff --git a/SuperBuild/patches/BOOST/CMakeLists.txt b/SuperBuild/patches/BOOST/CMakeLists.txt
deleted file mode 100644
index eec3383..0000000
--- a/SuperBuild/patches/BOOST/CMakeLists.txt
+++ /dev/null
@@ -1,8 +0,0 @@
-cmake_minimum_required(VERSION 2.8.3)
-
-project(boost)
-
-install(DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR}/boost
- DESTINATION ${CMAKE_INSTALL_PREFIX}/include
- FILES_MATCHING PATTERN "*.hpp" PATTERN "*.ipp" PATTERN "*.h")
-
diff --git a/SuperBuild/patches/GDAL/CMakeLists.txt b/SuperBuild/patches/GDAL/CMakeLists.txt
deleted file mode 100644
index bf48724..0000000
--- a/SuperBuild/patches/GDAL/CMakeLists.txt
+++ /dev/null
@@ -1,51 +0,0 @@
-cmake_minimum_required(VERSION 2.8.3)
-
-project(gdal_install)
-
-file(GLOB GDAL_APPS "${GDAL_BUILD_DIR}/apps/*.exe")
-foreach(GDAL_APP ${GDAL_APPS})
-install(FILES ${GDAL_APP} DESTINATION bin/gdal/apps COMPONENT Development)
-endforeach()
-
-file(GLOB GDAL_DATAS "${GDAL_BUILD_DIR}/data/*.*")
-message(STATUS ${GDAL_DATAS})
-foreach(GDAL_DATA ${GDAL_DATAS})
-install(FILES ${GDAL_DATA} DESTINATION bin/gdal-data COMPONENT Development)
-endforeach()
-
-
- # if exist $(OUTPUT_DIR)\bin\gdal\plugins del $(OUTPUT_DIR)\bin\gdal\plugins\*.dll
- # if exist $(OUTPUT_DIR)\bin\gdal\plugins-optional del $(OUTPUT_DIR)\bin\gdal\plugins-optional\*.dll
- # if exist $(OUTPUT_DIR)\bin\gdal\plugins-external del $(OUTPUT_DIR)\bin\gdal\plugins-external\*.dll
-
-file(GLOB ${PROJECT_NAME}_HEADERS
-"${GDAL_BUILD_DIR}/port/*.h"
-"${GDAL_BUILD_DIR}/gcore/*.h"
-"${GDAL_BUILD_DIR}/alg/*.h"
-"${GDAL_BUILD_DIR}/ogr/*.h"
-"${GDAL_BUILD_DIR}/frmts/mem/memdataset.h"
-"${GDAL_BUILD_DIR}/frmts/raw/rawdataset.h"
-"${GDAL_BUILD_DIR}/frmts/vrt/*.h"
-"${GDAL_BUILD_DIR}/ogr/ogrsf_frmts/*.h")
-
-file(GLOB ${PROJECT_NAME}_LIBS "${GDAL_BUILD_DIR}/*.lib" )
-
-file(GLOB ${PROJECT_NAME}_DLLS "${GDAL_BUILD_DIR}/*.dll" )
-
-foreach(${PROJECT_NAME}_HEADER ${${PROJECT_NAME}_HEADERS})
-install(FILES ${${PROJECT_NAME}_HEADER}
- DESTINATION include
- COMPONENT Development)
-endforeach()
-
-foreach(${PROJECT_NAME}_LIB ${${PROJECT_NAME}_LIBS})
-install(FILES ${${PROJECT_NAME}_LIB}
- DESTINATION lib
- COMPONENT Development)
-endforeach()
-
-foreach(${PROJECT_NAME}_DLL ${${PROJECT_NAME}_DLLS})
-install(FILES ${${PROJECT_NAME}_DLL}
- DESTINATION bin
- COMPONENT Development)
-endforeach()
\ No newline at end of file
diff --git a/SuperBuild/patches/GDAL/nmake_gdal_extra.opt.in b/SuperBuild/patches/GDAL/nmake_gdal_extra.opt.in
deleted file mode 100644
index 7346a0b..0000000
--- a/SuperBuild/patches/GDAL/nmake_gdal_extra.opt.in
+++ /dev/null
@@ -1,101 +0,0 @@
-
-# Comment out the following to disable BSB support.
-BSB_SUPPORTED = 1
-
-# Comment out the following to disable ODBC support.
-ODBC_SUPPORTED = 1
-
-# Comment out the following to disable JPEG support.
-JPEG_SUPPORTED = 1
-
-# This will enable 12bit libjpeg - use only with internal jpeg builds.
-#JPEG12_SUPPORTED = 1
-
-GDAL_HOME="@CMAKE_WIN_INSTALL_PREFIX@"
-
-
-#if using an external jpeg library uncomment the follwing lines
-JPEG_EXTERNAL_LIB = 1
-JPEGDIR = @CMAKE_WIN_INSTALL_PREFIX@\include
-JPEG_LIB = @CMAKE_WIN_INSTALL_PREFIX@\lib\libjpeg.lib
-
-#if using an external png library uncomment the follwing lines
-PNG_EXTERNAL_LIB = 1
-PNGDIR = @CMAKE_WIN_INSTALL_PREFIX@\include
-PNG_LIB = @CMAKE_WIN_INSTALL_PREFIX@\lib\libpng16.lib
-
-# if using an external libtiff library
-TIFF_INC = -I at CMAKE_WIN_INSTALL_PREFIX@\include
-TIFF_LIB = @CMAKE_WIN_INSTALL_PREFIX@\lib\libtiff_i.lib
-# uncomment following line, if you have libtiff version >= 4.0 to enable BigTIFF support
-TIFF_OPTS= -DBIGTIFF_SUPPORT
-
-# if using an external libgeotiff library
-GEOTIFF_INC = -I at CMAKE_WIN_INSTALL_PREFIX@\include
-GEOTIFF_LIB = @CMAKE_WIN_INSTALL_PREFIX@\lib\geotiff_i.lib
-
-EXPAT_DIR = @CMAKE_WIN_INSTALL_PREFIX@
-EXPAT_INCLUDE = -I$(EXPAT_DIR)\include
-EXPAT_LIB = $(EXPAT_DIR)\lib\expat.lib
-
-# SQLite Libraries
-SQLITE_INC=-I at CMAKE_WIN_INSTALL_PREFIX@\include
-SQLITE_LIB=@CMAKE_WIN_INSTALL_PREFIX@\lib\sqlite3.lib
-# Uncomment following line if libsqlite3 has been compiled with SQLITE_HAS_COLUMN_METADATA=yes
-SQLITE_HAS_COLUMN_METADATA=yes
-
-# PROJ.4 stuff
-PROJ_INCLUDE = -I at CMAKE_WIN_INSTALL_PREFIX@\include
-PROJ_LIBRARY = @CMAKE_WIN_INSTALL_PREFIX@\lib\proj_i.lib
-
-# Uncomment to use libcurl (DLL by default)
-# The cURL library is used for WCS, WMS, GeoJSON, SRS call importFromUrl(), WFS, GFT, CouchDB, /vsicurl/ etc.
-CURL_DIR=@CMAKE_WIN_INSTALL_PREFIX@
-CURL_INC = -I$(CURL_DIR)\include
-# Uncoment following line to use libcurl as dynamic library
-CURL_LIB = $(CURL_DIR)\lib\libcurl.lib wsock32.lib wldap32.lib winmm.lib
-
-# Uncomment for GEOS support (GEOS >= 3.1.0 required)
-GEOS_DIR=@CMAKE_WIN_INSTALL_PREFIX@
-GEOS_CFLAGS = -I$(GEOS_DIR)\include -I$(GEOS_DIR)\include\geos -DHAVE_GEOS
-GEOS_LIB = $(GEOS_DIR)\lib\geos.lib $(GEOS_DIR)\lib\geos_c.lib
-
-# Uncomment for OpenJpeg support
-HAVE_OPENJPEG = YES
-OPENJPEG_ENABLED = YES
-OPENJPEG_VERSION = 20100
-OPENJPEG_CFLAGS = -I at CMAKE_WIN_INSTALL_PREFIX@\include
-OPENJPEG_LIB = @CMAKE_WIN_INSTALL_PREFIX@\lib\openjp2.lib
-
-
-
-##################################################################
-################# TO be enabled for OTB ##########################
-
-# Uncomment out the following lines to enable LibKML support.
-#LIBKML_DIR = C:/Dev/libkml
-#LIBKML_INCLUDE = -I$(LIBKML_DIR)/src -I$(LIBKML_DIR)/third_party/boost_1_34_1
-#LIBKML_LIBRARY = $(LIBKML_DIR)/msvc/Release
-#LIBKML_LIBS = $(LIBKML_LIBRARY)/libkmlbase.lib \
-# $(LIBKML_LIBRARY)/libkmlconvenience.lib \
-# $(LIBKML_LIBRARY)/libkmldom.lib \
-# $(LIBKML_LIBRARY)/libkmlengine.lib \
-# $(LIBKML_LIBRARY)/libkmlregionator.lib \
-# $(LIBKML_LIBRARY)/libkmlxsd.lib \
-# $(LIBKML_LIBRARY)/minizip_static.lib \
-# $(LIBKML_DIR)/third_party\expat.win32/libexpat.lib \
-# $(LIBKML_DIR)/third_party\uriparser-0.7.5.win32/release/uriparser.lib \
-# $(LIBKML_DIR)/third_party\zlib-1.2.3.win32/lib/minizip.lib \
-# $(LIBKML_DIR)/third_party\zlib-1.2.3.win32/lib/zlib.lib
-
-
-# Uncomment the following and update to enable NCSA HDF Release 4 support.
-#HDF4_PLUGIN = NO
-#HDF4_DIR = D:\warmerda\HDF41r5
-#HDF4_LIB = /LIBPATH:$(HDF4_DIR)\lib Ws2_32.lib
-
-# Uncomment the following and update to enable NCSA HDF Release 5 support.
-#HDF5_PLUGIN = NO
-#HDF5_DIR = c:\warmerda\supportlibs\hdf5\5-164-win
-#HDF5_LIB = $(HDF5_DIR)\dll\hdf5dll.lib
-
diff --git a/SuperBuild/patches/GDAL/ogrsqlitevirtualogr.cpp b/SuperBuild/patches/GDAL/ogrsqlitevirtualogr.cpp
deleted file mode 100644
index 08bef44..0000000
--- a/SuperBuild/patches/GDAL/ogrsqlitevirtualogr.cpp
+++ /dev/null
@@ -1,2464 +0,0 @@
-/******************************************************************************
- * $Id: ogrsqlitevirtualogr.cpp 27044 2014-03-16 23:41:27Z rouault $
- *
- * Project: OpenGIS Simple Features Reference Implementation
- * Purpose: SQLite Virtual Table module using OGR layers
- * Author: Even Rouault, even dot rouault at mines dash paris dot org
- *
- ******************************************************************************
- * Copyright (c) 2012-2013, Even Rouault <even dot rouault at mines-paris dot org>
- *
- * Permission is hereby granted, free of charge, to any person obtaining a
- * copy of this software and associated documentation files (the "Software"),
- * to deal in the Software without restriction, including without limitation
- * the rights to use, copy, modify, merge, publish, distribute, sublicense,
- * and/or sell copies of the Software, and to permit persons to whom the
- * Software is furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice shall be included
- * in all copies or substantial portions of the Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
- * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
- * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
- * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
- * DEALINGS IN THE SOFTWARE.
- ****************************************************************************/
-
-#include "ogrsqlitevirtualogr.h"
-#include "ogr_api.h"
-#include "swq.h"
-#include <map>
-#include <vector>
-
-#ifdef HAVE_SQLITE_VFS
-/************************************************************************/
-/* OGR2SQLITE_Register() */
-/************************************************************************/
-
-CPL_C_START
-int CPL_DLL OGR2SQLITE_static_register (sqlite3* hDB, char **pzErrMsg, void* pApi);
-CPL_C_END
-
-/* We call this function so that each time a db is created, */
-/* OGR2SQLITE_static_register is called, to initialize the sqlite3_api */
-/* structure with the right pointers. */
-/* We need to declare this function before including sqlite3ext.h, since */
-/* sqlite 3.8.7, sqlite3_auto_extension can be a macro (#5725) */
-
-void OGR2SQLITE_Register()
-{
- sqlite3_auto_extension ((void (*)(void)) OGR2SQLITE_static_register);
-}
-
-/************************************************************************/
-#define VIRTUAL_OGR_DYNAMIC_EXTENSION_ENABLED
-//#define DEBUG_OGR2SQLITE
-
-#if defined(SPATIALITE_AMALGAMATION)
-#include "ogrsqlite3ext.h"
-#else
-#include "sqlite3ext.h"
-#endif
-
-/* Declaration of sqlite3_api structure */
-static SQLITE_EXTENSION_INIT1
-
-/* The layout of fields is :
- 0 : RegularField0
- ...
- n-1 : RegularField(n-1)
- n : OGR_STYLE (may be HIDDEN)
- n+1 : GEOMETRY
-*/
-
-#define COMPILATION_ALLOWED
-#include "ogrsqlitesqlfunctions.cpp" /* yes the .cpp file, to make it work on Windows with load_extension('gdalXX.dll') */
-#undef COMPILATION_ALLOWED
-
-/************************************************************************/
-/* OGR2SQLITEModule */
-/************************************************************************/
-
-class OGR2SQLITEModule
-{
-#ifdef DEBUG
- void* pDummy; /* to track memory leaks */
-#endif
- sqlite3* hDB; /* *NOT* to be freed */
-
- OGRDataSource* poDS; /* *NOT* to be freed */
- std::vector<OGRDataSource*> apoExtraDS; /* each datasource to be freed */
-
- OGRSQLiteDataSource* poSQLiteDS; /* *NOT* to be freed, might be NULL */
-
- std::map< CPLString, OGRLayer* > oMapVTableToOGRLayer;
-
- void* hHandleSQLFunctions;
-
- public:
- OGR2SQLITEModule();
- ~OGR2SQLITEModule();
-
- int Setup(OGRDataSource* poDS,
- OGRSQLiteDataSource* poSQLiteDS);
- int Setup(sqlite3* hDB);
-
- OGRDataSource* GetDS() { return poDS; }
-
- int AddExtraDS(OGRDataSource* poDS);
- OGRDataSource *GetExtraDS(int nIndex);
-
- int FetchSRSId(OGRSpatialReference* poSRS);
-
- void RegisterVTable(const char* pszVTableName, OGRLayer* poLayer);
- void UnregisterVTable(const char* pszVTableName);
- OGRLayer* GetLayerForVTable(const char* pszVTableName);
-
- void SetHandleSQLFunctions(void* hHandleSQLFunctionsIn);
-};
-
-/************************************************************************/
-/* OGR2SQLITEModule() */
-/************************************************************************/
-
-OGR2SQLITEModule::OGR2SQLITEModule() :
- hDB(NULL), poDS(NULL), poSQLiteDS(NULL), hHandleSQLFunctions(NULL)
-{
-#ifdef DEBUG
- pDummy = CPLMalloc(1);
-#endif
-}
-
-/************************************************************************/
-/* ~OGR2SQLITEModule */
-/************************************************************************/
-
-OGR2SQLITEModule::~OGR2SQLITEModule()
-{
-#ifdef DEBUG
- CPLFree(pDummy);
-#endif
-
- for(int i=0;i<(int)apoExtraDS.size();i++)
- delete apoExtraDS[i];
-
- OGRSQLiteUnregisterSQLFunctions(hHandleSQLFunctions);
-}
-
-/************************************************************************/
-/* SetHandleSQLFunctions() */
-/************************************************************************/
-
-void OGR2SQLITEModule::SetHandleSQLFunctions(void* hHandleSQLFunctionsIn)
-{
- CPLAssert(hHandleSQLFunctions == NULL);
- hHandleSQLFunctions = hHandleSQLFunctionsIn;
-}
-
-/************************************************************************/
-/* AddExtraDS() */
-/************************************************************************/
-
-int OGR2SQLITEModule::AddExtraDS(OGRDataSource* poDS)
-{
- int nRet = (int)apoExtraDS.size();
- apoExtraDS.push_back(poDS);
- return nRet;
-}
-
-/************************************************************************/
-/* GetExtraDS() */
-/************************************************************************/
-
-OGRDataSource* OGR2SQLITEModule::GetExtraDS(int nIndex)
-{
- if( nIndex < 0 || nIndex >= (int)apoExtraDS.size() )
- return NULL;
- return apoExtraDS[nIndex];
-}
-
-/************************************************************************/
-/* Setup() */
-/************************************************************************/
-
-int OGR2SQLITEModule::Setup(OGRDataSource* poDSIn,
- OGRSQLiteDataSource* poSQLiteDSIn)
-{
- CPLAssert(poDS == NULL);
- CPLAssert(poSQLiteDS == NULL);
- poDS = poDSIn;
- poSQLiteDS = poSQLiteDSIn;
- return Setup(poSQLiteDS->GetDB());
-}
-
-/************************************************************************/
-/* FetchSRSId() */
-/************************************************************************/
-
-int OGR2SQLITEModule::FetchSRSId(OGRSpatialReference* poSRS)
-{
- int nSRSId;
-
- if( poSQLiteDS != NULL )
- {
- nSRSId = poSQLiteDS->GetUndefinedSRID();
- if( poSRS != NULL )
- nSRSId = poSQLiteDS->FetchSRSId(poSRS);
- }
- else
- {
- nSRSId = -1;
- if( poSRS != NULL )
- {
- const char* pszAuthorityName = poSRS->GetAuthorityName(NULL);
- if (pszAuthorityName != NULL && EQUAL(pszAuthorityName, "EPSG"))
- {
- const char* pszAuthorityCode = poSRS->GetAuthorityCode(NULL);
- if ( pszAuthorityCode != NULL && strlen(pszAuthorityCode) > 0 )
- {
- nSRSId = atoi(pszAuthorityCode);
- }
- }
- }
- }
-
- return nSRSId;
-}
-
-/************************************************************************/
-/* RegisterVTable() */
-/************************************************************************/
-
-void OGR2SQLITEModule::RegisterVTable(const char* pszVTableName,
- OGRLayer* poLayer)
-{
- oMapVTableToOGRLayer[pszVTableName] = poLayer;
-}
-
-/************************************************************************/
-/* UnregisterVTable() */
-/************************************************************************/
-
-void OGR2SQLITEModule::UnregisterVTable(const char* pszVTableName)
-{
- oMapVTableToOGRLayer[pszVTableName] = NULL;
-}
-
-/************************************************************************/
-/* GetLayerForVTable() */
-/************************************************************************/
-
-OGRLayer* OGR2SQLITEModule::GetLayerForVTable(const char* pszVTableName)
-{
- std::map<CPLString, OGRLayer*>::iterator oIter =
- oMapVTableToOGRLayer.find(pszVTableName);
- if( oIter == oMapVTableToOGRLayer.end() )
- return NULL;
-
- OGRLayer* poLayer = oIter->second;
- if( poLayer == NULL )
- {
- /* If the associate layer is null, then try to "ping" the virtual */
- /* table since we know that we have managed to create it before */
- if( sqlite3_exec(hDB,
- CPLSPrintf("PRAGMA table_info(\"%s\")",
- OGRSQLiteEscapeName(pszVTableName).c_str()),
- NULL, NULL, NULL) == SQLITE_OK )
- {
- poLayer = oMapVTableToOGRLayer[pszVTableName];
- }
- }
-
- return poLayer;
-}
-
-/* See http://www.sqlite.org/vtab.html for the documentation on how to
- implement a new module for the Virtual Table mechanism. */
-
-/************************************************************************/
-/* OGR2SQLITE_vtab */
-/************************************************************************/
-
-typedef struct
-{
- /* Mandatory fields by sqlite3: don't change or reorder them ! */
- const sqlite3_module *pModule;
- int nRef;
- char *zErrMsg;
-
- /* Extension fields */
- char *pszVTableName;
- OGR2SQLITEModule *poModule;
- OGRDataSource *poDS;
- int bCloseDS;
- OGRLayer *poLayer;
- int nMyRef;
-} OGR2SQLITE_vtab;
-
-/************************************************************************/
-/* OGR2SQLITE_vtab_cursor */
-/************************************************************************/
-
-typedef struct
-{
- /* Mandatory fields by sqlite3: don't change or reorder them ! */
- OGR2SQLITE_vtab *pVTab;
-
- /* Extension fields */
- OGRDataSource *poDupDataSource;
- OGRLayer *poLayer;
- OGRFeature *poFeature;
-
- /* nFeatureCount >= 0 if the layer has a feast feature count capability. */
- /* In which case nNextWishedIndex and nCurFeatureIndex */
- /* will be used to avoid useless GetNextFeature() */
- /* Helps in SELECT COUNT(*) FROM xxxx scenarios */
- int nFeatureCount;
- int nNextWishedIndex;
- int nCurFeatureIndex;
-
- GByte *pabyGeomBLOB;
- int nGeomBLOBLen;
-} OGR2SQLITE_vtab_cursor;
-
-
-/************************************************************************/
-/* OGR2SQLITE_GetNameForGeometryColumn() */
-/************************************************************************/
-
-CPLString OGR2SQLITE_GetNameForGeometryColumn(OGRLayer* poLayer)
-{
- if( poLayer->GetGeometryColumn() != NULL &&
- !EQUAL(poLayer->GetGeometryColumn(), "") )
- {
- return poLayer->GetGeometryColumn();
- }
- else
- {
- CPLString osGeomCol("GEOMETRY");
- int bTry = 2;
- while( poLayer->GetLayerDefn()->GetFieldIndex(osGeomCol) >= 0 )
- {
- osGeomCol.Printf("GEOMETRY%d", bTry++);
- }
- return osGeomCol;
- }
-}
-
-#ifdef VIRTUAL_OGR_DYNAMIC_EXTENSION_ENABLED
-
-/************************************************************************/
-/* OGR2SQLITEDetectSuspiciousUsage() */
-/************************************************************************/
-
-static int OGR2SQLITEDetectSuspiciousUsage(sqlite3* hDB,
- const char* pszVirtualTableName,
- char**pzErr)
-{
- char **papszResult = NULL;
- int nRowCount = 0, nColCount = 0;
- int i;
-
- std::vector<CPLString> aosDatabaseNames;
-
- /* Collect database names */
- sqlite3_get_table( hDB, "PRAGMA database_list",
- &papszResult, &nRowCount, &nColCount, NULL );
-
- for(i = 1; i <= nRowCount; i++)
- {
- const char* pszUnescapedName = papszResult[i * nColCount + 1];
- aosDatabaseNames.push_back(
- CPLSPrintf("\"%s\".sqlite_master",
- OGRSQLiteEscapeName(pszUnescapedName).c_str()));
- }
-
- /* Add special database (just in case, not sure it is really needed) */
- aosDatabaseNames.push_back("sqlite_temp_master");
-
- sqlite3_free_table(papszResult);
- papszResult = NULL;
-
- /* Check the triggers of each database */
- for(i = 0; i < (int)aosDatabaseNames.size(); i++ )
- {
- nRowCount = 0; nColCount = 0;
-
- const char* pszSQL;
-
- pszSQL = CPLSPrintf("SELECT name, sql FROM %s "
- "WHERE (type = 'trigger' OR type = 'view') AND ("
- "sql LIKE '%%%s%%' OR "
- "sql LIKE '%%\"%s\"%%' OR "
- "sql LIKE '%%ogr_layer_%%' )",
- aosDatabaseNames[i].c_str(),
- pszVirtualTableName,
- OGRSQLiteEscapeName(pszVirtualTableName).c_str());
-
- sqlite3_get_table( hDB, pszSQL, &papszResult, &nRowCount, &nColCount,
- NULL );
-
- sqlite3_free_table(papszResult);
- papszResult = NULL;
-
- if( nRowCount > 0 )
- {
- if( !CSLTestBoolean(CPLGetConfigOption("ALLOW_VIRTUAL_OGR_FROM_TRIGGER_AND_VIEW", "NO")) )
- {
- *pzErr = sqlite3_mprintf(
- "A trigger and/or view might reference VirtualOGR table '%s'.\n"
- "This is suspicious practice that could be used to steal data without your consent.\n"
- "Disabling access to it unless you define the ALLOW_VIRTUAL_OGR_FROM_TRIGGER_AND_VIEW "
- "configuration option to YES.",
- pszVirtualTableName);
- return TRUE;
- }
- }
- }
-
- return FALSE;
-}
-
-#endif // VIRTUAL_OGR_DYNAMIC_EXTENSION_ENABLED
-
-/************************************************************************/
-/* OGR2SQLITE_ConnectCreate() */
-/************************************************************************/
-
-static
-int OGR2SQLITE_DisconnectDestroy(sqlite3_vtab *pVTab);
-
-static
-int OGR2SQLITE_ConnectCreate(sqlite3* hDB, void *pAux,
- int argc, const char *const*argv,
- sqlite3_vtab **ppVTab, char**pzErr)
-{
- OGR2SQLITEModule* poModule = (OGR2SQLITEModule*) pAux;
- OGRLayer* poLayer = NULL;
- OGRDataSource* poDS = NULL;
- int bExposeOGR_STYLE = FALSE;
- int bCloseDS = FALSE;
- int bInternalUse = FALSE;
- int i;
-
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "ConnectCreate(%s)", argv[2]);
-#endif
-
- /*for(i=0;i<argc;i++)
- printf("[%d] %s\n", i, argv[i]);*/
-
-/* -------------------------------------------------------------------- */
-/* If called from ogrexecutesql.cpp */
-/* -------------------------------------------------------------------- */
- poDS = poModule->GetDS();
- if( poDS != NULL && argc == 6 &&
- CPLGetValueType(argv[3]) == CPL_VALUE_INTEGER )
- {
- bInternalUse = TRUE;
- if( argc != 6 )
- {
- *pzErr = sqlite3_mprintf(
- "Expected syntax: CREATE VIRTUAL TABLE xxx USING "
- "VirtualOGR(ds_idx, layer_name, expose_ogr_style)");
- return SQLITE_ERROR;
- }
-
- int nDSIndex = atoi(argv[3]);
- if( nDSIndex >= 0 )
- {
- poDS = poModule->GetExtraDS(nDSIndex);
- if( poDS == NULL )
- {
- *pzErr = sqlite3_mprintf("Invalid dataset index : %d", nDSIndex);
- return SQLITE_ERROR;
- }
- }
- CPLString osLayerName(OGRSQLiteParamsUnquote(argv[4]));
-
- poLayer = poDS->GetLayerByName(osLayerName);
- if( poLayer == NULL )
- {
- *pzErr = sqlite3_mprintf( "Cannot find layer '%s' in '%s'",
- osLayerName.c_str(), poDS->GetName() );
- return SQLITE_ERROR;
- }
-
- bExposeOGR_STYLE = atoi(OGRSQLiteParamsUnquote(argv[5]));
- }
-#ifdef VIRTUAL_OGR_DYNAMIC_EXTENSION_ENABLED
-/* -------------------------------------------------------------------- */
-/* If called from outside (OGR loaded as a sqlite3 extension) */
-/* -------------------------------------------------------------------- */
- else
- {
- if( argc < 4 || argc > 7 )
- {
- *pzErr = sqlite3_mprintf(
- "Expected syntax: CREATE VIRTUAL TABLE xxx USING "
- "VirtualOGR(datasource_name[, update_mode, [layer_name[, expose_ogr_style]]])");
- return SQLITE_ERROR;
- }
-
- if( OGR2SQLITEDetectSuspiciousUsage(hDB, argv[2], pzErr) )
- {
- return SQLITE_ERROR;
- }
-
- CPLString osDSName(OGRSQLiteParamsUnquote(argv[3]));
- CPLString osUpdate(OGRSQLiteParamsUnquote((argc >= 5) ? argv[4] : "0"));
-
- if( !EQUAL(osUpdate, "1") && !EQUAL(osUpdate, "0") )
- {
- *pzErr = sqlite3_mprintf(
- "update_mode parameter should be 0 or 1");
- return SQLITE_ERROR;
- }
-
- int bUpdate = atoi(osUpdate);
-
- poDS = (OGRDataSource* )OGROpenShared(osDSName, bUpdate, NULL);
- if( poDS == NULL )
- {
- *pzErr = sqlite3_mprintf( "Cannot open datasource '%s'", osDSName.c_str() );
- return SQLITE_ERROR;
- }
-
- CPLString osLayerName;
- if( argc >= 6 )
- {
- osLayerName = OGRSQLiteParamsUnquote(argv[5]);
- poLayer = poDS->GetLayerByName(osLayerName);
- }
- else
- {
- if( poDS->GetLayerCount() == 0 )
- {
- *pzErr = sqlite3_mprintf( "Datasource '%s' has no layers",
- osDSName.c_str() );
- poDS->Release();
- return SQLITE_ERROR;
- }
-
- if( poDS->GetLayerCount() > 1 )
- {
- *pzErr = sqlite3_mprintf( "Datasource '%s' has more than one layers, and none was explicitely selected.",
- osDSName.c_str() );
- poDS->Release();
- return SQLITE_ERROR;
- }
-
- poLayer = poDS->GetLayer(0);
- }
-
- if( poLayer == NULL )
- {
- *pzErr = sqlite3_mprintf( "Cannot find layer '%s' in '%s'", osLayerName.c_str(), osDSName.c_str() );
- poDS->Release();
- return SQLITE_ERROR;
- }
-
- if( argc == 7 )
- {
- bExposeOGR_STYLE = atoi(OGRSQLiteParamsUnquote(argv[6]));
- }
-
- bCloseDS = TRUE;
- }
-#endif // VIRTUAL_OGR_DYNAMIC_EXTENSION_ENABLED
- OGR2SQLITE_vtab* vtab =
- (OGR2SQLITE_vtab*) CPLCalloc(1, sizeof(OGR2SQLITE_vtab));
- /* We dont need to fill the non-extended fields */
- vtab->pszVTableName = CPLStrdup(OGRSQLiteEscapeName(argv[2]));
- vtab->poModule = poModule;
- vtab->poDS = poDS;
- vtab->bCloseDS = bCloseDS;
- vtab->poLayer = poLayer;
- vtab->nMyRef = 0;
-
- poModule->RegisterVTable(vtab->pszVTableName, poLayer);
-
- *ppVTab = (sqlite3_vtab*) vtab;
-
- CPLString osSQL;
- osSQL = "CREATE TABLE ";
- osSQL += "\"";
- osSQL += OGRSQLiteEscapeName(argv[2]);
- osSQL += "\"";
- osSQL += "(";
-
- int bAddComma = FALSE;
-
- OGRFeatureDefn* poFDefn = poLayer->GetLayerDefn();
- for(i=0;i<poFDefn->GetFieldCount();i++)
- {
- if( bAddComma )
- osSQL += ",";
- bAddComma = TRUE;
-
- OGRFieldDefn* poFieldDefn = poFDefn->GetFieldDefn(i);
-
- osSQL += "\"";
- osSQL += OGRSQLiteEscapeName(poFieldDefn->GetNameRef());
- osSQL += "\"";
- osSQL += " ";
- osSQL += OGRSQLiteFieldDefnToSQliteFieldDefn(poFieldDefn);
- }
-
- if( bAddComma )
- osSQL += ",";
- bAddComma = TRUE;
- osSQL += "OGR_STYLE VARCHAR";
- if( !bExposeOGR_STYLE )
- osSQL += " HIDDEN";
-
- for(i=0;i<poFDefn->GetGeomFieldCount();i++)
- {
- if( bAddComma )
- osSQL += ",";
- bAddComma = TRUE;
-
- OGRGeomFieldDefn* poFieldDefn = poFDefn->GetGeomFieldDefn(i);
-
- osSQL += "\"";
- if( i == 0 )
- osSQL += OGRSQLiteEscapeName(OGR2SQLITE_GetNameForGeometryColumn(poLayer));
- else
- osSQL += OGRSQLiteEscapeName(poFieldDefn->GetNameRef());
- osSQL += "\"";
- osSQL += " BLOB";
-
- /* We use a special column type, e.g. BLOB_POINT_25D_4326 */
- /* when the virtual table is created by OGRSQLiteExecuteSQL() */
- /* and thus for interal use only. */
- if( bInternalUse )
- {
- osSQL += "_";
- osSQL += OGRToOGCGeomType(poFieldDefn->GetType());
- osSQL += "_";
- osSQL += (poFieldDefn->GetType() & wkb25DBit) ? "25D" : "2D";
- OGRSpatialReference* poSRS = poFieldDefn->GetSpatialRef();
- if( poSRS == NULL && i == 0 )
- poSRS = poLayer->GetSpatialRef();
- int nSRID = poModule->FetchSRSId(poSRS);
- if( nSRID >= 0 )
- {
- osSQL += "_";
- osSQL += CPLSPrintf("%d", nSRID);
- }
- }
- }
-
- osSQL += ")";
-
- CPLDebug("OGR2SQLITE", "sqlite3_declare_vtab(%s)", osSQL.c_str());
- if (sqlite3_declare_vtab (hDB, osSQL.c_str()) != SQLITE_OK)
- {
- *pzErr = sqlite3_mprintf("CREATE VIRTUAL: invalid SQL statement : %s",
- osSQL.c_str());
- OGR2SQLITE_DisconnectDestroy((sqlite3_vtab*) vtab);
- return SQLITE_ERROR;
- }
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITE_BestIndex() */
-/************************************************************************/
-
-static
-int OGR2SQLITE_BestIndex(sqlite3_vtab *pVTab, sqlite3_index_info* pIndex)
-{
- int i;
- OGR2SQLITE_vtab* pMyVTab = (OGR2SQLITE_vtab*) pVTab;
- OGRFeatureDefn* poFDefn = pMyVTab->poLayer->GetLayerDefn();
-
-#ifdef DEBUG_OGR2SQLITE
- CPLString osQueryPatternUsable, osQueryPatternNotUsable;
- for (i = 0; i < pIndex->nConstraint; i++)
- {
- int iCol = pIndex->aConstraint[i].iColumn;
- const char* pszFieldName;
- if( iCol == -1 )
- pszFieldName = "FID";
- else if( iCol >= 0 && iCol < poFDefn->GetFieldCount() )
- pszFieldName = poFDefn->GetFieldDefn(iCol)->GetNameRef();
- else
- pszFieldName = "unknown_field";
-
- const char* pszOp;
- switch(pIndex->aConstraint[i].op)
- {
- case SQLITE_INDEX_CONSTRAINT_EQ: pszOp = " = "; break;
- case SQLITE_INDEX_CONSTRAINT_GT: pszOp = " > "; break;
- case SQLITE_INDEX_CONSTRAINT_LE: pszOp = " <= "; break;
- case SQLITE_INDEX_CONSTRAINT_LT: pszOp = " < "; break;
- case SQLITE_INDEX_CONSTRAINT_GE: pszOp = " >= "; break;
- case SQLITE_INDEX_CONSTRAINT_MATCH: pszOp = " MATCH "; break;
- default: pszOp = " (unknown op) "; break;
- }
-
- if (pIndex->aConstraint[i].usable)
- {
- if (osQueryPatternUsable.size()) osQueryPatternUsable += " AND ";
- osQueryPatternUsable += pszFieldName;
- osQueryPatternUsable += pszOp;
- osQueryPatternUsable += "?";
- }
- else
- {
- if (osQueryPatternNotUsable.size()) osQueryPatternNotUsable += " AND ";
- osQueryPatternNotUsable += pszFieldName;
- osQueryPatternNotUsable += pszOp;
- osQueryPatternNotUsable += "?";
- }
- }
- CPLDebug("OGR2SQLITE", "BestIndex, usable ( %s ), not usable ( %s )",
- osQueryPatternUsable.c_str(), osQueryPatternNotUsable.c_str());
-#endif
-
- int nConstraints = 0;
- for (i = 0; i < pIndex->nConstraint; i++)
- {
- int iCol = pIndex->aConstraint[i].iColumn;
- if (pIndex->aConstraint[i].usable &&
- pIndex->aConstraint[i].op != SQLITE_INDEX_CONSTRAINT_MATCH &&
- iCol < poFDefn->GetFieldCount() &&
- (iCol < 0 || poFDefn->GetFieldDefn(iCol)->GetType() != OFTBinary))
- {
- pIndex->aConstraintUsage[i].argvIndex = nConstraints + 1;
- pIndex->aConstraintUsage[i].omit = TRUE;
-
- nConstraints ++;
- }
- else
- {
- pIndex->aConstraintUsage[i].argvIndex = 0;
- pIndex->aConstraintUsage[i].omit = FALSE;
- }
- }
-
- int* panConstraints = NULL;
-
- if( nConstraints )
- {
- panConstraints = (int*)
- sqlite3_malloc( sizeof(int) * (1 + 2 * nConstraints) );
- panConstraints[0] = nConstraints;
-
- nConstraints = 0;
-
- for (i = 0; i < pIndex->nConstraint; i++)
- {
- if (pIndex->aConstraintUsage[i].omit)
- {
- panConstraints[2 * nConstraints + 1] =
- pIndex->aConstraint[i].iColumn;
- panConstraints[2 * nConstraints + 2] =
- pIndex->aConstraint[i].op;
-
- nConstraints ++;
- }
- }
- }
-
- pIndex->orderByConsumed = FALSE;
- pIndex->idxNum = 0;
-
- if (nConstraints != 0)
- {
- pIndex->idxStr = (char *) panConstraints;
- pIndex->needToFreeIdxStr = TRUE;
- }
- else
- {
- pIndex->idxStr = NULL;
- pIndex->needToFreeIdxStr = FALSE;
- }
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITE_DisconnectDestroy() */
-/************************************************************************/
-
-static
-int OGR2SQLITE_DisconnectDestroy(sqlite3_vtab *pVTab)
-{
- OGR2SQLITE_vtab* pMyVTab = (OGR2SQLITE_vtab*) pVTab;
-
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "DisconnectDestroy(%s)",pMyVTab->pszVTableName);
-#endif
-
- sqlite3_free(pMyVTab->zErrMsg);
- if( pMyVTab->bCloseDS )
- pMyVTab->poDS->Release();
- pMyVTab->poModule->UnregisterVTable(pMyVTab->pszVTableName);
- CPLFree(pMyVTab->pszVTableName);
- CPLFree(pMyVTab);
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITE_Open() */
-/************************************************************************/
-
-static
-int OGR2SQLITE_Open(sqlite3_vtab *pVTab, sqlite3_vtab_cursor **ppCursor)
-{
- OGR2SQLITE_vtab* pMyVTab = (OGR2SQLITE_vtab*) pVTab;
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Open(%s, %s)",
- pMyVTab->poDS->GetName(), pMyVTab->poLayer->GetName());
-#endif
-
- OGRDataSource* poDupDataSource = NULL;
- OGRLayer* poLayer = NULL;
-
- if( pMyVTab->nMyRef == 0 )
- {
- poLayer = pMyVTab->poLayer;
- }
- else
- {
- poDupDataSource =
- (OGRDataSource*) OGROpen(pMyVTab->poDS->GetName(), FALSE, NULL);
- if( poDupDataSource == NULL )
- return SQLITE_ERROR;
- poLayer = poDupDataSource->GetLayerByName(
- pMyVTab->poLayer->GetName());
- if( poLayer == NULL )
- {
- delete poDupDataSource;
- return SQLITE_ERROR;
- }
- if( !poLayer->GetLayerDefn()->
- IsSame(pMyVTab->poLayer->GetLayerDefn()) )
- {
- delete poDupDataSource;
- return SQLITE_ERROR;
- }
- }
- pMyVTab->nMyRef ++;
-
- OGR2SQLITE_vtab_cursor* pCursor = (OGR2SQLITE_vtab_cursor*)
- CPLCalloc(1, sizeof(OGR2SQLITE_vtab_cursor));
- /* We dont need to fill the non-extended fields */
- *ppCursor = (sqlite3_vtab_cursor *)pCursor;
-
- pCursor->poDupDataSource = poDupDataSource;
- pCursor->poLayer = poLayer;
- pCursor->poLayer->ResetReading();
- pCursor->poFeature = NULL;
- pCursor->nNextWishedIndex = 0;
- pCursor->nCurFeatureIndex = -1;
- pCursor->nFeatureCount = -1;
-
- pCursor->pabyGeomBLOB = NULL;
- pCursor->nGeomBLOBLen = -1;
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITE_Close() */
-/************************************************************************/
-
-static
-int OGR2SQLITE_Close(sqlite3_vtab_cursor* pCursor)
-{
- OGR2SQLITE_vtab_cursor* pMyCursor = (OGR2SQLITE_vtab_cursor*) pCursor;
- OGR2SQLITE_vtab* pMyVTab = pMyCursor->pVTab;
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Close(%s, %s)",
- pMyVTab->poDS->GetName(), pMyVTab->poLayer->GetName());
-#endif
- pMyVTab->nMyRef --;
-
- delete pMyCursor->poFeature;
- delete pMyCursor->poDupDataSource;
-
- CPLFree(pMyCursor->pabyGeomBLOB);
-
- CPLFree(pCursor);
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITE_Filter() */
-/************************************************************************/
-
-static
-int OGR2SQLITE_Filter(sqlite3_vtab_cursor* pCursor,
- int idxNum, const char *idxStr,
- int argc, sqlite3_value **argv)
-{
- OGR2SQLITE_vtab_cursor* pMyCursor = (OGR2SQLITE_vtab_cursor*) pCursor;
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Filter");
-#endif
-
- int* panConstraints = (int*) idxStr;
- int nConstraints = panConstraints ? panConstraints[0] : 0;
-
- if( nConstraints != argc )
- return SQLITE_ERROR;
-
- CPLString osAttributeFilter;
-
- OGRFeatureDefn* poFDefn = pMyCursor->poLayer->GetLayerDefn();
-
- int i;
- for (i = 0; i < argc; i++)
- {
- int nCol = panConstraints[2 * i + 1];
- OGRFieldDefn* poFieldDefn = NULL;
- if( nCol >= 0 )
- {
- poFieldDefn = poFDefn->GetFieldDefn(nCol);
- if( poFieldDefn == NULL )
- return SQLITE_ERROR;
- }
-
- if( i != 0 )
- osAttributeFilter += " AND ";
-
- if( poFieldDefn != NULL )
- {
- const char* pszFieldName = poFieldDefn->GetNameRef();
- char ch;
- int bNeedsQuoting = swq_is_reserved_keyword(pszFieldName);
- for(int j = 0; !bNeedsQuoting &&
- (ch = pszFieldName[j]) != '\0'; j++ )
- {
- if (!(isalnum((int)ch) || ch == '_'))
- bNeedsQuoting = FALSE;
- }
-
- if( bNeedsQuoting )
- {
- /* FIXME: we would need some virtual method */
- OGRSFDriver* poDriver = pMyCursor->pVTab->poDS->GetDriver();
- char chQuote;
-
- if (poDriver && (
- EQUAL(poDriver->GetName(), "PostgreSQL") ||
- EQUAL(poDriver->GetName(), "SQLite") ||
- EQUAL(poDriver->GetName(), "FileGDB" )) )
- chQuote = '"';
- else
- chQuote = '\'';
-
- osAttributeFilter += chQuote;
- if( chQuote == '"' )
- osAttributeFilter += OGRSQLiteEscapeName(pszFieldName);
- else
- osAttributeFilter += OGRSQLiteEscape(pszFieldName);
- osAttributeFilter += chQuote;
- }
- else
- {
- osAttributeFilter += pszFieldName;
- }
- }
- else
- osAttributeFilter += "FID";
-
- switch(panConstraints[2 * i + 2])
- {
- case SQLITE_INDEX_CONSTRAINT_EQ: osAttributeFilter += " = "; break;
- case SQLITE_INDEX_CONSTRAINT_GT: osAttributeFilter += " > "; break;
- case SQLITE_INDEX_CONSTRAINT_LE: osAttributeFilter += " <= "; break;
- case SQLITE_INDEX_CONSTRAINT_LT: osAttributeFilter += " < "; break;
- case SQLITE_INDEX_CONSTRAINT_GE: osAttributeFilter += " >= "; break;
- default:
- {
- sqlite3_free(pMyCursor->pVTab->zErrMsg);
- pMyCursor->pVTab->zErrMsg = sqlite3_mprintf(
- "Unhandled constraint operator : %d",
- panConstraints[2 * i + 2]);
- return SQLITE_ERROR;
- }
- }
-
- if (sqlite3_value_type (argv[i]) == SQLITE_INTEGER)
- {
- osAttributeFilter +=
- CPLSPrintf(CPL_FRMT_GIB, sqlite3_value_int64 (argv[i]));
- }
- else if (sqlite3_value_type (argv[i]) == SQLITE_FLOAT)
- {
- osAttributeFilter +=
- CPLSPrintf("%.18g", sqlite3_value_double (argv[i]));
- }
- else if (sqlite3_value_type (argv[i]) == SQLITE_TEXT)
- {
- osAttributeFilter += "'";
- osAttributeFilter += OGRSQLiteEscape((const char*) sqlite3_value_text (argv[i]));
- osAttributeFilter += "'";
- }
- else
- {
- sqlite3_free(pMyCursor->pVTab->zErrMsg);
- pMyCursor->pVTab->zErrMsg = sqlite3_mprintf(
- "Unhandled constraint data type : %d",
- sqlite3_value_type (argv[i]));
- return SQLITE_ERROR;
- }
- }
-
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Attribute filter : %s",
- osAttributeFilter.c_str());
-#endif
-
- if( pMyCursor->poLayer->SetAttributeFilter( osAttributeFilter.size() ?
- osAttributeFilter.c_str() : NULL) != OGRERR_NONE )
- {
- sqlite3_free(pMyCursor->pVTab->zErrMsg);
- pMyCursor->pVTab->zErrMsg = sqlite3_mprintf(
- "Cannot apply attribute filter : %s",
- osAttributeFilter.c_str());
- return SQLITE_ERROR;
- }
-
- if( pMyCursor->poLayer->TestCapability(OLCFastFeatureCount) )
- {
- pMyCursor->nFeatureCount = pMyCursor->poLayer->GetFeatureCount();
- pMyCursor->poLayer->ResetReading();
- }
- else
- pMyCursor->nFeatureCount = -1;
-
- if( pMyCursor->nFeatureCount < 0 )
- {
- pMyCursor->poFeature = pMyCursor->poLayer->GetNextFeature();
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "GetNextFeature() --> %d",
- pMyCursor->poFeature ? (int)pMyCursor->poFeature->GetFID() : -1);
-#endif
- }
-
- pMyCursor->nNextWishedIndex = 0;
- pMyCursor->nCurFeatureIndex = -1;
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITE_Next() */
-/************************************************************************/
-
-static
-int OGR2SQLITE_Next(sqlite3_vtab_cursor* pCursor)
-{
- OGR2SQLITE_vtab_cursor* pMyCursor = (OGR2SQLITE_vtab_cursor*) pCursor;
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Next");
-#endif
-
- pMyCursor->nNextWishedIndex ++;
- if( pMyCursor->nFeatureCount < 0 )
- {
- delete pMyCursor->poFeature;
- pMyCursor->poFeature = pMyCursor->poLayer->GetNextFeature();
-
- CPLFree(pMyCursor->pabyGeomBLOB);
- pMyCursor->pabyGeomBLOB = NULL;
- pMyCursor->nGeomBLOBLen = -1;
-
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "GetNextFeature() --> %d",
- pMyCursor->poFeature ? (int)pMyCursor->poFeature->GetFID() : -1);
-#endif
- }
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITE_Eof() */
-/************************************************************************/
-
-static
-int OGR2SQLITE_Eof(sqlite3_vtab_cursor* pCursor)
-{
- OGR2SQLITE_vtab_cursor* pMyCursor = (OGR2SQLITE_vtab_cursor*) pCursor;
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Eof");
-#endif
-
- if( pMyCursor->nFeatureCount < 0 )
- {
- return (pMyCursor->poFeature == NULL);
- }
- else
- {
- return ( pMyCursor->nNextWishedIndex >= pMyCursor->nFeatureCount );
- }
-}
-
-/************************************************************************/
-/* OGR2SQLITE_GoToWishedIndex() */
-/************************************************************************/
-
-static void OGR2SQLITE_GoToWishedIndex(OGR2SQLITE_vtab_cursor* pMyCursor)
-{
- if( pMyCursor->nFeatureCount >= 0 )
- {
- if( pMyCursor->nCurFeatureIndex < pMyCursor->nNextWishedIndex )
- {
- do
- {
- pMyCursor->nCurFeatureIndex ++;
-
- delete pMyCursor->poFeature;
- pMyCursor->poFeature = pMyCursor->poLayer->GetNextFeature();
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "GetNextFeature() --> %d",
- pMyCursor->poFeature ? (int)pMyCursor->poFeature->GetFID() : -1);
-#endif
- }
- while( pMyCursor->nCurFeatureIndex < pMyCursor->nNextWishedIndex );
-
- CPLFree(pMyCursor->pabyGeomBLOB);
- pMyCursor->pabyGeomBLOB = NULL;
- pMyCursor->nGeomBLOBLen = -1;
- }
- }
-}
-
-/************************************************************************/
-/* OGR2SQLITE_Column() */
-/************************************************************************/
-
-static
-int OGR2SQLITE_Column(sqlite3_vtab_cursor* pCursor,
- sqlite3_context* pContext, int nCol)
-{
- OGR2SQLITE_vtab_cursor* pMyCursor = (OGR2SQLITE_vtab_cursor*) pCursor;
- OGRFeature* poFeature;
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Column %d", nCol);
-#endif
-
- OGR2SQLITE_GoToWishedIndex(pMyCursor);
-
- poFeature = pMyCursor->poFeature;
- if( poFeature == NULL)
- return SQLITE_ERROR;
-
- OGRFeatureDefn* poFDefn = pMyCursor->poLayer->GetLayerDefn();
- int nFieldCount = poFDefn->GetFieldCount();
-
- if( nCol == nFieldCount )
- {
- sqlite3_result_text(pContext,
- poFeature->GetStyleString(),
- -1, SQLITE_TRANSIENT);
- return SQLITE_OK;
- }
- else if( nCol == (nFieldCount + 1) &&
- poFDefn->GetGeomType() != wkbNone )
- {
- if( pMyCursor->nGeomBLOBLen < 0 )
- {
- OGRGeometry* poGeom = poFeature->GetGeometryRef();
- if( poGeom == NULL )
- {
- pMyCursor->nGeomBLOBLen = 0;
- }
- else
- {
- CPLAssert(pMyCursor->pabyGeomBLOB == NULL);
-
- OGRSpatialReference* poSRS = poGeom->getSpatialReference();
- int nSRSId = pMyCursor->pVTab->poModule->FetchSRSId(poSRS);
-
- if( OGRSQLiteLayer::ExportSpatiaLiteGeometry(
- poGeom, nSRSId, wkbNDR, FALSE, FALSE, FALSE,
- &pMyCursor->pabyGeomBLOB,
- &pMyCursor->nGeomBLOBLen ) != CE_None )
- {
- pMyCursor->nGeomBLOBLen = 0;
- }
- }
- }
-
- if( pMyCursor->nGeomBLOBLen == 0 )
- {
- sqlite3_result_null(pContext);
- }
- else
- {
- GByte *pabyGeomBLOBDup = (GByte*)
- CPLMalloc(pMyCursor->nGeomBLOBLen);
- memcpy(pabyGeomBLOBDup,
- pMyCursor->pabyGeomBLOB, pMyCursor->nGeomBLOBLen);
- sqlite3_result_blob(pContext, pabyGeomBLOBDup,
- pMyCursor->nGeomBLOBLen, CPLFree);
- }
-
- return SQLITE_OK;
- }
- else if( nCol > (nFieldCount + 1) &&
- nCol - (nFieldCount + 1) < poFDefn->GetGeomFieldCount() )
- {
- OGRGeometry* poGeom = poFeature->GetGeomFieldRef(nCol - (nFieldCount + 1));
- if( poGeom == NULL )
- {
- sqlite3_result_null(pContext);
- }
- else
- {
- OGRSpatialReference* poSRS = poGeom->getSpatialReference();
- int nSRSId = pMyCursor->pVTab->poModule->FetchSRSId(poSRS);
-
- GByte* pabyGeomBLOB = NULL;
- int nGeomBLOBLen = 0;
- if( OGRSQLiteLayer::ExportSpatiaLiteGeometry(
- poGeom, nSRSId, wkbNDR, FALSE, FALSE, FALSE,
- &pabyGeomBLOB, &nGeomBLOBLen ) != CE_None )
- {
- nGeomBLOBLen = 0;
- }
-
- if( nGeomBLOBLen == 0 )
- {
- sqlite3_result_null(pContext);
- }
- else
- {
- sqlite3_result_blob(pContext, pabyGeomBLOB,
- nGeomBLOBLen, CPLFree);
- }
- }
- return SQLITE_OK;
- }
- else if( nCol < 0 || nCol >= nFieldCount )
- {
- return SQLITE_ERROR;
- }
- else if( !poFeature->IsFieldSet(nCol) )
- {
- sqlite3_result_null(pContext);
- return SQLITE_OK;
- }
-
- switch( poFDefn->GetFieldDefn(nCol)->GetType() )
- {
- case OFTInteger:
- sqlite3_result_int(pContext,
- poFeature->GetFieldAsInteger(nCol));
- break;
-
- case OFTReal:
- sqlite3_result_double(pContext,
- poFeature->GetFieldAsDouble(nCol));
- break;
-
- case OFTBinary:
- {
- int nSize;
- GByte* pBlob = poFeature->GetFieldAsBinary(nCol, &nSize);
- sqlite3_result_blob(pContext, pBlob, nSize, SQLITE_TRANSIENT);
- break;
- }
-
- case OFTDateTime:
- {
- int nYear, nMonth, nDay, nHour, nMinute, nSecond, nTZ;
- poFeature->GetFieldAsDateTime(nCol, &nYear, &nMonth, &nDay,
- &nHour, &nMinute, &nSecond, &nTZ);
- char szBuffer[64];
- sprintf(szBuffer, "%04d-%02d-%02dT%02d:%02d:%02d",
- nYear, nMonth, nDay, nHour, nMinute, nSecond);
- sqlite3_result_text(pContext,
- szBuffer,
- -1, SQLITE_TRANSIENT);
- break;
- }
-
- case OFTDate:
- {
- int nYear, nMonth, nDay, nHour, nMinute, nSecond, nTZ;
- poFeature->GetFieldAsDateTime(nCol, &nYear, &nMonth, &nDay,
- &nHour, &nMinute, &nSecond, &nTZ);
- char szBuffer[64];
- sprintf(szBuffer, "%04d-%02d-%02dT", nYear, nMonth, nDay);
- sqlite3_result_text(pContext,
- szBuffer,
- -1, SQLITE_TRANSIENT);
- break;
- }
-
- case OFTTime:
- {
- int nYear, nMonth, nDay, nHour, nMinute, nSecond, nTZ;
- poFeature->GetFieldAsDateTime(nCol, &nYear, &nMonth, &nDay,
- &nHour, &nMinute, &nSecond, &nTZ);
- char szBuffer[64];
- sprintf(szBuffer, "%02d:%02d:%02d", nHour, nMinute, nSecond);
- sqlite3_result_text(pContext,
- szBuffer,
- -1, SQLITE_TRANSIENT);
- break;
- }
-
- default:
- sqlite3_result_text(pContext,
- poFeature->GetFieldAsString(nCol),
- -1, SQLITE_TRANSIENT);
- break;
- }
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITE_Rowid() */
-/************************************************************************/
-
-static
-int OGR2SQLITE_Rowid(sqlite3_vtab_cursor* pCursor, sqlite3_int64 *pRowid)
-{
- OGR2SQLITE_vtab_cursor* pMyCursor = (OGR2SQLITE_vtab_cursor*) pCursor;
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Rowid");
-#endif
-
- OGR2SQLITE_GoToWishedIndex(pMyCursor);
-
- if( pMyCursor->poFeature == NULL)
- return SQLITE_ERROR;
-
- *pRowid = pMyCursor->poFeature->GetFID();
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITE_Rename() */
-/************************************************************************/
-
-static
-int OGR2SQLITE_Rename(sqlite3_vtab *pVtab, const char *zNew)
-{
- //CPLDebug("OGR2SQLITE", "Rename");
- return SQLITE_ERROR;
-}
-
-#if 0
-/************************************************************************/
-/* OGR2SQLITE_FindFunction() */
-/************************************************************************/
-
-static
-int OGR2SQLITE_FindFunction(sqlite3_vtab *pVtab,
- int nArg,
- const char *zName,
- void (**pxFunc)(sqlite3_context*,int,sqlite3_value**),
- void **ppArg)
-{
- CPLDebug("OGR2SQLITE", "FindFunction %s", zName);
-
- return 0;
-}
-#endif
-
-/************************************************************************/
-/* OGR2SQLITE_FeatureFromArgs() */
-/************************************************************************/
-
-static OGRFeature* OGR2SQLITE_FeatureFromArgs(OGRLayer* poLayer,
- int argc,
- sqlite3_value **argv)
-{
- OGRFeatureDefn* poLayerDefn = poLayer->GetLayerDefn();
- int nFieldCount = poLayerDefn->GetFieldCount();
- int nGeomFieldCount = poLayerDefn->GetGeomFieldCount();
- if( argc != 2 + nFieldCount + 1 + nGeomFieldCount)
- {
- CPLDebug("OGR2SQLITE", "Did not get expect argument count : %d, %d", argc,
- 2 + nFieldCount + 1 + nGeomFieldCount);
- return NULL;
- }
-
- OGRFeature* poFeature = new OGRFeature(poLayerDefn);
- int i;
- for(i = 0; i < nFieldCount; i++)
- {
- switch( sqlite3_value_type(argv[2 + i]) )
- {
- case SQLITE_INTEGER:
- //FIXME use int64 when OGR has 64bit integer support
- poFeature->SetField(i, sqlite3_value_int(argv[2 + i]));
- break;
- case SQLITE_FLOAT:
- poFeature->SetField(i, sqlite3_value_double(argv[2 + i]));
- break;
- case SQLITE_TEXT:
- {
- const char* pszValue = (const char*) sqlite3_value_text(argv[2 + i]);
- switch( poLayerDefn->GetFieldDefn(i)->GetType() )
- {
- case OFTDate:
- case OFTTime:
- case OFTDateTime:
- {
- if( !OGRSQLITEStringToDateTimeField( poFeature, i, pszValue ) )
- poFeature->SetField(i, pszValue);
- break;
- }
-
- default:
- poFeature->SetField(i, pszValue);
- break;
- }
- break;
- }
- case SQLITE_BLOB:
- {
- GByte* paby = (GByte *) sqlite3_value_blob (argv[2 + i]);
- int nLen = sqlite3_value_bytes (argv[2 + i]);
- poFeature->SetField(i, nLen, paby);
- break;
- }
- default:
- break;
- }
- }
-
- int nStyleIdx = 2 + nFieldCount;
- if( sqlite3_value_type(argv[nStyleIdx]) == SQLITE_TEXT )
- {
- poFeature->SetStyleString((const char*) sqlite3_value_text(argv[nStyleIdx]));
- }
-
- for(i = 0; i < nGeomFieldCount; i++)
- {
- int nGeomFieldIdx = 2 + nFieldCount + 1 + i;
- if( sqlite3_value_type(argv[nGeomFieldIdx]) == SQLITE_BLOB )
- {
- GByte* pabyBlob = (GByte *) sqlite3_value_blob (argv[nGeomFieldIdx]);
- int nLen = sqlite3_value_bytes (argv[nGeomFieldIdx]);
- OGRGeometry* poGeom = NULL;
- if( OGRSQLiteLayer::ImportSpatiaLiteGeometry(
- pabyBlob, nLen, &poGeom ) == CE_None )
- {
- poFeature->SetGeomFieldDirectly(i, poGeom);
- }
- }
- }
-
- if( sqlite3_value_type(argv[1]) == SQLITE_INTEGER )
- poFeature->SetFID( sqlite3_value_int64(argv[1]) );
-
- return poFeature;
-}
-
-/************************************************************************/
-/* OGR2SQLITE_Update() */
-/************************************************************************/
-
-static
-int OGR2SQLITE_Update(sqlite3_vtab *pVTab,
- int argc,
- sqlite3_value **argv,
- sqlite_int64 *pRowid)
-{
- CPLDebug("OGR2SQLITE", "OGR2SQLITE_Update");
-
- OGR2SQLITE_vtab* pMyVTab = (OGR2SQLITE_vtab*) pVTab;
- OGRLayer* poLayer = pMyVTab->poLayer;
-
- if( argc == 1 )
- {
- /* DELETE */
-
- OGRErr eErr = poLayer->DeleteFeature(sqlite3_value_int64(argv[0]));
-
- return ( eErr == OGRERR_NONE ) ? SQLITE_OK : SQLITE_ERROR;
- }
- else if( argc > 1 && sqlite3_value_type(argv[0]) == SQLITE_NULL )
- {
- /* INSERT */
-
- OGRFeature* poFeature = OGR2SQLITE_FeatureFromArgs(poLayer, argc, argv);
- if( poFeature == NULL )
- return SQLITE_ERROR;
-
- OGRErr eErr = poLayer->CreateFeature(poFeature);
- if( eErr == OGRERR_NONE )
- *pRowid = poFeature->GetFID();
-
- delete poFeature;
-
- return ( eErr == OGRERR_NONE ) ? SQLITE_OK : SQLITE_ERROR;
- }
- else if( argc > 1 && sqlite3_value_type(argv[0]) == SQLITE_INTEGER &&
- sqlite3_value_type(argv[1]) == SQLITE_INTEGER &&
- sqlite3_value_int64(argv[0]) == sqlite3_value_int64(argv[1]) )
- {
- /* UPDATE */
-
- OGRFeature* poFeature = OGR2SQLITE_FeatureFromArgs(poLayer, argc, argv);
- if( poFeature == NULL )
- return SQLITE_ERROR;
-
- OGRErr eErr = poLayer->SetFeature(poFeature);
-
- delete poFeature;
-
- return ( eErr == OGRERR_NONE ) ? SQLITE_OK : SQLITE_ERROR;
- }
-
- // UPDATE table SET rowid=rowid+1 WHERE ... unsupported
-
- return SQLITE_ERROR;
-}
-
-/************************************************************************/
-/* sOGR2SQLITEModule */
-/************************************************************************/
-
-static const struct sqlite3_module sOGR2SQLITEModule =
-{
- 1, /* iVersion */
- OGR2SQLITE_ConnectCreate, /* xCreate */
- OGR2SQLITE_ConnectCreate, /* xConnect */
- OGR2SQLITE_BestIndex,
- OGR2SQLITE_DisconnectDestroy, /* xDisconnect */
- OGR2SQLITE_DisconnectDestroy, /* xDestroy */
- OGR2SQLITE_Open,
- OGR2SQLITE_Close,
- OGR2SQLITE_Filter,
- OGR2SQLITE_Next,
- OGR2SQLITE_Eof,
- OGR2SQLITE_Column,
- OGR2SQLITE_Rowid,
- OGR2SQLITE_Update,
- NULL, /* xBegin */
- NULL, /* xSync */
- NULL, /* xCommit */
- NULL, /* xFindFunctionRollback */
- NULL, /* xFindFunction */ // OGR2SQLITE_FindFunction;
- OGR2SQLITE_Rename
-};
-
-/************************************************************************/
-/* OGR2SQLITE_GetLayer() */
-/************************************************************************/
-
-static
-OGRLayer* OGR2SQLITE_GetLayer(const char* pszFuncName,
- sqlite3_context* pContext,
- int argc, sqlite3_value** argv)
-{
- if( argc != 1 )
- {
- CPLError(CE_Failure, CPLE_AppDefined,
- "%s: %s(): %s",
- "VirtualOGR",
- pszFuncName,
- "Invalid number of arguments");
- sqlite3_result_null (pContext);
- return NULL;
- }
-
- if( sqlite3_value_type (argv[0]) != SQLITE_TEXT )
- {
- CPLError(CE_Failure, CPLE_AppDefined,
- "%s: %s(): %s",
- "VirtualOGR",
- pszFuncName,
- "Invalid argument type");
- sqlite3_result_null (pContext);
- return NULL;
- }
-
- const char* pszVTableName = (const char*)sqlite3_value_text(argv[0]);
-
- OGR2SQLITEModule* poModule =
- (OGR2SQLITEModule*) sqlite3_user_data(pContext);
-
- OGRLayer* poLayer = poModule->GetLayerForVTable(OGRSQLiteParamsUnquote(pszVTableName));
- if( poLayer == NULL )
- {
- CPLError(CE_Failure, CPLE_AppDefined,
- "%s: %s(): %s",
- "VirtualOGR",
- pszFuncName,
- "Unknown virtual table");
- sqlite3_result_null (pContext);
- return NULL;
- }
-
- return poLayer;
-}
-
-/************************************************************************/
-/* OGR2SQLITE_ogr_layer_Extent() */
-/************************************************************************/
-
-static
-void OGR2SQLITE_ogr_layer_Extent(sqlite3_context* pContext,
- int argc, sqlite3_value** argv)
-{
- OGRLayer* poLayer = OGR2SQLITE_GetLayer("ogr_layer_Extent",
- pContext, argc, argv);
- if( poLayer == NULL )
- return;
-
- OGR2SQLITEModule* poModule =
- (OGR2SQLITEModule*) sqlite3_user_data(pContext);
-
- if( poLayer->GetGeomType() == wkbNone )
- {
- sqlite3_result_null (pContext);
- return;
- }
-
- OGREnvelope sExtent;
- if( poLayer->GetExtent(&sExtent) != OGRERR_NONE )
- {
- CPLError(CE_Failure, CPLE_AppDefined,
- "%s: %s(): %s",
- "VirtualOGR",
- "ogr_layer_Extent",
- "Cannot fetch layer extent");
- sqlite3_result_null (pContext);
- return;
- }
-
- OGRPolygon oPoly;
- OGRLinearRing* poRing = new OGRLinearRing();
- oPoly.addRingDirectly(poRing);
- poRing->addPoint(sExtent.MinX, sExtent.MinY);
- poRing->addPoint(sExtent.MaxX, sExtent.MinY);
- poRing->addPoint(sExtent.MaxX, sExtent.MaxY);
- poRing->addPoint(sExtent.MinX, sExtent.MaxY);
- poRing->addPoint(sExtent.MinX, sExtent.MinY);
-
- GByte* pabySLBLOB = NULL;
- int nBLOBLen = 0;
- int nSRID = poModule->FetchSRSId(poLayer->GetSpatialRef());
- if( OGRSQLiteLayer::ExportSpatiaLiteGeometry(
- &oPoly, nSRID, wkbNDR, FALSE,
- FALSE, FALSE, &pabySLBLOB, &nBLOBLen ) == CE_None )
- {
- sqlite3_result_blob(pContext, pabySLBLOB, nBLOBLen, CPLFree);
- }
- else
- {
- sqlite3_result_null (pContext);
- }
-}
-
-/************************************************************************/
-/* OGR2SQLITE_ogr_layer_SRID() */
-/************************************************************************/
-
-static
-void OGR2SQLITE_ogr_layer_SRID(sqlite3_context* pContext,
- int argc, sqlite3_value** argv)
-{
- OGRLayer* poLayer = OGR2SQLITE_GetLayer("OGR2SQLITE_ogr_layer_SRID",
- pContext, argc, argv);
- if( poLayer == NULL )
- return;
-
- OGR2SQLITEModule* poModule =
- (OGR2SQLITEModule*) sqlite3_user_data(pContext);
-
- if( poLayer->GetGeomType() == wkbNone )
- {
- sqlite3_result_null (pContext);
- return;
- }
-
- int nSRID = poModule->FetchSRSId(poLayer->GetSpatialRef());
- sqlite3_result_int(pContext, nSRID);
-}
-
-/************************************************************************/
-/* OGR2SQLITE_ogr_layer_GeometryType() */
-/************************************************************************/
-
-static
-void OGR2SQLITE_ogr_layer_GeometryType(sqlite3_context* pContext,
- int argc, sqlite3_value** argv)
-{
- OGRLayer* poLayer = OGR2SQLITE_GetLayer("OGR2SQLITE_ogr_layer_GeometryType",
- pContext, argc, argv);
- if( poLayer == NULL )
- return;
-
- OGRwkbGeometryType eType = poLayer->GetGeomType();
-
- if( eType == wkbNone )
- {
- sqlite3_result_null (pContext);
- return;
- }
-
- const char* psz2DName = OGRToOGCGeomType(eType);
- if( eType & wkb25DBit )
- sqlite3_result_text( pContext, CPLSPrintf("%s Z", psz2DName), -1, SQLITE_TRANSIENT );
- else
- sqlite3_result_text( pContext, psz2DName, -1, SQLITE_TRANSIENT );
-}
-
-/************************************************************************/
-/* OGR2SQLITE_ogr_layer_FeatureCount() */
-/************************************************************************/
-
-static
-void OGR2SQLITE_ogr_layer_FeatureCount(sqlite3_context* pContext,
- int argc, sqlite3_value** argv)
-{
- OGRLayer* poLayer = OGR2SQLITE_GetLayer("OGR2SQLITE_ogr_layer_FeatureCount",
- pContext, argc, argv);
- if( poLayer == NULL )
- return;
-
- sqlite3_result_int64( pContext, poLayer->GetFeatureCount() );
-}
-
-/************************************************************************/
-/* OGR2SQLITEDestroyModule() */
-/************************************************************************/
-
-static void OGR2SQLITEDestroyModule(void* pData)
-{
- CPLDebug("OGR", "Unloading VirtualOGR module");
- delete (OGR2SQLITEModule*) pData;
-}
-
-/* ENABLE_VIRTUAL_OGR_SPATIAL_INDEX is not defined */
-#ifdef ENABLE_VIRTUAL_OGR_SPATIAL_INDEX
-
-/************************************************************************/
-/* OGR2SQLITESpatialIndex_vtab */
-/************************************************************************/
-
-typedef struct
-{
- /* Mandatory fields by sqlite3: don't change or reorder them ! */
- const sqlite3_module *pModule;
- int nRef;
- char *zErrMsg;
-
- /* Extension fields */
- char *pszVTableName;
- OGR2SQLITEModule *poModule;
- OGRDataSource *poDS;
- int bCloseDS;
- OGRLayer *poLayer;
- int nMyRef;
-} OGR2SQLITESpatialIndex_vtab;
-
-/************************************************************************/
-/* OGR2SQLITESpatialIndex_vtab_cursor */
-/************************************************************************/
-
-typedef struct
-{
- /* Mandatory fields by sqlite3: don't change or reorder them ! */
- OGR2SQLITESpatialIndex_vtab *pVTab;
-
- /* Extension fields */
- OGRDataSource *poDupDataSource;
- OGRLayer *poLayer;
- OGRFeature *poFeature;
- int bHasSetBounds;
- double dfMinX, dfMinY, dfMaxX, dfMaxY;
-} OGR2SQLITESpatialIndex_vtab_cursor;
-
-/************************************************************************/
-/* OGR2SQLITESpatialIndex_ConnectCreate() */
-/************************************************************************/
-
-static
-int OGR2SQLITESpatialIndex_ConnectCreate(sqlite3* hDB, void *pAux,
- int argc, const char *const*argv,
- sqlite3_vtab **ppVTab, char**pzErr)
-{
- OGR2SQLITEModule* poModule = (OGR2SQLITEModule*) pAux;
- OGRLayer* poLayer = NULL;
- OGRDataSource* poDS = NULL;
- int bCloseDS = FALSE;
- int i;
-
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "ConnectCreate(%s)", argv[2]);
-#endif
-
- /*for(i=0;i<argc;i++)
- printf("[%d] %s\n", i, argv[i]);*/
-
-/* -------------------------------------------------------------------- */
-/* If called from ogrexecutesql.cpp */
-/* -------------------------------------------------------------------- */
- poDS = poModule->GetDS();
- if( poDS == NULL )
- return SQLITE_ERROR;
-
- if( argc != 10 )
- {
- *pzErr = sqlite3_mprintf(
- "Expected syntax: CREATE VIRTUAL TABLE xxx USING "
- "VirtualOGRSpatialIndex(ds_idx, layer_name, pkid, xmin, xmax, ymin, ymax)");
- return SQLITE_ERROR;
- }
-
- int nDSIndex = atoi(argv[3]);
- if( nDSIndex >= 0 )
- {
- poDS = poModule->GetExtraDS(nDSIndex);
- if( poDS == NULL )
- {
- *pzErr = sqlite3_mprintf("Invalid dataset index : %d", nDSIndex);
- return SQLITE_ERROR;
- }
- }
-
- poDS = (OGRDataSource*) OGROpen( poDS->GetName(), FALSE, NULL);
- if( poDS == NULL )
- {
- return SQLITE_ERROR;
- }
- bCloseDS = TRUE;
-
- CPLString osLayerName(OGRSQLiteParamsUnquote(argv[4]));
-
- poLayer = poDS->GetLayerByName(osLayerName);
- if( poLayer == NULL )
- {
- *pzErr = sqlite3_mprintf( "Cannot find layer '%s' in '%s'",
- osLayerName.c_str(), poDS->GetName() );
- return SQLITE_ERROR;
- }
-
- OGR2SQLITESpatialIndex_vtab* vtab =
- (OGR2SQLITESpatialIndex_vtab*) CPLCalloc(1, sizeof(OGR2SQLITESpatialIndex_vtab));
- /* We dont need to fill the non-extended fields */
- vtab->pszVTableName = CPLStrdup(OGRSQLiteEscapeName(argv[2]));
- vtab->poModule = poModule;
- vtab->poDS = poDS;
- vtab->bCloseDS = bCloseDS;
- vtab->poLayer = poLayer;
- vtab->nMyRef = 0;
-
- *ppVTab = (sqlite3_vtab*) vtab;
-
- CPLString osSQL;
- osSQL = "CREATE TABLE ";
- osSQL += "\"";
- osSQL += OGRSQLiteEscapeName(argv[2]);
- osSQL += "\"";
- osSQL += "(";
-
- int bAddComma = FALSE;
-
- for(i=0;i<5;i++)
- {
- if( bAddComma )
- osSQL += ",";
- bAddComma = TRUE;
-
- osSQL += "\"";
- osSQL += OGRSQLiteEscapeName(OGRSQLiteParamsUnquote(argv[5+i]));
- osSQL += "\"";
- osSQL += " ";
- osSQL += (i == 0) ? "INTEGER" : "FLOAT";
- }
-
- osSQL += ")";
-
- CPLDebug("OGR2SQLITE", "sqlite3_declare_vtab(%s)", osSQL.c_str());
- if (sqlite3_declare_vtab (hDB, osSQL.c_str()) != SQLITE_OK)
- {
- *pzErr = sqlite3_mprintf("CREATE VIRTUAL: invalid SQL statement : %s",
- osSQL.c_str());
- return SQLITE_ERROR;
- }
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITESpatialIndex_BestIndex() */
-/************************************************************************/
-
-static
-int OGR2SQLITESpatialIndex_BestIndex(sqlite3_vtab *pVTab, sqlite3_index_info* pIndex)
-{
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "BestIndex");
-#endif
-
- int i;
-
- int bMinX = FALSE, bMinY = FALSE, bMaxX = FALSE, bMaxY = FALSE;
-
- for (i = 0; i < pIndex->nConstraint; i++)
- {
- int iCol = pIndex->aConstraint[i].iColumn;
- /* MinX */
- if( !bMinX && iCol == 1 && pIndex->aConstraint[i].usable &&
- (pIndex->aConstraint[i].op == SQLITE_INDEX_CONSTRAINT_LE ||
- pIndex->aConstraint[i].op == SQLITE_INDEX_CONSTRAINT_LT) )
- bMinX = TRUE;
- /* MaxX */
- else if( !bMaxX && iCol == 2 && pIndex->aConstraint[i].usable &&
- (pIndex->aConstraint[i].op == SQLITE_INDEX_CONSTRAINT_GE ||
- pIndex->aConstraint[i].op == SQLITE_INDEX_CONSTRAINT_GT) )
- bMaxX = TRUE;
- /* MinY */
- else if( !bMinY && iCol == 3 && pIndex->aConstraint[i].usable &&
- (pIndex->aConstraint[i].op == SQLITE_INDEX_CONSTRAINT_LE ||
- pIndex->aConstraint[i].op == SQLITE_INDEX_CONSTRAINT_LT) )
- bMinY = TRUE;
- /* MaxY */
- else if( !bMaxY && iCol == 4 && pIndex->aConstraint[i].usable &&
- (pIndex->aConstraint[i].op == SQLITE_INDEX_CONSTRAINT_GE ||
- pIndex->aConstraint[i].op == SQLITE_INDEX_CONSTRAINT_GT) )
- bMaxY = TRUE;
- else
- break;
- }
-
- if( bMinX && bMinY && bMaxX && bMaxY )
- {
- CPLAssert( pIndex->nConstraint == 4 );
-
- int nConstraints = 0;
- for (i = 0; i < pIndex->nConstraint; i++)
- {
- pIndex->aConstraintUsage[i].argvIndex = nConstraints + 1;
- pIndex->aConstraintUsage[i].omit = TRUE;
-
- nConstraints ++;
- }
-
- int* panConstraints = (int*)
- sqlite3_malloc( sizeof(int) * (1 + 2 * nConstraints) );
- panConstraints[0] = nConstraints;
-
- nConstraints = 0;
-
- for (i = 0; i < pIndex->nConstraint; i++)
- {
- if (pIndex->aConstraintUsage[i].omit)
- {
- panConstraints[2 * nConstraints + 1] =
- pIndex->aConstraint[i].iColumn;
- panConstraints[2 * nConstraints + 2] =
- pIndex->aConstraint[i].op;
-
- nConstraints ++;
- }
- }
-
- pIndex->idxStr = (char *) panConstraints;
- pIndex->needToFreeIdxStr = TRUE;
-
- pIndex->orderByConsumed = FALSE;
- pIndex->idxNum = 0;
-
- return SQLITE_OK;
- }
- else
- {
- CPLDebug("OGR2SQLITE", "OGR2SQLITESpatialIndex_BestIndex: unhandled request");
- return SQLITE_ERROR;
-/*
- for (i = 0; i < pIndex->nConstraint; i++)
- {
- pIndex->aConstraintUsage[i].argvIndex = 0;
- pIndex->aConstraintUsage[i].omit = FALSE;
- }
-
- pIndex->idxStr = NULL;
- pIndex->needToFreeIdxStr = FALSE;
-*/
- }
-}
-
-/************************************************************************/
-/* OGR2SQLITESpatialIndex_DisconnectDestroy() */
-/************************************************************************/
-
-static
-int OGR2SQLITESpatialIndex_DisconnectDestroy(sqlite3_vtab *pVTab)
-{
- OGR2SQLITESpatialIndex_vtab* pMyVTab = (OGR2SQLITESpatialIndex_vtab*) pVTab;
-
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "DisconnectDestroy(%s)",pMyVTab->pszVTableName);
-#endif
-
- sqlite3_free(pMyVTab->zErrMsg);
- if( pMyVTab->bCloseDS )
- delete pMyVTab->poDS;
- CPLFree(pMyVTab->pszVTableName);
- CPLFree(pMyVTab);
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITESpatialIndex_Open() */
-/************************************************************************/
-
-static
-int OGR2SQLITESpatialIndex_Open(sqlite3_vtab *pVTab, sqlite3_vtab_cursor **ppCursor)
-{
- OGR2SQLITESpatialIndex_vtab* pMyVTab = (OGR2SQLITESpatialIndex_vtab*) pVTab;
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Open(%s, %s)",
- pMyVTab->poDS->GetName(), pMyVTab->poLayer->GetName());
-#endif
-
- OGRDataSource* poDupDataSource = NULL;
- OGRLayer* poLayer = NULL;
-
- if( pMyVTab->nMyRef == 0 )
- {
- poLayer = pMyVTab->poLayer;
- }
- else
- {
- poDupDataSource =
- (OGRDataSource*) OGROpen(pMyVTab->poDS->GetName(), FALSE, NULL);
- if( poDupDataSource == NULL )
- return SQLITE_ERROR;
- poLayer = poDupDataSource->GetLayerByName(
- pMyVTab->poLayer->GetName());
- if( poLayer == NULL )
- {
- delete poDupDataSource;
- return SQLITE_ERROR;
- }
- if( !poLayer->GetLayerDefn()->
- IsSame(pMyVTab->poLayer->GetLayerDefn()) )
- {
- delete poDupDataSource;
- return SQLITE_ERROR;
- }
- }
- pMyVTab->nMyRef ++;
-
- OGR2SQLITESpatialIndex_vtab_cursor* pCursor = (OGR2SQLITESpatialIndex_vtab_cursor*)
- CPLCalloc(1, sizeof(OGR2SQLITESpatialIndex_vtab_cursor));
- /* We dont need to fill the non-extended fields */
- *ppCursor = (sqlite3_vtab_cursor *)pCursor;
-
- pCursor->poDupDataSource = poDupDataSource;
- pCursor->poLayer = poLayer;
- pCursor->poLayer->ResetReading();
- pCursor->poFeature = NULL;
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITESpatialIndex_Close() */
-/************************************************************************/
-
-static
-int OGR2SQLITESpatialIndex_Close(sqlite3_vtab_cursor* pCursor)
-{
- OGR2SQLITESpatialIndex_vtab_cursor* pMyCursor = (OGR2SQLITESpatialIndex_vtab_cursor*) pCursor;
- OGR2SQLITESpatialIndex_vtab* pMyVTab = pMyCursor->pVTab;
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Close(%s, %s)",
- pMyVTab->poDS->GetName(), pMyVTab->poLayer->GetName());
-#endif
- pMyVTab->nMyRef --;
-
- delete pMyCursor->poFeature;
- delete pMyCursor->poDupDataSource;
-
- CPLFree(pCursor);
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITESpatialIndex_Filter() */
-/************************************************************************/
-
-static
-int OGR2SQLITESpatialIndex_Filter(sqlite3_vtab_cursor* pCursor,
- int idxNum, const char *idxStr,
- int argc, sqlite3_value **argv)
-{
- OGR2SQLITESpatialIndex_vtab_cursor* pMyCursor = (OGR2SQLITESpatialIndex_vtab_cursor*) pCursor;
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Filter");
-#endif
-
- int* panConstraints = (int*) idxStr;
- int nConstraints = panConstraints ? panConstraints[0] : 0;
-
- if( nConstraints != argc )
- return SQLITE_ERROR;
-
- int i;
- double dfMinX = 0, dfMaxX = 0, dfMinY = 0, dfMaxY = 0;
- for (i = 0; i < argc; i++)
- {
- int nCol = panConstraints[2 * i + 1];
- if( nCol < 0 )
- return SQLITE_ERROR;
-
- double dfVal;
- if (sqlite3_value_type (argv[i]) == SQLITE_INTEGER)
- dfVal = sqlite3_value_int64 (argv[i]);
- else if (sqlite3_value_type (argv[i]) == SQLITE_FLOAT)
- dfVal = sqlite3_value_double (argv[i]);
- else
- return SQLITE_ERROR;
-
- if( nCol == 1 )
- dfMaxX = dfVal;
- else if( nCol == 2 )
- dfMinX = dfVal;
- else if( nCol == 3 )
- dfMaxY = dfVal;
- else if( nCol == 4 )
- dfMinY = dfVal;
- else
- return SQLITE_ERROR;
- }
-
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Spatial filter : %.18g, %.18g, %.18g, %.18g",
- dfMinX, dfMinY, dfMaxX, dfMaxY);
-#endif
-
- pMyCursor->poLayer->SetSpatialFilterRect(dfMinX, dfMinY, dfMaxX, dfMaxY);
- pMyCursor->poLayer->ResetReading();
-
- pMyCursor->poFeature = pMyCursor->poLayer->GetNextFeature();
- pMyCursor->bHasSetBounds = FALSE;
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITESpatialIndex_Next() */
-/************************************************************************/
-
-static
-int OGR2SQLITESpatialIndex_Next(sqlite3_vtab_cursor* pCursor)
-{
- OGR2SQLITESpatialIndex_vtab_cursor* pMyCursor = (OGR2SQLITESpatialIndex_vtab_cursor*) pCursor;
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Next");
-#endif
-
- delete pMyCursor->poFeature;
- pMyCursor->poFeature = pMyCursor->poLayer->GetNextFeature();
- pMyCursor->bHasSetBounds = FALSE;
-
- return SQLITE_OK;
-}
-
-/************************************************************************/
-/* OGR2SQLITESpatialIndex_Eof() */
-/************************************************************************/
-
-static
-int OGR2SQLITESpatialIndex_Eof(sqlite3_vtab_cursor* pCursor)
-{
- OGR2SQLITESpatialIndex_vtab_cursor* pMyCursor = (OGR2SQLITESpatialIndex_vtab_cursor*) pCursor;
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Eof");
-#endif
-
- return (pMyCursor->poFeature == NULL);
-}
-
-/************************************************************************/
-/* OGR2SQLITESpatialIndex_Column() */
-/************************************************************************/
-
-static
-int OGR2SQLITESpatialIndex_Column(sqlite3_vtab_cursor* pCursor,
- sqlite3_context* pContext, int nCol)
-{
- OGR2SQLITESpatialIndex_vtab_cursor* pMyCursor = (OGR2SQLITESpatialIndex_vtab_cursor*) pCursor;
- OGRFeature* poFeature;
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Column %d", nCol);
-#endif
-
- poFeature = pMyCursor->poFeature;
- if( poFeature == NULL)
- return SQLITE_ERROR;
-
- if( nCol == 0 )
- {
- CPLDebug("OGR2SQLITE", "--> FID = %ld", poFeature->GetFID());
- sqlite3_result_int64(pContext, poFeature->GetFID());
- return SQLITE_OK;
- }
-
- if( !pMyCursor->bHasSetBounds )
- {
- OGRGeometry* poGeom = poFeature->GetGeometryRef();
- if( poGeom != NULL && !poGeom->IsEmpty() )
- {
- OGREnvelope sEnvelope;
- poGeom->getEnvelope(&sEnvelope);
- pMyCursor->bHasSetBounds = TRUE;
- pMyCursor->dfMinX = sEnvelope.MinX;
- pMyCursor->dfMinY = sEnvelope.MinY;
- pMyCursor->dfMaxX = sEnvelope.MaxX;
- pMyCursor->dfMaxY = sEnvelope.MaxY;
- }
- }
- if( !pMyCursor->bHasSetBounds )
- {
- sqlite3_result_null(pContext);
- return SQLITE_OK;
- }
-
- if( nCol == 1 )
- {
- sqlite3_result_double(pContext, pMyCursor->dfMinX);
- return SQLITE_OK;
- }
- if( nCol == 2 )
- {
- sqlite3_result_double(pContext, pMyCursor->dfMaxX);
- return SQLITE_OK;
- }
- if( nCol == 3 )
- {
- sqlite3_result_double(pContext, pMyCursor->dfMinY);
- return SQLITE_OK;
- }
- if( nCol == 4 )
- {
- sqlite3_result_double(pContext, pMyCursor->dfMaxY);
- return SQLITE_OK;
- }
-
- return SQLITE_ERROR;
-}
-
-/************************************************************************/
-/* OGR2SQLITESpatialIndex_Rowid() */
-/************************************************************************/
-
-static
-int OGR2SQLITESpatialIndex_Rowid(sqlite3_vtab_cursor* pCursor, sqlite3_int64 *pRowid)
-{
-#ifdef DEBUG_OGR2SQLITE
- CPLDebug("OGR2SQLITE", "Rowid");
-#endif
-
- return SQLITE_ERROR;
-}
-
-/************************************************************************/
-/* OGR2SQLITESpatialIndex_Rename() */
-/************************************************************************/
-
-static
-int OGR2SQLITESpatialIndex_Rename(sqlite3_vtab *pVtab, const char *zNew)
-{
- //CPLDebug("OGR2SQLITE", "Rename");
- return SQLITE_ERROR;
-}
-
-/************************************************************************/
-/* sOGR2SQLITESpatialIndex */
-/************************************************************************/
-
-static const struct sqlite3_module sOGR2SQLITESpatialIndex =
-{
- 1, /* iVersion */
- OGR2SQLITESpatialIndex_ConnectCreate, /* xCreate */
- OGR2SQLITESpatialIndex_ConnectCreate, /* xConnect */
- OGR2SQLITESpatialIndex_BestIndex,
- OGR2SQLITESpatialIndex_DisconnectDestroy, /* xDisconnect */
- OGR2SQLITESpatialIndex_DisconnectDestroy, /* xDestroy */
- OGR2SQLITESpatialIndex_Open,
- OGR2SQLITESpatialIndex_Close,
- OGR2SQLITESpatialIndex_Filter,
- OGR2SQLITESpatialIndex_Next,
- OGR2SQLITESpatialIndex_Eof,
- OGR2SQLITESpatialIndex_Column,
- OGR2SQLITESpatialIndex_Rowid,
- NULL, /* xUpdate */
- NULL, /* xBegin */
- NULL, /* xSync */
- NULL, /* xCommit */
- NULL, /* xFindFunctionRollback */
- NULL, /* xFindFunction */
- OGR2SQLITESpatialIndex_Rename
-};
-#endif // ENABLE_VIRTUAL_OGR_SPATIAL_INDEX
-
-/************************************************************************/
-/* Setup() */
-/************************************************************************/
-
-int OGR2SQLITEModule::Setup(sqlite3* hDB)
-{
- int rc;
-
- this->hDB = hDB;
-
- rc = sqlite3_create_module_v2(hDB, "VirtualOGR", &sOGR2SQLITEModule, this,
- OGR2SQLITEDestroyModule);
- if( rc != SQLITE_OK )
- return FALSE;
-
-#ifdef ENABLE_VIRTUAL_OGR_SPATIAL_INDEX
- rc = sqlite3_create_module(hDB, "VirtualOGRSpatialIndex",
- &sOGR2SQLITESpatialIndex, this);
- if( rc != SQLITE_OK )
- return FALSE;
-#endif // ENABLE_VIRTUAL_OGR_SPATIAL_INDEX
-
- rc= sqlite3_create_function(hDB, "ogr_layer_Extent", 1, SQLITE_ANY, this,
- OGR2SQLITE_ogr_layer_Extent, NULL, NULL);
- if( rc != SQLITE_OK )
- return FALSE;
-
- rc= sqlite3_create_function(hDB, "ogr_layer_SRID", 1, SQLITE_ANY, this,
- OGR2SQLITE_ogr_layer_SRID, NULL, NULL);
- if( rc != SQLITE_OK )
- return FALSE;
-
- rc= sqlite3_create_function(hDB, "ogr_layer_GeometryType", 1, SQLITE_ANY, this,
- OGR2SQLITE_ogr_layer_GeometryType, NULL, NULL);
- if( rc != SQLITE_OK )
- return FALSE;
-
- rc= sqlite3_create_function(hDB, "ogr_layer_FeatureCount", 1, SQLITE_ANY, this,
- OGR2SQLITE_ogr_layer_FeatureCount, NULL, NULL);
- if( rc != SQLITE_OK )
- return FALSE;
-
- SetHandleSQLFunctions(OGRSQLiteRegisterSQLFunctions(hDB));
-
- return TRUE;
-}
-
-/************************************************************************/
-/* OGR2SQLITE_Setup() */
-/************************************************************************/
-
-OGR2SQLITEModule* OGR2SQLITE_Setup(OGRDataSource* poDS,
- OGRSQLiteDataSource* poSQLiteDS)
-{
- OGR2SQLITEModule* poModule = new OGR2SQLITEModule();
- poModule->Setup(poDS, poSQLiteDS);
- return poModule;
-}
-
-/************************************************************************/
-/* OGR2SQLITE_AddExtraDS() */
-/************************************************************************/
-
-int OGR2SQLITE_AddExtraDS(OGR2SQLITEModule* poModule, OGRDataSource* poDS)
-{
- return poModule->AddExtraDS(poDS);
-}
-
-#ifdef VIRTUAL_OGR_DYNAMIC_EXTENSION_ENABLED
-
-/************************************************************************/
-/* sqlite3_extension_init() */
-/************************************************************************/
-
-CPL_C_START
-int CPL_DLL sqlite3_extension_init (sqlite3 * hDB, char **pzErrMsg,
- const sqlite3_api_routines * pApi);
-CPL_C_END
-
-/* Entry point for dynamically loaded extension (typically called by load_extension()) */
-int sqlite3_extension_init (sqlite3 * hDB, char **pzErrMsg,
- const sqlite3_api_routines * pApi)
-{
- CPLDebug("OGR", "OGR SQLite extension loading...");
-
- SQLITE_EXTENSION_INIT2(pApi);
-
- *pzErrMsg = NULL;
-
- OGRRegisterAll();
-
- OGR2SQLITEModule* poModule = new OGR2SQLITEModule();
- if( poModule->Setup(hDB) )
- {
- CPLDebug("OGR", "OGR SQLite extension loaded");
- return SQLITE_OK;
- }
- else
- return SQLITE_ERROR;
-}
-
-#endif // VIRTUAL_OGR_DYNAMIC_EXTENSION_ENABLED
-
-/************************************************************************/
-/* OGR2SQLITE_static_register() */
-/************************************************************************/
-
-
-#ifndef WIN32
-extern const struct sqlite3_api_routines OGRSQLITE_static_routines;
-#endif
-
-int OGR2SQLITE_static_register (sqlite3 * hDB, char **pzErrMsg, void * _pApi)
-{
- const sqlite3_api_routines * pApi = (const sqlite3_api_routines * )_pApi;
-#ifndef WIN32
- if( pApi->create_module == NULL )
- {
- pApi = &OGRSQLITE_static_routines;
- }
-#endif
- SQLITE_EXTENSION_INIT2 (pApi);
-
- *pzErrMsg = NULL;
-
- /* The config option is turned off by ogrsqliteexecutesql.cpp that needs */
- /* to create a custom module */
- if( CSLTestBoolean(CPLGetConfigOption("OGR_SQLITE_STATIC_VIRTUAL_OGR", "YES")) )
- {
- /* Can happen if sqlite is compiled with SQLITE_OMIT_LOAD_EXTENSION (with sqlite 3.6.10 for example) */
- /* We return here OK since it is not vital for regular SQLite dababases */
- /* to load the OGR SQL functions */
- if( pApi->create_module == NULL )
- return SQLITE_OK;
-
- OGR2SQLITEModule* poModule = new OGR2SQLITEModule();
- return poModule->Setup(hDB) ? SQLITE_OK : SQLITE_ERROR;
- }
- else
- {
- /* Can happen if sqlite is compiled with SQLITE_OMIT_LOAD_EXTENSION (with sqlite 3.6.10 for example) */
- /* We return fail since Setup() will later be called, and crash */
- /* if create_module isn't available */
- if( pApi->create_module == NULL )
- return SQLITE_ERROR;
- }
-
- return SQLITE_OK;
-}
-#endif // HAVE_SQLITE_VFS
diff --git a/SuperBuild/patches/GEOTIFF/CMakeLists.txt b/SuperBuild/patches/GEOTIFF/CMakeLists.txt
deleted file mode 100644
index fd38aa1..0000000
--- a/SuperBuild/patches/GEOTIFF/CMakeLists.txt
+++ /dev/null
@@ -1,439 +0,0 @@
-###############################################################################
-#
-# CMake main configuration file to build GeoTIFF library and utilities.
-#
-# Author: Mateusz Loskot <mateusz at loskot.net>
-#
-###############################################################################
-PROJECT(GeoTIFF)
-
-SET(GEOTIFF_LIB_NAME geotiff)
-SET(GEOTIFF_LIBRARY_TARGET geotiff_library)
-SET(GEOTIFF_ARCHIVE_TARGET geotiff_archive)
-
-##############################################################################
-# CMake settings
-CMAKE_MINIMUM_REQUIRED(VERSION 2.6.0)
-
-SET(CMAKE_COLOR_MAKEFILE ON)
-
-# Allow advanced users to generate Makefiles printing detailed commands
-MARK_AS_ADVANCED(CMAKE_VERBOSE_MAKEFILE)
-
-# Path to additional CMake modules
-SET(CMAKE_MODULE_PATH ${CMAKE_SOURCE_DIR}/cmake ${CMAKE_MODULE_PATH})
-
-###############################################################################
-
-###
-# Set up the version and configure a header file with the version in it.
-###
-set (GeoTIFF_VERSION_MAJOR 2)
-set (GeoTIFF_VERSION_MINOR 1)
-set (GeoTIFF_VERSION_RELEASE 0)
-set (GeoTIFF_VERSION ${GeoTIFF_VERSION_MAJOR}.${GeoTIFF_VERSION_MINOR}.${GeoTIFF_VERSION_RELEASE})
-
-###
-# Currently commented out. Could add build data and svn revision in here:
-# configure_file ( "${PROJECT_SOURCE_DIR}/geotiff_version.h.in"
-# "${PROJECT_BINARY_DIR}/geotiff_version.h" )
-###
-
-
-# General build settings
-
-IF(NOT CMAKE_BUILD_TYPE)
- SET(CMAKE_BUILD_TYPE Debug CACHE STRING
- "Choose the type of build, options are: None Debug Release RelWithDebInfo MinSizeRel"
- FORCE)
-ENDIF()
-
-SET(GEOTIFF_BUILD_PEDANTIC FALSE CACHE BOOL "Choose compilation in pedantic or relaxed mode")
-IF(CMAKE_BUILD_TYPE MATCHES Debug)
- SET(GEOTIFF_BUILD_PEDANTIC TRUE)
-ENDIF()
-
-# TODO: Still testing the output paths --mloskot
-SET(GEOTIFF_BUILD_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}/bin)
-
-# Output directory in which to build RUNTIME target files.
-# SET(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${GEOTIFF_BUILD_OUTPUT_DIRECTORY})
-SET(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}/bin)
-
-# Output directory in which to build LIBRARY target files
-# SET(CMAKE_LIBRARY_OUTPUT_DIRECTORY ${GEOTIFF_BUILD_OUTPUT_DIRECTORY})
-SET(CMAKE_LIBRARY_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}/lib)
-
-# Output directory in which to build ARCHIVE target files.
-# SET(CMAKE_ARCHIVE_OUTPUT_DIRECTORY ${GEOTIFF_BUILD_OUTPUT_DIRECTORY})
-SET(CMAKE_ARCHIVE_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}/lib)
-
-###############################################################################
-# Platform and compiler specific settings
-
-IF(WIN32)
- IF(MSVC)
- ADD_DEFINITIONS(-DBUILD_AS_DLL=1)
- ADD_DEFINITIONS(/DW4)
- if(MSVC10)
- ADD_DEFINITIONS(-D_CRT_SECURE_NO_WARNINGS)
- ADD_DEFINITIONS(-D_CRT_SECURE_NO_DEPRECATE)
- endif()
- IF(MSVC80)
- ADD_DEFINITIONS(-D_CRT_SECURE_NO_WARNINGS)
- ADD_DEFINITIONS(-D_CRT_NONSTDC_NO_WARNING)
- ADD_DEFINITIONS(-D_CRT_SECURE_NO_DEPRECATE)
- ENDIF()
- ENDIF(MSVC)
-ENDIF()
-
-IF(CMAKE_COMPILER_IS_GNUCC OR CMAKE_COMPILER_IS_GNUCXX)
- SET(COMPILE_FLAGS "-fPIC -Wall -Wno-long-long")
- SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} ${COMPILE_FLAGS} -std=c99")
- SET(CMAKE_CXX_FLAGS "${CMAKE_CXX_FLAGS} ${COMPILE_FLAGS} -std=c++98")
- IF(GEOTIFF_BUILD_PEDANTIC)
- SET(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -pedantic")
- SET(CMAKE_CXX_FLAGS "${CMAKE_CXX_FLAGS} -pedantic")
- ENDIF()
-ENDIF()
-
-# Check required standard headers
-INCLUDE(CheckIncludeFiles)
-CHECK_INCLUDE_FILES(stdio.h HAVE_STDIO_H)
-CHECK_INCLUDE_FILES(stdlib.h HAVE_STDLIB_H)
-CHECK_INCLUDE_FILES(string.h HAVE_STRING_H)
-
-###############################################################################
-# User-defined build settings
-
-SET(GEOTIFF_CSV_NAMES area.csv codes.csv datum.csv gcs.csv pcs.csv)
-FIND_PATH(GEOTIFF_CSV_DATA_DIR NAMES ${GEOTIFF_CSV_NAMES}
- PATHS "${CMAKE_SOURCE_DIR}/csv"
- DOC "Default location of GeoTIFF CSV files"
- NO_DEFAULT_PATH)
-
-IF(IS_DIRECTORY ${GEOTIFF_CSV_DATA_DIR} AND EXISTS "${GEOTIFF_CSV_DATA_DIR}/gcs.csv")
- MESSAGE(STATUS "Found GeoTIFF CSV files in: ${GEOTIFF_CSV_DATA_DIR}")
- ADD_DEFINITIONS(-DCSV_DATA_DIR="${GEOTIFF_CSV_DATA_DIR}")
-ELSE()
- MESSAGE(FATAL_ERROR "Failed to find GeoTIFF CSV files in: ${GEOTIFF_CSV_DATA_DIR}")
-ENDIF()
-
-# Has the user requested "incode" EPSG tables, overriding the default
-# use of EPSG tables in csv files?
-SET(GEOTIFF_ENABLE_INCODE_EPSG FALSE CACHE BOOL
- "Choose if C code EPSG tables should be used")
-MESSAGE(STATUS "Enable in-code GeoTIFF EPSG tables: ${GEOTIFF_ENABLE_INCODE_EPSG}")
-
-SET(WITH_UTILITIES TRUE CACHE BOOL "Choose if GeoTIFF utilities should be built")
-
-###############################################################################
-# Search for dependencies
-
-INCLUDE_DIRECTORIES(${PROJECT_SOURCE_DIR})
-INCLUDE_DIRECTORIES(${PROJECT_SOURCE_DIR}/libxtiff)
-
-# TIFF support - required, default=ON
-SET(WITH_TIFF TRUE CACHE BOOL "Choose if TIFF support should be built")
-
-IF(WITH_TIFF)
- FIND_PACKAGE(TIFF REQUIRED)
-
- IF(TIFF_FOUND)
-
-
- INCLUDE_DIRECTORIES(${TIFF_INCLUDE_DIR})
- ADD_DEFINITIONS(-DHAVE_TIFF=1)
- ENDIF(TIFF_FOUND)
-ENDIF(WITH_TIFF)
-
-# PROJ.4 support - optional, default=ON
-SET(WITH_PROJ4 TRUE CACHE BOOL "Choose if PROJ.4 support should be built")
-
-IF(WITH_PROJ4)
- FIND_PACKAGE(PROJ4)
-
- IF(PROJ4_FOUND)
- ADD_DEFINITIONS(-DHAVE_LIBPROJ=1)
- INCLUDE_DIRECTORIES(${PROJ4_INCLUDE_DIR})
-
- IF(EXISTS "${PROJ4_INCLUDE_DIR}/projects.h")
- MESSAGE(STATUS "Looking for projects.h header from PROJ.4 library - found")
- ADD_DEFINITIONS(-DHAVE_PROJECTS_H=1)
- INCLUDE_DIRECTORIES(${PROJ4_INCLUDE_DIR_2})
- ELSE()
- MESSAGE(FATAL_ERROR "Looking for projects.h from PROJ.4 library - not found")
- ENDIF()
- ENDIF()
-ENDIF()
-
-# Zlib support - optional, default=OFF
-SET(WITH_ZLIB FALSE CACHE BOOL "Choose if zlib support should be built")
-
-IF(WITH_ZLIB)
- FIND_PACKAGE(ZLIB)
-
- IF(ZLIB_FOUND)
- SET(HAVE_ZIP 1)
- INCLUDE_DIRECTORIES(${ZLIB_INCLUDE_DIR})
- ADD_DEFINITIONS(-DHAVE_ZIP=${HAVE_ZIP})
- ENDIF()
-ENDIF()
-
-# JPEG support - optional, default=OFF
-SET(WITH_JPEG FALSE CACHE BOOL "Choose if JPEG support should be built")
-
-IF(WITH_JPEG)
- FIND_PACKAGE(JPEG)
-
- IF(JPEG_FOUND)
- SET(HAVE_JPEG 1)
- INCLUDE_DIRECTORIES(${JPEG_INCLUDE_DIR})
- ADD_DEFINITIONS(-DHAVE_JPEG=${HAVE_JPEG})
- ENDIF()
-ENDIF()
-
-###############################################################################
-# Generate geo_config.h with compile-time configuration
-
-MESSAGE(STATUS "Generating geo_config.h header")
-
-CONFIGURE_FILE(${CMAKE_CURRENT_SOURCE_DIR}/cmake/geo_config.h.in
- ${CMAKE_CURRENT_SOURCE_DIR}/geo_config.h)
-
-MESSAGE(STATUS "Generating geo_config.h header - done")
-
-
-###############################################################################
-# Installation settings
-
-SET(GEOTIFF_CSV_DATA
- csv/alias.csv
- csv/area.csv
- csv/change.csv
- csv/compdcs.csv
- csv/coordinate_axis.csv
- csv/coordinate_axis_name.csv
- csv/coordinate_operation.csv
- csv/coordinate_operation_method.csv
- csv/coordinate_operation_parameter.csv
- csv/coordinate_operation_parameter_value.csv
- csv/coordinate_operation_path.csv
- csv/coordinate_reference_system.csv
- csv/coordinate_system.csv
- csv/datum.csv
- csv/datum_shift.csv
- csv/datum_shift_pref.csv
- csv/deprecation.csv
- csv/ellipsoid.csv
- csv/esri_datum_override.csv
- csv/gcs.csv
- csv/gcs.override.csv
- csv/geoccs.csv
- csv/naming_system.csv
- csv/pcs.csv
- csv/pcs.override.csv
- csv/prime_meridian.csv
- csv/projop_wparm.csv
- csv/stateplane.csv
- csv/supersession.csv
- csv/unit_of_measure.csv
- csv/version_history.csv
- csv/vertcs.csv
- csv/vertcs.override.csv )
-
-SET(GEOTIFF_LIB_HEADERS
- geotiff.h
- geotiffio.h
- geovalues.h
- geonames.h
- geokeys.h
- geo_config.h
- geo_tiffp.h
- geo_keyp.h
- geo_normalize.h
- cpl_serv.h
- geo_simpletags.h
- epsg_datum.inc
- epsg_gcs.inc
- epsg_pm.inc
- epsg_units.inc
- geo_ctrans.inc
- epsg_ellipse.inc
- epsg_pcs.inc
- epsg_proj.inc
- epsg_vertcs.inc
- geokeys.inc
- libxtiff/xtiffio.h)
-
-# ${PROJECT_BINARY_DIR}/geotiff_version.h
-
-IF(WIN32)
- SET(DEFAULT_LIB_SUBDIR lib)
- SET(DEFAULT_DATA_SUBDIR .)
- SET(DEFAULT_INCLUDE_SUBDIR include)
-
- IF(MSVC)
- SET(DEFAULT_BIN_SUBDIR bin)
- ELSE()
- SET(DEFAULT_BIN_SUBDIR .)
- ENDIF()
-ELSE()
- # Common locatoins for Unix and Mac OS X
- SET(DEFAULT_BIN_SUBDIR bin)
- SET(DEFAULT_LIB_SUBDIR lib)
- SET(DEFAULT_DATA_SUBDIR share)
- SET(DEFAULT_INCLUDE_SUBDIR include)
-ENDIF()
-
-# Locations are changeable by user to customize layout of GeoTIFF installation
-# (default values are platform-specIFic)
-SET(GEOTIFF_BIN_SUBDIR ${DEFAULT_BIN_SUBDIR} CACHE STRING
- "Subdirectory where executables will be installed")
-SET(GEOTIFF_LIB_SUBDIR ${DEFAULT_LIB_SUBDIR} CACHE STRING
- "Subdirectory where libraries will be installed")
-SET(GEOTIFF_INCLUDE_SUBDIR ${DEFAULT_INCLUDE_SUBDIR} CACHE STRING
- "Subdirectory where header files will be installed")
-SET(GEOTIFF_DATA_SUBDIR ${DEFAULT_DATA_SUBDIR} CACHE STRING
- "Subdirectory where data will be installed")
-
-# Mark *_SUBDIR variables as advanced and dedicated to use by power-users only.
-MARK_AS_ADVANCED(GEOTIFF_BIN_SUBDIR GEOTIFF_LIB_SUBDIR GEOTIFF_INCLUDE_SUBDIR GEOTIFF_DATA_SUBDIR)
-
-# Full paths for the installation
-SET(GEOTIFF_BIN_DIR ${GEOTIFF_BIN_SUBDIR})
-SET(GEOTIFF_LIB_DIR ${GEOTIFF_LIB_SUBDIR})
-SET(GEOTIFF_INCLUDE_DIR ${GEOTIFF_INCLUDE_SUBDIR})
-SET(GEOTIFF_DATA_DIR ${GEOTIFF_DATA_SUBDIR})
-
-# Install doc files
-INSTALL(FILES
- AUTHORS ChangeLog COPYING INSTALL LICENSE README README_BIN README.WIN
- DESTINATION doc)
-# DESTINATION ${GEOTIFF_DATA_DIR}/doc)
-
-# Install CSV data files
-# INSTALL(FILES ${GEOTIFF_CSV_DATA} DESTINATION ${GEOTIFF_DATA_DIR}/epsg_csv)
-INSTALL(FILES ${GEOTIFF_CSV_DATA} DESTINATION share/epsg_csv)
-
-# Install header files for development distribution
-# INSTALL(FILES ${GEOTIFF_LIB_HEADERS} DESTINATION ${GEOTIFF_INCLUDE_DIR})
-INSTALL(FILES ${GEOTIFF_LIB_HEADERS} DESTINATION include)
-
-###############################################################################
-# Build libxtiff library
-
-ADD_SUBDIRECTORY(libxtiff)
-
-###############################################################################
-# Build libgeotiff library
-
-SET(GEOTIFF_LIB_SOURCES
- cpl_serv.c
- cpl_csv.c
- geo_extra.c
- geo_free.c
- geo_get.c
- geo_names.c
- geo_new.c
- geo_normalize.c
- geo_print.c
- geo_set.c
- geo_simpletags.c
- geo_tiffp.c
- geo_trans.c
- geo_write.c
- geotiff_proj4.c)
-
-IF (GEOTIFF_ENABLE_INCODE_EPSG)
- SET(GEOTIFF_LIB_CSV_SOURCES
- csv/datum.c
- csv/ellipsoid.c
- csv/gcs.c
- csv/pcs.c
- csv/prime_meridian.c
- csv/projop_wparm.c
- csv/unit_of_measure.c)
- SOURCE_GROUP("CSV Source Files" FILES ${GEOTIFF_LIB_CSV_SOURCES})
-ENDIF(GEOTIFF_ENABLE_INCODE_EPSG)
-
-SET(XTIFF_SOURCES libxtiff/xtiff.c)
-
-#---
-# Static libgeotiff archive
-# NOTE: Did not put XTIFF_SOURCES in static lib because libxtiff.a is written out
-# currently.
-#---
-ADD_LIBRARY(${GEOTIFF_ARCHIVE_TARGET} STATIC
- ${GEOTIFF_LIB_SOURCES} ${GEOTIFF_LIB_CSV_SOURCES})
-SET_TARGET_PROPERTIES(${GEOTIFF_ARCHIVE_TARGET} PROPERTIES
- OUTPUT_NAME ${GEOTIFF_LIB_NAME})
-
-# Shared libgeotiff library
-ADD_LIBRARY(${GEOTIFF_LIBRARY_TARGET} SHARED
- ${GEOTIFF_LIB_SOURCES} ${GEOTIFF_LIB_CSV_SOURCES} ${XTIFF_SOURCES})
-
-# Windows:
-IF(WIN32 AND MSVC)
- SET_TARGET_PROPERTIES(${GEOTIFF_LIBRARY_TARGET} PROPERTIES IMPORT_SUFFIX "_i.lib")
-ENDIF(WIN32 AND MSVC)
-
-
-# Unix, linux:
-IF(UNIX)
- IF(NOT LINK_SOVERSION)
- set(LINK_SOVERSION "${GeoTIFF_VERSION_MAJOR}")
- ENDIF(NOT LINK_SOVERSION)
- IF(NOT LINK_VERSION)
- set(LINK_VERSION "${GeoTIFF_VERSION}")
- ENDIF(NOT LINK_VERSION)
- SET_TARGET_PROPERTIES(
- ${GEOTIFF_LIBRARY_TARGET}
- PROPERTIES
- OUTPUT_NAME ${GEOTIFF_LIB_NAME}
- VERSION ${LINK_VERSION}
- SOVERSION ${LINK_SOVERSION}
- CLEAN_DIRECT_OUTPUT 1 )
- if (APPLE)
- set_target_properties(
- ${GEOTIFF_LIBRARY_TARGET}
- PROPERTIES
- INSTALL_NAME_DIR "${CMAKE_INSTALL_PREFIX}/lib")
- endif()
-
-ELSE(UNIX)
-# Default:
- SET_TARGET_PROPERTIES(${GEOTIFF_LIBRARY_TARGET} PROPERTIES
- OUTPUT_NAME ${GEOTIFF_LIB_NAME})
-ENDIF(UNIX)
-
-SET_TARGET_PROPERTIES(${GEOTIFF_LIBRARY_TARGET} PROPERTIES
- OUTPUT_NAME ${GEOTIFF_LIB_NAME})
-
-TARGET_LINK_LIBRARIES(${GEOTIFF_LIBRARY_TARGET}
- ${TIFF_LIBRARIES}
- ${PROJ4_LIBRARIES}
- ${ZLIB_LIBRARIES}
- ${JPEG_LIBRARIES})
-
-# INSTALL(TARGETS ${GEOTIFF_ARCHIVE_TARGET} ${GEOTIFF_LIBRARY_TARGET}
-# RUNTIME DESTINATION ${GEOTIFF_BIN_DIR}
-# LIBRARY DESTINATION ${GEOTIFF_LIB_DIR}
-# ARCHIVE DESTINATION ${GEOTIFF_LIB_DIR})
-
-INSTALL( TARGETS ${GEOTIFF_ARCHIVE_TARGET} ${GEOTIFF_LIBRARY_TARGET}
- RUNTIME DESTINATION bin
- LIBRARY DESTINATION lib
- ARCHIVE DESTINATION lib )
-
-# Define grouping of source files in PROJECT file (e.g. Visual Studio)
-SOURCE_GROUP("CMake Files" FILES CMakeLists.txt)
-SOURCE_GROUP("Header Files" FILES ${GEOTIFF_LIB_HEADERS})
-SOURCE_GROUP("Source Files" FILES ${GEOTIFF_LIB_SOURCES})
-
-###############################################################################
-# Build GeoTIFF utilities
-
-IF(WITH_UTILITIES)
- ADD_SUBDIRECTORY(bin)
-ENDIF()
diff --git a/SuperBuild/patches/GEOTIFF/configure b/SuperBuild/patches/GEOTIFF/configure
deleted file mode 100755
index 403dad7..0000000
--- a/SuperBuild/patches/GEOTIFF/configure
+++ /dev/null
@@ -1,20109 +0,0 @@
-#! /bin/sh
-# Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.65 for libgeotiff 1.4.0.
-#
-# Report bugs to <warmerdam at pobox.com>.
-#
-#
-# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
-# 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation,
-# Inc.
-#
-#
-# This configure script is free software; the Free Software Foundation
-# gives unlimited permission to copy, distribute and modify it.
-## -------------------- ##
-## M4sh Initialization. ##
-## -------------------- ##
-
-# Be more Bourne compatible
-DUALCASE=1; export DUALCASE # for MKS sh
-if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
- emulate sh
- NULLCMD=:
- # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
- # is contrary to our usage. Disable this feature.
- alias -g '${1+"$@"}'='"$@"'
- setopt NO_GLOB_SUBST
-else
- case `(set -o) 2>/dev/null` in #(
- *posix*) :
- set -o posix ;; #(
- *) :
- ;;
-esac
-fi
-
-
-as_nl='
-'
-export as_nl
-# Printing a long string crashes Solaris 7 /usr/bin/printf.
-as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
-# Prefer a ksh shell builtin over an external printf program on Solaris,
-# but without wasting forks for bash or zsh.
-if test -z "$BASH_VERSION$ZSH_VERSION" \
- && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='print -r --'
- as_echo_n='print -rn --'
-elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='printf %s\n'
- as_echo_n='printf %s'
-else
- if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
- as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
- as_echo_n='/usr/ucb/echo -n'
- else
- as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
- as_echo_n_body='eval
- arg=$1;
- case $arg in #(
- *"$as_nl"*)
- expr "X$arg" : "X\\(.*\\)$as_nl";
- arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
- esac;
- expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
- '
- export as_echo_n_body
- as_echo_n='sh -c $as_echo_n_body as_echo'
- fi
- export as_echo_body
- as_echo='sh -c $as_echo_body as_echo'
-fi
-
-# The user is always right.
-if test "${PATH_SEPARATOR+set}" != set; then
- PATH_SEPARATOR=:
- (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
- (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
- PATH_SEPARATOR=';'
- }
-fi
-
-
-# IFS
-# We need space, tab and new line, in precisely that order. Quoting is
-# there to prevent editors from complaining about space-tab.
-# (If _AS_PATH_WALK were called with IFS unset, it would disable word
-# splitting by setting IFS to empty value.)
-IFS=" "" $as_nl"
-
-# Find who we are. Look in the path if we contain no directory separator.
-case $0 in #((
- *[\\/]* ) as_myself=$0 ;;
- *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-# We did not find ourselves, most probably we were run as `sh COMMAND'
-# in which case we are not to be found in the path.
-if test "x$as_myself" = x; then
- as_myself=$0
-fi
-if test ! -f "$as_myself"; then
- $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
- exit 1
-fi
-
-# Unset variables that we do not need and which cause bugs (e.g. in
-# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1"
-# suppresses any "Segmentation fault" message there. '((' could
-# trigger a bug in pdksh 5.2.14.
-for as_var in BASH_ENV ENV MAIL MAILPATH
-do eval test x\${$as_var+set} = xset \
- && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
-done
-PS1='$ '
-PS2='> '
-PS4='+ '
-
-# NLS nuisances.
-LC_ALL=C
-export LC_ALL
-LANGUAGE=C
-export LANGUAGE
-
-# CDPATH.
-(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-
-if test "x$CONFIG_SHELL" = x; then
- as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then :
- emulate sh
- NULLCMD=:
- # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which
- # is contrary to our usage. Disable this feature.
- alias -g '\${1+\"\$@\"}'='\"\$@\"'
- setopt NO_GLOB_SUBST
-else
- case \`(set -o) 2>/dev/null\` in #(
- *posix*) :
- set -o posix ;; #(
- *) :
- ;;
-esac
-fi
-"
- as_required="as_fn_return () { (exit \$1); }
-as_fn_success () { as_fn_return 0; }
-as_fn_failure () { as_fn_return 1; }
-as_fn_ret_success () { return 0; }
-as_fn_ret_failure () { return 1; }
-
-exitcode=0
-as_fn_success || { exitcode=1; echo as_fn_success failed.; }
-as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }
-as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }
-as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }
-if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then :
-
-else
- exitcode=1; echo positional parameters were not saved.
-fi
-test x\$exitcode = x0 || exit 1"
- as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
- as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
- eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&
- test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1
-test \$(( 1 + 1 )) = 2 || exit 1"
- if (eval "$as_required") 2>/dev/null; then :
- as_have_required=yes
-else
- as_have_required=no
-fi
- if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then :
-
-else
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-as_found=false
-for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- as_found=:
- case $as_dir in #(
- /*)
- for as_base in sh bash ksh sh5; do
- # Try only shells that exist, to save several forks.
- as_shell=$as_dir/$as_base
- if { test -f "$as_shell" || test -f "$as_shell.exe"; } &&
- { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then :
- CONFIG_SHELL=$as_shell as_have_required=yes
- if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then :
- break 2
-fi
-fi
- done;;
- esac
- as_found=false
-done
-$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } &&
- { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then :
- CONFIG_SHELL=$SHELL as_have_required=yes
-fi; }
-IFS=$as_save_IFS
-
-
- if test "x$CONFIG_SHELL" != x; then :
- # We cannot yet assume a decent shell, so we have to provide a
- # neutralization value for shells without unset; and this also
- # works around shells that cannot unset nonexistent variables.
- BASH_ENV=/dev/null
- ENV=/dev/null
- (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
- export CONFIG_SHELL
- exec "$CONFIG_SHELL" "$as_myself" ${1+"$@"}
-fi
-
- if test x$as_have_required = xno; then :
- $as_echo "$0: This script requires a shell more modern than all"
- $as_echo "$0: the shells that I found on your system."
- if test x${ZSH_VERSION+set} = xset ; then
- $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should"
- $as_echo "$0: be upgraded to zsh 4.3.4 or later."
- else
- $as_echo "$0: Please tell bug-autoconf at gnu.org and
-$0: warmerdam at pobox.com about your system, including any
-$0: error possibly output before this message. Then install
-$0: a modern shell, or manually run the script under such a
-$0: shell if you do have one."
- fi
- exit 1
-fi
-fi
-fi
-SHELL=${CONFIG_SHELL-/bin/sh}
-export SHELL
-# Unset more variables known to interfere with behavior of common tools.
-CLICOLOR_FORCE= GREP_OPTIONS=
-unset CLICOLOR_FORCE GREP_OPTIONS
-
-## --------------------- ##
-## M4sh Shell Functions. ##
-## --------------------- ##
-# as_fn_unset VAR
-# ---------------
-# Portably unset VAR.
-as_fn_unset ()
-{
- { eval $1=; unset $1;}
-}
-as_unset=as_fn_unset
-
-# as_fn_set_status STATUS
-# -----------------------
-# Set $? to STATUS, without forking.
-as_fn_set_status ()
-{
- return $1
-} # as_fn_set_status
-
-# as_fn_exit STATUS
-# -----------------
-# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
-as_fn_exit ()
-{
- set +e
- as_fn_set_status $1
- exit $1
-} # as_fn_exit
-
-# as_fn_mkdir_p
-# -------------
-# Create "$as_dir" as a directory, including parents if necessary.
-as_fn_mkdir_p ()
-{
-
- case $as_dir in #(
- -*) as_dir=./$as_dir;;
- esac
- test -d "$as_dir" || eval $as_mkdir_p || {
- as_dirs=
- while :; do
- case $as_dir in #(
- *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
- *) as_qdir=$as_dir;;
- esac
- as_dirs="'$as_qdir' $as_dirs"
- as_dir=`$as_dirname -- "$as_dir" ||
-$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$as_dir" : 'X\(//\)[^/]' \| \
- X"$as_dir" : 'X\(//\)$' \| \
- X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$as_dir" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- test -d "$as_dir" && break
- done
- test -z "$as_dirs" || eval "mkdir $as_dirs"
- } || test -d "$as_dir" || as_fn_error "cannot create directory $as_dir"
-
-
-} # as_fn_mkdir_p
-# as_fn_append VAR VALUE
-# ----------------------
-# Append the text in VALUE to the end of the definition contained in VAR. Take
-# advantage of any shell optimizations that allow amortized linear growth over
-# repeated appends, instead of the typical quadratic growth present in naive
-# implementations.
-if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
- eval 'as_fn_append ()
- {
- eval $1+=\$2
- }'
-else
- as_fn_append ()
- {
- eval $1=\$$1\$2
- }
-fi # as_fn_append
-
-# as_fn_arith ARG...
-# ------------------
-# Perform arithmetic evaluation on the ARGs, and store the result in the
-# global $as_val. Take advantage of shells that can avoid forks. The arguments
-# must be portable across $(()) and expr.
-if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
- eval 'as_fn_arith ()
- {
- as_val=$(( $* ))
- }'
-else
- as_fn_arith ()
- {
- as_val=`expr "$@" || test $? -eq 1`
- }
-fi # as_fn_arith
-
-
-# as_fn_error ERROR [LINENO LOG_FD]
-# ---------------------------------
-# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
-# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-# script with status $?, using 1 if that was 0.
-as_fn_error ()
-{
- as_status=$?; test $as_status -eq 0 && as_status=1
- if test "$3"; then
- as_lineno=${as_lineno-"$2"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- $as_echo "$as_me:${as_lineno-$LINENO}: error: $1" >&$3
- fi
- $as_echo "$as_me: error: $1" >&2
- as_fn_exit $as_status
-} # as_fn_error
-
-if expr a : '\(a\)' >/dev/null 2>&1 &&
- test "X`expr 00001 : '.*\(...\)'`" = X001; then
- as_expr=expr
-else
- as_expr=false
-fi
-
-if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
- as_basename=basename
-else
- as_basename=false
-fi
-
-if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
- as_dirname=dirname
-else
- as_dirname=false
-fi
-
-as_me=`$as_basename -- "$0" ||
-$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
- X"$0" : 'X\(//\)$' \| \
- X"$0" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X/"$0" |
- sed '/^.*\/\([^/][^/]*\)\/*$/{
- s//\1/
- q
- }
- /^X\/\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\/\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
-
-# Avoid depending upon Character Ranges.
-as_cr_letters='abcdefghijklmnopqrstuvwxyz'
-as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-as_cr_Letters=$as_cr_letters$as_cr_LETTERS
-as_cr_digits='0123456789'
-as_cr_alnum=$as_cr_Letters$as_cr_digits
-
-
- as_lineno_1=$LINENO as_lineno_1a=$LINENO
- as_lineno_2=$LINENO as_lineno_2a=$LINENO
- eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" &&
- test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || {
- # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-)
- sed -n '
- p
- /[$]LINENO/=
- ' <$as_myself |
- sed '
- s/[$]LINENO.*/&-/
- t lineno
- b
- :lineno
- N
- :loop
- s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/
- t loop
- s/-\n.*//
- ' >$as_me.lineno &&
- chmod +x "$as_me.lineno" ||
- { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; }
-
- # Don't try to exec as it changes $[0], causing all sort of problems
- # (the dirname of $[0] is not the place where we might find the
- # original and so on. Autoconf is especially sensitive to this).
- . "./$as_me.lineno"
- # Exit status is that of the last command.
- exit
-}
-
-ECHO_C= ECHO_N= ECHO_T=
-case `echo -n x` in #(((((
--n*)
- case `echo 'xy\c'` in
- *c*) ECHO_T=' ';; # ECHO_T is single tab character.
- xy) ECHO_C='\c';;
- *) echo `echo ksh88 bug on AIX 6.1` > /dev/null
- ECHO_T=' ';;
- esac;;
-*)
- ECHO_N='-n';;
-esac
-
-rm -f conf$$ conf$$.exe conf$$.file
-if test -d conf$$.dir; then
- rm -f conf$$.dir/conf$$.file
-else
- rm -f conf$$.dir
- mkdir conf$$.dir 2>/dev/null
-fi
-if (echo >conf$$.file) 2>/dev/null; then
- if ln -s conf$$.file conf$$ 2>/dev/null; then
- as_ln_s='ln -s'
- # ... but there are two gotchas:
- # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
- # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
- # In both cases, we have to default to `cp -p'.
- ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
- as_ln_s='cp -p'
- elif ln conf$$.file conf$$ 2>/dev/null; then
- as_ln_s=ln
- else
- as_ln_s='cp -p'
- fi
-else
- as_ln_s='cp -p'
-fi
-rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
-rmdir conf$$.dir 2>/dev/null
-
-if mkdir -p . 2>/dev/null; then
- as_mkdir_p='mkdir -p "$as_dir"'
-else
- test -d ./-p && rmdir ./-p
- as_mkdir_p=false
-fi
-
-if test -x / >/dev/null 2>&1; then
- as_test_x='test -x'
-else
- if ls -dL / >/dev/null 2>&1; then
- as_ls_L_option=L
- else
- as_ls_L_option=
- fi
- as_test_x='
- eval sh -c '\''
- if test -d "$1"; then
- test -d "$1/.";
- else
- case $1 in #(
- -*)set "./$1";;
- esac;
- case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #((
- ???[sx]*):;;*)false;;esac;fi
- '\'' sh
- '
-fi
-as_executable_p=$as_test_x
-
-# Sed expression to map a string onto a valid CPP name.
-as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
-
-# Sed expression to map a string onto a valid variable name.
-as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
-
-
-
-# Check that we are running under the correct shell.
-SHELL=${CONFIG_SHELL-/bin/sh}
-
-case X$lt_ECHO in
-X*--fallback-echo)
- # Remove one level of quotation (which was required for Make).
- ECHO=`echo "$lt_ECHO" | sed 's,\\\\\$\\$0,'$0','`
- ;;
-esac
-
-ECHO=${lt_ECHO-echo}
-if test "X$1" = X--no-reexec; then
- # Discard the --no-reexec flag, and continue.
- shift
-elif test "X$1" = X--fallback-echo; then
- # Avoid inline document here, it may be left over
- :
-elif test "X`{ $ECHO '\t'; } 2>/dev/null`" = 'X\t' ; then
- # Yippee, $ECHO works!
- :
-else
- # Restart under the correct shell.
- exec $SHELL "$0" --no-reexec ${1+"$@"}
-fi
-
-if test "X$1" = X--fallback-echo; then
- # used as fallback echo
- shift
- cat <<_LT_EOF
-$*
-_LT_EOF
- exit 0
-fi
-
-# The HP-UX ksh and POSIX shell print the target directory to stdout
-# if CDPATH is set.
-(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-
-if test -z "$lt_ECHO"; then
- if test "X${echo_test_string+set}" != Xset; then
- # find a string as large as possible, as long as the shell can cope with it
- for cmd in 'sed 50q "$0"' 'sed 20q "$0"' 'sed 10q "$0"' 'sed 2q "$0"' 'echo test'; do
- # expected sizes: less than 2Kb, 1Kb, 512 bytes, 16 bytes, ...
- if { echo_test_string=`eval $cmd`; } 2>/dev/null &&
- { test "X$echo_test_string" = "X$echo_test_string"; } 2>/dev/null
- then
- break
- fi
- done
- fi
-
- if test "X`{ $ECHO '\t'; } 2>/dev/null`" = 'X\t' &&
- echo_testing_string=`{ $ECHO "$echo_test_string"; } 2>/dev/null` &&
- test "X$echo_testing_string" = "X$echo_test_string"; then
- :
- else
- # The Solaris, AIX, and Digital Unix default echo programs unquote
- # backslashes. This makes it impossible to quote backslashes using
- # echo "$something" | sed 's/\\/\\\\/g'
- #
- # So, first we look for a working echo in the user's PATH.
-
- lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
- for dir in $PATH /usr/ucb; do
- IFS="$lt_save_ifs"
- if (test -f $dir/echo || test -f $dir/echo$ac_exeext) &&
- test "X`($dir/echo '\t') 2>/dev/null`" = 'X\t' &&
- echo_testing_string=`($dir/echo "$echo_test_string") 2>/dev/null` &&
- test "X$echo_testing_string" = "X$echo_test_string"; then
- ECHO="$dir/echo"
- break
- fi
- done
- IFS="$lt_save_ifs"
-
- if test "X$ECHO" = Xecho; then
- # We didn't find a better echo, so look for alternatives.
- if test "X`{ print -r '\t'; } 2>/dev/null`" = 'X\t' &&
- echo_testing_string=`{ print -r "$echo_test_string"; } 2>/dev/null` &&
- test "X$echo_testing_string" = "X$echo_test_string"; then
- # This shell has a builtin print -r that does the trick.
- ECHO='print -r'
- elif { test -f /bin/ksh || test -f /bin/ksh$ac_exeext; } &&
- test "X$CONFIG_SHELL" != X/bin/ksh; then
- # If we have ksh, try running configure again with it.
- ORIGINAL_CONFIG_SHELL=${CONFIG_SHELL-/bin/sh}
- export ORIGINAL_CONFIG_SHELL
- CONFIG_SHELL=/bin/ksh
- export CONFIG_SHELL
- exec $CONFIG_SHELL "$0" --no-reexec ${1+"$@"}
- else
- # Try using printf.
- ECHO='printf %s\n'
- if test "X`{ $ECHO '\t'; } 2>/dev/null`" = 'X\t' &&
- echo_testing_string=`{ $ECHO "$echo_test_string"; } 2>/dev/null` &&
- test "X$echo_testing_string" = "X$echo_test_string"; then
- # Cool, printf works
- :
- elif echo_testing_string=`($ORIGINAL_CONFIG_SHELL "$0" --fallback-echo '\t') 2>/dev/null` &&
- test "X$echo_testing_string" = 'X\t' &&
- echo_testing_string=`($ORIGINAL_CONFIG_SHELL "$0" --fallback-echo "$echo_test_string") 2>/dev/null` &&
- test "X$echo_testing_string" = "X$echo_test_string"; then
- CONFIG_SHELL=$ORIGINAL_CONFIG_SHELL
- export CONFIG_SHELL
- SHELL="$CONFIG_SHELL"
- export SHELL
- ECHO="$CONFIG_SHELL $0 --fallback-echo"
- elif echo_testing_string=`($CONFIG_SHELL "$0" --fallback-echo '\t') 2>/dev/null` &&
- test "X$echo_testing_string" = 'X\t' &&
- echo_testing_string=`($CONFIG_SHELL "$0" --fallback-echo "$echo_test_string") 2>/dev/null` &&
- test "X$echo_testing_string" = "X$echo_test_string"; then
- ECHO="$CONFIG_SHELL $0 --fallback-echo"
- else
- # maybe with a smaller string...
- prev=:
-
- for cmd in 'echo test' 'sed 2q "$0"' 'sed 10q "$0"' 'sed 20q "$0"' 'sed 50q "$0"'; do
- if { test "X$echo_test_string" = "X`eval $cmd`"; } 2>/dev/null
- then
- break
- fi
- prev="$cmd"
- done
-
- if test "$prev" != 'sed 50q "$0"'; then
- echo_test_string=`eval $prev`
- export echo_test_string
- exec ${ORIGINAL_CONFIG_SHELL-${CONFIG_SHELL-/bin/sh}} "$0" ${1+"$@"}
- else
- # Oops. We lost completely, so just stick with echo.
- ECHO=echo
- fi
- fi
- fi
- fi
- fi
-fi
-
-# Copy echo and quote the copy suitably for passing to libtool from
-# the Makefile, instead of quoting the original, which is used later.
-lt_ECHO=$ECHO
-if test "X$lt_ECHO" = "X$CONFIG_SHELL $0 --fallback-echo"; then
- lt_ECHO="$CONFIG_SHELL \\\$\$0 --fallback-echo"
-fi
-
-
-
-
-test -n "$DJDIR" || exec 7<&0 </dev/null
-exec 6>&1
-
-# Name of the host.
-# hostname on some systems (SVR3.2, Linux) returns a bogus exit status,
-# so uname gets run too.
-ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q`
-
-#
-# Initializations.
-#
-ac_default_prefix=/usr/local
-ac_clean_files=
-ac_config_libobj_dir=.
-LIBOBJS=
-cross_compiling=no
-subdirs=
-MFLAGS=
-MAKEFLAGS=
-
-# Identity of this package.
-PACKAGE_NAME='libgeotiff'
-PACKAGE_TARNAME='libgeotiff'
-PACKAGE_VERSION='1.4.0'
-PACKAGE_STRING='libgeotiff 1.4.0'
-PACKAGE_BUGREPORT='warmerdam at pobox.com'
-PACKAGE_URL=''
-
-# Factoring default headers for most tests.
-ac_includes_default="\
-#include <stdio.h>
-#ifdef HAVE_SYS_TYPES_H
-# include <sys/types.h>
-#endif
-#ifdef HAVE_SYS_STAT_H
-# include <sys/stat.h>
-#endif
-#ifdef STDC_HEADERS
-# include <stdlib.h>
-# include <stddef.h>
-#else
-# ifdef HAVE_STDLIB_H
-# include <stdlib.h>
-# endif
-#endif
-#ifdef HAVE_STRING_H
-# if !defined STDC_HEADERS && defined HAVE_MEMORY_H
-# include <memory.h>
-# endif
-# include <string.h>
-#endif
-#ifdef HAVE_STRINGS_H
-# include <strings.h>
-#endif
-#ifdef HAVE_INTTYPES_H
-# include <inttypes.h>
-#endif
-#ifdef HAVE_STDINT_H
-# include <stdint.h>
-#endif
-#ifdef HAVE_UNISTD_H
-# include <unistd.h>
-#endif"
-
-ac_subst_vars='am__EXEEXT_FALSE
-am__EXEEXT_TRUE
-LTLIBOBJS
-LIBOBJS
-DOXYGEN_PAPER_SIZE
-DX_COND_latex_FALSE
-DX_COND_latex_TRUE
-DX_COND_pdf_FALSE
-DX_COND_pdf_TRUE
-DX_PDFLATEX
-DX_FLAG_pdf
-DX_COND_ps_FALSE
-DX_COND_ps_TRUE
-DX_EGREP
-DX_DVIPS
-DX_MAKEINDEX
-DX_LATEX
-DX_FLAG_ps
-DX_COND_html_FALSE
-DX_COND_html_TRUE
-DX_FLAG_html
-DX_COND_chi_FALSE
-DX_COND_chi_TRUE
-DX_FLAG_chi
-DX_COND_chm_FALSE
-DX_COND_chm_TRUE
-DX_HHC
-DX_FLAG_chm
-DX_COND_xml_FALSE
-DX_COND_xml_TRUE
-DX_FLAG_xml
-DX_COND_rtf_FALSE
-DX_COND_rtf_TRUE
-DX_FLAG_rtf
-DX_COND_man_FALSE
-DX_COND_man_TRUE
-DX_FLAG_man
-DX_COND_dot_FALSE
-DX_COND_dot_TRUE
-DX_DOT
-DX_FLAG_dot
-DX_COND_doc_FALSE
-DX_COND_doc_TRUE
-DX_PERL
-DX_FLAG_DX_CURRENT_FEATURE
-DX_DOXYGEN
-DX_FLAG_doc
-DX_ENV
-DX_DOCDIR
-DX_CONFIG
-DX_PROJECT
-CSV_IS_CONFIG_FALSE
-CSV_IS_CONFIG_TRUE
-PROJECTS_H_IS_CONFIG_FALSE
-PROJECTS_H_IS_CONFIG_TRUE
-PROJ_IS_CONFIG_FALSE
-PROJ_IS_CONFIG_TRUE
-HAVE_LIBPROJ
-PROJ_INC
-TIFF_IS_CONFIG_FALSE
-TIFF_IS_CONFIG_TRUE
-TIFF_PREFIX
-TIFF_INC
-JPEG_IS_CONFIG_FALSE
-JPEG_IS_CONFIG_TRUE
-JPEG_PREFIX
-JPEG_INC
-ZIP_IS_CONFIG_FALSE
-ZIP_IS_CONFIG_TRUE
-ZIP_PREFIX
-ZIP_INC
-CPP
-OTOOL64
-OTOOL
-LIPO
-NMEDIT
-DSYMUTIL
-lt_ECHO
-RANLIB
-AR
-OBJDUMP
-NM
-ac_ct_DUMPBIN
-DUMPBIN
-LD
-FGREP
-EGREP
-GREP
-SED
-host_os
-host_vendor
-host_cpu
-host
-LIBTOOL
-LN_S
-CXXCPP
-am__fastdepCXX_FALSE
-am__fastdepCXX_TRUE
-CXXDEPMODE
-ac_ct_CXX
-CXXFLAGS
-CXX
-am__fastdepCC_FALSE
-am__fastdepCC_TRUE
-CCDEPMODE
-AMDEPBACKSLASH
-AMDEP_FALSE
-AMDEP_TRUE
-am__quote
-am__include
-DEPDIR
-OBJEXT
-EXEEXT
-ac_ct_CC
-CPPFLAGS
-LDFLAGS
-CFLAGS
-CC
-MAINT
-MAINTAINER_MODE_FALSE
-MAINTAINER_MODE_TRUE
-am__untar
-am__tar
-AMTAR
-am__leading_dot
-SET_MAKE
-AWK
-mkdir_p
-MKDIR_P
-INSTALL_STRIP_PROGRAM
-STRIP
-install_sh
-MAKEINFO
-AUTOHEADER
-AUTOMAKE
-AUTOCONF
-ACLOCAL
-VERSION
-PACKAGE
-CYGPATH_W
-am__isrc
-INSTALL_DATA
-INSTALL_SCRIPT
-INSTALL_PROGRAM
-RELEASE_VERSION
-build_os
-build_vendor
-build_cpu
-build
-target_alias
-host_alias
-build_alias
-LIBS
-ECHO_T
-ECHO_N
-ECHO_C
-DEFS
-mandir
-localedir
-libdir
-psdir
-pdfdir
-dvidir
-htmldir
-infodir
-docdir
-oldincludedir
-includedir
-localstatedir
-sharedstatedir
-sysconfdir
-datadir
-datarootdir
-libexecdir
-sbindir
-bindir
-program_transform_name
-prefix
-exec_prefix
-PACKAGE_URL
-PACKAGE_BUGREPORT
-PACKAGE_STRING
-PACKAGE_VERSION
-PACKAGE_TARNAME
-PACKAGE_NAME
-PATH_SEPARATOR
-SHELL'
-ac_subst_files=''
-ac_user_opts='
-enable_option_checking
-enable_maintainer_mode
-enable_dependency_tracking
-enable_shared
-enable_static
-with_pic
-enable_fast_install
-with_gnu_ld
-enable_libtool_lock
-enable_debug
-with_zip
-with_zlib
-with_libz
-with_jpeg
-with_libtiff
-with_proj
-enable_incode_epsg
-enable_doxygen_doc
-enable_doxygen_dot
-enable_doxygen_man
-enable_doxygen_rtf
-enable_doxygen_xml
-enable_doxygen_chm
-enable_doxygen_chi
-enable_doxygen_html
-enable_doxygen_ps
-enable_doxygen_pdf
-'
- ac_precious_vars='build_alias
-host_alias
-target_alias
-CC
-CFLAGS
-LDFLAGS
-LIBS
-CPPFLAGS
-CXX
-CXXFLAGS
-CCC
-CXXCPP
-CPP
-DOXYGEN_PAPER_SIZE'
-
-
-# Initialize some variables set by options.
-ac_init_help=
-ac_init_version=false
-ac_unrecognized_opts=
-ac_unrecognized_sep=
-# The variables have the same names as the options, with
-# dashes changed to underlines.
-cache_file=/dev/null
-exec_prefix=NONE
-no_create=
-no_recursion=
-prefix=NONE
-program_prefix=NONE
-program_suffix=NONE
-program_transform_name=s,x,x,
-silent=
-site=
-srcdir=
-verbose=
-x_includes=NONE
-x_libraries=NONE
-
-# Installation directory options.
-# These are left unexpanded so users can "make install exec_prefix=/foo"
-# and all the variables that are supposed to be based on exec_prefix
-# by default will actually change.
-# Use braces instead of parens because sh, perl, etc. also accept them.
-# (The list follows the same order as the GNU Coding Standards.)
-bindir='${exec_prefix}/bin'
-sbindir='${exec_prefix}/sbin'
-libexecdir='${exec_prefix}/libexec'
-datarootdir='${prefix}/share'
-datadir='${datarootdir}'
-sysconfdir='${prefix}/etc'
-sharedstatedir='${prefix}/com'
-localstatedir='${prefix}/var'
-includedir='${prefix}/include'
-oldincludedir='/usr/include'
-docdir='${datarootdir}/doc/${PACKAGE_TARNAME}'
-infodir='${datarootdir}/info'
-htmldir='${docdir}'
-dvidir='${docdir}'
-pdfdir='${docdir}'
-psdir='${docdir}'
-libdir='${exec_prefix}/lib'
-localedir='${datarootdir}/locale'
-mandir='${datarootdir}/man'
-
-ac_prev=
-ac_dashdash=
-for ac_option
-do
- # If the previous option needs an argument, assign it.
- if test -n "$ac_prev"; then
- eval $ac_prev=\$ac_option
- ac_prev=
- continue
- fi
-
- case $ac_option in
- *=*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;;
- *) ac_optarg=yes ;;
- esac
-
- # Accept the important Cygnus configure options, so we can diagnose typos.
-
- case $ac_dashdash$ac_option in
- --)
- ac_dashdash=yes ;;
-
- -bindir | --bindir | --bindi | --bind | --bin | --bi)
- ac_prev=bindir ;;
- -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
- bindir=$ac_optarg ;;
-
- -build | --build | --buil | --bui | --bu)
- ac_prev=build_alias ;;
- -build=* | --build=* | --buil=* | --bui=* | --bu=*)
- build_alias=$ac_optarg ;;
-
- -cache-file | --cache-file | --cache-fil | --cache-fi \
- | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
- ac_prev=cache_file ;;
- -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
- | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
- cache_file=$ac_optarg ;;
-
- --config-cache | -C)
- cache_file=config.cache ;;
-
- -datadir | --datadir | --datadi | --datad)
- ac_prev=datadir ;;
- -datadir=* | --datadir=* | --datadi=* | --datad=*)
- datadir=$ac_optarg ;;
-
- -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \
- | --dataroo | --dataro | --datar)
- ac_prev=datarootdir ;;
- -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \
- | --dataroot=* | --dataroo=* | --dataro=* | --datar=*)
- datarootdir=$ac_optarg ;;
-
- -disable-* | --disable-*)
- ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'`
- # Reject names that are not valid shell variable names.
- expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
- as_fn_error "invalid feature name: $ac_useropt"
- ac_useropt_orig=$ac_useropt
- ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
- case $ac_user_opts in
- *"
-"enable_$ac_useropt"
-"*) ;;
- *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig"
- ac_unrecognized_sep=', ';;
- esac
- eval enable_$ac_useropt=no ;;
-
- -docdir | --docdir | --docdi | --doc | --do)
- ac_prev=docdir ;;
- -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*)
- docdir=$ac_optarg ;;
-
- -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv)
- ac_prev=dvidir ;;
- -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*)
- dvidir=$ac_optarg ;;
-
- -enable-* | --enable-*)
- ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'`
- # Reject names that are not valid shell variable names.
- expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
- as_fn_error "invalid feature name: $ac_useropt"
- ac_useropt_orig=$ac_useropt
- ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
- case $ac_user_opts in
- *"
-"enable_$ac_useropt"
-"*) ;;
- *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig"
- ac_unrecognized_sep=', ';;
- esac
- eval enable_$ac_useropt=\$ac_optarg ;;
-
- -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
- | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
- | --exec | --exe | --ex)
- ac_prev=exec_prefix ;;
- -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
- | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
- | --exec=* | --exe=* | --ex=*)
- exec_prefix=$ac_optarg ;;
-
- -gas | --gas | --ga | --g)
- # Obsolete; use --with-gas.
- with_gas=yes ;;
-
- -help | --help | --hel | --he | -h)
- ac_init_help=long ;;
- -help=r* | --help=r* | --hel=r* | --he=r* | -hr*)
- ac_init_help=recursive ;;
- -help=s* | --help=s* | --hel=s* | --he=s* | -hs*)
- ac_init_help=short ;;
-
- -host | --host | --hos | --ho)
- ac_prev=host_alias ;;
- -host=* | --host=* | --hos=* | --ho=*)
- host_alias=$ac_optarg ;;
-
- -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht)
- ac_prev=htmldir ;;
- -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \
- | --ht=*)
- htmldir=$ac_optarg ;;
-
- -includedir | --includedir | --includedi | --included | --include \
- | --includ | --inclu | --incl | --inc)
- ac_prev=includedir ;;
- -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \
- | --includ=* | --inclu=* | --incl=* | --inc=*)
- includedir=$ac_optarg ;;
-
- -infodir | --infodir | --infodi | --infod | --info | --inf)
- ac_prev=infodir ;;
- -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)
- infodir=$ac_optarg ;;
-
- -libdir | --libdir | --libdi | --libd)
- ac_prev=libdir ;;
- -libdir=* | --libdir=* | --libdi=* | --libd=*)
- libdir=$ac_optarg ;;
-
- -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \
- | --libexe | --libex | --libe)
- ac_prev=libexecdir ;;
- -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \
- | --libexe=* | --libex=* | --libe=*)
- libexecdir=$ac_optarg ;;
-
- -localedir | --localedir | --localedi | --localed | --locale)
- ac_prev=localedir ;;
- -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*)
- localedir=$ac_optarg ;;
-
- -localstatedir | --localstatedir | --localstatedi | --localstated \
- | --localstate | --localstat | --localsta | --localst | --locals)
- ac_prev=localstatedir ;;
- -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \
- | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*)
- localstatedir=$ac_optarg ;;
-
- -mandir | --mandir | --mandi | --mand | --man | --ma | --m)
- ac_prev=mandir ;;
- -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
- mandir=$ac_optarg ;;
-
- -nfp | --nfp | --nf)
- # Obsolete; use --without-fp.
- with_fp=no ;;
-
- -no-create | --no-create | --no-creat | --no-crea | --no-cre \
- | --no-cr | --no-c | -n)
- no_create=yes ;;
-
- -no-recursion | --no-recursion | --no-recursio | --no-recursi \
- | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)
- no_recursion=yes ;;
-
- -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \
- | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \
- | --oldin | --oldi | --old | --ol | --o)
- ac_prev=oldincludedir ;;
- -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \
- | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \
- | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)
- oldincludedir=$ac_optarg ;;
-
- -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
- ac_prev=prefix ;;
- -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
- prefix=$ac_optarg ;;
-
- -program-prefix | --program-prefix | --program-prefi | --program-pref \
- | --program-pre | --program-pr | --program-p)
- ac_prev=program_prefix ;;
- -program-prefix=* | --program-prefix=* | --program-prefi=* \
- | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
- program_prefix=$ac_optarg ;;
-
- -program-suffix | --program-suffix | --program-suffi | --program-suff \
- | --program-suf | --program-su | --program-s)
- ac_prev=program_suffix ;;
- -program-suffix=* | --program-suffix=* | --program-suffi=* \
- | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
- program_suffix=$ac_optarg ;;
-
- -program-transform-name | --program-transform-name \
- | --program-transform-nam | --program-transform-na \
- | --program-transform-n | --program-transform- \
- | --program-transform | --program-transfor \
- | --program-transfo | --program-transf \
- | --program-trans | --program-tran \
- | --progr-tra | --program-tr | --program-t)
- ac_prev=program_transform_name ;;
- -program-transform-name=* | --program-transform-name=* \
- | --program-transform-nam=* | --program-transform-na=* \
- | --program-transform-n=* | --program-transform-=* \
- | --program-transform=* | --program-transfor=* \
- | --program-transfo=* | --program-transf=* \
- | --program-trans=* | --program-tran=* \
- | --progr-tra=* | --program-tr=* | --program-t=*)
- program_transform_name=$ac_optarg ;;
-
- -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd)
- ac_prev=pdfdir ;;
- -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*)
- pdfdir=$ac_optarg ;;
-
- -psdir | --psdir | --psdi | --psd | --ps)
- ac_prev=psdir ;;
- -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*)
- psdir=$ac_optarg ;;
-
- -q | -quiet | --quiet | --quie | --qui | --qu | --q \
- | -silent | --silent | --silen | --sile | --sil)
- silent=yes ;;
-
- -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
- ac_prev=sbindir ;;
- -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
- | --sbi=* | --sb=*)
- sbindir=$ac_optarg ;;
-
- -sharedstatedir | --sharedstatedir | --sharedstatedi \
- | --sharedstated | --sharedstate | --sharedstat | --sharedsta \
- | --sharedst | --shareds | --shared | --share | --shar \
- | --sha | --sh)
- ac_prev=sharedstatedir ;;
- -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \
- | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \
- | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \
- | --sha=* | --sh=*)
- sharedstatedir=$ac_optarg ;;
-
- -site | --site | --sit)
- ac_prev=site ;;
- -site=* | --site=* | --sit=*)
- site=$ac_optarg ;;
-
- -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
- ac_prev=srcdir ;;
- -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
- srcdir=$ac_optarg ;;
-
- -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \
- | --syscon | --sysco | --sysc | --sys | --sy)
- ac_prev=sysconfdir ;;
- -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \
- | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)
- sysconfdir=$ac_optarg ;;
-
- -target | --target | --targe | --targ | --tar | --ta | --t)
- ac_prev=target_alias ;;
- -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
- target_alias=$ac_optarg ;;
-
- -v | -verbose | --verbose | --verbos | --verbo | --verb)
- verbose=yes ;;
-
- -version | --version | --versio | --versi | --vers | -V)
- ac_init_version=: ;;
-
- -with-* | --with-*)
- ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'`
- # Reject names that are not valid shell variable names.
- expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
- as_fn_error "invalid package name: $ac_useropt"
- ac_useropt_orig=$ac_useropt
- ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
- case $ac_user_opts in
- *"
-"with_$ac_useropt"
-"*) ;;
- *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig"
- ac_unrecognized_sep=', ';;
- esac
- eval with_$ac_useropt=\$ac_optarg ;;
-
- -without-* | --without-*)
- ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'`
- # Reject names that are not valid shell variable names.
- expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
- as_fn_error "invalid package name: $ac_useropt"
- ac_useropt_orig=$ac_useropt
- ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
- case $ac_user_opts in
- *"
-"with_$ac_useropt"
-"*) ;;
- *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig"
- ac_unrecognized_sep=', ';;
- esac
- eval with_$ac_useropt=no ;;
-
- --x)
- # Obsolete; use --with-x.
- with_x=yes ;;
-
- -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \
- | --x-incl | --x-inc | --x-in | --x-i)
- ac_prev=x_includes ;;
- -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
- | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
- x_includes=$ac_optarg ;;
-
- -x-libraries | --x-libraries | --x-librarie | --x-librari \
- | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
- ac_prev=x_libraries ;;
- -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
- | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
- x_libraries=$ac_optarg ;;
-
- -*) as_fn_error "unrecognized option: \`$ac_option'
-Try \`$0 --help' for more information."
- ;;
-
- *=*)
- ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='`
- # Reject names that are not valid shell variable names.
- case $ac_envvar in #(
- '' | [0-9]* | *[!_$as_cr_alnum]* )
- as_fn_error "invalid variable name: \`$ac_envvar'" ;;
- esac
- eval $ac_envvar=\$ac_optarg
- export $ac_envvar ;;
-
- *)
- # FIXME: should be removed in autoconf 3.0.
- $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2
- expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null &&
- $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2
- : ${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}
- ;;
-
- esac
-done
-
-if test -n "$ac_prev"; then
- ac_option=--`echo $ac_prev | sed 's/_/-/g'`
- as_fn_error "missing argument to $ac_option"
-fi
-
-if test -n "$ac_unrecognized_opts"; then
- case $enable_option_checking in
- no) ;;
- fatal) as_fn_error "unrecognized options: $ac_unrecognized_opts" ;;
- *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;;
- esac
-fi
-
-# Check all directory arguments for consistency.
-for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \
- datadir sysconfdir sharedstatedir localstatedir includedir \
- oldincludedir docdir infodir htmldir dvidir pdfdir psdir \
- libdir localedir mandir
-do
- eval ac_val=\$$ac_var
- # Remove trailing slashes.
- case $ac_val in
- */ )
- ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'`
- eval $ac_var=\$ac_val;;
- esac
- # Be sure to have absolute directory names.
- case $ac_val in
- [\\/$]* | ?:[\\/]* ) continue;;
- NONE | '' ) case $ac_var in *prefix ) continue;; esac;;
- esac
- as_fn_error "expected an absolute directory name for --$ac_var: $ac_val"
-done
-
-# There might be people who depend on the old broken behavior: `$host'
-# used to hold the argument of --host etc.
-# FIXME: To remove some day.
-build=$build_alias
-host=$host_alias
-target=$target_alias
-
-# FIXME: To remove some day.
-if test "x$host_alias" != x; then
- if test "x$build_alias" = x; then
- cross_compiling=maybe
- $as_echo "$as_me: WARNING: If you wanted to set the --build type, don't use --host.
- If a cross compiler is detected then cross compile mode will be used." >&2
- elif test "x$build_alias" != "x$host_alias"; then
- cross_compiling=yes
- fi
-fi
-
-ac_tool_prefix=
-test -n "$host_alias" && ac_tool_prefix=$host_alias-
-
-test "$silent" = yes && exec 6>/dev/null
-
-
-ac_pwd=`pwd` && test -n "$ac_pwd" &&
-ac_ls_di=`ls -di .` &&
-ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` ||
- as_fn_error "working directory cannot be determined"
-test "X$ac_ls_di" = "X$ac_pwd_ls_di" ||
- as_fn_error "pwd does not report name of working directory"
-
-
-# Find the source files, if location was not specified.
-if test -z "$srcdir"; then
- ac_srcdir_defaulted=yes
- # Try the directory containing this script, then the parent directory.
- ac_confdir=`$as_dirname -- "$as_myself" ||
-$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$as_myself" : 'X\(//\)[^/]' \| \
- X"$as_myself" : 'X\(//\)$' \| \
- X"$as_myself" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$as_myself" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- srcdir=$ac_confdir
- if test ! -r "$srcdir/$ac_unique_file"; then
- srcdir=..
- fi
-else
- ac_srcdir_defaulted=no
-fi
-if test ! -r "$srcdir/$ac_unique_file"; then
- test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .."
- as_fn_error "cannot find sources ($ac_unique_file) in $srcdir"
-fi
-ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work"
-ac_abs_confdir=`(
- cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error "$ac_msg"
- pwd)`
-# When building in place, set srcdir=.
-if test "$ac_abs_confdir" = "$ac_pwd"; then
- srcdir=.
-fi
-# Remove unnecessary trailing slashes from srcdir.
-# Double slashes in file names in object file debugging info
-# mess up M-x gdb in Emacs.
-case $srcdir in
-*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;;
-esac
-for ac_var in $ac_precious_vars; do
- eval ac_env_${ac_var}_set=\${${ac_var}+set}
- eval ac_env_${ac_var}_value=\$${ac_var}
- eval ac_cv_env_${ac_var}_set=\${${ac_var}+set}
- eval ac_cv_env_${ac_var}_value=\$${ac_var}
-done
-
-#
-# Report the --help message.
-#
-if test "$ac_init_help" = "long"; then
- # Omit some internal or obsolete options to make the list less imposing.
- # This message is too long to be a string in the A/UX 3.1 sh.
- cat <<_ACEOF
-\`configure' configures libgeotiff 1.4.0 to adapt to many kinds of systems.
-
-Usage: $0 [OPTION]... [VAR=VALUE]...
-
-To assign environment variables (e.g., CC, CFLAGS...), specify them as
-VAR=VALUE. See below for descriptions of some of the useful variables.
-
-Defaults for the options are specified in brackets.
-
-Configuration:
- -h, --help display this help and exit
- --help=short display options specific to this package
- --help=recursive display the short help of all the included packages
- -V, --version display version information and exit
- -q, --quiet, --silent do not print \`checking...' messages
- --cache-file=FILE cache test results in FILE [disabled]
- -C, --config-cache alias for \`--cache-file=config.cache'
- -n, --no-create do not create output files
- --srcdir=DIR find the sources in DIR [configure dir or \`..']
-
-Installation directories:
- --prefix=PREFIX install architecture-independent files in PREFIX
- [$ac_default_prefix]
- --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX
- [PREFIX]
-
-By default, \`make install' will install all the files in
-\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify
-an installation prefix other than \`$ac_default_prefix' using \`--prefix',
-for instance \`--prefix=\$HOME'.
-
-For better control, use the options below.
-
-Fine tuning of the installation directories:
- --bindir=DIR user executables [EPREFIX/bin]
- --sbindir=DIR system admin executables [EPREFIX/sbin]
- --libexecdir=DIR program executables [EPREFIX/libexec]
- --sysconfdir=DIR read-only single-machine data [PREFIX/etc]
- --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com]
- --localstatedir=DIR modifiable single-machine data [PREFIX/var]
- --libdir=DIR object code libraries [EPREFIX/lib]
- --includedir=DIR C header files [PREFIX/include]
- --oldincludedir=DIR C header files for non-gcc [/usr/include]
- --datarootdir=DIR read-only arch.-independent data root [PREFIX/share]
- --datadir=DIR read-only architecture-independent data [DATAROOTDIR]
- --infodir=DIR info documentation [DATAROOTDIR/info]
- --localedir=DIR locale-dependent data [DATAROOTDIR/locale]
- --mandir=DIR man documentation [DATAROOTDIR/man]
- --docdir=DIR documentation root [DATAROOTDIR/doc/libgeotiff]
- --htmldir=DIR html documentation [DOCDIR]
- --dvidir=DIR dvi documentation [DOCDIR]
- --pdfdir=DIR pdf documentation [DOCDIR]
- --psdir=DIR ps documentation [DOCDIR]
-_ACEOF
-
- cat <<\_ACEOF
-
-Program names:
- --program-prefix=PREFIX prepend PREFIX to installed program names
- --program-suffix=SUFFIX append SUFFIX to installed program names
- --program-transform-name=PROGRAM run sed PROGRAM on installed program names
-
-System types:
- --build=BUILD configure for building on BUILD [guessed]
- --host=HOST cross-compile to build programs to run on HOST [BUILD]
-_ACEOF
-fi
-
-if test -n "$ac_init_help"; then
- case $ac_init_help in
- short | recursive ) echo "Configuration of libgeotiff 1.4.0:";;
- esac
- cat <<\_ACEOF
-
-Optional Features:
- --disable-option-checking ignore unrecognized --enable/--with options
- --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no)
- --enable-FEATURE[=ARG] include FEATURE [ARG=yes]
- --enable-maintainer-mode enable make rules and dependencies not useful
- (and sometimes confusing) to the casual installer
- --disable-dependency-tracking speeds up one-time build
- --enable-dependency-tracking do not reject slow dependency extractors
- --enable-shared[=PKGS] build shared libraries [default=yes]
- --enable-static[=PKGS] build static libraries [default=yes]
- --enable-fast-install[=PKGS]
- optimize for fast installation [default=yes]
- --disable-libtool-lock avoid locking (might break parallel builds)
- --enable-debug=ARG Enable debug compilation mode [yes|no],
- default=no
- --enable-incode-epsg Use C code EPSG tables
- --disable-doxygen-doc don't generate any doxygen documentation
- --disable-doxygen-dot don't generate graphics for doxygen documentation
- --disable-doxygen-man don't generate doxygen manual pages
- --enable-doxygen-rtf generate doxygen RTF documentation
- --enable-doxygen-xml generate doxygen XML documentation
- --enable-doxygen-chm generate doxygen compressed HTML help documentation
- --enable-doxygen-chi generate doxygen seperate compressed HTML help index
- file
- --disable-doxygen-html don't generate doxygen plain HTML documentation
- --enable-doxygen-ps generate doxygen PostScript documentation
- --enable-doxygen-pdf generate doxygen PDF documentation
-
-Optional Packages:
- --with-PACKAGE[=ARG] use PACKAGE [ARG=yes]
- --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no)
- --with-pic try to use only PIC/non-PIC objects [default=use
- both]
- --with-gnu-ld assume the C compiler uses GNU ld [default=no]
- --with-zip=ARG zlib library to use (yes or path)
- --with-zlib=ARG alias for --with-zip
- --with-libz=ARG alias for --with-zip
- --with-jpeg=ARG jpeg library to use (yes or path)
- --with-libtiff=dir Use libtiff in directory dir
- --with-proj=ARG Use PROJ.4 library (ARG=no or path)
-
-Some influential environment variables:
- CC C compiler command
- CFLAGS C compiler flags
- LDFLAGS linker flags, e.g. -L<lib dir> if you have libraries in a
- nonstandard directory <lib dir>
- LIBS libraries to pass to the linker, e.g. -l<library>
- CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I<include dir> if
- you have headers in a nonstandard directory <include dir>
- CXX C++ compiler command
- CXXFLAGS C++ compiler flags
- CXXCPP C++ preprocessor
- CPP C preprocessor
- DOXYGEN_PAPER_SIZE
- a4wide (default), a4, letter, legal or executive
-
-Use these variables to override the choices made by `configure' or to help
-it to find libraries and programs with nonstandard names/locations.
-
-Report bugs to <warmerdam at pobox.com>.
-_ACEOF
-ac_status=$?
-fi
-
-if test "$ac_init_help" = "recursive"; then
- # If there are subdirs, report their specific --help.
- for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue
- test -d "$ac_dir" ||
- { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } ||
- continue
- ac_builddir=.
-
-case "$ac_dir" in
-.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
-*)
- ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
- # A ".." for each directory in $ac_dir_suffix.
- ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
- case $ac_top_builddir_sub in
- "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
- *) ac_top_build_prefix=$ac_top_builddir_sub/ ;;
- esac ;;
-esac
-ac_abs_top_builddir=$ac_pwd
-ac_abs_builddir=$ac_pwd$ac_dir_suffix
-# for backward compatibility:
-ac_top_builddir=$ac_top_build_prefix
-
-case $srcdir in
- .) # We are building in place.
- ac_srcdir=.
- ac_top_srcdir=$ac_top_builddir_sub
- ac_abs_top_srcdir=$ac_pwd ;;
- [\\/]* | ?:[\\/]* ) # Absolute name.
- ac_srcdir=$srcdir$ac_dir_suffix;
- ac_top_srcdir=$srcdir
- ac_abs_top_srcdir=$srcdir ;;
- *) # Relative name.
- ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
- ac_top_srcdir=$ac_top_build_prefix$srcdir
- ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
-esac
-ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
-
- cd "$ac_dir" || { ac_status=$?; continue; }
- # Check for guested configure.
- if test -f "$ac_srcdir/configure.gnu"; then
- echo &&
- $SHELL "$ac_srcdir/configure.gnu" --help=recursive
- elif test -f "$ac_srcdir/configure"; then
- echo &&
- $SHELL "$ac_srcdir/configure" --help=recursive
- else
- $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2
- fi || ac_status=$?
- cd "$ac_pwd" || { ac_status=$?; break; }
- done
-fi
-
-test -n "$ac_init_help" && exit $ac_status
-if $ac_init_version; then
- cat <<\_ACEOF
-libgeotiff configure 1.4.0
-generated by GNU Autoconf 2.65
-
-Copyright (C) 2009 Free Software Foundation, Inc.
-This configure script is free software; the Free Software Foundation
-gives unlimited permission to copy, distribute and modify it.
-_ACEOF
- exit
-fi
-
-## ------------------------ ##
-## Autoconf initialization. ##
-## ------------------------ ##
-
-# ac_fn_c_try_compile LINENO
-# --------------------------
-# Try to compile conftest.$ac_ext, and return whether this succeeded.
-ac_fn_c_try_compile ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- rm -f conftest.$ac_objext
- if { { ac_try="$ac_compile"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_compile") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- grep -v '^ *+' conftest.err >conftest.er1
- cat conftest.er1 >&5
- mv -f conftest.er1 conftest.err
- fi
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && {
- test -z "$ac_c_werror_flag" ||
- test ! -s conftest.err
- } && test -s conftest.$ac_objext; then :
- ac_retval=0
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=1
-fi
- eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_compile
-
-# ac_fn_cxx_try_compile LINENO
-# ----------------------------
-# Try to compile conftest.$ac_ext, and return whether this succeeded.
-ac_fn_cxx_try_compile ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- rm -f conftest.$ac_objext
- if { { ac_try="$ac_compile"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_compile") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- grep -v '^ *+' conftest.err >conftest.er1
- cat conftest.er1 >&5
- mv -f conftest.er1 conftest.err
- fi
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && {
- test -z "$ac_cxx_werror_flag" ||
- test ! -s conftest.err
- } && test -s conftest.$ac_objext; then :
- ac_retval=0
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=1
-fi
- eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
- as_fn_set_status $ac_retval
-
-} # ac_fn_cxx_try_compile
-
-# ac_fn_cxx_try_cpp LINENO
-# ------------------------
-# Try to preprocess conftest.$ac_ext, and return whether this succeeded.
-ac_fn_cxx_try_cpp ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- if { { ac_try="$ac_cpp conftest.$ac_ext"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- grep -v '^ *+' conftest.err >conftest.er1
- cat conftest.er1 >&5
- mv -f conftest.er1 conftest.err
- fi
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } >/dev/null && {
- test -z "$ac_cxx_preproc_warn_flag$ac_cxx_werror_flag" ||
- test ! -s conftest.err
- }; then :
- ac_retval=0
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=1
-fi
- eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
- as_fn_set_status $ac_retval
-
-} # ac_fn_cxx_try_cpp
-
-# ac_fn_c_try_link LINENO
-# -----------------------
-# Try to link conftest.$ac_ext, and return whether this succeeded.
-ac_fn_c_try_link ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- rm -f conftest.$ac_objext conftest$ac_exeext
- if { { ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- grep -v '^ *+' conftest.err >conftest.er1
- cat conftest.er1 >&5
- mv -f conftest.er1 conftest.err
- fi
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && {
- test -z "$ac_c_werror_flag" ||
- test ! -s conftest.err
- } && test -s conftest$ac_exeext && {
- test "$cross_compiling" = yes ||
- $as_test_x conftest$ac_exeext
- }; then :
- ac_retval=0
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=1
-fi
- # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information
- # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would
- # interfere with the next link command; also delete a directory that is
- # left behind by Apple's compiler. We do this before executing the actions.
- rm -rf conftest.dSYM conftest_ipa8_conftest.oo
- eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_link
-
-# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES
-# -------------------------------------------------------
-# Tests whether HEADER exists and can be compiled using the include files in
-# INCLUDES, setting the cache variable VAR accordingly.
-ac_fn_c_check_header_compile ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-#include <$2>
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- eval "$3=yes"
-else
- eval "$3=no"
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
-
-} # ac_fn_c_check_header_compile
-
-# ac_fn_c_try_cpp LINENO
-# ----------------------
-# Try to preprocess conftest.$ac_ext, and return whether this succeeded.
-ac_fn_c_try_cpp ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- if { { ac_try="$ac_cpp conftest.$ac_ext"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- grep -v '^ *+' conftest.err >conftest.er1
- cat conftest.er1 >&5
- mv -f conftest.er1 conftest.err
- fi
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } >/dev/null && {
- test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" ||
- test ! -s conftest.err
- }; then :
- ac_retval=0
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=1
-fi
- eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_cpp
-
-# ac_fn_c_try_run LINENO
-# ----------------------
-# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes
-# that executables *can* be run.
-ac_fn_c_try_run ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- if { { ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && { ac_try='./conftest$ac_exeext'
- { { case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_try") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; }; then :
- ac_retval=0
-else
- $as_echo "$as_me: program exited with status $ac_status" >&5
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=$ac_status
-fi
- rm -rf conftest.dSYM conftest_ipa8_conftest.oo
- eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
- as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_run
-
-# ac_fn_c_check_func LINENO FUNC VAR
-# ----------------------------------
-# Tests whether FUNC exists, setting the cache variable VAR accordingly
-ac_fn_c_check_func ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-/* Define $2 to an innocuous variant, in case <limits.h> declares $2.
- For example, HP-UX 11i <limits.h> declares gettimeofday. */
-#define $2 innocuous_$2
-
-/* System header to define __stub macros and hopefully few prototypes,
- which can conflict with char $2 (); below.
- Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
- <limits.h> exists even on freestanding compilers. */
-
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
-
-#undef $2
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char $2 ();
-/* The GNU C library defines this for functions which it implements
- to always fail with ENOSYS. Some functions are actually named
- something starting with __ and the normal name is an alias. */
-#if defined __stub_$2 || defined __stub___$2
-choke me
-#endif
-
-int
-main ()
-{
-return $2 ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- eval "$3=yes"
-else
- eval "$3=no"
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
- eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
-
-} # ac_fn_c_check_func
-
-# ac_fn_cxx_try_link LINENO
-# -------------------------
-# Try to link conftest.$ac_ext, and return whether this succeeded.
-ac_fn_cxx_try_link ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- rm -f conftest.$ac_objext conftest$ac_exeext
- if { { ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- grep -v '^ *+' conftest.err >conftest.er1
- cat conftest.er1 >&5
- mv -f conftest.er1 conftest.err
- fi
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && {
- test -z "$ac_cxx_werror_flag" ||
- test ! -s conftest.err
- } && test -s conftest$ac_exeext && {
- test "$cross_compiling" = yes ||
- $as_test_x conftest$ac_exeext
- }; then :
- ac_retval=0
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
- ac_retval=1
-fi
- # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information
- # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would
- # interfere with the next link command; also delete a directory that is
- # left behind by Apple's compiler. We do this before executing the actions.
- rm -rf conftest.dSYM conftest_ipa8_conftest.oo
- eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
- as_fn_set_status $ac_retval
-
-} # ac_fn_cxx_try_link
-
-# ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES
-# -------------------------------------------------------
-# Tests whether HEADER exists, giving a warning if it cannot be compiled using
-# the include files in INCLUDES and setting the cache variable VAR
-# accordingly.
-ac_fn_c_check_header_mongrel ()
-{
- as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
- $as_echo_n "(cached) " >&6
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
-else
- # Is the header compilable?
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5
-$as_echo_n "checking $2 usability... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-$4
-#include <$2>
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_header_compiler=yes
-else
- ac_header_compiler=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5
-$as_echo "$ac_header_compiler" >&6; }
-
-# Is the header present?
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5
-$as_echo_n "checking $2 presence... " >&6; }
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <$2>
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- ac_header_preproc=yes
-else
- ac_header_preproc=no
-fi
-rm -f conftest.err conftest.$ac_ext
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5
-$as_echo "$ac_header_preproc" >&6; }
-
-# So? What about this header?
-case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #((
- yes:no: )
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5
-$as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5
-$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;}
- ;;
- no:yes:* )
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5
-$as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5
-$as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5
-$as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5
-$as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5
-$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;}
-( cat <<\_ASBOX
-## ---------------------------------- ##
-## Report this to warmerdam at pobox.com ##
-## ---------------------------------- ##
-_ASBOX
- ) | sed "s/^/$as_me: WARNING: /" >&2
- ;;
-esac
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if { as_var=$3; eval "test \"\${$as_var+set}\" = set"; }; then :
- $as_echo_n "(cached) " >&6
-else
- eval "$3=\$ac_header_compiler"
-fi
-eval ac_res=\$$3
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
-fi
- eval $as_lineno_stack; test "x$as_lineno_stack" = x && { as_lineno=; unset as_lineno;}
-
-} # ac_fn_c_check_header_mongrel
-cat >config.log <<_ACEOF
-This file contains any messages produced by compilers while
-running configure, to aid debugging if configure makes a mistake.
-
-It was created by libgeotiff $as_me 1.4.0, which was
-generated by GNU Autoconf 2.65. Invocation command line was
-
- $ $0 $@
-
-_ACEOF
-exec 5>>config.log
-{
-cat <<_ASUNAME
-## --------- ##
-## Platform. ##
-## --------- ##
-
-hostname = `(hostname || uname -n) 2>/dev/null | sed 1q`
-uname -m = `(uname -m) 2>/dev/null || echo unknown`
-uname -r = `(uname -r) 2>/dev/null || echo unknown`
-uname -s = `(uname -s) 2>/dev/null || echo unknown`
-uname -v = `(uname -v) 2>/dev/null || echo unknown`
-
-/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown`
-/bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown`
-
-/bin/arch = `(/bin/arch) 2>/dev/null || echo unknown`
-/usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown`
-/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown`
-/usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown`
-/bin/machine = `(/bin/machine) 2>/dev/null || echo unknown`
-/usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown`
-/bin/universe = `(/bin/universe) 2>/dev/null || echo unknown`
-
-_ASUNAME
-
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- $as_echo "PATH: $as_dir"
- done
-IFS=$as_save_IFS
-
-} >&5
-
-cat >&5 <<_ACEOF
-
-
-## ----------- ##
-## Core tests. ##
-## ----------- ##
-
-_ACEOF
-
-
-# Keep a trace of the command line.
-# Strip out --no-create and --no-recursion so they do not pile up.
-# Strip out --silent because we don't want to record it for future runs.
-# Also quote any args containing shell meta-characters.
-# Make two passes to allow for proper duplicate-argument suppression.
-ac_configure_args=
-ac_configure_args0=
-ac_configure_args1=
-ac_must_keep_next=false
-for ac_pass in 1 2
-do
- for ac_arg
- do
- case $ac_arg in
- -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;;
- -q | -quiet | --quiet | --quie | --qui | --qu | --q \
- | -silent | --silent | --silen | --sile | --sil)
- continue ;;
- *\'*)
- ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;;
- esac
- case $ac_pass in
- 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;;
- 2)
- as_fn_append ac_configure_args1 " '$ac_arg'"
- if test $ac_must_keep_next = true; then
- ac_must_keep_next=false # Got value, back to normal.
- else
- case $ac_arg in
- *=* | --config-cache | -C | -disable-* | --disable-* \
- | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \
- | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \
- | -with-* | --with-* | -without-* | --without-* | --x)
- case "$ac_configure_args0 " in
- "$ac_configure_args1"*" '$ac_arg' "* ) continue ;;
- esac
- ;;
- -* ) ac_must_keep_next=true ;;
- esac
- fi
- as_fn_append ac_configure_args " '$ac_arg'"
- ;;
- esac
- done
-done
-{ ac_configure_args0=; unset ac_configure_args0;}
-{ ac_configure_args1=; unset ac_configure_args1;}
-
-# When interrupted or exit'd, cleanup temporary files, and complete
-# config.log. We remove comments because anyway the quotes in there
-# would cause problems or look ugly.
-# WARNING: Use '\'' to represent an apostrophe within the trap.
-# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug.
-trap 'exit_status=$?
- # Save into config.log some information that might help in debugging.
- {
- echo
-
- cat <<\_ASBOX
-## ---------------- ##
-## Cache variables. ##
-## ---------------- ##
-_ASBOX
- echo
- # The following way of writing the cache mishandles newlines in values,
-(
- for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do
- eval ac_val=\$$ac_var
- case $ac_val in #(
- *${as_nl}*)
- case $ac_var in #(
- *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
-$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
- esac
- case $ac_var in #(
- _ | IFS | as_nl) ;; #(
- BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
- *) { eval $ac_var=; unset $ac_var;} ;;
- esac ;;
- esac
- done
- (set) 2>&1 |
- case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #(
- *${as_nl}ac_space=\ *)
- sed -n \
- "s/'\''/'\''\\\\'\'''\''/g;
- s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p"
- ;; #(
- *)
- sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
- ;;
- esac |
- sort
-)
- echo
-
- cat <<\_ASBOX
-## ----------------- ##
-## Output variables. ##
-## ----------------- ##
-_ASBOX
- echo
- for ac_var in $ac_subst_vars
- do
- eval ac_val=\$$ac_var
- case $ac_val in
- *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
- esac
- $as_echo "$ac_var='\''$ac_val'\''"
- done | sort
- echo
-
- if test -n "$ac_subst_files"; then
- cat <<\_ASBOX
-## ------------------- ##
-## File substitutions. ##
-## ------------------- ##
-_ASBOX
- echo
- for ac_var in $ac_subst_files
- do
- eval ac_val=\$$ac_var
- case $ac_val in
- *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
- esac
- $as_echo "$ac_var='\''$ac_val'\''"
- done | sort
- echo
- fi
-
- if test -s confdefs.h; then
- cat <<\_ASBOX
-## ----------- ##
-## confdefs.h. ##
-## ----------- ##
-_ASBOX
- echo
- cat confdefs.h
- echo
- fi
- test "$ac_signal" != 0 &&
- $as_echo "$as_me: caught signal $ac_signal"
- $as_echo "$as_me: exit $exit_status"
- } >&5
- rm -f core *.core core.conftest.* &&
- rm -f -r conftest* confdefs* conf$$* $ac_clean_files &&
- exit $exit_status
-' 0
-for ac_signal in 1 2 13 15; do
- trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal
-done
-ac_signal=0
-
-# confdefs.h avoids OS command line length limits that DEFS can exceed.
-rm -f -r conftest* confdefs.h
-
-$as_echo "/* confdefs.h */" > confdefs.h
-
-# Predefined preprocessor variables.
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_NAME "$PACKAGE_NAME"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_TARNAME "$PACKAGE_TARNAME"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_VERSION "$PACKAGE_VERSION"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_STRING "$PACKAGE_STRING"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_URL "$PACKAGE_URL"
-_ACEOF
-
-
-# Let the site file select an alternate cache file if it wants to.
-# Prefer an explicitly selected file to automatically selected ones.
-ac_site_file1=NONE
-ac_site_file2=NONE
-if test -n "$CONFIG_SITE"; then
- ac_site_file1=$CONFIG_SITE
-elif test "x$prefix" != xNONE; then
- ac_site_file1=$prefix/share/config.site
- ac_site_file2=$prefix/etc/config.site
-else
- ac_site_file1=$ac_default_prefix/share/config.site
- ac_site_file2=$ac_default_prefix/etc/config.site
-fi
-for ac_site_file in "$ac_site_file1" "$ac_site_file2"
-do
- test "x$ac_site_file" = xNONE && continue
- if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5
-$as_echo "$as_me: loading site script $ac_site_file" >&6;}
- sed 's/^/| /' "$ac_site_file" >&5
- . "$ac_site_file"
- fi
-done
-
-if test -r "$cache_file"; then
- # Some versions of bash will fail to source /dev/null (special files
- # actually), so we avoid doing that. DJGPP emulates it as a regular file.
- if test /dev/null != "$cache_file" && test -f "$cache_file"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5
-$as_echo "$as_me: loading cache $cache_file" >&6;}
- case $cache_file in
- [\\/]* | ?:[\\/]* ) . "$cache_file";;
- *) . "./$cache_file";;
- esac
- fi
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5
-$as_echo "$as_me: creating cache $cache_file" >&6;}
- >$cache_file
-fi
-
-# Check that the precious variables saved in the cache have kept the same
-# value.
-ac_cache_corrupted=false
-for ac_var in $ac_precious_vars; do
- eval ac_old_set=\$ac_cv_env_${ac_var}_set
- eval ac_new_set=\$ac_env_${ac_var}_set
- eval ac_old_val=\$ac_cv_env_${ac_var}_value
- eval ac_new_val=\$ac_env_${ac_var}_value
- case $ac_old_set,$ac_new_set in
- set,)
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5
-$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;}
- ac_cache_corrupted=: ;;
- ,set)
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5
-$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;}
- ac_cache_corrupted=: ;;
- ,);;
- *)
- if test "x$ac_old_val" != "x$ac_new_val"; then
- # differences in whitespace do not lead to failure.
- ac_old_val_w=`echo x $ac_old_val`
- ac_new_val_w=`echo x $ac_new_val`
- if test "$ac_old_val_w" != "$ac_new_val_w"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5
-$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;}
- ac_cache_corrupted=:
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5
-$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;}
- eval $ac_var=\$ac_old_val
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5
-$as_echo "$as_me: former value: \`$ac_old_val'" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5
-$as_echo "$as_me: current value: \`$ac_new_val'" >&2;}
- fi;;
- esac
- # Pass precious variables to config.status.
- if test "$ac_new_set" = set; then
- case $ac_new_val in
- *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;;
- *) ac_arg=$ac_var=$ac_new_val ;;
- esac
- case " $ac_configure_args " in
- *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy.
- *) as_fn_append ac_configure_args " '$ac_arg'" ;;
- esac
- fi
-done
-if $ac_cache_corrupted; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
- { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5
-$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;}
- as_fn_error "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5
-fi
-## -------------------- ##
-## Main body of script. ##
-## -------------------- ##
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-
-ac_aux_dir=
-for ac_dir in "$srcdir" "$srcdir/.." "$srcdir/../.."; do
- for ac_t in install-sh install.sh shtool; do
- if test -f "$ac_dir/$ac_t"; then
- ac_aux_dir=$ac_dir
- ac_install_sh="$ac_aux_dir/$ac_t -c"
- break 2
- fi
- done
-done
-if test -z "$ac_aux_dir"; then
- as_fn_error "cannot find install-sh, install.sh, or shtool in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" "$LINENO" 5
-fi
-
-# These three variables are undocumented and unsupported,
-# and are intended to be withdrawn in a future Autoconf release.
-# They can cause serious problems if a builder's source tree is in a directory
-# whose full name contains unusual characters.
-ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var.
-ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var.
-ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var.
-
-
-# Make sure we can run config.sub.
-$SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 ||
- as_fn_error "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5
-$as_echo_n "checking build system type... " >&6; }
-if test "${ac_cv_build+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_build_alias=$build_alias
-test "x$ac_build_alias" = x &&
- ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"`
-test "x$ac_build_alias" = x &&
- as_fn_error "cannot guess build type; you must specify one" "$LINENO" 5
-ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` ||
- as_fn_error "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5
-$as_echo "$ac_cv_build" >&6; }
-case $ac_cv_build in
-*-*-*) ;;
-*) as_fn_error "invalid value of canonical build" "$LINENO" 5;;
-esac
-build=$ac_cv_build
-ac_save_IFS=$IFS; IFS='-'
-set x $ac_cv_build
-shift
-build_cpu=$1
-build_vendor=$2
-shift; shift
-# Remember, the first character of IFS is used to create $*,
-# except with old shells:
-build_os=$*
-IFS=$ac_save_IFS
-case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac
-
-
-
-
-
-RELEASE_VERSION=1.4.0
-
-ac_config_headers="$ac_config_headers geo_config.h"
-
-
-
-am__api_version='1.11'
-
-# Find a good install program. We prefer a C program (faster),
-# so one script is as good as another. But avoid the broken or
-# incompatible versions:
-# SysV /etc/install, /usr/sbin/install
-# SunOS /usr/etc/install
-# IRIX /sbin/install
-# AIX /bin/install
-# AmigaOS /C/install, which installs bootblocks on floppy discs
-# AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag
-# AFS /usr/afsws/bin/install, which mishandles nonexistent args
-# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff"
-# OS/2's system install, which has a completely different semantic
-# ./install, which can be erroneously created by make from ./install.sh.
-# Reject install programs that cannot install multiple files.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5
-$as_echo_n "checking for a BSD-compatible install... " >&6; }
-if test -z "$INSTALL"; then
-if test "${ac_cv_path_install+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- # Account for people who put trailing slashes in PATH elements.
-case $as_dir/ in #((
- ./ | .// | /[cC]/* | \
- /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \
- ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \
- /usr/ucb/* ) ;;
- *)
- # OSF1 and SCO ODT 3.0 have their own names for install.
- # Don't use installbsd from OSF since it installs stuff as root
- # by default.
- for ac_prog in ginstall scoinst install; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_prog$ac_exec_ext" && $as_test_x "$as_dir/$ac_prog$ac_exec_ext"; }; then
- if test $ac_prog = install &&
- grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then
- # AIX install. It has an incompatible calling convention.
- :
- elif test $ac_prog = install &&
- grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then
- # program-specific install script used by HP pwplus--don't use.
- :
- else
- rm -rf conftest.one conftest.two conftest.dir
- echo one > conftest.one
- echo two > conftest.two
- mkdir conftest.dir
- if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" &&
- test -s conftest.one && test -s conftest.two &&
- test -s conftest.dir/conftest.one &&
- test -s conftest.dir/conftest.two
- then
- ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c"
- break 3
- fi
- fi
- fi
- done
- done
- ;;
-esac
-
- done
-IFS=$as_save_IFS
-
-rm -rf conftest.one conftest.two conftest.dir
-
-fi
- if test "${ac_cv_path_install+set}" = set; then
- INSTALL=$ac_cv_path_install
- else
- # As a last resort, use the slow shell script. Don't cache a
- # value for INSTALL within a source directory, because that will
- # break other packages using the cache if that directory is
- # removed, or if the value is a relative name.
- INSTALL=$ac_install_sh
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5
-$as_echo "$INSTALL" >&6; }
-
-# Use test -z because SunOS4 sh mishandles braces in ${var-val}.
-# It thinks the first close brace ends the variable substitution.
-test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}'
-
-test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}'
-
-test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644'
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5
-$as_echo_n "checking whether build environment is sane... " >&6; }
-# Just in case
-sleep 1
-echo timestamp > conftest.file
-# Reject unsafe characters in $srcdir or the absolute working directory
-# name. Accept space and tab only in the latter.
-am_lf='
-'
-case `pwd` in
- *[\\\"\#\$\&\'\`$am_lf]*)
- as_fn_error "unsafe absolute working directory name" "$LINENO" 5;;
-esac
-case $srcdir in
- *[\\\"\#\$\&\'\`$am_lf\ \ ]*)
- as_fn_error "unsafe srcdir value: \`$srcdir'" "$LINENO" 5;;
-esac
-
-# Do `set' in a subshell so we don't clobber the current shell's
-# arguments. Must try -L first in case configure is actually a
-# symlink; some systems play weird games with the mod time of symlinks
-# (eg FreeBSD returns the mod time of the symlink's containing
-# directory).
-if (
- set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null`
- if test "$*" = "X"; then
- # -L didn't work.
- set X `ls -t "$srcdir/configure" conftest.file`
- fi
- rm -f conftest.file
- if test "$*" != "X $srcdir/configure conftest.file" \
- && test "$*" != "X conftest.file $srcdir/configure"; then
-
- # If neither matched, then we have a broken ls. This can happen
- # if, for instance, CONFIG_SHELL is bash and it inherits a
- # broken ls alias from the environment. This has actually
- # happened. Such a system could not be considered "sane".
- as_fn_error "ls -t appears to fail. Make sure there is not a broken
-alias in your environment" "$LINENO" 5
- fi
-
- test "$2" = conftest.file
- )
-then
- # Ok.
- :
-else
- as_fn_error "newly created file is older than distributed files!
-Check your system clock" "$LINENO" 5
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-test "$program_prefix" != NONE &&
- program_transform_name="s&^&$program_prefix&;$program_transform_name"
-# Use a double $ so make ignores it.
-test "$program_suffix" != NONE &&
- program_transform_name="s&\$&$program_suffix&;$program_transform_name"
-# Double any \ or $.
-# By default was `s,x,x', remove it if useless.
-ac_script='s/[\\$]/&&/g;s/;s,x,x,$//'
-program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"`
-
-# expand $ac_aux_dir to an absolute path
-am_aux_dir=`cd $ac_aux_dir && pwd`
-
-if test x"${MISSING+set}" != xset; then
- case $am_aux_dir in
- *\ * | *\ *)
- MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;;
- *)
- MISSING="\${SHELL} $am_aux_dir/missing" ;;
- esac
-fi
-# Use eval to expand $SHELL
-if eval "$MISSING --run true"; then
- am_missing_run="$MISSING --run "
-else
- am_missing_run=
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`missing' script is too old or missing" >&5
-$as_echo "$as_me: WARNING: \`missing' script is too old or missing" >&2;}
-fi
-
-if test x"${install_sh}" != xset; then
- case $am_aux_dir in
- *\ * | *\ *)
- install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;;
- *)
- install_sh="\${SHELL} $am_aux_dir/install-sh"
- esac
-fi
-
-# Installed binaries are usually stripped using `strip' when the user
-# run `make install-strip'. However `strip' might not be the right
-# tool to use in cross-compilation environments, therefore Automake
-# will honor the `STRIP' environment variable to overrule this program.
-if test "$cross_compiling" != no; then
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args.
-set dummy ${ac_tool_prefix}strip; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_STRIP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$STRIP"; then
- ac_cv_prog_STRIP="$STRIP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_STRIP="${ac_tool_prefix}strip"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-STRIP=$ac_cv_prog_STRIP
-if test -n "$STRIP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5
-$as_echo "$STRIP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_STRIP"; then
- ac_ct_STRIP=$STRIP
- # Extract the first word of "strip", so it can be a program name with args.
-set dummy strip; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_STRIP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_STRIP"; then
- ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_STRIP="strip"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP
-if test -n "$ac_ct_STRIP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5
-$as_echo "$ac_ct_STRIP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_STRIP" = x; then
- STRIP=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- STRIP=$ac_ct_STRIP
- fi
-else
- STRIP="$ac_cv_prog_STRIP"
-fi
-
-fi
-INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s"
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5
-$as_echo_n "checking for a thread-safe mkdir -p... " >&6; }
-if test -z "$MKDIR_P"; then
- if test "${ac_cv_path_mkdir+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in mkdir gmkdir; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- { test -f "$as_dir/$ac_prog$ac_exec_ext" && $as_test_x "$as_dir/$ac_prog$ac_exec_ext"; } || continue
- case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #(
- 'mkdir (GNU coreutils) '* | \
- 'mkdir (coreutils) '* | \
- 'mkdir (fileutils) '4.1*)
- ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext
- break 3;;
- esac
- done
- done
- done
-IFS=$as_save_IFS
-
-fi
-
- test -d ./--version && rmdir ./--version
- if test "${ac_cv_path_mkdir+set}" = set; then
- MKDIR_P="$ac_cv_path_mkdir -p"
- else
- # As a last resort, use the slow shell script. Don't cache a
- # value for MKDIR_P within a source directory, because that will
- # break other packages using the cache if that directory is
- # removed, or if the value is a relative name.
- MKDIR_P="$ac_install_sh -d"
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5
-$as_echo "$MKDIR_P" >&6; }
-
-mkdir_p="$MKDIR_P"
-case $mkdir_p in
- [\\/$]* | ?:[\\/]*) ;;
- */*) mkdir_p="\$(top_builddir)/$mkdir_p" ;;
-esac
-
-for ac_prog in gawk mawk nawk awk
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_AWK+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$AWK"; then
- ac_cv_prog_AWK="$AWK" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_AWK="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-AWK=$ac_cv_prog_AWK
-if test -n "$AWK"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5
-$as_echo "$AWK" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$AWK" && break
-done
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5
-$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; }
-set x ${MAKE-make}
-ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'`
-if { as_var=ac_cv_prog_make_${ac_make}_set; eval "test \"\${$as_var+set}\" = set"; }; then :
- $as_echo_n "(cached) " >&6
-else
- cat >conftest.make <<\_ACEOF
-SHELL = /bin/sh
-all:
- @echo '@@@%%%=$(MAKE)=@@@%%%'
-_ACEOF
-# GNU make sometimes prints "make[1]: Entering...", which would confuse us.
-case `${MAKE-make} -f conftest.make 2>/dev/null` in
- *@@@%%%=?*=@@@%%%*)
- eval ac_cv_prog_make_${ac_make}_set=yes;;
- *)
- eval ac_cv_prog_make_${ac_make}_set=no;;
-esac
-rm -f conftest.make
-fi
-if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- SET_MAKE=
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- SET_MAKE="MAKE=${MAKE-make}"
-fi
-
-rm -rf .tst 2>/dev/null
-mkdir .tst 2>/dev/null
-if test -d .tst; then
- am__leading_dot=.
-else
- am__leading_dot=_
-fi
-rmdir .tst 2>/dev/null
-
-if test "`cd $srcdir && pwd`" != "`pwd`"; then
- # Use -I$(srcdir) only when $(srcdir) != ., so that make's output
- # is not polluted with repeated "-I."
- am__isrc=' -I$(srcdir)'
- # test to see if srcdir already configured
- if test -f $srcdir/config.status; then
- as_fn_error "source directory already configured; run \"make distclean\" there first" "$LINENO" 5
- fi
-fi
-
-# test whether we have cygpath
-if test -z "$CYGPATH_W"; then
- if (cygpath --version) >/dev/null 2>/dev/null; then
- CYGPATH_W='cygpath -w'
- else
- CYGPATH_W=echo
- fi
-fi
-
-
-# Define the identity of the package.
- PACKAGE='libgeotiff'
- VERSION='1.4.0'
-
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE "$PACKAGE"
-_ACEOF
-
-
-cat >>confdefs.h <<_ACEOF
-#define VERSION "$VERSION"
-_ACEOF
-
-# Some tools Automake needs.
-
-ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"}
-
-
-AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"}
-
-
-AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"}
-
-
-AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"}
-
-
-MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"}
-
-# We need awk for the "check" target. The system "awk" is bad on
-# some platforms.
-# Always define AMTAR for backward compatibility.
-
-AMTAR=${AMTAR-"${am_missing_run}tar"}
-
-am__tar='${AMTAR} chof - "$$tardir"'; am__untar='${AMTAR} xf -'
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to enable maintainer-specific portions of Makefiles" >&5
-$as_echo_n "checking whether to enable maintainer-specific portions of Makefiles... " >&6; }
- # Check whether --enable-maintainer-mode was given.
-if test "${enable_maintainer_mode+set}" = set; then :
- enableval=$enable_maintainer_mode; USE_MAINTAINER_MODE=$enableval
-else
- USE_MAINTAINER_MODE=no
-fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $USE_MAINTAINER_MODE" >&5
-$as_echo "$USE_MAINTAINER_MODE" >&6; }
- if test $USE_MAINTAINER_MODE = yes; then
- MAINTAINER_MODE_TRUE=
- MAINTAINER_MODE_FALSE='#'
-else
- MAINTAINER_MODE_TRUE='#'
- MAINTAINER_MODE_FALSE=
-fi
-
- MAINT=$MAINTAINER_MODE_TRUE
-
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args.
-set dummy ${ac_tool_prefix}gcc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_CC+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$CC"; then
- ac_cv_prog_CC="$CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_CC="${ac_tool_prefix}gcc"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_CC"; then
- ac_ct_CC=$CC
- # Extract the first word of "gcc", so it can be a program name with args.
-set dummy gcc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_CC+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_CC"; then
- ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_CC="gcc"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_CC=$ac_cv_prog_ac_ct_CC
-if test -n "$ac_ct_CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
-$as_echo "$ac_ct_CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_CC" = x; then
- CC=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- CC=$ac_ct_CC
- fi
-else
- CC="$ac_cv_prog_CC"
-fi
-
-if test -z "$CC"; then
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args.
-set dummy ${ac_tool_prefix}cc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_CC+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$CC"; then
- ac_cv_prog_CC="$CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_CC="${ac_tool_prefix}cc"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- fi
-fi
-if test -z "$CC"; then
- # Extract the first word of "cc", so it can be a program name with args.
-set dummy cc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_CC+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$CC"; then
- ac_cv_prog_CC="$CC" # Let the user override the test.
-else
- ac_prog_rejected=no
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then
- ac_prog_rejected=yes
- continue
- fi
- ac_cv_prog_CC="cc"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-if test $ac_prog_rejected = yes; then
- # We found a bogon in the path, so make sure we never use it.
- set dummy $ac_cv_prog_CC
- shift
- if test $# != 0; then
- # We chose a different compiler from the bogus one.
- # However, it has the same basename, so the bogon will be chosen
- # first if we set CC to just the basename; use the full file name.
- shift
- ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@"
- fi
-fi
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$CC"; then
- if test -n "$ac_tool_prefix"; then
- for ac_prog in cl.exe
- do
- # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
-set dummy $ac_tool_prefix$ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_CC+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$CC"; then
- ac_cv_prog_CC="$CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_CC="$ac_tool_prefix$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$CC" && break
- done
-fi
-if test -z "$CC"; then
- ac_ct_CC=$CC
- for ac_prog in cl.exe
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_CC+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_CC"; then
- ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_CC="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_CC=$ac_cv_prog_ac_ct_CC
-if test -n "$ac_ct_CC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
-$as_echo "$ac_ct_CC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$ac_ct_CC" && break
-done
-
- if test "x$ac_ct_CC" = x; then
- CC=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- CC=$ac_ct_CC
- fi
-fi
-
-fi
-
-
-test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error "no acceptable C compiler found in \$PATH
-See \`config.log' for more details." "$LINENO" 5; }
-
-# Provide some information about the compiler.
-$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5
-set X $ac_compile
-ac_compiler=$2
-for ac_option in --version -v -V -qversion; do
- { { ac_try="$ac_compiler $ac_option >&5"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_compiler $ac_option >&5") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- sed '10a\
-... rest of stderr output deleted ...
- 10q' conftest.err >conftest.er1
- cat conftest.er1 >&5
- fi
- rm -f conftest.er1 conftest.err
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
-done
-
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-ac_clean_files_save=$ac_clean_files
-ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out"
-# Try to create an executable without -o first, disregard a.out.
-# It will help us diagnose broken compilers, and finding out an intuition
-# of exeext.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5
-$as_echo_n "checking whether the C compiler works... " >&6; }
-ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'`
-
-# The possible output files:
-ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*"
-
-ac_rmfiles=
-for ac_file in $ac_files
-do
- case $ac_file in
- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
- * ) ac_rmfiles="$ac_rmfiles $ac_file";;
- esac
-done
-rm -f $ac_rmfiles
-
-if { { ac_try="$ac_link_default"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link_default") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then :
- # Autoconf-2.13 could set the ac_cv_exeext variable to `no'.
-# So ignore a value of `no', otherwise this would lead to `EXEEXT = no'
-# in a Makefile. We should not override ac_cv_exeext if it was cached,
-# so that the user can short-circuit this test for compilers unknown to
-# Autoconf.
-for ac_file in $ac_files ''
-do
- test -f "$ac_file" || continue
- case $ac_file in
- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj )
- ;;
- [ab].out )
- # We found the default executable, but exeext='' is most
- # certainly right.
- break;;
- *.* )
- if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no;
- then :; else
- ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
- fi
- # We set ac_cv_exeext here because the later test for it is not
- # safe: cross compilers may not add the suffix if given an `-o'
- # argument, so we may need to know it at that point already.
- # Even if this section looks crufty: it has the advantage of
- # actually working.
- break;;
- * )
- break;;
- esac
-done
-test "$ac_cv_exeext" = no && ac_cv_exeext=
-
-else
- ac_file=''
-fi
-if test -z "$ac_file"; then :
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-$as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-{ as_fn_set_status 77
-as_fn_error "C compiler cannot create executables
-See \`config.log' for more details." "$LINENO" 5; }; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5
-$as_echo_n "checking for C compiler default output file name... " >&6; }
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5
-$as_echo "$ac_file" >&6; }
-ac_exeext=$ac_cv_exeext
-
-rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out
-ac_clean_files=$ac_clean_files_save
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5
-$as_echo_n "checking for suffix of executables... " >&6; }
-if { { ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then :
- # If both `conftest.exe' and `conftest' are `present' (well, observable)
-# catch `conftest.exe'. For instance with Cygwin, `ls conftest' will
-# work properly (i.e., refer to `conftest.exe'), while it won't with
-# `rm'.
-for ac_file in conftest.exe conftest conftest.*; do
- test -f "$ac_file" || continue
- case $ac_file in
- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
- *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
- break;;
- * ) break;;
- esac
-done
-else
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error "cannot compute suffix of executables: cannot compile and link
-See \`config.log' for more details." "$LINENO" 5; }
-fi
-rm -f conftest conftest$ac_cv_exeext
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5
-$as_echo "$ac_cv_exeext" >&6; }
-
-rm -f conftest.$ac_ext
-EXEEXT=$ac_cv_exeext
-ac_exeext=$EXEEXT
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdio.h>
-int
-main ()
-{
-FILE *f = fopen ("conftest.out", "w");
- return ferror (f) || fclose (f) != 0;
-
- ;
- return 0;
-}
-_ACEOF
-ac_clean_files="$ac_clean_files conftest.out"
-# Check that the compiler produces executables we can run. If not, either
-# the compiler is broken, or we cross compile.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5
-$as_echo_n "checking whether we are cross compiling... " >&6; }
-if test "$cross_compiling" != yes; then
- { { ac_try="$ac_link"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_link") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
- if { ac_try='./conftest$ac_cv_exeext'
- { { case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_try") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; }; then
- cross_compiling=no
- else
- if test "$cross_compiling" = maybe; then
- cross_compiling=yes
- else
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error "cannot run C compiled programs.
-If you meant to cross compile, use \`--host'.
-See \`config.log' for more details." "$LINENO" 5; }
- fi
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5
-$as_echo "$cross_compiling" >&6; }
-
-rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out
-ac_clean_files=$ac_clean_files_save
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5
-$as_echo_n "checking for suffix of object files... " >&6; }
-if test "${ac_cv_objext+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-rm -f conftest.o conftest.obj
-if { { ac_try="$ac_compile"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_compile") 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then :
- for ac_file in conftest.o conftest.obj conftest.*; do
- test -f "$ac_file" || continue;
- case $ac_file in
- *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;;
- *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'`
- break;;
- esac
-done
-else
- $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error "cannot compute suffix of object files: cannot compile
-See \`config.log' for more details." "$LINENO" 5; }
-fi
-rm -f conftest.$ac_cv_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5
-$as_echo "$ac_cv_objext" >&6; }
-OBJEXT=$ac_cv_objext
-ac_objext=$OBJEXT
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5
-$as_echo_n "checking whether we are using the GNU C compiler... " >&6; }
-if test "${ac_cv_c_compiler_gnu+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-#ifndef __GNUC__
- choke me
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_compiler_gnu=yes
-else
- ac_compiler_gnu=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-ac_cv_c_compiler_gnu=$ac_compiler_gnu
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5
-$as_echo "$ac_cv_c_compiler_gnu" >&6; }
-if test $ac_compiler_gnu = yes; then
- GCC=yes
-else
- GCC=
-fi
-ac_test_CFLAGS=${CFLAGS+set}
-ac_save_CFLAGS=$CFLAGS
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5
-$as_echo_n "checking whether $CC accepts -g... " >&6; }
-if test "${ac_cv_prog_cc_g+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_save_c_werror_flag=$ac_c_werror_flag
- ac_c_werror_flag=yes
- ac_cv_prog_cc_g=no
- CFLAGS="-g"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_prog_cc_g=yes
-else
- CFLAGS=""
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-
-else
- ac_c_werror_flag=$ac_save_c_werror_flag
- CFLAGS="-g"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_prog_cc_g=yes
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- ac_c_werror_flag=$ac_save_c_werror_flag
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5
-$as_echo "$ac_cv_prog_cc_g" >&6; }
-if test "$ac_test_CFLAGS" = set; then
- CFLAGS=$ac_save_CFLAGS
-elif test $ac_cv_prog_cc_g = yes; then
- if test "$GCC" = yes; then
- CFLAGS="-g -O2"
- else
- CFLAGS="-g"
- fi
-else
- if test "$GCC" = yes; then
- CFLAGS="-O2"
- else
- CFLAGS=
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5
-$as_echo_n "checking for $CC option to accept ISO C89... " >&6; }
-if test "${ac_cv_prog_cc_c89+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_cv_prog_cc_c89=no
-ac_save_CC=$CC
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdarg.h>
-#include <stdio.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */
-struct buf { int x; };
-FILE * (*rcsopen) (struct buf *, struct stat *, int);
-static char *e (p, i)
- char **p;
- int i;
-{
- return p[i];
-}
-static char *f (char * (*g) (char **, int), char **p, ...)
-{
- char *s;
- va_list v;
- va_start (v,p);
- s = g (p, va_arg (v,int));
- va_end (v);
- return s;
-}
-
-/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has
- function prototypes and stuff, but not '\xHH' hex character constants.
- These don't provoke an error unfortunately, instead are silently treated
- as 'x'. The following induces an error, until -std is added to get
- proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an
- array size at least. It's necessary to write '\x00'==0 to get something
- that's true only with -std. */
-int osf4_cc_array ['\x00' == 0 ? 1 : -1];
-
-/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters
- inside strings and character constants. */
-#define FOO(x) 'x'
-int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1];
-
-int test (int i, double x);
-struct s1 {int (*f) (int a);};
-struct s2 {int (*f) (double a);};
-int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int);
-int argc;
-char **argv;
-int
-main ()
-{
-return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1];
- ;
- return 0;
-}
-_ACEOF
-for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \
- -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__"
-do
- CC="$ac_save_CC $ac_arg"
- if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_prog_cc_c89=$ac_arg
-fi
-rm -f core conftest.err conftest.$ac_objext
- test "x$ac_cv_prog_cc_c89" != "xno" && break
-done
-rm -f conftest.$ac_ext
-CC=$ac_save_CC
-
-fi
-# AC_CACHE_VAL
-case "x$ac_cv_prog_cc_c89" in
- x)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5
-$as_echo "none needed" >&6; } ;;
- xno)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5
-$as_echo "unsupported" >&6; } ;;
- *)
- CC="$CC $ac_cv_prog_cc_c89"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5
-$as_echo "$ac_cv_prog_cc_c89" >&6; } ;;
-esac
-if test "x$ac_cv_prog_cc_c89" != xno; then :
-
-fi
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-DEPDIR="${am__leading_dot}deps"
-
-ac_config_commands="$ac_config_commands depfiles"
-
-
-am_make=${MAKE-make}
-cat > confinc << 'END'
-am__doit:
- @echo this is the am__doit target
-.PHONY: am__doit
-END
-# If we don't find an include directive, just comment out the code.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for style of include used by $am_make" >&5
-$as_echo_n "checking for style of include used by $am_make... " >&6; }
-am__include="#"
-am__quote=
-_am_result=none
-# First try GNU make style include.
-echo "include confinc" > confmf
-# Ignore all kinds of additional output from `make'.
-case `$am_make -s -f confmf 2> /dev/null` in #(
-*the\ am__doit\ target*)
- am__include=include
- am__quote=
- _am_result=GNU
- ;;
-esac
-# Now try BSD make style include.
-if test "$am__include" = "#"; then
- echo '.include "confinc"' > confmf
- case `$am_make -s -f confmf 2> /dev/null` in #(
- *the\ am__doit\ target*)
- am__include=.include
- am__quote="\""
- _am_result=BSD
- ;;
- esac
-fi
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $_am_result" >&5
-$as_echo "$_am_result" >&6; }
-rm -f confinc confmf
-
-# Check whether --enable-dependency-tracking was given.
-if test "${enable_dependency_tracking+set}" = set; then :
- enableval=$enable_dependency_tracking;
-fi
-
-if test "x$enable_dependency_tracking" != xno; then
- am_depcomp="$ac_aux_dir/depcomp"
- AMDEPBACKSLASH='\'
-fi
- if test "x$enable_dependency_tracking" != xno; then
- AMDEP_TRUE=
- AMDEP_FALSE='#'
-else
- AMDEP_TRUE='#'
- AMDEP_FALSE=
-fi
-
-
-
-depcc="$CC" am_compiler_list=
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5
-$as_echo_n "checking dependency style of $depcc... " >&6; }
-if test "${am_cv_CC_dependencies_compiler_type+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
- # We make a subdir and do the tests there. Otherwise we can end up
- # making bogus files that we don't know about and never remove. For
- # instance it was reported that on HP-UX the gcc test will end up
- # making a dummy file named `D' -- because `-MD' means `put the output
- # in D'.
- mkdir conftest.dir
- # Copy depcomp to subdir because otherwise we won't find it if we're
- # using a relative directory.
- cp "$am_depcomp" conftest.dir
- cd conftest.dir
- # We will build objects and dependencies in a subdirectory because
- # it helps to detect inapplicable dependency modes. For instance
- # both Tru64's cc and ICC support -MD to output dependencies as a
- # side effect of compilation, but ICC will put the dependencies in
- # the current directory while Tru64 will put them in the object
- # directory.
- mkdir sub
-
- am_cv_CC_dependencies_compiler_type=none
- if test "$am_compiler_list" = ""; then
- am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp`
- fi
- am__universal=false
- case " $depcc " in #(
- *\ -arch\ *\ -arch\ *) am__universal=true ;;
- esac
-
- for depmode in $am_compiler_list; do
- # Setup a source with many dependencies, because some compilers
- # like to wrap large dependency lists on column 80 (with \), and
- # we should not choose a depcomp mode which is confused by this.
- #
- # We need to recreate these files for each test, as the compiler may
- # overwrite some of them when testing with obscure command lines.
- # This happens at least with the AIX C compiler.
- : > sub/conftest.c
- for i in 1 2 3 4 5 6; do
- echo '#include "conftst'$i'.h"' >> sub/conftest.c
- # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with
- # Solaris 8's {/usr,}/bin/sh.
- touch sub/conftst$i.h
- done
- echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
-
- # We check with `-c' and `-o' for the sake of the "dashmstdout"
- # mode. It turns out that the SunPro C++ compiler does not properly
- # handle `-M -o', and we need to detect this. Also, some Intel
- # versions had trouble with output in subdirs
- am__obj=sub/conftest.${OBJEXT-o}
- am__minus_obj="-o $am__obj"
- case $depmode in
- gcc)
- # This depmode causes a compiler race in universal mode.
- test "$am__universal" = false || continue
- ;;
- nosideeffect)
- # after this tag, mechanisms are not by side-effect, so they'll
- # only be used when explicitly requested
- if test "x$enable_dependency_tracking" = xyes; then
- continue
- else
- break
- fi
- ;;
- msvisualcpp | msvcmsys)
- # This compiler won't grok `-c -o', but also, the minuso test has
- # not run yet. These depmodes are late enough in the game, and
- # so weak that their functioning should not be impacted.
- am__obj=conftest.${OBJEXT-o}
- am__minus_obj=
- ;;
- none) break ;;
- esac
- if depmode=$depmode \
- source=sub/conftest.c object=$am__obj \
- depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
- $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
- >/dev/null 2>conftest.err &&
- grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
- grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
- grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
- ${MAKE-make} -s -f confmf > /dev/null 2>&1; then
- # icc doesn't choke on unknown options, it will just issue warnings
- # or remarks (even with -Werror). So we grep stderr for any message
- # that says an option was ignored or not supported.
- # When given -MP, icc 7.0 and 7.1 complain thusly:
- # icc: Command line warning: ignoring option '-M'; no argument required
- # The diagnosis changed in icc 8.0:
- # icc: Command line remark: option '-MP' not supported
- if (grep 'ignoring option' conftest.err ||
- grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
- am_cv_CC_dependencies_compiler_type=$depmode
- break
- fi
- fi
- done
-
- cd ..
- rm -rf conftest.dir
-else
- am_cv_CC_dependencies_compiler_type=none
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5
-$as_echo "$am_cv_CC_dependencies_compiler_type" >&6; }
-CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type
-
- if
- test "x$enable_dependency_tracking" != xno \
- && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then
- am__fastdepCC_TRUE=
- am__fastdepCC_FALSE='#'
-else
- am__fastdepCC_TRUE='#'
- am__fastdepCC_FALSE=
-fi
-
-
-ac_ext=cpp
-ac_cpp='$CXXCPP $CPPFLAGS'
-ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_cxx_compiler_gnu
-if test -z "$CXX"; then
- if test -n "$CCC"; then
- CXX=$CCC
- else
- if test -n "$ac_tool_prefix"; then
- for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl.exe FCC KCC RCC xlC_r xlC
- do
- # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
-set dummy $ac_tool_prefix$ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_CXX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$CXX"; then
- ac_cv_prog_CXX="$CXX" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_CXX="$ac_tool_prefix$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-CXX=$ac_cv_prog_CXX
-if test -n "$CXX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5
-$as_echo "$CXX" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$CXX" && break
- done
-fi
-if test -z "$CXX"; then
- ac_ct_CXX=$CXX
- for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl.exe FCC KCC RCC xlC_r xlC
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_CXX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_CXX"; then
- ac_cv_prog_ac_ct_CXX="$ac_ct_CXX" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_CXX="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_CXX=$ac_cv_prog_ac_ct_CXX
-if test -n "$ac_ct_CXX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5
-$as_echo "$ac_ct_CXX" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$ac_ct_CXX" && break
-done
-
- if test "x$ac_ct_CXX" = x; then
- CXX="g++"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- CXX=$ac_ct_CXX
- fi
-fi
-
- fi
-fi
-# Provide some information about the compiler.
-$as_echo "$as_me:${as_lineno-$LINENO}: checking for C++ compiler version" >&5
-set X $ac_compile
-ac_compiler=$2
-for ac_option in --version -v -V -qversion; do
- { { ac_try="$ac_compiler $ac_option >&5"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_compiler $ac_option >&5") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- sed '10a\
-... rest of stderr output deleted ...
- 10q' conftest.err >conftest.er1
- cat conftest.er1 >&5
- fi
- rm -f conftest.er1 conftest.err
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
-done
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C++ compiler" >&5
-$as_echo_n "checking whether we are using the GNU C++ compiler... " >&6; }
-if test "${ac_cv_cxx_compiler_gnu+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-#ifndef __GNUC__
- choke me
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_cxx_try_compile "$LINENO"; then :
- ac_compiler_gnu=yes
-else
- ac_compiler_gnu=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-ac_cv_cxx_compiler_gnu=$ac_compiler_gnu
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_cxx_compiler_gnu" >&5
-$as_echo "$ac_cv_cxx_compiler_gnu" >&6; }
-if test $ac_compiler_gnu = yes; then
- GXX=yes
-else
- GXX=
-fi
-ac_test_CXXFLAGS=${CXXFLAGS+set}
-ac_save_CXXFLAGS=$CXXFLAGS
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CXX accepts -g" >&5
-$as_echo_n "checking whether $CXX accepts -g... " >&6; }
-if test "${ac_cv_prog_cxx_g+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_save_cxx_werror_flag=$ac_cxx_werror_flag
- ac_cxx_werror_flag=yes
- ac_cv_prog_cxx_g=no
- CXXFLAGS="-g"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_cxx_try_compile "$LINENO"; then :
- ac_cv_prog_cxx_g=yes
-else
- CXXFLAGS=""
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_cxx_try_compile "$LINENO"; then :
-
-else
- ac_cxx_werror_flag=$ac_save_cxx_werror_flag
- CXXFLAGS="-g"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_cxx_try_compile "$LINENO"; then :
- ac_cv_prog_cxx_g=yes
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- ac_cxx_werror_flag=$ac_save_cxx_werror_flag
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_g" >&5
-$as_echo "$ac_cv_prog_cxx_g" >&6; }
-if test "$ac_test_CXXFLAGS" = set; then
- CXXFLAGS=$ac_save_CXXFLAGS
-elif test $ac_cv_prog_cxx_g = yes; then
- if test "$GXX" = yes; then
- CXXFLAGS="-g -O2"
- else
- CXXFLAGS="-g"
- fi
-else
- if test "$GXX" = yes; then
- CXXFLAGS="-O2"
- else
- CXXFLAGS=
- fi
-fi
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-depcc="$CXX" am_compiler_list=
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5
-$as_echo_n "checking dependency style of $depcc... " >&6; }
-if test "${am_cv_CXX_dependencies_compiler_type+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
- # We make a subdir and do the tests there. Otherwise we can end up
- # making bogus files that we don't know about and never remove. For
- # instance it was reported that on HP-UX the gcc test will end up
- # making a dummy file named `D' -- because `-MD' means `put the output
- # in D'.
- mkdir conftest.dir
- # Copy depcomp to subdir because otherwise we won't find it if we're
- # using a relative directory.
- cp "$am_depcomp" conftest.dir
- cd conftest.dir
- # We will build objects and dependencies in a subdirectory because
- # it helps to detect inapplicable dependency modes. For instance
- # both Tru64's cc and ICC support -MD to output dependencies as a
- # side effect of compilation, but ICC will put the dependencies in
- # the current directory while Tru64 will put them in the object
- # directory.
- mkdir sub
-
- am_cv_CXX_dependencies_compiler_type=none
- if test "$am_compiler_list" = ""; then
- am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp`
- fi
- am__universal=false
- case " $depcc " in #(
- *\ -arch\ *\ -arch\ *) am__universal=true ;;
- esac
-
- for depmode in $am_compiler_list; do
- # Setup a source with many dependencies, because some compilers
- # like to wrap large dependency lists on column 80 (with \), and
- # we should not choose a depcomp mode which is confused by this.
- #
- # We need to recreate these files for each test, as the compiler may
- # overwrite some of them when testing with obscure command lines.
- # This happens at least with the AIX C compiler.
- : > sub/conftest.c
- for i in 1 2 3 4 5 6; do
- echo '#include "conftst'$i'.h"' >> sub/conftest.c
- # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with
- # Solaris 8's {/usr,}/bin/sh.
- touch sub/conftst$i.h
- done
- echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
-
- # We check with `-c' and `-o' for the sake of the "dashmstdout"
- # mode. It turns out that the SunPro C++ compiler does not properly
- # handle `-M -o', and we need to detect this. Also, some Intel
- # versions had trouble with output in subdirs
- am__obj=sub/conftest.${OBJEXT-o}
- am__minus_obj="-o $am__obj"
- case $depmode in
- gcc)
- # This depmode causes a compiler race in universal mode.
- test "$am__universal" = false || continue
- ;;
- nosideeffect)
- # after this tag, mechanisms are not by side-effect, so they'll
- # only be used when explicitly requested
- if test "x$enable_dependency_tracking" = xyes; then
- continue
- else
- break
- fi
- ;;
- msvisualcpp | msvcmsys)
- # This compiler won't grok `-c -o', but also, the minuso test has
- # not run yet. These depmodes are late enough in the game, and
- # so weak that their functioning should not be impacted.
- am__obj=conftest.${OBJEXT-o}
- am__minus_obj=
- ;;
- none) break ;;
- esac
- if depmode=$depmode \
- source=sub/conftest.c object=$am__obj \
- depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
- $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
- >/dev/null 2>conftest.err &&
- grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
- grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
- grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
- ${MAKE-make} -s -f confmf > /dev/null 2>&1; then
- # icc doesn't choke on unknown options, it will just issue warnings
- # or remarks (even with -Werror). So we grep stderr for any message
- # that says an option was ignored or not supported.
- # When given -MP, icc 7.0 and 7.1 complain thusly:
- # icc: Command line warning: ignoring option '-M'; no argument required
- # The diagnosis changed in icc 8.0:
- # icc: Command line remark: option '-MP' not supported
- if (grep 'ignoring option' conftest.err ||
- grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
- am_cv_CXX_dependencies_compiler_type=$depmode
- break
- fi
- fi
- done
-
- cd ..
- rm -rf conftest.dir
-else
- am_cv_CXX_dependencies_compiler_type=none
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5
-$as_echo "$am_cv_CXX_dependencies_compiler_type" >&6; }
-CXXDEPMODE=depmode=$am_cv_CXX_dependencies_compiler_type
-
- if
- test "x$enable_dependency_tracking" != xno \
- && test "$am_cv_CXX_dependencies_compiler_type" = gcc3; then
- am__fastdepCXX_TRUE=
- am__fastdepCXX_FALSE='#'
-else
- am__fastdepCXX_TRUE='#'
- am__fastdepCXX_FALSE=
-fi
-
-
-ac_ext=cpp
-ac_cpp='$CXXCPP $CPPFLAGS'
-ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_cxx_compiler_gnu
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C++ preprocessor" >&5
-$as_echo_n "checking how to run the C++ preprocessor... " >&6; }
-if test -z "$CXXCPP"; then
- if test "${ac_cv_prog_CXXCPP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- # Double quotes because CXXCPP needs to be expanded
- for CXXCPP in "$CXX -E" "/lib/cpp"
- do
- ac_preproc_ok=false
-for ac_cxx_preproc_warn_flag in '' yes
-do
- # Use a header file that comes with gcc, so configuring glibc
- # with a fresh cross-compiler works.
- # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
- # <limits.h> exists even on freestanding compilers.
- # On the NeXT, cc -E runs the code through the compiler's parser,
- # not just through cpp. "Syntax error" is here to catch this case.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
- Syntax error
-_ACEOF
-if ac_fn_cxx_try_cpp "$LINENO"; then :
-
-else
- # Broken: fails on valid input.
-continue
-fi
-rm -f conftest.err conftest.$ac_ext
-
- # OK, works on sane cases. Now check whether nonexistent headers
- # can be detected and how.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ac_nonexistent.h>
-_ACEOF
-if ac_fn_cxx_try_cpp "$LINENO"; then :
- # Broken: success on invalid input.
-continue
-else
- # Passes both tests.
-ac_preproc_ok=:
-break
-fi
-rm -f conftest.err conftest.$ac_ext
-
-done
-# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.err conftest.$ac_ext
-if $ac_preproc_ok; then :
- break
-fi
-
- done
- ac_cv_prog_CXXCPP=$CXXCPP
-
-fi
- CXXCPP=$ac_cv_prog_CXXCPP
-else
- ac_cv_prog_CXXCPP=$CXXCPP
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXXCPP" >&5
-$as_echo "$CXXCPP" >&6; }
-ac_preproc_ok=false
-for ac_cxx_preproc_warn_flag in '' yes
-do
- # Use a header file that comes with gcc, so configuring glibc
- # with a fresh cross-compiler works.
- # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
- # <limits.h> exists even on freestanding compilers.
- # On the NeXT, cc -E runs the code through the compiler's parser,
- # not just through cpp. "Syntax error" is here to catch this case.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
- Syntax error
-_ACEOF
-if ac_fn_cxx_try_cpp "$LINENO"; then :
-
-else
- # Broken: fails on valid input.
-continue
-fi
-rm -f conftest.err conftest.$ac_ext
-
- # OK, works on sane cases. Now check whether nonexistent headers
- # can be detected and how.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ac_nonexistent.h>
-_ACEOF
-if ac_fn_cxx_try_cpp "$LINENO"; then :
- # Broken: success on invalid input.
-continue
-else
- # Passes both tests.
-ac_preproc_ok=:
-break
-fi
-rm -f conftest.err conftest.$ac_ext
-
-done
-# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.err conftest.$ac_ext
-if $ac_preproc_ok; then :
-
-else
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error "C++ preprocessor \"$CXXCPP\" fails sanity check
-See \`config.log' for more details." "$LINENO" 5; }
-fi
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5
-$as_echo_n "checking whether ln -s works... " >&6; }
-LN_S=$as_ln_s
-if test "$LN_S" = "ln -s"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5
-$as_echo "no, using $LN_S" >&6; }
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5
-$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; }
-set x ${MAKE-make}
-ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'`
-if { as_var=ac_cv_prog_make_${ac_make}_set; eval "test \"\${$as_var+set}\" = set"; }; then :
- $as_echo_n "(cached) " >&6
-else
- cat >conftest.make <<\_ACEOF
-SHELL = /bin/sh
-all:
- @echo '@@@%%%=$(MAKE)=@@@%%%'
-_ACEOF
-# GNU make sometimes prints "make[1]: Entering...", which would confuse us.
-case `${MAKE-make} -f conftest.make 2>/dev/null` in
- *@@@%%%=?*=@@@%%%*)
- eval ac_cv_prog_make_${ac_make}_set=yes;;
- *)
- eval ac_cv_prog_make_${ac_make}_set=no;;
-esac
-rm -f conftest.make
-fi
-if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- SET_MAKE=
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- SET_MAKE="MAKE=${MAKE-make}"
-fi
-
-case `pwd` in
- *\ * | *\ *)
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&5
-$as_echo "$as_me: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&2;} ;;
-esac
-
-
-
-macro_version='2.2.6b'
-macro_revision='1.3017'
-
-
-
-
-
-
-
-
-
-
-
-
-
-ltmain="$ac_aux_dir/ltmain.sh"
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5
-$as_echo_n "checking host system type... " >&6; }
-if test "${ac_cv_host+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test "x$host_alias" = x; then
- ac_cv_host=$ac_cv_build
-else
- ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` ||
- as_fn_error "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5
-$as_echo "$ac_cv_host" >&6; }
-case $ac_cv_host in
-*-*-*) ;;
-*) as_fn_error "invalid value of canonical host" "$LINENO" 5;;
-esac
-host=$ac_cv_host
-ac_save_IFS=$IFS; IFS='-'
-set x $ac_cv_host
-shift
-host_cpu=$1
-host_vendor=$2
-shift; shift
-# Remember, the first character of IFS is used to create $*,
-# except with old shells:
-host_os=$*
-IFS=$ac_save_IFS
-case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a sed that does not truncate output" >&5
-$as_echo_n "checking for a sed that does not truncate output... " >&6; }
-if test "${ac_cv_path_SED+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/
- for ac_i in 1 2 3 4 5 6 7; do
- ac_script="$ac_script$as_nl$ac_script"
- done
- echo "$ac_script" 2>/dev/null | sed 99q >conftest.sed
- { ac_script=; unset ac_script;}
- if test -z "$SED"; then
- ac_path_SED_found=false
- # Loop through the user's path and test for each of PROGNAME-LIST
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in sed gsed; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- ac_path_SED="$as_dir/$ac_prog$ac_exec_ext"
- { test -f "$ac_path_SED" && $as_test_x "$ac_path_SED"; } || continue
-# Check for GNU ac_path_SED and select it if it is found.
- # Check for GNU $ac_path_SED
-case `"$ac_path_SED" --version 2>&1` in
-*GNU*)
- ac_cv_path_SED="$ac_path_SED" ac_path_SED_found=:;;
-*)
- ac_count=0
- $as_echo_n 0123456789 >"conftest.in"
- while :
- do
- cat "conftest.in" "conftest.in" >"conftest.tmp"
- mv "conftest.tmp" "conftest.in"
- cp "conftest.in" "conftest.nl"
- $as_echo '' >> "conftest.nl"
- "$ac_path_SED" -f conftest.sed < "conftest.nl" >"conftest.out" 2>/dev/null || break
- diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
- as_fn_arith $ac_count + 1 && ac_count=$as_val
- if test $ac_count -gt ${ac_path_SED_max-0}; then
- # Best one so far, save it but keep looking for a better one
- ac_cv_path_SED="$ac_path_SED"
- ac_path_SED_max=$ac_count
- fi
- # 10*(2^10) chars as input seems more than enough
- test $ac_count -gt 10 && break
- done
- rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
-esac
-
- $ac_path_SED_found && break 3
- done
- done
- done
-IFS=$as_save_IFS
- if test -z "$ac_cv_path_SED"; then
- as_fn_error "no acceptable sed could be found in \$PATH" "$LINENO" 5
- fi
-else
- ac_cv_path_SED=$SED
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_SED" >&5
-$as_echo "$ac_cv_path_SED" >&6; }
- SED="$ac_cv_path_SED"
- rm -f conftest.sed
-
-test -z "$SED" && SED=sed
-Xsed="$SED -e 1s/^X//"
-
-
-
-
-
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5
-$as_echo_n "checking for grep that handles long lines and -e... " >&6; }
-if test "${ac_cv_path_GREP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -z "$GREP"; then
- ac_path_GREP_found=false
- # Loop through the user's path and test for each of PROGNAME-LIST
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in grep ggrep; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext"
- { test -f "$ac_path_GREP" && $as_test_x "$ac_path_GREP"; } || continue
-# Check for GNU ac_path_GREP and select it if it is found.
- # Check for GNU $ac_path_GREP
-case `"$ac_path_GREP" --version 2>&1` in
-*GNU*)
- ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;;
-*)
- ac_count=0
- $as_echo_n 0123456789 >"conftest.in"
- while :
- do
- cat "conftest.in" "conftest.in" >"conftest.tmp"
- mv "conftest.tmp" "conftest.in"
- cp "conftest.in" "conftest.nl"
- $as_echo 'GREP' >> "conftest.nl"
- "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break
- diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
- as_fn_arith $ac_count + 1 && ac_count=$as_val
- if test $ac_count -gt ${ac_path_GREP_max-0}; then
- # Best one so far, save it but keep looking for a better one
- ac_cv_path_GREP="$ac_path_GREP"
- ac_path_GREP_max=$ac_count
- fi
- # 10*(2^10) chars as input seems more than enough
- test $ac_count -gt 10 && break
- done
- rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
-esac
-
- $ac_path_GREP_found && break 3
- done
- done
- done
-IFS=$as_save_IFS
- if test -z "$ac_cv_path_GREP"; then
- as_fn_error "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
- fi
-else
- ac_cv_path_GREP=$GREP
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5
-$as_echo "$ac_cv_path_GREP" >&6; }
- GREP="$ac_cv_path_GREP"
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5
-$as_echo_n "checking for egrep... " >&6; }
-if test "${ac_cv_path_EGREP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if echo a | $GREP -E '(a|b)' >/dev/null 2>&1
- then ac_cv_path_EGREP="$GREP -E"
- else
- if test -z "$EGREP"; then
- ac_path_EGREP_found=false
- # Loop through the user's path and test for each of PROGNAME-LIST
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in egrep; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext"
- { test -f "$ac_path_EGREP" && $as_test_x "$ac_path_EGREP"; } || continue
-# Check for GNU ac_path_EGREP and select it if it is found.
- # Check for GNU $ac_path_EGREP
-case `"$ac_path_EGREP" --version 2>&1` in
-*GNU*)
- ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;;
-*)
- ac_count=0
- $as_echo_n 0123456789 >"conftest.in"
- while :
- do
- cat "conftest.in" "conftest.in" >"conftest.tmp"
- mv "conftest.tmp" "conftest.in"
- cp "conftest.in" "conftest.nl"
- $as_echo 'EGREP' >> "conftest.nl"
- "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break
- diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
- as_fn_arith $ac_count + 1 && ac_count=$as_val
- if test $ac_count -gt ${ac_path_EGREP_max-0}; then
- # Best one so far, save it but keep looking for a better one
- ac_cv_path_EGREP="$ac_path_EGREP"
- ac_path_EGREP_max=$ac_count
- fi
- # 10*(2^10) chars as input seems more than enough
- test $ac_count -gt 10 && break
- done
- rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
-esac
-
- $ac_path_EGREP_found && break 3
- done
- done
- done
-IFS=$as_save_IFS
- if test -z "$ac_cv_path_EGREP"; then
- as_fn_error "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
- fi
-else
- ac_cv_path_EGREP=$EGREP
-fi
-
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5
-$as_echo "$ac_cv_path_EGREP" >&6; }
- EGREP="$ac_cv_path_EGREP"
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for fgrep" >&5
-$as_echo_n "checking for fgrep... " >&6; }
-if test "${ac_cv_path_FGREP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if echo 'ab*c' | $GREP -F 'ab*c' >/dev/null 2>&1
- then ac_cv_path_FGREP="$GREP -F"
- else
- if test -z "$FGREP"; then
- ac_path_FGREP_found=false
- # Loop through the user's path and test for each of PROGNAME-LIST
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_prog in fgrep; do
- for ac_exec_ext in '' $ac_executable_extensions; do
- ac_path_FGREP="$as_dir/$ac_prog$ac_exec_ext"
- { test -f "$ac_path_FGREP" && $as_test_x "$ac_path_FGREP"; } || continue
-# Check for GNU ac_path_FGREP and select it if it is found.
- # Check for GNU $ac_path_FGREP
-case `"$ac_path_FGREP" --version 2>&1` in
-*GNU*)
- ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_found=:;;
-*)
- ac_count=0
- $as_echo_n 0123456789 >"conftest.in"
- while :
- do
- cat "conftest.in" "conftest.in" >"conftest.tmp"
- mv "conftest.tmp" "conftest.in"
- cp "conftest.in" "conftest.nl"
- $as_echo 'FGREP' >> "conftest.nl"
- "$ac_path_FGREP" FGREP < "conftest.nl" >"conftest.out" 2>/dev/null || break
- diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
- as_fn_arith $ac_count + 1 && ac_count=$as_val
- if test $ac_count -gt ${ac_path_FGREP_max-0}; then
- # Best one so far, save it but keep looking for a better one
- ac_cv_path_FGREP="$ac_path_FGREP"
- ac_path_FGREP_max=$ac_count
- fi
- # 10*(2^10) chars as input seems more than enough
- test $ac_count -gt 10 && break
- done
- rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
-esac
-
- $ac_path_FGREP_found && break 3
- done
- done
- done
-IFS=$as_save_IFS
- if test -z "$ac_cv_path_FGREP"; then
- as_fn_error "no acceptable fgrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
- fi
-else
- ac_cv_path_FGREP=$FGREP
-fi
-
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_FGREP" >&5
-$as_echo "$ac_cv_path_FGREP" >&6; }
- FGREP="$ac_cv_path_FGREP"
-
-
-test -z "$GREP" && GREP=grep
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# Check whether --with-gnu-ld was given.
-if test "${with_gnu_ld+set}" = set; then :
- withval=$with_gnu_ld; test "$withval" = no || with_gnu_ld=yes
-else
- with_gnu_ld=no
-fi
-
-ac_prog=ld
-if test "$GCC" = yes; then
- # Check if gcc -print-prog-name=ld gives a path.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5
-$as_echo_n "checking for ld used by $CC... " >&6; }
- case $host in
- *-*-mingw*)
- # gcc leaves a trailing carriage return which upsets mingw
- ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;;
- *)
- ac_prog=`($CC -print-prog-name=ld) 2>&5` ;;
- esac
- case $ac_prog in
- # Accept absolute paths.
- [\\/]* | ?:[\\/]*)
- re_direlt='/[^/][^/]*/\.\./'
- # Canonicalize the pathname of ld
- ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'`
- while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do
- ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"`
- done
- test -z "$LD" && LD="$ac_prog"
- ;;
- "")
- # If it fails, then pretend we aren't using GCC.
- ac_prog=ld
- ;;
- *)
- # If it is relative, then search for the first ld in PATH.
- with_gnu_ld=unknown
- ;;
- esac
-elif test "$with_gnu_ld" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5
-$as_echo_n "checking for GNU ld... " >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5
-$as_echo_n "checking for non-GNU ld... " >&6; }
-fi
-if test "${lt_cv_path_LD+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -z "$LD"; then
- lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
- for ac_dir in $PATH; do
- IFS="$lt_save_ifs"
- test -z "$ac_dir" && ac_dir=.
- if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then
- lt_cv_path_LD="$ac_dir/$ac_prog"
- # Check to see if the program is GNU ld. I'd rather use --version,
- # but apparently some variants of GNU ld only accept -v.
- # Break only if it was the GNU/non-GNU ld that we prefer.
- case `"$lt_cv_path_LD" -v 2>&1 </dev/null` in
- *GNU* | *'with BFD'*)
- test "$with_gnu_ld" != no && break
- ;;
- *)
- test "$with_gnu_ld" != yes && break
- ;;
- esac
- fi
- done
- IFS="$lt_save_ifs"
-else
- lt_cv_path_LD="$LD" # Let the user override the test with a path.
-fi
-fi
-
-LD="$lt_cv_path_LD"
-if test -n "$LD"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LD" >&5
-$as_echo "$LD" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-test -z "$LD" && as_fn_error "no acceptable ld found in \$PATH" "$LINENO" 5
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5
-$as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; }
-if test "${lt_cv_prog_gnu_ld+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- # I'd rather use --version here, but apparently some GNU lds only accept -v.
-case `$LD -v 2>&1 </dev/null` in
-*GNU* | *'with BFD'*)
- lt_cv_prog_gnu_ld=yes
- ;;
-*)
- lt_cv_prog_gnu_ld=no
- ;;
-esac
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_gnu_ld" >&5
-$as_echo "$lt_cv_prog_gnu_ld" >&6; }
-with_gnu_ld=$lt_cv_prog_gnu_ld
-
-
-
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for BSD- or MS-compatible name lister (nm)" >&5
-$as_echo_n "checking for BSD- or MS-compatible name lister (nm)... " >&6; }
-if test "${lt_cv_path_NM+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$NM"; then
- # Let the user override the test.
- lt_cv_path_NM="$NM"
-else
- lt_nm_to_check="${ac_tool_prefix}nm"
- if test -n "$ac_tool_prefix" && test "$build" = "$host"; then
- lt_nm_to_check="$lt_nm_to_check nm"
- fi
- for lt_tmp_nm in $lt_nm_to_check; do
- lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
- for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do
- IFS="$lt_save_ifs"
- test -z "$ac_dir" && ac_dir=.
- tmp_nm="$ac_dir/$lt_tmp_nm"
- if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then
- # Check to see if the nm accepts a BSD-compat flag.
- # Adding the `sed 1q' prevents false positives on HP-UX, which says:
- # nm: unknown option "B" ignored
- # Tru64's nm complains that /dev/null is an invalid object file
- case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in
- */dev/null* | *'Invalid file or object type'*)
- lt_cv_path_NM="$tmp_nm -B"
- break
- ;;
- *)
- case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in
- */dev/null*)
- lt_cv_path_NM="$tmp_nm -p"
- break
- ;;
- *)
- lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but
- continue # so that we can try to find one that supports BSD flags
- ;;
- esac
- ;;
- esac
- fi
- done
- IFS="$lt_save_ifs"
- done
- : ${lt_cv_path_NM=no}
-fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_NM" >&5
-$as_echo "$lt_cv_path_NM" >&6; }
-if test "$lt_cv_path_NM" != "no"; then
- NM="$lt_cv_path_NM"
-else
- # Didn't find any BSD compatible name lister, look for dumpbin.
- if test -n "$ac_tool_prefix"; then
- for ac_prog in "dumpbin -symbols" "link -dump -symbols"
- do
- # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
-set dummy $ac_tool_prefix$ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_DUMPBIN+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$DUMPBIN"; then
- ac_cv_prog_DUMPBIN="$DUMPBIN" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_DUMPBIN="$ac_tool_prefix$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-DUMPBIN=$ac_cv_prog_DUMPBIN
-if test -n "$DUMPBIN"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DUMPBIN" >&5
-$as_echo "$DUMPBIN" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$DUMPBIN" && break
- done
-fi
-if test -z "$DUMPBIN"; then
- ac_ct_DUMPBIN=$DUMPBIN
- for ac_prog in "dumpbin -symbols" "link -dump -symbols"
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_DUMPBIN+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_DUMPBIN"; then
- ac_cv_prog_ac_ct_DUMPBIN="$ac_ct_DUMPBIN" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_DUMPBIN="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_DUMPBIN=$ac_cv_prog_ac_ct_DUMPBIN
-if test -n "$ac_ct_DUMPBIN"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DUMPBIN" >&5
-$as_echo "$ac_ct_DUMPBIN" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$ac_ct_DUMPBIN" && break
-done
-
- if test "x$ac_ct_DUMPBIN" = x; then
- DUMPBIN=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DUMPBIN=$ac_ct_DUMPBIN
- fi
-fi
-
-
- if test "$DUMPBIN" != ":"; then
- NM="$DUMPBIN"
- fi
-fi
-test -z "$NM" && NM=nm
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking the name lister ($NM) interface" >&5
-$as_echo_n "checking the name lister ($NM) interface... " >&6; }
-if test "${lt_cv_nm_interface+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_nm_interface="BSD nm"
- echo "int some_variable = 0;" > conftest.$ac_ext
- (eval echo "\"\$as_me:5305: $ac_compile\"" >&5)
- (eval "$ac_compile" 2>conftest.err)
- cat conftest.err >&5
- (eval echo "\"\$as_me:5308: $NM \\\"conftest.$ac_objext\\\"\"" >&5)
- (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out)
- cat conftest.err >&5
- (eval echo "\"\$as_me:5311: output\"" >&5)
- cat conftest.out >&5
- if $GREP 'External.*some_variable' conftest.out > /dev/null; then
- lt_cv_nm_interface="MS dumpbin"
- fi
- rm -f conftest*
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_nm_interface" >&5
-$as_echo "$lt_cv_nm_interface" >&6; }
-
-# find the maximum length of command line arguments
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking the maximum length of command line arguments" >&5
-$as_echo_n "checking the maximum length of command line arguments... " >&6; }
-if test "${lt_cv_sys_max_cmd_len+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- i=0
- teststring="ABCD"
-
- case $build_os in
- msdosdjgpp*)
- # On DJGPP, this test can blow up pretty badly due to problems in libc
- # (any single argument exceeding 2000 bytes causes a buffer overrun
- # during glob expansion). Even if it were fixed, the result of this
- # check would be larger than it should be.
- lt_cv_sys_max_cmd_len=12288; # 12K is about right
- ;;
-
- gnu*)
- # Under GNU Hurd, this test is not required because there is
- # no limit to the length of command line arguments.
- # Libtool will interpret -1 as no limit whatsoever
- lt_cv_sys_max_cmd_len=-1;
- ;;
-
- cygwin* | mingw* | cegcc*)
- # On Win9x/ME, this test blows up -- it succeeds, but takes
- # about 5 minutes as the teststring grows exponentially.
- # Worse, since 9x/ME are not pre-emptively multitasking,
- # you end up with a "frozen" computer, even though with patience
- # the test eventually succeeds (with a max line length of 256k).
- # Instead, let's just punt: use the minimum linelength reported by
- # all of the supported platforms: 8192 (on NT/2K/XP).
- lt_cv_sys_max_cmd_len=8192;
- ;;
-
- amigaos*)
- # On AmigaOS with pdksh, this test takes hours, literally.
- # So we just punt and use a minimum line length of 8192.
- lt_cv_sys_max_cmd_len=8192;
- ;;
-
- netbsd* | freebsd* | openbsd* | darwin* | dragonfly*)
- # This has been around since 386BSD, at least. Likely further.
- if test -x /sbin/sysctl; then
- lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax`
- elif test -x /usr/sbin/sysctl; then
- lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax`
- else
- lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs
- fi
- # And add a safety zone
- lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4`
- lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3`
- ;;
-
- interix*)
- # We know the value 262144 and hardcode it with a safety zone (like BSD)
- lt_cv_sys_max_cmd_len=196608
- ;;
-
- osf*)
- # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure
- # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not
- # nice to cause kernel panics so lets avoid the loop below.
- # First set a reasonable default.
- lt_cv_sys_max_cmd_len=16384
- #
- if test -x /sbin/sysconfig; then
- case `/sbin/sysconfig -q proc exec_disable_arg_limit` in
- *1*) lt_cv_sys_max_cmd_len=-1 ;;
- esac
- fi
- ;;
- sco3.2v5*)
- lt_cv_sys_max_cmd_len=102400
- ;;
- sysv5* | sco5v6* | sysv4.2uw2*)
- kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null`
- if test -n "$kargmax"; then
- lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[ ]//'`
- else
- lt_cv_sys_max_cmd_len=32768
- fi
- ;;
- *)
- lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null`
- if test -n "$lt_cv_sys_max_cmd_len"; then
- lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4`
- lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3`
- else
- # Make teststring a little bigger before we do anything with it.
- # a 1K string should be a reasonable start.
- for i in 1 2 3 4 5 6 7 8 ; do
- teststring=$teststring$teststring
- done
- SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}}
- # If test is not a shell built-in, we'll probably end up computing a
- # maximum length that is only half of the actual maximum length, but
- # we can't tell.
- while { test "X"`$SHELL $0 --fallback-echo "X$teststring$teststring" 2>/dev/null` \
- = "XX$teststring$teststring"; } >/dev/null 2>&1 &&
- test $i != 17 # 1/2 MB should be enough
- do
- i=`expr $i + 1`
- teststring=$teststring$teststring
- done
- # Only check the string length outside the loop.
- lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1`
- teststring=
- # Add a significant safety factor because C++ compilers can tack on
- # massive amounts of additional arguments before passing them to the
- # linker. It appears as though 1/2 is a usable value.
- lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2`
- fi
- ;;
- esac
-
-fi
-
-if test -n $lt_cv_sys_max_cmd_len ; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sys_max_cmd_len" >&5
-$as_echo "$lt_cv_sys_max_cmd_len" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: none" >&5
-$as_echo "none" >&6; }
-fi
-max_cmd_len=$lt_cv_sys_max_cmd_len
-
-
-
-
-
-
-: ${CP="cp -f"}
-: ${MV="mv -f"}
-: ${RM="rm -f"}
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands some XSI constructs" >&5
-$as_echo_n "checking whether the shell understands some XSI constructs... " >&6; }
-# Try some XSI features
-xsi_shell=no
-( _lt_dummy="a/b/c"
- test "${_lt_dummy##*/},${_lt_dummy%/*},"${_lt_dummy%"$_lt_dummy"}, \
- = c,a/b,, \
- && eval 'test $(( 1 + 1 )) -eq 2 \
- && test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \
- && xsi_shell=yes
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $xsi_shell" >&5
-$as_echo "$xsi_shell" >&6; }
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands \"+=\"" >&5
-$as_echo_n "checking whether the shell understands \"+=\"... " >&6; }
-lt_shell_append=no
-( foo=bar; set foo baz; eval "$1+=\$2" && test "$foo" = barbaz ) \
- >/dev/null 2>&1 \
- && lt_shell_append=yes
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_shell_append" >&5
-$as_echo "$lt_shell_append" >&6; }
-
-
-if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then
- lt_unset=unset
-else
- lt_unset=false
-fi
-
-
-
-
-
-# test EBCDIC or ASCII
-case `echo X|tr X '\101'` in
- A) # ASCII based system
- # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr
- lt_SP2NL='tr \040 \012'
- lt_NL2SP='tr \015\012 \040\040'
- ;;
- *) # EBCDIC based system
- lt_SP2NL='tr \100 \n'
- lt_NL2SP='tr \r\n \100\100'
- ;;
-esac
-
-
-
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $LD option to reload object files" >&5
-$as_echo_n "checking for $LD option to reload object files... " >&6; }
-if test "${lt_cv_ld_reload_flag+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_ld_reload_flag='-r'
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_reload_flag" >&5
-$as_echo "$lt_cv_ld_reload_flag" >&6; }
-reload_flag=$lt_cv_ld_reload_flag
-case $reload_flag in
-"" | " "*) ;;
-*) reload_flag=" $reload_flag" ;;
-esac
-reload_cmds='$LD$reload_flag -o $output$reload_objs'
-case $host_os in
- darwin*)
- if test "$GCC" = yes; then
- reload_cmds='$LTCC $LTCFLAGS -nostdlib ${wl}-r -o $output$reload_objs'
- else
- reload_cmds='$LD$reload_flag -o $output$reload_objs'
- fi
- ;;
-esac
-
-
-
-
-
-
-
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args.
-set dummy ${ac_tool_prefix}objdump; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_OBJDUMP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$OBJDUMP"; then
- ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-OBJDUMP=$ac_cv_prog_OBJDUMP
-if test -n "$OBJDUMP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5
-$as_echo "$OBJDUMP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_OBJDUMP"; then
- ac_ct_OBJDUMP=$OBJDUMP
- # Extract the first word of "objdump", so it can be a program name with args.
-set dummy objdump; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_OBJDUMP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_OBJDUMP"; then
- ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_OBJDUMP="objdump"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP
-if test -n "$ac_ct_OBJDUMP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5
-$as_echo "$ac_ct_OBJDUMP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_OBJDUMP" = x; then
- OBJDUMP="false"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- OBJDUMP=$ac_ct_OBJDUMP
- fi
-else
- OBJDUMP="$ac_cv_prog_OBJDUMP"
-fi
-
-test -z "$OBJDUMP" && OBJDUMP=objdump
-
-
-
-
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to recognize dependent libraries" >&5
-$as_echo_n "checking how to recognize dependent libraries... " >&6; }
-if test "${lt_cv_deplibs_check_method+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_file_magic_cmd='$MAGIC_CMD'
-lt_cv_file_magic_test_file=
-lt_cv_deplibs_check_method='unknown'
-# Need to set the preceding variable on all platforms that support
-# interlibrary dependencies.
-# 'none' -- dependencies not supported.
-# `unknown' -- same as none, but documents that we really don't know.
-# 'pass_all' -- all dependencies passed with no checks.
-# 'test_compile' -- check by making test program.
-# 'file_magic [[regex]]' -- check by looking for files in library path
-# which responds to the $file_magic_cmd with a given extended regex.
-# If you have `file' or equivalent on your system and you're not sure
-# whether `pass_all' will *always* work, you probably want this one.
-
-case $host_os in
-aix[4-9]*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-beos*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-bsdi[45]*)
- lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)'
- lt_cv_file_magic_cmd='/usr/bin/file -L'
- lt_cv_file_magic_test_file=/shlib/libc.so
- ;;
-
-cygwin*)
- # func_win32_libid is a shell function defined in ltmain.sh
- lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL'
- lt_cv_file_magic_cmd='func_win32_libid'
- ;;
-
-mingw* | pw32*)
- # Base MSYS/MinGW do not provide the 'file' command needed by
- # func_win32_libid shell function, so use a weaker test based on 'objdump',
- # unless we find 'file', for example because we are cross-compiling.
- if ( file / ) >/dev/null 2>&1; then
- lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL'
- lt_cv_file_magic_cmd='func_win32_libid'
- else
- lt_cv_deplibs_check_method='file_magic file format pei*-i386(.*architecture: i386)?'
- lt_cv_file_magic_cmd='$OBJDUMP -f'
- fi
- ;;
-
-cegcc)
- # use the weaker test based on 'objdump'. See mingw*.
- lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?'
- lt_cv_file_magic_cmd='$OBJDUMP -f'
- ;;
-
-darwin* | rhapsody*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-freebsd* | dragonfly*)
- if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then
- case $host_cpu in
- i*86 )
- # Not sure whether the presence of OpenBSD here was a mistake.
- # Let's accept both of them until this is cleared up.
- lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[3-9]86 (compact )?demand paged shared library'
- lt_cv_file_magic_cmd=/usr/bin/file
- lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*`
- ;;
- esac
- else
- lt_cv_deplibs_check_method=pass_all
- fi
- ;;
-
-gnu*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-hpux10.20* | hpux11*)
- lt_cv_file_magic_cmd=/usr/bin/file
- case $host_cpu in
- ia64*)
- lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64'
- lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so
- ;;
- hppa*64*)
- lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - PA-RISC [0-9].[0-9]'
- lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl
- ;;
- *)
- lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9].[0-9]) shared library'
- lt_cv_file_magic_test_file=/usr/lib/libc.sl
- ;;
- esac
- ;;
-
-interix[3-9]*)
- # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here
- lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|\.a)$'
- ;;
-
-irix5* | irix6* | nonstopux*)
- case $LD in
- *-32|*"-32 ") libmagic=32-bit;;
- *-n32|*"-n32 ") libmagic=N32;;
- *-64|*"-64 ") libmagic=64-bit;;
- *) libmagic=never-match;;
- esac
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-# This must be Linux ELF.
-linux* | k*bsd*-gnu | kopensolaris*-gnu)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-netbsd* | netbsdelf*-gnu)
- if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then
- lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$'
- else
- lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|_pic\.a)$'
- fi
- ;;
-
-newos6*)
- lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)'
- lt_cv_file_magic_cmd=/usr/bin/file
- lt_cv_file_magic_test_file=/usr/lib/libnls.so
- ;;
-
-*nto* | *qnx*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-openbsd*)
- if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
- lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|\.so|_pic\.a)$'
- else
- lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$'
- fi
- ;;
-
-osf3* | osf4* | osf5*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-rdos*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-solaris*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-
-sysv4 | sysv4.3*)
- case $host_vendor in
- motorola)
- lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]'
- lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*`
- ;;
- ncr)
- lt_cv_deplibs_check_method=pass_all
- ;;
- sequent)
- lt_cv_file_magic_cmd='/bin/file'
- lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )'
- ;;
- sni)
- lt_cv_file_magic_cmd='/bin/file'
- lt_cv_deplibs_check_method="file_magic ELF [0-9][0-9]*-bit [LM]SB dynamic lib"
- lt_cv_file_magic_test_file=/lib/libc.so
- ;;
- siemens)
- lt_cv_deplibs_check_method=pass_all
- ;;
- pc)
- lt_cv_deplibs_check_method=pass_all
- ;;
- esac
- ;;
-
-tpf*)
- lt_cv_deplibs_check_method=pass_all
- ;;
-esac
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_deplibs_check_method" >&5
-$as_echo "$lt_cv_deplibs_check_method" >&6; }
-file_magic_cmd=$lt_cv_file_magic_cmd
-deplibs_check_method=$lt_cv_deplibs_check_method
-test -z "$deplibs_check_method" && deplibs_check_method=unknown
-
-
-
-
-
-
-
-
-
-
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}ar", so it can be a program name with args.
-set dummy ${ac_tool_prefix}ar; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_AR+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$AR"; then
- ac_cv_prog_AR="$AR" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_AR="${ac_tool_prefix}ar"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-AR=$ac_cv_prog_AR
-if test -n "$AR"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5
-$as_echo "$AR" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_AR"; then
- ac_ct_AR=$AR
- # Extract the first word of "ar", so it can be a program name with args.
-set dummy ar; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_AR+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_AR"; then
- ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_AR="ar"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_AR=$ac_cv_prog_ac_ct_AR
-if test -n "$ac_ct_AR"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5
-$as_echo "$ac_ct_AR" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_AR" = x; then
- AR="false"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- AR=$ac_ct_AR
- fi
-else
- AR="$ac_cv_prog_AR"
-fi
-
-test -z "$AR" && AR=ar
-test -z "$AR_FLAGS" && AR_FLAGS=cru
-
-
-
-
-
-
-
-
-
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args.
-set dummy ${ac_tool_prefix}strip; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_STRIP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$STRIP"; then
- ac_cv_prog_STRIP="$STRIP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_STRIP="${ac_tool_prefix}strip"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-STRIP=$ac_cv_prog_STRIP
-if test -n "$STRIP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5
-$as_echo "$STRIP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_STRIP"; then
- ac_ct_STRIP=$STRIP
- # Extract the first word of "strip", so it can be a program name with args.
-set dummy strip; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_STRIP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_STRIP"; then
- ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_STRIP="strip"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP
-if test -n "$ac_ct_STRIP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5
-$as_echo "$ac_ct_STRIP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_STRIP" = x; then
- STRIP=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- STRIP=$ac_ct_STRIP
- fi
-else
- STRIP="$ac_cv_prog_STRIP"
-fi
-
-test -z "$STRIP" && STRIP=:
-
-
-
-
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args.
-set dummy ${ac_tool_prefix}ranlib; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_RANLIB+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$RANLIB"; then
- ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-RANLIB=$ac_cv_prog_RANLIB
-if test -n "$RANLIB"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5
-$as_echo "$RANLIB" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_RANLIB"; then
- ac_ct_RANLIB=$RANLIB
- # Extract the first word of "ranlib", so it can be a program name with args.
-set dummy ranlib; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_RANLIB+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_RANLIB"; then
- ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_RANLIB="ranlib"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB
-if test -n "$ac_ct_RANLIB"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5
-$as_echo "$ac_ct_RANLIB" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_RANLIB" = x; then
- RANLIB=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- RANLIB=$ac_ct_RANLIB
- fi
-else
- RANLIB="$ac_cv_prog_RANLIB"
-fi
-
-test -z "$RANLIB" && RANLIB=:
-
-
-
-
-
-
-# Determine commands to create old-style static archives.
-old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs'
-old_postinstall_cmds='chmod 644 $oldlib'
-old_postuninstall_cmds=
-
-if test -n "$RANLIB"; then
- case $host_os in
- openbsd*)
- old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$oldlib"
- ;;
- *)
- old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$oldlib"
- ;;
- esac
- old_archive_cmds="$old_archive_cmds~\$RANLIB \$oldlib"
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# If no C compiler was specified, use CC.
-LTCC=${LTCC-"$CC"}
-
-# If no C compiler flags were specified, use CFLAGS.
-LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
-
-# Allow CC to be a program name with arguments.
-compiler=$CC
-
-
-# Check for command to grab the raw symbol name followed by C symbol from nm.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking command to parse $NM output from $compiler object" >&5
-$as_echo_n "checking command to parse $NM output from $compiler object... " >&6; }
-if test "${lt_cv_sys_global_symbol_pipe+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
-
-# These are sane defaults that work on at least a few old systems.
-# [They come from Ultrix. What could be older than Ultrix?!! ;)]
-
-# Character class describing NM global symbol codes.
-symcode='[BCDEGRST]'
-
-# Regexp to match symbols that can be accessed directly from C.
-sympat='\([_A-Za-z][_A-Za-z0-9]*\)'
-
-# Define system-specific variables.
-case $host_os in
-aix*)
- symcode='[BCDT]'
- ;;
-cygwin* | mingw* | pw32* | cegcc*)
- symcode='[ABCDGISTW]'
- ;;
-hpux*)
- if test "$host_cpu" = ia64; then
- symcode='[ABCDEGRST]'
- fi
- ;;
-irix* | nonstopux*)
- symcode='[BCDEGRST]'
- ;;
-osf*)
- symcode='[BCDEGQRST]'
- ;;
-solaris*)
- symcode='[BDRT]'
- ;;
-sco3.2v5*)
- symcode='[DT]'
- ;;
-sysv4.2uw2*)
- symcode='[DT]'
- ;;
-sysv5* | sco5v6* | unixware* | OpenUNIX*)
- symcode='[ABDT]'
- ;;
-sysv4)
- symcode='[DFNSTU]'
- ;;
-esac
-
-# If we're using GNU nm, then use its standard symbol codes.
-case `$NM -V 2>&1` in
-*GNU* | *'with BFD'*)
- symcode='[ABCDGIRSTW]' ;;
-esac
-
-# Transform an extracted symbol line into a proper C declaration.
-# Some systems (esp. on ia64) link data and code symbols differently,
-# so use this general approach.
-lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'"
-
-# Transform an extracted symbol line into symbol name and symbol address
-lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\) $/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"\2\", (void *) \&\2},/p'"
-lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([^ ]*\) $/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \(lib[^ ]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"lib\2\", (void *) \&\2},/p'"
-
-# Handle CRLF in mingw tool chain
-opt_cr=
-case $build_os in
-mingw*)
- opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp
- ;;
-esac
-
-# Try without a prefix underscore, then with it.
-for ac_symprfx in "" "_"; do
-
- # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol.
- symxfrm="\\1 $ac_symprfx\\2 \\2"
-
- # Write the raw and C identifiers.
- if test "$lt_cv_nm_interface" = "MS dumpbin"; then
- # Fake it for dumpbin and say T for any non-static function
- # and D for any global variable.
- # Also find C++ and __fastcall symbols from MSVC++,
- # which start with @ or ?.
- lt_cv_sys_global_symbol_pipe="$AWK '"\
-" {last_section=section; section=\$ 3};"\
-" /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\
-" \$ 0!~/External *\|/{next};"\
-" / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\
-" {if(hide[section]) next};"\
-" {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\
-" {split(\$ 0, a, /\||\r/); split(a[2], s)};"\
-" s[1]~/^[@?]/{print s[1], s[1]; next};"\
-" s[1]~prfx {split(s[1],t,\"@\"); print t[1], substr(t[1],length(prfx))}"\
-" ' prfx=^$ac_symprfx"
- else
- lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'"
- fi
-
- # Check to see that the pipe works correctly.
- pipe_works=no
-
- rm -f conftest*
- cat > conftest.$ac_ext <<_LT_EOF
-#ifdef __cplusplus
-extern "C" {
-#endif
-char nm_test_var;
-void nm_test_func(void);
-void nm_test_func(void){}
-#ifdef __cplusplus
-}
-#endif
-int main(){nm_test_var='a';nm_test_func();return(0);}
-_LT_EOF
-
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- # Now try to grab the symbols.
- nlist=conftest.nm
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$NM conftest.$ac_objext \| $lt_cv_sys_global_symbol_pipe \> $nlist\""; } >&5
- (eval $NM conftest.$ac_objext \| $lt_cv_sys_global_symbol_pipe \> $nlist) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && test -s "$nlist"; then
- # Try sorting and uniquifying the output.
- if sort "$nlist" | uniq > "$nlist"T; then
- mv -f "$nlist"T "$nlist"
- else
- rm -f "$nlist"T
- fi
-
- # Make sure that we snagged all the symbols we need.
- if $GREP ' nm_test_var$' "$nlist" >/dev/null; then
- if $GREP ' nm_test_func$' "$nlist" >/dev/null; then
- cat <<_LT_EOF > conftest.$ac_ext
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-_LT_EOF
- # Now generate the symbol file.
- eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext'
-
- cat <<_LT_EOF >> conftest.$ac_ext
-
-/* The mapping between symbol names and symbols. */
-const struct {
- const char *name;
- void *address;
-}
-lt__PROGRAM__LTX_preloaded_symbols[] =
-{
- { "@PROGRAM@", (void *) 0 },
-_LT_EOF
- $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext
- cat <<\_LT_EOF >> conftest.$ac_ext
- {0, (void *) 0}
-};
-
-/* This works around a problem in FreeBSD linker */
-#ifdef FREEBSD_WORKAROUND
-static const void *lt_preloaded_setup() {
- return lt__PROGRAM__LTX_preloaded_symbols;
-}
-#endif
-
-#ifdef __cplusplus
-}
-#endif
-_LT_EOF
- # Now try linking the two files.
- mv conftest.$ac_objext conftstm.$ac_objext
- lt_save_LIBS="$LIBS"
- lt_save_CFLAGS="$CFLAGS"
- LIBS="conftstm.$ac_objext"
- CFLAGS="$CFLAGS$lt_prog_compiler_no_builtin_flag"
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5
- (eval $ac_link) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && test -s conftest${ac_exeext}; then
- pipe_works=yes
- fi
- LIBS="$lt_save_LIBS"
- CFLAGS="$lt_save_CFLAGS"
- else
- echo "cannot find nm_test_func in $nlist" >&5
- fi
- else
- echo "cannot find nm_test_var in $nlist" >&5
- fi
- else
- echo "cannot run $lt_cv_sys_global_symbol_pipe" >&5
- fi
- else
- echo "$progname: failed program was:" >&5
- cat conftest.$ac_ext >&5
- fi
- rm -rf conftest* conftst*
-
- # Do not use the global_symbol_pipe unless it works.
- if test "$pipe_works" = yes; then
- break
- else
- lt_cv_sys_global_symbol_pipe=
- fi
-done
-
-fi
-
-if test -z "$lt_cv_sys_global_symbol_pipe"; then
- lt_cv_sys_global_symbol_to_cdecl=
-fi
-if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: failed" >&5
-$as_echo "failed" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: ok" >&5
-$as_echo "ok" >&6; }
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# Check whether --enable-libtool-lock was given.
-if test "${enable_libtool_lock+set}" = set; then :
- enableval=$enable_libtool_lock;
-fi
-
-test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes
-
-# Some flags need to be propagated to the compiler or linker for good
-# libtool support.
-case $host in
-ia64-*-hpux*)
- # Find out which ABI we are using.
- echo 'int i;' > conftest.$ac_ext
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- case `/usr/bin/file conftest.$ac_objext` in
- *ELF-32*)
- HPUX_IA64_MODE="32"
- ;;
- *ELF-64*)
- HPUX_IA64_MODE="64"
- ;;
- esac
- fi
- rm -rf conftest*
- ;;
-*-*-irix6*)
- # Find out which ABI we are using.
- echo '#line 6506 "configure"' > conftest.$ac_ext
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- if test "$lt_cv_prog_gnu_ld" = yes; then
- case `/usr/bin/file conftest.$ac_objext` in
- *32-bit*)
- LD="${LD-ld} -melf32bsmip"
- ;;
- *N32*)
- LD="${LD-ld} -melf32bmipn32"
- ;;
- *64-bit*)
- LD="${LD-ld} -melf64bmip"
- ;;
- esac
- else
- case `/usr/bin/file conftest.$ac_objext` in
- *32-bit*)
- LD="${LD-ld} -32"
- ;;
- *N32*)
- LD="${LD-ld} -n32"
- ;;
- *64-bit*)
- LD="${LD-ld} -64"
- ;;
- esac
- fi
- fi
- rm -rf conftest*
- ;;
-
-x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \
-s390*-*linux*|s390*-*tpf*|sparc*-*linux*)
- # Find out which ABI we are using.
- echo 'int i;' > conftest.$ac_ext
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- case `/usr/bin/file conftest.o` in
- *32-bit*)
- case $host in
- x86_64-*kfreebsd*-gnu)
- LD="${LD-ld} -m elf_i386_fbsd"
- ;;
- x86_64-*linux*)
- LD="${LD-ld} -m elf_i386"
- ;;
- ppc64-*linux*|powerpc64-*linux*)
- LD="${LD-ld} -m elf32ppclinux"
- ;;
- s390x-*linux*)
- LD="${LD-ld} -m elf_s390"
- ;;
- sparc64-*linux*)
- LD="${LD-ld} -m elf32_sparc"
- ;;
- esac
- ;;
- *64-bit*)
- case $host in
- x86_64-*kfreebsd*-gnu)
- LD="${LD-ld} -m elf_x86_64_fbsd"
- ;;
- x86_64-*linux*)
- LD="${LD-ld} -m elf_x86_64"
- ;;
- ppc*-*linux*|powerpc*-*linux*)
- LD="${LD-ld} -m elf64ppc"
- ;;
- s390*-*linux*|s390*-*tpf*)
- LD="${LD-ld} -m elf64_s390"
- ;;
- sparc*-*linux*)
- LD="${LD-ld} -m elf64_sparc"
- ;;
- esac
- ;;
- esac
- fi
- rm -rf conftest*
- ;;
-
-*-*-sco3.2v5*)
- # On SCO OpenServer 5, we need -belf to get full-featured binaries.
- SAVE_CFLAGS="$CFLAGS"
- CFLAGS="$CFLAGS -belf"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler needs -belf" >&5
-$as_echo_n "checking whether the C compiler needs -belf... " >&6; }
-if test "${lt_cv_cc_needs_belf+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- lt_cv_cc_needs_belf=yes
-else
- lt_cv_cc_needs_belf=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_cc_needs_belf" >&5
-$as_echo "$lt_cv_cc_needs_belf" >&6; }
- if test x"$lt_cv_cc_needs_belf" != x"yes"; then
- # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf
- CFLAGS="$SAVE_CFLAGS"
- fi
- ;;
-sparc*-*solaris*)
- # Find out which ABI we are using.
- echo 'int i;' > conftest.$ac_ext
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- case `/usr/bin/file conftest.o` in
- *64-bit*)
- case $lt_cv_prog_gnu_ld in
- yes*) LD="${LD-ld} -m elf64_sparc" ;;
- *)
- if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then
- LD="${LD-ld} -64"
- fi
- ;;
- esac
- ;;
- esac
- fi
- rm -rf conftest*
- ;;
-esac
-
-need_locks="$enable_libtool_lock"
-
-
- case $host_os in
- rhapsody* | darwin*)
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}dsymutil", so it can be a program name with args.
-set dummy ${ac_tool_prefix}dsymutil; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_DSYMUTIL+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$DSYMUTIL"; then
- ac_cv_prog_DSYMUTIL="$DSYMUTIL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_DSYMUTIL="${ac_tool_prefix}dsymutil"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-DSYMUTIL=$ac_cv_prog_DSYMUTIL
-if test -n "$DSYMUTIL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DSYMUTIL" >&5
-$as_echo "$DSYMUTIL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_DSYMUTIL"; then
- ac_ct_DSYMUTIL=$DSYMUTIL
- # Extract the first word of "dsymutil", so it can be a program name with args.
-set dummy dsymutil; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_DSYMUTIL+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_DSYMUTIL"; then
- ac_cv_prog_ac_ct_DSYMUTIL="$ac_ct_DSYMUTIL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_DSYMUTIL="dsymutil"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_DSYMUTIL=$ac_cv_prog_ac_ct_DSYMUTIL
-if test -n "$ac_ct_DSYMUTIL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DSYMUTIL" >&5
-$as_echo "$ac_ct_DSYMUTIL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_DSYMUTIL" = x; then
- DSYMUTIL=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DSYMUTIL=$ac_ct_DSYMUTIL
- fi
-else
- DSYMUTIL="$ac_cv_prog_DSYMUTIL"
-fi
-
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}nmedit", so it can be a program name with args.
-set dummy ${ac_tool_prefix}nmedit; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_NMEDIT+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$NMEDIT"; then
- ac_cv_prog_NMEDIT="$NMEDIT" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_NMEDIT="${ac_tool_prefix}nmedit"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-NMEDIT=$ac_cv_prog_NMEDIT
-if test -n "$NMEDIT"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $NMEDIT" >&5
-$as_echo "$NMEDIT" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_NMEDIT"; then
- ac_ct_NMEDIT=$NMEDIT
- # Extract the first word of "nmedit", so it can be a program name with args.
-set dummy nmedit; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_NMEDIT+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_NMEDIT"; then
- ac_cv_prog_ac_ct_NMEDIT="$ac_ct_NMEDIT" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_NMEDIT="nmedit"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_NMEDIT=$ac_cv_prog_ac_ct_NMEDIT
-if test -n "$ac_ct_NMEDIT"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_NMEDIT" >&5
-$as_echo "$ac_ct_NMEDIT" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_NMEDIT" = x; then
- NMEDIT=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- NMEDIT=$ac_ct_NMEDIT
- fi
-else
- NMEDIT="$ac_cv_prog_NMEDIT"
-fi
-
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}lipo", so it can be a program name with args.
-set dummy ${ac_tool_prefix}lipo; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_LIPO+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$LIPO"; then
- ac_cv_prog_LIPO="$LIPO" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_LIPO="${ac_tool_prefix}lipo"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-LIPO=$ac_cv_prog_LIPO
-if test -n "$LIPO"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LIPO" >&5
-$as_echo "$LIPO" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_LIPO"; then
- ac_ct_LIPO=$LIPO
- # Extract the first word of "lipo", so it can be a program name with args.
-set dummy lipo; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_LIPO+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_LIPO"; then
- ac_cv_prog_ac_ct_LIPO="$ac_ct_LIPO" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_LIPO="lipo"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_LIPO=$ac_cv_prog_ac_ct_LIPO
-if test -n "$ac_ct_LIPO"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_LIPO" >&5
-$as_echo "$ac_ct_LIPO" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_LIPO" = x; then
- LIPO=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- LIPO=$ac_ct_LIPO
- fi
-else
- LIPO="$ac_cv_prog_LIPO"
-fi
-
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}otool", so it can be a program name with args.
-set dummy ${ac_tool_prefix}otool; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_OTOOL+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$OTOOL"; then
- ac_cv_prog_OTOOL="$OTOOL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_OTOOL="${ac_tool_prefix}otool"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-OTOOL=$ac_cv_prog_OTOOL
-if test -n "$OTOOL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL" >&5
-$as_echo "$OTOOL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_OTOOL"; then
- ac_ct_OTOOL=$OTOOL
- # Extract the first word of "otool", so it can be a program name with args.
-set dummy otool; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_OTOOL+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_OTOOL"; then
- ac_cv_prog_ac_ct_OTOOL="$ac_ct_OTOOL" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_OTOOL="otool"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_OTOOL=$ac_cv_prog_ac_ct_OTOOL
-if test -n "$ac_ct_OTOOL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL" >&5
-$as_echo "$ac_ct_OTOOL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_OTOOL" = x; then
- OTOOL=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- OTOOL=$ac_ct_OTOOL
- fi
-else
- OTOOL="$ac_cv_prog_OTOOL"
-fi
-
- if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}otool64", so it can be a program name with args.
-set dummy ${ac_tool_prefix}otool64; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_OTOOL64+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$OTOOL64"; then
- ac_cv_prog_OTOOL64="$OTOOL64" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_OTOOL64="${ac_tool_prefix}otool64"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-OTOOL64=$ac_cv_prog_OTOOL64
-if test -n "$OTOOL64"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL64" >&5
-$as_echo "$OTOOL64" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_OTOOL64"; then
- ac_ct_OTOOL64=$OTOOL64
- # Extract the first word of "otool64", so it can be a program name with args.
-set dummy otool64; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_OTOOL64+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_OTOOL64"; then
- ac_cv_prog_ac_ct_OTOOL64="$ac_ct_OTOOL64" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_OTOOL64="otool64"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_OTOOL64=$ac_cv_prog_ac_ct_OTOOL64
-if test -n "$ac_ct_OTOOL64"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL64" >&5
-$as_echo "$ac_ct_OTOOL64" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_ct_OTOOL64" = x; then
- OTOOL64=":"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- OTOOL64=$ac_ct_OTOOL64
- fi
-else
- OTOOL64="$ac_cv_prog_OTOOL64"
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -single_module linker flag" >&5
-$as_echo_n "checking for -single_module linker flag... " >&6; }
-if test "${lt_cv_apple_cc_single_mod+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_apple_cc_single_mod=no
- if test -z "${LT_MULTI_MODULE}"; then
- # By default we will add the -single_module flag. You can override
- # by either setting the environment variable LT_MULTI_MODULE
- # non-empty at configure time, or by adding -multi_module to the
- # link flags.
- rm -rf libconftest.dylib*
- echo "int foo(void){return 1;}" > conftest.c
- echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \
--dynamiclib -Wl,-single_module conftest.c" >&5
- $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \
- -dynamiclib -Wl,-single_module conftest.c 2>conftest.err
- _lt_result=$?
- if test -f libconftest.dylib && test ! -s conftest.err && test $_lt_result = 0; then
- lt_cv_apple_cc_single_mod=yes
- else
- cat conftest.err >&5
- fi
- rm -rf libconftest.dylib*
- rm -f conftest.*
- fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_apple_cc_single_mod" >&5
-$as_echo "$lt_cv_apple_cc_single_mod" >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -exported_symbols_list linker flag" >&5
-$as_echo_n "checking for -exported_symbols_list linker flag... " >&6; }
-if test "${lt_cv_ld_exported_symbols_list+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_ld_exported_symbols_list=no
- save_LDFLAGS=$LDFLAGS
- echo "_main" > conftest.sym
- LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- lt_cv_ld_exported_symbols_list=yes
-else
- lt_cv_ld_exported_symbols_list=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LDFLAGS="$save_LDFLAGS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_exported_symbols_list" >&5
-$as_echo "$lt_cv_ld_exported_symbols_list" >&6; }
- case $host_os in
- rhapsody* | darwin1.[012])
- _lt_dar_allow_undefined='${wl}-undefined ${wl}suppress' ;;
- darwin1.*)
- _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;;
- darwin*) # darwin 5.x on
- # if running on 10.5 or later, the deployment target defaults
- # to the OS version, if on x86, and 10.4, the deployment
- # target defaults to 10.4. Don't you love it?
- case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in
- 10.0,*86*-darwin8*|10.0,*-darwin[91]*)
- _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;;
- 10.[012]*)
- _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;;
- 10.*)
- _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;;
- esac
- ;;
- esac
- if test "$lt_cv_apple_cc_single_mod" = "yes"; then
- _lt_dar_single_mod='$single_module'
- fi
- if test "$lt_cv_ld_exported_symbols_list" = "yes"; then
- _lt_dar_export_syms=' ${wl}-exported_symbols_list,$output_objdir/${libname}-symbols.expsym'
- else
- _lt_dar_export_syms='~$NMEDIT -s $output_objdir/${libname}-symbols.expsym ${lib}'
- fi
- if test "$DSYMUTIL" != ":"; then
- _lt_dsymutil='~$DSYMUTIL $lib || :'
- else
- _lt_dsymutil=
- fi
- ;;
- esac
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5
-$as_echo_n "checking how to run the C preprocessor... " >&6; }
-# On Suns, sometimes $CPP names a directory.
-if test -n "$CPP" && test -d "$CPP"; then
- CPP=
-fi
-if test -z "$CPP"; then
- if test "${ac_cv_prog_CPP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- # Double quotes because CPP needs to be expanded
- for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp"
- do
- ac_preproc_ok=false
-for ac_c_preproc_warn_flag in '' yes
-do
- # Use a header file that comes with gcc, so configuring glibc
- # with a fresh cross-compiler works.
- # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
- # <limits.h> exists even on freestanding compilers.
- # On the NeXT, cc -E runs the code through the compiler's parser,
- # not just through cpp. "Syntax error" is here to catch this case.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
- Syntax error
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
-
-else
- # Broken: fails on valid input.
-continue
-fi
-rm -f conftest.err conftest.$ac_ext
-
- # OK, works on sane cases. Now check whether nonexistent headers
- # can be detected and how.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ac_nonexistent.h>
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- # Broken: success on invalid input.
-continue
-else
- # Passes both tests.
-ac_preproc_ok=:
-break
-fi
-rm -f conftest.err conftest.$ac_ext
-
-done
-# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.err conftest.$ac_ext
-if $ac_preproc_ok; then :
- break
-fi
-
- done
- ac_cv_prog_CPP=$CPP
-
-fi
- CPP=$ac_cv_prog_CPP
-else
- ac_cv_prog_CPP=$CPP
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5
-$as_echo "$CPP" >&6; }
-ac_preproc_ok=false
-for ac_c_preproc_warn_flag in '' yes
-do
- # Use a header file that comes with gcc, so configuring glibc
- # with a fresh cross-compiler works.
- # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
- # <limits.h> exists even on freestanding compilers.
- # On the NeXT, cc -E runs the code through the compiler's parser,
- # not just through cpp. "Syntax error" is here to catch this case.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
- Syntax error
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
-
-else
- # Broken: fails on valid input.
-continue
-fi
-rm -f conftest.err conftest.$ac_ext
-
- # OK, works on sane cases. Now check whether nonexistent headers
- # can be detected and how.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ac_nonexistent.h>
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
- # Broken: success on invalid input.
-continue
-else
- # Passes both tests.
-ac_preproc_ok=:
-break
-fi
-rm -f conftest.err conftest.$ac_ext
-
-done
-# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.err conftest.$ac_ext
-if $ac_preproc_ok; then :
-
-else
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error "C preprocessor \"$CPP\" fails sanity check
-See \`config.log' for more details." "$LINENO" 5; }
-fi
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5
-$as_echo_n "checking for ANSI C header files... " >&6; }
-if test "${ac_cv_header_stdc+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdlib.h>
-#include <stdarg.h>
-#include <string.h>
-#include <float.h>
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- ac_cv_header_stdc=yes
-else
- ac_cv_header_stdc=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-if test $ac_cv_header_stdc = yes; then
- # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <string.h>
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "memchr" >/dev/null 2>&1; then :
-
-else
- ac_cv_header_stdc=no
-fi
-rm -f conftest*
-
-fi
-
-if test $ac_cv_header_stdc = yes; then
- # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <stdlib.h>
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- $EGREP "free" >/dev/null 2>&1; then :
-
-else
- ac_cv_header_stdc=no
-fi
-rm -f conftest*
-
-fi
-
-if test $ac_cv_header_stdc = yes; then
- # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi.
- if test "$cross_compiling" = yes; then :
- :
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ctype.h>
-#include <stdlib.h>
-#if ((' ' & 0x0FF) == 0x020)
-# define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
-# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
-#else
-# define ISLOWER(c) \
- (('a' <= (c) && (c) <= 'i') \
- || ('j' <= (c) && (c) <= 'r') \
- || ('s' <= (c) && (c) <= 'z'))
-# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c))
-#endif
-
-#define XOR(e, f) (((e) && !(f)) || (!(e) && (f)))
-int
-main ()
-{
- int i;
- for (i = 0; i < 256; i++)
- if (XOR (islower (i), ISLOWER (i))
- || toupper (i) != TOUPPER (i))
- return 2;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
-
-else
- ac_cv_header_stdc=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
- conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5
-$as_echo "$ac_cv_header_stdc" >&6; }
-if test $ac_cv_header_stdc = yes; then
-
-$as_echo "#define STDC_HEADERS 1" >>confdefs.h
-
-fi
-
-# On IRIX 5.3, sys/types and inttypes.h are conflicting.
-for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \
- inttypes.h stdint.h unistd.h
-do :
- as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
-"
-eval as_val=\$$as_ac_Header
- if test "x$as_val" = x""yes; then :
- cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-
-done
-
-
-for ac_header in dlfcn.h
-do :
- ac_fn_c_check_header_compile "$LINENO" "dlfcn.h" "ac_cv_header_dlfcn_h" "$ac_includes_default
-"
-if test "x$ac_cv_header_dlfcn_h" = x""yes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_DLFCN_H 1
-_ACEOF
-
-fi
-
-done
-
-
-
-ac_ext=cpp
-ac_cpp='$CXXCPP $CPPFLAGS'
-ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_cxx_compiler_gnu
-if test -z "$CXX"; then
- if test -n "$CCC"; then
- CXX=$CCC
- else
- if test -n "$ac_tool_prefix"; then
- for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl.exe FCC KCC RCC xlC_r xlC
- do
- # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
-set dummy $ac_tool_prefix$ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_CXX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$CXX"; then
- ac_cv_prog_CXX="$CXX" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_CXX="$ac_tool_prefix$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-CXX=$ac_cv_prog_CXX
-if test -n "$CXX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5
-$as_echo "$CXX" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$CXX" && break
- done
-fi
-if test -z "$CXX"; then
- ac_ct_CXX=$CXX
- for ac_prog in g++ c++ gpp aCC CC cxx cc++ cl.exe FCC KCC RCC xlC_r xlC
-do
- # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_prog_ac_ct_CXX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -n "$ac_ct_CXX"; then
- ac_cv_prog_ac_ct_CXX="$ac_ct_CXX" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_prog_ac_ct_CXX="$ac_prog"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_CXX=$ac_cv_prog_ac_ct_CXX
-if test -n "$ac_ct_CXX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5
-$as_echo "$ac_ct_CXX" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- test -n "$ac_ct_CXX" && break
-done
-
- if test "x$ac_ct_CXX" = x; then
- CXX="g++"
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- CXX=$ac_ct_CXX
- fi
-fi
-
- fi
-fi
-# Provide some information about the compiler.
-$as_echo "$as_me:${as_lineno-$LINENO}: checking for C++ compiler version" >&5
-set X $ac_compile
-ac_compiler=$2
-for ac_option in --version -v -V -qversion; do
- { { ac_try="$ac_compiler $ac_option >&5"
-case "(($ac_try" in
- *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
- *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
- (eval "$ac_compiler $ac_option >&5") 2>conftest.err
- ac_status=$?
- if test -s conftest.err; then
- sed '10a\
-... rest of stderr output deleted ...
- 10q' conftest.err >conftest.er1
- cat conftest.er1 >&5
- fi
- rm -f conftest.er1 conftest.err
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
-done
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C++ compiler" >&5
-$as_echo_n "checking whether we are using the GNU C++ compiler... " >&6; }
-if test "${ac_cv_cxx_compiler_gnu+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-#ifndef __GNUC__
- choke me
-#endif
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_cxx_try_compile "$LINENO"; then :
- ac_compiler_gnu=yes
-else
- ac_compiler_gnu=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-ac_cv_cxx_compiler_gnu=$ac_compiler_gnu
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_cxx_compiler_gnu" >&5
-$as_echo "$ac_cv_cxx_compiler_gnu" >&6; }
-if test $ac_compiler_gnu = yes; then
- GXX=yes
-else
- GXX=
-fi
-ac_test_CXXFLAGS=${CXXFLAGS+set}
-ac_save_CXXFLAGS=$CXXFLAGS
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CXX accepts -g" >&5
-$as_echo_n "checking whether $CXX accepts -g... " >&6; }
-if test "${ac_cv_prog_cxx_g+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_save_cxx_werror_flag=$ac_cxx_werror_flag
- ac_cxx_werror_flag=yes
- ac_cv_prog_cxx_g=no
- CXXFLAGS="-g"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_cxx_try_compile "$LINENO"; then :
- ac_cv_prog_cxx_g=yes
-else
- CXXFLAGS=""
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_cxx_try_compile "$LINENO"; then :
-
-else
- ac_cxx_werror_flag=$ac_save_cxx_werror_flag
- CXXFLAGS="-g"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_cxx_try_compile "$LINENO"; then :
- ac_cv_prog_cxx_g=yes
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
- ac_cxx_werror_flag=$ac_save_cxx_werror_flag
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_g" >&5
-$as_echo "$ac_cv_prog_cxx_g" >&6; }
-if test "$ac_test_CXXFLAGS" = set; then
- CXXFLAGS=$ac_save_CXXFLAGS
-elif test $ac_cv_prog_cxx_g = yes; then
- if test "$GXX" = yes; then
- CXXFLAGS="-g -O2"
- else
- CXXFLAGS="-g"
- fi
-else
- if test "$GXX" = yes; then
- CXXFLAGS="-O2"
- else
- CXXFLAGS=
- fi
-fi
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-depcc="$CXX" am_compiler_list=
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5
-$as_echo_n "checking dependency style of $depcc... " >&6; }
-if test "${am_cv_CXX_dependencies_compiler_type+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then
- # We make a subdir and do the tests there. Otherwise we can end up
- # making bogus files that we don't know about and never remove. For
- # instance it was reported that on HP-UX the gcc test will end up
- # making a dummy file named `D' -- because `-MD' means `put the output
- # in D'.
- mkdir conftest.dir
- # Copy depcomp to subdir because otherwise we won't find it if we're
- # using a relative directory.
- cp "$am_depcomp" conftest.dir
- cd conftest.dir
- # We will build objects and dependencies in a subdirectory because
- # it helps to detect inapplicable dependency modes. For instance
- # both Tru64's cc and ICC support -MD to output dependencies as a
- # side effect of compilation, but ICC will put the dependencies in
- # the current directory while Tru64 will put them in the object
- # directory.
- mkdir sub
-
- am_cv_CXX_dependencies_compiler_type=none
- if test "$am_compiler_list" = ""; then
- am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp`
- fi
- am__universal=false
- case " $depcc " in #(
- *\ -arch\ *\ -arch\ *) am__universal=true ;;
- esac
-
- for depmode in $am_compiler_list; do
- # Setup a source with many dependencies, because some compilers
- # like to wrap large dependency lists on column 80 (with \), and
- # we should not choose a depcomp mode which is confused by this.
- #
- # We need to recreate these files for each test, as the compiler may
- # overwrite some of them when testing with obscure command lines.
- # This happens at least with the AIX C compiler.
- : > sub/conftest.c
- for i in 1 2 3 4 5 6; do
- echo '#include "conftst'$i'.h"' >> sub/conftest.c
- # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with
- # Solaris 8's {/usr,}/bin/sh.
- touch sub/conftst$i.h
- done
- echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf
-
- # We check with `-c' and `-o' for the sake of the "dashmstdout"
- # mode. It turns out that the SunPro C++ compiler does not properly
- # handle `-M -o', and we need to detect this. Also, some Intel
- # versions had trouble with output in subdirs
- am__obj=sub/conftest.${OBJEXT-o}
- am__minus_obj="-o $am__obj"
- case $depmode in
- gcc)
- # This depmode causes a compiler race in universal mode.
- test "$am__universal" = false || continue
- ;;
- nosideeffect)
- # after this tag, mechanisms are not by side-effect, so they'll
- # only be used when explicitly requested
- if test "x$enable_dependency_tracking" = xyes; then
- continue
- else
- break
- fi
- ;;
- msvisualcpp | msvcmsys)
- # This compiler won't grok `-c -o', but also, the minuso test has
- # not run yet. These depmodes are late enough in the game, and
- # so weak that their functioning should not be impacted.
- am__obj=conftest.${OBJEXT-o}
- am__minus_obj=
- ;;
- none) break ;;
- esac
- if depmode=$depmode \
- source=sub/conftest.c object=$am__obj \
- depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \
- $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \
- >/dev/null 2>conftest.err &&
- grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 &&
- grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 &&
- grep $am__obj sub/conftest.Po > /dev/null 2>&1 &&
- ${MAKE-make} -s -f confmf > /dev/null 2>&1; then
- # icc doesn't choke on unknown options, it will just issue warnings
- # or remarks (even with -Werror). So we grep stderr for any message
- # that says an option was ignored or not supported.
- # When given -MP, icc 7.0 and 7.1 complain thusly:
- # icc: Command line warning: ignoring option '-M'; no argument required
- # The diagnosis changed in icc 8.0:
- # icc: Command line remark: option '-MP' not supported
- if (grep 'ignoring option' conftest.err ||
- grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else
- am_cv_CXX_dependencies_compiler_type=$depmode
- break
- fi
- fi
- done
-
- cd ..
- rm -rf conftest.dir
-else
- am_cv_CXX_dependencies_compiler_type=none
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5
-$as_echo "$am_cv_CXX_dependencies_compiler_type" >&6; }
-CXXDEPMODE=depmode=$am_cv_CXX_dependencies_compiler_type
-
- if
- test "x$enable_dependency_tracking" != xno \
- && test "$am_cv_CXX_dependencies_compiler_type" = gcc3; then
- am__fastdepCXX_TRUE=
- am__fastdepCXX_FALSE='#'
-else
- am__fastdepCXX_TRUE='#'
- am__fastdepCXX_FALSE=
-fi
-
-
-if test -n "$CXX" && ( test "X$CXX" != "Xno" &&
- ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) ||
- (test "X$CXX" != "Xg++"))) ; then
- ac_ext=cpp
-ac_cpp='$CXXCPP $CPPFLAGS'
-ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_cxx_compiler_gnu
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C++ preprocessor" >&5
-$as_echo_n "checking how to run the C++ preprocessor... " >&6; }
-if test -z "$CXXCPP"; then
- if test "${ac_cv_prog_CXXCPP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- # Double quotes because CXXCPP needs to be expanded
- for CXXCPP in "$CXX -E" "/lib/cpp"
- do
- ac_preproc_ok=false
-for ac_cxx_preproc_warn_flag in '' yes
-do
- # Use a header file that comes with gcc, so configuring glibc
- # with a fresh cross-compiler works.
- # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
- # <limits.h> exists even on freestanding compilers.
- # On the NeXT, cc -E runs the code through the compiler's parser,
- # not just through cpp. "Syntax error" is here to catch this case.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
- Syntax error
-_ACEOF
-if ac_fn_cxx_try_cpp "$LINENO"; then :
-
-else
- # Broken: fails on valid input.
-continue
-fi
-rm -f conftest.err conftest.$ac_ext
-
- # OK, works on sane cases. Now check whether nonexistent headers
- # can be detected and how.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ac_nonexistent.h>
-_ACEOF
-if ac_fn_cxx_try_cpp "$LINENO"; then :
- # Broken: success on invalid input.
-continue
-else
- # Passes both tests.
-ac_preproc_ok=:
-break
-fi
-rm -f conftest.err conftest.$ac_ext
-
-done
-# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.err conftest.$ac_ext
-if $ac_preproc_ok; then :
- break
-fi
-
- done
- ac_cv_prog_CXXCPP=$CXXCPP
-
-fi
- CXXCPP=$ac_cv_prog_CXXCPP
-else
- ac_cv_prog_CXXCPP=$CXXCPP
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXXCPP" >&5
-$as_echo "$CXXCPP" >&6; }
-ac_preproc_ok=false
-for ac_cxx_preproc_warn_flag in '' yes
-do
- # Use a header file that comes with gcc, so configuring glibc
- # with a fresh cross-compiler works.
- # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
- # <limits.h> exists even on freestanding compilers.
- # On the NeXT, cc -E runs the code through the compiler's parser,
- # not just through cpp. "Syntax error" is here to catch this case.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
- Syntax error
-_ACEOF
-if ac_fn_cxx_try_cpp "$LINENO"; then :
-
-else
- # Broken: fails on valid input.
-continue
-fi
-rm -f conftest.err conftest.$ac_ext
-
- # OK, works on sane cases. Now check whether nonexistent headers
- # can be detected and how.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-#include <ac_nonexistent.h>
-_ACEOF
-if ac_fn_cxx_try_cpp "$LINENO"; then :
- # Broken: success on invalid input.
-continue
-else
- # Passes both tests.
-ac_preproc_ok=:
-break
-fi
-rm -f conftest.err conftest.$ac_ext
-
-done
-# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.err conftest.$ac_ext
-if $ac_preproc_ok; then :
-
-else
- { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-_lt_caught_CXX_error=yes; }
-fi
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-else
- _lt_caught_CXX_error=yes
-fi
-
-
-
-
-
-# Set options
-
-
-
- enable_dlopen=no
-
-
- enable_win32_dll=no
-
-
- # Check whether --enable-shared was given.
-if test "${enable_shared+set}" = set; then :
- enableval=$enable_shared; p=${PACKAGE-default}
- case $enableval in
- yes) enable_shared=yes ;;
- no) enable_shared=no ;;
- *)
- enable_shared=no
- # Look at the argument we got. We use all the common list separators.
- lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
- for pkg in $enableval; do
- IFS="$lt_save_ifs"
- if test "X$pkg" = "X$p"; then
- enable_shared=yes
- fi
- done
- IFS="$lt_save_ifs"
- ;;
- esac
-else
- enable_shared=yes
-fi
-
-
-
-
-
-
-
-
-
- # Check whether --enable-static was given.
-if test "${enable_static+set}" = set; then :
- enableval=$enable_static; p=${PACKAGE-default}
- case $enableval in
- yes) enable_static=yes ;;
- no) enable_static=no ;;
- *)
- enable_static=no
- # Look at the argument we got. We use all the common list separators.
- lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
- for pkg in $enableval; do
- IFS="$lt_save_ifs"
- if test "X$pkg" = "X$p"; then
- enable_static=yes
- fi
- done
- IFS="$lt_save_ifs"
- ;;
- esac
-else
- enable_static=yes
-fi
-
-
-
-
-
-
-
-
-
-
-# Check whether --with-pic was given.
-if test "${with_pic+set}" = set; then :
- withval=$with_pic; pic_mode="$withval"
-else
- pic_mode=default
-fi
-
-
-test -z "$pic_mode" && pic_mode=default
-
-
-
-
-
-
-
- # Check whether --enable-fast-install was given.
-if test "${enable_fast_install+set}" = set; then :
- enableval=$enable_fast_install; p=${PACKAGE-default}
- case $enableval in
- yes) enable_fast_install=yes ;;
- no) enable_fast_install=no ;;
- *)
- enable_fast_install=no
- # Look at the argument we got. We use all the common list separators.
- lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR,"
- for pkg in $enableval; do
- IFS="$lt_save_ifs"
- if test "X$pkg" = "X$p"; then
- enable_fast_install=yes
- fi
- done
- IFS="$lt_save_ifs"
- ;;
- esac
-else
- enable_fast_install=yes
-fi
-
-
-
-
-
-
-
-
-
-
-
-# This can be used to rebuild libtool when needed
-LIBTOOL_DEPS="$ltmain"
-
-# Always use our own libtool.
-LIBTOOL='$(SHELL) $(top_builddir)/libtool'
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-test -z "$LN_S" && LN_S="ln -s"
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-if test -n "${ZSH_VERSION+set}" ; then
- setopt NO_GLOB_SUBST
-fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for objdir" >&5
-$as_echo_n "checking for objdir... " >&6; }
-if test "${lt_cv_objdir+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- rm -f .libs 2>/dev/null
-mkdir .libs 2>/dev/null
-if test -d .libs; then
- lt_cv_objdir=.libs
-else
- # MS-DOS does not allow filenames that begin with a dot.
- lt_cv_objdir=_libs
-fi
-rmdir .libs 2>/dev/null
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_objdir" >&5
-$as_echo "$lt_cv_objdir" >&6; }
-objdir=$lt_cv_objdir
-
-
-
-
-
-cat >>confdefs.h <<_ACEOF
-#define LT_OBJDIR "$lt_cv_objdir/"
-_ACEOF
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-case $host_os in
-aix3*)
- # AIX sometimes has problems with the GCC collect2 program. For some
- # reason, if we set the COLLECT_NAMES environment variable, the problems
- # vanish in a puff of smoke.
- if test "X${COLLECT_NAMES+set}" != Xset; then
- COLLECT_NAMES=
- export COLLECT_NAMES
- fi
- ;;
-esac
-
-# Sed substitution that helps us do robust quoting. It backslashifies
-# metacharacters that are still active within double-quoted strings.
-sed_quote_subst='s/\(["`$\\]\)/\\\1/g'
-
-# Same as above, but do not quote variable references.
-double_quote_subst='s/\(["`\\]\)/\\\1/g'
-
-# Sed substitution to delay expansion of an escaped shell variable in a
-# double_quote_subst'ed string.
-delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g'
-
-# Sed substitution to delay expansion of an escaped single quote.
-delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g'
-
-# Sed substitution to avoid accidental globbing in evaled expressions
-no_glob_subst='s/\*/\\\*/g'
-
-# Global variables:
-ofile=libtool
-can_build_shared=yes
-
-# All known linkers require a `.a' archive for static linking (except MSVC,
-# which needs '.lib').
-libext=a
-
-with_gnu_ld="$lt_cv_prog_gnu_ld"
-
-old_CC="$CC"
-old_CFLAGS="$CFLAGS"
-
-# Set sane defaults for various variables
-test -z "$CC" && CC=cc
-test -z "$LTCC" && LTCC=$CC
-test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS
-test -z "$LD" && LD=ld
-test -z "$ac_objext" && ac_objext=o
-
-for cc_temp in $compiler""; do
- case $cc_temp in
- compile | *[\\/]compile | ccache | *[\\/]ccache ) ;;
- distcc | *[\\/]distcc | purify | *[\\/]purify ) ;;
- \-*) ;;
- *) break;;
- esac
-done
-cc_basename=`$ECHO "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"`
-
-
-# Only perform the check for file, if the check method requires it
-test -z "$MAGIC_CMD" && MAGIC_CMD=file
-case $deplibs_check_method in
-file_magic*)
- if test "$file_magic_cmd" = '$MAGIC_CMD'; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ${ac_tool_prefix}file" >&5
-$as_echo_n "checking for ${ac_tool_prefix}file... " >&6; }
-if test "${lt_cv_path_MAGIC_CMD+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $MAGIC_CMD in
-[\\/*] | ?:[\\/]*)
- lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path.
- ;;
-*)
- lt_save_MAGIC_CMD="$MAGIC_CMD"
- lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
- ac_dummy="/usr/bin$PATH_SEPARATOR$PATH"
- for ac_dir in $ac_dummy; do
- IFS="$lt_save_ifs"
- test -z "$ac_dir" && ac_dir=.
- if test -f $ac_dir/${ac_tool_prefix}file; then
- lt_cv_path_MAGIC_CMD="$ac_dir/${ac_tool_prefix}file"
- if test -n "$file_magic_test_file"; then
- case $deplibs_check_method in
- "file_magic "*)
- file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"`
- MAGIC_CMD="$lt_cv_path_MAGIC_CMD"
- if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null |
- $EGREP "$file_magic_regex" > /dev/null; then
- :
- else
- cat <<_LT_EOF 1>&2
-
-*** Warning: the command libtool uses to detect shared libraries,
-*** $file_magic_cmd, produces output that libtool cannot recognize.
-*** The result is that libtool may fail to recognize shared libraries
-*** as such. This will affect the creation of libtool libraries that
-*** depend on shared libraries, but programs linked with such libtool
-*** libraries will work regardless of this problem. Nevertheless, you
-*** may want to report the problem to your system manager and/or to
-*** bug-libtool at gnu.org
-
-_LT_EOF
- fi ;;
- esac
- fi
- break
- fi
- done
- IFS="$lt_save_ifs"
- MAGIC_CMD="$lt_save_MAGIC_CMD"
- ;;
-esac
-fi
-
-MAGIC_CMD="$lt_cv_path_MAGIC_CMD"
-if test -n "$MAGIC_CMD"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5
-$as_echo "$MAGIC_CMD" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-
-
-
-if test -z "$lt_cv_path_MAGIC_CMD"; then
- if test -n "$ac_tool_prefix"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for file" >&5
-$as_echo_n "checking for file... " >&6; }
-if test "${lt_cv_path_MAGIC_CMD+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $MAGIC_CMD in
-[\\/*] | ?:[\\/]*)
- lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path.
- ;;
-*)
- lt_save_MAGIC_CMD="$MAGIC_CMD"
- lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
- ac_dummy="/usr/bin$PATH_SEPARATOR$PATH"
- for ac_dir in $ac_dummy; do
- IFS="$lt_save_ifs"
- test -z "$ac_dir" && ac_dir=.
- if test -f $ac_dir/file; then
- lt_cv_path_MAGIC_CMD="$ac_dir/file"
- if test -n "$file_magic_test_file"; then
- case $deplibs_check_method in
- "file_magic "*)
- file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"`
- MAGIC_CMD="$lt_cv_path_MAGIC_CMD"
- if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null |
- $EGREP "$file_magic_regex" > /dev/null; then
- :
- else
- cat <<_LT_EOF 1>&2
-
-*** Warning: the command libtool uses to detect shared libraries,
-*** $file_magic_cmd, produces output that libtool cannot recognize.
-*** The result is that libtool may fail to recognize shared libraries
-*** as such. This will affect the creation of libtool libraries that
-*** depend on shared libraries, but programs linked with such libtool
-*** libraries will work regardless of this problem. Nevertheless, you
-*** may want to report the problem to your system manager and/or to
-*** bug-libtool at gnu.org
-
-_LT_EOF
- fi ;;
- esac
- fi
- break
- fi
- done
- IFS="$lt_save_ifs"
- MAGIC_CMD="$lt_save_MAGIC_CMD"
- ;;
-esac
-fi
-
-MAGIC_CMD="$lt_cv_path_MAGIC_CMD"
-if test -n "$MAGIC_CMD"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5
-$as_echo "$MAGIC_CMD" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
- else
- MAGIC_CMD=:
- fi
-fi
-
- fi
- ;;
-esac
-
-# Use C for the default configuration in the libtool script
-
-lt_save_CC="$CC"
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-
-# Source file extension for C test sources.
-ac_ext=c
-
-# Object file extension for compiled C test sources.
-objext=o
-objext=$objext
-
-# Code to be used in simple compile tests
-lt_simple_compile_test_code="int some_variable = 0;"
-
-# Code to be used in simple link tests
-lt_simple_link_test_code='int main(){return(0);}'
-
-
-
-
-
-
-
-# If no C compiler was specified, use CC.
-LTCC=${LTCC-"$CC"}
-
-# If no C compiler flags were specified, use CFLAGS.
-LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
-
-# Allow CC to be a program name with arguments.
-compiler=$CC
-
-# Save the default compiler, since it gets overwritten when the other
-# tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP.
-compiler_DEFAULT=$CC
-
-# save warnings/boilerplate of simple test code
-ac_outfile=conftest.$ac_objext
-echo "$lt_simple_compile_test_code" >conftest.$ac_ext
-eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
-_lt_compiler_boilerplate=`cat conftest.err`
-$RM conftest*
-
-ac_outfile=conftest.$ac_objext
-echo "$lt_simple_link_test_code" >conftest.$ac_ext
-eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
-_lt_linker_boilerplate=`cat conftest.err`
-$RM -r conftest*
-
-
-if test -n "$compiler"; then
-
-lt_prog_compiler_no_builtin_flag=
-
-if test "$GCC" = yes; then
- lt_prog_compiler_no_builtin_flag=' -fno-builtin'
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -fno-rtti -fno-exceptions" >&5
-$as_echo_n "checking if $compiler supports -fno-rtti -fno-exceptions... " >&6; }
-if test "${lt_cv_prog_compiler_rtti_exceptions+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_rtti_exceptions=no
- ac_outfile=conftest.$ac_objext
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
- lt_compiler_flag="-fno-rtti -fno-exceptions"
- # Insert the option either (1) after the last *FLAGS variable, or
- # (2) before a word containing "conftest.", or (3) at the end.
- # Note that $ac_compile itself does not contain backslashes and begins
- # with a dollar sign (not a hyphen), so the echo should work correctly.
- # The option is referenced via a variable to avoid confusing sed.
- lt_compile=`echo "$ac_compile" | $SED \
- -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
- -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
- -e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:8559: $lt_compile\"" >&5)
- (eval "$lt_compile" 2>conftest.err)
- ac_status=$?
- cat conftest.err >&5
- echo "$as_me:8563: \$? = $ac_status" >&5
- if (exit $ac_status) && test -s "$ac_outfile"; then
- # The compiler can only warn and ignore the option if not recognized
- # So say no if there are warnings other than the usual output.
- $ECHO "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp
- $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
- if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_rtti_exceptions=yes
- fi
- fi
- $RM conftest*
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_rtti_exceptions" >&5
-$as_echo "$lt_cv_prog_compiler_rtti_exceptions" >&6; }
-
-if test x"$lt_cv_prog_compiler_rtti_exceptions" = xyes; then
- lt_prog_compiler_no_builtin_flag="$lt_prog_compiler_no_builtin_flag -fno-rtti -fno-exceptions"
-else
- :
-fi
-
-fi
-
-
-
-
-
-
- lt_prog_compiler_wl=
-lt_prog_compiler_pic=
-lt_prog_compiler_static=
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5
-$as_echo_n "checking for $compiler option to produce PIC... " >&6; }
-
- if test "$GCC" = yes; then
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_static='-static'
-
- case $host_os in
- aix*)
- # All AIX code is PIC.
- if test "$host_cpu" = ia64; then
- # AIX 5 now supports IA64 processor
- lt_prog_compiler_static='-Bstatic'
- fi
- ;;
-
- amigaos*)
- case $host_cpu in
- powerpc)
- # see comment about AmigaOS4 .so support
- lt_prog_compiler_pic='-fPIC'
- ;;
- m68k)
- # FIXME: we need at least 68020 code to build shared libraries, but
- # adding the `-m68020' flag to GCC prevents building anything better,
- # like `-m68040'.
- lt_prog_compiler_pic='-m68020 -resident32 -malways-restore-a4'
- ;;
- esac
- ;;
-
- beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
- # PIC is the default for these OSes.
- ;;
-
- mingw* | cygwin* | pw32* | os2* | cegcc*)
- # This hack is so that the source file can tell whether it is being
- # built for inclusion in a dll (and should export symbols for example).
- # Although the cygwin gcc ignores -fPIC, still need this for old-style
- # (--disable-auto-import) libraries
- lt_prog_compiler_pic='-DDLL_EXPORT'
- ;;
-
- darwin* | rhapsody*)
- # PIC is the default on this platform
- # Common symbols not allowed in MH_DYLIB files
- lt_prog_compiler_pic='-fno-common'
- ;;
-
- hpux*)
- # PIC is the default for 64-bit PA HP-UX, but not for 32-bit
- # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
- # sets the default TLS model and affects inlining.
- case $host_cpu in
- hppa*64*)
- # +Z the default
- ;;
- *)
- lt_prog_compiler_pic='-fPIC'
- ;;
- esac
- ;;
-
- interix[3-9]*)
- # Interix 3.x gcc -fpic/-fPIC options generate broken code.
- # Instead, we relocate shared libraries at runtime.
- ;;
-
- msdosdjgpp*)
- # Just because we use GCC doesn't mean we suddenly get shared libraries
- # on systems that don't support them.
- lt_prog_compiler_can_build_shared=no
- enable_shared=no
- ;;
-
- *nto* | *qnx*)
- # QNX uses GNU C++, but need to define -shared option too, otherwise
- # it will coredump.
- lt_prog_compiler_pic='-fPIC -shared'
- ;;
-
- sysv4*MP*)
- if test -d /usr/nec; then
- lt_prog_compiler_pic=-Kconform_pic
- fi
- ;;
-
- *)
- lt_prog_compiler_pic='-fPIC'
- ;;
- esac
- else
- # PORTME Check for flag to pass linker flags through the system compiler.
- case $host_os in
- aix*)
- lt_prog_compiler_wl='-Wl,'
- if test "$host_cpu" = ia64; then
- # AIX 5 now supports IA64 processor
- lt_prog_compiler_static='-Bstatic'
- else
- lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp'
- fi
- ;;
-
- mingw* | cygwin* | pw32* | os2* | cegcc*)
- # This hack is so that the source file can tell whether it is being
- # built for inclusion in a dll (and should export symbols for example).
- lt_prog_compiler_pic='-DDLL_EXPORT'
- ;;
-
- hpux9* | hpux10* | hpux11*)
- lt_prog_compiler_wl='-Wl,'
- # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but
- # not for PA HP-UX.
- case $host_cpu in
- hppa*64*|ia64*)
- # +Z the default
- ;;
- *)
- lt_prog_compiler_pic='+Z'
- ;;
- esac
- # Is there a better lt_prog_compiler_static that works with the bundled CC?
- lt_prog_compiler_static='${wl}-a ${wl}archive'
- ;;
-
- irix5* | irix6* | nonstopux*)
- lt_prog_compiler_wl='-Wl,'
- # PIC (with -KPIC) is the default.
- lt_prog_compiler_static='-non_shared'
- ;;
-
- linux* | k*bsd*-gnu | kopensolaris*-gnu)
- case $cc_basename in
- # old Intel for x86_64 which still supported -KPIC.
- ecc*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-static'
- ;;
- # icc used to be incompatible with GCC.
- # ICC 10 doesn't accept -KPIC any more.
- icc* | ifort*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-fPIC'
- lt_prog_compiler_static='-static'
- ;;
- # Lahey Fortran 8.1.
- lf95*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='--shared'
- lt_prog_compiler_static='--static'
- ;;
- pgcc* | pgf77* | pgf90* | pgf95*)
- # Portland Group compilers (*not* the Pentium gcc compiler,
- # which looks to be a dead project)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-fpic'
- lt_prog_compiler_static='-Bstatic'
- ;;
- ccc*)
- lt_prog_compiler_wl='-Wl,'
- # All Alpha code is PIC.
- lt_prog_compiler_static='-non_shared'
- ;;
- xl*)
- # IBM XL C 8.0/Fortran 10.1 on PPC
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-qpic'
- lt_prog_compiler_static='-qstaticlink'
- ;;
- *)
- case `$CC -V 2>&1 | sed 5q` in
- *Sun\ C*)
- # Sun C 5.9
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-Bstatic'
- lt_prog_compiler_wl='-Wl,'
- ;;
- *Sun\ F*)
- # Sun Fortran 8.3 passes all unrecognized flags to the linker
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-Bstatic'
- lt_prog_compiler_wl=''
- ;;
- esac
- ;;
- esac
- ;;
-
- newsos6)
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-Bstatic'
- ;;
-
- *nto* | *qnx*)
- # QNX uses GNU C++, but need to define -shared option too, otherwise
- # it will coredump.
- lt_prog_compiler_pic='-fPIC -shared'
- ;;
-
- osf3* | osf4* | osf5*)
- lt_prog_compiler_wl='-Wl,'
- # All OSF/1 code is PIC.
- lt_prog_compiler_static='-non_shared'
- ;;
-
- rdos*)
- lt_prog_compiler_static='-non_shared'
- ;;
-
- solaris*)
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-Bstatic'
- case $cc_basename in
- f77* | f90* | f95*)
- lt_prog_compiler_wl='-Qoption ld ';;
- *)
- lt_prog_compiler_wl='-Wl,';;
- esac
- ;;
-
- sunos4*)
- lt_prog_compiler_wl='-Qoption ld '
- lt_prog_compiler_pic='-PIC'
- lt_prog_compiler_static='-Bstatic'
- ;;
-
- sysv4 | sysv4.2uw2* | sysv4.3*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-Bstatic'
- ;;
-
- sysv4*MP*)
- if test -d /usr/nec ;then
- lt_prog_compiler_pic='-Kconform_pic'
- lt_prog_compiler_static='-Bstatic'
- fi
- ;;
-
- sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_pic='-KPIC'
- lt_prog_compiler_static='-Bstatic'
- ;;
-
- unicos*)
- lt_prog_compiler_wl='-Wl,'
- lt_prog_compiler_can_build_shared=no
- ;;
-
- uts4*)
- lt_prog_compiler_pic='-pic'
- lt_prog_compiler_static='-Bstatic'
- ;;
-
- *)
- lt_prog_compiler_can_build_shared=no
- ;;
- esac
- fi
-
-case $host_os in
- # For platforms which do not support PIC, -DPIC is meaningless:
- *djgpp*)
- lt_prog_compiler_pic=
- ;;
- *)
- lt_prog_compiler_pic="$lt_prog_compiler_pic -DPIC"
- ;;
-esac
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_pic" >&5
-$as_echo "$lt_prog_compiler_pic" >&6; }
-
-
-
-
-
-
-#
-# Check to make sure the PIC flag actually works.
-#
-if test -n "$lt_prog_compiler_pic"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5
-$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic works... " >&6; }
-if test "${lt_cv_prog_compiler_pic_works+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_pic_works=no
- ac_outfile=conftest.$ac_objext
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
- lt_compiler_flag="$lt_prog_compiler_pic -DPIC"
- # Insert the option either (1) after the last *FLAGS variable, or
- # (2) before a word containing "conftest.", or (3) at the end.
- # Note that $ac_compile itself does not contain backslashes and begins
- # with a dollar sign (not a hyphen), so the echo should work correctly.
- # The option is referenced via a variable to avoid confusing sed.
- lt_compile=`echo "$ac_compile" | $SED \
- -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
- -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
- -e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:8898: $lt_compile\"" >&5)
- (eval "$lt_compile" 2>conftest.err)
- ac_status=$?
- cat conftest.err >&5
- echo "$as_me:8902: \$? = $ac_status" >&5
- if (exit $ac_status) && test -s "$ac_outfile"; then
- # The compiler can only warn and ignore the option if not recognized
- # So say no if there are warnings other than the usual output.
- $ECHO "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp
- $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
- if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_pic_works=yes
- fi
- fi
- $RM conftest*
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works" >&5
-$as_echo "$lt_cv_prog_compiler_pic_works" >&6; }
-
-if test x"$lt_cv_prog_compiler_pic_works" = xyes; then
- case $lt_prog_compiler_pic in
- "" | " "*) ;;
- *) lt_prog_compiler_pic=" $lt_prog_compiler_pic" ;;
- esac
-else
- lt_prog_compiler_pic=
- lt_prog_compiler_can_build_shared=no
-fi
-
-fi
-
-
-
-
-
-
-#
-# Check to make sure the static flag actually works.
-#
-wl=$lt_prog_compiler_wl eval lt_tmp_static_flag=\"$lt_prog_compiler_static\"
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5
-$as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; }
-if test "${lt_cv_prog_compiler_static_works+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_static_works=no
- save_LDFLAGS="$LDFLAGS"
- LDFLAGS="$LDFLAGS $lt_tmp_static_flag"
- echo "$lt_simple_link_test_code" > conftest.$ac_ext
- if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
- # The linker can only warn and ignore the option if not recognized
- # So say no if there are warnings
- if test -s conftest.err; then
- # Append any errors to the config.log.
- cat conftest.err 1>&5
- $ECHO "X$_lt_linker_boilerplate" | $Xsed -e '/^$/d' > conftest.exp
- $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
- if diff conftest.exp conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_static_works=yes
- fi
- else
- lt_cv_prog_compiler_static_works=yes
- fi
- fi
- $RM -r conftest*
- LDFLAGS="$save_LDFLAGS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works" >&5
-$as_echo "$lt_cv_prog_compiler_static_works" >&6; }
-
-if test x"$lt_cv_prog_compiler_static_works" = xyes; then
- :
-else
- lt_prog_compiler_static=
-fi
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
-$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
-if test "${lt_cv_prog_compiler_c_o+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_c_o=no
- $RM -r conftest 2>/dev/null
- mkdir conftest
- cd conftest
- mkdir out
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
-
- lt_compiler_flag="-o out/conftest2.$ac_objext"
- # Insert the option either (1) after the last *FLAGS variable, or
- # (2) before a word containing "conftest.", or (3) at the end.
- # Note that $ac_compile itself does not contain backslashes and begins
- # with a dollar sign (not a hyphen), so the echo should work correctly.
- lt_compile=`echo "$ac_compile" | $SED \
- -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
- -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
- -e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:9003: $lt_compile\"" >&5)
- (eval "$lt_compile" 2>out/conftest.err)
- ac_status=$?
- cat out/conftest.err >&5
- echo "$as_me:9007: \$? = $ac_status" >&5
- if (exit $ac_status) && test -s out/conftest2.$ac_objext
- then
- # The compiler can only warn and ignore the option if not recognized
- # So say no if there are warnings
- $ECHO "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' > out/conftest.exp
- $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
- if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_c_o=yes
- fi
- fi
- chmod u+w . 2>&5
- $RM conftest*
- # SGI C++ compiler will create directory out/ii_files/ for
- # template instantiation
- test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
- $RM out/* && rmdir out
- cd ..
- $RM -r conftest
- $RM conftest*
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5
-$as_echo "$lt_cv_prog_compiler_c_o" >&6; }
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
-$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
-if test "${lt_cv_prog_compiler_c_o+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_c_o=no
- $RM -r conftest 2>/dev/null
- mkdir conftest
- cd conftest
- mkdir out
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
-
- lt_compiler_flag="-o out/conftest2.$ac_objext"
- # Insert the option either (1) after the last *FLAGS variable, or
- # (2) before a word containing "conftest.", or (3) at the end.
- # Note that $ac_compile itself does not contain backslashes and begins
- # with a dollar sign (not a hyphen), so the echo should work correctly.
- lt_compile=`echo "$ac_compile" | $SED \
- -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
- -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
- -e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:9058: $lt_compile\"" >&5)
- (eval "$lt_compile" 2>out/conftest.err)
- ac_status=$?
- cat out/conftest.err >&5
- echo "$as_me:9062: \$? = $ac_status" >&5
- if (exit $ac_status) && test -s out/conftest2.$ac_objext
- then
- # The compiler can only warn and ignore the option if not recognized
- # So say no if there are warnings
- $ECHO "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' > out/conftest.exp
- $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
- if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_c_o=yes
- fi
- fi
- chmod u+w . 2>&5
- $RM conftest*
- # SGI C++ compiler will create directory out/ii_files/ for
- # template instantiation
- test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
- $RM out/* && rmdir out
- cd ..
- $RM -r conftest
- $RM conftest*
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5
-$as_echo "$lt_cv_prog_compiler_c_o" >&6; }
-
-
-
-
-hard_links="nottested"
-if test "$lt_cv_prog_compiler_c_o" = no && test "$need_locks" != no; then
- # do not overwrite the value of need_locks provided by the user
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5
-$as_echo_n "checking if we can lock with hard links... " >&6; }
- hard_links=yes
- $RM conftest*
- ln conftest.a conftest.b 2>/dev/null && hard_links=no
- touch conftest.a
- ln conftest.a conftest.b 2>&5 || hard_links=no
- ln conftest.a conftest.b 2>/dev/null && hard_links=no
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5
-$as_echo "$hard_links" >&6; }
- if test "$hard_links" = no; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5
-$as_echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;}
- need_locks=warn
- fi
-else
- need_locks=no
-fi
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5
-$as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; }
-
- runpath_var=
- allow_undefined_flag=
- always_export_symbols=no
- archive_cmds=
- archive_expsym_cmds=
- compiler_needs_object=no
- enable_shared_with_static_runtimes=no
- export_dynamic_flag_spec=
- export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
- hardcode_automatic=no
- hardcode_direct=no
- hardcode_direct_absolute=no
- hardcode_libdir_flag_spec=
- hardcode_libdir_flag_spec_ld=
- hardcode_libdir_separator=
- hardcode_minus_L=no
- hardcode_shlibpath_var=unsupported
- inherit_rpath=no
- link_all_deplibs=unknown
- module_cmds=
- module_expsym_cmds=
- old_archive_from_new_cmds=
- old_archive_from_expsyms_cmds=
- thread_safe_flag_spec=
- whole_archive_flag_spec=
- # include_expsyms should be a list of space-separated symbols to be *always*
- # included in the symbol list
- include_expsyms=
- # exclude_expsyms can be an extended regexp of symbols to exclude
- # it will be wrapped by ` (' and `)$', so one must not match beginning or
- # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc',
- # as well as any symbol that contains `d'.
- exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'
- # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out
- # platforms (ab)use it in PIC code, but their linkers get confused if
- # the symbol is explicitly referenced. Since portable code cannot
- # rely on this symbol name, it's probably fine to never include it in
- # preloaded symbol tables.
- # Exclude shared library initialization/finalization symbols.
- extract_expsyms_cmds=
-
- case $host_os in
- cygwin* | mingw* | pw32* | cegcc*)
- # FIXME: the MSVC++ port hasn't been tested in a loooong time
- # When not using gcc, we currently assume that we are using
- # Microsoft Visual C++.
- if test "$GCC" != yes; then
- with_gnu_ld=no
- fi
- ;;
- interix*)
- # we just hope/assume this is gcc and not c89 (= MSVC++)
- with_gnu_ld=yes
- ;;
- openbsd*)
- with_gnu_ld=no
- ;;
- linux* | k*bsd*-gnu)
- link_all_deplibs=no
- ;;
- esac
-
- ld_shlibs=yes
- if test "$with_gnu_ld" = yes; then
- # If archive_cmds runs LD, not CC, wlarc should be empty
- wlarc='${wl}'
-
- # Set some defaults for GNU ld with shared library support. These
- # are reset later if shared libraries are not supported. Putting them
- # here allows them to be overridden if necessary.
- runpath_var=LD_RUN_PATH
- hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
- export_dynamic_flag_spec='${wl}--export-dynamic'
- # ancient GNU ld didn't support --whole-archive et. al.
- if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then
- whole_archive_flag_spec="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive'
- else
- whole_archive_flag_spec=
- fi
- supports_anon_versioning=no
- case `$LD -v 2>&1` in
- *GNU\ gold*) supports_anon_versioning=yes ;;
- *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11
- *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ...
- *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ...
- *\ 2.11.*) ;; # other 2.11 versions
- *) supports_anon_versioning=yes ;;
- esac
-
- # See if GNU ld supports shared libraries.
- case $host_os in
- aix[3-9]*)
- # On AIX/PPC, the GNU linker is very broken
- if test "$host_cpu" != ia64; then
- ld_shlibs=no
- cat <<_LT_EOF 1>&2
-
-*** Warning: the GNU linker, at least up to release 2.9.1, is reported
-*** to be unable to reliably create shared libraries on AIX.
-*** Therefore, libtool is disabling shared libraries support. If you
-*** really care for shared libraries, you may want to modify your PATH
-*** so that a non-GNU linker is found, and then restart.
-
-_LT_EOF
- fi
- ;;
-
- amigaos*)
- case $host_cpu in
- powerpc)
- # see comment about AmigaOS4 .so support
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
- archive_expsym_cmds=''
- ;;
- m68k)
- archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_minus_L=yes
- ;;
- esac
- ;;
-
- beos*)
- if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
- allow_undefined_flag=unsupported
- # Joseph Beckenbach <jrb3 at best.com> says some releases of gcc
- # support --undefined. This deserves some investigation. FIXME
- archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
- else
- ld_shlibs=no
- fi
- ;;
-
- cygwin* | mingw* | pw32* | cegcc*)
- # _LT_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless,
- # as there is no search path for DLLs.
- hardcode_libdir_flag_spec='-L$libdir'
- allow_undefined_flag=unsupported
- always_export_symbols=no
- enable_shared_with_static_runtimes=yes
- export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols'
-
- if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
- # If the export-symbols file already is a .def file (1st line
- # is EXPORTS), use it as is; otherwise, prepend...
- archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
- cp $export_symbols $output_objdir/$soname.def;
- else
- echo EXPORTS > $output_objdir/$soname.def;
- cat $export_symbols >> $output_objdir/$soname.def;
- fi~
- $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
- else
- ld_shlibs=no
- fi
- ;;
-
- interix[3-9]*)
- hardcode_direct=no
- hardcode_shlibpath_var=no
- hardcode_libdir_flag_spec='${wl}-rpath,$libdir'
- export_dynamic_flag_spec='${wl}-E'
- # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
- # Instead, shared libraries are loaded at an image base (0x10000000 by
- # default) and relocated if they conflict, which is a slow very memory
- # consuming and fragmenting process. To avoid this, we pick a random,
- # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
- # time. Moving up from 0x10000000 also allows more sbrk(2) space.
- archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
- archive_expsym_cmds='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
- ;;
-
- gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu)
- tmp_diet=no
- if test "$host_os" = linux-dietlibc; then
- case $cc_basename in
- diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn)
- esac
- fi
- if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \
- && test "$tmp_diet" = no
- then
- tmp_addflag=
- tmp_sharedflag='-shared'
- case $cc_basename,$host_cpu in
- pgcc*) # Portland Group C compiler
- whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $ECHO \"$new_convenience\"` ${wl}--no-whole-archive'
- tmp_addflag=' $pic_flag'
- ;;
- pgf77* | pgf90* | pgf95*) # Portland Group f77 and f90 compilers
- whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $ECHO \"$new_convenience\"` ${wl}--no-whole-archive'
- tmp_addflag=' $pic_flag -Mnomain' ;;
- ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64
- tmp_addflag=' -i_dynamic' ;;
- efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64
- tmp_addflag=' -i_dynamic -nofor_main' ;;
- ifc* | ifort*) # Intel Fortran compiler
- tmp_addflag=' -nofor_main' ;;
- lf95*) # Lahey Fortran 8.1
- whole_archive_flag_spec=
- tmp_sharedflag='--shared' ;;
- xl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below)
- tmp_sharedflag='-qmkshrobj'
- tmp_addflag= ;;
- esac
- case `$CC -V 2>&1 | sed 5q` in
- *Sun\ C*) # Sun C 5.9
- whole_archive_flag_spec='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; $ECHO \"$new_convenience\"` ${wl}--no-whole-archive'
- compiler_needs_object=yes
- tmp_sharedflag='-G' ;;
- *Sun\ F*) # Sun Fortran 8.3
- tmp_sharedflag='-G' ;;
- esac
- archive_cmds='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
-
- if test "x$supports_anon_versioning" = xyes; then
- archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~
- cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
- echo "local: *; };" >> $output_objdir/$libname.ver~
- $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib'
- fi
-
- case $cc_basename in
- xlf*)
- # IBM XL Fortran 10.1 on PPC cannot create shared libs itself
- whole_archive_flag_spec='--whole-archive$convenience --no-whole-archive'
- hardcode_libdir_flag_spec=
- hardcode_libdir_flag_spec_ld='-rpath $libdir'
- archive_cmds='$LD -shared $libobjs $deplibs $compiler_flags -soname $soname -o $lib'
- if test "x$supports_anon_versioning" = xyes; then
- archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~
- cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
- echo "local: *; };" >> $output_objdir/$libname.ver~
- $LD -shared $libobjs $deplibs $compiler_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib'
- fi
- ;;
- esac
- else
- ld_shlibs=no
- fi
- ;;
-
- netbsd* | netbsdelf*-gnu)
- if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
- archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib'
- wlarc=
- else
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
- archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
- fi
- ;;
-
- solaris*)
- if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then
- ld_shlibs=no
- cat <<_LT_EOF 1>&2
-
-*** Warning: The releases 2.8.* of the GNU linker cannot reliably
-*** create shared libraries on Solaris systems. Therefore, libtool
-*** is disabling shared libraries support. We urge you to upgrade GNU
-*** binutils to release 2.9.1 or newer. Another option is to modify
-*** your PATH or compiler configuration so that the native linker is
-*** used, and then restart.
-
-_LT_EOF
- elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
- archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
- else
- ld_shlibs=no
- fi
- ;;
-
- sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*)
- case `$LD -v 2>&1` in
- *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*)
- ld_shlibs=no
- cat <<_LT_EOF 1>&2
-
-*** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not
-*** reliably create shared libraries on SCO systems. Therefore, libtool
-*** is disabling shared libraries support. We urge you to upgrade GNU
-*** binutils to release 2.16.91.0.3 or newer. Another option is to modify
-*** your PATH or compiler configuration so that the native linker is
-*** used, and then restart.
-
-_LT_EOF
- ;;
- *)
- # For security reasons, it is highly recommended that you always
- # use absolute paths for naming shared libraries, and exclude the
- # DT_RUNPATH tag from executables and libraries. But doing so
- # requires that you compile everything twice, which is a pain.
- if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
- hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
- archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
- else
- ld_shlibs=no
- fi
- ;;
- esac
- ;;
-
- sunos4*)
- archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags'
- wlarc=
- hardcode_direct=yes
- hardcode_shlibpath_var=no
- ;;
-
- *)
- if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
- archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
- else
- ld_shlibs=no
- fi
- ;;
- esac
-
- if test "$ld_shlibs" = no; then
- runpath_var=
- hardcode_libdir_flag_spec=
- export_dynamic_flag_spec=
- whole_archive_flag_spec=
- fi
- else
- # PORTME fill in a description of your system's linker (not GNU ld)
- case $host_os in
- aix3*)
- allow_undefined_flag=unsupported
- always_export_symbols=yes
- archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname'
- # Note: this linker hardcodes the directories in LIBPATH if there
- # are no directories specified by -L.
- hardcode_minus_L=yes
- if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then
- # Neither direct hardcoding nor static linking is supported with a
- # broken collect2.
- hardcode_direct=unsupported
- fi
- ;;
-
- aix[4-9]*)
- if test "$host_cpu" = ia64; then
- # On IA64, the linker does run time linking by default, so we don't
- # have to do anything special.
- aix_use_runtimelinking=no
- exp_sym_flag='-Bexport'
- no_entry_flag=""
- else
- # If we're using GNU nm, then we don't want the "-C" option.
- # -C means demangle to AIX nm, but means don't demangle with GNU nm
- if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
- export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
- else
- export_symbols_cmds='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
- fi
- aix_use_runtimelinking=no
-
- # Test if we are trying to use run time linking or normal
- # AIX style linking. If -brtl is somewhere in LDFLAGS, we
- # need to do runtime linking.
- case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*)
- for ld_flag in $LDFLAGS; do
- if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then
- aix_use_runtimelinking=yes
- break
- fi
- done
- ;;
- esac
-
- exp_sym_flag='-bexport'
- no_entry_flag='-bnoentry'
- fi
-
- # When large executables or shared objects are built, AIX ld can
- # have problems creating the table of contents. If linking a library
- # or program results in "error TOC overflow" add -mminimal-toc to
- # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
- # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
-
- archive_cmds=''
- hardcode_direct=yes
- hardcode_direct_absolute=yes
- hardcode_libdir_separator=':'
- link_all_deplibs=yes
- file_list_spec='${wl}-f,'
-
- if test "$GCC" = yes; then
- case $host_os in aix4.[012]|aix4.[012].*)
- # We only want to do this on AIX 4.2 and lower, the check
- # below for broken collect2 doesn't work under 4.3+
- collect2name=`${CC} -print-prog-name=collect2`
- if test -f "$collect2name" &&
- strings "$collect2name" | $GREP resolve_lib_name >/dev/null
- then
- # We have reworked collect2
- :
- else
- # We have old collect2
- hardcode_direct=unsupported
- # It fails to find uninstalled libraries when the uninstalled
- # path is not listed in the libpath. Setting hardcode_minus_L
- # to unsupported forces relinking
- hardcode_minus_L=yes
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_libdir_separator=
- fi
- ;;
- esac
- shared_flag='-shared'
- if test "$aix_use_runtimelinking" = yes; then
- shared_flag="$shared_flag "'${wl}-G'
- fi
- link_all_deplibs=no
- else
- # not using gcc
- if test "$host_cpu" = ia64; then
- # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
- # chokes on -Wl,-G. The following line is correct:
- shared_flag='-G'
- else
- if test "$aix_use_runtimelinking" = yes; then
- shared_flag='${wl}-G'
- else
- shared_flag='${wl}-bM:SRE'
- fi
- fi
- fi
-
- export_dynamic_flag_spec='${wl}-bexpall'
- # It seems that -bexpall does not export symbols beginning with
- # underscore (_), so it is better to generate a list of symbols to export.
- always_export_symbols=yes
- if test "$aix_use_runtimelinking" = yes; then
- # Warning - without using the other runtime loading flags (-brtl),
- # -berok will link without error, but may produce a broken library.
- allow_undefined_flag='-berok'
- # Determine the default libpath from the value encoded in an
- # empty executable.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
-
-lt_aix_libpath_sed='
- /Import File Strings/,/^$/ {
- /^0/ {
- s/^0 *\(.*\)$/\1/
- p
- }
- }'
-aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
-# Check for a 64-bit object if we didn't find anything.
-if test -z "$aix_libpath"; then
- aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
-fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi
-
- hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath"
- archive_expsym_cmds='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then $ECHO "X${wl}${allow_undefined_flag}" | $Xsed; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag"
- else
- if test "$host_cpu" = ia64; then
- hardcode_libdir_flag_spec='${wl}-R $libdir:/usr/lib:/lib'
- allow_undefined_flag="-z nodefs"
- archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols"
- else
- # Determine the default libpath from the value encoded in an
- # empty executable.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
-
-lt_aix_libpath_sed='
- /Import File Strings/,/^$/ {
- /^0/ {
- s/^0 *\(.*\)$/\1/
- p
- }
- }'
-aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
-# Check for a 64-bit object if we didn't find anything.
-if test -z "$aix_libpath"; then
- aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
-fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi
-
- hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath"
- # Warning - without using the other run time loading flags,
- # -berok will link without error, but may produce a broken library.
- no_undefined_flag=' ${wl}-bernotok'
- allow_undefined_flag=' ${wl}-berok'
- # Exported symbols can be pulled into shared objects from archives
- whole_archive_flag_spec='$convenience'
- archive_cmds_need_lc=yes
- # This is similar to how AIX traditionally builds its shared libraries.
- archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname'
- fi
- fi
- ;;
-
- amigaos*)
- case $host_cpu in
- powerpc)
- # see comment about AmigaOS4 .so support
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
- archive_expsym_cmds=''
- ;;
- m68k)
- archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)'
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_minus_L=yes
- ;;
- esac
- ;;
-
- bsdi[45]*)
- export_dynamic_flag_spec=-rdynamic
- ;;
-
- cygwin* | mingw* | pw32* | cegcc*)
- # When not using gcc, we currently assume that we are using
- # Microsoft Visual C++.
- # hardcode_libdir_flag_spec is actually meaningless, as there is
- # no search path for DLLs.
- hardcode_libdir_flag_spec=' '
- allow_undefined_flag=unsupported
- # Tell ltmain to make .lib files, not .a files.
- libext=lib
- # Tell ltmain to make .dll files, not .so files.
- shrext_cmds=".dll"
- # FIXME: Setting linknames here is a bad hack.
- archive_cmds='$CC -o $lib $libobjs $compiler_flags `$ECHO "X$deplibs" | $Xsed -e '\''s/ -lc$//'\''` -link -dll~linknames='
- # The linker will automatically build a .lib file if we build a DLL.
- old_archive_from_new_cmds='true'
- # FIXME: Should let the user specify the lib program.
- old_archive_cmds='lib -OUT:$oldlib$oldobjs$old_deplibs'
- fix_srcfile_path='`cygpath -w "$srcfile"`'
- enable_shared_with_static_runtimes=yes
- ;;
-
- darwin* | rhapsody*)
-
-
- archive_cmds_need_lc=no
- hardcode_direct=no
- hardcode_automatic=yes
- hardcode_shlibpath_var=unsupported
- whole_archive_flag_spec=''
- link_all_deplibs=yes
- allow_undefined_flag="$_lt_dar_allow_undefined"
- case $cc_basename in
- ifort*) _lt_dar_can_shared=yes ;;
- *) _lt_dar_can_shared=$GCC ;;
- esac
- if test "$_lt_dar_can_shared" = "yes"; then
- output_verbose_link_cmd=echo
- archive_cmds="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}"
- module_cmds="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}"
- archive_expsym_cmds="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}"
- module_expsym_cmds="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}"
-
- else
- ld_shlibs=no
- fi
-
- ;;
-
- dgux*)
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_shlibpath_var=no
- ;;
-
- freebsd1*)
- ld_shlibs=no
- ;;
-
- # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor
- # support. Future versions do this automatically, but an explicit c++rt0.o
- # does not break anything, and helps significantly (at the cost of a little
- # extra space).
- freebsd2.2*)
- archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o'
- hardcode_libdir_flag_spec='-R$libdir'
- hardcode_direct=yes
- hardcode_shlibpath_var=no
- ;;
-
- # Unfortunately, older versions of FreeBSD 2 do not have this feature.
- freebsd2*)
- archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
- hardcode_direct=yes
- hardcode_minus_L=yes
- hardcode_shlibpath_var=no
- ;;
-
- # FreeBSD 3 and greater uses gcc -shared to do shared libraries.
- freebsd* | dragonfly*)
- archive_cmds='$CC -shared -o $lib $libobjs $deplibs $compiler_flags'
- hardcode_libdir_flag_spec='-R$libdir'
- hardcode_direct=yes
- hardcode_shlibpath_var=no
- ;;
-
- hpux9*)
- if test "$GCC" = yes; then
- archive_cmds='$RM $output_objdir/$soname~$CC -shared -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
- else
- archive_cmds='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
- fi
- hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir'
- hardcode_libdir_separator=:
- hardcode_direct=yes
-
- # hardcode_minus_L: Not really in the search PATH,
- # but as the default location of the library.
- hardcode_minus_L=yes
- export_dynamic_flag_spec='${wl}-E'
- ;;
-
- hpux10*)
- if test "$GCC" = yes -a "$with_gnu_ld" = no; then
- archive_cmds='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
- else
- archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'
- fi
- if test "$with_gnu_ld" = no; then
- hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir'
- hardcode_libdir_flag_spec_ld='+b $libdir'
- hardcode_libdir_separator=:
- hardcode_direct=yes
- hardcode_direct_absolute=yes
- export_dynamic_flag_spec='${wl}-E'
- # hardcode_minus_L: Not really in the search PATH,
- # but as the default location of the library.
- hardcode_minus_L=yes
- fi
- ;;
-
- hpux11*)
- if test "$GCC" = yes -a "$with_gnu_ld" = no; then
- case $host_cpu in
- hppa*64*)
- archive_cmds='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- ia64*)
- archive_cmds='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- *)
- archive_cmds='$CC -shared -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- esac
- else
- case $host_cpu in
- hppa*64*)
- archive_cmds='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- ia64*)
- archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- *)
- archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- esac
- fi
- if test "$with_gnu_ld" = no; then
- hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir'
- hardcode_libdir_separator=:
-
- case $host_cpu in
- hppa*64*|ia64*)
- hardcode_direct=no
- hardcode_shlibpath_var=no
- ;;
- *)
- hardcode_direct=yes
- hardcode_direct_absolute=yes
- export_dynamic_flag_spec='${wl}-E'
-
- # hardcode_minus_L: Not really in the search PATH,
- # but as the default location of the library.
- hardcode_minus_L=yes
- ;;
- esac
- fi
- ;;
-
- irix5* | irix6* | nonstopux*)
- if test "$GCC" = yes; then
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
- # Try to use the -exported_symbol ld option, if it does not
- # work, assume that -exports_file does not work either and
- # implicitly export all symbols.
- save_LDFLAGS="$LDFLAGS"
- LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null"
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-int foo(void) {}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib'
-
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LDFLAGS="$save_LDFLAGS"
- else
- archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && $ECHO "X-set_version $verstring" | $Xsed` -update_registry ${output_objdir}/so_locations -o $lib'
- archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && $ECHO "X-set_version $verstring" | $Xsed` -update_registry ${output_objdir}/so_locations -exports_file $export_symbols -o $lib'
- fi
- archive_cmds_need_lc='no'
- hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
- hardcode_libdir_separator=:
- inherit_rpath=yes
- link_all_deplibs=yes
- ;;
-
- netbsd* | netbsdelf*-gnu)
- if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
- archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out
- else
- archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF
- fi
- hardcode_libdir_flag_spec='-R$libdir'
- hardcode_direct=yes
- hardcode_shlibpath_var=no
- ;;
-
- newsos6)
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_direct=yes
- hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
- hardcode_libdir_separator=:
- hardcode_shlibpath_var=no
- ;;
-
- *nto* | *qnx*)
- ;;
-
- openbsd*)
- if test -f /usr/libexec/ld.so; then
- hardcode_direct=yes
- hardcode_shlibpath_var=no
- hardcode_direct_absolute=yes
- if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
- archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols'
- hardcode_libdir_flag_spec='${wl}-rpath,$libdir'
- export_dynamic_flag_spec='${wl}-E'
- else
- case $host_os in
- openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*)
- archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags'
- hardcode_libdir_flag_spec='-R$libdir'
- ;;
- *)
- archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags'
- hardcode_libdir_flag_spec='${wl}-rpath,$libdir'
- ;;
- esac
- fi
- else
- ld_shlibs=no
- fi
- ;;
-
- os2*)
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_minus_L=yes
- allow_undefined_flag=unsupported
- archive_cmds='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~$ECHO DATA >> $output_objdir/$libname.def~$ECHO " SINGLE NONSHARED" >> $output_objdir/$libname.def~$ECHO EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def'
- old_archive_from_new_cmds='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def'
- ;;
-
- osf3*)
- if test "$GCC" = yes; then
- allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*'
- archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
- else
- allow_undefined_flag=' -expect_unresolved \*'
- archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && $ECHO "X-set_version $verstring" | $Xsed` -update_registry ${output_objdir}/so_locations -o $lib'
- fi
- archive_cmds_need_lc='no'
- hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
- hardcode_libdir_separator=:
- ;;
-
- osf4* | osf5*) # as osf3* with the addition of -msym flag
- if test "$GCC" = yes; then
- allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*'
- archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
- hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir'
- else
- allow_undefined_flag=' -expect_unresolved \*'
- archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && $ECHO "X-set_version $verstring" | $Xsed` -update_registry ${output_objdir}/so_locations -o $lib'
- archive_expsym_cmds='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~
- $CC -shared${allow_undefined_flag} ${wl}-input ${wl}$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "X-set_version $verstring" | $Xsed` -update_registry ${output_objdir}/so_locations -o $lib~$RM $lib.exp'
-
- # Both c and cxx compiler support -rpath directly
- hardcode_libdir_flag_spec='-rpath $libdir'
- fi
- archive_cmds_need_lc='no'
- hardcode_libdir_separator=:
- ;;
-
- solaris*)
- no_undefined_flag=' -z defs'
- if test "$GCC" = yes; then
- wlarc='${wl}'
- archive_cmds='$CC -shared ${wl}-z ${wl}text ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
- $CC -shared ${wl}-z ${wl}text ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
- else
- case `$CC -V 2>&1` in
- *"Compilers 5.0"*)
- wlarc=''
- archive_cmds='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags'
- archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
- $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp'
- ;;
- *)
- wlarc='${wl}'
- archive_cmds='$CC -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
- $CC -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp'
- ;;
- esac
- fi
- hardcode_libdir_flag_spec='-R$libdir'
- hardcode_shlibpath_var=no
- case $host_os in
- solaris2.[0-5] | solaris2.[0-5].*) ;;
- *)
- # The compiler driver will combine and reorder linker options,
- # but understands `-z linker_flag'. GCC discards it without `$wl',
- # but is careful enough not to reorder.
- # Supported since Solaris 2.6 (maybe 2.5.1?)
- if test "$GCC" = yes; then
- whole_archive_flag_spec='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract'
- else
- whole_archive_flag_spec='-z allextract$convenience -z defaultextract'
- fi
- ;;
- esac
- link_all_deplibs=yes
- ;;
-
- sunos4*)
- if test "x$host_vendor" = xsequent; then
- # Use $CC to link under sequent, because it throws in some extra .o
- # files that make .init and .fini sections work.
- archive_cmds='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags'
- else
- archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags'
- fi
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_direct=yes
- hardcode_minus_L=yes
- hardcode_shlibpath_var=no
- ;;
-
- sysv4)
- case $host_vendor in
- sni)
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_direct=yes # is this really true???
- ;;
- siemens)
- ## LD is ld it makes a PLAMLIB
- ## CC just makes a GrossModule.
- archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags'
- reload_cmds='$CC -r -o $output$reload_objs'
- hardcode_direct=no
- ;;
- motorola)
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_direct=no #Motorola manual says yes, but my tests say they lie
- ;;
- esac
- runpath_var='LD_RUN_PATH'
- hardcode_shlibpath_var=no
- ;;
-
- sysv4.3*)
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_shlibpath_var=no
- export_dynamic_flag_spec='-Bexport'
- ;;
-
- sysv4*MP*)
- if test -d /usr/nec; then
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_shlibpath_var=no
- runpath_var=LD_RUN_PATH
- hardcode_runpath_var=yes
- ld_shlibs=yes
- fi
- ;;
-
- sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*)
- no_undefined_flag='${wl}-z,text'
- archive_cmds_need_lc=no
- hardcode_shlibpath_var=no
- runpath_var='LD_RUN_PATH'
-
- if test "$GCC" = yes; then
- archive_cmds='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- else
- archive_cmds='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- fi
- ;;
-
- sysv5* | sco3.2v5* | sco5v6*)
- # Note: We can NOT use -z defs as we might desire, because we do not
- # link with -lc, and that would cause any symbols used from libc to
- # always be unresolved, which means just about no library would
- # ever link correctly. If we're not using GNU ld we use -z text
- # though, which does catch some bad symbols but isn't as heavy-handed
- # as -z defs.
- no_undefined_flag='${wl}-z,text'
- allow_undefined_flag='${wl}-z,nodefs'
- archive_cmds_need_lc=no
- hardcode_shlibpath_var=no
- hardcode_libdir_flag_spec='${wl}-R,$libdir'
- hardcode_libdir_separator=':'
- link_all_deplibs=yes
- export_dynamic_flag_spec='${wl}-Bexport'
- runpath_var='LD_RUN_PATH'
-
- if test "$GCC" = yes; then
- archive_cmds='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- else
- archive_cmds='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- fi
- ;;
-
- uts4*)
- archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags'
- hardcode_libdir_flag_spec='-L$libdir'
- hardcode_shlibpath_var=no
- ;;
-
- *)
- ld_shlibs=no
- ;;
- esac
-
- if test x$host_vendor = xsni; then
- case $host in
- sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*)
- export_dynamic_flag_spec='${wl}-Blargedynsym'
- ;;
- esac
- fi
- fi
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs" >&5
-$as_echo "$ld_shlibs" >&6; }
-test "$ld_shlibs" = no && can_build_shared=no
-
-with_gnu_ld=$with_gnu_ld
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-#
-# Do we need to explicitly link libc?
-#
-case "x$archive_cmds_need_lc" in
-x|xyes)
- # Assume -lc should be added
- archive_cmds_need_lc=yes
-
- if test "$enable_shared" = yes && test "$GCC" = yes; then
- case $archive_cmds in
- *'~'*)
- # FIXME: we may have to deal with multi-command sequences.
- ;;
- '$CC '*)
- # Test whether the compiler implicitly links with -lc since on some
- # systems, -lgcc has to come before -lc. If gcc already passes -lc
- # to ld, don't add -lc before -lgcc.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5
-$as_echo_n "checking whether -lc should be explicitly linked in... " >&6; }
- $RM conftest*
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
-
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } 2>conftest.err; then
- soname=conftest
- lib=conftest
- libobjs=conftest.$ac_objext
- deplibs=
- wl=$lt_prog_compiler_wl
- pic_flag=$lt_prog_compiler_pic
- compiler_flags=-v
- linker_flags=-v
- verstring=
- output_objdir=.
- libname=conftest
- lt_save_allow_undefined_flag=$allow_undefined_flag
- allow_undefined_flag=
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5
- (eval $archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
- then
- archive_cmds_need_lc=no
- else
- archive_cmds_need_lc=yes
- fi
- allow_undefined_flag=$lt_save_allow_undefined_flag
- else
- cat conftest.err 1>&5
- fi
- $RM conftest*
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $archive_cmds_need_lc" >&5
-$as_echo "$archive_cmds_need_lc" >&6; }
- ;;
- esac
- fi
- ;;
-esac
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5
-$as_echo_n "checking dynamic linker characteristics... " >&6; }
-
-if test "$GCC" = yes; then
- case $host_os in
- darwin*) lt_awk_arg="/^libraries:/,/LR/" ;;
- *) lt_awk_arg="/^libraries:/" ;;
- esac
- lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e "s,=/,/,g"`
- if $ECHO "$lt_search_path_spec" | $GREP ';' >/dev/null ; then
- # if the path contains ";" then we assume it to be the separator
- # otherwise default to the standard path separator (i.e. ":") - it is
- # assumed that no part of a normal pathname contains ";" but that should
- # okay in the real world where ";" in dirpaths is itself problematic.
- lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED -e 's/;/ /g'`
- else
- lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
- fi
- # Ok, now we have the path, separated by spaces, we can step through it
- # and add multilib dir if necessary.
- lt_tmp_lt_search_path_spec=
- lt_multi_os_dir=`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null`
- for lt_sys_path in $lt_search_path_spec; do
- if test -d "$lt_sys_path/$lt_multi_os_dir"; then
- lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path/$lt_multi_os_dir"
- else
- test -d "$lt_sys_path" && \
- lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path"
- fi
- done
- lt_search_path_spec=`$ECHO $lt_tmp_lt_search_path_spec | awk '
-BEGIN {RS=" "; FS="/|\n";} {
- lt_foo="";
- lt_count=0;
- for (lt_i = NF; lt_i > 0; lt_i--) {
- if ($lt_i != "" && $lt_i != ".") {
- if ($lt_i == "..") {
- lt_count++;
- } else {
- if (lt_count == 0) {
- lt_foo="/" $lt_i lt_foo;
- } else {
- lt_count--;
- }
- }
- }
- }
- if (lt_foo != "") { lt_freq[lt_foo]++; }
- if (lt_freq[lt_foo] == 1) { print lt_foo; }
-}'`
- sys_lib_search_path_spec=`$ECHO $lt_search_path_spec`
-else
- sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib"
-fi
-library_names_spec=
-libname_spec='lib$name'
-soname_spec=
-shrext_cmds=".so"
-postinstall_cmds=
-postuninstall_cmds=
-finish_cmds=
-finish_eval=
-shlibpath_var=
-shlibpath_overrides_runpath=unknown
-version_type=none
-dynamic_linker="$host_os ld.so"
-sys_lib_dlsearch_path_spec="/lib /usr/lib"
-need_lib_prefix=unknown
-hardcode_into_libs=no
-
-# when you set need_version to no, make sure it does not cause -set_version
-# flags to be left without arguments
-need_version=unknown
-
-case $host_os in
-aix3*)
- version_type=linux
- library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a'
- shlibpath_var=LIBPATH
-
- # AIX 3 has no versioning support, so we append a major version to the name.
- soname_spec='${libname}${release}${shared_ext}$major'
- ;;
-
-aix[4-9]*)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- hardcode_into_libs=yes
- if test "$host_cpu" = ia64; then
- # AIX 5 supports IA64
- library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}'
- shlibpath_var=LD_LIBRARY_PATH
- else
- # With GCC up to 2.95.x, collect2 would create an import file
- # for dependence libraries. The import file would start with
- # the line `#! .'. This would cause the generated library to
- # depend on `.', always an invalid library. This was fixed in
- # development snapshots of GCC prior to 3.0.
- case $host_os in
- aix4 | aix4.[01] | aix4.[01].*)
- if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)'
- echo ' yes '
- echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then
- :
- else
- can_build_shared=no
- fi
- ;;
- esac
- # AIX (on Power*) has no versioning support, so currently we can not hardcode correct
- # soname into executable. Probably we can add versioning support to
- # collect2, so additional links can be useful in future.
- if test "$aix_use_runtimelinking" = yes; then
- # If using run time linking (on AIX 4.2 or later) use lib<name>.so
- # instead of lib<name>.a to let people know that these are not
- # typical AIX shared libraries.
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- else
- # We preserve .a as extension for shared libraries through AIX4.2
- # and later when we are not doing run time linking.
- library_names_spec='${libname}${release}.a $libname.a'
- soname_spec='${libname}${release}${shared_ext}$major'
- fi
- shlibpath_var=LIBPATH
- fi
- ;;
-
-amigaos*)
- case $host_cpu in
- powerpc)
- # Since July 2007 AmigaOS4 officially supports .so libraries.
- # When compiling the executable, add -use-dynld -Lsobjs: to the compileline.
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- ;;
- m68k)
- library_names_spec='$libname.ixlibrary $libname.a'
- # Create ${libname}_ixlibrary.a entries in /sys/libs.
- finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`$ECHO "X$lib" | $Xsed -e '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done'
- ;;
- esac
- ;;
-
-beos*)
- library_names_spec='${libname}${shared_ext}'
- dynamic_linker="$host_os ld.so"
- shlibpath_var=LIBRARY_PATH
- ;;
-
-bsdi[45]*)
- version_type=linux
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir'
- shlibpath_var=LD_LIBRARY_PATH
- sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib"
- sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib"
- # the default ld.so.conf also contains /usr/contrib/lib and
- # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow
- # libtool to hard-code these into programs
- ;;
-
-cygwin* | mingw* | pw32* | cegcc*)
- version_type=windows
- shrext_cmds=".dll"
- need_version=no
- need_lib_prefix=no
-
- case $GCC,$host_os in
- yes,cygwin* | yes,mingw* | yes,pw32* | yes,cegcc*)
- library_names_spec='$libname.dll.a'
- # DLL is installed to $(libdir)/../bin by postinstall_cmds
- postinstall_cmds='base_file=`basename \${file}`~
- dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~
- dldir=$destdir/`dirname \$dlpath`~
- test -d \$dldir || mkdir -p \$dldir~
- $install_prog $dir/$dlname \$dldir/$dlname~
- chmod a+x \$dldir/$dlname~
- if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
- eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
- fi'
- postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
- dlpath=$dir/\$dldll~
- $RM \$dlpath'
- shlibpath_overrides_runpath=yes
-
- case $host_os in
- cygwin*)
- # Cygwin DLLs use 'cyg' prefix rather than 'lib'
- soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
- sys_lib_search_path_spec="/usr/lib /lib/w32api /lib /usr/local/lib"
- ;;
- mingw* | cegcc*)
- # MinGW DLLs use traditional 'lib' prefix
- soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
- sys_lib_search_path_spec=`$CC -print-search-dirs | $GREP "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"`
- if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then
- # It is most probably a Windows format PATH printed by
- # mingw gcc, but we are running on Cygwin. Gcc prints its search
- # path with ; separators, and with drive letters. We can handle the
- # drive letters (cygwin fileutils understands them), so leave them,
- # especially as we might pass files found there to a mingw objdump,
- # which wouldn't understand a cygwinified path. Ahh.
- sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
- else
- sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
- fi
- ;;
- pw32*)
- # pw32 DLLs use 'pw' prefix rather than 'lib'
- library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
- ;;
- esac
- ;;
-
- *)
- library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib'
- ;;
- esac
- dynamic_linker='Win32 ld.exe'
- # FIXME: first we should search . and the directory the executable is in
- shlibpath_var=PATH
- ;;
-
-darwin* | rhapsody*)
- dynamic_linker="$host_os dyld"
- version_type=darwin
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext'
- soname_spec='${libname}${release}${major}$shared_ext'
- shlibpath_overrides_runpath=yes
- shlibpath_var=DYLD_LIBRARY_PATH
- shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`'
-
- sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib"
- sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib'
- ;;
-
-dgux*)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- ;;
-
-freebsd1*)
- dynamic_linker=no
- ;;
-
-freebsd* | dragonfly*)
- # DragonFly does not have aout. When/if they implement a new
- # versioning mechanism, adjust this.
- if test -x /usr/bin/objformat; then
- objformat=`/usr/bin/objformat`
- else
- case $host_os in
- freebsd[123]*) objformat=aout ;;
- *) objformat=elf ;;
- esac
- fi
- version_type=freebsd-$objformat
- case $version_type in
- freebsd-elf*)
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}'
- need_version=no
- need_lib_prefix=no
- ;;
- freebsd-*)
- library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix'
- need_version=yes
- ;;
- esac
- shlibpath_var=LD_LIBRARY_PATH
- case $host_os in
- freebsd2*)
- shlibpath_overrides_runpath=yes
- ;;
- freebsd3.[01]* | freebsdelf3.[01]*)
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- ;;
- freebsd3.[2-9]* | freebsdelf3.[2-9]* | \
- freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1)
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- ;;
- *) # from 4.6 on, and DragonFly
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- ;;
- esac
- ;;
-
-gnu*)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- hardcode_into_libs=yes
- ;;
-
-hpux9* | hpux10* | hpux11*)
- # Give a soname corresponding to the major version so that dld.sl refuses to
- # link against other versions.
- version_type=sunos
- need_lib_prefix=no
- need_version=no
- case $host_cpu in
- ia64*)
- shrext_cmds='.so'
- hardcode_into_libs=yes
- dynamic_linker="$host_os dld.so"
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- if test "X$HPUX_IA64_MODE" = X32; then
- sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib"
- else
- sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64"
- fi
- sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
- ;;
- hppa*64*)
- shrext_cmds='.sl'
- hardcode_into_libs=yes
- dynamic_linker="$host_os dld.sl"
- shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH
- shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64"
- sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
- ;;
- *)
- shrext_cmds='.sl'
- dynamic_linker="$host_os dld.sl"
- shlibpath_var=SHLIB_PATH
- shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- ;;
- esac
- # HP-UX runs *really* slowly unless shared libraries are mode 555.
- postinstall_cmds='chmod 555 $lib'
- ;;
-
-interix[3-9]*)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- ;;
-
-irix5* | irix6* | nonstopux*)
- case $host_os in
- nonstopux*) version_type=nonstopux ;;
- *)
- if test "$lt_cv_prog_gnu_ld" = yes; then
- version_type=linux
- else
- version_type=irix
- fi ;;
- esac
- need_lib_prefix=no
- need_version=no
- soname_spec='${libname}${release}${shared_ext}$major'
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}'
- case $host_os in
- irix5* | nonstopux*)
- libsuff= shlibsuff=
- ;;
- *)
- case $LD in # libtool.m4 will add one of these switches to LD
- *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ")
- libsuff= shlibsuff= libmagic=32-bit;;
- *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ")
- libsuff=32 shlibsuff=N32 libmagic=N32;;
- *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ")
- libsuff=64 shlibsuff=64 libmagic=64-bit;;
- *) libsuff= shlibsuff= libmagic=never-match;;
- esac
- ;;
- esac
- shlibpath_var=LD_LIBRARY${shlibsuff}_PATH
- shlibpath_overrides_runpath=no
- sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}"
- sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}"
- hardcode_into_libs=yes
- ;;
-
-# No shared lib support for Linux oldld, aout, or coff.
-linux*oldld* | linux*aout* | linux*coff*)
- dynamic_linker=no
- ;;
-
-# This must be Linux ELF.
-linux* | k*bsd*-gnu | kopensolaris*-gnu)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- # Some binutils ld are patched to set DT_RUNPATH
- save_LDFLAGS=$LDFLAGS
- save_libdir=$libdir
- eval "libdir=/foo; wl=\"$lt_prog_compiler_wl\"; \
- LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec\""
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then :
- shlibpath_overrides_runpath=yes
-fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LDFLAGS=$save_LDFLAGS
- libdir=$save_libdir
-
- # This implies no fast_install, which is unacceptable.
- # Some rework will be needed to allow for fast_install
- # before this can be enabled.
- hardcode_into_libs=yes
-
- # Append ld.so.conf contents to the search path
- if test -f /etc/ld.so.conf; then
- lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '`
- sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra"
- fi
-
- # We used to test for /lib/ld.so.1 and disable shared libraries on
- # powerpc, because MkLinux only supported shared libraries with the
- # GNU dynamic linker. Since this was broken with cross compilers,
- # most powerpc-linux boxes support dynamic linking these days and
- # people can always --disable-shared, the test was removed, and we
- # assume the GNU/Linux dynamic linker is in use.
- dynamic_linker='GNU/Linux ld.so'
- ;;
-
-netbsdelf*-gnu)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- dynamic_linker='NetBSD ld.elf_so'
- ;;
-
-netbsd*)
- version_type=sunos
- need_lib_prefix=no
- need_version=no
- if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
- finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
- dynamic_linker='NetBSD (a.out) ld.so'
- else
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- dynamic_linker='NetBSD ld.elf_so'
- fi
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- ;;
-
-newsos6)
- version_type=linux
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- ;;
-
-*nto* | *qnx*)
- version_type=qnx
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- dynamic_linker='ldqnx.so'
- ;;
-
-openbsd*)
- version_type=sunos
- sys_lib_dlsearch_path_spec="/usr/lib"
- need_lib_prefix=no
- # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs.
- case $host_os in
- openbsd3.3 | openbsd3.3.*) need_version=yes ;;
- *) need_version=no ;;
- esac
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
- finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
- shlibpath_var=LD_LIBRARY_PATH
- if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
- case $host_os in
- openbsd2.[89] | openbsd2.[89].*)
- shlibpath_overrides_runpath=no
- ;;
- *)
- shlibpath_overrides_runpath=yes
- ;;
- esac
- else
- shlibpath_overrides_runpath=yes
- fi
- ;;
-
-os2*)
- libname_spec='$name'
- shrext_cmds=".dll"
- need_lib_prefix=no
- library_names_spec='$libname${shared_ext} $libname.a'
- dynamic_linker='OS/2 ld.exe'
- shlibpath_var=LIBPATH
- ;;
-
-osf3* | osf4* | osf5*)
- version_type=osf
- need_lib_prefix=no
- need_version=no
- soname_spec='${libname}${release}${shared_ext}$major'
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- shlibpath_var=LD_LIBRARY_PATH
- sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib"
- sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec"
- ;;
-
-rdos*)
- dynamic_linker=no
- ;;
-
-solaris*)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- # ldd complains unless libraries are executable
- postinstall_cmds='chmod +x $lib'
- ;;
-
-sunos4*)
- version_type=sunos
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
- finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- if test "$with_gnu_ld" = yes; then
- need_lib_prefix=no
- fi
- need_version=yes
- ;;
-
-sysv4 | sysv4.3*)
- version_type=linux
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- case $host_vendor in
- sni)
- shlibpath_overrides_runpath=no
- need_lib_prefix=no
- runpath_var=LD_RUN_PATH
- ;;
- siemens)
- need_lib_prefix=no
- ;;
- motorola)
- need_lib_prefix=no
- need_version=no
- shlibpath_overrides_runpath=no
- sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib'
- ;;
- esac
- ;;
-
-sysv4*MP*)
- if test -d /usr/nec ;then
- version_type=linux
- library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}'
- soname_spec='$libname${shared_ext}.$major'
- shlibpath_var=LD_LIBRARY_PATH
- fi
- ;;
-
-sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
- version_type=freebsd-elf
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- if test "$with_gnu_ld" = yes; then
- sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib'
- else
- sys_lib_search_path_spec='/usr/ccs/lib /usr/lib'
- case $host_os in
- sco3.2v5*)
- sys_lib_search_path_spec="$sys_lib_search_path_spec /lib"
- ;;
- esac
- fi
- sys_lib_dlsearch_path_spec='/usr/lib'
- ;;
-
-tpf*)
- # TPF is a cross-target only. Preferred cross-host = GNU/Linux.
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- ;;
-
-uts4*)
- version_type=linux
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- ;;
-
-*)
- dynamic_linker=no
- ;;
-esac
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5
-$as_echo "$dynamic_linker" >&6; }
-test "$dynamic_linker" = no && can_build_shared=no
-
-variables_saved_for_relink="PATH $shlibpath_var $runpath_var"
-if test "$GCC" = yes; then
- variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
-fi
-
-if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then
- sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec"
-fi
-if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then
- sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec"
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5
-$as_echo_n "checking how to hardcode library paths into programs... " >&6; }
-hardcode_action=
-if test -n "$hardcode_libdir_flag_spec" ||
- test -n "$runpath_var" ||
- test "X$hardcode_automatic" = "Xyes" ; then
-
- # We can hardcode non-existent directories.
- if test "$hardcode_direct" != no &&
- # If the only mechanism to avoid hardcoding is shlibpath_var, we
- # have to relink, otherwise we might link with an installed library
- # when we should be linking with a yet-to-be-installed one
- ## test "$_LT_TAGVAR(hardcode_shlibpath_var, )" != no &&
- test "$hardcode_minus_L" != no; then
- # Linking always hardcodes the temporary library directory.
- hardcode_action=relink
- else
- # We can link without hardcoding, and we can hardcode nonexisting dirs.
- hardcode_action=immediate
- fi
-else
- # We cannot hardcode anything, or else we can only hardcode existing
- # directories.
- hardcode_action=unsupported
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action" >&5
-$as_echo "$hardcode_action" >&6; }
-
-if test "$hardcode_action" = relink ||
- test "$inherit_rpath" = yes; then
- # Fast installation is not supported
- enable_fast_install=no
-elif test "$shlibpath_overrides_runpath" = yes ||
- test "$enable_shared" = no; then
- # Fast installation is not necessary
- enable_fast_install=needless
-fi
-
-
-
-
-
-
- if test "x$enable_dlopen" != xyes; then
- enable_dlopen=unknown
- enable_dlopen_self=unknown
- enable_dlopen_self_static=unknown
-else
- lt_cv_dlopen=no
- lt_cv_dlopen_libs=
-
- case $host_os in
- beos*)
- lt_cv_dlopen="load_add_on"
- lt_cv_dlopen_libs=
- lt_cv_dlopen_self=yes
- ;;
-
- mingw* | pw32* | cegcc*)
- lt_cv_dlopen="LoadLibrary"
- lt_cv_dlopen_libs=
- ;;
-
- cygwin*)
- lt_cv_dlopen="dlopen"
- lt_cv_dlopen_libs=
- ;;
-
- darwin*)
- # if libdl is installed we need to link against it
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5
-$as_echo_n "checking for dlopen in -ldl... " >&6; }
-if test "${ac_cv_lib_dl_dlopen+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldl $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char dlopen ();
-int
-main ()
-{
-return dlopen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_dl_dlopen=yes
-else
- ac_cv_lib_dl_dlopen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5
-$as_echo "$ac_cv_lib_dl_dlopen" >&6; }
-if test "x$ac_cv_lib_dl_dlopen" = x""yes; then :
- lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"
-else
-
- lt_cv_dlopen="dyld"
- lt_cv_dlopen_libs=
- lt_cv_dlopen_self=yes
-
-fi
-
- ;;
-
- *)
- ac_fn_c_check_func "$LINENO" "shl_load" "ac_cv_func_shl_load"
-if test "x$ac_cv_func_shl_load" = x""yes; then :
- lt_cv_dlopen="shl_load"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5
-$as_echo_n "checking for shl_load in -ldld... " >&6; }
-if test "${ac_cv_lib_dld_shl_load+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldld $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char shl_load ();
-int
-main ()
-{
-return shl_load ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_dld_shl_load=yes
-else
- ac_cv_lib_dld_shl_load=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5
-$as_echo "$ac_cv_lib_dld_shl_load" >&6; }
-if test "x$ac_cv_lib_dld_shl_load" = x""yes; then :
- lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-ldld"
-else
- ac_fn_c_check_func "$LINENO" "dlopen" "ac_cv_func_dlopen"
-if test "x$ac_cv_func_dlopen" = x""yes; then :
- lt_cv_dlopen="dlopen"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5
-$as_echo_n "checking for dlopen in -ldl... " >&6; }
-if test "${ac_cv_lib_dl_dlopen+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldl $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char dlopen ();
-int
-main ()
-{
-return dlopen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_dl_dlopen=yes
-else
- ac_cv_lib_dl_dlopen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5
-$as_echo "$ac_cv_lib_dl_dlopen" >&6; }
-if test "x$ac_cv_lib_dl_dlopen" = x""yes; then :
- lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -lsvld" >&5
-$as_echo_n "checking for dlopen in -lsvld... " >&6; }
-if test "${ac_cv_lib_svld_dlopen+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lsvld $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char dlopen ();
-int
-main ()
-{
-return dlopen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_svld_dlopen=yes
-else
- ac_cv_lib_svld_dlopen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_svld_dlopen" >&5
-$as_echo "$ac_cv_lib_svld_dlopen" >&6; }
-if test "x$ac_cv_lib_svld_dlopen" = x""yes; then :
- lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dld_link in -ldld" >&5
-$as_echo_n "checking for dld_link in -ldld... " >&6; }
-if test "${ac_cv_lib_dld_dld_link+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ldld $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char dld_link ();
-int
-main ()
-{
-return dld_link ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_dld_dld_link=yes
-else
- ac_cv_lib_dld_dld_link=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_dld_link" >&5
-$as_echo "$ac_cv_lib_dld_dld_link" >&6; }
-if test "x$ac_cv_lib_dld_dld_link" = x""yes; then :
- lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-ldld"
-fi
-
-
-fi
-
-
-fi
-
-
-fi
-
-
-fi
-
-
-fi
-
- ;;
- esac
-
- if test "x$lt_cv_dlopen" != xno; then
- enable_dlopen=yes
- else
- enable_dlopen=no
- fi
-
- case $lt_cv_dlopen in
- dlopen)
- save_CPPFLAGS="$CPPFLAGS"
- test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H"
-
- save_LDFLAGS="$LDFLAGS"
- wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\"
-
- save_LIBS="$LIBS"
- LIBS="$lt_cv_dlopen_libs $LIBS"
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a program can dlopen itself" >&5
-$as_echo_n "checking whether a program can dlopen itself... " >&6; }
-if test "${lt_cv_dlopen_self+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test "$cross_compiling" = yes; then :
- lt_cv_dlopen_self=cross
-else
- lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
- lt_status=$lt_dlunknown
- cat > conftest.$ac_ext <<_LT_EOF
-#line 11442 "configure"
-#include "confdefs.h"
-
-#if HAVE_DLFCN_H
-#include <dlfcn.h>
-#endif
-
-#include <stdio.h>
-
-#ifdef RTLD_GLOBAL
-# define LT_DLGLOBAL RTLD_GLOBAL
-#else
-# ifdef DL_GLOBAL
-# define LT_DLGLOBAL DL_GLOBAL
-# else
-# define LT_DLGLOBAL 0
-# endif
-#endif
-
-/* We may have to define LT_DLLAZY_OR_NOW in the command line if we
- find out it does not work in some platform. */
-#ifndef LT_DLLAZY_OR_NOW
-# ifdef RTLD_LAZY
-# define LT_DLLAZY_OR_NOW RTLD_LAZY
-# else
-# ifdef DL_LAZY
-# define LT_DLLAZY_OR_NOW DL_LAZY
-# else
-# ifdef RTLD_NOW
-# define LT_DLLAZY_OR_NOW RTLD_NOW
-# else
-# ifdef DL_NOW
-# define LT_DLLAZY_OR_NOW DL_NOW
-# else
-# define LT_DLLAZY_OR_NOW 0
-# endif
-# endif
-# endif
-# endif
-#endif
-
-void fnord() { int i=42;}
-int main ()
-{
- void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW);
- int status = $lt_dlunknown;
-
- if (self)
- {
- if (dlsym (self,"fnord")) status = $lt_dlno_uscore;
- else if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore;
- /* dlclose (self); */
- }
- else
- puts (dlerror ());
-
- return status;
-}
-_LT_EOF
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5
- (eval $ac_link) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && test -s conftest${ac_exeext} 2>/dev/null; then
- (./conftest; exit; ) >&5 2>/dev/null
- lt_status=$?
- case x$lt_status in
- x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;;
- x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;;
- x$lt_dlunknown|x*) lt_cv_dlopen_self=no ;;
- esac
- else :
- # compilation failed
- lt_cv_dlopen_self=no
- fi
-fi
-rm -fr conftest*
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self" >&5
-$as_echo "$lt_cv_dlopen_self" >&6; }
-
- if test "x$lt_cv_dlopen_self" = xyes; then
- wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a statically linked program can dlopen itself" >&5
-$as_echo_n "checking whether a statically linked program can dlopen itself... " >&6; }
-if test "${lt_cv_dlopen_self_static+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test "$cross_compiling" = yes; then :
- lt_cv_dlopen_self_static=cross
-else
- lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2
- lt_status=$lt_dlunknown
- cat > conftest.$ac_ext <<_LT_EOF
-#line 11538 "configure"
-#include "confdefs.h"
-
-#if HAVE_DLFCN_H
-#include <dlfcn.h>
-#endif
-
-#include <stdio.h>
-
-#ifdef RTLD_GLOBAL
-# define LT_DLGLOBAL RTLD_GLOBAL
-#else
-# ifdef DL_GLOBAL
-# define LT_DLGLOBAL DL_GLOBAL
-# else
-# define LT_DLGLOBAL 0
-# endif
-#endif
-
-/* We may have to define LT_DLLAZY_OR_NOW in the command line if we
- find out it does not work in some platform. */
-#ifndef LT_DLLAZY_OR_NOW
-# ifdef RTLD_LAZY
-# define LT_DLLAZY_OR_NOW RTLD_LAZY
-# else
-# ifdef DL_LAZY
-# define LT_DLLAZY_OR_NOW DL_LAZY
-# else
-# ifdef RTLD_NOW
-# define LT_DLLAZY_OR_NOW RTLD_NOW
-# else
-# ifdef DL_NOW
-# define LT_DLLAZY_OR_NOW DL_NOW
-# else
-# define LT_DLLAZY_OR_NOW 0
-# endif
-# endif
-# endif
-# endif
-#endif
-
-void fnord() { int i=42;}
-int main ()
-{
- void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW);
- int status = $lt_dlunknown;
-
- if (self)
- {
- if (dlsym (self,"fnord")) status = $lt_dlno_uscore;
- else if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore;
- /* dlclose (self); */
- }
- else
- puts (dlerror ());
-
- return status;
-}
-_LT_EOF
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5
- (eval $ac_link) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } && test -s conftest${ac_exeext} 2>/dev/null; then
- (./conftest; exit; ) >&5 2>/dev/null
- lt_status=$?
- case x$lt_status in
- x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;;
- x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;;
- x$lt_dlunknown|x*) lt_cv_dlopen_self_static=no ;;
- esac
- else :
- # compilation failed
- lt_cv_dlopen_self_static=no
- fi
-fi
-rm -fr conftest*
-
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self_static" >&5
-$as_echo "$lt_cv_dlopen_self_static" >&6; }
- fi
-
- CPPFLAGS="$save_CPPFLAGS"
- LDFLAGS="$save_LDFLAGS"
- LIBS="$save_LIBS"
- ;;
- esac
-
- case $lt_cv_dlopen_self in
- yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;;
- *) enable_dlopen_self=unknown ;;
- esac
-
- case $lt_cv_dlopen_self_static in
- yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;;
- *) enable_dlopen_self_static=unknown ;;
- esac
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-striplib=
-old_striplib=
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stripping libraries is possible" >&5
-$as_echo_n "checking whether stripping libraries is possible... " >&6; }
-if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then
- test -z "$old_striplib" && old_striplib="$STRIP --strip-debug"
- test -z "$striplib" && striplib="$STRIP --strip-unneeded"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
-# FIXME - insert some real tests, host_os isn't really good enough
- case $host_os in
- darwin*)
- if test -n "$STRIP" ; then
- striplib="$STRIP -x"
- old_striplib="$STRIP -S"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- fi
- ;;
- *)
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
- ;;
- esac
-fi
-
-
-
-
-
-
-
-
-
-
-
-
- # Report which library types will actually be built
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5
-$as_echo_n "checking if libtool supports shared libraries... " >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5
-$as_echo "$can_build_shared" >&6; }
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5
-$as_echo_n "checking whether to build shared libraries... " >&6; }
- test "$can_build_shared" = "no" && enable_shared=no
-
- # On AIX, shared libraries and static libraries use the same namespace, and
- # are all built from PIC.
- case $host_os in
- aix3*)
- test "$enable_shared" = yes && enable_static=no
- if test -n "$RANLIB"; then
- archive_cmds="$archive_cmds~\$RANLIB \$lib"
- postinstall_cmds='$RANLIB $lib'
- fi
- ;;
-
- aix[4-9]*)
- if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then
- test "$enable_shared" = yes && enable_static=no
- fi
- ;;
- esac
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5
-$as_echo "$enable_shared" >&6; }
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5
-$as_echo_n "checking whether to build static libraries... " >&6; }
- # Make sure either enable_shared or enable_static is yes.
- test "$enable_shared" = yes || enable_static=yes
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5
-$as_echo "$enable_static" >&6; }
-
-
-
-
-fi
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-CC="$lt_save_CC"
-
-
-ac_ext=cpp
-ac_cpp='$CXXCPP $CPPFLAGS'
-ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_cxx_compiler_gnu
-
-archive_cmds_need_lc_CXX=no
-allow_undefined_flag_CXX=
-always_export_symbols_CXX=no
-archive_expsym_cmds_CXX=
-compiler_needs_object_CXX=no
-export_dynamic_flag_spec_CXX=
-hardcode_direct_CXX=no
-hardcode_direct_absolute_CXX=no
-hardcode_libdir_flag_spec_CXX=
-hardcode_libdir_flag_spec_ld_CXX=
-hardcode_libdir_separator_CXX=
-hardcode_minus_L_CXX=no
-hardcode_shlibpath_var_CXX=unsupported
-hardcode_automatic_CXX=no
-inherit_rpath_CXX=no
-module_cmds_CXX=
-module_expsym_cmds_CXX=
-link_all_deplibs_CXX=unknown
-old_archive_cmds_CXX=$old_archive_cmds
-no_undefined_flag_CXX=
-whole_archive_flag_spec_CXX=
-enable_shared_with_static_runtimes_CXX=no
-
-# Source file extension for C++ test sources.
-ac_ext=cpp
-
-# Object file extension for compiled C++ test sources.
-objext=o
-objext_CXX=$objext
-
-# No sense in running all these tests if we already determined that
-# the CXX compiler isn't working. Some variables (like enable_shared)
-# are currently assumed to apply to all compilers on this platform,
-# and will be corrupted by setting them based on a non-working compiler.
-if test "$_lt_caught_CXX_error" != yes; then
- # Code to be used in simple compile tests
- lt_simple_compile_test_code="int some_variable = 0;"
-
- # Code to be used in simple link tests
- lt_simple_link_test_code='int main(int, char *[]) { return(0); }'
-
- # ltmain only uses $CC for tagged configurations so make sure $CC is set.
-
-
-
-
-
-
-# If no C compiler was specified, use CC.
-LTCC=${LTCC-"$CC"}
-
-# If no C compiler flags were specified, use CFLAGS.
-LTCFLAGS=${LTCFLAGS-"$CFLAGS"}
-
-# Allow CC to be a program name with arguments.
-compiler=$CC
-
-
- # save warnings/boilerplate of simple test code
- ac_outfile=conftest.$ac_objext
-echo "$lt_simple_compile_test_code" >conftest.$ac_ext
-eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
-_lt_compiler_boilerplate=`cat conftest.err`
-$RM conftest*
-
- ac_outfile=conftest.$ac_objext
-echo "$lt_simple_link_test_code" >conftest.$ac_ext
-eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err
-_lt_linker_boilerplate=`cat conftest.err`
-$RM -r conftest*
-
-
- # Allow CC to be a program name with arguments.
- lt_save_CC=$CC
- lt_save_LD=$LD
- lt_save_GCC=$GCC
- GCC=$GXX
- lt_save_with_gnu_ld=$with_gnu_ld
- lt_save_path_LD=$lt_cv_path_LD
- if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then
- lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx
- else
- $as_unset lt_cv_prog_gnu_ld
- fi
- if test -n "${lt_cv_path_LDCXX+set}"; then
- lt_cv_path_LD=$lt_cv_path_LDCXX
- else
- $as_unset lt_cv_path_LD
- fi
- test -z "${LDCXX+set}" || LD=$LDCXX
- CC=${CXX-"c++"}
- compiler=$CC
- compiler_CXX=$CC
- for cc_temp in $compiler""; do
- case $cc_temp in
- compile | *[\\/]compile | ccache | *[\\/]ccache ) ;;
- distcc | *[\\/]distcc | purify | *[\\/]purify ) ;;
- \-*) ;;
- *) break;;
- esac
-done
-cc_basename=`$ECHO "X$cc_temp" | $Xsed -e 's%.*/%%' -e "s%^$host_alias-%%"`
-
-
- if test -n "$compiler"; then
- # We don't want -fno-exception when compiling C++ code, so set the
- # no_builtin_flag separately
- if test "$GXX" = yes; then
- lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin'
- else
- lt_prog_compiler_no_builtin_flag_CXX=
- fi
-
- if test "$GXX" = yes; then
- # Set up default GNU C++ configuration
-
-
-
-# Check whether --with-gnu-ld was given.
-if test "${with_gnu_ld+set}" = set; then :
- withval=$with_gnu_ld; test "$withval" = no || with_gnu_ld=yes
-else
- with_gnu_ld=no
-fi
-
-ac_prog=ld
-if test "$GCC" = yes; then
- # Check if gcc -print-prog-name=ld gives a path.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5
-$as_echo_n "checking for ld used by $CC... " >&6; }
- case $host in
- *-*-mingw*)
- # gcc leaves a trailing carriage return which upsets mingw
- ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;;
- *)
- ac_prog=`($CC -print-prog-name=ld) 2>&5` ;;
- esac
- case $ac_prog in
- # Accept absolute paths.
- [\\/]* | ?:[\\/]*)
- re_direlt='/[^/][^/]*/\.\./'
- # Canonicalize the pathname of ld
- ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'`
- while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do
- ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"`
- done
- test -z "$LD" && LD="$ac_prog"
- ;;
- "")
- # If it fails, then pretend we aren't using GCC.
- ac_prog=ld
- ;;
- *)
- # If it is relative, then search for the first ld in PATH.
- with_gnu_ld=unknown
- ;;
- esac
-elif test "$with_gnu_ld" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5
-$as_echo_n "checking for GNU ld... " >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5
-$as_echo_n "checking for non-GNU ld... " >&6; }
-fi
-if test "${lt_cv_path_LD+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- if test -z "$LD"; then
- lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
- for ac_dir in $PATH; do
- IFS="$lt_save_ifs"
- test -z "$ac_dir" && ac_dir=.
- if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then
- lt_cv_path_LD="$ac_dir/$ac_prog"
- # Check to see if the program is GNU ld. I'd rather use --version,
- # but apparently some variants of GNU ld only accept -v.
- # Break only if it was the GNU/non-GNU ld that we prefer.
- case `"$lt_cv_path_LD" -v 2>&1 </dev/null` in
- *GNU* | *'with BFD'*)
- test "$with_gnu_ld" != no && break
- ;;
- *)
- test "$with_gnu_ld" != yes && break
- ;;
- esac
- fi
- done
- IFS="$lt_save_ifs"
-else
- lt_cv_path_LD="$LD" # Let the user override the test with a path.
-fi
-fi
-
-LD="$lt_cv_path_LD"
-if test -n "$LD"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LD" >&5
-$as_echo "$LD" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-test -z "$LD" && as_fn_error "no acceptable ld found in \$PATH" "$LINENO" 5
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5
-$as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; }
-if test "${lt_cv_prog_gnu_ld+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- # I'd rather use --version here, but apparently some GNU lds only accept -v.
-case `$LD -v 2>&1 </dev/null` in
-*GNU* | *'with BFD'*)
- lt_cv_prog_gnu_ld=yes
- ;;
-*)
- lt_cv_prog_gnu_ld=no
- ;;
-esac
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_gnu_ld" >&5
-$as_echo "$lt_cv_prog_gnu_ld" >&6; }
-with_gnu_ld=$lt_cv_prog_gnu_ld
-
-
-
-
-
-
-
- # Check if GNU C++ uses GNU ld as the underlying linker, since the
- # archiving commands below assume that GNU ld is being used.
- if test "$with_gnu_ld" = yes; then
- archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib'
- archive_expsym_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
-
- hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir'
- export_dynamic_flag_spec_CXX='${wl}--export-dynamic'
-
- # If archive_cmds runs LD, not CC, wlarc should be empty
- # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to
- # investigate it a little bit more. (MM)
- wlarc='${wl}'
-
- # ancient GNU ld didn't support --whole-archive et. al.
- if eval "`$CC -print-prog-name=ld` --help 2>&1" |
- $GREP 'no-whole-archive' > /dev/null; then
- whole_archive_flag_spec_CXX="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive'
- else
- whole_archive_flag_spec_CXX=
- fi
- else
- with_gnu_ld=no
- wlarc=
-
- # A generic and very simple default shared library creation
- # command for GNU C++ for the case where it uses the native
- # linker, instead of GNU ld. If possible, this setting should
- # overridden to take advantage of the native linker features on
- # the platform it is being used on.
- archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib'
- fi
-
- # Commands to make compiler produce verbose output that lists
- # what "hidden" libraries, object files and flags are used when
- # linking a shared library.
- output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "\-L"'
-
- else
- GXX=no
- with_gnu_ld=no
- wlarc=
- fi
-
- # PORTME: fill in a description of your system's C++ link characteristics
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5
-$as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; }
- ld_shlibs_CXX=yes
- case $host_os in
- aix3*)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- aix[4-9]*)
- if test "$host_cpu" = ia64; then
- # On IA64, the linker does run time linking by default, so we don't
- # have to do anything special.
- aix_use_runtimelinking=no
- exp_sym_flag='-Bexport'
- no_entry_flag=""
- else
- aix_use_runtimelinking=no
-
- # Test if we are trying to use run time linking or normal
- # AIX style linking. If -brtl is somewhere in LDFLAGS, we
- # need to do runtime linking.
- case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*)
- for ld_flag in $LDFLAGS; do
- case $ld_flag in
- *-brtl*)
- aix_use_runtimelinking=yes
- break
- ;;
- esac
- done
- ;;
- esac
-
- exp_sym_flag='-bexport'
- no_entry_flag='-bnoentry'
- fi
-
- # When large executables or shared objects are built, AIX ld can
- # have problems creating the table of contents. If linking a library
- # or program results in "error TOC overflow" add -mminimal-toc to
- # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not
- # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS.
-
- archive_cmds_CXX=''
- hardcode_direct_CXX=yes
- hardcode_direct_absolute_CXX=yes
- hardcode_libdir_separator_CXX=':'
- link_all_deplibs_CXX=yes
- file_list_spec_CXX='${wl}-f,'
-
- if test "$GXX" = yes; then
- case $host_os in aix4.[012]|aix4.[012].*)
- # We only want to do this on AIX 4.2 and lower, the check
- # below for broken collect2 doesn't work under 4.3+
- collect2name=`${CC} -print-prog-name=collect2`
- if test -f "$collect2name" &&
- strings "$collect2name" | $GREP resolve_lib_name >/dev/null
- then
- # We have reworked collect2
- :
- else
- # We have old collect2
- hardcode_direct_CXX=unsupported
- # It fails to find uninstalled libraries when the uninstalled
- # path is not listed in the libpath. Setting hardcode_minus_L
- # to unsupported forces relinking
- hardcode_minus_L_CXX=yes
- hardcode_libdir_flag_spec_CXX='-L$libdir'
- hardcode_libdir_separator_CXX=
- fi
- esac
- shared_flag='-shared'
- if test "$aix_use_runtimelinking" = yes; then
- shared_flag="$shared_flag "'${wl}-G'
- fi
- else
- # not using gcc
- if test "$host_cpu" = ia64; then
- # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release
- # chokes on -Wl,-G. The following line is correct:
- shared_flag='-G'
- else
- if test "$aix_use_runtimelinking" = yes; then
- shared_flag='${wl}-G'
- else
- shared_flag='${wl}-bM:SRE'
- fi
- fi
- fi
-
- export_dynamic_flag_spec_CXX='${wl}-bexpall'
- # It seems that -bexpall does not export symbols beginning with
- # underscore (_), so it is better to generate a list of symbols to
- # export.
- always_export_symbols_CXX=yes
- if test "$aix_use_runtimelinking" = yes; then
- # Warning - without using the other runtime loading flags (-brtl),
- # -berok will link without error, but may produce a broken library.
- allow_undefined_flag_CXX='-berok'
- # Determine the default libpath from the value encoded in an empty
- # executable.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_cxx_try_link "$LINENO"; then :
-
-lt_aix_libpath_sed='
- /Import File Strings/,/^$/ {
- /^0/ {
- s/^0 *\(.*\)$/\1/
- p
- }
- }'
-aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
-# Check for a 64-bit object if we didn't find anything.
-if test -z "$aix_libpath"; then
- aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
-fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi
-
- hardcode_libdir_flag_spec_CXX='${wl}-blibpath:$libdir:'"$aix_libpath"
-
- archive_expsym_cmds_CXX='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then $ECHO "X${wl}${allow_undefined_flag}" | $Xsed; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag"
- else
- if test "$host_cpu" = ia64; then
- hardcode_libdir_flag_spec_CXX='${wl}-R $libdir:/usr/lib:/lib'
- allow_undefined_flag_CXX="-z nodefs"
- archive_expsym_cmds_CXX="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols"
- else
- # Determine the default libpath from the value encoded in an
- # empty executable.
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_cxx_try_link "$LINENO"; then :
-
-lt_aix_libpath_sed='
- /Import File Strings/,/^$/ {
- /^0/ {
- s/^0 *\(.*\)$/\1/
- p
- }
- }'
-aix_libpath=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
-# Check for a 64-bit object if we didn't find anything.
-if test -z "$aix_libpath"; then
- aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
-fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi
-
- hardcode_libdir_flag_spec_CXX='${wl}-blibpath:$libdir:'"$aix_libpath"
- # Warning - without using the other run time loading flags,
- # -berok will link without error, but may produce a broken library.
- no_undefined_flag_CXX=' ${wl}-bernotok'
- allow_undefined_flag_CXX=' ${wl}-berok'
- # Exported symbols can be pulled into shared objects from archives
- whole_archive_flag_spec_CXX='$convenience'
- archive_cmds_need_lc_CXX=yes
- # This is similar to how AIX traditionally builds its shared
- # libraries.
- archive_expsym_cmds_CXX="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname'
- fi
- fi
- ;;
-
- beos*)
- if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then
- allow_undefined_flag_CXX=unsupported
- # Joseph Beckenbach <jrb3 at best.com> says some releases of gcc
- # support --undefined. This deserves some investigation. FIXME
- archive_cmds_CXX='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
- else
- ld_shlibs_CXX=no
- fi
- ;;
-
- chorus*)
- case $cc_basename in
- *)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- esac
- ;;
-
- cygwin* | mingw* | pw32* | cegcc*)
- # _LT_TAGVAR(hardcode_libdir_flag_spec, CXX) is actually meaningless,
- # as there is no search path for DLLs.
- hardcode_libdir_flag_spec_CXX='-L$libdir'
- allow_undefined_flag_CXX=unsupported
- always_export_symbols_CXX=no
- enable_shared_with_static_runtimes_CXX=yes
-
- if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then
- archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
- # If the export-symbols file already is a .def file (1st line
- # is EXPORTS), use it as is; otherwise, prepend...
- archive_expsym_cmds_CXX='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then
- cp $export_symbols $output_objdir/$soname.def;
- else
- echo EXPORTS > $output_objdir/$soname.def;
- cat $export_symbols >> $output_objdir/$soname.def;
- fi~
- $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib'
- else
- ld_shlibs_CXX=no
- fi
- ;;
- darwin* | rhapsody*)
-
-
- archive_cmds_need_lc_CXX=no
- hardcode_direct_CXX=no
- hardcode_automatic_CXX=yes
- hardcode_shlibpath_var_CXX=unsupported
- whole_archive_flag_spec_CXX=''
- link_all_deplibs_CXX=yes
- allow_undefined_flag_CXX="$_lt_dar_allow_undefined"
- case $cc_basename in
- ifort*) _lt_dar_can_shared=yes ;;
- *) _lt_dar_can_shared=$GCC ;;
- esac
- if test "$_lt_dar_can_shared" = "yes"; then
- output_verbose_link_cmd=echo
- archive_cmds_CXX="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}"
- module_cmds_CXX="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}"
- archive_expsym_cmds_CXX="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}"
- module_expsym_cmds_CXX="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}"
- if test "$lt_cv_apple_cc_single_mod" != "yes"; then
- archive_cmds_CXX="\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dsymutil}"
- archive_expsym_cmds_CXX="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dar_export_syms}${_lt_dsymutil}"
- fi
-
- else
- ld_shlibs_CXX=no
- fi
-
- ;;
-
- dgux*)
- case $cc_basename in
- ec++*)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- ghcx*)
- # Green Hills C++ Compiler
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- *)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- esac
- ;;
-
- freebsd[12]*)
- # C++ shared libraries reported to be fairly broken before
- # switch to ELF
- ld_shlibs_CXX=no
- ;;
-
- freebsd-elf*)
- archive_cmds_need_lc_CXX=no
- ;;
-
- freebsd* | dragonfly*)
- # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF
- # conventions
- ld_shlibs_CXX=yes
- ;;
-
- gnu*)
- ;;
-
- hpux9*)
- hardcode_libdir_flag_spec_CXX='${wl}+b ${wl}$libdir'
- hardcode_libdir_separator_CXX=:
- export_dynamic_flag_spec_CXX='${wl}-E'
- hardcode_direct_CXX=yes
- hardcode_minus_L_CXX=yes # Not in the search PATH,
- # but as the default
- # location of the library.
-
- case $cc_basename in
- CC*)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- aCC*)
- archive_cmds_CXX='$RM $output_objdir/$soname~$CC -b ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
- # Commands to make compiler produce verbose output that lists
- # what "hidden" libraries, object files and flags are used when
- # linking a shared library.
- #
- # There doesn't appear to be a way to prevent this compiler from
- # explicitly linking system object files so we need to strip them
- # from the output so that they don't get included in the library
- # dependencies.
- output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $EGREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; $ECHO "X$list" | $Xsed'
- ;;
- *)
- if test "$GXX" = yes; then
- archive_cmds_CXX='$RM $output_objdir/$soname~$CC -shared -nostdlib -fPIC ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib'
- else
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- fi
- ;;
- esac
- ;;
-
- hpux10*|hpux11*)
- if test $with_gnu_ld = no; then
- hardcode_libdir_flag_spec_CXX='${wl}+b ${wl}$libdir'
- hardcode_libdir_separator_CXX=:
-
- case $host_cpu in
- hppa*64*|ia64*)
- ;;
- *)
- export_dynamic_flag_spec_CXX='${wl}-E'
- ;;
- esac
- fi
- case $host_cpu in
- hppa*64*|ia64*)
- hardcode_direct_CXX=no
- hardcode_shlibpath_var_CXX=no
- ;;
- *)
- hardcode_direct_CXX=yes
- hardcode_direct_absolute_CXX=yes
- hardcode_minus_L_CXX=yes # Not in the search PATH,
- # but as the default
- # location of the library.
- ;;
- esac
-
- case $cc_basename in
- CC*)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- aCC*)
- case $host_cpu in
- hppa*64*)
- archive_cmds_CXX='$CC -b ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
- ;;
- ia64*)
- archive_cmds_CXX='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
- ;;
- *)
- archive_cmds_CXX='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
- ;;
- esac
- # Commands to make compiler produce verbose output that lists
- # what "hidden" libraries, object files and flags are used when
- # linking a shared library.
- #
- # There doesn't appear to be a way to prevent this compiler from
- # explicitly linking system object files so we need to strip them
- # from the output so that they don't get included in the library
- # dependencies.
- output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $GREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; $ECHO "X$list" | $Xsed'
- ;;
- *)
- if test "$GXX" = yes; then
- if test $with_gnu_ld = no; then
- case $host_cpu in
- hppa*64*)
- archive_cmds_CXX='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
- ;;
- ia64*)
- archive_cmds_CXX='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
- ;;
- *)
- archive_cmds_CXX='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
- ;;
- esac
- fi
- else
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- fi
- ;;
- esac
- ;;
-
- interix[3-9]*)
- hardcode_direct_CXX=no
- hardcode_shlibpath_var_CXX=no
- hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir'
- export_dynamic_flag_spec_CXX='${wl}-E'
- # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc.
- # Instead, shared libraries are loaded at an image base (0x10000000 by
- # default) and relocated if they conflict, which is a slow very memory
- # consuming and fragmenting process. To avoid this, we pick a random,
- # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link
- # time. Moving up from 0x10000000 also allows more sbrk(2) space.
- archive_cmds_CXX='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
- archive_expsym_cmds_CXX='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib'
- ;;
- irix5* | irix6*)
- case $cc_basename in
- CC*)
- # SGI C++
- archive_cmds_CXX='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && $ECHO "X-set_version $verstring" | $Xsed` -update_registry ${output_objdir}/so_locations -o $lib'
-
- # Archives containing C++ object files must be created using
- # "CC -ar", where "CC" is the IRIX C++ compiler. This is
- # necessary to make sure instantiated templates are included
- # in the archive.
- old_archive_cmds_CXX='$CC -ar -WR,-u -o $oldlib $oldobjs'
- ;;
- *)
- if test "$GXX" = yes; then
- if test "$with_gnu_ld" = no; then
- archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
- else
- archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` -o $lib'
- fi
- fi
- link_all_deplibs_CXX=yes
- ;;
- esac
- hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir'
- hardcode_libdir_separator_CXX=:
- inherit_rpath_CXX=yes
- ;;
-
- linux* | k*bsd*-gnu | kopensolaris*-gnu)
- case $cc_basename in
- KCC*)
- # Kuck and Associates, Inc. (KAI) C++ Compiler
-
- # KCC will only create a shared library if the output file
- # ends with ".so" (or ".sl" for HP-UX), so rename the library
- # to its proper name (with version) after linking.
- archive_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib'
- archive_expsym_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib ${wl}-retain-symbols-file,$export_symbols; mv \$templib $lib'
- # Commands to make compiler produce verbose output that lists
- # what "hidden" libraries, object files and flags are used when
- # linking a shared library.
- #
- # There doesn't appear to be a way to prevent this compiler from
- # explicitly linking system object files so we need to strip them
- # from the output so that they don't get included in the library
- # dependencies.
- output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | $GREP "ld"`; rm -f libconftest$shared_ext; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; $ECHO "X$list" | $Xsed'
-
- hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir'
- export_dynamic_flag_spec_CXX='${wl}--export-dynamic'
-
- # Archives containing C++ object files must be created using
- # "CC -Bstatic", where "CC" is the KAI C++ compiler.
- old_archive_cmds_CXX='$CC -Bstatic -o $oldlib $oldobjs'
- ;;
- icpc* | ecpc* )
- # Intel C++
- with_gnu_ld=yes
- # version 8.0 and above of icpc choke on multiply defined symbols
- # if we add $predep_objects and $postdep_objects, however 7.1 and
- # earlier do not add the objects themselves.
- case `$CC -V 2>&1` in
- *"Version 7."*)
- archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib'
- archive_expsym_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
- ;;
- *) # Version 8.0 or newer
- tmp_idyn=
- case $host_cpu in
- ia64*) tmp_idyn=' -i_dynamic';;
- esac
- archive_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
- archive_expsym_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib'
- ;;
- esac
- archive_cmds_need_lc_CXX=no
- hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir'
- export_dynamic_flag_spec_CXX='${wl}--export-dynamic'
- whole_archive_flag_spec_CXX='${wl}--whole-archive$convenience ${wl}--no-whole-archive'
- ;;
- pgCC* | pgcpp*)
- # Portland Group C++ compiler
- case `$CC -V` in
- *pgCC\ [1-5]* | *pgcpp\ [1-5]*)
- prelink_cmds_CXX='tpldir=Template.dir~
- rm -rf $tpldir~
- $CC --prelink_objects --instantiation_dir $tpldir $objs $libobjs $compile_deplibs~
- compile_command="$compile_command `find $tpldir -name \*.o | $NL2SP`"'
- old_archive_cmds_CXX='tpldir=Template.dir~
- rm -rf $tpldir~
- $CC --prelink_objects --instantiation_dir $tpldir $oldobjs$old_deplibs~
- $AR $AR_FLAGS $oldlib$oldobjs$old_deplibs `find $tpldir -name \*.o | $NL2SP`~
- $RANLIB $oldlib'
- archive_cmds_CXX='tpldir=Template.dir~
- rm -rf $tpldir~
- $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~
- $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib'
- archive_expsym_cmds_CXX='tpldir=Template.dir~
- rm -rf $tpldir~
- $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~
- $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib'
- ;;
- *) # Version 6 will use weak symbols
- archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib'
- archive_expsym_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib'
- ;;
- esac
-
- hardcode_libdir_flag_spec_CXX='${wl}--rpath ${wl}$libdir'
- export_dynamic_flag_spec_CXX='${wl}--export-dynamic'
- whole_archive_flag_spec_CXX='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; $ECHO \"$new_convenience\"` ${wl}--no-whole-archive'
- ;;
- cxx*)
- # Compaq C++
- archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib'
- archive_expsym_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib ${wl}-retain-symbols-file $wl$export_symbols'
-
- runpath_var=LD_RUN_PATH
- hardcode_libdir_flag_spec_CXX='-rpath $libdir'
- hardcode_libdir_separator_CXX=:
-
- # Commands to make compiler produce verbose output that lists
- # what "hidden" libraries, object files and flags are used when
- # linking a shared library.
- #
- # There doesn't appear to be a way to prevent this compiler from
- # explicitly linking system object files so we need to strip them
- # from the output so that they don't get included in the library
- # dependencies.
- output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld"`; templist=`$ECHO "X$templist" | $Xsed -e "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; $ECHO "X$list" | $Xsed'
- ;;
- xl*)
- # IBM XL 8.0 on PPC, with GNU ld
- hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir'
- export_dynamic_flag_spec_CXX='${wl}--export-dynamic'
- archive_cmds_CXX='$CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib'
- if test "x$supports_anon_versioning" = xyes; then
- archive_expsym_cmds_CXX='echo "{ global:" > $output_objdir/$libname.ver~
- cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~
- echo "local: *; };" >> $output_objdir/$libname.ver~
- $CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib'
- fi
- ;;
- *)
- case `$CC -V 2>&1 | sed 5q` in
- *Sun\ C*)
- # Sun C++ 5.9
- no_undefined_flag_CXX=' -zdefs'
- archive_cmds_CXX='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
- archive_expsym_cmds_CXX='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file ${wl}$export_symbols'
- hardcode_libdir_flag_spec_CXX='-R$libdir'
- whole_archive_flag_spec_CXX='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; $ECHO \"$new_convenience\"` ${wl}--no-whole-archive'
- compiler_needs_object_CXX=yes
-
- # Not sure whether something based on
- # $CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1
- # would be better.
- output_verbose_link_cmd='echo'
-
- # Archives containing C++ object files must be created using
- # "CC -xar", where "CC" is the Sun C++ compiler. This is
- # necessary to make sure instantiated templates are included
- # in the archive.
- old_archive_cmds_CXX='$CC -xar -o $oldlib $oldobjs'
- ;;
- esac
- ;;
- esac
- ;;
-
- lynxos*)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
-
- m88k*)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
-
- mvs*)
- case $cc_basename in
- cxx*)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- *)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- esac
- ;;
-
- netbsd*)
- if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
- archive_cmds_CXX='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags'
- wlarc=
- hardcode_libdir_flag_spec_CXX='-R$libdir'
- hardcode_direct_CXX=yes
- hardcode_shlibpath_var_CXX=no
- fi
- # Workaround some broken pre-1.5 toolchains
- output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"'
- ;;
-
- *nto* | *qnx*)
- ld_shlibs_CXX=yes
- ;;
-
- openbsd2*)
- # C++ shared libraries are fairly broken
- ld_shlibs_CXX=no
- ;;
-
- openbsd*)
- if test -f /usr/libexec/ld.so; then
- hardcode_direct_CXX=yes
- hardcode_shlibpath_var_CXX=no
- hardcode_direct_absolute_CXX=yes
- archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib'
- hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir'
- if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
- archive_expsym_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file,$export_symbols -o $lib'
- export_dynamic_flag_spec_CXX='${wl}-E'
- whole_archive_flag_spec_CXX="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive'
- fi
- output_verbose_link_cmd=echo
- else
- ld_shlibs_CXX=no
- fi
- ;;
-
- osf3* | osf4* | osf5*)
- case $cc_basename in
- KCC*)
- # Kuck and Associates, Inc. (KAI) C++ Compiler
-
- # KCC will only create a shared library if the output file
- # ends with ".so" (or ".sl" for HP-UX), so rename the library
- # to its proper name (with version) after linking.
- archive_cmds_CXX='tempext=`echo $shared_ext | $SED -e '\''s/\([^()0-9A-Za-z{}]\)/\\\\\1/g'\''`; templib=`echo "$lib" | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib'
-
- hardcode_libdir_flag_spec_CXX='${wl}-rpath,$libdir'
- hardcode_libdir_separator_CXX=:
-
- # Archives containing C++ object files must be created using
- # the KAI C++ compiler.
- case $host in
- osf3*) old_archive_cmds_CXX='$CC -Bstatic -o $oldlib $oldobjs' ;;
- *) old_archive_cmds_CXX='$CC -o $oldlib $oldobjs' ;;
- esac
- ;;
- RCC*)
- # Rational C++ 2.4.1
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- cxx*)
- case $host in
- osf3*)
- allow_undefined_flag_CXX=' ${wl}-expect_unresolved ${wl}\*'
- archive_cmds_CXX='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $soname `test -n "$verstring" && $ECHO "X${wl}-set_version $verstring" | $Xsed` -update_registry ${output_objdir}/so_locations -o $lib'
- hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir'
- ;;
- *)
- allow_undefined_flag_CXX=' -expect_unresolved \*'
- archive_cmds_CXX='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && $ECHO "X-set_version $verstring" | $Xsed` -update_registry ${output_objdir}/so_locations -o $lib'
- archive_expsym_cmds_CXX='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~
- echo "-hidden">> $lib.exp~
- $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname ${wl}-input ${wl}$lib.exp `test -n "$verstring" && $ECHO "X-set_version $verstring" | $Xsed` -update_registry ${output_objdir}/so_locations -o $lib~
- $RM $lib.exp'
- hardcode_libdir_flag_spec_CXX='-rpath $libdir'
- ;;
- esac
-
- hardcode_libdir_separator_CXX=:
-
- # Commands to make compiler produce verbose output that lists
- # what "hidden" libraries, object files and flags are used when
- # linking a shared library.
- #
- # There doesn't appear to be a way to prevent this compiler from
- # explicitly linking system object files so we need to strip them
- # from the output so that they don't get included in the library
- # dependencies.
- output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld" | $GREP -v "ld:"`; templist=`$ECHO "X$templist" | $Xsed -e "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; $ECHO "X$list" | $Xsed'
- ;;
- *)
- if test "$GXX" = yes && test "$with_gnu_ld" = no; then
- allow_undefined_flag_CXX=' ${wl}-expect_unresolved ${wl}\*'
- case $host in
- osf3*)
- archive_cmds_CXX='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
- ;;
- *)
- archive_cmds_CXX='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "${wl}-set_version ${wl}$verstring" | $Xsed` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
- ;;
- esac
-
- hardcode_libdir_flag_spec_CXX='${wl}-rpath ${wl}$libdir'
- hardcode_libdir_separator_CXX=:
-
- # Commands to make compiler produce verbose output that lists
- # what "hidden" libraries, object files and flags are used when
- # linking a shared library.
- output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "\-L"'
-
- else
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- fi
- ;;
- esac
- ;;
-
- psos*)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
-
- sunos4*)
- case $cc_basename in
- CC*)
- # Sun C++ 4.x
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- lcc*)
- # Lucid
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- *)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- esac
- ;;
-
- solaris*)
- case $cc_basename in
- CC*)
- # Sun C++ 4.2, 5.x and Centerline C++
- archive_cmds_need_lc_CXX=yes
- no_undefined_flag_CXX=' -zdefs'
- archive_cmds_CXX='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
- archive_expsym_cmds_CXX='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
- $CC -G${allow_undefined_flag} ${wl}-M ${wl}$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp'
-
- hardcode_libdir_flag_spec_CXX='-R$libdir'
- hardcode_shlibpath_var_CXX=no
- case $host_os in
- solaris2.[0-5] | solaris2.[0-5].*) ;;
- *)
- # The compiler driver will combine and reorder linker options,
- # but understands `-z linker_flag'.
- # Supported since Solaris 2.6 (maybe 2.5.1?)
- whole_archive_flag_spec_CXX='-z allextract$convenience -z defaultextract'
- ;;
- esac
- link_all_deplibs_CXX=yes
-
- output_verbose_link_cmd='echo'
-
- # Archives containing C++ object files must be created using
- # "CC -xar", where "CC" is the Sun C++ compiler. This is
- # necessary to make sure instantiated templates are included
- # in the archive.
- old_archive_cmds_CXX='$CC -xar -o $oldlib $oldobjs'
- ;;
- gcx*)
- # Green Hills C++ Compiler
- archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib'
-
- # The C++ compiler must be used to create the archive.
- old_archive_cmds_CXX='$CC $LDFLAGS -archive -o $oldlib $oldobjs'
- ;;
- *)
- # GNU C++ compiler with Solaris linker
- if test "$GXX" = yes && test "$with_gnu_ld" = no; then
- no_undefined_flag_CXX=' ${wl}-z ${wl}defs'
- if $CC --version | $GREP -v '^2\.7' > /dev/null; then
- archive_cmds_CXX='$CC -shared -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib'
- archive_expsym_cmds_CXX='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
- $CC -shared -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp'
-
- # Commands to make compiler produce verbose output that lists
- # what "hidden" libraries, object files and flags are used when
- # linking a shared library.
- output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "\-L"'
- else
- # g++ 2.7 appears to require `-G' NOT `-shared' on this
- # platform.
- archive_cmds_CXX='$CC -G -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib'
- archive_expsym_cmds_CXX='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~
- $CC -G -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp'
-
- # Commands to make compiler produce verbose output that lists
- # what "hidden" libraries, object files and flags are used when
- # linking a shared library.
- output_verbose_link_cmd='$CC -G $CFLAGS -v conftest.$objext 2>&1 | $GREP "\-L"'
- fi
-
- hardcode_libdir_flag_spec_CXX='${wl}-R $wl$libdir'
- case $host_os in
- solaris2.[0-5] | solaris2.[0-5].*) ;;
- *)
- whole_archive_flag_spec_CXX='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract'
- ;;
- esac
- fi
- ;;
- esac
- ;;
-
- sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*)
- no_undefined_flag_CXX='${wl}-z,text'
- archive_cmds_need_lc_CXX=no
- hardcode_shlibpath_var_CXX=no
- runpath_var='LD_RUN_PATH'
-
- case $cc_basename in
- CC*)
- archive_cmds_CXX='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds_CXX='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- *)
- archive_cmds_CXX='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds_CXX='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- esac
- ;;
-
- sysv5* | sco3.2v5* | sco5v6*)
- # Note: We can NOT use -z defs as we might desire, because we do not
- # link with -lc, and that would cause any symbols used from libc to
- # always be unresolved, which means just about no library would
- # ever link correctly. If we're not using GNU ld we use -z text
- # though, which does catch some bad symbols but isn't as heavy-handed
- # as -z defs.
- no_undefined_flag_CXX='${wl}-z,text'
- allow_undefined_flag_CXX='${wl}-z,nodefs'
- archive_cmds_need_lc_CXX=no
- hardcode_shlibpath_var_CXX=no
- hardcode_libdir_flag_spec_CXX='${wl}-R,$libdir'
- hardcode_libdir_separator_CXX=':'
- link_all_deplibs_CXX=yes
- export_dynamic_flag_spec_CXX='${wl}-Bexport'
- runpath_var='LD_RUN_PATH'
-
- case $cc_basename in
- CC*)
- archive_cmds_CXX='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds_CXX='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- *)
- archive_cmds_CXX='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- archive_expsym_cmds_CXX='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags'
- ;;
- esac
- ;;
-
- tandem*)
- case $cc_basename in
- NCC*)
- # NonStop-UX NCC 3.20
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- *)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- esac
- ;;
-
- vxworks*)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
-
- *)
- # FIXME: insert proper C++ library support
- ld_shlibs_CXX=no
- ;;
- esac
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_CXX" >&5
-$as_echo "$ld_shlibs_CXX" >&6; }
- test "$ld_shlibs_CXX" = no && can_build_shared=no
-
- GCC_CXX="$GXX"
- LD_CXX="$LD"
-
- ## CAVEAT EMPTOR:
- ## There is no encapsulation within the following macros, do not change
- ## the running order or otherwise move them around unless you know exactly
- ## what you are doing...
- # Dependencies to place before and after the object being linked:
-predep_objects_CXX=
-postdep_objects_CXX=
-predeps_CXX=
-postdeps_CXX=
-compiler_lib_search_path_CXX=
-
-cat > conftest.$ac_ext <<_LT_EOF
-class Foo
-{
-public:
- Foo (void) { a = 0; }
-private:
- int a;
-};
-_LT_EOF
-
-if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }; then
- # Parse the compiler output and extract the necessary
- # objects, libraries and library flags.
-
- # Sentinel used to keep track of whether or not we are before
- # the conftest object file.
- pre_test_object_deps_done=no
-
- for p in `eval "$output_verbose_link_cmd"`; do
- case $p in
-
- -L* | -R* | -l*)
- # Some compilers place space between "-{L,R}" and the path.
- # Remove the space.
- if test $p = "-L" ||
- test $p = "-R"; then
- prev=$p
- continue
- else
- prev=
- fi
-
- if test "$pre_test_object_deps_done" = no; then
- case $p in
- -L* | -R*)
- # Internal compiler library paths should come after those
- # provided the user. The postdeps already come after the
- # user supplied libs so there is no need to process them.
- if test -z "$compiler_lib_search_path_CXX"; then
- compiler_lib_search_path_CXX="${prev}${p}"
- else
- compiler_lib_search_path_CXX="${compiler_lib_search_path_CXX} ${prev}${p}"
- fi
- ;;
- # The "-l" case would never come before the object being
- # linked, so don't bother handling this case.
- esac
- else
- if test -z "$postdeps_CXX"; then
- postdeps_CXX="${prev}${p}"
- else
- postdeps_CXX="${postdeps_CXX} ${prev}${p}"
- fi
- fi
- ;;
-
- *.$objext)
- # This assumes that the test object file only shows up
- # once in the compiler output.
- if test "$p" = "conftest.$objext"; then
- pre_test_object_deps_done=yes
- continue
- fi
-
- if test "$pre_test_object_deps_done" = no; then
- if test -z "$predep_objects_CXX"; then
- predep_objects_CXX="$p"
- else
- predep_objects_CXX="$predep_objects_CXX $p"
- fi
- else
- if test -z "$postdep_objects_CXX"; then
- postdep_objects_CXX="$p"
- else
- postdep_objects_CXX="$postdep_objects_CXX $p"
- fi
- fi
- ;;
-
- *) ;; # Ignore the rest.
-
- esac
- done
-
- # Clean up.
- rm -f a.out a.exe
-else
- echo "libtool.m4: error: problem compiling CXX test program"
-fi
-
-$RM -f confest.$objext
-
-# PORTME: override above test on systems where it is broken
-case $host_os in
-interix[3-9]*)
- # Interix 3.5 installs completely hosed .la files for C++, so rather than
- # hack all around it, let's just trust "g++" to DTRT.
- predep_objects_CXX=
- postdep_objects_CXX=
- postdeps_CXX=
- ;;
-
-linux*)
- case `$CC -V 2>&1 | sed 5q` in
- *Sun\ C*)
- # Sun C++ 5.9
-
- # The more standards-conforming stlport4 library is
- # incompatible with the Cstd library. Avoid specifying
- # it if it's in CXXFLAGS. Ignore libCrun as
- # -library=stlport4 depends on it.
- case " $CXX $CXXFLAGS " in
- *" -library=stlport4 "*)
- solaris_use_stlport4=yes
- ;;
- esac
-
- if test "$solaris_use_stlport4" != yes; then
- postdeps_CXX='-library=Cstd -library=Crun'
- fi
- ;;
- esac
- ;;
-
-solaris*)
- case $cc_basename in
- CC*)
- # The more standards-conforming stlport4 library is
- # incompatible with the Cstd library. Avoid specifying
- # it if it's in CXXFLAGS. Ignore libCrun as
- # -library=stlport4 depends on it.
- case " $CXX $CXXFLAGS " in
- *" -library=stlport4 "*)
- solaris_use_stlport4=yes
- ;;
- esac
-
- # Adding this requires a known-good setup of shared libraries for
- # Sun compiler versions before 5.6, else PIC objects from an old
- # archive will be linked into the output, leading to subtle bugs.
- if test "$solaris_use_stlport4" != yes; then
- postdeps_CXX='-library=Cstd -library=Crun'
- fi
- ;;
- esac
- ;;
-esac
-
-
-case " $postdeps_CXX " in
-*" -lc "*) archive_cmds_need_lc_CXX=no ;;
-esac
- compiler_lib_search_dirs_CXX=
-if test -n "${compiler_lib_search_path_CXX}"; then
- compiler_lib_search_dirs_CXX=`echo " ${compiler_lib_search_path_CXX}" | ${SED} -e 's! -L! !g' -e 's!^ !!'`
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- lt_prog_compiler_wl_CXX=
-lt_prog_compiler_pic_CXX=
-lt_prog_compiler_static_CXX=
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5
-$as_echo_n "checking for $compiler option to produce PIC... " >&6; }
-
- # C++ specific cases for pic, static, wl, etc.
- if test "$GXX" = yes; then
- lt_prog_compiler_wl_CXX='-Wl,'
- lt_prog_compiler_static_CXX='-static'
-
- case $host_os in
- aix*)
- # All AIX code is PIC.
- if test "$host_cpu" = ia64; then
- # AIX 5 now supports IA64 processor
- lt_prog_compiler_static_CXX='-Bstatic'
- fi
- ;;
-
- amigaos*)
- case $host_cpu in
- powerpc)
- # see comment about AmigaOS4 .so support
- lt_prog_compiler_pic_CXX='-fPIC'
- ;;
- m68k)
- # FIXME: we need at least 68020 code to build shared libraries, but
- # adding the `-m68020' flag to GCC prevents building anything better,
- # like `-m68040'.
- lt_prog_compiler_pic_CXX='-m68020 -resident32 -malways-restore-a4'
- ;;
- esac
- ;;
-
- beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*)
- # PIC is the default for these OSes.
- ;;
- mingw* | cygwin* | os2* | pw32* | cegcc*)
- # This hack is so that the source file can tell whether it is being
- # built for inclusion in a dll (and should export symbols for example).
- # Although the cygwin gcc ignores -fPIC, still need this for old-style
- # (--disable-auto-import) libraries
- lt_prog_compiler_pic_CXX='-DDLL_EXPORT'
- ;;
- darwin* | rhapsody*)
- # PIC is the default on this platform
- # Common symbols not allowed in MH_DYLIB files
- lt_prog_compiler_pic_CXX='-fno-common'
- ;;
- *djgpp*)
- # DJGPP does not support shared libraries at all
- lt_prog_compiler_pic_CXX=
- ;;
- interix[3-9]*)
- # Interix 3.x gcc -fpic/-fPIC options generate broken code.
- # Instead, we relocate shared libraries at runtime.
- ;;
- sysv4*MP*)
- if test -d /usr/nec; then
- lt_prog_compiler_pic_CXX=-Kconform_pic
- fi
- ;;
- hpux*)
- # PIC is the default for 64-bit PA HP-UX, but not for 32-bit
- # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag
- # sets the default TLS model and affects inlining.
- case $host_cpu in
- hppa*64*)
- ;;
- *)
- lt_prog_compiler_pic_CXX='-fPIC'
- ;;
- esac
- ;;
- *qnx* | *nto*)
- # QNX uses GNU C++, but need to define -shared option too, otherwise
- # it will coredump.
- lt_prog_compiler_pic_CXX='-fPIC -shared'
- ;;
- *)
- lt_prog_compiler_pic_CXX='-fPIC'
- ;;
- esac
- else
- case $host_os in
- aix[4-9]*)
- # All AIX code is PIC.
- if test "$host_cpu" = ia64; then
- # AIX 5 now supports IA64 processor
- lt_prog_compiler_static_CXX='-Bstatic'
- else
- lt_prog_compiler_static_CXX='-bnso -bI:/lib/syscalls.exp'
- fi
- ;;
- chorus*)
- case $cc_basename in
- cxch68*)
- # Green Hills C++ Compiler
- # _LT_TAGVAR(lt_prog_compiler_static, CXX)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a"
- ;;
- esac
- ;;
- dgux*)
- case $cc_basename in
- ec++*)
- lt_prog_compiler_pic_CXX='-KPIC'
- ;;
- ghcx*)
- # Green Hills C++ Compiler
- lt_prog_compiler_pic_CXX='-pic'
- ;;
- *)
- ;;
- esac
- ;;
- freebsd* | dragonfly*)
- # FreeBSD uses GNU C++
- ;;
- hpux9* | hpux10* | hpux11*)
- case $cc_basename in
- CC*)
- lt_prog_compiler_wl_CXX='-Wl,'
- lt_prog_compiler_static_CXX='${wl}-a ${wl}archive'
- if test "$host_cpu" != ia64; then
- lt_prog_compiler_pic_CXX='+Z'
- fi
- ;;
- aCC*)
- lt_prog_compiler_wl_CXX='-Wl,'
- lt_prog_compiler_static_CXX='${wl}-a ${wl}archive'
- case $host_cpu in
- hppa*64*|ia64*)
- # +Z the default
- ;;
- *)
- lt_prog_compiler_pic_CXX='+Z'
- ;;
- esac
- ;;
- *)
- ;;
- esac
- ;;
- interix*)
- # This is c89, which is MS Visual C++ (no shared libs)
- # Anyone wants to do a port?
- ;;
- irix5* | irix6* | nonstopux*)
- case $cc_basename in
- CC*)
- lt_prog_compiler_wl_CXX='-Wl,'
- lt_prog_compiler_static_CXX='-non_shared'
- # CC pic flag -KPIC is the default.
- ;;
- *)
- ;;
- esac
- ;;
- linux* | k*bsd*-gnu | kopensolaris*-gnu)
- case $cc_basename in
- KCC*)
- # KAI C++ Compiler
- lt_prog_compiler_wl_CXX='--backend -Wl,'
- lt_prog_compiler_pic_CXX='-fPIC'
- ;;
- ecpc* )
- # old Intel C++ for x86_64 which still supported -KPIC.
- lt_prog_compiler_wl_CXX='-Wl,'
- lt_prog_compiler_pic_CXX='-KPIC'
- lt_prog_compiler_static_CXX='-static'
- ;;
- icpc* )
- # Intel C++, used to be incompatible with GCC.
- # ICC 10 doesn't accept -KPIC any more.
- lt_prog_compiler_wl_CXX='-Wl,'
- lt_prog_compiler_pic_CXX='-fPIC'
- lt_prog_compiler_static_CXX='-static'
- ;;
- pgCC* | pgcpp*)
- # Portland Group C++ compiler
- lt_prog_compiler_wl_CXX='-Wl,'
- lt_prog_compiler_pic_CXX='-fpic'
- lt_prog_compiler_static_CXX='-Bstatic'
- ;;
- cxx*)
- # Compaq C++
- # Make sure the PIC flag is empty. It appears that all Alpha
- # Linux and Compaq Tru64 Unix objects are PIC.
- lt_prog_compiler_pic_CXX=
- lt_prog_compiler_static_CXX='-non_shared'
- ;;
- xlc* | xlC*)
- # IBM XL 8.0 on PPC
- lt_prog_compiler_wl_CXX='-Wl,'
- lt_prog_compiler_pic_CXX='-qpic'
- lt_prog_compiler_static_CXX='-qstaticlink'
- ;;
- *)
- case `$CC -V 2>&1 | sed 5q` in
- *Sun\ C*)
- # Sun C++ 5.9
- lt_prog_compiler_pic_CXX='-KPIC'
- lt_prog_compiler_static_CXX='-Bstatic'
- lt_prog_compiler_wl_CXX='-Qoption ld '
- ;;
- esac
- ;;
- esac
- ;;
- lynxos*)
- ;;
- m88k*)
- ;;
- mvs*)
- case $cc_basename in
- cxx*)
- lt_prog_compiler_pic_CXX='-W c,exportall'
- ;;
- *)
- ;;
- esac
- ;;
- netbsd* | netbsdelf*-gnu)
- ;;
- *qnx* | *nto*)
- # QNX uses GNU C++, but need to define -shared option too, otherwise
- # it will coredump.
- lt_prog_compiler_pic_CXX='-fPIC -shared'
- ;;
- osf3* | osf4* | osf5*)
- case $cc_basename in
- KCC*)
- lt_prog_compiler_wl_CXX='--backend -Wl,'
- ;;
- RCC*)
- # Rational C++ 2.4.1
- lt_prog_compiler_pic_CXX='-pic'
- ;;
- cxx*)
- # Digital/Compaq C++
- lt_prog_compiler_wl_CXX='-Wl,'
- # Make sure the PIC flag is empty. It appears that all Alpha
- # Linux and Compaq Tru64 Unix objects are PIC.
- lt_prog_compiler_pic_CXX=
- lt_prog_compiler_static_CXX='-non_shared'
- ;;
- *)
- ;;
- esac
- ;;
- psos*)
- ;;
- solaris*)
- case $cc_basename in
- CC*)
- # Sun C++ 4.2, 5.x and Centerline C++
- lt_prog_compiler_pic_CXX='-KPIC'
- lt_prog_compiler_static_CXX='-Bstatic'
- lt_prog_compiler_wl_CXX='-Qoption ld '
- ;;
- gcx*)
- # Green Hills C++ Compiler
- lt_prog_compiler_pic_CXX='-PIC'
- ;;
- *)
- ;;
- esac
- ;;
- sunos4*)
- case $cc_basename in
- CC*)
- # Sun C++ 4.x
- lt_prog_compiler_pic_CXX='-pic'
- lt_prog_compiler_static_CXX='-Bstatic'
- ;;
- lcc*)
- # Lucid
- lt_prog_compiler_pic_CXX='-pic'
- ;;
- *)
- ;;
- esac
- ;;
- sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*)
- case $cc_basename in
- CC*)
- lt_prog_compiler_wl_CXX='-Wl,'
- lt_prog_compiler_pic_CXX='-KPIC'
- lt_prog_compiler_static_CXX='-Bstatic'
- ;;
- esac
- ;;
- tandem*)
- case $cc_basename in
- NCC*)
- # NonStop-UX NCC 3.20
- lt_prog_compiler_pic_CXX='-KPIC'
- ;;
- *)
- ;;
- esac
- ;;
- vxworks*)
- ;;
- *)
- lt_prog_compiler_can_build_shared_CXX=no
- ;;
- esac
- fi
-
-case $host_os in
- # For platforms which do not support PIC, -DPIC is meaningless:
- *djgpp*)
- lt_prog_compiler_pic_CXX=
- ;;
- *)
- lt_prog_compiler_pic_CXX="$lt_prog_compiler_pic_CXX -DPIC"
- ;;
-esac
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_prog_compiler_pic_CXX" >&5
-$as_echo "$lt_prog_compiler_pic_CXX" >&6; }
-
-
-
-#
-# Check to make sure the PIC flag actually works.
-#
-if test -n "$lt_prog_compiler_pic_CXX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works" >&5
-$as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works... " >&6; }
-if test "${lt_cv_prog_compiler_pic_works_CXX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_pic_works_CXX=no
- ac_outfile=conftest.$ac_objext
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
- lt_compiler_flag="$lt_prog_compiler_pic_CXX -DPIC"
- # Insert the option either (1) after the last *FLAGS variable, or
- # (2) before a word containing "conftest.", or (3) at the end.
- # Note that $ac_compile itself does not contain backslashes and begins
- # with a dollar sign (not a hyphen), so the echo should work correctly.
- # The option is referenced via a variable to avoid confusing sed.
- lt_compile=`echo "$ac_compile" | $SED \
- -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
- -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
- -e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:13494: $lt_compile\"" >&5)
- (eval "$lt_compile" 2>conftest.err)
- ac_status=$?
- cat conftest.err >&5
- echo "$as_me:13498: \$? = $ac_status" >&5
- if (exit $ac_status) && test -s "$ac_outfile"; then
- # The compiler can only warn and ignore the option if not recognized
- # So say no if there are warnings other than the usual output.
- $ECHO "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' >conftest.exp
- $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
- if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_pic_works_CXX=yes
- fi
- fi
- $RM conftest*
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works_CXX" >&5
-$as_echo "$lt_cv_prog_compiler_pic_works_CXX" >&6; }
-
-if test x"$lt_cv_prog_compiler_pic_works_CXX" = xyes; then
- case $lt_prog_compiler_pic_CXX in
- "" | " "*) ;;
- *) lt_prog_compiler_pic_CXX=" $lt_prog_compiler_pic_CXX" ;;
- esac
-else
- lt_prog_compiler_pic_CXX=
- lt_prog_compiler_can_build_shared_CXX=no
-fi
-
-fi
-
-
-
-#
-# Check to make sure the static flag actually works.
-#
-wl=$lt_prog_compiler_wl_CXX eval lt_tmp_static_flag=\"$lt_prog_compiler_static_CXX\"
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5
-$as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; }
-if test "${lt_cv_prog_compiler_static_works_CXX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_static_works_CXX=no
- save_LDFLAGS="$LDFLAGS"
- LDFLAGS="$LDFLAGS $lt_tmp_static_flag"
- echo "$lt_simple_link_test_code" > conftest.$ac_ext
- if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then
- # The linker can only warn and ignore the option if not recognized
- # So say no if there are warnings
- if test -s conftest.err; then
- # Append any errors to the config.log.
- cat conftest.err 1>&5
- $ECHO "X$_lt_linker_boilerplate" | $Xsed -e '/^$/d' > conftest.exp
- $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2
- if diff conftest.exp conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_static_works_CXX=yes
- fi
- else
- lt_cv_prog_compiler_static_works_CXX=yes
- fi
- fi
- $RM -r conftest*
- LDFLAGS="$save_LDFLAGS"
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works_CXX" >&5
-$as_echo "$lt_cv_prog_compiler_static_works_CXX" >&6; }
-
-if test x"$lt_cv_prog_compiler_static_works_CXX" = xyes; then
- :
-else
- lt_prog_compiler_static_CXX=
-fi
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
-$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
-if test "${lt_cv_prog_compiler_c_o_CXX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_c_o_CXX=no
- $RM -r conftest 2>/dev/null
- mkdir conftest
- cd conftest
- mkdir out
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
-
- lt_compiler_flag="-o out/conftest2.$ac_objext"
- # Insert the option either (1) after the last *FLAGS variable, or
- # (2) before a word containing "conftest.", or (3) at the end.
- # Note that $ac_compile itself does not contain backslashes and begins
- # with a dollar sign (not a hyphen), so the echo should work correctly.
- lt_compile=`echo "$ac_compile" | $SED \
- -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
- -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
- -e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:13593: $lt_compile\"" >&5)
- (eval "$lt_compile" 2>out/conftest.err)
- ac_status=$?
- cat out/conftest.err >&5
- echo "$as_me:13597: \$? = $ac_status" >&5
- if (exit $ac_status) && test -s out/conftest2.$ac_objext
- then
- # The compiler can only warn and ignore the option if not recognized
- # So say no if there are warnings
- $ECHO "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' > out/conftest.exp
- $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
- if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_c_o_CXX=yes
- fi
- fi
- chmod u+w . 2>&5
- $RM conftest*
- # SGI C++ compiler will create directory out/ii_files/ for
- # template instantiation
- test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
- $RM out/* && rmdir out
- cd ..
- $RM -r conftest
- $RM conftest*
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_CXX" >&5
-$as_echo "$lt_cv_prog_compiler_c_o_CXX" >&6; }
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5
-$as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; }
-if test "${lt_cv_prog_compiler_c_o_CXX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- lt_cv_prog_compiler_c_o_CXX=no
- $RM -r conftest 2>/dev/null
- mkdir conftest
- cd conftest
- mkdir out
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
-
- lt_compiler_flag="-o out/conftest2.$ac_objext"
- # Insert the option either (1) after the last *FLAGS variable, or
- # (2) before a word containing "conftest.", or (3) at the end.
- # Note that $ac_compile itself does not contain backslashes and begins
- # with a dollar sign (not a hyphen), so the echo should work correctly.
- lt_compile=`echo "$ac_compile" | $SED \
- -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \
- -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \
- -e 's:$: $lt_compiler_flag:'`
- (eval echo "\"\$as_me:13645: $lt_compile\"" >&5)
- (eval "$lt_compile" 2>out/conftest.err)
- ac_status=$?
- cat out/conftest.err >&5
- echo "$as_me:13649: \$? = $ac_status" >&5
- if (exit $ac_status) && test -s out/conftest2.$ac_objext
- then
- # The compiler can only warn and ignore the option if not recognized
- # So say no if there are warnings
- $ECHO "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/d' > out/conftest.exp
- $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2
- if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then
- lt_cv_prog_compiler_c_o_CXX=yes
- fi
- fi
- chmod u+w . 2>&5
- $RM conftest*
- # SGI C++ compiler will create directory out/ii_files/ for
- # template instantiation
- test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files
- $RM out/* && rmdir out
- cd ..
- $RM -r conftest
- $RM conftest*
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_CXX" >&5
-$as_echo "$lt_cv_prog_compiler_c_o_CXX" >&6; }
-
-
-
-
-hard_links="nottested"
-if test "$lt_cv_prog_compiler_c_o_CXX" = no && test "$need_locks" != no; then
- # do not overwrite the value of need_locks provided by the user
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5
-$as_echo_n "checking if we can lock with hard links... " >&6; }
- hard_links=yes
- $RM conftest*
- ln conftest.a conftest.b 2>/dev/null && hard_links=no
- touch conftest.a
- ln conftest.a conftest.b 2>&5 || hard_links=no
- ln conftest.a conftest.b 2>/dev/null && hard_links=no
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5
-$as_echo "$hard_links" >&6; }
- if test "$hard_links" = no; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5
-$as_echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;}
- need_locks=warn
- fi
-else
- need_locks=no
-fi
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5
-$as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; }
-
- export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
- case $host_os in
- aix[4-9]*)
- # If we're using GNU nm, then we don't want the "-C" option.
- # -C means demangle to AIX nm, but means don't demangle with GNU nm
- if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then
- export_symbols_cmds_CXX='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
- else
- export_symbols_cmds_CXX='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols'
- fi
- ;;
- pw32*)
- export_symbols_cmds_CXX="$ltdll_cmds"
- ;;
- cygwin* | mingw* | cegcc*)
- export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;/^.*[ ]__nm__/s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols'
- ;;
- linux* | k*bsd*-gnu)
- link_all_deplibs_CXX=no
- ;;
- *)
- export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols'
- ;;
- esac
- exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_CXX" >&5
-$as_echo "$ld_shlibs_CXX" >&6; }
-test "$ld_shlibs_CXX" = no && can_build_shared=no
-
-with_gnu_ld_CXX=$with_gnu_ld
-
-
-
-
-
-
-#
-# Do we need to explicitly link libc?
-#
-case "x$archive_cmds_need_lc_CXX" in
-x|xyes)
- # Assume -lc should be added
- archive_cmds_need_lc_CXX=yes
-
- if test "$enable_shared" = yes && test "$GCC" = yes; then
- case $archive_cmds_CXX in
- *'~'*)
- # FIXME: we may have to deal with multi-command sequences.
- ;;
- '$CC '*)
- # Test whether the compiler implicitly links with -lc since on some
- # systems, -lgcc has to come before -lc. If gcc already passes -lc
- # to ld, don't add -lc before -lgcc.
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5
-$as_echo_n "checking whether -lc should be explicitly linked in... " >&6; }
- $RM conftest*
- echo "$lt_simple_compile_test_code" > conftest.$ac_ext
-
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5
- (eval $ac_compile) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; } 2>conftest.err; then
- soname=conftest
- lib=conftest
- libobjs=conftest.$ac_objext
- deplibs=
- wl=$lt_prog_compiler_wl_CXX
- pic_flag=$lt_prog_compiler_pic_CXX
- compiler_flags=-v
- linker_flags=-v
- verstring=
- output_objdir=.
- libname=conftest
- lt_save_allow_undefined_flag=$allow_undefined_flag_CXX
- allow_undefined_flag_CXX=
- if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds_CXX 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5
- (eval $archive_cmds_CXX 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5
- ac_status=$?
- $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
- test $ac_status = 0; }
- then
- archive_cmds_need_lc_CXX=no
- else
- archive_cmds_need_lc_CXX=yes
- fi
- allow_undefined_flag_CXX=$lt_save_allow_undefined_flag
- else
- cat conftest.err 1>&5
- fi
- $RM conftest*
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $archive_cmds_need_lc_CXX" >&5
-$as_echo "$archive_cmds_need_lc_CXX" >&6; }
- ;;
- esac
- fi
- ;;
-esac
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5
-$as_echo_n "checking dynamic linker characteristics... " >&6; }
-
-library_names_spec=
-libname_spec='lib$name'
-soname_spec=
-shrext_cmds=".so"
-postinstall_cmds=
-postuninstall_cmds=
-finish_cmds=
-finish_eval=
-shlibpath_var=
-shlibpath_overrides_runpath=unknown
-version_type=none
-dynamic_linker="$host_os ld.so"
-sys_lib_dlsearch_path_spec="/lib /usr/lib"
-need_lib_prefix=unknown
-hardcode_into_libs=no
-
-# when you set need_version to no, make sure it does not cause -set_version
-# flags to be left without arguments
-need_version=unknown
-
-case $host_os in
-aix3*)
- version_type=linux
- library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a'
- shlibpath_var=LIBPATH
-
- # AIX 3 has no versioning support, so we append a major version to the name.
- soname_spec='${libname}${release}${shared_ext}$major'
- ;;
-
-aix[4-9]*)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- hardcode_into_libs=yes
- if test "$host_cpu" = ia64; then
- # AIX 5 supports IA64
- library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}'
- shlibpath_var=LD_LIBRARY_PATH
- else
- # With GCC up to 2.95.x, collect2 would create an import file
- # for dependence libraries. The import file would start with
- # the line `#! .'. This would cause the generated library to
- # depend on `.', always an invalid library. This was fixed in
- # development snapshots of GCC prior to 3.0.
- case $host_os in
- aix4 | aix4.[01] | aix4.[01].*)
- if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)'
- echo ' yes '
- echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then
- :
- else
- can_build_shared=no
- fi
- ;;
- esac
- # AIX (on Power*) has no versioning support, so currently we can not hardcode correct
- # soname into executable. Probably we can add versioning support to
- # collect2, so additional links can be useful in future.
- if test "$aix_use_runtimelinking" = yes; then
- # If using run time linking (on AIX 4.2 or later) use lib<name>.so
- # instead of lib<name>.a to let people know that these are not
- # typical AIX shared libraries.
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- else
- # We preserve .a as extension for shared libraries through AIX4.2
- # and later when we are not doing run time linking.
- library_names_spec='${libname}${release}.a $libname.a'
- soname_spec='${libname}${release}${shared_ext}$major'
- fi
- shlibpath_var=LIBPATH
- fi
- ;;
-
-amigaos*)
- case $host_cpu in
- powerpc)
- # Since July 2007 AmigaOS4 officially supports .so libraries.
- # When compiling the executable, add -use-dynld -Lsobjs: to the compileline.
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- ;;
- m68k)
- library_names_spec='$libname.ixlibrary $libname.a'
- # Create ${libname}_ixlibrary.a entries in /sys/libs.
- finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`$ECHO "X$lib" | $Xsed -e '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done'
- ;;
- esac
- ;;
-
-beos*)
- library_names_spec='${libname}${shared_ext}'
- dynamic_linker="$host_os ld.so"
- shlibpath_var=LIBRARY_PATH
- ;;
-
-bsdi[45]*)
- version_type=linux
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir'
- shlibpath_var=LD_LIBRARY_PATH
- sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib"
- sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib"
- # the default ld.so.conf also contains /usr/contrib/lib and
- # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow
- # libtool to hard-code these into programs
- ;;
-
-cygwin* | mingw* | pw32* | cegcc*)
- version_type=windows
- shrext_cmds=".dll"
- need_version=no
- need_lib_prefix=no
-
- case $GCC,$host_os in
- yes,cygwin* | yes,mingw* | yes,pw32* | yes,cegcc*)
- library_names_spec='$libname.dll.a'
- # DLL is installed to $(libdir)/../bin by postinstall_cmds
- postinstall_cmds='base_file=`basename \${file}`~
- dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~
- dldir=$destdir/`dirname \$dlpath`~
- test -d \$dldir || mkdir -p \$dldir~
- $install_prog $dir/$dlname \$dldir/$dlname~
- chmod a+x \$dldir/$dlname~
- if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then
- eval '\''$striplib \$dldir/$dlname'\'' || exit \$?;
- fi'
- postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~
- dlpath=$dir/\$dldll~
- $RM \$dlpath'
- shlibpath_overrides_runpath=yes
-
- case $host_os in
- cygwin*)
- # Cygwin DLLs use 'cyg' prefix rather than 'lib'
- soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
- sys_lib_search_path_spec="/usr/lib /lib/w32api /lib /usr/local/lib"
- ;;
- mingw* | cegcc*)
- # MinGW DLLs use traditional 'lib' prefix
- soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
- sys_lib_search_path_spec=`$CC -print-search-dirs | $GREP "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"`
- if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then
- # It is most probably a Windows format PATH printed by
- # mingw gcc, but we are running on Cygwin. Gcc prints its search
- # path with ; separators, and with drive letters. We can handle the
- # drive letters (cygwin fileutils understands them), so leave them,
- # especially as we might pass files found there to a mingw objdump,
- # which wouldn't understand a cygwinified path. Ahh.
- sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'`
- else
- sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
- fi
- ;;
- pw32*)
- # pw32 DLLs use 'pw' prefix rather than 'lib'
- library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}'
- ;;
- esac
- ;;
-
- *)
- library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib'
- ;;
- esac
- dynamic_linker='Win32 ld.exe'
- # FIXME: first we should search . and the directory the executable is in
- shlibpath_var=PATH
- ;;
-
-darwin* | rhapsody*)
- dynamic_linker="$host_os dyld"
- version_type=darwin
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext'
- soname_spec='${libname}${release}${major}$shared_ext'
- shlibpath_overrides_runpath=yes
- shlibpath_var=DYLD_LIBRARY_PATH
- shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`'
-
- sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib'
- ;;
-
-dgux*)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- ;;
-
-freebsd1*)
- dynamic_linker=no
- ;;
-
-freebsd* | dragonfly*)
- # DragonFly does not have aout. When/if they implement a new
- # versioning mechanism, adjust this.
- if test -x /usr/bin/objformat; then
- objformat=`/usr/bin/objformat`
- else
- case $host_os in
- freebsd[123]*) objformat=aout ;;
- *) objformat=elf ;;
- esac
- fi
- version_type=freebsd-$objformat
- case $version_type in
- freebsd-elf*)
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}'
- need_version=no
- need_lib_prefix=no
- ;;
- freebsd-*)
- library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix'
- need_version=yes
- ;;
- esac
- shlibpath_var=LD_LIBRARY_PATH
- case $host_os in
- freebsd2*)
- shlibpath_overrides_runpath=yes
- ;;
- freebsd3.[01]* | freebsdelf3.[01]*)
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- ;;
- freebsd3.[2-9]* | freebsdelf3.[2-9]* | \
- freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1)
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- ;;
- *) # from 4.6 on, and DragonFly
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- ;;
- esac
- ;;
-
-gnu*)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- hardcode_into_libs=yes
- ;;
-
-hpux9* | hpux10* | hpux11*)
- # Give a soname corresponding to the major version so that dld.sl refuses to
- # link against other versions.
- version_type=sunos
- need_lib_prefix=no
- need_version=no
- case $host_cpu in
- ia64*)
- shrext_cmds='.so'
- hardcode_into_libs=yes
- dynamic_linker="$host_os dld.so"
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- if test "X$HPUX_IA64_MODE" = X32; then
- sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib"
- else
- sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64"
- fi
- sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
- ;;
- hppa*64*)
- shrext_cmds='.sl'
- hardcode_into_libs=yes
- dynamic_linker="$host_os dld.sl"
- shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH
- shlibpath_overrides_runpath=yes # Unless +noenvvar is specified.
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64"
- sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec
- ;;
- *)
- shrext_cmds='.sl'
- dynamic_linker="$host_os dld.sl"
- shlibpath_var=SHLIB_PATH
- shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- ;;
- esac
- # HP-UX runs *really* slowly unless shared libraries are mode 555.
- postinstall_cmds='chmod 555 $lib'
- ;;
-
-interix[3-9]*)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- ;;
-
-irix5* | irix6* | nonstopux*)
- case $host_os in
- nonstopux*) version_type=nonstopux ;;
- *)
- if test "$lt_cv_prog_gnu_ld" = yes; then
- version_type=linux
- else
- version_type=irix
- fi ;;
- esac
- need_lib_prefix=no
- need_version=no
- soname_spec='${libname}${release}${shared_ext}$major'
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}'
- case $host_os in
- irix5* | nonstopux*)
- libsuff= shlibsuff=
- ;;
- *)
- case $LD in # libtool.m4 will add one of these switches to LD
- *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ")
- libsuff= shlibsuff= libmagic=32-bit;;
- *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ")
- libsuff=32 shlibsuff=N32 libmagic=N32;;
- *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ")
- libsuff=64 shlibsuff=64 libmagic=64-bit;;
- *) libsuff= shlibsuff= libmagic=never-match;;
- esac
- ;;
- esac
- shlibpath_var=LD_LIBRARY${shlibsuff}_PATH
- shlibpath_overrides_runpath=no
- sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}"
- sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}"
- hardcode_into_libs=yes
- ;;
-
-# No shared lib support for Linux oldld, aout, or coff.
-linux*oldld* | linux*aout* | linux*coff*)
- dynamic_linker=no
- ;;
-
-# This must be Linux ELF.
-linux* | k*bsd*-gnu | kopensolaris*-gnu)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- # Some binutils ld are patched to set DT_RUNPATH
- save_LDFLAGS=$LDFLAGS
- save_libdir=$libdir
- eval "libdir=/foo; wl=\"$lt_prog_compiler_wl_CXX\"; \
- LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec_CXX\""
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-int
-main ()
-{
-
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_cxx_try_link "$LINENO"; then :
- if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then :
- shlibpath_overrides_runpath=yes
-fi
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
- LDFLAGS=$save_LDFLAGS
- libdir=$save_libdir
-
- # This implies no fast_install, which is unacceptable.
- # Some rework will be needed to allow for fast_install
- # before this can be enabled.
- hardcode_into_libs=yes
-
- # Append ld.so.conf contents to the search path
- if test -f /etc/ld.so.conf; then
- lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;/^$/d' | tr '\n' ' '`
- sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra"
- fi
-
- # We used to test for /lib/ld.so.1 and disable shared libraries on
- # powerpc, because MkLinux only supported shared libraries with the
- # GNU dynamic linker. Since this was broken with cross compilers,
- # most powerpc-linux boxes support dynamic linking these days and
- # people can always --disable-shared, the test was removed, and we
- # assume the GNU/Linux dynamic linker is in use.
- dynamic_linker='GNU/Linux ld.so'
- ;;
-
-netbsdelf*-gnu)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- dynamic_linker='NetBSD ld.elf_so'
- ;;
-
-netbsd*)
- version_type=sunos
- need_lib_prefix=no
- need_version=no
- if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
- finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
- dynamic_linker='NetBSD (a.out) ld.so'
- else
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- dynamic_linker='NetBSD ld.elf_so'
- fi
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- ;;
-
-newsos6)
- version_type=linux
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- ;;
-
-*nto* | *qnx*)
- version_type=qnx
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- dynamic_linker='ldqnx.so'
- ;;
-
-openbsd*)
- version_type=sunos
- sys_lib_dlsearch_path_spec="/usr/lib"
- need_lib_prefix=no
- # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs.
- case $host_os in
- openbsd3.3 | openbsd3.3.*) need_version=yes ;;
- *) need_version=no ;;
- esac
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
- finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir'
- shlibpath_var=LD_LIBRARY_PATH
- if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then
- case $host_os in
- openbsd2.[89] | openbsd2.[89].*)
- shlibpath_overrides_runpath=no
- ;;
- *)
- shlibpath_overrides_runpath=yes
- ;;
- esac
- else
- shlibpath_overrides_runpath=yes
- fi
- ;;
-
-os2*)
- libname_spec='$name'
- shrext_cmds=".dll"
- need_lib_prefix=no
- library_names_spec='$libname${shared_ext} $libname.a'
- dynamic_linker='OS/2 ld.exe'
- shlibpath_var=LIBPATH
- ;;
-
-osf3* | osf4* | osf5*)
- version_type=osf
- need_lib_prefix=no
- need_version=no
- soname_spec='${libname}${release}${shared_ext}$major'
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- shlibpath_var=LD_LIBRARY_PATH
- sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib"
- sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec"
- ;;
-
-rdos*)
- dynamic_linker=no
- ;;
-
-solaris*)
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- # ldd complains unless libraries are executable
- postinstall_cmds='chmod +x $lib'
- ;;
-
-sunos4*)
- version_type=sunos
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix'
- finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- if test "$with_gnu_ld" = yes; then
- need_lib_prefix=no
- fi
- need_version=yes
- ;;
-
-sysv4 | sysv4.3*)
- version_type=linux
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- case $host_vendor in
- sni)
- shlibpath_overrides_runpath=no
- need_lib_prefix=no
- runpath_var=LD_RUN_PATH
- ;;
- siemens)
- need_lib_prefix=no
- ;;
- motorola)
- need_lib_prefix=no
- need_version=no
- shlibpath_overrides_runpath=no
- sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib'
- ;;
- esac
- ;;
-
-sysv4*MP*)
- if test -d /usr/nec ;then
- version_type=linux
- library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}'
- soname_spec='$libname${shared_ext}.$major'
- shlibpath_var=LD_LIBRARY_PATH
- fi
- ;;
-
-sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*)
- version_type=freebsd-elf
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=yes
- hardcode_into_libs=yes
- if test "$with_gnu_ld" = yes; then
- sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib'
- else
- sys_lib_search_path_spec='/usr/ccs/lib /usr/lib'
- case $host_os in
- sco3.2v5*)
- sys_lib_search_path_spec="$sys_lib_search_path_spec /lib"
- ;;
- esac
- fi
- sys_lib_dlsearch_path_spec='/usr/lib'
- ;;
-
-tpf*)
- # TPF is a cross-target only. Preferred cross-host = GNU/Linux.
- version_type=linux
- need_lib_prefix=no
- need_version=no
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- shlibpath_var=LD_LIBRARY_PATH
- shlibpath_overrides_runpath=no
- hardcode_into_libs=yes
- ;;
-
-uts4*)
- version_type=linux
- library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}'
- soname_spec='${libname}${release}${shared_ext}$major'
- shlibpath_var=LD_LIBRARY_PATH
- ;;
-
-*)
- dynamic_linker=no
- ;;
-esac
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5
-$as_echo "$dynamic_linker" >&6; }
-test "$dynamic_linker" = no && can_build_shared=no
-
-variables_saved_for_relink="PATH $shlibpath_var $runpath_var"
-if test "$GCC" = yes; then
- variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH"
-fi
-
-if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then
- sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec"
-fi
-if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then
- sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec"
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5
-$as_echo_n "checking how to hardcode library paths into programs... " >&6; }
-hardcode_action_CXX=
-if test -n "$hardcode_libdir_flag_spec_CXX" ||
- test -n "$runpath_var_CXX" ||
- test "X$hardcode_automatic_CXX" = "Xyes" ; then
-
- # We can hardcode non-existent directories.
- if test "$hardcode_direct_CXX" != no &&
- # If the only mechanism to avoid hardcoding is shlibpath_var, we
- # have to relink, otherwise we might link with an installed library
- # when we should be linking with a yet-to-be-installed one
- ## test "$_LT_TAGVAR(hardcode_shlibpath_var, CXX)" != no &&
- test "$hardcode_minus_L_CXX" != no; then
- # Linking always hardcodes the temporary library directory.
- hardcode_action_CXX=relink
- else
- # We can link without hardcoding, and we can hardcode nonexisting dirs.
- hardcode_action_CXX=immediate
- fi
-else
- # We cannot hardcode anything, or else we can only hardcode existing
- # directories.
- hardcode_action_CXX=unsupported
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action_CXX" >&5
-$as_echo "$hardcode_action_CXX" >&6; }
-
-if test "$hardcode_action_CXX" = relink ||
- test "$inherit_rpath_CXX" = yes; then
- # Fast installation is not supported
- enable_fast_install=no
-elif test "$shlibpath_overrides_runpath" = yes ||
- test "$enable_shared" = no; then
- # Fast installation is not necessary
- enable_fast_install=needless
-fi
-
-
-
-
-
-
-
- fi # test -n "$compiler"
-
- CC=$lt_save_CC
- LDCXX=$LD
- LD=$lt_save_LD
- GCC=$lt_save_GCC
- with_gnu_ld=$lt_save_with_gnu_ld
- lt_cv_path_LDCXX=$lt_cv_path_LD
- lt_cv_path_LD=$lt_save_path_LD
- lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld
- lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld
-fi # test "$_lt_caught_CXX_error" != yes
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-
-
-
-
-
-
-
-
-
-
-
-
- ac_config_commands="$ac_config_commands libtool"
-
-
-
-
-# Only expand once:
-
-
-
-
-
-
-
-
-CFLAGS="$CFLAGS"
-CXXFLAGS="$CXXFLAGS"
-
-LIBS="$LDFLAGS $LIBS"
-
-
-for ac_header in string.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "string.h" "ac_cv_header_string_h" "$ac_includes_default"
-if test "x$ac_cv_header_string_h" = x""yes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_STRING_H 1
-_ACEOF
- HAVE_STRING_H=1
-else
- as_fn_error "cannot find string.h, bailing out" "$LINENO" 5
-fi
-
-done
-
-for ac_header in stdio.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "stdio.h" "ac_cv_header_stdio_h" "$ac_includes_default"
-if test "x$ac_cv_header_stdio_h" = x""yes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_STDIO_H 1
-_ACEOF
-
-else
- as_fn_error "cannot find stdio.h, bailing out" "$LINENO" 5
-fi
-
-done
-
-for ac_header in stdlib.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "stdlib.h" "ac_cv_header_stdlib_h" "$ac_includes_default"
-if test "x$ac_cv_header_stdlib_h" = x""yes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_STDLIB_H 1
-_ACEOF
-
-else
- as_fn_error "cannot find stdlib.h, bailing out" "$LINENO" 5
-fi
-
-done
-
-
-for ac_header in locale.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "locale.h" "ac_cv_header_locale_h" "$ac_includes_default"
-if test "x$ac_cv_header_locale_h" = x""yes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LOCALE_H 1
-_ACEOF
-
-fi
-
-done
-
-
-LIBS="${LIBS}"
-
-
-
-
-
-# Check whether --enable-debug was given.
-if test "${enable_debug+set}" = set; then :
- enableval=$enable_debug;
-fi
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for debug enabled" >&5
-$as_echo_n "checking for debug enabled... " >&6; }
-
-if test "x$enable_debug" = "xyes"; then
- CFLAGS="$CFLAGS -g -DDEBUG -Wall"
- CXXFLAGS="$CXXFLAGS -g -DDEBUG -Wall"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-else
- CFLAGS="$CFLAGS -O3 -DNDEBUG"
- CXXFLAGS="$CXXFLAGS -O3 -DNDEBUG"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for exp in -lm" >&5
-$as_echo_n "checking for exp in -lm... " >&6; }
-if test "${ac_cv_lib_m_exp+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lm $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char exp ();
-int
-main ()
-{
-return exp ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_m_exp=yes
-else
- ac_cv_lib_m_exp=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_m_exp" >&5
-$as_echo "$ac_cv_lib_m_exp" >&6; }
-if test "x$ac_cv_lib_m_exp" = x""yes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LIBM 1
-_ACEOF
-
- LIBS="-lm $LIBS"
-
-fi
-
-
-
-
-
-# Check whether --with-zip was given.
-if test "${with_zip+set}" = set; then :
- withval=$with_zip;
-fi
-
-
-
-# Check whether --with-zlib was given.
-if test "${with_zlib+set}" = set; then :
- withval=$with_zlib;
-fi
-
-
-
-# Check whether --with-libz was given.
-if test "${with_libz+set}" = set; then :
- withval=$with_libz;
-fi
-
-
-HAVE_ZIP="no"
-ZIP_CONFIG="no"
-
-# Implement aliasing...
-
-if test "$with_zlib" != "" ; then
- with_zip=$with_zlib
-fi
-if test "$with_libz" != "" ; then
- with_zip=$with_libz
-fi
-
-
-if test "$with_zip" != "" -a "x$with_zip" != "xno" ; then
- for ac_header in zlib.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "zlib.h" "ac_cv_header_zlib_h" "$ac_includes_default"
-if test "x$ac_cv_header_zlib_h" = x""yes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_ZLIB_H 1
-_ACEOF
-
-else
- as_fn_error "cannot find zlib.h, bailing out" "$LINENO" 5
-fi
-
-done
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing inflateInit_" >&5
-$as_echo_n "checking for library containing inflateInit_... " >&6; }
-if test "${ac_cv_search_inflateInit_+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_func_search_save_LIBS=$LIBS
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char inflateInit_ ();
-int
-main ()
-{
-return inflateInit_ ();
- ;
- return 0;
-}
-_ACEOF
-for ac_lib in '' z; do
- if test -z "$ac_lib"; then
- ac_res="none required"
- else
- ac_res=-l$ac_lib
- LIBS="-l$ac_lib -L$with_zip/lib -lm $ac_func_search_save_LIBS"
- fi
- if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_search_inflateInit_=$ac_res
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext
- if test "${ac_cv_search_inflateInit_+set}" = set; then :
- break
-fi
-done
-if test "${ac_cv_search_inflateInit_+set}" = set; then :
-
-else
- ac_cv_search_inflateInit_=no
-fi
-rm conftest.$ac_ext
-LIBS=$ac_func_search_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_inflateInit_" >&5
-$as_echo "$ac_cv_search_inflateInit_" >&6; }
-ac_res=$ac_cv_search_inflateInit_
-if test "$ac_res" != no; then :
- test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
- ZIP_CONFIG=yes
-else
- ZIP_CONFIG=no
-fi
-
-
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for zlib" >&5
-$as_echo_n "checking for zlib... " >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-if test "${ZIP_CONFIG}" != "no" ; then
-
- if test "${ZIP_CONFIG}" = "yes" ; then
- if test -d ${with_zip}/include ; then
- ZIP_INC="-I$with_zip/include"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: using zlib from $with_zip/include" >&5
-$as_echo "using zlib from $with_zip/include" >&6; }
- HAVE_ZLIB="yes"
- ZIP_CONFIG="yes"
- fi
- fi
-
-fi
-
-
-
- if test ! x$ZIP_CONFIG = xno; then
- ZIP_IS_CONFIG_TRUE=
- ZIP_IS_CONFIG_FALSE='#'
-else
- ZIP_IS_CONFIG_TRUE='#'
- ZIP_IS_CONFIG_FALSE=
-fi
-
-
-
-
-
-
-# Check whether --with-jpeg was given.
-if test "${with_jpeg+set}" = set; then :
- withval=$with_jpeg;
-fi
-
-
-HAVE_JPEG="no"
-JPEG_CONFIG="no"
-
-if test "$with_jpeg" = "no" -o "$with_jpeg" = "" ; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for jpeg" >&5
-$as_echo_n "checking for jpeg... " >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing jinit_compress_master" >&5
-$as_echo_n "checking for library containing jinit_compress_master... " >&6; }
-if test "${ac_cv_search_jinit_compress_master+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_func_search_save_LIBS=$LIBS
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char jinit_compress_master ();
-int
-main ()
-{
-return jinit_compress_master ();
- ;
- return 0;
-}
-_ACEOF
-for ac_lib in '' jpeg; do
- if test -z "$ac_lib"; then
- ac_res="none required"
- else
- ac_res=-l$ac_lib
- JPEG_LIB="-l$ac_lib -L$with_jpeg/lib"
- LIBS="-l$ac_lib -L$with_jpeg/lib -lm $ac_func_search_save_LIBS"
- fi
- if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_search_jinit_compress_master=$ac_res
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext
- if test "${ac_cv_search_jinit_compress_master+set}" = set; then :
- break
-fi
-done
-if test "${ac_cv_search_jinit_compress_master+set}" = set; then :
-
-else
- ac_cv_search_jinit_compress_master=no
-fi
-rm conftest.$ac_ext
-LIBS=$ac_func_search_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_search_jinit_compress_master" >&5
-$as_echo "$ac_cv_search_jinit_compress_master" >&6; }
-ac_res=$ac_cv_search_jinit_compress_master
-if test "$ac_res" != no; then :
- test "$ac_res" = "none required" || LIBS="$JPEG_LIB $LIBS"
- JPEG_CONFIG=yes
-else
- JPEG_CONFIG=no
-fi
-
-fi
-
-if test "${JPEG_CONFIG}" != "no" ; then
-
- if test "${JPEG_CONFIG}" = "yes" ; then
- if test -d ${with_jpeg}/include ; then
- JPEG_INC="-I$with_jpeg/include"
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: using jpeg from $with_jpeg/include" >&5
-$as_echo "using jpeg from $with_jpeg/include" >&6; }
- fi
- fi
- HAVE_JPEG="yes"
- JPEG_CONFIG="yes"
-fi
-
-
-
- if test ! x$JPEG_CONFIG = xno; then
- JPEG_IS_CONFIG_TRUE=
- JPEG_IS_CONFIG_FALSE='#'
-else
- JPEG_IS_CONFIG_TRUE='#'
- JPEG_IS_CONFIG_FALSE=
-fi
-
-
-
-
-TIFF_CONFIG="no"
-
-
-# Check whether --with-libtiff was given.
-if test "${with_libtiff+set}" = set; then :
- withval=$with_libtiff;
-fi
-
-
-if test "$with_libtiff" != "" ; then
- if test -f $with_libtiff/include/tiffio.h -a -d $with_libtiff/lib ; then
- LIBS="-L$with_libtiff/lib -ltiff $LIBS"
- TIFF_INC=-I$with_libtiff/include
- else
- LIBS="-L$with_libtiff -ltiff $LIBS"
- TIFF_INC=-I$with_libtiff
- fi
- LIBS_SAVED="$LIBS"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for TIFFOpen in -ltiff" >&5
-$as_echo_n "checking for TIFFOpen in -ltiff... " >&6; }
-if test "${ac_cv_lib_tiff_TIFFOpen+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ltiff -lm $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char TIFFOpen ();
-int
-main ()
-{
-return TIFFOpen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_tiff_TIFFOpen=yes
-else
- ac_cv_lib_tiff_TIFFOpen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_tiff_TIFFOpen" >&5
-$as_echo "$ac_cv_lib_tiff_TIFFOpen" >&6; }
-if test "x$ac_cv_lib_tiff_TIFFOpen" = x""yes; then :
- TIFF_CONFIG=yes
-else
- as_fn_error "failed to link with -ltiff to find TIFFOpen" "$LINENO" 5
-fi
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for TIFFMergeFieldInfo in -ltiff" >&5
-$as_echo_n "checking for TIFFMergeFieldInfo in -ltiff... " >&6; }
-if test "${ac_cv_lib_tiff_TIFFMergeFieldInfo+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ltiff -lm $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char TIFFMergeFieldInfo ();
-int
-main ()
-{
-return TIFFMergeFieldInfo ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_tiff_TIFFMergeFieldInfo=yes
-else
- ac_cv_lib_tiff_TIFFMergeFieldInfo=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_tiff_TIFFMergeFieldInfo" >&5
-$as_echo "$ac_cv_lib_tiff_TIFFMergeFieldInfo" >&6; }
-if test "x$ac_cv_lib_tiff_TIFFMergeFieldInfo" = x""yes; then :
- TIFF_CONFIG=yes
-else
- as_fn_error "Libtiff 3.6.0 Beta or later required for this version of
-libgeotiff. Please upgrade or use an older version of libgeotiff." "$LINENO" 5
-fi
-
- LIBS="$LIBS_SAVED"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for TIFFOpen in -ltiff" >&5
-$as_echo_n "checking for TIFFOpen in -ltiff... " >&6; }
-if test "${ac_cv_lib_tiff_TIFFOpen+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ltiff -lm $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char TIFFOpen ();
-int
-main ()
-{
-return TIFFOpen ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_tiff_TIFFOpen=yes
-else
- ac_cv_lib_tiff_TIFFOpen=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_tiff_TIFFOpen" >&5
-$as_echo "$ac_cv_lib_tiff_TIFFOpen" >&6; }
-if test "x$ac_cv_lib_tiff_TIFFOpen" = x""yes; then :
- TIFF_CONFIG=yes
-else
- as_fn_error "You will need to substantially rewrite libxtiff to
-build libgeotiff without libtiff" "$LINENO" 5
-fi
-
- LIBS_SAVED="$LIBS"
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for TIFFMergeFieldInfo in -ltiff" >&5
-$as_echo_n "checking for TIFFMergeFieldInfo in -ltiff... " >&6; }
-if test "${ac_cv_lib_tiff_TIFFMergeFieldInfo+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-ltiff -lm $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char TIFFMergeFieldInfo ();
-int
-main ()
-{
-return TIFFMergeFieldInfo ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_tiff_TIFFMergeFieldInfo=yes
-else
- ac_cv_lib_tiff_TIFFMergeFieldInfo=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_tiff_TIFFMergeFieldInfo" >&5
-$as_echo "$ac_cv_lib_tiff_TIFFMergeFieldInfo" >&6; }
-if test "x$ac_cv_lib_tiff_TIFFMergeFieldInfo" = x""yes; then :
- TIFF_CONFIG=yes
-else
- as_fn_error "Libtiff 3.6.0 Beta or later required for this version of
-libgeotiff. Please upgrade libtiff or use an older version of libgeotiff." "$LINENO" 5
-fi
-
- LIBS="$LIBS -ltiff"
- TIFF_INC=
- TIFF_CONFIG="yes"
-fi
-
-
-
-
- if test ! x$TIFF_CONFIG = xno; then
- TIFF_IS_CONFIG_TRUE=
- TIFF_IS_CONFIG_FALSE='#'
-else
- TIFF_IS_CONFIG_TRUE='#'
- TIFF_IS_CONFIG_FALSE=
-fi
-
-
-
-PROJ_CONFIG="no"
-
-
-# Check whether --with-proj was given.
-if test "${with_proj+set}" = set; then :
- withval=$with_proj; PROJ_HOME=$withval
-else
- PROJ_HOME=
-fi
-
-
-if test "$PROJ_HOME" != "" -a "$PROJ_HOME" != "no" ; then
- if test -d "$PROJ_HOME/src/pj_init.c" ; then
- PROJ_HOME=$PROJ_HOME/src
- fi
-
- if test -f "$PROJ_HOME/libproj.a" -a -f "$PROJ_HOME/proj_api.h" ; then
- PROJ_LIB=$PROJ_HOME/libproj.a
- PROJ_INC=$PROJ_HOME
- PROJ_CONFIG="yes"
-
- elif test -f "$PROJ_HOME/.libs/libproj.a" -a -f "$PROJ_HOME/proj_api.h" ; then
- PROJ_LIB=$PROJ_HOME/.libs/libproj.a
- PROJ_INC=$PROJ_HOME
-
- PROJ_CONFIG="yes"
-
- elif test \( -f "$PROJ_HOME/lib/libproj.a" -o -f "$PROJ_HOME/lib/libproj.so" \) -a -f "$PROJ_HOME/include/proj_api.h"; then
- PROJ_LIB="-L$PROJ_HOME/lib -lproj"
- PROJ_INC=$PROJ_HOME/include
-
- PROJ_CONFIG="yes"
- else
- echo "PROJ_HOME=$PROJ_HOME, but either proj_api.h or libproj.a not found!"
- fi
-fi
-
-
-if test "$PROJ_HOME" = "no" ; then
- echo "PROJ.4 support disabled."
-
-elif test "$PROJ_LIB" != "" -a "$PROJ_INC" != "" ; then
- echo "Found $PROJ_LIB"
- echo "Found $PROJ_INC/proj_api.h"
-
- LIBS="$PROJ_LIB $LIBS"
- PROJ_INC=-I$PROJ_INC
-
- PROJ_INC=$PROJ_INC
-
- $as_echo "#define HAVE_PROJECTS_H 1" >>confdefs.h
-
- $as_echo "#define HAVE_LIBPROJ 1" >>confdefs.h
-
-
- PROJ_CONFIG="yes"
-
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for pj_init in -lproj" >&5
-$as_echo_n "checking for pj_init in -lproj... " >&6; }
-if test "${ac_cv_lib_proj_pj_init+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- ac_check_lib_save_LIBS=$LIBS
-LIBS="-lproj -lm $LIBS"
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-/* Override any GCC internal prototype to avoid an error.
- Use char because int might match the return type of a GCC
- builtin and then its argument prototype would still apply. */
-#ifdef __cplusplus
-extern "C"
-#endif
-char pj_init ();
-int
-main ()
-{
-return pj_init ();
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_link "$LINENO"; then :
- ac_cv_lib_proj_pj_init=yes
-else
- ac_cv_lib_proj_pj_init=no
-fi
-rm -f core conftest.err conftest.$ac_objext \
- conftest$ac_exeext conftest.$ac_ext
-LIBS=$ac_check_lib_save_LIBS
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_proj_pj_init" >&5
-$as_echo "$ac_cv_lib_proj_pj_init" >&6; }
-if test "x$ac_cv_lib_proj_pj_init" = x""yes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_LIBPROJ 1
-_ACEOF
-
- LIBS="-lproj $LIBS"
-
-fi
-
- for ac_header in proj_api.h
-do :
- ac_fn_c_check_header_mongrel "$LINENO" "proj_api.h" "ac_cv_header_proj_api_h" "$ac_includes_default"
-if test "x$ac_cv_header_proj_api_h" = x""yes; then :
- cat >>confdefs.h <<_ACEOF
-#define HAVE_PROJ_API_H 1
-_ACEOF
-
-fi
-
-done
-
- PROJ_CONFIG="yes"
-fi
-
- if test ! x$PROJ_CONFIG = xno; then
- PROJ_IS_CONFIG_TRUE=
- PROJ_IS_CONFIG_FALSE='#'
-else
- PROJ_IS_CONFIG_TRUE='#'
- PROJ_IS_CONFIG_FALSE=
-fi
-
- if test ! x$PROJECTS_H_CONFIG = xno; then
- PROJECTS_H_IS_CONFIG_TRUE=
- PROJECTS_H_IS_CONFIG_FALSE='#'
-else
- PROJECTS_H_IS_CONFIG_TRUE='#'
- PROJECTS_H_IS_CONFIG_FALSE=
-fi
-
-
-
-
-CSV_CONFIG="no"
-# Check whether --enable-incode-epsg was given.
-if test "${enable_incode_epsg+set}" = set; then :
- enableval=$enable_incode_epsg;
-else
- enable_incode_epsg=no
-fi
-
-
-if test "$enable_incode_epsg" != "no" -o "$enable_incode_epsg" = "" ; then
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if EPSG tables will be read from .csv files" >&5
-$as_echo_n "checking if EPSG tables will be read from .csv files... " >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
- CSV_CONFIG="yes"
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking if EPSG tables will be read from .csv files" >&5
-$as_echo_n "checking if EPSG tables will be read from .csv files... " >&6; }
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-
-fi
- if test ! x$CSV_CONFIG = xno; then
- CSV_IS_CONFIG_TRUE=
- CSV_IS_CONFIG_FALSE='#'
-else
- CSV_IS_CONFIG_TRUE='#'
- CSV_IS_CONFIG_FALSE=
-fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# Files:
-DX_PROJECT=$PACKAGE_NAME
-
-DX_CONFIG=docs/Doxyfile
-
-DX_DOCDIR=docs/output
-
-
-# Environment variables used inside doxygen.cfg:
-DX_ENV="$DX_ENV SRCDIR='$srcdir'"
-
-DX_ENV="$DX_ENV PROJECT='$DX_PROJECT'"
-
-DX_ENV="$DX_ENV DOCDIR='$DX_DOCDIR'"
-
-DX_ENV="$DX_ENV VERSION='$PACKAGE_VERSION'"
-
-
-# Doxygen itself:
-
-
-
-
- # Check whether --enable-doxygen-doc was given.
-if test "${enable_doxygen_doc+set}" = set; then :
- enableval=$enable_doxygen_doc;
-case "$enableval" in
-#(
-y|Y|yes|Yes|YES)
- DX_FLAG_doc=1
-
-
-;; #(
-n|N|no|No|NO)
- DX_FLAG_doc=0
-
-;; #(
-*)
- as_fn_error "invalid value '$enableval' given to doxygen-doc" "$LINENO" 5
-;;
-esac
-
-else
-
-DX_FLAG_doc=1
-
-
-
-fi
-
-if test "$DX_FLAG_doc" = 1; then
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}doxygen", so it can be a program name with args.
-set dummy ${ac_tool_prefix}doxygen; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_DX_DOXYGEN+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $DX_DOXYGEN in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_DX_DOXYGEN="$DX_DOXYGEN" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_DX_DOXYGEN="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-DX_DOXYGEN=$ac_cv_path_DX_DOXYGEN
-if test -n "$DX_DOXYGEN"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DX_DOXYGEN" >&5
-$as_echo "$DX_DOXYGEN" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_path_DX_DOXYGEN"; then
- ac_pt_DX_DOXYGEN=$DX_DOXYGEN
- # Extract the first word of "doxygen", so it can be a program name with args.
-set dummy doxygen; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_ac_pt_DX_DOXYGEN+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $ac_pt_DX_DOXYGEN in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_ac_pt_DX_DOXYGEN="$ac_pt_DX_DOXYGEN" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_ac_pt_DX_DOXYGEN="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-ac_pt_DX_DOXYGEN=$ac_cv_path_ac_pt_DX_DOXYGEN
-if test -n "$ac_pt_DX_DOXYGEN"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_DX_DOXYGEN" >&5
-$as_echo "$ac_pt_DX_DOXYGEN" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_pt_DX_DOXYGEN" = x; then
- DX_DOXYGEN=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DX_DOXYGEN=$ac_pt_DX_DOXYGEN
- fi
-else
- DX_DOXYGEN="$ac_cv_path_DX_DOXYGEN"
-fi
-
-if test "$DX_FLAG_doc$DX_DOXYGEN" = 1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: doxygen not found - will not generate any doxygen documentation" >&5
-$as_echo "$as_me: WARNING: doxygen not found - will not generate any doxygen documentation" >&2;}
- DX_FLAG_doc=0
-
-fi
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}perl", so it can be a program name with args.
-set dummy ${ac_tool_prefix}perl; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_DX_PERL+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $DX_PERL in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_DX_PERL="$DX_PERL" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_DX_PERL="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-DX_PERL=$ac_cv_path_DX_PERL
-if test -n "$DX_PERL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DX_PERL" >&5
-$as_echo "$DX_PERL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_path_DX_PERL"; then
- ac_pt_DX_PERL=$DX_PERL
- # Extract the first word of "perl", so it can be a program name with args.
-set dummy perl; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_ac_pt_DX_PERL+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $ac_pt_DX_PERL in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_ac_pt_DX_PERL="$ac_pt_DX_PERL" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_ac_pt_DX_PERL="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-ac_pt_DX_PERL=$ac_cv_path_ac_pt_DX_PERL
-if test -n "$ac_pt_DX_PERL"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_DX_PERL" >&5
-$as_echo "$ac_pt_DX_PERL" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_pt_DX_PERL" = x; then
- DX_PERL=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DX_PERL=$ac_pt_DX_PERL
- fi
-else
- DX_PERL="$ac_cv_path_DX_PERL"
-fi
-
-if test "$DX_FLAG_doc$DX_PERL" = 1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: perl not found - will not generate any doxygen documentation" >&5
-$as_echo "$as_me: WARNING: perl not found - will not generate any doxygen documentation" >&2;}
- DX_FLAG_doc=0
-
-fi
-
- :
-fi
-if test "$DX_FLAG_doc" = 1; then
- if :; then
- DX_COND_doc_TRUE=
- DX_COND_doc_FALSE='#'
-else
- DX_COND_doc_TRUE='#'
- DX_COND_doc_FALSE=
-fi
-
- DX_ENV="$DX_ENV PERL_PATH='$DX_PERL'"
-
- :
-else
- if false; then
- DX_COND_doc_TRUE=
- DX_COND_doc_FALSE='#'
-else
- DX_COND_doc_TRUE='#'
- DX_COND_doc_FALSE=
-fi
-
-
- :
-fi
-
-
-# Dot for graphics:
-
-
-
-
- # Check whether --enable-doxygen-dot was given.
-if test "${enable_doxygen_dot+set}" = set; then :
- enableval=$enable_doxygen_dot;
-case "$enableval" in
-#(
-y|Y|yes|Yes|YES)
- DX_FLAG_dot=1
-
-
-test "$DX_FLAG_doc" = "1" \
-|| as_fn_error "doxygen-dot requires doxygen-dot" "$LINENO" 5
-
-;; #(
-n|N|no|No|NO)
- DX_FLAG_dot=0
-
-;; #(
-*)
- as_fn_error "invalid value '$enableval' given to doxygen-dot" "$LINENO" 5
-;;
-esac
-
-else
-
-DX_FLAG_dot=1
-
-
-test "$DX_FLAG_doc" = "1" || DX_FLAG_dot=0
-
-
-
-fi
-
-if test "$DX_FLAG_dot" = 1; then
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}dot", so it can be a program name with args.
-set dummy ${ac_tool_prefix}dot; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_DX_DOT+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $DX_DOT in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_DX_DOT="$DX_DOT" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_DX_DOT="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-DX_DOT=$ac_cv_path_DX_DOT
-if test -n "$DX_DOT"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DX_DOT" >&5
-$as_echo "$DX_DOT" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_path_DX_DOT"; then
- ac_pt_DX_DOT=$DX_DOT
- # Extract the first word of "dot", so it can be a program name with args.
-set dummy dot; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_ac_pt_DX_DOT+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $ac_pt_DX_DOT in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_ac_pt_DX_DOT="$ac_pt_DX_DOT" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_ac_pt_DX_DOT="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-ac_pt_DX_DOT=$ac_cv_path_ac_pt_DX_DOT
-if test -n "$ac_pt_DX_DOT"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_DX_DOT" >&5
-$as_echo "$ac_pt_DX_DOT" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_pt_DX_DOT" = x; then
- DX_DOT=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DX_DOT=$ac_pt_DX_DOT
- fi
-else
- DX_DOT="$ac_cv_path_DX_DOT"
-fi
-
-if test "$DX_FLAG_dot$DX_DOT" = 1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: dot not found - will not generate graphics for doxygen documentation" >&5
-$as_echo "$as_me: WARNING: dot not found - will not generate graphics for doxygen documentation" >&2;}
- DX_FLAG_dot=0
-
-fi
-
- :
-fi
-if test "$DX_FLAG_dot" = 1; then
- if :; then
- DX_COND_dot_TRUE=
- DX_COND_dot_FALSE='#'
-else
- DX_COND_dot_TRUE='#'
- DX_COND_dot_FALSE=
-fi
-
- DX_ENV="$DX_ENV HAVE_DOT='YES'"
-
- DX_ENV="$DX_ENV DOT_PATH='`expr ".$DX_DOT" : '\(\.\)[^/]*$' \| "x$DX_DOT" : 'x\(.*\)/[^/]*$'`'"
-
- :
-else
- if false; then
- DX_COND_dot_TRUE=
- DX_COND_dot_FALSE='#'
-else
- DX_COND_dot_TRUE='#'
- DX_COND_dot_FALSE=
-fi
-
- DX_ENV="$DX_ENV HAVE_DOT='NO'"
-
- :
-fi
-
-
-# Man pages generation:
-
-
-
-
- # Check whether --enable-doxygen-man was given.
-if test "${enable_doxygen_man+set}" = set; then :
- enableval=$enable_doxygen_man;
-case "$enableval" in
-#(
-y|Y|yes|Yes|YES)
- DX_FLAG_man=1
-
-
-test "$DX_FLAG_doc" = "1" \
-|| as_fn_error "doxygen-man requires doxygen-man" "$LINENO" 5
-
-;; #(
-n|N|no|No|NO)
- DX_FLAG_man=0
-
-;; #(
-*)
- as_fn_error "invalid value '$enableval' given to doxygen-man" "$LINENO" 5
-;;
-esac
-
-else
-
-DX_FLAG_man=1
-
-
-test "$DX_FLAG_doc" = "1" || DX_FLAG_man=0
-
-
-
-fi
-
-if test "$DX_FLAG_man" = 1; then
-
- :
-fi
-if test "$DX_FLAG_man" = 1; then
- if :; then
- DX_COND_man_TRUE=
- DX_COND_man_FALSE='#'
-else
- DX_COND_man_TRUE='#'
- DX_COND_man_FALSE=
-fi
-
- DX_ENV="$DX_ENV GENERATE_MAN='YES'"
-
- :
-else
- if false; then
- DX_COND_man_TRUE=
- DX_COND_man_FALSE='#'
-else
- DX_COND_man_TRUE='#'
- DX_COND_man_FALSE=
-fi
-
- DX_ENV="$DX_ENV GENERATE_MAN='NO'"
-
- :
-fi
-
-
-# RTF file generation:
-
-
-
-
- # Check whether --enable-doxygen-rtf was given.
-if test "${enable_doxygen_rtf+set}" = set; then :
- enableval=$enable_doxygen_rtf;
-case "$enableval" in
-#(
-y|Y|yes|Yes|YES)
- DX_FLAG_rtf=1
-
-
-test "$DX_FLAG_doc" = "1" \
-|| as_fn_error "doxygen-rtf requires doxygen-rtf" "$LINENO" 5
-
-;; #(
-n|N|no|No|NO)
- DX_FLAG_rtf=0
-
-;; #(
-*)
- as_fn_error "invalid value '$enableval' given to doxygen-rtf" "$LINENO" 5
-;;
-esac
-
-else
-
-DX_FLAG_rtf=0
-
-
-test "$DX_FLAG_doc" = "1" || DX_FLAG_rtf=0
-
-
-
-fi
-
-if test "$DX_FLAG_rtf" = 1; then
-
- :
-fi
-if test "$DX_FLAG_rtf" = 1; then
- if :; then
- DX_COND_rtf_TRUE=
- DX_COND_rtf_FALSE='#'
-else
- DX_COND_rtf_TRUE='#'
- DX_COND_rtf_FALSE=
-fi
-
- DX_ENV="$DX_ENV GENERATE_RTF='YES'"
-
- :
-else
- if false; then
- DX_COND_rtf_TRUE=
- DX_COND_rtf_FALSE='#'
-else
- DX_COND_rtf_TRUE='#'
- DX_COND_rtf_FALSE=
-fi
-
- DX_ENV="$DX_ENV GENERATE_RTF='NO'"
-
- :
-fi
-
-
-# XML file generation:
-
-
-
-
- # Check whether --enable-doxygen-xml was given.
-if test "${enable_doxygen_xml+set}" = set; then :
- enableval=$enable_doxygen_xml;
-case "$enableval" in
-#(
-y|Y|yes|Yes|YES)
- DX_FLAG_xml=1
-
-
-test "$DX_FLAG_doc" = "1" \
-|| as_fn_error "doxygen-xml requires doxygen-xml" "$LINENO" 5
-
-;; #(
-n|N|no|No|NO)
- DX_FLAG_xml=0
-
-;; #(
-*)
- as_fn_error "invalid value '$enableval' given to doxygen-xml" "$LINENO" 5
-;;
-esac
-
-else
-
-DX_FLAG_xml=0
-
-
-test "$DX_FLAG_doc" = "1" || DX_FLAG_xml=0
-
-
-
-fi
-
-if test "$DX_FLAG_xml" = 1; then
-
- :
-fi
-if test "$DX_FLAG_xml" = 1; then
- if :; then
- DX_COND_xml_TRUE=
- DX_COND_xml_FALSE='#'
-else
- DX_COND_xml_TRUE='#'
- DX_COND_xml_FALSE=
-fi
-
- DX_ENV="$DX_ENV GENERATE_XML='YES'"
-
- :
-else
- if false; then
- DX_COND_xml_TRUE=
- DX_COND_xml_FALSE='#'
-else
- DX_COND_xml_TRUE='#'
- DX_COND_xml_FALSE=
-fi
-
- DX_ENV="$DX_ENV GENERATE_XML='NO'"
-
- :
-fi
-
-
-# (Compressed) HTML help generation:
-
-
-
-
- # Check whether --enable-doxygen-chm was given.
-if test "${enable_doxygen_chm+set}" = set; then :
- enableval=$enable_doxygen_chm;
-case "$enableval" in
-#(
-y|Y|yes|Yes|YES)
- DX_FLAG_chm=1
-
-
-test "$DX_FLAG_doc" = "1" \
-|| as_fn_error "doxygen-chm requires doxygen-chm" "$LINENO" 5
-
-;; #(
-n|N|no|No|NO)
- DX_FLAG_chm=0
-
-;; #(
-*)
- as_fn_error "invalid value '$enableval' given to doxygen-chm" "$LINENO" 5
-;;
-esac
-
-else
-
-DX_FLAG_chm=0
-
-
-test "$DX_FLAG_doc" = "1" || DX_FLAG_chm=0
-
-
-
-fi
-
-if test "$DX_FLAG_chm" = 1; then
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}hhc", so it can be a program name with args.
-set dummy ${ac_tool_prefix}hhc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_DX_HHC+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $DX_HHC in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_DX_HHC="$DX_HHC" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_DX_HHC="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-DX_HHC=$ac_cv_path_DX_HHC
-if test -n "$DX_HHC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DX_HHC" >&5
-$as_echo "$DX_HHC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_path_DX_HHC"; then
- ac_pt_DX_HHC=$DX_HHC
- # Extract the first word of "hhc", so it can be a program name with args.
-set dummy hhc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_ac_pt_DX_HHC+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $ac_pt_DX_HHC in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_ac_pt_DX_HHC="$ac_pt_DX_HHC" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_ac_pt_DX_HHC="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-ac_pt_DX_HHC=$ac_cv_path_ac_pt_DX_HHC
-if test -n "$ac_pt_DX_HHC"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_DX_HHC" >&5
-$as_echo "$ac_pt_DX_HHC" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_pt_DX_HHC" = x; then
- DX_HHC=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DX_HHC=$ac_pt_DX_HHC
- fi
-else
- DX_HHC="$ac_cv_path_DX_HHC"
-fi
-
-if test "$DX_FLAG_chm$DX_HHC" = 1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: hhc not found - will not generate doxygen compressed HTML help documentation" >&5
-$as_echo "$as_me: WARNING: hhc not found - will not generate doxygen compressed HTML help documentation" >&2;}
- DX_FLAG_chm=0
-
-fi
-
- :
-fi
-if test "$DX_FLAG_chm" = 1; then
- if :; then
- DX_COND_chm_TRUE=
- DX_COND_chm_FALSE='#'
-else
- DX_COND_chm_TRUE='#'
- DX_COND_chm_FALSE=
-fi
-
- DX_ENV="$DX_ENV HHC_PATH='$DX_HHC'"
-
- DX_ENV="$DX_ENV GENERATE_HTML='YES'"
-
- DX_ENV="$DX_ENV GENERATE_HTMLHELP='YES'"
-
- :
-else
- if false; then
- DX_COND_chm_TRUE=
- DX_COND_chm_FALSE='#'
-else
- DX_COND_chm_TRUE='#'
- DX_COND_chm_FALSE=
-fi
-
- DX_ENV="$DX_ENV GENERATE_HTMLHELP='NO'"
-
- :
-fi
-
-
-# Seperate CHI file generation.
-
-
-
-
- # Check whether --enable-doxygen-chi was given.
-if test "${enable_doxygen_chi+set}" = set; then :
- enableval=$enable_doxygen_chi;
-case "$enableval" in
-#(
-y|Y|yes|Yes|YES)
- DX_FLAG_chi=1
-
-
-test "$DX_FLAG_chm" = "1" \
-|| as_fn_error "doxygen-chi requires doxygen-chi" "$LINENO" 5
-
-;; #(
-n|N|no|No|NO)
- DX_FLAG_chi=0
-
-;; #(
-*)
- as_fn_error "invalid value '$enableval' given to doxygen-chi" "$LINENO" 5
-;;
-esac
-
-else
-
-DX_FLAG_chi=0
-
-
-test "$DX_FLAG_chm" = "1" || DX_FLAG_chi=0
-
-
-
-fi
-
-if test "$DX_FLAG_chi" = 1; then
-
- :
-fi
-if test "$DX_FLAG_chi" = 1; then
- if :; then
- DX_COND_chi_TRUE=
- DX_COND_chi_FALSE='#'
-else
- DX_COND_chi_TRUE='#'
- DX_COND_chi_FALSE=
-fi
-
- DX_ENV="$DX_ENV GENERATE_CHI='YES'"
-
- :
-else
- if false; then
- DX_COND_chi_TRUE=
- DX_COND_chi_FALSE='#'
-else
- DX_COND_chi_TRUE='#'
- DX_COND_chi_FALSE=
-fi
-
- DX_ENV="$DX_ENV GENERATE_CHI='NO'"
-
- :
-fi
-
-
-# Plain HTML pages generation:
-
-
-
-
- # Check whether --enable-doxygen-html was given.
-if test "${enable_doxygen_html+set}" = set; then :
- enableval=$enable_doxygen_html;
-case "$enableval" in
-#(
-y|Y|yes|Yes|YES)
- DX_FLAG_html=1
-
-
-test "$DX_FLAG_doc" = "1" \
-|| as_fn_error "doxygen-html requires doxygen-html" "$LINENO" 5
-
-test "$DX_FLAG_chm" = "0" \
-|| as_fn_error "doxygen-html contradicts doxygen-html" "$LINENO" 5
-
-;; #(
-n|N|no|No|NO)
- DX_FLAG_html=0
-
-;; #(
-*)
- as_fn_error "invalid value '$enableval' given to doxygen-html" "$LINENO" 5
-;;
-esac
-
-else
-
-DX_FLAG_html=1
-
-
-test "$DX_FLAG_doc" = "1" || DX_FLAG_html=0
-
-
-test "$DX_FLAG_chm" = "0" || DX_FLAG_html=0
-
-
-
-fi
-
-if test "$DX_FLAG_html" = 1; then
-
- :
-fi
-if test "$DX_FLAG_html" = 1; then
- if :; then
- DX_COND_html_TRUE=
- DX_COND_html_FALSE='#'
-else
- DX_COND_html_TRUE='#'
- DX_COND_html_FALSE=
-fi
-
- DX_ENV="$DX_ENV GENERATE_HTML='YES'"
-
- :
-else
- if false; then
- DX_COND_html_TRUE=
- DX_COND_html_FALSE='#'
-else
- DX_COND_html_TRUE='#'
- DX_COND_html_FALSE=
-fi
-
- test "$DX_FLAG_chm" = 1 || DX_ENV="$DX_ENV GENERATE_HTML='NO'"
-
- :
-fi
-
-
-# PostScript file generation:
-
-
-
-
- # Check whether --enable-doxygen-ps was given.
-if test "${enable_doxygen_ps+set}" = set; then :
- enableval=$enable_doxygen_ps;
-case "$enableval" in
-#(
-y|Y|yes|Yes|YES)
- DX_FLAG_ps=1
-
-
-test "$DX_FLAG_doc" = "1" \
-|| as_fn_error "doxygen-ps requires doxygen-ps" "$LINENO" 5
-
-;; #(
-n|N|no|No|NO)
- DX_FLAG_ps=0
-
-;; #(
-*)
- as_fn_error "invalid value '$enableval' given to doxygen-ps" "$LINENO" 5
-;;
-esac
-
-else
-
-DX_FLAG_ps=0
-
-
-test "$DX_FLAG_doc" = "1" || DX_FLAG_ps=0
-
-
-
-fi
-
-if test "$DX_FLAG_ps" = 1; then
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}latex", so it can be a program name with args.
-set dummy ${ac_tool_prefix}latex; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_DX_LATEX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $DX_LATEX in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_DX_LATEX="$DX_LATEX" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_DX_LATEX="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-DX_LATEX=$ac_cv_path_DX_LATEX
-if test -n "$DX_LATEX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DX_LATEX" >&5
-$as_echo "$DX_LATEX" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_path_DX_LATEX"; then
- ac_pt_DX_LATEX=$DX_LATEX
- # Extract the first word of "latex", so it can be a program name with args.
-set dummy latex; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_ac_pt_DX_LATEX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $ac_pt_DX_LATEX in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_ac_pt_DX_LATEX="$ac_pt_DX_LATEX" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_ac_pt_DX_LATEX="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-ac_pt_DX_LATEX=$ac_cv_path_ac_pt_DX_LATEX
-if test -n "$ac_pt_DX_LATEX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_DX_LATEX" >&5
-$as_echo "$ac_pt_DX_LATEX" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_pt_DX_LATEX" = x; then
- DX_LATEX=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DX_LATEX=$ac_pt_DX_LATEX
- fi
-else
- DX_LATEX="$ac_cv_path_DX_LATEX"
-fi
-
-if test "$DX_FLAG_ps$DX_LATEX" = 1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: latex not found - will not generate doxygen PostScript documentation" >&5
-$as_echo "$as_me: WARNING: latex not found - will not generate doxygen PostScript documentation" >&2;}
- DX_FLAG_ps=0
-
-fi
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}makeindex", so it can be a program name with args.
-set dummy ${ac_tool_prefix}makeindex; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_DX_MAKEINDEX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $DX_MAKEINDEX in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_DX_MAKEINDEX="$DX_MAKEINDEX" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_DX_MAKEINDEX="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-DX_MAKEINDEX=$ac_cv_path_DX_MAKEINDEX
-if test -n "$DX_MAKEINDEX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DX_MAKEINDEX" >&5
-$as_echo "$DX_MAKEINDEX" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_path_DX_MAKEINDEX"; then
- ac_pt_DX_MAKEINDEX=$DX_MAKEINDEX
- # Extract the first word of "makeindex", so it can be a program name with args.
-set dummy makeindex; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_ac_pt_DX_MAKEINDEX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $ac_pt_DX_MAKEINDEX in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_ac_pt_DX_MAKEINDEX="$ac_pt_DX_MAKEINDEX" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_ac_pt_DX_MAKEINDEX="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-ac_pt_DX_MAKEINDEX=$ac_cv_path_ac_pt_DX_MAKEINDEX
-if test -n "$ac_pt_DX_MAKEINDEX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_DX_MAKEINDEX" >&5
-$as_echo "$ac_pt_DX_MAKEINDEX" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_pt_DX_MAKEINDEX" = x; then
- DX_MAKEINDEX=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DX_MAKEINDEX=$ac_pt_DX_MAKEINDEX
- fi
-else
- DX_MAKEINDEX="$ac_cv_path_DX_MAKEINDEX"
-fi
-
-if test "$DX_FLAG_ps$DX_MAKEINDEX" = 1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: makeindex not found - will not generate doxygen PostScript documentation" >&5
-$as_echo "$as_me: WARNING: makeindex not found - will not generate doxygen PostScript documentation" >&2;}
- DX_FLAG_ps=0
-
-fi
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}dvips", so it can be a program name with args.
-set dummy ${ac_tool_prefix}dvips; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_DX_DVIPS+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $DX_DVIPS in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_DX_DVIPS="$DX_DVIPS" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_DX_DVIPS="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-DX_DVIPS=$ac_cv_path_DX_DVIPS
-if test -n "$DX_DVIPS"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DX_DVIPS" >&5
-$as_echo "$DX_DVIPS" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_path_DX_DVIPS"; then
- ac_pt_DX_DVIPS=$DX_DVIPS
- # Extract the first word of "dvips", so it can be a program name with args.
-set dummy dvips; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_ac_pt_DX_DVIPS+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $ac_pt_DX_DVIPS in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_ac_pt_DX_DVIPS="$ac_pt_DX_DVIPS" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_ac_pt_DX_DVIPS="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-ac_pt_DX_DVIPS=$ac_cv_path_ac_pt_DX_DVIPS
-if test -n "$ac_pt_DX_DVIPS"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_DX_DVIPS" >&5
-$as_echo "$ac_pt_DX_DVIPS" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_pt_DX_DVIPS" = x; then
- DX_DVIPS=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DX_DVIPS=$ac_pt_DX_DVIPS
- fi
-else
- DX_DVIPS="$ac_cv_path_DX_DVIPS"
-fi
-
-if test "$DX_FLAG_ps$DX_DVIPS" = 1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: dvips not found - will not generate doxygen PostScript documentation" >&5
-$as_echo "$as_me: WARNING: dvips not found - will not generate doxygen PostScript documentation" >&2;}
- DX_FLAG_ps=0
-
-fi
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}egrep", so it can be a program name with args.
-set dummy ${ac_tool_prefix}egrep; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_DX_EGREP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $DX_EGREP in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_DX_EGREP="$DX_EGREP" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_DX_EGREP="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-DX_EGREP=$ac_cv_path_DX_EGREP
-if test -n "$DX_EGREP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DX_EGREP" >&5
-$as_echo "$DX_EGREP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_path_DX_EGREP"; then
- ac_pt_DX_EGREP=$DX_EGREP
- # Extract the first word of "egrep", so it can be a program name with args.
-set dummy egrep; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_ac_pt_DX_EGREP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $ac_pt_DX_EGREP in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_ac_pt_DX_EGREP="$ac_pt_DX_EGREP" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_ac_pt_DX_EGREP="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-ac_pt_DX_EGREP=$ac_cv_path_ac_pt_DX_EGREP
-if test -n "$ac_pt_DX_EGREP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_DX_EGREP" >&5
-$as_echo "$ac_pt_DX_EGREP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_pt_DX_EGREP" = x; then
- DX_EGREP=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DX_EGREP=$ac_pt_DX_EGREP
- fi
-else
- DX_EGREP="$ac_cv_path_DX_EGREP"
-fi
-
-if test "$DX_FLAG_ps$DX_EGREP" = 1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: egrep not found - will not generate doxygen PostScript documentation" >&5
-$as_echo "$as_me: WARNING: egrep not found - will not generate doxygen PostScript documentation" >&2;}
- DX_FLAG_ps=0
-
-fi
-
- :
-fi
-if test "$DX_FLAG_ps" = 1; then
- if :; then
- DX_COND_ps_TRUE=
- DX_COND_ps_FALSE='#'
-else
- DX_COND_ps_TRUE='#'
- DX_COND_ps_FALSE=
-fi
-
-
- :
-else
- if false; then
- DX_COND_ps_TRUE=
- DX_COND_ps_FALSE='#'
-else
- DX_COND_ps_TRUE='#'
- DX_COND_ps_FALSE=
-fi
-
-
- :
-fi
-
-
-# PDF file generation:
-
-
-
-
- # Check whether --enable-doxygen-pdf was given.
-if test "${enable_doxygen_pdf+set}" = set; then :
- enableval=$enable_doxygen_pdf;
-case "$enableval" in
-#(
-y|Y|yes|Yes|YES)
- DX_FLAG_pdf=1
-
-
-test "$DX_FLAG_doc" = "1" \
-|| as_fn_error "doxygen-pdf requires doxygen-pdf" "$LINENO" 5
-
-;; #(
-n|N|no|No|NO)
- DX_FLAG_pdf=0
-
-;; #(
-*)
- as_fn_error "invalid value '$enableval' given to doxygen-pdf" "$LINENO" 5
-;;
-esac
-
-else
-
-DX_FLAG_pdf=0
-
-
-test "$DX_FLAG_doc" = "1" || DX_FLAG_pdf=0
-
-
-
-fi
-
-if test "$DX_FLAG_pdf" = 1; then
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}pdflatex", so it can be a program name with args.
-set dummy ${ac_tool_prefix}pdflatex; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_DX_PDFLATEX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $DX_PDFLATEX in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_DX_PDFLATEX="$DX_PDFLATEX" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_DX_PDFLATEX="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-DX_PDFLATEX=$ac_cv_path_DX_PDFLATEX
-if test -n "$DX_PDFLATEX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DX_PDFLATEX" >&5
-$as_echo "$DX_PDFLATEX" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_path_DX_PDFLATEX"; then
- ac_pt_DX_PDFLATEX=$DX_PDFLATEX
- # Extract the first word of "pdflatex", so it can be a program name with args.
-set dummy pdflatex; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_ac_pt_DX_PDFLATEX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $ac_pt_DX_PDFLATEX in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_ac_pt_DX_PDFLATEX="$ac_pt_DX_PDFLATEX" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_ac_pt_DX_PDFLATEX="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-ac_pt_DX_PDFLATEX=$ac_cv_path_ac_pt_DX_PDFLATEX
-if test -n "$ac_pt_DX_PDFLATEX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_DX_PDFLATEX" >&5
-$as_echo "$ac_pt_DX_PDFLATEX" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_pt_DX_PDFLATEX" = x; then
- DX_PDFLATEX=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DX_PDFLATEX=$ac_pt_DX_PDFLATEX
- fi
-else
- DX_PDFLATEX="$ac_cv_path_DX_PDFLATEX"
-fi
-
-if test "$DX_FLAG_pdf$DX_PDFLATEX" = 1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: pdflatex not found - will not generate doxygen PDF documentation" >&5
-$as_echo "$as_me: WARNING: pdflatex not found - will not generate doxygen PDF documentation" >&2;}
- DX_FLAG_pdf=0
-
-fi
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}makeindex", so it can be a program name with args.
-set dummy ${ac_tool_prefix}makeindex; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_DX_MAKEINDEX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $DX_MAKEINDEX in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_DX_MAKEINDEX="$DX_MAKEINDEX" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_DX_MAKEINDEX="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-DX_MAKEINDEX=$ac_cv_path_DX_MAKEINDEX
-if test -n "$DX_MAKEINDEX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DX_MAKEINDEX" >&5
-$as_echo "$DX_MAKEINDEX" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_path_DX_MAKEINDEX"; then
- ac_pt_DX_MAKEINDEX=$DX_MAKEINDEX
- # Extract the first word of "makeindex", so it can be a program name with args.
-set dummy makeindex; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_ac_pt_DX_MAKEINDEX+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $ac_pt_DX_MAKEINDEX in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_ac_pt_DX_MAKEINDEX="$ac_pt_DX_MAKEINDEX" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_ac_pt_DX_MAKEINDEX="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-ac_pt_DX_MAKEINDEX=$ac_cv_path_ac_pt_DX_MAKEINDEX
-if test -n "$ac_pt_DX_MAKEINDEX"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_DX_MAKEINDEX" >&5
-$as_echo "$ac_pt_DX_MAKEINDEX" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_pt_DX_MAKEINDEX" = x; then
- DX_MAKEINDEX=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DX_MAKEINDEX=$ac_pt_DX_MAKEINDEX
- fi
-else
- DX_MAKEINDEX="$ac_cv_path_DX_MAKEINDEX"
-fi
-
-if test "$DX_FLAG_pdf$DX_MAKEINDEX" = 1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: makeindex not found - will not generate doxygen PDF documentation" >&5
-$as_echo "$as_me: WARNING: makeindex not found - will not generate doxygen PDF documentation" >&2;}
- DX_FLAG_pdf=0
-
-fi
-
-
-if test -n "$ac_tool_prefix"; then
- # Extract the first word of "${ac_tool_prefix}egrep", so it can be a program name with args.
-set dummy ${ac_tool_prefix}egrep; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_DX_EGREP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $DX_EGREP in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_DX_EGREP="$DX_EGREP" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_DX_EGREP="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-DX_EGREP=$ac_cv_path_DX_EGREP
-if test -n "$DX_EGREP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DX_EGREP" >&5
-$as_echo "$DX_EGREP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_path_DX_EGREP"; then
- ac_pt_DX_EGREP=$DX_EGREP
- # Extract the first word of "egrep", so it can be a program name with args.
-set dummy egrep; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if test "${ac_cv_path_ac_pt_DX_EGREP+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- case $ac_pt_DX_EGREP in
- [\\/]* | ?:[\\/]*)
- ac_cv_path_ac_pt_DX_EGREP="$ac_pt_DX_EGREP" # Let the user override the test with a path.
- ;;
- *)
- as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- for ac_exec_ext in '' $ac_executable_extensions; do
- if { test -f "$as_dir/$ac_word$ac_exec_ext" && $as_test_x "$as_dir/$ac_word$ac_exec_ext"; }; then
- ac_cv_path_ac_pt_DX_EGREP="$as_dir/$ac_word$ac_exec_ext"
- $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
- break 2
- fi
-done
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-fi
-ac_pt_DX_EGREP=$ac_cv_path_ac_pt_DX_EGREP
-if test -n "$ac_pt_DX_EGREP"; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_pt_DX_EGREP" >&5
-$as_echo "$ac_pt_DX_EGREP" >&6; }
-else
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
- if test "x$ac_pt_DX_EGREP" = x; then
- DX_EGREP=""
- else
- case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
- DX_EGREP=$ac_pt_DX_EGREP
- fi
-else
- DX_EGREP="$ac_cv_path_DX_EGREP"
-fi
-
-if test "$DX_FLAG_pdf$DX_EGREP" = 1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: egrep not found - will not generate doxygen PDF documentation" >&5
-$as_echo "$as_me: WARNING: egrep not found - will not generate doxygen PDF documentation" >&2;}
- DX_FLAG_pdf=0
-
-fi
-
- :
-fi
-if test "$DX_FLAG_pdf" = 1; then
- if :; then
- DX_COND_pdf_TRUE=
- DX_COND_pdf_FALSE='#'
-else
- DX_COND_pdf_TRUE='#'
- DX_COND_pdf_FALSE=
-fi
-
-
- :
-else
- if false; then
- DX_COND_pdf_TRUE=
- DX_COND_pdf_FALSE='#'
-else
- DX_COND_pdf_TRUE='#'
- DX_COND_pdf_FALSE=
-fi
-
-
- :
-fi
-
-
-# LaTeX generation for PS and/or PDF:
-if test "$DX_FLAG_ps" = 1 || test "$DX_FLAG_pdf" = 1; then
- if :; then
- DX_COND_latex_TRUE=
- DX_COND_latex_FALSE='#'
-else
- DX_COND_latex_TRUE='#'
- DX_COND_latex_FALSE=
-fi
-
- DX_ENV="$DX_ENV GENERATE_LATEX='YES'"
-
-else
- if false; then
- DX_COND_latex_TRUE=
- DX_COND_latex_FALSE='#'
-else
- DX_COND_latex_TRUE='#'
- DX_COND_latex_FALSE=
-fi
-
- DX_ENV="$DX_ENV GENERATE_LATEX='NO'"
-
-fi
-
-# Paper size for PS and/or PDF:
-
-case "$DOXYGEN_PAPER_SIZE" in
-#(
-"")
- DOXYGEN_PAPER_SIZE=""
-
-;; #(
-a4wide|a4|letter|legal|executive)
- DX_ENV="$DX_ENV PAPER_SIZE='$DOXYGEN_PAPER_SIZE'"
-
-;; #(
-*)
- as_fn_error "unknown DOXYGEN_PAPER_SIZE='$DOXYGEN_PAPER_SIZE'" "$LINENO" 5
-;;
-esac
-
-#For debugging:
-#echo DX_FLAG_doc=$DX_FLAG_doc
-#echo DX_FLAG_dot=$DX_FLAG_dot
-#echo DX_FLAG_man=$DX_FLAG_man
-#echo DX_FLAG_html=$DX_FLAG_html
-#echo DX_FLAG_chm=$DX_FLAG_chm
-#echo DX_FLAG_chi=$DX_FLAG_chi
-#echo DX_FLAG_rtf=$DX_FLAG_rtf
-#echo DX_FLAG_xml=$DX_FLAG_xml
-#echo DX_FLAG_pdf=$DX_FLAG_pdf
-#echo DX_FLAG_ps=$DX_FLAG_ps
-#echo DX_ENV=$DX_ENV
-
-
-
-
-
-ac_config_files="$ac_config_files Makefile libxtiff/Makefile bin/Makefile man/Makefile man/man1/Makefile cmake/Makefile"
-
-
-cat >confcache <<\_ACEOF
-# This file is a shell script that caches the results of configure
-# tests run on this system so they can be shared between configure
-# scripts and configure runs, see configure's option --config-cache.
-# It is not useful on other systems. If it contains results you don't
-# want to keep, you may remove or edit it.
-#
-# config.status only pays attention to the cache file if you give it
-# the --recheck option to rerun configure.
-#
-# `ac_cv_env_foo' variables (set or unset) will be overridden when
-# loading this file, other *unset* `ac_cv_foo' will be assigned the
-# following values.
-
-_ACEOF
-
-# The following way of writing the cache mishandles newlines in values,
-# but we know of no workaround that is simple, portable, and efficient.
-# So, we kill variables containing newlines.
-# Ultrix sh set writes to stderr and can't be redirected directly,
-# and sets the high bit in the cache file unless we assign to the vars.
-(
- for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do
- eval ac_val=\$$ac_var
- case $ac_val in #(
- *${as_nl}*)
- case $ac_var in #(
- *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
-$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
- esac
- case $ac_var in #(
- _ | IFS | as_nl) ;; #(
- BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
- *) { eval $ac_var=; unset $ac_var;} ;;
- esac ;;
- esac
- done
-
- (set) 2>&1 |
- case $as_nl`(ac_space=' '; set) 2>&1` in #(
- *${as_nl}ac_space=\ *)
- # `set' does not quote correctly, so add quotes: double-quote
- # substitution turns \\\\ into \\, and sed turns \\ into \.
- sed -n \
- "s/'/'\\\\''/g;
- s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p"
- ;; #(
- *)
- # `set' quotes correctly as required by POSIX, so do not add quotes.
- sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
- ;;
- esac |
- sort
-) |
- sed '
- /^ac_cv_env_/b end
- t clear
- :clear
- s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/
- t end
- s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/
- :end' >>confcache
-if diff "$cache_file" confcache >/dev/null 2>&1; then :; else
- if test -w "$cache_file"; then
- test "x$cache_file" != "x/dev/null" &&
- { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5
-$as_echo "$as_me: updating cache $cache_file" >&6;}
- cat confcache >$cache_file
- else
- { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5
-$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;}
- fi
-fi
-rm -f confcache
-
-test "x$prefix" = xNONE && prefix=$ac_default_prefix
-# Let make expand exec_prefix.
-test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
-
-DEFS=-DHAVE_CONFIG_H
-
-ac_libobjs=
-ac_ltlibobjs=
-for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue
- # 1. Remove the extension, and $U if already installed.
- ac_script='s/\$U\././;s/\.o$//;s/\.obj$//'
- ac_i=`$as_echo "$ac_i" | sed "$ac_script"`
- # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR
- # will be set to the directory where LIBOBJS objects are built.
- as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext"
- as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo'
-done
-LIBOBJS=$ac_libobjs
-
-LTLIBOBJS=$ac_ltlibobjs
-
-
- if test -n "$EXEEXT"; then
- am__EXEEXT_TRUE=
- am__EXEEXT_FALSE='#'
-else
- am__EXEEXT_TRUE='#'
- am__EXEEXT_FALSE=
-fi
-
-if test -z "${MAINTAINER_MODE_TRUE}" && test -z "${MAINTAINER_MODE_FALSE}"; then
- as_fn_error "conditional \"MAINTAINER_MODE\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then
- as_fn_error "conditional \"AMDEP\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then
- as_fn_error "conditional \"am__fastdepCC\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then
- as_fn_error "conditional \"am__fastdepCXX\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${am__fastdepCXX_TRUE}" && test -z "${am__fastdepCXX_FALSE}"; then
- as_fn_error "conditional \"am__fastdepCXX\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${ZIP_IS_CONFIG_TRUE}" && test -z "${ZIP_IS_CONFIG_FALSE}"; then
- as_fn_error "conditional \"ZIP_IS_CONFIG\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${JPEG_IS_CONFIG_TRUE}" && test -z "${JPEG_IS_CONFIG_FALSE}"; then
- as_fn_error "conditional \"JPEG_IS_CONFIG\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${TIFF_IS_CONFIG_TRUE}" && test -z "${TIFF_IS_CONFIG_FALSE}"; then
- as_fn_error "conditional \"TIFF_IS_CONFIG\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${PROJ_IS_CONFIG_TRUE}" && test -z "${PROJ_IS_CONFIG_FALSE}"; then
- as_fn_error "conditional \"PROJ_IS_CONFIG\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${PROJECTS_H_IS_CONFIG_TRUE}" && test -z "${PROJECTS_H_IS_CONFIG_FALSE}"; then
- as_fn_error "conditional \"PROJECTS_H_IS_CONFIG\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${CSV_IS_CONFIG_TRUE}" && test -z "${CSV_IS_CONFIG_FALSE}"; then
- as_fn_error "conditional \"CSV_IS_CONFIG\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_doc_TRUE}" && test -z "${DX_COND_doc_FALSE}"; then
- as_fn_error "conditional \"DX_COND_doc\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_doc_TRUE}" && test -z "${DX_COND_doc_FALSE}"; then
- as_fn_error "conditional \"DX_COND_doc\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_dot_TRUE}" && test -z "${DX_COND_dot_FALSE}"; then
- as_fn_error "conditional \"DX_COND_dot\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_dot_TRUE}" && test -z "${DX_COND_dot_FALSE}"; then
- as_fn_error "conditional \"DX_COND_dot\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_man_TRUE}" && test -z "${DX_COND_man_FALSE}"; then
- as_fn_error "conditional \"DX_COND_man\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_man_TRUE}" && test -z "${DX_COND_man_FALSE}"; then
- as_fn_error "conditional \"DX_COND_man\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_rtf_TRUE}" && test -z "${DX_COND_rtf_FALSE}"; then
- as_fn_error "conditional \"DX_COND_rtf\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_rtf_TRUE}" && test -z "${DX_COND_rtf_FALSE}"; then
- as_fn_error "conditional \"DX_COND_rtf\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_xml_TRUE}" && test -z "${DX_COND_xml_FALSE}"; then
- as_fn_error "conditional \"DX_COND_xml\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_xml_TRUE}" && test -z "${DX_COND_xml_FALSE}"; then
- as_fn_error "conditional \"DX_COND_xml\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_chm_TRUE}" && test -z "${DX_COND_chm_FALSE}"; then
- as_fn_error "conditional \"DX_COND_chm\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_chm_TRUE}" && test -z "${DX_COND_chm_FALSE}"; then
- as_fn_error "conditional \"DX_COND_chm\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_chi_TRUE}" && test -z "${DX_COND_chi_FALSE}"; then
- as_fn_error "conditional \"DX_COND_chi\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_chi_TRUE}" && test -z "${DX_COND_chi_FALSE}"; then
- as_fn_error "conditional \"DX_COND_chi\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_html_TRUE}" && test -z "${DX_COND_html_FALSE}"; then
- as_fn_error "conditional \"DX_COND_html\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_html_TRUE}" && test -z "${DX_COND_html_FALSE}"; then
- as_fn_error "conditional \"DX_COND_html\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_ps_TRUE}" && test -z "${DX_COND_ps_FALSE}"; then
- as_fn_error "conditional \"DX_COND_ps\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_ps_TRUE}" && test -z "${DX_COND_ps_FALSE}"; then
- as_fn_error "conditional \"DX_COND_ps\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_pdf_TRUE}" && test -z "${DX_COND_pdf_FALSE}"; then
- as_fn_error "conditional \"DX_COND_pdf\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_pdf_TRUE}" && test -z "${DX_COND_pdf_FALSE}"; then
- as_fn_error "conditional \"DX_COND_pdf\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_latex_TRUE}" && test -z "${DX_COND_latex_FALSE}"; then
- as_fn_error "conditional \"DX_COND_latex\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-if test -z "${DX_COND_latex_TRUE}" && test -z "${DX_COND_latex_FALSE}"; then
- as_fn_error "conditional \"DX_COND_latex\" was never defined.
-Usually this means the macro was only invoked conditionally." "$LINENO" 5
-fi
-
-: ${CONFIG_STATUS=./config.status}
-ac_write_fail=0
-ac_clean_files_save=$ac_clean_files
-ac_clean_files="$ac_clean_files $CONFIG_STATUS"
-{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5
-$as_echo "$as_me: creating $CONFIG_STATUS" >&6;}
-as_write_fail=0
-cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1
-#! $SHELL
-# Generated by $as_me.
-# Run this file to recreate the current configuration.
-# Compiler output produced by configure, useful for debugging
-# configure, is in config.log if it exists.
-
-debug=false
-ac_cs_recheck=false
-ac_cs_silent=false
-
-SHELL=\${CONFIG_SHELL-$SHELL}
-export SHELL
-_ASEOF
-cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1
-## -------------------- ##
-## M4sh Initialization. ##
-## -------------------- ##
-
-# Be more Bourne compatible
-DUALCASE=1; export DUALCASE # for MKS sh
-if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
- emulate sh
- NULLCMD=:
- # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
- # is contrary to our usage. Disable this feature.
- alias -g '${1+"$@"}'='"$@"'
- setopt NO_GLOB_SUBST
-else
- case `(set -o) 2>/dev/null` in #(
- *posix*) :
- set -o posix ;; #(
- *) :
- ;;
-esac
-fi
-
-
-as_nl='
-'
-export as_nl
-# Printing a long string crashes Solaris 7 /usr/bin/printf.
-as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
-# Prefer a ksh shell builtin over an external printf program on Solaris,
-# but without wasting forks for bash or zsh.
-if test -z "$BASH_VERSION$ZSH_VERSION" \
- && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='print -r --'
- as_echo_n='print -rn --'
-elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='printf %s\n'
- as_echo_n='printf %s'
-else
- if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
- as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
- as_echo_n='/usr/ucb/echo -n'
- else
- as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
- as_echo_n_body='eval
- arg=$1;
- case $arg in #(
- *"$as_nl"*)
- expr "X$arg" : "X\\(.*\\)$as_nl";
- arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
- esac;
- expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
- '
- export as_echo_n_body
- as_echo_n='sh -c $as_echo_n_body as_echo'
- fi
- export as_echo_body
- as_echo='sh -c $as_echo_body as_echo'
-fi
-
-# The user is always right.
-if test "${PATH_SEPARATOR+set}" != set; then
- PATH_SEPARATOR=:
- (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
- (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
- PATH_SEPARATOR=';'
- }
-fi
-
-
-# IFS
-# We need space, tab and new line, in precisely that order. Quoting is
-# there to prevent editors from complaining about space-tab.
-# (If _AS_PATH_WALK were called with IFS unset, it would disable word
-# splitting by setting IFS to empty value.)
-IFS=" "" $as_nl"
-
-# Find who we are. Look in the path if we contain no directory separator.
-case $0 in #((
- *[\\/]* ) as_myself=$0 ;;
- *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-# We did not find ourselves, most probably we were run as `sh COMMAND'
-# in which case we are not to be found in the path.
-if test "x$as_myself" = x; then
- as_myself=$0
-fi
-if test ! -f "$as_myself"; then
- $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
- exit 1
-fi
-
-# Unset variables that we do not need and which cause bugs (e.g. in
-# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1"
-# suppresses any "Segmentation fault" message there. '((' could
-# trigger a bug in pdksh 5.2.14.
-for as_var in BASH_ENV ENV MAIL MAILPATH
-do eval test x\${$as_var+set} = xset \
- && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
-done
-PS1='$ '
-PS2='> '
-PS4='+ '
-
-# NLS nuisances.
-LC_ALL=C
-export LC_ALL
-LANGUAGE=C
-export LANGUAGE
-
-# CDPATH.
-(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-
-
-# as_fn_error ERROR [LINENO LOG_FD]
-# ---------------------------------
-# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
-# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-# script with status $?, using 1 if that was 0.
-as_fn_error ()
-{
- as_status=$?; test $as_status -eq 0 && as_status=1
- if test "$3"; then
- as_lineno=${as_lineno-"$2"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- $as_echo "$as_me:${as_lineno-$LINENO}: error: $1" >&$3
- fi
- $as_echo "$as_me: error: $1" >&2
- as_fn_exit $as_status
-} # as_fn_error
-
-
-# as_fn_set_status STATUS
-# -----------------------
-# Set $? to STATUS, without forking.
-as_fn_set_status ()
-{
- return $1
-} # as_fn_set_status
-
-# as_fn_exit STATUS
-# -----------------
-# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
-as_fn_exit ()
-{
- set +e
- as_fn_set_status $1
- exit $1
-} # as_fn_exit
-
-# as_fn_unset VAR
-# ---------------
-# Portably unset VAR.
-as_fn_unset ()
-{
- { eval $1=; unset $1;}
-}
-as_unset=as_fn_unset
-# as_fn_append VAR VALUE
-# ----------------------
-# Append the text in VALUE to the end of the definition contained in VAR. Take
-# advantage of any shell optimizations that allow amortized linear growth over
-# repeated appends, instead of the typical quadratic growth present in naive
-# implementations.
-if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
- eval 'as_fn_append ()
- {
- eval $1+=\$2
- }'
-else
- as_fn_append ()
- {
- eval $1=\$$1\$2
- }
-fi # as_fn_append
-
-# as_fn_arith ARG...
-# ------------------
-# Perform arithmetic evaluation on the ARGs, and store the result in the
-# global $as_val. Take advantage of shells that can avoid forks. The arguments
-# must be portable across $(()) and expr.
-if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
- eval 'as_fn_arith ()
- {
- as_val=$(( $* ))
- }'
-else
- as_fn_arith ()
- {
- as_val=`expr "$@" || test $? -eq 1`
- }
-fi # as_fn_arith
-
-
-if expr a : '\(a\)' >/dev/null 2>&1 &&
- test "X`expr 00001 : '.*\(...\)'`" = X001; then
- as_expr=expr
-else
- as_expr=false
-fi
-
-if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
- as_basename=basename
-else
- as_basename=false
-fi
-
-if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
- as_dirname=dirname
-else
- as_dirname=false
-fi
-
-as_me=`$as_basename -- "$0" ||
-$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
- X"$0" : 'X\(//\)$' \| \
- X"$0" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X/"$0" |
- sed '/^.*\/\([^/][^/]*\)\/*$/{
- s//\1/
- q
- }
- /^X\/\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\/\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
-
-# Avoid depending upon Character Ranges.
-as_cr_letters='abcdefghijklmnopqrstuvwxyz'
-as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-as_cr_Letters=$as_cr_letters$as_cr_LETTERS
-as_cr_digits='0123456789'
-as_cr_alnum=$as_cr_Letters$as_cr_digits
-
-ECHO_C= ECHO_N= ECHO_T=
-case `echo -n x` in #(((((
--n*)
- case `echo 'xy\c'` in
- *c*) ECHO_T=' ';; # ECHO_T is single tab character.
- xy) ECHO_C='\c';;
- *) echo `echo ksh88 bug on AIX 6.1` > /dev/null
- ECHO_T=' ';;
- esac;;
-*)
- ECHO_N='-n';;
-esac
-
-rm -f conf$$ conf$$.exe conf$$.file
-if test -d conf$$.dir; then
- rm -f conf$$.dir/conf$$.file
-else
- rm -f conf$$.dir
- mkdir conf$$.dir 2>/dev/null
-fi
-if (echo >conf$$.file) 2>/dev/null; then
- if ln -s conf$$.file conf$$ 2>/dev/null; then
- as_ln_s='ln -s'
- # ... but there are two gotchas:
- # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
- # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
- # In both cases, we have to default to `cp -p'.
- ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
- as_ln_s='cp -p'
- elif ln conf$$.file conf$$ 2>/dev/null; then
- as_ln_s=ln
- else
- as_ln_s='cp -p'
- fi
-else
- as_ln_s='cp -p'
-fi
-rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
-rmdir conf$$.dir 2>/dev/null
-
-
-# as_fn_mkdir_p
-# -------------
-# Create "$as_dir" as a directory, including parents if necessary.
-as_fn_mkdir_p ()
-{
-
- case $as_dir in #(
- -*) as_dir=./$as_dir;;
- esac
- test -d "$as_dir" || eval $as_mkdir_p || {
- as_dirs=
- while :; do
- case $as_dir in #(
- *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
- *) as_qdir=$as_dir;;
- esac
- as_dirs="'$as_qdir' $as_dirs"
- as_dir=`$as_dirname -- "$as_dir" ||
-$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$as_dir" : 'X\(//\)[^/]' \| \
- X"$as_dir" : 'X\(//\)$' \| \
- X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$as_dir" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- test -d "$as_dir" && break
- done
- test -z "$as_dirs" || eval "mkdir $as_dirs"
- } || test -d "$as_dir" || as_fn_error "cannot create directory $as_dir"
-
-
-} # as_fn_mkdir_p
-if mkdir -p . 2>/dev/null; then
- as_mkdir_p='mkdir -p "$as_dir"'
-else
- test -d ./-p && rmdir ./-p
- as_mkdir_p=false
-fi
-
-if test -x / >/dev/null 2>&1; then
- as_test_x='test -x'
-else
- if ls -dL / >/dev/null 2>&1; then
- as_ls_L_option=L
- else
- as_ls_L_option=
- fi
- as_test_x='
- eval sh -c '\''
- if test -d "$1"; then
- test -d "$1/.";
- else
- case $1 in #(
- -*)set "./$1";;
- esac;
- case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #((
- ???[sx]*):;;*)false;;esac;fi
- '\'' sh
- '
-fi
-as_executable_p=$as_test_x
-
-# Sed expression to map a string onto a valid CPP name.
-as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
-
-# Sed expression to map a string onto a valid variable name.
-as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
-
-
-exec 6>&1
-## ----------------------------------- ##
-## Main body of $CONFIG_STATUS script. ##
-## ----------------------------------- ##
-_ASEOF
-test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-# Save the log message, to keep $0 and so on meaningful, and to
-# report actual input values of CONFIG_FILES etc. instead of their
-# values after options handling.
-ac_log="
-This file was extended by libgeotiff $as_me 1.4.0, which was
-generated by GNU Autoconf 2.65. Invocation command line was
-
- CONFIG_FILES = $CONFIG_FILES
- CONFIG_HEADERS = $CONFIG_HEADERS
- CONFIG_LINKS = $CONFIG_LINKS
- CONFIG_COMMANDS = $CONFIG_COMMANDS
- $ $0 $@
-
-on `(hostname || uname -n) 2>/dev/null | sed 1q`
-"
-
-_ACEOF
-
-case $ac_config_files in *"
-"*) set x $ac_config_files; shift; ac_config_files=$*;;
-esac
-
-case $ac_config_headers in *"
-"*) set x $ac_config_headers; shift; ac_config_headers=$*;;
-esac
-
-
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-# Files that config.status was made for.
-config_files="$ac_config_files"
-config_headers="$ac_config_headers"
-config_commands="$ac_config_commands"
-
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-ac_cs_usage="\
-\`$as_me' instantiates files and other configuration actions
-from templates according to the current configuration. Unless the files
-and actions are specified as TAGs, all are instantiated by default.
-
-Usage: $0 [OPTION]... [TAG]...
-
- -h, --help print this help, then exit
- -V, --version print version number and configuration settings, then exit
- --config print configuration, then exit
- -q, --quiet, --silent
- do not print progress messages
- -d, --debug don't remove temporary files
- --recheck update $as_me by reconfiguring in the same conditions
- --file=FILE[:TEMPLATE]
- instantiate the configuration file FILE
- --header=FILE[:TEMPLATE]
- instantiate the configuration header FILE
-
-Configuration files:
-$config_files
-
-Configuration headers:
-$config_headers
-
-Configuration commands:
-$config_commands
-
-Report bugs to <warmerdam at pobox.com>."
-
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
-ac_cs_version="\\
-libgeotiff config.status 1.4.0
-configured by $0, generated by GNU Autoconf 2.65,
- with options \\"\$ac_cs_config\\"
-
-Copyright (C) 2009 Free Software Foundation, Inc.
-This config.status script is free software; the Free Software Foundation
-gives unlimited permission to copy, distribute and modify it."
-
-ac_pwd='$ac_pwd'
-srcdir='$srcdir'
-INSTALL='$INSTALL'
-MKDIR_P='$MKDIR_P'
-AWK='$AWK'
-test -n "\$AWK" || AWK=awk
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-# The default lists apply if the user does not specify any file.
-ac_need_defaults=:
-while test $# != 0
-do
- case $1 in
- --*=*)
- ac_option=`expr "X$1" : 'X\([^=]*\)='`
- ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'`
- ac_shift=:
- ;;
- *)
- ac_option=$1
- ac_optarg=$2
- ac_shift=shift
- ;;
- esac
-
- case $ac_option in
- # Handling of the options.
- -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
- ac_cs_recheck=: ;;
- --version | --versio | --versi | --vers | --ver | --ve | --v | -V )
- $as_echo "$ac_cs_version"; exit ;;
- --config | --confi | --conf | --con | --co | --c )
- $as_echo "$ac_cs_config"; exit ;;
- --debug | --debu | --deb | --de | --d | -d )
- debug=: ;;
- --file | --fil | --fi | --f )
- $ac_shift
- case $ac_optarg in
- *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
- esac
- as_fn_append CONFIG_FILES " '$ac_optarg'"
- ac_need_defaults=false;;
- --header | --heade | --head | --hea )
- $ac_shift
- case $ac_optarg in
- *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
- esac
- as_fn_append CONFIG_HEADERS " '$ac_optarg'"
- ac_need_defaults=false;;
- --he | --h)
- # Conflict between --help and --header
- as_fn_error "ambiguous option: \`$1'
-Try \`$0 --help' for more information.";;
- --help | --hel | -h )
- $as_echo "$ac_cs_usage"; exit ;;
- -q | -quiet | --quiet | --quie | --qui | --qu | --q \
- | -silent | --silent | --silen | --sile | --sil | --si | --s)
- ac_cs_silent=: ;;
-
- # This is an error.
- -*) as_fn_error "unrecognized option: \`$1'
-Try \`$0 --help' for more information." ;;
-
- *) as_fn_append ac_config_targets " $1"
- ac_need_defaults=false ;;
-
- esac
- shift
-done
-
-ac_configure_extra_args=
-
-if $ac_cs_silent; then
- exec 6>/dev/null
- ac_configure_extra_args="$ac_configure_extra_args --silent"
-fi
-
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-if \$ac_cs_recheck; then
- set X '$SHELL' '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion
- shift
- \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6
- CONFIG_SHELL='$SHELL'
- export CONFIG_SHELL
- exec "\$@"
-fi
-
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-exec 5>>config.log
-{
- echo
- sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
-## Running $as_me. ##
-_ASBOX
- $as_echo "$ac_log"
-} >&5
-
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-#
-# INIT-COMMANDS
-#
-AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"
-
-
-# The HP-UX ksh and POSIX shell print the target directory to stdout
-# if CDPATH is set.
-(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-
-sed_quote_subst='$sed_quote_subst'
-double_quote_subst='$double_quote_subst'
-delay_variable_subst='$delay_variable_subst'
-macro_version='`$ECHO "X$macro_version" | $Xsed -e "$delay_single_quote_subst"`'
-macro_revision='`$ECHO "X$macro_revision" | $Xsed -e "$delay_single_quote_subst"`'
-enable_shared='`$ECHO "X$enable_shared" | $Xsed -e "$delay_single_quote_subst"`'
-enable_static='`$ECHO "X$enable_static" | $Xsed -e "$delay_single_quote_subst"`'
-pic_mode='`$ECHO "X$pic_mode" | $Xsed -e "$delay_single_quote_subst"`'
-enable_fast_install='`$ECHO "X$enable_fast_install" | $Xsed -e "$delay_single_quote_subst"`'
-host_alias='`$ECHO "X$host_alias" | $Xsed -e "$delay_single_quote_subst"`'
-host='`$ECHO "X$host" | $Xsed -e "$delay_single_quote_subst"`'
-host_os='`$ECHO "X$host_os" | $Xsed -e "$delay_single_quote_subst"`'
-build_alias='`$ECHO "X$build_alias" | $Xsed -e "$delay_single_quote_subst"`'
-build='`$ECHO "X$build" | $Xsed -e "$delay_single_quote_subst"`'
-build_os='`$ECHO "X$build_os" | $Xsed -e "$delay_single_quote_subst"`'
-SED='`$ECHO "X$SED" | $Xsed -e "$delay_single_quote_subst"`'
-Xsed='`$ECHO "X$Xsed" | $Xsed -e "$delay_single_quote_subst"`'
-GREP='`$ECHO "X$GREP" | $Xsed -e "$delay_single_quote_subst"`'
-EGREP='`$ECHO "X$EGREP" | $Xsed -e "$delay_single_quote_subst"`'
-FGREP='`$ECHO "X$FGREP" | $Xsed -e "$delay_single_quote_subst"`'
-LD='`$ECHO "X$LD" | $Xsed -e "$delay_single_quote_subst"`'
-NM='`$ECHO "X$NM" | $Xsed -e "$delay_single_quote_subst"`'
-LN_S='`$ECHO "X$LN_S" | $Xsed -e "$delay_single_quote_subst"`'
-max_cmd_len='`$ECHO "X$max_cmd_len" | $Xsed -e "$delay_single_quote_subst"`'
-ac_objext='`$ECHO "X$ac_objext" | $Xsed -e "$delay_single_quote_subst"`'
-exeext='`$ECHO "X$exeext" | $Xsed -e "$delay_single_quote_subst"`'
-lt_unset='`$ECHO "X$lt_unset" | $Xsed -e "$delay_single_quote_subst"`'
-lt_SP2NL='`$ECHO "X$lt_SP2NL" | $Xsed -e "$delay_single_quote_subst"`'
-lt_NL2SP='`$ECHO "X$lt_NL2SP" | $Xsed -e "$delay_single_quote_subst"`'
-reload_flag='`$ECHO "X$reload_flag" | $Xsed -e "$delay_single_quote_subst"`'
-reload_cmds='`$ECHO "X$reload_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-OBJDUMP='`$ECHO "X$OBJDUMP" | $Xsed -e "$delay_single_quote_subst"`'
-deplibs_check_method='`$ECHO "X$deplibs_check_method" | $Xsed -e "$delay_single_quote_subst"`'
-file_magic_cmd='`$ECHO "X$file_magic_cmd" | $Xsed -e "$delay_single_quote_subst"`'
-AR='`$ECHO "X$AR" | $Xsed -e "$delay_single_quote_subst"`'
-AR_FLAGS='`$ECHO "X$AR_FLAGS" | $Xsed -e "$delay_single_quote_subst"`'
-STRIP='`$ECHO "X$STRIP" | $Xsed -e "$delay_single_quote_subst"`'
-RANLIB='`$ECHO "X$RANLIB" | $Xsed -e "$delay_single_quote_subst"`'
-old_postinstall_cmds='`$ECHO "X$old_postinstall_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-old_postuninstall_cmds='`$ECHO "X$old_postuninstall_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-old_archive_cmds='`$ECHO "X$old_archive_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-CC='`$ECHO "X$CC" | $Xsed -e "$delay_single_quote_subst"`'
-CFLAGS='`$ECHO "X$CFLAGS" | $Xsed -e "$delay_single_quote_subst"`'
-compiler='`$ECHO "X$compiler" | $Xsed -e "$delay_single_quote_subst"`'
-GCC='`$ECHO "X$GCC" | $Xsed -e "$delay_single_quote_subst"`'
-lt_cv_sys_global_symbol_pipe='`$ECHO "X$lt_cv_sys_global_symbol_pipe" | $Xsed -e "$delay_single_quote_subst"`'
-lt_cv_sys_global_symbol_to_cdecl='`$ECHO "X$lt_cv_sys_global_symbol_to_cdecl" | $Xsed -e "$delay_single_quote_subst"`'
-lt_cv_sys_global_symbol_to_c_name_address='`$ECHO "X$lt_cv_sys_global_symbol_to_c_name_address" | $Xsed -e "$delay_single_quote_subst"`'
-lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='`$ECHO "X$lt_cv_sys_global_symbol_to_c_name_address_lib_prefix" | $Xsed -e "$delay_single_quote_subst"`'
-objdir='`$ECHO "X$objdir" | $Xsed -e "$delay_single_quote_subst"`'
-SHELL='`$ECHO "X$SHELL" | $Xsed -e "$delay_single_quote_subst"`'
-ECHO='`$ECHO "X$ECHO" | $Xsed -e "$delay_single_quote_subst"`'
-MAGIC_CMD='`$ECHO "X$MAGIC_CMD" | $Xsed -e "$delay_single_quote_subst"`'
-lt_prog_compiler_no_builtin_flag='`$ECHO "X$lt_prog_compiler_no_builtin_flag" | $Xsed -e "$delay_single_quote_subst"`'
-lt_prog_compiler_wl='`$ECHO "X$lt_prog_compiler_wl" | $Xsed -e "$delay_single_quote_subst"`'
-lt_prog_compiler_pic='`$ECHO "X$lt_prog_compiler_pic" | $Xsed -e "$delay_single_quote_subst"`'
-lt_prog_compiler_static='`$ECHO "X$lt_prog_compiler_static" | $Xsed -e "$delay_single_quote_subst"`'
-lt_cv_prog_compiler_c_o='`$ECHO "X$lt_cv_prog_compiler_c_o" | $Xsed -e "$delay_single_quote_subst"`'
-need_locks='`$ECHO "X$need_locks" | $Xsed -e "$delay_single_quote_subst"`'
-DSYMUTIL='`$ECHO "X$DSYMUTIL" | $Xsed -e "$delay_single_quote_subst"`'
-NMEDIT='`$ECHO "X$NMEDIT" | $Xsed -e "$delay_single_quote_subst"`'
-LIPO='`$ECHO "X$LIPO" | $Xsed -e "$delay_single_quote_subst"`'
-OTOOL='`$ECHO "X$OTOOL" | $Xsed -e "$delay_single_quote_subst"`'
-OTOOL64='`$ECHO "X$OTOOL64" | $Xsed -e "$delay_single_quote_subst"`'
-libext='`$ECHO "X$libext" | $Xsed -e "$delay_single_quote_subst"`'
-shrext_cmds='`$ECHO "X$shrext_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-extract_expsyms_cmds='`$ECHO "X$extract_expsyms_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-archive_cmds_need_lc='`$ECHO "X$archive_cmds_need_lc" | $Xsed -e "$delay_single_quote_subst"`'
-enable_shared_with_static_runtimes='`$ECHO "X$enable_shared_with_static_runtimes" | $Xsed -e "$delay_single_quote_subst"`'
-export_dynamic_flag_spec='`$ECHO "X$export_dynamic_flag_spec" | $Xsed -e "$delay_single_quote_subst"`'
-whole_archive_flag_spec='`$ECHO "X$whole_archive_flag_spec" | $Xsed -e "$delay_single_quote_subst"`'
-compiler_needs_object='`$ECHO "X$compiler_needs_object" | $Xsed -e "$delay_single_quote_subst"`'
-old_archive_from_new_cmds='`$ECHO "X$old_archive_from_new_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-old_archive_from_expsyms_cmds='`$ECHO "X$old_archive_from_expsyms_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-archive_cmds='`$ECHO "X$archive_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-archive_expsym_cmds='`$ECHO "X$archive_expsym_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-module_cmds='`$ECHO "X$module_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-module_expsym_cmds='`$ECHO "X$module_expsym_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-with_gnu_ld='`$ECHO "X$with_gnu_ld" | $Xsed -e "$delay_single_quote_subst"`'
-allow_undefined_flag='`$ECHO "X$allow_undefined_flag" | $Xsed -e "$delay_single_quote_subst"`'
-no_undefined_flag='`$ECHO "X$no_undefined_flag" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_libdir_flag_spec='`$ECHO "X$hardcode_libdir_flag_spec" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_libdir_flag_spec_ld='`$ECHO "X$hardcode_libdir_flag_spec_ld" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_libdir_separator='`$ECHO "X$hardcode_libdir_separator" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_direct='`$ECHO "X$hardcode_direct" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_direct_absolute='`$ECHO "X$hardcode_direct_absolute" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_minus_L='`$ECHO "X$hardcode_minus_L" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_shlibpath_var='`$ECHO "X$hardcode_shlibpath_var" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_automatic='`$ECHO "X$hardcode_automatic" | $Xsed -e "$delay_single_quote_subst"`'
-inherit_rpath='`$ECHO "X$inherit_rpath" | $Xsed -e "$delay_single_quote_subst"`'
-link_all_deplibs='`$ECHO "X$link_all_deplibs" | $Xsed -e "$delay_single_quote_subst"`'
-fix_srcfile_path='`$ECHO "X$fix_srcfile_path" | $Xsed -e "$delay_single_quote_subst"`'
-always_export_symbols='`$ECHO "X$always_export_symbols" | $Xsed -e "$delay_single_quote_subst"`'
-export_symbols_cmds='`$ECHO "X$export_symbols_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-exclude_expsyms='`$ECHO "X$exclude_expsyms" | $Xsed -e "$delay_single_quote_subst"`'
-include_expsyms='`$ECHO "X$include_expsyms" | $Xsed -e "$delay_single_quote_subst"`'
-prelink_cmds='`$ECHO "X$prelink_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-file_list_spec='`$ECHO "X$file_list_spec" | $Xsed -e "$delay_single_quote_subst"`'
-variables_saved_for_relink='`$ECHO "X$variables_saved_for_relink" | $Xsed -e "$delay_single_quote_subst"`'
-need_lib_prefix='`$ECHO "X$need_lib_prefix" | $Xsed -e "$delay_single_quote_subst"`'
-need_version='`$ECHO "X$need_version" | $Xsed -e "$delay_single_quote_subst"`'
-version_type='`$ECHO "X$version_type" | $Xsed -e "$delay_single_quote_subst"`'
-runpath_var='`$ECHO "X$runpath_var" | $Xsed -e "$delay_single_quote_subst"`'
-shlibpath_var='`$ECHO "X$shlibpath_var" | $Xsed -e "$delay_single_quote_subst"`'
-shlibpath_overrides_runpath='`$ECHO "X$shlibpath_overrides_runpath" | $Xsed -e "$delay_single_quote_subst"`'
-libname_spec='`$ECHO "X$libname_spec" | $Xsed -e "$delay_single_quote_subst"`'
-library_names_spec='`$ECHO "X$library_names_spec" | $Xsed -e "$delay_single_quote_subst"`'
-soname_spec='`$ECHO "X$soname_spec" | $Xsed -e "$delay_single_quote_subst"`'
-postinstall_cmds='`$ECHO "X$postinstall_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-postuninstall_cmds='`$ECHO "X$postuninstall_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-finish_cmds='`$ECHO "X$finish_cmds" | $Xsed -e "$delay_single_quote_subst"`'
-finish_eval='`$ECHO "X$finish_eval" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_into_libs='`$ECHO "X$hardcode_into_libs" | $Xsed -e "$delay_single_quote_subst"`'
-sys_lib_search_path_spec='`$ECHO "X$sys_lib_search_path_spec" | $Xsed -e "$delay_single_quote_subst"`'
-sys_lib_dlsearch_path_spec='`$ECHO "X$sys_lib_dlsearch_path_spec" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_action='`$ECHO "X$hardcode_action" | $Xsed -e "$delay_single_quote_subst"`'
-enable_dlopen='`$ECHO "X$enable_dlopen" | $Xsed -e "$delay_single_quote_subst"`'
-enable_dlopen_self='`$ECHO "X$enable_dlopen_self" | $Xsed -e "$delay_single_quote_subst"`'
-enable_dlopen_self_static='`$ECHO "X$enable_dlopen_self_static" | $Xsed -e "$delay_single_quote_subst"`'
-old_striplib='`$ECHO "X$old_striplib" | $Xsed -e "$delay_single_quote_subst"`'
-striplib='`$ECHO "X$striplib" | $Xsed -e "$delay_single_quote_subst"`'
-compiler_lib_search_dirs='`$ECHO "X$compiler_lib_search_dirs" | $Xsed -e "$delay_single_quote_subst"`'
-predep_objects='`$ECHO "X$predep_objects" | $Xsed -e "$delay_single_quote_subst"`'
-postdep_objects='`$ECHO "X$postdep_objects" | $Xsed -e "$delay_single_quote_subst"`'
-predeps='`$ECHO "X$predeps" | $Xsed -e "$delay_single_quote_subst"`'
-postdeps='`$ECHO "X$postdeps" | $Xsed -e "$delay_single_quote_subst"`'
-compiler_lib_search_path='`$ECHO "X$compiler_lib_search_path" | $Xsed -e "$delay_single_quote_subst"`'
-LD_CXX='`$ECHO "X$LD_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-old_archive_cmds_CXX='`$ECHO "X$old_archive_cmds_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-compiler_CXX='`$ECHO "X$compiler_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-GCC_CXX='`$ECHO "X$GCC_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-lt_prog_compiler_no_builtin_flag_CXX='`$ECHO "X$lt_prog_compiler_no_builtin_flag_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-lt_prog_compiler_wl_CXX='`$ECHO "X$lt_prog_compiler_wl_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-lt_prog_compiler_pic_CXX='`$ECHO "X$lt_prog_compiler_pic_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-lt_prog_compiler_static_CXX='`$ECHO "X$lt_prog_compiler_static_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-lt_cv_prog_compiler_c_o_CXX='`$ECHO "X$lt_cv_prog_compiler_c_o_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-archive_cmds_need_lc_CXX='`$ECHO "X$archive_cmds_need_lc_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-enable_shared_with_static_runtimes_CXX='`$ECHO "X$enable_shared_with_static_runtimes_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-export_dynamic_flag_spec_CXX='`$ECHO "X$export_dynamic_flag_spec_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-whole_archive_flag_spec_CXX='`$ECHO "X$whole_archive_flag_spec_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-compiler_needs_object_CXX='`$ECHO "X$compiler_needs_object_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-old_archive_from_new_cmds_CXX='`$ECHO "X$old_archive_from_new_cmds_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-old_archive_from_expsyms_cmds_CXX='`$ECHO "X$old_archive_from_expsyms_cmds_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-archive_cmds_CXX='`$ECHO "X$archive_cmds_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-archive_expsym_cmds_CXX='`$ECHO "X$archive_expsym_cmds_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-module_cmds_CXX='`$ECHO "X$module_cmds_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-module_expsym_cmds_CXX='`$ECHO "X$module_expsym_cmds_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-with_gnu_ld_CXX='`$ECHO "X$with_gnu_ld_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-allow_undefined_flag_CXX='`$ECHO "X$allow_undefined_flag_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-no_undefined_flag_CXX='`$ECHO "X$no_undefined_flag_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_libdir_flag_spec_CXX='`$ECHO "X$hardcode_libdir_flag_spec_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_libdir_flag_spec_ld_CXX='`$ECHO "X$hardcode_libdir_flag_spec_ld_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_libdir_separator_CXX='`$ECHO "X$hardcode_libdir_separator_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_direct_CXX='`$ECHO "X$hardcode_direct_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_direct_absolute_CXX='`$ECHO "X$hardcode_direct_absolute_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_minus_L_CXX='`$ECHO "X$hardcode_minus_L_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_shlibpath_var_CXX='`$ECHO "X$hardcode_shlibpath_var_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_automatic_CXX='`$ECHO "X$hardcode_automatic_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-inherit_rpath_CXX='`$ECHO "X$inherit_rpath_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-link_all_deplibs_CXX='`$ECHO "X$link_all_deplibs_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-fix_srcfile_path_CXX='`$ECHO "X$fix_srcfile_path_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-always_export_symbols_CXX='`$ECHO "X$always_export_symbols_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-export_symbols_cmds_CXX='`$ECHO "X$export_symbols_cmds_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-exclude_expsyms_CXX='`$ECHO "X$exclude_expsyms_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-include_expsyms_CXX='`$ECHO "X$include_expsyms_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-prelink_cmds_CXX='`$ECHO "X$prelink_cmds_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-file_list_spec_CXX='`$ECHO "X$file_list_spec_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-hardcode_action_CXX='`$ECHO "X$hardcode_action_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-compiler_lib_search_dirs_CXX='`$ECHO "X$compiler_lib_search_dirs_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-predep_objects_CXX='`$ECHO "X$predep_objects_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-postdep_objects_CXX='`$ECHO "X$postdep_objects_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-predeps_CXX='`$ECHO "X$predeps_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-postdeps_CXX='`$ECHO "X$postdeps_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-compiler_lib_search_path_CXX='`$ECHO "X$compiler_lib_search_path_CXX" | $Xsed -e "$delay_single_quote_subst"`'
-
-LTCC='$LTCC'
-LTCFLAGS='$LTCFLAGS'
-compiler='$compiler_DEFAULT'
-
-# Quote evaled strings.
-for var in SED \
-GREP \
-EGREP \
-FGREP \
-LD \
-NM \
-LN_S \
-lt_SP2NL \
-lt_NL2SP \
-reload_flag \
-OBJDUMP \
-deplibs_check_method \
-file_magic_cmd \
-AR \
-AR_FLAGS \
-STRIP \
-RANLIB \
-CC \
-CFLAGS \
-compiler \
-lt_cv_sys_global_symbol_pipe \
-lt_cv_sys_global_symbol_to_cdecl \
-lt_cv_sys_global_symbol_to_c_name_address \
-lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \
-SHELL \
-ECHO \
-lt_prog_compiler_no_builtin_flag \
-lt_prog_compiler_wl \
-lt_prog_compiler_pic \
-lt_prog_compiler_static \
-lt_cv_prog_compiler_c_o \
-need_locks \
-DSYMUTIL \
-NMEDIT \
-LIPO \
-OTOOL \
-OTOOL64 \
-shrext_cmds \
-export_dynamic_flag_spec \
-whole_archive_flag_spec \
-compiler_needs_object \
-with_gnu_ld \
-allow_undefined_flag \
-no_undefined_flag \
-hardcode_libdir_flag_spec \
-hardcode_libdir_flag_spec_ld \
-hardcode_libdir_separator \
-fix_srcfile_path \
-exclude_expsyms \
-include_expsyms \
-file_list_spec \
-variables_saved_for_relink \
-libname_spec \
-library_names_spec \
-soname_spec \
-finish_eval \
-old_striplib \
-striplib \
-compiler_lib_search_dirs \
-predep_objects \
-postdep_objects \
-predeps \
-postdeps \
-compiler_lib_search_path \
-LD_CXX \
-compiler_CXX \
-lt_prog_compiler_no_builtin_flag_CXX \
-lt_prog_compiler_wl_CXX \
-lt_prog_compiler_pic_CXX \
-lt_prog_compiler_static_CXX \
-lt_cv_prog_compiler_c_o_CXX \
-export_dynamic_flag_spec_CXX \
-whole_archive_flag_spec_CXX \
-compiler_needs_object_CXX \
-with_gnu_ld_CXX \
-allow_undefined_flag_CXX \
-no_undefined_flag_CXX \
-hardcode_libdir_flag_spec_CXX \
-hardcode_libdir_flag_spec_ld_CXX \
-hardcode_libdir_separator_CXX \
-fix_srcfile_path_CXX \
-exclude_expsyms_CXX \
-include_expsyms_CXX \
-file_list_spec_CXX \
-compiler_lib_search_dirs_CXX \
-predep_objects_CXX \
-postdep_objects_CXX \
-predeps_CXX \
-postdeps_CXX \
-compiler_lib_search_path_CXX; do
- case \`eval \\\\\$ECHO "X\\\\\$\$var"\` in
- *[\\\\\\\`\\"\\\$]*)
- eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"X\\\$\$var\\" | \\\$Xsed -e \\"\\\$sed_quote_subst\\"\\\`\\\\\\""
- ;;
- *)
- eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
- ;;
- esac
-done
-
-# Double-quote double-evaled strings.
-for var in reload_cmds \
-old_postinstall_cmds \
-old_postuninstall_cmds \
-old_archive_cmds \
-extract_expsyms_cmds \
-old_archive_from_new_cmds \
-old_archive_from_expsyms_cmds \
-archive_cmds \
-archive_expsym_cmds \
-module_cmds \
-module_expsym_cmds \
-export_symbols_cmds \
-prelink_cmds \
-postinstall_cmds \
-postuninstall_cmds \
-finish_cmds \
-sys_lib_search_path_spec \
-sys_lib_dlsearch_path_spec \
-old_archive_cmds_CXX \
-old_archive_from_new_cmds_CXX \
-old_archive_from_expsyms_cmds_CXX \
-archive_cmds_CXX \
-archive_expsym_cmds_CXX \
-module_cmds_CXX \
-module_expsym_cmds_CXX \
-export_symbols_cmds_CXX \
-prelink_cmds_CXX; do
- case \`eval \\\\\$ECHO "X\\\\\$\$var"\` in
- *[\\\\\\\`\\"\\\$]*)
- eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"X\\\$\$var\\" | \\\$Xsed -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\""
- ;;
- *)
- eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
- ;;
- esac
-done
-
-# Fix-up fallback echo if it was mangled by the above quoting rules.
-case \$lt_ECHO in
-*'\\\$0 --fallback-echo"') lt_ECHO=\`\$ECHO "X\$lt_ECHO" | \$Xsed -e 's/\\\\\\\\\\\\\\\$0 --fallback-echo"\$/\$0 --fallback-echo"/'\`
- ;;
-esac
-
-ac_aux_dir='$ac_aux_dir'
-xsi_shell='$xsi_shell'
-lt_shell_append='$lt_shell_append'
-
-# See if we are running on zsh, and set the options which allow our
-# commands through without removal of \ escapes INIT.
-if test -n "\${ZSH_VERSION+set}" ; then
- setopt NO_GLOB_SUBST
-fi
-
-
- PACKAGE='$PACKAGE'
- VERSION='$VERSION'
- TIMESTAMP='$TIMESTAMP'
- RM='$RM'
- ofile='$ofile'
-
-
-
-
-
-
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-
-# Handling of arguments.
-for ac_config_target in $ac_config_targets
-do
- case $ac_config_target in
- "geo_config.h") CONFIG_HEADERS="$CONFIG_HEADERS geo_config.h" ;;
- "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;;
- "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;;
- "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;;
- "libxtiff/Makefile") CONFIG_FILES="$CONFIG_FILES libxtiff/Makefile" ;;
- "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;;
- "man/Makefile") CONFIG_FILES="$CONFIG_FILES man/Makefile" ;;
- "man/man1/Makefile") CONFIG_FILES="$CONFIG_FILES man/man1/Makefile" ;;
- "cmake/Makefile") CONFIG_FILES="$CONFIG_FILES cmake/Makefile" ;;
-
- *) as_fn_error "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
- esac
-done
-
-
-# If the user did not use the arguments to specify the items to instantiate,
-# then the envvar interface is used. Set only those that are not.
-# We use the long form for the default assignment because of an extremely
-# bizarre bug on SunOS 4.1.3.
-if $ac_need_defaults; then
- test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files
- test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers
- test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands
-fi
-
-# Have a temporary directory for convenience. Make it in the build tree
-# simply because there is no reason against having it here, and in addition,
-# creating and moving files from /tmp can sometimes cause problems.
-# Hook for its removal unless debugging.
-# Note that there is a small window in which the directory will not be cleaned:
-# after its creation but before its name has been assigned to `$tmp'.
-$debug ||
-{
- tmp=
- trap 'exit_status=$?
- { test -z "$tmp" || test ! -d "$tmp" || rm -fr "$tmp"; } && exit $exit_status
-' 0
- trap 'as_fn_exit 1' 1 2 13 15
-}
-# Create a (secure) tmp directory for tmp files.
-
-{
- tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` &&
- test -n "$tmp" && test -d "$tmp"
-} ||
-{
- tmp=./conf$$-$RANDOM
- (umask 077 && mkdir "$tmp")
-} || as_fn_error "cannot create a temporary directory in ." "$LINENO" 5
-
-# Set up the scripts for CONFIG_FILES section.
-# No need to generate them if there are no CONFIG_FILES.
-# This happens for instance with `./config.status config.h'.
-if test -n "$CONFIG_FILES"; then
-
-
-ac_cr=`echo X | tr X '\015'`
-# On cygwin, bash can eat \r inside `` if the user requested igncr.
-# But we know of no other shell where ac_cr would be empty at this
-# point, so we can use a bashism as a fallback.
-if test "x$ac_cr" = x; then
- eval ac_cr=\$\'\\r\'
-fi
-ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' </dev/null 2>/dev/null`
-if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then
- ac_cs_awk_cr='\r'
-else
- ac_cs_awk_cr=$ac_cr
-fi
-
-echo 'BEGIN {' >"$tmp/subs1.awk" &&
-_ACEOF
-
-
-{
- echo "cat >conf$$subs.awk <<_ACEOF" &&
- echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' &&
- echo "_ACEOF"
-} >conf$$subs.sh ||
- as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5
-ac_delim_num=`echo "$ac_subst_vars" | grep -c '$'`
-ac_delim='%!_!# '
-for ac_last_try in false false false false false :; do
- . ./conf$$subs.sh ||
- as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5
-
- ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X`
- if test $ac_delim_n = $ac_delim_num; then
- break
- elif $ac_last_try; then
- as_fn_error "could not make $CONFIG_STATUS" "$LINENO" 5
- else
- ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
- fi
-done
-rm -f conf$$subs.sh
-
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-cat >>"\$tmp/subs1.awk" <<\\_ACAWK &&
-_ACEOF
-sed -n '
-h
-s/^/S["/; s/!.*/"]=/
-p
-g
-s/^[^!]*!//
-:repl
-t repl
-s/'"$ac_delim"'$//
-t delim
-:nl
-h
-s/\(.\{148\}\)..*/\1/
-t more1
-s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/
-p
-n
-b repl
-:more1
-s/["\\]/\\&/g; s/^/"/; s/$/"\\/
-p
-g
-s/.\{148\}//
-t nl
-:delim
-h
-s/\(.\{148\}\)..*/\1/
-t more2
-s/["\\]/\\&/g; s/^/"/; s/$/"/
-p
-b
-:more2
-s/["\\]/\\&/g; s/^/"/; s/$/"\\/
-p
-g
-s/.\{148\}//
-t delim
-' <conf$$subs.awk | sed '
-/^[^""]/{
- N
- s/\n//
-}
-' >>$CONFIG_STATUS || ac_write_fail=1
-rm -f conf$$subs.awk
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-_ACAWK
-cat >>"\$tmp/subs1.awk" <<_ACAWK &&
- for (key in S) S_is_set[key] = 1
- FS = ""
-
-}
-{
- line = $ 0
- nfields = split(line, field, "@")
- substed = 0
- len = length(field[1])
- for (i = 2; i < nfields; i++) {
- key = field[i]
- keylen = length(key)
- if (S_is_set[key]) {
- value = S[key]
- line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3)
- len += length(value) + length(field[++i])
- substed = 1
- } else
- len += 1 + keylen
- }
-
- print line
-}
-
-_ACAWK
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then
- sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g"
-else
- cat
-fi < "$tmp/subs1.awk" > "$tmp/subs.awk" \
- || as_fn_error "could not setup config files machinery" "$LINENO" 5
-_ACEOF
-
-# VPATH may cause trouble with some makes, so we remove $(srcdir),
-# ${srcdir} and @srcdir@ from VPATH if srcdir is ".", strip leading and
-# trailing colons and then remove the whole line if VPATH becomes empty
-# (actually we leave an empty line to preserve line numbers).
-if test "x$srcdir" = x.; then
- ac_vpsub='/^[ ]*VPATH[ ]*=/{
-s/:*\$(srcdir):*/:/
-s/:*\${srcdir}:*/:/
-s/:*@srcdir@:*/:/
-s/^\([^=]*=[ ]*\):*/\1/
-s/:*$//
-s/^[^=]*=[ ]*$//
-}'
-fi
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-fi # test -n "$CONFIG_FILES"
-
-# Set up the scripts for CONFIG_HEADERS section.
-# No need to generate them if there are no CONFIG_HEADERS.
-# This happens for instance with `./config.status Makefile'.
-if test -n "$CONFIG_HEADERS"; then
-cat >"$tmp/defines.awk" <<\_ACAWK ||
-BEGIN {
-_ACEOF
-
-# Transform confdefs.h into an awk script `defines.awk', embedded as
-# here-document in config.status, that substitutes the proper values into
-# config.h.in to produce config.h.
-
-# Create a delimiter string that does not exist in confdefs.h, to ease
-# handling of long lines.
-ac_delim='%!_!# '
-for ac_last_try in false false :; do
- ac_t=`sed -n "/$ac_delim/p" confdefs.h`
- if test -z "$ac_t"; then
- break
- elif $ac_last_try; then
- as_fn_error "could not make $CONFIG_HEADERS" "$LINENO" 5
- else
- ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
- fi
-done
-
-# For the awk script, D is an array of macro values keyed by name,
-# likewise P contains macro parameters if any. Preserve backslash
-# newline sequences.
-
-ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]*
-sed -n '
-s/.\{148\}/&'"$ac_delim"'/g
-t rset
-:rset
-s/^[ ]*#[ ]*define[ ][ ]*/ /
-t def
-d
-:def
-s/\\$//
-t bsnl
-s/["\\]/\\&/g
-s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\
-D["\1"]=" \3"/p
-s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p
-d
-:bsnl
-s/["\\]/\\&/g
-s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\
-D["\1"]=" \3\\\\\\n"\\/p
-t cont
-s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p
-t cont
-d
-:cont
-n
-s/.\{148\}/&'"$ac_delim"'/g
-t clear
-:clear
-s/\\$//
-t bsnlc
-s/["\\]/\\&/g; s/^/"/; s/$/"/p
-d
-:bsnlc
-s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p
-b cont
-' <confdefs.h | sed '
-s/'"$ac_delim"'/"\\\
-"/g' >>$CONFIG_STATUS || ac_write_fail=1
-
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
- for (key in D) D_is_set[key] = 1
- FS = ""
-}
-/^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ {
- line = \$ 0
- split(line, arg, " ")
- if (arg[1] == "#") {
- defundef = arg[2]
- mac1 = arg[3]
- } else {
- defundef = substr(arg[1], 2)
- mac1 = arg[2]
- }
- split(mac1, mac2, "(") #)
- macro = mac2[1]
- prefix = substr(line, 1, index(line, defundef) - 1)
- if (D_is_set[macro]) {
- # Preserve the white space surrounding the "#".
- print prefix "define", macro P[macro] D[macro]
- next
- } else {
- # Replace #undef with comments. This is necessary, for example,
- # in the case of _POSIX_SOURCE, which is predefined and required
- # on some systems where configure will not decide to define it.
- if (defundef == "undef") {
- print "/*", prefix defundef, macro, "*/"
- next
- }
- }
-}
-{ print }
-_ACAWK
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
- as_fn_error "could not setup config headers machinery" "$LINENO" 5
-fi # test -n "$CONFIG_HEADERS"
-
-
-eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS"
-shift
-for ac_tag
-do
- case $ac_tag in
- :[FHLC]) ac_mode=$ac_tag; continue;;
- esac
- case $ac_mode$ac_tag in
- :[FHL]*:*);;
- :L* | :C*:*) as_fn_error "invalid tag \`$ac_tag'" "$LINENO" 5;;
- :[FH]-) ac_tag=-:-;;
- :[FH]*) ac_tag=$ac_tag:$ac_tag.in;;
- esac
- ac_save_IFS=$IFS
- IFS=:
- set x $ac_tag
- IFS=$ac_save_IFS
- shift
- ac_file=$1
- shift
-
- case $ac_mode in
- :L) ac_source=$1;;
- :[FH])
- ac_file_inputs=
- for ac_f
- do
- case $ac_f in
- -) ac_f="$tmp/stdin";;
- *) # Look for the file first in the build tree, then in the source tree
- # (if the path is not absolute). The absolute path cannot be DOS-style,
- # because $ac_f cannot contain `:'.
- test -f "$ac_f" ||
- case $ac_f in
- [\\/$]*) false;;
- *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";;
- esac ||
- as_fn_error "cannot find input file: \`$ac_f'" "$LINENO" 5;;
- esac
- case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac
- as_fn_append ac_file_inputs " '$ac_f'"
- done
-
- # Let's still pretend it is `configure' which instantiates (i.e., don't
- # use $as_me), people would be surprised to read:
- # /* config.h. Generated by config.status. */
- configure_input='Generated from '`
- $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g'
- `' by configure.'
- if test x"$ac_file" != x-; then
- configure_input="$ac_file. $configure_input"
- { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5
-$as_echo "$as_me: creating $ac_file" >&6;}
- fi
- # Neutralize special characters interpreted by sed in replacement strings.
- case $configure_input in #(
- *\&* | *\|* | *\\* )
- ac_sed_conf_input=`$as_echo "$configure_input" |
- sed 's/[\\\\&|]/\\\\&/g'`;; #(
- *) ac_sed_conf_input=$configure_input;;
- esac
-
- case $ac_tag in
- *:-:* | *:-) cat >"$tmp/stdin" \
- || as_fn_error "could not create $ac_file" "$LINENO" 5 ;;
- esac
- ;;
- esac
-
- ac_dir=`$as_dirname -- "$ac_file" ||
-$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$ac_file" : 'X\(//\)[^/]' \| \
- X"$ac_file" : 'X\(//\)$' \| \
- X"$ac_file" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$ac_file" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- as_dir="$ac_dir"; as_fn_mkdir_p
- ac_builddir=.
-
-case "$ac_dir" in
-.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
-*)
- ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
- # A ".." for each directory in $ac_dir_suffix.
- ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
- case $ac_top_builddir_sub in
- "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
- *) ac_top_build_prefix=$ac_top_builddir_sub/ ;;
- esac ;;
-esac
-ac_abs_top_builddir=$ac_pwd
-ac_abs_builddir=$ac_pwd$ac_dir_suffix
-# for backward compatibility:
-ac_top_builddir=$ac_top_build_prefix
-
-case $srcdir in
- .) # We are building in place.
- ac_srcdir=.
- ac_top_srcdir=$ac_top_builddir_sub
- ac_abs_top_srcdir=$ac_pwd ;;
- [\\/]* | ?:[\\/]* ) # Absolute name.
- ac_srcdir=$srcdir$ac_dir_suffix;
- ac_top_srcdir=$srcdir
- ac_abs_top_srcdir=$srcdir ;;
- *) # Relative name.
- ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
- ac_top_srcdir=$ac_top_build_prefix$srcdir
- ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
-esac
-ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
-
-
- case $ac_mode in
- :F)
- #
- # CONFIG_FILE
- #
-
- case $INSTALL in
- [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;;
- *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;;
- esac
- ac_MKDIR_P=$MKDIR_P
- case $MKDIR_P in
- [\\/$]* | ?:[\\/]* ) ;;
- */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;;
- esac
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-# If the template does not know about datarootdir, expand it.
-# FIXME: This hack should be removed a few years after 2.60.
-ac_datarootdir_hack=; ac_datarootdir_seen=
-ac_sed_dataroot='
-/datarootdir/ {
- p
- q
-}
-/@datadir@/p
-/@docdir@/p
-/@infodir@/p
-/@localedir@/p
-/@mandir@/p'
-case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in
-*datarootdir*) ac_datarootdir_seen=yes;;
-*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*)
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5
-$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;}
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
- ac_datarootdir_hack='
- s&@datadir@&$datadir&g
- s&@docdir@&$docdir&g
- s&@infodir@&$infodir&g
- s&@localedir@&$localedir&g
- s&@mandir@&$mandir&g
- s&\\\${datarootdir}&$datarootdir&g' ;;
-esac
-_ACEOF
-
-# Neutralize VPATH when `$srcdir' = `.'.
-# Shell code in configure.ac might set extrasub.
-# FIXME: do we really want to maintain this feature?
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-ac_sed_extra="$ac_vpsub
-$extrasub
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-:t
-/@[a-zA-Z_][a-zA-Z_0-9]*@/!b
-s|@configure_input@|$ac_sed_conf_input|;t t
-s&@top_builddir@&$ac_top_builddir_sub&;t t
-s&@top_build_prefix@&$ac_top_build_prefix&;t t
-s&@srcdir@&$ac_srcdir&;t t
-s&@abs_srcdir@&$ac_abs_srcdir&;t t
-s&@top_srcdir@&$ac_top_srcdir&;t t
-s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t
-s&@builddir@&$ac_builddir&;t t
-s&@abs_builddir@&$ac_abs_builddir&;t t
-s&@abs_top_builddir@&$ac_abs_top_builddir&;t t
-s&@INSTALL@&$ac_INSTALL&;t t
-s&@MKDIR_P@&$ac_MKDIR_P&;t t
-$ac_datarootdir_hack
-"
-eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$tmp/subs.awk" >$tmp/out \
- || as_fn_error "could not create $ac_file" "$LINENO" 5
-
-test -z "$ac_datarootdir_hack$ac_datarootdir_seen" &&
- { ac_out=`sed -n '/\${datarootdir}/p' "$tmp/out"`; test -n "$ac_out"; } &&
- { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' "$tmp/out"`; test -z "$ac_out"; } &&
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-which seems to be undefined. Please make sure it is defined." >&5
-$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-which seems to be undefined. Please make sure it is defined." >&2;}
-
- rm -f "$tmp/stdin"
- case $ac_file in
- -) cat "$tmp/out" && rm -f "$tmp/out";;
- *) rm -f "$ac_file" && mv "$tmp/out" "$ac_file";;
- esac \
- || as_fn_error "could not create $ac_file" "$LINENO" 5
- ;;
- :H)
- #
- # CONFIG_HEADER
- #
- if test x"$ac_file" != x-; then
- {
- $as_echo "/* $configure_input */" \
- && eval '$AWK -f "$tmp/defines.awk"' "$ac_file_inputs"
- } >"$tmp/config.h" \
- || as_fn_error "could not create $ac_file" "$LINENO" 5
- if diff "$ac_file" "$tmp/config.h" >/dev/null 2>&1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5
-$as_echo "$as_me: $ac_file is unchanged" >&6;}
- else
- rm -f "$ac_file"
- mv "$tmp/config.h" "$ac_file" \
- || as_fn_error "could not create $ac_file" "$LINENO" 5
- fi
- else
- $as_echo "/* $configure_input */" \
- && eval '$AWK -f "$tmp/defines.awk"' "$ac_file_inputs" \
- || as_fn_error "could not create -" "$LINENO" 5
- fi
-# Compute "$ac_file"'s index in $config_headers.
-_am_arg="$ac_file"
-_am_stamp_count=1
-for _am_header in $config_headers :; do
- case $_am_header in
- $_am_arg | $_am_arg:* )
- break ;;
- * )
- _am_stamp_count=`expr $_am_stamp_count + 1` ;;
- esac
-done
-echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" ||
-$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$_am_arg" : 'X\(//\)[^/]' \| \
- X"$_am_arg" : 'X\(//\)$' \| \
- X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$_am_arg" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`/stamp-h$_am_stamp_count
- ;;
-
- :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5
-$as_echo "$as_me: executing $ac_file commands" >&6;}
- ;;
- esac
-
-
- case $ac_file$ac_mode in
- "depfiles":C) test x"$AMDEP_TRUE" != x"" || {
- # Autoconf 2.62 quotes --file arguments for eval, but not when files
- # are listed without --file. Let's play safe and only enable the eval
- # if we detect the quoting.
- case $CONFIG_FILES in
- *\'*) eval set x "$CONFIG_FILES" ;;
- *) set x $CONFIG_FILES ;;
- esac
- shift
- for mf
- do
- # Strip MF so we end up with the name of the file.
- mf=`echo "$mf" | sed -e 's/:.*$//'`
- # Check whether this is an Automake generated Makefile or not.
- # We used to match only the files named `Makefile.in', but
- # some people rename them; so instead we look at the file content.
- # Grep'ing the first line is not enough: some people post-process
- # each Makefile.in and add a new line on top of each file to say so.
- # Grep'ing the whole file is not good either: AIX grep has a line
- # limit of 2048, but all sed's we know have understand at least 4000.
- if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then
- dirpart=`$as_dirname -- "$mf" ||
-$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$mf" : 'X\(//\)[^/]' \| \
- X"$mf" : 'X\(//\)$' \| \
- X"$mf" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$mf" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- else
- continue
- fi
- # Extract the definition of DEPDIR, am__include, and am__quote
- # from the Makefile without running `make'.
- DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"`
- test -z "$DEPDIR" && continue
- am__include=`sed -n 's/^am__include = //p' < "$mf"`
- test -z "am__include" && continue
- am__quote=`sed -n 's/^am__quote = //p' < "$mf"`
- # When using ansi2knr, U may be empty or an underscore; expand it
- U=`sed -n 's/^U = //p' < "$mf"`
- # Find all dependency output files, they are included files with
- # $(DEPDIR) in their names. We invoke sed twice because it is the
- # simplest approach to changing $(DEPDIR) to its actual value in the
- # expansion.
- for file in `sed -n "
- s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \
- sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do
- # Make sure the directory exists.
- test -f "$dirpart/$file" && continue
- fdir=`$as_dirname -- "$file" ||
-$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$file" : 'X\(//\)[^/]' \| \
- X"$file" : 'X\(//\)$' \| \
- X"$file" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$file" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- as_dir=$dirpart/$fdir; as_fn_mkdir_p
- # echo "creating $dirpart/$file"
- echo '# dummy' > "$dirpart/$file"
- done
- done
-}
- ;;
- "libtool":C)
-
- # See if we are running on zsh, and set the options which allow our
- # commands through without removal of \ escapes.
- if test -n "${ZSH_VERSION+set}" ; then
- setopt NO_GLOB_SUBST
- fi
-
- cfgfile="${ofile}T"
- trap "$RM \"$cfgfile\"; exit 1" 1 2 15
- $RM "$cfgfile"
-
- cat <<_LT_EOF >> "$cfgfile"
-#! $SHELL
-
-# `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services.
-# Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $VERSION
-# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
-# NOTE: Changes made to this file will be lost: look at ltmain.sh.
-#
-# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005,
-# 2006, 2007, 2008 Free Software Foundation, Inc.
-# Written by Gordon Matzigkeit, 1996
-#
-# This file is part of GNU Libtool.
-#
-# GNU Libtool is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License as
-# published by the Free Software Foundation; either version 2 of
-# the License, or (at your option) any later version.
-#
-# As a special exception to the GNU General Public License,
-# if you distribute this file as part of a program or library that
-# is built using GNU Libtool, you may include this file under the
-# same distribution terms that you use for the rest of that program.
-#
-# GNU Libtool is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with GNU Libtool; see the file COPYING. If not, a copy
-# can be downloaded from http://www.gnu.org/licenses/gpl.html, or
-# obtained by writing to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
-
-
-# The names of the tagged configurations supported by this script.
-available_tags="CXX "
-
-# ### BEGIN LIBTOOL CONFIG
-
-# Which release of libtool.m4 was used?
-macro_version=$macro_version
-macro_revision=$macro_revision
-
-# Whether or not to build shared libraries.
-build_libtool_libs=$enable_shared
-
-# Whether or not to build static libraries.
-build_old_libs=$enable_static
-
-# What type of objects to build.
-pic_mode=$pic_mode
-
-# Whether or not to optimize for fast installation.
-fast_install=$enable_fast_install
-
-# The host system.
-host_alias=$host_alias
-host=$host
-host_os=$host_os
-
-# The build system.
-build_alias=$build_alias
-build=$build
-build_os=$build_os
-
-# A sed program that does not truncate output.
-SED=$lt_SED
-
-# Sed that helps us avoid accidentally triggering echo(1) options like -n.
-Xsed="\$SED -e 1s/^X//"
-
-# A grep program that handles long lines.
-GREP=$lt_GREP
-
-# An ERE matcher.
-EGREP=$lt_EGREP
-
-# A literal string matcher.
-FGREP=$lt_FGREP
-
-# A BSD- or MS-compatible name lister.
-NM=$lt_NM
-
-# Whether we need soft or hard links.
-LN_S=$lt_LN_S
-
-# What is the maximum length of a command?
-max_cmd_len=$max_cmd_len
-
-# Object file suffix (normally "o").
-objext=$ac_objext
-
-# Executable file suffix (normally "").
-exeext=$exeext
-
-# whether the shell understands "unset".
-lt_unset=$lt_unset
-
-# turn spaces into newlines.
-SP2NL=$lt_lt_SP2NL
-
-# turn newlines into spaces.
-NL2SP=$lt_lt_NL2SP
-
-# How to create reloadable object files.
-reload_flag=$lt_reload_flag
-reload_cmds=$lt_reload_cmds
-
-# An object symbol dumper.
-OBJDUMP=$lt_OBJDUMP
-
-# Method to check whether dependent libraries are shared objects.
-deplibs_check_method=$lt_deplibs_check_method
-
-# Command to use when deplibs_check_method == "file_magic".
-file_magic_cmd=$lt_file_magic_cmd
-
-# The archiver.
-AR=$lt_AR
-AR_FLAGS=$lt_AR_FLAGS
-
-# A symbol stripping program.
-STRIP=$lt_STRIP
-
-# Commands used to install an old-style archive.
-RANLIB=$lt_RANLIB
-old_postinstall_cmds=$lt_old_postinstall_cmds
-old_postuninstall_cmds=$lt_old_postuninstall_cmds
-
-# A C compiler.
-LTCC=$lt_CC
-
-# LTCC compiler flags.
-LTCFLAGS=$lt_CFLAGS
-
-# Take the output of nm and produce a listing of raw symbols and C names.
-global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe
-
-# Transform the output of nm in a proper C declaration.
-global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl
-
-# Transform the output of nm in a C name address pair.
-global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address
-
-# Transform the output of nm in a C name address pair when lib prefix is needed.
-global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix
-
-# The name of the directory that contains temporary libtool files.
-objdir=$objdir
-
-# Shell to use when invoking shell scripts.
-SHELL=$lt_SHELL
-
-# An echo program that does not interpret backslashes.
-ECHO=$lt_ECHO
-
-# Used to examine libraries when file_magic_cmd begins with "file".
-MAGIC_CMD=$MAGIC_CMD
-
-# Must we lock files when doing compilation?
-need_locks=$lt_need_locks
-
-# Tool to manipulate archived DWARF debug symbol files on Mac OS X.
-DSYMUTIL=$lt_DSYMUTIL
-
-# Tool to change global to local symbols on Mac OS X.
-NMEDIT=$lt_NMEDIT
-
-# Tool to manipulate fat objects and archives on Mac OS X.
-LIPO=$lt_LIPO
-
-# ldd/readelf like tool for Mach-O binaries on Mac OS X.
-OTOOL=$lt_OTOOL
-
-# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4.
-OTOOL64=$lt_OTOOL64
-
-# Old archive suffix (normally "a").
-libext=$libext
-
-# Shared library suffix (normally ".so").
-shrext_cmds=$lt_shrext_cmds
-
-# The commands to extract the exported symbol list from a shared archive.
-extract_expsyms_cmds=$lt_extract_expsyms_cmds
-
-# Variables whose values should be saved in libtool wrapper scripts and
-# restored at link time.
-variables_saved_for_relink=$lt_variables_saved_for_relink
-
-# Do we need the "lib" prefix for modules?
-need_lib_prefix=$need_lib_prefix
-
-# Do we need a version for libraries?
-need_version=$need_version
-
-# Library versioning type.
-version_type=$version_type
-
-# Shared library runtime path variable.
-runpath_var=$runpath_var
-
-# Shared library path variable.
-shlibpath_var=$shlibpath_var
-
-# Is shlibpath searched before the hard-coded library search path?
-shlibpath_overrides_runpath=$shlibpath_overrides_runpath
-
-# Format of library name prefix.
-libname_spec=$lt_libname_spec
-
-# List of archive names. First name is the real one, the rest are links.
-# The last name is the one that the linker finds with -lNAME
-library_names_spec=$lt_library_names_spec
-
-# The coded name of the library, if different from the real name.
-soname_spec=$lt_soname_spec
-
-# Command to use after installation of a shared archive.
-postinstall_cmds=$lt_postinstall_cmds
-
-# Command to use after uninstallation of a shared archive.
-postuninstall_cmds=$lt_postuninstall_cmds
-
-# Commands used to finish a libtool library installation in a directory.
-finish_cmds=$lt_finish_cmds
-
-# As "finish_cmds", except a single script fragment to be evaled but
-# not shown.
-finish_eval=$lt_finish_eval
-
-# Whether we should hardcode library paths into libraries.
-hardcode_into_libs=$hardcode_into_libs
-
-# Compile-time system search path for libraries.
-sys_lib_search_path_spec=$lt_sys_lib_search_path_spec
-
-# Run-time system search path for libraries.
-sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec
-
-# Whether dlopen is supported.
-dlopen_support=$enable_dlopen
-
-# Whether dlopen of programs is supported.
-dlopen_self=$enable_dlopen_self
-
-# Whether dlopen of statically linked programs is supported.
-dlopen_self_static=$enable_dlopen_self_static
-
-# Commands to strip libraries.
-old_striplib=$lt_old_striplib
-striplib=$lt_striplib
-
-
-# The linker used to build libraries.
-LD=$lt_LD
-
-# Commands used to build an old-style archive.
-old_archive_cmds=$lt_old_archive_cmds
-
-# A language specific compiler.
-CC=$lt_compiler
-
-# Is the compiler the GNU compiler?
-with_gcc=$GCC
-
-# Compiler flag to turn off builtin functions.
-no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag
-
-# How to pass a linker flag through the compiler.
-wl=$lt_lt_prog_compiler_wl
-
-# Additional compiler flags for building library objects.
-pic_flag=$lt_lt_prog_compiler_pic
-
-# Compiler flag to prevent dynamic linking.
-link_static_flag=$lt_lt_prog_compiler_static
-
-# Does compiler simultaneously support -c and -o options?
-compiler_c_o=$lt_lt_cv_prog_compiler_c_o
-
-# Whether or not to add -lc for building shared libraries.
-build_libtool_need_lc=$archive_cmds_need_lc
-
-# Whether or not to disallow shared libs when runtime libs are static.
-allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes
-
-# Compiler flag to allow reflexive dlopens.
-export_dynamic_flag_spec=$lt_export_dynamic_flag_spec
-
-# Compiler flag to generate shared objects directly from archives.
-whole_archive_flag_spec=$lt_whole_archive_flag_spec
-
-# Whether the compiler copes with passing no objects directly.
-compiler_needs_object=$lt_compiler_needs_object
-
-# Create an old-style archive from a shared archive.
-old_archive_from_new_cmds=$lt_old_archive_from_new_cmds
-
-# Create a temporary old-style archive to link instead of a shared archive.
-old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds
-
-# Commands used to build a shared archive.
-archive_cmds=$lt_archive_cmds
-archive_expsym_cmds=$lt_archive_expsym_cmds
-
-# Commands used to build a loadable module if different from building
-# a shared archive.
-module_cmds=$lt_module_cmds
-module_expsym_cmds=$lt_module_expsym_cmds
-
-# Whether we are building with GNU ld or not.
-with_gnu_ld=$lt_with_gnu_ld
-
-# Flag that allows shared libraries with undefined symbols to be built.
-allow_undefined_flag=$lt_allow_undefined_flag
-
-# Flag that enforces no undefined symbols.
-no_undefined_flag=$lt_no_undefined_flag
-
-# Flag to hardcode \$libdir into a binary during linking.
-# This must work even if \$libdir does not exist
-hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec
-
-# If ld is used when linking, flag to hardcode \$libdir into a binary
-# during linking. This must work even if \$libdir does not exist.
-hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld
-
-# Whether we need a single "-rpath" flag with a separated argument.
-hardcode_libdir_separator=$lt_hardcode_libdir_separator
-
-# Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes
-# DIR into the resulting binary.
-hardcode_direct=$hardcode_direct
-
-# Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes
-# DIR into the resulting binary and the resulting library dependency is
-# "absolute",i.e impossible to change by setting \${shlibpath_var} if the
-# library is relocated.
-hardcode_direct_absolute=$hardcode_direct_absolute
-
-# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
-# into the resulting binary.
-hardcode_minus_L=$hardcode_minus_L
-
-# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
-# into the resulting binary.
-hardcode_shlibpath_var=$hardcode_shlibpath_var
-
-# Set to "yes" if building a shared library automatically hardcodes DIR
-# into the library and all subsequent libraries and executables linked
-# against it.
-hardcode_automatic=$hardcode_automatic
-
-# Set to yes if linker adds runtime paths of dependent libraries
-# to runtime path list.
-inherit_rpath=$inherit_rpath
-
-# Whether libtool must link a program against all its dependency libraries.
-link_all_deplibs=$link_all_deplibs
-
-# Fix the shell variable \$srcfile for the compiler.
-fix_srcfile_path=$lt_fix_srcfile_path
-
-# Set to "yes" if exported symbols are required.
-always_export_symbols=$always_export_symbols
-
-# The commands to list exported symbols.
-export_symbols_cmds=$lt_export_symbols_cmds
-
-# Symbols that should not be listed in the preloaded symbols.
-exclude_expsyms=$lt_exclude_expsyms
-
-# Symbols that must always be exported.
-include_expsyms=$lt_include_expsyms
-
-# Commands necessary for linking programs (against libraries) with templates.
-prelink_cmds=$lt_prelink_cmds
-
-# Specify filename containing input files.
-file_list_spec=$lt_file_list_spec
-
-# How to hardcode a shared library path into an executable.
-hardcode_action=$hardcode_action
-
-# The directories searched by this compiler when creating a shared library.
-compiler_lib_search_dirs=$lt_compiler_lib_search_dirs
-
-# Dependencies to place before and after the objects being linked to
-# create a shared library.
-predep_objects=$lt_predep_objects
-postdep_objects=$lt_postdep_objects
-predeps=$lt_predeps
-postdeps=$lt_postdeps
-
-# The library search path used internally by the compiler when linking
-# a shared library.
-compiler_lib_search_path=$lt_compiler_lib_search_path
-
-# ### END LIBTOOL CONFIG
-
-_LT_EOF
-
- case $host_os in
- aix3*)
- cat <<\_LT_EOF >> "$cfgfile"
-# AIX sometimes has problems with the GCC collect2 program. For some
-# reason, if we set the COLLECT_NAMES environment variable, the problems
-# vanish in a puff of smoke.
-if test "X${COLLECT_NAMES+set}" != Xset; then
- COLLECT_NAMES=
- export COLLECT_NAMES
-fi
-_LT_EOF
- ;;
- esac
-
-
-ltmain="$ac_aux_dir/ltmain.sh"
-
-
- # We use sed instead of cat because bash on DJGPP gets confused if
- # if finds mixed CR/LF and LF-only lines. Since sed operates in
- # text mode, it properly converts lines to CR/LF. This bash problem
- # is reportedly fixed, but why not run on old versions too?
- sed '/^# Generated shell functions inserted here/q' "$ltmain" >> "$cfgfile" \
- || (rm -f "$cfgfile"; exit 1)
-
- case $xsi_shell in
- yes)
- cat << \_LT_EOF >> "$cfgfile"
-
-# func_dirname file append nondir_replacement
-# Compute the dirname of FILE. If nonempty, add APPEND to the result,
-# otherwise set result to NONDIR_REPLACEMENT.
-func_dirname ()
-{
- case ${1} in
- */*) func_dirname_result="${1%/*}${2}" ;;
- * ) func_dirname_result="${3}" ;;
- esac
-}
-
-# func_basename file
-func_basename ()
-{
- func_basename_result="${1##*/}"
-}
-
-# func_dirname_and_basename file append nondir_replacement
-# perform func_basename and func_dirname in a single function
-# call:
-# dirname: Compute the dirname of FILE. If nonempty,
-# add APPEND to the result, otherwise set result
-# to NONDIR_REPLACEMENT.
-# value returned in "$func_dirname_result"
-# basename: Compute filename of FILE.
-# value retuned in "$func_basename_result"
-# Implementation must be kept synchronized with func_dirname
-# and func_basename. For efficiency, we do not delegate to
-# those functions but instead duplicate the functionality here.
-func_dirname_and_basename ()
-{
- case ${1} in
- */*) func_dirname_result="${1%/*}${2}" ;;
- * ) func_dirname_result="${3}" ;;
- esac
- func_basename_result="${1##*/}"
-}
-
-# func_stripname prefix suffix name
-# strip PREFIX and SUFFIX off of NAME.
-# PREFIX and SUFFIX must not contain globbing or regex special
-# characters, hashes, percent signs, but SUFFIX may contain a leading
-# dot (in which case that matches only a dot).
-func_stripname ()
-{
- # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are
- # positional parameters, so assign one to ordinary parameter first.
- func_stripname_result=${3}
- func_stripname_result=${func_stripname_result#"${1}"}
- func_stripname_result=${func_stripname_result%"${2}"}
-}
-
-# func_opt_split
-func_opt_split ()
-{
- func_opt_split_opt=${1%%=*}
- func_opt_split_arg=${1#*=}
-}
-
-# func_lo2o object
-func_lo2o ()
-{
- case ${1} in
- *.lo) func_lo2o_result=${1%.lo}.${objext} ;;
- *) func_lo2o_result=${1} ;;
- esac
-}
-
-# func_xform libobj-or-source
-func_xform ()
-{
- func_xform_result=${1%.*}.lo
-}
-
-# func_arith arithmetic-term...
-func_arith ()
-{
- func_arith_result=$(( $* ))
-}
-
-# func_len string
-# STRING may not start with a hyphen.
-func_len ()
-{
- func_len_result=${#1}
-}
-
-_LT_EOF
- ;;
- *) # Bourne compatible functions.
- cat << \_LT_EOF >> "$cfgfile"
-
-# func_dirname file append nondir_replacement
-# Compute the dirname of FILE. If nonempty, add APPEND to the result,
-# otherwise set result to NONDIR_REPLACEMENT.
-func_dirname ()
-{
- # Extract subdirectory from the argument.
- func_dirname_result=`$ECHO "X${1}" | $Xsed -e "$dirname"`
- if test "X$func_dirname_result" = "X${1}"; then
- func_dirname_result="${3}"
- else
- func_dirname_result="$func_dirname_result${2}"
- fi
-}
-
-# func_basename file
-func_basename ()
-{
- func_basename_result=`$ECHO "X${1}" | $Xsed -e "$basename"`
-}
-
-
-# func_stripname prefix suffix name
-# strip PREFIX and SUFFIX off of NAME.
-# PREFIX and SUFFIX must not contain globbing or regex special
-# characters, hashes, percent signs, but SUFFIX may contain a leading
-# dot (in which case that matches only a dot).
-# func_strip_suffix prefix name
-func_stripname ()
-{
- case ${2} in
- .*) func_stripname_result=`$ECHO "X${3}" \
- | $Xsed -e "s%^${1}%%" -e "s%\\\\${2}\$%%"`;;
- *) func_stripname_result=`$ECHO "X${3}" \
- | $Xsed -e "s%^${1}%%" -e "s%${2}\$%%"`;;
- esac
-}
-
-# sed scripts:
-my_sed_long_opt='1s/^\(-[^=]*\)=.*/\1/;q'
-my_sed_long_arg='1s/^-[^=]*=//'
-
-# func_opt_split
-func_opt_split ()
-{
- func_opt_split_opt=`$ECHO "X${1}" | $Xsed -e "$my_sed_long_opt"`
- func_opt_split_arg=`$ECHO "X${1}" | $Xsed -e "$my_sed_long_arg"`
-}
-
-# func_lo2o object
-func_lo2o ()
-{
- func_lo2o_result=`$ECHO "X${1}" | $Xsed -e "$lo2o"`
-}
-
-# func_xform libobj-or-source
-func_xform ()
-{
- func_xform_result=`$ECHO "X${1}" | $Xsed -e 's/\.[^.]*$/.lo/'`
-}
-
-# func_arith arithmetic-term...
-func_arith ()
-{
- func_arith_result=`expr "$@"`
-}
-
-# func_len string
-# STRING may not start with a hyphen.
-func_len ()
-{
- func_len_result=`expr "$1" : ".*" 2>/dev/null || echo $max_cmd_len`
-}
-
-_LT_EOF
-esac
-
-case $lt_shell_append in
- yes)
- cat << \_LT_EOF >> "$cfgfile"
-
-# func_append var value
-# Append VALUE to the end of shell variable VAR.
-func_append ()
-{
- eval "$1+=\$2"
-}
-_LT_EOF
- ;;
- *)
- cat << \_LT_EOF >> "$cfgfile"
-
-# func_append var value
-# Append VALUE to the end of shell variable VAR.
-func_append ()
-{
- eval "$1=\$$1\$2"
-}
-
-_LT_EOF
- ;;
- esac
-
-
- sed -n '/^# Generated shell functions inserted here/,$p' "$ltmain" >> "$cfgfile" \
- || (rm -f "$cfgfile"; exit 1)
-
- mv -f "$cfgfile" "$ofile" ||
- (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile")
- chmod +x "$ofile"
-
-
- cat <<_LT_EOF >> "$ofile"
-
-# ### BEGIN LIBTOOL TAG CONFIG: CXX
-
-# The linker used to build libraries.
-LD=$lt_LD_CXX
-
-# Commands used to build an old-style archive.
-old_archive_cmds=$lt_old_archive_cmds_CXX
-
-# A language specific compiler.
-CC=$lt_compiler_CXX
-
-# Is the compiler the GNU compiler?
-with_gcc=$GCC_CXX
-
-# Compiler flag to turn off builtin functions.
-no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX
-
-# How to pass a linker flag through the compiler.
-wl=$lt_lt_prog_compiler_wl_CXX
-
-# Additional compiler flags for building library objects.
-pic_flag=$lt_lt_prog_compiler_pic_CXX
-
-# Compiler flag to prevent dynamic linking.
-link_static_flag=$lt_lt_prog_compiler_static_CXX
-
-# Does compiler simultaneously support -c and -o options?
-compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX
-
-# Whether or not to add -lc for building shared libraries.
-build_libtool_need_lc=$archive_cmds_need_lc_CXX
-
-# Whether or not to disallow shared libs when runtime libs are static.
-allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX
-
-# Compiler flag to allow reflexive dlopens.
-export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX
-
-# Compiler flag to generate shared objects directly from archives.
-whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX
-
-# Whether the compiler copes with passing no objects directly.
-compiler_needs_object=$lt_compiler_needs_object_CXX
-
-# Create an old-style archive from a shared archive.
-old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX
-
-# Create a temporary old-style archive to link instead of a shared archive.
-old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX
-
-# Commands used to build a shared archive.
-archive_cmds=$lt_archive_cmds_CXX
-archive_expsym_cmds=$lt_archive_expsym_cmds_CXX
-
-# Commands used to build a loadable module if different from building
-# a shared archive.
-module_cmds=$lt_module_cmds_CXX
-module_expsym_cmds=$lt_module_expsym_cmds_CXX
-
-# Whether we are building with GNU ld or not.
-with_gnu_ld=$lt_with_gnu_ld_CXX
-
-# Flag that allows shared libraries with undefined symbols to be built.
-allow_undefined_flag=$lt_allow_undefined_flag_CXX
-
-# Flag that enforces no undefined symbols.
-no_undefined_flag=$lt_no_undefined_flag_CXX
-
-# Flag to hardcode \$libdir into a binary during linking.
-# This must work even if \$libdir does not exist
-hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX
-
-# If ld is used when linking, flag to hardcode \$libdir into a binary
-# during linking. This must work even if \$libdir does not exist.
-hardcode_libdir_flag_spec_ld=$lt_hardcode_libdir_flag_spec_ld_CXX
-
-# Whether we need a single "-rpath" flag with a separated argument.
-hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX
-
-# Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes
-# DIR into the resulting binary.
-hardcode_direct=$hardcode_direct_CXX
-
-# Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes
-# DIR into the resulting binary and the resulting library dependency is
-# "absolute",i.e impossible to change by setting \${shlibpath_var} if the
-# library is relocated.
-hardcode_direct_absolute=$hardcode_direct_absolute_CXX
-
-# Set to "yes" if using the -LDIR flag during linking hardcodes DIR
-# into the resulting binary.
-hardcode_minus_L=$hardcode_minus_L_CXX
-
-# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR
-# into the resulting binary.
-hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX
-
-# Set to "yes" if building a shared library automatically hardcodes DIR
-# into the library and all subsequent libraries and executables linked
-# against it.
-hardcode_automatic=$hardcode_automatic_CXX
-
-# Set to yes if linker adds runtime paths of dependent libraries
-# to runtime path list.
-inherit_rpath=$inherit_rpath_CXX
-
-# Whether libtool must link a program against all its dependency libraries.
-link_all_deplibs=$link_all_deplibs_CXX
-
-# Fix the shell variable \$srcfile for the compiler.
-fix_srcfile_path=$lt_fix_srcfile_path_CXX
-
-# Set to "yes" if exported symbols are required.
-always_export_symbols=$always_export_symbols_CXX
-
-# The commands to list exported symbols.
-export_symbols_cmds=$lt_export_symbols_cmds_CXX
-
-# Symbols that should not be listed in the preloaded symbols.
-exclude_expsyms=$lt_exclude_expsyms_CXX
-
-# Symbols that must always be exported.
-include_expsyms=$lt_include_expsyms_CXX
-
-# Commands necessary for linking programs (against libraries) with templates.
-prelink_cmds=$lt_prelink_cmds_CXX
-
-# Specify filename containing input files.
-file_list_spec=$lt_file_list_spec_CXX
-
-# How to hardcode a shared library path into an executable.
-hardcode_action=$hardcode_action_CXX
-
-# The directories searched by this compiler when creating a shared library.
-compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX
-
-# Dependencies to place before and after the objects being linked to
-# create a shared library.
-predep_objects=$lt_predep_objects_CXX
-postdep_objects=$lt_postdep_objects_CXX
-predeps=$lt_predeps_CXX
-postdeps=$lt_postdeps_CXX
-
-# The library search path used internally by the compiler when linking
-# a shared library.
-compiler_lib_search_path=$lt_compiler_lib_search_path_CXX
-
-# ### END LIBTOOL TAG CONFIG: CXX
-_LT_EOF
-
- ;;
-
- esac
-done # for ac_tag
-
-
-as_fn_exit 0
-_ACEOF
-ac_clean_files=$ac_clean_files_save
-
-test $ac_write_fail = 0 ||
- as_fn_error "write failure creating $CONFIG_STATUS" "$LINENO" 5
-
-
-# configure is writing to config.log, and then calls config.status.
-# config.status does its own redirection, appending to config.log.
-# Unfortunately, on DOS this fails, as config.log is still kept open
-# by configure, so config.status won't be able to write to it; its
-# output is simply discarded. So we exec the FD to /dev/null,
-# effectively closing config.log, so it can be properly (re)opened and
-# appended to by config.status. When coming back to configure, we
-# need to make the FD available again.
-if test "$no_create" != yes; then
- ac_cs_success=:
- ac_config_status_args=
- test "$silent" = yes &&
- ac_config_status_args="$ac_config_status_args --quiet"
- exec 5>/dev/null
- $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false
- exec 5>>config.log
- # Use ||, not &&, to avoid exiting from the if with $? = 1, which
- # would make configure fail if this is the last instruction.
- $ac_cs_success || as_fn_exit $?
-fi
-if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5
-$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;}
-fi
-
-
-
-
-echo ""
-
-
-echo "libgeotiff configuration summary:"
-
-
-echo ""
-
-
-echo " Version..................: ${RELEASE_VERSION}"
-
-
-echo " Installation directory...: ${prefix}"
-
-
-echo " C compiler...............: ${CC} ${CFLAGS}"
-
-
-echo " C++ compiler.............: ${CXX} ${CXXFLAGS}"
-
-
-
-echo " Debugging support........: ${enable_debug}"
-
-
-echo ""
-
-
-
-echo " zlib support......: ${ZIP_CONFIG}"
-
-
-echo " jpeg support......: ${JPEG_CONFIG}"
-
-
-echo " TIFF support......: ${TIFF_CONFIG}"
-
-
-echo " -INCLUDE .......: ${TIFF_INC}"
-
-
-echo " -PREFIX ........: ${TIFF_PREFIX}"
-
-
-echo " PROJ support......: ${PROJ_CONFIG}"
-
-
-echo " -INCLUDE .......: ${PROJ_INC}"
-
-
-echo " -PREFIX ........: ${PROJ_PREFIX}"
-
-
-echo " Incode CSV support: ${CSV_CONFIG}"
-
-
-
-echo " LIBS.....................: ${LIBS}"
-
-
-echo ""
-
-
-echo " libgeotiff - http://trac.osgeo.org/geotiff"
-
-
-echo ""
-
-
diff --git a/SuperBuild/patches/GLUT/CMakeLists.txt b/SuperBuild/patches/GLUT/CMakeLists.txt
deleted file mode 100644
index 9c38cec..0000000
--- a/SuperBuild/patches/GLUT/CMakeLists.txt
+++ /dev/null
@@ -1,64 +0,0 @@
-cmake_minimum_required(VERSION 2.8.3)
-
-project(freeglut)
-
-set(FREEGLUT_INC_DIR ${CMAKE_SOURCE_DIR}/include)
-set(FREEGLUT_SRC_DIR ${CMAKE_SOURCE_DIR}/src)
-
-option(BUILD_SHARED_LIBS "Building shared libs. Default is ON" ON)
-
-if(BUILD_SHARED_LIBS)
- add_definitions(-DFREEGLUT_EXPORTS)
-else()
- add_definitions(-DFREEGLUT_STATIC)
-endif()
-
- add_definitions(-D_CRT_SECURE_NO_WARNINGS)
-
-set(FREEGLUT_SRCS ${FREEGLUT_SRC_DIR}/freeglut_callbacks.c
-${FREEGLUT_SRC_DIR}/freeglut_cursor.c
-${FREEGLUT_SRC_DIR}/freeglut_display.c
-${FREEGLUT_SRC_DIR}/freeglut_ext.c
-${FREEGLUT_SRC_DIR}/freeglut_font.c
-${FREEGLUT_SRC_DIR}/freeglut_font_data.c
-${FREEGLUT_SRC_DIR}/freeglut_gamemode.c
-${FREEGLUT_SRC_DIR}/freeglut_geometry.c
-${FREEGLUT_SRC_DIR}/freeglut_glutfont_definitions.c
-${FREEGLUT_SRC_DIR}/freeglut_init.c
-${FREEGLUT_SRC_DIR}/freeglut_input_devices.c
-${FREEGLUT_SRC_DIR}/freeglut_joystick.c
-${FREEGLUT_SRC_DIR}/freeglut_main.c
-${FREEGLUT_SRC_DIR}/freeglut_menu.c
-${FREEGLUT_SRC_DIR}/freeglut_misc.c
-${FREEGLUT_SRC_DIR}/freeglut_overlay.c
-${FREEGLUT_SRC_DIR}/freeglut_spaceball.c
-${FREEGLUT_SRC_DIR}/freeglut_state.c
-${FREEGLUT_SRC_DIR}/freeglut_stroke_mono_roman.c
-${FREEGLUT_SRC_DIR}/freeglut_stroke_roman.c
-${FREEGLUT_SRC_DIR}/freeglut_structure.c
-${FREEGLUT_SRC_DIR}/freeglut_teapot.c
-${FREEGLUT_SRC_DIR}/freeglut_videoresize.c
-${FREEGLUT_SRC_DIR}/freeglut_window.c)
-
-set(FREEGLUT_INCLUDES
-${FREEGLUT_INC_DIR}/GL/glut.h
-${FREEGLUT_INC_DIR}/GL/freeglut.h
-${FREEGLUT_INC_DIR}/GL/freeglut_ext.h
-${FREEGLUT_INC_DIR}/GL/freeglut_std.h
-)
-
-include_directories(${FREEGLUT_INC_DIR})
-
-add_library(freeglut ${FREEGLUT_SRCS})
-
-install(TARGETS freeglut
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-
-install(FILES ${FREEGLUT_INCLUDES}
- DESTINATION include/GL/
- COMPONENT Development)
-
-
diff --git a/SuperBuild/patches/ITK/hashtable.hxx.in b/SuperBuild/patches/ITK/hashtable.hxx.in
deleted file mode 100644
index 934bc19..0000000
--- a/SuperBuild/patches/ITK/hashtable.hxx.in
+++ /dev/null
@@ -1,1295 +0,0 @@
-/*============================================================================
- KWSys - Kitware System Library
- Copyright 2000-2009 Kitware, Inc., Insight Software Consortium
-
- Distributed under the OSI-approved BSD License (the "License");
- see accompanying file Copyright.txt for details.
-
- This software is distributed WITHOUT ANY WARRANTY; without even the
- implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- See the License for more information.
-============================================================================*/
-/*
- * Copyright (c) 1996
- * Silicon Graphics Computer Systems, Inc.
- *
- * Permission to use, copy, modify, distribute and sell this software
- * and its documentation for any purpose is hereby granted without fee,
- * provided that the above copyright notice appear in all copies and
- * that both that copyright notice and this permission notice appear
- * in supporting documentation. Silicon Graphics makes no
- * representations about the suitability of this software for any
- * purpose. It is provided "as is" without express or implied warranty.
- *
- *
- * Copyright (c) 1994
- * Hewlett-Packard Company
- *
- * Permission to use, copy, modify, distribute and sell this software
- * and its documentation for any purpose is hereby granted without fee,
- * provided that the above copyright notice appear in all copies and
- * that both that copyright notice and this permission notice appear
- * in supporting documentation. Hewlett-Packard Company makes no
- * representations about the suitability of this software for any
- * purpose. It is provided "as is" without express or implied warranty.
- *
- */
-#ifdef __BORLANDC__
-# pragma warn -8027 /* 'for' not inlined. */
-# pragma warn -8026 /* 'exception' not inlined. */
-#endif
-
-#ifndef @KWSYS_NAMESPACE at _hashtable_hxx
-#define @KWSYS_NAMESPACE at _hashtable_hxx
-
-#include <@KWSYS_NAMESPACE@/Configure.hxx>
-
-#include <@KWSYS_NAMESPACE@/cstddef> // size_t
-#include <@KWSYS_NAMESPACE@/stl/algorithm> // lower_bound
-#include <@KWSYS_NAMESPACE@/stl/functional> // unary_function
-#include <@KWSYS_NAMESPACE@/stl/iterator> // iterator_traits
-#include <@KWSYS_NAMESPACE@/stl/memory> // allocator
-#include <@KWSYS_NAMESPACE@/stl/utility> // pair
-#include <@KWSYS_NAMESPACE@/stl/vector> // vector
-
-#if defined(_MSC_VER)
-# pragma warning (push)
-# pragma warning (disable:4284)
-# pragma warning (disable:4786)
-# pragma warning (disable:4512) /* no assignment operator for class */
-#endif
-#if defined(__sgi) && !defined(__GNUC__)
-# pragma set woff 3970 /* pointer to int conversion */ 3321 3968
-#endif
-
-// In C++11, clang will warn about using dynamic exception specifications
-// as they are deprecated. But as this class is trying to faithfully
-// mimic unordered_set and unordered_map, we want to keep the 'throw()'
-// decorations below. So we suppress the warning.
-#if defined(__clang__) && defined(__has_warning)
-# if __has_warning("-Wdeprecated")
-# pragma clang diagnostic push
-# pragma clang diagnostic ignored "-Wdeprecated"
-# endif
-#endif
-
-#if @KWSYS_NAMESPACE at _STL_HAS_ALLOCATOR_TEMPLATE
-# define @KWSYS_NAMESPACE at _HASH_DEFAULT_ALLOCATOR(T) @KWSYS_NAMESPACE at _stl::allocator< T >
-#elif @KWSYS_NAMESPACE at _STL_HAS_ALLOCATOR_NONTEMPLATE
-# define @KWSYS_NAMESPACE at _HASH_DEFAULT_ALLOCATOR(T) @KWSYS_NAMESPACE at _stl::allocator
-#else
-# define @KWSYS_NAMESPACE at _HASH_DEFAULT_ALLOCATOR(T) @KWSYS_NAMESPACE at _stl::alloc
-#endif
-
-#if @KWSYS_NAMESPACE at _STL_HAS_ALLOCATOR_OBJECTS
-# define @KWSYS_NAMESPACE at _HASH_BUCKETS_INIT(__a) _M_buckets(__a)
-# define @KWSYS_NAMESPACE at _HASH_BUCKETS_GET_ALLOCATOR(__b) , __b.get_allocator()
-#else
-# define @KWSYS_NAMESPACE at _HASH_BUCKETS_INIT(__a) _M_buckets()
-# define @KWSYS_NAMESPACE at _HASH_BUCKETS_GET_ALLOCATOR(__b)
-#endif
-
-namespace @KWSYS_NAMESPACE@
-{
-
-//----------------------------------------------------------------------------
-// Define an allocator adaptor for platforms that do not provide an
-// allocator with the rebind member.
-#if !@KWSYS_NAMESPACE at _STL_HAS_ALLOCATOR_REBIND
-
-// Utility functions to convert item counts.
-inline size_t hash_sizeof(void*) { return sizeof(char); }
-inline size_t hash_sizeof(const void*) { return sizeof(char); }
-template <class TPtr> inline size_t hash_sizeof(TPtr p)
-{
- static_cast<void>(p);
- return sizeof(*p);
-}
-template <class POut, class PIn, class TSize>
-inline TSize hash_allocator_n(POut out, PIn in, TSize n)
-{
- return n*(hash_sizeof(out)/hash_sizeof(in) +
- (hash_sizeof(out)%hash_sizeof(in)>0));
-}
-
-// Define an allocation method to use the native allocator with
-// the proper signature. The following signatures of the allocate
-// method are used on various STL implementations:
-// pointer allocate(size_type, const void* hint)
-// pointer allocate(size_type)
-// static pointer allocate(size_type, const void* hint)
-// static pointer allocate(size_type)
-// Where pointer might be a real type or void*.
-// This set of overloads decodes the signature for a particular STL.
-// The extra three int/long arguments will favor certain signatures
-// over others in the case that multiple are present to avoid
-// ambiguity errors.
-template <class TAlloc, class PIn, class TSize, class THint, class POut>
-inline void hash_allocate(TAlloc* a, PIn (TAlloc::*allocate)(TSize, THint),
- TSize n_out, const void* hint, POut& out,
- int, int, int)
-{
- TSize n_in = hash_allocator_n(POut(), PIn(), n_out);
- void* vout = (a->*allocate)(n_in, const_cast<THint>(hint));
- out = static_cast<POut>(vout);
-}
-
-template <class TAlloc, class PIn, class TSize, class POut>
-inline void hash_allocate(TAlloc* a, PIn (TAlloc::*allocate)(TSize),
- TSize n_out, const void*, POut& out,
- int, int, long)
-{
- TSize n_in = hash_allocator_n(POut(), PIn(), n_out);
- void* vout = (a->*allocate)(n_in);
- out = static_cast<POut>(vout);
-}
-
-template <class PIn, class TSize, class THint, class POut>
-inline void hash_allocate(void*, PIn (*allocate)(TSize, THint),
- TSize n_out, const void* hint, POut& out,
- int, long, long)
-{
- TSize n_in = hash_allocator_n(POut(), PIn(), n_out);
- void* vout = allocate(n_in, const_cast<THint>(hint));
- out = static_cast<POut>(vout);
-}
-
-template <class PIn, class TSize, class POut>
-inline void hash_allocate(void*, PIn (*allocate)(TSize),
- TSize n_out, const void*, POut& out,
- long, long, long)
-{
- TSize n_in = hash_allocator_n(POut(), PIn(), n_out);
- void* vout = allocate(n_in);
- out = static_cast<POut>(vout);
-}
-
-// Define a deallocation method to use the native allocator with
-// the proper signature. The following signatures of the deallocate
-// method are used on various STL implementations:
-// void deallocate(pointer, size_type)
-// void deallocate(pointer)
-// static void deallocate(pointer, size_type)
-// static void deallocate(pointer)
-// Where pointer might be a real type or void*.
-// This set of overloads decodes the signature for a particular STL.
-// The extra three int/long arguments will favor certain signatures
-// over others in the case that multiple are present to avoid
-// ambiguity errors.
-template <class TAlloc, class PIn, class TSize, class PInReal, class POut>
-inline void hash_deallocate(TAlloc* a, void (TAlloc::*deallocate)(PIn, TSize),
- PInReal, POut p, TSize n_out, int, int, int)
-{
- TSize n_in = hash_allocator_n(POut(), PInReal(), n_out);
- void* vout = p;
- (a->*deallocate)(static_cast<PIn>(vout), n_in);
-}
-
-template <class TAlloc, class PIn, class TSize, class PInReal, class POut>
-inline void hash_deallocate(TAlloc* a, void (TAlloc::*deallocate)(PIn),
- PInReal, POut p, TSize, int, int, long)
-{
- void* vout = p;
- (a->*deallocate)(static_cast<PIn>(vout));
-}
-
-template <class PIn, class TSize, class PInReal, class POut>
-inline void hash_deallocate(void*, void (*deallocate)(PIn, TSize),
- PInReal, POut p, TSize n_out, int, long, long)
-{
- TSize n_in = hash_allocator_n(POut(), PInReal(), n_out);
- void* vout = p;
- deallocate(static_cast<PIn>(vout), n_in);
-}
-
-template <class PIn, class TSize, class PInReal, class POut>
-inline void hash_deallocate(void*, void (*deallocate)(PIn),
- PInReal, POut p, TSize, long, long, long)
-{
- void* vout = p;
- deallocate(static_cast<PIn>(vout));
-}
-
-// Use the same four overloads as hash_allocate to decode the type
-// really used for allocation. This is passed as PInReal to the
-// deallocate functions so that hash_allocator_n has the proper size.
-template <class TAlloc, class PIn, class TSize, class THint>
-inline PIn hash_allocate_type(PIn (TAlloc::*)(TSize, THint),
- int, int, int) { return 0; }
-template <class TAlloc, class PIn, class TSize>
-inline PIn hash_allocate_type(PIn (TAlloc::*)(TSize),
- int, int, long) { return 0; }
-template <class PIn, class TSize, class THint>
-inline PIn hash_allocate_type(PIn (*)(TSize, THint),
- int, long, long) { return 0; }
-template <class PIn, class TSize>
-inline PIn hash_allocate_type(PIn (*)(TSize),
- long, long, long) { return 0; }
-
-// Define the comparison operators in terms of a base type to avoid
-// needing templated versions.
-class hash_allocator_base {};
-inline bool operator==(const hash_allocator_base&,
- const hash_allocator_base&) throw() { return true; }
-inline bool operator!=(const hash_allocator_base&,
- const hash_allocator_base&) throw() { return false; }
-
-// Define the allocator template.
-template <class T, class Alloc>
-class hash_allocator: public hash_allocator_base
-{
-private:
- // Store the real allocator privately.
- typedef Alloc alloc_type;
- alloc_type alloc_;
-
-public:
- // Standard allocator interface.
- typedef size_t size_type;
- typedef ptrdiff_t difference_type;
- typedef T* pointer;
- typedef const T* const_pointer;
- typedef T& reference;
- typedef const T& const_reference;
- typedef T value_type;
-
- hash_allocator() throw(): alloc_() {}
- hash_allocator(const hash_allocator_base&) throw() : alloc_() {}
- hash_allocator(const hash_allocator& a) throw() : alloc_(a.alloc_) {}
- hash_allocator(const alloc_type& a) throw() : alloc_(a) {}
- ~hash_allocator() throw() {}
-# if @KWSYS_NAMESPACE at _CXX_HAS_MEMBER_TEMPLATES
- template <class U>
- struct rebind { typedef hash_allocator<U, alloc_type> other; };
-# endif
- pointer address(reference x) const { return &x; }
- const_pointer address(const_reference x) const { return &x; }
- typedef void* void_pointer;
- typedef const void* const_void_pointer;
- pointer allocate(size_type n=1, const_void_pointer hint = 0)
- {
- if(n)
- {
- pointer p;
- hash_allocate(&alloc_, &alloc_type::allocate, n, hint, p, 1, 1, 1);
- return p;
- }
- else
- {
- return 0;
- }
- }
- void deallocate(pointer p, size_type n=1)
- {
- if(n)
- {
- hash_deallocate(&alloc_, &alloc_type::deallocate,
- hash_allocate_type(&alloc_type::allocate, 1, 1, 1),
- p, n, 1, 1, 1);
- }
- }
-#if @KWSYS_NAMESPACE at _STL_HAS_ALLOCATOR_MAX_SIZE_ARGUMENT
- size_type max_size(size_type s) const throw()
- {
- return alloc_.max_size(s);
- }
-#else
- size_type max_size() const throw()
- {
- size_type n = alloc_.max_size() / sizeof(value_type);
- return n>0? n:1;
- }
-#endif
- void construct(pointer p, const value_type& val) { new (p) value_type(val); }
- void destroy(pointer p) { (void)p; p->~value_type(); }
-};
-#endif
-
-template <class _Val>
-struct _Hashtable_node
-{
- _Hashtable_node* _M_next;
- _Val _M_val;
- void public_method_to_quiet_warning_about_all_methods_private();
-private:
- void operator=(_Hashtable_node<_Val> const&); // poison node assignment
-};
-
-template <class _Val, class _Key, class _HashFcn,
- class _ExtractKey, class _EqualKey,
- class _Alloc = @KWSYS_NAMESPACE at _HASH_DEFAULT_ALLOCATOR(char) >
-class hashtable;
-
-template <class _Val, class _Key, class _HashFcn,
- class _ExtractKey, class _EqualKey, class _Alloc>
-struct _Hashtable_iterator;
-
-template <class _Val, class _Key, class _HashFcn,
- class _ExtractKey, class _EqualKey, class _Alloc>
-struct _Hashtable_const_iterator;
-
-template <class _Val, class _Key, class _HashFcn,
- class _ExtractKey, class _EqualKey, class _Alloc>
-struct _Hashtable_iterator {
- typedef hashtable<_Val,_Key,_HashFcn,_ExtractKey,_EqualKey,_Alloc>
- _Hashtable;
- typedef _Hashtable_iterator<_Val, _Key, _HashFcn,
- _ExtractKey, _EqualKey, _Alloc>
- iterator;
- typedef _Hashtable_const_iterator<_Val, _Key, _HashFcn,
- _ExtractKey, _EqualKey, _Alloc>
- const_iterator;
- typedef _Hashtable_node<_Val> _Node;
-
- typedef @KWSYS_NAMESPACE at _stl::forward_iterator_tag iterator_category;
- typedef _Val value_type;
- typedef ptrdiff_t difference_type;
- typedef size_t size_type;
- typedef _Val& reference;
- typedef _Val* pointer;
-
- _Node* _M_cur;
- _Hashtable* _M_ht;
-
- _Hashtable_iterator(_Node* __n, _Hashtable* __tab)
- : _M_cur(__n), _M_ht(__tab) {}
- _Hashtable_iterator() {}
- reference operator*() const { return _M_cur->_M_val; }
- pointer operator->() const { return &(operator*()); }
- iterator& operator++();
- iterator operator++(int);
- bool operator==(const iterator& __it) const
- { return _M_cur == __it._M_cur; }
- bool operator!=(const iterator& __it) const
- { return _M_cur != __it._M_cur; }
-};
-
-
-template <class _Val, class _Key, class _HashFcn,
- class _ExtractKey, class _EqualKey, class _Alloc>
-struct _Hashtable_const_iterator {
- typedef hashtable<_Val,_Key,_HashFcn,_ExtractKey,_EqualKey,_Alloc>
- _Hashtable;
- typedef _Hashtable_iterator<_Val,_Key,_HashFcn,
- _ExtractKey,_EqualKey,_Alloc>
- iterator;
- typedef _Hashtable_const_iterator<_Val, _Key, _HashFcn,
- _ExtractKey, _EqualKey, _Alloc>
- const_iterator;
- typedef _Hashtable_node<_Val> _Node;
-
- typedef @KWSYS_NAMESPACE at _stl::forward_iterator_tag iterator_category;
- typedef _Val value_type;
- typedef ptrdiff_t difference_type;
- typedef size_t size_type;
- typedef const _Val& reference;
- typedef const _Val* pointer;
-
- const _Node* _M_cur;
- const _Hashtable* _M_ht;
-
- _Hashtable_const_iterator(const _Node* __n, const _Hashtable* __tab)
- : _M_cur(__n), _M_ht(__tab) {}
- _Hashtable_const_iterator() {}
- _Hashtable_const_iterator(const iterator& __it)
- : _M_cur(__it._M_cur), _M_ht(__it._M_ht) {}
- reference operator*() const { return _M_cur->_M_val; }
- pointer operator->() const { return &(operator*()); }
- const_iterator& operator++();
- const_iterator operator++(int);
- bool operator==(const const_iterator& __it) const
- { return _M_cur == __it._M_cur; }
- bool operator!=(const const_iterator& __it) const
- { return _M_cur != __it._M_cur; }
-};
-
-// Note: assumes long is at least 32 bits.
-enum { _stl_num_primes = 31 };
-
-static const unsigned long _stl_prime_list[_stl_num_primes] =
-{
- 5ul, 11ul, 23ul,
- 53ul, 97ul, 193ul, 389ul, 769ul,
- 1543ul, 3079ul, 6151ul, 12289ul, 24593ul,
- 49157ul, 98317ul, 196613ul, 393241ul, 786433ul,
- 1572869ul, 3145739ul, 6291469ul, 12582917ul, 25165843ul,
- 50331653ul, 100663319ul, 201326611ul, 402653189ul, 805306457ul,
- 1610612741ul, 3221225473ul, 4294967291ul
-};
-
-// create a function with a static local to that function that returns
-// the static
-inline const unsigned long* get_stl_prime_list() {
-return &_stl_prime_list[0]; }
-
-inline size_t _stl_next_prime(size_t __n)
-{
- const unsigned long* __first = get_stl_prime_list();
- const unsigned long* __last = get_stl_prime_list() + (int)_stl_num_primes;
- const unsigned long* pos = @KWSYS_NAMESPACE at _stl::lower_bound(__first, __last, __n);
- return pos == __last ? *(__last - 1) : *pos;
-}
-
-// Forward declaration of operator==.
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-class hashtable;
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-bool operator==(const hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>& __ht1,
- const hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>& __ht2);
-
-// Hashtables handle allocators a bit differently than other containers
-// do. If we're using standard-conforming allocators, then a hashtable
-// unconditionally has a member variable to hold its allocator, even if
-// it so happens that all instances of the allocator type are identical.
-// This is because, for hashtables, this extra storage is negligible.
-// Additionally, a base class wouldn't serve any other purposes; it
-// wouldn't, for example, simplify the exception-handling code.
-
-template <class _Val, class _Key, class _HashFcn,
- class _ExtractKey, class _EqualKey, class _Alloc>
-class hashtable {
-public:
- typedef _Key key_type;
- typedef _Val value_type;
- typedef _HashFcn hasher;
- typedef _EqualKey key_equal;
-
- typedef size_t size_type;
- typedef ptrdiff_t difference_type;
- typedef value_type* pointer;
- typedef const value_type* const_pointer;
- typedef value_type& reference;
- typedef const value_type& const_reference;
-
- hasher hash_funct() const { return _M_hash; }
- key_equal key_eq() const { return _M_equals; }
-
-private:
- typedef _Hashtable_node<_Val> _Node;
-
-#if @KWSYS_NAMESPACE at _STL_HAS_ALLOCATOR_REBIND
-public:
- typedef typename _Alloc::template rebind<_Val>::other allocator_type;
- allocator_type get_allocator() const { return _M_node_allocator; }
-private:
- typedef typename _Alloc::template rebind<_Node>::other _M_node_allocator_type;
- typedef typename _Alloc::template rebind<_Node*>::other _M_node_ptr_allocator_type;
- typedef @KWSYS_NAMESPACE at _stl::vector<_Node*,_M_node_ptr_allocator_type> _M_buckets_type;
-#else
-public:
- typedef hash_allocator<_Val, _Alloc> allocator_type;
- allocator_type get_allocator() const { return allocator_type(); }
-private:
- typedef hash_allocator<_Node, _Alloc> _M_node_allocator_type;
-# if @KWSYS_NAMESPACE at _STL_HAS_ALLOCATOR_OBJECTS
- typedef hash_allocator<_Node*, _Alloc> _M_node_ptr_allocator_type;
-# else
- typedef _Alloc _M_node_ptr_allocator_type;
-# endif
- typedef @KWSYS_NAMESPACE at _stl::vector<_Node*,_M_node_ptr_allocator_type> _M_buckets_type;
-#endif
-
-private:
- _M_node_allocator_type _M_node_allocator;
- hasher _M_hash;
- key_equal _M_equals;
- _ExtractKey _M_get_key;
- _M_buckets_type _M_buckets;
- size_type _M_num_elements;
-
- _Node* _M_get_node() { return _M_node_allocator.allocate(1); }
- void _M_put_node(_Node* __p) { _M_node_allocator.deallocate(__p, 1); }
-
-public:
- typedef _Hashtable_iterator<_Val,_Key,_HashFcn,_ExtractKey,_EqualKey,_Alloc>
- iterator;
- typedef _Hashtable_const_iterator<_Val,_Key,_HashFcn,_ExtractKey,_EqualKey,
- _Alloc>
- const_iterator;
-
- friend struct
- _Hashtable_iterator<_Val,_Key,_HashFcn,_ExtractKey,_EqualKey,_Alloc>;
- friend struct
- _Hashtable_const_iterator<_Val,_Key,_HashFcn,_ExtractKey,_EqualKey,_Alloc>;
-
-public:
- hashtable(size_type __n,
- const _HashFcn& __hf,
- const _EqualKey& __eql,
- const _ExtractKey& __ext,
- const allocator_type& __a = allocator_type())
- : _M_node_allocator(__a),
- _M_hash(__hf),
- _M_equals(__eql),
- _M_get_key(__ext),
- @KWSYS_NAMESPACE at _HASH_BUCKETS_INIT(__a),
- _M_num_elements(0)
- {
- _M_initialize_buckets(__n);
- }
-
- hashtable(size_type __n,
- const _HashFcn& __hf,
- const _EqualKey& __eql,
- const allocator_type& __a = allocator_type())
- : _M_node_allocator(__a),
- _M_hash(__hf),
- _M_equals(__eql),
- _M_get_key(_ExtractKey()),
- @KWSYS_NAMESPACE at _HASH_BUCKETS_INIT(__a),
- _M_num_elements(0)
- {
- _M_initialize_buckets(__n);
- }
-
- hashtable(const hashtable& __ht)
- : _M_node_allocator(__ht.get_allocator()),
- _M_hash(__ht._M_hash),
- _M_equals(__ht._M_equals),
- _M_get_key(__ht._M_get_key),
- @KWSYS_NAMESPACE at _HASH_BUCKETS_INIT(__ht.get_allocator()),
- _M_num_elements(0)
- {
- _M_copy_from(__ht);
- }
-
- hashtable& operator= (const hashtable& __ht)
- {
- if (&__ht != this) {
- clear();
- _M_hash = __ht._M_hash;
- _M_equals = __ht._M_equals;
- _M_get_key = __ht._M_get_key;
- _M_copy_from(__ht);
- }
- return *this;
- }
-
- ~hashtable() { clear(); }
-
- size_type size() const { return _M_num_elements; }
- size_type max_size() const { return size_type(-1); }
- bool empty() const { return size() == 0; }
-
- void swap(hashtable& __ht)
- {
- @KWSYS_NAMESPACE at _stl::swap(_M_hash, __ht._M_hash);
- @KWSYS_NAMESPACE at _stl::swap(_M_equals, __ht._M_equals);
- @KWSYS_NAMESPACE at _stl::swap(_M_get_key, __ht._M_get_key);
- _M_buckets.swap(__ht._M_buckets);
- @KWSYS_NAMESPACE at _stl::swap(_M_num_elements, __ht._M_num_elements);
- }
-
- iterator begin()
- {
- for (size_type __n = 0; __n < _M_buckets.size(); ++__n)
- if (_M_buckets[__n])
- return iterator(_M_buckets[__n], this);
- return end();
- }
-
- iterator end() { return iterator(0, this); }
-
- const_iterator begin() const
- {
- for (size_type __n = 0; __n < _M_buckets.size(); ++__n)
- if (_M_buckets[__n])
- return const_iterator(_M_buckets[__n], this);
- return end();
- }
-
- const_iterator end() const { return const_iterator(0, this); }
-
- friend bool operator==@KWSYS_NAMESPACE at _CXX_NULL_TEMPLATE_ARGS(const hashtable&,
- const hashtable&);
-
-public:
-
- size_type bucket_count() const { return _M_buckets.size(); }
-
- size_type max_bucket_count() const
- { return get_stl_prime_list()[(int)_stl_num_primes - 1]; }
-
- size_type elems_in_bucket(size_type __bucket) const
- {
- size_type __result = 0;
- for (_Node* __cur = _M_buckets[__bucket]; __cur; __cur = __cur->_M_next)
- __result += 1;
- return __result;
- }
-
- @KWSYS_NAMESPACE at _stl::pair<iterator, bool> insert_unique(const value_type& __obj)
- {
- resize(_M_num_elements + 1);
- return insert_unique_noresize(__obj);
- }
-
- iterator insert_equal(const value_type& __obj)
- {
- resize(_M_num_elements + 1);
- return insert_equal_noresize(__obj);
- }
-
- @KWSYS_NAMESPACE at _stl::pair<iterator, bool> insert_unique_noresize(const value_type& __obj);
- iterator insert_equal_noresize(const value_type& __obj);
-
-#if @KWSYS_NAMESPACE at _STL_HAS_ITERATOR_TRAITS
-# define @KWSYS_NAMESPACE at _HASH_ITERATOR_CATEGORY(T,I) \
- typename @KWSYS_NAMESPACE at _stl::iterator_traits< T >::iterator_category()
-#elif @KWSYS_NAMESPACE at _STL_HAS_ITERATOR_CATEGORY
-# define @KWSYS_NAMESPACE at _HASH_ITERATOR_CATEGORY(T,I) \
- @KWSYS_NAMESPACE at _stl::iterator_category( I )
-#elif @KWSYS_NAMESPACE at _STL_HAS___ITERATOR_CATEGORY
-# define @KWSYS_NAMESPACE at _HASH_ITERATOR_CATEGORY(T,I) \
- @KWSYS_NAMESPACE at _stl::__iterator_category( I )
-#endif
-
-#if @KWSYS_NAMESPACE at _CXX_HAS_MEMBER_TEMPLATES && defined(@KWSYS_NAMESPACE at _HASH_ITERATOR_CATEGORY)
- template <class _InputIterator>
- void insert_unique(_InputIterator __f, _InputIterator __l)
- {
- insert_unique(__f, __l,
- @KWSYS_NAMESPACE at _HASH_ITERATOR_CATEGORY(_InputIterator, __f));
- }
-
- template <class _InputIterator>
- void insert_equal(_InputIterator __f, _InputIterator __l)
- {
- insert_equal(__f, __l,
- @KWSYS_NAMESPACE at _HASH_ITERATOR_CATEGORY(_InputIterator, __f));
- }
-
- template <class _InputIterator>
- void insert_unique(_InputIterator __f, _InputIterator __l,
- @KWSYS_NAMESPACE at _stl::input_iterator_tag)
- {
- for ( ; __f != __l; ++__f)
- insert_unique(*__f);
- }
-
- template <class _InputIterator>
- void insert_equal(_InputIterator __f, _InputIterator __l,
- @KWSYS_NAMESPACE at _stl::input_iterator_tag)
- {
- for ( ; __f != __l; ++__f)
- insert_equal(*__f);
- }
-
- template <class _ForwardIterator>
- void insert_unique(_ForwardIterator __f, _ForwardIterator __l,
- @KWSYS_NAMESPACE at _stl::forward_iterator_tag)
- {
- size_type __n = 0;
- @KWSYS_NAMESPACE at _stl::distance(__f, __l, __n);
- resize(_M_num_elements + __n);
- for ( ; __n > 0; --__n, ++__f)
- insert_unique_noresize(*__f);
- }
-
- template <class _ForwardIterator>
- void insert_equal(_ForwardIterator __f, _ForwardIterator __l,
- @KWSYS_NAMESPACE at _stl::forward_iterator_tag)
- {
- size_type __n = 0;
- @KWSYS_NAMESPACE at _stl::distance(__f, __l, __n);
- resize(_M_num_elements + __n);
- for ( ; __n > 0; --__n, ++__f)
- insert_equal_noresize(*__f);
- }
-
-#else
- void insert_unique(const value_type* __f, const value_type* __l)
- {
- size_type __n = __l - __f;
- resize(_M_num_elements + __n);
- for ( ; __n > 0; --__n, ++__f)
- insert_unique_noresize(*__f);
- }
-
- void insert_equal(const value_type* __f, const value_type* __l)
- {
- size_type __n = __l - __f;
- resize(_M_num_elements + __n);
- for ( ; __n > 0; --__n, ++__f)
- insert_equal_noresize(*__f);
- }
-
- void insert_unique(const_iterator __f, const_iterator __l)
- {
- size_type __n = 0;
- @KWSYS_NAMESPACE at _stl::distance(__f, __l, __n);
- resize(_M_num_elements + __n);
- for ( ; __n > 0; --__n, ++__f)
- insert_unique_noresize(*__f);
- }
-
- void insert_equal(const_iterator __f, const_iterator __l)
- {
- size_type __n = 0;
- @KWSYS_NAMESPACE at _stl::distance(__f, __l, __n);
- resize(_M_num_elements + __n);
- for ( ; __n > 0; --__n, ++__f)
- insert_equal_noresize(*__f);
- }
-#endif
-
- reference find_or_insert(const value_type& __obj);
-
- iterator find(const key_type& __key)
- {
- size_type __n = _M_bkt_num_key(__key);
- _Node* __first;
- for ( __first = _M_buckets[__n];
- __first && !_M_equals(_M_get_key(__first->_M_val), __key);
- __first = __first->_M_next)
- {}
- return iterator(__first, this);
- }
-
- const_iterator find(const key_type& __key) const
- {
- size_type __n = _M_bkt_num_key(__key);
- const _Node* __first;
- for ( __first = _M_buckets[__n];
- __first && !_M_equals(_M_get_key(__first->_M_val), __key);
- __first = __first->_M_next)
- {}
- return const_iterator(__first, this);
- }
-
- size_type count(const key_type& __key) const
- {
- const size_type __n = _M_bkt_num_key(__key);
- size_type __result = 0;
-
- for (const _Node* __cur = _M_buckets[__n]; __cur; __cur = __cur->_M_next)
- if (_M_equals(_M_get_key(__cur->_M_val), __key))
- ++__result;
- return __result;
- }
-
- @KWSYS_NAMESPACE at _stl::pair<iterator, iterator>
- equal_range(const key_type& __key);
-
- @KWSYS_NAMESPACE at _stl::pair<const_iterator, const_iterator>
- equal_range(const key_type& __key) const;
-
- size_type erase(const key_type& __key);
- void erase(const iterator& __it);
- void erase(iterator __first, iterator __last);
-
- void erase(const const_iterator& __it);
- void erase(const_iterator __first, const_iterator __last);
-
- void resize(size_type __num_elements_hint);
- void clear();
-
-private:
- size_type _M_next_size(size_type __n) const
- { return _stl_next_prime(__n); }
-
- void _M_initialize_buckets(size_type __n)
- {
- const size_type __n_buckets = _M_next_size(__n);
- _M_buckets.reserve(__n_buckets);
- _M_buckets.insert(_M_buckets.end(), __n_buckets, (_Node*) 0);
- _M_num_elements = 0;
- }
-
- size_type _M_bkt_num_key(const key_type& __key) const
- {
- return _M_bkt_num_key(__key, _M_buckets.size());
- }
-
- size_type _M_bkt_num(const value_type& __obj) const
- {
- return _M_bkt_num_key(_M_get_key(__obj));
- }
-
- size_type _M_bkt_num_key(const key_type& __key, size_t __n) const
- {
- return _M_hash(__key) % __n;
- }
-
- size_type _M_bkt_num(const value_type& __obj, size_t __n) const
- {
- return _M_bkt_num_key(_M_get_key(__obj), __n);
- }
-
- void construct(_Val* p, const _Val& v)
- {
- new (p) _Val(v);
- }
- void destroy(_Val* p)
- {
- (void)p;
- p->~_Val();
- }
-
- _Node* _M_new_node(const value_type& __obj)
- {
- _Node* __n = _M_get_node();
- __n->_M_next = 0;
- try {
- construct(&__n->_M_val, __obj);
- return __n;
- }
- catch(...) {_M_put_node(__n); throw;}
- }
-
- void _M_delete_node(_Node* __n)
- {
- destroy(&__n->_M_val);
- _M_put_node(__n);
- }
-
- void _M_erase_bucket(const size_type __n, _Node* __first, _Node* __last);
- void _M_erase_bucket(const size_type __n, _Node* __last);
-
- void _M_copy_from(const hashtable& __ht);
-
-};
-
-template <class _Val, class _Key, class _HF, class _ExK, class _EqK,
- class _All>
-_Hashtable_iterator<_Val,_Key,_HF,_ExK,_EqK,_All>&
-_Hashtable_iterator<_Val,_Key,_HF,_ExK,_EqK,_All>::operator++()
-{
- const _Node* __old = _M_cur;
- _M_cur = _M_cur->_M_next;
- if (!_M_cur) {
- size_type __bucket = _M_ht->_M_bkt_num(__old->_M_val);
- while (!_M_cur && ++__bucket < _M_ht->_M_buckets.size())
- _M_cur = _M_ht->_M_buckets[__bucket];
- }
- return *this;
-}
-
-template <class _Val, class _Key, class _HF, class _ExK, class _EqK,
- class _All>
-inline _Hashtable_iterator<_Val,_Key,_HF,_ExK,_EqK,_All>
-_Hashtable_iterator<_Val,_Key,_HF,_ExK,_EqK,_All>::operator++(int)
-{
- iterator __tmp = *this;
- ++*this;
- return __tmp;
-}
-
-template <class _Val, class _Key, class _HF, class _ExK, class _EqK,
- class _All>
-_Hashtable_const_iterator<_Val,_Key,_HF,_ExK,_EqK,_All>&
-_Hashtable_const_iterator<_Val,_Key,_HF,_ExK,_EqK,_All>::operator++()
-{
- const _Node* __old = _M_cur;
- _M_cur = _M_cur->_M_next;
- if (!_M_cur) {
- size_type __bucket = _M_ht->_M_bkt_num(__old->_M_val);
- while (!_M_cur && ++__bucket < _M_ht->_M_buckets.size())
- _M_cur = _M_ht->_M_buckets[__bucket];
- }
- return *this;
-}
-
-template <class _Val, class _Key, class _HF, class _ExK, class _EqK,
- class _All>
-inline _Hashtable_const_iterator<_Val,_Key,_HF,_ExK,_EqK,_All>
-_Hashtable_const_iterator<_Val,_Key,_HF,_ExK,_EqK,_All>::operator++(int)
-{
- const_iterator __tmp = *this;
- ++*this;
- return __tmp;
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-bool operator==(const hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>& __ht1,
- const hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>& __ht2)
-{
- typedef typename hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::_Node _Node;
- if (__ht1._M_buckets.size() != __ht2._M_buckets.size())
- return false;
- for (int __n = 0; __n < __ht1._M_buckets.size(); ++__n) {
- _Node* __cur1 = __ht1._M_buckets[__n];
- _Node* __cur2 = __ht2._M_buckets[__n];
- for ( ; __cur1 && __cur2 && __cur1->_M_val == __cur2->_M_val;
- __cur1 = __cur1->_M_next, __cur2 = __cur2->_M_next)
- {}
- if (__cur1 || __cur2)
- return false;
- }
- return true;
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-inline bool operator!=(const hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>& __ht1,
- const hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>& __ht2) {
- return !(__ht1 == __ht2);
-}
-
-template <class _Val, class _Key, class _HF, class _Extract, class _EqKey,
- class _All>
-inline void swap(hashtable<_Val, _Key, _HF, _Extract, _EqKey, _All>& __ht1,
- hashtable<_Val, _Key, _HF, _Extract, _EqKey, _All>& __ht2) {
- __ht1.swap(__ht2);
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
- at KWSYS_NAMESPACE@_stl::pair<@KWSYS_NAMESPACE at _CXX_DECL_TYPENAME hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::iterator, bool>
-hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>
- ::insert_unique_noresize(const value_type& __obj)
-{
- const size_type __n = _M_bkt_num(__obj);
- _Node* __first = _M_buckets[__n];
-
- for (_Node* __cur = __first; __cur; __cur = __cur->_M_next)
- if (_M_equals(_M_get_key(__cur->_M_val), _M_get_key(__obj)))
- return @KWSYS_NAMESPACE at _stl::pair<iterator, bool>(iterator(__cur, this), false);
-
- _Node* __tmp = _M_new_node(__obj);
- __tmp->_M_next = __first;
- _M_buckets[__n] = __tmp;
- ++_M_num_elements;
- return @KWSYS_NAMESPACE at _stl::pair<iterator, bool>(iterator(__tmp, this), true);
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-typename hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::iterator
-hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>
- ::insert_equal_noresize(const value_type& __obj)
-{
- const size_type __n = _M_bkt_num(__obj);
- _Node* __first = _M_buckets[__n];
-
- for (_Node* __cur = __first; __cur; __cur = __cur->_M_next)
- if (_M_equals(_M_get_key(__cur->_M_val), _M_get_key(__obj))) {
- _Node* __tmp = _M_new_node(__obj);
- __tmp->_M_next = __cur->_M_next;
- __cur->_M_next = __tmp;
- ++_M_num_elements;
- return iterator(__tmp, this);
- }
-
- _Node* __tmp = _M_new_node(__obj);
- __tmp->_M_next = __first;
- _M_buckets[__n] = __tmp;
- ++_M_num_elements;
- return iterator(__tmp, this);
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-typename hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::reference
-hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::find_or_insert(const value_type& __obj)
-{
- resize(_M_num_elements + 1);
-
- size_type __n = _M_bkt_num(__obj);
- _Node* __first = _M_buckets[__n];
-
- for (_Node* __cur = __first; __cur; __cur = __cur->_M_next)
- if (_M_equals(_M_get_key(__cur->_M_val), _M_get_key(__obj)))
- return __cur->_M_val;
-
- _Node* __tmp = _M_new_node(__obj);
- __tmp->_M_next = __first;
- _M_buckets[__n] = __tmp;
- ++_M_num_elements;
- return __tmp->_M_val;
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
- at KWSYS_NAMESPACE@_stl::pair<@KWSYS_NAMESPACE at _CXX_DECL_TYPENAME hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::iterator,
- @KWSYS_NAMESPACE at _CXX_DECL_TYPENAME hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::iterator>
-hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::equal_range(const key_type& __key)
-{
- typedef @KWSYS_NAMESPACE at _stl::pair<iterator, iterator> _Pii;
- const size_type __n = _M_bkt_num_key(__key);
-
- for (_Node* __first = _M_buckets[__n]; __first; __first = __first->_M_next)
- if (_M_equals(_M_get_key(__first->_M_val), __key)) {
- for (_Node* __cur = __first->_M_next; __cur; __cur = __cur->_M_next)
- if (!_M_equals(_M_get_key(__cur->_M_val), __key))
- return _Pii(iterator(__first, this), iterator(__cur, this));
- for (size_type __m = __n + 1; __m < _M_buckets.size(); ++__m)
- if (_M_buckets[__m])
- return _Pii(iterator(__first, this),
- iterator(_M_buckets[__m], this));
- return _Pii(iterator(__first, this), end());
- }
- return _Pii(end(), end());
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
- at KWSYS_NAMESPACE@_stl::pair<@KWSYS_NAMESPACE at _CXX_DECL_TYPENAME hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::const_iterator,
- @KWSYS_NAMESPACE at _CXX_DECL_TYPENAME hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::const_iterator>
-hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>
- ::equal_range(const key_type& __key) const
-{
- typedef @KWSYS_NAMESPACE at _stl::pair<const_iterator, const_iterator> _Pii;
- const size_type __n = _M_bkt_num_key(__key);
-
- for (const _Node* __first = _M_buckets[__n] ;
- __first;
- __first = __first->_M_next) {
- if (_M_equals(_M_get_key(__first->_M_val), __key)) {
- for (const _Node* __cur = __first->_M_next;
- __cur;
- __cur = __cur->_M_next)
- if (!_M_equals(_M_get_key(__cur->_M_val), __key))
- return _Pii(const_iterator(__first, this),
- const_iterator(__cur, this));
- for (size_type __m = __n + 1; __m < _M_buckets.size(); ++__m)
- if (_M_buckets[__m])
- return _Pii(const_iterator(__first, this),
- const_iterator(_M_buckets[__m], this));
- return _Pii(const_iterator(__first, this), end());
- }
- }
- return _Pii(end(), end());
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-typename hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::size_type
-hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::erase(const key_type& __key)
-{
- const size_type __n = _M_bkt_num_key(__key);
- _Node* __first = _M_buckets[__n];
- size_type __erased = 0;
-
- if (__first) {
- _Node* __cur = __first;
- _Node* __next = __cur->_M_next;
- while (__next) {
- if (_M_equals(_M_get_key(__next->_M_val), __key)) {
- __cur->_M_next = __next->_M_next;
- _M_delete_node(__next);
- __next = __cur->_M_next;
- ++__erased;
- --_M_num_elements;
- }
- else {
- __cur = __next;
- __next = __cur->_M_next;
- }
- }
- if (_M_equals(_M_get_key(__first->_M_val), __key)) {
- _M_buckets[__n] = __first->_M_next;
- _M_delete_node(__first);
- ++__erased;
- --_M_num_elements;
- }
- }
- return __erased;
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-void hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::erase(const iterator& __it)
-{
- _Node* __p = __it._M_cur;
- if (__p) {
- const size_type __n = _M_bkt_num(__p->_M_val);
- _Node* __cur = _M_buckets[__n];
-
- if (__cur == __p) {
- _M_buckets[__n] = __cur->_M_next;
- _M_delete_node(__cur);
- --_M_num_elements;
- }
- else {
- _Node* __next = __cur->_M_next;
- while (__next) {
- if (__next == __p) {
- __cur->_M_next = __next->_M_next;
- _M_delete_node(__next);
- --_M_num_elements;
- break;
- }
- else {
- __cur = __next;
- __next = __cur->_M_next;
- }
- }
- }
- }
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-void hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>
- ::erase(iterator __first, iterator __last)
-{
- size_type __f_bucket = __first._M_cur ?
- _M_bkt_num(__first._M_cur->_M_val) : _M_buckets.size();
- size_type __l_bucket = __last._M_cur ?
- _M_bkt_num(__last._M_cur->_M_val) : _M_buckets.size();
-
- if (__first._M_cur == __last._M_cur)
- return;
- else if (__f_bucket == __l_bucket)
- _M_erase_bucket(__f_bucket, __first._M_cur, __last._M_cur);
- else {
- _M_erase_bucket(__f_bucket, __first._M_cur, 0);
- for (size_type __n = __f_bucket + 1; __n < __l_bucket; ++__n)
- _M_erase_bucket(__n, 0);
- if (__l_bucket != _M_buckets.size())
- _M_erase_bucket(__l_bucket, __last._M_cur);
- }
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-inline void
-hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::erase(const_iterator __first,
- const_iterator __last)
-{
- erase(iterator(const_cast<_Node*>(__first._M_cur),
- const_cast<hashtable*>(__first._M_ht)),
- iterator(const_cast<_Node*>(__last._M_cur),
- const_cast<hashtable*>(__last._M_ht)));
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-inline void
-hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::erase(const const_iterator& __it)
-{
- erase(iterator(const_cast<_Node*>(__it._M_cur),
- const_cast<hashtable*>(__it._M_ht)));
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-void hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>
- ::resize(size_type __num_elements_hint)
-{
- const size_type __old_n = _M_buckets.size();
- if (__num_elements_hint > __old_n) {
- const size_type __n = _M_next_size(__num_elements_hint);
- if (__n > __old_n) {
- _M_buckets_type __tmp(
- __n, (_Node*)(0)
- @KWSYS_NAMESPACE at _HASH_BUCKETS_GET_ALLOCATOR(_M_buckets));
- try {
- for (size_type __bucket = 0; __bucket < __old_n; ++__bucket) {
- _Node* __first = _M_buckets[__bucket];
- while (__first) {
- size_type __new_bucket = _M_bkt_num(__first->_M_val, __n);
- _M_buckets[__bucket] = __first->_M_next;
- __first->_M_next = __tmp[__new_bucket];
- __tmp[__new_bucket] = __first;
- __first = _M_buckets[__bucket];
- }
- }
- _M_buckets.swap(__tmp);
- }
- catch(...) {
- for (size_type __bucket = 0; __bucket < __tmp.size(); ++__bucket) {
- while (__tmp[__bucket]) {
- _Node* __next = __tmp[__bucket]->_M_next;
- _M_delete_node(__tmp[__bucket]);
- __tmp[__bucket] = __next;
- }
- }
- throw;
- }
- }
- }
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-void hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>
- ::_M_erase_bucket(const size_type __n, _Node* __first, _Node* __last)
-{
- _Node* __cur = _M_buckets[__n];
- if (__cur == __first)
- _M_erase_bucket(__n, __last);
- else {
- _Node* __next;
- for (__next = __cur->_M_next;
- __next != __first;
- __cur = __next, __next = __cur->_M_next)
- ;
- while (__next != __last) {
- __cur->_M_next = __next->_M_next;
- _M_delete_node(__next);
- __next = __cur->_M_next;
- --_M_num_elements;
- }
- }
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-void hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>
- ::_M_erase_bucket(const size_type __n, _Node* __last)
-{
- _Node* __cur = _M_buckets[__n];
- while (__cur != __last) {
- _Node* __next = __cur->_M_next;
- _M_delete_node(__cur);
- __cur = __next;
- _M_buckets[__n] = __cur;
- --_M_num_elements;
- }
-}
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-void hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>::clear()
-{
- for (size_type __i = 0; __i < _M_buckets.size(); ++__i) {
- _Node* __cur = _M_buckets[__i];
- while (__cur != 0) {
- _Node* __next = __cur->_M_next;
- _M_delete_node(__cur);
- __cur = __next;
- }
- _M_buckets[__i] = 0;
- }
- _M_num_elements = 0;
-}
-
-
-template <class _Val, class _Key, class _HF, class _Ex, class _Eq, class _All>
-void hashtable<_Val,_Key,_HF,_Ex,_Eq,_All>
- ::_M_copy_from(const hashtable& __ht)
-{
- _M_buckets.clear();
- _M_buckets.reserve(__ht._M_buckets.size());
- _M_buckets.insert(_M_buckets.end(), __ht._M_buckets.size(), (_Node*) 0);
- try {
- for (size_type __i = 0; __i < __ht._M_buckets.size(); ++__i) {
- const _Node* __cur = __ht._M_buckets[__i];
- if (__cur) {
- _Node* __copy = _M_new_node(__cur->_M_val);
- _M_buckets[__i] = __copy;
-
- for (_Node* __next = __cur->_M_next;
- __next;
- __cur = __next, __next = __cur->_M_next) {
- __copy->_M_next = _M_new_node(__next->_M_val);
- __copy = __copy->_M_next;
- }
- }
- }
- _M_num_elements = __ht._M_num_elements;
- }
- catch(...) {clear(); throw;}
-}
-
-} // namespace @KWSYS_NAMESPACE@
-
-// Normally the comparison operators should be found in the @KWSYS_NAMESPACE@
-// namespace by argument dependent lookup. For compilers that do not
-// support it we must bring them into the global namespace now.
-#if !@KWSYS_NAMESPACE at _CXX_HAS_ARGUMENT_DEPENDENT_LOOKUP
-using @KWSYS_NAMESPACE@::operator==;
-using @KWSYS_NAMESPACE@::operator!=;
-#endif
-
-// Undo warning suppression.
-#if defined(__clang__) && defined(__has_warning)
-# if __has_warning("-Wdeprecated")
-# pragma clang diagnostic pop
-# endif
-#endif
-
-#if defined(_MSC_VER)
-# pragma warning (pop)
-#endif
-
-#endif
diff --git a/SuperBuild/patches/JPEG/CMakeLists.txt b/SuperBuild/patches/JPEG/CMakeLists.txt
deleted file mode 100644
index 11cee51..0000000
--- a/SuperBuild/patches/JPEG/CMakeLists.txt
+++ /dev/null
@@ -1,24 +0,0 @@
-cmake_minimum_required(VERSION 2.8.3)
-
-project(libjpeg)
-
-#jinclude.h jconfig.h jpeglib.h jmorecfg.h jpegint.h jerror.h jdct.h jversion.h jmemsys.h
-set(LIBJPEG_SRCS jcapimin.c jcapistd.c jcarith.c jctrans.c jcparam.c jcinit.c jcmainct.c jcmarker.c jcmaster.c jdatadst.c jccoefct.c jccolor.c jcprepct.c jcsample.c jcdctmgr.c jchuff.c jfdctflt.c jfdctfst.c jfdctint.c jdapimin.c jdapistd.c jdarith.c jdtrans.c jdatasrc.c jdmaster.c jdinput.c jdmarker.c jdhuff.c jdmainct.c jdcoefct.c jdpostct.c jddctmgr.c jidctfst.c jidctflt.c jidctint.c jdsample.c jdcolor.c jquant1.c jquant2.c jdmerge.c jaricom.c jcomapi.c jerror.c jutils.c jmemnobs.c jme [...]
-
-set(LIBJPEG_INCLUDES jdct.h jconfig.h jerror.h jinclude.h jmemsys.h jmorecfg.h jpegint.h jpeglib.h jversion.h)
-
-include_directories("${CMAKE_SOURCE_DIR}")
-
-add_library(libjpeg ${LIBJPEG_SRCS})
-
-install(TARGETS libjpeg
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-
-
-foreach(LIBJPEG_INCLUDE ${LIBJPEG_INCLUDES})
- install(FILES ${LIBJPEG_INCLUDE} DESTINATION include COMPONENT Development)
-endforeach()
-
diff --git a/SuperBuild/patches/JPEG/configure b/SuperBuild/patches/JPEG/configure
deleted file mode 100755
index 2283098..0000000
--- a/SuperBuild/patches/JPEG/configure
+++ /dev/null
@@ -1,2011 +0,0 @@
-#! /bin/sh
-
-# Guess values for system-dependent variables and create Makefiles.
-# Generated automatically using autoconf version 2.12
-# Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc.
-#
-# This configure script is free software; the Free Software Foundation
-# gives unlimited permission to copy, distribute and modify it.
-
-# Defaults:
-ac_help=
-ac_default_prefix=/usr/local
-# Any additions from configure.in:
-ac_help="$ac_help
- --enable-shared build shared library using GNU libtool"
-ac_help="$ac_help
- --enable-static build static library using GNU libtool"
-ac_help="$ac_help
- --enable-maxmem[=N] enable use of temp files, set max mem usage to N MB"
-ac_help="$ac_help
-"
-
-# Initialize some variables set by options.
-# The variables have the same names as the options, with
-# dashes changed to underlines.
-build=NONE
-cache_file=./config.cache
-exec_prefix=NONE
-host=NONE
-no_create=
-nonopt=NONE
-no_recursion=
-prefix=NONE
-program_prefix=NONE
-program_suffix=NONE
-program_transform_name=s,x,x,
-silent=
-site=
-srcdir=
-target=NONE
-verbose=
-x_includes=NONE
-x_libraries=NONE
-bindir='${exec_prefix}/bin'
-sbindir='${exec_prefix}/sbin'
-libexecdir='${exec_prefix}/libexec'
-datadir='${prefix}/share'
-sysconfdir='${prefix}/etc'
-sharedstatedir='${prefix}/com'
-localstatedir='${prefix}/var'
-libdir='${exec_prefix}/lib'
-includedir='${prefix}/include'
-oldincludedir='/usr/include'
-infodir='${prefix}/info'
-mandir='${prefix}/man'
-
-# Initialize some other variables.
-subdirs=
-MFLAGS= MAKEFLAGS=
-# Maximum number of lines to put in a shell here document.
-ac_max_here_lines=12
-
-ac_prev=
-for ac_option
-do
-
- # If the previous option needs an argument, assign it.
- if test -n "$ac_prev"; then
- eval "$ac_prev=\$ac_option"
- ac_prev=
- continue
- fi
-
- case "$ac_option" in
- -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;;
- *) ac_optarg= ;;
- esac
-
- # Accept the important Cygnus configure options, so we can diagnose typos.
-
- case "$ac_option" in
-
- -bindir | --bindir | --bindi | --bind | --bin | --bi)
- ac_prev=bindir ;;
- -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
- bindir="$ac_optarg" ;;
-
- -build | --build | --buil | --bui | --bu)
- ac_prev=build ;;
- -build=* | --build=* | --buil=* | --bui=* | --bu=*)
- build="$ac_optarg" ;;
-
- -cache-file | --cache-file | --cache-fil | --cache-fi \
- | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
- ac_prev=cache_file ;;
- -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
- | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
- cache_file="$ac_optarg" ;;
-
- -datadir | --datadir | --datadi | --datad | --data | --dat | --da)
- ac_prev=datadir ;;
- -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \
- | --da=*)
- datadir="$ac_optarg" ;;
-
- -disable-* | --disable-*)
- ac_feature=`echo $ac_option|sed -e 's/-*disable-//'`
- # Reject names that are not valid shell variable names.
- if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then
- { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
- fi
- ac_feature=`echo $ac_feature| sed 's/-/_/g'`
- eval "enable_${ac_feature}=no" ;;
-
- -enable-* | --enable-*)
- ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'`
- # Reject names that are not valid shell variable names.
- if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then
- { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; }
- fi
- ac_feature=`echo $ac_feature| sed 's/-/_/g'`
- case "$ac_option" in
- *=*) ;;
- *) ac_optarg=yes ;;
- esac
- eval "enable_${ac_feature}='$ac_optarg'" ;;
-
- -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
- | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
- | --exec | --exe | --ex)
- ac_prev=exec_prefix ;;
- -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
- | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
- | --exec=* | --exe=* | --ex=*)
- exec_prefix="$ac_optarg" ;;
-
- -gas | --gas | --ga | --g)
- # Obsolete; use --with-gas.
- with_gas=yes ;;
-
- -help | --help | --hel | --he)
- # Omit some internal or obsolete options to make the list less imposing.
- # This message is too long to be a string in the A/UX 3.1 sh.
- cat << EOF
-Usage: configure [options] [host]
-Options: [defaults in brackets after descriptions]
-Configuration:
- --cache-file=FILE cache test results in FILE
- --help print this message
- --no-create do not create output files
- --quiet, --silent do not print \`checking...' messages
- --version print the version of autoconf that created configure
-Directory and file names:
- --prefix=PREFIX install architecture-independent files in PREFIX
- [$ac_default_prefix]
- --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX
- [same as prefix]
- --bindir=DIR user executables in DIR [EPREFIX/bin]
- --sbindir=DIR system admin executables in DIR [EPREFIX/sbin]
- --libexecdir=DIR program executables in DIR [EPREFIX/libexec]
- --datadir=DIR read-only architecture-independent data in DIR
- [PREFIX/share]
- --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc]
- --sharedstatedir=DIR modifiable architecture-independent data in DIR
- [PREFIX/com]
- --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var]
- --libdir=DIR object code libraries in DIR [EPREFIX/lib]
- --includedir=DIR C header files in DIR [PREFIX/include]
- --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include]
- --infodir=DIR info documentation in DIR [PREFIX/info]
- --mandir=DIR man documentation in DIR [PREFIX/man]
- --srcdir=DIR find the sources in DIR [configure dir or ..]
- --program-prefix=PREFIX prepend PREFIX to installed program names
- --program-suffix=SUFFIX append SUFFIX to installed program names
- --program-transform-name=PROGRAM
- run sed PROGRAM on installed program names
-EOF
- cat << EOF
-Host type:
- --build=BUILD configure for building on BUILD [BUILD=HOST]
- --host=HOST configure for HOST [guessed]
- --target=TARGET configure for TARGET [TARGET=HOST]
-Features and packages:
- --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no)
- --enable-FEATURE[=ARG] include FEATURE [ARG=yes]
- --with-PACKAGE[=ARG] use PACKAGE [ARG=yes]
- --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no)
- --x-includes=DIR X include files are in DIR
- --x-libraries=DIR X library files are in DIR
-EOF
- if test -n "$ac_help"; then
- echo "--enable and --with options recognized:$ac_help"
- fi
- exit 0 ;;
-
- -host | --host | --hos | --ho)
- ac_prev=host ;;
- -host=* | --host=* | --hos=* | --ho=*)
- host="$ac_optarg" ;;
-
- -includedir | --includedir | --includedi | --included | --include \
- | --includ | --inclu | --incl | --inc)
- ac_prev=includedir ;;
- -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \
- | --includ=* | --inclu=* | --incl=* | --inc=*)
- includedir="$ac_optarg" ;;
-
- -infodir | --infodir | --infodi | --infod | --info | --inf)
- ac_prev=infodir ;;
- -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)
- infodir="$ac_optarg" ;;
-
- -libdir | --libdir | --libdi | --libd)
- ac_prev=libdir ;;
- -libdir=* | --libdir=* | --libdi=* | --libd=*)
- libdir="$ac_optarg" ;;
-
- -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \
- | --libexe | --libex | --libe)
- ac_prev=libexecdir ;;
- -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \
- | --libexe=* | --libex=* | --libe=*)
- libexecdir="$ac_optarg" ;;
-
- -localstatedir | --localstatedir | --localstatedi | --localstated \
- | --localstate | --localstat | --localsta | --localst \
- | --locals | --local | --loca | --loc | --lo)
- ac_prev=localstatedir ;;
- -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \
- | --localstate=* | --localstat=* | --localsta=* | --localst=* \
- | --locals=* | --local=* | --loca=* | --loc=* | --lo=*)
- localstatedir="$ac_optarg" ;;
-
- -mandir | --mandir | --mandi | --mand | --man | --ma | --m)
- ac_prev=mandir ;;
- -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
- mandir="$ac_optarg" ;;
-
- -nfp | --nfp | --nf)
- # Obsolete; use --without-fp.
- with_fp=no ;;
-
- -no-create | --no-create | --no-creat | --no-crea | --no-cre \
- | --no-cr | --no-c)
- no_create=yes ;;
-
- -no-recursion | --no-recursion | --no-recursio | --no-recursi \
- | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)
- no_recursion=yes ;;
-
- -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \
- | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \
- | --oldin | --oldi | --old | --ol | --o)
- ac_prev=oldincludedir ;;
- -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \
- | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \
- | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)
- oldincludedir="$ac_optarg" ;;
-
- -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
- ac_prev=prefix ;;
- -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
- prefix="$ac_optarg" ;;
-
- -program-prefix | --program-prefix | --program-prefi | --program-pref \
- | --program-pre | --program-pr | --program-p)
- ac_prev=program_prefix ;;
- -program-prefix=* | --program-prefix=* | --program-prefi=* \
- | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
- program_prefix="$ac_optarg" ;;
-
- -program-suffix | --program-suffix | --program-suffi | --program-suff \
- | --program-suf | --program-su | --program-s)
- ac_prev=program_suffix ;;
- -program-suffix=* | --program-suffix=* | --program-suffi=* \
- | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
- program_suffix="$ac_optarg" ;;
-
- -program-transform-name | --program-transform-name \
- | --program-transform-nam | --program-transform-na \
- | --program-transform-n | --program-transform- \
- | --program-transform | --program-transfor \
- | --program-transfo | --program-transf \
- | --program-trans | --program-tran \
- | --progr-tra | --program-tr | --program-t)
- ac_prev=program_transform_name ;;
- -program-transform-name=* | --program-transform-name=* \
- | --program-transform-nam=* | --program-transform-na=* \
- | --program-transform-n=* | --program-transform-=* \
- | --program-transform=* | --program-transfor=* \
- | --program-transfo=* | --program-transf=* \
- | --program-trans=* | --program-tran=* \
- | --progr-tra=* | --program-tr=* | --program-t=*)
- program_transform_name="$ac_optarg" ;;
-
- -q | -quiet | --quiet | --quie | --qui | --qu | --q \
- | -silent | --silent | --silen | --sile | --sil)
- silent=yes ;;
-
- -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
- ac_prev=sbindir ;;
- -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
- | --sbi=* | --sb=*)
- sbindir="$ac_optarg" ;;
-
- -sharedstatedir | --sharedstatedir | --sharedstatedi \
- | --sharedstated | --sharedstate | --sharedstat | --sharedsta \
- | --sharedst | --shareds | --shared | --share | --shar \
- | --sha | --sh)
- ac_prev=sharedstatedir ;;
- -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \
- | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \
- | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \
- | --sha=* | --sh=*)
- sharedstatedir="$ac_optarg" ;;
-
- -site | --site | --sit)
- ac_prev=site ;;
- -site=* | --site=* | --sit=*)
- site="$ac_optarg" ;;
-
- -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
- ac_prev=srcdir ;;
- -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
- srcdir="$ac_optarg" ;;
-
- -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \
- | --syscon | --sysco | --sysc | --sys | --sy)
- ac_prev=sysconfdir ;;
- -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \
- | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)
- sysconfdir="$ac_optarg" ;;
-
- -target | --target | --targe | --targ | --tar | --ta | --t)
- ac_prev=target ;;
- -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
- target="$ac_optarg" ;;
-
- -v | -verbose | --verbose | --verbos | --verbo | --verb)
- verbose=yes ;;
-
- -version | --version | --versio | --versi | --vers)
- echo "configure generated by autoconf version 2.12"
- exit 0 ;;
-
- -with-* | --with-*)
- ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'`
- # Reject names that are not valid shell variable names.
- if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then
- { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
- fi
- ac_package=`echo $ac_package| sed 's/-/_/g'`
- case "$ac_option" in
- *=*) ;;
- *) ac_optarg=yes ;;
- esac
- eval "with_${ac_package}='$ac_optarg'" ;;
-
- -without-* | --without-*)
- ac_package=`echo $ac_option|sed -e 's/-*without-//'`
- # Reject names that are not valid shell variable names.
- if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then
- { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; }
- fi
- ac_package=`echo $ac_package| sed 's/-/_/g'`
- eval "with_${ac_package}=no" ;;
-
- --x)
- # Obsolete; use --with-x.
- with_x=yes ;;
-
- -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \
- | --x-incl | --x-inc | --x-in | --x-i)
- ac_prev=x_includes ;;
- -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
- | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
- x_includes="$ac_optarg" ;;
-
- -x-libraries | --x-libraries | --x-librarie | --x-librari \
- | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
- ac_prev=x_libraries ;;
- -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
- | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
- x_libraries="$ac_optarg" ;;
-
- -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; }
- ;;
-
- *=*)
- varname=`echo "$ac_option"|sed -e 's/=.*//'`
- # Reject names that aren't valid shell variable names.
- if test -n "`echo $varname| sed 's/[a-zA-Z0-9_]//g'`"; then
- { echo "configure: error: $varname: invalid shell variable name" 1>&2; exit 1; }
- fi
- val="`echo "$ac_option"|sed 's/[^=]*=//'`"
- test -n "$verbose" && echo " setting shell variable $varname to $val"
- eval "$varname='$val'"
- eval "export $varname" ;;
-
- *)
- if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then
- echo "configure: warning: $ac_option: invalid host type" 1>&2
- fi
- if test "x$nonopt" != xNONE; then
- { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; }
- fi
- nonopt="$ac_option"
- ;;
-
- esac
-done
-
-if test -n "$ac_prev"; then
- { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; }
-fi
-
-trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
-
-# File descriptor usage:
-# 0 standard input
-# 1 file creation
-# 2 errors and warnings
-# 3 some systems may open it to /dev/tty
-# 4 used on the Kubota Titan
-# 6 checking for... messages and results
-# 5 compiler messages saved in config.log
-if test "$silent" = yes; then
- exec 6>/dev/null
-else
- exec 6>&1
-fi
-exec 5>./config.log
-
-echo "\
-This file contains any messages produced by compilers while
-running configure, to aid debugging if configure makes a mistake.
-" 1>&5
-
-# Strip out --no-create and --no-recursion so they do not pile up.
-# Also quote any args containing shell metacharacters.
-ac_configure_args=
-for ac_arg
-do
- case "$ac_arg" in
- -no-create | --no-create | --no-creat | --no-crea | --no-cre \
- | --no-cr | --no-c) ;;
- -no-recursion | --no-recursion | --no-recursio | --no-recursi \
- | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;;
- *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*)
- ac_configure_args="$ac_configure_args '$ac_arg'" ;;
- *) ac_configure_args="$ac_configure_args $ac_arg" ;;
- esac
-done
-
-# NLS nuisances.
-# Only set these to C if already set. These must not be set unconditionally
-# because not all systems understand e.g. LANG=C (notably SCO).
-# Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'!
-# Non-C LC_CTYPE values break the ctype check.
-if test "${LANG+set}" = set; then LANG=C; export LANG; fi
-if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi
-if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi
-if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi
-
-# confdefs.h avoids OS command line length limits that DEFS can exceed.
-rm -rf conftest* confdefs.h
-# AIX cpp loses on an empty file, so make sure it contains at least a newline.
-echo > confdefs.h
-
-# A filename unique to this package, relative to the directory that
-# configure is in, which we can look for to find out if srcdir is correct.
-ac_unique_file=jcmaster.c
-
-# Find the source files, if location was not specified.
-if test -z "$srcdir"; then
- ac_srcdir_defaulted=yes
- # Try the directory containing this script, then its parent.
- ac_prog=$0
- ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'`
- test "x$ac_confdir" = "x$ac_prog" && ac_confdir=.
- srcdir=$ac_confdir
- if test ! -r $srcdir/$ac_unique_file; then
- srcdir=..
- fi
-else
- ac_srcdir_defaulted=no
-fi
-if test ! -r $srcdir/$ac_unique_file; then
- if test "$ac_srcdir_defaulted" = yes; then
- { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; }
- else
- { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; }
- fi
-fi
-srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'`
-
-# Prefer explicitly selected file to automatically selected ones.
-if test -z "$CONFIG_SITE"; then
- if test "x$prefix" != xNONE; then
- CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site"
- else
- CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site"
- fi
-fi
-for ac_site_file in $CONFIG_SITE; do
- if test -r "$ac_site_file"; then
- echo "loading site script $ac_site_file"
- . "$ac_site_file"
- fi
-done
-
-
-ac_ext=c
-# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5'
-ac_link='${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5'
-cross_compiling=$ac_cv_prog_cc_cross
-
-if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then
- # Stardent Vistra SVR4 grep lacks -e, says ghazi at caip.rutgers.edu.
- if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then
- ac_n= ac_c='
-' ac_t=' '
- else
- ac_n=-n ac_c= ac_t=
- fi
-else
- ac_n= ac_c='\c' ac_t=
-fi
-
-
-
-# Extract the first word of "gcc", so it can be a program name with args.
-set dummy gcc; ac_word=$2
-echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:538: checking for $ac_word" >&5
-if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
-else
- if test -n "$CC"; then
- ac_cv_prog_CC="$CC" # Let the user override the test.
-else
- IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
- for ac_dir in $PATH; do
- test -z "$ac_dir" && ac_dir=.
- if test -f $ac_dir/$ac_word; then
- ac_cv_prog_CC="gcc"
- break
- fi
- done
- IFS="$ac_save_ifs"
-fi
-fi
-CC="$ac_cv_prog_CC"
-if test -n "$CC"; then
- echo "$ac_t""$CC" 1>&6
-else
- echo "$ac_t""no" 1>&6
-fi
-
-if test -z "$CC"; then
- # Extract the first word of "cc", so it can be a program name with args.
-set dummy cc; ac_word=$2
-echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:567: checking for $ac_word" >&5
-if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
-else
- if test -n "$CC"; then
- ac_cv_prog_CC="$CC" # Let the user override the test.
-else
- IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
- ac_prog_rejected=no
- for ac_dir in $PATH; do
- test -z "$ac_dir" && ac_dir=.
- if test -f $ac_dir/$ac_word; then
- if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then
- ac_prog_rejected=yes
- continue
- fi
- ac_cv_prog_CC="cc"
- break
- fi
- done
- IFS="$ac_save_ifs"
-if test $ac_prog_rejected = yes; then
- # We found a bogon in the path, so make sure we never use it.
- set dummy $ac_cv_prog_CC
- shift
- if test $# -gt 0; then
- # We chose a different compiler from the bogus one.
- # However, it has the same basename, so the bogon will be chosen
- # first if we set CC to just the basename; use the full file name.
- shift
- set dummy "$ac_dir/$ac_word" "$@"
- shift
- ac_cv_prog_CC="$@"
- fi
-fi
-fi
-fi
-CC="$ac_cv_prog_CC"
-if test -n "$CC"; then
- echo "$ac_t""$CC" 1>&6
-else
- echo "$ac_t""no" 1>&6
-fi
-
- test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; }
-fi
-
-echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works""... $ac_c" 1>&6
-echo "configure:615: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5
-
-ac_ext=c
-# CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options.
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5'
-ac_link='${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5'
-cross_compiling=$ac_cv_prog_cc_cross
-
-cat > conftest.$ac_ext <<EOF
-#line 625 "configure"
-#include "confdefs.h"
-main(){return(0);}
-EOF
-if { (eval echo configure:629: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
- ac_cv_prog_cc_works=yes
- # If we can't run a trivial program, we are probably using a cross compiler.
- if (./conftest; exit) 2>/dev/null; then
- ac_cv_prog_cc_cross=no
- else
- ac_cv_prog_cc_cross=yes
- fi
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- ac_cv_prog_cc_works=no
-fi
-rm -fr conftest*
-
-echo "$ac_t""$ac_cv_prog_cc_works" 1>&6
-if test $ac_cv_prog_cc_works = no; then
- { echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; }
-fi
-echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6
-echo "configure:649: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5
-echo "$ac_t""$ac_cv_prog_cc_cross" 1>&6
-cross_compiling=$ac_cv_prog_cc_cross
-
-echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6
-echo "configure:654: checking whether we are using GNU C" >&5
-if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
-else
- cat > conftest.c <<EOF
-#ifdef __GNUC__
- yes;
-#endif
-EOF
-if { ac_try='${CC-cc} -E conftest.c'; { (eval echo configure:663: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then
- ac_cv_prog_gcc=yes
-else
- ac_cv_prog_gcc=no
-fi
-fi
-
-echo "$ac_t""$ac_cv_prog_gcc" 1>&6
-
-if test $ac_cv_prog_gcc = yes; then
- GCC=yes
- test "${CFLAGS+set}" = set || CFLAGS="-O2"
-else
- GCC=
- test "${CFLAGS+set}" = set || CFLAGS="-O"
-fi
-
-echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6
-echo "configure:681: checking how to run the C preprocessor" >&5
-# On Suns, sometimes $CPP names a directory.
-if test -n "$CPP" && test -d "$CPP"; then
- CPP=
-fi
-if test -z "$CPP"; then
-if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
-else
- # This must be in double quotes, not single quotes, because CPP may get
- # substituted into the Makefile and "${CC-cc}" will confuse make.
- CPP="${CC-cc} -E"
- # On the NeXT, cc -E runs the code through the compiler's parser,
- # not just through cpp.
- cat > conftest.$ac_ext <<EOF
-#line 696 "configure"
-#include "confdefs.h"
-#include <assert.h>
-Syntax Error
-EOF
-ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:702: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
-ac_err=`grep -v '^ *+' conftest.out`
-if test -z "$ac_err"; then
- :
-else
- echo "$ac_err" >&5
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- CPP="${CC-cc} -E -traditional-cpp"
- cat > conftest.$ac_ext <<EOF
-#line 713 "configure"
-#include "confdefs.h"
-#include <assert.h>
-Syntax Error
-EOF
-ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:719: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
-ac_err=`grep -v '^ *+' conftest.out`
-if test -z "$ac_err"; then
- :
-else
- echo "$ac_err" >&5
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- CPP=/lib/cpp
-fi
-rm -f conftest*
-fi
-rm -f conftest*
- ac_cv_prog_CPP="$CPP"
-fi
- CPP="$ac_cv_prog_CPP"
-else
- ac_cv_prog_CPP="$CPP"
-fi
-echo "$ac_t""$CPP" 1>&6
-
-echo $ac_n "checking for function prototypes""... $ac_c" 1>&6
-echo "configure:742: checking for function prototypes" >&5
-if eval "test \"`echo '$''{'ijg_cv_have_prototypes'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
-else
- cat > conftest.$ac_ext <<EOF
-#line 747 "configure"
-#include "confdefs.h"
-
-int testfunction (int arg1, int * arg2); /* check prototypes */
-struct methods_struct { /* check method-pointer declarations */
- int (*error_exit) (char *msgtext);
- int (*trace_message) (char *msgtext);
- int (*another_method) (void);
-};
-int testfunction (int arg1, int * arg2) /* check definitions */
-{ return arg2[arg1]; }
-int test2function (void) /* check void arg list */
-{ return 0; }
-
-int main() {
-
-; return 0; }
-EOF
-if { (eval echo configure:765: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
- rm -rf conftest*
- ijg_cv_have_prototypes=yes
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- ijg_cv_have_prototypes=no
-fi
-rm -f conftest*
-fi
-
-echo "$ac_t""$ijg_cv_have_prototypes" 1>&6
-if test $ijg_cv_have_prototypes = yes; then
- cat >> confdefs.h <<\EOF
-#define HAVE_PROTOTYPES
-EOF
-
-else
- echo Your compiler does not seem to know about function prototypes.
- echo Perhaps it needs a special switch to enable ANSI C mode.
- echo If so, we recommend running configure like this:
- echo " ./configure CC='cc -switch'"
- echo where -switch is the proper switch.
-fi
-ac_safe=`echo "stddef.h" | sed 'y%./+-%__p_%'`
-echo $ac_n "checking for stddef.h""... $ac_c" 1>&6
-echo "configure:792: checking for stddef.h" >&5
-if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
-else
- cat > conftest.$ac_ext <<EOF
-#line 797 "configure"
-#include "confdefs.h"
-#include <stddef.h>
-EOF
-ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:802: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
-ac_err=`grep -v '^ *+' conftest.out`
-if test -z "$ac_err"; then
- rm -rf conftest*
- eval "ac_cv_header_$ac_safe=yes"
-else
- echo "$ac_err" >&5
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- eval "ac_cv_header_$ac_safe=no"
-fi
-rm -f conftest*
-fi
-if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
- echo "$ac_t""yes" 1>&6
- cat >> confdefs.h <<\EOF
-#define HAVE_STDDEF_H
-EOF
-
-else
- echo "$ac_t""no" 1>&6
-fi
-
-ac_safe=`echo "stdlib.h" | sed 'y%./+-%__p_%'`
-echo $ac_n "checking for stdlib.h""... $ac_c" 1>&6
-echo "configure:828: checking for stdlib.h" >&5
-if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
-else
- cat > conftest.$ac_ext <<EOF
-#line 833 "configure"
-#include "confdefs.h"
-#include <stdlib.h>
-EOF
-ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:838: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
-ac_err=`grep -v '^ *+' conftest.out`
-if test -z "$ac_err"; then
- rm -rf conftest*
- eval "ac_cv_header_$ac_safe=yes"
-else
- echo "$ac_err" >&5
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- eval "ac_cv_header_$ac_safe=no"
-fi
-rm -f conftest*
-fi
-if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
- echo "$ac_t""yes" 1>&6
- cat >> confdefs.h <<\EOF
-#define HAVE_STDLIB_H
-EOF
-
-else
- echo "$ac_t""no" 1>&6
-fi
-
-ac_safe=`echo "string.h" | sed 'y%./+-%__p_%'`
-echo $ac_n "checking for string.h""... $ac_c" 1>&6
-echo "configure:864: checking for string.h" >&5
-if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
-else
- cat > conftest.$ac_ext <<EOF
-#line 869 "configure"
-#include "confdefs.h"
-#include <string.h>
-EOF
-ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:874: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
-ac_err=`grep -v '^ *+' conftest.out`
-if test -z "$ac_err"; then
- rm -rf conftest*
- eval "ac_cv_header_$ac_safe=yes"
-else
- echo "$ac_err" >&5
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- eval "ac_cv_header_$ac_safe=no"
-fi
-rm -f conftest*
-fi
-if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
- echo "$ac_t""yes" 1>&6
- :
-else
- echo "$ac_t""no" 1>&6
-cat >> confdefs.h <<\EOF
-#define NEED_BSD_STRINGS
-EOF
-
-fi
-
-echo $ac_n "checking for size_t""... $ac_c" 1>&6
-echo "configure:900: checking for size_t" >&5
-cat > conftest.$ac_ext <<EOF
-#line 902 "configure"
-#include "confdefs.h"
-
-#ifdef HAVE_STDDEF_H
-#include <stddef.h>
-#endif
-#ifdef HAVE_STDLIB_H
-#include <stdlib.h>
-#endif
-#include <stdio.h>
-#ifdef NEED_BSD_STRINGS
-#include <strings.h>
-#else
-#include <string.h>
-#endif
-typedef size_t my_size_t;
-
-int main() {
- my_size_t foovar;
-; return 0; }
-EOF
-if { (eval echo configure:923: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
- rm -rf conftest*
- ijg_size_t_ok=yes
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- ijg_size_t_ok="not ANSI, perhaps it is in sys/types.h"
-fi
-rm -f conftest*
-echo "$ac_t""$ijg_size_t_ok" 1>&6
-if test "$ijg_size_t_ok" != yes; then
-ac_safe=`echo "sys/types.h" | sed 'y%./+-%__p_%'`
-echo $ac_n "checking for sys/types.h""... $ac_c" 1>&6
-echo "configure:937: checking for sys/types.h" >&5
-if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
-else
- cat > conftest.$ac_ext <<EOF
-#line 942 "configure"
-#include "confdefs.h"
-#include <sys/types.h>
-EOF
-ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out"
-{ (eval echo configure:947: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; }
-ac_err=`grep -v '^ *+' conftest.out`
-if test -z "$ac_err"; then
- rm -rf conftest*
- eval "ac_cv_header_$ac_safe=yes"
-else
- echo "$ac_err" >&5
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- eval "ac_cv_header_$ac_safe=no"
-fi
-rm -f conftest*
-fi
-if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then
- echo "$ac_t""yes" 1>&6
- cat >> confdefs.h <<\EOF
-#define NEED_SYS_TYPES_H
-EOF
-
-cat > conftest.$ac_ext <<EOF
-#line 968 "configure"
-#include "confdefs.h"
-#include <sys/types.h>
-EOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
- egrep "size_t" >/dev/null 2>&1; then
- rm -rf conftest*
- ijg_size_t_ok="size_t is in sys/types.h"
-else
- rm -rf conftest*
- ijg_size_t_ok=no
-fi
-rm -f conftest*
-
-else
- echo "$ac_t""no" 1>&6
-ijg_size_t_ok=no
-fi
-
-echo "$ac_t""$ijg_size_t_ok" 1>&6
-if test "$ijg_size_t_ok" = no; then
- echo Type size_t is not defined in any of the usual places.
- echo Try putting '"typedef unsigned int size_t;"' in jconfig.h.
-fi
-fi
-echo $ac_n "checking for type unsigned char""... $ac_c" 1>&6
-echo "configure:994: checking for type unsigned char" >&5
-cat > conftest.$ac_ext <<EOF
-#line 996 "configure"
-#include "confdefs.h"
-
-int main() {
- unsigned char un_char;
-; return 0; }
-EOF
-if { (eval echo configure:1003: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
- rm -rf conftest*
- echo "$ac_t""yes" 1>&6
-cat >> confdefs.h <<\EOF
-#define HAVE_UNSIGNED_CHAR
-EOF
-
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- echo "$ac_t""no" 1>&6
-fi
-rm -f conftest*
-echo $ac_n "checking for type unsigned short""... $ac_c" 1>&6
-echo "configure:1018: checking for type unsigned short" >&5
-cat > conftest.$ac_ext <<EOF
-#line 1020 "configure"
-#include "confdefs.h"
-
-int main() {
- unsigned short un_short;
-; return 0; }
-EOF
-if { (eval echo configure:1027: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
- rm -rf conftest*
- echo "$ac_t""yes" 1>&6
-cat >> confdefs.h <<\EOF
-#define HAVE_UNSIGNED_SHORT
-EOF
-
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- echo "$ac_t""no" 1>&6
-fi
-rm -f conftest*
-echo $ac_n "checking for type void""... $ac_c" 1>&6
-echo "configure:1042: checking for type void" >&5
-cat > conftest.$ac_ext <<EOF
-#line 1044 "configure"
-#include "confdefs.h"
-
-/* Caution: a C++ compiler will insist on valid prototypes */
-typedef void * void_ptr; /* check void * */
-#ifdef HAVE_PROTOTYPES /* check ptr to function returning void */
-typedef void (*void_func) (int a, int b);
-#else
-typedef void (*void_func) ();
-#endif
-
-#ifdef HAVE_PROTOTYPES /* check void function result */
-void test3function (void_ptr arg1, void_func arg2)
-#else
-void test3function (arg1, arg2)
- void_ptr arg1;
- void_func arg2;
-#endif
-{
- char * locptr = (char *) arg1; /* check casting to and from void * */
- arg1 = (void *) locptr;
- (*arg2) (1, 2); /* check call of fcn returning void */
-}
-
-int main() {
-
-; return 0; }
-EOF
-if { (eval echo configure:1072: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
- rm -rf conftest*
- echo "$ac_t""yes" 1>&6
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- echo "$ac_t""no" 1>&6
-cat >> confdefs.h <<\EOF
-#define void char
-EOF
-
-fi
-rm -f conftest*
-
-echo $ac_n "checking for working const""... $ac_c" 1>&6
-echo "configure:1088: checking for working const" >&5
-if eval "test \"`echo '$''{'ac_cv_c_const'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
-else
- cat > conftest.$ac_ext <<EOF
-#line 1093 "configure"
-#include "confdefs.h"
-
-int main() {
-
-/* Ultrix mips cc rejects this. */
-typedef int charset[2]; const charset x;
-/* SunOS 4.1.1 cc rejects this. */
-char const *const *ccp;
-char **p;
-/* NEC SVR4.0.2 mips cc rejects this. */
-struct point {int x, y;};
-static struct point const zero = {0,0};
-/* AIX XL C 1.02.0.0 rejects this.
- It does not let you subtract one const X* pointer from another in an arm
- of an if-expression whose if-part is not a constant expression */
-const char *g = "string";
-ccp = &g + (g ? g-g : 0);
-/* HPUX 7.0 cc rejects these. */
-++ccp;
-p = (char**) ccp;
-ccp = (char const *const *) p;
-{ /* SCO 3.2v4 cc rejects this. */
- char *t;
- char const *s = 0 ? (char *) 0 : (char const *) 0;
-
- *t++ = 0;
-}
-{ /* Someone thinks the Sun supposedly-ANSI compiler will reject this. */
- int x[] = {25, 17};
- const int *foo = &x[0];
- ++foo;
-}
-{ /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */
- typedef const int *iptr;
- iptr p = 0;
- ++p;
-}
-{ /* AIX XL C 1.02.0.0 rejects this saying
- "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */
- struct s { int j; const int *ap[3]; };
- struct s *b; b->j = 5;
-}
-{ /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */
- const int foo = 10;
-}
-
-; return 0; }
-EOF
-if { (eval echo configure:1142: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
- rm -rf conftest*
- ac_cv_c_const=yes
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- ac_cv_c_const=no
-fi
-rm -f conftest*
-fi
-
-echo "$ac_t""$ac_cv_c_const" 1>&6
-if test $ac_cv_c_const = no; then
- cat >> confdefs.h <<\EOF
-#define const
-EOF
-
-fi
-
-echo $ac_n "checking for inline""... $ac_c" 1>&6
-echo "configure:1163: checking for inline" >&5
-ijg_cv_inline=""
-cat > conftest.$ac_ext <<EOF
-#line 1166 "configure"
-#include "confdefs.h"
-
-int main() {
-} __inline__ int foo() { return 0; }
-int bar() { return foo();
-; return 0; }
-EOF
-if { (eval echo configure:1174: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
- rm -rf conftest*
- ijg_cv_inline="__inline__"
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- cat > conftest.$ac_ext <<EOF
-#line 1182 "configure"
-#include "confdefs.h"
-
-int main() {
-} __inline int foo() { return 0; }
-int bar() { return foo();
-; return 0; }
-EOF
-if { (eval echo configure:1190: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
- rm -rf conftest*
- ijg_cv_inline="__inline"
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- cat > conftest.$ac_ext <<EOF
-#line 1198 "configure"
-#include "confdefs.h"
-
-int main() {
-} inline int foo() { return 0; }
-int bar() { return foo();
-; return 0; }
-EOF
-if { (eval echo configure:1206: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
- rm -rf conftest*
- ijg_cv_inline="inline"
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
-fi
-rm -f conftest*
-fi
-rm -f conftest*
-fi
-rm -f conftest*
-echo "$ac_t""$ijg_cv_inline" 1>&6
-cat >> confdefs.h <<EOF
-#define INLINE $ijg_cv_inline
-EOF
-
-echo $ac_n "checking for broken incomplete types""... $ac_c" 1>&6
-echo "configure:1224: checking for broken incomplete types" >&5
-cat > conftest.$ac_ext <<EOF
-#line 1226 "configure"
-#include "confdefs.h"
- typedef struct undefined_structure * undef_struct_ptr;
-int main() {
-
-; return 0; }
-EOF
-if { (eval echo configure:1233: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then
- rm -rf conftest*
- echo "$ac_t""ok" 1>&6
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- echo "$ac_t""broken" 1>&6
-cat >> confdefs.h <<\EOF
-#define INCOMPLETE_TYPES_BROKEN
-EOF
-
-fi
-rm -f conftest*
-echo $ac_n "checking for short external names""... $ac_c" 1>&6
-echo "configure:1248: checking for short external names" >&5
-cat > conftest.$ac_ext <<EOF
-#line 1250 "configure"
-#include "confdefs.h"
-
-int possibly_duplicate_function () { return 0; }
-int possibly_dupli_function () { return 1; }
-
-int main() {
-
-; return 0; }
-EOF
-if { (eval echo configure:1260: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
- rm -rf conftest*
- echo "$ac_t""ok" 1>&6
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- echo "$ac_t""short" 1>&6
-cat >> confdefs.h <<\EOF
-#define NEED_SHORT_EXTERNAL_NAMES
-EOF
-
-fi
-rm -f conftest*
-echo $ac_n "checking to see if char is signed""... $ac_c" 1>&6
-echo "configure:1275: checking to see if char is signed" >&5
-if test "$cross_compiling" = yes; then
- echo Assuming that char is signed on target machine.
-echo If it is unsigned, this will be a little bit inefficient.
-
-else
- cat > conftest.$ac_ext <<EOF
-#line 1282 "configure"
-#include "confdefs.h"
-
-#ifdef HAVE_PROTOTYPES
-int is_char_signed (int arg)
-#else
-int is_char_signed (arg)
- int arg;
-#endif
-{
- if (arg == 189) { /* expected result for unsigned char */
- return 0; /* type char is unsigned */
- }
- else if (arg != -67) { /* expected result for signed char */
- printf("Hmm, it seems 'char' is not eight bits wide on your machine.\n");
- printf("I fear the JPEG software will not work at all.\n\n");
- }
- return 1; /* assume char is signed otherwise */
-}
-char signed_char_check = (char) (-67);
-main() {
- exit(is_char_signed((int) signed_char_check));
-}
-EOF
-if { (eval echo configure:1306: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null
-then
- echo "$ac_t""no" 1>&6
-cat >> confdefs.h <<\EOF
-#define CHAR_IS_UNSIGNED
-EOF
-
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -fr conftest*
- echo "$ac_t""yes" 1>&6
-fi
-rm -fr conftest*
-fi
-
-echo $ac_n "checking to see if right shift is signed""... $ac_c" 1>&6
-echo "configure:1323: checking to see if right shift is signed" >&5
-if test "$cross_compiling" = yes; then
- echo "$ac_t""Assuming that right shift is signed on target machine." 1>&6
-else
- cat > conftest.$ac_ext <<EOF
-#line 1328 "configure"
-#include "confdefs.h"
-
-#ifdef HAVE_PROTOTYPES
-int is_shifting_signed (long arg)
-#else
-int is_shifting_signed (arg)
- long arg;
-#endif
-/* See whether right-shift on a long is signed or not. */
-{
- long res = arg >> 4;
-
- if (res == -0x7F7E80CL) { /* expected result for signed shift */
- return 1; /* right shift is signed */
- }
- /* see if unsigned-shift hack will fix it. */
- /* we can't just test exact value since it depends on width of long... */
- res |= (~0L) << (32-4);
- if (res == -0x7F7E80CL) { /* expected result now? */
- return 0; /* right shift is unsigned */
- }
- printf("Right shift isn't acting as I expect it to.\n");
- printf("I fear the JPEG software will not work at all.\n\n");
- return 0; /* try it with unsigned anyway */
-}
-main() {
- exit(is_shifting_signed(-0x7F7E80B1L));
-}
-EOF
-if { (eval echo configure:1358: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null
-then
- echo "$ac_t""no" 1>&6
-cat >> confdefs.h <<\EOF
-#define RIGHT_SHIFT_IS_UNSIGNED
-EOF
-
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -fr conftest*
- echo "$ac_t""yes" 1>&6
-fi
-rm -fr conftest*
-fi
-
-echo $ac_n "checking to see if fopen accepts b spec""... $ac_c" 1>&6
-echo "configure:1375: checking to see if fopen accepts b spec" >&5
-if test "$cross_compiling" = yes; then
- echo "$ac_t""Assuming that it does." 1>&6
-else
- cat > conftest.$ac_ext <<EOF
-#line 1380 "configure"
-#include "confdefs.h"
-
-#include <stdio.h>
-main() {
- if (fopen("conftestdata", "wb") != NULL)
- exit(0);
- exit(1);
-}
-EOF
-if { (eval echo configure:1390: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest && (./conftest; exit) 2>/dev/null
-then
- echo "$ac_t""yes" 1>&6
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -fr conftest*
- echo "$ac_t""no" 1>&6
-cat >> confdefs.h <<\EOF
-#define DONT_USE_B_MODE
-EOF
-
-fi
-rm -fr conftest*
-fi
-
-ac_aux_dir=
-for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do
- if test -f $ac_dir/install-sh; then
- ac_aux_dir=$ac_dir
- ac_install_sh="$ac_aux_dir/install-sh -c"
- break
- elif test -f $ac_dir/install.sh; then
- ac_aux_dir=$ac_dir
- ac_install_sh="$ac_aux_dir/install.sh -c"
- break
- fi
-done
-if test -z "$ac_aux_dir"; then
- { echo "configure: error: can not find install-sh or install.sh in $srcdir $srcdir/.. $srcdir/../.." 1>&2; exit 1; }
-fi
-ac_config_guess=$ac_aux_dir/config.guess
-ac_config_sub=$ac_aux_dir/config.sub
-ac_configure=$ac_aux_dir/configure # This should be Cygnus configure.
-
-# Find a good install program. We prefer a C program (faster),
-# so one script is as good as another. But avoid the broken or
-# incompatible versions:
-# SysV /etc/install, /usr/sbin/install
-# SunOS /usr/etc/install
-# IRIX /sbin/install
-# AIX /bin/install
-# AFS /usr/afsws/bin/install, which mishandles nonexistent args
-# SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff"
-# ./install, which can be erroneously created by make from ./install.sh.
-echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6
-echo "configure:1436: checking for a BSD compatible install" >&5
-if test -z "$INSTALL"; then
-if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
-else
- IFS="${IFS= }"; ac_save_IFS="$IFS"; IFS="${IFS}:"
- for ac_dir in $PATH; do
- # Account for people who put trailing slashes in PATH elements.
- case "$ac_dir/" in
- /|./|.//|/etc/*|/usr/sbin/*|/usr/etc/*|/sbin/*|/usr/afsws/bin/*|/usr/ucb/*) ;;
- *)
- # OSF1 and SCO ODT 3.0 have their own names for install.
- for ac_prog in ginstall installbsd scoinst install; do
- if test -f $ac_dir/$ac_prog; then
- if test $ac_prog = install &&
- grep dspmsg $ac_dir/$ac_prog >/dev/null 2>&1; then
- # AIX install. It has an incompatible calling convention.
- # OSF/1 installbsd also uses dspmsg, but is usable.
- :
- else
- ac_cv_path_install="$ac_dir/$ac_prog -c"
- break 2
- fi
- fi
- done
- ;;
- esac
- done
- IFS="$ac_save_IFS"
-
-fi
- if test "${ac_cv_path_install+set}" = set; then
- INSTALL="$ac_cv_path_install"
- else
- # As a last resort, use the slow shell script. We don't cache a
- # path for INSTALL within a source directory, because that will
- # break other packages using the cache if that directory is
- # removed, or if the path is relative.
- INSTALL="$ac_install_sh"
- fi
-fi
-echo "$ac_t""$INSTALL" 1>&6
-
-# Use test -z because SunOS4 sh mishandles braces in ${var-val}.
-# It thinks the first close brace ends the variable substitution.
-test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}'
-
-test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644'
-
-# Extract the first word of "ranlib", so it can be a program name with args.
-set dummy ranlib; ac_word=$2
-echo $ac_n "checking for $ac_word""... $ac_c" 1>&6
-echo "configure:1488: checking for $ac_word" >&5
-if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then
- echo $ac_n "(cached) $ac_c" 1>&6
-else
- if test -n "$RANLIB"; then
- ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test.
-else
- IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
- for ac_dir in $PATH; do
- test -z "$ac_dir" && ac_dir=.
- if test -f $ac_dir/$ac_word; then
- ac_cv_prog_RANLIB="ranlib"
- break
- fi
- done
- IFS="$ac_save_ifs"
- test -z "$ac_cv_prog_RANLIB" && ac_cv_prog_RANLIB=":"
-fi
-fi
-RANLIB="$ac_cv_prog_RANLIB"
-if test -n "$RANLIB"; then
- echo "$ac_t""$RANLIB" 1>&6
-else
- echo "$ac_t""no" 1>&6
-fi
-
-
-# Decide whether to use libtool,
-# and if so whether to build shared, static, or both flavors of library.
-LTSHARED="no"
-# Check whether --enable-shared or --disable-shared was given.
-if test "${enable_shared+set}" = set; then
- enableval="$enable_shared"
- LTSHARED="$enableval"
-fi
-
-LTSTATIC="no"
-# Check whether --enable-static or --disable-static was given.
-if test "${enable_static+set}" = set; then
- enableval="$enable_static"
- LTSTATIC="$enableval"
-fi
-
-if test "x$LTSHARED" != xno -o "x$LTSTATIC" != xno; then
- USELIBTOOL="yes"
- LIBTOOL="libtool"
- O="lo"
- A="la"
- LN='$(LIBTOOL) --mode=link $(CC)'
- INSTALL_LIB='$(LIBTOOL) --mode=install ${INSTALL}'
- INSTALL_PROGRAM="\$(LIBTOOL) --mode=install $INSTALL_PROGRAM"
-else
- USELIBTOOL="no"
- LIBTOOL=""
- O="o"
- A="a"
- LN='$(CC)'
- INSTALL_LIB="$INSTALL_DATA"
-fi
-
-
-
-
-
-
-# Configure libtool if needed.
-if test $USELIBTOOL = yes; then
- disable_shared=
- disable_static=
- if test "x$LTSHARED" = xno; then
- disable_shared="--disable-shared"
- fi
- if test "x$LTSTATIC" = xno; then
- disable_static="--disable-static"
- fi
- $srcdir/ltconfig $disable_shared $disable_static $srcdir/ltmain.sh
-fi
-
-# Select memory manager depending on user input.
-# If no "-enable-maxmem", use jmemnobs
-MEMORYMGR='jmemnobs.$(O)'
-MAXMEM="no"
-# Check whether --enable-maxmem or --disable-maxmem was given.
-if test "${enable_maxmem+set}" = set; then
- enableval="$enable_maxmem"
- MAXMEM="$enableval"
-fi
-
-# support --with-maxmem for backwards compatibility with IJG V5.
-# Check whether --with-maxmem or --without-maxmem was given.
-if test "${with_maxmem+set}" = set; then
- withval="$with_maxmem"
- MAXMEM="$withval"
-fi
-
-if test "x$MAXMEM" = xyes; then
- MAXMEM=1
-fi
-if test "x$MAXMEM" != xno; then
- if test -n "`echo $MAXMEM | sed 's/[0-9]//g'`"; then
- { echo "configure: error: non-numeric argument to --enable-maxmem" 1>&2; exit 1; }
- fi
- DEFAULTMAXMEM=`expr $MAXMEM \* 1048576`
-cat >> confdefs.h <<EOF
-#define DEFAULT_MAX_MEM ${DEFAULTMAXMEM}
-EOF
-
-echo $ac_n "checking for 'tmpfile()'""... $ac_c" 1>&6
-echo "configure:1596: checking for 'tmpfile()'" >&5
-cat > conftest.$ac_ext <<EOF
-#line 1598 "configure"
-#include "confdefs.h"
-#include <stdio.h>
-int main() {
- FILE * tfile = tmpfile();
-; return 0; }
-EOF
-if { (eval echo configure:1605: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
- rm -rf conftest*
- echo "$ac_t""yes" 1>&6
-MEMORYMGR='jmemansi.$(O)'
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- echo "$ac_t""no" 1>&6
-MEMORYMGR='jmemname.$(O)'
-cat >> confdefs.h <<\EOF
-#define NEED_SIGNAL_CATCHER
-EOF
-
-echo $ac_n "checking for 'mktemp()'""... $ac_c" 1>&6
-echo "configure:1620: checking for 'mktemp()'" >&5
-cat > conftest.$ac_ext <<EOF
-#line 1622 "configure"
-#include "confdefs.h"
-
-int main() {
- char fname[80]; mktemp(fname);
-; return 0; }
-EOF
-if { (eval echo configure:1629: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest; then
- rm -rf conftest*
- echo "$ac_t""yes" 1>&6
-else
- echo "configure: failed program was:" >&5
- cat conftest.$ac_ext >&5
- rm -rf conftest*
- echo "$ac_t""no" 1>&6
-cat >> confdefs.h <<\EOF
-#define NO_MKTEMP
-EOF
-
-fi
-rm -f conftest*
-fi
-rm -f conftest*
-fi
-
-
-# Extract the library version ID from jpeglib.h.
-echo $ac_n "checking libjpeg version number""... $ac_c" 1>&6
-echo "configure:1650: checking libjpeg version number" >&5
-JPEG_LIB_VERSION=`sed -e '/^#define JPEG_LIB_VERSION/!d' -e 's/^[^0-9]*\([0-9][0-9]*\).*$/\1/' $srcdir/jpeglib.h`
-echo "$ac_t""$JPEG_LIB_VERSION" 1>&6
-
-
-# Prepare to massage makefile.cfg correctly.
-if test $ijg_cv_have_prototypes = yes; then
- A2K_DEPS=""
- COM_A2K="# "
-else
- A2K_DEPS="ansi2knr"
- COM_A2K=""
-fi
-
-
-# ansi2knr needs -DBSD if string.h is missing
-if test $ac_cv_header_string_h = no; then
- ANSI2KNRFLAGS="-DBSD"
-else
- ANSI2KNRFLAGS=""
-fi
-
-# Substitutions to enable or disable libtool-related stuff
-if test $USELIBTOOL = yes -a $ijg_cv_have_prototypes = yes; then
- COM_LT=""
-else
- COM_LT="# "
-fi
-
-if test "x$LTSHARED" != xno; then
- FORCE_INSTALL_LIB="install-lib"
-else
- FORCE_INSTALL_LIB=""
-fi
-
-# Set up -I directives
-if test "x$srcdir" = x.; then
- INCLUDEFLAGS='-I$(srcdir)'
-else
- INCLUDEFLAGS='-I. -I$(srcdir)'
-fi
-
-trap '' 1 2 15
-
-trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15
-
-test "x$prefix" = xNONE && prefix=$ac_default_prefix
-# Let make expand exec_prefix.
-test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
-
-# Any assignment to VPATH causes Sun make to only execute
-# the first set of double-colon rules, so remove it if not needed.
-# If there is a colon in the path, we need to keep it.
-if test "x$srcdir" = x.; then
- ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d'
-fi
-
-trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15
-
-DEFS=-DHAVE_CONFIG_H
-
-# Without the "./", some shells look in PATH for config.status.
-: ${CONFIG_STATUS=./config.status}
-
-echo creating $CONFIG_STATUS
-rm -f $CONFIG_STATUS
-cat > $CONFIG_STATUS <<EOF
-#! /bin/sh
-# Generated automatically by configure.
-# Run this file to recreate the current configuration.
-# This directory was configured as follows,
-# on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
-#
-# $0 $ac_configure_args
-#
-# Compiler output produced by configure, useful for debugging
-# configure, is in ./config.log if it exists.
-
-ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]"
-for ac_option
-do
- case "\$ac_option" in
- -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
- echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion"
- exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;;
- -version | --version | --versio | --versi | --vers | --ver | --ve | --v)
- echo "$CONFIG_STATUS generated by autoconf version 2.12"
- exit 0 ;;
- -help | --help | --hel | --he | --h)
- echo "\$ac_cs_usage"; exit 0 ;;
- *) echo "\$ac_cs_usage"; exit 1 ;;
- esac
-done
-
-ac_given_srcdir=$srcdir
-ac_given_INSTALL="$INSTALL"
-
-trap 'rm -fr `echo "Makefile:makefile.cfg jconfig.h:jconfig.cfg" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15
-EOF
-cat >> $CONFIG_STATUS <<EOF
-
-# Protect against being on the right side of a sed subst in config.status.
-sed 's/%@/@@/; s/@%/@@/; s/%g\$/@g/; /@g\$/s/[\\\\&%]/\\\\&/g;
- s/@@/%@/; s/@@/@%/; s/@g\$/%g/' > conftest.subs <<\\CEOF
-$ac_vpsub
-$extrasub
-s%@CFLAGS@%$CFLAGS%g
-s%@CPPFLAGS@%$CPPFLAGS%g
-s%@CXXFLAGS@%$CXXFLAGS%g
-s%@DEFS@%$DEFS%g
-s%@LDFLAGS@%$LDFLAGS%g
-s%@LIBS@%$LIBS%g
-s%@exec_prefix@%$exec_prefix%g
-s%@prefix@%$prefix%g
-s%@program_transform_name@%$program_transform_name%g
-s%@bindir@%$bindir%g
-s%@sbindir@%$sbindir%g
-s%@libexecdir@%$libexecdir%g
-s%@datadir@%$datadir%g
-s%@sysconfdir@%$sysconfdir%g
-s%@sharedstatedir@%$sharedstatedir%g
-s%@localstatedir@%$localstatedir%g
-s%@libdir@%$libdir%g
-s%@includedir@%$includedir%g
-s%@oldincludedir@%$oldincludedir%g
-s%@infodir@%$infodir%g
-s%@mandir@%$mandir%g
-s%@CC@%$CC%g
-s%@CPP@%$CPP%g
-s%@INSTALL_PROGRAM@%$INSTALL_PROGRAM%g
-s%@INSTALL_DATA@%$INSTALL_DATA%g
-s%@RANLIB@%$RANLIB%g
-s%@LIBTOOL@%$LIBTOOL%g
-s%@O@%$O%g
-s%@A@%$A%g
-s%@LN@%$LN%g
-s%@INSTALL_LIB@%$INSTALL_LIB%g
-s%@MEMORYMGR@%$MEMORYMGR%g
-s%@JPEG_LIB_VERSION@%$JPEG_LIB_VERSION%g
-s%@A2K_DEPS@%$A2K_DEPS%g
-s%@COM_A2K@%$COM_A2K%g
-s%@ANSI2KNRFLAGS@%$ANSI2KNRFLAGS%g
-s%@COM_LT@%$COM_LT%g
-s%@FORCE_INSTALL_LIB@%$FORCE_INSTALL_LIB%g
-s%@INCLUDEFLAGS@%$INCLUDEFLAGS%g
-
-CEOF
-EOF
-
-cat >> $CONFIG_STATUS <<\EOF
-
-# Split the substitutions into bite-sized pieces for seds with
-# small command number limits, like on Digital OSF/1 and HP-UX.
-ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script.
-ac_file=1 # Number of current file.
-ac_beg=1 # First line for current file.
-ac_end=$ac_max_sed_cmds # Line after last line for current file.
-ac_more_lines=:
-ac_sed_cmds=""
-while $ac_more_lines; do
- if test $ac_beg -gt 1; then
- sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file
- else
- sed "${ac_end}q" conftest.subs > conftest.s$ac_file
- fi
- if test ! -s conftest.s$ac_file; then
- ac_more_lines=false
- rm -f conftest.s$ac_file
- else
- if test -z "$ac_sed_cmds"; then
- ac_sed_cmds="sed -f conftest.s$ac_file"
- else
- ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file"
- fi
- ac_file=`expr $ac_file + 1`
- ac_beg=$ac_end
- ac_end=`expr $ac_end + $ac_max_sed_cmds`
- fi
-done
-if test -z "$ac_sed_cmds"; then
- ac_sed_cmds=cat
-fi
-EOF
-
-cat >> $CONFIG_STATUS <<EOF
-
-CONFIG_FILES=\${CONFIG_FILES-"Makefile:makefile.cfg"}
-EOF
-cat >> $CONFIG_STATUS <<\EOF
-for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then
- # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in".
- case "$ac_file" in
- *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'`
- ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;;
- *) ac_file_in="${ac_file}.in" ;;
- esac
-
- # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories.
-
- # Remove last slash and all that follows it. Not all systems have dirname.
- ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'`
- if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then
- # The file is in a subdirectory.
- test ! -d "$ac_dir" && mkdir "$ac_dir"
- ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`"
- # A "../" for each directory in $ac_dir_suffix.
- ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'`
- else
- ac_dir_suffix= ac_dots=
- fi
-
- case "$ac_given_srcdir" in
- .) srcdir=.
- if test -z "$ac_dots"; then top_srcdir=.
- else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;;
- /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;;
- *) # Relative path.
- srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix"
- top_srcdir="$ac_dots$ac_given_srcdir" ;;
- esac
-
- case "$ac_given_INSTALL" in
- [/$]*) INSTALL="$ac_given_INSTALL" ;;
- *) INSTALL="$ac_dots$ac_given_INSTALL" ;;
- esac
-
- echo creating "$ac_file"
- rm -f "$ac_file"
- configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure."
- case "$ac_file" in
- *Makefile*) ac_comsub="1i\\
-# $configure_input" ;;
- *) ac_comsub= ;;
- esac
-
- ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"`
- sed -e "$ac_comsub
-s%@configure_input@%$configure_input%g
-s%@srcdir@%$srcdir%g
-s%@top_srcdir@%$top_srcdir%g
-s%@INSTALL@%$INSTALL%g
-" $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file
-fi; done
-rm -f conftest.s*
-
-# These sed commands are passed to sed as "A NAME B NAME C VALUE D", where
-# NAME is the cpp macro being defined and VALUE is the value it is being given.
-#
-# ac_d sets the value in "#define NAME VALUE" lines.
-ac_dA='s%^\([ ]*\)#\([ ]*define[ ][ ]*\)'
-ac_dB='\([ ][ ]*\)[^ ]*%\1#\2'
-ac_dC='\3'
-ac_dD='%g'
-# ac_u turns "#undef NAME" with trailing blanks into "#define NAME VALUE".
-ac_uA='s%^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)'
-ac_uB='\([ ]\)%\1#\2define\3'
-ac_uC=' '
-ac_uD='\4%g'
-# ac_e turns "#undef NAME" without trailing blanks into "#define NAME VALUE".
-ac_eA='s%^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)'
-ac_eB='$%\1#\2define\3'
-ac_eC=' '
-ac_eD='%g'
-
-if test "${CONFIG_HEADERS+set}" != set; then
-EOF
-cat >> $CONFIG_STATUS <<EOF
- CONFIG_HEADERS="jconfig.h:jconfig.cfg"
-EOF
-cat >> $CONFIG_STATUS <<\EOF
-fi
-for ac_file in .. $CONFIG_HEADERS; do if test "x$ac_file" != x..; then
- # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in".
- case "$ac_file" in
- *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'`
- ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;;
- *) ac_file_in="${ac_file}.in" ;;
- esac
-
- echo creating $ac_file
-
- rm -f conftest.frag conftest.in conftest.out
- ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"`
- cat $ac_file_inputs > conftest.in
-
-EOF
-
-# Transform confdefs.h into a sed script conftest.vals that substitutes
-# the proper values into config.h.in to produce config.h. And first:
-# Protect against being on the right side of a sed subst in config.status.
-# Protect against being in an unquoted here document in config.status.
-rm -f conftest.vals
-cat > conftest.hdr <<\EOF
-s/[\\&%]/\\&/g
-s%[\\$`]%\\&%g
-s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%${ac_dA}\1${ac_dB}\1${ac_dC}\2${ac_dD}%gp
-s%ac_d%ac_u%gp
-s%ac_u%ac_e%gp
-EOF
-sed -n -f conftest.hdr confdefs.h > conftest.vals
-rm -f conftest.hdr
-
-# This sed command replaces #undef with comments. This is necessary, for
-# example, in the case of _POSIX_SOURCE, which is predefined and required
-# on some systems where configure will not decide to define it.
-cat >> conftest.vals <<\EOF
-EOF
-
-# Break up conftest.vals because some shells have a limit on
-# the size of here documents, and old seds have small limits too.
-
-rm -f conftest.tail
-while :
-do
- ac_lines=`grep -c . conftest.vals`
- # grep -c gives empty output for an empty file on some AIX systems.
- if test -z "$ac_lines" || test "$ac_lines" -eq 0; then break; fi
- # Write a limited-size here document to conftest.frag.
- echo ' cat > conftest.frag <<CEOF' >> $CONFIG_STATUS
- sed ${ac_max_here_lines}q conftest.vals >> $CONFIG_STATUS
- echo 'CEOF
- sed -f conftest.frag conftest.in > conftest.out
- rm -f conftest.in
- mv conftest.out conftest.in
-' >> $CONFIG_STATUS
- sed 1,${ac_max_here_lines}d conftest.vals > conftest.tail
- rm -f conftest.vals
- mv conftest.tail conftest.vals
-done
-rm -f conftest.vals
-
-cat >> $CONFIG_STATUS <<\EOF
- rm -f conftest.frag conftest.h
- echo "/* $ac_file. Generated automatically by configure. */" > conftest.h
- cat conftest.in >> conftest.h
- rm -f conftest.in
- if cmp -s $ac_file conftest.h 2>/dev/null; then
- echo "$ac_file is unchanged"
- rm -f conftest.h
- else
- # Remove last slash and all that follows it. Not all systems have dirname.
- ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'`
- if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then
- # The file is in a subdirectory.
- test ! -d "$ac_dir" && mkdir "$ac_dir"
- fi
- rm -f $ac_file
- mv conftest.h $ac_file
- fi
-fi; done
-
-EOF
-cat >> $CONFIG_STATUS <<EOF
-
-EOF
-cat >> $CONFIG_STATUS <<\EOF
-
-exit 0
-EOF
-chmod +x $CONFIG_STATUS
-rm -fr confdefs* $ac_clean_files
-test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1
-
diff --git a/SuperBuild/patches/LIBKML/CMakeLists.txt b/SuperBuild/patches/LIBKML/CMakeLists.txt
deleted file mode 100644
index 8eb5dbd..0000000
--- a/SuperBuild/patches/LIBKML/CMakeLists.txt
+++ /dev/null
@@ -1,404 +0,0 @@
-cmake_minimum_required(VERSION 2.8.3)
-
-project(libkml)
-
-set(libkml_VERSION_MAJOR "1")
-set(libkml_VERSION_MINOR "3")
-set(libkml_VERSION_PATCH "0")
-
-# Version string should not include patch level. The major.minor is
-# enough to distinguish available features of the library.
-set(libkml_VERSION_STRING "${libkml_VERSION_MAJOR}.${libkml_VERSION_MINOR}.${libkml_VERSION_PATCH}")
-
-set(BUILD_SHARED_LIBS ON)
-if(MSVC)
-set(BUILD_SHARED_LIBS OFF) #force off
-endif()
-
-# Allow sources in subdirectories to see the include files.
-include_directories(${CMAKE_CURRENT_SOURCE_DIR}/src)
-#include_directories(${CMAKE_CURRENT_SOURCE_DIR}/third_party)
-
-find_package(Boost 1.35.0)
-mark_as_advanced(Boost_DIR)
-if(Boost_FOUND)
- message(STATUS " Found Boost version ${Boost_VERSION}")
-else()
- message(FATAL_ERROR "Cannot build libkml project without boost library (>1.35.0)")
-endif()
-include_directories(${Boost_INCLUDE_DIR})
-
-find_package(EXPAT)
-include_directories(${EXPAT_INCLUDE_DIR})
-
-set(LIBKML_COMPILE_ZLIB OFF)
-if(WIN32 AND (NOT BORLAND))
- set(LIBKML_COMPILE_ZLIB ON)
- if(MSVC)
- set(LIBKML_COMPILE_ZLIB OFF)
- endif()
-endif()
-
-
-include_directories(${CMAKE_CURRENT_SOURCE_DIR}/third_party/uriparser-0.7.5/include)
-include_directories(${CMAKE_CURRENT_SOURCE_DIR}/third_party/uriparser-0.7.5/include/uriparser)
-
-# ---------- Base ------------------------------------------------
-set(libkmlbase_la_SOURCES_DIR ${CMAKE_CURRENT_SOURCE_DIR}/src/kml/base)
-include_directories(${libkmlbase_la_SOURCES_DIR})
-set(libkmlbase_la_SOURCES
- ${libkmlbase_la_SOURCES_DIR}/attributes.cc
- ${libkmlbase_la_SOURCES_DIR}/csv_splitter.cc
- ${libkmlbase_la_SOURCES_DIR}/date_time.cc
- ${libkmlbase_la_SOURCES_DIR}/expat_handler_ns.cc
- ${libkmlbase_la_SOURCES_DIR}/expat_parser.cc
- ${libkmlbase_la_SOURCES_DIR}/file.cc
- ${libkmlbase_la_SOURCES_DIR}/math_util.cc
- ${libkmlbase_la_SOURCES_DIR}/mimetypes.cc
- ${libkmlbase_la_SOURCES_DIR}/referent.cc
- ${libkmlbase_la_SOURCES_DIR}/string_util.cc
- ${libkmlbase_la_SOURCES_DIR}/time_util.cc
- ${libkmlbase_la_SOURCES_DIR}/uri_parser.cc
- ${libkmlbase_la_SOURCES_DIR}/version.cc
- ${libkmlbase_la_SOURCES_DIR}/xml_namespaces.cc
- ${libkmlbase_la_SOURCES_DIR}/zip_file.cc
-
-)
-if(UNIX)
- set(libkmlbase_la_SOURCES ${libkmlbase_la_SOURCES}
- ${libkmlbase_la_SOURCES_DIR}/file_posix.cc )
-else()
- set(libkmlbase_la_SOURCES ${libkmlbase_la_SOURCES}
- ${libkmlbase_la_SOURCES_DIR}/file_win32.cc
- ${CMAKE_CURRENT_SOURCE_DIR}/src/stdafx.cpp
- ${CMAKE_CURRENT_SOURCE_DIR}/src/stdafx.h )
-endif()
-
-# ---------- Convenience -------------------------------------------
-set(libkmlconvenience_la_SOURCES_DIR "${CMAKE_CURRENT_SOURCE_DIR}/src/kml/convenience")
-include_directories(${libkmlconvenience_la_SOURCES_DIR})
-set(libkmlconvenience_la_SOURCES
- ${libkmlconvenience_la_SOURCES_DIR}/atom_util.cc
- ${libkmlconvenience_la_SOURCES_DIR}/convenience.cc
- ${libkmlconvenience_la_SOURCES_DIR}/csv_file.cc
- ${libkmlconvenience_la_SOURCES_DIR}/csv_parser.cc
- ${libkmlconvenience_la_SOURCES_DIR}/feature_list.cc
- ${libkmlconvenience_la_SOURCES_DIR}/google_doc_list.cc
- ${libkmlconvenience_la_SOURCES_DIR}/google_maps_data.cc
- ${libkmlconvenience_la_SOURCES_DIR}/google_picasa_web.cc
- ${libkmlconvenience_la_SOURCES_DIR}/google_spreadsheets.cc
- ${libkmlconvenience_la_SOURCES_DIR}/http_client.cc
- ${libkmlconvenience_la_SOURCES_DIR}/kmz_check_links.cc
-)
-
-
-# ---------- Dom ------------------------------------------------
-set(libkmldom_la_SOURCES_DIR "${CMAKE_CURRENT_SOURCE_DIR}/src/kml/dom")
-include_directories(${libkmldom_la_SOURCES_DIR})
-set(libkmldom_la_SOURCES
- ${libkmldom_la_SOURCES_DIR}/abstractlatlonbox.cc
- ${libkmldom_la_SOURCES_DIR}/abstractview.cc
- ${libkmldom_la_SOURCES_DIR}/atom.cc
- ${libkmldom_la_SOURCES_DIR}/balloonstyle.cc
- ${libkmldom_la_SOURCES_DIR}/colorstyle.cc
- ${libkmldom_la_SOURCES_DIR}/container.cc
- ${libkmldom_la_SOURCES_DIR}/document.cc
- ${libkmldom_la_SOURCES_DIR}/element.cc
- ${libkmldom_la_SOURCES_DIR}/extendeddata.cc
- ${libkmldom_la_SOURCES_DIR}/feature.cc
- ${libkmldom_la_SOURCES_DIR}/folder.cc
- ${libkmldom_la_SOURCES_DIR}/geometry.cc
- ${libkmldom_la_SOURCES_DIR}/gx_timeprimitive.cc
- ${libkmldom_la_SOURCES_DIR}/gx_tour.cc
- ${libkmldom_la_SOURCES_DIR}/hotspot.cc
- ${libkmldom_la_SOURCES_DIR}/iconstyle.cc
- ${libkmldom_la_SOURCES_DIR}/kml22.cc
- ${libkmldom_la_SOURCES_DIR}/kml_cast.cc
- ${libkmldom_la_SOURCES_DIR}/kml.cc
- ${libkmldom_la_SOURCES_DIR}/kml_factory.cc
- ${libkmldom_la_SOURCES_DIR}/kml_handler.cc
- ${libkmldom_la_SOURCES_DIR}/kml_handler_ns.cc
- ${libkmldom_la_SOURCES_DIR}/labelstyle.cc
- ${libkmldom_la_SOURCES_DIR}/linestyle.cc
- ${libkmldom_la_SOURCES_DIR}/link.cc
- ${libkmldom_la_SOURCES_DIR}/liststyle.cc
- ${libkmldom_la_SOURCES_DIR}/model.cc
- ${libkmldom_la_SOURCES_DIR}/networklink.cc
- ${libkmldom_la_SOURCES_DIR}/networklinkcontrol.cc
- ${libkmldom_la_SOURCES_DIR}/object.cc
- ${libkmldom_la_SOURCES_DIR}/overlay.cc
- ${libkmldom_la_SOURCES_DIR}/parser.cc
- ${libkmldom_la_SOURCES_DIR}/placemark.cc
- ${libkmldom_la_SOURCES_DIR}/polystyle.cc
- ${libkmldom_la_SOURCES_DIR}/region.cc
- ${libkmldom_la_SOURCES_DIR}/schema.cc
- ${libkmldom_la_SOURCES_DIR}/serializer.cc
- ${libkmldom_la_SOURCES_DIR}/snippet.cc
- ${libkmldom_la_SOURCES_DIR}/style.cc
- ${libkmldom_la_SOURCES_DIR}/stylemap.cc
- ${libkmldom_la_SOURCES_DIR}/styleselector.cc
- ${libkmldom_la_SOURCES_DIR}/substyle.cc
- ${libkmldom_la_SOURCES_DIR}/timeprimitive.cc
- ${libkmldom_la_SOURCES_DIR}/vec2.cc
- ${libkmldom_la_SOURCES_DIR}/visitor.cc
- ${libkmldom_la_SOURCES_DIR}/visitor_driver.cc
- ${libkmldom_la_SOURCES_DIR}/xal.cc
- ${libkmldom_la_SOURCES_DIR}/xml_serializer.cc
- ${libkmldom_la_SOURCES_DIR}/xsd.cc
-)
-
-
-# ---------- Engine ------------------------------------------------
-set(libkmlengine_la_SOURCES_DIR "${CMAKE_CURRENT_SOURCE_DIR}/src/kml/engine")
-include_directories(${libkmlengine_la_SOURCES_DIR})
-set(libkmlengine_la_SOURCES
- ${libkmlengine_la_SOURCES_DIR}/clone.cc
- ${libkmlengine_la_SOURCES_DIR}/entity_mapper.cc
- ${libkmlengine_la_SOURCES_DIR}/feature_balloon.cc
- ${libkmlengine_la_SOURCES_DIR}/feature_view.cc
- ${libkmlengine_la_SOURCES_DIR}/feature_visitor.cc
- ${libkmlengine_la_SOURCES_DIR}/find.cc
- ${libkmlengine_la_SOURCES_DIR}/find_xml_namespaces.cc
- ${libkmlengine_la_SOURCES_DIR}/get_link_parents.cc
- ${libkmlengine_la_SOURCES_DIR}/get_links.cc
- ${libkmlengine_la_SOURCES_DIR}/href.cc
- ${libkmlengine_la_SOURCES_DIR}/id_mapper.cc
- ${libkmlengine_la_SOURCES_DIR}/kml_cache.cc
- ${libkmlengine_la_SOURCES_DIR}/kml_file.cc
- ${libkmlengine_la_SOURCES_DIR}/kml_stream.cc
- ${libkmlengine_la_SOURCES_DIR}/kml_uri.cc
- ${libkmlengine_la_SOURCES_DIR}/kmz_cache.cc
- ${libkmlengine_la_SOURCES_DIR}/kmz_file.cc
- ${libkmlengine_la_SOURCES_DIR}/link_util.cc
- ${libkmlengine_la_SOURCES_DIR}/location_util.cc
- ${libkmlengine_la_SOURCES_DIR}/merge.cc
- ${libkmlengine_la_SOURCES_DIR}/parse_old_schema.cc
- ${libkmlengine_la_SOURCES_DIR}/style_inliner.cc
- ${libkmlengine_la_SOURCES_DIR}/style_merger.cc
- ${libkmlengine_la_SOURCES_DIR}/style_resolver.cc
- ${libkmlengine_la_SOURCES_DIR}/style_splitter.cc
- ${libkmlengine_la_SOURCES_DIR}/update.cc
- ${libkmlengine_la_SOURCES_DIR}/update_processor.cc
-)
-
-
-# ---------- Regionator ------------------------------------------------
-set(libkmlregionator_la_SOURCES_DIR "${CMAKE_CURRENT_SOURCE_DIR}/src/kml/regionator")
-include_directories(${libkmlregionator_la_SOURCES_DIR})
-set(libkmlregionator_la_SOURCES
- ${libkmlregionator_la_SOURCES_DIR}/feature_list_region_handler.cc
- ${libkmlregionator_la_SOURCES_DIR}/regionator.cc
- ${libkmlregionator_la_SOURCES_DIR}/regionator_util.cc
-)
-
-# ---------- XSD ------------------------------------------------
-set(libkmlxsd_la_SOURCES_DIR "${CMAKE_CURRENT_SOURCE_DIR}/src/kml/xsd")
-include_directories(${libkmlxsd_la_SOURCES_DIR})
-set(libkmlxsd_la_SOURCES
- ${libkmlxsd_la_SOURCES_DIR}/xsd_complex_type.cc
- ${libkmlxsd_la_SOURCES_DIR}/xsd_element.cc
- ${libkmlxsd_la_SOURCES_DIR}/xsd_file.cc
- ${libkmlxsd_la_SOURCES_DIR}/xsd_handler.cc
- ${libkmlxsd_la_SOURCES_DIR}/xsd_primitive_type.cc
- ${libkmlxsd_la_SOURCES_DIR}/xst_parser.cc
- ${libkmlxsd_la_SOURCES_DIR}/xsd_util.cc
-
-)
-
-# ---------- Minizip ------------------------------------------------
-include_directories("${CMAKE_CURRENT_SOURCE_DIR}/third_party/zlib-1.2.3")
-include_directories("${CMAKE_CURRENT_SOURCE_DIR}/third_party/zlib-1.2.3/contrib")
-set(libminizip_la_SOURCES_DIR "${CMAKE_CURRENT_SOURCE_DIR}/third_party/zlib-1.2.3/contrib/minizip")
-include_directories(${libminizip_la_SOURCES_DIR})
-set(libminizip_la_SOURCES
- ${libminizip_la_SOURCES_DIR}/unzip.c
- ${libminizip_la_SOURCES_DIR}/ioapi.c
- ${libminizip_la_SOURCES_DIR}/zip.c
- ${libminizip_la_SOURCES_DIR}/iomem_simple.c
-)
-
-
-if(MSVC)
- list(APPEND libminizip_la_SOURCES ${libminizip_la_SOURCES_DIR}/iowin32.c)
-endif()
-
-## Only for Windows Visual Studio and Mac OSX
-#set(libzlib_src_la_SOURCES "")
-#if(WIN32)
-# if(NOT BORLAND)
-## if(NOT CYGWIN)
-# include_directories("${CMAKE_CURRENT_SOURCE_DIR}/third_party/zlib-1.2.3.src")
-# set(libzlib_src_la_SOURCES_DIR "${CMAKE_CURRENT_SOURCE_DIR}/third_party/zlib-1.2.3.src")
-# set(libzlib_src_la_SOURCES
-# ${libzlib_src_la_SOURCES_DIR}/adler32.c
-# ${libzlib_src_la_SOURCES_DIR}/compress.c
-# ${libzlib_src_la_SOURCES_DIR}/crc32.c
-# ${libzlib_src_la_SOURCES_DIR}/deflate.c
-# ${libzlib_src_la_SOURCES_DIR}/inflate.c
-# ${libzlib_src_la_SOURCES_DIR}/gzio.c
-# ${libzlib_src_la_SOURCES_DIR}/infback.c
-# ${libzlib_src_la_SOURCES_DIR}/inffast.c
-# ${libzlib_src_la_SOURCES_DIR}/inftrees.c
-# ${libzlib_src_la_SOURCES_DIR}/trees.c
-# ${libzlib_src_la_SOURCES_DIR}/uncompr.c
-# ${libzlib_src_la_SOURCES_DIR}/zutil.c )
-## endif()
-# endif()
-#endif()
-#if(APPLE)
-# include_directories("${CMAKE_CURRENT_SOURCE_DIR}/third_party/zlib-1.2.3.src")
-# set(libzlib_src_la_SOURCES_DIR "${CMAKE_CURRENT_SOURCE_DIR}/third_party/zlib-1.2.3.src")
-# set(libzlib_src_la_SOURCES
-# ${libzlib_src_la_SOURCES_DIR}/adler32.c
-# ${libzlib_src_la_SOURCES_DIR}/compress.c
-# ${libzlib_src_la_SOURCES_DIR}/crc32.c
-# ${libzlib_src_la_SOURCES_DIR}/deflate.c
-# ${libzlib_src_la_SOURCES_DIR}/inflate.c
-# ${libzlib_src_la_SOURCES_DIR}/gzio.c
-# ${libzlib_src_la_SOURCES_DIR}/infback.c
-# ${libzlib_src_la_SOURCES_DIR}/inffast.c
-# ${libzlib_src_la_SOURCES_DIR}/inftrees.c
-# ${libzlib_src_la_SOURCES_DIR}/trees.c
-# ${libzlib_src_la_SOURCES_DIR}/uncompr.c
-# ${libzlib_src_la_SOURCES_DIR}/zutil.c )
-#endif()
-
-
-set(liburiparser_la_SOURCES_DIR "${CMAKE_CURRENT_SOURCE_DIR}/third_party/uriparser-0.7.5/lib")
-include_directories(${liburiparser_la_SOURCES_DIR})
-set( liburiparser_la_SOURCES
- ${liburiparser_la_SOURCES_DIR}/UriCommon.c
- ${liburiparser_la_SOURCES_DIR}/UriCommon.h
- ${liburiparser_la_SOURCES_DIR}/UriCompare.c
- ${liburiparser_la_SOURCES_DIR}/UriEscape.c
- ${liburiparser_la_SOURCES_DIR}/UriFile.c
- ${liburiparser_la_SOURCES_DIR}/UriIp4.c
- ${liburiparser_la_SOURCES_DIR}/UriIp4Base.c
- ${liburiparser_la_SOURCES_DIR}/UriIp4Base.h
- ${liburiparser_la_SOURCES_DIR}/UriNormalize.c
- ${liburiparser_la_SOURCES_DIR}/UriNormalizeBase.c
- ${liburiparser_la_SOURCES_DIR}/UriNormalizeBase.h
- ${liburiparser_la_SOURCES_DIR}/UriParse.c
- ${liburiparser_la_SOURCES_DIR}/UriParseBase.c
- ${liburiparser_la_SOURCES_DIR}/UriParseBase.h
- ${liburiparser_la_SOURCES_DIR}/UriQuery.c
- ${liburiparser_la_SOURCES_DIR}/UriRecompose.c
- ${liburiparser_la_SOURCES_DIR}/UriResolve.c
- ${liburiparser_la_SOURCES_DIR}/UriShorten.c
-)
-
-set(libkml_SOURCES
- ${libkmlbase_la_SOURCES}
- ${libkmlconvenience_la_SOURCES}
- ${libkmldom_la_SOURCES}
- ${libkmlengine_la_SOURCES}
- ${libkmlregionator_la_SOURCES}
- ${libkmlxsd_la_SOURCES}
- ${libminizip_la_SOURCES}
- ${liburiparser_la_SOURCES}
-# ${libzlib_src_la_SOURCES}
- )
-# Adjust the compiler flags to avoid problems with ossim code.
-if(CMAKE_COMPILER_IS_GNUCXX)
- foreach(f ${libkml_SOURCES} )
-# set_source_files_properties( ${f} PROPERTIES COMPILE_FLAGS -Wall -Werror -ansi -pedantic -fno-rtti )
- set_source_files_properties( ${f} PROPERTIES COMPILE_FLAGS -w )
- endforeach()
-else()
- if(WIN32)
- foreach(f ${libkml_SOURCES} )
- set_source_files_properties( ${f} PROPERTIES COMPILE_FLAGS /W3 )
- endforeach()
- endif()
-endif()
-if(WIN32)
- if(NOT CYGWIN)
- add_definitions(-DWIN32 -DUNICODE -D_UNICODE)
- endif()
-endif()
-
-# ----- DECLARE LIBRARIES --------------------------------
-if(LIBKML_COMPILE_ZLIB)
-
-else()
- find_package(ZLIB)
-endif()
-
-include_directories(${ZLIB_INCLUDE_DIR})
-# Minizip
-
-add_library(minizip ${libminizip_la_SOURCES} )
-target_link_libraries(minizip )
-
-if(NOT LIBKML_COMPILE_ZLIB)
- target_link_libraries(minizip ${ZLIB_LIBRARY})
-else()
-message(STATUS " Building zlib from thirdparty")
-endif()
-
-install(TARGETS minizip
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-
-# Base
-add_library(kmlbase ${libkmlbase_la_SOURCES} ${liburiparser_la_SOURCES})
-target_link_libraries(kmlbase ${EXPAT_LIBRARY} minizip)
-
-install(TARGETS kmlbase
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-# DOM
-add_library(kmldom ${libkmldom_la_SOURCES} )
-target_link_libraries(kmldom kmlbase)
-
-install(TARGETS kmldom
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-# Engine
-add_library(kmlengine ${libkmlengine_la_SOURCES} )
-target_link_libraries(kmlengine kmlbase kmldom)
-
-install(TARGETS kmlengine
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-# Convenience
-add_library(kmlconvenience ${libkmlconvenience_la_SOURCES} )
-target_link_libraries(kmlconvenience kmlbase kmldom kmlengine)
-
-install(TARGETS kmlconvenience
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-# Regionator
-add_library(kmlregionator ${libkmlregionator_la_SOURCES} )
-target_link_libraries(kmlregionator kmlbase kmlconvenience kmldom kmlengine)
-
-install(TARGETS kmlregionator
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-# XSD
-add_library(kmlxsd ${libkmlxsd_la_SOURCES} )
-target_link_libraries(kmlxsd kmlbase)
-
-install(TARGETS kmlxsd
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-
-# install all headers
-install(DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR}/src/kml
- DESTINATION include
- FILES_MATCHING PATTERN "*.h")
-
diff --git a/SuperBuild/patches/LIBKML/src/kml/base/file_posix.cc b/SuperBuild/patches/LIBKML/src/kml/base/file_posix.cc
deleted file mode 100644
index 679e29e..0000000
--- a/SuperBuild/patches/LIBKML/src/kml/base/file_posix.cc
+++ /dev/null
@@ -1,74 +0,0 @@
-// Copyright 2008, Google Inc. All rights reserved.
-//
-// Redistribution and use in source and binary forms, with or without
-// modification, are permitted provided that the following conditions are met:
-//
-// 1. Redistributions of source code must retain the above copyright notice,
-// this list of conditions and the following disclaimer.
-// 2. Redistributions in binary form must reproduce the above copyright notice,
-// this list of conditions and the following disclaimer in the documentation
-// and/or other materials provided with the distribution.
-// 3. Neither the name of Google Inc. nor the names of its contributors may be
-// used to endorse or promote products derived from this software without
-// specific prior written permission.
-//
-// THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
-// WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-// MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
-// EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-// SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
-// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
-// OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
-// WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
-// OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
-// ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-// The file contains the implementation of the File methods specific to
-// POSIX platforms.
-
-#include "kml/base/file.h"
-#include <unistd.h>
-#include <cstdlib>
-#include <cstring>
-#include <sys/types.h>
-#include <sys/stat.h>
-
-namespace kmlbase {
-
-// Internal to the POSIX File class.
-static bool StatFile(const char* path, struct stat* stat_data) {
- struct stat tmp;
- if (stat(path, &tmp) !=0) {
- return false;
- }
- *stat_data = tmp;
- return true;
-}
-
-bool File::Exists(const string& full_path) {
- struct stat stat_data;
- if (!StatFile(full_path.c_str(), &stat_data)) {
- return false;
- }
- return S_ISREG(stat_data.st_mode);
-}
-
-bool File::Delete(const string& filepath) {
- return unlink(filepath.c_str()) == 0;
-}
-
-bool File::CreateNewTempFile(string* path) {
- if (!path) {
- return false;
- }
- char temp_path[] = "/tmp/libkmlXXXXXX";
- int fd = mkstemp(temp_path);
- if (fd == -1) {
- return false;
- }
- close(fd);
- path->assign(temp_path, strlen(temp_path));
- return true;
-}
-
-} // end namespace kmlbase
diff --git a/SuperBuild/patches/LIBKML/src/kml/base/util.h b/SuperBuild/patches/LIBKML/src/kml/base/util.h
deleted file mode 100644
index 31d8022..0000000
--- a/SuperBuild/patches/LIBKML/src/kml/base/util.h
+++ /dev/null
@@ -1,66 +0,0 @@
-// Copyright 2008, Google Inc. All rights reserved.
-//
-// Redistribution and use in source and binary forms, with or without
-// modification, are permitted provided that the following conditions are met:
-//
-// 1. Redistributions of source code must retain the above copyright notice,
-// this list of conditions and the following disclaimer.
-// 2. Redistributions in binary form must reproduce the above copyright notice,
-// this list of conditions and the following disclaimer in the documentation
-// and/or other materials provided with the distribution.
-// 3. Neither the name of Google Inc. nor the names of its contributors may be
-// used to endorse or promote products derived from this software without
-// specific prior written permission.
-//
-// THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
-// WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-// MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
-// EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-// SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
-// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
-// OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
-// WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
-// OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
-// ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-#ifndef KML_BASE_UTIL_H__
-#define KML_BASE_UTIL_H__
-
-// OTB provides stdint.h via msinttypes
-//#if (!defined(_MSC_VER)) || (_MSC_VER == 1600)
-#include <stdint.h> // For fixed-size interger typedefs in this file.
-//#endif
-
-// A macro to disallow the evil copy constructor and assignment operator.
-// Should be used in the private: declarations for a class.
-#define LIBKML_DISALLOW_EVIL_CONSTRUCTORS(TypeName) \
- TypeName(const TypeName&);\
- void operator=(const TypeName&)
-
-typedef unsigned int uint;
-
-// OTB provides stdint.h via msinttypes, so we don't need this
-#if 0
-// MSVC has no header for C99 typedefs. (MSVC 2010 has it)
-#ifdef _MSC_VER
-#if _MSC_VER < 1600
-typedef __int8 int8_t;
-typedef __int16 int16_t;
-typedef __int32 int32_t;
-typedef __int64 int64_t;
-typedef unsigned __int8 uint8_t;
-typedef unsigned __int16 uint16_t;
-typedef unsigned __int32 uint32_t;
-typedef unsigned __int64 uint64_t;
-#endif // _MSC_VER < 1600
-#endif // _MSC_VER
-#endif
-
-#include <string>
-
-// A convenience for the internal build system at Google.
-#ifndef HAS_GLOBAL_STRING
-using std::string;
-#endif
-
-#endif // KML_BASE_UTIL_H__
diff --git a/SuperBuild/patches/LIBSVM/CMakeLists.txt b/SuperBuild/patches/LIBSVM/CMakeLists.txt
deleted file mode 100644
index 7f233a2..0000000
--- a/SuperBuild/patches/LIBSVM/CMakeLists.txt
+++ /dev/null
@@ -1,41 +0,0 @@
-cmake_minimum_required(VERSION 2.8.3)
-
-project(libsvm)
-
-# Set a default build type if none was specified
-if(NOT CMAKE_BUILD_TYPE AND NOT CMAKE_CONFIGURATION_TYPES)
- message(STATUS "Setting build type to 'Release' as none was specified.")
- set(CMAKE_BUILD_TYPE Release CACHE STRING "Choose the type of build." FORCE)
- # Set the possible values of build type for cmake-gui
- set_property(CACHE CMAKE_BUILD_TYPE PROPERTY STRINGS "Debug" "Release" "MinSizeRel" "RelWithDebInfo")
-endif()
-
-set(BUILD_SHARED_LIBS ON)
-if(MSVC)
-set(BUILD_SHARED_LIBS OFF) #force off
-endif()
-
-set(LIBSVM_SRCS "svm.cpp" )
-set(LIBSVM_HEADERS "svm.h")
-
-add_library(libsvm ${LIBSVM_SRCS})
-
-option(BUILD_SAMPLES "Build executables" ON)
-
-add_executable(svm-train svm-train.c)
-target_link_libraries(svm-train libsvm)
-
-add_executable(svm-predict svm-predict.c)
-target_link_libraries(svm-predict libsvm)
-
-add_executable(svm-scale svm-scale.c)
-target_link_libraries(svm-scale libsvm)
-
-install(TARGETS libsvm
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-install(FILES ${LIBSVM_HEADERS}
- DESTINATION include
- COMPONENT Development)
diff --git a/SuperBuild/patches/MUPARSER/CMakeLists.txt b/SuperBuild/patches/MUPARSER/CMakeLists.txt
deleted file mode 100644
index 77d6e1d..0000000
--- a/SuperBuild/patches/MUPARSER/CMakeLists.txt
+++ /dev/null
@@ -1,32 +0,0 @@
-cmake_minimum_required(VERSION 2.8.3)
-
-project(muparser)
-
-set(BUILD_SHARED_LIBS ON)
-if(MSVC)
-set(BUILD_SHARED_LIBS OFF) #force off
-endif()
-
-file(GLOB MUPARSER_SRCS "src/*.cpp" )
-list(REMOVE_ITEM MUPARSER_SRCS "${CMAKE_SOURCE_DIR}/src/muParserComplex.cpp")
-
-include_directories("${CMAKE_SOURCE_DIR}/include")
-
-add_library(muparser ${MUPARSER_SRCS})
-#if(OTB_LIBRARY_PROPERTIES)
-# set_target_properties(muparser PROPERTIES ${OTB_LIBRARY_PROPERTIES})
-#endif()
-
-install(TARGETS muparser
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-
-
-file(GLOB MUPARSER_HEADERS "${CMAKE_SOURCE_DIR}/include/*.h")
-list(REMOVE_ITEM MUPARSER_HEADERS "${CMAKE_SOURCE_DIR}/include/muParserComplex.h")
-install(FILES ${MUPARSER_HEADERS}
- DESTINATION include
- COMPONENT Development)
-
diff --git a/SuperBuild/patches/MUPARSERX/CMakeLists.txt b/SuperBuild/patches/MUPARSERX/CMakeLists.txt
deleted file mode 100644
index 06556dd..0000000
--- a/SuperBuild/patches/MUPARSERX/CMakeLists.txt
+++ /dev/null
@@ -1,38 +0,0 @@
-cmake_minimum_required(VERSION 2.8.3)
-
-project(muparserx)
-
-# Set a default build type if none was specified
-if(NOT CMAKE_BUILD_TYPE AND NOT CMAKE_CONFIGURATION_TYPES)
- message(STATUS "Setting build type to 'Release' as none was specified.")
- set(CMAKE_BUILD_TYPE Release CACHE STRING "Choose the type of build." FORCE)
- # Set the possible values of build type for cmake-gui
- set_property(CACHE CMAKE_BUILD_TYPE PROPERTY STRINGS "Debug" "Release" "MinSizeRel" "RelWithDebInfo")
-endif()
-
-set(BUILD_SHARED_LIBS ON)
-if(MSVC)
-set(BUILD_SHARED_LIBS OFF) #force off
-endif()
-
-file(GLOB MUPARSERX_SRCS "parser/*.cpp" )
-file(GLOB MUPARSERX_HEADERS "parser/*.h")
-# avoid noxious mpCompat.h
-list(REMOVE_ITEM MUPARSERX_HEADERS "${CMAKE_CURRENT_SOURCE_DIR}/parser/mpCompat.h")
-
-
-add_library(muparserx ${MUPARSERX_SRCS})
-
-option(BUILD_SAMPLES "Build sample executable" ON)
-include_directories(parser)
-add_executable(muparserx-sample sample/timer.cpp sample/example.cpp)
-target_link_libraries(muparserx-sample muparserx)
-
-install(TARGETS muparserx
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-install(FILES ${MUPARSERX_HEADERS}
- DESTINATION include
- COMPONENT Development)
diff --git a/SuperBuild/patches/OPENTHREADS/CMakeLists.txt b/SuperBuild/patches/OPENTHREADS/CMakeLists.txt
deleted file mode 100644
index e009449..0000000
--- a/SuperBuild/patches/OPENTHREADS/CMakeLists.txt
+++ /dev/null
@@ -1,92 +0,0 @@
-if(WIN32)
- cmake_minimum_required(VERSION 2.4.6 FATAL_ERROR)
-else()
- if(APPLE)
- cmake_minimum_required(VERSION 2.4.6 FATAL_ERROR)
- else()
- cmake_minimum_required(VERSION 2.4.0 FATAL_ERROR)
- endif()
-endif()
-
-
-project(OpenThreads)
-
-# We have some custom .cmake scripts not in the official distribution.
-# Maybe this can be used override existing behavior if needed?
-set(CMAKE_MODULE_PATH "${OpenThreads_SOURCE_DIR}/CMakeModules;${CMAKE_MODULE_PATH}")
-
-################################################################################
-# Installation stuff
-
-# We want to build SONAMES shared librariess
-set(OPENTHREADS_SONAMES TRUE)
-
-#set(CMAKE_DEBUG_POSTFIX "d")
-#set(INSTALL_BINDIR OpenThreads/bin)
-#set(INSTALL_INCDIR OpenThreads/include)
-#set(INSTALL_LIBDIR OpenThreads/lib)
-#set(INSTALL_DOCDIR OpenThreads/docs)
-
-
-#set(CMAKE_DEBUG_POSTFIX "d")
-
-set(LIB_POSTFIX "")
-#if(UNIX AND NOT WIN32 AND NOT APPLE)
-# if(CMAKE_SIZEOF_VOID_P MATCHES "8")
-# set(LIB_POSTFIX "64")
-# endif()
-#endif()
-
-################################################################################
-
-
-# Add a source group for the include headers so they are seen in IDEs.
-# Hmmm, this isn't working for me in Xcode.
-# source_group(
-# "Header Files"
-# FILES ${OpenThreads_PUBLIC_HEADERS}
-# )
-
-# Make the headers visible to everything
-include_directories(
- ${OpenThreads_SOURCE_DIR}/include
-)
-
-
-subdirs(src/OpenThreads)
-
-# FIXME: Make optional install test programs
-# FIXME: /bin directory not correct for Windows
-# install_targets(/bin OpenThreads)
-
-#set(OUTPUT_BINDIR ${PROJECT_BINARY_DIR}/bin/${CMAKE_SYSTEM_NAME})
-# OTB modifications
-# Alls bin or lib in OTB bin directory
-#set(OUTPUT_BINDIR ${PROJECT_BINARY_DIR}/bin)
-set(OUTPUT_BINDIR ${CMAKE_BINARY_DIR}/bin)
-make_directory(${OUTPUT_BINDIR})
-set(EXECUTABLE_OUTPUT_PATH ${OUTPUT_BINDIR})
-
-#set(OUTPUT_LIBDIR ${PROJECT_BINARY_DIR}/lib/${CMAKE_SYSTEM_NAME})
-#set(OUTPUT_LIBDIR ${PROJECT_BINARY_DIR}/lib)
-set(OUTPUT_LIBDIR ${CMAKE_BINARY_DIR}/lib)
-make_directory(${OUTPUT_LIBDIR})
-set(LIBRARY_OUTPUT_PATH ${OUTPUT_LIBDIR})
-
-################################################################################
-# Create bin and lib directories if required
-
-if("${CMAKE_SOURCE_DIR}" STREQUAL "${CMAKE_BINARY_DIR}")
- file(MAKE_DIRECTORY ${CMAKE_BINARY_DIR}/bin ${CMAKE_BINARY_DIR}/lib)
-endif()
-
-
-
-
-# This needs to be run very last so other parts of the scripts can take
-# advantage of this.
-if(NOT OPENTHREADS_CONFIG_HAS_BEEN_RUN_BEFORE)
- set(OPENTHREADS_CONFIG_HAS_BEEN_RUN_BEFORE 1 CACHE INTERNAL "Flag to track whether this is the first time running CMake or if CMake has been configured before")
-endif()
-
-
diff --git a/SuperBuild/patches/OSSIM/OssimUtilities.cmake b/SuperBuild/patches/OSSIM/OssimUtilities.cmake
deleted file mode 100644
index 81ef4a4..0000000
--- a/SuperBuild/patches/OSSIM/OssimUtilities.cmake
+++ /dev/null
@@ -1,383 +0,0 @@
-#################################################################################
-# This was taken from the http://www.cmake.org/Wiki/CMakeMacroParseArguments
-#################################################################################
-MACRO(OSSIM_PARSE_ARGUMENTS prefix arg_names option_names)
- SET(DEFAULT_ARGS)
- FOREACH(arg_name ${arg_names})
- SET(${prefix}_${arg_name})
- ENDFOREACH(arg_name)
- FOREACH(option ${option_names})
- SET(${prefix}_${option} FALSE)
- ENDFOREACH(option)
-
- SET(current_arg_name DEFAULT_ARGS)
- SET(current_arg_list)
- FOREACH(arg ${ARGN})
- SET(larg_names ${arg_names})
- LIST(FIND larg_names "${arg}" is_arg_name)
- IF (is_arg_name GREATER -1)
- SET(${prefix}_${current_arg_name} ${current_arg_list})
- SET(current_arg_name ${arg})
- SET(current_arg_list)
- ELSE (is_arg_name GREATER -1)
- SET(loption_names ${option_names})
- LIST(FIND loption_names "${arg}" is_option)
- IF (is_option GREATER -1)
- SET(${prefix}_${arg} TRUE)
- ELSE (is_option GREATER -1)
- SET(current_arg_list ${current_arg_list} ${arg})
- ENDIF (is_option GREATER -1)
- ENDIF (is_arg_name GREATER -1)
- ENDFOREACH(arg)
- SET(${prefix}_${current_arg_name} ${current_arg_list})
-ENDMACRO(OSSIM_PARSE_ARGUMENTS)
-
-##############################################################################################
-# This was taken from http://www.cmake.org/Wiki/CMakeMacroListOperations#CAR_and_CDR
-##############################################################################################
-MACRO(OSSIM_CAR var)
- SET(${var} ${ARGV1})
-ENDMACRO(OSSIM_CAR)
-
-#############################################################################################
-# This was taken from http://www.cmake.org/Wiki/CMakeMacroListOperations#CAR_and_CDR
-#############################################################################################
-MACRO(OSSIM_CDR var junk)
- SET(${var} ${ARGN})
-ENDMACRO(OSSIM_CDR)
-
-#################################################################################
-# MACRO: TODAYS_DATE
-#
-# DESCRIPTION:
-# MACRO FOR GETTING THE DATE AND TIME INFORMATION
-#################################################################################
-MACRO (TODAYS_DATE RESULT)
-
- set(TEMP_DATE "")
-
- IF (CMAKE_HOST_WIN32)
- IF(NOT EXISTS "${CMAKE_BINARY_DIR}/get_date.cmd")
-
- ###### OUTPUT DATE ROUTINE #####
- write_file("${CMAKE_BINARY_DIR}/get_date.cmd" "@echo off
- @REM Seamonkey's quick date batch (MMDDYYYY format)
- @REM Setups %date variable
- @REM First parses month, day, and year into mm , dd, yyyy formats and then combines to be MMDDYYYY
-
- @FOR /F \"TOKENS=1* DELIMS= \" %%A IN ('DATE/T') DO SET CDATE=%%B
- @FOR /F \"TOKENS=1,2 eol=/ DELIMS=/ \" %%A IN ('DATE/T') DO SET mm=%%B
- @FOR /F \"TOKENS=1,2 DELIMS=/ eol=/\" %%A IN ('echo %CDATE%') DO SET dd=%%B
- @FOR /F \"TOKENS=2,3 DELIMS=/ \" %%A IN ('echo %CDATE%') DO SET yyyy=%%B
- @SET CURRENT_DATE=%yyyy%%mm%%dd%
- @echo on
- @echo %CURRENT_DATE%")
-
- ENDIF(NOT EXISTS "${CMAKE_BINARY_DIR}/get_date.cmd")
-
- EXECUTE_PROCESS(COMMAND "cmake" "-E" "comspec" "${CMAKE_BINARY_DIR}/get_date.cmd" OUTPUT_VARIABLE ${RESULT})
- string(REGEX REPLACE "\n|\r" "" ${RESULT} ${${RESULT}})
- ELSEIF(CMAKE_HOST_UNIX)
- EXECUTE_PROCESS(COMMAND "date" "+%Y%m%d" OUTPUT_VARIABLE ${RESULT})
- string(REGEX REPLACE "(..)/(..)/..(..).*" "\\3\\2\\1" ${RESULT} ${${RESULT}})
- string(REGEX REPLACE "\n|\r" "" ${RESULT} ${${RESULT}})
- ELSE (WIN32)
- MESSAGE(SEND_ERROR "date not implemented")
- SET(${RESULT} 000000)
- ENDIF (CMAKE_HOST_WIN32)
-ENDMACRO (TODAYS_DATE)
-
-#################################################################################
-# MACRO: GET_SVN_REVISION
-#
-# DESCRIPTION:
-# MACRO FOR GETTING THE SVN revision for this build
-#################################################################################
-MACRO (GET_SVN_REVISION)
- FIND_PACKAGE(Subversion)
- IF(SUBVERSION_FOUND)
- Subversion_WC_INFO(${PROJECT_SOURCE_DIR} Project)
- # MESSAGE("Current revision is ${Project_WC_REVISION}")
- # Subversion_WC_LOG(${PROJECT_SOURCE_DIR} Project)
- # MESSAGE("Last changed log is ${Project_LAST_CHANGED_LOG}")
- ENDIF()
-ENDMACRO(GET_SVN_REVISION)
-
-MACRO(LINK_EXTERNAL TRGTNAME)
- FOREACH(LINKLIB ${ARGN})
- TARGET_LINK_LIBRARIES(${TRGTNAME} "${LINKLIB}" )
- ENDFOREACH(LINKLIB)
-ENDMACRO(LINK_EXTERNAL TRGTNAME)
-
-MACRO(LINK_INTERNAL TRGTNAME)
- IF(${CMAKE_MAJOR_VERSION} EQUAL 2 AND ${CMAKE_MINOR_VERSION} GREATER 4)
- TARGET_LINK_LIBRARIES(${TRGTNAME} ${ARGN})
- ELSE(${CMAKE_MAJOR_VERSION} EQUAL 2 AND ${CMAKE_MINOR_VERSION} GREATER 4)
- FOREACH(LINKLIB ${ARGN})
- IF(MSVC AND OSSIM_MSVC_VERSIONED_DLL)
- #when using versioned names, the .dll name differ from .lib name, there is a problem with that:
- #CMake 2.4.7, at least seem to use PREFIX instead of IMPORT_PREFIX for computing linkage info to use into projects,
- # so we full path name to specify linkage, this prevent automatic inferencing of dependencies, so we add explicit depemdencies
- #to library targets used
- TARGET_LINK_LIBRARIES(${TRGTNAME} optimized "${OUTPUT_LIBDIR}/${LINKLIB}${CMAKE_RELEASE_POSTFIX}.lib" debug "${OUTPUT_LIBDIR}/${LINKLIB}${CMAKE_DEBUG_POSTFIX}.lib")
- ADD_DEPENDENCIES(${TRGTNAME} ${LINKLIB})
- ELSE(MSVC AND OSSIM_MSVC_VERSIONED_DLL)
- TARGET_LINK_LIBRARIES(${TRGTNAME} optimized "${LINKLIB}${CMAKE_RELEASE_POSTFIX}" debug "${LINKLIB}${CMAKE_DEBUG_POSTFIX}")
- ENDIF(MSVC AND OSSIM_MSVC_VERSIONED_DLL)
- ENDFOREACH(LINKLIB)
- ENDIF(${CMAKE_MAJOR_VERSION} EQUAL 2 AND ${CMAKE_MINOR_VERSION} GREATER 4)
-ENDMACRO(LINK_INTERNAL TRGTNAME)
-
-######################################################################
-#
-# This set up the libraries to link to, it assumes there are two variable: one common for a group of examples or plugins
-# kept in the variable TARGET_COMMON_LIBRARIES and an example or plugin specific kept in TARGET_ADDED_LIBRARIES
-# they are combined in a single list checked for unicity
-# the suffix ${CMAKE_DEBUG_POSTFIX} is used for differentiating optimized and debug
-#
-# a second variable TARGET_EXTERNAL_LIBRARIES hold the list of libraries not differentiated between debug and optimized
-##################################################################################
-MACRO(SETUP_LINK_LIBRARIES)
- SET(TARGET_LIBRARIES ${TARGET_COMMON_LIBRARIES})
-
- FOREACH(LINKLIB ${TARGET_ADDED_LIBRARIES})
- SET(TO_INSERT TRUE)
- FOREACH (value ${TARGET_COMMON_LIBRARIES})
- IF (${value} STREQUAL ${LINKLIB})
- SET(TO_INSERT FALSE)
- ENDIF (${value} STREQUAL ${LINKLIB})
- ENDFOREACH (value ${TARGET_COMMON_LIBRARIES})
- IF(TO_INSERT)
- LIST(APPEND TARGET_LIBRARIES ${LINKLIB})
- ENDIF(TO_INSERT)
- ENDFOREACH(LINKLIB)
-
- LINK_INTERNAL(${TARGET_TARGETNAME} ${TARGET_LIBRARIES})
- TARGET_LINK_LIBRARIES(${TARGET_TARGETNAME} ${TARGET_EXTERNAL_LIBRARIES})
- IF(TARGET_LIBRARIES_VARS)
- LINK_WITH_VARIABLES(${TARGET_TARGETNAME} ${TARGET_LIBRARIES_VARS})
- ENDIF(TARGET_LIBRARIES_VARS)
-ENDMACRO(SETUP_LINK_LIBRARIES)
-
-
-MACRO(OSSIM_SETUP_APPLICATION)
- OSSIM_PARSE_ARGUMENTS(APPLICATION
- "COMPONENT_NAME;SOURCE_FILES;HEADERS;TARGET_NAME;TARGET_LABEL"
- "COMMAND_LINE;INSTALL;REQUIRE_WINMAIN_FLAG"
- ${ARGN})
- OSSIM_CAR(APPLICATION_NAME "${APPLICATION_DEFAULT_ARGS}")
- OSSIM_CDR(APPLICATION_SOURCES "${APPLICATION_DEFAULT_ARGS}")
- SET(TARGET_NAME ${APPLICATION_NAME})
- SET(TARGET_TARGETNAME "${TARGET_DEFAULT_PREFIX}${APPLICATION_NAME}")
- IF(APPLICATION_TARGET_NAME)
- set(TARGET_TARGETNAME "${APPLICATION_TARGET_NAME}")
- ENDIF(APPLICATION_TARGET_NAME)
-
- SET(TARGET_LABEL "${TARGET_DEFAULT_LABEL_PREFIX} ${APPLICATION_NAME}")
- IF(APPLICATION_TARGET_LABEL)
- SET(TARGET_LABEL "${APPLICATION_TARGET_LABEL}")
- ENDIF(APPLICATION_TARGET_LABEL)
-
- IF(APPLICATION_COMMAND_LINE)
- ADD_EXECUTABLE(${TARGET_TARGETNAME} ${APPLICATION_SOURCE_FILES} ${APPLICATION_HEADERS})
-
- ELSE(APPLICATION_COMMAND_LINE)
- IF(APPLE)
- # SET(MACOSX_BUNDLE_LONG_VERSION_STRING "${OSSIM_MAJOR_VERSION}.${OSSIM_MINOR_VERSION}.${OSSIM_PATCH_VERSION}")
- # Short Version is the "marketing version". It is the version
- # the user sees in an information panel.
- SET(MACOSX_BUNDLE_SHORT_VERSION_STRING "${OSSIM_MAJOR_VERSION}.${OSSIM_MINOR_VERSION}.${OSSIM_PATCH_VERSION}")
- # Bundle version is the version the OS looks at.
- SET(MACOSX_BUNDLE_BUNDLE_VERSION "${OSSIM_MAJOR_VERSION}.${OSSIM_MINOR_VERSION}.${OSSIM_PATCH_VERSION}")
- SET(MACOSX_BUNDLE_GUI_IDENTIFIER "org.ossim.${TARGET_TARGETNAME}" )
- SET(MACOSX_BUNDLE_BUNDLE_NAME "${TARGET_TARGETNAME}" )
- # SET(MACOSX_BUNDLE_ICON_FILE "myicon.icns")
- # SET(MACOSX_BUNDLE_COPYRIGHT "")
- # SET(MACOSX_BUNDLE_INFO_STRING "Info string, localized?")
- ENDIF(APPLE)
-
- IF(WIN32)
- IF (APPLICATION_REQUIRE_WINMAIN_FLAG)
- SET(PLATFORM_SPECIFIC_CONTROL WIN32)
- ENDIF (APPLICATION_REQUIRE_WINMAIN_FLAG)
- ENDIF(WIN32)
-
- IF(APPLE)
- IF(OSSIM_BUILD_APPLICATION_BUNDLES)
- SET(PLATFORM_SPECIFIC_CONTROL MACOSX_BUNDLE)
- ENDIF(OSSIM_BUILD_APPLICATION_BUNDLES)
- ENDIF(APPLE)
-
- ADD_EXECUTABLE(${TARGET_TARGETNAME} ${PLATFORM_SPECIFIC_CONTROL} ${APPLICATION_SOURCE_FILES} ${APPLICATION_HEADERS})
-
- ENDIF(APPLICATION_COMMAND_LINE)
-
-
- SET_TARGET_PROPERTIES(${TARGET_TARGETNAME} PROPERTIES PROJECT_LABEL "${TARGET_LABEL}")
- SET_TARGET_PROPERTIES(${TARGET_TARGETNAME} PROPERTIES OUTPUT_NAME ${TARGET_NAME})
- SET_TARGET_PROPERTIES(${TARGET_TARGETNAME} PROPERTIES DEBUG_OUTPUT_NAME "${TARGET_NAME}${CMAKE_DEBUG_POSTFIX}")
- SET_TARGET_PROPERTIES(${TARGET_TARGETNAME} PROPERTIES RELEASE_OUTPUT_NAME "${TARGET_NAME}${CMAKE_RELEASE_POSTFIX}")
- SET_TARGET_PROPERTIES(${TARGET_TARGETNAME} PROPERTIES RELWITHDEBINFO_OUTPUT_NAME "${TARGET_NAME}${CMAKE_RELWITHDEBINFO_POSTFIX}")
- SET_TARGET_PROPERTIES(${TARGET_TARGETNAME} PROPERTIES MINSIZEREL_OUTPUT_NAME "${TARGET_NAME}${CMAKE_MINSIZEREL_POSTFIX}")
-
- IF(MSVC_IDE AND OSSIM_MSVC_VERSIONED_DLL)
- SET_TARGET_PROPERTIES(${TARGET_TARGETNAME} PROPERTIES PREFIX "../")
- ENDIF(MSVC_IDE AND OSSIM_MSVC_VERSIONED_DLL)
-
-
- SETUP_LINK_LIBRARIES()
-
- IF(APPLICATION_INSTALL)
- IF(APPLE)
- INSTALL(TARGETS ${TARGET_TARGETNAME} RUNTIME DESTINATION ${INSTALL_RUNTIME_DIR} BUNDLE DESTINATION ${INSTALL_RUNTIME_DIR} COMPONENT ${APPLICATION_COMPONENT_NAME})
- ELSE(APPLE)
- INSTALL(TARGETS ${TARGET_TARGETNAME} RUNTIME DESTINATION ${INSTALL_RUNTIME_DIR} ${INSTALL_COMPONENT_INFO} COMPONENT ${APPLICATION_COMPONENT_NAME})
- ENDIF(APPLE)
- ENDIF(APPLICATION_INSTALL)
-
- SET_TARGET_PROPERTIES(${TARGET_TARGETNAME} PROPERTIES
- RUNTIME_OUTPUT_DIRECTORY "${CMAKE_BINARY_DIR}/${BUILD_RUNTIME_DIR}")
-
-
-ENDMACRO(OSSIM_SETUP_APPLICATION)
-
-#####################################################################################################
-# MACRO: OSSIM_LINK_LIBRARY
-#
-# Example:
-# OSSIM_LINK_LIBRARY(ossim
-# COMPONENT_NAME ossim
-# SOURCE_FILES foo.cpp
-# HEADERS foo.h
-# TYPE SHARED
-# LIBRARIES <list of libraries to link against>
-# INSTALL_LIB
-# INSTALL_HEADERS)
-#
-# The INSTALL_LIB says to add a default install command for the library by default it will setup the following
-# install(TARGETS ossim
-# FRAMEWORK DESTINATION ${INSTALL_FRAMEWORK_DIR}
-# RUNTIME DESTINATION ${INSTALL_RUNTIME_DIR}
-# LIBRARY DESTINATION ${INSTALL_LIBRARY_DIR}
-# ARCHIVE DESTINATION ${INSTALL_ARCHIVE_DIR}
-# PUBLIC_HEADER DESTINATION ${INSTALL_INCLUDE_DIR}
-# COMPONENT ossim)
-#
-# The INSTALL_HEADERS will do a default header installation if the option is passed in
-# install(FILES <list of headers> DESTINATION "include/ossim" COMPONENT ossim)
-#####################################################################################################
-MACRO(OSSIM_LINK_LIBRARY)
- # The SO_VERSION and VERSION are here for override purpose only so other libraries with their own
- # versioning scheme can use the sum linking
- #
- OSSIM_PARSE_ARGUMENTS(LINK
- "COMPONENT_NAME;SOURCE_FILES;HEADERS;TYPE;LIBRARIES;ADDITIONAL_COMPILE_FLAGS;SOVERSION;VERSION;PUBLIC_HEADERS"
- "INSTALL_LIB;INSTALL_HEADERS;VERSION_SYMLINKS"
- ${ARGN})
- OSSIM_CAR(LINK_NAME "${LINK_DEFAULT_ARGS}")
- OSSIM_CDR(LINK_SOURCES "${LINK_DEFAULT_ARGS}")
- ADD_DEFINITIONS("${OSSIM_COMMON_COMPILER_FLAGS}")
- ADD_LIBRARY(${LINK_NAME}
- ${LINK_TYPE}
- ${LINK_HEADERS}
- ${LINK_SOURCE_FILES})
- IF(NOT LINK_PUBLIC_HEADERS)
- SET(LINK_PUBLIC_HEADERS ${LINK_HEADERS})
- ENDIF()
- IF(LINK_ADDITIONAL_COMPILE_FLAGS)
- SET_TARGET_PROPERTIES(${LINK_NAME} PROPERTIES
- COMPILE_FLAGS ${LINK_ADDITIONAL_COMPILE_FLAGS})
- ENDIF(LINK_ADDITIONAL_COMPILE_FLAGS)
- if(APPLE)
- IF(BUILD_SHARED_LIBS)
-# SET(CMAKE_BUILD_WITH_INSTALL_RPATH TRUE)
-# SET(CMAKE_INSTALL_RPATH "${OSSIM_COMPILE_FRAMEWORKS_INSTALL_NAME_DIR}")
- IF(BUILD_OSSIM_FRAMEWORKS)
- SET_TARGET_PROPERTIES(${LINK_NAME} PROPERTIES
- FRAMEWORK TRUE
- BUILD_WITH_INSTALL_RPATH ON
- INSTALL_NAME_DIR @executable_path/../Frameworks)
- ELSE(BUILD_OSSIM_FRAMEWORKS)
- SET_TARGET_PROPERTIES(${LINK_NAME} PROPERTIES
- FRAMEWORK FALSE
- BUILD_WITH_INSTALL_RPATH OFF
- INSTALL_NAME_DIR ${CMAKE_INSTALL_PREFIX}/${INSTALL_LIBRARY_DIR})
- ENDIF(BUILD_OSSIM_FRAMEWORKS)
- ELSE(BUILD_SHARED_LIBRARY)
- SET_TARGET_PROPERTIES(${LINK_NAME} PROPERTIES
- FRAMEWORK FALSE)
- ENDIF(BUILD_SHARED_LIBS)
- ENDIF(APPLE)
- IF(UNIX AND BUILD_SHARED_LIBS AND NOT APPLE)
- IF(LINK_VERSION_SYMLINKS)
- IF(NOT LINK_SOVERSION)
- set(LINK_SOVERSION "${OSSIM_SOVERSION}")
- ENDIF(NOT LINK_SOVERSION)
- IF(NOT LINK_VERSION)
- set(LINK_VERSION "${OSSIM_VERSION}")
- ENDIF(NOT LINK_VERSION)
- # ADD_CUSTOM_TARGET( lib DEPENDS ${LINK_NAME} )
- # change lib_target properties
- SET_TARGET_PROPERTIES( ${LINK_NAME} PROPERTIES
- # create *nix style library versions + symbolic links
- VERSION ${LINK_VERSION}
- SOVERSION ${LINK_SOVERSION}
- # allow creating static and shared libs without conflicts
- CLEAN_DIRECT_OUTPUT 1
- # avoid conflicts between library and binary target names
- OUTPUT_NAME ${LINK_NAME} )
- ENDIF(LINK_VERSION_SYMLINKS)
- ENDIF(UNIX AND BUILD_SHARED_LIBS AND NOT APPLE)
- SET_TARGET_PROPERTIES(${LINK_NAME} PROPERTIES
- RUNTIME_OUTPUT_DIRECTORY "${CMAKE_BINARY_DIR}/${BUILD_RUNTIME_DIR}")
- IF(APPLE AND BUILD_OSSIM_FRAMEWORKS)
- SET_TARGET_PROPERTIES(${LINK_NAME} PROPERTIES
- LIBRARY_OUTPUT_DIRECTORY "${CMAKE_BINARY_DIR}/${BUILD_FRAMEWORK_DIR}")
- ELSE(APPLE AND BUILD_OSSIM_FRAMEWORKS)
- SET_TARGET_PROPERTIES(${LINK_NAME} PROPERTIES
- LIBRARY_OUTPUT_DIRECTORY "${CMAKE_BINARY_DIR}/${BUILD_LIBRARY_DIR}")
- ENDIF(APPLE AND BUILD_OSSIM_FRAMEWORKS)
- SET_TARGET_PROPERTIES(${LINK_NAME} PROPERTIES
- ARCHIVE_OUTPUT_DIRECTORY "${CMAKE_BINARY_DIR}/${BUILD_LIBRARY_DIR}")
-
- TARGET_LINK_LIBRARIES(${LINK_NAME} ${LINK_LIBRARIES} ${${LINK_NAME}_EXTRA_LIBS})
-
- IF(LINK_INSTALL_LIB)
- IF(LINK_INSTALL_HEADERS)
- SET_TARGET_PROPERTIES(${LIB_NAME} PROPERTIES PUBLIC_HEADER "${LINK_PUBLIC_HEADERS}")
- install(TARGETS ${LINK_NAME}
- FRAMEWORK DESTINATION ${INSTALL_FRAMEWORK_DIR} COMPONENT ${LINK_COMPONENT_NAME}
- RUNTIME DESTINATION ${INSTALL_RUNTIME_DIR} COMPONENT ${LINK_COMPONENT_NAME}
- LIBRARY DESTINATION ${INSTALL_LIBRARY_DIR} COMPONENT ${LINK_COMPONENT_NAME}
- ARCHIVE DESTINATION ${INSTALL_ARCHIVE_DIR} COMPONENT ${LINK_COMPONENT_NAME}-dev
- PUBLIC_HEADER DESTINATION ${INSTALL_INCLUDE_DIR} COMPONENT ${LINK_COMPONENT_NAME}-dev)
- ELSE(LINK_INSTALL_HEADERS)
- install(TARGETS ${LINK_NAME}
- FRAMEWORK DESTINATION ${INSTALL_FRAMEWORK_DIR} COMPONENT ${LINK_COMPONENT_NAME}
- RUNTIME DESTINATION ${INSTALL_RUNTIME_DIR} COMPONENT ${LINK_COMPONENT_NAME}
- LIBRARY DESTINATION ${INSTALL_LIBRARY_DIR} COMPONENT ${LINK_COMPONENT_NAME}
- ARCHIVE DESTINATION ${INSTALL_ARCHIVE_DIR} COMPONENT ${LINK_COMPONENT_NAME}-dev)
- ENDIF(LINK_INSTALL_HEADERS)
- ENDIF(LINK_INSTALL_LIB)
-ENDMACRO(OSSIM_LINK_LIBRARY)
-
-MACRO(OSSIM_ADD_COMMON_MAKE_UNINSTALL)
-# get_target_property(TEST_UNINSTALL uninstall CREATED)
-# IF(NOT TEST_UNINSTALL)
- #-----------------------------------------------------------------------------
- ### uninstall target
- #-----------------------------------------------------------------------------
- SET(OSSIM_CMAKE_UNINSTALL_CONFIG "${PROJECT_SOURCE_DIR}/CMakeModules/cmake_uninstall.cmake.in")
- IF(EXISTS ${OSSIM_CMAKE_UNINSTALL_CONFIG})
- CONFIGURE_FILE(
- "${OSSIM_CMAKE_UNINSTALL_CONFIG}"
- "${CMAKE_BINARY_DIR}/cmake_uninstall.cmake"
- IMMEDIATE @ONLY)
- ADD_CUSTOM_TARGET(uninstall
- "${CMAKE_COMMAND}" -P "${CMAKE_BINARY_DIR}/cmake_uninstall.cmake"
- )
- set_target_properties(uninstall PROPERTIES CREATED 1)
- ENDIF(EXISTS ${OSSIM_CMAKE_UNINSTALL_CONFIG})
-# ENDIF(NOT TEST_UNINSTALL)
-ENDMACRO(OSSIM_ADD_COMMON_MAKE_UNINSTALL)
-
diff --git a/SuperBuild/patches/PROJ/CMakeLists.txt b/SuperBuild/patches/PROJ/CMakeLists.txt
deleted file mode 100644
index 7f1ad4c..0000000
--- a/SuperBuild/patches/PROJ/CMakeLists.txt
+++ /dev/null
@@ -1,25 +0,0 @@
-cmake_minimum_required(VERSION 2.8.3)
-
-project(proj_install)
-
-file(GLOB ${PROJECT_NAME}_HEADERS "${PROJ4_BUILD_DIR}/projects.h" "${PROJ4_BUILD_DIR}/proj_api.h" "${PROJ_INCLUDE_DIR}/org_proj4_Projections.h" )
-file(GLOB ${PROJECT_NAME}_LIBS "${PROJ4_BUILD_DIR}/*.lib" )
-file(GLOB ${PROJECT_NAME}_DLLS "${PROJ4_BUILD_DIR}/*.dll" )
-
-foreach(${PROJECT_NAME}_HEADER ${${PROJECT_NAME}_HEADERS})
-install(FILES ${${PROJECT_NAME}_HEADER}
- DESTINATION include
- COMPONENT Development)
-endforeach()
-
-foreach(${PROJECT_NAME}_LIB ${${PROJECT_NAME}_LIBS})
-install(FILES ${${PROJECT_NAME}_LIB}
- DESTINATION lib
- COMPONENT Development)
-endforeach()
-
-foreach(${PROJECT_NAME}_DLL ${${PROJECT_NAME}_DLLS})
-install(FILES ${${PROJECT_NAME}_DLL}
- DESTINATION bin
- COMPONENT Development)
-endforeach()
\ No newline at end of file
diff --git a/SuperBuild/patches/QT4/configure_qt4.bat.in b/SuperBuild/patches/QT4/configure_qt4.bat.in
deleted file mode 100755
index 0d6d146..0000000
--- a/SuperBuild/patches/QT4/configure_qt4.bat.in
+++ /dev/null
@@ -1,10 +0,0 @@
-set SB_SAVE_INCLUDE=%INCLUDE%
-set SB_SAVE_LIB=%LIB%
-
-set INCLUDE=%INCLUDE%;@CMAKE_WIN_INSTALL_PREFIX@\include
-set LIB=%LIB%;@CMAKE_WIN_INSTALL_PREFIX@\lib
-
-configure -prefix @CMAKE_WIN_INSTALL_PREFIX@ -opensource -confirm-license -release -shared -nomake demos -nomake examples -nomake tools -no-phonon-backend -no-phonon -no-script -no-scripttools -no-multimedia -no-webkit -qt-sql-sqlite -plugin-sql-sqlite -no-nis -no-qt3support -system-zlib -system-libpng -system-libtiff -system-libjpeg -system-sqlite -L @CMAKE_WIN_INSTALL_PREFIX@\lib -I @CMAKE_WIN_INSTALL_PREFIX@\include
-
-set INCLUDE=%SB_SAVE_INCLUDE%
-set LIB=%SB_SAVE_LIB%
diff --git a/SuperBuild/patches/QWT/qwtconfig.pri b/SuperBuild/patches/QWT/qwtconfig.pri
deleted file mode 100644
index a005cb0..0000000
--- a/SuperBuild/patches/QWT/qwtconfig.pri
+++ /dev/null
@@ -1,125 +0,0 @@
-######################################################################
-# Install paths
-######################################################################
-
-VER_MAJ = 5
-VER_MIN = 2
-VER_PAT = 3
-VERSION = $${VER_MAJ}.$${VER_MIN}.$${VER_PAT}
-
-unix {
- INSTALLBASE = @CMAKE_INSTALL_PREFIX@
-}
-
-win32 {
- INSTALLBASE = @CMAKE_INSTALL_PREFIX@
-}
-
-target.path = $$INSTALLBASE/lib
-headers.path = $$INSTALLBASE/include
-doc.path = $$INSTALLBASE/doc
-
-######################################################################
-# qmake internal options
-######################################################################
-
-CONFIG += qt # Also for Qtopia Core!
-CONFIG += warn_on
-CONFIG += thread
-CONFIG += silent
-
-######################################################################
-# release/debug mode
-# If you want to build both DEBUG_SUFFIX and RELEASE_SUFFIX
-# have to differ to avoid, that they overwrite each other.
-######################################################################
-
-VVERSION = $$[QT_VERSION]
-isEmpty(VVERSION) {
-
- # Qt 3
- CONFIG += release # release/debug
-}
-else {
- # Qt 4
- win32 {
- # On Windows you can't mix release and debug libraries.
- # The designer is built in release mode. If you like to use it
- # you need a release version. For your own application development you
- # might need a debug version.
- # Enable debug_and_release + build_all if you want to build both.
-
- CONFIG += release # release/debug/debug_and_release
- #CONFIG += debug_and_release
- #CONFIG += build_all
- }
- else {
- CONFIG += release # release/debug
- }
-}
-
-######################################################################
-# If you want to have different names for the debug and release
-# versions you can add a suffix rule below.
-######################################################################
-
-DEBUG_SUFFIX =
-RELEASE_SUFFIX =
-
-win32 {
- DEBUG_SUFFIX = d
-}
-
-######################################################################
-# Build the static/shared libraries.
-# If QwtDll is enabled, a shared library is built, otherwise
-# it will be a static library.
-######################################################################
-
-CONFIG += QwtDll
-
-######################################################################
-# QwtPlot enables all classes, that are needed to use the QwtPlot
-# widget.
-######################################################################
-
-CONFIG += QwtPlot
-
-######################################################################
-# QwtWidgets enables all classes, that are needed to use the all other
-# widgets (sliders, dials, ...), beside QwtPlot.
-######################################################################
-
-CONFIG += QwtWidgets
-
-######################################################################
-# If you want to display svg imageson the plot canvas, enable the
-# line below. Note that Qwt needs the svg+xml, when enabling
-# QwtSVGItem.
-######################################################################
-
-#CONFIG += QwtSVGItem
-
-######################################################################
-# You can use the MathML renderer of the Qt solutions package to
-# enable MathML support in Qwt. # If you want this, copy
-# qtmmlwidget.h + qtmmlwidget.cpp to # textengines/mathml and enable
-# the line below.
-######################################################################
-
-#CONFIG += QwtMathML
-
-######################################################################
-# If you want to build the Qwt designer plugin,
-# enable the line below.
-# Otherwise you have to build it from the designer directory.
-######################################################################
-
-#CONFIG += QwtDesigner
-
-######################################################################
-# If you want to auto build the examples, enable the line below
-# Otherwise you have to build them from the examples directory.
-######################################################################
-
-#CONFIG += QwtExamples
diff --git a/SuperBuild/patches/SQLITE/CMakeLists.txt b/SuperBuild/patches/SQLITE/CMakeLists.txt
deleted file mode 100644
index 42040d0..0000000
--- a/SuperBuild/patches/SQLITE/CMakeLists.txt
+++ /dev/null
@@ -1,22 +0,0 @@
-cmake_minimum_required(VERSION 2.8.3)
-
-project(sqlite)
-
-set(BUILD_SHARED_LIBS ON)
-
-include_directories("${CMAKE_SOURCE_DIR}")
-add_definitions(-DSQLITE_ENABLE_COLUMN_METADATA=1)
-add_definitions(-DSQLITE_ENABLE_RTREE=1)
-add_definitions(-DSQLITE_OMIT_LOAD_EXTENSION=1)
-add_library(sqlite3 sqlite3_win.c)
-
-install(TARGETS sqlite3
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-file(GLOB SQLITE_HEADERS "${CMAKE_SOURCE_DIR}/sqlite*.h")
-install(FILES ${SQLITE_HEADERS}
- DESTINATION include
- COMPONENT Development)
-
diff --git a/SuperBuild/patches/SQLITE/sqlite3_win.c b/SuperBuild/patches/SQLITE/sqlite3_win.c
deleted file mode 100644
index a2e3ac6..0000000
--- a/SuperBuild/patches/SQLITE/sqlite3_win.c
+++ /dev/null
@@ -1,5 +0,0 @@
-#if defined (WIN32)
-#define SQLITE_API __declspec(dllexport)
-#endif
-
-#include "sqlite3.c"
\ No newline at end of file
diff --git a/SuperBuild/patches/TIFF/CMakeLists.txt b/SuperBuild/patches/TIFF/CMakeLists.txt
deleted file mode 100644
index 91fa553..0000000
--- a/SuperBuild/patches/TIFF/CMakeLists.txt
+++ /dev/null
@@ -1,25 +0,0 @@
-cmake_minimum_required(VERSION 2.8.3)
-
-project(tiff_install)
-
-file(GLOB ${PROJECT_NAME}_HEADERS "${TIFF_BUILD_DIR}/tif*.h" )
-file(GLOB ${PROJECT_NAME}_LIBS "${TIFF_BUILD_DIR}/libtiff*.lib" )
-file(GLOB ${PROJECT_NAME}_DLLS "${TIFF_BUILD_DIR}/libtiff*.dll" )
-
-foreach(${PROJECT_NAME}_HEADER ${${PROJECT_NAME}_HEADERS})
-install(FILES ${${PROJECT_NAME}_HEADER}
- DESTINATION include
- COMPONENT Development)
-endforeach()
-
-foreach(${PROJECT_NAME}_LIB ${${PROJECT_NAME}_LIBS})
-install(FILES ${${PROJECT_NAME}_LIB}
- DESTINATION lib
- COMPONENT Development)
-endforeach()
-
-foreach(${PROJECT_NAME}_DLL ${${PROJECT_NAME}_DLLS})
-install(FILES ${${PROJECT_NAME}_DLL}
- DESTINATION bin
- COMPONENT Development)
-endforeach()
\ No newline at end of file
diff --git a/SuperBuild/patches/TIFF/nmake.opt b/SuperBuild/patches/TIFF/nmake.opt
deleted file mode 100644
index 771dd84..0000000
--- a/SuperBuild/patches/TIFF/nmake.opt
+++ /dev/null
@@ -1,218 +0,0 @@
-# $Id: nmake.opt,v 1.18 2006/06/07 16:33:45 dron Exp $
-#
-# Copyright (C) 2004, Andrey Kiselev <dron at ak4719.spb.edu>
-#
-# Permission to use, copy, modify, distribute, and sell this software and
-# its documentation for any purpose is hereby granted without fee, provided
-# that (i) the above copyright notices and this permission notice appear in
-# all copies of the software and related documentation, and (ii) the names of
-# Sam Leffler and Silicon Graphics may not be used in any advertising or
-# publicity relating to the software without the specific, prior written
-# permission of Sam Leffler and Silicon Graphics.
-#
-# THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
-# EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
-# WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
-#
-# IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
-# ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
-# OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
-# WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
-# LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
-# OF THIS SOFTWARE.
-
-# Compile time parameters for MS Visual C++ compiler.
-# You may edit this file to specify building options.
-
-#
-###### Edit the following lines to choose a feature set you need. #######
-#
-
-#
-# Select WINMODE_CONSOLE to build a library which reports errors to stderr, or
-# WINMODE_WINDOWED to build such that errors are reported via MessageBox().
-#
-WINMODE_CONSOLE = 1
-#WINMODE_WINDOWED = 1
-
-#
-# Comment out the following lines to disable internal codecs.
-#
-# Support for CCITT Group 3 & 4 algorithms
-CCITT_SUPPORT = 1
-# Support for Macintosh PackBits algorithm
-PACKBITS_SUPPORT = 1
-# Support for LZW algorithm
-LZW_SUPPORT = 1
-# Support for ThunderScan 4-bit RLE algorithm
-THUNDER_SUPPORT = 1
-# Support for NeXT 2-bit RLE algorithm
-NEXT_SUPPORT = 1
-# Support for LogLuv high dynamic range encoding
-LOGLUV_SUPPORT = 1
-
-#
-# Uncomment and edit following lines to enable JPEG support.
-#
-JPEG_SUPPORT = 1
-JPEGDIR = @CMAKE_WIN_INSTALL_PREFIX@
-JPEG_INCLUDE = -I$(JPEGDIR)\include
-JPEG_LIB = $(JPEGDIR)\lib\libjpeg.lib
-
-#
-# Uncomment and edit following lines to enable ZIP support
-# (required for Deflate compression and Pixar log-format)
-#
-ZIP_SUPPORT = 1
-ZLIBDIR = @CMAKE_WIN_INSTALL_PREFIX@
-ZLIB_INCLUDE = -I$(ZLIBDIR)\include
-ZLIB_LIB = $(ZLIBDIR)\lib\zlib.lib
-
-#
-# Uncomment and edit following lines to enable ISO JBIG support
-#
-#JBIG_SUPPORT = 1
-#JBIGDIR = d:/projects/jbigkit
-#JBIG_INCLUDE = -I$(JBIGDIR)/libjbig
-#JBIG_LIB = $(JBIGDIR)/libjbig/jbig.lib
-
-#
-# Uncomment following line to enable Pixar log-format algorithm
-# (Zlib required).
-#
-#PIXARLOG_SUPPORT = 1
-
-#
-# Comment out the following lines to disable strip chopping
-# (whether or not to convert single-strip uncompressed images to mutiple
-# strips of specified size to reduce memory usage). Default strip size
-# is 8192 bytes, it can be configured via the STRIP_SIZE_DEFAULT parameter
-#
-STRIPCHOP_SUPPORT = 1
-STRIP_SIZE_DEFAULT = 8192
-
-#
-# Comment out the following lines to disable treating the fourth sample with
-# no EXTRASAMPLE_ value as being ASSOCALPHA. Many packages produce RGBA
-# files but don't mark the alpha properly.
-#
-EXTRASAMPLE_AS_ALPHA_SUPPORT = 1
-
-#
-# Comment out the following lines to disable picking up YCbCr subsampling
-# info from the JPEG data stream to support files lacking the tag.
-# See Bug 168 in Bugzilla, and JPEGFixupTestSubsampling() for details.
-#
-CHECK_JPEG_YCBCR_SUBSAMPLING = 1
-
-#
-####################### Compiler related options. #######################
-#
-
-#
-# Pick debug or optimized build flags. We default to an optimized build
-# with no debugging information.
-# NOTE: /EHsc option required if you want to build the C++ stream API
-#
-OPTFLAGS = /Ox /MD /EHsc /W3 /D_CRT_SECURE_NO_DEPRECATE
-#OPTFLAGS = /Zi
-
-#
-# Uncomment following line to enable using Windows Common RunTime Library
-# instead of Windows specific system calls. See notes on top of tif_unix.c
-# module for details.
-#
-USE_WIN_CRT_LIB = 1
-
-# Compiler specific options. You may probably want to adjust compilation
-# parameters in CFLAGS variable. Refer to your compiler documentation
-# for the option reference.
-#
-MAKE = nmake /nologo
-CC = cl /nologo
-CXX = cl /nologo
-AR = lib /nologo
-LD = link /nologo
-
-CFLAGS = $(OPTFLAGS) $(INCL) $(EXTRAFLAGS)
-CXXFLAGS = $(OPTFLAGS) $(INCL) $(EXTRAFLAGS)
-EXTRAFLAGS =
-LIBS =
-
-# Name of the output shared library
-DLLNAME = libtiff.dll
-
-#
-########### There is nothing to edit below this line normally. ###########
-#
-
-# Set the native cpu bit order
-EXTRAFLAGS = -DFILLODER_LSB2MSB $(EXTRAFLAGS)
-
-!IFDEF WINMODE_WINDOWED
-EXTRAFLAGS = -DTIF_PLATFORM_WINDOWED $(EXTRAFLAGS)
-LIBS = user32.lib $(LIBS)
-!ELSE
-EXTRAFLAGS = -DTIF_PLATFORM_CONSOLE $(EXTRAFLAGS)
-!ENDIF
-
-# Codec stuff
-!IFDEF CCITT_SUPPORT
-EXTRAFLAGS = -DCCITT_SUPPORT $(EXTRAFLAGS)
-!ENDIF
-
-!IFDEF PACKBITS_SUPPORT
-EXTRAFLAGS = -DPACKBITS_SUPPORT $(EXTRAFLAGS)
-!ENDIF
-
-!IFDEF LZW_SUPPORT
-EXTRAFLAGS = -DLZW_SUPPORT $(EXTRAFLAGS)
-!ENDIF
-
-!IFDEF THUNDER_SUPPORT
-EXTRAFLAGS = -DTHUNDER_SUPPORT $(EXTRAFLAGS)
-!ENDIF
-
-!IFDEF NEXT_SUPPORT
-EXTRAFLAGS = -DNEXT_SUPPORT $(EXTRAFLAGS)
-!ENDIF
-
-!IFDEF LOGLUV_SUPPORT
-EXTRAFLAGS = -DLOGLUV_SUPPORT $(EXTRAFLAGS)
-!ENDIF
-
-!IFDEF JPEG_SUPPORT
-LIBS = $(LIBS) $(JPEG_LIB)
-EXTRAFLAGS = -DJPEG_SUPPORT -DOJPEG_SUPPORT $(EXTRAFLAGS)
-!ENDIF
-
-!IFDEF ZIP_SUPPORT
-LIBS = $(LIBS) $(ZLIB_LIB)
-EXTRAFLAGS = -DZIP_SUPPORT $(EXTRAFLAGS)
-!IFDEF PIXARLOG_SUPPORT
-EXTRAFLAGS = -DPIXARLOG_SUPPORT $(EXTRAFLAGS)
-!ENDIF
-!ENDIF
-
-!IFDEF JBIG_SUPPORT
-LIBS = $(LIBS) $(JBIG_LIB)
-EXTRAFLAGS = -DJBIG_SUPPORT $(EXTRAFLAGS)
-!ENDIF
-
-!IFDEF STRIPCHOP_SUPPORT
-EXTRAFLAGS = -DSTRIPCHOP_DEFAULT=TIFF_STRIPCHOP -DSTRIP_SIZE_DEFAULT=$(STRIP_SIZE_DEFAULT) $(EXTRAFLAGS)
-!ENDIF
-
-!IFDEF EXTRASAMPLE_AS_ALPHA_SUPPORT
-EXTRAFLAGS = -DDEFAULT_EXTRASAMPLE_AS_ALPHA $(EXTRAFLAGS)
-!ENDIF
-
-!IFDEF CHECK_JPEG_YCBCR_SUBSAMPLING
-EXTRAFLAGS = -DCHECK_JPEG_YCBCR_SUBSAMPLING $(EXTRAFLAGS)
-!ENDIF
-
-!IFDEF USE_WIN_CRT_LIB
-EXTRAFLAGS = -DAVOID_WIN32_FILEIO $(EXTRAFLAGS)
-!ELSE
-EXTRAFLAGS = -DUSE_WIN32_FILEIO $(EXTRAFLAGS)
-!ENDIF
diff --git a/SuperBuild/patches/TINYXML/CMakeLists.txt b/SuperBuild/patches/TINYXML/CMakeLists.txt
deleted file mode 100644
index 33c664a..0000000
--- a/SuperBuild/patches/TINYXML/CMakeLists.txt
+++ /dev/null
@@ -1,25 +0,0 @@
-cmake_minimum_required(VERSION 2.8.3)
-
-project(tinyXMLlib)
-
-set(BUILD_SHARED_LIBS ON)
-if(MSVC)
-set(BUILD_SHARED_LIBS OFF) #force off
-endif()
-
-file(GLOB tinyXMLlib_SRCS "*.cpp")
-file(GLOB tinyXMLlib_HDRS "*.h")
-add_library(tinyxml ${tinyXMLlib_SRCS})
-
-install(TARGETS tinyxml
- RUNTIME DESTINATION bin COMPONENT RuntimeLibraries
- LIBRARY DESTINATION lib COMPONENT RuntimeLibraries
- ARCHIVE DESTINATION lib COMPONENT Development)
-
-install(FILES ${tinyXMLlib_HDRS}
- DESTINATION include
- COMPONENT Development)
-
-
-#set(TINYXML_INCLUDE_DIRS ${CMAKE_CURRENT_SOURCE_DIR})
-#set(TINYXML_LIBRARIES tinyXML)
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-grass/otb.git
More information about the Pkg-grass-devel
mailing list